--- /dev/null
+
+#WORD *31164722637*
+<GFCN \1aINIT-VAR-LIST ("VALUE" <LIST [REST VARTBL]>)>
+ <TEMP>
+ <INTGO>
+ <SETG 'VAR-LIST ()>
+ <RETURN ()>
+ <END \1aINIT-VAR-LIST>
+#WORD *760454234*
+<GFCN \1aCREATE-VAR ("VALUE" VARTBL <OR ATOM VARTBL> BOOLEAN "OPTIONAL" ANY) NAME6 TEMP7 HACK?8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP14 VAR9 CMOD10:STK-MODEL>
+ <INTGO>
+ <TYPE? NAME6 <TYPE-CODE ATOM> - PHRASE12>
+ <PUSH NAME6>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH TEMP7>
+ <PUSH %<>>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 8 = TEMP14 (TYPE VECTOR)>
+ <CHTYPE TEMP14 <TYPE-CODE VARTBL> = VAR9>
+ <DEAD TEMP14>
+ <JUMP + PHRASE15>
+PHRASE12
+ <SET VAR9 NAME6>
+PHRASE15
+ <TYPE? HACK?8 <TYPE-CODE FALSE> - PHRASE20>
+ <DEAD HACK?8>
+ <NTHR 'CURRENT-MODEL 1 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL18)>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL18>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP14 <TYPE-CODE UNBOUND> + BOOL18>
+ <DEAD TEMP14>
+ <GVAL 'CURRENT-MODEL = CMOD10>
+ <NTHUV CMOD10 6 = TEMP14 (TYPE LIST)>
+ <CONS VAR9 TEMP14 = TEMP14>
+ <PUTUV CMOD10 6 TEMP14 (TYPE LIST)>
+ <DEAD CMOD10 TEMP14>
+BOOL18
+ <TYPE? TEMP7 <TYPE-CODE FALSE> - PHRASE20>
+ <DEAD TEMP7>
+ <FRAME '\1aGEN-LOC>
+ <PUSH VAR9>
+ <PUSH 0>
+ <CALL '\1aGEN-LOC 2>
+PHRASE20
+ <TYPE? NAME6 <TYPE-CODE ATOM> - PHRASE23>
+ <DEAD NAME6>
+ <GVAL 'VAR-LIST = TEMP14>
+ <CONS VAR9 TEMP14 = TEMP14>
+ <SETG 'VAR-LIST TEMP14>
+ <DEAD TEMP14>
+PHRASE23
+ <RETURN VAR9>
+ <DEAD VAR9>
+ <END \1aCREATE-VAR>
+#WORD *11652637451*
+<GFCN \1aFIND-VAR ("VALUE" <OR FALSE VARTBL> ATOM) NAME4>
+ <TEMP (VAR?5 %<>) TEMP17:LIST VAR18:VARTBL TEMP21:ATOM>
+ <INTGO>
+ <GVAL 'VAR-LIST = TEMP17>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPL? TEMP17 + MAPAP10>
+ <NTHL TEMP17 1 = VAR18>
+ <NTHUV VAR18 1 = TEMP21 (TYPE ATOM)>
+ <VEQUAL? TEMP21 NAME4 - PHRASE20>
+ <DEAD TEMP21>
+ <RETURN VAR18>
+ <DEAD VAR18>
+PHRASE20
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN VAR?5>
+ <DEAD VAR?5>
+ <END \1aFIND-VAR>
+#WORD *37635071767*
+<GFCN \1aINDICATE-VAR-DECL ("VALUE" VARTBL VARTBL <OR ATOM FALSE>) VAR4 DCL5>
+ <TEMP>
+ <INTGO>
+ <PUTUV VAR4 4 DCL5>
+ <DEAD DCL5>
+ <RETURN VAR4>
+ <DEAD VAR4>
+ <END \1aINDICATE-VAR-DECL>
+#WORD *23650226110*
+<GFCN \1aINDICATE-VAR-INIT ("VALUE" <OR EFF-ADDR LADDR> VARTBL ANY) VAR4 VAL5>
+ <TEMP TEMP9>
+ <INTGO>
+ <TYPE? VAL5 <TYPE-CODE FALSE> - PHRASE7>
+ <CHTYPE VAL5 <TYPE-CODE SPEC-FALSE> = VAL5>
+PHRASE7
+ <PUTUV VAR4 8 VAL5>
+ <DEAD VAL5>
+ <FRAME '\1aGEN-LOC>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH 0>
+ <CALL '\1aGEN-LOC 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aINDICATE-VAR-INIT>
+#WORD *36035234465*
+<GFCN \1aINDICATE-VAR-TEMP-DECL ("VALUE" VARTBL VARTBL <OR FALSE ATOM>) VAR4 DCL5>
+ <TEMP>
+ <INTGO>
+ <PUTUV VAR4 7 DCL5>
+ <DEAD DCL5>
+ <RETURN VAR4>
+ <DEAD VAR4>
+ <END \1aINDICATE-VAR-TEMP-DECL>
+#WORD *24257612470*
+<GFCN \1aFLUSH-VAR-TEMP-DECLS ("VALUE" <OR FALSE VARTBL>)>
+ <TEMP TEMP13 TEMP15:LIST>
+ <INTGO>
+ <SET TEMP13 %<> (TYPE FALSE)>
+ <GVAL 'VAR-LIST = TEMP15>
+ <LOOP>
+MAP5
+ <INTGO>
+ <EMPL? TEMP15 + MAPAP8>
+ <NTHL TEMP15 1 = TEMP13>
+ <FRAME '\1aINDICATE-VAR-TEMP-DECL>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH %<>>
+ <CALL '\1aINDICATE-VAR-TEMP-DECL 2 = TEMP13>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <JUMP + MAP5>
+MAPAP8
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aFLUSH-VAR-TEMP-DECLS>
+#WORD *26041303320*
+<GFCN \1aVARTBL-DECL ("VALUE" <OR ATOM FALSE> VARTBL) VAR4>
+ <TEMP LVAR5 TEMP8>
+ <INTGO>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR4>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR5>
+ <NTHUV VAR4 4 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL9>
+ <NTHUV VAR4 7 = TEMP8>
+ <DEAD VAR4>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL9>
+ <SET TEMP8 LVAR5>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL9>
+ <NTHUV LVAR5 5 = TEMP8>
+ <DEAD LVAR5>
+BOOL9
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aVARTBL-DECL>
+#WORD *10236053761*
+<GFCN \1aADDR-VAR-VALUE ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aGEN-LOC>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH 4>
+ <CALL '\1aGEN-LOC 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aADDR-VAR-VALUE>
+#WORD *10236053761*
+<GFCN \1aADDR-VAR-CHAR-VALUE ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aGEN-LOC>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH 4>
+ <CALL '\1aGEN-LOC 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aADDR-VAR-CHAR-VALUE>
+#WORD *10222053761*
+<GFCN \1aADDR-VAR-COUNT ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aGEN-LOC>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH 2>
+ <CALL '\1aGEN-LOC 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aADDR-VAR-COUNT>
+#WORD *10226053761*
+<GFCN \1aADDR-VAR-TYPE ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aGEN-LOC>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH 0>
+ <CALL '\1aGEN-LOC 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aADDR-VAR-TYPE>
+#WORD *10226053761*
+<GFCN \1aADDR-VAR-TYPE-VALUE ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aGEN-LOC>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH 0>
+ <CALL '\1aGEN-LOC 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aADDR-VAR-TYPE-VALUE>
+#WORD *7537063005*
+<GFCN \1aCREATE-MODEL ("VALUE" STK-MODEL)>
+ <TEMP TEMP5>
+ <INTGO>
+ <PUSH 0>
+ <PUSH ()>
+ <PUSH ()>
+ <PUSH %<>>
+ <PUSH 0>
+ <PUSH ()>
+ <UBLOCK <TYPE-CODE VECTOR> 6 = TEMP5 (TYPE VECTOR)>
+ <CHTYPE TEMP5 <TYPE-CODE STK-MODEL> = TEMP5>
+ <RETURN TEMP5>
+ <DEAD TEMP5>
+ <END \1aCREATE-MODEL>
+#WORD *577707050*
+<GFCN \1aINIT-STACK-MODEL ("VALUE" <LIST STK-MODEL>)>
+ <TEMP MOD4>
+ <INTGO>
+ <FRAME '\1aCREATE-MODEL>
+ <CALL '\1aCREATE-MODEL 0 = MOD4>
+ <SETG 'CURRENT-MODEL MOD4>
+ <SETG 'TOP-MODEL MOD4>
+ <CONS MOD4 () = MOD4>
+ <SETG 'STACK-LEVELS MOD4>
+ <RETURN MOD4>
+ <DEAD MOD4>
+ <END \1aINIT-STACK-MODEL>
+#WORD *21326272170*
+<GFCN \1aINDICATE-TEMP-PATCH ("VALUE" STK-MODEL FIX) NUM4>
+ <TEMP TEMP5:STK-MODEL>
+ <INTGO>
+ <GVAL 'CURRENT-MODEL = TEMP5>
+ <PUTUV TEMP5 1 NUM4 (TYPE FIX)>
+ <DEAD NUM4>
+ <RETURN TEMP5>
+ <DEAD TEMP5>
+ <END \1aINDICATE-TEMP-PATCH>
+#WORD *25517704364*
+<GFCN \1aNEW-MODEL ("VALUE" STK-MODEL STK-MODEL) MODEL4>
+ <TEMP TEMP5 TEMP6:STK-MODEL>
+ <INTGO>
+ <GVAL 'CURRENT-MODEL = TEMP5>
+ <NTHUV TEMP5 3 = TEMP5 (TYPE LIST)>
+ <CONS MODEL4 TEMP5 = TEMP5>
+ <GVAL 'CURRENT-MODEL = TEMP6>
+ <PUTUV TEMP6 3 TEMP5 (TYPE LIST)>
+ <DEAD TEMP6 TEMP5>
+ <GVAL 'CURRENT-MODEL = TEMP6>
+ <PUTUV MODEL4 4 TEMP6>
+ <DEAD TEMP6>
+ <SETG 'CURRENT-MODEL MODEL4>
+ <RETURN MODEL4>
+ <DEAD MODEL4>
+ <END \1aNEW-MODEL>
+#WORD *23175543163*
+<GFCN \1aPOP-MODEL ("VALUE" STK-MODEL)>
+ <TEMP TEMP6>
+ <INTGO>
+ <GVAL 'CURRENT-MODEL = TEMP6>
+ <NTHUV TEMP6 4 = TEMP6>
+ <TYPE? TEMP6 <TYPE-CODE FALSE> - PHRASE5>
+ <DEAD TEMP6>
+ <FRAME '\1aERROR>
+ <PUSH "TOPLEVEL MODEL">
+ <PUSH 'POP-MODEL>
+ <CALL '\1aERROR 2>
+PHRASE5
+ <GVAL 'CURRENT-MODEL = TEMP6>
+ <NTHUV TEMP6 4 = TEMP6 (TYPE STK-MODEL)>
+ <SETG 'CURRENT-MODEL TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aPOP-MODEL>
+#WORD *7561375104*
+<GFCN \1aGEN-LOC ("VALUE" <OR EFF-ADDR LADDR> VARTBL FIX "OPTIONAL" ANY) VAR6 IOFF7 DEF?8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP OFF9 CMOD10 TEMP20 TEMP21>
+ <INTGO>
+ <NTHUV VAR6 2 = OFF9>
+ <GVAL 'CURRENT-MODEL = CMOD10>
+ <LOOP>
+AGAIN14
+ <INTGO>
+ <NTHUV CMOD10 6 = TEMP20 (TYPE LIST)>
+ <EMPL? TEMP20 + PHRASE16>
+ <LOOP (VAR6 VALUE) (TEMP20 VALUE)>
+TAG18
+ <NTHL TEMP20 1 = TEMP21>
+ <VEQUAL? TEMP21 VAR6 + EXIT12>
+ <DEAD TEMP21>
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <EMPL? TEMP20 - TAG18>
+PHRASE16
+ <NTHUV CMOD10 4 = CMOD10>
+ <TYPE? CMOD10 <TYPE-CODE FALSE> - AGAIN14>
+ <FRAME '\1aERROR>
+ <PUSH "VARIABLE NOT FOUND">
+ <PUSH 'GEN-LOC>
+ <CALL '\1aERROR 2>
+ <JUMP + AGAIN14>
+EXIT12
+ <TYPE? OFF9 <TYPE-CODE FALSE> - COND25>
+ <NTHUV CMOD10 5 = OFF9 (TYPE FIX)>
+ <ADD OFF9 8 = TEMP20 (TYPE FIX)>
+ <PUTUV CMOD10 5 TEMP20 (TYPE FIX)>
+ <DEAD TEMP20>
+ <PUTUV VAR6 2 OFF9>
+ <NTHUV CMOD10 2 = TEMP20 (TYPE LIST)>
+ <EMPL? TEMP20 - PHRASE26 (TYPE LIST)>
+ <CONS VAR6 () = TEMP20>
+ <DEAD VAR6>
+ <PUTUV CMOD10 2 TEMP20 (TYPE LIST)>
+ <DEAD CMOD10 TEMP20>
+ <JUMP + COND25>
+PHRASE26
+ <LOOP (TEMP20 VALUE)>
+TAG27
+ <RESTL TEMP20 1 = TEMP21 (TYPE LIST)>
+ <EMPL? TEMP21 + TAG28>
+ <SET TEMP20 TEMP21>
+ <DEAD TEMP21>
+ <JUMP + TAG27>
+TAG28
+ <CONS VAR6 () = TEMP21>
+ <DEAD VAR6>
+ <PUTREST TEMP20 TEMP21>
+ <DEAD TEMP20 TEMP21>
+COND25
+ <ADD OFF9 IOFF7 = OFF9 (TYPE FIX)>
+ <DEAD IOFF7>
+ <TYPE? DEF?8 <TYPE-CODE FALSE> + PHRASE30>
+ <DEAD DEF?8>
+ <FRAME '\1aMA-DEF-DISP>
+ <GVAL 'AC-F = STACK>
+ <PUSH OFF9>
+ <DEAD OFF9>
+ <CALL '\1aMA-DEF-DISP 2 = TEMP21>
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+PHRASE30
+ <VEQUAL? OFF9 0 - PHRASE32 (TYPE FIX)>
+ <GVAL 'AC-F = OFF9>
+ <NTHUV OFF9 2 = OFF9 (TYPE FIX)>
+ <OR OFF9 #WORD *140* = OFF9>
+ <LSH OFF9 24 = OFF9 (TYPE FIX)>
+ <CHTYPE OFF9 <TYPE-CODE EFF-ADDR> = TEMP21>
+ <DEAD OFF9>
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+PHRASE32
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-F = STACK>
+ <PUSH OFF9>
+ <DEAD OFF9>
+ <CALL '\1aMA-DISP 2 = TEMP21>
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+ <END \1aGEN-LOC>
+#WORD *22245217221*
+<GFCN \1aEMIT-STORE-AC ("VALUE" ANY AC EFF-ADDR "OPTIONAL" ATOM) AC6 DEST7 MODE8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH 'LONG>
+OPT5
+ <TEMP TEMP12>
+ <INTGO>
+ <NTHUV AC6 9 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE10>
+ <DEAD TEMP12>
+ <NTHUV AC6 6 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
+ <DEAD TEMP12>
+ <VEQUAL? MODE8 'BYTE + PHRASE10>
+ <GVAL 'AC-STORE-OPT = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
+ <DEAD TEMP12>
+ <NTHUV AC6 8 = TEMP12 (TYPE VECTOR)>
+ <LENUV TEMP12 = TEMP12 (TYPE FIX)>
+ <LESS? TEMP12 2 - PHRASE10 (TYPE FIX)>
+ <DEAD TEMP12>
+ <FRAME '\1aRE-EMIT-MOVE>
+ <NTHUV AC6 6 = STACK (TYPE FIX)>
+ <NTHUV AC6 7 = STACK>
+ <PUSH DEST7>
+ <DEAD DEST7>
+ <PUSH MODE8>
+ <DEAD MODE8>
+ <CALL '\1aRE-EMIT-MOVE 4>
+ <FRAME '\1aCLEAR-VARS-FROM-AC>
+ <PUSH AC6>
+ <DEAD AC6>
+ <CALL '\1aCLEAR-VARS-FROM-AC 1 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE10
+ <FRAME '\1aUSE-AC>
+ <PUSH AC6>
+ <CALL '\1aUSE-AC 1>
+ <FRAME '\1aEMIT-MOVE>
+ <NTHUV AC6 2 = TEMP12 (TYPE FIX)>
+ <DEAD AC6>
+ <OR TEMP12 #WORD *120* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <PUSH DEST7>
+ <DEAD DEST7>
+ <PUSH MODE8>
+ <DEAD MODE8>
+ <CALL '\1aEMIT-MOVE 3 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aEMIT-STORE-AC>
+#WORD *11602564461*
+<GFCN \1aEMIT-STORE-PAIR-AC ("VALUE" ANY AC AC EFF-ADDR "OPTIONAL" ATOM) AC6 AC27 DEST8 MODE9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH 'LONG>
+OPT5
+ <TEMP TEMP13>
+ <INTGO>
+ <NTHUV AC6 9 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE11>
+ <DEAD TEMP13>
+ <NTHUV AC6 6 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
+ <DEAD TEMP13>
+ <VEQUAL? MODE9 'BYTE + PHRASE11>
+ <DEAD MODE9>
+ <GVAL 'AC-STORE-OPT = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
+ <DEAD TEMP13>
+ <NTHUV AC6 8 = TEMP13 (TYPE VECTOR)>
+ <LENUV TEMP13 = TEMP13 (TYPE FIX)>
+ <LESS? TEMP13 2 - PHRASE11 (TYPE FIX)>
+ <DEAD TEMP13>
+ <FRAME '\1aRE-EMIT-MOVE>
+ <NTHUV AC6 6 = STACK (TYPE FIX)>
+ <NTHUV AC6 7 = STACK>
+ <PUSH DEST8>
+ <DEAD DEST8>
+ <PUSH 'DOUBLE>
+ <CALL '\1aRE-EMIT-MOVE 4>
+ <FRAME '\1aCLEAR-VARS-FROM-AC>
+ <PUSH AC6>
+ <DEAD AC6>
+ <CALL '\1aCLEAR-VARS-FROM-AC 1 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE11
+ <FRAME '\1aUSE-AC>
+ <PUSH AC6>
+ <CALL '\1aUSE-AC 1>
+ <FRAME '\1aUSE-AC>
+ <PUSH AC27>
+ <DEAD AC27>
+ <CALL '\1aUSE-AC 1>
+ <FRAME '\1aEMIT-MOVE>
+ <NTHUV AC6 2 = TEMP13 (TYPE FIX)>
+ <DEAD AC6>
+ <OR TEMP13 #WORD *120* = TEMP13>
+ <LSH TEMP13 24 = TEMP13 (TYPE FIX)>
+ <CHTYPE TEMP13 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP13>
+ <PUSH DEST8>
+ <DEAD DEST8>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-MOVE 3 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aEMIT-STORE-PAIR-AC>
+#WORD *347453003*
+<GFCN \1aISTORE-VAR ("VALUE" ANY LINKVAR "OPTIONAL" <OR FALSE XREF-INFO> ANY) LVAR7 XREF8 WILL-DIE-LIES?9>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP VAR11:VARTBL (STOREV14 %<>) (STORET15 %<>) (STOREC16 %<>) TEMP23 TAC13>
+ <INTGO>
+ <NTHUV LVAR7 1 = VAR11 (TYPE VARTBL)>
+ <NTHUV VAR11 5 = STORET15>
+ <TYPE? STORET15 <TYPE-CODE FALSE> - BOOL57>
+ <NTHUV LVAR7 2 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL22>
+ <DEAD TEMP23>
+ <NTHUV LVAR7 4 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL22>
+ <DEAD TEMP23>
+ <NTHUV LVAR7 3 = STORET15>
+ <TYPE? STORET15 <TYPE-CODE FALSE> - BOOL57>
+BOOL22
+ <TYPE? WILL-DIE-LIES?9 <TYPE-CODE FALSE> - BOOL24>
+ <DEAD WILL-DIE-LIES?9>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH VAR11>
+ <CALL '\1aWILL-DIE? 1 = STORET15>
+ <TYPE? STORET15 <TYPE-CODE FALSE> - BOOL57>
+BOOL24
+ <FRAME '\1aSTART-CODE-INSERT>
+ <CALL '\1aSTART-CODE-INSERT 0>
+ <NTHUV LVAR7 2 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE29>
+ <DEAD TEMP23>
+ <NTHUV LVAR7 3 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL31>
+ <DEAD TEMP23>
+ <NTHUV LVAR7 4 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE29>
+ <DEAD TEMP23>
+BOOL31
+ <NTHUV LVAR7 9 = TEMP23>
+ <FRAME '\1aPREV-AC>
+ <NTHUV LVAR7 6 = STACK>
+ <CALL '\1aPREV-AC 1 = STORET15>
+ <EQUAL? TEMP23 STORET15 - PHRASE29>
+ <DEAD TEMP23>
+ <TYPE? STORET15 <TYPE-CODE FALSE> + PHRASE29>
+ <FRAME '\1aADDR-VAR-TYPE-VALUE>
+ <PUSH VAR11>
+ <CALL '\1aADDR-VAR-TYPE-VALUE 1 = TEMP23>
+ <FRAME '\1aEMIT-STORE-PAIR-AC>
+ <PUSH STORET15>
+ <DEAD STORET15>
+ <NTHUV LVAR7 6 = STACK (TYPE AC)>
+ <PUSH TEMP23>
+ <DEAD TEMP23>
+ <CALL '\1aEMIT-STORE-PAIR-AC 3>
+ <SET STOREC16 'T (TYPE ATOM)>
+ <SET STORET15 STOREC16>
+ <SET STOREV14 STORET15>
+ <DEAD STORET15>
+ <PUTUV LVAR7 2 'T>
+ <PUTUV LVAR7 4 'T>
+ <PUTUV LVAR7 3 'T>
+ <JUMP + PHRASE35>
+PHRASE29
+ <NTHUV LVAR7 2 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE35>
+ <DEAD TEMP23>
+ <NTHUV LVAR7 6 = STORET15>
+ <TYPE? STORET15 <TYPE-CODE FALSE> - PHRASE37>
+ <FRAME '\1aERROR>
+ <PUSH "VARIABLE NOT IN AC">
+ <PUSH 'ISTORE-VAR>
+ <CALL '\1aERROR 2>
+PHRASE37
+ <FRAME '\1aADDR-VAR-VALUE>
+ <PUSH VAR11>
+ <CALL '\1aADDR-VAR-VALUE 1 = TEMP23>
+ <FRAME '\1aEMIT-STORE-AC>
+ <PUSH STORET15>
+ <DEAD STORET15>
+ <PUSH TEMP23>
+ <DEAD TEMP23>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-STORE-AC 3>
+ <SET STOREV14 'T (TYPE ATOM)>
+ <PUTUV LVAR7 2 'T>
+PHRASE35
+ <FRAME '\1aSCHECK-TYPE-STORED>
+ <PUSH LVAR7>
+ <CALL '\1aSCHECK-TYPE-STORED 1 = STORET15>
+ <NTHUV LVAR7 3 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE48>
+ <DEAD TEMP23>
+ <PUTUV LVAR7 3 'T>
+ <SET STOREC16 'T (TYPE ATOM)>
+ <NTHUV LVAR7 9 = TAC13>
+ <TYPE? TAC13 <TYPE-CODE FALSE> + PHRASE45>
+ <FRAME '\1aADDR-VAR-TYPE>
+ <PUSH VAR11>
+ <CALL '\1aADDR-VAR-TYPE 1 = TEMP23>
+ <FRAME '\1aEMIT-STORE-AC>
+ <PUSH TAC13>
+ <DEAD TAC13>
+ <PUSH TEMP23>
+ <DEAD TEMP23>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-STORE-AC 3>
+ <JUMP + PHRASE48>
+PHRASE45
+ <NTHUV LVAR7 8 = TAC13>
+ <TYPE? TAC13 <TYPE-CODE FALSE> + PHRASE48>
+ <FRAME '\1aADDR-VAR-COUNT>
+ <PUSH VAR11>
+ <CALL '\1aADDR-VAR-COUNT 1 = TEMP23>
+ <FRAME '\1aEMIT-STORE-AC>
+ <PUSH TAC13>
+ <DEAD TAC13>
+ <PUSH TEMP23>
+ <DEAD TEMP23>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-STORE-AC 3>
+PHRASE48
+ <FRAME '\1aEND-CODE-INSERT>
+ <CALL '\1aEND-CODE-INSERT 0 = TEMP23>
+ <EMPUU? TEMP23 - TAG53 (TYPE UVECTOR)>
+ <RETURN %<>>
+TAG53
+ <FRAME '\1aCOMPUTE-KIND>
+ <PUSH STOREV14>
+ <DEAD STOREV14>
+ <PUSH STORET15>
+ <DEAD STORET15>
+ <PUSH STOREC16>
+ <DEAD STOREC16>
+ <CALL '\1aCOMPUTE-KIND 3 = STOREV14>
+ <FRAME '\1aEMIT-POTENTIAL-STORE>
+ <PUSH TEMP23>
+ <DEAD TEMP23>
+ <PUSH STOREV14>
+ <PUSH LVAR7>
+ <DEAD LVAR7>
+ <CALL '\1aEMIT-POTENTIAL-STORE 3>
+ <SET STORET15 XREF8>
+ <TYPE? STORET15 <TYPE-CODE FALSE> + BOOL57>
+ <FRAME '\1aKILL-STORES>
+ <PUSH XREF8>
+ <DEAD XREF8>
+ <PUSH STOREV14>
+ <DEAD STOREV14>
+ <PUSH VAR11>
+ <DEAD VAR11>
+ <CALL '\1aKILL-STORES 3 = STORET15>
+BOOL57
+ <RETURN STORET15>
+ <DEAD STORET15>
+ <END \1aISTORE-VAR>
+#WORD *11220477560*
+<GFCN \1aCOMPUTE-KIND ("VALUE" <OR ATOM FALSE> BOOLEAN <OR FALSE ATOM> BOOLEAN) STOREV4 STORET5 STOREC6>
+ <TEMP TEMP12>
+ <INTGO>
+ <EQUAL? STORET5 'TYPE - PHRASE8>
+ <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE10>
+ <TYPE? STOREC6 <TYPE-CODE FALSE> + PHRASE10>
+ <RETURN 'COUNT-VALUE>
+PHRASE10
+ <TYPE? STOREC6 <TYPE-CODE FALSE> + PHRASE13>
+ <DEAD STOREC6>
+ <RETURN 'TYPE-COUNT>
+PHRASE13
+ <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE14>
+ <DEAD STOREV4>
+ <RETURN 'TYPE-VALUE>
+PHRASE14
+ <RETURN 'TYPE>
+PHRASE8
+ <EQUAL? STORET5 'TYPE-COUNT - PHRASE15>
+ <DEAD STORET5>
+ <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE17>
+ <DEAD STOREV4>
+ <RETURN 'TYPE-COUNT-VALUE>
+PHRASE17
+ <RETURN 'TYPE-COUNT>
+PHRASE15
+ <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE20>
+ <TYPE? STOREC6 <TYPE-CODE FALSE> + PHRASE20>
+ <RETURN 'COUNT-VALUE>
+PHRASE20
+ <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE22>
+ <DEAD STOREV4>
+ <RETURN 'VALUE>
+PHRASE22
+ <SET TEMP12 STOREC6>
+ <DEAD STOREC6>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE23>
+ <SET TEMP12 'COUNT (TYPE ATOM)>
+PHRASE23
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aCOMPUTE-KIND>
+#WORD *12413041352*
+<GFCN \1aSCHECK-TYPE-STORED ("VALUE" ATOM LINKVAR) LVAR4>
+ <TEMP (KIND7 'TYPE) VAR9:VARTBL TEMP12 DCL8 TEMP20>
+ <INTGO>
+ <NTHUV LVAR4 1 = VAR9 (TYPE VARTBL)>
+ <NTHUV LVAR4 4 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - COND24>
+ <DEAD TEMP12>
+ <NTHUV LVAR4 1 = TEMP12 (TYPE VARTBL)>
+ <NTHUV TEMP12 4 = DCL8>
+ <DEAD TEMP12>
+ <TYPE? DCL8 <TYPE-CODE FALSE> + PHRASE14>
+ <GVAL 'TYPE-LENGTHS = TEMP12>
+ <EMPTY? TEMP12 + TAG17>
+ <LOOP (DCL8 VALUE) (TEMP12 LENGTH VALUE TYPE)>
+TAG18
+ <NTH1 TEMP12 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE ATOM> - TAG19>
+ <VEQUAL? TEMP20 DCL8 + BOOL16>
+ <DEAD TEMP20>
+TAG19
+ <REST1 TEMP12 = TEMP12>
+ <EMPTY? TEMP12 - TAG18>
+TAG17
+ <FRAME '\1aCOUNT-NEEDED?>
+ <PUSH DCL8>
+ <DEAD DCL8>
+ <CALL '\1aCOUNT-NEEDED? 1 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE14>
+ <DEAD TEMP12>
+BOOL16
+ <PUTUV LVAR4 3 'T>
+ <DEAD LVAR4>
+ <RETURN KIND7>
+ <DEAD KIND7>
+PHRASE14
+ <FRAME '\1aADDR-VAR-TYPE>
+ <PUSH VAR9>
+ <DEAD VAR9>
+ <CALL '\1aADDR-VAR-TYPE 1 = TEMP12>
+ <PUTUV LVAR4 4 'T>
+ <NTHUV LVAR4 9 = DCL8>
+ <TYPE? DCL8 <TYPE-CODE FALSE> + PHRASE25>
+ <FRAME '\1aEMIT-STORE-AC>
+ <PUSH DCL8>
+ <DEAD DCL8>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-STORE-AC 3>
+ <PUTUV LVAR4 3 'T>
+ <DEAD LVAR4>
+ <RETURN 'TYPE-COUNT>
+PHRASE25
+ <NTHUV LVAR4 7 = DCL8>
+ <TYPE? DCL8 <TYPE-CODE FALSE> + PHRASE27>
+ <FRAME '\1aEMIT-STORE-AC>
+ <PUSH DCL8>
+ <DEAD DCL8>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-STORE-AC 3>
+ <RETURN KIND7>
+ <DEAD KIND7>
+PHRASE27
+ <NTHUV LVAR4 5 = DCL8>
+ <DEAD LVAR4>
+ <TYPE? DCL8 <TYPE-CODE FALSE> + PHRASE29>
+ <FRAME '\1aSTORE-TYPE>
+ <PUSH DCL8>
+ <DEAD DCL8>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <CALL '\1aSTORE-TYPE 2>
+ <RETURN KIND7>
+ <DEAD KIND7>
+PHRASE29
+ <FRAME '\1aERROR>
+ <PUSH "VARIABLE NOT IN AC">
+ <PUSH 'ISTORE-ADDR>
+ <CALL '\1aERROR 2>
+COND24
+ <RETURN KIND7>
+ <DEAD KIND7>
+ <END \1aSCHECK-TYPE-STORED>
+#WORD *33464047112*
+<GFCN \1aSTORE-TYPE ("VALUE" ANY ATOM EFF-ADDR "OPTIONAL" ANY) DCL6 ADDR7 EXTRA8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP14 TEMP15 TEMP26 TEMP27>
+ <INTGO>
+ <GVAL 'TYPE-LENGTHS = TEMP14>
+ <EMPTY? TEMP14 + PHRASE10>
+ <LOOP (DCL6 VALUE) (TEMP14 LENGTH VALUE TYPE)>
+TAG12
+ <NTH1 TEMP14 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG13>
+ <VEQUAL? TEMP15 DCL6 + TAG11>
+ <DEAD TEMP15>
+TAG13
+ <REST1 TEMP14 = TEMP14>
+ <EMPTY? TEMP14 - TAG12>
+ <JUMP + PHRASE10>
+TAG11
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH DCL6>
+ <DEAD DCL6>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH ADDR7>
+ <DEAD ADDR7>
+ <PUSH 'LONG>
+ <PUSH EXTRA8>
+ <DEAD EXTRA8>
+ <CALL '\1aEMIT-MOVE 4 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE10
+ <FRAME '\1aCOUNT-NEEDED?>
+ <PUSH DCL6>
+ <CALL '\1aCOUNT-NEEDED? 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE18>
+ <DEAD TEMP15>
+ <FRAME '\1aTYPEPRIM>
+ <PUSH DCL6>
+ <CALL '\1aTYPEPRIM 1 = TEMP15>
+ <GVAL 'TYPE-LENGTHS = TEMP14>
+ <TYPE TEMP15 = TEMP26>
+ <EMPTY? TEMP14 + TAG21>
+ <LOOP (TEMP15 VALUE) (TEMP26 VALUE) (TEMP14 LENGTH VALUE TYPE)>
+TAG22
+ <NTH1 TEMP14 = TEMP27>
+ <TYPE? TEMP27 TEMP26 - TAG23>
+ <VEQUAL? TEMP27 TEMP15 + PHRASE18>
+ <DEAD TEMP27>
+TAG23
+ <REST1 TEMP14 = TEMP14>
+ <EMPTY? TEMP14 - TAG22>
+TAG21
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH DCL6>
+ <DEAD DCL6>
+ <PUSH 'WORD>
+ <CALL '\1aTYPE-CODE 2 = STACK>
+ <PUSH ADDR7>
+ <DEAD ADDR7>
+ <PUSH 'LONG>
+ <PUSH EXTRA8>
+ <DEAD EXTRA8>
+ <CALL '\1aEMIT-MOVE 4 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE18
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH DCL6>
+ <DEAD DCL6>
+ <PUSH 'WORD>
+ <CALL '\1aTYPE-CODE 2 = STACK>
+ <PUSH ADDR7>
+ <DEAD ADDR7>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-MOVE 3 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aSTORE-TYPE>\r\0\r\0
+#WORD *736034154*
+<GFCN \1aLOAD-AC-PAIR ("VALUE" ANY ANY ANY "OPTIONAL" ANY) VAR6 RES7 AC8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP TEMP26 TEMP27 TEMP28 TAC9>
+ <INTGO>
+ <TYPE? AC8 <TYPE-CODE UNBOUND> - TAG12>
+ <FRAME '\1aGET-AC>
+ <PUSH 'DOUBLE>
+ <PUSH %<>>
+ <CALL '\1aGET-AC 2 = AC8>
+TAG12
+ <TYPE? VAR6 <TYPE-CODE VARTBL> + PHRASE16>
+ <FRAME '\1aSTORE-AC>
+ <PUSH AC8>
+ <PUSH 'T>
+ <CALL '\1aSTORE-AC 2>
+ <FRAME '\1aSTORE-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 'T>
+ <CALL '\1aSTORE-AC 2>
+ <FRAME '\1aPRIMTYPE>
+ <PUSH VAR6>
+ <CALL '\1aPRIMTYPE 1 = TEMP26>
+ <SET TEMP27 [WORD FIX] (TYPE VECTOR)>
+ <LOOP (TEMP26 VALUE) (TEMP27 LENGTH VALUE)>
+TAG23
+ <NTHUV TEMP27 1 = TEMP28>
+ <VEQUAL? TEMP28 TEMP26 + PHRASE21>
+ <DEAD TEMP28>
+ <RESTUV TEMP27 1 = TEMP27 (TYPE VECTOR)>
+ <EMPUV? TEMP27 - TAG23>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <FRAME '\1aADDR-TYPE-M>
+ <FRAME '\1aADD-MVEC>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <CALL '\1aADD-MVEC 1 = STACK>
+ <CALL '\1aADDR-TYPE-M 1 = STACK>
+ <NTHUV AC8 2 = TEMP27 (TYPE FIX)>
+ <OR TEMP27 #WORD *120* = TEMP27>
+ <LSH TEMP27 24 = TEMP27 (TYPE FIX)>
+ <CHTYPE TEMP27 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP27>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE64>
+PHRASE21
+ <FRAME '\1aMOVE-VALUE>
+ <PUSH VAR6>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aMOVE-VALUE 2>
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aTYPE-WORD>
+ <FRAME '\1aTYPE>
+ <PUSH VAR6>
+ <CALL '\1aTYPE 1 = STACK>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <NTHUV AC8 2 = TEMP27 (TYPE FIX)>
+ <OR TEMP27 #WORD *120* = TEMP27>
+ <LSH TEMP27 24 = TEMP27 (TYPE FIX)>
+ <CHTYPE TEMP27 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP27>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aLOAD-AC>
+ <PUSH AC8>
+ <FRAME '\1aTYPE-WORD>
+ <FRAME '\1aTYPE>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <CALL '\1aTYPE 1 = STACK>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <CALL '\1aLOAD-AC 2>
+ <JUMP + PHRASE64>
+PHRASE16
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR6>
+ <CALL '\1aFIND-CACHE-VAR 1 = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE41>
+ <FRAME '\1aSTORE-AC>
+ <PUSH AC8>
+ <PUSH 'T>
+ <CALL '\1aSTORE-AC 2>
+ <FRAME '\1aSTORE-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 'T>
+ <CALL '\1aSTORE-AC 2>
+ <FRAME '\1aLOAD-VAR-INTO-AC>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <PUSH 'TYPE-VALUE-PAIR>
+ <PUSH AC8>
+ <PUSH 'T>
+ <CALL '\1aLOAD-VAR-INTO-AC 4>
+ <JUMP + PHRASE64>
+PHRASE41
+ <NTHUV TEMP28 6 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE47>
+ <NTHUV TEMP28 9 = TAC9>
+ <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE47>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TAC9>
+ <CALL '\1aNEXT-AC 1 = TEMP27>
+ <EQUAL? TEMP27 TEMP26 - PHRASE47>
+ <DEAD TEMP27>
+ <EQUAL? TAC9 AC8 - PHRASE51>
+ <FRAME '\1aMUNG-AC>
+ <PUSH AC8>
+ <CALL '\1aMUNG-AC 1>
+ <FRAME '\1aMUNG-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aMUNG-AC 1>
+ <JUMP + PHRASE64>
+PHRASE51
+ <FRAME '\1aLOAD-VAR-INTO-AC>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <PUSH 'TYPE-VALUE-PAIR>
+ <PUSH AC8>
+ <PUSH 'T>
+ <PUSH %<>>
+ <PUSH TAC9>
+ <DEAD TAC9>
+ <CALL '\1aLOAD-VAR-INTO-AC 6>
+ <JUMP + PHRASE64>
+PHRASE47
+ <NTHUV TEMP28 9 = TAC9>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL61>
+ <DEAD TEMP26>
+ <TYPE? TAC9 <TYPE-CODE FALSE> + BOOL60>
+ <DEAD TAC9>
+BOOL61
+ <NTHUV TEMP28 2 = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE59>
+ <DEAD TEMP27>
+ <NTHUV TEMP28 4 = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE59>
+ <DEAD TEMP27>
+ <NTHUV TEMP28 3 = TEMP27>
+ <DEAD TEMP28>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE59>
+ <DEAD TEMP27>
+BOOL60
+ <FRAME '\1aLOAD-VAR-INTO-AC>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <PUSH 'TYPE-VALUE-PAIR>
+ <PUSH AC8>
+ <PUSH 'T>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aLOAD-VAR-INTO-AC 6>
+ <JUMP + PHRASE64>
+PHRASE59
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR6>
+ <PUSH 'JUST-VALUE>
+ <PUSH 'T>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aLOAD-VAR 4>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <PUSH 'TYPE-WORD>
+ <PUSH 'T>
+ <PUSH AC8>
+ <CALL '\1aLOAD-VAR 4>
+PHRASE64
+ <TYPE? RES7 <TYPE-CODE FALSE> + PHRASE69>
+ <FRAME '\1aDEST-PAIR>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH AC8>
+ <PUSH RES7>
+ <DEAD RES7>
+ <CALL '\1aDEST-PAIR 3>
+PHRASE69
+ <RETURN AC8>
+ <DEAD AC8>
+ <END \1aLOAD-AC-PAIR>
+#WORD *27040314035*
+<GFCN \1aLOAD-VAR ("VALUE" ANY VARTBL ANY BOOLEAN AC-CHOICES "OPTIONAL" <OR ATOM FALSE> BOOLEAN) VAR7 IMODE8 MODIFY?9 AC-TYPE10 DCL?11 USE?12>
+ <OPT-DISPATCH 4 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH 'T>
+OPT6
+ <TEMP MODE19 LVAR13 NOAC?14 VAC16 TAC15 TEMP32>
+ <INTGO>
+ <SET MODE19 IMODE8>
+ <VEQUAL? IMODE8 'JUST-VALUE - PHRASE21>
+ <SET MODE19 'VALUE (TYPE ATOM)>
+PHRASE21
+ <TYPE? DCL?11 <TYPE-CODE FALSE> - BOOL22>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAR7>
+ <CALL '\1aVARTBL-DECL 1 = DCL?11>
+BOOL22
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR7>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR13>
+ <TYPE? LVAR13 <TYPE-CODE FALSE> - PHRASE25>
+ <SET NOAC?14 %<> (TYPE FALSE)>
+ <JUMP + COND24>
+PHRASE25
+ <VEQUAL? MODE19 'VALUE - PHRASE27>
+ <VEQUAL? IMODE8 'JUST-VALUE + PHRASE29>
+ <NTHUV LVAR13 6 = VAC16>
+ <TYPE? VAC16 <TYPE-CODE FALSE> + PHRASE29>
+ <NTHUV LVAR13 9 = TAC15>
+ <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE29>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TAC15>
+ <CALL '\1aNEXT-AC 1 = TEMP32>
+ <EQUAL? TEMP32 VAC16 - PHRASE29>
+ <DEAD TEMP32>
+ <GVAL 'AC-0 = TEMP32>
+ <EQUAL? TEMP32 AC-TYPE10 + PHRASE29>
+ <DEAD TEMP32>
+ <TYPE? AC-TYPE10 <TYPE-CODE AC> - PHRASE34>
+ <VEQUAL? AC-TYPE10 VAC16 + PHRASE34>
+ <FRAME '\1aPREV-AC>
+ <PUSH AC-TYPE10>
+ <CALL '\1aPREV-AC 1 = NOAC?14>
+ <FRAME '\1aLOAD-VAR-INTO-AC>
+ <PUSH VAR7>
+ <PUSH 'TYPE-VALUE-PAIR>
+ <PUSH NOAC?14>
+ <DEAD NOAC?14>
+ <PUSH MODIFY?9>
+ <PUSH %<>>
+ <PUSH TAC15>
+ <DEAD TAC15>
+ <CALL '\1aLOAD-VAR-INTO-AC 6>
+ <SET NOAC?14 AC-TYPE10>
+ <JUMP + COND24>
+PHRASE34
+ <SET NOAC?14 VAC16>
+ <TYPE? MODIFY?9 <TYPE-CODE FALSE> + COND24>
+ <FRAME '\1aMUNG-AC>
+ <PUSH VAC16>
+ <DEAD VAC16>
+ <CALL '\1aMUNG-AC 1>
+ <FRAME '\1aMUNG-AC>
+ <PUSH TAC15>
+ <DEAD TAC15>
+ <CALL '\1aMUNG-AC 1>
+ <JUMP + COND24>
+PHRASE29
+ <NTHUV LVAR13 6 = VAC16>
+ <TYPE? VAC16 <TYPE-CODE FALSE> + PHRASE45>
+ <FRAME '\1aMOVE-VAR-BETWEEN-ACS>
+ <PUSH VAC16>
+ <DEAD VAC16>
+ <PUSH VAR7>
+ <PUSH AC-TYPE10>
+ <PUSH MODIFY?9>
+ <CALL '\1aMOVE-VAR-BETWEEN-ACS 4 = NOAC?14>
+ <JUMP + COND24>
+PHRASE45
+ <SET NOAC?14 %<> (TYPE FALSE)>
+ <JUMP + COND24>
+PHRASE27
+ <VEQUAL? MODE19 'TYPE - PHRASE48>
+ <NTHUV LVAR13 7 = TAC15>
+ <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE50>
+ <FRAME '\1aMOVE-VAR-BETWEEN-ACS>
+ <PUSH TAC15>
+ <DEAD TAC15>
+ <PUSH VAR7>
+ <PUSH AC-TYPE10>
+ <PUSH MODIFY?9>
+ <CALL '\1aMOVE-VAR-BETWEEN-ACS 4 = NOAC?14>
+ <JUMP + COND24>
+PHRASE50
+ <NTHUV LVAR13 4 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE52>
+ <DEAD TEMP32>
+ <NTHUV LVAR13 9 = TAC15>
+ <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE52>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAR7>
+ <CALL '\1aVARTBL-DECL 1 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE52>
+ <DEAD TEMP32>
+ <FRAME '\1aMOVE-TYPE-FROM-TYPEWORD>
+ <PUSH VAR7>
+ <PUSH TAC15>
+ <DEAD TAC15>
+ <PUSH AC-TYPE10>
+ <PUSH MODIFY?9>
+ <CALL '\1aMOVE-TYPE-FROM-TYPEWORD 4 = NOAC?14>
+ <JUMP + COND24>
+PHRASE52
+ <SET NOAC?14 %<> (TYPE FALSE)>
+ <JUMP + COND24>
+PHRASE48
+ <VEQUAL? MODE19 'COUNT - PHRASE57>
+ <NTHUV LVAR13 3 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE59>
+ <DEAD TEMP32>
+ <SET NOAC?14 %<> (TYPE FALSE)>
+ <JUMP + COND24>
+PHRASE59
+ <NTHUV LVAR13 8 = TAC15>
+ <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE60>
+ <FRAME '\1aMOVE-VAR-BETWEEN-ACS>
+ <PUSH TAC15>
+ <DEAD TAC15>
+ <PUSH VAR7>
+ <PUSH AC-TYPE10>
+ <PUSH MODIFY?9>
+ <CALL '\1aMOVE-VAR-BETWEEN-ACS 4 = NOAC?14>
+ <JUMP + COND24>
+PHRASE60
+ <NTHUV LVAR13 9 = TAC15>
+ <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE62>
+ <FRAME '\1aMOVE-COUNT-FROM-TYPEWORD>
+ <PUSH VAR7>
+ <PUSH TAC15>
+ <DEAD TAC15>
+ <PUSH AC-TYPE10>
+ <PUSH MODIFY?9>
+ <CALL '\1aMOVE-COUNT-FROM-TYPEWORD 4 = NOAC?14>
+ <JUMP + COND24>
+PHRASE62
+ <SET NOAC?14 %<> (TYPE FALSE)>
+ <JUMP + COND24>
+PHRASE57
+ <VEQUAL? MODE19 'TYPE-WORD - PHRASE65>
+ <NTHUV LVAR13 9 = TAC15>
+ <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE67>
+ <FRAME '\1aMOVE-VAR-BETWEEN-ACS>
+ <PUSH TAC15>
+ <DEAD TAC15>
+ <PUSH VAR7>
+ <PUSH AC-TYPE10>
+ <PUSH MODIFY?9>
+ <CALL '\1aMOVE-VAR-BETWEEN-ACS 4 = NOAC?14>
+ <JUMP + COND24>
+PHRASE67
+ <FRAME '\1aSAFE-TYPE-WORD?>
+ <PUSH VAR7>
+ <CALL '\1aSAFE-TYPE-WORD? 1 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE69>
+ <DEAD TEMP32>
+ <NTHUV LVAR13 8 = NOAC?14>
+ <TYPE? NOAC?14 <TYPE-CODE FALSE> + PHRASE72>
+ <NTHUV LVAR13 3 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE72>
+ <DEAD TEMP32>
+ <FRAME '\1aEMIT-MOVE>
+ <NTHUV NOAC?14 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 '\1aADDR-VAR-COUNT>
+ <PUSH VAR7>
+ <CALL '\1aADDR-VAR-COUNT 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-MOVE 3>
+ <PUTUV LVAR13 3 'T>
+ <FRAME '\1aBREAK-LINK>
+ <PUSH NOAC?14>
+ <DEAD NOAC?14>
+ <PUSH VAR7>
+ <CALL '\1aBREAK-LINK 2>
+PHRASE72
+ <NTHUV LVAR13 7 = NOAC?14>
+ <TYPE? NOAC?14 <TYPE-CODE FALSE> + PHRASE78>
+ <NTHUV LVAR13 4 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE78>
+ <DEAD TEMP32>
+ <FRAME '\1aEMIT-MOVE>
+ <NTHUV NOAC?14 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 '\1aADDR-VAR-TYPE>
+ <PUSH VAR7>
+ <CALL '\1aADDR-VAR-TYPE 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-MOVE 3>
+ <PUTUV LVAR13 4 'T>
+ <FRAME '\1aBREAK-LINK>
+ <PUSH NOAC?14>
+ <DEAD NOAC?14>
+ <PUSH VAR7>
+ <CALL '\1aBREAK-LINK 2>
+PHRASE78
+ <FRAME '\1aSAFE-TYPE-WORD?>
+ <PUSH VAR7>
+ <CALL '\1aSAFE-TYPE-WORD? 1 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE84>
+ <DEAD TEMP32>
+ <NTHUV LVAR13 5 = DCL?11>
+ <TYPE? DCL?11 <TYPE-CODE FALSE> + PHRASE84>
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH DCL?11>
+ <PUSH 'WORD>
+ <CALL '\1aTYPE-CODE 2 = STACK>
+ <FRAME '\1aADDR-VAR-TYPE>
+ <PUSH VAR7>
+ <CALL '\1aADDR-VAR-TYPE 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-MOVE 3>
+ <PUTUV LVAR13 4 'T>
+PHRASE84
+ <SET NOAC?14 %<> (TYPE FALSE)>
+ <JUMP + COND24>
+PHRASE69
+ <SET NOAC?14 %<> (TYPE FALSE)>
+ <JUMP + COND24>
+PHRASE65
+ <FRAME '\1aERROR>
+ <PUSH "BAD-MODE">
+ <PUSH 'LOAD-VAR>
+ <CALL '\1aERROR 2>
+COND24
+ <TYPE? NOAC?14 <TYPE-CODE FALSE> - PHRASE93>
+ <VEQUAL? IMODE8 'VALUE - PHRASE93>
+ <DEAD IMODE8>
+ <TYPE? LVAR13 <TYPE-CODE FALSE> + BOOL95>
+ <NTHUV LVAR13 7 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE93>
+ <DEAD TEMP32>
+ <NTHUV LVAR13 9 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE93>
+ <DEAD TEMP32>
+ <NTHUV LVAR13 8 = TEMP32>
+ <DEAD LVAR13>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE93>
+ <DEAD TEMP32>
+BOOL95
+ <GVAL 'AC-0 = TEMP32>
+ <EQUAL? TEMP32 AC-TYPE10 + PHRASE93>
+ <DEAD TEMP32>
+ <TYPE? AC-TYPE10 <TYPE-CODE AC> - PHRASE98>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aPREV-AC>
+ <PUSH AC-TYPE10>
+ <CALL '\1aPREV-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TAC15>
+ <FRAME '\1aGET-AC>
+ <PUSH AC-TYPE10>
+ <CALL '\1aGET-AC 1 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE93>
+ <DEAD TEMP32>
+ <JUMP + PHRASE102>
+PHRASE98
+ <FRAME '\1aGET-AC>
+ <PUSH 'DOUBLE>
+ <CALL '\1aGET-AC 1 = TAC15>
+ <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE93>
+PHRASE102
+ <FRAME '\1aLOAD-VAR-INTO-AC>
+ <PUSH VAR7>
+ <PUSH 'TYPE-VALUE-PAIR>
+ <PUSH TAC15>
+ <PUSH MODIFY?9>
+ <DEAD MODIFY?9>
+ <PUSH %<>>
+ <CALL '\1aLOAD-VAR-INTO-AC 5>
+ <TYPE? DCL?11 <TYPE-CODE FALSE> + BOOL105>
+ <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
+ <PUSH VAR7>
+ <DEAD VAR7>
+ <PUSH DCL?11>
+ <DEAD DCL?11>
+ <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
+BOOL105
+ <FRAME '\1aNEXT-AC>
+ <PUSH TAC15>
+ <DEAD TAC15>
+ <CALL '\1aNEXT-AC 1 = TAC15>
+ <TYPE? USE?12 <TYPE-CODE FALSE> + BOOL108>
+ <DEAD USE?12>
+ <FRAME '\1aUSE-AC>
+ <PUSH TAC15>
+ <CALL '\1aUSE-AC 1>
+BOOL108
+ <RETURN TAC15>
+ <DEAD TAC15>
+PHRASE93
+ <TYPE? NOAC?14 <TYPE-CODE FALSE> - PHRASE110>
+ <FRAME '\1aGET-AC>
+ <PUSH AC-TYPE10>
+ <DEAD AC-TYPE10>
+ <CALL '\1aGET-AC 1 = TAC15>
+ <FRAME '\1aLOAD-VAR-INTO-AC>
+ <PUSH VAR7>
+ <PUSH MODE19>
+ <DEAD MODE19>
+ <PUSH TAC15>
+ <PUSH MODIFY?9>
+ <DEAD MODIFY?9>
+ <CALL '\1aLOAD-VAR-INTO-AC 4>
+ <FRAME '\1aSET-STATUS-AC>
+ <PUSH TAC15>
+ <CALL '\1aSET-STATUS-AC 1>
+ <TYPE? DCL?11 <TYPE-CODE FALSE> + BOOL114>
+ <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
+ <PUSH VAR7>
+ <DEAD VAR7>
+ <PUSH DCL?11>
+ <DEAD DCL?11>
+ <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
+BOOL114
+ <TYPE? USE?12 <TYPE-CODE FALSE> + BOOL116>
+ <DEAD USE?12>
+ <FRAME '\1aUSE-AC>
+ <PUSH TAC15>
+ <CALL '\1aUSE-AC 1>
+BOOL116
+ <RETURN TAC15>
+ <DEAD TAC15>
+PHRASE110
+ <TYPE? DCL?11 <TYPE-CODE FALSE> + BOOL119>
+ <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
+ <PUSH VAR7>
+ <DEAD VAR7>
+ <PUSH DCL?11>
+ <DEAD DCL?11>
+ <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
+BOOL119
+ <TYPE? USE?12 <TYPE-CODE FALSE> + BOOL121>
+ <DEAD USE?12>
+ <FRAME '\1aUSE-AC>
+ <PUSH NOAC?14>
+ <CALL '\1aUSE-AC 1>
+BOOL121
+ <RETURN NOAC?14>
+ <DEAD NOAC?14>
+ <END \1aLOAD-VAR>
+#WORD *23013725425*
+<GFCN \1aMOVE-VAR-BETWEEN-ACS ("VALUE" STRUCTURED AC ANY AC-CHOICES BOOLEAN) VAC4 VAR5 AC-MODE6 MODIFY?7>
+ <TEMP TEMP13>
+ <INTGO>
+ <FRAME '\1aPROTECT-USE>
+ <PUSH VAC4>
+ <CALL '\1aPROTECT-USE 1>
+ <FRAME '\1aMATCH-AC?>
+ <PUSH VAC4>
+ <PUSH AC-MODE6>
+ <CALL '\1aMATCH-AC? 2 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
+ <DEAD TEMP13>
+ <TYPE? MODIFY?7 <TYPE-CODE FALSE> + PHRASE15>
+ <DEAD MODIFY?7>
+ <FRAME '\1aAVAILABLE?>
+ <PUSH VAC4>
+ <CALL '\1aAVAILABLE? 1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE17>
+ <DEAD TEMP13>
+ <FRAME '\1aCLEAR-VARS-FROM-AC>
+ <PUSH VAC4>
+ <CALL '\1aCLEAR-VARS-FROM-AC 1>
+ <RETURN VAC4>
+ <DEAD VAC4>
+PHRASE17
+ <FRAME '\1aCHECK-FREE-AC?>
+ <PUSH AC-MODE6>
+ <DEAD AC-MODE6>
+ <CALL '\1aCHECK-FREE-AC? 1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE20>
+ <FRAME '\1aIMOVE-AC>
+ <PUSH VAC4>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH %<>>
+ <CALL '\1aIMOVE-AC 3>
+ <RETURN VAC4>
+ <DEAD VAC4>
+PHRASE20
+ <FRAME '\1aSTORE-AC>
+ <PUSH VAC4>
+ <PUSH 'T>
+ <CALL '\1aSTORE-AC 2>
+ <RETURN VAC4>
+ <DEAD VAC4>
+PHRASE15
+ <RETURN VAC4>
+ <DEAD VAC4>
+PHRASE11
+ <TYPE? MODIFY?7 <TYPE-CODE FALSE> + PHRASE27>
+ <DEAD MODIFY?7>
+ <FRAME '\1aGET-AC>
+ <PUSH AC-MODE6>
+ <DEAD AC-MODE6>
+ <CALL '\1aGET-AC 1 = TEMP13>
+ <FRAME '\1aIMOVE-AC>
+ <PUSH VAC4>
+ <DEAD VAC4>
+ <PUSH TEMP13>
+ <PUSH 'T>
+ <CALL '\1aIMOVE-AC 3>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE27
+ <FRAME '\1aPLACE-ALTERNATE-AC>
+ <PUSH VAC4>
+ <DEAD VAC4>
+ <PUSH AC-MODE6>
+ <DEAD AC-MODE6>
+ <CALL '\1aPLACE-ALTERNATE-AC 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aMOVE-VAR-BETWEEN-ACS>\r\0\r\0
+#WORD *32763776551*
+<GFCN \1aCHECK-FREE-AC? ("VALUE" ANY AC-CHOICES) MODE4>
+ <TEMP TEMP8>
+ <INTGO>
+ <TYPE? MODE4 <TYPE-CODE AC> - PHRASE6>
+ <FRAME '\1aAVAILABLE?>
+ <PUSH MODE4>
+ <CALL '\1aAVAILABLE? 1 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL15>
+ <RETURN MODE4>
+ <DEAD MODE4>
+PHRASE6
+ <VEQUAL? MODE4 'DOUBLE - PHRASE10>
+ <FRAME '\1aFIND-FREE-PAIR>
+ <PUSH 'NOVARS>
+ <CALL '\1aFIND-FREE-PAIR 1 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL15>
+ <FRAME '\1aFIND-FREE-PAIR>
+ <PUSH 'STORED>
+ <CALL '\1aFIND-FREE-PAIR 1 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+PHRASE10
+ <FRAME '\1aFREE-AC?>
+ <PUSH MODE4>
+ <PUSH 'NOVARS>
+ <CALL '\1aFREE-AC? 2 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL15>
+ <FRAME '\1aFREE-AC?>
+ <PUSH MODE4>
+ <DEAD MODE4>
+ <PUSH 'STORED>
+ <CALL '\1aFREE-AC? 2 = TEMP8>
+BOOL15
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aCHECK-FREE-AC?>
+#WORD *6562007404*
+<GFCN \1aAVAILABLE? ("VALUE" <OR AC FALSE> AC) AC4>
+ <TEMP TEMP14 TEMP16:VECTOR LVAR17:LINKVAR>
+ <INTGO>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <NTHUV AC4 8 = TEMP16 (TYPE VECTOR)>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPUV? TEMP16 + MAPAP9>
+ <NTHUV TEMP16 1 = LVAR17>
+ <NTHUV LVAR17 1 = TEMP14 (TYPE VARTBL)>
+ <NTHUV TEMP14 5 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE30>
+ <DEAD TEMP14>
+ <NTHUV LVAR17 6 = TEMP14>
+ <EQUAL? TEMP14 AC4 - PHRASE22>
+ <DEAD TEMP14>
+ <NTHUV LVAR17 2 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE22>
+ <DEAD TEMP14>
+ <RETURN %<>>
+PHRASE22
+ <NTHUV LVAR17 7 = TEMP14>
+ <EQUAL? TEMP14 AC4 - PHRASE24>
+ <DEAD TEMP14>
+ <NTHUV LVAR17 4 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE24>
+ <DEAD TEMP14>
+ <RETURN %<>>
+PHRASE24
+ <NTHUV LVAR17 8 = TEMP14>
+ <EQUAL? TEMP14 AC4 - PHRASE27>
+ <DEAD TEMP14>
+ <NTHUV LVAR17 3 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE27>
+ <DEAD TEMP14>
+ <RETURN %<>>
+PHRASE27
+ <NTHUV LVAR17 9 = TEMP14>
+ <EQUAL? TEMP14 AC4 - PHRASE30>
+ <DEAD TEMP14>
+ <NTHUV LVAR17 4 = TEMP14>
+ <DEAD LVAR17>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE30>
+ <DEAD TEMP14>
+ <RETURN %<>>
+PHRASE30
+ <SET TEMP14 AC4>
+ <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
+ <JUMP + MAP6>
+MAPAP9
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aAVAILABLE?>
+#WORD *22732255475*
+<GFCN \1aGET-AC ("VALUE" STRUCTURED "OPTIONAL" AC-CHOICES ANY) AC-MODE7 MUNG?8>
+ <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH 'ANY-AC>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP PAC9>
+ <INTGO>
+ <EQUAL? AC-MODE7 'ANY-AC - PHRASE11>
+ <SET AC-MODE7 'NONE (TYPE ATOM)>
+PHRASE11
+ <TYPE? AC-MODE7 <TYPE-CODE AC> - PHRASE13>
+ <FRAME '\1aSTORE-AC>
+ <PUSH AC-MODE7>
+ <CALL '\1aSTORE-AC 1>
+ <SET PAC9 AC-MODE7>
+ <JUMP + PHRASE16>
+PHRASE13
+ <FRAME '\1aCHECK-FREE-AC?>
+ <PUSH AC-MODE7>
+ <CALL '\1aCHECK-FREE-AC? 1 = PAC9>
+ <TYPE? PAC9 <TYPE-CODE FALSE> - PHRASE16>
+ <FRAME '\1aPICK-BEST-AC>
+ <PUSH AC-MODE7>
+ <CALL '\1aPICK-BEST-AC 1 = PAC9>
+ <FRAME '\1aSTORE-AC>
+ <PUSH PAC9>
+ <CALL '\1aSTORE-AC 1>
+ <VEQUAL? AC-MODE7 'DOUBLE - PHRASE16>
+ <FRAME '\1aSTORE-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH PAC9>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aSTORE-AC 1>
+PHRASE16
+ <TYPE? MUNG?8 <TYPE-CODE FALSE> + PHRASE27>
+ <DEAD MUNG?8>
+ <FRAME '\1aMUNG-AC>
+ <PUSH PAC9>
+ <CALL '\1aMUNG-AC 1>
+ <EQUAL? AC-MODE7 'DOUBLE - PHRASE27>
+ <DEAD AC-MODE7>
+ <FRAME '\1aMUNG-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH PAC9>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aMUNG-AC 1>
+PHRASE27
+ <RETURN PAC9>
+ <DEAD PAC9>
+ <END \1aGET-AC>
+#WORD *24525566511*
+<GFCN \1aPICK-BEST-AC ("VALUE" AC ATOM) MODE4>
+ <TEMP TEMP6:AC>
+ <INTGO>
+ <FRAME '\1aPICK-FROM>
+ <GVAL 'ALL-ACS = STACK>
+ <PUSH MODE4>
+ <DEAD MODE4>
+ <CALL '\1aPICK-FROM 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aPICK-BEST-AC>
+#WORD *26717477356*
+<GFCN \1aPICK-FROM ("VALUE" <OR FALSE AC> <VECTOR [REST AC]> ANY) ACS4 MODE5>
+ <TEMP (BEST-AC6 %<>) TEMP17 AC10:AC AC211:AC BEST-AC27:AC TEMP37>
+ <INTGO>
+ <LOOP>
+AGAIN12
+ <INTGO>
+ <EMPUV? ACS4 + EXIT8 (TYPE VECTOR)>
+ <RESTUV ACS4 1 = TEMP17 (TYPE VECTOR)>
+ <EMPUV? TEMP17 - PHRASE14 (TYPE VECTOR)>
+ <DEAD TEMP17>
+ <EQUAL? MODE5 'DOUBLE + EXIT8>
+PHRASE14
+ <NTHUV ACS4 1 = AC10 (TYPE AC)>
+ <EQUAL? MODE5 'DOUBLE - PHRASE19>
+ <NTHUV ACS4 2 = AC211 (TYPE AC)>
+PHRASE19
+ <EQUAL? MODE5 'DOUBLE - PHRASE21>
+ <SET TEMP17 2 (TYPE FIX)>
+ <JUMP + PHRASE22>
+PHRASE21
+ <SET TEMP17 1 (TYPE FIX)>
+PHRASE22
+ <RESTUV ACS4 TEMP17 = ACS4 (TYPE VECTOR)>
+ <DEAD TEMP17>
+ <NTHUV AC10 4 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - AGAIN12>
+ <DEAD TEMP17>
+ <EQUAL? MODE5 'DOUBLE - PHRASE26>
+ <NTHUV AC211 4 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - AGAIN12>
+ <DEAD TEMP17>
+PHRASE26
+ <TYPE? BEST-AC6 <TYPE-CODE FALSE> - PHRASE31>
+ <SET BEST-AC6 AC10>
+ <DEAD AC10>
+ <EQUAL? MODE5 'DOUBLE - AGAIN12>
+ <SET BEST-AC27 AC211>
+ <JUMP + AGAIN12>
+PHRASE31
+ <NTHUV AC10 8 = TEMP17 (TYPE VECTOR)>
+ <LENUV TEMP17 = TEMP17 (TYPE FIX)>
+ <NTHUV BEST-AC6 8 = TEMP37 (TYPE VECTOR)>
+ <LENUV TEMP37 = TEMP37 (TYPE FIX)>
+ <LESS? TEMP17 TEMP37 - PHRASE35 (TYPE FIX)>
+ <DEAD TEMP17 TEMP37>
+ <EQUAL? MODE5 'DOUBLE - BOOL38>
+ <NTHUV AC211 8 = TEMP17 (TYPE VECTOR)>
+ <LENUV TEMP17 = TEMP17 (TYPE FIX)>
+ <NTHUV BEST-AC27 8 = TEMP37 (TYPE VECTOR)>
+ <LENUV TEMP37 = TEMP37 (TYPE FIX)>
+ <LESS? TEMP17 TEMP37 - PHRASE35 (TYPE FIX)>
+ <DEAD TEMP17 TEMP37>
+BOOL38
+ <SET BEST-AC6 AC10>
+ <DEAD AC10>
+ <EQUAL? MODE5 'DOUBLE - AGAIN12>
+ <SET BEST-AC27 AC211>
+ <JUMP + AGAIN12>
+PHRASE35
+ <NTHUV AC10 3 = TEMP17 (TYPE FIX)>
+ <NTHUV BEST-AC6 3 = TEMP37 (TYPE FIX)>
+ <GRTR? TEMP17 TEMP37 - AGAIN12 (TYPE FIX)>
+ <DEAD TEMP17 TEMP37>
+ <EQUAL? MODE5 'DOUBLE - BOOL44>
+ <NTHUV AC211 3 = TEMP17 (TYPE FIX)>
+ <NTHUV BEST-AC27 3 = TEMP37 (TYPE FIX)>
+ <GRTR? TEMP17 TEMP37 - AGAIN12 (TYPE FIX)>
+ <DEAD TEMP17 TEMP37>
+BOOL44
+ <SET BEST-AC6 AC10>
+ <DEAD AC10>
+ <SET BEST-AC27 AC211>
+ <JUMP + AGAIN12>
+EXIT8
+ <TYPE? BEST-AC6 <TYPE-CODE FALSE> - PHRASE46>
+ <FRAME '\1aERROR>
+ <PUSH "AC NOT FOUND">
+ <PUSH 'PICK-FROM>
+ <CALL '\1aERROR 2>
+PHRASE46
+ <RETURN BEST-AC6>
+ <DEAD BEST-AC6>
+ <END \1aPICK-FROM>
+#WORD *16075050366*
+ <GFCN \1aIMOVE-AC ("VALUE" ANY AC AC ANY) SOURCE-AC4 DEST-AC5 MODIFY?6>
+ <TEMP TEMP10>
+ <INTGO>
+ <FRAME '\1aUSE-AC>
+ <PUSH SOURCE-AC4>
+ <CALL '\1aUSE-AC 1>
+ <FRAME '\1aSTORE-AC>
+ <PUSH DEST-AC5>
+ <PUSH 'T>
+ <CALL '\1aSTORE-AC 2>
+ <FRAME '\1aEMIT-MOVE>
+ <NTHUV SOURCE-AC4 2 = TEMP10 (TYPE FIX)>
+ <OR TEMP10 #WORD *120* = TEMP10>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP10>
+ <NTHUV DEST-AC5 2 = TEMP10 (TYPE FIX)>
+ <OR TEMP10 #WORD *120* = TEMP10>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP10>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aLOAD-AC>
+ <PUSH DEST-AC5>
+ <NTHUV SOURCE-AC4 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 '\1aLOAD-AC 2>
+ <TYPE? MODIFY?6 <TYPE-CODE FALSE> - BOOL12>
+ <DEAD MODIFY?6>
+ <FRAME '\1aMOVE-AC>
+ <PUSH SOURCE-AC4>
+ <DEAD SOURCE-AC4>
+ <PUSH DEST-AC5>
+ <CALL '\1aMOVE-AC 2>
+BOOL12
+ <FRAME '\1aSET-STATUS-AC>
+ <PUSH DEST-AC5>
+ <CALL '\1aSET-STATUS-AC 1>
+ <FRAME '\1aSET-AC-AGE>
+ <PUSH DEST-AC5>
+ <DEAD DEST-AC5>
+ <CALL '\1aSET-AC-AGE 1 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aIMOVE-AC>
+
+#WORD *30247662615*
+<GFCN \1aSTORE-AC ("VALUE" ANY AC "OPTIONAL" BOOLEAN <OR LINKVAR FALSE>) AC7 FLUSH8 SAVE?9>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP TEMP21 X22:LINKVAR>
+ <INTGO>
+ <NTHUV AC7 8 = TEMP21 (TYPE VECTOR)>
+ <LOOP>
+MAP11
+ <INTGO>
+ <EMPUV? TEMP21 + MAPAP14>
+ <NTHUV TEMP21 1 = X22>
+ <EQUAL? X22 SAVE?9 + PHRASE24>
+ <FRAME '\1aISTORE-VAR>
+ <PUSH X22>
+ <DEAD X22>
+ <CALL '\1aISTORE-VAR 1>
+PHRASE24
+ <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
+ <JUMP + MAP11>
+MAPAP14
+ <SET TEMP21 FLUSH8>
+ <DEAD FLUSH8>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE27>
+ <FRAME '\1aCLEAR-VARS-FROM-AC>
+ <PUSH AC7>
+ <DEAD AC7>
+ <PUSH SAVE?9>
+ <DEAD SAVE?9>
+ <PUSH 'T>
+ <CALL '\1aCLEAR-VARS-FROM-AC 3 = TEMP21>
+PHRASE27
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+ <END \1aSTORE-AC>
+#WORD *33012570317*
+<GFCN \1aPLACE-ALTERNATE-AC ("VALUE" STRUCTURED AC AC-CHOICES) AC4 MODE5>
+ <TEMP FAC6 TEMP11>
+ <INTGO>
+ <FRAME '\1aGET-AC>
+ <PUSH MODE5>
+ <DEAD MODE5>
+ <CALL '\1aGET-AC 1 = FAC6>
+ <FRAME '\1aALL-DEAD?>
+ <PUSH FAC6>
+ <CALL '\1aALL-DEAD? 1 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE9>
+ <DEAD TEMP11>
+ <FRAME '\1aEMIT-MOVE>
+ <NTHUV AC4 2 = TEMP11 (TYPE FIX)>
+ <OR TEMP11 #WORD *120* = TEMP11>
+ <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
+ <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP11>
+ <NTHUV FAC6 2 = TEMP11 (TYPE FIX)>
+ <OR TEMP11 #WORD *120* = TEMP11>
+ <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
+ <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP11>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aMOVE-AC>
+ <PUSH AC4>
+ <DEAD AC4>
+ <PUSH FAC6>
+ <CALL '\1aMOVE-AC 2>
+ <RETURN FAC6>
+ <DEAD FAC6>
+PHRASE9
+ <FRAME '\1aEMIT-EXCH>
+ <PUSH AC4>
+ <PUSH FAC6>
+ <CALL '\1aEMIT-EXCH 2>
+ <FRAME '\1aEXCH-AC>
+ <PUSH AC4>
+ <DEAD AC4>
+ <PUSH FAC6>
+ <CALL '\1aEXCH-AC 2>
+ <RETURN FAC6>
+ <DEAD FAC6>
+ <END \1aPLACE-ALTERNATE-AC>
+#WORD *4630717321*
+<GFCN \1aEMIT-EXCH ("VALUE" ANY AC AC) AC14 AC25>
+ <TEMP TAC6 TEMP11>
+ <INTGO>
+ <FRAME '\1aFREE-AC?>
+ <PUSH 'NONE>
+ <PUSH 'NOVARS>
+ <CALL '\1aFREE-AC? 2 = TAC6>
+ <TYPE? TAC6 <TYPE-CODE FALSE> + PHRASE8>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <NTHUV AC14 2 = TEMP11 (TYPE FIX)>
+ <OR TEMP11 #WORD *120* = TEMP11>
+ <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
+ <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP11>
+ <NTHUV TAC6 2 = TEMP11 (TYPE FIX)>
+ <OR TEMP11 #WORD *120* = TEMP11>
+ <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
+ <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP11>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <NTHUV AC25 2 = TEMP11 (TYPE FIX)>
+ <OR TEMP11 #WORD *120* = TEMP11>
+ <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
+ <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP11>
+ <NTHUV AC14 2 = TEMP11 (TYPE FIX)>
+ <DEAD AC14>
+ <OR TEMP11 #WORD *120* = TEMP11>
+ <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
+ <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP11>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <NTHUV TAC6 2 = TEMP11 (TYPE FIX)>
+ <DEAD TAC6>
+ <OR TEMP11 #WORD *120* = TEMP11>
+ <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
+ <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP11>
+ <NTHUV AC25 2 = TEMP11 (TYPE FIX)>
+ <DEAD AC25>
+ <OR TEMP11 #WORD *120* = TEMP11>
+ <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
+ <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP11>
+ <CALL '\1aEMIT 3 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE8
+ <FRAME '\1aEMIT>
+ <PUSH 221>
+ <NTHUV AC14 2 = TAC6 (TYPE FIX)>
+ <OR TAC6 #WORD *120* = TAC6>
+ <LSH TAC6 24 = TAC6 (TYPE FIX)>
+ <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TAC6>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <NTHUV AC25 2 = TAC6 (TYPE FIX)>
+ <OR TAC6 #WORD *120* = TAC6>
+ <LSH TAC6 24 = TAC6 (TYPE FIX)>
+ <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TAC6>
+ <NTHUV AC14 2 = TAC6 (TYPE FIX)>
+ <DEAD AC14>
+ <OR TAC6 #WORD *120* = TAC6>
+ <LSH TAC6 24 = TAC6 (TYPE FIX)>
+ <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TAC6>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-P = TAC6>
+ <NTHUV TAC6 2 = TAC6 (TYPE FIX)>
+ <OR TAC6 #WORD *200* = TAC6>
+ <LSH TAC6 24 = TAC6 (TYPE FIX)>
+ <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TAC6>
+ <NTHUV AC25 2 = TAC6 (TYPE FIX)>
+ <DEAD AC25>
+ <OR TAC6 #WORD *120* = TAC6>
+ <LSH TAC6 24 = TAC6 (TYPE FIX)>
+ <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TAC6>
+ <CALL '\1aEMIT 3 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aEMIT-EXCH>
+#WORD *5063003233*
+<GFCN \1aLOAD-VAR-INTO-AC ("VALUE" <OR FALSE LINKVAR> VARTBL ATOM AC BOOLEAN "OPTIONAL" ANY ANY) VAR7 MODE8 AC9 MODIFY?10 VTMOD11 ALREADY?12>
+ <OPT-DISPATCH 4 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP LVAR13 SAFE?18 (RLVAR19 %<>) TEMP26 (CLEAR-TYPE?21 %<>) (CLEAR-COUNT?22 %<>) V70:FIX>
+ <INTGO>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR7>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR13>
+ <FRAME '\1aSAFE-TYPE-WORD?>
+ <PUSH VAR7>
+ <CALL '\1aSAFE-TYPE-WORD? 1 = SAFE?18>
+ <SET TEMP26 LVAR13>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> + BOOL25>
+ <NTHUV LVAR13 4 = TEMP26>
+ <DEAD LVAR13>
+BOOL25
+ <SET LVAR13 TEMP26>
+ <DEAD TEMP26>
+ <VEQUAL? MODE8 'TYPE-VALUE-PAIR - PHRASE28>
+ <FRAME '\1aALL-DEAD?>
+ <PUSH AC9>
+ <CALL '\1aALL-DEAD? 1 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL32>
+ <DEAD TEMP26>
+ <FRAME '\1aALL-STORED?>
+ <PUSH AC9>
+ <CALL '\1aALL-STORED? 1 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE30>
+ <DEAD TEMP26>
+BOOL32
+ <FRAME '\1aALL-DEAD?>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC9>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aALL-DEAD? 1 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL35>
+ <DEAD TEMP26>
+ <FRAME '\1aALL-STORED?>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC9>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aALL-STORED? 1 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE30>
+ <DEAD TEMP26>
+BOOL35
+ <FRAME '\1aMUNG-AC>
+ <PUSH AC9>
+ <CALL '\1aMUNG-AC 1>
+ <FRAME '\1aMUNG-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC9>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aMUNG-AC 1>
+ <JUMP + COND27>
+PHRASE30
+ <FRAME '\1aSTORE-AC>
+ <PUSH AC9>
+ <PUSH 'T>
+ <CALL '\1aSTORE-AC 2>
+ <FRAME '\1aSTORE-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC9>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 'T>
+ <CALL '\1aSTORE-AC 2>
+ <JUMP + COND27>
+PHRASE28
+ <FRAME '\1aALL-DEAD?>
+ <PUSH AC9>
+ <CALL '\1aALL-DEAD? 1 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL48>
+ <DEAD TEMP26>
+ <FRAME '\1aALL-STORED?>
+ <PUSH AC9>
+ <CALL '\1aALL-STORED? 1 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE47>
+ <DEAD TEMP26>
+BOOL48
+ <FRAME '\1aMUNG-AC>
+ <PUSH AC9>
+ <CALL '\1aMUNG-AC 1>
+ <JUMP + COND27>
+PHRASE47
+ <FRAME '\1aFREE-AC?>
+ <PUSH MODE8>
+ <PUSH 'NOVARS>
+ <CALL '\1aFREE-AC? 2 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE52>
+ <FRAME '\1aIMOVE-AC>
+ <PUSH AC9>
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <PUSH %<>>
+ <CALL '\1aIMOVE-AC 3>
+ <FRAME '\1aCLEAR-VARS-FROM-AC>
+ <PUSH AC9>
+ <CALL '\1aCLEAR-VARS-FROM-AC 1>
+ <JUMP + COND27>
+PHRASE52
+ <FRAME '\1aSTORE-AC>
+ <PUSH AC9>
+ <PUSH 'T>
+ <CALL '\1aSTORE-AC 2>
+COND27
+ <FRAME '\1aCLOAD-AC>
+ <PUSH AC9>
+ <CALL '\1aCLOAD-AC 1>
+ <VEQUAL? MODE8 'TYPE-VALUE-PAIR - PHRASE59>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <TYPE? ALREADY?12 <TYPE-CODE FALSE> + PHRASE62>
+ <NTHUV ALREADY?12 2 = TEMP26 (TYPE FIX)>
+ <DEAD ALREADY?12>
+ <OR TEMP26 #WORD *120* = TEMP26>
+ <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
+ <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = TEMP26>
+ <JUMP + COND61>
+PHRASE62
+ <FRAME '\1aADDR-VAR-TYPE-VALUE>
+ <PUSH VAR7>
+ <CALL '\1aADDR-VAR-TYPE-VALUE 1 = TEMP26>
+COND61
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <NTHUV AC9 2 = TEMP26 (TYPE FIX)>
+ <OR TEMP26 #WORD *120* = TEMP26>
+ <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
+ <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP26>
+ <CALL '\1aEMIT 3>
+ <GVAL 'GC-MODE = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE126>
+ <DEAD TEMP26>
+ <FRAME '\1aEMIT>
+ <PUSH 170>
+ <GVAL 'AC-PC = TEMP26>
+ <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
+ <OR TEMP26 #WORD *200* = TEMP26>
+ <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
+ <SET V70 32800 (TYPE FIX)>
+ <AND V70 #WORD *377* = LVAR13>
+ <LSH LVAR13 16 = LVAR13 (TYPE FIX)>
+ <AND V70 #WORD *177400* = SAFE?18>
+ <DEAD V70>
+ <OR LVAR13 SAFE?18 = LVAR13>
+ <DEAD SAFE?18>
+ <AND LVAR13 #WORD *77777400* = LVAR13>
+ <OR TEMP26 LVAR13 = TEMP26>
+ <DEAD LVAR13>
+ <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP26>
+ <NTHUV AC9 2 = LVAR13 (TYPE FIX)>
+ <OR LVAR13 #WORD *120* = LVAR13>
+ <LSH LVAR13 24 = LVAR13 (TYPE FIX)>
+ <CHTYPE LVAR13 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD LVAR13>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE126>
+PHRASE59
+ <VEQUAL? MODE8 'TYPE - PHRASE74>
+ <TYPE? SAFE?18 <TYPE-CODE FALSE> - BOOL77>
+ <DEAD SAFE?18>
+ <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE76>
+ <DEAD LVAR13>
+BOOL77
+ <FRAME '\1aMOVE-TO-AC>
+ <PUSH AC9>
+ <FRAME '\1aADDR-VAR-TYPE>
+ <PUSH VAR7>
+ <CALL '\1aADDR-VAR-TYPE 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aMOVE-TO-AC 3>
+ <GVAL 'GC-MODE = LVAR13>
+ <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE126>
+ <DEAD LVAR13>
+ <FRAME '\1aEMIT>
+ <PUSH 170>
+ <GVAL 'AC-PC = LVAR13>
+ <NTHUV LVAR13 2 = SAFE?18 (TYPE FIX)>
+ <DEAD LVAR13>
+ <OR SAFE?18 #WORD *200* = SAFE?18>
+ <LSH SAFE?18 24 = SAFE?18 (TYPE FIX)>
+ <SET V70 32800 (TYPE FIX)>
+ <AND V70 #WORD *377* = LVAR13>
+ <LSH LVAR13 16 = LVAR13 (TYPE FIX)>
+ <AND V70 #WORD *177400* = TEMP26>
+ <DEAD V70>
+ <OR LVAR13 TEMP26 = LVAR13>
+ <DEAD TEMP26>
+ <AND LVAR13 #WORD *77777400* = LVAR13>
+ <OR SAFE?18 LVAR13 = SAFE?18>
+ <DEAD LVAR13>
+ <CHTYPE SAFE?18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD SAFE?18>
+ <NTHUV AC9 2 = SAFE?18 (TYPE FIX)>
+ <OR SAFE?18 #WORD *120* = SAFE?18>
+ <LSH SAFE?18 24 = SAFE?18 (TYPE FIX)>
+ <CHTYPE SAFE?18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD SAFE?18>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE126>
+PHRASE76
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAR7>
+ <CALL '\1aVARTBL-DECL 1 = LVAR13>
+ <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE87>
+ <FRAME '\1aMOVE-TO-AC>
+ <PUSH AC9>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH LVAR13>
+ <DEAD LVAR13>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aMOVE-TO-AC 3>
+ <SET CLEAR-TYPE?21 'T (TYPE ATOM)>
+ <JUMP + PHRASE126>
+PHRASE87
+ <FRAME '\1aERROR>
+ <PUSH "NO TYPE CODE">
+ <PUSH 'LOAD-VAR-INTO-AC>
+ <CALL '\1aERROR 2>
+ <JUMP + PHRASE126>
+PHRASE74
+ <VEQUAL? MODE8 'COUNT - PHRASE92>
+ <FRAME '\1aMOVE-TO-AC>
+ <PUSH AC9>
+ <FRAME '\1aADDR-VAR-COUNT>
+ <PUSH VAR7>
+ <CALL '\1aADDR-VAR-COUNT 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aMOVE-TO-AC 3>
+ <JUMP + PHRASE126>
+PHRASE92
+ <VEQUAL? MODE8 'TYPE-WORD - PHRASE95>
+ <TYPE? SAFE?18 <TYPE-CODE FALSE> + PHRASE97>
+ <DEAD SAFE?18>
+ <FRAME '\1aMOVE-TO-AC>
+ <PUSH AC9>
+ <FRAME '\1aADDR-VAR-TYPE>
+ <PUSH VAR7>
+ <CALL '\1aADDR-VAR-TYPE 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aMOVE-TO-AC 3>
+ <JUMP + PHRASE126>
+PHRASE97
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAR7>
+ <CALL '\1aVARTBL-DECL 1 = LVAR13>
+ <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE102>
+ <FRAME '\1aCOUNT-NEEDED?>
+ <PUSH LVAR13>
+ <CALL '\1aCOUNT-NEEDED? 1 = SAFE?18>
+ <TYPE? SAFE?18 <TYPE-CODE FALSE> + PHRASE105>
+ <DEAD SAFE?18>
+ <FRAME '\1aMOVE-TO-AC>
+ <PUSH AC9>
+ <FRAME '\1aVAR-COUNT-ADDRESS>
+ <PUSH VAR7>
+ <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aMOVE-TO-AC 3>
+ <FRAME '\1aMOVE-TO-AC>
+ <PUSH AC9>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH LVAR13>
+ <DEAD LVAR13>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aMOVE-TO-AC 3>
+ <JUMP + COND101>
+PHRASE105
+ <FRAME '\1aMOVE-TO-AC>
+ <PUSH AC9>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH LVAR13>
+ <DEAD LVAR13>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aMOVE-TO-AC 3>
+ <JUMP + COND101>
+PHRASE102
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR7>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR13>
+ <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE114>
+ <NTHUV LVAR13 7 = SAFE?18>
+ <TYPE? SAFE?18 <TYPE-CODE FALSE> + PHRASE117>
+ <NTHUV LVAR13 8 = LVAR13>
+ <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE119>
+ <FRAME '\1aMOVE-TO-AC>
+ <PUSH AC9>
+ <NTHUV LVAR13 2 = TEMP26 (TYPE FIX)>
+ <DEAD LVAR13>
+ <OR TEMP26 #WORD *120* = TEMP26>
+ <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
+ <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP26>
+ <PUSH 'WORD>
+ <CALL '\1aMOVE-TO-AC 3>
+ <FRAME '\1aEMIT>
+ <PUSH 156>
+ <GVAL 'AC-PC = TEMP26>
+ <NTHUV TEMP26 2 = LVAR13 (TYPE FIX)>
+ <DEAD TEMP26>
+ <OR LVAR13 #WORD *200* = LVAR13>
+ <LSH LVAR13 24 = LVAR13 (TYPE FIX)>
+ <LSH 16 16 = TEMP26 (TYPE FIX)>
+ <OR LVAR13 TEMP26 = LVAR13>
+ <DEAD TEMP26>
+ <CHTYPE LVAR13 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD LVAR13>
+ <NTHUV AC9 2 = LVAR13 (TYPE FIX)>
+ <OR LVAR13 #WORD *120* = LVAR13>
+ <LSH LVAR13 24 = LVAR13 (TYPE FIX)>
+ <CHTYPE LVAR13 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD LVAR13>
+ <CALL '\1aEMIT 3>
+PHRASE119
+ <FRAME '\1aMOVE-TO-AC>
+ <PUSH AC9>
+ <NTHUV SAFE?18 2 = LVAR13 (TYPE FIX)>
+ <DEAD SAFE?18>
+ <OR LVAR13 #WORD *120* = LVAR13>
+ <LSH LVAR13 24 = LVAR13 (TYPE FIX)>
+ <CHTYPE LVAR13 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD LVAR13>
+ <PUSH 'WORD>
+ <CALL '\1aMOVE-TO-AC 3>
+ <JUMP + COND101>
+PHRASE117
+ <FRAME '\1aERROR>
+ <PUSH "NO TYPE WORD">
+ <PUSH 'LOAD-VAR-INTO-AC>
+ <CALL '\1aERROR 2>
+ <JUMP + COND101>
+PHRASE114
+ <FRAME '\1aERROR>
+ <PUSH "NO TYPE WORD">
+ <PUSH 'LOAD-VAR-INTO-AC>
+ <CALL '\1aERROR 2>
+COND101
+ <SET CLEAR-TYPE?21 'T (TYPE ATOM)>
+ <SET CLEAR-COUNT?22 'T (TYPE ATOM)>
+ <FRAME '\1aUSE-AC>
+ <PUSH AC9>
+ <CALL '\1aUSE-AC 1>
+ <JUMP + PHRASE126>
+PHRASE95
+ <VEQUAL? MODE8 'VALUE - PHRASE126>
+ <FRAME '\1aMOVE-TO-AC>
+ <PUSH AC9>
+ <FRAME '\1aADDR-VAR-VALUE>
+ <PUSH VAR7>
+ <CALL '\1aADDR-VAR-VALUE 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aMOVE-TO-AC 3>
+PHRASE126
+ <TYPE? MODIFY?10 <TYPE-CODE FALSE> - PHRASE130>
+ <DEAD MODIFY?10>
+ <FRAME '\1aLINK-VAR-TO-AC>
+ <PUSH VAR7>
+ <DEAD VAR7>
+ <PUSH AC9>
+ <DEAD AC9>
+ <PUSH MODE8>
+ <DEAD MODE8>
+ <PUSH 'T>
+ <PUSH %<>>
+ <CALL '\1aLINK-VAR-TO-AC 5 = RLVAR19>
+PHRASE130
+ <SET LVAR13 RLVAR19>
+ <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE137>
+ <VEQUAL? CLEAR-TYPE?21 0 + PHRASE135>
+ <DEAD CLEAR-TYPE?21>
+ <PUTUV RLVAR19 4 %<>>
+PHRASE135
+ <SET LVAR13 CLEAR-COUNT?22>
+ <DEAD CLEAR-COUNT?22>
+ <VEQUAL? LVAR13 0 + PHRASE137>
+ <PUTUV RLVAR19 3 %<>>
+ <SET LVAR13 RLVAR19>
+ <DEAD RLVAR19>
+PHRASE137
+ <RETURN LVAR13>
+ <DEAD LVAR13>
+ <END \1aLOAD-VAR-INTO-AC>\r\0\r\0
+#WORD *36560534574*
+<GFCN \1aMATCH-AC? ("VALUE" <OR ATOM FALSE> AC AC-CHOICES) AC4 MODE5>
+ <TEMP TEMP9>
+ <INTGO>
+ <TYPE? MODE5 <TYPE-CODE AC> - PHRASE7>
+ <VEQUAL? AC4 MODE5 - TAG8>
+ <DEAD AC4 MODE5>
+ <RETURN 'T>
+TAG8
+ <RETURN %<>>
+PHRASE7
+ <RETURN 'T>
+ <END \1aMATCH-AC?>
+#WORD *25177725536*
+<GFCN \1aVAR-VALUE-ADDRESS ("VALUE" <OR EFF-ADDR LADDR> VARTBL "OPTIONAL" ANY) VAR6 WRITE?7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP LVAR8 TAC9 TEMP18>
+ <INTGO>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR6>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR8>
+ <TYPE? LVAR8 <TYPE-CODE FALSE> + PHRASE11>
+ <NTHUV LVAR8 6 = TAC9>
+ <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE11>
+ <TYPE? WRITE?7 <TYPE-CODE FALSE> + PHRASE15>
+ <DEAD WRITE?7>
+ <NTHUV TAC9 8 = TEMP18 (TYPE VECTOR)>
+ <LENUV TEMP18 = TEMP18 (TYPE FIX)>
+ <GRTR? TEMP18 1 - PHRASE15>
+ <DEAD TEMP18>
+ <FRAME '\1aSTORE-AC>
+ <PUSH TAC9>
+ <PUSH 'T>
+ <PUSH LVAR8>
+ <DEAD LVAR8>
+ <CALL '\1aSTORE-AC 3>
+PHRASE15
+ <FRAME '\1aUSE-AC>
+ <PUSH TAC9>
+ <CALL '\1aUSE-AC 1>
+ <NTHUV TAC9 2 = TEMP18 (TYPE FIX)>
+ <DEAD TAC9>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+PHRASE11
+ <FRAME '\1aADDR-VAR-VALUE>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <CALL '\1aADDR-VAR-VALUE 1 = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+ <END \1aVAR-VALUE-ADDRESS>
+#WORD *21100545544*
+<GFCN \1aVAR-TYPE-ADDRESS ("VALUE" <OR EFF-ADDR LADDR> VARTBL "OPTIONAL" ATOM ANY) VAR7 MODE8 WRITE?9>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH 'TYPE>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP LVAR10 TAC11 TEMP21>
+ <INTGO>
+ <VEQUAL? MODE8 'TYPE - PHRASE13>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR7>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR10>
+ <TYPE? LVAR10 <TYPE-CODE FALSE> + PHRASE13>
+ <NTHUV LVAR10 7 = TAC11>
+ <TYPE? TAC11 <TYPE-CODE FALSE> - BOOL16>
+ <NTHUV LVAR10 9 = TAC11>
+ <TYPE? TAC11 <TYPE-CODE FALSE> + PHRASE13>
+BOOL16
+ <TYPE? WRITE?9 <TYPE-CODE FALSE> + PHRASE18>
+ <DEAD WRITE?9>
+ <NTHUV TAC11 8 = TEMP21 (TYPE VECTOR)>
+ <LENUV TEMP21 = TEMP21 (TYPE FIX)>
+ <GRTR? TEMP21 1 - PHRASE18>
+ <DEAD TEMP21>
+ <FRAME '\1aSTORE-AC>
+ <PUSH TAC11>
+ <PUSH 'T>
+ <PUSH LVAR10>
+ <DEAD LVAR10>
+ <CALL '\1aSTORE-AC 3>
+PHRASE18
+ <FRAME '\1aUSE-AC>
+ <PUSH TAC11>
+ <CALL '\1aUSE-AC 1>
+ <NTHUV TAC11 2 = TEMP21 (TYPE FIX)>
+ <DEAD TAC11>
+ <OR TEMP21 #WORD *120* = TEMP21>
+ <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
+ <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+PHRASE13
+ <VEQUAL? MODE8 'TYPE-WORD + BOOL26>
+ <VEQUAL? MODE8 'TYPEMODE + BOOL26>
+ <VEQUAL? MODE8 'TYPEWORD - PHRASE24>
+ <DEAD MODE8>
+BOOL26
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR7>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR10>
+ <TYPE? LVAR10 <TYPE-CODE FALSE> + PHRASE24>
+ <NTHUV LVAR10 9 = TAC11>
+ <TYPE? TAC11 <TYPE-CODE FALSE> + PHRASE24>
+ <TYPE? WRITE?9 <TYPE-CODE FALSE> + PHRASE29>
+ <DEAD WRITE?9>
+ <NTHUV TAC11 8 = TEMP21 (TYPE VECTOR)>
+ <LENUV TEMP21 = TEMP21 (TYPE FIX)>
+ <GRTR? TEMP21 1 - PHRASE29>
+ <DEAD TEMP21>
+ <FRAME '\1aSTORE-AC>
+ <PUSH TAC11>
+ <PUSH 'T>
+ <PUSH LVAR10>
+ <DEAD LVAR10>
+ <CALL '\1aSTORE-AC 3>
+PHRASE29
+ <FRAME '\1aUSE-AC>
+ <PUSH TAC11>
+ <CALL '\1aUSE-AC 1>
+ <NTHUV TAC11 2 = TEMP21 (TYPE FIX)>
+ <DEAD TAC11>
+ <OR TEMP21 #WORD *120* = TEMP21>
+ <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
+ <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+PHRASE24
+ <FRAME '\1aADDR-VAR-TYPE>
+ <PUSH VAR7>
+ <DEAD VAR7>
+ <CALL '\1aADDR-VAR-TYPE 1 = TEMP21>
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+ <END \1aVAR-TYPE-ADDRESS>
+#WORD *7226504030*
+<GFCN \1aVAR-COUNT-ADDRESS ("VALUE" <OR EFF-ADDR LADDR> VARTBL "OPTIONAL" ANY) VAR6 WRITE?7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP LVAR8 TAC9 TEMP18>
+ <INTGO>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR6>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR8>
+ <TYPE? LVAR8 <TYPE-CODE FALSE> + PHRASE11>
+ <NTHUV LVAR8 8 = TAC9>
+ <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE11>
+ <TYPE? WRITE?7 <TYPE-CODE FALSE> + PHRASE15>
+ <DEAD WRITE?7>
+ <NTHUV TAC9 8 = TEMP18 (TYPE VECTOR)>
+ <LENUV TEMP18 = TEMP18 (TYPE FIX)>
+ <GRTR? TEMP18 1 - PHRASE15>
+ <DEAD TEMP18>
+ <FRAME '\1aSTORE-AC>
+ <PUSH TAC9>
+ <PUSH 'T>
+ <PUSH LVAR8>
+ <DEAD LVAR8>
+ <CALL '\1aSTORE-AC 3>
+PHRASE15
+ <FRAME '\1aUSE-AC>
+ <PUSH TAC9>
+ <CALL '\1aUSE-AC 1>
+ <NTHUV TAC9 2 = TEMP18 (TYPE FIX)>
+ <DEAD TAC9>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+PHRASE11
+ <FRAME '\1aADDR-VAR-COUNT>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <CALL '\1aADDR-VAR-COUNT 1 = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+ <END \1aVAR-COUNT-ADDRESS>
+#WORD *3561006424*
+<GFCN \1aSTORE-ALL-ACS ("VALUE" ANY)>
+ <TEMP TEMP13 TEMP15:VECTOR>
+ <INTGO>
+ <SET TEMP13 %<> (TYPE FALSE)>
+ <GVAL 'ALL-ACS = TEMP15>
+ <LOOP>
+MAP5
+ <INTGO>
+ <EMPUV? TEMP15 + MAPAP8>
+ <NTHUV TEMP15 1 = TEMP13>
+ <FRAME '\1aSTORE-AC>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH %<>>
+ <CALL '\1aSTORE-AC 2 = TEMP13>
+ <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
+ <JUMP + MAP5>
+MAPAP8
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aSTORE-ALL-ACS>
+#WORD *11454050466*
+<GFCN \1aPUSH-TEMPS ("VALUE" ANY "OPTIONAL" ANY) MODEL6>
+ <OPT-DISPATCH 0 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP TEMP12 TEMP25:LIST>
+ <INTGO>
+ <TYPE? MODEL6 <TYPE-CODE UNBOUND> - TAG7>
+ <GVAL 'TOP-MODEL = MODEL6>
+TAG7
+ <NTHUV MODEL6 1 = TEMP12 (TYPE FIX)>
+ <VEQUAL? TEMP12 0 - TAG13 (TYPE FIX)>
+ <DEAD TEMP12>
+ <RETURN %<>>
+TAG13
+ <FRAME '\1aSTART-CODE-INSERT>
+ <CALL '\1aSTART-CODE-INSERT 0>
+ <FRAME '\1aPUSH-MODEL>
+ <PUSH MODEL6>
+ <CALL '\1aPUSH-MODEL 1>
+ <FRAME '\1aINSERT-PATCH>
+ <NTHUV MODEL6 1 = STACK (TYPE FIX)>
+ <FRAME '\1aEND-CODE-INSERT>
+ <CALL '\1aEND-CODE-INSERT 0 = STACK>
+ <CALL '\1aINSERT-PATCH 2>
+ <SET TEMP12 %<> (TYPE FALSE)>
+ <NTHUV MODEL6 3 = TEMP25 (TYPE LIST)>
+ <DEAD MODEL6>
+ <LOOP>
+MAP21
+ <INTGO>
+ <EMPL? TEMP25 + MAP20>
+ <FRAME '\1aPUSH-TEMPS>
+ <NTHL TEMP25 1 = STACK>
+ <CALL '\1aPUSH-TEMPS 1 = TEMP12>
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <JUMP + MAP21>
+MAP20
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aPUSH-TEMPS>
+#WORD *31273436507*
+<GFCN \1aPUSH-TEMP ("VALUE" ANY VARTBL) VAR4>
+ <TEMP IVAL5>
+ <INTGO>
+ <NTHUV VAR4 8 = IVAL5>
+ <TYPE? IVAL5 <TYPE-CODE FALSE> + PHRASE8>
+ <FRAME '\1aPUSH-CONSTANT>
+ <PUSH IVAL5>
+ <DEAD IVAL5>
+ <CALL '\1aPUSH-CONSTANT 1 = IVAL5>
+ <RETURN IVAL5>
+ <DEAD IVAL5>
+PHRASE8
+ <NTHUV VAR4 4 = IVAL5>
+ <DEAD VAR4>
+ <TYPE? IVAL5 <TYPE-CODE FALSE> + PHRASE11>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH IVAL5>
+ <DEAD IVAL5>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aCLEAR-PUSH>
+ <CALL '\1aCLEAR-PUSH 0 = IVAL5>
+ <RETURN IVAL5>
+ <DEAD IVAL5>
+PHRASE11
+ <FRAME '\1aCLEAR-PUSH>
+ <PUSH 'DOUBLE>
+ <CALL '\1aCLEAR-PUSH 1 = IVAL5>
+ <RETURN IVAL5>
+ <DEAD IVAL5>
+ <END \1aPUSH-TEMP>
+#WORD *17460344666*
+<GFCN \1aPUSH-CONSTANT ("VALUE" ANY ANY) IVAL4>
+ <TEMP RVAL5 TEMP21>
+ <INTGO>
+ <TYPE? IVAL4 <TYPE-CODE SPEC-FALSE> - PHRASE7>
+ <CHTYPE IVAL4 <TYPE-CODE FALSE> = IVAL4>
+PHRASE7
+ <FRAME '\1aFIX-CONSTANT?>
+ <PUSH IVAL4>
+ <CALL '\1aFIX-CONSTANT? 1 = RVAL5>
+ <TYPE? RVAL5 <TYPE-CODE FALSE> + PHRASE9>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <FRAME '\1aTYPE>
+ <PUSH IVAL4>
+ <DEAD IVAL4>
+ <CALL '\1aTYPE 1 = STACK>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <VEQUAL? RVAL5 0 - PHRASE15 (TYPE FIX)>
+ <FRAME '\1aCLEAR-PUSH>
+ <PUSH 'LONG>
+ <CALL '\1aCLEAR-PUSH 1 = RVAL5>
+ <RETURN RVAL5>
+ <DEAD RVAL5>
+PHRASE15
+ <FRAME '\1aEMIT-PUSH>
+ <GVAL 'AC-PC = TEMP21>
+ <NTHUV TEMP21 2 = TEMP21 (TYPE FIX)>
+ <OR TEMP21 #WORD *200* = TEMP21>
+ <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
+ <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
+ <CONS TEMP21 () = TEMP21>
+ <FRAME '\1aLREV>
+ <PUSH RVAL5>
+ <DEAD RVAL5>
+ <CALL '\1aLREV 1 = RVAL5>
+ <CHTYPE RVAL5 <TYPE-CODE EFF-ADDR> = RVAL5>
+ <CONS RVAL5 () = RVAL5>
+ <PUTREST TEMP21 RVAL5>
+ <DEAD RVAL5>
+ <CHTYPE TEMP21 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP21>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2 = RVAL5>
+ <RETURN RVAL5>
+ <DEAD RVAL5>
+PHRASE9
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aADDR-TYPE-MQUOTE>
+ <PUSH IVAL4>
+ <DEAD IVAL4>
+ <CALL '\1aADDR-TYPE-MQUOTE 1 = STACK>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-PUSH 2 = RVAL5>
+ <RETURN RVAL5>
+ <DEAD RVAL5>
+ <END \1aPUSH-CONSTANT>
+#WORD *33125545577*
+<GFCN \1aPUSH-VAR ("VALUE" ANY VARTBL) VAR4>
+ <TEMP (DONE9 %<>) LVAR6 TAC7 TEMP17 TEMP18>
+ <INTGO>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR4>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR6>
+ <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE11>
+ <NTHUV LVAR6 9 = TAC7>
+ <TYPE? TAC7 <TYPE-CODE FALSE> + PHRASE11>
+ <NTHUV LVAR6 6 = LVAR6>
+ <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE15>
+ <NTHUV TAC7 2 = TEMP17 (TYPE FIX)>
+ <ADD TEMP17 1 = TEMP17 (TYPE FIX)>
+ <NTHUV LVAR6 2 = TEMP18 (TYPE FIX)>
+ <VEQUAL? TEMP17 TEMP18 - PHRASE15 (TYPE FIX)>
+ <DEAD TEMP17 TEMP18>
+ <FRAME '\1aEMIT-PUSH>
+ <NTHUV TAC7 2 = TEMP17 (TYPE FIX)>
+ <OR TEMP17 #WORD *120* = TEMP17>
+ <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
+ <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP17>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-PUSH 2>
+ <SET DONE9 'T (TYPE ATOM)>
+ <FRAME '\1aUSE-AC>
+ <PUSH LVAR6>
+ <DEAD LVAR6>
+ <CALL '\1aUSE-AC 1>
+ <JUMP + PHRASE21>
+PHRASE15
+ <FRAME '\1aEMIT-PUSH>
+ <NTHUV TAC7 2 = TEMP17 (TYPE FIX)>
+ <OR TEMP17 #WORD *120* = TEMP17>
+ <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
+ <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP17>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+PHRASE21
+ <FRAME '\1aUSE-AC>
+ <PUSH TAC7>
+ <DEAD TAC7>
+ <CALL '\1aUSE-AC 1>
+ <JUMP + COND10>
+PHRASE11
+ <FRAME '\1aSAFE-TYPE-WORD?>
+ <PUSH VAR4>
+ <CALL '\1aSAFE-TYPE-WORD? 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE24>
+ <DEAD TEMP17>
+ <TYPE? LVAR6 <TYPE-CODE FALSE> + BOOL28>
+ <NTHUV LVAR6 2 = TEMP17>
+ <DEAD LVAR6>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE27>
+ <DEAD TEMP17>
+BOOL28
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aADDR-VAR-TYPE>
+ <PUSH VAR4>
+ <CALL '\1aADDR-VAR-TYPE 1 = STACK>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-PUSH 2>
+ <SET DONE9 'T (TYPE ATOM)>
+ <JUMP + COND10>
+PHRASE27
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aADDR-VAR-TYPE>
+ <PUSH VAR4>
+ <CALL '\1aADDR-VAR-TYPE 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <JUMP + COND10>
+PHRASE24
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAR4>
+ <CALL '\1aVARTBL-DECL 1 = TAC7>
+ <TYPE? TAC7 <TYPE-CODE FALSE> + PHRASE34>
+ <FRAME '\1aCOUNT-NEEDED?>
+ <PUSH TAC7>
+ <CALL '\1aCOUNT-NEEDED? 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE37>
+ <DEAD TEMP17>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TAC7>
+ <DEAD TAC7>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-CODE 2 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aVAR-COUNT-ADDRESS>
+ <PUSH VAR4>
+ <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <JUMP + COND10>
+PHRASE37
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH TAC7>
+ <DEAD TAC7>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <JUMP + COND10>
+PHRASE34
+ <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE45>
+ <NTHUV LVAR6 7 = TAC7>
+ <TYPE? TAC7 <TYPE-CODE FALSE> + PHRASE45>
+ <FRAME '\1aEMIT-PUSH>
+ <NTHUV TAC7 2 = TEMP18 (TYPE FIX)>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP18>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aUSE-AC>
+ <PUSH TAC7>
+ <DEAD TAC7>
+ <CALL '\1aUSE-AC 1>
+ <NTHUV LVAR6 8 = TAC7>
+ <DEAD LVAR6>
+ <TYPE? TAC7 <TYPE-CODE FALSE> + COND10>
+ <FRAME '\1aEMIT-PUSH>
+ <NTHUV TAC7 2 = TEMP18 (TYPE FIX)>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP18>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aUSE-AC>
+ <PUSH TAC7>
+ <DEAD TAC7>
+ <CALL '\1aUSE-AC 1>
+ <JUMP + COND10>
+PHRASE45
+ <FRAME '\1aERROR>
+ <PUSH "NO TYPE WORD">
+ <PUSH 'PUSH-VAR>
+ <CALL '\1aERROR 2>
+COND10
+ <VEQUAL? DONE9 0 + TAG56>
+ <DEAD DONE9>
+ <RETURN %<>>
+TAG56
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2 = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+ <END \1aPUSH-VAR>
+#WORD *13340740250*
+<GFCN \1aMOVE-COUNT-FROM-TYPEWORD ("VALUE" STRUCTURED ANY AC AC-CHOICES BOOLEAN) VAR4 TAC5 ACTYPE6 MODIFY?7>
+ <TEMP TEMP12 NAC8 TEMP16>
+ <INTGO>
+ <FRAME '\1aALL-STORED?>
+ <PUSH TAC5>
+ <CALL '\1aALL-STORED? 1 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
+ <DEAD TEMP12>
+ <FRAME '\1aMUNG-AC>
+ <PUSH TAC5>
+ <CALL '\1aMUNG-AC 1>
+ <SET NAC8 TAC5>
+ <FRAME '\1aEMIT>
+ <PUSH 202>
+ <GVAL 'AC-PC = TEMP12>
+ <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *200* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = TEMP12>
+ <CONS TEMP12 () = TEMP12>
+ <FRAME '\1aLREV>
+ <PUSH 65535>
+ <CALL '\1aLREV 1 = TEMP16>
+ <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = TEMP16>
+ <CONS TEMP16 () = TEMP16>
+ <PUTREST TEMP12 TEMP16>
+ <DEAD TEMP16>
+ <CHTYPE TEMP12 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP12>
+ <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *120* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 156>
+ <GVAL 'AC-PC = TEMP12>
+ <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *200* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <LSH 16 16 = TEMP16 (TYPE FIX)>
+ <OR TEMP12 TEMP16 = TEMP12>
+ <DEAD TEMP16>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *120* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
+ <DEAD TAC5>
+ <OR TEMP12 #WORD *120* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <CALL '\1aEMIT 4>
+ <JUMP + PHRASE18>
+PHRASE10
+ <FRAME '\1aPROTECT-USE>
+ <PUSH TAC5>
+ <CALL '\1aPROTECT-USE 1>
+ <FRAME '\1aGET-AC>
+ <PUSH ACTYPE6>
+ <DEAD ACTYPE6>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = NAC8>
+ <FRAME '\1aEMIT>
+ <PUSH 203>
+ <GVAL 'AC-PC = TEMP12>
+ <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *200* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = TEMP12>
+ <CONS TEMP12 () = TEMP12>
+ <FRAME '\1aLREV>
+ <PUSH 65535>
+ <CALL '\1aLREV 1 = TEMP16>
+ <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = TEMP16>
+ <CONS TEMP16 () = TEMP16>
+ <PUTREST TEMP12 TEMP16>
+ <DEAD TEMP16>
+ <CHTYPE TEMP12 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP12>
+ <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
+ <DEAD TAC5>
+ <OR TEMP12 #WORD *120* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <NTHUV NAC8 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *120* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT>
+ <PUSH 156>
+ <GVAL 'AC-PC = TEMP12>
+ <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *200* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <LSH 16 16 = TEMP16 (TYPE FIX)>
+ <OR TEMP12 TEMP16 = TEMP12>
+ <DEAD TEMP16>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <NTHUV NAC8 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *120* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <NTHUV NAC8 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *120* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <CALL '\1aEMIT 4>
+PHRASE18
+ <TYPE? MODIFY?7 <TYPE-CODE FALSE> - BOOL24>
+ <DEAD MODIFY?7>
+ <FRAME '\1aLINK-VAR-TO-AC>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH NAC8>
+ <PUSH 'COUNT>
+ <PUSH 'NO-CHANGE>
+ <CALL '\1aLINK-VAR-TO-AC 4>
+BOOL24
+ <RETURN NAC8>
+ <DEAD NAC8>
+ <END \1aMOVE-COUNT-FROM-TYPEWORD>
+#WORD *6237122435*
+<GFCN \1aMOVE-TYPE-FROM-TYPEWORD ("VALUE" AC ANY AC AC-CHOICES BOOLEAN) VAR4 TAC5 ACTYPE6 MODIFY?7>
+ <TEMP TEMP12 NAC8:AC V25:FIX TEMP27:FIX>
+ <INTGO>
+ <FRAME '\1aALL-STORED?>
+ <PUSH TAC5>
+ <CALL '\1aALL-STORED? 1 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
+ <DEAD TEMP12>
+ <FRAME '\1aMUNG-AC>
+ <PUSH TAC5>
+ <CALL '\1aMUNG-AC 1>
+ <FRAME '\1aEMIT>
+ <PUSH 60>
+ <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *120* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *120* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <CALL '\1aEMIT 3>
+ <SET NAC8 TAC5>
+ <DEAD TAC5>
+ <JUMP + PHRASE15>
+PHRASE10
+ <FRAME '\1aPROTECT-USE>
+ <PUSH TAC5>
+ <CALL '\1aPROTECT-USE 1>
+ <FRAME '\1aGET-AC>
+ <PUSH ACTYPE6>
+ <DEAD ACTYPE6>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = NAC8>
+ <FRAME '\1aEMIT>
+ <PUSH 60>
+ <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
+ <DEAD TAC5>
+ <OR TEMP12 #WORD *120* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <NTHUV NAC8 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *120* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <CALL '\1aEMIT 3>
+PHRASE15
+ <GVAL 'GC-MODE = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE20>
+ <DEAD TEMP12>
+ <FRAME '\1aEMIT>
+ <PUSH 170>
+ <GVAL 'AC-PC = TEMP12>
+ <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *200* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <SET V25 32800 (TYPE FIX)>
+ <AND V25 #WORD *377* = TEMP27>
+ <LSH TEMP27 16 = TEMP27 (TYPE FIX)>
+ <AND V25 #WORD *177400* = V25>
+ <OR TEMP27 V25 = V25>
+ <DEAD TEMP27>
+ <AND V25 #WORD *77777400* = V25>
+ <OR TEMP12 V25 = TEMP12>
+ <DEAD V25>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <NTHUV NAC8 2 = V25 (TYPE FIX)>
+ <OR V25 #WORD *120* = V25>
+ <LSH V25 24 = V25 (TYPE FIX)>
+ <CHTYPE V25 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD V25>
+ <CALL '\1aEMIT 3>
+PHRASE20
+ <TYPE? MODIFY?7 <TYPE-CODE FALSE> - BOOL29>
+ <DEAD MODIFY?7>
+ <FRAME '\1aLINK-VAR-TO-AC>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH NAC8>
+ <PUSH 'TYPE>
+ <PUSH 'NO-CHANGE>
+ <CALL '\1aLINK-VAR-TO-AC 4>
+BOOL29
+ <FRAME '\1aCLEAR-STATUS>
+ <CALL '\1aCLEAR-STATUS 0>
+ <RETURN NAC8>
+ <DEAD NAC8>
+ <END \1aMOVE-TYPE-FROM-TYPEWORD>
+#WORD *10125772777*
+<GFCN \1aVARTBL-ASSIGNED? ("VALUE" ANY VARTBL) VAR4>
+ <TEMP TEMP6>
+ <INTGO>
+ <NTHUV VAR4 2 = TEMP6>
+ <TYPE? TEMP6 <TYPE-CODE FALSE> - BOOL5>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aFIND-CACHE-VAR 1 = TEMP6>
+BOOL5
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aVARTBL-ASSIGNED?>
+#WORD *23525400142*
+<GFCN \1aPUSH-MODEL ("VALUE" ANY STK-MODEL) MODEL4>
+ <TEMP TEMP14 TEMP16:LIST VAR17:VARTBL>
+ <INTGO>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <NTHUV MODEL4 2 = TEMP16 (TYPE LIST)>
+ <DEAD MODEL4>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPL? TEMP16 + MAPAP9>
+ <NTHL TEMP16 1 = VAR17>
+ <NTHUV VAR17 6 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE19>
+ <FRAME '\1aPUSH-TEMP>
+ <PUSH VAR17>
+ <DEAD VAR17>
+ <CALL '\1aPUSH-TEMP 1 = TEMP14>
+PHRASE19
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <JUMP + MAP6>
+MAPAP9
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aPUSH-MODEL>
+#WORD *7162751154*
+<GFCN \1aADDR-VAR-OFFSET ("VALUE" <OR FALSE FIX> VARTBL) VAR4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aGEN-LOC>
+ <PUSH VAR4>
+ <PUSH 0>
+ <CALL '\1aGEN-LOC 2>
+ <NTHUV VAR4 2 = TEMP6>
+ <DEAD VAR4>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aADDR-VAR-OFFSET>
\ No newline at end of file
projects / pdp10-muddle.git / blobdiff