#WORD *25723607743*
		    <GFCN AND-GEN ("VALUE" ATOM <OR <PRIMTYPE WORD> VARTBL> <OR <PRIMTYPE WORD> VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP16 OP27 DEST8 HINT9>
		    <OPT-DISPATCH 3 %<> OPT4 OPT5>
OPT4
		    <PUSH #T$UNBOUND 0>
OPT5
		    <TEMP TEMP11:ATOM>
		    <INTGO>
		    <FRAME 'ANDOR-GEN>
		    <PUSH OP16>
		    <DEAD OP16>
		    <PUSH OP27>
		    <DEAD OP27>
		    <PUSH DEST8>
		    <DEAD DEST8>
		    <PUSH 'AND>
		    <CALL 'ANDOR-GEN 4 = TEMP11>
		    <RETURN TEMP11>
		    <DEAD TEMP11>
		    <END AND-GEN>

#WORD *25663617663*
		    <GFCN OR-GEN ("VALUE" ATOM <OR <PRIMTYPE WORD> VARTBL> <OR <PRIMTYPE WORD> VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP16 OP27 DEST8 HINT9>
		    <OPT-DISPATCH 3 %<> OPT4 OPT5>
OPT4
		    <PUSH #T$UNBOUND 0>
OPT5
		    <TEMP TEMP11:ATOM>
		    <INTGO>
		    <FRAME 'ANDOR-GEN>
		    <PUSH OP16>
		    <DEAD OP16>
		    <PUSH OP27>
		    <DEAD OP27>
		    <PUSH DEST8>
		    <DEAD DEST8>
		    <PUSH 'OR>
		    <CALL 'ANDOR-GEN 4 = TEMP11>
		    <RETURN TEMP11>
		    <DEAD TEMP11>
		    <END OR-GEN>

#WORD *13447406441*
		    <GFCN EOR-GEN ("VALUE" ATOM <OR <PRIMTYPE WORD> VARTBL> <OR <PRIMTYPE WORD> VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP16 OP27 DEST8 HINT9>
		    <OPT-DISPATCH 3 %<> OPT4 OPT5>
OPT4
		    <PUSH #T$UNBOUND 0>
OPT5
		    <TEMP TEMP11:ATOM>
		    <INTGO>
		    <FRAME 'ANDOR-GEN>
		    <PUSH OP16>
		    <DEAD OP16>
		    <PUSH OP27>
		    <DEAD OP27>
		    <PUSH DEST8>
		    <DEAD DEST8>
		    <PUSH 'EOR>
		    <CALL 'ANDOR-GEN 4 = TEMP11>
		    <RETURN TEMP11>
		    <DEAD TEMP11>
		    <END EOR-GEN>

#WORD *13727406541*
		    <GFCN EQV-GEN ("VALUE" ATOM <OR <PRIMTYPE WORD> VARTBL> <OR <PRIMTYPE WORD> VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP16 OP27 DEST8 HINT9>
		    <OPT-DISPATCH 3 %<> OPT4 OPT5>
OPT4
		    <PUSH #T$UNBOUND 0>
OPT5
		    <TEMP TEMP11:ATOM>
		    <INTGO>
		    <FRAME 'ANDOR-GEN>
		    <PUSH OP16>
		    <DEAD OP16>
		    <PUSH OP27>
		    <DEAD OP27>
		    <PUSH DEST8>
		    <DEAD DEST8>
		    <PUSH 'EQV>
		    <CALL 'ANDOR-GEN 4 = TEMP11>
		    <RETURN TEMP11>
		    <DEAD TEMP11>
		    <END EQV-GEN>

#WORD *35447445621*
		    <GFCN ANDOR-GEN ("VALUE" ATOM <OR <PRIMTYPE WORD> VARTBL> <OR <PRIMTYPE WORD> VARTBL> <OR VARTBL ATOM> ATOM) OP14 OP25 DEST6 OPC7>
		    <TEMP (VAC8 %<>) TMP9 TEMP19>
		    <INTGO>
		    <SET TMP9 OP14>
		    <TYPE? TMP9 <TYPE-CODE VARTBL> + PHRASE12>
		    <SET OP14 OP25>
		    <DEAD OP25>
		    <SET OP25 TMP9>
		    <DEAD TMP9>
PHRASE12
		    <TYPE? OP25 <TYPE-CODE VARTBL> + PHRASE14>
		    <CHTYPE OP25 <TYPE-CODE FIX> = OP25>
PHRASE14
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH OP14>
		    <CALL 'FIND-CACHE-VAR 1 = VAC8>
		    <TYPE? VAC8 <TYPE-CODE FALSE> + BOOL16>
		    <NTHUV VAC8 6 = VAC8>
		    <TYPE? VAC8 <TYPE-CODE FALSE> + BOOL16>
		    <FRAME 'AVAILABLE?>
		    <PUSH VAC8>
		    <CALL 'AVAILABLE? 1 = TEMP19>
		    <TYPE? TEMP19 <TYPE-CODE FALSE> - PHRASE24>
		    <DEAD TEMP19>
BOOL16
		    <TYPE? OP25 <TYPE-CODE VARTBL> - PHRASE20>
		    <FRAME 'FIND-CACHE-VAR>
		    <SET TMP9 OP25>
		    <PUSH TMP9>
		    <CALL 'FIND-CACHE-VAR 1 = VAC8>
		    <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE20>
		    <NTHUV VAC8 6 = VAC8>
		    <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE20>
		    <FRAME 'AVAILABLE?>
		    <PUSH VAC8>
		    <CALL 'AVAILABLE? 1 = TEMP19>
		    <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE20>
		    <DEAD TEMP19>
		    <SET OP25 OP14>
		    <DEAD OP14>
		    <SET OP14 TMP9>
		    <DEAD TMP9>
		    <JUMP + PHRASE24>
PHRASE20
		    <SET VAC8 %<> (TYPE FALSE)>
PHRASE24
		    <VEQUAL? VAC8 0 + PHRASE26>
		    <FRAME 'MUNG-AC>
		    <PUSH VAC8>
		    <CALL 'MUNG-AC 1>
PHRASE26
		    <TYPE? OP25 <TYPE-CODE FIX> - PHRASE29>
		    <VEQUAL? OPC7 'EQV - PHRASE31>
		    <XOR OP25 #WORD *777777777777* = OP25>
		    <SET OPC7 'EOR (TYPE ATOM)>
		    <JUMP + PHRASE43>
PHRASE31
		    <VEQUAL? OPC7 'AND - PHRASE43>
		    <XOR OP25 #WORD *777777777777* = OP25>
		    <JUMP + PHRASE43>
PHRASE29
		    <VEQUAL? OPC7 'EQV + BOOL34>
		    <VEQUAL? OPC7 'AND - PHRASE43>
BOOL34
		    <VEQUAL? VAC8 0 + PHRASE36>
		    <FRAME 'EMIT>
		    <PUSH 210>
		    <NTHUV VAC8 2 = TEMP19 (TYPE FIX)>
		    <OR TEMP19 #WORD *120* = TEMP19>
		    <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
		    <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP19>
		    <NTHUV VAC8 2 = TEMP19 (TYPE FIX)>
		    <OR TEMP19 #WORD *120* = TEMP19>
		    <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
		    <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP19>
		    <CALL 'EMIT 3>
		    <JUMP + PHRASE38>
PHRASE36
		    <FRAME 'EMIT>
		    <PUSH 210>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH OP14>
		    <CALL 'VAR-VALUE-ADDRESS 1 = STACK>
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = VAC8>
		    <NTHUV VAC8 2 = TEMP19 (TYPE FIX)>
		    <OR TEMP19 #WORD *120* = TEMP19>
		    <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
		    <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP19>
		    <CALL 'EMIT 3>
PHRASE38
		    <VEQUAL? OPC7 'EQV - PHRASE43>
		    <SET OPC7 'EOR (TYPE ATOM)>
PHRASE43
		    <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE45>
		    <VEQUAL? OPC7 'AND - BOOL47>
		    <TYPE? OP25 <TYPE-CODE FIX> - PHRASE45>
BOOL47
		    <FRAME 'EMIT>
		    <VEQUAL? OPC7 'AND - PHRASE50>
		    <SET TEMP19 202 (TYPE FIX)>
		    <JUMP + PHRASE52>
PHRASE50
		    <VEQUAL? OPC7 'EOR - PHRASE51>
		    <DEAD OPC7>
		    <SET TEMP19 204 (TYPE FIX)>
		    <JUMP + PHRASE52>
PHRASE51
		    <SET TEMP19 200 (TYPE FIX)>
PHRASE52
		    <PUSH TEMP19>
		    <DEAD TEMP19>
		    <TYPE? OP25 <TYPE-CODE FIX> - PHRASE54>
		    <FRAME 'MA-IMM>
		    <PUSH OP25>
		    <DEAD OP25>
		    <CALL 'MA-IMM 1 = TEMP19>
		    <JUMP + PHRASE56>
PHRASE54
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH OP25>
		    <DEAD OP25>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP19>
PHRASE56
		    <PUSH TEMP19>
		    <DEAD TEMP19>
		    <NTHUV VAC8 2 = TEMP19 (TYPE FIX)>
		    <OR TEMP19 #WORD *120* = TEMP19>
		    <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
		    <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP19>
		    <CALL 'EMIT 3>
		    <JUMP + PHRASE67>
PHRASE45
		    <TYPE? OP25 <TYPE-CODE FIX> - PHRASE58>
		    <FRAME 'EMIT>
		    <VEQUAL? OPC7 'AND - PHRASE61>
		    <SET TEMP19 203 (TYPE FIX)>
		    <JUMP + PHRASE63>
PHRASE61
		    <VEQUAL? OPC7 'EOR - PHRASE62>
		    <DEAD OPC7>
		    <SET TEMP19 205 (TYPE FIX)>
		    <JUMP + PHRASE63>
PHRASE62
		    <SET TEMP19 201 (TYPE FIX)>
PHRASE63
		    <PUSH TEMP19>
		    <DEAD TEMP19>
		    <FRAME 'MA-IMM>
		    <PUSH OP25>
		    <DEAD OP25>
		    <CALL 'MA-IMM 1 = STACK>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH OP14>
		    <DEAD OP14>
		    <CALL 'VAR-VALUE-ADDRESS 1 = STACK>
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = VAC8>
		    <NTHUV VAC8 2 = TEMP19 (TYPE FIX)>
		    <OR TEMP19 #WORD *120* = TEMP19>
		    <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
		    <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP19>
		    <CALL 'EMIT 4>
		    <JUMP + PHRASE67>
PHRASE58
		    <FRAME 'EMIT>
		    <VEQUAL? OPC7 'AND - PHRASE70>
		    <SET TEMP19 203 (TYPE FIX)>
		    <JUMP + PHRASE72>
PHRASE70
		    <VEQUAL? OPC7 'EOR - PHRASE71>
		    <DEAD OPC7>
		    <SET TEMP19 205 (TYPE FIX)>
		    <JUMP + PHRASE72>
PHRASE71
		    <SET TEMP19 201 (TYPE FIX)>
PHRASE72
		    <PUSH TEMP19>
		    <DEAD TEMP19>
		    <TYPE? OP14 <TYPE-CODE FIX> - PHRASE74>
		    <FRAME 'MA-IMM>
		    <PUSH OP14>
		    <DEAD OP14>
		    <CALL 'MA-IMM 1 = TEMP19>
		    <JUMP + PHRASE78>
PHRASE74
		    <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE76>
		    <NTHUV VAC8 2 = TMP9 (TYPE FIX)>
		    <OR TMP9 #WORD *120* = TMP9>
		    <LSH TMP9 24 = TMP9 (TYPE FIX)>
		    <CHTYPE TMP9 <TYPE-CODE EFF-ADDR> = TEMP19>
		    <DEAD TMP9>
		    <JUMP + PHRASE78>
PHRASE76
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH OP14>
		    <DEAD OP14>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP19>
PHRASE78
		    <PUSH TEMP19>
		    <DEAD TEMP19>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH OP25>
		    <DEAD OP25>
		    <CALL 'VAR-VALUE-ADDRESS 1 = STACK>
		    <SET TEMP19 VAC8>
		    <TYPE? TEMP19 <TYPE-CODE FALSE> - PHRASE82>
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = VAC8>
		    <SET TEMP19 VAC8>
PHRASE82
		    <NTHUV TEMP19 2 = TMP9 (TYPE FIX)>
		    <DEAD TEMP19>
		    <OR TMP9 #WORD *120* = TMP9>
		    <LSH TMP9 24 = TMP9 (TYPE FIX)>
		    <CHTYPE TMP9 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TMP9>
		    <CALL 'EMIT 4>
PHRASE67
		    <FRAME 'DEST-DECL>
		    <PUSH VAC8>
		    <DEAD VAC8>
		    <PUSH DEST6>
		    <DEAD DEST6>
		    <PUSH 'FIX>
		    <CALL 'DEST-DECL 3>
		    <RETURN 'NORMAL>
		    <END ANDOR-GEN>

#WORD *13124635253*
		    <GFCN ASH-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR ATOM VARTBL> "OPTIONAL" ANY) VAL16 VAL27 DEST8 HINT9>
		    <OPT-DISPATCH 3 %<> OPT4 OPT5>
OPT4
		    <PUSH #T$UNBOUND 0>
OPT5
		    <TEMP TEMP11:ATOM>
		    <INTGO>
		    <FRAME 'SHIFT-GEN>
		    <PUSH VAL16>
		    <DEAD VAL16>
		    <PUSH VAL27>
		    <DEAD VAL27>
		    <PUSH DEST8>
		    <DEAD DEST8>
		    <PUSH 'ASH>
		    <CALL 'SHIFT-GEN 4 = TEMP11>
		    <RETURN TEMP11>
		    <DEAD TEMP11>
		    <END ASH-GEN>

#WORD *25250435511*
		    <GFCN LSH-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR ATOM VARTBL> "OPTIONAL" ANY) VAL16 VAL27 DEST8 HINT9>
		    <OPT-DISPATCH 3 %<> OPT4 OPT5>
OPT4
		    <PUSH #T$UNBOUND 0>
OPT5
		    <TEMP TEMP11:ATOM>
		    <INTGO>
		    <FRAME 'SHIFT-GEN>
		    <PUSH VAL16>
		    <DEAD VAL16>
		    <PUSH VAL27>
		    <DEAD VAL27>
		    <PUSH DEST8>
		    <DEAD DEST8>
		    <PUSH 'LSH>
		    <CALL 'SHIFT-GEN 4 = TEMP11>
		    <RETURN TEMP11>
		    <DEAD TEMP11>
		    <END LSH-GEN>

#WORD *25110436411*
		    <GFCN ROT-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR ATOM VARTBL> "OPTIONAL" ANY) VAL16 VAL27 DEST8 HINT9>
		    <OPT-DISPATCH 3 %<> OPT4 OPT5>
OPT4
		    <PUSH #T$UNBOUND 0>
OPT5
		    <TEMP TEMP11:ATOM>
		    <INTGO>
		    <FRAME 'SHIFT-GEN>
		    <PUSH VAL16>
		    <DEAD VAL16>
		    <PUSH VAL27>
		    <DEAD VAL27>
		    <PUSH DEST8>
		    <DEAD DEST8>
		    <PUSH 'ROT>
		    <CALL 'SHIFT-GEN 4 = TEMP11>
		    <RETURN TEMP11>
		    <DEAD TEMP11>
		    <END ROT-GEN>

#WORD *20701161375*
		    <GFCN SHIFT-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE FIX>> <OR VARTBL <PRIMTYPE FIX>> <OR VARTBL ATOM> ATOM) VAL14 VAL25 DEST6 OPC7>
		    <TEMP (VAC8 %<>) (USE-LONG9 %<>) TEMP34>
		    <INTGO>
		    <TYPE? VAL14 <TYPE-CODE VARTBL> + PHRASE12>
		    <CHTYPE VAL14 <TYPE-CODE FIX> = VAL14>
PHRASE12
		    <TYPE? VAL25 <TYPE-CODE VARTBL> + PHRASE14>
		    <CHTYPE VAL25 <TYPE-CODE FIX> = VAL25>
PHRASE14
		    <VEQUAL? OPC7 'LSH - PHRASE16>
		    <TYPE? VAL14 <TYPE-CODE VARTBL> + BOOL18>
		    <LESS? VAL14 0 - PHRASE16 (TYPE FIX)>
BOOL18
		    <TYPE? VAL25 <TYPE-CODE VARTBL> + BOOL21>
		    <LESS? VAL25 0 - PHRASE16 (TYPE FIX)>
BOOL21
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = VAC8>
		    <FRAME 'GET-AC>
		    <FRAME 'NEXT-AC>
		    <PUSH VAC8>
		    <CALL 'NEXT-AC 1 = STACK>
		    <PUSH 'T>
		    <CALL 'GET-AC 2>
		    <SET USE-LONG9 'T (TYPE ATOM)>
		    <TYPE? VAL14 <TYPE-CODE VARTBL> - PHRASE28>
		    <FRAME 'LOAD-VAR>
		    <PUSH VAL14>
		    <PUSH 'VALUE>
		    <PUSH 'T>
		    <PUSH VAC8>
		    <CALL 'LOAD-VAR 4>
		    <JUMP + PHRASE30>
PHRASE28
		    <FRAME 'LOAD-CONSTANT>
		    <PUSH VAC8>
		    <PUSH VAL14>
		    <CALL 'LOAD-CONSTANT 2>
PHRASE30
		    <FRAME 'EMIT>
		    <PUSH 212>
		    <FRAME 'NEXT-AC>
		    <PUSH VAC8>
		    <CALL 'NEXT-AC 1 = TEMP34>
		    <NTHUV TEMP34 2 = TEMP34 (TYPE FIX)>
		    <OR TEMP34 #WORD *120* = TEMP34>
		    <LSH TEMP34 24 = TEMP34 (TYPE FIX)>
		    <CHTYPE TEMP34 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP34>
		    <CALL 'EMIT 2>
		    <JUMP + PHRASE35>
PHRASE16
		    <TYPE? VAL14 <TYPE-CODE FIX> + BOOL37>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAL14>
		    <CALL 'FIND-CACHE-VAR 1 = VAC8>
		    <TYPE? VAC8 <TYPE-CODE FALSE> + BOOL37>
		    <NTHUV VAC8 6 = VAC8>
		    <TYPE? VAC8 <TYPE-CODE FALSE> + BOOL37>
		    <FRAME 'AVAILABLE?>
		    <PUSH VAC8>
		    <CALL 'AVAILABLE? 1 = TEMP34>
		    <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE35>
		    <DEAD TEMP34>
BOOL37
		    <SET VAC8 %<> (TYPE FALSE)>
PHRASE35
		    <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE41>
		    <EQUAL? VAL14 DEST6 + PHRASE41>
		    <FRAME 'MUNG-AC>
		    <PUSH VAC8>
		    <CALL 'MUNG-AC 1>
PHRASE41
		    <FRAME 'EMIT>
		    <VEQUAL? OPC7 'ROT - PHRASE46>
		    <DEAD OPC7>
		    <SET TEMP34 156 (TYPE FIX)>
		    <JUMP + PHRASE49>
PHRASE46
		    <VEQUAL? USE-LONG9 0 + PHRASE48>
		    <SET TEMP34 121 (TYPE FIX)>
		    <JUMP + PHRASE49>
PHRASE48
		    <SET TEMP34 120 (TYPE FIX)>
PHRASE49
		    <PUSH TEMP34>
		    <DEAD TEMP34>
		    <TYPE? VAL25 <TYPE-CODE FIX> - PHRASE51>
		    <FRAME 'MA-IMM>
		    <PUSH VAL25>
		    <DEAD VAL25>
		    <CALL 'MA-IMM 1 = TEMP34>
		    <JUMP + PHRASE53>
PHRASE51
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH VAL25>
		    <DEAD VAL25>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP34>
PHRASE53
		    <PUSH TEMP34>
		    <DEAD TEMP34>
		    <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE56>
		    <NTHUV VAC8 2 = TEMP34 (TYPE FIX)>
		    <OR TEMP34 #WORD *120* = TEMP34>
		    <LSH TEMP34 24 = TEMP34 (TYPE FIX)>
		    <CHTYPE TEMP34 <TYPE-CODE EFF-ADDR> = TEMP34>
		    <JUMP + PHRASE59>
PHRASE56
		    <TYPE? VAL14 <TYPE-CODE FIX> - PHRASE57>
		    <FRAME 'MA-IMM>
		    <PUSH VAL14>
		    <DEAD VAL14>
		    <CALL 'MA-IMM 1 = TEMP34>
		    <JUMP + PHRASE59>
PHRASE57
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH VAL14>
		    <DEAD VAL14>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP34>
PHRASE59
		    <PUSH TEMP34>
		    <DEAD TEMP34>
		    <VEQUAL? USE-LONG9 0 + PHRASE62>
		    <DEAD USE-LONG9>
		    <NTHUV VAC8 2 = TEMP34 (TYPE FIX)>
		    <OR TEMP34 #WORD *120* = TEMP34>
		    <LSH TEMP34 24 = TEMP34 (TYPE FIX)>
		    <CHTYPE TEMP34 <TYPE-CODE EFF-ADDR> = TEMP34>
		    <JUMP + PHRASE65>
PHRASE62
		    <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE63>
		    <NTHUV VAC8 2 = USE-LONG9 (TYPE FIX)>
		    <OR USE-LONG9 #WORD *120* = USE-LONG9>
		    <LSH USE-LONG9 24 = USE-LONG9 (TYPE FIX)>
		    <CHTYPE USE-LONG9 <TYPE-CODE EFF-ADDR> = TEMP34>
		    <DEAD USE-LONG9>
		    <JUMP + PHRASE65>
PHRASE63
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = VAC8>
		    <NTHUV VAC8 2 = USE-LONG9 (TYPE FIX)>
		    <OR USE-LONG9 #WORD *120* = USE-LONG9>
		    <LSH USE-LONG9 24 = USE-LONG9 (TYPE FIX)>
		    <CHTYPE USE-LONG9 <TYPE-CODE EFF-ADDR> = TEMP34>
		    <DEAD USE-LONG9>
PHRASE65
		    <PUSH TEMP34>
		    <DEAD TEMP34>
		    <CALL 'EMIT 4>
		    <FRAME 'DEST-DECL>
		    <PUSH VAC8>
		    <DEAD VAC8>
		    <PUSH DEST6>
		    <DEAD DEST6>
		    <PUSH 'FIX>
		    <CALL 'DEST-DECL 3>
		    <RETURN 'NORMAL>
		    <END SHIFT-GEN>