#WORD *27635606362*
<GFCN GETBITS-GEN ("VALUE" ATOM ANY ANY ANY ANY "OPTIONAL" ANY) FROM8 WIDTH9 SHIFT10 DEST11 HINT12>
		    <OPT-DISPATCH 4 %<> OPT6 OPT7>
OPT6
		    <PUSH #T$UNBOUND 0>
OPT7
		    <TEMP TEMP25>
		    <INTGO>
		    <EQUAL? DEST11 'STACK - PHRASE15>
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'TYPE-WORD>
		    <PUSH 'FIX>
		    <CALL 'TYPE-WORD 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
PHRASE15
		    <TYPE? FROM8 <TYPE-CODE VARTBL> + PHRASE19>
		    <TYPE? WIDTH9 <TYPE-CODE VARTBL> + PHRASE19>
		    <TYPE? SHIFT10 <TYPE-CODE VARTBL> + PHRASE19>
		    <FRAME 'EMIT-MOVE>
		    <FRAME 'MA-IMM>
		    <GETBITS FROM8 WIDTH9 SHIFT10 = STACK>
		    <DEAD FROM8 WIDTH9 SHIFT10>
		    <CALL 'MA-IMM 1 = STACK>
		    <EQUAL? DEST11 'STACK - PHRASE24>
		    <GVAL 'AC-TP = TEMP25>
		    <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
		    <OR TEMP25 128 = TEMP25>
		    <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
		    <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
		    <JUMP + PHRASE26>
PHRASE24
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH DEST11>
		    <PUSH 'T>
		    <CALL 'VAR-VALUE-ADDRESS 2 = TEMP25>
PHRASE26
		    <PUSH TEMP25>
		    <DEAD TEMP25>
		    <PUSH 'LONG>
		    <CALL 'EMIT-MOVE 3>
		    <JUMP + PHRASE52>
PHRASE19
		    <TYPE? WIDTH9 <TYPE-CODE FIX> - PHRASE28>
		    <TYPE? SHIFT10 <TYPE-CODE FIX> - PHRASE28>
		    <AND SHIFT10 7 = TEMP25>
		    <VEQUAL? TEMP25 0 - PHRASE28 (TYPE FIX)>
		    <DEAD TEMP25>
		    <VEQUAL? WIDTH9 8 + BOOL32 (TYPE FIX)>
		    <VEQUAL? WIDTH9 16 - PHRASE28 (TYPE FIX)>
BOOL32
		    <VEQUAL? SHIFT10 0 + BOOL33 (TYPE FIX)>
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH FROM8>
		    <CALL 'VAR-VALUE-IN-AC? 1 = TEMP25>
		    <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE28>
		    <DEAD TEMP25>
BOOL33
		    <FRAME 'EMIT>
		    <VEQUAL? WIDTH9 8 - PHRASE39 (TYPE FIX)>
		    <DEAD WIDTH9>
		    <SET TEMP25 154 (TYPE FIX)>
		    <JUMP + PHRASE40>
PHRASE39
		    <SET TEMP25 60 (TYPE FIX)>
PHRASE40
		    <PUSH TEMP25>
		    <DEAD TEMP25>
		    <VEQUAL? SHIFT10 0 - PHRASE42 (TYPE FIX)>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH FROM8>
		    <DEAD FROM8>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP25>
		    <JUMP + PHRASE46>
PHRASE42
		    <FRAME 'GEN-LOC>
		    <PUSH FROM8>
		    <DEAD FROM8>
		    <DIV SHIFT10 8 = TEMP25 (TYPE FIX)>
		    <DEAD SHIFT10>
		    <ADD TEMP25 4 = STACK (TYPE FIX)>
		    <DEAD TEMP25>
		    <CALL 'GEN-LOC 2 = TEMP25>
PHRASE46
		    <PUSH TEMP25>
		    <DEAD TEMP25>
		    <EQUAL? DEST11 'STACK - PHRASE50>
		    <GVAL 'AC-TP = TEMP25>
		    <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
		    <OR TEMP25 128 = TEMP25>
		    <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
		    <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
		    <JUMP + COND49>
PHRASE50
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH DEST11>
		    <PUSH 'T>
		    <CALL 'VAR-VALUE-ADDRESS 2 = TEMP25>
COND49
		    <PUSH TEMP25>
		    <DEAD TEMP25>
		    <CALL 'EMIT 3>
		    <JUMP + PHRASE52>
PHRASE28
		    <FRAME 'EMIT>
		    <PUSH 239>
		    <TYPE? SHIFT10 <TYPE-CODE VARTBL> - PHRASE55>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH SHIFT10>
		    <DEAD SHIFT10>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP25>
		    <JUMP + COND54>
PHRASE55
		    <AND SHIFT10 63 = TEMP25>
		    <DEAD SHIFT10>
		    <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
		    <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
COND54
		    <PUSH TEMP25>
		    <DEAD TEMP25>
		    <TYPE? WIDTH9 <TYPE-CODE VARTBL> - PHRASE58>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH WIDTH9>
		    <DEAD WIDTH9>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP25>
		    <JUMP + COND57>
PHRASE58
		    <AND WIDTH9 63 = TEMP25>
		    <DEAD WIDTH9>
		    <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
		    <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
COND57
		    <PUSH TEMP25>
		    <DEAD TEMP25>
		    <TYPE? FROM8 <TYPE-CODE VARTBL> - PHRASE61>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH FROM8>
		    <DEAD FROM8>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP25>
		    <JUMP + COND60>
PHRASE61
		    <FRAME 'MA-IMM>
		    <PUSH FROM8>
		    <DEAD FROM8>
		    <CALL 'MA-IMM 1 = TEMP25>
COND60
		    <PUSH TEMP25>
		    <DEAD TEMP25>
		    <EQUAL? DEST11 'STACK - PHRASE65>
		    <GVAL 'AC-TP = TEMP25>
		    <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
		    <OR TEMP25 128 = TEMP25>
		    <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
		    <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
		    <JUMP + COND64>
PHRASE65
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH DEST11>
		    <PUSH 'T>
		    <CALL 'VAR-VALUE-ADDRESS 2 = TEMP25>
COND64
		    <PUSH TEMP25>
		    <DEAD TEMP25>
		    <CALL 'EMIT 5>
PHRASE52
		    <EQUAL? DEST11 'STACK + PHRASE73>
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH DEST11>
		    <CALL 'VAR-VALUE-IN-AC? 1 = TEMP25>
		    <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE70>
		    <FRAME 'DEST-DECL>
		    <PUSH TEMP25>
		    <DEAD TEMP25>
		    <PUSH DEST11>
		    <DEAD DEST11>
		    <PUSH 'FIX>
		    <CALL 'DEST-DECL 3>
		    <RETURN 'NORMAL>
PHRASE70
		    <FRAME 'VARTBL-DECL>
		    <PUSH DEST11>
		    <CALL 'VARTBL-DECL 1 = TEMP25>
		    <EQUAL? TEMP25 'FIX + PHRASE73>
		    <DEAD TEMP25>
		    <FRAME 'INDICATE-VAR-TEMP-DECL>
		    <PUSH DEST11>
		    <PUSH 'FIX>
		    <CALL 'INDICATE-VAR-TEMP-DECL 2>
		    <FRAME 'EMIT-MOVE>
		    <FRAME 'TYPE-CODE>
		    <PUSH 'FIX>
		    <CALL 'TYPE-CODE 1 = STACK>
		    <FRAME 'VAR-TYPE-ADDRESS>
		    <PUSH DEST11>
		    <DEAD DEST11>
		    <CALL 'VAR-TYPE-ADDRESS 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-MOVE 3>
PHRASE73
		    <RETURN 'NORMAL>
		    <END GETBITS-GEN>
#WORD *5623433665*
<GFCN PUTBITS-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY "OPTIONAL" ANY) TO8 WIDTH9 SHIFT10 FROM11 DEST12 HINT13>
		    <OPT-DISPATCH 5 %<> OPT6 OPT7>
OPT6
		    <PUSH #T$UNBOUND 0>
OPT7
		    <TEMP (TAC18 %<>) (ZERO?19 %<>) TEMP31 FROMOP17 RD14>
		    <INTGO>
		    <TYPE? TO8 <TYPE-CODE VARTBL> + PHRASE21>
		    <TYPE? WIDTH9 <TYPE-CODE VARTBL> + PHRASE21>
		    <TYPE? SHIFT10 <TYPE-CODE VARTBL> + PHRASE21>
		    <TYPE? FROM11 <TYPE-CODE VARTBL> + PHRASE21>
		    <EQUAL? DEST12 'STACK - PHRASE24>
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'TYPE-WORD>
		    <PUSH 'FIX>
		    <CALL 'TYPE-WORD 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
PHRASE24
		    <FRAME 'EMIT-MOVE>
		    <FRAME 'MA-IMM>
		    <PUTBITS TO8 WIDTH9 SHIFT10 FROM11 = STACK>
		    <DEAD TO8 WIDTH9 SHIFT10 FROM11>
		    <CALL 'MA-IMM 1 = STACK>
		    <EQUAL? DEST12 'STACK - PHRASE30>
		    <GVAL 'AC-TP = TEMP31>
		    <NTHUV TEMP31 2 = TEMP31 (TYPE FIX)>
		    <OR TEMP31 128 = TEMP31>
		    <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
		    <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = TEMP31>
		    <JUMP + COND29>
PHRASE30
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH DEST12>
		    <DEAD DEST12>
		    <PUSH 'T>
		    <CALL 'VAR-VALUE-ADDRESS 2 = TEMP31>
COND29
		    <PUSH TEMP31>
		    <DEAD TEMP31>
		    <PUSH 'LONG>
		    <CALL 'EMIT-MOVE 3>
		    <RETURN 'NORMAL>
PHRASE21
		    <EQUAL? DEST12 'STACK - PHRASE35>
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'TYPE-WORD>
		    <PUSH 'FIX>
		    <CALL 'TYPE-WORD 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
		    <FRAME 'EMIT-PUSH>
		    <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE40>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH TO8>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP31>
		    <JUMP + COND39>
PHRASE40
		    <FRAME 'MA-IMM>
		    <PUSH TO8>
		    <CALL 'MA-IMM 1 = TEMP31>
COND39
		    <PUSH TEMP31>
		    <DEAD TEMP31>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
PHRASE35
		    <TYPE? WIDTH9 <TYPE-CODE FIX> - PHRASE44>
		    <VEQUAL? WIDTH9 8 + BOOL46 (TYPE FIX)>
		    <VEQUAL? WIDTH9 16 - PHRASE44 (TYPE FIX)>
BOOL46
		    <TYPE? SHIFT10 <TYPE-CODE FIX> - PHRASE44>
		    <AND SHIFT10 7 = TEMP31>
		    <VEQUAL? TEMP31 0 - PHRASE44 (TYPE FIX)>
		    <DEAD TEMP31>
		    <VEQUAL? SHIFT10 0 + BOOL49 (TYPE FIX)>
		    <EQUAL? DEST12 'STACK + BOOL49>
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH DEST12>
		    <CALL 'VAR-VALUE-IN-AC? 1 = TEMP31>
		    <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE44>
		    <DEAD TEMP31>
		    <EQUAL? FROM11 DEST12 + PHRASE44>
BOOL49
		    <EQUAL? TO8 0 - PHRASE55>
		    <VEQUAL? SHIFT10 0 - PHRASE55 (TYPE FIX)>
		    <SET ZERO?19 'T (TYPE ATOM)>
		    <JUMP + PHRASE67>
PHRASE55
		    <EQUAL? FROM11 DEST12 - PHRASE59>
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = TAC18>
		    <FRAME 'EMIT-MOVE>
		    <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE63>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH TO8>
		    <DEAD TO8>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP31>
		    <JUMP + PHRASE65>
PHRASE63
		    <FRAME 'MA-IMM>
		    <PUSH TO8>
		    <DEAD TO8>
		    <CALL 'MA-IMM 1 = TEMP31>
PHRASE65
		    <PUSH TEMP31>
		    <DEAD TEMP31>
		    <NTHUV TAC18 2 = TEMP31 (TYPE FIX)>
		    <OR TEMP31 80 = TEMP31>
		    <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
		    <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP31>
		    <PUSH 'LONG>
		    <CALL 'EMIT-MOVE 3>
		    <JUMP + PHRASE67>
PHRASE59
		    <EQUAL? DEST12 'STACK + PHRASE67>
		    <EQUAL? TO8 DEST12 + PHRASE67>
		    <FRAME 'EMIT-MOVE>
		    <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE71>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH TO8>
		    <DEAD TO8>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP31>
		    <JUMP + PHRASE73>
PHRASE71
		    <FRAME 'MA-IMM>
		    <PUSH TO8>
		    <DEAD TO8>
		    <CALL 'MA-IMM 1 = TEMP31>
PHRASE73
		    <PUSH TEMP31>
		    <DEAD TEMP31>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH DEST12>
		    <PUSH 'T>
		    <CALL 'VAR-VALUE-ADDRESS 2 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-MOVE 3>
PHRASE67
		    <FRAME 'EMIT>
		    <TYPE? ZERO?19 <TYPE-CODE FALSE> + PHRASE78>
		    <DEAD ZERO?19>
		    <VEQUAL? WIDTH9 8 - PHRASE80 (TYPE FIX)>
		    <DEAD WIDTH9>
		    <SET TEMP31 154 (TYPE FIX)>
		    <JUMP + COND77>
PHRASE80
		    <SET TEMP31 60 (TYPE FIX)>
		    <JUMP + COND77>
PHRASE78
		    <VEQUAL? WIDTH9 8 - PHRASE82 (TYPE FIX)>
		    <DEAD WIDTH9>
		    <SET TEMP31 144 (TYPE FIX)>
		    <JUMP + COND77>
PHRASE82
		    <SET TEMP31 176 (TYPE FIX)>
COND77
		    <PUSH TEMP31>
		    <DEAD TEMP31>
		    <TYPE? FROM11 <TYPE-CODE VARTBL> - PHRASE84>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH FROM11>
		    <DEAD FROM11>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP31>
		    <JUMP + PHRASE86>
PHRASE84
		    <FRAME 'MA-IMM>
		    <PUSH FROM11>
		    <DEAD FROM11>
		    <CALL 'MA-IMM 1 = TEMP31>
PHRASE86
		    <PUSH TEMP31>
		    <DEAD TEMP31>
		    <EQUAL? DEST12 'STACK - PHRASE89>
		    <FRAME 'MA-DISP>
		    <GVAL 'AC-TP = STACK>
		    <DIV SHIFT10 8 = TEMP31 (TYPE FIX)>
		    <DEAD SHIFT10>
		    <SUB -4 TEMP31 = STACK (TYPE FIX)>
		    <DEAD TEMP31>
		    <CALL 'MA-DISP 2 = TEMP31>
		    <JUMP + PHRASE96>
PHRASE89
		    <TYPE? TAC18 <TYPE-CODE FALSE> + PHRASE91>
		    <NTHUV TAC18 2 = ZERO?19 (TYPE FIX)>
		    <OR ZERO?19 80 = ZERO?19>
		    <LSH ZERO?19 24 = ZERO?19 (TYPE FIX)>
		    <CHTYPE ZERO?19 <TYPE-CODE EFF-ADDR> = TEMP31>
		    <DEAD ZERO?19>
		    <JUMP + PHRASE96>
PHRASE91
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH DEST12>
		    <CALL 'VAR-VALUE-IN-AC? 1 = ZERO?19>
		    <TYPE? ZERO?19 <TYPE-CODE FALSE> + PHRASE93>
		    <DEAD ZERO?19>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH DEST12>
		    <PUSH 'T>
		    <CALL 'VAR-VALUE-ADDRESS 2 = TEMP31>
		    <JUMP + PHRASE96>
PHRASE93
		    <FRAME 'GEN-LOC>
		    <PUSH DEST12>
		    <DIV SHIFT10 8 = ZERO?19 (TYPE FIX)>
		    <DEAD SHIFT10>
		    <ADD ZERO?19 4 = STACK (TYPE FIX)>
		    <DEAD ZERO?19>
		    <CALL 'GEN-LOC 2 = TEMP31>
PHRASE96
		    <PUSH TEMP31>
		    <DEAD TEMP31>
		    <CALL 'EMIT 3>
		    <TYPE? TAC18 <TYPE-CODE FALSE> + PHRASE99>
		    <FRAME 'DEST-DECL>
		    <PUSH TAC18>
		    <DEAD TAC18>
		    <PUSH DEST12>
		    <DEAD DEST12>
		    <PUSH 'FIX>
		    <CALL 'DEST-DECL 3>
		    <RETURN 'NORMAL>
PHRASE99
		    <FRAME 'VARTBL-DECL>
		    <PUSH DEST12>
		    <CALL 'VARTBL-DECL 1 = TEMP31>
		    <EQUAL? TEMP31 'FIX + PHRASE107>
		    <DEAD TEMP31>
		    <FRAME 'INDICATE-VAR-TEMP-DECL>
		    <PUSH DEST12>
		    <PUSH 'FIX>
		    <CALL 'INDICATE-VAR-TEMP-DECL 2>
		    <FRAME 'EMIT-MOVE>
		    <FRAME 'TYPE-CODE>
		    <PUSH 'FIX>
		    <CALL 'TYPE-CODE 1 = STACK>
		    <FRAME 'VAR-TYPE-ADDRESS>
		    <PUSH DEST12>
		    <DEAD DEST12>
		    <CALL 'VAR-TYPE-ADDRESS 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-MOVE 3>
		    <RETURN 'NORMAL>
PHRASE44
		    <TYPE? WIDTH9 <TYPE-CODE VARTBL> - PHRASE109>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH WIDTH9>
		    <DEAD WIDTH9>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TAC18>
		    <JUMP + COND108>
PHRASE109
		    <AND WIDTH9 63 = TEMP31>
		    <DEAD WIDTH9>
		    <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
		    <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = TAC18>
		    <DEAD TEMP31>
COND108
		    <TYPE? SHIFT10 <TYPE-CODE VARTBL> - PHRASE112>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH SHIFT10>
		    <DEAD SHIFT10>
		    <CALL 'VAR-VALUE-ADDRESS 1 = ZERO?19>
		    <JUMP + COND111>
PHRASE112
		    <AND SHIFT10 63 = TEMP31>
		    <DEAD SHIFT10>
		    <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
		    <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = ZERO?19>
		    <DEAD TEMP31>
COND111
		    <TYPE? FROM11 <TYPE-CODE VARTBL> - PHRASE115>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH FROM11>
		    <CALL 'VAR-VALUE-ADDRESS 1 = FROMOP17>
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH FROM11>
		    <DEAD FROM11>
		    <CALL 'VAR-VALUE-IN-AC? 1 = RD14>
		    <TYPE? RD14 <TYPE-CODE FALSE> + PHRASE121>
		    <FRAME 'PROTECT>
		    <PUSH RD14>
		    <DEAD RD14>
		    <CALL 'PROTECT 1>
		    <JUMP + PHRASE121>
PHRASE115
		    <FRAME 'MA-IMM>
		    <PUSH FROM11>
		    <DEAD FROM11>
		    <CALL 'MA-IMM 1 = FROMOP17>
PHRASE121
		    <EQUAL? DEST12 'STACK - PHRASE124>
		    <GVAL 'AC-TP = TEMP31>
		    <NTHUV TEMP31 2 = TEMP31 (TYPE FIX)>
		    <OR TEMP31 160 = TEMP31>
		    <LSH TEMP31 8 = TEMP31 (TYPE FIX)>
		    <OR TEMP31 252 = TEMP31>
		    <LSH TEMP31 16 = TEMP31 (TYPE FIX)>
		    <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = RD14>
		    <DEAD TEMP31>
		    <JUMP + PHRASE132>
PHRASE124
		    <EQUAL? DEST12 TO8 - PHRASE125>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH TO8>
		    <DEAD TO8>
		    <CALL 'VAR-VALUE-ADDRESS 1 = RD14>
		    <JUMP + PHRASE132>
PHRASE125
		    <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE127>
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH TO8>
		    <CALL 'VAR-VALUE-IN-AC? 1 = RD14>
		    <TYPE? RD14 <TYPE-CODE FALSE> + PHRASE127>
		    <FRAME 'MUNG-AC>
		    <PUSH RD14>
		    <CALL 'MUNG-AC 1>
		    <FRAME 'DEST-DECL>
		    <PUSH RD14>
		    <PUSH DEST12>
		    <DEAD DEST12>
		    <PUSH 'FIX>
		    <CALL 'DEST-DECL 3>
		    <NTHUV RD14 2 = TEMP31 (TYPE FIX)>
		    <DEAD RD14>
		    <OR TEMP31 80 = TEMP31>
		    <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
		    <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = RD14>
		    <DEAD TEMP31>
		    <JUMP + PHRASE132>
PHRASE127
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = RD14>
		    <TYPE? RD14 <TYPE-CODE FALSE> + PHRASE132>
		    <FRAME 'DEST-DECL>
		    <PUSH RD14>
		    <PUSH DEST12>
		    <DEAD DEST12>
		    <PUSH 'FIX>
		    <CALL 'DEST-DECL 3>
		    <FRAME 'EMIT>
		    <PUSH 208>
		    <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE137>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH TO8>
		    <DEAD TO8>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP31>
		    <JUMP + COND136>
PHRASE137
		    <FRAME 'MA-IMM>
		    <PUSH TO8>
		    <DEAD TO8>
		    <CALL 'MA-IMM 1 = TEMP31>
COND136
		    <PUSH TEMP31>
		    <DEAD TEMP31>
		    <NTHUV RD14 2 = TEMP31 (TYPE FIX)>
		    <DEAD RD14>
		    <OR TEMP31 80 = TEMP31>
		    <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
		    <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = RD14>
		    <DEAD TEMP31>
		    <PUSH RD14>
		    <CALL 'EMIT 3>
PHRASE132
		    <FRAME 'EMIT>
		    <PUSH 240>
		    <PUSH FROMOP17>
		    <DEAD FROMOP17>
		    <PUSH ZERO?19>
		    <DEAD ZERO?19>
		    <PUSH TAC18>
		    <DEAD TAC18>
		    <PUSH RD14>
		    <DEAD RD14>
		    <CALL 'EMIT 5>
PHRASE107
		    <RETURN 'NORMAL>
		    <END PUTBITS-GEN>


#WORD *15114643632*
<GFCN ARITH-GEN ("VALUE" ATOM FIX FIX <OR FIX FLOAT VARTBL> <OR FIX FLOAT VARTBL> <OR ATOM VARTBL> <OR ATOM FALSE> ANY ANY) OP-2-ARG5 OP-3-ARG6 OP17 OP28 DEST9 COMMUTE10 MUD11 TYP12>
		    <TEMP (USE-314 %<>) (VAC15 %<>) TMP13 TEMP40>
		    <INTGO>
		    <TYPE? OP17 <TYPE-CODE FIX> + TAG19>
		    <TYPE? OP17 <TYPE-CODE FLOAT> - PHRASE17>
TAG19
		    <TYPE? OP28 <TYPE-CODE FIX> + TAG20>
		    <TYPE? OP28 <TYPE-CODE FLOAT> - PHRASE17>
TAG20
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = VAC15>
		    <FRAME 'LOAD-CONSTANT>
		    <PUSH VAC15>
		    <FRAME>
		    <PUSH OP17>
		    <DEAD OP17>
		    <PUSH OP28>
		    <DEAD OP28>
		    <ACALL MUD11 2 = STACK>
		    <DEAD MUD11>
		    <CALL 'LOAD-CONSTANT 2>
		    <JUMP + PHRASE128>
PHRASE17
		    <SET TMP13 OP17>
		    <TYPE? TMP13 <TYPE-CODE FIX> + TAG28>
		    <TYPE? TMP13 <TYPE-CODE FLOAT> - PHRASE26>
TAG28
		    <TYPE? COMMUTE10 <TYPE-CODE FALSE> + PHRASE26>
		    <SET OP17 OP28>
		    <DEAD OP28>
		    <SET OP28 TMP13>
PHRASE26
		    <EQUAL? DEST9 'STACK - PHRASE30>
		    <SET USE-314 'T (TYPE ATOM)>
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'TYPE-WORD>
		    <PUSH TYP12>
		    <CALL 'TYPE-WORD 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
		    <JUMP + PHRASE58>
PHRASE30
		    <TYPE? OP17 <TYPE-CODE FIX> + TAG34>
		    <TYPE? OP17 <TYPE-CODE FLOAT> - PHRASE33>
TAG34
		    <SET USE-314 'T (TYPE ATOM)>
		    <JUMP + PHRASE58>
PHRASE33
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH OP17>
		    <CALL 'VAR-VALUE-IN-AC? 1 = VAC15>
		    <TYPE? VAC15 <TYPE-CODE FALSE> + BOOL44>
		    <FRAME 'AVAILABLE?>
		    <PUSH VAC15>
		    <CALL 'AVAILABLE? 1 = TEMP40>
		    <TYPE? TEMP40 <TYPE-CODE FALSE> + BOOL38>
		    <DEAD TEMP40>
		    <FRAME 'MUNG-AC>
		    <PUSH VAC15>
		    <CALL 'MUNG-AC 1>
		    <JUMP + PHRASE58>
BOOL38
		    <EQUAL? OP17 DEST9 - BOOL44>
		    <NTHUV VAC15 8 = TEMP40 (TYPE VECTOR)>
		    <LENUV TEMP40 = TEMP40 (TYPE FIX)>
		    <VEQUAL? TEMP40 1 + PHRASE58 (TYPE FIX)>
		    <DEAD TEMP40>
BOOL44
		    <TYPE? OP28 <TYPE-CODE VARTBL> - PHRASE48>
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH OP28>
		    <CALL 'VAR-VALUE-IN-AC? 1 = VAC15>
		    <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE48>
		    <FRAME 'AVAILABLE?>
		    <PUSH VAC15>
		    <CALL 'AVAILABLE? 1 = TEMP40>
		    <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE48>
		    <DEAD TEMP40>
		    <FRAME 'MUNG-AC>
		    <PUSH VAC15>
		    <CALL 'MUNG-AC 1>
		    <TYPE? COMMUTE10 <TYPE-CODE FALSE> + PHRASE54>
		    <DEAD COMMUTE10>
		    <SET OP17 OP28>
		    <DEAD OP28>
		    <SET OP28 TMP13>
		    <DEAD TMP13>
		    <JUMP + PHRASE58>
PHRASE54
		    <SET USE-314 'T (TYPE ATOM)>
		    <JUMP + PHRASE58>
PHRASE48
		    <SET VAC15 %<> (TYPE FALSE)>
		    <EQUAL? OP17 DEST9 + PHRASE58>
		    <SET USE-314 'T (TYPE ATOM)>
PHRASE58
		    <TYPE? OP28 <TYPE-CODE FIX> - PHRASE67>
		    <LESS? OP28 0 - PHRASE67 (TYPE FIX)>
		    <GRTR? OP28 -64 - PHRASE67 (TYPE FIX)>
		    <VEQUAL? OP-2-ARG5 194 + BOOL64 (TYPE FIX)>
		    <VEQUAL? OP-2-ARG5 192 - PHRASE67 (TYPE FIX)>
BOOL64
		    <SUB 0 OP28 = OP28 (TYPE FIX)>
		    <VEQUAL? OP-2-ARG5 194 - PHRASE66 (TYPE FIX)>
		    <DEAD OP-2-ARG5>
		    <SET OP-2-ARG5 192 (TYPE FIX)>
		    <SET OP-3-ARG6 193 (TYPE FIX)>
		    <JUMP + PHRASE67>
PHRASE66
		    <SET OP-2-ARG5 194 (TYPE FIX)>
		    <SET OP-3-ARG6 195 (TYPE FIX)>
PHRASE67
		    <VEQUAL? USE-314 0 + PHRASE69>
		    <EQUAL? OP17 0 + BOOL71>
		    <EQUAL? OP17 0.0 + BOOL71>
		    <EQUAL? OP17 -1 - PHRASE69>
BOOL71
		    <VEQUAL? OP-2-ARG5 194 - BOOL73 (TYPE FIX)>
		    <EQUAL? OP17 -1 - BOOL75>
		    <DEAD OP17>
		    <SET OP-2-ARG5 210 (TYPE FIX)>
		    <JUMP + BOOL72>
BOOL75
		    <SET OP-2-ARG5 206 (TYPE FIX)>
		    <JUMP + BOOL72>
BOOL73
		    <VEQUAL? OP-2-ARG5 66 - PHRASE69 (TYPE FIX)>
		    <SET OP-2-ARG5 82 (TYPE FIX)>
BOOL72
		    <FRAME 'EMIT>
		    <PUSH OP-2-ARG5>
		    <DEAD OP-2-ARG5>
		    <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE79>
		    <NTHUV VAC15 2 = TEMP40 (TYPE FIX)>
		    <OR TEMP40 80 = TEMP40>
		    <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
		    <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = TEMP40>
		    <JUMP + PHRASE80>
PHRASE79
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH OP28>
		    <DEAD OP28>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP40>
PHRASE80
		    <PUSH TEMP40>
		    <DEAD TEMP40>
		    <EQUAL? DEST9 'STACK - PHRASE83>
		    <SET VAC15 %<> (TYPE FALSE)>
		    <GVAL 'AC-TP = TEMP40>
		    <NTHUV TEMP40 2 = TEMP40 (TYPE FIX)>
		    <OR TEMP40 128 = TEMP40>
		    <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
		    <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = TEMP40>
		    <JUMP + PHRASE86>
PHRASE83
		    <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE84>
		    <NTHUV VAC15 2 = USE-314 (TYPE FIX)>
		    <OR USE-314 80 = USE-314>
		    <LSH USE-314 24 = USE-314 (TYPE FIX)>
		    <CHTYPE USE-314 <TYPE-CODE EFF-ADDR> = TEMP40>
		    <DEAD USE-314>
		    <JUMP + PHRASE86>
PHRASE84
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = VAC15>
		    <NTHUV VAC15 2 = USE-314 (TYPE FIX)>
		    <OR USE-314 80 = USE-314>
		    <LSH USE-314 24 = USE-314 (TYPE FIX)>
		    <CHTYPE USE-314 <TYPE-CODE EFF-ADDR> = TEMP40>
		    <DEAD USE-314>
PHRASE86
		    <PUSH TEMP40>
		    <DEAD TEMP40>
		    <CALL 'EMIT 3>
		    <JUMP + PHRASE128>
PHRASE69
		    <EQUAL? OP28 1 - PHRASE88>
		    <VEQUAL? USE-314 0 + BOOL90>
		    <EQUAL? DEST9 OP17 - PHRASE88>
BOOL90
		    <VEQUAL? OP-2-ARG5 192 - BOOL92 (TYPE FIX)>
		    <SET OP-2-ARG5 214 (TYPE FIX)>
		    <JUMP + BOOL91>
BOOL92
		    <VEQUAL? OP-2-ARG5 194 - PHRASE88 (TYPE FIX)>
		    <SET OP-2-ARG5 215 (TYPE FIX)>
BOOL91
		    <TYPE? VAC15 <TYPE-CODE FALSE> - PHRASE95>
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH OP17>
		    <CALL 'VAR-VALUE-IN-AC? 1 = VAC15>
		    <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE95>
		    <FRAME 'MUNG-AC>
		    <PUSH VAC15>
		    <CALL 'MUNG-AC 1>
PHRASE95
		    <FRAME 'EMIT>
		    <PUSH OP-2-ARG5>
		    <DEAD OP-2-ARG5>
		    <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE101>
		    <NTHUV VAC15 2 = USE-314 (TYPE FIX)>
		    <OR USE-314 80 = USE-314>
		    <LSH USE-314 24 = USE-314 (TYPE FIX)>
		    <CHTYPE USE-314 <TYPE-CODE EFF-ADDR> = USE-314>
		    <JUMP + PHRASE102>
PHRASE101
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH OP17>
		    <DEAD OP17>
		    <CALL 'VAR-VALUE-ADDRESS 1 = USE-314>
PHRASE102
		    <PUSH USE-314>
		    <DEAD USE-314>
		    <CALL 'EMIT 2>
		    <JUMP + PHRASE128>
PHRASE88
		    <VEQUAL? USE-314 0 + PHRASE104>
		    <DEAD USE-314>
		    <FRAME 'EMIT>
		    <PUSH OP-3-ARG6>
		    <DEAD OP-3-ARG6>
		    <TYPE? OP28 <TYPE-CODE FIX> - PHRASE107>
		    <FRAME 'MA-IMM>
		    <PUSH OP28>
		    <DEAD OP28>
		    <CALL 'MA-IMM 1 = USE-314>
		    <JUMP + PHRASE113>
PHRASE107
		    <TYPE? OP28 <TYPE-CODE FLOAT> - PHRASE109>
		    <FRAME 'FLOAT-IMM>
		    <FRAME 'FLOATCONVERT>
		    <PUSH OP28>
		    <DEAD OP28>
		    <CALL 'FLOATCONVERT 1 = STACK>
		    <CALL 'FLOAT-IMM 1 = USE-314>
		    <JUMP + PHRASE113>
PHRASE109
		    <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE112>
		    <NTHUV VAC15 2 = TEMP40 (TYPE FIX)>
		    <OR TEMP40 80 = TEMP40>
		    <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
		    <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = USE-314>
		    <DEAD TEMP40>
		    <JUMP + PHRASE113>
PHRASE112
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH OP28>
		    <DEAD OP28>
		    <CALL 'VAR-VALUE-ADDRESS 1 = USE-314>
PHRASE113
		    <PUSH USE-314>
		    <DEAD USE-314>
		    <TYPE? OP17 <TYPE-CODE FIX> - PHRASE116>
		    <FRAME 'MA-IMM>
		    <PUSH OP17>
		    <DEAD OP17>
		    <CALL 'MA-IMM 1 = USE-314>
		    <JUMP + PHRASE121>
PHRASE116
		    <TYPE? OP17 <TYPE-CODE FLOAT> - PHRASE118>
		    <FRAME 'FLOAT-IMM>
		    <FRAME 'FLOATCONVERT>
		    <PUSH OP17>
		    <DEAD OP17>
		    <CALL 'FLOATCONVERT 1 = STACK>
		    <CALL 'FLOAT-IMM 1 = USE-314>
		    <JUMP + PHRASE121>
PHRASE118
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH OP17>
		    <DEAD OP17>
		    <CALL 'VAR-VALUE-ADDRESS 1 = USE-314>
PHRASE121
		    <PUSH USE-314>
		    <DEAD USE-314>
		    <EQUAL? DEST9 'STACK - PHRASE124>
		    <SET VAC15 %<> (TYPE FALSE)>
		    <GVAL 'AC-TP = USE-314>
		    <NTHUV USE-314 2 = USE-314 (TYPE FIX)>
		    <OR USE-314 128 = USE-314>
		    <LSH USE-314 24 = USE-314 (TYPE FIX)>
		    <CHTYPE USE-314 <TYPE-CODE EFF-ADDR> = USE-314>
		    <JUMP + PHRASE126>
PHRASE124
		    <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE125>
		    <NTHUV VAC15 2 = TEMP40 (TYPE FIX)>
		    <OR TEMP40 80 = TEMP40>
		    <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
		    <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = USE-314>
		    <DEAD TEMP40>
		    <JUMP + PHRASE126>
PHRASE125
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = VAC15>
		    <NTHUV VAC15 2 = TEMP40 (TYPE FIX)>
		    <OR TEMP40 80 = TEMP40>
		    <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
		    <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = USE-314>
		    <DEAD TEMP40>
PHRASE126
		    <PUSH USE-314>
		    <DEAD USE-314>
		    <CALL 'EMIT 4>
		    <JUMP + PHRASE128>
PHRASE104
		    <TYPE? VAC15 <TYPE-CODE FALSE> - PHRASE130>
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH OP17>
		    <CALL 'VAR-VALUE-IN-AC? 1 = VAC15>
		    <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE130>
		    <FRAME 'MUNG-AC>
		    <PUSH VAC15>
		    <CALL 'MUNG-AC 1>
PHRASE130
		    <FRAME 'EMIT>
		    <PUSH OP-2-ARG5>
		    <DEAD OP-2-ARG5>
		    <TYPE? OP28 <TYPE-CODE FIX> - PHRASE136>
		    <FRAME 'MA-IMM>
		    <PUSH OP28>
		    <DEAD OP28>
		    <CALL 'MA-IMM 1 = USE-314>
		    <JUMP + PHRASE141>
PHRASE136
		    <TYPE? OP28 <TYPE-CODE FLOAT> - PHRASE138>
		    <FRAME 'FLOAT-IMM>
		    <FRAME 'FLOATCONVERT>
		    <PUSH OP28>
		    <DEAD OP28>
		    <CALL 'FLOATCONVERT 1 = STACK>
		    <CALL 'FLOAT-IMM 1 = USE-314>
		    <JUMP + PHRASE141>
PHRASE138
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH OP28>
		    <DEAD OP28>
		    <CALL 'VAR-VALUE-ADDRESS 1 = USE-314>
PHRASE141
		    <PUSH USE-314>
		    <DEAD USE-314>
		    <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE144>
		    <NTHUV VAC15 2 = USE-314 (TYPE FIX)>
		    <OR USE-314 80 = USE-314>
		    <LSH USE-314 24 = USE-314 (TYPE FIX)>
		    <CHTYPE USE-314 <TYPE-CODE EFF-ADDR> = USE-314>
		    <JUMP + PHRASE145>
PHRASE144
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH OP17>
		    <DEAD OP17>
		    <CALL 'VAR-VALUE-ADDRESS 1 = USE-314>
PHRASE145
		    <PUSH USE-314>
		    <DEAD USE-314>
		    <CALL 'EMIT 3>
PHRASE128
		    <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE148>
		    <FRAME 'DEST-DECL>
		    <PUSH VAC15>
		    <DEAD VAC15>
		    <PUSH DEST9>
		    <DEAD DEST9>
		    <PUSH TYP12>
		    <DEAD TYP12>
		    <CALL 'DEST-DECL 3>
PHRASE148
		    <RETURN 'NORMAL>
		    <END ARITH-GEN>
#WORD *17062346323*
<GFCN ADDFIX-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
		    <OPT-DISPATCH 3 %<> OPT6 OPT7>
OPT6
		    <PUSH %<>>
OPT7
		    <TEMP TEMP13:ATOM>
		    <INTGO>
		    <FRAME 'ARITH-GEN>
		    <PUSH 192>
		    <PUSH 193>
		    <PUSH OP18>
		    <DEAD OP18>
		    <PUSH OP29>
		    <DEAD OP29>
		    <PUSH DEST10>
		    <DEAD DEST10>
		    <PUSH 'T>
		    <GVAL '+ = STACK>
		    <PUSH 'FIX>
		    <CALL 'ARITH-GEN 8 = TEMP13>
		    <RETURN TEMP13>
		    <DEAD TEMP13>
		    <END ADDFIX-GEN>
#WORD *6457324663*
<GFCN LESSFIX-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE FIX>> <OR VARTBL <PRIMTYPE FIX>> ATOM ATOM "OPTIONAL" ANY) VAL18 VAL29 DIR10 LABEL11 HINT12>
		    <OPT-DISPATCH 4 %<> OPT6 OPT7>
OPT6
		    <PUSH %<>>
OPT7
		    <TEMP (TYP13 %<>)>
		    <INTGO>
		    <TYPE? HINT12 <TYPE-CODE FALSE> + PHRASE15>
		    <FRAME 'PARSE-HINT>
		    <PUSH HINT12>
		    <DEAD HINT12>
		    <PUSH 'TYPE>
		    <CALL 'PARSE-HINT 2 = TYP13>
PHRASE15
		    <TYPE? TYP13 <TYPE-CODE FALSE> - PHRASE18>
		    <TYPE? VAL18 <TYPE-CODE VARTBL> + BOOL20>
		    <VEQUAL? VAL18 0 + PHRASE18 (TYPE FIX)>
BOOL20
		    <TYPE? VAL29 <TYPE-CODE VARTBL> + BOOL23>
		    <VEQUAL? VAL29 0 + PHRASE18 (TYPE FIX)>
BOOL23
		    <SET TYP13 'FIX (TYPE ATOM)>
PHRASE18
		    <FRAME 'COMP-GEN>
		    <PUSH VAL18>
		    <DEAD VAL18>
		    <PUSH VAL29>
		    <DEAD VAL29>
		    <PUSH DIR10>
		    <DEAD DIR10>
		    <PUSH LABEL11>
		    <DEAD LABEL11>
		    <PUSH 1>
		    <PUSH TYP13>
		    <DEAD TYP13>
		    <CALL 'COMP-GEN 6 = TYP13>
		    <RETURN TYP13>
		    <DEAD TYP13>
		    <END LESSFIX-GEN>
#WORD *15457324663*
<GFCN GTFIX-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE FIX>> <OR VARTBL <PRIMTYPE FIX>> ATOM ATOM "OPTIONAL" ANY) VAL18 VAL29 DIR10 LABEL11 HINT12>
		    <OPT-DISPATCH 4 %<> OPT6 OPT7>
OPT6
		    <PUSH %<>>
OPT7
		    <TEMP (TYP13 %<>)>
		    <INTGO>
		    <TYPE? HINT12 <TYPE-CODE FALSE> + PHRASE15>
		    <FRAME 'PARSE-HINT>
		    <PUSH HINT12>
		    <DEAD HINT12>
		    <PUSH 'TYPE>
		    <CALL 'PARSE-HINT 2 = TYP13>
PHRASE15
		    <TYPE? TYP13 <TYPE-CODE FALSE> - PHRASE18>
		    <TYPE? VAL18 <TYPE-CODE VARTBL> + BOOL20>
		    <VEQUAL? VAL18 0 + PHRASE18 (TYPE FIX)>
BOOL20
		    <TYPE? VAL29 <TYPE-CODE VARTBL> + BOOL23>
		    <VEQUAL? VAL29 0 + PHRASE18 (TYPE FIX)>
BOOL23
		    <SET TYP13 'FIX (TYPE ATOM)>
PHRASE18
		    <FRAME 'COMP-GEN>
		    <PUSH VAL18>
		    <DEAD VAL18>
		    <PUSH VAL29>
		    <DEAD VAL29>
		    <PUSH DIR10>
		    <DEAD DIR10>
		    <PUSH LABEL11>
		    <DEAD LABEL11>
		    <PUSH 3>
		    <PUSH TYP13>
		    <DEAD TYP13>
		    <CALL 'COMP-GEN 6 = TYP13>
		    <RETURN TYP13>
		    <DEAD TYP13>
		    <END GTFIX-GEN>
#WORD *30340376742*
<GFCN VEQUAL-GEN ("VALUE" ATOM ANY ANY ATOM ATOM "OPTIONAL" ANY) VAL18 VAL29 DIR10 LABEL11 HINT12>
		    <OPT-DISPATCH 4 %<> OPT6 OPT7>
OPT6
		    <PUSH %<>>
OPT7
		    <TEMP (TYP13 %<>)>
		    <INTGO>
		    <TYPE? HINT12 <TYPE-CODE FALSE> + PHRASE15>
		    <FRAME 'PARSE-HINT>
		    <PUSH HINT12>
		    <DEAD HINT12>
		    <PUSH 'TYPE>
		    <CALL 'PARSE-HINT 2 = TYP13>
PHRASE15
		    <TYPE? TYP13 <TYPE-CODE FALSE> - PHRASE18>
		    <SET TYP13 'FIX (TYPE ATOM)>
PHRASE18
		    <FRAME 'COMP-GEN>
		    <PUSH VAL18>
		    <DEAD VAL18>
		    <PUSH VAL29>
		    <DEAD VAL29>
		    <PUSH DIR10>
		    <DEAD DIR10>
		    <PUSH LABEL11>
		    <DEAD LABEL11>
		    <PUSH 2>
		    <PUSH TYP13>
		    <DEAD TYP13>
		    <CALL 'COMP-GEN 6 = TYP13>
		    <RETURN TYP13>
		    <DEAD TYP13>
		    <END VEQUAL-GEN>
#WORD *4305653234*
<GFCN EQUAL-GEN ("VALUE" ATOM VARTBL ANY ATOM ATOM) VAL15 VAL26 DIR7 LABEL8>
		    <TEMP ELABEL12 DCL10 DCL115>
		    <INTGO>
		    <FRAME 'MAKE-LABEL>
		    <PUSH 'T>
		    <CALL 'MAKE-LABEL 1 = ELABEL12>
		    <TYPE? VAL26 <TYPE-CODE VARTBL> - PHRASE20>
		    <FRAME 'VARTBL-DECL>
		    <PUSH VAL15>
		    <CALL 'VARTBL-DECL 1 = DCL10>
		    <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE22>
		    <FRAME 'VARTBL-DECL>
		    <PUSH VAL26>
		    <CALL 'VARTBL-DECL 1 = DCL115>
		    <TYPE? DCL115 <TYPE-CODE FALSE> + PHRASE22>
		    <FRAME 'CLEAN-DECL>
		    <PUSH DCL10>
		    <DEAD DCL10>
		    <CALL 'CLEAN-DECL 1 = DCL10>
		    <FRAME 'CLEAN-DECL>
		    <PUSH DCL115>
		    <DEAD DCL115>
		    <CALL 'CLEAN-DECL 1 = DCL115>
		    <EQUAL? DCL10 DCL115 - PHRASE22>
		    <DEAD DCL10 DCL115>
		    <FRAME 'VEQUAL-GEN>
		    <PUSH VAL15>
		    <DEAD VAL15>
		    <PUSH VAL26>
		    <DEAD VAL26>
		    <PUSH DIR7>
		    <DEAD DIR7>
		    <PUSH LABEL8>
		    <DEAD LABEL8>
		    <CALL 'VEQUAL-GEN 4>
		    <JUMP + PHRASE61>
PHRASE22
		    <FRAME 'VAR-EQUAL-GEN>
		    <PUSH VAL15>
		    <DEAD VAL15>
		    <PUSH VAL26>
		    <DEAD VAL26>
		    <PUSH DIR7>
		    <DEAD DIR7>
		    <PUSH LABEL8>
		    <DEAD LABEL8>
		    <PUSH ELABEL12>
		    <DEAD ELABEL12>
		    <CALL 'VAR-EQUAL-GEN 5>
		    <JUMP + PHRASE61>
PHRASE20
		    <FRAME 'VARTBL-DECL>
		    <PUSH VAL15>
		    <CALL 'VARTBL-DECL 1 = DCL10>
		    <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE33>
		    <FRAME 'CLEAN-DECL>
		    <PUSH DCL10>
		    <DEAD DCL10>
		    <CALL 'CLEAN-DECL 1 = DCL115>
		    <FRAME 'TYPE>
		    <PUSH VAL26>
		    <CALL 'TYPE 1 = DCL10>
		    <EQUAL? DCL115 DCL10 - PHRASE36>
		    <DEAD DCL115>
		    <FRAME 'SAFE-TYPE-WORD?>
		    <PUSH VAL15>
		    <CALL 'SAFE-TYPE-WORD? 1 = DCL10>
		    <TYPE? DCL10 <TYPE-CODE FALSE> - PHRASE36>
		    <DEAD DCL10>
		    <FRAME 'VEQUAL-GEN>
		    <PUSH VAL15>
		    <DEAD VAL15>
		    <PUSH VAL26>
		    <DEAD VAL26>
		    <PUSH DIR7>
		    <DEAD DIR7>
		    <PUSH LABEL8>
		    <DEAD LABEL8>
		    <CALL 'VEQUAL-GEN 4>
		    <JUMP + PHRASE61>
PHRASE36
		    <FRAME 'ERROR>
		    <PUSH "NOT EQUAL">
		    <PUSH 'EQUAL-GEN>
		    <CALL 'ERROR 2>
		    <JUMP + PHRASE61>
PHRASE33
		    <FRAME 'FIX-CONSTANT?>
		    <PUSH VAL26>
		    <CALL 'FIX-CONSTANT? 1 = DCL10>
		    <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE43>
		    <FRAME 'GEN-COMP-INST>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH VAL15>
		    <CALL 'VAR-VALUE-ADDRESS 1 = STACK>
		    <FRAME 'MA-IMM>
		    <PUSH DCL10>
		    <DEAD DCL10>
		    <CALL 'MA-IMM 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'GEN-COMP-INST 3>
		    <FRAME 'VAR-TYPE-ADDRESS>
		    <PUSH VAL15>
		    <DEAD VAL15>
		    <CALL 'VAR-TYPE-ADDRESS 1 = DCL10>
		    <VEQUAL? DIR7 '- - PHRASE50>
		    <FRAME 'GEN-BRANCH>
		    <PUSH 18>
		    <PUSH LABEL8>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <JUMP + COND49>
PHRASE50
		    <FRAME 'GEN-BRANCH>
		    <PUSH 18>
		    <PUSH ELABEL12>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
COND49
		    <FRAME 'GEN-COMP-INST>
		    <PUSH DCL10>
		    <DEAD DCL10>
		    <FRAME 'TYPE-CODE>
		    <FRAME 'TYPE>
		    <PUSH VAL26>
		    <DEAD VAL26>
		    <CALL 'TYPE 1 = STACK>
		    <PUSH 'WORD>
		    <CALL 'TYPE-CODE 2 = STACK>
		    <PUSH 'WORD>
		    <CALL 'GEN-COMP-INST 3>
		    <VEQUAL? DIR7 '- - PHRASE57>
		    <DEAD DIR7>
		    <FRAME 'GEN-BRANCH>
		    <PUSH 18>
		    <PUSH LABEL8>
		    <DEAD LABEL8>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <JUMP + COND56>
PHRASE57
		    <FRAME 'GEN-BRANCH>
		    <PUSH 19>
		    <PUSH LABEL8>
		    <DEAD LABEL8>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
COND56
		    <FRAME 'GEN-LABEL>
		    <PUSH ELABEL12>
		    <DEAD ELABEL12>
		    <PUSH 'NORMAL>
		    <CALL 'GEN-LABEL 2>
		    <JUMP + PHRASE61>
PHRASE43
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH VAL15>
		    <CALL 'VAR-VALUE-IN-AC? 1 = DCL10>
		    <FRAME 'VAR-TYPE-WORD-IN-AC?>
		    <PUSH VAL15>
		    <CALL 'VAR-TYPE-WORD-IN-AC? 1 = DCL10>
		    <FRAME 'GEN-COMP-INST>
		    <FRAME 'VAR-TYPE-ADDRESS>
		    <PUSH VAL15>
		    <CALL 'VAR-TYPE-ADDRESS 1 = STACK>
		    <FRAME 'TYPE-CODE>
		    <FRAME 'TYPE>
		    <PUSH VAL26>
		    <CALL 'TYPE 1 = STACK>
		    <PUSH 'WORD>
		    <CALL 'TYPE-CODE 2 = STACK>
		    <PUSH 'WORD>
		    <CALL 'GEN-COMP-INST 3>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH VAL15>
		    <DEAD VAL15>
		    <CALL 'VAR-VALUE-ADDRESS 1 = DCL10>
		    <VEQUAL? DIR7 '- - PHRASE70>
		    <FRAME 'GEN-BRANCH>
		    <PUSH 18>
		    <PUSH LABEL8>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <JUMP + COND69>
PHRASE70
		    <FRAME 'GEN-BRANCH>
		    <PUSH 18>
		    <PUSH ELABEL12>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
COND69
		    <FRAME 'GEN-COMP-INST>
		    <PUSH DCL10>
		    <DEAD DCL10>
		    <FRAME 'ADDR-VALUE-MQUOTE>
		    <PUSH VAL26>
		    <DEAD VAL26>
		    <CALL 'ADDR-VALUE-MQUOTE 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'GEN-COMP-INST 3>
		    <VEQUAL? DIR7 '- - PHRASE76>
		    <DEAD DIR7>
		    <FRAME 'GEN-BRANCH>
		    <PUSH 18>
		    <PUSH LABEL8>
		    <DEAD LABEL8>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <JUMP + COND75>
PHRASE76
		    <FRAME 'GEN-BRANCH>
		    <PUSH 19>
		    <PUSH LABEL8>
		    <DEAD LABEL8>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
COND75
		    <FRAME 'GEN-LABEL>
		    <PUSH ELABEL12>
		    <DEAD ELABEL12>
		    <PUSH 'NORMAL>
		    <CALL 'GEN-LABEL 2>
PHRASE61
		    <FRAME 'CLEAR-STATUS>
		    <CALL 'CLEAR-STATUS 0>
		    <RETURN 'NORMAL>
		    <END EQUAL-GEN>


#WORD *15441327753*
<GFCN VAR-EQUAL-GEN ("VALUE" ATOM VARTBL VARTBL ATOM ATOM ATOM) VAR15 VAR26 DIR7 LABEL8 ELABEL9>
		    <TEMP DCL10 DCL112 TEMP24 TEMP26 TAC13>
		    <INTGO>
		    <FRAME 'VARTBL-DECL>
		    <PUSH VAR26>
		    <CALL 'VARTBL-DECL 1 = DCL10>
		    <FRAME 'VARTBL-DECL>
		    <PUSH VAR15>
		    <CALL 'VARTBL-DECL 1 = DCL112>
		    <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE21>
		    <TYPE? DCL112 <TYPE-CODE FALSE> + BOOL22>
		    <FRAME 'CLEAN-DECL>
		    <PUSH DCL10>
		    <CALL 'CLEAN-DECL 1 = TEMP24>
		    <FRAME 'CLEAN-DECL>
		    <PUSH DCL112>
		    <CALL 'CLEAN-DECL 1 = TEMP26>
		    <EQUAL? TEMP24 TEMP26 + BOOL22>
		    <DEAD TEMP24 TEMP26>
		    <FRAME 'ERROR>
		    <PUSH "NOT EQUAL">
		    <PUSH 'VAR-EQUAL-GEN>
		    <CALL 'ERROR 2>
BOOL22
		    <SET TEMP24 VAR26>
		    <DEAD VAR26>
		    <SET VAR26 VAR15>
		    <DEAD VAR15>
		    <SET VAR15 TEMP24>
		    <DEAD TEMP24>
		    <SET TEMP24 DCL10>
		    <DEAD DCL10>
		    <SET DCL10 DCL112>
		    <DEAD DCL112>
		    <SET DCL112 TEMP24>
		    <DEAD TEMP24>
PHRASE21
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH VAR15>
		    <CALL 'VAR-VALUE-IN-AC? 1 = TEMP24>
		    <FRAME 'VAR-TYPE-WORD-IN-AC?>
		    <PUSH VAR15>
		    <CALL 'VAR-TYPE-WORD-IN-AC? 1 = TAC13>
		    <SET TEMP26 %<> (TYPE FALSE)>
		    <SET TEMP26 %<> (TYPE FALSE)>
		    <FRAME 'FRIENDLY-VAR?>
		    <PUSH VAR15>
		    <PUSH TAC13>
		    <PUSH TEMP24>
		    <DEAD TEMP24>
		    <CALL 'FRIENDLY-VAR? 3 = TEMP26>
		    <TYPE? TEMP26 <TYPE-CODE FALSE> + COND33>
		    <VEQUAL? TEMP26 'AC - PHRASE34>
		    <DEAD TEMP26>
		    <NTHUV TAC13 2 = TEMP26 (TYPE FIX)>
		    <DEAD TAC13>
		    <OR TEMP26 80 = TEMP26>
		    <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
		    <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = TEMP26>
		    <JUMP + COND33>
PHRASE34
		    <FRAME 'ADDR-VAR-TYPE>
		    <PUSH VAR15>
		    <CALL 'ADDR-VAR-TYPE 1 = TEMP26>
COND33
		    <FRAME 'VAR-TYPE-WORD-IN-AC?>
		    <PUSH VAR26>
		    <CALL 'VAR-TYPE-WORD-IN-AC? 1 = TAC13>
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH VAR26>
		    <CALL 'VAR-VALUE-IN-AC? 1 = TEMP24>
		    <FRAME 'GEN-COMP-INST>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH VAR15>
		    <CALL 'VAR-VALUE-ADDRESS 1 = STACK>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH VAR26>
		    <CALL 'VAR-VALUE-ADDRESS 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'GEN-COMP-INST 3>
		    <VEQUAL? DIR7 '- - PHRASE42>
		    <FRAME 'GEN-BRANCH>
		    <PUSH 18>
		    <PUSH LABEL8>
		    <PUSH %<>>
		    <PUSH %<>>
		    <PUSH %<>>
		    <PUSH 'T>
		    <CALL 'GEN-BRANCH 6>
		    <JUMP + PHRASE44>
PHRASE42
		    <FRAME 'GEN-BRANCH>
		    <PUSH 18>
		    <PUSH ELABEL9>
		    <PUSH %<>>
		    <PUSH %<>>
		    <PUSH %<>>
		    <PUSH 'T>
		    <CALL 'GEN-BRANCH 6>
PHRASE44
		    <GVAL 'GC-MODE = TEMP26>
		    <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE47>
		    <DEAD TEMP26>
		    <TYPE? DCL10 <TYPE-CODE FALSE> + BOOL49>
		    <TYPE? DCL112 <TYPE-CODE FALSE> - PHRASE47>
BOOL49
		    <FRAME 'EMIT>
		    <PUSH 173>
		    <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE52>
		    <FRAME 'TYPE-CODE>
		    <PUSH DCL10>
		    <DEAD DCL10>
		    <CALL 'TYPE-CODE 1 = TEMP26>
		    <JUMP + PHRASE54>
PHRASE52
		    <FRAME 'VAR-TYPE-ADDRESS>
		    <PUSH VAR26>
		    <DEAD VAR26>
		    <CALL 'VAR-TYPE-ADDRESS 1 = TEMP26>
PHRASE54
		    <PUSH TEMP26>
		    <DEAD TEMP26>
		    <TYPE? DCL112 <TYPE-CODE FALSE> + PHRASE57>
		    <FRAME 'TYPE-CODE>
		    <PUSH DCL112>
		    <DEAD DCL112>
		    <CALL 'TYPE-CODE 1 = TEMP26>
		    <JUMP + PHRASE59>
PHRASE57
		    <FRAME 'VAR-TYPE-ADDRESS>
		    <PUSH VAR15>
		    <DEAD VAR15>
		    <CALL 'VAR-TYPE-ADDRESS 1 = TEMP26>
PHRASE59
		    <PUSH TEMP26>
		    <DEAD TEMP26>
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-TYPE>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = TAC13>
		    <NTHUV TAC13 2 = TEMP26 (TYPE FIX)>
		    <OR TEMP26 80 = TEMP26>
		    <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
		    <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP26>
		    <CALL 'EMIT 4>
		    <FRAME 'EMIT>
		    <PUSH 170>
		    <GVAL 'AC-PC = TEMP26>
		    <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
		    <OR TEMP26 128 = TEMP26>
		    <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
		    <SET DCL10 32800 (TYPE FIX)>
		    <AND DCL10 255 = TEMP24>
		    <LSH TEMP24 16 = TEMP24 (TYPE FIX)>
		    <AND DCL10 65280 = DCL112>
		    <DEAD DCL10>
		    <OR TEMP24 DCL112 = TEMP24>
		    <DEAD DCL112>
		    <AND TEMP24 16776960 = TEMP24>
		    <OR TEMP26 TEMP24 = TEMP26>
		    <DEAD TEMP24>
		    <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP26>
		    <NTHUV TAC13 2 = DCL112 (TYPE FIX)>
		    <DEAD TAC13>
		    <OR DCL112 80 = DCL112>
		    <LSH DCL112 24 = DCL112 (TYPE FIX)>
		    <CHTYPE DCL112 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD DCL112>
		    <CALL 'EMIT 3>
		    <JUMP + PHRASE69>
PHRASE47
		    <TYPE? DCL10 <TYPE-CODE FALSE> + BOOL70>
		    <TYPE? DCL112 <TYPE-CODE FALSE> - PHRASE69>
BOOL70
		    <FRAME 'GEN-COMP-INST>
		    <TYPE? DCL112 <TYPE-CODE FALSE> + PHRASE73>
		    <FRAME 'TYPE-CODE>
		    <PUSH DCL112>
		    <DEAD DCL112>
		    <CALL 'TYPE-CODE 1 = DCL112>
		    <JUMP + PHRASE75>
PHRASE73
		    <FRAME 'VAR-TYPE-ADDRESS>
		    <PUSH VAR15>
		    <DEAD VAR15>
		    <CALL 'VAR-TYPE-ADDRESS 1 = DCL112>
PHRASE75
		    <PUSH DCL112>
		    <DEAD DCL112>
		    <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE78>
		    <FRAME 'TYPE-CODE>
		    <PUSH DCL10>
		    <DEAD DCL10>
		    <CALL 'TYPE-CODE 1 = DCL112>
		    <JUMP + PHRASE80>
PHRASE78
		    <FRAME 'VAR-TYPE-ADDRESS>
		    <PUSH VAR26>
		    <DEAD VAR26>
		    <CALL 'VAR-TYPE-ADDRESS 1 = DCL112>
PHRASE80
		    <PUSH DCL112>
		    <DEAD DCL112>
		    <PUSH 'WORD>
		    <CALL 'GEN-COMP-INST 3>
PHRASE69
		    <VEQUAL? DIR7 '- - PHRASE83>
		    <DEAD DIR7>
		    <FRAME 'GEN-BRANCH>
		    <PUSH 18>
		    <PUSH LABEL8>
		    <DEAD LABEL8>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <JUMP + COND82>
PHRASE83
		    <FRAME 'GEN-BRANCH>
		    <PUSH 19>
		    <PUSH LABEL8>
		    <DEAD LABEL8>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
COND82
		    <FRAME 'GEN-LABEL>
		    <PUSH ELABEL9>
		    <DEAD ELABEL9>
		    <PUSH 'NORMAL>
		    <CALL 'GEN-LABEL 2>
		    <RETURN 'T>
		    <END VAR-EQUAL-GEN>


#WORD *5476044507*
<GFCN FRIENDLY-VAR? ("VALUE" <OR ATOM FALSE> VARTBL <OR AC FALSE> <OR AC FALSE>) VAR5 TAC6 VAC7>
		    <TEMP TEMP9>
		    <INTGO>
		    <TYPE? VAC7 <TYPE-CODE FALSE> - TAG11>
		    <TYPE? TAC6 <TYPE-CODE FALSE> - TAG11>
		    <RETURN 'T>
TAG11
		    <TYPE? TAC6 <TYPE-CODE FALSE> + PHRASE12>
		    <TYPE? VAC7 <TYPE-CODE FALSE> + PHRASE12>
		    <FRAME 'NEXT-AC>
		    <PUSH TAC6>
		    <CALL 'NEXT-AC 1 = TEMP9>
		    <EQUAL? VAC7 TEMP9 - PHRASE12>
		    <DEAD TEMP9>
		    <RETURN 'AC>
PHRASE12
		    <TYPE? TAC6 <TYPE-CODE FALSE> - PHRASE16>
		    <FRAME 'AC-VAR-STORED?>
		    <PUSH VAR5>
		    <PUSH VAC7>
		    <CALL 'AC-VAR-STORED? 2 = TEMP9>
		    <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE16>
		    <DEAD TEMP9>
		    <RETURN 'T>
PHRASE16
		    <TYPE? VAC7 <TYPE-CODE FALSE> + TAG21>
		    <DEAD VAC7>
		    <RETURN %<>>
TAG21
		    <FRAME 'AC-VAR-STORED?>
		    <PUSH VAR5>
		    <DEAD VAR5>
		    <PUSH TAC6>
		    <DEAD TAC6>
		    <CALL 'AC-VAR-STORED? 2 = TEMP9>
		    <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE19>
		    <SET TEMP9 'T (TYPE ATOM)>
PHRASE19
		    <RETURN TEMP9>
		    <DEAD TEMP9>
		    <END FRIENDLY-VAR?>
#WORD *31335372067*
<GFCN COMP-GEN ("VALUE" ATOM ANY ANY ATOM ATOM FIX "OPTIONAL" <OR FALSE ATOM>) VAL18 VAL29 DIR10 LABEL11 MODE12 TYP13>
		    <OPT-DISPATCH 5 %<> OPT6 OPT7>
OPT6
		    <PUSH 'FIX>
OPT7
		    <TEMP BRANCH-CODE14>
		    <INTGO>
		    <FRAME 'COMPUTE-DIRECTION>
		    <PUSH DIR10>
		    <DEAD DIR10>
		    <PUSH MODE12>
		    <DEAD MODE12>
		    <CALL 'COMPUTE-DIRECTION 2 = BRANCH-CODE14>
		    <TYPE? VAL18 <TYPE-CODE VARTBL> + PHRASE17>
		    <FRAME 'CONST-COMP-GEN>
		    <PUSH VAL18>
		    <DEAD VAL18>
		    <PUSH VAL29>
		    <DEAD VAL29>
		    <PUSH LABEL11>
		    <DEAD LABEL11>
		    <FRAME 'REVERSE-BC>
		    <PUSH BRANCH-CODE14>
		    <DEAD BRANCH-CODE14>
		    <CALL 'REVERSE-BC 1 = STACK>
		    <PUSH TYP13>
		    <DEAD TYP13>
		    <CALL 'CONST-COMP-GEN 5>
		    <JUMP + COND16>
PHRASE17
		    <TYPE? VAL29 <TYPE-CODE VARTBL> + PHRASE20>
		    <FRAME 'CONST-COMP-GEN>
		    <PUSH VAL29>
		    <DEAD VAL29>
		    <PUSH VAL18>
		    <DEAD VAL18>
		    <PUSH LABEL11>
		    <DEAD LABEL11>
		    <PUSH BRANCH-CODE14>
		    <DEAD BRANCH-CODE14>
		    <PUSH TYP13>
		    <DEAD TYP13>
		    <CALL 'CONST-COMP-GEN 5>
		    <JUMP + COND16>
PHRASE20
		    <FRAME 'VAR-COMP-GEN>
		    <PUSH VAL18>
		    <DEAD VAL18>
		    <PUSH VAL29>
		    <DEAD VAL29>
		    <PUSH LABEL11>
		    <DEAD LABEL11>
		    <PUSH BRANCH-CODE14>
		    <DEAD BRANCH-CODE14>
		    <PUSH TYP13>
		    <DEAD TYP13>
		    <CALL 'VAR-COMP-GEN 5>
COND16
		    <FRAME 'CLEAR-STATUS>
		    <CALL 'CLEAR-STATUS 0>
		    <RETURN 'NORMAL>
		    <END COMP-GEN>


#WORD *17747243327*
<GFCN CONST-COMP-GEN ("VALUE" ANY ANY VARTBL ATOM FIX "OPTIONAL" <OR FALSE ATOM>) CONST8 VAR9 LABEL10 DIRCODE11 TYP12>
		    <OPT-DISPATCH 4 %<> OPT6 OPT7>
OPT6
		    <PUSH 'FIX>
OPT7
		    <TEMP FIXCONST13 VAC14>
		    <INTGO>
		    <FRAME 'FIX-CONSTANT?>
		    <PUSH CONST8>
		    <CALL 'FIX-CONSTANT? 1 = FIXCONST13>
		    <TYPE? FIXCONST13 <TYPE-CODE FALSE> + PHRASE17>
		    <VEQUAL? FIXCONST13 0 - PHRASE20 (TYPE FIX)>
		    <FRAME 'ZERO-TEST-GEN>
		    <PUSH VAR9>
		    <DEAD VAR9>
		    <PUSH DIRCODE11>
		    <DEAD DIRCODE11>
		    <PUSH LABEL10>
		    <DEAD LABEL10>
		    <PUSH TYP12>
		    <DEAD TYP12>
		    <CALL 'ZERO-TEST-GEN 4 = FIXCONST13>
		    <RETURN FIXCONST13>
		    <DEAD FIXCONST13>
PHRASE20
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH VAR9>
		    <CALL 'VAR-VALUE-IN-AC? 1 = VAC14>
		    <TYPE? VAC14 <TYPE-CODE FALSE> + PHRASE25>
		    <FRAME 'GEN-COMP-INST>
		    <NTHUV VAC14 2 = VAC14 (TYPE FIX)>
		    <OR VAC14 80 = VAC14>
		    <LSH VAC14 24 = VAC14 (TYPE FIX)>
		    <CHTYPE VAC14 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD VAC14>
		    <TYPE? CONST8 <TYPE-CODE FLOAT> - PHRASE30>
		    <FRAME 'FLOAT-IMM>
		    <FRAME 'FLOATCONVERT>
		    <PUSH CONST8>
		    <DEAD CONST8>
		    <CALL 'FLOATCONVERT 1 = STACK>
		    <CALL 'FLOAT-IMM 1 = VAC14>
		    <JUMP + PHRASE33>
PHRASE30
		    <FRAME 'MA-IMM>
		    <PUSH FIXCONST13>
		    <DEAD FIXCONST13>
		    <CALL 'MA-IMM 1 = VAC14>
PHRASE33
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <PUSH 'LONG>
		    <PUSH TYP12>
		    <DEAD TYP12>
		    <CALL 'GEN-COMP-INST 4>
		    <FRAME 'GEN-TEST-INST>
		    <PUSH DIRCODE11>
		    <DEAD DIRCODE11>
		    <PUSH LABEL10>
		    <DEAD LABEL10>
		    <PUSH %<>>
		    <CALL 'GEN-TEST-INST 3 = FIXCONST13>
		    <RETURN FIXCONST13>
		    <DEAD FIXCONST13>
PHRASE25
		    <FRAME 'GEN-COMP-INST>
		    <FRAME 'ADDR-VAR-VALUE>
		    <PUSH VAR9>
		    <DEAD VAR9>
		    <CALL 'ADDR-VAR-VALUE 1 = STACK>
		    <TYPE? CONST8 <TYPE-CODE FLOAT> - PHRASE40>
		    <FRAME 'FLOAT-IMM>
		    <FRAME 'FLOATCONVERT>
		    <PUSH CONST8>
		    <DEAD CONST8>
		    <CALL 'FLOATCONVERT 1 = STACK>
		    <CALL 'FLOAT-IMM 1 = VAC14>
		    <JUMP + PHRASE43>
PHRASE40
		    <FRAME 'MA-IMM>
		    <PUSH FIXCONST13>
		    <DEAD FIXCONST13>
		    <CALL 'MA-IMM 1 = VAC14>
PHRASE43
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <PUSH 'LONG>
		    <PUSH TYP12>
		    <DEAD TYP12>
		    <CALL 'GEN-COMP-INST 4>
		    <FRAME 'GEN-TEST-INST>
		    <PUSH DIRCODE11>
		    <DEAD DIRCODE11>
		    <PUSH LABEL10>
		    <DEAD LABEL10>
		    <PUSH %<>>
		    <CALL 'GEN-TEST-INST 3 = FIXCONST13>
		    <RETURN FIXCONST13>
		    <DEAD FIXCONST13>
PHRASE17
		    <FRAME 'GEN-COMP-INST>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH VAR9>
		    <DEAD VAR9>
		    <CALL 'VAR-VALUE-ADDRESS 1 = STACK>
		    <FRAME 'ADDR-VALUE-MQUOTE>
		    <PUSH CONST8>
		    <DEAD CONST8>
		    <CALL 'ADDR-VALUE-MQUOTE 1 = STACK>
		    <PUSH 'LONG>
		    <PUSH TYP12>
		    <DEAD TYP12>
		    <CALL 'GEN-COMP-INST 4>
		    <FRAME 'GEN-TEST-INST>
		    <PUSH DIRCODE11>
		    <DEAD DIRCODE11>
		    <PUSH LABEL10>
		    <DEAD LABEL10>
		    <PUSH %<>>
		    <CALL 'GEN-TEST-INST 3 = FIXCONST13>
		    <RETURN FIXCONST13>
		    <DEAD FIXCONST13>
		    <END CONST-COMP-GEN>
<SETG COMP-TABLE <UVECTOR ,COND-CODE-LT ,COND-CODE-EQ ,COND-CODE-GT>>

<SETG NCOMP-TABLE <UVECTOR ,COND-CODE-GE ,COND-CODE-NE ,COND-CODE-LE>>

<COND (<NOT <GASSIGNED? REVERSE-TABLE>> <SETG REVERSE-TABLE <IUVECTOR 15 0>>)>

#WORD *6102761341*
<GFCN MAKE-REVERSE ("VALUE" <UVECTOR FIX> ANY ANY) CODE5 REV-CODE6>
		    <TEMP TEMP8:UVECTOR>
		    <INTGO>
		    <FRAME 'PUT>
		    <GVAL 'REVERSE-TABLE = STACK>
		    <PUSH CODE5>
		    <DEAD CODE5>
		    <PUSH REV-CODE6>
		    <DEAD REV-CODE6>
		    <CALL 'PUT 3 = TEMP8>
		    <RETURN TEMP8>
		    <DEAD TEMP8>
		    <END MAKE-REVERSE>
<COND (<NOT <GASSIGNED? BRANCHES>> <SETG BRANCHES <IUVECTOR 16 0>>)>

<GDECL (BRANCHES) <UVECTOR [REST FIX]>>

#WORD *23212117553*
<GFCN INIT-BRANCH-TABLES ("VALUE" <OR FALSE <UVECTOR [REST FIX]>>)>
		    <TEMP B5:UVECTOR TEMP21 TEMP23:LIST TEMP24>
		    <INTGO>
		    <GVAL 'BRANCHES = B5>
		    <FRAME 'MAKE-REVERSE>
		    <PUSH 7>
		    <PUSH 7>
		    <CALL 'MAKE-REVERSE 2>
		    <FRAME 'MAKE-REVERSE>
		    <PUSH 6>
		    <PUSH 6>
		    <CALL 'MAKE-REVERSE 2>
		    <FRAME 'MAKE-REVERSE>
		    <PUSH 15>
		    <PUSH 12>
		    <CALL 'MAKE-REVERSE 2>
		    <FRAME 'MAKE-REVERSE>
		    <PUSH 13>
		    <PUSH 14>
		    <CALL 'MAKE-REVERSE 2>
		    <FRAME 'MAKE-REVERSE>
		    <PUSH 12>
		    <PUSH 15>
		    <CALL 'MAKE-REVERSE 2>
		    <FRAME 'MAKE-REVERSE>
		    <PUSH 14>
		    <PUSH 13>
		    <CALL 'MAKE-REVERSE 2>
		    <SET TEMP21 %<> (TYPE FALSE)>
		    <CONS 17 () = TEMP23>
		    <CONS 0 TEMP23 = TEMP23>
		    <CONS TEMP23 () = TEMP23>
		    <CONS 24 () = TEMP24>
		    <CONS 12 TEMP24 = TEMP24>
		    <CONS TEMP24 TEMP23 = TEMP23>
		    <DEAD TEMP24>
		    <CONS 20 () = TEMP24>
		    <CONS 14 TEMP24 = TEMP24>
		    <CONS TEMP24 TEMP23 = TEMP23>
		    <DEAD TEMP24>
		    <CONS 25 () = TEMP24>
		    <CONS 13 TEMP24 = TEMP24>
		    <CONS TEMP24 TEMP23 = TEMP23>
		    <DEAD TEMP24>
		    <CONS 21 () = TEMP24>
		    <CONS 15 TEMP24 = TEMP24>
		    <CONS TEMP24 TEMP23 = TEMP23>
		    <DEAD TEMP24>
		    <CONS 18 () = TEMP24>
		    <CONS 6 TEMP24 = TEMP24>
		    <CONS TEMP24 TEMP23 = TEMP23>
		    <DEAD TEMP24>
		    <CONS 19 () = TEMP24>
		    <CONS 7 TEMP24 = TEMP24>
		    <CONS TEMP24 TEMP23 = TEMP23>
		    <DEAD TEMP24>
		    <LOOP>
MAP13
		    <INTGO>
		    <EMPL? TEMP23 + MAPAP16>
		    <NTHL TEMP23 1 = TEMP21>
		    <NTHL TEMP21 1 = TEMP24 (TYPE FIX)>
		    <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
		    <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
		    <NTHL TEMP21 1 = TEMP21 (TYPE FIX)>
		    <PUTUU B5 TEMP24 TEMP21>
		    <DEAD TEMP24 TEMP21>
		    <SET TEMP21 B5>
		    <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
		    <JUMP + MAP13>
MAPAP16
		    <RETURN TEMP21>
		    <DEAD TEMP21>
		    <END INIT-BRANCH-TABLES>
#WORD *30716076222*
<GFCN COMPUTE-DIRECTION ("VALUE" ANY ATOM FIX) DIR5 MODE6>
		    <TEMP TEMP9>
		    <INTGO>
		    <VEQUAL? DIR5 '+ - PHRASE8>
		    <GVAL 'COMP-TABLE = TEMP9>
		    <NTHUU TEMP9 MODE6 = TEMP9 (TYPE FIX)>
		    <DEAD MODE6>
		    <RETURN TEMP9>
		    <DEAD TEMP9>
PHRASE8
		    <VEQUAL? DIR5 '- - PHRASE10>
		    <GVAL 'NCOMP-TABLE = TEMP9>
		    <NTHUU TEMP9 MODE6 = TEMP9 (TYPE FIX)>
		    <DEAD MODE6>
		    <RETURN TEMP9>
		    <DEAD TEMP9>
PHRASE10
		    <FRAME 'ERROR>
		    <PUSH "BAD DIRECTION">
		    <PUSH DIR5>
		    <DEAD DIR5>
		    <PUSH 'COMPUTE-DIRECTION>
		    <CALL 'ERROR 3 = TEMP9>
		    <RETURN TEMP9>
		    <DEAD TEMP9>
		    <END COMPUTE-DIRECTION>
#WORD *20165503404*
<GFCN REVERSE-BC ("VALUE" FIX FIX) MODE5>
		    <TEMP TEMP6>
		    <INTGO>
		    <GVAL 'REVERSE-TABLE = TEMP6>
		    <NTHUU TEMP6 MODE5 = TEMP6 (TYPE FIX)>
		    <DEAD MODE5>
		    <RETURN TEMP6>
		    <DEAD TEMP6>
		    <END REVERSE-BC>
#WORD *7725222054*
<GFCN ZERO-TEST-GEN ("VALUE" ANY VARTBL FIX ATOM "OPTIONAL" <OR ATOM FALSE>) VAR8 DIRCODE9 LABEL10 TYP11>
		    <OPT-DISPATCH 3 %<> OPT6 OPT7>
OPT6
		    <PUSH 'FIX>
OPT7
		    <TEMP VADDR13 STATUS?12 TEMP31 TEMP40>
		    <INTGO>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH VAR8>
		    <CALL 'VAR-VALUE-ADDRESS 1 = VADDR13>
		    <TYPE? TYP11 <TYPE-CODE FALSE> - PHRASE20>
		    <FRAME 'VARTBL-DECL>
		    <PUSH VAR8>
		    <CALL 'VARTBL-DECL 1 = TYP11>
PHRASE20
		    <FRAME 'STATUS?>
		    <PUSH VAR8>
		    <PUSH 'VALUE>
		    <CALL 'STATUS? 2 = STATUS?12>
		    <TYPE? STATUS?12 <TYPE-CODE FALSE> + BOOL24>
		    <TYPE? TYP11 <TYPE-CODE FALSE> - PHRASE23>
BOOL24
		    <TYPE? TYP11 <TYPE-CODE FALSE> + PHRASE27>
		    <FRAME 'EMIT>
		    <VEQUAL? TYP11 'FIX - PHRASE30>
		    <DEAD TYP11>
		    <SET TEMP31 213 (TYPE FIX)>
		    <JUMP + PHRASE32>
PHRASE30
		    <SET TEMP31 83 (TYPE FIX)>
PHRASE32
		    <PUSH TEMP31>
		    <DEAD TEMP31>
		    <PUSH VADDR13>
		    <DEAD VADDR13>
		    <CALL 'EMIT 2>
		    <FRAME 'GEN-TEST-INST>
		    <PUSH DIRCODE9>
		    <DEAD DIRCODE9>
		    <PUSH LABEL10>
		    <DEAD LABEL10>
		    <PUSH STATUS?12>
		    <DEAD STATUS?12>
		    <CALL 'GEN-TEST-INST 3 = TEMP31>
		    <RETURN TEMP31>
		    <DEAD TEMP31>
PHRASE27
		    <FRAME 'VAR-TYPE-IN-AC?>
		    <PUSH VAR8>
		    <CALL 'VAR-TYPE-IN-AC? 1 = TEMP31>
		    <TYPE? TEMP31 <TYPE-CODE FALSE> - BOOL37>
		    <FRAME 'VAR-TYPE-WORD-IN-AC?>
		    <PUSH VAR8>
		    <CALL 'VAR-TYPE-WORD-IN-AC? 1 = TEMP31>
		    <TYPE? TEMP31 <TYPE-CODE FALSE> - BOOL37>
		    <GVAL 'GC-MODE = TEMP40>
		    <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE36>
		    <DEAD TEMP40>
BOOL37
		    <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE42>
		    <FRAME 'LOAD-VAR>
		    <PUSH VAR8>
		    <DEAD VAR8>
		    <PUSH 'TYPE>
		    <PUSH %<>>
		    <PUSH 'TYPE>
		    <CALL 'LOAD-VAR 4 = TEMP31>
PHRASE42
		    <FRAME 'GEN-COMP-INST>
		    <NTHUV TEMP31 2 = TEMP40 (TYPE FIX)>
		    <DEAD TEMP31>
		    <OR TEMP40 80 = TEMP40>
		    <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
		    <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP40>
		    <FRAME 'TYPE-CODE>
		    <PUSH 'FIX>
		    <PUSH 'FIX>
		    <CALL 'TYPE-CODE 2 = STACK>
		    <PUSH 'WORD>
		    <CALL 'GEN-COMP-INST 3>
		    <JUMP + PHRASE46>
PHRASE36
		    <FRAME 'EMIT>
		    <PUSH 177>
		    <FRAME 'VAR-TYPE-ADDRESS>
		    <PUSH VAR8>
		    <DEAD VAR8>
		    <CALL 'VAR-TYPE-ADDRESS 1 = STACK>
		    <FRAME 'TYPE-CODE>
		    <PUSH 'FIX>
		    <PUSH 'FIX>
		    <CALL 'TYPE-CODE 2 = STACK>
		    <CALL 'EMIT 3>
		    <FRAME 'CLEAR-STATUS>
		    <CALL 'CLEAR-STATUS 0>
PHRASE46
		    <FRAME 'GEN-BRANCH>
		    <PUSH 19>
		    <FRAME 'MAKE-LABEL>
		    <PUSH 'T>
		    <CALL 'MAKE-LABEL 1 = TEMP31>
		    <PUSH TEMP31>
		    <PUSH %<>>
		    <PUSH %<>>
		    <PUSH %<>>
		    <PUSH 'T>
		    <CALL 'GEN-BRANCH 6>
		    <FRAME 'EMIT>
		    <PUSH 83>
		    <PUSH VADDR13>
		    <CALL 'EMIT 2>
		    <FRAME 'GEN-TEST-INST>
		    <PUSH DIRCODE9>
		    <PUSH LABEL10>
		    <PUSH STATUS?12>
		    <CALL 'GEN-TEST-INST 3>
		    <FRAME 'GEN-BRANCH>
		    <PUSH 17>
		    <FRAME 'MAKE-LABEL>
		    <PUSH 'T>
		    <CALL 'MAKE-LABEL 1 = TEMP40>
		    <PUSH TEMP40>
		    <PUSH %<>>
		    <PUSH %<>>
		    <PUSH %<>>
		    <PUSH 'T>
		    <CALL 'GEN-BRANCH 6>
		    <FRAME 'GEN-LABEL>
		    <PUSH TEMP31>
		    <DEAD TEMP31>
		    <PUSH 'NORMAL>
		    <CALL 'GEN-LABEL 2>
		    <FRAME 'EMIT>
		    <PUSH 213>
		    <PUSH VADDR13>
		    <DEAD VADDR13>
		    <CALL 'EMIT 2>
		    <FRAME 'GEN-TEST-INST>
		    <PUSH DIRCODE9>
		    <DEAD DIRCODE9>
		    <PUSH LABEL10>
		    <DEAD LABEL10>
		    <PUSH STATUS?12>
		    <DEAD STATUS?12>
		    <CALL 'GEN-TEST-INST 3>
		    <FRAME 'GEN-LABEL>
		    <PUSH TEMP40>
		    <DEAD TEMP40>
		    <PUSH 'NORMAL>
		    <CALL 'GEN-LABEL 2 = TEMP31>
		    <RETURN TEMP31>
		    <DEAD TEMP31>
PHRASE23
		    <FRAME 'GEN-TEST-INST>
		    <PUSH DIRCODE9>
		    <DEAD DIRCODE9>
		    <PUSH LABEL10>
		    <DEAD LABEL10>
		    <PUSH STATUS?12>
		    <DEAD STATUS?12>
		    <CALL 'GEN-TEST-INST 3 = TEMP31>
		    <RETURN TEMP31>
		    <DEAD TEMP31>
		    <END ZERO-TEST-GEN>
#WORD *23772161172*
<GFCN GEN-TEST-INST ("VALUE" ANY FIX ATOM ANY) DIRCODE5 LABEL6 STATUS?7>
		    <TEMP TEMP9:UVECTOR TEMP10>
		    <INTGO>
		    <FRAME 'GEN-BRANCH>
		    <GVAL 'BRANCHES = TEMP9>
		    <ADD DIRCODE5 1 = TEMP10 (TYPE FIX)>
		    <DEAD DIRCODE5>
		    <NTHUU TEMP9 TEMP10 = STACK (TYPE FIX)>
		    <DEAD TEMP9 TEMP10>
		    <PUSH LABEL6>
		    <DEAD LABEL6>
		    <PUSH STATUS?7>
		    <DEAD STATUS?7>
		    <CALL 'GEN-BRANCH 3 = TEMP10>
		    <RETURN TEMP10>
		    <DEAD TEMP10>
		    <END GEN-TEST-INST>
#WORD *32611100457*
<GFCN GEN-COMP-INST ("VALUE" ANY ANY ANY "OPTIONAL" ATOM ANY) VAR10 ADDR11 SZ12 TYP13>
		    <OPT-DISPATCH 2 %<> OPT7 OPT8 OPT9>
OPT7
		    <PUSH 'LONG>
OPT8
		    <PUSH 'FIX>
OPT9
		    <TEMP TEMP20>
		    <INTGO>
		    <FRAME 'EMIT>
		    <VEQUAL? SZ12 'LONG - PHRASE17>
		    <EQUAL? TYP13 'FIX - PHRASE19>
		    <DEAD TYP13>
		    <SET TEMP20 209 (TYPE FIX)>
		    <JUMP + PHRASE24>
PHRASE19
		    <SET TEMP20 81 (TYPE FIX)>
		    <JUMP + PHRASE24>
PHRASE17
		    <VEQUAL? SZ12 'WORD - PHRASE22>
		    <SET TEMP20 177 (TYPE FIX)>
		    <JUMP + PHRASE24>
PHRASE22
		    <VEQUAL? SZ12 'BYTE - PHRASE23>
		    <SET TEMP20 145 (TYPE FIX)>
		    <JUMP + PHRASE24>
PHRASE23
		    <FRAME 'ERROR>
		    <PUSH "BAD SIZE">
		    <PUSH SZ12>
		    <DEAD SZ12>
		    <CALL 'ERROR 2 = TEMP20>
PHRASE24
		    <PUSH TEMP20>
		    <DEAD TEMP20>
		    <PUSH VAR10>
		    <DEAD VAR10>
		    <PUSH ADDR11>
		    <DEAD ADDR11>
		    <CALL 'EMIT 3 = TEMP20>
		    <RETURN TEMP20>
		    <DEAD TEMP20>
		    <END GEN-COMP-INST>
#WORD *2005033174*
<GFCN VAR-COMP-GEN ("VALUE" ANY VARTBL VARTBL ATOM FIX "OPTIONAL" ANY) VAR18 VAR29 LABEL10 DIR11 TYP12>
		    <OPT-DISPATCH 4 %<> OPT6 OPT7>
OPT6
		    <PUSH 'FIX>
OPT7
		    <TEMP VAC13>
		    <INTGO>
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH VAR18>
		    <CALL 'VAR-VALUE-IN-AC? 1 = VAC13>
		    <TYPE? VAC13 <TYPE-CODE FALSE> + PHRASE15>
		    <FRAME 'VAR-AC-COMP>
		    <PUSH VAR29>
		    <DEAD VAR29>
		    <PUSH VAC13>
		    <DEAD VAC13>
		    <PUSH LABEL10>
		    <DEAD LABEL10>
		    <PUSH DIR11>
		    <DEAD DIR11>
		    <PUSH TYP12>
		    <DEAD TYP12>
		    <CALL 'VAR-AC-COMP 5 = VAC13>
		    <RETURN VAC13>
		    <DEAD VAC13>
PHRASE15
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH VAR29>
		    <CALL 'VAR-VALUE-IN-AC? 1 = VAC13>
		    <TYPE? VAC13 <TYPE-CODE FALSE> + PHRASE19>
		    <FRAME 'VAR-AC-COMP>
		    <PUSH VAR18>
		    <DEAD VAR18>
		    <PUSH VAC13>
		    <DEAD VAC13>
		    <PUSH LABEL10>
		    <DEAD LABEL10>
		    <FRAME 'REVERSE-BC>
		    <PUSH DIR11>
		    <DEAD DIR11>
		    <CALL 'REVERSE-BC 1 = STACK>
		    <PUSH TYP12>
		    <DEAD TYP12>
		    <CALL 'VAR-AC-COMP 5 = VAC13>
		    <RETURN VAC13>
		    <DEAD VAC13>
PHRASE19
		    <FRAME 'EMIT>
		    <EQUAL? TYP12 'FIX - PHRASE26>
		    <DEAD TYP12>
		    <SET VAC13 209 (TYPE FIX)>
		    <JUMP + PHRASE28>
PHRASE26
		    <SET VAC13 81 (TYPE FIX)>
PHRASE28
		    <PUSH VAC13>
		    <DEAD VAC13>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH VAR18>
		    <DEAD VAR18>
		    <CALL 'VAR-VALUE-ADDRESS 1 = STACK>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH VAR29>
		    <DEAD VAR29>
		    <CALL 'VAR-VALUE-ADDRESS 1 = STACK>
		    <CALL 'EMIT 3>
		    <FRAME 'GEN-TEST-INST>
		    <PUSH DIR11>
		    <DEAD DIR11>
		    <PUSH LABEL10>
		    <DEAD LABEL10>
		    <PUSH %<>>
		    <CALL 'GEN-TEST-INST 3 = VAC13>
		    <RETURN VAC13>
		    <DEAD VAC13>
		    <END VAR-COMP-GEN>


#WORD *30525317470*
<GFCN VAR-AC-COMP ("VALUE" ANY VARTBL AC ATOM FIX "OPTIONAL" ANY) VAR8 AC9 LABEL10 DIR11 TYP12>
		    <OPT-DISPATCH 4 %<> OPT6 OPT7>
OPT6
		    <PUSH 'FIX>
OPT7
		    <TEMP VADDR13 TEMP16>
		    <INTGO>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH VAR8>
		    <DEAD VAR8>
		    <CALL 'VAR-VALUE-ADDRESS 1 = VADDR13>
		    <FRAME 'GEN-COMP-INST>
		    <NTHUV AC9 2 = TEMP16 (TYPE FIX)>
		    <DEAD AC9>
		    <OR TEMP16 80 = TEMP16>
		    <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
		    <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP16>
		    <PUSH VADDR13>
		    <DEAD VADDR13>
		    <PUSH 'LONG>
		    <PUSH TYP12>
		    <DEAD TYP12>
		    <CALL 'GEN-COMP-INST 4>
		    <FRAME 'GEN-TEST-INST>
		    <PUSH DIR11>
		    <DEAD DIR11>
		    <PUSH LABEL10>
		    <DEAD LABEL10>
		    <PUSH %<>>
		    <CALL 'GEN-TEST-INST 3 = TEMP16>
		    <RETURN TEMP16>
		    <DEAD TEMP16>
		    <END VAR-AC-COMP>
<MSETG 32MIN 2147483647>

<MSETG 32MAX <CHTYPE #WORD *20000000001* FIX>>

#WORD *35615312412*
<GFCN FIX-CONSTANT? ("VALUE" <OR FALSE FIX> ANY) CONST5>
		    <TEMP TEMP9>
		    <INTGO>
		    <TYPE? CONST5 <TYPE-CODE FLOAT> - PHRASE7>
		    <FRAME 'FLOATCONVERT>
		    <PUSH CONST5>
		    <DEAD CONST5>
		    <CALL 'FLOATCONVERT 1 = TEMP9>
		    <RETURN TEMP9>
		    <DEAD TEMP9>
PHRASE7
		    <FRAME 'TYPEPRIM>
		    <FRAME 'TYPE>
		    <PUSH CONST5>
		    <CALL 'TYPE 1 = STACK>
		    <CALL 'TYPEPRIM 1 = TEMP9>
		    <EQUAL? TEMP9 'FIX - PHRASE10>
		    <DEAD TEMP9>
		    <CHTYPE CONST5 <TYPE-CODE FIX> = CONST5>
		    <VEQUAL? CONST5 %<CHTYPE <MIN> FIX> - PHRASE15 (TYPE FIX)>
		    <RETURN %<CHTYPE <MIN> FIX>>
PHRASE15
		    <VEQUAL? CONST5 %<CHTYPE <MAX> FIX> - PHRASE16 (TYPE FIX)>
		    <RETURN %<CHTYPE <MAX> FIX>>
PHRASE16
		    <RETURN CONST5>
		    <DEAD CONST5>
PHRASE10
		    <FRAME 'TYPEPRIM>
		    <FRAME 'TYPE>
		    <PUSH CONST5>
		    <CALL 'TYPE 1 = STACK>
		    <CALL 'TYPEPRIM 1 = TEMP9>
		    <EQUAL? TEMP9 'LIST + TAG19>
		    <DEAD TEMP9>
		    <RETURN %<>>
TAG19
		    <EMPTY? CONST5 + TAG22>
		    <DEAD CONST5>
		    <RETURN %<>>
TAG22
		    <RETURN 0>
		    <END FIX-CONSTANT?>
#WORD *31125177710*
		    <GFCN FLOATCONVERT ("VALUE" FIX <OR FIX FLOAT>) CNS4>
		    <TEMP TEMP8:FIX TEMP16>
		    <INTGO>
		    <EQUAL? CNS4 0.0 - PHRASE7>
		    <RETURN 0>
PHRASE7
		    <IFSYS "VAX">
		    <CHTYPE CNS4 <TYPE-CODE FIX> = TEMP8>
		    <DEAD CNS4>
		    <ENDIF "VAX">
		    <RETURN TEMP8>
		    <DEAD TEMP8>
		    <END FLOATCONVERT>

#WORD *36727716531*
<GFCN FLOAT-IMM ("VALUE" ANY FIX) X5>
		    <TEMP TEMP9>
		    <INTGO>
		    <AND X5 -17393 = TEMP9>
		    <VEQUAL? TEMP9 0 - PHRASE7 (TYPE FIX)>
		    <DEAD TEMP9>
		    <AND X5 16384 = TEMP9>
		    <VEQUAL? TEMP9 0 + PHRASE7 (TYPE FIX)>
		    <DEAD TEMP9>
		    <FRAME 'MA-IMM>
		    <GETBITS X5 6 4 = STACK>
		    <DEAD X5>
		    <CALL 'MA-IMM 1 = TEMP9>
		    <RETURN TEMP9>
		    <DEAD TEMP9>
PHRASE7
		    <FRAME 'MA-IMM>
		    <PUSH X5>
		    <DEAD X5>
		    <CALL 'MA-IMM 1 = TEMP9>
		    <RETURN TEMP9>
		    <DEAD TEMP9>
		    <END FLOAT-IMM>
#WORD *35102214650*
<GFCN SUBFIX-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
		    <OPT-DISPATCH 3 %<> OPT6 OPT7>
OPT6
		    <PUSH %<>>
OPT7
		    <TEMP TEMP13:ATOM>
		    <INTGO>
		    <FRAME 'ARITH-GEN>
		    <PUSH 194>
		    <PUSH 195>
		    <PUSH OP18>
		    <DEAD OP18>
		    <PUSH OP29>
		    <DEAD OP29>
		    <PUSH DEST10>
		    <DEAD DEST10>
		    <PUSH %<>>
		    <GVAL '- = STACK>
		    <PUSH 'FIX>
		    <CALL 'ARITH-GEN 8 = TEMP13>
		    <RETURN TEMP13>
		    <DEAD TEMP13>
		    <END SUBFIX-GEN>
#WORD *13237175603*
<GFCN TYPE-TST-GEN ("VALUE" ATOM VARTBL <OR ATOM VARTBL> ATOM ANY) VAR5 TNAME6 DIR7 DEST8>
		    <TEMP DCL10 TEMP16 TEMP35 TEMP36>
		    <INTGO>
		    <FRAME 'VARTBL-DECL>
		    <PUSH VAR5>
		    <CALL 'VARTBL-DECL 1 = DCL10>
		    <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE12>
		    <FRAME 'CLEAN-DECL>
		    <PUSH TNAME6>
		    <CALL 'CLEAN-DECL 1 = TEMP16>
		    <EQUAL? TEMP16 'UNBOUND + PHRASE12>
		    <DEAD TEMP16>
		    <EQUAL? TNAME6 'T$UNBOUND + PHRASE12>
		    <FRAME 'SAFE-TYPE-WORD?>
		    <PUSH VAR5>
		    <CALL 'SAFE-TYPE-WORD? 1 = TEMP16>
		    <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE12>
		    <DEAD TEMP16>
		    <FRAME 'ERROR>
		    <PUSH "WARNING: TYPE KNOWN">
		    <NTHUV VAR5 1 = STACK (TYPE ATOM)>
		    <DEAD VAR5>
		    <CALL 'ERROR 2>
		    <EQUAL? TNAME6 DCL10 - PHRASE20>
		    <VEQUAL? DIR7 '+ - PHRASE20>
		    <FRAME 'GEN-BRANCH>
		    <GVAL 'INST-BBR = STACK>
		    <PUSH DEST8>
		    <DEAD DEST8>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <RETURN 'NORMAL>
PHRASE20
		    <EQUAL? TNAME6 DCL10 + COND57>
		    <DEAD TNAME6>
		    <VEQUAL? DIR7 '- - COND57>
		    <DEAD DIR7>
		    <FRAME 'GEN-BRANCH>
		    <GVAL 'INST-BBR = STACK>
		    <PUSH DEST8>
		    <DEAD DEST8>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <RETURN 'NORMAL>
PHRASE12
		    <FRAME 'VAR-TYPE-IN-AC?>
		    <PUSH VAR5>
		    <CALL 'VAR-TYPE-IN-AC? 1 = DCL10>
		    <TYPE? DCL10 <TYPE-CODE FALSE> - BOOL29>
		    <FRAME 'VAR-TYPE-WORD-IN-AC?>
		    <PUSH VAR5>
		    <CALL 'VAR-TYPE-WORD-IN-AC? 1 = DCL10>
		    <TYPE? DCL10 <TYPE-CODE FALSE> - BOOL29>
		    <GVAL 'TYPE-WORDS = TEMP16>
		    <TYPE TNAME6 = TEMP35>
		    <EMPUV? TEMP16 + BOOL29>
		    <LOOP (TNAME6 VALUE) (TEMP35 VALUE) (TEMP16 LENGTH VALUE)>
TAG33
		    <NTHUV TEMP16 1 = TEMP36>
		    <TYPE? TEMP36 TEMP35 - TAG34>
		    <VEQUAL? TEMP36 TNAME6 + TAG32>
		    <DEAD TEMP36>
TAG34
		    <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
		    <EMPUV? TEMP16 - TAG33>
		    <JUMP + BOOL29>
TAG32
		    <GVAL 'GC-MODE = TEMP16>
		    <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE28>
		    <DEAD TEMP16>
BOOL29
		    <TYPE? DCL10 <TYPE-CODE FALSE> - PHRASE38>
		    <FRAME 'LOAD-VAR>
		    <PUSH VAR5>
		    <DEAD VAR5>
		    <PUSH 'TYPE>
		    <PUSH %<>>
		    <PUSH 'TYPE>
		    <CALL 'LOAD-VAR 4 = DCL10>
PHRASE38
		    <TYPE? TNAME6 <TYPE-CODE VARTBL> - PHRASE41>
		    <FRAME 'GEN-COMP-INST>
		    <NTHUV DCL10 2 = TEMP16 (TYPE FIX)>
		    <DEAD DCL10>
		    <OR TEMP16 80 = TEMP16>
		    <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
		    <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP16>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH TNAME6>
		    <DEAD TNAME6>
		    <CALL 'VAR-VALUE-ADDRESS 1 = STACK>
		    <PUSH 'WORD>
		    <CALL 'GEN-COMP-INST 3>
		    <JUMP + PHRASE52>
PHRASE41
		    <FRAME 'GEN-COMP-INST>
		    <NTHUV DCL10 2 = TEMP16 (TYPE FIX)>
		    <DEAD DCL10>
		    <OR TEMP16 80 = TEMP16>
		    <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
		    <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP16>
		    <FRAME 'TYPE-CODE>
		    <PUSH TNAME6>
		    <DEAD TNAME6>
		    <PUSH 'FIX>
		    <CALL 'TYPE-CODE 2 = STACK>
		    <PUSH 'WORD>
		    <CALL 'GEN-COMP-INST 3>
		    <JUMP + PHRASE52>
PHRASE28
		    <EQUAL? TNAME6 'T$UNBOUND + BOOL47>
		    <FRAME 'CLEAN-DECL>
		    <PUSH TNAME6>
		    <CALL 'CLEAN-DECL 1 = TEMP16>
		    <EQUAL? TEMP16 'UNBOUND - PHRASE46>
		    <DEAD TEMP16>
BOOL47
		    <FRAME 'EMIT>
		    <PUSH 181>
		    <FRAME 'VAR-TYPE-ADDRESS>
		    <PUSH VAR5>
		    <DEAD VAR5>
		    <CALL 'VAR-TYPE-ADDRESS 1 = STACK>
		    <CALL 'EMIT 2>
		    <FRAME 'CLEAR-STATUS>
		    <CALL 'CLEAR-STATUS 0>
		    <JUMP + PHRASE52>
PHRASE46
		    <FRAME 'EMIT>
		    <PUSH 177>
		    <FRAME 'VAR-TYPE-ADDRESS>
		    <PUSH VAR5>
		    <DEAD VAR5>
		    <CALL 'VAR-TYPE-ADDRESS 1 = STACK>
		    <FRAME 'TYPE-CODE>
		    <PUSH TNAME6>
		    <DEAD TNAME6>
		    <PUSH 'FIX>
		    <CALL 'TYPE-CODE 2 = STACK>
		    <CALL 'EMIT 3>
		    <FRAME 'CLEAR-STATUS>
		    <CALL 'CLEAR-STATUS 0>
PHRASE52
		    <VEQUAL? DIR7 '+ - PHRASE58>
		    <DEAD DIR7>
		    <FRAME 'GEN-BRANCH>
		    <PUSH 19>
		    <PUSH DEST8>
		    <DEAD DEST8>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <RETURN 'NORMAL>
PHRASE58
		    <FRAME 'GEN-BRANCH>
		    <PUSH 18>
		    <PUSH DEST8>
		    <DEAD DEST8>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
COND57
		    <RETURN 'NORMAL>
		    <END TYPE-TST-GEN>
#WORD *13073406326*
<GFCN MULFIX-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
		    <OPT-DISPATCH 3 %<> OPT6 OPT7>
OPT6
		    <PUSH %<>>
OPT7
		    <TEMP TEMP13:ATOM>
		    <INTGO>
		    <FRAME 'ARITH-GEN>
		    <PUSH 196>
		    <PUSH 197>
		    <PUSH OP18>
		    <DEAD OP18>
		    <PUSH OP29>
		    <DEAD OP29>
		    <PUSH DEST10>
		    <DEAD DEST10>
		    <PUSH 'T>
		    <GVAL '* = STACK>
		    <PUSH 'FIX>
		    <CALL 'ARITH-GEN 8 = TEMP13>
		    <RETURN TEMP13>
		    <DEAD TEMP13>
		    <END MULFIX-GEN>
#WORD *11625250372*
<GFCN PWR2? ("VALUE" <OR FALSE FIX> FIX) X5>
		    <TEMP Y13 CNT14:FIX>
		    <INTGO>
		    <LESS? X5 0 - PHRASE7 (TYPE FIX)>
		    <SUB 0 X5 = X5 (TYPE FIX)>
PHRASE7
		    <SET Y13 2 (TYPE FIX)>
		    <SET CNT14 1 (TYPE FIX)>
		    <LOOP>
AGAIN15
		    <INTGO>
		    <VEQUAL? Y13 X5 - PHRASE17 (TYPE FIX)>
		    <RETURN CNT14>
		    <DEAD CNT14>
PHRASE17
		    <GRTR? Y13 X5 - PHRASE18 (TYPE FIX)>
		    <RETURN %<>>
PHRASE18
		    <ADD CNT14 1 = CNT14 (TYPE FIX)>
		    <GRTR? CNT14 31 - PHRASE19 (TYPE FIX)>
		    <RETURN %<>>
PHRASE19
		    <LSH Y13 1 = Y13 (TYPE FIX)>
		    <JUMP + AGAIN15>
		    <END PWR2?>
#WORD *15122514642*
<GFCN DIVFIX-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
		    <OPT-DISPATCH 3 %<> OPT6 OPT7>
OPT6
		    <PUSH %<>>
OPT7
		    <TEMP TEMP13:ATOM>
		    <INTGO>
		    <FRAME 'ARITH-GEN>
		    <PUSH 198>
		    <PUSH 199>
		    <PUSH OP18>
		    <DEAD OP18>
		    <PUSH OP29>
		    <DEAD OP29>
		    <PUSH DEST10>
		    <DEAD DEST10>
		    <PUSH %<>>
		    <GVAL '/ = STACK>
		    <PUSH 'FIX>
		    <CALL 'ARITH-GEN 8 = TEMP13>
		    <RETURN TEMP13>
		    <DEAD TEMP13>
		    <END DIVFIX-GEN>
#WORD *36040253203*
<GFCN MODFIX-GEN ("VALUE" ATOM <OR VARTBL FIX> <OR VARTBL FIX> <OR ATOM VARTBL> "OPTIONAL" ANY) ITM18 ITM29 RES10 HINT11>
		    <OPT-DISPATCH 3 %<> OPT6 OPT7>
OPT6
		    <PUSH #T$UNBOUND 0>
OPT7
		    <TEMP (AC13 %<>) LAB114 LAB215 VAC12 TEMP26>
		    <INTGO>
		    <FRAME 'MAKE-LABEL>
		    <CALL 'MAKE-LABEL 0 = LAB114>
		    <FRAME 'MAKE-LABEL>
		    <CALL 'MAKE-LABEL 0 = LAB215>
		    <FRAME 'GET-AC>
		    <PUSH 'DOUBLE>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = VAC12>
		    <TYPE? ITM18 <TYPE-CODE FIX> - PHRASE20>
		    <LESS? ITM18 0 + PHRASE20 (TYPE FIX)>
		    <GRTR? ITM18 63 + PHRASE20 (TYPE FIX)>
		    <FRAME 'EMIT>
		    <PUSH 125>
		    <FRAME 'MA-IMM>
		    <PUSH ITM18>
		    <DEAD ITM18>
		    <CALL 'MA-IMM 1 = STACK>
		    <NTHUV VAC12 2 = TEMP26 (TYPE FIX)>
		    <OR TEMP26 80 = TEMP26>
		    <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
		    <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP26>
		    <CALL 'EMIT 3>
		    <JUMP + PHRASE35>
PHRASE20
		    <TYPE? ITM18 <TYPE-CODE FIX> - PHRASE27>
		    <FRAME 'EMIT>
		    <PUSH 212>
		    <FRAME 'NEXT-AC>
		    <PUSH VAC12>
		    <CALL 'NEXT-AC 1 = TEMP26>
		    <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
		    <OR TEMP26 80 = TEMP26>
		    <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
		    <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP26>
		    <CALL 'EMIT 2>
		    <FRAME 'LOAD-CONSTANT>
		    <PUSH VAC12>
		    <PUSH ITM18>
		    <DEAD ITM18>
		    <CALL 'LOAD-CONSTANT 2>
		    <FRAME 'GEN-BRANCH>
		    <PUSH 24>
		    <PUSH LAB114>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <FRAME 'EMIT>
		    <PUSH 210>
		    <LSH 0 24 = TEMP26 (TYPE FIX)>
		    <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP26>
		    <FRAME 'NEXT-AC>
		    <PUSH VAC12>
		    <CALL 'NEXT-AC 1 = TEMP26>
		    <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
		    <OR TEMP26 80 = TEMP26>
		    <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
		    <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP26>
		    <CALL 'EMIT 3>
		    <FRAME 'EMIT-LABEL>
		    <PUSH LAB114>
		    <DEAD LAB114>
		    <PUSH 'T>
		    <CALL 'EMIT-LABEL 2>
		    <JUMP + PHRASE35>
PHRASE27
		    <FRAME 'EMIT>
		    <PUSH 212>
		    <FRAME 'NEXT-AC>
		    <PUSH VAC12>
		    <CALL 'NEXT-AC 1 = TEMP26>
		    <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
		    <OR TEMP26 80 = TEMP26>
		    <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
		    <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP26>
		    <CALL 'EMIT 2>
		    <FRAME 'LOAD-VAR>
		    <PUSH ITM18>
		    <DEAD ITM18>
		    <PUSH 'JUST-VALUE>
		    <PUSH 'T>
		    <PUSH VAC12>
		    <CALL 'LOAD-VAR 4>
		    <FRAME 'GEN-BRANCH>
		    <PUSH 24>
		    <PUSH LAB114>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <FRAME 'EMIT>
		    <PUSH 210>
		    <LSH 0 24 = TEMP26 (TYPE FIX)>
		    <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP26>
		    <FRAME 'NEXT-AC>
		    <PUSH VAC12>
		    <CALL 'NEXT-AC 1 = TEMP26>
		    <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
		    <OR TEMP26 80 = TEMP26>
		    <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
		    <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP26>
		    <CALL 'EMIT 3>
		    <FRAME 'EMIT-LABEL>
		    <PUSH LAB114>
		    <DEAD LAB114>
		    <PUSH 'T>
		    <CALL 'EMIT-LABEL 2>
PHRASE35
		    <FRAME 'EMIT>
		    <PUSH 123>
		    <TYPE? ITM29 <TYPE-CODE FIX> - PHRASE45>
		    <FRAME 'MA-IMM>
		    <PUSH ITM29>
		    <CALL 'MA-IMM 1 = TEMP26>
		    <JUMP + PHRASE50>
PHRASE45
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH ITM29>
		    <CALL 'VAR-VALUE-IN-AC? 1 = AC13>
		    <TYPE? AC13 <TYPE-CODE FALSE> + PHRASE47>
		    <NTHUV AC13 2 = LAB114 (TYPE FIX)>
		    <OR LAB114 80 = LAB114>
		    <LSH LAB114 24 = LAB114 (TYPE FIX)>
		    <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = TEMP26>
		    <DEAD LAB114>
		    <JUMP + PHRASE50>
PHRASE47
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH ITM29>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP26>
PHRASE50
		    <PUSH TEMP26>
		    <DEAD TEMP26>
		    <NTHUV VAC12 2 = LAB114 (TYPE FIX)>
		    <OR LAB114 80 = LAB114>
		    <LSH LAB114 24 = LAB114 (TYPE FIX)>
		    <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD LAB114>
		    <NTHUV VAC12 2 = LAB114 (TYPE FIX)>
		    <OR LAB114 80 = LAB114>
		    <LSH LAB114 24 = LAB114 (TYPE FIX)>
		    <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD LAB114>
		    <FRAME 'NEXT-AC>
		    <PUSH VAC12>
		    <CALL 'NEXT-AC 1 = LAB114>
		    <NTHUV LAB114 2 = LAB114 (TYPE FIX)>
		    <OR LAB114 80 = LAB114>
		    <LSH LAB114 24 = LAB114 (TYPE FIX)>
		    <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD LAB114>
		    <CALL 'EMIT 5>
		    <FRAME 'EMIT>
		    <PUSH 213>
		    <FRAME 'NEXT-AC>
		    <PUSH VAC12>
		    <CALL 'NEXT-AC 1 = LAB114>
		    <NTHUV LAB114 2 = LAB114 (TYPE FIX)>
		    <OR LAB114 80 = LAB114>
		    <LSH LAB114 24 = LAB114 (TYPE FIX)>
		    <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD LAB114>
		    <CALL 'EMIT 2>
		    <FRAME 'GEN-BRANCH>
		    <PUSH 24>
		    <PUSH LAB215>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <FRAME 'EMIT>
		    <PUSH 192>
		    <TYPE? ITM29 <TYPE-CODE FIX> - PHRASE58>
		    <FRAME 'MA-IMM>
		    <PUSH ITM29>
		    <DEAD ITM29>
		    <CALL 'MA-IMM 1 = LAB114>
		    <JUMP + PHRASE61>
PHRASE58
		    <TYPE? AC13 <TYPE-CODE FALSE> + PHRASE60>
		    <NTHUV AC13 2 = TEMP26 (TYPE FIX)>
		    <DEAD AC13>
		    <OR TEMP26 80 = TEMP26>
		    <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
		    <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = LAB114>
		    <DEAD TEMP26>
		    <JUMP + PHRASE61>
PHRASE60
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH ITM29>
		    <DEAD ITM29>
		    <CALL 'VAR-VALUE-ADDRESS 1 = LAB114>
PHRASE61
		    <PUSH LAB114>
		    <DEAD LAB114>
		    <FRAME 'NEXT-AC>
		    <PUSH VAC12>
		    <CALL 'NEXT-AC 1 = LAB114>
		    <NTHUV LAB114 2 = LAB114 (TYPE FIX)>
		    <OR LAB114 80 = LAB114>
		    <LSH LAB114 24 = LAB114 (TYPE FIX)>
		    <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD LAB114>
		    <CALL 'EMIT 3>
		    <FRAME 'EMIT-LABEL>
		    <PUSH LAB215>
		    <DEAD LAB215>
		    <PUSH 'T>
		    <CALL 'EMIT-LABEL 2>
		    <FRAME 'DEST-DECL>
		    <FRAME 'NEXT-AC>
		    <PUSH VAC12>
		    <DEAD VAC12>
		    <CALL 'NEXT-AC 1 = STACK>
		    <PUSH RES10>
		    <DEAD RES10>
		    <PUSH 'FIX>
		    <CALL 'DEST-DECL 3>
		    <RETURN 'NORMAL>
		    <END MODFIX-GEN>


#WORD *10005621776*
<GFCN ADDF-GEN ("VALUE" ATOM <OR FLOAT FIX VARTBL> <OR FLOAT FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
		    <OPT-DISPATCH 3 %<> OPT6 OPT7>
OPT6
		    <PUSH %<>>
OPT7
		    <TEMP TEMP13:ATOM>
		    <INTGO>
		    <FRAME 'ARITH-GEN>
		    <PUSH 64>
		    <PUSH 65>
		    <PUSH OP18>
		    <DEAD OP18>
		    <PUSH OP29>
		    <DEAD OP29>
		    <PUSH DEST10>
		    <DEAD DEST10>
		    <PUSH 'T>
		    <GVAL '+ = STACK>
		    <PUSH 'FLOAT>
		    <CALL 'ARITH-GEN 8 = TEMP13>
		    <RETURN TEMP13>
		    <DEAD TEMP13>
		    <END ADDF-GEN>
#WORD *32165773205*
<GFCN SUBF-GEN ("VALUE" ATOM <OR FLOAT FIX VARTBL> <OR FLOAT FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
		    <OPT-DISPATCH 3 %<> OPT6 OPT7>
OPT6
		    <PUSH %<>>
OPT7
		    <TEMP TEMP13:ATOM>
		    <INTGO>
		    <FRAME 'ARITH-GEN>
		    <PUSH 66>
		    <PUSH 67>
		    <PUSH OP18>
		    <DEAD OP18>
		    <PUSH OP29>
		    <DEAD OP29>
		    <PUSH DEST10>
		    <DEAD DEST10>
		    <PUSH %<>>
		    <GVAL '- = STACK>
		    <PUSH 'FLOAT>
		    <CALL 'ARITH-GEN 8 = TEMP13>
		    <RETURN TEMP13>
		    <DEAD TEMP13>
		    <END SUBF-GEN>
#WORD *14014161773*
<GFCN MULF-GEN ("VALUE" ATOM <OR FLOAT FIX VARTBL> <OR FLOAT FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
		    <OPT-DISPATCH 3 %<> OPT6 OPT7>
OPT6
		    <PUSH %<>>
OPT7
		    <TEMP TEMP13:ATOM>
		    <INTGO>
		    <FRAME 'ARITH-GEN>
		    <PUSH 68>
		    <PUSH 69>
		    <PUSH OP18>
		    <DEAD OP18>
		    <PUSH OP29>
		    <DEAD OP29>
		    <PUSH DEST10>
		    <DEAD DEST10>
		    <PUSH 'T>
		    <GVAL '* = STACK>
		    <PUSH 'FLOAT>
		    <CALL 'ARITH-GEN 8 = TEMP13>
		    <RETURN TEMP13>
		    <DEAD TEMP13>
		    <END MULF-GEN>
#WORD *12145073217*
<GFCN DIVF-GEN ("VALUE" ATOM <OR FLOAT FIX VARTBL> <OR FLOAT FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
		    <OPT-DISPATCH 3 %<> OPT6 OPT7>
OPT6
		    <PUSH %<>>
OPT7
		    <TEMP TEMP13:ATOM>
		    <INTGO>
		    <FRAME 'ARITH-GEN>
		    <PUSH 70>
		    <PUSH 71>
		    <PUSH OP18>
		    <DEAD OP18>
		    <PUSH OP29>
		    <DEAD OP29>
		    <PUSH DEST10>
		    <DEAD DEST10>
		    <PUSH %<>>
		    <GVAL '/ = STACK>
		    <PUSH 'FLOAT>
		    <CALL 'ARITH-GEN 8 = TEMP13>
		    <RETURN TEMP13>
		    <DEAD TEMP13>
		    <END DIVF-GEN>
#WORD *4271747732*
<GFCN FIX-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) VAL18 RES9 HINT10>
		    <OPT-DISPATCH 2 %<> OPT6 OPT7>
OPT6
		    <PUSH #T$UNBOUND 0>
OPT7
		    <TEMP VAC11 TEMP17>
		    <INTGO>
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH VAL18>
		    <CALL 'VAR-VALUE-IN-AC? 1 = VAC11>
		    <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE13>
		    <FRAME 'AVAILABLE?>
		    <PUSH VAC11>
		    <CALL 'AVAILABLE? 1 = TEMP17>
		    <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE13>
		    <DEAD TEMP17>
		    <FRAME 'EMIT>
		    <PUSH 74>
		    <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
		    <OR TEMP17 80 = TEMP17>
		    <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
		    <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP17>
		    <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
		    <OR TEMP17 80 = TEMP17>
		    <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
		    <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP17>
		    <CALL 'EMIT 3>
		    <JUMP + PHRASE19>
PHRASE13
		    <FRAME 'EMIT>
		    <PUSH 74>
		    <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE22>
		    <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
		    <DEAD VAC11>
		    <OR TEMP17 80 = TEMP17>
		    <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
		    <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = TEMP17>
		    <JUMP + PHRASE23>
PHRASE22
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH VAL18>
		    <DEAD VAL18>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP17>
PHRASE23
		    <PUSH TEMP17>
		    <DEAD TEMP17>
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = VAC11>
		    <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
		    <OR TEMP17 80 = TEMP17>
		    <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
		    <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP17>
		    <CALL 'EMIT 3>
PHRASE19
		    <FRAME 'DEST-DECL>
		    <PUSH VAC11>
		    <DEAD VAC11>
		    <PUSH RES9>
		    <DEAD RES9>
		    <PUSH 'FIX>
		    <CALL 'DEST-DECL 3 = TEMP17>
		    <RETURN TEMP17>
		    <DEAD TEMP17>
		    <END FIX-GEN>
#WORD *10551706772*
<GFCN FLOAT-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) VAL18 RES9 HINT10>
		    <OPT-DISPATCH 2 %<> OPT6 OPT7>
OPT6
		    <PUSH #T$UNBOUND 0>
OPT7
		    <TEMP VAC11 TEMP17>
		    <INTGO>
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH VAL18>
		    <CALL 'VAR-VALUE-IN-AC? 1 = VAC11>
		    <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE13>
		    <FRAME 'AVAILABLE?>
		    <PUSH VAC11>
		    <CALL 'AVAILABLE? 1 = TEMP17>
		    <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE13>
		    <DEAD TEMP17>
		    <FRAME 'EMIT>
		    <PUSH 78>
		    <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
		    <OR TEMP17 80 = TEMP17>
		    <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
		    <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP17>
		    <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
		    <OR TEMP17 80 = TEMP17>
		    <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
		    <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP17>
		    <CALL 'EMIT 3>
		    <JUMP + PHRASE19>
PHRASE13
		    <FRAME 'EMIT>
		    <PUSH 78>
		    <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE22>
		    <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
		    <DEAD VAC11>
		    <OR TEMP17 80 = TEMP17>
		    <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
		    <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = TEMP17>
		    <JUMP + PHRASE23>
PHRASE22
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH VAL18>
		    <DEAD VAL18>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP17>
PHRASE23
		    <PUSH TEMP17>
		    <DEAD TEMP17>
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = VAC11>
		    <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
		    <OR TEMP17 80 = TEMP17>
		    <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
		    <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP17>
		    <CALL 'EMIT 3>
PHRASE19
		    <FRAME 'DEST-DECL>
		    <PUSH VAC11>
		    <DEAD VAC11>
		    <PUSH RES9>
		    <DEAD RES9>
		    <PUSH 'FLOAT>
		    <CALL 'DEST-DECL 3 = TEMP17>
		    <RETURN TEMP17>
		    <DEAD TEMP17>
		    <END FLOAT-GEN>
#WORD *3177653421*
<GFCN RANDOM-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) VAL18 RES9 HINT10>
		    <OPT-DISPATCH 2 %<> OPT6 OPT7>
OPT6
		    <PUSH #T$UNBOUND 0>
OPT7
		    <TEMP TEMP12>
		    <INTGO>
		    <FRAME 'CALL-RTE>
		    <GVAL 'IRANDOM!-MIMOP = STACK>
		    <PUSH 'CALL>
		    <PUSH RES9>
		    <DEAD RES9>
		    <PUSH 'FLOAT>
		    <PUSH VAL18>
		    <DEAD VAL18>
		    <CALL 'CALL-RTE 5 = TEMP12>
		    <RETURN TEMP12>
		    <DEAD TEMP12>
		    <END RANDOM-GEN>