--- /dev/null
+
+#WORD *27635606362*
+<GFCN \1aGETBITS-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 '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+PHRASE15
+ <TYPE? FROM8 <TYPE-CODE VARTBL> + PHRASE19>
+ <TYPE? WIDTH9 <TYPE-CODE VARTBL> + PHRASE19>
+ <TYPE? SHIFT10 <TYPE-CODE VARTBL> + PHRASE19>
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aMA-IMM>
+ <GETBITS FROM8 WIDTH9 SHIFT10 = STACK>
+ <DEAD FROM8 WIDTH9 SHIFT10>
+ <CALL '\1aMA-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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH DEST11>
+ <PUSH 'T>
+ <CALL '\1aVAR-VALUE-ADDRESS 2 = TEMP25>
+PHRASE26
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-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 '\1aVAR-VALUE-IN-AC?>
+ <PUSH FROM8>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE28>
+ <DEAD TEMP25>
+BOOL33
+ <FRAME '\1aEMIT>
+ <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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH FROM8>
+ <DEAD FROM8>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP25>
+ <JUMP + PHRASE46>
+PHRASE42
+ <FRAME '\1aGEN-LOC>
+ <PUSH FROM8>
+ <DEAD FROM8>
+ <DIV SHIFT10 8 = TEMP25 (TYPE FIX)>
+ <DEAD SHIFT10>
+ <ADD TEMP25 4 = STACK (TYPE FIX)>
+ <DEAD TEMP25>
+ <CALL '\1aGEN-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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH DEST11>
+ <PUSH 'T>
+ <CALL '\1aVAR-VALUE-ADDRESS 2 = TEMP25>
+COND49
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE52>
+PHRASE28
+ <FRAME '\1aEMIT>
+ <PUSH 239>
+ <TYPE? SHIFT10 <TYPE-CODE VARTBL> - PHRASE55>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH SHIFT10>
+ <DEAD SHIFT10>
+ <CALL '\1aVAR-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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH WIDTH9>
+ <DEAD WIDTH9>
+ <CALL '\1aVAR-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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH FROM8>
+ <DEAD FROM8>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP25>
+ <JUMP + COND60>
+PHRASE61
+ <FRAME '\1aMA-IMM>
+ <PUSH FROM8>
+ <DEAD FROM8>
+ <CALL '\1aMA-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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH DEST11>
+ <PUSH 'T>
+ <CALL '\1aVAR-VALUE-ADDRESS 2 = TEMP25>
+COND64
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aEMIT 5>
+PHRASE52
+ <EQUAL? DEST11 'STACK + PHRASE73>
+ <FRAME '\1aVAR-VALUE-IN-AC?>
+ <PUSH DEST11>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE70>
+ <FRAME '\1aDEST-DECL>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <PUSH DEST11>
+ <DEAD DEST11>
+ <PUSH 'FIX>
+ <CALL '\1aDEST-DECL 3>
+ <RETURN 'NORMAL>
+PHRASE70
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH DEST11>
+ <CALL '\1aVARTBL-DECL 1 = TEMP25>
+ <EQUAL? TEMP25 'FIX + PHRASE73>
+ <DEAD TEMP25>
+ <FRAME '\1aINDICATE-VAR-TEMP-DECL>
+ <PUSH DEST11>
+ <PUSH 'FIX>
+ <CALL '\1aINDICATE-VAR-TEMP-DECL 2>
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH DEST11>
+ <DEAD DEST11>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+PHRASE73
+ <RETURN 'NORMAL>
+ <END \1aGETBITS-GEN>
+#WORD *5623433665*
+<GFCN \1aPUTBITS-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 '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+PHRASE24
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aMA-IMM>
+ <PUTBITS TO8 WIDTH9 SHIFT10 FROM11 = STACK>
+ <DEAD TO8 WIDTH9 SHIFT10 FROM11>
+ <CALL '\1aMA-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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH DEST12>
+ <DEAD DEST12>
+ <PUSH 'T>
+ <CALL '\1aVAR-VALUE-ADDRESS 2 = TEMP31>
+COND29
+ <PUSH TEMP31>
+ <DEAD TEMP31>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <RETURN 'NORMAL>
+PHRASE21
+ <EQUAL? DEST12 'STACK - PHRASE35>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE40>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH TO8>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP31>
+ <JUMP + COND39>
+PHRASE40
+ <FRAME '\1aMA-IMM>
+ <PUSH TO8>
+ <CALL '\1aMA-IMM 1 = TEMP31>
+COND39
+ <PUSH TEMP31>
+ <DEAD TEMP31>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-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 '\1aVAR-VALUE-IN-AC?>
+ <PUSH DEST12>
+ <CALL '\1aVAR-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 '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = TAC18>
+ <FRAME '\1aEMIT-MOVE>
+ <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE63>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH TO8>
+ <DEAD TO8>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP31>
+ <JUMP + PHRASE65>
+PHRASE63
+ <FRAME '\1aMA-IMM>
+ <PUSH TO8>
+ <DEAD TO8>
+ <CALL '\1aMA-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 '\1aEMIT-MOVE 3>
+ <JUMP + PHRASE67>
+PHRASE59
+ <EQUAL? DEST12 'STACK + PHRASE67>
+ <EQUAL? TO8 DEST12 + PHRASE67>
+ <FRAME '\1aEMIT-MOVE>
+ <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE71>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH TO8>
+ <DEAD TO8>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP31>
+ <JUMP + PHRASE73>
+PHRASE71
+ <FRAME '\1aMA-IMM>
+ <PUSH TO8>
+ <DEAD TO8>
+ <CALL '\1aMA-IMM 1 = TEMP31>
+PHRASE73
+ <PUSH TEMP31>
+ <DEAD TEMP31>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH DEST12>
+ <PUSH 'T>
+ <CALL '\1aVAR-VALUE-ADDRESS 2 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+PHRASE67
+ <FRAME '\1aEMIT>
+ <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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH FROM11>
+ <DEAD FROM11>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP31>
+ <JUMP + PHRASE86>
+PHRASE84
+ <FRAME '\1aMA-IMM>
+ <PUSH FROM11>
+ <DEAD FROM11>
+ <CALL '\1aMA-IMM 1 = TEMP31>
+PHRASE86
+ <PUSH TEMP31>
+ <DEAD TEMP31>
+ <EQUAL? DEST12 'STACK - PHRASE89>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <DIV SHIFT10 8 = TEMP31 (TYPE FIX)>
+ <DEAD SHIFT10>
+ <SUB -4 TEMP31 = STACK (TYPE FIX)>
+ <DEAD TEMP31>
+ <CALL '\1aMA-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 '\1aVAR-VALUE-IN-AC?>
+ <PUSH DEST12>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = ZERO?19>
+ <TYPE? ZERO?19 <TYPE-CODE FALSE> + PHRASE93>
+ <DEAD ZERO?19>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH DEST12>
+ <PUSH 'T>
+ <CALL '\1aVAR-VALUE-ADDRESS 2 = TEMP31>
+ <JUMP + PHRASE96>
+PHRASE93
+ <FRAME '\1aGEN-LOC>
+ <PUSH DEST12>
+ <DIV SHIFT10 8 = ZERO?19 (TYPE FIX)>
+ <DEAD SHIFT10>
+ <ADD ZERO?19 4 = STACK (TYPE FIX)>
+ <DEAD ZERO?19>
+ <CALL '\1aGEN-LOC 2 = TEMP31>
+PHRASE96
+ <PUSH TEMP31>
+ <DEAD TEMP31>
+ <CALL '\1aEMIT 3>
+ <TYPE? TAC18 <TYPE-CODE FALSE> + PHRASE99>
+ <FRAME '\1aDEST-DECL>
+ <PUSH TAC18>
+ <DEAD TAC18>
+ <PUSH DEST12>
+ <DEAD DEST12>
+ <PUSH 'FIX>
+ <CALL '\1aDEST-DECL 3>
+ <RETURN 'NORMAL>
+PHRASE99
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH DEST12>
+ <CALL '\1aVARTBL-DECL 1 = TEMP31>
+ <EQUAL? TEMP31 'FIX + PHRASE107>
+ <DEAD TEMP31>
+ <FRAME '\1aINDICATE-VAR-TEMP-DECL>
+ <PUSH DEST12>
+ <PUSH 'FIX>
+ <CALL '\1aINDICATE-VAR-TEMP-DECL 2>
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH DEST12>
+ <DEAD DEST12>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <RETURN 'NORMAL>
+PHRASE44
+ <TYPE? WIDTH9 <TYPE-CODE VARTBL> - PHRASE109>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH WIDTH9>
+ <DEAD WIDTH9>
+ <CALL '\1aVAR-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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH SHIFT10>
+ <DEAD SHIFT10>
+ <CALL '\1aVAR-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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH FROM11>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = FROMOP17>
+ <FRAME '\1aVAR-VALUE-IN-AC?>
+ <PUSH FROM11>
+ <DEAD FROM11>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = RD14>
+ <TYPE? RD14 <TYPE-CODE FALSE> + PHRASE121>
+ <FRAME '\1aPROTECT>
+ <PUSH RD14>
+ <DEAD RD14>
+ <CALL '\1aPROTECT 1>
+ <JUMP + PHRASE121>
+PHRASE115
+ <FRAME '\1aMA-IMM>
+ <PUSH FROM11>
+ <DEAD FROM11>
+ <CALL '\1aMA-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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH TO8>
+ <DEAD TO8>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = RD14>
+ <JUMP + PHRASE132>
+PHRASE125
+ <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE127>
+ <FRAME '\1aVAR-VALUE-IN-AC?>
+ <PUSH TO8>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = RD14>
+ <TYPE? RD14 <TYPE-CODE FALSE> + PHRASE127>
+ <FRAME '\1aMUNG-AC>
+ <PUSH RD14>
+ <CALL '\1aMUNG-AC 1>
+ <FRAME '\1aDEST-DECL>
+ <PUSH RD14>
+ <PUSH DEST12>
+ <DEAD DEST12>
+ <PUSH 'FIX>
+ <CALL '\1aDEST-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 '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = RD14>
+ <TYPE? RD14 <TYPE-CODE FALSE> + PHRASE132>
+ <FRAME '\1aDEST-DECL>
+ <PUSH RD14>
+ <PUSH DEST12>
+ <DEAD DEST12>
+ <PUSH 'FIX>
+ <CALL '\1aDEST-DECL 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE137>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH TO8>
+ <DEAD TO8>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP31>
+ <JUMP + COND136>
+PHRASE137
+ <FRAME '\1aMA-IMM>
+ <PUSH TO8>
+ <DEAD TO8>
+ <CALL '\1aMA-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 '\1aEMIT 3>
+PHRASE132
+ <FRAME '\1aEMIT>
+ <PUSH 240>
+ <PUSH FROMOP17>
+ <DEAD FROMOP17>
+ <PUSH ZERO?19>
+ <DEAD ZERO?19>
+ <PUSH TAC18>
+ <DEAD TAC18>
+ <PUSH RD14>
+ <DEAD RD14>
+ <CALL '\1aEMIT 5>
+PHRASE107
+ <RETURN 'NORMAL>
+ <END \1aPUTBITS-GEN>\r\0\r\0
+#WORD *15114643632*
+<GFCN \1aARITH-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 '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = VAC15>
+ <FRAME '\1aLOAD-CONSTANT>
+ <PUSH VAC15>
+ <FRAME>
+ <PUSH OP17>
+ <DEAD OP17>
+ <PUSH OP28>
+ <DEAD OP28>
+ <ACALL MUD11 2 = STACK>
+ <DEAD MUD11>
+ <CALL '\1aLOAD-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 '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH TYP12>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-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 '\1aVAR-VALUE-IN-AC?>
+ <PUSH OP17>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC15>
+ <TYPE? VAC15 <TYPE-CODE FALSE> + BOOL44>
+ <FRAME '\1aAVAILABLE?>
+ <PUSH VAC15>
+ <CALL '\1aAVAILABLE? 1 = TEMP40>
+ <TYPE? TEMP40 <TYPE-CODE FALSE> + BOOL38>
+ <DEAD TEMP40>
+ <FRAME '\1aMUNG-AC>
+ <PUSH VAC15>
+ <CALL '\1aMUNG-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 '\1aVAR-VALUE-IN-AC?>
+ <PUSH OP28>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC15>
+ <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE48>
+ <FRAME '\1aAVAILABLE?>
+ <PUSH VAC15>
+ <CALL '\1aAVAILABLE? 1 = TEMP40>
+ <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE48>
+ <DEAD TEMP40>
+ <FRAME '\1aMUNG-AC>
+ <PUSH VAC15>
+ <CALL '\1aMUNG-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 '\1aEMIT>
+ <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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH OP28>
+ <DEAD OP28>
+ <CALL '\1aVAR-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 '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-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 '\1aEMIT 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 '\1aVAR-VALUE-IN-AC?>
+ <PUSH OP17>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC15>
+ <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE95>
+ <FRAME '\1aMUNG-AC>
+ <PUSH VAC15>
+ <CALL '\1aMUNG-AC 1>
+PHRASE95
+ <FRAME '\1aEMIT>
+ <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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH OP17>
+ <DEAD OP17>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = USE-314>
+PHRASE102
+ <PUSH USE-314>
+ <DEAD USE-314>
+ <CALL '\1aEMIT 2>
+ <JUMP + PHRASE128>
+PHRASE88
+ <VEQUAL? USE-314 0 + PHRASE104>
+ <DEAD USE-314>
+ <FRAME '\1aEMIT>
+ <PUSH OP-3-ARG6>
+ <DEAD OP-3-ARG6>
+ <TYPE? OP28 <TYPE-CODE FIX> - PHRASE107>
+ <FRAME '\1aMA-IMM>
+ <PUSH OP28>
+ <DEAD OP28>
+ <CALL '\1aMA-IMM 1 = USE-314>
+ <JUMP + PHRASE113>
+PHRASE107
+ <TYPE? OP28 <TYPE-CODE FLOAT> - PHRASE109>
+ <FRAME '\1aFLOAT-IMM>
+ <FRAME '\1aFLOATCONVERT>
+ <PUSH OP28>
+ <DEAD OP28>
+ <CALL '\1aFLOATCONVERT 1 = STACK>
+ <CALL '\1aFLOAT-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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH OP28>
+ <DEAD OP28>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = USE-314>
+PHRASE113
+ <PUSH USE-314>
+ <DEAD USE-314>
+ <TYPE? OP17 <TYPE-CODE FIX> - PHRASE116>
+ <FRAME '\1aMA-IMM>
+ <PUSH OP17>
+ <DEAD OP17>
+ <CALL '\1aMA-IMM 1 = USE-314>
+ <JUMP + PHRASE121>
+PHRASE116
+ <TYPE? OP17 <TYPE-CODE FLOAT> - PHRASE118>
+ <FRAME '\1aFLOAT-IMM>
+ <FRAME '\1aFLOATCONVERT>
+ <PUSH OP17>
+ <DEAD OP17>
+ <CALL '\1aFLOATCONVERT 1 = STACK>
+ <CALL '\1aFLOAT-IMM 1 = USE-314>
+ <JUMP + PHRASE121>
+PHRASE118
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH OP17>
+ <DEAD OP17>
+ <CALL '\1aVAR-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 '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-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 '\1aEMIT 4>
+ <JUMP + PHRASE128>
+PHRASE104
+ <TYPE? VAC15 <TYPE-CODE FALSE> - PHRASE130>
+ <FRAME '\1aVAR-VALUE-IN-AC?>
+ <PUSH OP17>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC15>
+ <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE130>
+ <FRAME '\1aMUNG-AC>
+ <PUSH VAC15>
+ <CALL '\1aMUNG-AC 1>
+PHRASE130
+ <FRAME '\1aEMIT>
+ <PUSH OP-2-ARG5>
+ <DEAD OP-2-ARG5>
+ <TYPE? OP28 <TYPE-CODE FIX> - PHRASE136>
+ <FRAME '\1aMA-IMM>
+ <PUSH OP28>
+ <DEAD OP28>
+ <CALL '\1aMA-IMM 1 = USE-314>
+ <JUMP + PHRASE141>
+PHRASE136
+ <TYPE? OP28 <TYPE-CODE FLOAT> - PHRASE138>
+ <FRAME '\1aFLOAT-IMM>
+ <FRAME '\1aFLOATCONVERT>
+ <PUSH OP28>
+ <DEAD OP28>
+ <CALL '\1aFLOATCONVERT 1 = STACK>
+ <CALL '\1aFLOAT-IMM 1 = USE-314>
+ <JUMP + PHRASE141>
+PHRASE138
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH OP28>
+ <DEAD OP28>
+ <CALL '\1aVAR-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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH OP17>
+ <DEAD OP17>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = USE-314>
+PHRASE145
+ <PUSH USE-314>
+ <DEAD USE-314>
+ <CALL '\1aEMIT 3>
+PHRASE128
+ <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE148>
+ <FRAME '\1aDEST-DECL>
+ <PUSH VAC15>
+ <DEAD VAC15>
+ <PUSH DEST9>
+ <DEAD DEST9>
+ <PUSH TYP12>
+ <DEAD TYP12>
+ <CALL '\1aDEST-DECL 3>
+PHRASE148
+ <RETURN 'NORMAL>
+ <END \1aARITH-GEN>
+#WORD *17062346323*
+<GFCN \1aADDFIX-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 '\1aARITH-GEN>
+ <PUSH 192>
+ <PUSH 193>
+ <PUSH OP18>
+ <DEAD OP18>
+ <PUSH OP29>
+ <DEAD OP29>
+ <PUSH DEST10>
+ <DEAD DEST10>
+ <PUSH 'T>
+ <GVAL '+ = STACK>
+ <PUSH 'FIX>
+ <CALL '\1aARITH-GEN 8 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aADDFIX-GEN>
+#WORD *6457324663*
+<GFCN
\1aLESSFIX-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 '\1aPARSE-HINT>
+ <PUSH HINT12>
+ <DEAD HINT12>
+ <PUSH 'TYPE>
+ <CALL '\1aPARSE-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 '\1aCOMP-GEN>
+ <PUSH VAL18>
+ <DEAD VAL18>
+ <PUSH VAL29>
+ <DEAD VAL29>
+ <PUSH DIR10>
+ <DEAD DIR10>
+ <PUSH LABEL11>
+ <DEAD LABEL11>
+ <PUSH 1>
+ <PUSH TYP13>
+ <DEAD TYP13>
+ <CALL '\1aCOMP-GEN 6 = TYP13>
+ <RETURN TYP13>
+ <DEAD TYP13>
+ <END \1aLESSFIX-GEN>
+#WORD *15457324663*
+<GFCN
\1aGTFIX-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 '\1aPARSE-HINT>
+ <PUSH HINT12>
+ <DEAD HINT12>
+ <PUSH 'TYPE>
+ <CALL '\1aPARSE-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 '\1aCOMP-GEN>
+ <PUSH VAL18>
+ <DEAD VAL18>
+ <PUSH VAL29>
+ <DEAD VAL29>
+ <PUSH DIR10>
+ <DEAD DIR10>
+ <PUSH LABEL11>
+ <DEAD LABEL11>
+ <PUSH 3>
+ <PUSH TYP13>
+ <DEAD TYP13>
+ <CALL '\1aCOMP-GEN 6 = TYP13>
+ <RETURN TYP13>
+ <DEAD TYP13>
+ <END \1aGTFIX-GEN>
+#WORD *30340376742*
+<GFCN \1aVEQUAL-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 '\1aPARSE-HINT>
+ <PUSH HINT12>
+ <DEAD HINT12>
+ <PUSH 'TYPE>
+ <CALL '\1aPARSE-HINT 2 = TYP13>
+PHRASE15
+ <TYPE? TYP13 <TYPE-CODE FALSE> - PHRASE18>
+ <SET TYP13 'FIX (TYPE ATOM)>
+PHRASE18
+ <FRAME '\1aCOMP-GEN>
+ <PUSH VAL18>
+ <DEAD VAL18>
+ <PUSH VAL29>
+ <DEAD VAL29>
+ <PUSH DIR10>
+ <DEAD DIR10>
+ <PUSH LABEL11>
+ <DEAD LABEL11>
+ <PUSH 2>
+ <PUSH TYP13>
+ <DEAD TYP13>
+ <CALL '\1aCOMP-GEN 6 = TYP13>
+ <RETURN TYP13>
+ <DEAD TYP13>
+ <END \1aVEQUAL-GEN>
+#WORD *4305653234*
+<GFCN \1aEQUAL-GEN ("VALUE" ATOM VARTBL ANY ATOM ATOM) VAL15 VAL26 DIR7 LABEL8>
+ <TEMP ELABEL12 DCL10 DCL115>
+ <INTGO>
+ <FRAME '\1aMAKE-LABEL>
+ <PUSH 'T>
+ <CALL '\1aMAKE-LABEL 1 = ELABEL12>
+ <TYPE? VAL26 <TYPE-CODE VARTBL> - PHRASE20>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAL15>
+ <CALL '\1aVARTBL-DECL 1 = DCL10>
+ <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE22>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAL26>
+ <CALL '\1aVARTBL-DECL 1 = DCL115>
+ <TYPE? DCL115 <TYPE-CODE FALSE> + PHRASE22>
+ <FRAME '\1aCLEAN-DECL>
+ <PUSH DCL10>
+ <DEAD DCL10>
+ <CALL '\1aCLEAN-DECL 1 = DCL10>
+ <FRAME '\1aCLEAN-DECL>
+ <PUSH DCL115>
+ <DEAD DCL115>
+ <CALL '\1aCLEAN-DECL 1 = DCL115>
+ <EQUAL? DCL10 DCL115 - PHRASE22>
+ <DEAD DCL10 DCL115>
+ <FRAME '\1aVEQUAL-GEN>
+ <PUSH VAL15>
+ <DEAD VAL15>
+ <PUSH VAL26>
+ <DEAD VAL26>
+ <PUSH DIR7>
+ <DEAD DIR7>
+ <PUSH LABEL8>
+ <DEAD LABEL8>
+ <CALL '\1aVEQUAL-GEN 4>
+ <JUMP + PHRASE61>
+PHRASE22
+ <FRAME '\1aVAR-EQUAL-GEN>
+ <PUSH VAL15>
+ <DEAD VAL15>
+ <PUSH VAL26>
+ <DEAD VAL26>
+ <PUSH DIR7>
+ <DEAD DIR7>
+ <PUSH LABEL8>
+ <DEAD LABEL8>
+ <PUSH ELABEL12>
+ <DEAD ELABEL12>
+ <CALL '\1aVAR-EQUAL-GEN 5>
+ <JUMP + PHRASE61>
+PHRASE20
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAL15>
+ <CALL '\1aVARTBL-DECL 1 = DCL10>
+ <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE33>
+ <FRAME '\1aCLEAN-DECL>
+ <PUSH DCL10>
+ <DEAD DCL10>
+ <CALL '\1aCLEAN-DECL 1 = DCL115>
+ <FRAME '\1aTYPE>
+ <PUSH VAL26>
+ <CALL '\1aTYPE 1 = DCL10>
+ <EQUAL? DCL115 DCL10 - PHRASE36>
+ <DEAD DCL115>
+ <FRAME '\1aSAFE-TYPE-WORD?>
+ <PUSH VAL15>
+ <CALL '\1aSAFE-TYPE-WORD? 1 = DCL10>
+ <TYPE? DCL10 <TYPE-CODE FALSE> - PHRASE36>
+ <DEAD DCL10>
+ <FRAME '\1aVEQUAL-GEN>
+ <PUSH VAL15>
+ <DEAD VAL15>
+ <PUSH VAL26>
+ <DEAD VAL26>
+ <PUSH DIR7>
+ <DEAD DIR7>
+ <PUSH LABEL8>
+ <DEAD LABEL8>
+ <CALL '\1aVEQUAL-GEN 4>
+ <JUMP + PHRASE61>
+PHRASE36
+ <FRAME '\1aERROR>
+ <PUSH "NOT EQUAL">
+ <PUSH 'EQUAL-GEN>
+ <CALL '\1aERROR 2>
+ <JUMP + PHRASE61>
+PHRASE33
+ <FRAME '\1aFIX-CONSTANT?>
+ <PUSH VAL26>
+ <CALL '\1aFIX-CONSTANT? 1 = DCL10>
+ <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE43>
+ <FRAME '\1aGEN-COMP-INST>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAL15>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <FRAME '\1aMA-IMM>
+ <PUSH DCL10>
+ <DEAD DCL10>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aGEN-COMP-INST 3>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAL15>
+ <DEAD VAL15>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = DCL10>
+ <VEQUAL? DIR7 '- - PHRASE50>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 18>
+ <PUSH LABEL8>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <JUMP + COND49>
+PHRASE50
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 18>
+ <PUSH ELABEL12>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+COND49
+ <FRAME '\1aGEN-COMP-INST>
+ <PUSH DCL10>
+ <DEAD DCL10>
+ <FRAME '\1aTYPE-CODE>
+ <FRAME '\1aTYPE>
+ <PUSH VAL26>
+ <DEAD VAL26>
+ <CALL '\1aTYPE 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aTYPE-CODE 2 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aGEN-COMP-INST 3>
+ <VEQUAL? DIR7 '- - PHRASE57>
+ <DEAD DIR7>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 18>
+ <PUSH LABEL8>
+ <DEAD LABEL8>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <JUMP + COND56>
+PHRASE57
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 19>
+ <PUSH LABEL8>
+ <DEAD LABEL8>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+COND56
+ <FRAME '\1aGEN-LABEL>
+ <PUSH ELABEL12>
+ <DEAD ELABEL12>
+ <PUSH 'NORMAL>
+ <CALL '\1aGEN-LABEL 2>
+ <JUMP + PHRASE61>
+PHRASE43
+ <FRAME '\1aVAR-VALUE-IN-AC?>
+ <PUSH VAL15>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = DCL10>
+ <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
+ <PUSH VAL15>
+ <CALL '\1aVAR-TYPE-WORD-IN-AC? 1 = DCL10>
+ <FRAME '\1aGEN-COMP-INST>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAL15>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
+ <FRAME '\1aTYPE-CODE>
+ <FRAME '\1aTYPE>
+ <PUSH VAL26>
+ <CALL '\1aTYPE 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aTYPE-CODE 2 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aGEN-COMP-INST 3>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAL15>
+ <DEAD VAL15>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = DCL10>
+ <VEQUAL? DIR7 '- - PHRASE70>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 18>
+ <PUSH LABEL8>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <JUMP + COND69>
+PHRASE70
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 18>
+ <PUSH ELABEL12>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+COND69
+ <FRAME '\1aGEN-COMP-INST>
+ <PUSH DCL10>
+ <DEAD DCL10>
+ <FRAME '\1aADDR-VALUE-MQUOTE>
+ <PUSH VAL26>
+ <DEAD VAL26>
+ <CALL '\1aADDR-VALUE-MQUOTE 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aGEN-COMP-INST 3>
+ <VEQUAL? DIR7 '- - PHRASE76>
+ <DEAD DIR7>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 18>
+ <PUSH LABEL8>
+ <DEAD LABEL8>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <JUMP + COND75>
+PHRASE76
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 19>
+ <PUSH LABEL8>
+ <DEAD LABEL8>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+COND75
+ <FRAME '\1aGEN-LABEL>
+ <PUSH ELABEL12>
+ <DEAD ELABEL12>
+ <PUSH 'NORMAL>
+ <CALL '\1aGEN-LABEL 2>
+PHRASE61
+ <FRAME '\1aCLEAR-STATUS>
+ <CALL '\1aCLEAR-STATUS 0>
+ <RETURN 'NORMAL>
+ <END \1aEQUAL-GEN>\r\0\r\0
+#WORD *15441327753*
+<GFCN \1aVAR-EQUAL-GEN ("VALUE" ATOM VARTBL VARTBL ATOM ATOM ATOM) VAR15 VAR26 DIR7 LABEL8 ELABEL9>
+ <TEMP DCL10 DCL112 TEMP24 TEMP26 TAC13>
+ <INTGO>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAR26>
+ <CALL '\1aVARTBL-DECL 1 = DCL10>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAR15>
+ <CALL '\1aVARTBL-DECL 1 = DCL112>
+ <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE21>
+ <TYPE? DCL112 <TYPE-CODE FALSE> + BOOL22>
+ <FRAME '\1aCLEAN-DECL>
+ <PUSH DCL10>
+ <CALL '\1aCLEAN-DECL 1 = TEMP24>
+ <FRAME '\1aCLEAN-DECL>
+ <PUSH DCL112>
+ <CALL '\1aCLEAN-DECL 1 = TEMP26>
+ <EQUAL? TEMP24 TEMP26 + BOOL22>
+ <DEAD TEMP24 TEMP26>
+ <FRAME '\1aERROR>
+ <PUSH "NOT EQUAL">
+ <PUSH 'VAR-EQUAL-GEN>
+ <CALL '\1aERROR 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 '\1aVAR-VALUE-IN-AC?>
+ <PUSH VAR15>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP24>
+ <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
+ <PUSH VAR15>
+ <CALL '\1aVAR-TYPE-WORD-IN-AC? 1 = TAC13>
+ <SET TEMP26 %<> (TYPE FALSE)>
+ <SET TEMP26 %<> (TYPE FALSE)>
+ <FRAME '\1aFRIENDLY-VAR?>
+ <PUSH VAR15>
+ <PUSH TAC13>
+ <PUSH TEMP24>
+ <DEAD TEMP24>
+ <CALL '\1aFRIENDLY-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 '\1aADDR-VAR-TYPE>
+ <PUSH VAR15>
+ <CALL '\1aADDR-VAR-TYPE 1 = TEMP26>
+COND33
+ <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
+ <PUSH VAR26>
+ <CALL '\1aVAR-TYPE-WORD-IN-AC? 1 = TAC13>
+ <FRAME '\1aVAR-VALUE-IN-AC?>
+ <PUSH VAR26>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP24>
+ <FRAME '\1aGEN-COMP-INST>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR15>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR26>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aGEN-COMP-INST 3>
+ <VEQUAL? DIR7 '- - PHRASE42>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 18>
+ <PUSH LABEL8>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aGEN-BRANCH 6>
+ <JUMP + PHRASE44>
+PHRASE42
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 18>
+ <PUSH ELABEL9>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aGEN-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 '\1aEMIT>
+ <PUSH 173>
+ <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE52>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH DCL10>
+ <DEAD DCL10>
+ <CALL '\1aTYPE-CODE 1 = TEMP26>
+ <JUMP + PHRASE54>
+PHRASE52
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAR26>
+ <DEAD VAR26>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = TEMP26>
+PHRASE54
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <TYPE? DCL112 <TYPE-CODE FALSE> + PHRASE57>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH DCL112>
+ <DEAD DCL112>
+ <CALL '\1aTYPE-CODE 1 = TEMP26>
+ <JUMP + PHRASE59>
+PHRASE57
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAR15>
+ <DEAD VAR15>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = TEMP26>
+PHRASE59
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-TYPE>
+ <PUSH 'T>
+ <CALL '\1aGET-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 '\1aEMIT 4>
+ <FRAME '\1aEMIT>
+ <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 '\1aEMIT 3>
+ <JUMP + PHRASE69>
+PHRASE47
+ <TYPE? DCL10 <TYPE-CODE FALSE> + BOOL70>
+ <TYPE? DCL112 <TYPE-CODE FALSE> - PHRASE69>
+BOOL70
+ <FRAME '\1aGEN-COMP-INST>
+ <TYPE? DCL112 <TYPE-CODE FALSE> + PHRASE73>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH DCL112>
+ <DEAD DCL112>
+ <CALL '\1aTYPE-CODE 1 = DCL112>
+ <JUMP + PHRASE75>
+PHRASE73
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAR15>
+ <DEAD VAR15>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = DCL112>
+PHRASE75
+ <PUSH DCL112>
+ <DEAD DCL112>
+ <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE78>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH DCL10>
+ <DEAD DCL10>
+ <CALL '\1aTYPE-CODE 1 = DCL112>
+ <JUMP + PHRASE80>
+PHRASE78
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAR26>
+ <DEAD VAR26>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = DCL112>
+PHRASE80
+ <PUSH DCL112>
+ <DEAD DCL112>
+ <PUSH 'WORD>
+ <CALL '\1aGEN-COMP-INST 3>
+PHRASE69
+ <VEQUAL? DIR7 '- - PHRASE83>
+ <DEAD DIR7>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 18>
+ <PUSH LABEL8>
+ <DEAD LABEL8>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <JUMP + COND82>
+PHRASE83
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 19>
+ <PUSH LABEL8>
+ <DEAD LABEL8>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+COND82
+ <FRAME '\1aGEN-LABEL>
+ <PUSH ELABEL9>
+ <DEAD ELABEL9>
+ <PUSH 'NORMAL>
+ <CALL '\1aGEN-LABEL 2>
+ <RETURN 'T>
+ <END \1aVAR-EQUAL-GEN>\r\0\r\0
+#WORD *5476044507*
+<GFCN \1aFRIENDLY-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 '\1aNEXT-AC>
+ <PUSH TAC6>
+ <CALL '\1aNEXT-AC 1 = TEMP9>
+ <EQUAL? VAC7 TEMP9 - PHRASE12>
+ <DEAD TEMP9>
+ <RETURN 'AC>
+PHRASE12
+ <TYPE? TAC6 <TYPE-CODE FALSE> - PHRASE16>
+ <FRAME '\1aAC-VAR-STORED?>
+ <PUSH VAR5>
+ <PUSH VAC7>
+ <CALL '\1aAC-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 '\1aAC-VAR-STORED?>
+ <PUSH VAR5>
+ <DEAD VAR5>
+ <PUSH TAC6>
+ <DEAD TAC6>
+ <CALL '\1aAC-VAR-STORED? 2 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE19>
+ <SET TEMP9 'T (TYPE ATOM)>
+PHRASE19
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aFRIENDLY-VAR?>
+#WORD *31335372067*
+<GFCN \1aCOMP-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 '\1aCOMPUTE-DIRECTION>
+ <PUSH DIR10>
+ <DEAD DIR10>
+ <PUSH MODE12>
+ <DEAD MODE12>
+ <CALL '\1aCOMPUTE-DIRECTION 2 = BRANCH-CODE14>
+ <TYPE? VAL18 <TYPE-CODE VARTBL> + PHRASE17>
+ <FRAME '\1aCONST-COMP-GEN>
+ <PUSH VAL18>
+ <DEAD VAL18>
+ <PUSH VAL29>
+ <DEAD VAL29>
+ <PUSH LABEL11>
+ <DEAD LABEL11>
+ <FRAME '\1aREVERSE-BC>
+ <PUSH BRANCH-CODE14>
+ <DEAD BRANCH-CODE14>
+ <CALL '\1aREVERSE-BC 1 = STACK>
+ <PUSH TYP13>
+ <DEAD TYP13>
+ <CALL '\1aCONST-COMP-GEN 5>
+ <JUMP + COND16>
+PHRASE17
+ <TYPE? VAL29 <TYPE-CODE VARTBL> + PHRASE20>
+ <FRAME '\1aCONST-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 '\1aCONST-COMP-GEN 5>
+ <JUMP + COND16>
+PHRASE20
+ <FRAME '\1aVAR-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 '\1aVAR-COMP-GEN 5>
+COND16
+ <FRAME '\1aCLEAR-STATUS>
+ <CALL '\1aCLEAR-STATUS 0>
+ <RETURN 'NORMAL>
+ <END \1aCOMP-GEN>\r\0\r\0
+#WORD *17747243327*
+<GFCN \1aCONST-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 '\1aFIX-CONSTANT?>
+ <PUSH CONST8>
+ <CALL '\1aFIX-CONSTANT? 1 = FIXCONST13>
+ <TYPE? FIXCONST13 <TYPE-CODE FALSE> + PHRASE17>
+ <VEQUAL? FIXCONST13 0 - PHRASE20 (TYPE FIX)>
+ <FRAME '\1aZERO-TEST-GEN>
+ <PUSH VAR9>
+ <DEAD VAR9>
+ <PUSH DIRCODE11>
+ <DEAD DIRCODE11>
+ <PUSH LABEL10>
+ <DEAD LABEL10>
+ <PUSH TYP12>
+ <DEAD TYP12>
+ <CALL '\1aZERO-TEST-GEN 4 = FIXCONST13>
+ <RETURN FIXCONST13>
+ <DEAD FIXCONST13>
+PHRASE20
+ <FRAME '\1aVAR-VALUE-IN-AC?>
+ <PUSH VAR9>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC14>
+ <TYPE? VAC14 <TYPE-CODE FALSE> + PHRASE25>
+ <FRAME '\1aGEN-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 '\1aFLOAT-IMM>
+ <FRAME '\1aFLOATCONVERT>
+ <PUSH CONST8>
+ <DEAD CONST8>
+ <CALL '\1aFLOATCONVERT 1 = STACK>
+ <CALL '\1aFLOAT-IMM 1 = VAC14>
+ <JUMP + PHRASE33>
+PHRASE30
+ <FRAME '\1aMA-IMM>
+ <PUSH FIXCONST13>
+ <DEAD FIXCONST13>
+ <CALL '\1aMA-IMM 1 = VAC14>
+PHRASE33
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <PUSH 'LONG>
+ <PUSH TYP12>
+ <DEAD TYP12>
+ <CALL '\1aGEN-COMP-INST 4>
+ <FRAME '\1aGEN-TEST-INST>
+ <PUSH DIRCODE11>
+ <DEAD DIRCODE11>
+ <PUSH LABEL10>
+ <DEAD LABEL10>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEST-INST 3 = FIXCONST13>
+ <RETURN FIXCONST13>
+ <DEAD FIXCONST13>
+PHRASE25
+ <FRAME '\1aGEN-COMP-INST>
+ <FRAME '\1aADDR-VAR-VALUE>
+ <PUSH VAR9>
+ <DEAD VAR9>
+ <CALL '\1aADDR-VAR-VALUE 1 = STACK>
+ <TYPE? CONST8 <TYPE-CODE FLOAT> - PHRASE40>
+ <FRAME '\1aFLOAT-IMM>
+ <FRAME '\1aFLOATCONVERT>
+ <PUSH CONST8>
+ <DEAD CONST8>
+ <CALL '\1aFLOATCONVERT 1 = STACK>
+ <CALL '\1aFLOAT-IMM 1 = VAC14>
+ <JUMP + PHRASE43>
+PHRASE40
+ <FRAME '\1aMA-IMM>
+ <PUSH FIXCONST13>
+ <DEAD FIXCONST13>
+ <CALL '\1aMA-IMM 1 = VAC14>
+PHRASE43
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <PUSH 'LONG>
+ <PUSH TYP12>
+ <DEAD TYP12>
+ <CALL '\1aGEN-COMP-INST 4>
+ <FRAME '\1aGEN-TEST-INST>
+ <PUSH DIRCODE11>
+ <DEAD DIRCODE11>
+ <PUSH LABEL10>
+ <DEAD LABEL10>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEST-INST 3 = FIXCONST13>
+ <RETURN FIXCONST13>
+ <DEAD FIXCONST13>
+PHRASE17
+ <FRAME '\1aGEN-COMP-INST>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR9>
+ <DEAD VAR9>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <FRAME '\1aADDR-VALUE-MQUOTE>
+ <PUSH CONST8>
+ <DEAD CONST8>
+ <CALL '\1aADDR-VALUE-MQUOTE 1 = STACK>
+ <PUSH 'LONG>
+ <PUSH TYP12>
+ <DEAD TYP12>
+ <CALL '\1aGEN-COMP-INST 4>
+ <FRAME '\1aGEN-TEST-INST>
+ <PUSH DIRCODE11>
+ <DEAD DIRCODE11>
+ <PUSH LABEL10>
+ <DEAD LABEL10>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEST-INST 3 = FIXCONST13>
+ <RETURN FIXCONST13>
+ <DEAD FIXCONST13>
+ <END \1aCONST-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 \1aMAKE-REVERSE ("VALUE" <UVECTOR FIX> ANY ANY) CODE5 REV-CODE6>
+ <TEMP TEMP8:UVECTOR>
+ <INTGO>
+ <FRAME '\1aPUT>
+ <GVAL 'REVERSE-TABLE = STACK>
+ <PUSH CODE5>
+ <DEAD CODE5>
+ <PUSH REV-CODE6>
+ <DEAD REV-CODE6>
+ <CALL '\1aPUT 3 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aMAKE-REVERSE>
+<COND (<NOT <GASSIGNED? BRANCHES>> <SETG BRANCHES <IUVECTOR 16 0>>)>
+
+<GDECL (BRANCHES) <UVECTOR [REST FIX]>>
+
+#WORD *23212117553*
+<GFCN \1aINIT-BRANCH-TABLES ("VALUE" <OR FALSE <UVECTOR [REST FIX]>>)>
+ <TEMP B5:UVECTOR TEMP21 TEMP23:LIST TEMP24>
+ <INTGO>
+ <GVAL 'BRANCHES = B5>
+ <FRAME '\1aMAKE-REVERSE>
+ <PUSH 7>
+ <PUSH 7>
+ <CALL '\1aMAKE-REVERSE 2>
+ <FRAME '\1aMAKE-REVERSE>
+ <PUSH 6>
+ <PUSH 6>
+ <CALL '\1aMAKE-REVERSE 2>
+ <FRAME '\1aMAKE-REVERSE>
+ <PUSH 15>
+ <PUSH 12>
+ <CALL '\1aMAKE-REVERSE 2>
+ <FRAME '\1aMAKE-REVERSE>
+ <PUSH 13>
+ <PUSH 14>
+ <CALL '\1aMAKE-REVERSE 2>
+ <FRAME '\1aMAKE-REVERSE>
+ <PUSH 12>
+ <PUSH 15>
+ <CALL '\1aMAKE-REVERSE 2>
+ <FRAME '\1aMAKE-REVERSE>
+ <PUSH 14>
+ <PUSH 13>
+ <CALL '\1aMAKE-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 \1aINIT-BRANCH-TABLES>
+#WORD *30716076222*
+<GFCN \1aCOMPUTE-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 '\1aERROR>
+ <PUSH "BAD DIRECTION">
+ <PUSH DIR5>
+ <DEAD DIR5>
+ <PUSH 'COMPUTE-DIRECTION>
+ <CALL '\1aERROR 3 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aCOMPUTE-DIRECTION>
+#WORD *20165503404*
+<GFCN \1aREVERSE-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 \1aREVERSE-BC>
+#WORD *7725222054*
+<GFCN \1aZERO-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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR8>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = VADDR13>
+ <TYPE? TYP11 <TYPE-CODE FALSE> - PHRASE20>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAR8>
+ <CALL '\1aVARTBL-DECL 1 = TYP11>
+PHRASE20
+ <FRAME '\1aSTATUS?>
+ <PUSH VAR8>
+ <PUSH 'VALUE>
+ <CALL '\1aSTATUS? 2 = STATUS?12>
+ <TYPE? STATUS?12 <TYPE-CODE FALSE> + BOOL24>
+ <TYPE? TYP11 <TYPE-CODE FALSE> - PHRASE23>
+BOOL24
+ <TYPE? TYP11 <TYPE-CODE FALSE> + PHRASE27>
+ <FRAME '\1aEMIT>
+ <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 '\1aEMIT 2>
+ <FRAME '\1aGEN-TEST-INST>
+ <PUSH DIRCODE9>
+ <DEAD DIRCODE9>
+ <PUSH LABEL10>
+ <DEAD LABEL10>
+ <PUSH STATUS?12>
+ <DEAD STATUS?12>
+ <CALL '\1aGEN-TEST-INST 3 = TEMP31>
+ <RETURN TEMP31>
+ <DEAD TEMP31>
+PHRASE27
+ <FRAME '\1aVAR-TYPE-IN-AC?>
+ <PUSH VAR8>
+ <CALL '\1aVAR-TYPE-IN-AC? 1 = TEMP31>
+ <TYPE? TEMP31 <TYPE-CODE FALSE> - BOOL37>
+ <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
+ <PUSH VAR8>
+ <CALL '\1aVAR-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 '\1aLOAD-VAR>
+ <PUSH VAR8>
+ <DEAD VAR8>
+ <PUSH 'TYPE>
+ <PUSH %<>>
+ <PUSH 'TYPE>
+ <CALL '\1aLOAD-VAR 4 = TEMP31>
+PHRASE42
+ <FRAME '\1aGEN-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 '\1aTYPE-CODE>
+ <PUSH 'FIX>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-CODE 2 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aGEN-COMP-INST 3>
+ <JUMP + PHRASE46>
+PHRASE36
+ <FRAME '\1aEMIT>
+ <PUSH 177>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAR8>
+ <DEAD VAR8>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'FIX>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-CODE 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aCLEAR-STATUS>
+ <CALL '\1aCLEAR-STATUS 0>
+PHRASE46
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 19>
+ <FRAME '\1aMAKE-LABEL>
+ <PUSH 'T>
+ <CALL '\1aMAKE-LABEL 1 = TEMP31>
+ <PUSH TEMP31>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aGEN-BRANCH 6>
+ <FRAME '\1aEMIT>
+ <PUSH 83>
+ <PUSH VADDR13>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aGEN-TEST-INST>
+ <PUSH DIRCODE9>
+ <PUSH LABEL10>
+ <PUSH STATUS?12>
+ <CALL '\1aGEN-TEST-INST 3>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 17>
+ <FRAME '\1aMAKE-LABEL>
+ <PUSH 'T>
+ <CALL '\1aMAKE-LABEL 1 = TEMP40>
+ <PUSH TEMP40>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aGEN-BRANCH 6>
+ <FRAME '\1aGEN-LABEL>
+ <PUSH TEMP31>
+ <DEAD TEMP31>
+ <PUSH 'NORMAL>
+ <CALL '\1aGEN-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 213>
+ <PUSH VADDR13>
+ <DEAD VADDR13>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aGEN-TEST-INST>
+ <PUSH DIRCODE9>
+ <DEAD DIRCODE9>
+ <PUSH LABEL10>
+ <DEAD LABEL10>
+ <PUSH STATUS?12>
+ <DEAD STATUS?12>
+ <CALL '\1aGEN-TEST-INST 3>
+ <FRAME '\1aGEN-LABEL>
+ <PUSH TEMP40>
+ <DEAD TEMP40>
+ <PUSH 'NORMAL>
+ <CALL '\1aGEN-LABEL 2 = TEMP31>
+ <RETURN TEMP31>
+ <DEAD TEMP31>
+PHRASE23
+ <FRAME '\1aGEN-TEST-INST>
+ <PUSH DIRCODE9>
+ <DEAD DIRCODE9>
+ <PUSH LABEL10>
+ <DEAD LABEL10>
+ <PUSH STATUS?12>
+ <DEAD STATUS?12>
+ <CALL '\1aGEN-TEST-INST 3 = TEMP31>
+ <RETURN TEMP31>
+ <DEAD TEMP31>
+ <END \1aZERO-TEST-GEN>
+#WORD *23772161172*
+<GFCN \1aGEN-TEST-INST ("VALUE" ANY FIX ATOM ANY) DIRCODE5 LABEL6 STATUS?7>
+ <TEMP TEMP9:UVECTOR TEMP10>
+ <INTGO>
+ <FRAME '\1aGEN-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 '\1aGEN-BRANCH 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aGEN-TEST-INST>
+#WORD *32611100457*
+<GFCN \1aGEN-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 '\1aEMIT>
+ <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 '\1aERROR>
+ <PUSH "BAD SIZE">
+ <PUSH SZ12>
+ <DEAD SZ12>
+ <CALL '\1aERROR 2 = TEMP20>
+PHRASE24
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <PUSH VAR10>
+ <DEAD VAR10>
+ <PUSH ADDR11>
+ <DEAD ADDR11>
+ <CALL '\1aEMIT 3 = TEMP20>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+ <END \1aGEN-COMP-INST>
+#WORD *2005033174*
+<GFCN \1aVAR-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 '\1aVAR-VALUE-IN-AC?>
+ <PUSH VAR18>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC13>
+ <TYPE? VAC13 <TYPE-CODE FALSE> + PHRASE15>
+ <FRAME '\1aVAR-AC-COMP>
+ <PUSH VAR29>
+ <DEAD VAR29>
+ <PUSH VAC13>
+ <DEAD VAC13>
+ <PUSH LABEL10>
+ <DEAD LABEL10>
+ <PUSH DIR11>
+ <DEAD DIR11>
+ <PUSH TYP12>
+ <DEAD TYP12>
+ <CALL '\1aVAR-AC-COMP 5 = VAC13>
+ <RETURN VAC13>
+ <DEAD VAC13>
+PHRASE15
+ <FRAME '\1aVAR-VALUE-IN-AC?>
+ <PUSH VAR29>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC13>
+ <TYPE? VAC13 <TYPE-CODE FALSE> + PHRASE19>
+ <FRAME '\1aVAR-AC-COMP>
+ <PUSH VAR18>
+ <DEAD VAR18>
+ <PUSH VAC13>
+ <DEAD VAC13>
+ <PUSH LABEL10>
+ <DEAD LABEL10>
+ <FRAME '\1aREVERSE-BC>
+ <PUSH DIR11>
+ <DEAD DIR11>
+ <CALL '\1aREVERSE-BC 1 = STACK>
+ <PUSH TYP12>
+ <DEAD TYP12>
+ <CALL '\1aVAR-AC-COMP 5 = VAC13>
+ <RETURN VAC13>
+ <DEAD VAC13>
+PHRASE19
+ <FRAME '\1aEMIT>
+ <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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR18>
+ <DEAD VAR18>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR29>
+ <DEAD VAR29>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aGEN-TEST-INST>
+ <PUSH DIR11>
+ <DEAD DIR11>
+ <PUSH LABEL10>
+ <DEAD LABEL10>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEST-INST 3 = VAC13>
+ <RETURN VAC13>
+ <DEAD VAC13>
+ <END \1aVAR-COMP-GEN>\r\0\r\0
+#WORD *30525317470*
+<GFCN \1aVAR-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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR8>
+ <DEAD VAR8>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = VADDR13>
+ <FRAME '\1aGEN-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 '\1aGEN-COMP-INST 4>
+ <FRAME '\1aGEN-TEST-INST>
+ <PUSH DIR11>
+ <DEAD DIR11>
+ <PUSH LABEL10>
+ <DEAD LABEL10>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEST-INST 3 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aVAR-AC-COMP>
+<MSETG 32MIN 2147483647>
+
+<MSETG 32MAX <CHTYPE #WORD *20000000001* FIX>>
+
+#WORD *35615312412*
+<GFCN \1aFIX-CONSTANT? ("VALUE" <OR FALSE FIX> ANY) CONST5>
+ <TEMP TEMP9>
+ <INTGO>
+ <TYPE? CONST5 <TYPE-CODE FLOAT> - PHRASE7>
+ <FRAME '\1aFLOATCONVERT>
+ <PUSH CONST5>
+ <DEAD CONST5>
+ <CALL '\1aFLOATCONVERT 1 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE7
+ <FRAME '\1aTYPEPRIM>
+ <FRAME '\1aTYPE>
+ <PUSH CONST5>
+ <CALL '\1aTYPE 1 = STACK>
+ <CALL '\1aTYPEPRIM 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 '\1aTYPEPRIM>
+ <FRAME '\1aTYPE>
+ <PUSH CONST5>
+ <CALL '\1aTYPE 1 = STACK>
+ <CALL '\1aTYPEPRIM 1 = TEMP9>
+ <EQUAL? TEMP9 'LIST + TAG19>
+ <DEAD TEMP9>
+ <RETURN %<>>
+TAG19
+ <EMPTY? CONST5 + TAG22>
+ <DEAD CONST5>
+ <RETURN %<>>
+TAG22
+ <RETURN 0>
+ <END \1aFIX-CONSTANT?>
+#WORD *31125177710*
+ <GFCN \1aFLOATCONVERT ("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 \1aFLOATCONVERT>
+
+#WORD *36727716531*
+<GFCN \1aFLOAT-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 '\1aMA-IMM>
+ <GETBITS X5 6 4 = STACK>
+ <DEAD X5>
+ <CALL '\1aMA-IMM 1 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE7
+ <FRAME '\1aMA-IMM>
+ <PUSH X5>
+ <DEAD X5>
+ <CALL '\1aMA-IMM 1 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aFLOAT-IMM>
+#WORD *35102214650*
+<GFCN \1aSUBFIX-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 '\1aARITH-GEN>
+ <PUSH 194>
+ <PUSH 195>
+ <PUSH OP18>
+ <DEAD OP18>
+ <PUSH OP29>
+ <DEAD OP29>
+ <PUSH DEST10>
+ <DEAD DEST10>
+ <PUSH %<>>
+ <GVAL '- = STACK>
+ <PUSH 'FIX>
+ <CALL '\1aARITH-GEN 8 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aSUBFIX-GEN>
+#WORD *13237175603*
+<GFCN \1aTYPE-TST-GEN ("VALUE" ATOM VARTBL <OR ATOM VARTBL> ATOM ANY) VAR5 TNAME6 DIR7 DEST8>
+ <TEMP DCL10 TEMP16 TEMP35 TEMP36>
+ <INTGO>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAR5>
+ <CALL '\1aVARTBL-DECL 1 = DCL10>
+ <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE12>
+ <FRAME '\1aCLEAN-DECL>
+ <PUSH TNAME6>
+ <CALL '\1aCLEAN-DECL 1 = TEMP16>
+ <EQUAL? TEMP16 'UNBOUND + PHRASE12>
+ <DEAD TEMP16>
+ <EQUAL? TNAME6 'T$UNBOUND + PHRASE12>
+ <FRAME '\1aSAFE-TYPE-WORD?>
+ <PUSH VAR5>
+ <CALL '\1aSAFE-TYPE-WORD? 1 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE12>
+ <DEAD TEMP16>
+ <FRAME '\1aERROR>
+ <PUSH "WARNING: TYPE KNOWN">
+ <NTHUV VAR5 1 = STACK (TYPE ATOM)>
+ <DEAD VAR5>
+ <CALL '\1aERROR 2>
+ <EQUAL? TNAME6 DCL10 - PHRASE20>
+ <VEQUAL? DIR7 '+ - PHRASE20>
+ <FRAME '\1aGEN-BRANCH>
+ <GVAL 'INST-BBR = STACK>
+ <PUSH DEST8>
+ <DEAD DEST8>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <RETURN 'NORMAL>
+PHRASE20
+ <EQUAL? TNAME6 DCL10 + COND57>
+ <DEAD TNAME6>
+ <VEQUAL? DIR7 '- - COND57>
+ <DEAD DIR7>
+ <FRAME '\1aGEN-BRANCH>
+ <GVAL 'INST-BBR = STACK>
+ <PUSH DEST8>
+ <DEAD DEST8>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <RETURN 'NORMAL>
+PHRASE12
+ <FRAME '\1aVAR-TYPE-IN-AC?>
+ <PUSH VAR5>
+ <CALL '\1aVAR-TYPE-IN-AC? 1 = DCL10>
+ <TYPE? DCL10 <TYPE-CODE FALSE> - BOOL29>
+ <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
+ <PUSH VAR5>
+ <CALL '\1aVAR-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 '\1aLOAD-VAR>
+ <PUSH VAR5>
+ <DEAD VAR5>
+ <PUSH 'TYPE>
+ <PUSH %<>>
+ <PUSH 'TYPE>
+ <CALL '\1aLOAD-VAR 4 = DCL10>
+PHRASE38
+ <TYPE? TNAME6 <TYPE-CODE VARTBL> - PHRASE41>
+ <FRAME '\1aGEN-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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH TNAME6>
+ <DEAD TNAME6>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aGEN-COMP-INST 3>
+ <JUMP + PHRASE52>
+PHRASE41
+ <FRAME '\1aGEN-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 '\1aTYPE-CODE>
+ <PUSH TNAME6>
+ <DEAD TNAME6>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-CODE 2 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aGEN-COMP-INST 3>
+ <JUMP + PHRASE52>
+PHRASE28
+ <EQUAL? TNAME6 'T$UNBOUND + BOOL47>
+ <FRAME '\1aCLEAN-DECL>
+ <PUSH TNAME6>
+ <CALL '\1aCLEAN-DECL 1 = TEMP16>
+ <EQUAL? TEMP16 'UNBOUND - PHRASE46>
+ <DEAD TEMP16>
+BOOL47
+ <FRAME '\1aEMIT>
+ <PUSH 181>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAR5>
+ <DEAD VAR5>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aCLEAR-STATUS>
+ <CALL '\1aCLEAR-STATUS 0>
+ <JUMP + PHRASE52>
+PHRASE46
+ <FRAME '\1aEMIT>
+ <PUSH 177>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAR5>
+ <DEAD VAR5>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TNAME6>
+ <DEAD TNAME6>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-CODE 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aCLEAR-STATUS>
+ <CALL '\1aCLEAR-STATUS 0>
+PHRASE52
+ <VEQUAL? DIR7 '+ - PHRASE58>
+ <DEAD DIR7>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 19>
+ <PUSH DEST8>
+ <DEAD DEST8>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <RETURN 'NORMAL>
+PHRASE58
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 18>
+ <PUSH DEST8>
+ <DEAD DEST8>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+COND57
+ <RETURN 'NORMAL>
+ <END \1aTYPE-TST-GEN>
+#WORD *13073406326*
+<GFCN \1aMULFIX-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 '\1aARITH-GEN>
+ <PUSH 196>
+ <PUSH 197>
+ <PUSH OP18>
+ <DEAD OP18>
+ <PUSH OP29>
+ <DEAD OP29>
+ <PUSH DEST10>
+ <DEAD DEST10>
+ <PUSH 'T>
+ <GVAL '* = STACK>
+ <PUSH 'FIX>
+ <CALL '\1aARITH-GEN 8 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aMULFIX-GEN>
+#WORD *11625250372*
+<GFCN \1aPWR2? ("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 \1aPWR2?>
+#WORD *15122514642*
+<GFCN \1aDIVFIX-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 '\1aARITH-GEN>
+ <PUSH 198>
+ <PUSH 199>
+ <PUSH OP18>
+ <DEAD OP18>
+ <PUSH OP29>
+ <DEAD OP29>
+ <PUSH DEST10>
+ <DEAD DEST10>
+ <PUSH %<>>
+ <GVAL '/ = STACK>
+ <PUSH 'FIX>
+ <CALL '\1aARITH-GEN 8 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aDIVFIX-GEN>
+#WORD *36040253203*
+<GFCN \1aMODFIX-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 '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = LAB114>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = LAB215>
+ <FRAME '\1aGET-AC>
+ <PUSH 'DOUBLE>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = VAC12>
+ <TYPE? ITM18 <TYPE-CODE FIX> - PHRASE20>
+ <LESS? ITM18 0 + PHRASE20 (TYPE FIX)>
+ <GRTR? ITM18 63 + PHRASE20 (TYPE FIX)>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <FRAME '\1aMA-IMM>
+ <PUSH ITM18>
+ <DEAD ITM18>
+ <CALL '\1aMA-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 '\1aEMIT 3>
+ <JUMP + PHRASE35>
+PHRASE20
+ <TYPE? ITM18 <TYPE-CODE FIX> - PHRASE27>
+ <FRAME '\1aEMIT>
+ <PUSH 212>
+ <FRAME '\1aNEXT-AC>
+ <PUSH VAC12>
+ <CALL '\1aNEXT-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 '\1aEMIT 2>
+ <FRAME '\1aLOAD-CONSTANT>
+ <PUSH VAC12>
+ <PUSH ITM18>
+ <DEAD ITM18>
+ <CALL '\1aLOAD-CONSTANT 2>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 24>
+ <PUSH LAB114>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT>
+ <PUSH 210>
+ <LSH 0 24 = TEMP26 (TYPE FIX)>
+ <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP26>
+ <FRAME '\1aNEXT-AC>
+ <PUSH VAC12>
+ <CALL '\1aNEXT-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 '\1aEMIT 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH LAB114>
+ <DEAD LAB114>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <JUMP + PHRASE35>
+PHRASE27
+ <FRAME '\1aEMIT>
+ <PUSH 212>
+ <FRAME '\1aNEXT-AC>
+ <PUSH VAC12>
+ <CALL '\1aNEXT-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 '\1aEMIT 2>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH ITM18>
+ <DEAD ITM18>
+ <PUSH 'JUST-VALUE>
+ <PUSH 'T>
+ <PUSH VAC12>
+ <CALL '\1aLOAD-VAR 4>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 24>
+ <PUSH LAB114>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT>
+ <PUSH 210>
+ <LSH 0 24 = TEMP26 (TYPE FIX)>
+ <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP26>
+ <FRAME '\1aNEXT-AC>
+ <PUSH VAC12>
+ <CALL '\1aNEXT-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 '\1aEMIT 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH LAB114>
+ <DEAD LAB114>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+PHRASE35
+ <FRAME '\1aEMIT>
+ <PUSH 123>
+ <TYPE? ITM29 <TYPE-CODE FIX> - PHRASE45>
+ <FRAME '\1aMA-IMM>
+ <PUSH ITM29>
+ <CALL '\1aMA-IMM 1 = TEMP26>
+ <JUMP + PHRASE50>
+PHRASE45
+ <FRAME '\1aVAR-VALUE-IN-AC?>
+ <PUSH ITM29>
+ <CALL '\1aVAR-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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH ITM29>
+ <CALL '\1aVAR-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 '\1aNEXT-AC>
+ <PUSH VAC12>
+ <CALL '\1aNEXT-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 '\1aEMIT 5>
+ <FRAME '\1aEMIT>
+ <PUSH 213>
+ <FRAME '\1aNEXT-AC>
+ <PUSH VAC12>
+ <CALL '\1aNEXT-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 '\1aEMIT 2>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 24>
+ <PUSH LAB215>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <TYPE? ITM29 <TYPE-CODE FIX> - PHRASE58>
+ <FRAME '\1aMA-IMM>
+ <PUSH ITM29>
+ <DEAD ITM29>
+ <CALL '\1aMA-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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH ITM29>
+ <DEAD ITM29>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = LAB114>
+PHRASE61
+ <PUSH LAB114>
+ <DEAD LAB114>
+ <FRAME '\1aNEXT-AC>
+ <PUSH VAC12>
+ <CALL '\1aNEXT-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 '\1aEMIT 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH LAB215>
+ <DEAD LAB215>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aDEST-DECL>
+ <FRAME '\1aNEXT-AC>
+ <PUSH VAC12>
+ <DEAD VAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH RES10>
+ <DEAD RES10>
+ <PUSH 'FIX>
+ <CALL '\1aDEST-DECL 3>
+ <RETURN 'NORMAL>
+ <END \1aMODFIX-GEN>\r\0\r\0
+#WORD *10005621776*
+<GFCN \1aADDF-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 '\1aARITH-GEN>
+ <PUSH 64>
+ <PUSH 65>
+ <PUSH OP18>
+ <DEAD OP18>
+ <PUSH OP29>
+ <DEAD OP29>
+ <PUSH DEST10>
+ <DEAD DEST10>
+ <PUSH 'T>
+ <GVAL '+ = STACK>
+ <PUSH 'FLOAT>
+ <CALL '\1aARITH-GEN 8 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aADDF-GEN>
+#WORD *32165773205*
+<GFCN \1aSUBF-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 '\1aARITH-GEN>
+ <PUSH 66>
+ <PUSH 67>
+ <PUSH OP18>
+ <DEAD OP18>
+ <PUSH OP29>
+ <DEAD OP29>
+ <PUSH DEST10>
+ <DEAD DEST10>
+ <PUSH %<>>
+ <GVAL '- = STACK>
+ <PUSH 'FLOAT>
+ <CALL '\1aARITH-GEN 8 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aSUBF-GEN>
+#WORD *14014161773*
+<GFCN \1aMULF-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 '\1aARITH-GEN>
+ <PUSH 68>
+ <PUSH 69>
+ <PUSH OP18>
+ <DEAD OP18>
+ <PUSH OP29>
+ <DEAD OP29>
+ <PUSH DEST10>
+ <DEAD DEST10>
+ <PUSH 'T>
+ <GVAL '* = STACK>
+ <PUSH 'FLOAT>
+ <CALL '\1aARITH-GEN 8 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aMULF-GEN>
+#WORD *12145073217*
+<GFCN \1aDIVF-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 '\1aARITH-GEN>
+ <PUSH 70>
+ <PUSH 71>
+ <PUSH OP18>
+ <DEAD OP18>
+ <PUSH OP29>
+ <DEAD OP29>
+ <PUSH DEST10>
+ <DEAD DEST10>
+ <PUSH %<>>
+ <GVAL '/ = STACK>
+ <PUSH 'FLOAT>
+ <CALL '\1aARITH-GEN 8 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aDIVF-GEN>
+#WORD *4271747732*
+<GFCN \1aFIX-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 '\1aVAR-VALUE-IN-AC?>
+ <PUSH VAL18>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC11>
+ <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE13>
+ <FRAME '\1aAVAILABLE?>
+ <PUSH VAC11>
+ <CALL '\1aAVAILABLE? 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE13>
+ <DEAD TEMP17>
+ <FRAME '\1aEMIT>
+ <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 '\1aEMIT 3>
+ <JUMP + PHRASE19>
+PHRASE13
+ <FRAME '\1aEMIT>
+ <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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAL18>
+ <DEAD VAL18>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP17>
+PHRASE23
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-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 '\1aEMIT 3>
+PHRASE19
+ <FRAME '\1aDEST-DECL>
+ <PUSH VAC11>
+ <DEAD VAC11>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH 'FIX>
+ <CALL '\1aDEST-DECL 3 = TEMP17>
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aFIX-GEN>
+#WORD *10551706772*
+<GFCN \1aFLOAT-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 '\1aVAR-VALUE-IN-AC?>
+ <PUSH VAL18>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC11>
+ <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE13>
+ <FRAME '\1aAVAILABLE?>
+ <PUSH VAC11>
+ <CALL '\1aAVAILABLE? 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE13>
+ <DEAD TEMP17>
+ <FRAME '\1aEMIT>
+ <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 '\1aEMIT 3>
+ <JUMP + PHRASE19>
+PHRASE13
+ <FRAME '\1aEMIT>
+ <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 '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAL18>
+ <DEAD VAL18>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP17>
+PHRASE23
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-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 '\1aEMIT 3>
+PHRASE19
+ <FRAME '\1aDEST-DECL>
+ <PUSH VAC11>
+ <DEAD VAC11>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH 'FLOAT>
+ <CALL '\1aDEST-DECL 3 = TEMP17>
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aFLOAT-GEN>
+#WORD *3177653421*
+<GFCN \1aRANDOM-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 '\1aCALL-RTE>
+ <GVAL 'IRANDOM!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH 'FLOAT>
+ <PUSH VAL18>
+ <DEAD VAL18>
+ <CALL '\1aCALL-RTE 5 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aRANDOM-GEN>
projects / pdp10-muddle.git / blobdiff