--- /dev/null
+
+<MSETG BIT0 1>
+
+<MSETG BIT1 2>
+
+<MSETG BIT2 4>
+
+<MSETG BIT3 8>
+
+<MSETG BIT4 16>
+
+<MSETG BIT5 32>
+
+<MSETG ADDR-MASK-2 3>
+
+<MSETG SHORT-MARK-BIT <CHTYPE <LSH 1 7> FIX>>
+
+<MSETG MARK-BIT <CHTYPE <LSH 1 15> FIX>>
+
+<MSETG DOPE-BIT <CHTYPE <LSH 1 5> FIX>>
+
+<MSETG FLEN 28>
+
+<MSETG LIST-LEN 12>
+
+<MSETG ATOM-LEN 20>
+
+<MSETG GBIND-LEN 20>
+
+<MSETG LBIND-LEN 32>
+
+#WORD *17712243722*
+ <GFCN \1aGCTEMP ("VALUE" <OR EFF-ADDR LADDR> ANY) NUM4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <MUL NUM4 -4 = STACK (TYPE FIX)>
+ <DEAD NUM4>
+ <CALL '\1aMA-DISP 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aGCTEMP>
+
+#WORD *34634505354*
+ <GFCN \1aCGC-RECORD-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY ANY "OPTIONAL" ANY) VAR6 ALLOC-ATOM7 END-ATOM8 NEXT-ATOM9 BOUNDS-ATOM10 RES11 HINT12>
+ <OPT-DISPATCH 6 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP BOUNDS-LAB17 IB-LAB18 F-LAB19 EXIT-LAB20 M-LAB21 RLEN13:FIX STK?14 TEMP42 X47 ALLOCADDR15>
+ <INTGO>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = BOUNDS-LAB17>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = IB-LAB18>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = F-LAB19>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = EXIT-LAB20>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = M-LAB21>
+ <TYPE? HINT12 <TYPE-CODE FALSE> + PHRASE28>
+ <FRAME '\1aPARSE-HINT>
+ <PUSH HINT12>
+ <DEAD HINT12>
+ <PUSH 'RECORD-TYPE>
+ <CALL '\1aPARSE-HINT 2 = HINT12>
+PHRASE28
+ <EQUAL? HINT12 'ATOM - PHRASE31>
+ <SET RLEN13 20 (TYPE FIX)>
+ <SET STK?14 %<> (TYPE FALSE)>
+ <JUMP + PHRASE34>
+PHRASE31
+ <EQUAL? HINT12 'GBIND - PHRASE32>
+ <SET RLEN13 20 (TYPE FIX)>
+ <SET STK?14 %<> (TYPE FALSE)>
+ <JUMP + PHRASE34>
+PHRASE32
+ <EQUAL? HINT12 'LBIND - PHRASE33>
+ <SET RLEN13 32 (TYPE FIX)>
+ <SET STK?14 'T (TYPE ATOM)>
+ <JUMP + PHRASE34>
+PHRASE33
+ <FRAME '\1aERROR>
+ <PUSH 'BAD-HINT-FOR-CGC-RECORD!-ERRORS>
+ <PUSH HINT12>
+ <DEAD HINT12>
+ <PUSH 'CGC-RECORD-GEN>
+ <CALL '\1aERROR 3>
+PHRASE34
+ <SET TEMP42 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
+ <LOOP>
+MAP37
+ <INTGO>
+ <EMPL? TEMP42 + MAPAP40>
+ <NTHL TEMP42 1 = X47>
+ <FRAME '\1aMUNG-AC>
+ <GVAL X47 = STACK>
+ <DEAD X47>
+ <CALL '\1aMUNG-AC 1>
+ <RESTL TEMP42 1 = TEMP42 (TYPE LIST)>
+ <JUMP + MAP37>
+MAPAP40
+ <FRAME '\1aMA-DEF-DISP>
+ <GVAL 'AC-M = STACK>
+ <FRAME '\1aADD-MVEC>
+ <CHTYPE END-ATOM8 <TYPE-CODE XGLOC> = STACK>
+ <DEAD END-ATOM8>
+ <CALL '\1aADD-MVEC 1 = TEMP42>
+ <ADD TEMP42 4 = STACK (TYPE FIX)>
+ <DEAD TEMP42>
+ <CALL '\1aMA-DEF-DISP 2 = X47>
+ <FRAME '\1aMA-DEF-DISP>
+ <GVAL 'AC-M = STACK>
+ <FRAME '\1aADD-MVEC>
+ <CHTYPE ALLOC-ATOM7 <TYPE-CODE XGLOC> = STACK>
+ <DEAD ALLOC-ATOM7>
+ <CALL '\1aADD-MVEC 1 = TEMP42>
+ <ADD TEMP42 4 = STACK (TYPE FIX)>
+ <DEAD TEMP42>
+ <CALL '\1aMA-DEF-DISP 2 = ALLOCADDR15>
+ <VEQUAL? STK?14 0 + PHRASE54>
+ <DEAD STK?14>
+ <FRAME '\1aEMIT>
+ <PUSH 209>
+ <GVAL 'AC-TP = STK?14>
+ <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
+ <DEAD STK?14>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR6>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 25>
+ <PUSH BOUNDS-LAB17>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-M = STACK>
+ <FRAME '\1aADD-MVEC>
+ <PUSH %<>>
+ <CALL '\1aADD-MVEC 1 = STACK>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <GVAL 'AC-0 = STK?14>
+ <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
+ <DEAD STK?14>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 17>
+ <PUSH EXIT-LAB20>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH BOUNDS-LAB17>
+ <DEAD BOUNDS-LAB17>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aFRAME-GEN>
+ <PUSH BOUNDS-ATOM10>
+ <CALL '\1aFRAME-GEN 1>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAR6>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
+ <GVAL 'AC-TP = STK?14>
+ <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
+ <DEAD STK?14>
+ <OR TEMP42 #WORD *200* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aCALL-GEN>
+ <PUSH BOUNDS-ATOM10>
+ <DEAD BOUNDS-ATOM10>
+ <PUSH 1>
+ <CALL '\1aCALL-GEN 2>
+ <FRAME '\1aEMIT>
+ <PUSH 213>
+ <GVAL 'AC-1 = STK?14>
+ <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
+ <DEAD STK?14>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 18>
+ <PUSH IB-LAB18>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <GVAL 'AC-0 = STK?14>
+ <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
+ <DEAD STK?14>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR6>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <GVAL 'AC-1 = STK?14>
+ <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
+ <DEAD STK?14>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 17>
+ <PUSH EXIT-LAB20>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH IB-LAB18>
+ <DEAD IB-LAB18>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+PHRASE54
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR6>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <GVAL 'AC-1 = STK?14>
+ <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
+ <DEAD STK?14>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 149>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-1 = STACK>
+ <ADD RLEN13 1 = STACK (TYPE FIX)>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 24>
+ <PUSH M-LAB21>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAR6>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
+ <GVAL 'AC-0 = STK?14>
+ <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
+ <DEAD STK?14>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-1 = STACK>
+ <ADD RLEN13 4 = STACK (TYPE FIX)>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <GVAL 'AC-1 = STK?14>
+ <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
+ <DEAD STK?14>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 17>
+ <PUSH EXIT-LAB20>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH M-LAB21>
+ <DEAD M-LAB21>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 136>
+ <GVAL 'AC-PC = STK?14>
+ <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
+ <DEAD STK?14>
+ <OR TEMP42 #WORD *200* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <LSH 128 16 = STK?14 (TYPE FIX)>
+ <OR TEMP42 STK?14 = TEMP42>
+ <DEAD STK?14>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-1 = STACK>
+ <ADD RLEN13 1 = STACK (TYPE FIX)>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <PUSH ALLOCADDR15>
+ <GVAL 'AC-2 = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 193>
+ <FRAME '\1aMA-IMM>
+ <ADD RLEN13 8 = STACK (TYPE FIX)>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-3 = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <GVAL 'AC-6 = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <PUSH X47>
+ <DEAD X47>
+ <GVAL 'AC-4 = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 209>
+ <GVAL 'AC-6 = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <GVAL 'AC-5 = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 21>
+ <PUSH F-LAB19>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aFRAME-GEN>
+ <PUSH NEXT-ATOM9>
+ <CALL '\1aFRAME-GEN 1>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-IMM>
+ <ADD RLEN13 8 = STACK (TYPE FIX)>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-TP = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *200* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aCALL-GEN>
+ <PUSH NEXT-ATOM9>
+ <DEAD NEXT-ATOM9>
+ <PUSH 1>
+ <CALL '\1aCALL-GEN 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <GVAL 'AC-1 = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <PUSH ALLOCADDR15>
+ <GVAL 'AC-2 = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 193>
+ <FRAME '\1aMA-IMM>
+ <ADD RLEN13 8 = STACK (TYPE FIX)>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-3 = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <GVAL 'AC-6 = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH F-LAB19>
+ <DEAD F-LAB19>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-3 = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-1 = STACK>
+ <ADD RLEN13 4 = STACK (TYPE FIX)>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <GVAL 'AC-5 = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <GVAL 'AC-5 = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <PUSH ALLOCADDR15>
+ <DEAD ALLOCADDR15>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-1 = STACK>
+ <PUSH RLEN13>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-3 = STACK>
+ <PUSH RLEN13>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 138>
+ <GVAL 'AC-PC = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *200* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <LSH 128 16 = STK?14 (TYPE FIX)>
+ <OR TEMP42 STK?14 = TEMP42>
+ <DEAD STK?14>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-3 = STACK>
+ <ADD RLEN13 1 = STACK (TYPE FIX)>
+ <DEAD RLEN13>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-3 = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <GVAL 'AC-1 = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <GVAL 'AC-0 = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH EXIT-LAB20>
+ <DEAD EXIT-LAB20>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <EQUAL? RES11 'STACK - PHRASE121>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <GVAL 'AC-0 = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <GVAL 'AC-TP = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *200* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <CALL '\1aEMIT 3>
+ <RETURN 'NORMAL>
+PHRASE121
+ <FRAME '\1aDEST-PAIR>
+ <GVAL 'AC-1 = STACK>
+ <GVAL 'AC-0 = STACK>
+ <PUSH RES11>
+ <DEAD RES11>
+ <CALL '\1aDEST-PAIR 3>
+ <RETURN 'NORMAL>
+ <END \1aCGC-RECORD-GEN>
+
+#WORD *14013231334*
+ <GFCN \1aCGC-STBYTE-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY) VAR4 ALLOC-ATOM5 END-ATOM6 NEXT-ATOM7 RES8>
+ <TEMP TEMP15 X20:ATOM>
+ <INTGO>
+ <SET TEMP15 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
+ <LOOP>
+MAP10
+ <INTGO>
+ <EMPL? TEMP15 + MAPAP13>
+ <NTHL TEMP15 1 = X20>
+ <FRAME '\1aMUNG-AC>
+ <GVAL X20 = STACK>
+ <DEAD X20>
+ <CALL '\1aMUNG-AC 1>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <JUMP + MAP10>
+MAPAP13
+ <FRAME '\1aEMIT>
+ <PUSH 60>
+ <FRAME '\1aVAR-COUNT-ADDRESS>
+ <PUSH VAR4>
+ <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
+ <GVAL 'AC-0 = 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>
+ <FRAME '\1aEMIT>
+ <PUSH 193>
+ <GVAL 'AC-0 = 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>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR4>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <GVAL 'AC-1 = 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 4>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <FRAME '\1aMA-IMM>
+ <PUSH 3>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-1 = 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>
+ <FRAME '\1aEMIT>
+ <PUSH 138>
+ <FRAME '\1aMA-IMM>
+ <PUSH 3>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-1 = 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>
+ <FRAME '\1aEMIT>
+ <PUSH 195>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR4>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <GVAL 'AC-1 = 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>
+ <GVAL 'AC-0 = 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 4>
+ <FRAME '\1aCGC-UV-ST>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH ALLOC-ATOM5>
+ <DEAD ALLOC-ATOM5>
+ <PUSH END-ATOM6>
+ <DEAD END-ATOM6>
+ <PUSH NEXT-ATOM7>
+ <DEAD NEXT-ATOM7>
+ <PUSH RES8>
+ <DEAD RES8>
+ <CALL '\1aCGC-UV-ST 5 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aCGC-STBYTE-GEN>
+
+#WORD *5503241365*
+ <GFCN \1aCGC-UVECTOR-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY) VAR4 ALLOC-ATOM5 END-ATOM6 NEXT-ATOM7 RES8>
+ <TEMP TEMP15 X20:ATOM>
+ <INTGO>
+ <SET TEMP15 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
+ <LOOP>
+MAP10
+ <INTGO>
+ <EMPL? TEMP15 + MAPAP13>
+ <NTHL TEMP15 1 = X20>
+ <FRAME '\1aMUNG-AC>
+ <GVAL X20 = STACK>
+ <DEAD X20>
+ <CALL '\1aMUNG-AC 1>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <JUMP + MAP10>
+MAPAP13
+ <FRAME '\1aEMIT>
+ <PUSH 60>
+ <FRAME '\1aVAR-COUNT-ADDRESS>
+ <PUSH VAR4>
+ <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
+ <GVAL 'AC-0 = 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>
+ <FRAME '\1aEMIT>
+ <PUSH 120>
+ <FRAME '\1aMA-IMM>
+ <PUSH 2>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-0 = 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>
+ <GVAL 'AC-0 = 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 4>
+ <FRAME '\1aEMIT>
+ <PUSH 193>
+ <GVAL 'AC-0 = 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>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR4>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <GVAL 'AC-1 = 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 4>
+ <FRAME '\1aCGC-UV-ST>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH ALLOC-ATOM5>
+ <DEAD ALLOC-ATOM5>
+ <PUSH END-ATOM6>
+ <DEAD END-ATOM6>
+ <PUSH NEXT-ATOM7>
+ <DEAD NEXT-ATOM7>
+ <PUSH RES8>
+ <DEAD RES8>
+ <CALL '\1aCGC-UV-ST 5 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aCGC-UVECTOR-GEN>
+
+#WORD *20554635463*
+ <GFCN \1aCGC-UV-ST ("VALUE" ATOM VARTBL ATOM ATOM ATOM <OR VARTBL ATOM>) VAR4 ALLOC-ATOM5 END-ATOM6 NEXT-ATOM7 RES8>
+ <TEMP M-LAB11 BLT-LOOP12 NF-LAB13 F-LAB14 SHT-LAB15 DONE-LAB16 TEMP25 ENDADDR9 ALLOCADDR10 TEMP32>
+ <INTGO>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = M-LAB11>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = BLT-LOOP12>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = NF-LAB13>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = F-LAB14>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = SHT-LAB15>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = DONE-LAB16>
+ <FRAME '\1aMA-DEF-DISP>
+ <GVAL 'AC-M = STACK>
+ <FRAME '\1aADD-MVEC>
+ <CHTYPE END-ATOM6 <TYPE-CODE XGLOC> = STACK>
+ <DEAD END-ATOM6>
+ <CALL '\1aADD-MVEC 1 = TEMP25>
+ <ADD TEMP25 4 = STACK (TYPE FIX)>
+ <DEAD TEMP25>
+ <CALL '\1aMA-DEF-DISP 2 = ENDADDR9>
+ <FRAME '\1aMA-DEF-DISP>
+ <GVAL 'AC-M = STACK>
+ <FRAME '\1aADD-MVEC>
+ <CHTYPE ALLOC-ATOM5 <TYPE-CODE XGLOC> = STACK>
+ <DEAD ALLOC-ATOM5>
+ <CALL '\1aADD-MVEC 1 = TEMP25>
+ <ADD TEMP25 4 = STACK (TYPE FIX)>
+ <DEAD TEMP25>
+ <CALL '\1aMA-DEF-DISP 2 = ALLOCADDR10>
+ <FRAME '\1aEMIT>
+ <PUSH 149>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-1 = STACK>
+ <PUSH 1>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 25>
+ <PUSH M-LAB11>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 136>
+ <GVAL 'AC-PC = TEMP25>
+ <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
+ <OR TEMP25 #WORD *200* = TEMP25>
+ <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
+ <LSH 128 16 = TEMP32 (TYPE FIX)>
+ <OR TEMP25 TEMP32 = TEMP25>
+ <DEAD TEMP32>
+ <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP25>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-1 = STACK>
+ <PUSH 1>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 221>
+ <GVAL 'AC-0 = TEMP25>
+ <NTHUV TEMP25 2 = TEMP32 (TYPE FIX)>
+ <DEAD TEMP25>
+ <OR TEMP32 #WORD *120* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aEMIT>
+ <PUSH 60>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-1 = STACK>
+ <PUSH 2>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <GVAL 'AC-6 = TEMP32>
+ <NTHUV TEMP32 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 '\1aEMIT>
+ <PUSH 120>
+ <FRAME '\1aMA-IMM>
+ <PUSH 2>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-6 = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *120* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <GVAL 'AC-6 = TEMP32>
+ <NTHUV TEMP32 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 4>
+ <FRAME '\1aEMIT>
+ <PUSH 221>
+ <GVAL 'AC-6 = TEMP32>
+ <NTHUV TEMP32 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 2>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <PUSH ALLOCADDR10>
+ <GVAL 'AC-2 = TEMP32>
+ <NTHUV TEMP32 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 '\1aEMIT>
+ <PUSH 192>
+ <GVAL 'AC-3 = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *120* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <GVAL 'AC-6 = TEMP32>
+ <NTHUV TEMP32 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 '\1aEMIT-BRANCH>
+ <PUSH 29>
+ <PUSH NF-LAB13>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <PUSH ENDADDR9>
+ <DEAD ENDADDR9>
+ <GVAL 'AC-4 = TEMP32>
+ <NTHUV TEMP32 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 '\1aEMIT>
+ <PUSH 209>
+ <GVAL 'AC-6 = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *120* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <GVAL 'AC-5 = TEMP32>
+ <NTHUV TEMP32 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 '\1aEMIT-BRANCH>
+ <PUSH 21>
+ <PUSH F-LAB14>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH NF-LAB13>
+ <DEAD NF-LAB13>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aFRAME-GEN>
+ <PUSH NEXT-ATOM7>
+ <CALL '\1aFRAME-GEN 1>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-P = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *140* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <GVAL 'AC-TP = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *200* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 221>
+ <GVAL 'AC-1 = TEMP32>
+ <NTHUV TEMP32 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 2>
+ <FRAME '\1aCALL-GEN>
+ <PUSH NEXT-ATOM7>
+ <DEAD NEXT-ATOM7>
+ <PUSH 1>
+ <CALL '\1aCALL-GEN 2>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <PUSH ALLOCADDR10>
+ <GVAL 'AC-2 = TEMP32>
+ <NTHUV TEMP32 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 '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-P = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *200* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <GVAL 'AC-1 = TEMP32>
+ <NTHUV TEMP32 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 '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-P = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *140* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <GVAL 'AC-6 = TEMP32>
+ <NTHUV TEMP32 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 '\1aEMIT>
+ <PUSH 192>
+ <GVAL 'AC-3 = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *120* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <GVAL 'AC-6 = TEMP32>
+ <NTHUV TEMP32 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 '\1aEMIT-LABEL>
+ <PUSH F-LAB14>
+ <DEAD F-LAB14>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 222>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-6 = STACK>
+ <PUSH -8>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-1 = STACK>
+ <PUSH 4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <GVAL 'AC-5 = TEMP32>
+ <NTHUV TEMP32 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 '\1aEMIT>
+ <PUSH 125>
+ <GVAL 'AC-5 = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *120* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <PUSH ALLOCADDR10>
+ <DEAD ALLOCADDR10>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-P = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *200* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <GVAL 'AC-6 = TEMP32>
+ <NTHUV TEMP32 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 '\1aEMIT>
+ <PUSH 194>
+ <GVAL 'AC-6 = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *120* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <GVAL 'AC-1 = TEMP32>
+ <NTHUV TEMP32 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 '\1aEMIT>
+ <PUSH 192>
+ <FRAME '\1aMA-IMM>
+ <PUSH 8>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-1 = TEMP32>
+ <NTHUV TEMP32 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 '\1aEMIT-LABEL>
+ <PUSH BLT-LOOP12>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-6 = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *120* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <GVAL 'AC-5 = TEMP32>
+ <NTHUV TEMP32 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 '\1aEMIT>
+ <PUSH 209>
+ <GVAL 'AC-6 = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *120* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <FRAME '\1aMA-IMM>
+ <PUSH 65535>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 25>
+ <PUSH SHT-LAB15>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-IMM>
+ <PUSH 65535>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-5 = TEMP32>
+ <NTHUV TEMP32 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 '\1aEMIT-LABEL>
+ <PUSH SHT-LAB15>
+ <DEAD SHT-LAB15>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 40>
+ <GVAL 'AC-5 = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *120* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <GVAL 'AC-1 = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *140* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <GVAL 'AC-3 = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *140* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT>
+ <PUSH 194>
+ <FRAME '\1aMA-IMM>
+ <PUSH 65535>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-6 = TEMP32>
+ <NTHUV TEMP32 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 '\1aGEN-BRANCH>
+ <PUSH 20>
+ <PUSH BLT-LOOP12>
+ <DEAD BLT-LOOP12>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT>
+ <PUSH 138>
+ <GVAL 'AC-PC = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *200* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <LSH 128 16 = TEMP25 (TYPE FIX)>
+ <OR TEMP32 TEMP25 = TEMP32>
+ <DEAD TEMP25>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-3 = STACK>
+ <PUSH -7>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 195>
+ <FRAME '\1aMA-IMM>
+ <PUSH 8>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-3 = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *120* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <GVAL 'AC-1 = TEMP32>
+ <NTHUV TEMP32 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 4>
+ <FRAME '\1aEMIT>
+ <PUSH 194>
+ <GVAL 'AC-P = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *200* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <GVAL 'AC-1 = TEMP32>
+ <NTHUV TEMP32 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 '\1aGEN-BRANCH>
+ <PUSH 17>
+ <PUSH DONE-LAB16>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH M-LAB11>
+ <DEAD M-LAB11>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-1 = STACK>
+ <PUSH 4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <GVAL 'AC-1 = TEMP32>
+ <NTHUV TEMP32 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 '\1aEMIT>
+ <PUSH 194>
+ <GVAL 'AC-0 = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *120* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <GVAL 'AC-1 = TEMP32>
+ <NTHUV TEMP32 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 '\1aEMIT-LABEL>
+ <PUSH DONE-LAB16>
+ <DEAD DONE-LAB16>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <EQUAL? RES8 'STACK - PHRASE92>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <GVAL 'AC-1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <RETURN 'NORMAL>
+PHRASE92
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
+ <GVAL 'AC-0 = TEMP32>
+ <NTHUV TEMP32 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>
+ <GVAL 'AC-1 = STACK>
+ <GVAL 'AC-0 = STACK>
+ <PUSH RES8>
+ <DEAD RES8>
+ <CALL '\1aDEST-PAIR 3>
+ <RETURN 'NORMAL>
+ <END \1aCGC-UV-ST>
+
+#WORD *24720663307*
+ <GFCN \1aCGC-VECTOR-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY ANY) VAR4 ALLOC-ATOM5 END-ATOM6 NEXT-ATOM7 MARK-ATOM8 RES9>
+ <TEMP NF-LAB12 F-LAB13 LOOP-LAB14 NM-LAB15 DONE-LAB16 M-LAB17 TEMP26 ENDADDR10 ALLOCADDR11 X39>
+ <INTGO>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = NF-LAB12>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = F-LAB13>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = LOOP-LAB14>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = NM-LAB15>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = DONE-LAB16>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = M-LAB17>
+ <FRAME '\1aMA-DEF-DISP>
+ <GVAL 'AC-M = STACK>
+ <FRAME '\1aADD-MVEC>
+ <CHTYPE END-ATOM6 <TYPE-CODE XGLOC> = STACK>
+ <DEAD END-ATOM6>
+ <CALL '\1aADD-MVEC 1 = TEMP26>
+ <ADD TEMP26 4 = STACK (TYPE FIX)>
+ <DEAD TEMP26>
+ <CALL '\1aMA-DEF-DISP 2 = ENDADDR10>
+ <FRAME '\1aMA-DEF-DISP>
+ <GVAL 'AC-M = STACK>
+ <FRAME '\1aADD-MVEC>
+ <CHTYPE ALLOC-ATOM5 <TYPE-CODE XGLOC> = STACK>
+ <DEAD ALLOC-ATOM5>
+ <CALL '\1aADD-MVEC 1 = TEMP26>
+ <ADD TEMP26 4 = STACK (TYPE FIX)>
+ <DEAD TEMP26>
+ <CALL '\1aMA-DEF-DISP 2 = ALLOCADDR11>
+ <SET TEMP26 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
+ <LOOP>
+MAP30
+ <INTGO>
+ <EMPL? TEMP26 + MAPAP33>
+ <NTHL TEMP26 1 = X39>
+ <FRAME '\1aMUNG-AC>
+ <GVAL X39 = STACK>
+ <DEAD X39>
+ <CALL '\1aMUNG-AC 1>
+ <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
+ <JUMP + MAP30>
+MAPAP33
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <FRAME '\1aMA-IMM>
+ <PUSH 20>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-TP = TEMP26>
+ <NTHUV TEMP26 2 = X39 (TYPE FIX)>
+ <DEAD TEMP26>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 60>
+ <FRAME '\1aVAR-COUNT-ADDRESS>
+ <PUSH VAR4>
+ <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
+ <GVAL 'AC-2 = TEMP26>
+ <NTHUV TEMP26 2 = X39 (TYPE FIX)>
+ <DEAD TEMP26>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 120>
+ <FRAME '\1aMA-IMM>
+ <PUSH 3>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-2 = TEMP26>
+ <NTHUV TEMP26 2 = X39 (TYPE FIX)>
+ <DEAD TEMP26>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <GVAL 'AC-2 = TEMP26>
+ <NTHUV TEMP26 2 = X39 (TYPE FIX)>
+ <DEAD TEMP26>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-2 = TEMP26>
+ <NTHUV TEMP26 2 = X39 (TYPE FIX)>
+ <DEAD TEMP26>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <FRAME '\1aGCTEMP>
+ <PUSH 5>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 193>
+ <GVAL 'AC-2 = TEMP26>
+ <NTHUV TEMP26 2 = X39 (TYPE FIX)>
+ <DEAD TEMP26>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR4>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <GVAL 'AC-3 = TEMP26>
+ <NTHUV TEMP26 2 = X39 (TYPE FIX)>
+ <DEAD TEMP26>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT>
+ <PUSH 149>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-3 = STACK>
+ <PUSH 1>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 25>
+ <PUSH M-LAB17>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 136>
+ <GVAL 'AC-PC = TEMP26>
+ <NTHUV TEMP26 2 = X39 (TYPE FIX)>
+ <DEAD TEMP26>
+ <OR X39 #WORD *200* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <LSH 128 16 = TEMP26 (TYPE FIX)>
+ <OR X39 TEMP26 = X39>
+ <DEAD TEMP26>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-3 = STACK>
+ <PUSH 1>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-3 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <FRAME '\1aGCTEMP>
+ <PUSH 1>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 60>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-3 = STACK>
+ <PUSH 2>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <GVAL 'AC-6 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 120>
+ <FRAME '\1aMA-IMM>
+ <PUSH 2>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-6 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <GVAL 'AC-6 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-6 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <FRAME '\1aGCTEMP>
+ <PUSH 2>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <PUSH ALLOCADDR11>
+ <GVAL 'AC-0 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <GVAL 'AC-1 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <GVAL 'AC-6 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 29>
+ <PUSH NF-LAB12>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <PUSH ENDADDR10>
+ <DEAD ENDADDR10>
+ <GVAL 'AC-4 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 209>
+ <GVAL 'AC-6 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <GVAL 'AC-5 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 21>
+ <PUSH F-LAB13>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH NF-LAB12>
+ <DEAD NF-LAB12>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-3 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <FRAME '\1aGCTEMP>
+ <PUSH 3>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aGCTEMP>
+ <PUSH 2>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <GVAL 'AC-3 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aFRAME-GEN>
+ <PUSH NEXT-ATOM7>
+ <CALL '\1aFRAME-GEN 1>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-3 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <GVAL 'AC-TP = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *200* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aCALL-GEN>
+ <PUSH NEXT-ATOM7>
+ <DEAD NEXT-ATOM7>
+ <PUSH 1>
+ <CALL '\1aCALL-GEN 2>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <PUSH ALLOCADDR11>
+ <GVAL 'AC-0 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aGCTEMP>
+ <PUSH 3>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <GVAL 'AC-3 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aGCTEMP>
+ <PUSH 2>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <GVAL 'AC-6 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <GVAL 'AC-1 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <GVAL 'AC-6 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH F-LAB13>
+ <DEAD F-LAB13>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 222>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-6 = STACK>
+ <PUSH -8>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-3 = STACK>
+ <PUSH 4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <GVAL 'AC-3 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *140* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-6 = STACK>
+ <PUSH -8>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 138>
+ <GVAL 'AC-PC = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *200* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <LSH 128 16 = TEMP26 (TYPE FIX)>
+ <OR X39 TEMP26 = X39>
+ <DEAD TEMP26>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-6 = STACK>
+ <PUSH -7>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <GVAL 'AC-5 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <GVAL 'AC-5 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <PUSH ALLOCADDR11>
+ <DEAD ALLOCADDR11>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 194>
+ <FRAME '\1aMA-IMM>
+ <PUSH 8>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <FRAME '\1aGCTEMP>
+ <PUSH 2>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 194>
+ <FRAME '\1aGCTEMP>
+ <PUSH 2>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <GVAL 'AC-3 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 120>
+ <FRAME '\1aMA-IMM>
+ <PUSH -3>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <FRAME '\1aGCTEMP>
+ <PUSH 2>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <FRAME '\1aGCTEMP>
+ <PUSH 2>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 19>
+ <PUSH DONE-LAB16>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-1 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <GVAL 'AC-4 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH LOOP-LAB14>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <GVAL 'AC-3 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *140* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <GVAL 'AC-0 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 147>
+ <GVAL 'AC-PC = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *200* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <LSH 7 16 = TEMP26 (TYPE FIX)>
+ <OR X39 TEMP26 = X39>
+ <DEAD TEMP26>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <GVAL 'AC-0 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 19>
+ <PUSH NM-LAB15>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-3 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <FRAME '\1aGCTEMP>
+ <PUSH 3>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-4 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <FRAME '\1aGCTEMP>
+ <PUSH 4>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aFRAME-GEN>
+ <PUSH MARK-ATOM8>
+ <CALL '\1aFRAME-GEN 1>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <GVAL 'AC-0 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <GVAL 'AC-TP = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *200* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aCALL-GEN>
+ <PUSH MARK-ATOM8>
+ <DEAD MARK-ATOM8>
+ <PUSH 1>
+ <CALL '\1aCALL-GEN 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aGCTEMP>
+ <PUSH 3>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <GVAL 'AC-3 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aGCTEMP>
+ <PUSH 4>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <GVAL 'AC-4 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH NM-LAB15>
+ <DEAD NM-LAB15>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <GVAL 'AC-0 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <GVAL 'AC-4 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *140* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <FRAME '\1aMA-IMM>
+ <PUSH 8>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-3 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <FRAME '\1aMA-IMM>
+ <PUSH 8>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-4 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 215>
+ <FRAME '\1aGCTEMP>
+ <PUSH 2>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 20>
+ <PUSH LOOP-LAB14>
+ <DEAD LOOP-LAB14>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH DONE-LAB16>
+ <DEAD DONE-LAB16>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aGCTEMP>
+ <PUSH 1>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <GVAL 'AC-3 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH M-LAB17>
+ <DEAD M-LAB17>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
+ <GVAL 'AC-0 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-3 = STACK>
+ <PUSH 4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <GVAL 'AC-1 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 194>
+ <FRAME '\1aGCTEMP>
+ <PUSH 5>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <GVAL 'AC-1 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 194>
+ <FRAME '\1aMA-IMM>
+ <PUSH 20>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-TP = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <EQUAL? RES9 'STACK - PHRASE145>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <GVAL 'AC-0 = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *120* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <GVAL 'AC-TP = X39>
+ <NTHUV X39 2 = X39 (TYPE FIX)>
+ <OR X39 #WORD *200* = X39>
+ <LSH X39 24 = X39 (TYPE FIX)>
+ <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X39>
+ <CALL '\1aEMIT 3>
+ <RETURN 'NORMAL>
+PHRASE145
+ <FRAME '\1aDEST-PAIR>
+ <GVAL 'AC-1 = STACK>
+ <GVAL 'AC-0 = STACK>
+ <PUSH RES9>
+ <DEAD RES9>
+ <CALL '\1aDEST-PAIR 3>
+ <RETURN 'NORMAL>
+ <END \1aCGC-VECTOR-GEN>
+
+#WORD *2127046074*
+ <GFCN \1aCGC-LIST-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY ANY ANY "OPTIONAL" ANY) VAR6 ALLOC-ATOM7 END-ATOM8 NEXT-ATOM9 BOUNDS-ATOM10 MARK-ATOM11 CHOMP12 RES13>
+ <OPT-DISPATCH 7 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP M-LAB16 DONE-LAB17 LOOP-LAB18 NF-LAB19 F-LAB20 NB-LAB21 MC-LAB22 (UNDO?23 %<>) TEMP35 ENDADDR14 ALLOCADDR15 X48>
+ <INTGO>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = M-LAB16>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = DONE-LAB17>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = LOOP-LAB18>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = NF-LAB19>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = F-LAB20>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = NB-LAB21>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = MC-LAB22>
+ <TYPE? RES13 <TYPE-CODE UNBOUND> - PHRASE32>
+ <SET RES13 CHOMP12>
+ <DEAD CHOMP12>
+ <JUMP + COND31>
+PHRASE32
+ <SET UNDO?23 'T (TYPE ATOM)>
+COND31
+ <FRAME '\1aMA-DEF-DISP>
+ <GVAL 'AC-M = STACK>
+ <FRAME '\1aADD-MVEC>
+ <CHTYPE END-ATOM8 <TYPE-CODE XGLOC> = STACK>
+ <DEAD END-ATOM8>
+ <CALL '\1aADD-MVEC 1 = TEMP35>
+ <ADD TEMP35 4 = STACK (TYPE FIX)>
+ <DEAD TEMP35>
+ <CALL '\1aMA-DEF-DISP 2 = ENDADDR14>
+ <FRAME '\1aMA-DEF-DISP>
+ <GVAL 'AC-M = STACK>
+ <FRAME '\1aADD-MVEC>
+ <CHTYPE ALLOC-ATOM7 <TYPE-CODE XGLOC> = STACK>
+ <DEAD ALLOC-ATOM7>
+ <CALL '\1aADD-MVEC 1 = TEMP35>
+ <ADD TEMP35 4 = STACK (TYPE FIX)>
+ <DEAD TEMP35>
+ <CALL '\1aMA-DEF-DISP 2 = ALLOCADDR15>
+ <SET TEMP35 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
+ <LOOP>
+MAP39
+ <INTGO>
+ <EMPL? TEMP35 + MAPAP42>
+ <NTHL TEMP35 1 = X48>
+ <FRAME '\1aMUNG-AC>
+ <GVAL X48 = STACK>
+ <DEAD X48>
+ <CALL '\1aMUNG-AC 1>
+ <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
+ <JUMP + MAP39>
+MAPAP42
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <FRAME '\1aMA-IMM>
+ <PUSH 12>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-TP = TEMP35>
+ <NTHUV TEMP35 2 = X48 (TYPE FIX)>
+ <DEAD TEMP35>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR6>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <GVAL 'AC-3 = TEMP35>
+ <NTHUV TEMP35 2 = X48 (TYPE FIX)>
+ <DEAD TEMP35>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-IMM>
+ <PUSH 0>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <FRAME '\1aGCTEMP>
+ <PUSH 1>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH LOOP-LAB18>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 149>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-3 = STACK>
+ <PUSH 1>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 25>
+ <PUSH M-LAB16>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 136>
+ <GVAL 'AC-PC = TEMP35>
+ <NTHUV TEMP35 2 = X48 (TYPE FIX)>
+ <DEAD TEMP35>
+ <OR X48 #WORD *200* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <LSH 128 16 = TEMP35 (TYPE FIX)>
+ <OR X48 TEMP35 = X48>
+ <DEAD TEMP35>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-3 = STACK>
+ <PUSH 1>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <PUSH ALLOCADDR15>
+ <GVAL 'AC-0 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 193>
+ <FRAME '\1aMA-IMM>
+ <PUSH 12>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-1 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <GVAL 'AC-6 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <PUSH ENDADDR14>
+ <DEAD ENDADDR14>
+ <GVAL 'AC-4 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 209>
+ <GVAL 'AC-6 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <GVAL 'AC-5 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 21>
+ <PUSH F-LAB20>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH NF-LAB19>
+ <DEAD NF-LAB19>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-3 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <FRAME '\1aGCTEMP>
+ <PUSH 2>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aFRAME-GEN>
+ <PUSH NEXT-ATOM9>
+ <CALL '\1aFRAME-GEN 1>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aMA-IMM>
+ <PUSH 12>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aCALL-GEN>
+ <PUSH NEXT-ATOM9>
+ <DEAD NEXT-ATOM9>
+ <PUSH 1>
+ <CALL '\1aCALL-GEN 2>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <PUSH ALLOCADDR15>
+ <GVAL 'AC-0 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aGCTEMP>
+ <PUSH 2>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <GVAL 'AC-3 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 193>
+ <FRAME '\1aMA-IMM>
+ <PUSH 12>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-1 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <GVAL 'AC-6 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH F-LAB20>
+ <DEAD F-LAB20>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <GVAL 'AC-5 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <GVAL 'AC-5 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <PUSH ALLOCADDR15>
+ <DEAD ALLOCADDR15>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <FRAME '\1aMA-IMM>
+ <PUSH 4>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-1 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aGCTEMP>
+ <PUSH 1>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <GVAL 'AC-4 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 19>
+ <PUSH NB-LAB21>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-1 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-4 = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH NB-LAB21>
+ <DEAD NB-LAB21>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-1 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <FRAME '\1aGCTEMP>
+ <PUSH 1>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-3 = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <GVAL 'AC-4 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-1 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-3 = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-4 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-1 = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <GVAL 'AC-3 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *140* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <GVAL 'AC-0 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 202>
+ <FRAME '\1aMA-IMM>
+ <PUSH 32768>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-0 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 147>
+ <GVAL 'AC-PC = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *200* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <LSH 7 16 = TEMP35 (TYPE FIX)>
+ <OR X48 TEMP35 = X48>
+ <DEAD TEMP35>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <GVAL 'AC-0 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 19>
+ <PUSH MC-LAB22>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-3 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <FRAME '\1aGCTEMP>
+ <PUSH 2>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-4 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <FRAME '\1aGCTEMP>
+ <PUSH 3>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aFRAME-GEN>
+ <PUSH MARK-ATOM11>
+ <CALL '\1aFRAME-GEN 1>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <GVAL 'AC-0 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <GVAL 'AC-TP = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *200* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aCALL-GEN>
+ <PUSH MARK-ATOM11>
+ <DEAD MARK-ATOM11>
+ <PUSH 1>
+ <CALL '\1aCALL-GEN 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aGCTEMP>
+ <PUSH 2>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <GVAL 'AC-3 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aGCTEMP>
+ <PUSH 3>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <GVAL 'AC-4 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH MC-LAB22>
+ <DEAD MC-LAB22>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aGCTEMP>
+ <PUSH 1>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <GVAL 'AC-2 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <GVAL 'AC-0 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <GVAL 'AC-2 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *140* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <VEQUAL? UNDO?23 0 + PHRASE124>
+ <DEAD UNDO?23>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-4 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <GVAL 'AC-2 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *140* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+PHRASE124
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-4 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <GVAL 'AC-3 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 19>
+ <PUSH DONE-LAB17>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-3 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <FRAME '\1aGCTEMP>
+ <PUSH 2>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aFRAME-GEN>
+ <PUSH BOUNDS-ATOM10>
+ <CALL '\1aFRAME-GEN 1>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH 'LIST>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <GVAL 'AC-3 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aCALL-GEN>
+ <PUSH BOUNDS-ATOM10>
+ <DEAD BOUNDS-ATOM10>
+ <PUSH 1>
+ <CALL '\1aCALL-GEN 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aGCTEMP>
+ <PUSH 2>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <GVAL 'AC-3 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 213>
+ <GVAL 'AC-1 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 18>
+ <PUSH LOOP-LAB18>
+ <DEAD LOOP-LAB18>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 17>
+ <PUSH DONE-LAB17>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH M-LAB16>
+ <DEAD M-LAB16>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aGCTEMP>
+ <PUSH 1>
+ <CALL '\1aGCTEMP 1 = STACK>
+ <GVAL 'AC-2 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 19>
+ <PUSH DONE-LAB17>
+ <PUSH %<>>
+ <GVAL 'LAST-INST-LENGTH = STACK>
+ <CALL '\1aEMIT-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-3 = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-2 = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH DONE-LAB17>
+ <DEAD DONE-LAB17>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 194>
+ <FRAME '\1aMA-IMM>
+ <PUSH 12>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-TP = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
+ <GVAL 'AC-0 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-1 = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <GVAL 'AC-1 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <EQUAL? RES13 'STACK - PHRASE155>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <GVAL 'AC-0 = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *120* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <GVAL 'AC-TP = X48>
+ <NTHUV X48 2 = X48 (TYPE FIX)>
+ <OR X48 #WORD *200* = X48>
+ <LSH X48 24 = X48 (TYPE FIX)>
+ <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X48>
+ <CALL '\1aEMIT 3>
+ <RETURN 'NORMAL>
+PHRASE155
+ <FRAME '\1aDEST-PAIR>
+ <GVAL 'AC-1 = STACK>
+ <GVAL 'AC-0 = STACK>
+ <PUSH RES13>
+ <DEAD RES13>
+ <CALL '\1aDEST-PAIR 3>
+ <RETURN 'NORMAL>
+ <END \1aCGC-LIST-GEN>
+
+#WORD *33742307121*
+ <GFCN \1aMARKL-GEN ("VALUE" ATOM VARTBL FIX) VAR4 VAL5>
+ <TEMP VAC6>
+ <INTGO>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH 'JUST-VALUE>
+ <PUSH %<>>
+ <PUSH 'PREF-VAL>
+ <CALL '\1aLOAD-VAR 4 = VAC6>
+ <FRAME '\1aFINISH-MARK>
+ <PUSH VAC6>
+ <DEAD VAC6>
+ <PUSH VAL5>
+ <DEAD VAL5>
+ <CALL '\1aFINISH-MARK 2>
+ <RETURN 'NORMAL>
+ <END \1aMARKL-GEN>
+
+#WORD *34542344540*
+ <GFCN \1aIMARKU-GEN ("VALUE" AC VARTBL <OR FIX VARTBL> FIX) VAR4 VAL5 SHIFT6>
+ <TEMP VAC7 TEMP16:FIX>
+ <INTGO>
+ <FRAME '\1aUSE-AC>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR4>
+ <PUSH 'COUNT>
+ <PUSH 'T>
+ <PUSH 'PREF-VAL>
+ <CALL '\1aLOAD-VAR 4 = VAC7>
+ <PUSH VAC7>
+ <CALL '\1aUSE-AC 1>
+ <VEQUAL? SHIFT6 0 + PHRASE11 (TYPE FIX)>
+ <FRAME '\1aEMIT>
+ <PUSH 120>
+ <FRAME '\1aMA-IMM>
+ <PUSH SHIFT6>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <NTHUV VAC7 2 = TEMP16 (TYPE FIX)>
+ <OR TEMP16 #WORD *120* = TEMP16>
+ <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
+ <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP16>
+ <NTHUV VAC7 2 = TEMP16 (TYPE FIX)>
+ <OR TEMP16 #WORD *120* = TEMP16>
+ <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
+ <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP16>
+ <CALL '\1aEMIT 4>
+PHRASE11
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <NTHUV VAC7 2 = TEMP16 (TYPE FIX)>
+ <OR TEMP16 #WORD *120* = TEMP16>
+ <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
+ <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP16>
+ <CALL '\1aEMIT 3>
+ <VEQUAL? SHIFT6 0 - PHRASE20 (TYPE FIX)>
+ <DEAD SHIFT6>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <FRAME '\1aMA-IMM>
+ <PUSH 3>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <NTHUV VAC7 2 = TEMP16 (TYPE FIX)>
+ <OR TEMP16 #WORD *120* = TEMP16>
+ <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
+ <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP16>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 138>
+ <FRAME '\1aMA-IMM>
+ <PUSH 3>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <NTHUV VAC7 2 = TEMP16 (TYPE FIX)>
+ <OR TEMP16 #WORD *120* = TEMP16>
+ <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
+ <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP16>
+ <CALL '\1aEMIT 3>
+PHRASE20
+ <FRAME '\1aFINISH-MARK>
+ <PUSH VAC7>
+ <PUSH VAL5>
+ <DEAD VAL5>
+ <CALL '\1aFINISH-MARK 2>
+ <RETURN VAC7>
+ <DEAD VAC7>
+ <END \1aIMARKU-GEN>
+
+#WORD *31201223445*
+ <GFCN \1aFINISH-MARK ("VALUE" ANY AC <OR FIX VARTBL>) VAC4 VAL5>
+ <TEMP TEMP9 V13:FIX TEMP15>
+ <INTGO>
+ <EQUAL? VAL5 0 - PHRASE7>
+ <FRAME '\1aEMIT>
+ <PUSH 170>
+ <GVAL 'AC-PC = TEMP9>
+ <NTHUV TEMP9 2 = TEMP9 (TYPE FIX)>
+ <OR TEMP9 #WORD *200* = TEMP9>
+ <LSH TEMP9 24 = TEMP9 (TYPE FIX)>
+ <SET V13 32768 (TYPE FIX)>
+ <AND V13 #WORD *377* = TEMP15>
+ <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
+ <AND V13 #WORD *177400* = V13>
+ <OR TEMP15 V13 = TEMP15>
+ <DEAD V13>
+ <AND TEMP15 #WORD *77777400* = TEMP15>
+ <OR TEMP9 TEMP15 = TEMP9>
+ <DEAD TEMP15>
+ <CHTYPE TEMP9 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP9>
+ <FRAME '\1aMA-DISP>
+ <PUSH VAC4>
+ <DEAD VAC4>
+ <PUSH 0>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE7
+ <FRAME '\1aEMIT>
+ <PUSH 168>
+ <GVAL 'AC-PC = TEMP15>
+ <NTHUV TEMP15 2 = V13 (TYPE FIX)>
+ <DEAD TEMP15>
+ <OR V13 #WORD *200* = V13>
+ <LSH V13 24 = V13 (TYPE FIX)>
+ <SET TEMP15 32768 (TYPE FIX)>
+ <AND TEMP15 #WORD *377* = TEMP9>
+ <LSH TEMP9 16 = TEMP9 (TYPE FIX)>
+ <AND TEMP15 #WORD *177400* = TEMP15>
+ <OR TEMP9 TEMP15 = TEMP15>
+ <DEAD TEMP9>
+ <AND TEMP15 #WORD *77777400* = TEMP15>
+ <OR V13 TEMP15 = V13>
+ <DEAD TEMP15>
+ <CHTYPE V13 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD V13>
+ <FRAME '\1aMA-DISP>
+ <PUSH VAC4>
+ <PUSH 0>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <TYPE? VAL5 <TYPE-CODE FIX> - TAG28>
+ <RETURN %<>>
+TAG28
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAL5>
+ <DEAD VAL5>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <FRAME '\1aMA-DISP>
+ <PUSH VAC4>
+ <DEAD VAC4>
+ <PUSH 4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aFINISH-MARK>
+
+#WORD *106554341*
+ <GFCN \1aMARKUS-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL> "OPTIONAL" ANY) VAR6 VAL7 RES8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aIMARKU-GEN>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 0>
+ <CALL '\1aIMARKU-GEN 3>
+ <RETURN 'NORMAL>
+ <END \1aMARKUS-GEN>
+
+<COND (<GASSIGNED? MARKUS-GEN> <SETG MARKUB-GEN ,MARKUS-GEN>)>
+
+#WORD *11237245605*
+ <GFCN \1aMARKUV-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL>) VAR4 VAL5>
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aIMARKU-GEN>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH VAL5>
+ <DEAD VAL5>
+ <PUSH 3>
+ <CALL '\1aIMARKU-GEN 3>
+ <RETURN 'NORMAL>
+ <END \1aMARKUV-GEN>
+
+#WORD *11237245625*
+ <GFCN \1aMARKUU-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL>) VAR4 VAL5>
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aIMARKU-GEN>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH VAL5>
+ <DEAD VAL5>
+ <PUSH 2>
+ <CALL '\1aIMARKU-GEN 3>
+ <RETURN 'NORMAL>
+ <END \1aMARKUU-GEN>
+
+#WORD *24325023570*
+ <GFCN \1aMARKR-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL>) VAR4 VAL5>
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IMARKR!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH VAL5>
+ <DEAD VAL5>
+ <CALL '\1aCALL-RTE 6>
+ <RETURN 'NORMAL>
+ <END \1aMARKR-GEN>
+
+#WORD *10017043065*
+ <GFCN \1aMARKL?-GEN ("VALUE" ATOM VARTBL <OR VARTBL ATOM>) VAR4 RES5>
+ <TEMP VAC6>
+ <INTGO>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH 'VALUE>
+ <PUSH 'T>
+ <PUSH 'PREF-VAL>
+ <CALL '\1aLOAD-VAR 4 = VAC6>
+ <FRAME '\1aFINISH-MARK?>
+ <PUSH VAC6>
+ <DEAD VAC6>
+ <PUSH RES5>
+ <DEAD RES5>
+ <CALL '\1aFINISH-MARK? 2>
+ <RETURN 'NORMAL>
+ <END \1aMARKL?-GEN>
+
+#WORD *5152250434*
+ <GFCN \1aFINISH-MARK? ("VALUE" ANY AC ANY "OPTIONAL" ANY ANY) VAC7 RES8 REL9 VAR10>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <TEMP TLAB11 ELAB12 TEMP21 NAC13>
+ <INTGO>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = TLAB11>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = ELAB12>
+ <FRAME '\1aEMIT>
+ <PUSH 149>
+ <FRAME '\1aMA-DISP>
+ <PUSH VAC7>
+ <PUSH 1>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 25>
+ <PUSH TLAB11>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 212>
+ <NTHUV VAC7 2 = TEMP21 (TYPE FIX)>
+ <OR TEMP21 #WORD *120* = TEMP21>
+ <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
+ <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP21>
+ <CALL '\1aEMIT 2>
+ <TYPE? REL9 <TYPE-CODE FALSE> + PHRASE23>
+ <FRAME '\1aPROTECT>
+ <PUSH VAC7>
+ <CALL '\1aPROTECT 1>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-TYPE>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = NAC13>
+ <NTHUV NAC13 2 = TEMP21 (TYPE FIX)>
+ <OR TEMP21 #WORD *120* = TEMP21>
+ <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
+ <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP21>
+ <CALL '\1aEMIT 3>
+PHRASE23
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 17>
+ <PUSH ELAB12>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 4>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH TLAB11>
+ <DEAD TLAB11>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <TYPE? REL9 <TYPE-CODE FALSE> + PHRASE31>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-DISP>
+ <PUSH VAC7>
+ <PUSH 4>
+ <CALL '\1aMA-DISP 2 = TLAB11>
+ <PUSH TLAB11>
+ <NTHUV VAC7 2 = TEMP21 (TYPE FIX)>
+ <OR TEMP21 #WORD *120* = TEMP21>
+ <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
+ <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP21>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aLOAD-AC>
+ <PUSH VAC7>
+ <PUSH TLAB11>
+ <DEAD TLAB11>
+ <CALL '\1aLOAD-AC 2>
+ <FRAME '\1aPROTECT>
+ <PUSH VAC7>
+ <CALL '\1aPROTECT 1>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAR10>
+ <DEAD VAR10>
+ <PUSH 'TYPE-WORD>
+ <CALL '\1aVAR-TYPE-ADDRESS 2 = TLAB11>
+ <PUSH TLAB11>
+ <DEAD TLAB11>
+ <NTHUV NAC13 2 = TEMP21 (TYPE FIX)>
+ <OR TEMP21 #WORD *120* = TEMP21>
+ <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
+ <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP21>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE38>
+PHRASE31
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-IMM>
+ <PUSH 1>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <NTHUV VAC7 2 = TEMP21 (TYPE FIX)>
+ <OR TEMP21 #WORD *120* = TEMP21>
+ <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
+ <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP21>
+ <CALL '\1aEMIT 3>
+PHRASE38
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH ELAB12>
+ <DEAD ELAB12>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <TYPE? REL9 <TYPE-CODE FALSE> - PHRASE43>
+ <FRAME '\1aDEST-DECL>
+ <PUSH VAC7>
+ <DEAD VAC7>
+ <PUSH RES8>
+ <DEAD RES8>
+ <PUSH 'FIX>
+ <CALL '\1aDEST-DECL 3 = TEMP21>
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+PHRASE43
+ <FRAME '\1aDEST-PAIR>
+ <PUSH VAC7>
+ <DEAD VAC7>
+ <PUSH NAC13>
+ <DEAD NAC13>
+ <PUSH REL9>
+ <DEAD REL9>
+ <CALL '\1aDEST-PAIR 3 = TEMP21>
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+ <END \1aFINISH-MARK?>
+
+#WORD *36566624572*
+ <GFCN \1aIMARKU?-GEN ("VALUE" AC VARTBL ANY FIX ANY) VAR4 RES5 SHIFT6 REL7>
+ <TEMP VAC8 TEMP16:FIX>
+ <INTGO>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR4>
+ <PUSH 'COUNT>
+ <PUSH 'T>
+ <PUSH 'PREF-VAL>
+ <CALL '\1aLOAD-VAR 4 = VAC8>
+ <VEQUAL? SHIFT6 0 + PHRASE11 (TYPE FIX)>
+ <FRAME '\1aEMIT>
+ <PUSH 120>
+ <FRAME '\1aMA-IMM>
+ <PUSH SHIFT6>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <NTHUV VAC8 2 = TEMP16 (TYPE FIX)>
+ <OR TEMP16 #WORD *120* = TEMP16>
+ <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
+ <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP16>
+ <NTHUV VAC8 2 = TEMP16 (TYPE FIX)>
+ <OR TEMP16 #WORD *120* = TEMP16>
+ <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
+ <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP16>
+ <CALL '\1aEMIT 4>
+PHRASE11
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR4>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <NTHUV VAC8 2 = TEMP16 (TYPE FIX)>
+ <OR TEMP16 #WORD *120* = TEMP16>
+ <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
+ <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP16>
+ <CALL '\1aEMIT 3>
+ <VEQUAL? SHIFT6 0 - PHRASE20 (TYPE FIX)>
+ <DEAD SHIFT6>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <FRAME '\1aMA-IMM>
+ <PUSH 3>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <NTHUV VAC8 2 = TEMP16 (TYPE FIX)>
+ <OR TEMP16 #WORD *120* = TEMP16>
+ <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
+ <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP16>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 138>
+ <FRAME '\1aMA-IMM>
+ <PUSH 3>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <NTHUV VAC8 2 = TEMP16 (TYPE FIX)>
+ <OR TEMP16 #WORD *120* = TEMP16>
+ <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
+ <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP16>
+ <CALL '\1aEMIT 3>
+PHRASE20
+ <FRAME '\1aFINISH-MARK?>
+ <PUSH VAC8>
+ <PUSH RES5>
+ <DEAD RES5>
+ <PUSH REL7>
+ <DEAD REL7>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aFINISH-MARK? 4>
+ <RETURN VAC8>
+ <DEAD VAC8>
+ <END \1aIMARKU?-GEN>
+
+#WORD *7370653370*
+ <GFCN \1aMARKUU?-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" ANY) VAR6 RES7 REL8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aIMARKU?-GEN>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH 2>
+ <PUSH REL8>
+ <DEAD REL8>
+ <CALL '\1aIMARKU?-GEN 4>
+ <RETURN 'NORMAL>
+ <END \1aMARKUU?-GEN>
+
+#WORD *7360653370*
+ <GFCN \1aMARKUV?-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" ANY) VAR6 RES7 REL8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aIMARKU?-GEN>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH 3>
+ <PUSH REL8>
+ <DEAD REL8>
+ <CALL '\1aIMARKU?-GEN 4>
+ <RETURN 'NORMAL>
+ <END \1aMARKUV?-GEN>
+
+#WORD *7350653370*
+ <GFCN \1aMARKUS?-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" ANY) VAR6 RES7 REL8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aIMARKU?-GEN>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <PUSH RES7>
+ <DEAD RES7>
+ <PUSH 0>
+ <PUSH REL8>
+ <DEAD REL8>
+ <CALL '\1aIMARKU?-GEN 4>
+ <RETURN 'NORMAL>
+ <END \1aMARKUS?-GEN>
+
+<COND (<GASSIGNED? MARKUS?-GEN> <SETG MARKUB?-GEN ,MARKUS?-GEN>)>
+
+#WORD *24411760436*
+ <GFCN \1aMARKR?-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" <OR VARTBL FALSE>) VAR6 RES7 REL8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH RES7>
+ <DEAD RES7>
+OPT5
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IMARKR?!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH REL8>
+ <DEAD REL8>
+ <PUSH %<>>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aMARKR?-GEN>
+
+#WORD *22164141174*
+ <GFCN \1aSWNEXT-GEN ("VALUE" ATOM VARTBL ANY <OR ATOM VARTBL>) VAR4 GCP5 RES6>
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'ISWNEXT!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES6>
+ <DEAD RES6>
+ <PUSH %<>>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH GCP5>
+ <DEAD GCP5>
+ <CALL '\1aCALL-RTE 6>
+ <RETURN 'NORMAL>
+ <END \1aSWNEXT-GEN>
+
+#WORD *32225175055*
+ <GFCN \1aNEXTS-GEN ("VALUE" ATOM VARTBL <OR ATOM VARTBL>) VAR4 RES5>
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'INEXTS!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES5>
+ <DEAD RES5>
+ <PUSH %<>>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aCALL-RTE 5>
+ <RETURN 'NORMAL>
+ <END \1aNEXTS-GEN>
+
+#WORD *21730216552*
+ <GFCN \1aCONTENTS-GEN ("VALUE" ATOM VARTBL <OR ATOM VARTBL>) VAR4 RES5>
+ <TEMP (TAC7 %<>) TLAB8 TLAB29 ELAB10 TEMP20 V27:FIX TEMP29 TEMP24>
+ <INTGO>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = TLAB8>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = TLAB29>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = ELAB10>
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH 'JUST-VALUE>
+ <PUSH %<>>
+ <PUSH 'PREF-VAL>
+ <CALL '\1aLOAD-VAR 4 = ELAB10>
+ <PUSH ELAB10>
+ <CALL '\1aPROTECT 1>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <FRAME '\1aMA-DISP>
+ <PUSH ELAB10>
+ <PUSH 0>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <EQUAL? RES5 'STACK - PHRASE19>
+ <GVAL 'AC-TP = TEMP20>
+ <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
+ <OR TEMP20 #WORD *200* = TEMP20>
+ <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
+ <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = TEMP20>
+ <JUMP + PHRASE21>
+PHRASE19
+ <FRAME '\1aGET-AC>
+ <PUSH 'DOUBLE>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = TAC7>
+ <SET TEMP20 TAC7>
+PHRASE21
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 179>
+ <GVAL 'AC-PC = TEMP20>
+ <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
+ <OR TEMP20 #WORD *200* = TEMP20>
+ <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
+ <SET V27 32 (TYPE FIX)>
+ <AND V27 #WORD *377* = TEMP29>
+ <LSH TEMP29 16 = TEMP29 (TYPE FIX)>
+ <AND V27 #WORD *177400* = V27>
+ <OR TEMP29 V27 = TEMP24>
+ <DEAD TEMP29 V27>
+ <AND TEMP24 #WORD *77777400* = TEMP24>
+ <OR TEMP20 TEMP24 = TEMP20>
+ <DEAD TEMP24>
+ <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP20>
+ <EQUAL? RES5 'STACK - PHRASE32>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <PUSH -8>
+ <CALL '\1aMA-DISP 2 = TEMP20>
+ <JUMP + PHRASE34>
+PHRASE32
+ <NTHUV TAC7 2 = TEMP24 (TYPE FIX)>
+ <OR TEMP24 #WORD *120* = TEMP24>
+ <LSH TEMP24 24 = TEMP24 (TYPE FIX)>
+ <CHTYPE TEMP24 <TYPE-CODE EFF-ADDR> = TEMP20>
+ <DEAD TEMP24>
+PHRASE34
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 19>
+ <PUSH TLAB29>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 170>
+ <GVAL 'AC-PC = TEMP20>
+ <NTHUV TEMP20 2 = TEMP24 (TYPE FIX)>
+ <DEAD TEMP20>
+ <OR TEMP24 #WORD *200* = TEMP24>
+ <LSH TEMP24 24 = TEMP24 (TYPE FIX)>
+ <SET V27 32 (TYPE FIX)>
+ <AND V27 #WORD *377* = TEMP29>
+ <LSH TEMP29 16 = TEMP29 (TYPE FIX)>
+ <AND V27 #WORD *177400* = TEMP20>
+ <DEAD V27>
+ <OR TEMP29 TEMP20 = TEMP20>
+ <DEAD TEMP29>
+ <AND TEMP20 #WORD *77777400* = TEMP20>
+ <OR TEMP24 TEMP20 = TEMP24>
+ <DEAD TEMP20>
+ <CHTYPE TEMP24 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP24>
+ <EQUAL? RES5 'STACK - PHRASE42>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <PUSH -8>
+ <CALL '\1aMA-DISP 2 = TEMP24>
+ <JUMP + PHRASE44>
+PHRASE42
+ <NTHUV TAC7 2 = TEMP20 (TYPE FIX)>
+ <OR TEMP20 #WORD *120* = TEMP20>
+ <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
+ <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = TEMP24>
+ <DEAD TEMP20>
+PHRASE44
+ <PUSH TEMP24>
+ <DEAD TEMP24>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 193>
+ <FRAME '\1aMA-IMM>
+ <PUSH 4>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <NTHUV ELAB10 2 = TEMP20 (TYPE FIX)>
+ <OR TEMP20 #WORD *120* = TEMP20>
+ <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
+ <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP20>
+ <EQUAL? RES5 'STACK - PHRASE48>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = TEMP20>
+ <JUMP + PHRASE50>
+PHRASE48
+ <FRAME '\1aNEXT-AC>
+ <PUSH TAC7>
+ <CALL '\1aNEXT-AC 1 = TEMP24>
+ <NTHUV TEMP24 2 = TEMP29 (TYPE FIX)>
+ <DEAD TEMP24>
+ <OR TEMP29 #WORD *120* = TEMP29>
+ <LSH TEMP29 24 = TEMP29 (TYPE FIX)>
+ <CHTYPE TEMP29 <TYPE-CODE EFF-ADDR> = TEMP20>
+ <DEAD TEMP29>
+PHRASE50
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT>
+ <PUSH 177>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'FRAME>
+ <PUSH 'WORD>
+ <CALL '\1aTYPE-CODE 2 = STACK>
+ <EQUAL? RES5 'STACK - PHRASE55>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <PUSH -8>
+ <CALL '\1aMA-DISP 2 = TEMP20>
+ <JUMP + PHRASE57>
+PHRASE55
+ <NTHUV TAC7 2 = TEMP29 (TYPE FIX)>
+ <OR TEMP29 #WORD *120* = TEMP29>
+ <LSH TEMP29 24 = TEMP29 (TYPE FIX)>
+ <CHTYPE TEMP29 <TYPE-CODE EFF-ADDR> = TEMP20>
+ <DEAD TEMP29>
+PHRASE57
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 19>
+ <PUSH TLAB8>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 177>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'SFRAME>
+ <PUSH 'WORD>
+ <CALL '\1aTYPE-CODE 2 = STACK>
+ <EQUAL? RES5 'STACK - PHRASE62>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <PUSH -8>
+ <CALL '\1aMA-DISP 2 = TEMP20>
+ <JUMP + PHRASE64>
+PHRASE62
+ <NTHUV TAC7 2 = TEMP29 (TYPE FIX)>
+ <OR TEMP29 #WORD *120* = TEMP29>
+ <LSH TEMP29 24 = TEMP29 (TYPE FIX)>
+ <CHTYPE TEMP29 <TYPE-CODE EFF-ADDR> = TEMP20>
+ <DEAD TEMP29>
+PHRASE64
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 18>
+ <PUSH TLAB29>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 4>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH TLAB8>
+ <DEAD TLAB8>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 193>
+ <FRAME '\1aMA-IMM>
+ <PUSH 28>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <NTHUV ELAB10 2 = TEMP29 (TYPE FIX)>
+ <DEAD ELAB10>
+ <OR TEMP29 #WORD *120* = TEMP29>
+ <LSH TEMP29 24 = TEMP29 (TYPE FIX)>
+ <CHTYPE TEMP29 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP29>
+ <EQUAL? RES5 'STACK - PHRASE70>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <PUSH -4>
+ <CALL '\1aMA-DISP 2 = TEMP29>
+ <JUMP + PHRASE72>
+PHRASE70
+ <FRAME '\1aNEXT-AC>
+ <PUSH TAC7>
+ <CALL '\1aNEXT-AC 1 = TEMP20>
+ <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
+ <OR TEMP20 #WORD *120* = TEMP20>
+ <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
+ <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = TEMP29>
+ <DEAD TEMP20>
+PHRASE72
+ <PUSH TEMP29>
+ <DEAD TEMP29>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH TLAB29>
+ <DEAD TLAB29>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <EQUAL? RES5 'STACK + PHRASE76>
+ <FRAME '\1aDEST-PAIR>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TAC7>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH TAC7>
+ <DEAD TAC7>
+ <PUSH RES5>
+ <DEAD RES5>
+ <CALL '\1aDEST-PAIR 3>
+PHRASE76
+ <RETURN 'NORMAL>
+ <END \1aCONTENTS-GEN>
+
+#WORD *10424453342*
+ <GFCN \1aPUTS-GEN ("VALUE" ATOM ANY ANY) VAR14 VAR25>
+ <TEMP (TAC7 %<>) ELAB9 TEMP16 V20:FIX TEMP22:FIX>
+ <INTGO>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = TAC7>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = ELAB9>
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR14>
+ <DEAD VAR14>
+ <PUSH 'JUST-VALUE>
+ <PUSH %<>>
+ <PUSH 'PREF-VAL>
+ <CALL '\1aLOAD-VAR 4 = ELAB9>
+ <PUSH ELAB9>
+ <CALL '\1aPROTECT 1>
+ <FRAME '\1aEMIT>
+ <PUSH 179>
+ <GVAL 'AC-PC = TEMP16>
+ <NTHUV TEMP16 2 = TEMP16 (TYPE FIX)>
+ <OR TEMP16 #WORD *200* = TEMP16>
+ <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
+ <SET V20 32 (TYPE FIX)>
+ <AND V20 #WORD *377* = TEMP22>
+ <LSH TEMP22 16 = TEMP22 (TYPE FIX)>
+ <AND V20 #WORD *177400* = V20>
+ <OR TEMP22 V20 = V20>
+ <DEAD TEMP22>
+ <AND V20 #WORD *77777400* = V20>
+ <OR TEMP16 V20 = TEMP16>
+ <DEAD V20>
+ <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP16>
+ <FRAME '\1aMA-DISP>
+ <PUSH ELAB9>
+ <PUSH 0>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 18>
+ <PUSH TAC7>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 4>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR25>
+ <DEAD VAR25>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <FRAME '\1aMA-DISP>
+ <PUSH ELAB9>
+ <DEAD ELAB9>
+ <PUSH 4>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH TAC7>
+ <DEAD TAC7>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <RETURN 'NORMAL>
+ <END \1aPUTS-GEN>
+
+#WORD *16407774445*
+ <GFCN \1aRELL-GEN ("VALUE" ANY VARTBL) VAR4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IRELL!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aCALL-RTE 5 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aRELL-GEN>
+
+#WORD *16407760045*
+ <GFCN \1aRELU-GEN ("VALUE" ANY VARTBL) VAR4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IRELU!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aCALL-RTE 5 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aRELU-GEN>
+
+#WORD *16407763445*
+ <GFCN \1aRELR-GEN ("VALUE" ANY VARTBL) VAR4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IRELR!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aCALL-RTE 5 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aRELR-GEN>
+
+#WORD *35420236410*
+ <GFCN \1aALLOCL-GEN ("VALUE" ANY ANY ANY) VAR4 DEST5>
+ <TEMP VAC6 TEMP10>
+ <INTGO>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH 'JUST-VALUE>
+ <PUSH 'T>
+ <PUSH 'PREF-VAL>
+ <CALL '\1aLOAD-VAR 4 = VAC6>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <FRAME '\1aMA-IMM>
+ <PUSH 4>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <NTHUV VAC6 2 = TEMP10 (TYPE FIX)>
+ <OR TEMP10 #WORD *120* = TEMP10>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP10>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aDEST-DECL>
+ <PUSH VAC6>
+ <DEAD VAC6>
+ <PUSH DEST5>
+ <DEAD DEST5>
+ <PUSH 'LIST>
+ <CALL '\1aDEST-DECL 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aALLOCL-GEN>
+
+#WORD *20145410214*
+ <GFCN \1aALLOCUU-GEN ("VALUE" ANY ANY ANY ANY "OPTIONAL" ANY) VAR6 OLD7 DEST8 HINT9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP VAC110 VAC211>
+ <INTGO>
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH OLD7>
+ <DEAD OLD7>
+ <PUSH 'TYPE-WORD>
+ <PUSH %<>>
+ <PUSH 'PREF-VAL>
+ <CALL '\1aLOAD-VAR 4 = VAC110>
+ <PUSH VAC110>
+ <CALL '\1aPROTECT 1>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <PUSH 'PREF-VAL>
+ <CALL '\1aLOAD-VAR 4 = VAC211>
+ <FRAME '\1aDEST-PAIR>
+ <PUSH VAC211>
+ <DEAD VAC211>
+ <PUSH VAC110>
+ <DEAD VAC110>
+ <PUSH DEST8>
+ <DEAD DEST8>
+ <CALL '\1aDEST-PAIR 3 = VAC110>
+ <RETURN VAC110>
+ <DEAD VAC110>
+ <END \1aALLOCUU-GEN>
+
+<COND (<GASSIGNED? ALLOCUU-GEN> <SETG ALLOCUV-GEN ,ALLOCUU-GEN> <SETG ALLOCUS-GEN ,ALLOCUU-GEN> <SETG ALLOCUB-GEN ,ALLOCUU-GEN> <SETG ALLOCR-GEN ,ALLOCUU-GEN>)>
+
+#WORD *14312063136*
+ <GFCN \1aBLT-GEN ("VALUE" ATOM ANY ANY ANY "OPTIONAL" ANY) FROM6 TO7 NUMBER8 HINT9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP (VAC10 %<>) LAB11 LAB112 X27 VVAC13:EFF-ADDR>
+ <INTGO>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = LAB11>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = LAB112>
+ <SET VAC10 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
+ <LOOP>
+MAP17
+ <INTGO>
+ <EMPL? VAC10 + MAPAP20>
+ <NTHL VAC10 1 = X27>
+ <FRAME '\1aMUNG-AC>
+ <GVAL X27 = STACK>
+ <DEAD X27>
+ <CALL '\1aMUNG-AC 1>
+ <RESTL VAC10 1 = VAC10 (TYPE LIST)>
+ <JUMP + MAP17>
+MAPAP20
+ <TYPE? NUMBER8 <TYPE-CODE FIX> - PHRASE30>
+ <LSH NUMBER8 2 = NUMBER8 (TYPE FIX)>
+ <GRTR? NUMBER8 65535 + PHRASE30 (TYPE FIX)>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH FROM6>
+ <DEAD FROM6>
+ <PUSH 'JUST-VALUE>
+ <PUSH 'T>
+ <GVAL 'AC-1 = STACK>
+ <CALL '\1aLOAD-VAR 4>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH TO7>
+ <DEAD TO7>
+ <PUSH 'JUST-VALUE>
+ <PUSH 'T>
+ <GVAL 'AC-3 = STACK>
+ <CALL '\1aLOAD-VAR 4>
+ <FRAME '\1aEMIT>
+ <PUSH 40>
+ <GVAL 'AC-PC = VAC10>
+ <NTHUV VAC10 2 = LAB11 (TYPE FIX)>
+ <DEAD VAC10>
+ <OR LAB11 #WORD *200* = LAB11>
+ <LSH LAB11 24 = LAB11 (TYPE FIX)>
+ <SET VAC10 NUMBER8>
+ <DEAD NUMBER8>
+ <AND VAC10 #WORD *377* = X27>
+ <LSH X27 16 = X27 (TYPE FIX)>
+ <AND VAC10 #WORD *177400* = VAC10>
+ <OR X27 VAC10 = VAC10>
+ <DEAD X27>
+ <AND VAC10 #WORD *77777400* = VAC10>
+ <OR LAB11 VAC10 = LAB11>
+ <DEAD VAC10>
+ <CHTYPE LAB11 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD LAB11>
+ <GVAL 'AC-1 = LAB11>
+ <NTHUV LAB11 2 = VAC10 (TYPE FIX)>
+ <DEAD LAB11>
+ <OR VAC10 #WORD *140* = VAC10>
+ <LSH VAC10 24 = VAC10 (TYPE FIX)>
+ <CHTYPE VAC10 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD VAC10>
+ <GVAL 'AC-3 = VAC10>
+ <NTHUV VAC10 2 = X27 (TYPE FIX)>
+ <DEAD VAC10>
+ <OR X27 #WORD *140* = X27>
+ <LSH X27 24 = X27 (TYPE FIX)>
+ <CHTYPE X27 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X27>
+ <CALL '\1aEMIT 4>
+ <RETURN 'NORMAL>
+PHRASE30
+ <FRAME '\1aGET-AC>
+ <GVAL 'AC-5 = STACK>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = X27>
+ <NTHUV X27 2 = X27 (TYPE FIX)>
+ <OR X27 #WORD *120* = X27>
+ <LSH X27 24 = X27 (TYPE FIX)>
+ <CHTYPE X27 <TYPE-CODE EFF-ADDR> = VAC10>
+ <DEAD X27>
+ <FRAME '\1aGET-AC>
+ <GVAL 'AC-6 = STACK>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = X27>
+ <NTHUV X27 2 = X27 (TYPE FIX)>
+ <OR X27 #WORD *120* = X27>
+ <LSH X27 24 = X27 (TYPE FIX)>
+ <CHTYPE X27 <TYPE-CODE EFF-ADDR> = VVAC13>
+ <DEAD X27>
+ <TYPE? NUMBER8 <TYPE-CODE FIX> - PHRASE44>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aMA-IMM>
+ <PUSH NUMBER8>
+ <DEAD NUMBER8>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH VVAC13>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE47>
+PHRASE44
+ <FRAME '\1aEMIT>
+ <PUSH 120>
+ <FRAME '\1aMA-IMM>
+ <PUSH 2>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH NUMBER8>
+ <DEAD NUMBER8>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <PUSH VVAC13>
+ <CALL '\1aEMIT 4>
+PHRASE47
+ <FRAME '\1aLOAD-VAR>
+ <PUSH FROM6>
+ <DEAD FROM6>
+ <PUSH 'JUST-VALUE>
+ <PUSH 'T>
+ <GVAL 'AC-1 = STACK>
+ <CALL '\1aLOAD-VAR 4>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH TO7>
+ <DEAD TO7>
+ <PUSH 'JUST-VALUE>
+ <PUSH 'T>
+ <GVAL 'AC-3 = STACK>
+ <CALL '\1aLOAD-VAR 4>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH LAB11>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT-MOVE>
+ <PUSH VVAC13>
+ <PUSH VAC10>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aEMIT>
+ <PUSH 209>
+ <PUSH VVAC13>
+ <FRAME '\1aMA-IMM>
+ <PUSH 65535>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 25>
+ <PUSH LAB112>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aMA-IMM>
+ <PUSH 65535>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH VAC10>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH LAB112>
+ <DEAD LAB112>
+ <PUSH 'T>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT>
+ <PUSH 40>
+ <PUSH VAC10>
+ <DEAD VAC10>
+ <GVAL 'AC-1 = X27>
+ <NTHUV X27 2 = X27 (TYPE FIX)>
+ <OR X27 #WORD *140* = X27>
+ <LSH X27 24 = X27 (TYPE FIX)>
+ <CHTYPE X27 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X27>
+ <GVAL 'AC-3 = X27>
+ <NTHUV X27 2 = X27 (TYPE FIX)>
+ <OR X27 #WORD *140* = X27>
+ <LSH X27 24 = X27 (TYPE FIX)>
+ <CHTYPE X27 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD X27>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT>
+ <PUSH 194>
+ <FRAME '\1aMA-IMM>
+ <PUSH 65535>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH VVAC13>
+ <DEAD VVAC13>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 20>
+ <PUSH LAB11>
+ <DEAD LAB11>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <RETURN 'NORMAL>
+ <END \1aBLT-GEN>
+
+#WORD *3023430025*
+ <GFCN \1aMPAGES-GEN ("VALUE" ANY ANY ANY) PGS4 DEST5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IMPAGES!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH DEST5>
+ <DEAD DEST5>
+ <PUSH %<>>
+ <PUSH PGS4>
+ <DEAD PGS4>
+ <CALL '\1aCALL-RTE 5 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aMPAGES-GEN>
projects / pdp10-muddle.git / blobdiff