--- /dev/null
+
+#WORD *3442577024*
+ <GFCN \1aCREATE-AC ("VALUE" AC ATOM FIX) NAME4 NUM5>
+ <TEMP LVS7>
+ <INTGO>
+ <UUBLOCK <TYPE-CODE VECTOR> 5 = LVS7 (TYPE VECTOR)>
+ <RESTUV LVS7 5 = LVS7 (TYPE VECTOR)>
+ <PUSH NAME4>
+ <DEAD NAME4>
+ <PUSH NUM5>
+ <PUSH 0>
+ <PUSH %<>>
+ <PUSH NUM5>
+ <DEAD NUM5>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH LVS7>
+ <DEAD LVS7>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 9 = LVS7>
+ <CHTYPE LVS7 <TYPE-CODE AC> = LVS7>
+ <RETURN LVS7>
+ <DEAD LVS7>
+ <END \1aCREATE-AC>
+
+#WORD *30651504205*
+ <GFCN \1aINITIALIZE-ACS ("VALUE" AC-STATE)>
+ <TEMP (NUM4:FIX -1) TEMP11:VECTOR TEMP12:VECTOR TEMP13:VECTOR ATM118:ATOM ATM219 NUM-SYM20 TEMP23>
+ <INTGO>
+ <SET TEMP11 [AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6 AC-7 AC-8 AC-9 AC-10 AC-M AC-F AC-TP AC-P AC-PC] (TYPE VECTOR)>
+ <SET TEMP12 [AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6 AC-7 AC-8 AC-9 AC-10 M F TP P PC] (TYPE VECTOR)>
+ <SET TEMP13 [0 0 0 0 0 0 0 0 0 0 0 NAC-M NAC-F NAC-TP NAC-P NAC-PC] (TYPE VECTOR)>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPUV? TEMP11 + MAPAP9>
+ <EMPUV? TEMP12 + MAPAP9>
+ <EMPUV? TEMP13 + MAPAP9>
+ <NTHUV TEMP11 1 = ATM118>
+ <NTHUV TEMP12 1 = ATM219>
+ <NTHUV TEMP13 1 = NUM-SYM20>
+ <FRAME '\1aCREATE-AC>
+ <PUSH ATM219>
+ <DEAD ATM219>
+ <ADD NUM4 1 = NUM4 (TYPE FIX)>
+ <PUSH NUM4>
+ <CALL '\1aCREATE-AC 2 = ATM219>
+ <NTHR ATM118 1 = TEMP23 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG24)>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + TAG24>
+ <PUTR TEMP23 1 ATM219 (RECORD-TYPE GBIND)>
+ <DEAD TEMP23 ATM219>
+ <JUMP + TAG25>
+TAG24
+ <FRAME '\1aSETG>
+ <PUSH ATM118>
+ <DEAD ATM118>
+ <PUSH ATM219>
+ <DEAD ATM219>
+ <CALL '\1aSETG 2 = ATM219>
+TAG25
+ <TYPE? NUM-SYM20 <TYPE-CODE ATOM> - TAG29>
+ <NTHR NUM-SYM20 1 = ATM219 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG28)>
+ <TYPE? ATM219 <TYPE-CODE FALSE> + TAG28>
+ <PUTR ATM219 1 NUM4 (RECORD-TYPE GBIND)>
+ <DEAD ATM219>
+ <JUMP + TAG29>
+TAG28
+ <FRAME '\1aSETG>
+ <PUSH NUM-SYM20>
+ <DEAD NUM-SYM20>
+ <PUSH NUM4>
+ <DEAD NUM4>
+ <CALL '\1aSETG 2 = NUM4>
+TAG29
+ <RESTUV TEMP11 1 = TEMP11 (TYPE VECTOR)>
+ <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
+ <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
+ <JUMP + MAP6>
+MAPAP9
+ <GVAL 'AC-0 = STACK>
+ <GVAL 'AC-1 = STACK>
+ <GVAL 'AC-2 = STACK>
+ <GVAL 'AC-3 = STACK>
+ <GVAL 'AC-4 = STACK>
+ <GVAL 'AC-5 = STACK>
+ <GVAL 'AC-6 = STACK>
+ <GVAL 'AC-7 = STACK>
+ <GVAL 'AC-8 = STACK>
+ <GVAL 'AC-9 = STACK>
+ <GVAL 'AC-10 = STACK>
+ <UBLOCK <TYPE-CODE VECTOR> 11 = TEMP13>
+ <SETG 'ALL-ACS TEMP13>
+ <DEAD TEMP13>
+ <GVAL 'AC-1 = STACK>
+ <GVAL 'AC-3 = STACK>
+ <GVAL 'AC-5 = STACK>
+ <GVAL 'AC-7 = STACK>
+ <GVAL 'AC-9 = STACK>
+ <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP13>
+ <SETG 'VAL-ACS TEMP13>
+ <DEAD TEMP13>
+ <GVAL 'AC-0 = STACK>
+ <GVAL 'AC-2 = STACK>
+ <GVAL 'AC-4 = STACK>
+ <GVAL 'AC-6 = STACK>
+ <GVAL 'AC-8 = STACK>
+ <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP13>
+ <SETG 'TYPE-ACS TEMP13>
+ <DEAD TEMP13>
+ <SETG 'AC-TIME 0>
+ <FRAME '\1aINIT-VARIABLE-CACHE>
+ <CALL '\1aINIT-VARIABLE-CACHE 0 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aINITIALIZE-ACS>
+
+#WORD *4710270376*
+ <GFCN \1aRESET-AC-STACK-MODEL ("VALUE" <OR FALSE VARTBL>)>
+ <TEMP CACHE4:VECTOR TEMP16 AC17:AC VARS18 TEMP19>
+ <INTGO>
+ <GVAL 'VARIABLE-CACHE = CACHE4>
+ <GVAL 'ALL-ACS = TEMP16>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPUV? TEMP16 + MAPAP9>
+ <NTHUV TEMP16 1 = AC17>
+ <NTHUV AC17 8 = VARS18 (TYPE VECTOR)>
+ <LENUV VARS18 = TEMP19 (TYPE FIX)>
+ <RESTUV VARS18 TEMP19 = TEMP19 (TYPE VECTOR)>
+ <DEAD VARS18>
+ <PUTUV AC17 8 TEMP19>
+ <DEAD AC17 TEMP19>
+ <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
+ <JUMP + MAP6>
+MAPAP9
+ <LENUV CACHE4 = TEMP16 (TYPE FIX)>
+ <RESTUV CACHE4 TEMP16 = TEMP16 (TYPE VECTOR)>
+ <DEAD CACHE4>
+ <SETG 'VARIABLE-CACHE TEMP16>
+ <DEAD TEMP16>
+ <FRAME '\1aINIT-STACK-MODEL>
+ <CALL '\1aINIT-STACK-MODEL 0>
+ <FRAME '\1aINIT-VAR-LIST>
+ <CALL '\1aINIT-VAR-LIST 0>
+ <SETG 'STATUS-AC %<>>
+ <SETG 'STATUS-VAR %<>>
+ <RETURN %<>>
+ <END \1aRESET-AC-STACK-MODEL>
+
+#WORD *16523617443*
+ <GFCN \1aCLEAR-DEATH ("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>
+ <PUTUV TEMP13 5 %<>>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <JUMP + MAP5>
+MAPAP8
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aCLEAR-DEATH>
+
+#WORD *23453776443*
+ <GFCN \1aINDICATE-ALL-DEAD ("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>
+ <PUTUV TEMP13 5 'T>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <JUMP + MAP5>
+MAPAP8
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aINDICATE-ALL-DEAD>
+
+#WORD *11435742452*
+ <GFCN \1aSAFE-DEAD-VAR ("VALUE" ATOM "TUPLE" <TUPLE [REST <OR VARTBL ATOM>]>)>
+ <MAKTUP VARS4 VAR16 LV17 TEMP29 = VARS4>
+ <INTGO>
+ <CHTYPE VARS4 <TYPE-CODE VECTOR> = VARS4>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPUV? VARS4 + MAPAP9>
+ <NTHUV VARS4 1 = VAR16>
+ <TYPE? VAR16 <TYPE-CODE VARTBL> - PHRASE23>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR16>
+ <CALL '\1aFIND-CACHE-VAR 1 = LV17>
+ <TYPE? LV17 <TYPE-CODE FALSE> + PHRASE32>
+ <NTHUV VAR16 4 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + BOOL28>
+ <DEAD TEMP29>
+ <NTHUV LV17 5 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + BOOL28>
+ <DEAD TEMP29>
+ <FRAME '\1aCOUNT-NEEDED?>
+ <NTHUV LV17 5 = STACK (TYPE ATOM)>
+ <CALL '\1aCOUNT-NEEDED? 1 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE32>
+ <DEAD TEMP29>
+BOOL28
+ <NTHUV LV17 3 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + BOOL34>
+ <DEAD TEMP29>
+ <NTHUV LV17 2 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + BOOL37>
+ <DEAD TEMP29>
+BOOL34
+ <NTHUV LV17 4 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + BOOL35>
+ <DEAD TEMP29>
+ <NTHUV LV17 2 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + BOOL37>
+ <DEAD TEMP29>
+BOOL35
+ <NTHUV LV17 2 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE32>
+ <DEAD TEMP29>
+ <NTHUV LV17 3 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + BOOL37>
+ <DEAD TEMP29>
+ <NTHUV LV17 4 = TEMP29>
+ <DEAD LV17>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> - PHRASE32>
+ <DEAD TEMP29>
+BOOL37
+ <FRAME '\1aEMIT>
+ <PUSH 212>
+ <FRAME '\1aADDR-VAR-TYPE>
+ <PUSH VAR16>
+ <CALL '\1aADDR-VAR-TYPE 1 = STACK>
+ <CALL '\1aEMIT 2>
+PHRASE32
+ <FRAME '\1aDEAD-VAR>
+ <PUSH VAR16>
+ <DEAD VAR16>
+ <CALL '\1aDEAD-VAR 1>
+PHRASE23
+ <RESTUV VARS4 1 = VARS4 (TYPE VECTOR)>
+ <JUMP + MAP6>
+MAPAP9
+ <RETURN 'NORMAL>
+ <END \1aSAFE-DEAD-VAR>
+
+#WORD *24302232203*
+ <GFCN \1aDEAD-VAR ("VALUE" ATOM "TUPLE" <TUPLE [REST <OR VARTBL ATOM>]>)>
+ <MAKTUP VARS4 VAR16 LV17 AC37:AC = VARS4>
+ <INTGO>
+ <CHTYPE VARS4 <TYPE-CODE VECTOR> = VARS4>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPUV? VARS4 + MAPAP9>
+ <NTHUV VARS4 1 = VAR16>
+ <TYPE? VAR16 <TYPE-CODE VARTBL> - MAPAP30>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR16>
+ <CALL '\1aFIND-CACHE-VAR 1 = LV17>
+ <TYPE? LV17 <TYPE-CODE FALSE> + BOOL22>
+ <NTHUV LV17 4 = LV17>
+ <TYPE? LV17 <TYPE-CODE FALSE> - PHRASE21>
+ <DEAD LV17>
+BOOL22
+ <FRAME '\1aINDICATE-VAR-TEMP-DECL>
+ <PUSH VAR16>
+ <PUSH %<>>
+ <CALL '\1aINDICATE-VAR-TEMP-DECL 2>
+PHRASE21
+ <GVAL 'ALL-ACS = LV17>
+ <LOOP>
+MAP27
+ <INTGO>
+ <EMPUV? LV17 + MAPAP30>
+ <NTHUV LV17 1 = AC37>
+ <FRAME '\1aBREAK-LINK>
+ <PUSH AC37>
+ <DEAD AC37>
+ <PUSH VAR16>
+ <CALL '\1aBREAK-LINK 2>
+ <RESTUV LV17 1 = LV17 (TYPE VECTOR)>
+ <JUMP + MAP27>
+MAPAP30
+ <RESTUV VARS4 1 = VARS4 (TYPE VECTOR)>
+ <JUMP + MAP6>
+MAPAP9
+ <RETURN 'NORMAL>
+ <END \1aDEAD-VAR>
+
+#WORD *3721622763*
+ <GFCN \1aUSE-ALL-ACS ("VALUE" ANY)>
+ <TEMP TEMP7 TEMP10:VECTOR>
+ <INTGO>
+ <SET TEMP7 %<> (TYPE FALSE)>
+ <GVAL 'ALL-ACS = TEMP10>
+ <LOOP>
+MAP5
+ <INTGO>
+ <EMPUV? TEMP10 + MAP4>
+ <FRAME '\1aUSE-AC>
+ <NTHUV TEMP10 1 = STACK>
+ <CALL '\1aUSE-AC 1 = TEMP7>
+ <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
+ <JUMP + MAP5>
+MAP4
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aUSE-ALL-ACS>
+
+<GDECL (EMPTY-VAR) VARTBL (EMPTY-LINKVAR) LINKVAR>
+
+#WORD *174743027*
+ <GFCN \1aCREATE-LINKVAR ("VALUE" LINKVAR VARTBL) VAR4>
+ <TEMP TEMP6>
+ <INTGO>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH ()>
+ <UBLOCK <TYPE-CODE VECTOR> 10 = TEMP6 (TYPE VECTOR)>
+ <CHTYPE TEMP6 <TYPE-CODE LINKVAR> = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aCREATE-LINKVAR>
+
+#WORD *20511546341*
+ <GFCN \1aCOPY-LINKVAR ("VALUE" LINKVAR LINKVAR) LV4>
+ <TEMP TEMP6>
+ <INTGO>
+ <NTHUV LV4 1 = STACK (TYPE VARTBL)>
+ <NTHUV LV4 2 = STACK>
+ <NTHUV LV4 3 = STACK>
+ <NTHUV LV4 4 = STACK>
+ <NTHUV LV4 5 = STACK>
+ <NTHUV LV4 6 = STACK>
+ <NTHUV LV4 7 = STACK>
+ <NTHUV LV4 8 = STACK>
+ <NTHUV LV4 9 = STACK>
+ <NTHUV LV4 10 = STACK (TYPE LIST)>
+ <DEAD LV4>
+ <UBLOCK <TYPE-CODE VECTOR> 10 = TEMP6 (TYPE VECTOR)>
+ <CHTYPE TEMP6 <TYPE-CODE LINKVAR> = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aCOPY-LINKVAR>
+
+"THIS OPERATION SAYS THAT THE TYPE-WORD, VALUE-WORD, COUNT, OR TYPE
+ OF A VARIABLE IS IN AN AC"
+
+#WORD *32224011717*
+ <GFCN \1aLINK-VAR-TO-AC ("VALUE" <OR ATOM FALSE LINKVAR> ANY AC ANY "OPTIONAL" ANY ANY) VAR7 AC8 KIND9 STORED?10 FLUSH-DECL11>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH 'T>
+OPT6
+ <TEMP (TIN?14 %<>) (CIN?15 %<>) (VIN?16 %<>) LV13:LINKVAR TEMP21>
+ <INTGO>
+ <FRAME '\1aCACHE-VAR>
+ <PUSH VAR7>
+ <CALL '\1aCACHE-VAR 1 = LV13>
+ <NTHUV LV13 7 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> - BOOL20>
+ <DEAD TEMP21>
+ <NTHUV LV13 9 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE19>
+ <DEAD TEMP21>
+BOOL20
+ <SET TIN?14 'T (TYPE ATOM)>
+PHRASE19
+ <FRAME '\1aOR?>
+ <NTHUV LV13 8 = STACK>
+ <NTHUV LV13 9 = STACK>
+ <CALL '\1aOR? 2 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE23>
+ <DEAD TEMP21>
+ <SET CIN?15 'T (TYPE ATOM)>
+PHRASE23
+ <NTHUV LV13 6 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE26>
+ <DEAD TEMP21>
+ <SET VIN?16 'T (TYPE ATOM)>
+PHRASE26
+ <FRAME '\1aPLACE-LV-IN-AC>
+ <PUSH AC8>
+ <PUSH LV13>
+ <CALL '\1aPLACE-LV-IN-AC 2>
+ <EQUAL? KIND9 'TYPE-VALUE-PAIR - PHRASE29>
+ <FRAME '\1aPLACE-LV-IN-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH LV13>
+ <CALL '\1aPLACE-LV-IN-AC 2>
+PHRASE29
+ <TYPE? FLUSH-DECL11 <TYPE-CODE FALSE> + BOOL32>
+ <DEAD FLUSH-DECL11>
+ <FRAME '\1aINDICATE-VAR-TEMP-DECL>
+ <PUSH VAR7>
+ <DEAD VAR7>
+ <PUSH %<>>
+ <CALL '\1aINDICATE-VAR-TEMP-DECL 2>
+BOOL32
+ <EQUAL? KIND9 'TYPE-VALUE-PAIR - PHRASE35>
+ <NTHUV LV13 9 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL36>
+ <FRAME '\1aREMOVE-LV-FROM-AC>
+ <PUSH TEMP21>
+ <DEAD TEMP21>
+ <PUSH LV13>
+ <CALL '\1aREMOVE-LV-FROM-AC 2>
+BOOL36
+ <PUTUV LV13 9 AC8>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <DEAD AC8>
+ <CALL '\1aNEXT-AC 1 = AC8>
+ <NTHUV LV13 6 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL39>
+ <FRAME '\1aREMOVE-LV-FROM-AC>
+ <PUSH TEMP21>
+ <DEAD TEMP21>
+ <PUSH LV13>
+ <CALL '\1aREMOVE-LV-FROM-AC 2>
+BOOL39
+ <PUTUV LV13 6 AC8>
+ <DEAD AC8>
+ <JUMP + COND34>
+PHRASE35
+ <EQUAL? KIND9 'VALUE - PHRASE41>
+ <NTHUV LV13 6 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL42>
+ <FRAME '\1aREMOVE-LV-FROM-AC>
+ <PUSH TEMP21>
+ <DEAD TEMP21>
+ <PUSH LV13>
+ <CALL '\1aREMOVE-LV-FROM-AC 2>
+BOOL42
+ <PUTUV LV13 6 AC8>
+ <DEAD AC8>
+ <JUMP + COND34>
+PHRASE41
+ <EQUAL? KIND9 'TYPE - PHRASE44>
+ <NTHUV LV13 7 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL45>
+ <FRAME '\1aREMOVE-LV-FROM-AC>
+ <PUSH TEMP21>
+ <DEAD TEMP21>
+ <PUSH LV13>
+ <CALL '\1aREMOVE-LV-FROM-AC 2>
+BOOL45
+ <PUTUV LV13 7 AC8>
+ <DEAD AC8>
+ <JUMP + COND34>
+PHRASE44
+ <EQUAL? KIND9 'TYPE-WORD - PHRASE47>
+ <NTHUV LV13 9 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL48>
+ <FRAME '\1aREMOVE-LV-FROM-AC>
+ <PUSH TEMP21>
+ <DEAD TEMP21>
+ <PUSH LV13>
+ <CALL '\1aREMOVE-LV-FROM-AC 2>
+BOOL48
+ <PUTUV LV13 9 AC8>
+ <DEAD AC8>
+ <JUMP + COND34>
+PHRASE47
+ <EQUAL? KIND9 'COUNT - PHRASE50>
+ <NTHUV LV13 8 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL51>
+ <FRAME '\1aREMOVE-LV-FROM-AC>
+ <PUSH TEMP21>
+ <DEAD TEMP21>
+ <PUSH LV13>
+ <CALL '\1aREMOVE-LV-FROM-AC 2>
+BOOL51
+ <PUTUV LV13 8 AC8>
+ <DEAD AC8>
+ <JUMP + COND34>
+PHRASE50
+ <FRAME '\1aERROR>
+ <PUSH 'BAD-MODE>
+ <PUSH KIND9>
+ <DEAD KIND9>
+ <PUSH 'LINK-VAR-TO-AC>
+ <CALL '\1aERROR 3>
+COND34
+ <EQUAL? STORED?10 'NO-CHANGE - TAG56>
+ <RETURN %<>>
+TAG56
+ <VEQUAL? VIN?16 0 - BOOL57>
+ <DEAD VIN?16>
+ <PUTUV LV13 2 STORED?10>
+BOOL57
+ <VEQUAL? TIN?14 0 - BOOL58>
+ <DEAD TIN?14>
+ <PUTUV LV13 4 STORED?10>
+BOOL58
+ <SET TEMP21 CIN?15>
+ <DEAD CIN?15>
+ <VEQUAL? TEMP21 0 - BOOL59>
+ <PUTUV LV13 3 STORED?10>
+ <DEAD STORED?10>
+ <SET TEMP21 LV13>
+ <DEAD LV13>
+BOOL59
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+ <END \1aLINK-VAR-TO-AC>
+
+#WORD *17370210317*
+ <GFCN \1aPLACE-LV-IN-AC ("VALUE" <OR FALSE AC> AC LINKVAR) AC4 LV5>
+ <TEMP VARS6 TEMP9 TEMP14>
+ <INTGO>
+ <NTHUV AC4 8 = VARS6 (TYPE VECTOR)>
+ <SET TEMP9 VARS6>
+ <EMPUV? TEMP9 + TAG11>
+ <LOOP (LV5 VALUE) (TEMP9 LENGTH VALUE)>
+TAG12
+ <NTHUV TEMP9 1 = TEMP14>
+ <VEQUAL? TEMP14 LV5 + TAG10>
+ <DEAD TEMP14>
+ <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
+ <EMPUV? TEMP9 - TAG12>
+ <JUMP + TAG11>
+TAG10
+ <RETURN %<>>
+TAG11
+ <TOPU VARS6 = TEMP14>
+ <VEQUAL? TEMP14 VARS6 - PHRASE16>
+ <DEAD TEMP14>
+ <PUSH LV5>
+ <DEAD LV5>
+ <SET TEMP9 1 (TYPE FIX)>
+ <SET TEMP14 VARS6>
+ <DEAD VARS6>
+ <LOOP (TEMP14 VALUE LENGTH) (TEMP9 VALUE)>
+TAG19
+ <INTGO>
+ <EMPUV? TEMP14 + TAG17>
+ <NTHUV TEMP14 1 = STACK>
+ <RESTUV TEMP14 1 = TEMP14 (TYPE VECTOR)>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG19>
+TAG17
+ <UBLOCK <TYPE-CODE VECTOR> TEMP9 = VARS6>
+ <DEAD TEMP9>
+ <JUMP + PHRASE21>
+PHRASE16
+ <BACKU VARS6 1 = VARS6>
+ <PUTUV VARS6 1 LV5>
+ <DEAD LV5>
+PHRASE21
+ <LENUV VARS6 = TEMP14 (TYPE FIX)>
+ <GRTR? TEMP14 1 - BOOL22 (TYPE FIX)>
+ <DEAD TEMP14>
+ <FRAME '\1aUSE-AC>
+ <PUSH AC4>
+ <CALL '\1aUSE-AC 1>
+BOOL22
+ <PUTUV AC4 8 VARS6>
+ <DEAD VARS6>
+ <RETURN AC4>
+ <DEAD AC4>
+ <END \1aPLACE-LV-IN-AC>
+
+#WORD *10007674551*
+ <GFCN \1aREMOVE-LV-FROM-AC ("VALUE" AC AC LINKVAR) AC4 LV5>
+ <TEMP VARS6:VECTOR>
+ <INTGO>
+ <NTHUV AC4 8 = VARS6 (TYPE VECTOR)>
+ <FRAME '\1aREMOVE-LINKVAR>
+ <PUSH LV5>
+ <DEAD LV5>
+ <PUSH VARS6>
+ <DEAD VARS6>
+ <CALL '\1aREMOVE-LINKVAR 2 = VARS6>
+ <PUTUV AC4 8 VARS6>
+ <DEAD VARS6>
+ <RETURN AC4>
+ <DEAD AC4>
+ <END \1aREMOVE-LV-FROM-AC>
+
+#WORD *14405234700*
+ <GFCN \1aINDICATE-CACHED-VARIABLE-DECL ("VALUE" ANY VARTBL <OR FALSE ATOM>) VAR4 DECL5>
+ <TEMP LV6 TEMP10>
+ <INTGO>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR4>
+ <CALL '\1aFIND-CACHE-VAR 1 = LV6>
+ <SET TEMP10 LV6>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
+ <PUTUV LV6 5 DECL5>
+ <DEAD LV6>
+ <FRAME '\1aINDICATE-VAR-TEMP-DECL>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH DECL5>
+ <DEAD DECL5>
+ <CALL '\1aINDICATE-VAR-TEMP-DECL 2 = TEMP10>
+PHRASE9
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aINDICATE-CACHED-VARIABLE-DECL>
+
+#WORD *31222514405*
+ <GFCN \1aINDICATE-CACHED-VARIABLE-STORED ("VALUE" <OR FALSE LINKVAR> VARTBL <OR FALSE ATOM> ATOM) VAR4 STORED?5 TYP6>
+ <TEMP LV7 TEMP10>
+ <INTGO>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aFIND-CACHE-VAR 1 = LV7>
+ <SET TEMP10 LV7>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + BOOL9>
+ <VEQUAL? TYP6 'TYPE - PHRASE12>
+ <PUTUV LV7 4 STORED?5>
+ <DEAD STORED?5>
+ <JUMP + PHRASE14>
+PHRASE12
+ <VEQUAL? TYP6 'VALUE - PHRASE13>
+ <PUTUV LV7 2 STORED?5>
+ <DEAD STORED?5>
+ <JUMP + PHRASE14>
+PHRASE13
+ <VEQUAL? TYP6 'COUNT + TAG15>
+ <RETURN %<>>
+TAG15
+ <PUTUV LV7 3 STORED?5>
+ <DEAD STORED?5>
+PHRASE14
+ <PUTUV LV7 5 TYP6>
+ <DEAD TYP6>
+ <SET TEMP10 LV7>
+ <DEAD LV7>
+BOOL9
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aINDICATE-CACHED-VARIABLE-STORED>
+
+#WORD *16111701075*
+ <GFCN \1aINIT-VARIABLE-CACHE ("VALUE" AC-STATE)>
+ <TEMP TEMP7 RES4:VECTOR TEMP9>
+ <INTGO>
+ <FRAME '\1aINIT-VAR-LIST>
+ <CALL '\1aINIT-VAR-LIST 0>
+ <FRAME '\1aCREATE-VAR>
+ <PUSH '\ >
+ <PUSH 'T>
+ <CALL '\1aCREATE-VAR 2 = TEMP7>
+ <SETG 'EMPTY-VAR TEMP7>
+ <DEAD TEMP7>
+ <FRAME '\1aCREATE-LINKVAR>
+ <GVAL 'EMPTY-VAR = STACK>
+ <CALL '\1aCREATE-LINKVAR 1 = TEMP7>
+ <SETG 'EMPTY-LINKVAR TEMP7>
+ <DEAD TEMP7>
+ <GVAL 'EMPTY-LINKVAR = TEMP7>
+ <UUBLOCK <TYPE-CODE VECTOR> 30 = RES4>
+ <SET TEMP9 RES4>
+ <LOOP (TEMP9 VALUE LENGTH) (TEMP7 TYPE VALUE LENGTH)>
+ISTR10
+ <EMPUV? TEMP9 + ISTRE11>
+ <PUTUV TEMP9 1 TEMP7>
+ <RESTUV TEMP9 1 = TEMP9>
+ <JUMP + ISTR10>
+ISTRE11
+ <LENUV RES4 = TEMP7 (TYPE FIX)>
+ <RESTUV RES4 TEMP7 = TEMP7 (TYPE VECTOR)>
+ <DEAD RES4>
+ <SETG 'VARIABLE-CACHE TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aINIT-VARIABLE-CACHE>
+
+#WORD *20754454723*
+ <GFCN \1aFIND-CACHE-VAR ("VALUE" <OR FALSE LINKVAR> VARTBL "OPTIONAL" AC-STATE) VAR6 CACHE7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP TEMP19 TEMP16:VECTOR TEMP24:VARTBL>
+ <INTGO>
+ <TYPE? CACHE7 <TYPE-CODE UNBOUND> - TAG8>
+ <GVAL 'VARIABLE-CACHE = CACHE7>
+TAG8
+ <SET TEMP19 %<> (TYPE FALSE)>
+ <SET TEMP16 CACHE7 (TYPE VECTOR)>
+ <DEAD CACHE7>
+ <LOOP>
+MAP11
+ <INTGO>
+ <EMPUV? TEMP16 + MAPAP14>
+ <NTHUV TEMP16 1 = TEMP19>
+ <NTHUV TEMP19 1 = TEMP24 (TYPE VARTBL)>
+ <VEQUAL? TEMP24 VAR6 + TAG23>
+ <DEAD TEMP24>
+ <SET TEMP19 %<> (TYPE FALSE)>
+ <JUMP + BOOL22>
+TAG23
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+BOOL22
+ <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
+ <JUMP + MAP11>
+MAPAP14
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+ <END \1aFIND-CACHE-VAR>
+
+#WORD *32064602743*
+ <GFCN \1aVAR-VALUE-IN-AC? ("VALUE" <OR AC FALSE> VARTBL) VAR4>
+ <TEMP LVAR5 TEMP8>
+ <INTGO>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR5>
+ <SET TEMP8 LVAR5>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
+ <NTHUV LVAR5 6 = TEMP8>
+ <DEAD LVAR5>
+BOOL7
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aVAR-VALUE-IN-AC?>
+
+#WORD *36042045460*
+ <GFCN \1aVAR-TYPE-IN-AC? ("VALUE" <OR AC FALSE> VARTBL) VAR4>
+ <TEMP LVAR5 TEMP8>
+ <INTGO>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR5>
+ <SET TEMP8 LVAR5>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL9>
+ <NTHUV LVAR5 7 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL9>
+ <NTHUV LVAR5 9 = TEMP8>
+ <DEAD LVAR5>
+BOOL9
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aVAR-TYPE-IN-AC?>
+
+#WORD *23264704741*
+ <GFCN \1aVAR-COUNT-IN-AC? ("VALUE" <OR AC FALSE> VARTBL) VAR4>
+ <TEMP LVAR5 TEMP8>
+ <INTGO>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR5>
+ <SET TEMP8 LVAR5>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
+ <NTHUV LVAR5 8 = TEMP8>
+ <DEAD LVAR5>
+BOOL7
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aVAR-COUNT-IN-AC?>
+
+#WORD *21266410040*
+ <GFCN \1aVAR-TYPE-WORD-IN-AC? ("VALUE" <OR AC FALSE> VARTBL) VAR4>
+ <TEMP LVAR5 TEMP8>
+ <INTGO>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR5>
+ <SET TEMP8 LVAR5>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
+ <NTHUV LVAR5 9 = TEMP8>
+ <DEAD LVAR5>
+BOOL7
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aVAR-TYPE-WORD-IN-AC?>
+
+#WORD *6605014644*
+ <GFCN \1aVAR-COUNT-STORED? ("VALUE" ANY ANY) VAR4>
+ <TEMP LVAR5>
+ <INTGO>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR4>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR5>
+ <TYPE? LVAR5 <TYPE-CODE FALSE> + PHRASE7>
+ <NTHUV LVAR5 3 = LVAR5>
+ <TYPE? LVAR5 <TYPE-CODE FALSE> + COND6>
+ <FRAME '\1aADDR-VAR-COUNT>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aADDR-VAR-COUNT 1 = LVAR5>
+ <RETURN LVAR5>
+ <DEAD LVAR5>
+PHRASE7
+ <FRAME '\1aADDR-VAR-COUNT>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <CALL '\1aADDR-VAR-COUNT 1 = LVAR5>
+COND6
+ <RETURN LVAR5>
+ <DEAD LVAR5>
+ <END \1aVAR-COUNT-STORED?>
+
+#WORD *1043333760*
+ <GFCN \1aSAFE-TYPE-WORD? ("VALUE" <OR AC ATOM FALSE> VARTBL) VAR4>
+ <TEMP LVAR5 TEMP10>
+ <INTGO>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR4>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR5>
+ <TYPE? LVAR5 <TYPE-CODE FALSE> + PHRASE7>
+ <NTHUV LVAR5 9 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - COND6>
+ <NTHUV LVAR5 4 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + BOOL11>
+ <DEAD TEMP10>
+ <NTHUV LVAR5 3 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - COND6>
+BOOL11
+ <NTHUV VAR4 4 = TEMP10>
+ <DEAD VAR4>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + COND6>
+ <FRAME '\1aCOUNT-NEEDED?>
+ <NTHUV LVAR5 5 = STACK>
+ <DEAD LVAR5>
+ <CALL '\1aCOUNT-NEEDED? 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - TAG14>
+ <DEAD TEMP10>
+ <RETURN 'T>
+TAG14
+ <RETURN %<>>
+PHRASE7
+ <SET TEMP10 'T (TYPE ATOM)>
+COND6
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aSAFE-TYPE-WORD?>
+
+#WORD *21765737467*
+ <GFCN \1aCACHE-VAR ("VALUE" LINKVAR VARTBL "OPTIONAL" <OR FALSE LINKVAR>) VAR6 LVC7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP RES8 CACHE9 TEMP19 TEMP21:FIX>
+ <INTGO>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR6>
+ <CALL '\1aFIND-CACHE-VAR 1 = RES8>
+ <TYPE? RES8 <TYPE-CODE FALSE> - PHRASE12>
+ <GVAL 'VARIABLE-CACHE = CACHE9>
+ <TYPE? LVC7 <TYPE-CODE FALSE> + PHRASE14>
+ <FRAME '\1aCOPY-LINKVAR>
+ <PUSH LVC7>
+ <DEAD LVC7>
+ <CALL '\1aCOPY-LINKVAR 1 = RES8>
+ <JUMP + COND13>
+PHRASE14
+ <FRAME '\1aCREATE-LINKVAR>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <CALL '\1aCREATE-LINKVAR 1 = RES8>
+COND13
+ <TOPU CACHE9 = TEMP19>
+ <VEQUAL? TEMP19 CACHE9 - PHRASE18>
+ <DEAD TEMP19>
+ <PUSH RES8>
+ <SET TEMP21 1 (TYPE FIX)>
+ <SET TEMP19 CACHE9>
+ <DEAD CACHE9>
+ <LOOP (TEMP19 VALUE LENGTH) (TEMP21 VALUE)>
+TAG22
+ <INTGO>
+ <EMPUV? TEMP19 + TAG20>
+ <NTHUV TEMP19 1 = STACK>
+ <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
+ <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
+ <JUMP + TAG22>
+TAG20
+ <UBLOCK <TYPE-CODE VECTOR> TEMP21 = CACHE9>
+ <DEAD TEMP21>
+ <JUMP + PHRASE24>
+PHRASE18
+ <BACKU CACHE9 1 = CACHE9>
+ <PUTUV CACHE9 1 RES8>
+PHRASE24
+ <SETG 'VARIABLE-CACHE CACHE9>
+ <DEAD CACHE9>
+PHRASE12
+ <RETURN RES8>
+ <DEAD RES8>
+ <END \1aCACHE-VAR>
+
+#WORD *27141656646*
+ <GFCN \1aBREAK-LINK ("VALUE" <OR FALSE <VECTOR [REST LINKVAR]>> AC VARTBL) AC4 VAR5>
+ <TEMP VARS6 TEMP10>
+ <INTGO>
+ <NTHUV AC4 8 = VARS6 (TYPE VECTOR)>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR5>
+ <DEAD VAR5>
+ <PUSH VARS6>
+ <DEAD VARS6>
+ <CALL '\1aFIND-CACHE-VAR 2 = VARS6>
+ <SET TEMP10 VARS6>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE20>
+ <FRAME '\1aREMOVE-LV-FROM-AC>
+ <PUSH AC4>
+ <PUSH VARS6>
+ <CALL '\1aREMOVE-LV-FROM-AC 2>
+ <NTHUV VARS6 6 = TEMP10>
+ <EQUAL? TEMP10 AC4 - PHRASE14>
+ <DEAD TEMP10>
+ <PUTUV VARS6 6 %<>>
+ <JUMP + PHRASE18>
+PHRASE14
+ <NTHUV VARS6 7 = TEMP10>
+ <EQUAL? TEMP10 AC4 - PHRASE16>
+ <DEAD TEMP10>
+ <PUTUV VARS6 7 %<>>
+ <JUMP + PHRASE18>
+PHRASE16
+ <NTHUV VARS6 9 = TEMP10>
+ <EQUAL? TEMP10 AC4 - PHRASE17>
+ <DEAD TEMP10>
+ <PUTUV VARS6 9 %<>>
+ <JUMP + PHRASE18>
+PHRASE17
+ <NTHUV VARS6 8 = TEMP10>
+ <EQUAL? TEMP10 AC4 - PHRASE18>
+ <DEAD TEMP10>
+ <PUTUV VARS6 8 %<>>
+PHRASE18
+ <NTHUV VARS6 6 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + TAG22>
+ <DEAD TEMP10>
+ <RETURN %<>>
+TAG22
+ <NTHUV VARS6 7 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + TAG23>
+ <DEAD TEMP10>
+ <RETURN %<>>
+TAG23
+ <NTHUV VARS6 9 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + TAG24>
+ <DEAD TEMP10>
+ <RETURN %<>>
+TAG24
+ <NTHUV VARS6 8 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + TAG25>
+ <DEAD TEMP10>
+ <RETURN %<>>
+TAG25
+ <FRAME '\1aREMOVE-VAR-FROM-CACHE>
+ <PUSH VARS6>
+ <DEAD VARS6>
+ <CALL '\1aREMOVE-VAR-FROM-CACHE 1 = TEMP10>
+PHRASE20
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aBREAK-LINK>
+
+#WORD *24232642212*
+ <GFCN \1aREMOVE-VAR-FROM-CACHE ("VALUE" AC-STATE ANY) LV4>
+ <TEMP TEMP6:VECTOR>
+ <INTGO>
+ <FRAME '\1aREMOVE-LINKVAR>
+ <PUSH LV4>
+ <DEAD LV4>
+ <GVAL 'VARIABLE-CACHE = STACK>
+ <CALL '\1aREMOVE-LINKVAR 2 = TEMP6>
+ <SETG 'VARIABLE-CACHE TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aREMOVE-VAR-FROM-CACHE>
+
+#WORD *32346746506*
+ <GFCN \1aREMOVE-LINKVAR ("VALUE" <VECTOR [REST LINKVAR]> LINKVAR "OPTIONAL" <VECTOR [REST LINKVAR]>) LV6 CACHE7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP LVS8 TEMP16>
+ <INTGO>
+ <TYPE? CACHE7 <TYPE-CODE UNBOUND> - TAG10>
+ <GVAL 'VARIABLE-CACHE = CACHE7>
+TAG10
+ <SET LVS8 CACHE7>
+ <EMPUV? LVS8 + TAG12>
+ <LOOP (LV6 VALUE) (LVS8 LENGTH VALUE)>
+TAG14
+ <NTHUV LVS8 1 = TEMP16>
+ <VEQUAL? TEMP16 LV6 + TAG13>
+ <DEAD TEMP16>
+ <RESTUV LVS8 1 = LVS8 (TYPE VECTOR)>
+ <EMPUV? LVS8 - TAG14>
+TAG12
+ <SET LVS8 %<> (TYPE FALSE)>
+TAG13
+ <VEQUAL? LVS8 0 + PHRASE18>
+ <LENUV CACHE7 = TEMP16 (TYPE FIX)>
+ <LENUV LVS8 = LVS8 (TYPE FIX)>
+ <SUB TEMP16 LVS8 = TEMP16 (TYPE FIX)>
+ <DEAD LVS8>
+ <GRTR? TEMP16 0 - BOOL20 (TYPE FIX)>
+ <RESTUV CACHE7 1 = LVS8 (TYPE VECTOR)>
+ <MOVE-WORDS CACHE7 LVS8 TEMP16 (TYPE VECTOR) (DIRECTION FORWARD)>
+ <DEAD LVS8 TEMP16>
+BOOL20
+ <RESTUV CACHE7 1 = LVS8 (TYPE VECTOR)>
+ <DEAD CACHE7>
+ <RETURN LVS8>
+ <DEAD LVS8>
+PHRASE18
+ <RETURN CACHE7>
+ <DEAD CACHE7>
+ <END \1aREMOVE-LINKVAR>
+
+#WORD *15407655045*
+ <GFCN \1aCLEAR-VARS-FROM-AC ("VALUE" <OR FALSE <VECTOR [REST LINKVAR]>> ANY "OPTIONAL" ANY ANY) AC7 SAVE?8 ALL?9>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP VARS10:VECTOR TEMP20 LV22 TAC23>
+ <INTGO>
+ <NTHUV AC7 8 = VARS10 (TYPE VECTOR)>
+ <SET TEMP20 %<> (TYPE FALSE)>
+ <LOOP>
+MAP12
+ <INTGO>
+ <EMPUV? VARS10 + MAPAP15>
+ <NTHUV VARS10 1 = LV22>
+ <EQUAL? LV22 SAVE?8 - TAG26>
+ <SET TEMP20 %<> (TYPE FALSE)>
+ <JUMP + PHRASE43>
+TAG26
+ <FRAME '\1aBREAK-LINK>
+ <PUSH AC7>
+ <NTHUV LV22 1 = STACK (TYPE VARTBL)>
+ <CALL '\1aBREAK-LINK 2>
+ <SET TEMP20 ALL?9>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE43>
+ <NTHUV LV22 6 = TAC23>
+ <TYPE? TAC23 <TYPE-CODE FALSE> + PHRASE31>
+ <VEQUAL? TAC23 AC7 + PHRASE31>
+ <FRAME '\1aBREAK-LINK>
+ <PUSH TAC23>
+ <DEAD TAC23>
+ <NTHUV LV22 1 = STACK (TYPE VARTBL)>
+ <CALL '\1aBREAK-LINK 2>
+PHRASE31
+ <NTHUV LV22 9 = TAC23>
+ <TYPE? TAC23 <TYPE-CODE FALSE> + PHRASE35>
+ <VEQUAL? TAC23 AC7 + PHRASE35>
+ <FRAME '\1aBREAK-LINK>
+ <PUSH TAC23>
+ <DEAD TAC23>
+ <NTHUV LV22 1 = STACK (TYPE VARTBL)>
+ <CALL '\1aBREAK-LINK 2>
+PHRASE35
+ <NTHUV LV22 7 = TAC23>
+ <TYPE? TAC23 <TYPE-CODE FALSE> + PHRASE39>
+ <VEQUAL? TAC23 AC7 + PHRASE39>
+ <FRAME '\1aBREAK-LINK>
+ <PUSH TAC23>
+ <DEAD TAC23>
+ <NTHUV LV22 1 = STACK (TYPE VARTBL)>
+ <CALL '\1aBREAK-LINK 2>
+PHRASE39
+ <NTHUV LV22 8 = TAC23>
+ <SET TEMP20 TAC23>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE43>
+ <VEQUAL? TAC23 AC7 - TAG45>
+ <SET TEMP20 %<> (TYPE FALSE)>
+ <JUMP + PHRASE43>
+TAG45
+ <FRAME '\1aBREAK-LINK>
+ <PUSH TAC23>
+ <DEAD TAC23>
+ <NTHUV LV22 1 = STACK (TYPE VARTBL)>
+ <DEAD LV22>
+ <CALL '\1aBREAK-LINK 2 = TEMP20>
+PHRASE43
+ <RESTUV VARS10 1 = VARS10 (TYPE VECTOR)>
+ <JUMP + MAP12>
+MAPAP15
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+ <END \1aCLEAR-VARS-FROM-AC>
+
+#WORD *25164767002*
+ <GFCN \1aMUNG-AC ("VALUE" <OR FALSE <VECTOR [REST LINKVAR]>> AC) VAC4>
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aSTORE-AC>
+ <PUSH VAC4>
+ <PUSH 'T>
+ <CALL '\1aSTORE-AC 2>
+ <FRAME '\1aUSE-AC>
+ <PUSH VAC4>
+ <CALL '\1aUSE-AC 1>
+ <FRAME '\1aCLEAR-VARS-FROM-AC>
+ <PUSH VAC4>
+ <DEAD VAC4>
+ <CALL '\1aCLEAR-VARS-FROM-AC 1 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aMUNG-AC>
+
+#WORD *12771605461*
+ <GFCN \1aFLUSH-ACS ("VALUE" ANY)>
+ <TEMP TEMP7 TEMP10:VECTOR>
+ <INTGO>
+ <SET TEMP7 %<> (TYPE FALSE)>
+ <GVAL 'ALL-ACS = TEMP10>
+ <LOOP>
+MAP5
+ <INTGO>
+ <EMPUV? TEMP10 + MAP4>
+ <FRAME '\1aMUNG-AC>
+ <NTHUV TEMP10 1 = STACK>
+ <CALL '\1aMUNG-AC 1 = TEMP7>
+ <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
+ <JUMP + MAP5>
+MAP4
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aFLUSH-ACS>
+
+#WORD *37232707022*
+ <GFCN \1aEXCH-AC ("VALUE" <OR FALSE LINKVAR> AC AC) AC14 AC25>
+ <TEMP VARS6:VECTOR TEMP7 LV21:LINKVAR>
+ <INTGO>
+ <NTHUV AC25 8 = VARS6 (TYPE VECTOR)>
+ <NTHUV AC14 8 = TEMP7 (TYPE VECTOR)>
+ <PUTUV AC25 8 TEMP7>
+ <DEAD TEMP7>
+ <PUTUV AC14 8 VARS6>
+ <DEAD VARS6>
+ <FRAME '\1aCLOAD-AC>
+ <PUSH AC14>
+ <CALL '\1aCLOAD-AC 1>
+ <FRAME '\1aCLOAD-AC>
+ <PUSH AC25>
+ <CALL '\1aCLOAD-AC 1>
+ <SET TEMP7 %<> (TYPE FALSE)>
+ <GVAL 'VARIABLE-CACHE = VARS6>
+ <LOOP>
+MAP11
+ <INTGO>
+ <EMPUV? VARS6 + MAPAP14>
+ <NTHUV VARS6 1 = LV21>
+ <FRAME '\1aEXCH-TEST>
+ <PUSH AC14>
+ <PUSH AC25>
+ <NTHUV LV21 6 = STACK>
+ <CALL '\1aEXCH-TEST 3 = TEMP7>
+ <PUTUV LV21 6 TEMP7>
+ <DEAD TEMP7>
+ <FRAME '\1aEXCH-TEST>
+ <PUSH AC14>
+ <PUSH AC25>
+ <NTHUV LV21 7 = STACK>
+ <CALL '\1aEXCH-TEST 3 = TEMP7>
+ <PUTUV LV21 7 TEMP7>
+ <DEAD TEMP7>
+ <FRAME '\1aEXCH-TEST>
+ <PUSH AC14>
+ <PUSH AC25>
+ <NTHUV LV21 8 = STACK>
+ <CALL '\1aEXCH-TEST 3 = TEMP7>
+ <PUTUV LV21 8 TEMP7>
+ <DEAD TEMP7>
+ <FRAME '\1aEXCH-TEST>
+ <PUSH AC14>
+ <PUSH AC25>
+ <NTHUV LV21 9 = STACK>
+ <CALL '\1aEXCH-TEST 3 = TEMP7>
+ <PUTUV LV21 9 TEMP7>
+ <DEAD TEMP7>
+ <SET TEMP7 LV21>
+ <DEAD LV21>
+ <RESTUV VARS6 1 = VARS6 (TYPE VECTOR)>
+ <JUMP + MAP11>
+MAPAP14
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aEXCH-AC>
+
+#WORD *12154104727*
+ <GFCN \1aEXCH-TEST ("VALUE" <OR AC FALSE> AC AC <OR AC FALSE>) AC14 AC25 ACL6>
+ <TEMP TEMP9>
+ <INTGO>
+ <EQUAL? AC14 ACL6 - PHRASE8>
+ <RETURN AC25>
+ <DEAD AC25>
+PHRASE8
+ <EQUAL? AC25 ACL6 - PHRASE10>
+ <DEAD AC25>
+ <RETURN AC14>
+ <DEAD AC14>
+PHRASE10
+ <RETURN ACL6>
+ <DEAD ACL6>
+ <END \1aEXCH-TEST>
+
+#WORD *35057322011*
+ <GFCN \1aMOVE-AC ("VALUE" <OR FALSE <VECTOR [REST LINKVAR]>> AC AC) AC14 AC25>
+ <TEMP VARS16:VECTOR VARS27:VECTOR TEMP20:VECTOR LV21 TEMP24>
+ <INTGO>
+ <NTHUV AC14 8 = VARS16 (TYPE VECTOR)>
+ <NTHUV AC25 8 = VARS27 (TYPE VECTOR)>
+ <FRAME '\1aUSE-AC>
+ <PUSH AC14>
+ <CALL '\1aUSE-AC 1>
+ <GVAL 'VARIABLE-CACHE = TEMP20>
+ <LOOP>
+MAP10
+ <INTGO>
+ <EMPUV? TEMP20 + MAPAP13>
+ <NTHUV TEMP20 1 = LV21>
+ <NTHUV LV21 6 = TEMP24>
+ <EQUAL? TEMP24 AC14 - PHRASE23>
+ <DEAD TEMP24>
+ <PUTUV LV21 6 AC25>
+ <DEAD LV21>
+ <JUMP + PHRASE27>
+PHRASE23
+ <NTHUV LV21 7 = TEMP24>
+ <EQUAL? TEMP24 AC14 - PHRASE25>
+ <DEAD TEMP24>
+ <PUTUV LV21 7 AC25>
+ <DEAD LV21>
+ <JUMP + PHRASE27>
+PHRASE25
+ <NTHUV LV21 9 = TEMP24>
+ <EQUAL? TEMP24 AC14 - PHRASE26>
+ <DEAD TEMP24>
+ <PUTUV LV21 9 AC25>
+ <DEAD LV21>
+ <JUMP + PHRASE27>
+PHRASE26
+ <NTHUV LV21 8 = TEMP24>
+ <EQUAL? TEMP24 AC14 - PHRASE27>
+ <DEAD TEMP24>
+ <PUTUV LV21 8 AC25>
+ <DEAD LV21>
+PHRASE27
+ <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
+ <JUMP + MAP10>
+MAPAP13
+ <FRAME '\1aADJUST-LENGTH>
+ <PUSH VARS27>
+ <DEAD VARS27>
+ <LENUV VARS16 = STACK (TYPE FIX)>
+ <CALL '\1aADJUST-LENGTH 2 = VARS27>
+ <PUTUV AC25 8 VARS27>
+ <DEAD AC25>
+ <SET TEMP20 VARS27 (TYPE VECTOR)>
+ <DEAD VARS27>
+ <LOOP>
+MAP30
+ <INTGO>
+ <EMPUV? TEMP20 + MAPAP33>
+ <EMPUV? VARS16 + MAPAP33>
+ <SET VARS27 TEMP20>
+ <SET LV21 VARS16>
+ <NTHUV LV21 1 = TEMP24>
+ <DEAD LV21>
+ <PUTUV VARS27 1 TEMP24>
+ <DEAD VARS27 TEMP24>
+ <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
+ <RESTUV VARS16 1 = VARS16 (TYPE VECTOR)>
+ <JUMP + MAP30>
+MAPAP33
+ <FRAME '\1aCLEAR-VARS-FROM-AC>
+ <PUSH AC14>
+ <DEAD AC14>
+ <CALL '\1aCLEAR-VARS-FROM-AC 1 = TEMP24>
+ <RETURN TEMP24>
+ <DEAD TEMP24>
+ <END \1aMOVE-AC>
+
+#WORD *35337723700*
+ <GFCN \1aADJUST-LENGTH ("VALUE" VECTOR VECTOR FIX) VEC4 LEN5>
+ <TEMP TEMP9 TVEC6 TEMP14:FIX>
+ <INTGO>
+ <LENUV VEC4 = TEMP9 (TYPE FIX)>
+ <LESS? LEN5 TEMP9 - PHRASE8 (TYPE FIX)>
+ <DEAD TEMP9>
+ <LENUV VEC4 = TEMP9 (TYPE FIX)>
+ <SUB TEMP9 LEN5 = TEMP9 (TYPE FIX)>
+ <DEAD LEN5>
+ <RESTUV VEC4 TEMP9 = VEC4 (TYPE VECTOR)>
+ <DEAD TEMP9>
+ <RETURN VEC4>
+ <DEAD VEC4>
+PHRASE8
+ <LENUV VEC4 = TEMP9 (TYPE FIX)>
+ <GRTR? LEN5 TEMP9 - COND11 (TYPE FIX)>
+ <DEAD TEMP9>
+ <TOPU VEC4 = TVEC6>
+ <DEAD VEC4>
+ <LENUV TVEC6 = TEMP9 (TYPE FIX)>
+ <LESS? LEN5 TEMP9 - PHRASE12 (TYPE FIX)>
+ <DEAD TEMP9>
+ <LENUV TVEC6 = TEMP9 (TYPE FIX)>
+ <SUB TEMP9 LEN5 = TEMP9 (TYPE FIX)>
+ <DEAD LEN5>
+ <RESTUV TVEC6 TEMP9 = VEC4 (TYPE VECTOR)>
+ <DEAD TVEC6 TEMP9>
+ <RETURN VEC4>
+ <DEAD VEC4>
+PHRASE12
+ <SET TEMP14 0 (TYPE FIX)>
+ <LENUV TVEC6 = TEMP9 (TYPE FIX)>
+ <SUB TEMP9 LEN5 = TEMP9 (TYPE FIX)>
+ <DEAD LEN5>
+ <UUBLOCK <TYPE-CODE VECTOR> TEMP9 = TEMP9 (TYPE VECTOR)>
+ <LOOP (TEMP9 VALUE LENGTH) (TEMP14 VALUE)>
+TAG16
+ <INTGO>
+ <EMPUV? TEMP9 + TAG13>
+ <NTHUV TEMP9 1 = STACK>
+ <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG16>
+TAG13
+ <SET TEMP9 TVEC6>
+ <DEAD TVEC6>
+ <LOOP (TEMP9 VALUE LENGTH) (TEMP14 VALUE)>
+TAG18
+ <INTGO>
+ <EMPUV? TEMP9 + TAG17>
+ <NTHUV TEMP9 1 = STACK>
+ <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG18>
+TAG17
+ <UBLOCK <TYPE-CODE VECTOR> TEMP14 = VEC4>
+ <DEAD TEMP14>
+COND11
+ <RETURN VEC4>
+ <DEAD VEC4>
+ <END \1aADJUST-LENGTH>
+
+#WORD *4153764447*
+ <GFCN \1aSET-AC-AGE ("VALUE" FIX AC) AC4>
+ <TEMP TEMP5:FIX>
+ <INTGO>
+ <GVAL 'AC-TIME = TEMP5>
+ <PUTUV AC4 3 TEMP5 (TYPE FIX)>
+ <DEAD AC4 TEMP5>
+ <GVAL 'AC-TIME = TEMP5>
+ <ADD TEMP5 1 = TEMP5 (TYPE FIX)>
+ <SETG 'AC-TIME TEMP5>
+ <RETURN TEMP5>
+ <DEAD TEMP5>
+ <END \1aSET-AC-AGE>
+
+#WORD *4135344073*
+ <GFCN \1aUSE-AC ("VALUE" AC AC) AC4>
+ <TEMP>
+ <INTGO>
+ <PUTUV AC4 9 'T>
+ <RETURN AC4>
+ <DEAD AC4>
+ <END \1aUSE-AC>
+
+#WORD *25411156030*
+ <GFCN \1aPROTECT ("VALUE" AC AC) AC4>
+ <TEMP>
+ <INTGO>
+ <PUTUV AC4 4 'T>
+ <RETURN AC4>
+ <DEAD AC4>
+ <END \1aPROTECT>
+
+#WORD *26476055667*
+ <GFCN \1aPROTECT-USE ("VALUE" AC AC) AC4>
+ <TEMP TEMP7:AC>
+ <INTGO>
+ <FRAME '\1aPROTECT>
+ <PUSH AC4>
+ <CALL '\1aPROTECT 1>
+ <FRAME '\1aUSE-AC>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aUSE-AC 1 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aPROTECT-USE>
+
+#WORD *31107311045*
+ <GFCN \1aUNPROTECT ("VALUE" AC AC) AC4>
+ <TEMP>
+ <INTGO>
+ <PUTUV AC4 4 %<>>
+ <RETURN AC4>
+ <DEAD AC4>
+ <END \1aUNPROTECT>
+
+#WORD *3020661073*
+ <GFCN \1aUNPROTECT-ACS ("VALUE" <OR AC FALSE>)>
+ <TEMP TEMP7 TEMP10:VECTOR>
+ <INTGO>
+ <SET TEMP7 %<> (TYPE FALSE)>
+ <GVAL 'ALL-ACS = TEMP10>
+ <LOOP>
+MAP5
+ <INTGO>
+ <EMPUV? TEMP10 + MAP4>
+ <FRAME '\1aUNPROTECT>
+ <NTHUV TEMP10 1 = STACK>
+ <CALL '\1aUNPROTECT 1 = TEMP7>
+ <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
+ <JUMP + MAP5>
+MAP4
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aUNPROTECT-ACS>
+
+#WORD *26245667474*
+ <GFCN \1aLOAD-AC ("VALUE" <OR FALSE VARTBL> AC ANY) AC4 EA5>
+ <TEMP TEMP6>
+ <INTGO>
+ <GVAL 'CODE-COUNT = TEMP6>
+ <PUTUV AC4 6 TEMP6>
+ <DEAD TEMP6>
+ <PUTUV AC4 7 EA5>
+ <DEAD EA5>
+ <PUTUV AC4 9 %<>>
+ <DEAD AC4>
+ <FRAME '\1aCLEAR-STATUS>
+ <CALL '\1aCLEAR-STATUS 0 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aLOAD-AC>
+
+#WORD *21310044426*
+ <GFCN \1aCLOAD-AC ("VALUE" AC AC) AC4>
+ <TEMP>
+ <INTGO>
+ <PUTUV AC4 6 %<>>
+ <PUTUV AC4 7 %<>>
+ <RETURN AC4>
+ <DEAD AC4>
+ <END \1aCLOAD-AC>
+
+#WORD *10575071642*
+ <GFCN \1aSET-STATUS-AC ("VALUE" <OR AC FALSE VARTBL> AC) AC4>
+ <TEMP TEMP7>
+ <INTGO>
+ <GVAL 'AC-STORE-OPT = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE6>
+ <DEAD TEMP7>
+ <SETG 'STATUS-AC AC4>
+ <RETURN AC4>
+ <DEAD AC4>
+PHRASE6
+ <FRAME '\1aCLEAR-STATUS>
+ <CALL '\1aCLEAR-STATUS 0 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aSET-STATUS-AC>
+
+#WORD *5003173422*
+ <GFCN \1aSET-STATUS-VAR ("VALUE" <OR ATOM FALSE> VARTBL ATOM) VAR4 STYP5>
+ <TEMP TEMP8>
+ <INTGO>
+ <GVAL 'STATUS-AC = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
+ <GVAL 'AC-STORE-OPT = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
+ <SETG 'STATUS-VAR VAR4>
+ <DEAD VAR4>
+ <SETG 'STATUS-TYPE STYP5>
+ <SET TEMP8 STYP5>
+ <DEAD STYP5>
+PHRASE7
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aSET-STATUS-VAR>
+
+#WORD *23660435346*
+ <GFCN \1aCLEAR-STATUS ("VALUE" <OR FALSE VARTBL>)>
+ <TEMP>
+ <INTGO>
+ <SETG 'STATUS-AC %<>>
+ <SETG 'STATUS-VAR %<>>
+ <RETURN %<>>
+ <END \1aCLEAR-STATUS>
+
+#WORD *15143701462*
+ <GFCN \1aSTATUS? ("VALUE" <OR AC ATOM FALSE> VARTBL ATOM) VAR4 STYPE5>
+ <TEMP SAC7 TEMP11 LVAR6>
+ <INTGO>
+ <GVAL 'STATUS-AC = SAC7>
+ <GVAL 'STATUS-AC = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE9>
+ <DEAD TEMP11>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR4>
+ <NTHUV SAC7 8 = STACK (TYPE VECTOR)>
+ <CALL '\1aFIND-CACHE-VAR 2 = LVAR6>
+ <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE9>
+ <VEQUAL? STYPE5 'VALUE - BOOL14>
+ <NTHUV LVAR6 6 = TEMP11>
+ <EQUAL? TEMP11 SAC7 + BOOL13>
+ <DEAD TEMP11>
+BOOL14
+ <VEQUAL? STYPE5 'COUNT + BOOL13>
+ <NTHUV LVAR6 8 = TEMP11>
+ <DEAD LVAR6>
+ <EQUAL? TEMP11 SAC7 - PHRASE9>
+ <DEAD TEMP11>
+BOOL13
+ <GVAL 'STATUS-AC = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE9
+ <GVAL 'STATUS-VAR = SAC7>
+ <EQUAL? SAC7 VAR4 + TAG17>
+ <DEAD SAC7 VAR4>
+ <RETURN %<>>
+TAG17
+ <GVAL 'STATUS-TYPE = SAC7>
+ <VEQUAL? SAC7 STYPE5 + TAG19>
+ <DEAD SAC7 STYPE5>
+ <RETURN %<>>
+TAG19
+ <GVAL 'STATUS-AC = SAC7>
+ <TYPE? SAC7 <TYPE-CODE FALSE> + PHRASE21>
+ <DEAD SAC7>
+ <GVAL 'STATUS-AC = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE21
+ <RETURN 'VAR>
+ <END \1aSTATUS?>
+
+#WORD *26464166206*
+ <GFCN \1aPRINT-LINKVAR ("VALUE" STRING LINKVAR) LV4>
+ <TEMP OUTCHAN5 TEMP10>
+ <INTGO>
+ <GEN-LVAL 'OUTCHAN = OUTCHAN5>
+ <FRAME '\1aPRINC>
+ <PUSH "#LINKVAR [">
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <NTHUV LV4 1 = TEMP10 (TYPE VARTBL)>
+ <NTHUV TEMP10 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP10>
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <NTHUV LV4 5 = STACK>
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aTESTPRINT>
+ <NTHUV LV4 6 = STACK>
+ <PUSH "VALUE">
+ <PUSH OUTCHAN5>
+ <CALL '\1aTESTPRINT 3>
+ <FRAME '\1aTESTPRINT>
+ <NTHUV LV4 7 = STACK>
+ <PUSH "TYPE">
+ <PUSH OUTCHAN5>
+ <CALL '\1aTESTPRINT 3>
+ <FRAME '\1aTESTPRINT>
+ <NTHUV LV4 9 = STACK>
+ <PUSH "TYPE-WORD">
+ <PUSH OUTCHAN5>
+ <CALL '\1aTESTPRINT 3>
+ <FRAME '\1aTESTPRINT>
+ <NTHUV LV4 8 = STACK>
+ <DEAD LV4>
+ <PUSH "COUNT">
+ <PUSH OUTCHAN5>
+ <CALL '\1aTESTPRINT 3>
+ <FRAME '\1aPRINC>
+ <PUSH "]">
+ <PUSH OUTCHAN5>
+ <DEAD OUTCHAN5>
+ <CALL '\1aPRINC 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aPRINT-LINKVAR>
+
+#WORD *1376230320*
+ <GFCN \1aTESTPRINT ("VALUE" <OR ATOM FALSE> <OR FALSE AC> STRING CHANNEL) AC4 TYP5 OUTCHAN6>
+ <TEMP TEMP3:LBIND TEMP9>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'OUTCHAN 'CHANNEL %<> OUTCHAN6>
+ <DEAD OUTCHAN6>
+ <FIXBIND>
+ <SET TEMP9 AC4>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
+ <FRAME '\1aPRINC>
+ <PUSH " #">
+ <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP9>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH TYP5>
+ <DEAD TYP5>
+ <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP9>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP9>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV AC4 1 = STACK (TYPE ATOM)>
+ <DEAD AC4>
+ <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP9>
+ <CALL '\1aPRIN1 2 = TEMP9>
+PHRASE8
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aTESTPRINT>
+
+<COND (<GASSIGNED? PRINT-LINKVAR> <PRINTTYPE LINKVAR ,PRINT-LINKVAR>)>
+
+#WORD *3535053551*
+ <GFCN \1aPRINT-AC ("VALUE" STRING AC) AC4>
+ <TEMP OUTCHAN5 TEMP22:VECTOR LV23:LINKVAR>
+ <INTGO>
+ <GEN-LVAL 'OUTCHAN = OUTCHAN5>
+ <FRAME '\1aPRINC>
+ <PUSH "#AC [">
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV AC4 1 = STACK (TYPE ATOM)>
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINC 2>
+ <NTHUV AC4 8 = TEMP22 (TYPE VECTOR)>
+ <LOOP>
+MAP12
+ <INTGO>
+ <EMPUV? TEMP22 + MAPAP15>
+ <NTHUV TEMP22 1 = LV23>
+ <FRAME '\1aPRINT-SHORT-LINKVAR>
+ <PUSH LV23>
+ <DEAD LV23>
+ <PUSH AC4>
+ <CALL '\1aPRINT-SHORT-LINKVAR 2>
+ <RESTUV TEMP22 1 = TEMP22 (TYPE VECTOR)>
+ <JUMP + MAP12>
+MAPAP15
+ <FRAME '\1aPRINC>
+ <PUSH "]">
+ <PUSH OUTCHAN5>
+ <DEAD OUTCHAN5>
+ <CALL '\1aPRINC 2 = OUTCHAN5>
+ <RETURN OUTCHAN5>
+ <DEAD OUTCHAN5>
+ <END \1aPRINT-AC>
+
+<COND (<GASSIGNED? PRINT-AC> <PRINTTYPE AC ,PRINT-AC>)>
+
+#WORD *22043563371*
+ <GFCN \1aPRINT-SHORT-LINKVAR ("VALUE" STRING LINKVAR AC) LV4 AC5>
+ <TEMP OUTCHAN6 TEMP11>
+ <INTGO>
+ <GEN-LVAL 'OUTCHAN = OUTCHAN6>
+ <NTHUV LV4 7 = TEMP11>
+ <EQUAL? TEMP11 AC5 - PHRASE10>
+ <DEAD TEMP11>
+ <FRAME '\1aPRINC>
+ <PUSH "#TYPE ">
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE17>
+PHRASE10
+ <NTHUV LV4 6 = TEMP11>
+ <EQUAL? TEMP11 AC5 - PHRASE13>
+ <DEAD TEMP11>
+ <FRAME '\1aPRINC>
+ <PUSH "#VALUE ">
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE17>
+PHRASE13
+ <NTHUV LV4 9 = TEMP11>
+ <EQUAL? TEMP11 AC5 - PHRASE15>
+ <DEAD TEMP11>
+ <FRAME '\1aPRINC>
+ <PUSH "#TYPE-WORD ">
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE17>
+PHRASE15
+ <NTHUV LV4 8 = TEMP11>
+ <EQUAL? TEMP11 AC5 - PHRASE17>
+ <DEAD TEMP11>
+ <FRAME '\1aPRINC>
+ <PUSH "#COUNT ">
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+PHRASE17
+ <FRAME '\1aPRINC>
+ <NTHUV LV4 1 = TEMP11 (TYPE VARTBL)>
+ <DEAD LV4>
+ <NTHUV TEMP11 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP11>
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <PUSH OUTCHAN6>
+ <DEAD OUTCHAN6>
+ <CALL '\1aPRINC 2 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aPRINT-SHORT-LINKVAR>
+
+#WORD *35711215061*
+ <GFCN \1aFREE-TYPE-AC? ("VALUE" ANY "OPTIONAL" ANY ANY) HOWFREE?7 REAL?8>
+ <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH 'NOVARS>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP TEMP10>
+ <INTGO>
+ <FRAME '\1aFIND-FREE-AC>
+ <GVAL 'TYPE-ACS = STACK>
+ <PUSH HOWFREE?7>
+ <DEAD HOWFREE?7>
+ <CALL '\1aFIND-FREE-AC 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aFREE-TYPE-AC?>
+
+#WORD *2020513542*
+ <GFCN \1aFREE-VALUE-AC? ("VALUE" ANY "OPTIONAL" ANY) HOWFREE?6>
+ <OPT-DISPATCH 0 %<> OPT4 OPT5>
+OPT4
+ <PUSH 'NOVARS>
+OPT5
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aFIND-FREE-AC>
+ <GVAL 'VAL-ACS = STACK>
+ <PUSH HOWFREE?6>
+ <DEAD HOWFREE?6>
+ <CALL '\1aFIND-FREE-AC 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aFREE-VALUE-AC?>
+
+#WORD *30635022433*
+ <GFCN \1aFREE-AC? ("VALUE" ANY "OPTIONAL" ANY ANY) PREF7 HOWFREE?8>
+ <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH 'NONE>
+OPT5
+ <PUSH 'NOVARS>
+OPT6
+ <TEMP TEMP12>
+ <INTGO>
+ <EQUAL? PREF7 'DOUBLE - PHRASE10>
+ <FRAME '\1aFIND-FREE-PAIR>
+ <PUSH HOWFREE?8>
+ <DEAD HOWFREE?8>
+ <CALL '\1aFIND-FREE-PAIR 1 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE10
+ <EQUAL? PREF7 'NONE - PHRASE13>
+ <FRAME '\1aFIND-FREE-AC>
+ <GVAL 'ALL-ACS = STACK>
+ <PUSH HOWFREE?8>
+ <DEAD HOWFREE?8>
+ <CALL '\1aFIND-FREE-AC 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE13
+ <EQUAL? PREF7 'TYPE + BOOL16>
+ <EQUAL? PREF7 'PREF-TYPE - PHRASE15>
+BOOL16
+ <FRAME '\1aFIND-FREE-AC>
+ <GVAL 'TYPE-ACS = STACK>
+ <PUSH HOWFREE?8>
+ <CALL '\1aFIND-FREE-AC 2 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - COND9>
+ <FRAME '\1aFIND-FREE-AC>
+ <GVAL 'VAL-ACS = STACK>
+ <PUSH HOWFREE?8>
+ <DEAD HOWFREE?8>
+ <CALL '\1aFIND-FREE-AC 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE15
+ <EQUAL? PREF7 'VALUE + BOOL21>
+ <EQUAL? PREF7 'PREF-VAL - PHRASE20>
+ <DEAD PREF7>
+BOOL21
+ <FRAME '\1aFIND-FREE-AC>
+ <GVAL 'VAL-ACS = STACK>
+ <PUSH HOWFREE?8>
+ <CALL '\1aFIND-FREE-AC 2 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - COND9>
+ <FRAME '\1aFIND-FREE-AC>
+ <GVAL 'TYPE-ACS = STACK>
+ <PUSH HOWFREE?8>
+ <DEAD HOWFREE?8>
+ <CALL '\1aFIND-FREE-AC 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE20
+ <FRAME '\1aERROR>
+ <PUSH 'BAD-PREFERENCE>
+ <PUSH 'FREE-AC?>
+ <CALL '\1aERROR 2 = TEMP12>
+COND9
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aFREE-AC?>
+
+#WORD *2770344334*
+ <GFCN \1aFIND-FREE-PAIR ("VALUE" <OR AC FALSE> ANY) HOWFREE?4>
+ <TEMP ACS8:VECTOR TEMP14 AC19 TEMP18>
+ <INTGO>
+ <GVAL 'ALL-ACS = ACS8>
+ <LOOP>
+AGAIN11
+ <INTGO>
+ <LENUV ACS8 = TEMP14 (TYPE FIX)>
+ <LESS? TEMP14 2 - PHRASE13 (TYPE FIX)>
+ <DEAD TEMP14>
+ <RETURN %<>>
+PHRASE13
+ <NTHUV ACS8 1 = AC19>
+ <NTHUV AC19 4 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE33>
+ <DEAD TEMP14>
+ <NTHUV ACS8 2 = TEMP14>
+ <NTHUV TEMP14 4 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE33>
+ <DEAD TEMP18>
+ <EQUAL? HOWFREE?4 'NOVARS - PHRASE20>
+ <FRAME '\1aALL-DEAD?>
+ <PUSH AC19>
+ <CALL '\1aALL-DEAD? 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE33>
+ <DEAD TEMP18>
+ <FRAME '\1aALL-DEAD?>
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <CALL '\1aALL-DEAD? 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE33>
+ <DEAD TEMP18>
+ <RETURN AC19>
+ <DEAD AC19>
+PHRASE20
+ <EQUAL? HOWFREE?4 'STORED - PHRASE27>
+ <FRAME '\1aALL-STORED?>
+ <PUSH AC19>
+ <CALL '\1aALL-STORED? 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE33>
+ <DEAD TEMP18>
+ <FRAME '\1aALL-STORED?>
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <CALL '\1aALL-STORED? 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE33>
+ <DEAD TEMP18>
+ <RETURN AC19>
+ <DEAD AC19>
+PHRASE27
+ <FRAME '\1aERROR>
+ <PUSH 'BAD-MODE>
+ <PUSH 'FIND-FREE-PAIR>
+ <CALL '\1aERROR 2>
+PHRASE33
+ <RESTUV ACS8 2 = ACS8 (TYPE VECTOR)>
+ <JUMP + AGAIN11>
+ <END \1aFIND-FREE-PAIR>
+
+#WORD *27655454112*
+ <GFCN \1aFIND-FREE-AC ("VALUE" ANY <VECTOR [REST AC]> ATOM) ACLIST4 HOWFREE?5>
+ <TEMP TEMP15 TEMP12:VECTOR AC17:AC>
+ <INTGO>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <SET TEMP12 ACLIST4 (TYPE VECTOR)>
+ <DEAD ACLIST4>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPUV? TEMP12 + MAPAP10>
+ <NTHUV TEMP12 1 = AC17>
+ <NTHUV AC17 4 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + TAG20>
+ <DEAD TEMP15>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + COND21>
+TAG20
+ <VEQUAL? HOWFREE?5 'NOVARS - PHRASE22>
+ <FRAME '\1aALL-DEAD?>
+ <PUSH AC17>
+ <CALL '\1aALL-DEAD? 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + COND21>
+ <RETURN AC17>
+ <DEAD AC17>
+PHRASE22
+ <VEQUAL? HOWFREE?5 'STORED - PHRASE25>
+ <FRAME '\1aALL-STORED?>
+ <PUSH AC17>
+ <CALL '\1aALL-STORED? 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + COND21>
+ <RETURN AC17>
+ <DEAD AC17>
+PHRASE25
+ <FRAME '\1aERROR>
+ <PUSH 'BAD-MODE>
+ <PUSH 'FIND-FREE-AC>
+ <CALL '\1aERROR 2 = TEMP15>
+COND21
+ <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aFIND-FREE-AC>
+
+#WORD *36251131534*
+ <GFCN \1aAC-VAR-STORED? ("VALUE" ANY VARTBL AC) VAR4 AC5>
+ <TEMP LV6:LINKVAR TEMP12>
+ <INTGO>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR4>
+ <CALL '\1aFIND-CACHE-VAR 1 = LV6>
+ <NTHUV LV6 6 = TEMP12>
+ <EQUAL? TEMP12 AC5 - PHRASE11>
+ <DEAD TEMP12>
+ <NTHUV LV6 2 = TEMP12>
+ <DEAD LV6>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE11
+ <NTHUV LV6 8 = TEMP12>
+ <EQUAL? TEMP12 AC5 - PHRASE13>
+ <DEAD TEMP12>
+ <NTHUV LV6 3 = TEMP12>
+ <DEAD LV6>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE13
+ <NTHUV LV6 7 = TEMP12>
+ <EQUAL? TEMP12 AC5 - PHRASE15>
+ <DEAD TEMP12>
+ <NTHUV LV6 4 = TEMP12>
+ <DEAD LV6>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE15
+ <NTHUV LV6 9 = TEMP12>
+ <EQUAL? TEMP12 AC5 - PHRASE16>
+ <DEAD TEMP12>
+ <NTHUV LV6 4 = TEMP12>
+ <DEAD LV6>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE16
+ <FRAME '\1aERROR>
+ <PUSH "VAR NOT IN AC">
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH AC5>
+ <DEAD AC5>
+ <CALL '\1aERROR 3 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aAC-VAR-STORED?>
+
+#WORD *22235253262*
+ <GFCN \1aALL-STORED? ("VALUE" <OR ATOM FALSE> AC) AC4>
+ <TEMP (VAL5 'T) TEMP17:VECTOR LV18:LINKVAR TEMP21>
+ <INTGO>
+ <NTHUV AC4 8 = TEMP17 (TYPE VECTOR)>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPUV? TEMP17 + MAPAP10>
+ <NTHUV TEMP17 1 = LV18>
+ <NTHUV LV18 6 = TEMP21>
+ <EQUAL? TEMP21 AC4 - PHRASE20>
+ <DEAD TEMP21>
+ <NTHUV LV18 2 = TEMP21>
+ <DEAD LV18>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> - COND19>
+ <DEAD TEMP21>
+ <RETURN %<>>
+PHRASE20
+ <NTHUV LV18 8 = TEMP21>
+ <EQUAL? TEMP21 AC4 - PHRASE23>
+ <DEAD TEMP21>
+ <NTHUV LV18 3 = TEMP21>
+ <DEAD LV18>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> - COND19>
+ <DEAD TEMP21>
+ <RETURN %<>>
+PHRASE23
+ <NTHUV LV18 7 = TEMP21>
+ <EQUAL? TEMP21 AC4 - PHRASE25>
+ <DEAD TEMP21>
+ <NTHUV LV18 4 = TEMP21>
+ <DEAD LV18>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> - COND19>
+ <DEAD TEMP21>
+ <RETURN %<>>
+PHRASE25
+ <NTHUV LV18 9 = TEMP21>
+ <EQUAL? TEMP21 AC4 - PHRASE27>
+ <DEAD TEMP21>
+ <NTHUV LV18 4 = TEMP21>
+ <DEAD LV18>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> - COND19>
+ <DEAD TEMP21>
+ <RETURN %<>>
+PHRASE27
+ <FRAME '\1aERROR>
+ <PUSH "VAR NOT IN AC">
+ <PUSH 'ALL-STORED?>
+ <CALL '\1aERROR 2>
+COND19
+ <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN VAL5>
+ <DEAD VAL5>
+ <END \1aALL-STORED?>
+
+#WORD *7741643555*
+ <GFCN \1aALL-DEAD? ("VALUE" <OR ATOM FALSE> AC) AC4>
+ <TEMP (VAL5 'T) TEMP17:VECTOR LV18:LINKVAR TEMP22>
+ <INTGO>
+ <NTHUV AC4 8 = TEMP17 (TYPE VECTOR)>
+ <DEAD AC4>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPUV? TEMP17 + MAPAP10>
+ <NTHUV TEMP17 1 = LV18>
+ <NTHUV LV18 1 = TEMP22 (TYPE VARTBL)>
+ <NTHUV TEMP22 5 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE20>
+ <DEAD TEMP22>
+ <FRAME '\1aWILL-DIE?>
+ <NTHUV LV18 1 = STACK (TYPE VARTBL)>
+ <DEAD LV18>
+ <CALL '\1aWILL-DIE? 1 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE20>
+ <DEAD TEMP22>
+ <RETURN %<>>
+PHRASE20
+ <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN VAL5>
+ <DEAD VAL5>
+ <END \1aALL-DEAD?>
+
+#WORD *12771605461*
+ <GFCN \1aFLUSH-ALL-ACS ("VALUE" <OR FALSE <VECTOR [REST LINKVAR]>>)>
+ <TEMP TEMP7 TEMP10:VECTOR>
+ <INTGO>
+ <SET TEMP7 %<> (TYPE FALSE)>
+ <GVAL 'ALL-ACS = TEMP10>
+ <LOOP>
+MAP5
+ <INTGO>
+ <EMPUV? TEMP10 + MAP4>
+ <FRAME '\1aMUNG-AC>
+ <NTHUV TEMP10 1 = STACK>
+ <CALL '\1aMUNG-AC 1 = TEMP7>
+ <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
+ <JUMP + MAP5>
+MAP4
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aFLUSH-ALL-ACS>
+
+#WORD *15174413116*
+ <GFCN \1aMOVE-TO-AC ("VALUE" ANY AC ANY ATOM) AC4 ADDR5 LEN6>
+ <TEMP TEMP10>
+ <INTGO>
+ <VEQUAL? LEN6 'LONG - PHRASE8>
+ <FRAME '\1aEMIT-MOVE>
+ <PUSH ADDR5>
+ <NTHUV 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>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aLOAD-AC>
+ <PUSH AC4>
+ <DEAD AC4>
+ <PUSH ADDR5>
+ <DEAD ADDR5>
+ <CALL '\1aLOAD-AC 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE8
+ <VEQUAL? LEN6 'WORD - PHRASE12>
+ <FRAME '\1aEMIT>
+ <PUSH 60>
+ <PUSH ADDR5>
+ <DEAD ADDR5>
+ <NTHUV AC4 2 = TEMP10 (TYPE FIX)>
+ <DEAD AC4>
+ <OR TEMP10 #WORD *120* = TEMP10>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP10>
+ <CALL '\1aEMIT 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE12
+ <VEQUAL? LEN6 'BYTE + TAG16>
+ <DEAD LEN6>
+ <RETURN %<>>
+TAG16
+ <FRAME '\1aEMIT>
+ <PUSH 154>
+ <PUSH ADDR5>
+ <DEAD ADDR5>
+ <NTHUV AC4 2 = TEMP10 (TYPE FIX)>
+ <DEAD AC4>
+ <OR TEMP10 #WORD *120* = TEMP10>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP10>
+ <CALL '\1aEMIT 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aMOVE-TO-AC>
+
+#WORD *10356412754*
+ <GFCN \1aPREV-AC ("VALUE" <OR AC !<FALSE>> AC) AC4>
+ <TEMP ACN5 TEMP12:VECTOR>
+ <INTGO>
+ <NTHUV AC4 2 = ACN5 (TYPE FIX)>
+ <DEAD AC4>
+ <VEQUAL? ACN5 0 - PHRASE7 (TYPE FIX)>
+ <RETURN %<>>
+PHRASE7
+ <GVAL 'ALL-ACS = TEMP12>
+ <NTHUV TEMP12 ACN5 = ACN5 (TYPE AC)>
+ <DEAD TEMP12>
+ <RETURN ACN5>
+ <DEAD ACN5>
+ <END \1aPREV-AC>
+
+#WORD *6641606221*
+ <GFCN \1aNEXT-AC ("VALUE" AC ANY) AC4>
+ <TEMP ACN5 TEMP6:VECTOR>
+ <INTGO>
+ <NTHUV AC4 2 = ACN5 (TYPE FIX)>
+ <DEAD AC4>
+ <GVAL 'ALL-ACS = TEMP6>
+ <ADD ACN5 2 = ACN5 (TYPE FIX)>
+ <NTHUV TEMP6 ACN5 = ACN5 (TYPE AC)>
+ <DEAD TEMP6>
+ <RETURN ACN5>
+ <DEAD ACN5>
+ <END \1aNEXT-AC>
projects / pdp10-muddle.git / blobdiff