--- /dev/null
+
+<SETG LB-DOPE <+ <CHTYPE <LSH 18 16> FIX> 32 770>>
+
+<SETG LB-OBJ 0>
+
+<SETG LB-ATOM 8>
+
+<SETG LB-DECL 12>
+
+<SETG LB-PREV 20>
+
+<SETG LB-LAST 24>
+
+<SETG LB-BID 28>
+
+<MANIFEST LB-DOPE LB-OBJ LB-ATOM LB-DECL LB-PREV LB-LAST LB-BID>
+
+#WORD *17217611322*
+ <GFCN \1aGEN-BBIND ("VALUE" ATOM ATOM ANY <OR ATOM FALSE> "OPTIONAL" ANY) ATM6 DECL7 FIXUP?8 INIT9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP AC10 TEMP23 TEMP28>
+ <INTGO>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aMA-IMM>
+ <PUSH 1180450>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <TYPE? INIT9 <TYPE-CODE UNBOUND> + PHRASE15>
+ <FRAME '\1aPUSH-GEN>
+ <PUSH INIT9>
+ <DEAD INIT9>
+ <CALL '\1aPUSH-GEN 1>
+ <JUMP + PHRASE17>
+PHRASE15
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aMA-IMM>
+ <PUSH 0>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-PUSH 2>
+PHRASE17
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = AC10>
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aADDR-VALUE-MQUOTE>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <CALL '\1aADDR-VALUE-MQUOTE 1 = STACK>
+ <NTHUV AC10 2 = TEMP23 (TYPE FIX)>
+ <OR TEMP23 #WORD *120* = TEMP23>
+ <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
+ <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
+ <PUSH TEMP23>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aEMIT-MOVE>
+ <PUSH TEMP23>
+ <DEAD TEMP23>
+ <GVAL 'AC-TP = TEMP23>
+ <NTHUV TEMP23 2 = TEMP23 (TYPE FIX)>
+ <OR TEMP23 #WORD *200* = TEMP23>
+ <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
+ <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP23>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aPUSH-GEN>
+ <PUSH DECL7>
+ <DEAD DECL7>
+ <CALL '\1aPUSH-GEN 1>
+ <FRAME '\1aEMIT-PUSH>
+ <GVAL 'AC-PC = TEMP23>
+ <NTHUV TEMP23 2 = TEMP23 (TYPE FIX)>
+ <OR TEMP23 #WORD *220* = TEMP23>
+ <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
+ <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
+ <CONS TEMP23 () = TEMP23>
+ <FRAME '\1aLREV>
+ <GVAL 'SPSTO-LOC = STACK>
+ <CALL '\1aLREV 1 = TEMP28>
+ <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
+ <CONS TEMP28 () = TEMP28>
+ <PUTREST TEMP23 TEMP28>
+ <DEAD TEMP28>
+ <CHTYPE TEMP23 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP23>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aMA-DISP>
+ <PUSH AC10>
+ <PUSH 4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <GVAL 'AC-PC = TEMP23>
+ <NTHUV TEMP23 2 = TEMP23 (TYPE FIX)>
+ <OR TEMP23 #WORD *220* = TEMP23>
+ <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
+ <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
+ <CONS TEMP23 () = TEMP23>
+ <FRAME '\1aLREV>
+ <GVAL 'BINDID-LOC = STACK>
+ <CALL '\1aLREV 1 = TEMP28>
+ <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
+ <CONS TEMP28 () = TEMP28>
+ <PUTREST TEMP23 TEMP28>
+ <DEAD TEMP28>
+ <CHTYPE TEMP23 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP23>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT>
+ <PUSH 222>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <PUSH -32>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <GVAL 'AC-PC = TEMP23>
+ <NTHUV TEMP23 2 = TEMP23 (TYPE FIX)>
+ <OR TEMP23 #WORD *220* = TEMP23>
+ <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
+ <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
+ <CONS TEMP23 () = TEMP23>
+ <FRAME '\1aLREV>
+ <GVAL 'SPSTO-LOC = STACK>
+ <CALL '\1aLREV 1 = TEMP28>
+ <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
+ <CONS TEMP28 () = TEMP28>
+ <PUTREST TEMP23 TEMP28>
+ <DEAD TEMP28>
+ <CHTYPE TEMP23 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP23>
+ <CALL '\1aEMIT 3>
+ <TYPE? FIXUP?8 <TYPE-CODE FALSE> + PHRASE37>
+ <DEAD FIXUP?8>
+ <FRAME '\1aEMIT>
+ <PUSH 222>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <PUSH -32>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <NTHUV AC10 2 = TEMP23 (TYPE FIX)>
+ <DEAD AC10>
+ <OR TEMP23 #WORD *340* = TEMP23>
+ <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
+ <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
+ <CONS TEMP23 () = TEMP23>
+ <FRAME '\1aLREV>
+ <PUSH 4>
+ <CALL '\1aLREV 1 = TEMP28>
+ <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
+ <CONS TEMP28 () = TEMP28>
+ <PUTREST TEMP23 TEMP28>
+ <DEAD TEMP28>
+ <CHTYPE TEMP23 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP23>
+ <CALL '\1aEMIT 3>
+PHRASE37
+ <RETURN 'NORMAL>
+ <END \1aGEN-BBIND>
+
+#WORD *5263336007*
+ <GFCN \1aGEN-ASSIGNED? ("VALUE" ATOM ANY ANY ANY) FROB4 DIR5 LABEL6>
+ <TEMP TEMP9>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IASSQ!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH FROB4>
+ <DEAD FROB4>
+ <CALL '\1aCALL-RTE 5>
+ <FRAME '\1aEMIT>
+ <PUSH 213>
+ <GVAL 'AC-1 = TEMP9>
+ <NTHUV TEMP9 2 = TEMP9 (TYPE FIX)>
+ <OR TEMP9 #WORD *120* = TEMP9>
+ <LSH TEMP9 24 = TEMP9 (TYPE FIX)>
+ <CHTYPE TEMP9 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP9>
+ <CALL '\1aEMIT 2>
+ <EQUAL? DIR5 '- - PHRASE11>
+ <DEAD DIR5>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 19>
+ <PUSH LABEL6>
+ <DEAD LABEL6>
+ <PUSH 'CONDITIONAL-BRANCH>
+ <CALL '\1aGEN-BRANCH 3>
+ <RETURN 'CONDITIONAL-BRANCH>
+PHRASE11
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 18>
+ <PUSH LABEL6>
+ <DEAD LABEL6>
+ <PUSH 'CONDITIONAL-BRANCH>
+ <CALL '\1aGEN-BRANCH 3>
+ <RETURN 'CONDITIONAL-BRANCH>
+ <END \1aGEN-ASSIGNED?>
+
+#WORD *17215554571*
+ <GFCN \1aGEN-LVAL ("VALUE" ATOM <OR ATOM VARTBL> ANY) ATM4 RES5>
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'ILVAL!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES5>
+ <DEAD RES5>
+ <PUSH %<>>
+ <PUSH ATM4>
+ <DEAD ATM4>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aGEN-LVAL>
+
+#WORD *14271027403*
+ <GFCN \1aGEN-SET ("VALUE" ATOM ANY ANY) ATM4 VAL5>
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'ISET!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH ATM4>
+ <DEAD ATM4>
+ <PUSH VAL5>
+ <DEAD VAL5>
+ <CALL '\1aCALL-RTE 6>
+ <RETURN 'NORMAL>
+ <END \1aGEN-SET>
+
+#WORD *30670023021*
+ <GFCN \1aMOVSTK-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY ANY) AMT8 RES9 HINT10 TYP11>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <PUSH #T$UNBOUND 0>
+OPT7
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IMOVSTK!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH %<>>
+ <PUSH AMT8>
+ <DEAD AMT8>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aMOVSTK-GEN>
+
+#WORD *1461513520*
+ <GFCN \1aGETSTK-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY ANY) UV8 RES9 HINT10 TYP11>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <PUSH #T$UNBOUND 0>
+OPT7
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IGETSTK!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH %<>>
+ <PUSH UV8>
+ <DEAD UV8>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aGETSTK-GEN>
+
+#WORD *13700674530*
+ <GFCN \1aGETTTY-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY ANY) FROB8 RES9 HINT10 TYP11>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <PUSH #T$UNBOUND 0>
+OPT7
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IGETTTY!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH %<>>
+ <PUSH FROB8>
+ <DEAD FROB8>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aGETTTY-GEN>
+
+#WORD *7577763157*
+ <GFCN \1aSAVTTY-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY ANY ANY) OLD8 NEW9 RES10 HINT11 TYP12>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <PUSH #T$UNBOUND 0>
+OPT7
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'ISAVTTY!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES10>
+ <DEAD RES10>
+ <PUSH %<>>
+ <PUSH OLD8>
+ <DEAD OLD8>
+ <PUSH NEW9>
+ <DEAD NEW9>
+ <CALL '\1aCALL-RTE 6>
+ <RETURN 'NORMAL>
+ <END \1aSAVTTY-GEN>
+
+#WORD *14216610552*
+ <GFCN \1aSETZONE-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY ANY) ZONE8 RES9 HINT10 TYP11>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <PUSH #T$UNBOUND 0>
+OPT7
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'ISETZONE!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH %<>>
+ <PUSH ZONE8>
+ <DEAD ZONE8>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aSETZONE-GEN>
+
+#WORD *12314570650*
+ <GFCN \1aLEGAL-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY ANY) OBJ8 RES9 HINT10 TYP11>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <PUSH #T$UNBOUND 0>
+OPT7
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'ILEGAL?!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH %<>>
+ <PUSH OBJ8>
+ <DEAD OBJ8>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aLEGAL-GEN>
+
+#WORD *13221765640*
+ <GFCN \1aTEMPLATE-TABLE-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY) OFFS6 TBL7 HINT8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'ITTABLE!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH OFFS6>
+ <DEAD OFFS6>
+ <PUSH TBL7>
+ <DEAD TBL7>
+ <CALL '\1aCALL-RTE 6>
+ <RETURN 'NORMAL>
+ <END \1aTEMPLATE-TABLE-GEN>
+
+#WORD *37771467564*
+ <GFCN \1aFATAL-GEN ("VALUE" ATOM "OPTIONAL" ANY ANY) STR7 HINT8>
+ <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IFATAL!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH STR7>
+ <DEAD STR7>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aFATAL-GEN>
+
+#WORD *17255152210*
+ <GFCN \1aQUIT-GEN ("VALUE" ATOM "OPTIONAL" ANY ANY) ARG7 HINT8>
+ <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH -1>
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IQUIT!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH ARG7>
+ <DEAD ARG7>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aQUIT-GEN>
+
+#WORD *2144160714*
+ <GFCN \1aCONS-GEN ("VALUE" ATOM ANY <OR VARTBL LIST> <OR VARTBL ATOM> "OPTIONAL" ANY) NEARG6 LARG7 RES8 HINT9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'ICONS!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES8>
+ <DEAD RES8>
+ <PUSH 'LIST>
+ <PUSH LARG7>
+ <DEAD LARG7>
+ <PUSH NEARG6>
+ <DEAD NEARG6>
+ <CALL '\1aCALL-RTE 6>
+ <RETURN 'NORMAL>
+ <END \1aCONS-GEN>
+
+#WORD *22701133236*
+ <GFCN \1aUBLOCK-GEN ("VALUE" ATOM ATOM <OR FIX VARTBL> ANY "OPTIONAL" ANY) TYPARG6 NUMARG7 RES8 HINT9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP VEC10 TEMP18>
+ <INTGO>
+ <FRAME '\1aGET-AC>
+ <GVAL 'AC-0 = STACK>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2>
+ <GVAL 'TYPE-WORDS = VEC10>
+ <EMPUV? VEC10 + TAG14>
+ <LOOP (TYPARG6 VALUE) (VEC10 LENGTH VALUE)>
+TAG16
+ <NTHUV VEC10 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17>
+ <VEQUAL? TEMP18 TYPARG6 + TAG15>
+ <DEAD TEMP18>
+TAG17
+ <RESTUV VEC10 1 = VEC10 (TYPE VECTOR)>
+ <EMPUV? VEC10 - TAG16>
+TAG14
+ <SET VEC10 %<> (TYPE FALSE)>
+TAG15
+ <VEQUAL? VEC10 0 + PHRASE13>
+ <FRAME '\1aLOAD-CONSTANT>
+ <GVAL 'AC-0 = STACK>
+ <NTHUV VEC10 2 = STACK>
+ <DEAD VEC10>
+ <CALL '\1aLOAD-CONSTANT 2>
+ <JUMP + PHRASE20>
+PHRASE13
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TYPARG6>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <GVAL 'AC-0 = TEMP18>
+ <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP18>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+PHRASE20
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IBLOCK!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES8>
+ <DEAD RES8>
+ <PUSH TYPARG6>
+ <DEAD TYPARG6>
+ <PUSH NUMARG7>
+ <DEAD NUMARG7>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aUBLOCK-GEN>
+
+#WORD *6501567264*
+ <GFCN \1aUUBLOCK-GEN ("VALUE" ATOM ATOM <OR FIX VARTBL> ANY "OPTIONAL" ANY) TYPARG6 NUMARG7 RES8 HINT9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP VEC10 TEMP18>
+ <INTGO>
+ <FRAME '\1aGET-AC>
+ <GVAL 'AC-0 = STACK>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2>
+ <GVAL 'TYPE-WORDS = VEC10>
+ <EMPUV? VEC10 + TAG14>
+ <LOOP (TYPARG6 VALUE) (VEC10 LENGTH VALUE)>
+TAG16
+ <NTHUV VEC10 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17>
+ <VEQUAL? TEMP18 TYPARG6 + TAG15>
+ <DEAD TEMP18>
+TAG17
+ <RESTUV VEC10 1 = VEC10 (TYPE VECTOR)>
+ <EMPUV? VEC10 - TAG16>
+TAG14
+ <SET VEC10 %<> (TYPE FALSE)>
+TAG15
+ <VEQUAL? VEC10 0 + PHRASE13>
+ <FRAME '\1aLOAD-CONSTANT>
+ <GVAL 'AC-0 = STACK>
+ <NTHUV VEC10 2 = STACK>
+ <DEAD VEC10>
+ <CALL '\1aLOAD-CONSTANT 2>
+ <JUMP + PHRASE20>
+PHRASE13
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TYPARG6>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <GVAL 'AC-0 = TEMP18>
+ <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP18>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+PHRASE20
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'UIBLOCK!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES8>
+ <DEAD RES8>
+ <PUSH TYPARG6>
+ <DEAD TYPARG6>
+ <PUSH NUMARG7>
+ <DEAD NUMARG7>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aUUBLOCK-GEN>
+
+#WORD *24724724136*
+ <GFCN \1aCHTYPE-GEN ("VALUE" ATOM ANY <OR ATOM FORM VARTBL> <OR ATOM VARTBL> "OPTIONAL" ANY) VAR6 TYP7 RES8 HINT9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP TEMP20 LV13 CAC11>
+ <INTGO>
+ <TYPE? VAR6 <TYPE-CODE VARTBL> - PHRASE15>
+ <EQUAL? RES8 VAR6 - PHRASE17>
+ <FRAME '\1aVAR-COUNT-STORED?>
+ <PUSH VAR6>
+ <CALL '\1aVAR-COUNT-STORED? 1 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE17>
+ <DEAD TEMP20>
+ <FRAME '\1aEMIT>
+ <PUSH 176>
+ <TYPE? TYP7 <TYPE-CODE ATOM> - PHRASE23>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aTYPE-CODE 1 = TEMP20>
+ <JUMP + PHRASE27>
+PHRASE23
+ <TYPE? TYP7 <TYPE-CODE VARTBL> - PHRASE25>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP20>
+ <JUMP + PHRASE27>
+PHRASE25
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <RESTL TYP7 1 = TEMP20 (TYPE LIST)>
+ <DEAD TYP7>
+ <NTHL TEMP20 1 = STACK>
+ <DEAD TEMP20>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = TEMP20>
+PHRASE27
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAR6>
+ <PUSH 'TYPE-WORD>
+ <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <CALL '\1aFIND-CACHE-VAR 1 = LV13>
+ <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE89>
+ <NTHUV LV13 9 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE89>
+ <DEAD TEMP20>
+ <PUTUV LV13 4 %<>>
+ <DEAD LV13>
+ <RETURN 'NORMAL>
+PHRASE17
+ <TYPE? TYP7 <TYPE-CODE ATOM> - BOOL37>
+ <FRAME '\1aCOUNT-NEEDED?>
+ <PUSH TYP7>
+ <CALL '\1aCOUNT-NEEDED? 1 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE36>
+ <DEAD TEMP20>
+BOOL37
+ <EQUAL? RES8 'STACK - PHRASE40>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAR6>
+ <PUSH 'TYPE-WORD>
+ <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <TYPE? TYP7 <TYPE-CODE VARTBL> - PHRASE44>
+ <FRAME '\1aEMIT>
+ <PUSH 176>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE52>
+PHRASE44
+ <TYPE? TYP7 <TYPE-CODE FORM> - PHRASE48>
+ <FRAME '\1aEMIT>
+ <PUSH 176>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <RESTL TYP7 1 = TEMP20 (TYPE LIST)>
+ <DEAD TYP7>
+ <NTHL TEMP20 1 = STACK>
+ <DEAD TEMP20>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE52>
+PHRASE48
+ <FRAME '\1aEMIT>
+ <PUSH 176>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+PHRASE52
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <RETURN 'NORMAL>
+PHRASE40
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR6>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <PUSH 'PREF-VAL>
+ <CALL '\1aLOAD-VAR 4 = LV13>
+ <FRAME '\1aPROTECT>
+ <PUSH LV13>
+ <CALL '\1aPROTECT 1>
+ <TYPE? TYP7 <TYPE-CODE ATOM> - PHRASE62>
+ <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
+ <PUSH VAR6>
+ <CALL '\1aVAR-TYPE-WORD-IN-AC? 1 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE62>
+ <DEAD TEMP20>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <PUSH 'TYPE-WORD>
+ <PUSH 'T>
+ <PUSH 'PREF-TYPE>
+ <CALL '\1aLOAD-VAR 4 = CAC11>
+ <FRAME '\1aEMIT>
+ <PUSH 176>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <NTHUV CAC11 2 = TEMP20 (TYPE FIX)>
+ <OR TEMP20 #WORD *120* = TEMP20>
+ <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
+ <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP20>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aDEST-PAIR>
+ <PUSH LV13>
+ <DEAD LV13>
+ <PUSH CAC11>
+ <DEAD CAC11>
+ <PUSH RES8>
+ <DEAD RES8>
+ <CALL '\1aDEST-PAIR 3>
+ <RETURN 'NORMAL>
+PHRASE62
+ <TYPE? TYP7 <TYPE-CODE ATOM> - PHRASE69>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <PUSH 'COUNT>
+ <PUSH %<>>
+ <PUSH 'PREF-TYPE>
+ <CALL '\1aLOAD-VAR 4 = CAC11>
+ <FRAME '\1aDEST-COUNT-DECL>
+ <PUSH LV13>
+ <DEAD LV13>
+ <PUSH CAC11>
+ <DEAD CAC11>
+ <PUSH RES8>
+ <DEAD RES8>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aDEST-COUNT-DECL 4>
+ <RETURN 'NORMAL>
+PHRASE69
+ <TYPE? TYP7 <TYPE-CODE FORM> - PHRASE72>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <PUSH 'TYPE-WORD>
+ <PUSH 'T>
+ <PUSH 'PREF-TYPE>
+ <CALL '\1aLOAD-VAR 4 = CAC11>
+ <FRAME '\1aEMIT>
+ <PUSH 176>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <RESTL TYP7 1 = TEMP20 (TYPE LIST)>
+ <DEAD TYP7>
+ <NTHL TEMP20 1 = STACK>
+ <DEAD TEMP20>
+ <PUSH 'TYPE>
+ <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
+ <NTHUV CAC11 2 = TEMP20 (TYPE FIX)>
+ <OR TEMP20 #WORD *120* = TEMP20>
+ <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
+ <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP20>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aDEST-PAIR>
+ <PUSH LV13>
+ <DEAD LV13>
+ <PUSH CAC11>
+ <DEAD CAC11>
+ <PUSH RES8>
+ <DEAD RES8>
+ <CALL '\1aDEST-PAIR 3>
+ <RETURN 'NORMAL>
+PHRASE72
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <PUSH 'TYPE-WORD>
+ <PUSH 'T>
+ <PUSH 'PREF-TYPE>
+ <CALL '\1aLOAD-VAR 4 = CAC11>
+ <FRAME '\1aEMIT>
+ <PUSH 176>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <NTHUV CAC11 2 = TEMP20 (TYPE FIX)>
+ <OR TEMP20 #WORD *120* = TEMP20>
+ <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
+ <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP20>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aDEST-PAIR>
+ <PUSH LV13>
+ <DEAD LV13>
+ <PUSH CAC11>
+ <DEAD CAC11>
+ <PUSH RES8>
+ <DEAD RES8>
+ <CALL '\1aDEST-PAIR 3>
+ <RETURN 'NORMAL>
+PHRASE36
+ <EQUAL? RES8 'STACK - PHRASE84>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <RETURN 'NORMAL>
+PHRASE84
+ <FRAME '\1aLOAD-VAR-APP>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <PUSH %<>>
+ <CALL '\1aLOAD-VAR-APP 2 = LV13>
+ <FRAME '\1aDEST-DECL>
+ <PUSH LV13>
+ <DEAD LV13>
+ <PUSH RES8>
+ <DEAD RES8>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aDEST-DECL 3>
+PHRASE89
+ <RETURN 'NORMAL>
+PHRASE15
+ <FRAME '\1aCOUNT-NEEDED?>
+ <FRAME '\1aTYPE>
+ <PUSH VAR6>
+ <CALL '\1aTYPE 1 = STACK>
+ <CALL '\1aCOUNT-NEEDED? 1 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE92>
+ <DEAD TEMP20>
+ <EQUAL? RES8 'STACK - PHRASE96>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aADDR-TYPE-M>
+ <FRAME '\1aADD-MVEC>
+ <PUSH VAR6>
+ <CALL '\1aADD-MVEC 1 = STACK>
+ <CALL '\1aADDR-TYPE-M 1 = STACK>
+ <CALL '\1aEMIT-PUSH 1>
+ <TYPE? TYP7 <TYPE-CODE VARTBL> - PHRASE101>
+ <FRAME '\1aEMIT>
+ <PUSH 176>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE109>
+PHRASE101
+ <TYPE? TYP7 <TYPE-CODE FORM> - PHRASE105>
+ <FRAME '\1aEMIT>
+ <PUSH 176>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <RESTL TYP7 1 = TEMP20 (TYPE LIST)>
+ <DEAD TYP7>
+ <NTHL TEMP20 1 = STACK>
+ <DEAD TEMP20>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE109>
+PHRASE105
+ <FRAME '\1aEMIT>
+ <PUSH 176>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+PHRASE109
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aADDR-VAL-M>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <CALL '\1aADDR-VAL-M 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <RETURN 'NORMAL>
+PHRASE96
+ <FRAME '\1aSET-GEN>
+ <PUSH RES8>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <CALL '\1aSET-GEN 2>
+ <FRAME '\1aCHTYPE-GEN>
+ <PUSH RES8>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <PUSH RES8>
+ <DEAD RES8>
+ <CALL '\1aCHTYPE-GEN 3>
+ <RETURN 'NORMAL>
+PHRASE92
+ <EQUAL? RES8 'STACK - PHRASE120>
+ <TYPE? TYP7 <TYPE-CODE VARTBL> - PHRASE122>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <JUMP + PHRASE128>
+PHRASE122
+ <TYPE? TYP7 <TYPE-CODE FORM> - PHRASE125>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <RESTL TYP7 1 = TEMP20 (TYPE LIST)>
+ <DEAD TYP7>
+ <NTHL TEMP20 1 = STACK>
+ <DEAD TEMP20>
+ <PUSH 'LONG>
+ <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
+ <CALL '\1aEMIT-PUSH 1>
+ <JUMP + PHRASE128>
+PHRASE125
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+PHRASE128
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aMA-IMM>
+ <FRAME '\1aFIX-CONSTANT?>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <CALL '\1aFIX-CONSTANT? 1 = STACK>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <RETURN 'NORMAL>
+PHRASE120
+ <FRAME '\1aSET-GEN>
+ <PUSH RES8>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <CALL '\1aSET-GEN 2>
+ <FRAME '\1aCHTYPE-GEN>
+ <PUSH RES8>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <PUSH RES8>
+ <DEAD RES8>
+ <CALL '\1aCHTYPE-GEN 3>
+ <RETURN 'NORMAL>
+ <END \1aCHTYPE-GEN>
+
+<SETG GVAL-CAREFUL <>>
+
+#WORD *23070665121*
+ <GFCN \1aGVAL-GEN ("VALUE" ATOM <OR ATOM VARTBL> <OR ATOM VARTBL> "OPTIONAL" <OR FALSE HINT>) ATM6 RES7 HINT8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TYP11 TEMP22 ATMADDR10 ATMOFF15 VAC9 TAC12 NLABEL14>
+ <INTGO>
+ <TYPE? HINT8 <TYPE-CODE FALSE> + PHRASE17>
+ <FRAME '\1aPARSE-HINT>
+ <PUSH HINT8>
+ <DEAD HINT8>
+ <PUSH 'TYPE>
+ <CALL '\1aPARSE-HINT 2 = TYP11>
+ <JUMP + PHRASE19>
+PHRASE17
+ <SET TYP11 %<> (TYPE FALSE)>
+PHRASE19
+ <GVAL 'BOOT-MODE = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE21>
+ <DEAD TEMP22>
+ <FRAME '\1aADDR-VALUE-MQUOTE>
+ <PUSH ATM6>
+ <CALL '\1aADDR-VALUE-MQUOTE 1 = ATMADDR10>
+ <JUMP + PHRASE24>
+PHRASE21
+ <TYPE? ATM6 <TYPE-CODE VARTBL> + PHRASE24>
+ <FRAME '\1aMA-DEF-DISP>
+ <GVAL 'AC-M = STACK>
+ <FRAME '\1a+>
+ <FRAME '\1aADD-MVEC>
+ <CHTYPE ATM6 <TYPE-CODE XGLOC> = STACK>
+ <CALL '\1aADD-MVEC 1 = STACK>
+ <PUSH 4>
+ <CALL '\1a+ 2 = ATMOFF15>
+ <PUSH ATMOFF15>
+ <CALL '\1aMA-DEF-DISP 2 = ATMADDR10>
+PHRASE24
+ <GVAL 'BOOT-MODE = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE29>
+ <DEAD TEMP22>
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = VAC9>
+ <FRAME '\1aPROTECT>
+ <PUSH VAC9>
+ <CALL '\1aPROTECT 1>
+ <FRAME '\1aEMIT-MOVE>
+ <PUSH ATMADDR10>
+ <DEAD ATMADDR10>
+ <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *120* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aEMIT-MOVE>
+ <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *140* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *120* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <EQUAL? RES7 'STACK - PHRASE35>
+ <FRAME '\1aEMIT-PUSH>
+ <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
+ <DEAD VAC9>
+ <OR TEMP22 #WORD *140* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-PUSH 2>
+ <RETURN 'NORMAL>
+PHRASE35
+ <TYPE? TYP11 <TYPE-CODE FALSE> + BOOL40>
+ <FRAME '\1aCOUNT-NEEDED?>
+ <PUSH TYP11>
+ <CALL '\1aCOUNT-NEEDED? 1 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE39>
+ <DEAD TEMP22>
+BOOL40
+ <SET TYP11 %<> (TYPE FALSE)>
+ <FRAME '\1aGET-AC>
+ <PUSH 'DOUBLE>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = TAC12>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
+ <DEAD VAC9>
+ <OR TEMP22 #WORD *140* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *120* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TAC12>
+ <CALL '\1aNEXT-AC 1 = VAC9>
+ <JUMP + PHRASE45>
+PHRASE39
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-DISP>
+ <PUSH VAC9>
+ <PUSH 4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *120* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aEMIT 3>
+PHRASE45
+ <TYPE? TYP11 <TYPE-CODE FALSE> - PHRASE49>
+ <FRAME '\1aDEST-PAIR>
+ <PUSH VAC9>
+ <DEAD VAC9>
+ <PUSH TAC12>
+ <DEAD TAC12>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH 'T>
+ <CALL '\1aDEST-PAIR 4>
+ <RETURN 'NORMAL>
+PHRASE49
+ <FRAME '\1aDEST-DECL>
+ <PUSH VAC9>
+ <DEAD VAC9>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH TYP11>
+ <DEAD TYP11>
+ <PUSH 'T>
+ <CALL '\1aDEST-DECL 4>
+ <RETURN 'NORMAL>
+PHRASE29
+ <TYPE? ATM6 <TYPE-CODE VARTBL> - PHRASE52>
+ <GVAL 'GVAL-CAREFUL = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE52>
+ <DEAD TEMP22>
+ <FRAME '\1aVAR-VALUE-IN-AC?>
+ <PUSH ATM6>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = TAC12>
+ <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE55>
+ <FRAME '\1aPROTECT>
+ <PUSH TAC12>
+ <CALL '\1aPROTECT 1>
+ <EQUAL? RES7 'STACK - PHRASE59>
+ <FRAME '\1aEMIT-PUSH>
+ <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
+ <DEAD TAC12>
+ <OR TEMP22 #WORD *260* = TEMP22>
+ <LSH TEMP22 8 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *0* = TEMP22>
+ <LSH TEMP22 16 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-PUSH 2>
+ <JUMP + PHRASE71>
+PHRASE59
+ <FRAME '\1aGET-AC>
+ <PUSH 'DOUBLE>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = VAC9>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
+ <DEAD TAC12>
+ <OR TEMP22 #WORD *260* = TEMP22>
+ <LSH TEMP22 8 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *0* = TEMP22>
+ <LSH TEMP22 16 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *120* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE71>
+PHRASE55
+ <FRAME '\1aGET-AC>
+ <PUSH 'DOUBLE>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = VAC9>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aGEN-LOC>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <PUSH 4>
+ <PUSH 'T>
+ <CALL '\1aGEN-LOC 3 = STACK>
+ <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *120* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aEMIT 3>
+ <EQUAL? RES7 'STACK - PHRASE69>
+ <FRAME '\1aEMIT-PUSH>
+ <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *140* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-PUSH 2>
+ <JUMP + PHRASE71>
+PHRASE69
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *140* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *120* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aEMIT 3>
+PHRASE71
+ <EQUAL? RES7 'STACK + PHRASE116>
+ <FRAME '\1aDEST-PAIR>
+ <FRAME '\1aNEXT-AC>
+ <PUSH VAC9>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH VAC9>
+ <DEAD VAC9>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH 'T>
+ <CALL '\1aDEST-PAIR 4>
+ <RETURN 'NORMAL>
+PHRASE52
+ <GVAL 'GVAL-CAREFUL = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE77>
+ <DEAD TEMP22>
+ <EQUAL? ATM6 'M$$BINDID + PHRASE77>
+ <FRAME '\1aFLUSH-ALL-ACS>
+ <CALL '\1aFLUSH-ALL-ACS 0>
+ <FRAME '\1aGET-AC>
+ <GVAL 'AC-0 = STACK>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = TAC12>
+ <FRAME '\1aGET-AC>
+ <GVAL 'AC-1 = STACK>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = VAC9>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = TYP11>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = NLABEL14>
+ <TYPE? ATM6 <TYPE-CODE VARTBL> - PHRASE85>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aGEN-LOC>
+ <PUSH ATM6>
+ <PUSH 4>
+ <PUSH 'T>
+ <CALL '\1aGEN-LOC 3 = STACK>
+ <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *120* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 19>
+ <PUSH NLABEL14>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
+ <DEAD VAC9>
+ <OR TEMP22 #WORD *140* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *120* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE90>
+PHRASE85
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <PUSH ATMADDR10>
+ <DEAD ATMADDR10>
+ <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *120* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aEMIT 3>
+PHRASE90
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 18>
+ <PUSH TYP11>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH NLABEL14>
+ <DEAD NLABEL14>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <TYPE? ATM6 <TYPE-CODE VARTBL> - PHRASE95>
+ <FRAME '\1aEMIT>
+ <PUSH 223>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <CALL '\1aEMIT 2>
+ <JUMP + PHRASE98>
+PHRASE95
+ <FRAME '\1aEMIT>
+ <PUSH 223>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-M = STACK>
+ <PUSH ATMOFF15>
+ <DEAD ATMOFF15>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 2>
+PHRASE98
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IGVERR!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <EQUAL? RES7 'STACK - TAG104>
+ <SET TEMP22 %<> (TYPE FALSE)>
+ <JUMP + PHRASE103>
+TAG104
+ <SET TEMP22 RES7>
+PHRASE103
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <PUSH %<>>
+ <CALL '\1aCALL-RTE 4>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH TYP11>
+ <DEAD TYP11>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <EQUAL? RES7 'STACK - PHRASE107>
+ <FRAME '\1aEMIT-PUSH>
+ <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
+ <DEAD TAC12>
+ <OR TEMP22 #WORD *120* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-PUSH 2>
+ <RETURN 'NORMAL>
+PHRASE107
+ <FRAME '\1aDEST-PAIR>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH TAC12>
+ <DEAD TAC12>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH 'T>
+ <CALL '\1aDEST-PAIR 4>
+ <RETURN 'NORMAL>
+PHRASE77
+ <EQUAL? RES7 'STACK - PHRASE114>
+ <FRAME '\1aEMIT-PUSH>
+ <PUSH ATMADDR10>
+ <DEAD ATMADDR10>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-PUSH 2>
+ <RETURN 'NORMAL>
+PHRASE114
+ <FRAME '\1aGET-AC>
+ <PUSH 'DOUBLE>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = TAC12>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <PUSH ATMADDR10>
+ <DEAD ATMADDR10>
+ <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *120* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aDEST-PAIR>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH TAC12>
+ <DEAD TAC12>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH 'T>
+ <CALL '\1aDEST-PAIR 4>
+PHRASE116
+ <RETURN 'NORMAL>
+ <END \1aGVAL-GEN>
+
+#WORD *6205417771*
+ <GFCN \1aSETG-GEN ("VALUE" ATOM ATOM ANY "OPTIONAL" ANY) ATM6 VAL7 HINT8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP (A111 %<>) (A212 %<>) (TWOM13 %<>) LV14 TEMP22>
+ <INTGO>
+ <TYPE? VAL7 <TYPE-CODE VARTBL> - PHRASE16>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAL7>
+ <CALL '\1aFIND-CACHE-VAR 1 = LV14>
+ <TYPE? LV14 <TYPE-CODE FALSE> + PHRASE16>
+ <NTHUV LV14 9 = A111>
+ <NTHUV LV14 6 = A212>
+ <JUMP + PHRASE19>
+PHRASE16
+ <SET LV14 %<> (TYPE FALSE)>
+PHRASE19
+ <GVAL 'BOOT-MODE = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE21>
+ <DEAD TEMP22>
+ <FRAME '\1aADDR-VALUE-MQUOTE>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <CALL '\1aADDR-VALUE-MQUOTE 1 = LV14>
+ <JUMP + PHRASE35>
+PHRASE21
+ <FRAME '\1aFIX-CONSTANT?>
+ <PUSH VAL7>
+ <CALL '\1aFIX-CONSTANT? 1 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> - BOOL31>
+ <DEAD TEMP22>
+ <TYPE? LV14 <TYPE-CODE FALSE> + PHRASE24>
+ <NTHUV LV14 2 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + BOOL28>
+ <DEAD TEMP22>
+ <NTHUV LV14 4 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + BOOL28>
+ <DEAD TEMP22>
+ <NTHUV LV14 3 = LV14>
+ <TYPE? LV14 <TYPE-CODE FALSE> - PHRASE24>
+ <DEAD LV14>
+BOOL28
+ <TYPE? A111 <TYPE-CODE FALSE> + BOOL31>
+ <FRAME '\1aNEXT-AC>
+ <PUSH A111>
+ <CALL '\1aNEXT-AC 1 = TEMP22>
+ <EQUAL? A212 TEMP22 + PHRASE24>
+ <DEAD TEMP22>
+BOOL31
+ <SET TWOM13 'T (TYPE ATOM)>
+ <FRAME '\1aADDR-VALUE-MQUOTE>
+ <CHTYPE ATM6 <TYPE-CODE XGLOC> = STACK>
+ <DEAD ATM6>
+ <CALL '\1aADDR-VALUE-MQUOTE 1 = LV14>
+ <JUMP + PHRASE35>
+PHRASE24
+ <FRAME '\1aMA-DEF-DISP>
+ <GVAL 'AC-M = STACK>
+ <FRAME '\1aADD-MVEC>
+ <CHTYPE ATM6 <TYPE-CODE XGLOC> = STACK>
+ <DEAD ATM6>
+ <CALL '\1aADD-MVEC 1 = TEMP22>
+ <ADD TEMP22 4 = STACK (TYPE FIX)>
+ <DEAD TEMP22>
+ <CALL '\1aMA-DEF-DISP 2 = LV14>
+PHRASE35
+ <GVAL 'BOOT-MODE = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> - BOOL40>
+ <DEAD TEMP22>
+ <VEQUAL? TWOM13 0 + PHRASE39>
+BOOL40
+ <TYPE? A111 <TYPE-CODE FALSE> + PHRASE42>
+ <FRAME '\1aPROTECT>
+ <PUSH A111>
+ <DEAD A111>
+ <CALL '\1aPROTECT 1>
+PHRASE42
+ <TYPE? A212 <TYPE-CODE FALSE> + PHRASE45>
+ <FRAME '\1aPROTECT>
+ <PUSH A212>
+ <DEAD A212>
+ <CALL '\1aPROTECT 1>
+PHRASE45
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = A111>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <PUSH LV14>
+ <DEAD LV14>
+ <NTHUV A111 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *120* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aPROTECT>
+ <PUSH A111>
+ <CALL '\1aPROTECT 1>
+ <VEQUAL? TWOM13 0 - PHRASE51>
+ <DEAD TWOM13>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <NTHUV A111 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *140* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <NTHUV A111 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *120* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aEMIT 3>
+PHRASE51
+ <TYPE? VAL7 <TYPE-CODE VARTBL> + BOOL55>
+ <FRAME '\1aFIX-CONSTANT?>
+ <PUSH VAL7>
+ <CALL '\1aFIX-CONSTANT? 1 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE54>
+ <DEAD TEMP22>
+BOOL55
+ <FRAME '\1aMOVE-TYPE>
+ <PUSH VAL7>
+ <NTHUV A111 2 = TEMP22 (TYPE FIX)>
+ <OR TEMP22 #WORD *140* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <FRAME '\1aMA-DISP>
+ <PUSH A111>
+ <PUSH 2>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aMOVE-TYPE 3>
+ <FRAME '\1aMOVE-VALUE>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <FRAME '\1aMA-DISP>
+ <PUSH A111>
+ <DEAD A111>
+ <PUSH 4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aMOVE-VALUE 2>
+ <RETURN 'NORMAL>
+PHRASE54
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aADDR-TYPE-MQUOTE>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <CALL '\1aADDR-TYPE-MQUOTE 1 = STACK>
+ <NTHUV A111 2 = TEMP22 (TYPE FIX)>
+ <DEAD A111>
+ <OR TEMP22 #WORD *140* = TEMP22>
+ <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP22>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-MOVE 3>
+ <RETURN 'NORMAL>
+PHRASE39
+ <TYPE? VAL7 <TYPE-CODE VARTBL> - PHRASE64>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'TYPE-WORD>
+ <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
+ <PUSH LV14>
+ <DEAD LV14>
+ <CALL '\1aEMIT 3>
+ <RETURN 'NORMAL>
+PHRASE64
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <FRAME '\1aADDR-TYPE-MQUOTE>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <CALL '\1aADDR-TYPE-MQUOTE 1 = STACK>
+ <PUSH LV14>
+ <DEAD LV14>
+ <CALL '\1aEMIT 3>
+ <RETURN 'NORMAL>
+ <END \1aSETG-GEN>
+
+<SETG BE-COMPATIBLE T>
+
+#WORD *4411735217*
+ <GFCN \1aSET-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" <OR FALSE HINT>) VAR6 VAL7 HINT8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP VAC9 TAC10>
+ <INTGO>
+ <FRAME '\1aDEAD-VAR>
+ <PUSH VAR6>
+ <CALL '\1aDEAD-VAR 1>
+ <TYPE? VAL7 <TYPE-CODE VARTBL> - PHRASE16>
+ <FRAME '\1aLOAD-VAR-APP>
+ <PUSH VAL7>
+ <PUSH %<>>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAL7>
+ <CALL '\1aVARTBL-DECL 1 = STACK>
+ <PUSH %<>>
+ <CALL '\1aLOAD-VAR-APP 4 = VAC9>
+ <FRAME '\1aLINK-VAR-TO-AC>
+ <PUSH VAR6>
+ <PUSH VAC9>
+ <DEAD VAC9>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <CALL '\1aLINK-VAR-TO-AC 4>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAR6>
+ <CALL '\1aVARTBL-DECL 1 = VAC9>
+ <TYPE? VAC9 <TYPE-CODE FALSE> - BOOL22>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAL7>
+ <CALL '\1aVARTBL-DECL 1 = VAC9>
+ <TYPE? VAC9 <TYPE-CODE FALSE> + PHRASE21>
+BOOL22
+ <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
+ <PUSH VAR6>
+ <PUSH VAC9>
+ <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
+ <FRAME '\1aCOUNT-NEEDED?>
+ <PUSH VAC9>
+ <DEAD VAC9>
+ <CALL '\1aCOUNT-NEEDED? 1 = VAC9>
+ <TYPE? VAC9 <TYPE-CODE FALSE> + PHRASE45>
+ <DEAD VAC9>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'TYPE-WORD>
+ <PUSH %<>>
+ <PUSH 'PREF-TYPE>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aLOAD-VAR 6 = VAC9>
+ <FRAME '\1aLINK-VAR-TO-AC>
+ <PUSH VAR6>
+ <PUSH VAC9>
+ <DEAD VAC9>
+ <PUSH 'TYPE-WORD>
+ <PUSH %<>>
+ <CALL '\1aLINK-VAR-TO-AC 4>
+ <JUMP + PHRASE45>
+PHRASE21
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'TYPE-WORD>
+ <PUSH %<>>
+ <PUSH 'PREF-TYPE>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aLOAD-VAR 6 = TAC10>
+ <FRAME '\1aLINK-VAR-TO-AC>
+ <PUSH VAR6>
+ <PUSH TAC10>
+ <DEAD TAC10>
+ <PUSH 'TYPE-WORD>
+ <PUSH %<>>
+ <CALL '\1aLINK-VAR-TO-AC 4>
+ <JUMP + PHRASE45>
+PHRASE16
+ <FRAME '\1aPRIMTYPE>
+ <PUSH VAL7>
+ <CALL '\1aPRIMTYPE 1 = VAC9>
+ <VEQUAL? VAC9 'FIX + PHRASE35>
+ <DEAD VAC9>
+ <FRAME '\1aGET-AC>
+ <PUSH 'DOUBLE>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = TAC10>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <FRAME '\1aADDR-TYPE-M>
+ <FRAME '\1aADD-MVEC>
+ <PUSH VAL7>
+ <CALL '\1aADD-MVEC 1 = STACK>
+ <CALL '\1aADDR-TYPE-M 1 = STACK>
+ <NTHUV TAC10 2 = VAC9 (TYPE FIX)>
+ <OR VAC9 #WORD *120* = VAC9>
+ <LSH VAC9 24 = VAC9 (TYPE FIX)>
+ <CHTYPE VAC9 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD VAC9>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aDEST-PAIR>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH TAC10>
+ <DEAD TAC10>
+ <PUSH VAR6>
+ <CALL '\1aDEST-PAIR 3>
+ <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
+ <PUSH VAR6>
+ <FRAME '\1aTYPE>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <CALL '\1aTYPE 1 = STACK>
+ <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
+ <JUMP + PHRASE45>
+PHRASE35
+ <FRAME '\1aGEN-CONSTANT>
+ <PUSH VAL7>
+ <PUSH 'PREF-VAL>
+ <PUSH 'PREF-TYPE>
+ <PUSH 'COUNT-IF-NECESSARY>
+ <CALL '\1aGEN-CONSTANT 4 = VAC9>
+ <FRAME '\1aLINK-VAR-TO-AC>
+ <PUSH VAR6>
+ <PUSH VAC9>
+ <DEAD VAC9>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <CALL '\1aLINK-VAR-TO-AC 4>
+ <GVAL 'CONSTANT-COUNT-AC = VAC9>
+ <TYPE? VAC9 <TYPE-CODE FALSE> + BOOL48>
+ <DEAD VAC9>
+ <FRAME '\1aLINK-VAR-TO-AC>
+ <PUSH VAR6>
+ <GVAL 'CONSTANT-COUNT-AC = STACK>
+ <PUSH 'COUNT>
+ <PUSH %<>>
+ <CALL '\1aLINK-VAR-TO-AC 4>
+BOOL48
+ <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
+ <PUSH VAR6>
+ <FRAME '\1aTYPE>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <CALL '\1aTYPE 1 = STACK>
+ <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
+PHRASE45
+ <FRAME '\1aPROCESS-DESTINATION-HINT>
+ <PUSH HINT8>
+ <DEAD HINT8>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <CALL '\1aPROCESS-DESTINATION-HINT 2>
+ <RETURN 'NORMAL>
+ <END \1aSET-GEN>
+
+#WORD *27273627406*
+ <GFCN \1aMRETURN-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY) TVAR6 FVAR7 RES8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP TEMP18>
+ <INTGO>
+ <FRAME '\1aINDICATE-ALL-DEAD>
+ <CALL '\1aINDICATE-ALL-DEAD 0>
+ <TYPE? TVAR6 <TYPE-CODE VARTBL> - PHRASE11>
+ <PUTUV TVAR6 5 %<>>
+PHRASE11
+ <TYPE? FVAR7 <TYPE-CODE VARTBL> - PHRASE13>
+ <PUTUV FVAR7 5 %<>>
+PHRASE13
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <TYPE? TVAR6 <TYPE-CODE VARTBL> - PHRASE16>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH TVAR6>
+ <DEAD TVAR6>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP18>
+ <JUMP + COND15>
+PHRASE16
+ <FRAME '\1aMA-IMM>
+ <PUSH TVAR6>
+ <DEAD TVAR6>
+ <CALL '\1aMA-IMM 1 = TEMP18>
+COND15
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <GVAL 'AC-1 = TEMP18>
+ <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP18>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aPROTECT>
+ <GVAL 'AC-1 = STACK>
+ <CALL '\1aPROTECT 1>
+ <EQUAL? FVAR7 0 - PHRASE22>
+ <GVAL 'MAKTUP-FLAG = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE24>
+ <DEAD TEMP18>
+ <GVAL 'ICALL-LEVEL = TEMP18>
+ <VEQUAL? TEMP18 0 - PHRASE24 (TYPE FIX)>
+ <DEAD TEMP18>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-F = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <GVAL 'AC-2 = TEMP18>
+ <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP18>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE32>
+PHRASE24
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-F = TEMP18>
+ <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP18>
+ <GVAL 'AC-2 = TEMP18>
+ <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP18>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE32>
+PHRASE22
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH FVAR7>
+ <DEAD FVAR7>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <GVAL 'AC-2 = TEMP18>
+ <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP18>
+ <CALL '\1aEMIT 3>
+PHRASE32
+ <FRAME '\1aPROTECT>
+ <GVAL 'AC-2 = STACK>
+ <CALL '\1aPROTECT 1>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IMRETURN!-MIMOP = STACK>
+ <PUSH 'JUMP>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aCALL-RTE 4>
+ <RETURN 'UNCONDITIONAL-BRANCH>
+ <END \1aMRETURN-GEN>
+
+#WORD *24264346007*
+ <GFCN \1aRETURN-GEN ("VALUE" ATOM ANY "OPTIONAL" <OR FALSE VARTBL> ANY) VAL7 FRM8 RES9>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <TEMP TEMP25>
+ <INTGO>
+ <FRAME '\1aINDICATE-ALL-DEAD>
+ <CALL '\1aINDICATE-ALL-DEAD 0>
+ <TYPE? FRM8 <TYPE-CODE VARTBL> - PHRASE12>
+ <PUTUV FRM8 5 %<>>
+PHRASE12
+ <TYPE? VAL7 <TYPE-CODE VARTBL> - PHRASE14>
+ <PUTUV VAL7 5 %<>>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAL7>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <GVAL 'AC-1 = STACK>
+ <CALL '\1aLOAD-VAR 4>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'TYPE-WORD>
+ <PUSH %<>>
+ <GVAL 'AC-0 = STACK>
+ <CALL '\1aLOAD-VAR 4>
+ <JUMP + PHRASE17>
+PHRASE14
+ <FRAME '\1aGEN-CONSTANT>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <GVAL 'AC-1 = STACK>
+ <GVAL 'AC-0 = STACK>
+ <PUSH 'TYPE-WORD>
+ <CALL '\1aGEN-CONSTANT 4>
+PHRASE17
+ <FRAME '\1aPROTECT>
+ <GVAL 'AC-1 = STACK>
+ <CALL '\1aPROTECT 1>
+ <FRAME '\1aPROTECT>
+ <GVAL 'AC-0 = STACK>
+ <CALL '\1aPROTECT 1>
+ <TYPE? FRM8 <TYPE-CODE FALSE> + PHRASE22>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH FRM8>
+ <DEAD FRM8>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <GVAL 'AC-F = TEMP25>
+ <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
+ <OR TEMP25 #WORD *120* = TEMP25>
+ <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
+ <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP25>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE26>
+PHRASE22
+ <GVAL 'MAKTUP-FLAG = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE26>
+ <DEAD TEMP25>
+ <GVAL 'ICALL-LEVEL = TEMP25>
+ <VEQUAL? TEMP25 0 - PHRASE26 (TYPE FIX)>
+ <DEAD TEMP25>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-F = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <GVAL 'AC-F = TEMP25>
+ <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
+ <OR TEMP25 #WORD *120* = TEMP25>
+ <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
+ <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP25>
+ <CALL '\1aEMIT 3>
+PHRASE26
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'FINIS!-MIMOP = STACK>
+ <PUSH 'JUMP>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aCALL-RTE 4>
+ <RETURN 'UNCONDITIONAL-BRANCH>
+ <END \1aRETURN-GEN>
+
+#WORD *15104712224*
+ <GFCN
\1aDISPATCH-GEN ("VALUE" ATOM ANY <PRIMTYPE WORD> "TUPLE" <TUPLE [REST ATOM]>) VAR4 BASE5>
+ <MAKTUP LABELS6 CT7 AC25:AC = LABELS6>
+ <INTGO>
+ <LENUV LABELS6 = CT7 (TYPE FIX)>
+ <FRAME '\1aSTORE-ALL-ACS>
+ <CALL '\1aSTORE-ALL-ACS 0>
+ <FRAME '\1aEMIT>
+ <PUSH 207>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <FRAME '\1aMA-IMM>
+ <PUSH BASE5>
+ <DEAD BASE5>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <FRAME '\1aMA-IMM>
+ <SUB CT7 1 = STACK (TYPE FIX)>
+ <DEAD CT7>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <CALL '\1aEMIT 4>
+ <GVAL 'ALL-ACS = CT7>
+ <LOOP>
+MAP14
+ <INTGO>
+ <EMPUV? CT7 + MAPAP17>
+ <NTHUV CT7 1 = AC25>
+ <FRAME '\1aSTORE-AC>
+ <PUSH AC25>
+ <DEAD AC25>
+ <PUSH 'T>
+ <CALL '\1aSTORE-AC 2>
+ <RESTUV CT7 1 = CT7 (TYPE VECTOR)>
+ <JUMP + MAP14>
+MAPAP17
+ <CHTYPE LABELS6 <TYPE-CODE VECTOR> = CT7>
+ <DEAD LABELS6>
+ <LOOP>
+MAP28
+ <INTGO>
+ <EMPUV? CT7 + MAPAP31>
+ <NTHUV CT7 1 = LABELS6>
+ <FRAME '\1aEMIT-LABEL-WORD>
+ <PUSH LABELS6>
+ <DEAD LABELS6>
+ <CALL '\1aEMIT-LABEL-WORD 1 = LABELS6>
+ <FRAME '\1aSAVE-XREF-AC-INFO>
+ <PUSH LABELS6>
+ <DEAD LABELS6>
+ <FRAME '\1aSAVE-STATE>
+ <CALL '\1aSAVE-STATE 0 = STACK>
+ <FRAME '\1aSAVE-LOAD-STATE>
+ <CALL '\1aSAVE-LOAD-STATE 0 = STACK>
+ <CALL '\1aSAVE-XREF-AC-INFO 3>
+ <RESTUV CT7 1 = CT7 (TYPE VECTOR)>
+ <JUMP + MAP28>
+MAPAP31
+ <RETURN 'CONDITIONAL-BRANCH>
+ <END \1aDISPATCH-GEN>
+
+#WORD *10023340655*
+ <GFCN \1aOPDISP-GEN ("VALUE" ATOM FIX <OR FALSE FIX> "TUPLE" <TUPLE [REST ATOM]>) RNUM4 TRONUM5>
+ <MAKTUP LABELS6 NARGS7:FIX TEMP10 = LABELS6>
+ <INTGO>
+ <SET NARGS7 RNUM4>
+ <FRAME '\1aPROTECT>
+ <GVAL 'AC-0 = STACK>
+ <CALL '\1aPROTECT 1>
+ <FRAME '\1aEMIT>
+ <PUSH 175>
+ <GVAL 'AC-0 = TEMP10>
+ <NTHUV TEMP10 2 = TEMP10 (TYPE FIX)>
+ <OR TEMP10 #WORD *120* = TEMP10>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP10>
+ <AND RNUM4 #WORD *77* = TEMP10>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP10>
+ <TYPE? TRONUM5 <TYPE-CODE FALSE> + PHRASE12>
+ <SUB TRONUM5 RNUM4 = TEMP10 (TYPE FIX)>
+ <DEAD TRONUM5 RNUM4>
+ <JUMP + PHRASE13>
+PHRASE12
+ <LENUV LABELS6 = TEMP10 (TYPE FIX)>
+ <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
+PHRASE13
+ <AND TEMP10 #WORD *77* = TEMP10>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP10>
+ <CALL '\1aEMIT 4>
+ <CHTYPE LABELS6 <TYPE-CODE VECTOR> = TEMP10>
+ <DEAD LABELS6>
+ <LOOP>
+MAP16
+ <INTGO>
+ <EMPUV? TEMP10 + MAPAP19>
+ <NTHUV TEMP10 1 = LABELS6>
+ <FRAME '\1aEMIT-LABEL-WORD>
+ <PUSH LABELS6>
+ <CALL '\1aEMIT-LABEL-WORD 1>
+ <FRAME '\1aADD-INTERNAL-ENTRY>
+ <PUSH NARGS7>
+ <PUSH LABELS6>
+ <DEAD LABELS6>
+ <CALL '\1aADD-INTERNAL-ENTRY 2>
+ <ADD NARGS7 1 = NARGS7 (TYPE FIX)>
+ <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
+ <JUMP + MAP16>
+MAPAP19
+ <RETURN 'NORMAL>
+ <END \1aOPDISP-GEN>
+
+#WORD *15114407355*
+ <GFCN \1aMAKTUP-GEN ("VALUE" ATOM "TUPLE" ANY)>
+ <MAKTUP TEMPS4 TLEN6 ARGS7:LIST TVAR9 TEMPS24 TEMP32 TEMP36 = TEMPS4>
+ <INTGO>
+ <LENUV TEMPS4 = TLEN6 (TYPE FIX)>
+ <GVAL 'ARGLIST-VARS = ARGS7>
+ <NTHUV TEMPS4 TLEN6 = TLEN6>
+ <FRAME '\1aTEMP-PROCESS>
+ <PUSH TLEN6>
+ <CALL '\1aTEMP-PROCESS 1>
+ <FRAME '\1aGEN-LOC>
+ <FRAME '\1aFIND-VAR>
+ <PUSH TLEN6>
+ <CALL '\1aFIND-VAR 1 = TVAR9>
+ <PUSH TVAR9>
+ <PUSH 0>
+ <CALL '\1aGEN-LOC 2>
+ <PUTUV TVAR9 6 %<>>
+ <DEAD TVAR9>
+ <CHTYPE TEMPS4 <TYPE-CODE VECTOR> = TEMPS4>
+ <SET TVAR9 0 (TYPE FIX)>
+ <FRAME '\1aTEMP-PROCESS>
+ <LOOP>
+MAP14
+ <INTGO>
+ <EMPUV? TEMPS4 + MAPAP17>
+ <SET TEMPS24 TEMPS4>
+ <NTHUV TEMPS24 1 = TEMPS24>
+ <EQUAL? TEMPS24 '= + MAPAP17>
+ <EQUAL? TLEN6 TEMPS24 + COND26>
+ <FRAME '\1a=?>
+ <PUSH TLEN6>
+ <PUSH TEMPS24>
+ <CALL '\1a=? 2 = TEMP32>
+ <VEQUAL? TEMP32 0 - COND26>
+ <DEAD TEMP32>
+ <TYPE? TLEN6 <TYPE-CODE ADECL> - PHRASE34>
+ <TYPE? TEMPS24 <TYPE-CODE ADECL> - PHRASE34>
+ <NTHUV TLEN6 1 = TEMP32>
+ <NTHUV TEMPS24 1 = TEMP36>
+ <EQUAL? TEMP32 TEMP36 - PHRASE29>
+ <DEAD TEMP32 TEMP36>
+ <JUMP + COND26>
+PHRASE34
+ <TYPE? TLEN6 <TYPE-CODE ADECL> - PHRASE37>
+ <TYPE? TEMPS24 <TYPE-CODE ATOM> - PHRASE37>
+ <NTHUV TLEN6 1 = TEMP36>
+ <EQUAL? TEMP36 TEMPS24 - PHRASE29>
+ <DEAD TEMP36>
+ <JUMP + COND26>
+PHRASE37
+ <TYPE? TLEN6 <TYPE-CODE ATOM> - PHRASE29>
+ <TYPE? TEMPS24 <TYPE-CODE ADECL> - PHRASE29>
+ <NTHUV TEMPS24 1 = TEMP36>
+ <EQUAL? TEMP36 TLEN6 + COND26>
+ <DEAD TEMP36>
+PHRASE29
+ <PUSH TEMPS24>
+ <DEAD TEMPS24>
+ <ADD TVAR9 1 = TVAR9 (TYPE FIX)>
+COND26
+ <RESTUV TEMPS4 1 = TEMPS4 (TYPE VECTOR)>
+ <JUMP + MAP14>
+MAPAP17
+ <CALL '\1aTEMP-PROCESS TVAR9>
+ <DEAD TVAR9>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-0 = TLEN6>
+ <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
+ <DEAD TLEN6>
+ <OR TVAR9 #WORD *120* = TVAR9>
+ <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
+ <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TVAR9>
+ <GVAL 'AC-1 = TLEN6>
+ <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
+ <DEAD TLEN6>
+ <OR TVAR9 #WORD *120* = TVAR9>
+ <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
+ <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TVAR9>
+ <CALL '\1aEMIT 3>
+ <EMPL? ARGS7 + PHRASE45 (TYPE LIST)>
+ <FRAME '\1aADD-CONSTANT-TO-AC>
+ <LENL ARGS7 = TVAR9 (TYPE FIX)>
+ <SUB 0 TVAR9 = STACK (TYPE FIX)>
+ <DEAD TVAR9>
+ <GVAL 'AC-1 = STACK>
+ <CALL '\1aADD-CONSTANT-TO-AC 2>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = TEMPS24>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 24>
+ <PUSH TEMPS24>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT>
+ <PUSH 212>
+ <GVAL 'AC-1 = TLEN6>
+ <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
+ <DEAD TLEN6>
+ <OR TVAR9 #WORD *120* = TVAR9>
+ <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
+ <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TVAR9>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH TEMPS24>
+ <DEAD TEMPS24>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+PHRASE45
+ <SETG 'MAKTUP-FLAG 'T>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'TUPLE>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <GVAL 'AC-1 = TLEN6>
+ <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
+ <DEAD TLEN6>
+ <OR TVAR9 #WORD *120* = TVAR9>
+ <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
+ <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TVAR9>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aCLEAR-PUSH>
+ <CALL '\1aCLEAR-PUSH 0>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH 'FRAME>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <GVAL 'AC-F = TLEN6>
+ <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
+ <DEAD TLEN6>
+ <OR TVAR9 #WORD *120* = TVAR9>
+ <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
+ <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TVAR9>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-TP = TLEN6>
+ <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
+ <DEAD TLEN6>
+ <OR TVAR9 #WORD *120* = TVAR9>
+ <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
+ <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TVAR9>
+ <GVAL 'AC-2 = TLEN6>
+ <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
+ <DEAD TLEN6>
+ <OR TVAR9 #WORD *120* = TVAR9>
+ <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
+ <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TVAR9>
+ <CALL '\1aEMIT 3>
+ <SET TVAR9 ARGS7 (TYPE LIST)>
+ <LOOP>
+MAP60
+ <INTGO>
+ <EMPL? TVAR9 + MAPAP63>
+ <NTHL TVAR9 1 = TLEN6>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aADDR-VAR-TYPE>
+ <PUSH TLEN6>
+ <DEAD TLEN6>
+ <CALL '\1aADDR-VAR-TYPE 1 = STACK>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-PUSH 2>
+ <RESTL TVAR9 1 = TVAR9 (TYPE LIST)>
+ <JUMP + MAP60>
+MAPAP63
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'TUPLE>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <GVAL 'AC-1 = TLEN6>
+ <NTHUV TLEN6 2 = TLEN6 (TYPE FIX)>
+ <OR TLEN6 #WORD *120* = TLEN6>
+ <LSH TLEN6 24 = TLEN6 (TYPE FIX)>
+ <CHTYPE TLEN6 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TLEN6>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <GVAL 'AC-F = TLEN6>
+ <NTHUV TLEN6 2 = TLEN6 (TYPE FIX)>
+ <OR TLEN6 #WORD *120* = TLEN6>
+ <LSH TLEN6 24 = TLEN6 (TYPE FIX)>
+ <CHTYPE TLEN6 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TLEN6>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <EMPL? ARGS7 + BOOL73>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <FRAME '\1aMA-IMM>
+ <LENL ARGS7 = TLEN6 (TYPE FIX)>
+ <DEAD ARGS7>
+ <LSH TLEN6 3 = STACK (TYPE FIX)>
+ <DEAD TLEN6>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+BOOL73
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-2 = TLEN6>
+ <NTHUV TLEN6 2 = TLEN6 (TYPE FIX)>
+ <OR TLEN6 #WORD *120* = TLEN6>
+ <LSH TLEN6 24 = TLEN6 (TYPE FIX)>
+ <CHTYPE TLEN6 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TLEN6>
+ <GVAL 'AC-F = TLEN6>
+ <NTHUV TLEN6 2 = TLEN6 (TYPE FIX)>
+ <OR TLEN6 #WORD *120* = TLEN6>
+ <LSH TLEN6 24 = TLEN6 (TYPE FIX)>
+ <CHTYPE TLEN6 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TLEN6>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aINDICATE-TEMP-PATCH>
+ <FRAME '\1aADD-PATCH>
+ <PUSH 'TEMPORARIES>
+ <CALL '\1aADD-PATCH 1 = STACK>
+ <CALL '\1aINDICATE-TEMP-PATCH 1>
+ <RETURN 'NORMAL>
+ <END \1aMAKTUP-GEN>
+
+<COND (<NOT <GASSIGNED? ICALL-LEVEL>> <SETG ICALL-LEVEL 0>)>
+
+#WORD *1606513155*
+ <GFCN \1aICALL-GEN ("VALUE" ATOM ATOM "OPTIONAL" <OR FALSE ATOM VARTBL>) LABEL6 RES7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP12 TADDR9 TLAB10>
+ <INTGO>
+ <FRAME '\1aFLUSH-ALL-ACS>
+ <CALL '\1aFLUSH-ALL-ACS 0>
+ <GVAL 'ICALL-LEVEL = TEMP12>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <SETG 'ICALL-LEVEL TEMP12>
+ <DEAD TEMP12>
+ <TYPE? RES7 <TYPE-CODE VARTBL> - PHRASE14>
+ <FRAME '\1aADDR-VAR-TYPE>
+ <PUSH RES7>
+ <CALL '\1aADDR-VAR-TYPE 1 = TADDR9>
+ <FRAME '\1aADDR-VAR-VALUE>
+ <PUSH RES7>
+ <CALL '\1aADDR-VAR-VALUE 1 = TEMP12>
+PHRASE14
+ <GVAL 'ICALL-LABELS = TEMP12>
+ <CONS LABEL6 TEMP12 = TEMP12>
+ <SETG 'ICALL-LABELS TEMP12>
+ <DEAD TEMP12>
+ <FRAME '\1aNEW-MODEL>
+ <FRAME '\1aCREATE-MODEL>
+ <CALL '\1aCREATE-MODEL 0 = STACK>
+ <CALL '\1aNEW-MODEL 1>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'INCALL!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aCALL-RTE 4>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = TLAB10>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 17>
+ <PUSH TLAB10>
+ <PUSH %<>>
+ <PUSH 0>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aEMIT-BRANCH 6>
+ <EQUAL? RES7 'STACK - PHRASE23>
+ <FRAME '\1aEMIT-PUSH>
+ <GVAL 'AC-0 = TEMP12>
+ <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *120* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-PUSH 2>
+ <JUMP + PHRASE25>
+PHRASE23
+ <TYPE? RES7 <TYPE-CODE VARTBL> - PHRASE25>
+ <DEAD RES7>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <GVAL 'AC-0 = TEMP12>
+ <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *120* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <PUSH TADDR9>
+ <DEAD TADDR9>
+ <CALL '\1aEMIT 3>
+PHRASE25
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 17>
+ <PUSH LABEL6>
+ <DEAD LABEL6>
+ <PUSH 'UNCONDITIONAL-BRANCH>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH TLAB10>
+ <DEAD TLAB10>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <RETURN 'NORMAL>
+ <END \1aICALL-GEN>
+
+"Args are: LOCAL variable being set; FRAME where new val is coming from;
+ variable in that frame for new value."
+
+#WORD *37466044774*
+ <GFCN \1aSETLR-GEN ("VALUE" ATOM <OR VARTBL ATOM> ANY VARTBL "OPTIONAL" ANY) LVAR6 FVAR7 NLVAR8 HINT9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP SADDR12 (TYP13 %<>) FAC11 TEMP32 TAC10>
+ <INTGO>
+ <FRAME '\1aADDR-VAR-OFFSET>
+ <PUSH NLVAR8>
+ <CALL '\1aADDR-VAR-OFFSET 1 = SADDR12>
+ <TYPE? HINT9 <TYPE-CODE FALSE> + BOOL16>
+ <FRAME '\1aPARSE-HINT>
+ <PUSH HINT9>
+ <DEAD HINT9>
+ <PUSH 'TYPE>
+ <CALL '\1aPARSE-HINT 2 = TYP13>
+BOOL16
+ <FRAME '\1aPROTECT-VAL>
+ <PUSH NLVAR8>
+ <DEAD NLVAR8>
+ <CALL '\1aPROTECT-VAL 1>
+ <TYPE? LVAR6 <TYPE-CODE VARTBL> - PHRASE20>
+ <EQUAL? LVAR6 FVAR7 + PHRASE20>
+ <FRAME '\1aDEAD-VAR>
+ <PUSH LVAR6>
+ <CALL '\1aDEAD-VAR 1>
+PHRASE20
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH FVAR7>
+ <DEAD FVAR7>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <PUSH 'PREF-VAL>
+ <CALL '\1aLOAD-VAR 4 = FAC11>
+ <PUSH FAC11>
+ <CALL '\1aPROTECT 1>
+ <EQUAL? LVAR6 'STACK - PHRASE26>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aMA-DISP>
+ <PUSH FAC11>
+ <DEAD FAC11>
+ <PUSH SADDR12>
+ <DEAD SADDR12>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-PUSH 2>
+ <RETURN 'NORMAL>
+PHRASE26
+ <TYPE? TYP13 <TYPE-CODE FALSE> + PHRASE29>
+ <FRAME '\1aCOUNT-NEEDED?>
+ <PUSH TYP13>
+ <CALL '\1aCOUNT-NEEDED? 1 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE29>
+ <DEAD TEMP32>
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = TAC10>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-DISP>
+ <PUSH FAC11>
+ <DEAD FAC11>
+ <ADD SADDR12 4 = STACK (TYPE FIX)>
+ <DEAD SADDR12>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <NTHUV TAC10 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *120* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aDEST-DECL>
+ <PUSH TAC10>
+ <DEAD TAC10>
+ <PUSH LVAR6>
+ <DEAD LVAR6>
+ <PUSH TYP13>
+ <DEAD TYP13>
+ <CALL '\1aDEST-DECL 3>
+ <RETURN 'NORMAL>
+PHRASE29
+ <FRAME '\1aGET-AC>
+ <PUSH 'DOUBLE>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = TAC10>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <FRAME '\1aMA-DISP>
+ <PUSH FAC11>
+ <DEAD FAC11>
+ <PUSH SADDR12>
+ <DEAD SADDR12>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <NTHUV TAC10 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *120* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aDEST-PAIR>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH TAC10>
+ <DEAD TAC10>
+ <PUSH LVAR6>
+ <DEAD LVAR6>
+ <CALL '\1aDEST-PAIR 3>
+ <RETURN 'NORMAL>
+ <END \1aSETLR-GEN>
+
+"Args are: FRAME where new value is going; variable in that frame; value
+ for variable (often local var, often not)"
+
+#WORD *22325147225*
+ <GFCN \1aSETRL-GEN ("VALUE" ATOM VARTBL VARTBL ANY "OPTIONAL" ANY) FVAR6 NLVAR7 LVAR8 HINT9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP SADDR11:FIX (TYP15 %<>) FAC10 LV16 T117 T218 TEMP37>
+ <INTGO>
+ <FRAME '\1aADDR-VAR-OFFSET>
+ <PUSH NLVAR7>
+ <DEAD NLVAR7>
+ <CALL '\1aADDR-VAR-OFFSET 1 = SADDR11>
+ <FRAME '\1aPROTECT-VAL>
+ <PUSH LVAR8>
+ <CALL '\1aPROTECT-VAL 1>
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH FVAR6>
+ <DEAD FVAR6>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <PUSH 'PREF-VAL>
+ <CALL '\1aLOAD-VAR 4 = FAC10>
+ <PUSH FAC10>
+ <CALL '\1aPROTECT 1>
+ <TYPE? HINT9 <TYPE-CODE FALSE> + BOOL23>
+ <FRAME '\1aPARSE-HINT>
+ <PUSH HINT9>
+ <DEAD HINT9>
+ <PUSH 'TYPE>
+ <CALL '\1aPARSE-HINT 2 = TYP15>
+BOOL23
+ <TYPE? TYP15 <TYPE-CODE FALSE> - COND25>
+ <TYPE? LVAR8 <TYPE-CODE VARTBL> - PHRASE26>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH LVAR8>
+ <CALL '\1aVARTBL-DECL 1 = TYP15>
+ <JUMP + COND25>
+PHRASE26
+ <FRAME '\1aTYPE>
+ <PUSH LVAR8>
+ <CALL '\1aTYPE 1 = TYP15>
+COND25
+ <TYPE? LVAR8 <TYPE-CODE VARTBL> - PHRASE30>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH LVAR8>
+ <CALL '\1aFIND-CACHE-VAR 1 = LV16>
+ <TYPE? LV16 <TYPE-CODE FALSE> + BOOL33>
+ <NTHUV LV16 6 = T117>
+ <TYPE? T117 <TYPE-CODE FALSE> + BOOL35>
+ <NTHUV LV16 9 = T218>
+ <TYPE? T218 <TYPE-CODE FALSE> + BOOL35>
+ <FRAME '\1aNEXT-AC>
+ <PUSH T218>
+ <CALL '\1aNEXT-AC 1 = TEMP37>
+ <EQUAL? T117 TEMP37 + BOOL33>
+ <DEAD TEMP37>
+BOOL35
+ <NTHUV LV16 2 = TEMP37>
+ <TYPE? TEMP37 <TYPE-CODE FALSE> + PHRASE32>
+ <DEAD TEMP37>
+ <NTHUV LV16 4 = TEMP37>
+ <TYPE? TEMP37 <TYPE-CODE FALSE> + PHRASE32>
+ <DEAD TEMP37>
+ <NTHUV LV16 3 = TEMP37>
+ <TYPE? TEMP37 <TYPE-CODE FALSE> + PHRASE32>
+ <DEAD TEMP37>
+BOOL33
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <TYPE? LV16 <TYPE-CODE FALSE> + PHRASE41>
+ <DEAD LV16>
+ <TYPE? T117 <TYPE-CODE FALSE> + PHRASE41>
+ <DEAD T117>
+ <NTHUV T218 2 = TEMP37 (TYPE FIX)>
+ <DEAD T218>
+ <OR TEMP37 #WORD *120* = TEMP37>
+ <LSH TEMP37 24 = TEMP37 (TYPE FIX)>
+ <CHTYPE TEMP37 <TYPE-CODE EFF-ADDR> = TEMP37>
+ <JUMP + PHRASE43>
+PHRASE41
+ <FRAME '\1aADDR-VAR-TYPE-VALUE>
+ <PUSH LVAR8>
+ <DEAD LVAR8>
+ <CALL '\1aADDR-VAR-TYPE-VALUE 1 = TEMP37>
+PHRASE43
+ <PUSH TEMP37>
+ <DEAD TEMP37>
+ <FRAME '\1aMA-DISP>
+ <PUSH FAC10>
+ <DEAD FAC10>
+ <PUSH SADDR11>
+ <DEAD SADDR11>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <RETURN 'NORMAL>
+PHRASE32
+ <TYPE? TYP15 <TYPE-CODE FALSE> + PHRASE46>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH LVAR8>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <FRAME '\1aMA-DISP>
+ <PUSH FAC10>
+ <ADD SADDR11 4 = STACK (TYPE FIX)>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 176>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TYP15>
+ <PUSH 'WORD>
+ <CALL '\1aTYPE-CODE 2 = STACK>
+ <FRAME '\1aMA-DISP>
+ <PUSH FAC10>
+ <PUSH SADDR11>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aCOUNT-NEEDED?>
+ <PUSH TYP15>
+ <DEAD TYP15>
+ <CALL '\1aCOUNT-NEEDED? 1 = TEMP37>
+ <TYPE? TEMP37 <TYPE-CODE FALSE> + PHRASE66>
+ <DEAD TEMP37>
+ <FRAME '\1aVAR-COUNT-IN-AC?>
+ <PUSH LVAR8>
+ <CALL '\1aVAR-COUNT-IN-AC? 1 = TYP15>
+ <TYPE? TYP15 <TYPE-CODE FALSE> + PHRASE57>
+ <FRAME '\1aEMIT>
+ <PUSH 176>
+ <NTHUV TYP15 2 = TEMP37 (TYPE FIX)>
+ <DEAD TYP15>
+ <OR TEMP37 #WORD *120* = TEMP37>
+ <LSH TEMP37 24 = TEMP37 (TYPE FIX)>
+ <CHTYPE TEMP37 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP37>
+ <FRAME '\1aMA-DISP>
+ <PUSH FAC10>
+ <DEAD FAC10>
+ <ADD SADDR11 2 = STACK (TYPE FIX)>
+ <DEAD SADDR11>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <RETURN 'NORMAL>
+PHRASE57
+ <FRAME '\1aVAR-COUNT-STORED?>
+ <PUSH LVAR8>
+ <DEAD LVAR8>
+ <CALL '\1aVAR-COUNT-STORED? 1 = TYP15>
+ <TYPE? TYP15 <TYPE-CODE FALSE> + PHRASE61>
+ <FRAME '\1aEMIT>
+ <PUSH 176>
+ <PUSH TYP15>
+ <DEAD TYP15>
+ <FRAME '\1aMA-DISP>
+ <PUSH FAC10>
+ <DEAD FAC10>
+ <ADD SADDR11 2 = STACK (TYPE FIX)>
+ <DEAD SADDR11>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <RETURN 'NORMAL>
+PHRASE61
+ <FRAME '\1aERROR>
+ <PUSH "COUNT NOT FOUND">
+ <PUSH 'SETRL-GEN>
+ <CALL '\1aERROR 2>
+ <RETURN 'NORMAL>
+PHRASE46
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH LVAR8>
+ <PUSH 'TYPE-WORD>
+ <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
+ <FRAME '\1aMA-DISP>
+ <PUSH FAC10>
+ <PUSH SADDR11>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH LVAR8>
+ <DEAD LVAR8>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <FRAME '\1aMA-DISP>
+ <PUSH FAC10>
+ <DEAD FAC10>
+ <ADD SADDR11 4 = STACK (TYPE FIX)>
+ <DEAD SADDR11>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+PHRASE66
+ <RETURN 'NORMAL>
+PHRASE30
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <FRAME '\1aADDR-TYPE-MQUOTE>
+ <PUSH LVAR8>
+ <DEAD LVAR8>
+ <CALL '\1aADDR-TYPE-MQUOTE 1 = STACK>
+ <FRAME '\1aMA-DISP>
+ <PUSH FAC10>
+ <DEAD FAC10>
+ <PUSH SADDR11>
+ <DEAD SADDR11>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <RETURN 'NORMAL>
+ <END \1aSETRL-GEN>
+
+#WORD *35570011134*
+ <GFCN \1aFIXBIND-GEN ("VALUE" ATOM)>
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IFIXBND!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aCALL-RTE 4>
+ <RETURN 'NORMAL>
+ <END \1aFIXBIND-GEN>
+
+#WORD *27555606230*
+ <GFCN \1aBIND-GEN ("VALUE" ANY <OR ATOM VARTBL> "OPTIONAL" ANY) RES6 HINT7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP TEMP9>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IBIND!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES6>
+ <DEAD RES6>
+ <PUSH %<>>
+ <CALL '\1aCALL-RTE 4 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aBIND-GEN>
+
+#WORD *573756671*
+ <GFCN \1aCFRAME-GEN ("VALUE" ATOM <OR ATOM VARTBL> "OPTIONAL" ANY) RES6 HINT7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP VAC8 TEMP14 TLAB9>
+ <INTGO>
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = VAC8>
+ <GVAL 'MAKTUP-FLAG = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE12>
+ <DEAD TEMP14>
+ <GVAL 'ICALL-LEVEL = TEMP14>
+ <VEQUAL? TEMP14 0 - PHRASE12 (TYPE FIX)>
+ <DEAD TEMP14>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-F = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <NTHUV VAC8 2 = TEMP14 (TYPE FIX)>
+ <OR TEMP14 #WORD *120* = TEMP14>
+ <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
+ <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP14>
+ <CALL '\1aEMIT 3>
+ <JUMP + COND11>
+PHRASE12
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-F = TEMP14>
+ <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
+ <OR TEMP14 #WORD *120* = TEMP14>
+ <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
+ <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP14>
+ <NTHUV VAC8 2 = TEMP14 (TYPE FIX)>
+ <OR TEMP14 #WORD *120* = TEMP14>
+ <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
+ <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP14>
+ <CALL '\1aEMIT 3>
+COND11
+ <FRAME '\1aEMIT>
+ <PUSH 213>
+ <FRAME '\1aMA-DISP>
+ <PUSH VAC8>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = TLAB9>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 25>
+ <PUSH TLAB9>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aMA-DISP>
+ <PUSH VAC8>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <NTHUV VAC8 2 = TEMP14 (TYPE FIX)>
+ <OR TEMP14 #WORD *120* = TEMP14>
+ <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
+ <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP14>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH TLAB9>
+ <DEAD TLAB9>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aDEST-DECL>
+ <PUSH VAC8>
+ <DEAD VAC8>
+ <PUSH RES6>
+ <DEAD RES6>
+ <PUSH 'FRAME>
+ <CALL '\1aDEST-DECL 3>
+ <RETURN 'NORMAL>
+ <END \1aCFRAME-GEN>
+
+#WORD *27634712150*
+ <GFCN \1aUNBIND-GEN ("VALUE" ATOM VARTBL) VAR4>
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IUNBIND!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aUNBIND-GEN>
+
+#WORD *4352265731*
+ <GFCN \1aGETS-GEN ("VALUE" ATOM ATOM ANY "OPTIONAL" ANY) CASE6 RES7 HINT8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP TEMP14 TEMP28 TEMP29 TEMP30 TEMP31 TEMP52>
+ <INTGO>
+ <FRAME '\1aMEMBER>
+ <NTHR CASE6 3 = STACK (RECORD-TYPE ATOM)>
+ <PUSH ["PURVEC" "DBVEC"]>
+ <CALL '\1aMEMBER 2 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE12>
+ <DEAD TEMP14>
+ <EQUAL? RES7 'STACK - PHRASE16>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <FRAME '\1aADDR-TYPE-M>
+ <FRAME '\1aADD-MVEC>
+ <PUSH %<>>
+ <CALL '\1aADD-MVEC 1 = STACK>
+ <CALL '\1aADDR-TYPE-M 1 = STACK>
+ <GVAL 'AC-TP = TEMP14>
+ <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
+ <OR TEMP14 #WORD *200* = TEMP14>
+ <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
+ <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP14>
+ <CALL '\1aEMIT 3>
+ <RETURN 'NORMAL>
+PHRASE16
+ <FRAME '\1aSET-GEN>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH %<>>
+ <CALL '\1aSET-GEN 2>
+ <RETURN 'NORMAL>
+PHRASE12
+ <FRAME '\1aMEMBER>
+ <NTHR CASE6 3 = STACK (RECORD-TYPE ATOM)>
+ <PUSH ["BIND" "BINDID"]>
+ <CALL '\1aMEMBER 2 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE22>
+ <DEAD TEMP14>
+ <EQUAL? RES7 'STACK - PHRASE25>
+ <NTHR CASE6 3 = TEMP14 (RECORD-TYPE ATOM)>
+ <DEAD CASE6>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP14 "BIND" - PHRASE27>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP28 "BIND" (TYPE STRING)>
+ <LENUS TEMP14 = TEMP29 (TYPE FIX)>
+ <VEQUAL? TEMP29 4 - PHRASE27>
+ <LOOP (TEMP14 VALUE LENGTH) (TEMP28 VALUE LENGTH) (TEMP29 VALUE)>
+TAG32
+ <NTHUS TEMP14 1 = TEMP30>
+ <NTHUS TEMP28 1 = TEMP31>
+ <VEQUAL? TEMP30 TEMP31 - PHRASE27>
+ <DEAD TEMP30 TEMP31>
+ <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
+ <RESTUS TEMP28 1 = TEMP28 (TYPE STRING)>
+ <SUB TEMP29 1 = TEMP29 (TYPE FIX)>
+ <GRTR? TEMP29 0 + TAG32 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH 'LBIND>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <GVAL 'AC-PC = TEMP28>
+ <NTHUV TEMP28 2 = TEMP28 (TYPE FIX)>
+ <OR TEMP28 #WORD *220* = TEMP28>
+ <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
+ <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
+ <CONS TEMP28 () = TEMP28>
+ <FRAME '\1aLREV>
+ <GVAL 'SPSTO-LOC = STACK>
+ <CALL '\1aLREV 1 = TEMP14>
+ <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = TEMP14>
+ <CONS TEMP14 () = TEMP14>
+ <PUTREST TEMP28 TEMP14>
+ <DEAD TEMP14>
+ <CHTYPE TEMP28 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP28>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <RETURN 'NORMAL>
+PHRASE27
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <GVAL 'AC-PC = TEMP28>
+ <NTHUV TEMP28 2 = TEMP28 (TYPE FIX)>
+ <OR TEMP28 #WORD *220* = TEMP28>
+ <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
+ <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
+ <CONS TEMP28 () = TEMP28>
+ <FRAME '\1aLREV>
+ <GVAL 'BINDID-LOC = STACK>
+ <CALL '\1aLREV 1 = TEMP14>
+ <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = TEMP14>
+ <CONS TEMP14 () = TEMP14>
+ <PUTREST TEMP28 TEMP14>
+ <DEAD TEMP14>
+ <CHTYPE TEMP28 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP28>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <RETURN 'NORMAL>
+PHRASE25
+ <FRAME '\1aVAR-VALUE-IN-AC?>
+ <PUSH RES7>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE44>
+ <FRAME '\1aSTORE-AC>
+ <PUSH TEMP29>
+ <PUSH %<>>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH RES7>
+ <CALL '\1aFIND-CACHE-VAR 1 = STACK>
+ <CALL '\1aSTORE-AC 3>
+ <JUMP + PHRASE48>
+PHRASE44
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = TEMP29>
+PHRASE48
+ <NTHR CASE6 3 = TEMP28 (RECORD-TYPE ATOM)>
+ <DEAD CASE6>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP28 "BIND" - PHRASE51>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP14 "BIND" (TYPE STRING)>
+ <LENUS TEMP28 = TEMP31 (TYPE FIX)>
+ <VEQUAL? TEMP31 4 - PHRASE51>
+ <LOOP (TEMP28 VALUE LENGTH) (TEMP14 VALUE LENGTH) (TEMP31 VALUE)>
+TAG53
+ <NTHUS TEMP28 1 = TEMP30>
+ <NTHUS TEMP14 1 = TEMP52>
+ <VEQUAL? TEMP30 TEMP52 - PHRASE51>
+ <DEAD TEMP30 TEMP52>
+ <RESTUS TEMP28 1 = TEMP28 (TYPE STRING)>
+ <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
+ <SUB TEMP31 1 = TEMP31 (TYPE FIX)>
+ <GRTR? TEMP31 0 + TAG53 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <FRAME '\1aEMIT-MOVE>
+ <GVAL 'AC-PC = TEMP14>
+ <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
+ <OR TEMP14 #WORD *220* = TEMP14>
+ <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
+ <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = TEMP14>
+ <CONS TEMP14 () = TEMP14>
+ <FRAME '\1aLREV>
+ <GVAL 'SPSTO-LOC = STACK>
+ <CALL '\1aLREV 1 = TEMP28>
+ <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
+ <CONS TEMP28 () = TEMP28>
+ <PUTREST TEMP14 TEMP28>
+ <DEAD TEMP28>
+ <CHTYPE TEMP14 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP14>
+ <NTHUV TEMP29 2 = TEMP14 (TYPE FIX)>
+ <OR TEMP14 #WORD *120* = TEMP14>
+ <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
+ <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP14>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aDEST-DECL>
+ <PUSH TEMP29>
+ <DEAD TEMP29>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH 'LBIND>
+ <CALL '\1aDEST-DECL 3>
+ <RETURN 'NORMAL>
+PHRASE51
+ <FRAME '\1aEMIT-MOVE>
+ <GVAL 'AC-PC = TEMP14>
+ <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
+ <OR TEMP14 #WORD *220* = TEMP14>
+ <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
+ <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = TEMP14>
+ <CONS TEMP14 () = TEMP14>
+ <FRAME '\1aLREV>
+ <GVAL 'BINDID-LOC = STACK>
+ <CALL '\1aLREV 1 = TEMP28>
+ <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
+ <CONS TEMP28 () = TEMP28>
+ <PUTREST TEMP14 TEMP28>
+ <DEAD TEMP28>
+ <CHTYPE TEMP14 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP14>
+ <NTHUV TEMP29 2 = TEMP14 (TYPE FIX)>
+ <OR TEMP14 #WORD *120* = TEMP14>
+ <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
+ <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP14>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aDEST-DECL>
+ <PUSH TEMP29>
+ <DEAD TEMP29>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH 'FIX>
+ <CALL '\1aDEST-DECL 3>
+ <RETURN 'NORMAL>
+PHRASE22
+ <FRAME '\1aFIND-CASE-ENTRY>
+ <PUSH CASE6>
+ <DEAD CASE6>
+ <CALL '\1aFIND-CASE-ENTRY 1 = TEMP14>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IGETS!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES7>
+ <DEAD RES7>
+ <NTHUV TEMP14 3 = STACK (TYPE ATOM)>
+ <NTHUV TEMP14 2 = STACK (TYPE FIX)>
+ <DEAD TEMP14>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aGETS-GEN>
+
+#WORD *17445373310*
+ <GFCN \1aSETS-GEN ("VALUE" ATOM ANY ANY) CASE4 VAL5>
+ <TEMP TEMP10 TEMP19 TEMP20 TEMP21 TEMP22>
+ <INTGO>
+ <FRAME '\1aMEMBER>
+ <NTHR CASE4 3 = STACK (RECORD-TYPE ATOM)>
+ <PUSH ["BIND" "BINDID"]>
+ <CALL '\1aMEMBER 2 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE8>
+ <DEAD TEMP10>
+ <FRAME '\1aEMIT-MOVE>
+ <TYPE? VAL5 <TYPE-CODE VARTBL> - PHRASE13>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAL5>
+ <DEAD VAL5>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP10>
+ <JUMP + PHRASE15>
+PHRASE13
+ <FRAME '\1aMA-IMM>
+ <PUSH VAL5>
+ <DEAD VAL5>
+ <CALL '\1aMA-IMM 1 = TEMP10>
+PHRASE15
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <NTHR CASE4 3 = TEMP10 (RECORD-TYPE ATOM)>
+ <DEAD CASE4>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP10 "BIND" - PHRASE18>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP19 "BIND" (TYPE STRING)>
+ <LENUS TEMP10 = TEMP20 (TYPE FIX)>
+ <VEQUAL? TEMP20 4 - PHRASE18>
+ <LOOP (TEMP10 VALUE LENGTH) (TEMP19 VALUE LENGTH) (TEMP20 VALUE)>
+TAG23
+ <NTHUS TEMP10 1 = TEMP21>
+ <NTHUS TEMP19 1 = TEMP22>
+ <VEQUAL? TEMP21 TEMP22 - PHRASE18>
+ <DEAD TEMP21 TEMP22>
+ <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
+ <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
+ <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
+ <GRTR? TEMP20 0 + TAG23 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <GVAL 'AC-PC = TEMP19>
+ <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
+ <OR TEMP19 #WORD *220* = TEMP19>
+ <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
+ <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = TEMP19>
+ <CONS TEMP19 () = TEMP19>
+ <FRAME '\1aLREV>
+ <GVAL 'SPSTO-LOC = STACK>
+ <CALL '\1aLREV 1 = TEMP10>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = TEMP10>
+ <CONS TEMP10 () = TEMP10>
+ <PUTREST TEMP19 TEMP10>
+ <DEAD TEMP10>
+ <CHTYPE TEMP19 <TYPE-CODE LADDR> = TEMP19>
+ <JUMP + COND17>
+PHRASE18
+ <GVAL 'AC-PC = TEMP10>
+ <NTHUV TEMP10 2 = TEMP10 (TYPE FIX)>
+ <OR TEMP10 #WORD *220* = TEMP10>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = TEMP10>
+ <CONS TEMP10 () = TEMP10>
+ <FRAME '\1aLREV>
+ <GVAL 'BINDID-LOC = STACK>
+ <CALL '\1aLREV 1 = TEMP22>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = TEMP22>
+ <CONS TEMP22 () = TEMP22>
+ <PUTREST TEMP10 TEMP22>
+ <DEAD TEMP22>
+ <CHTYPE TEMP10 <TYPE-CODE LADDR> = TEMP19>
+ <DEAD TEMP10>
+COND17
+ <PUSH TEMP19>
+ <DEAD TEMP19>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <RETURN 'NORMAL>
+PHRASE8
+ <FRAME '\1aMEMBER>
+ <NTHR CASE4 3 = STACK (RECORD-TYPE ATOM)>
+ <PUSH "PURVEC">
+ <PUSH "DBVEC">
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <CALL '\1aMEMBER 2 = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> - PHRASE26>
+ <DEAD TEMP19>
+ <FRAME '\1aFIND-CASE-ENTRY>
+ <PUSH CASE4>
+ <DEAD CASE4>
+ <CALL '\1aFIND-CASE-ENTRY 1 = TEMP10>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'ISETS!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH VAL5>
+ <DEAD VAL5>
+ <NTHUV TEMP10 2 = STACK (TYPE FIX)>
+ <DEAD TEMP10>
+ <CALL '\1aCALL-RTE 6>
+PHRASE26
+ <RETURN 'NORMAL>
+ <END \1aSETS-GEN>
+
+<NEWSTRUC CASE-ENTRY VECTOR CSENT-KIND ATOM CSENT-OFF FIX CSENT-VTYP ATOM>
+
+#WORD *20157761410*
+ <GFCN \1aCREATE-CASE-ENTRY ("VALUE" CASE-ENTRY ATOM FIX ATOM) KIND4 OFF5 VTYP6>
+ <TEMP TEMP8>
+ <INTGO>
+ <PUSH KIND4>
+ <DEAD KIND4>
+ <PUSH OFF5>
+ <DEAD OFF5>
+ <PUSH VTYP6>
+ <DEAD VTYP6>
+ <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP8 (TYPE VECTOR)>
+ <CHTYPE TEMP8 <TYPE-CODE CASE-ENTRY> = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aCREATE-CASE-ENTRY>
+
+<GDECL (CASE-ENTRY-TABLE) <VECTOR [REST CASE-ENTRY]>>
+
+#WORD *3236265513*
+ <GFCN \1aFIND-CASE-ENTRY ("VALUE" <OR FALSE CASE-ENTRY> ANY) KIND4>
+ <TEMP TEMP14 TEMP16:VECTOR CE17:CASE-ENTRY TEMP22:STRING TEMP24 TEMP25 TEMP26>
+ <INTGO>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <GVAL 'CASE-ENTRY-TABLE = TEMP16>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPUV? TEMP16 + MAPAP9>
+ <NTHUV TEMP16 1 = CE17>
+ <NTHR KIND4 3 = TEMP22 (RECORD-TYPE ATOM)>
+ <NTHUV CE17 1 = TEMP14 (TYPE ATOM)>
+ <NTHR TEMP14 3 = TEMP14 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP22 TEMP14 + TAG20>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <LENUS TEMP22 = TEMP24 (TYPE FIX)>
+ <LENUS TEMP14 = TEMP25 (TYPE FIX)>
+ <VEQUAL? TEMP24 TEMP25 - TAG21>
+ <DEAD TEMP25>
+ <LOOP (TEMP22 VALUE LENGTH) (TEMP14 VALUE LENGTH) (TEMP24 VALUE)>
+TAG27
+ <NTHUS TEMP22 1 = TEMP25>
+ <NTHUS TEMP14 1 = TEMP26>
+ <VEQUAL? TEMP25 TEMP26 - TAG21>
+ <DEAD TEMP25 TEMP26>
+ <RESTUS TEMP22 1 = TEMP22 (TYPE STRING)>
+ <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
+ <SUB TEMP24 1 = TEMP24 (TYPE FIX)>
+ <GRTR? TEMP24 0 + TAG27 (TYPE FIX)>
+ <RETURN CE17>
+ <DEAD CE17>
+ <ENDIF "STRING-EQUAL?">
+TAG21
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <JUMP + PHRASE19>
+TAG20
+ <RETURN CE17>
+ <DEAD CE17>
+PHRASE19
+ <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
+ <JUMP + MAP6>
+MAPAP9
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aFIND-CASE-ENTRY>
+
+#WORD *30261040262*
+ <GFCN \1aRECORD-GEN ("VALUE" ATOM <OR ATOM FIX> "TUPLE" ANY) TYPARG4>
+ <MAKTUP ARGS5:TUPLE TEMP12 TEMP13 = ARGS5>
+ <INTGO>
+ <TYPE? TYPARG4 <TYPE-CODE ATOM> - PHRASE7>
+ <GVAL 'TYPE-WORDS = TEMP12>
+ <EMPUV? TEMP12 + TAG8>
+ <LOOP (TYPARG4 VALUE) (TEMP12 LENGTH VALUE)>
+TAG10
+ <NTHUV TEMP12 1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE ATOM> - TAG11>
+ <VEQUAL? TEMP13 TYPARG4 + TAG9>
+ <DEAD TEMP13>
+TAG11
+ <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
+ <EMPUV? TEMP12 - TAG10>
+TAG8
+ <SET TEMP12 %<> (TYPE FALSE)>
+TAG9
+ <NTHUV TEMP12 2 = TYPARG4>
+ <DEAD TEMP12>
+PHRASE7
+ <FRAME '\1aCALL-STACK-FUNCTION>
+ <PUSH ARGS5>
+ <DEAD ARGS5>
+ <GVAL 'BRECORD!-MIMOP = STACK>
+ <PUSH %<>>
+ <PUSH TYPARG4>
+ <DEAD TYPARG4>
+ <CALL '\1aCALL-STACK-FUNCTION 4>
+ <RETURN 'NORMAL>
+ <END \1aRECORD-GEN>
+
+#WORD *37262265613*
+ <GFCN \1aLIST-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) LEN6 RES7 HINT8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'BLIST!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH 'LIST>
+ <PUSH LEN6>
+ <DEAD LEN6>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aLIST-GEN>
+
+#WORD *2420222004*
+ <GFCN \1aRTUPLE-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY) TVAR6 FVAR7 RES8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IRTUPLE!-MIMOP = STACK>
+ <PUSH 'JUMP>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH TVAR6>
+ <DEAD TVAR6>
+ <PUSH FVAR7>
+ <DEAD FVAR7>
+ <CALL '\1aCALL-RTE 6>
+ <RETURN 'UNCONDITIONAL-BRANCH>
+ <END \1aRTUPLE-GEN>
+
+#WORD *34661657151*
+ <GFCN \1aAGAIN-GEN ("VALUE" ATOM VARTBL "OPTIONAL" ANY) TVAR6 RES7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IAGAIN!-MIMOP = STACK>
+ <PUSH 'JUMP>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH TVAR6>
+ <DEAD TVAR6>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'UNCONDITIONAL-BRANCH>
+ <END \1aAGAIN-GEN>
+
+#WORD *61611153*
+ <GFCN \1aRETRY-GEN ("VALUE" ATOM VARTBL "OPTIONAL" ANY) TVAR6 RES7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IRETRY!-MIMOP = STACK>
+ <PUSH 'JUMP>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH TVAR6>
+ <DEAD TVAR6>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'UNCONDITIONAL-BRANCH>
+ <END \1aRETRY-GEN>
+
+#WORD *12375321254*
+ <GFCN \1aACTIVATION-GEN ("VALUE" ATOM "OPTIONAL" ANY) VAR6>
+ <OPT-DISPATCH 0 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IACTIVATION!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aCALL-RTE 4>
+ <RETURN 'NORMAL>
+ <END \1aACTIVATION-GEN>
+
+#WORD *15700766141*
+ <GFCN \1aTUPLE-GEN ("VALUE" ANY <OR FIX VARTBL> VARTBL "OPTIONAL" ANY) NUM6 DEST7 HINT8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP TEMP10>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'ITUPLE!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH DEST7>
+ <DEAD DEST7>
+ <PUSH 'TUPLE>
+ <PUSH NUM6>
+ <DEAD NUM6>
+ <CALL '\1aCALL-RTE 5 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aTUPLE-GEN>
+
+#WORD *6500067272*
+ <GFCN \1aSBLOCK-GEN ("VALUE" ATOM ATOM <OR FIX VARTBL> ANY "OPTIONAL" ANY) TYPARG6 NUMARG7 RES8 HINT9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP VEC10 TEMP18>
+ <INTGO>
+ <FRAME '\1aGET-AC>
+ <GVAL 'AC-0 = STACK>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2>
+ <GVAL 'TYPE-WORDS = VEC10>
+ <EMPUV? VEC10 + TAG14>
+ <LOOP (TYPARG6 VALUE) (VEC10 LENGTH VALUE)>
+TAG16
+ <NTHUV VEC10 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17>
+ <VEQUAL? TEMP18 TYPARG6 + TAG15>
+ <DEAD TEMP18>
+TAG17
+ <RESTUV VEC10 1 = VEC10 (TYPE VECTOR)>
+ <EMPUV? VEC10 - TAG16>
+TAG14
+ <SET VEC10 %<> (TYPE FALSE)>
+TAG15
+ <VEQUAL? VEC10 0 + PHRASE13>
+ <FRAME '\1aLOAD-CONSTANT>
+ <GVAL 'AC-0 = STACK>
+ <NTHUV VEC10 2 = STACK>
+ <DEAD VEC10>
+ <CALL '\1aLOAD-CONSTANT 2>
+ <JUMP + PHRASE20>
+PHRASE13
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TYPARG6>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <GVAL 'AC-0 = TEMP18>
+ <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP18>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+PHRASE20
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'ISBLOCK!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES8>
+ <DEAD RES8>
+ <PUSH TYPARG6>
+ <DEAD TYPARG6>
+ <PUSH NUMARG7>
+ <DEAD NUMARG7>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aSBLOCK-GEN>
+
+#WORD *10324035274*
+ <GFCN \1aUSBLOCK-GEN ("VALUE" ATOM ATOM <OR FIX VARTBL> ANY "OPTIONAL" ANY) TYPARG6 NUMARG7 RES8 HINT9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP VEC10 TEMP18>
+ <INTGO>
+ <FRAME '\1aGET-AC>
+ <GVAL 'AC-0 = STACK>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2>
+ <GVAL 'TYPE-WORDS = VEC10>
+ <EMPUV? VEC10 + TAG14>
+ <LOOP (TYPARG6 VALUE) (VEC10 LENGTH VALUE)>
+TAG16
+ <NTHUV VEC10 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17>
+ <VEQUAL? TEMP18 TYPARG6 + TAG15>
+ <DEAD TEMP18>
+TAG17
+ <RESTUV VEC10 1 = VEC10 (TYPE VECTOR)>
+ <EMPUV? VEC10 - TAG16>
+TAG14
+ <SET VEC10 %<> (TYPE FALSE)>
+TAG15
+ <VEQUAL? VEC10 0 + PHRASE13>
+ <FRAME '\1aLOAD-CONSTANT>
+ <GVAL 'AC-0 = STACK>
+ <NTHUV VEC10 2 = STACK>
+ <DEAD VEC10>
+ <CALL '\1aLOAD-CONSTANT 2>
+ <JUMP + PHRASE20>
+PHRASE13
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TYPARG6>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <GVAL 'AC-0 = TEMP18>
+ <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP18>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+PHRASE20
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'UISBLOCK!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES8>
+ <DEAD RES8>
+ <PUSH TYPARG6>
+ <DEAD TYPARG6>
+ <PUSH NUMARG7>
+ <DEAD NUMARG7>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aUSBLOCK-GEN>
+
+#WORD *36457566425*
+ <GFCN \1aINTGO-GEN ("VALUE" ATOM)>
+ <TEMP LAB4 TEMP9 TEMP12>
+ <INTGO>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = LAB4>
+ <GVAL 'BOOT-MODE = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE7>
+ <DEAD TEMP9>
+ <GVAL 'GC-MODE = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE7>
+ <DEAD TEMP9>
+ <GVAL 'DONT-INTERRUPT? = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE7>
+ <DEAD TEMP9>
+ <FRAME '\1aEMIT>
+ <PUSH 213>
+ <GVAL 'AC-PC = TEMP9>
+ <NTHUV TEMP9 2 = TEMP9 (TYPE FIX)>
+ <OR TEMP9 #WORD *220* = TEMP9>
+ <LSH TEMP9 24 = TEMP9 (TYPE FIX)>
+ <CHTYPE TEMP9 <TYPE-CODE EFF-ADDR> = TEMP9>
+ <CONS TEMP9 () = TEMP9>
+ <FRAME '\1aLREV>
+ <GVAL 'INTFLG-LOC = STACK>
+ <CALL '\1aLREV 1 = TEMP12>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = TEMP12>
+ <CONS TEMP12 () = TEMP12>
+ <PUTREST TEMP9 TEMP12>
+ <DEAD TEMP12>
+ <CHTYPE TEMP9 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP9>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 19>
+ <PUSH LAB4>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'LCKINT!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aCALL-RTE 4>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH LAB4>
+ <DEAD LAB4>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+PHRASE7
+ <RETURN 'NORMAL>
+ <END \1aINTGO-GEN>
+
+#WORD *11522446314*
+ <GFCN \1aTYPE-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) VAL6 RES7 HINT8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP DAC9>
+ <INTGO>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'TYPE>
+ <PUSH %<>>
+ <PUSH 'PREF-TYPE>
+ <CALL '\1aLOAD-VAR 4 = DAC9>
+ <FRAME '\1aDEST-DECL>
+ <PUSH DAC9>
+ <DEAD DAC9>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH 'FIX>
+ <CALL '\1aDEST-DECL 3 = DAC9>
+ <RETURN DAC9>
+ <DEAD DAC9>
+ <END \1aTYPE-GEN>
+
+#WORD *27157201266*
+ <GFCN \1aNEWTYPE-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) VAL16 RES7 HINT8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP TEMP10>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'INEWTYPE!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH 'FIX>
+ <PUSH VAL16>
+ <DEAD VAL16>
+ <CALL '\1aCALL-RTE 5 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aNEWTYPE-GEN>
+
+#WORD *26403131472*
+ <GFCN \1aTYPEW-GEN ("VALUE" ANY VARTBL VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) ARG16 ARG27 RES8 HINT9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP TEMP11>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'ITYPEW!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES8>
+ <DEAD RES8>
+ <PUSH 'TYPE-W>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <PUSH ARG27>
+ <DEAD ARG27>
+ <CALL '\1aCALL-RTE 6 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aTYPEW-GEN>
+
+#WORD *15371624343*
+ <GFCN \1aTYPEWC-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) ARG16 RES7 HINT8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP TEMP11>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'ITYPEWC!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH 'TYPE-C>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <CALL '\1aCALL-RTE 5 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aTYPEWC-GEN>
+
+#WORD *5101772217*
+ <GFCN \1aOPEN-GEN ("VALUE" ATOM <OR VARTBL FIX> <OR VARTBL FIX> <OR STRING VARTBL> <OR ATOM VARTBL> "OPTIONAL" ANY) MODE6 BYTESZ7 NAME8 RES9 HINT10>
+ <OPT-DISPATCH 4 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IOPEN!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH HINT10>
+ <DEAD HINT10>
+ <PUSH MODE6>
+ <DEAD MODE6>
+ <PUSH BYTESZ7>
+ <DEAD BYTESZ7>
+ <PUSH NAME8>
+ <DEAD NAME8>
+ <CALL '\1aCALL-RTE 7>
+ <RETURN 'NORMAL>
+ <END \1aOPEN-GEN>
+
+#WORD *10143302265*
+ <GFCN \1aCLOSE-GEN ("VALUE" ATOM <OR FIX VARTBL> "OPTIONAL" ANY) CH6 RES7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'ICLOSE!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH CH6>
+ <DEAD CH6>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aCLOSE-GEN>
+
+#WORD *24343246267*
+ <GFCN \1aRESET-GEN ("VALUE" ATOM <OR FIX VARTBL> "OPTIONAL" ANY) CH6 RES7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IRESET!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH CH6>
+ <DEAD CH6>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aRESET-GEN>
+
+#WORD *4751707514*
+ <GFCN \1aREAD-GEN ("VALUE" ANY <OR VARTBL FIX> VARTBL <OR VARTBL FIX> ANY "OPTIONAL" ANY) CHN6 STR7 NUMARGS8 GARB9 RES10>
+ <OPT-DISPATCH 4 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP12>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IREAD!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES10>
+ <DEAD RES10>
+ <PUSH 'FIX>
+ <PUSH CHN6>
+ <DEAD CHN6>
+ <PUSH STR7>
+ <DEAD STR7>
+ <PUSH NUMARGS8>
+ <DEAD NUMARGS8>
+ <PUSH GARB9>
+ <DEAD GARB9>
+ <CALL '\1aCALL-RTE 8 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aREAD-GEN>
+
+#WORD *21553115717*
+ <GFCN \1aPRINT-GEN ("VALUE" ANY <OR VARTBL FIX> VARTBL <OR VARTBL FIX>) CHN4 STR5 NUMARGS6>
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IPRINT!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH CHN4>
+ <DEAD CHN4>
+ <PUSH STR5>
+ <DEAD STR5>
+ <PUSH NUMARGS6>
+ <DEAD NUMARGS6>
+ <CALL '\1aCALL-RTE 7 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aPRINT-GEN>
+
+#WORD *12536524217*
+ <GFCN \1aRNTIME-GEN ("VALUE" ANY "OPTIONAL" ANY) RES6>
+ <OPT-DISPATCH 0 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IRNTIME!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES6>
+ <DEAD RES6>
+ <PUSH %<>>
+ <CALL '\1aCALL-RTE 4 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aRNTIME-GEN>
+
+#WORD *10500024352*
+ <GFCN \1aSAVE-GEN ("VALUE" ATOM <OR VARTBL FIX> "OPTIONAL" ANY ANY ANY) CHN8 ATMZN9 PURZN10 RES11>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'ISAVE!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES11>
+ <DEAD RES11>
+ <PUSH %<>>
+ <PUSH CHN8>
+ <DEAD CHN8>
+ <PUSH ATMZN9>
+ <DEAD ATMZN9>
+ <PUSH PURZN10>
+ <DEAD PURZN10>
+ <CALL '\1aCALL-RTE 7>
+ <RETURN 'NORMAL>
+ <END \1aSAVE-GEN>
+
+#WORD *32516764024*
+ <GFCN \1aRESTORE-GEN ("VALUE" ATOM <OR VARTBL FIX> "OPTIONAL" ANY) CHN6 RES7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IRESTORE!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH %<>>
+ <PUSH CHN6>
+ <DEAD CHN6>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aRESTORE-GEN>
+
+#WORD *32370306570*
+ <GFCN \1aCOMPERR-GEN ("VALUE" ATOM)>
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'ICOMPERR!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aCALL-RTE 4>
+ <RETURN 'NORMAL>
+ <END \1aCOMPERR-GEN>
+
+#WORD *33075464326*
+ <GFCN \1aUNWCNT-GEN ("VALUE" ATOM)>
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IUNWCNT!-MIMOP = STACK>
+ <PUSH 'JUMP>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aCALL-RTE 4>
+ <RETURN 'NORMAL>
+ <END \1aUNWCNT-GEN>
+
+#WORD *21401464745*
+ <GFCN \1aIRECORD-GEN ("VALUE" ATOM <OR VARTBL FIX> <OR VARTBL FIX> <OR VARTBL FIX> <OR ATOM VARTBL> "OPTIONAL" ANY) TYPEC6 NARGS7 NWORDS8 RES9 HINT10>
+ <OPT-DISPATCH 4 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'BIREC!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH HINT10>
+ <DEAD HINT10>
+ <PUSH TYPEC6>
+ <DEAD TYPEC6>
+ <PUSH NARGS7>
+ <DEAD NARGS7>
+ <PUSH NWORDS8>
+ <DEAD NWORDS8>
+ <CALL '\1aCALL-RTE 7>
+ <RETURN 'NORMAL>
+ <END \1aIRECORD-GEN>
+
+#WORD *16074157135*
+ <GFCN \1aADJ-GEN ("VALUE" ATOM <OR FIX VARTBL>) AMT4>
+ <TEMP LVAR6 TEMP15>
+ <INTGO>
+ <TYPE? AMT4 <TYPE-CODE FIX> - PHRASE8>
+ <FRAME '\1aADD-CONSTANT-TO-AC>
+ <LSH AMT4 2 = STACK (TYPE FIX)>
+ <DEAD AMT4>
+ <GVAL 'AC-TP = STACK>
+ <CALL '\1aADD-CONSTANT-TO-AC 2>
+ <RETURN 'NORMAL>
+PHRASE8
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH AMT4>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR6>
+ <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE10>
+ <NTHUV LVAR6 6 = LVAR6>
+ <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE10>
+ <FRAME '\1aEMIT>
+ <PUSH 120>
+ <FRAME '\1aMA-IMM>
+ <PUSH 2>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <NTHUV LVAR6 2 = TEMP15 (TYPE FIX)>
+ <DEAD LVAR6>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = LVAR6>
+ <NTHUV LVAR6 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <NTHUV LVAR6 2 = TEMP15 (TYPE FIX)>
+ <DEAD LVAR6>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <GVAL 'AC-TP = TEMP15>
+ <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <CALL '\1aEMIT 3>
+ <RETURN 'NORMAL>
+PHRASE10
+ <FRAME '\1aEMIT>
+ <PUSH 120>
+ <FRAME '\1aMA-IMM>
+ <PUSH 2>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH AMT4>
+ <DEAD AMT4>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = LVAR6>
+ <NTHUV LVAR6 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <NTHUV LVAR6 2 = TEMP15 (TYPE FIX)>
+ <DEAD LVAR6>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <GVAL 'AC-TP = TEMP15>
+ <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <CALL '\1aEMIT 3>
+ <RETURN 'NORMAL>
+ <END \1aADJ-GEN>
+
+#WORD *7762225647*
+ <GFCN \1aNTHU-GEN ("VALUE" ATOM ANY ANY ANY "OPTIONAL" ANY) STRUC6 NUM7 RES8 HINT9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'INTHU!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES8>
+ <DEAD RES8>
+ <PUSH HINT9>
+ <DEAD HINT9>
+ <PUSH STRUC6>
+ <DEAD STRUC6>
+ <PUSH NUM7>
+ <DEAD NUM7>
+ <CALL '\1aCALL-RTE 6>
+ <RETURN 'NORMAL>
+ <END \1aNTHU-GEN>
+
+#WORD *30763147603*
+ <GFCN \1aRESTU-GEN ("VALUE" ATOM ANY ANY ANY "OPTIONAL" ANY) STRUC6 NUM7 RES8 HINT9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IRESTU!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES8>
+ <DEAD RES8>
+ <PUSH HINT9>
+ <DEAD HINT9>
+ <PUSH STRUC6>
+ <DEAD STRUC6>
+ <PUSH NUM7>
+ <DEAD NUM7>
+ <CALL '\1aCALL-RTE 6>
+ <RETURN 'NORMAL>
+ <END \1aRESTU-GEN>
+
+#WORD *13611224070*
+ <GFCN \1aPUTU-GEN ("VALUE" ATOM ANY ANY ANY "OPTIONAL" ANY) STRUC6 NUM7 VAL8 HINT9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IPUTU!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH STRUC6>
+ <DEAD STRUC6>
+ <PUSH NUM7>
+ <DEAD NUM7>
+ <PUSH VAL8>
+ <DEAD VAL8>
+ <CALL '\1aCALL-RTE 7>
+ <RETURN 'NORMAL>
+ <END \1aPUTU-GEN>
+
+#WORD *11375564521*
+ <GFCN \1aATIC-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY) ARG7 RES8 HINT9>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IATIC!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES8>
+ <DEAD RES8>
+ <PUSH HINT9>
+ <DEAD HINT9>
+ <PUSH ARG7>
+ <DEAD ARG7>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aATIC-GEN>
+
+#WORD *14321052076*
+ <GFCN \1aPFRAME-GEN ("VALUE" ATOM VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) FRM6 RES7 HINT8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP TAC10 VAC9 TEMP17:FIX TLAB12 NPL11>
+ <INTGO>
+ <FRAME '\1aGET-AC>
+ <CALL '\1aGET-AC 0 = TAC10>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH FRM6>
+ <DEAD FRM6>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <PUSH 'ANY-AC>
+ <CALL '\1aLOAD-VAR 4 = VAC9>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-DISP>
+ <PUSH VAC9>
+ <PUSH -12>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <NTHUV VAC9 2 = TEMP17 (TYPE FIX)>
+ <OR TEMP17 #WORD *120* = TEMP17>
+ <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
+ <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP17>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = TLAB12>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH TLAB12>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 149>
+ <FRAME '\1aMA-DISP>
+ <PUSH VAC9>
+ <PUSH -1>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = NPL11>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 25>
+ <PUSH NPL11>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-DISP>
+ <PUSH VAC9>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <NTHUV VAC9 2 = TEMP17 (TYPE FIX)>
+ <OR TEMP17 #WORD *120* = TEMP17>
+ <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
+ <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP17>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 17>
+ <PUSH TLAB12>
+ <DEAD TLAB12>
+ <PUSH 'UNCONDITIONAL-BRANCH>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH NPL11>
+ <DEAD NPL11>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH 'FRAME>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <NTHUV TAC10 2 = TEMP17 (TYPE FIX)>
+ <OR TEMP17 #WORD *120* = TEMP17>
+ <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
+ <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP17>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aDEST-PAIR>
+ <PUSH VAC9>
+ <DEAD VAC9>
+ <PUSH TAC10>
+ <DEAD TAC10>
+ <PUSH RES7>
+ <DEAD RES7>
+ <CALL '\1aDEST-PAIR 3>
+ <RETURN 'NORMAL>
+ <END \1aPFRAME-GEN>
+
+#WORD *20416706372*
+ <GFCN \1aARGS-GEN ("VALUE" ANY VARTBL "OPTIONAL" ANY ANY) FRM7 RES8 HINT9>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP TEMP11>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IARGS!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES8>
+ <DEAD RES8>
+ <PUSH HINT9>
+ <DEAD HINT9>
+ <PUSH FRM7>
+ <DEAD FRM7>
+ <CALL '\1aCALL-RTE 5 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aARGS-GEN>
+
+#WORD *30460665451*
+ <GFCN \1aVALUE-GEN ("VALUE" ATOM ANY <OR ATOM VARTBL> "OPTIONAL" ANY) VAL6 RES7 HINT8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP VAC9>
+ <INTGO>
+ <FRAME '\1aGET-AC>
+ <CALL '\1aGET-AC 0 = VAC9>
+ <FRAME '\1aMOVE-VALUE>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH VAC9>
+ <CALL '\1aMOVE-VALUE 2>
+ <FRAME '\1aDEST-DECL>
+ <PUSH VAC9>
+ <DEAD VAC9>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH 'FIX>
+ <CALL '\1aDEST-DECL 3>
+ <RETURN 'NORMAL>
+ <END \1aVALUE-GEN>
+
+<DEFINE OBJECT-GEN (TYP CNT VAL RES "AUX" TAC VAC (TDONE? <>)) <COND (<==? .RES STACK> <COND (<TYPE? .TYP VARTBL> <EMIT-PUSH <VAR-VALUE-ADDRESS .TYP> WORD>) (<EMIT-PUSH <MA-IMM .TYP> WORD>)> <COND (<TYPE? .CNT VARTBL> <EMIT-PUSH <VAR-VALUE-ADDRESS .CNT> WORD>) (<EMIT-PUSH <MA-IMM .CNT> WORD>)> <COND (<TYPE? .VAL VARTBL> <EMIT-PUSH <VAR-VALUE-ADDRESS .VAL> LONG>) (<EMIT-PUSH <MA-IMM .VAL> LONG>)>) (T <SET TAC <GET-AC DOUBLE T>> <COND (<NOT <TYPE? .CNT VARTBL>> <COND (<==? .CNT 0> <SET TDONE? T> <COND (<TYPE? .TYP VARTBL> <EMIT ,INST-MOVZWL <VAR-VALUE-ADDRESS .TYP> <MA-REG .TAC>>) (T <EMIT-MOVE <MA-IMM .TYP> <MA-REG .TAC> LONG>)>) (<NOT <TYPE? .TYP VARTBL>> <SET TDONE? T> <EMIT-MOVE <MA-IMM <ORB .TYP <LSH .CNT 16>>> <MA-REG .TAC> LONG>)>)> <COND (<NOT .TDONE?> <EMIT ,INST-MOVW <COND (<TYPE? .CNT VARTBL> <VAR-VALUE-ADDRESS .CNT>) (<MA-IMM .CNT>)> <MA-REG .TAC>> <EMIT ,INST-ASHL <MA-LIT 16> <MA-REG .TAC> <MA-REG .TAC>> <EMIT ,INST-MOVW <COND (<TYPE? .TYP VARTBL> <VAR-VALUE-ADDRESS .TYP>) (<MA-IMM .TYP>)> <MA-REG .TAC>>)> <EMIT ,INST-MOVL <COND (<TYPE? .VAL VARTBL> <VAR-VALUE-ADDRESS .VAL>) (<MA-IMM .VAL>)> <MA-REG <SET VAC <NEXT-AC .TAC>>>> <DEST-PAIR .VAC .TAC .RES T>)> NORMAL>
+
+#WORD *37467326710*
+ <GFCN \1aNTH1-GEN ("VALUE" ANY ANY ANY "OPTIONAL" ANY) VAL6 RES7 HINT8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP10>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'CINTH!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH HINT8>
+ <DEAD HINT8>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <CALL '\1aCALL-RTE 5 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aNTH1-GEN>
+
+#WORD *36267340710*
+ <GFCN \1aREST1-GEN ("VALUE" ANY ANY ANY "OPTIONAL" ANY) VAL6 RES7 HINT8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP10>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'CIRST!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH HINT8>
+ <DEAD HINT8>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <CALL '\1aCALL-RTE 5 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aREST1-GEN>
+
+#WORD *2650461556*
+ <GFCN \1aEMPTY?-GEN ("VALUE" ANY VARTBL ATOM ATOM) VAR4 DIR5 LABEL6>
+ <TEMP XLABEL7>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'CIEMP!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aCALL-RTE 5>
+ <VEQUAL? DIR5 '+ - PHRASE10>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 17>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = XLABEL7>
+ <PUSH XLABEL7>
+ <PUSH 'UNCONDITIONAL-BRANCH>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aGEN-BRANCH 5>
+PHRASE10
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 17>
+ <PUSH LABEL6>
+ <DEAD LABEL6>
+ <PUSH 'UNCONDITIONAL-BRANCH>
+ <PUSH %<>>
+ <VEQUAL? DIR5 '- - TAG14>
+ <PUSH 'T>
+ <JUMP + TAG15>
+TAG14
+ <PUSH %<>>
+TAG15
+ <CALL '\1aGEN-BRANCH 5>
+ <VEQUAL? DIR5 '+ + TAG19>
+ <DEAD DIR5>
+ <RETURN %<>>
+TAG19
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH XLABEL7>
+ <DEAD XLABEL7>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2 = XLABEL7>
+ <RETURN XLABEL7>
+ <DEAD XLABEL7>
+ <END \1aEMPTY?-GEN>
+
+#WORD *32667311310*
+ <GFCN \1aGASSIGNED?-GEN ("VALUE" ANY ANY ANY "OPTIONAL" ANY) VAL6 RES7 HINT8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP10>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'CIGAS!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH HINT8>
+ <DEAD HINT8>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <CALL '\1aCALL-RTE 5 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aGASSIGNED?-GEN>
+
+#WORD *34650441557*
+ <GFCN \1aMONAD?-GEN ("VALUE" ANY VARTBL ATOM ATOM) VAR4 DIR5 LABEL6>
+ <TEMP XLABEL7>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'CIMON!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aCALL-RTE 5>
+ <VEQUAL? DIR5 '+ - PHRASE10>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 17>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = XLABEL7>
+ <PUSH XLABEL7>
+ <PUSH 'UNCONDITIONAL-BRANCH>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aGEN-BRANCH 5>
+PHRASE10
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 17>
+ <PUSH LABEL6>
+ <DEAD LABEL6>
+ <PUSH 'UNCONDITIONAL-BRANCH>
+ <PUSH %<>>
+ <VEQUAL? DIR5 '- - TAG14>
+ <PUSH 'T>
+ <JUMP + TAG15>
+TAG14
+ <PUSH %<>>
+TAG15
+ <CALL '\1aGEN-BRANCH 5>
+ <VEQUAL? DIR5 '+ + TAG19>
+ <DEAD DIR5>
+ <RETURN %<>>
+TAG19
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH XLABEL7>
+ <DEAD XLABEL7>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2 = XLABEL7>
+ <RETURN XLABEL7>
+ <DEAD XLABEL7>
+ <END \1aMONAD?-GEN>
+
+#WORD *37067306710*
+ <GFCN \1aFGVAL-GEN ("VALUE" ANY ANY ANY "OPTIONAL" ANY) VAL6 RES7 HINT8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP10>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'CIGVL!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH HINT8>
+ <DEAD HINT8>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <CALL '\1aCALL-RTE 5 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aFGVAL-GEN>
+
+#WORD *25745011764*
+ <GFCN \1aACALL-GEN ("VALUE" ANY ANY ANY "OPTIONAL" ANY ANY) SBR7 NARG8 RES9 HINT10>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP TEMP12>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IACALL!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH HINT10>
+ <DEAD HINT10>
+ <PUSH SBR7>
+ <DEAD SBR7>
+ <PUSH NARG8>
+ <DEAD NARG8>
+ <CALL '\1aCALL-RTE 6 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aACALL-GEN>
+
+#WORD *32233334266*
+ <GFCN \1aBIGSTACK-GEN ("VALUE" ANY ANY "OPTIONAL" ANY ANY) NUM7 RES8 HINT9>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP TEMP11>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IBIGSTK!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES8>
+ <DEAD RES8>
+ <PUSH HINT9>
+ <DEAD HINT9>
+ <PUSH NUM7>
+ <DEAD NUM7>
+ <CALL '\1aCALL-RTE 5 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aBIGSTACK-GEN>
+
+#WORD *13651652606*
+ <GFCN \1aON-STACK?-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" ANY ANY ANY) OBJ8 RES9 HINT10 LABEL11 TAC12>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <PUSH #T$UNBOUND 0>
+OPT7
+ <TEMP TEMP20 TEMP22>
+ <INTGO>
+ <TYPE? LABEL11 <TYPE-CODE UNBOUND> - TAG13>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = LABEL11>
+TAG13
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = TAC12>
+ <FRAME '\1aLOAD-CONSTANT>
+ <PUSH TAC12>
+ <PUSH 0>
+ <CALL '\1aLOAD-CONSTANT 2>
+ <FRAME '\1aDEST-DECL>
+ <PUSH TAC12>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH 'FIX>
+ <CALL '\1aDEST-DECL 3>
+ <FRAME '\1aEMIT>
+ <PUSH 209>
+ <GVAL 'AC-PC = TEMP20>
+ <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
+ <OR TEMP20 #WORD *220* = TEMP20>
+ <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
+ <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = TEMP20>
+ <CONS TEMP20 () = TEMP20>
+ <FRAME '\1aLREV>
+ <GVAL 'STKBOT-LOC = STACK>
+ <CALL '\1aLREV 1 = TEMP22>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = TEMP22>
+ <CONS TEMP22 () = TEMP22>
+ <PUTREST TEMP20 TEMP22>
+ <DEAD TEMP22>
+ <CHTYPE TEMP20 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP20>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH OBJ8>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 20>
+ <PUSH LABEL11>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT>
+ <PUSH 209>
+ <GVAL 'AC-PC = TEMP20>
+ <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
+ <OR TEMP20 #WORD *220* = TEMP20>
+ <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
+ <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = TEMP20>
+ <CONS TEMP20 () = TEMP20>
+ <FRAME '\1aLREV>
+ <GVAL 'STKTOP-LOC = STACK>
+ <CALL '\1aLREV 1 = TEMP22>
+ <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = TEMP22>
+ <CONS TEMP22 () = TEMP22>
+ <PUTREST TEMP20 TEMP22>
+ <DEAD TEMP22>
+ <CHTYPE TEMP20 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP20>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH OBJ8>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 25>
+ <PUSH LABEL11>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aLOAD-CONSTANT>
+ <PUSH TAC12>
+ <PUSH 1>
+ <CALL '\1aLOAD-CONSTANT 2>
+ <FRAME '\1aEMIT>
+ <PUSH 209>
+ <GVAL 'AC-TP = TEMP20>
+ <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
+ <OR TEMP20 #WORD *120* = TEMP20>
+ <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
+ <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP20>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH OBJ8>
+ <DEAD OBJ8>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 25>
+ <PUSH LABEL11>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aLOAD-CONSTANT>
+ <PUSH TAC12>
+ <DEAD TAC12>
+ <PUSH -1>
+ <CALL '\1aLOAD-CONSTANT 2>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH LABEL11>
+ <DEAD LABEL11>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <RETURN 'NORMAL>
+ <END \1aON-STACK?-GEN>
projects / pdp10-muddle.git / blobdiff