#WORD *3442577024*
		    <GFCN CREATE-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 CREATE-AC>

#WORD *30651504205*
		    <GFCN INITIALIZE-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 'CREATE-AC>
		    <PUSH ATM219>
		    <DEAD ATM219>
		    <ADD NUM4 1 = NUM4 (TYPE FIX)>
		    <PUSH NUM4>
		    <CALL 'CREATE-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 'SETG>
		    <PUSH ATM118>
		    <DEAD ATM118>
		    <PUSH ATM219>
		    <DEAD ATM219>
		    <CALL 'SETG 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 'SETG>
		    <PUSH NUM-SYM20>
		    <DEAD NUM-SYM20>
		    <PUSH NUM4>
		    <DEAD NUM4>
		    <CALL 'SETG 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 'INIT-VARIABLE-CACHE>
		    <CALL 'INIT-VARIABLE-CACHE 0 = TEMP13>
		    <RETURN TEMP13>
		    <DEAD TEMP13>
		    <END INITIALIZE-ACS>

#WORD *4710270376*
		    <GFCN RESET-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 'INIT-STACK-MODEL>
		    <CALL 'INIT-STACK-MODEL 0>
		    <FRAME 'INIT-VAR-LIST>
		    <CALL 'INIT-VAR-LIST 0>
		    <SETG 'STATUS-AC %<>>
		    <SETG 'STATUS-VAR %<>>
		    <RETURN %<>>
		    <END RESET-AC-STACK-MODEL>

#WORD *16523617443*
		    <GFCN CLEAR-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 CLEAR-DEATH>

#WORD *23453776443*
		    <GFCN INDICATE-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 INDICATE-ALL-DEAD>

#WORD *11435742452*
		    <GFCN SAFE-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 'FIND-CACHE-VAR>
		    <PUSH VAR16>
		    <CALL 'FIND-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 'COUNT-NEEDED?>
		    <NTHUV LV17 5 = STACK (TYPE ATOM)>
		    <CALL 'COUNT-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 'EMIT>
		    <PUSH 212>
		    <FRAME 'ADDR-VAR-TYPE>
		    <PUSH VAR16>
		    <CALL 'ADDR-VAR-TYPE 1 = STACK>
		    <CALL 'EMIT 2>
PHRASE32
		    <FRAME 'DEAD-VAR>
		    <PUSH VAR16>
		    <DEAD VAR16>
		    <CALL 'DEAD-VAR 1>
PHRASE23
		    <RESTUV VARS4 1 = VARS4 (TYPE VECTOR)>
		    <JUMP + MAP6>
MAPAP9
		    <RETURN 'NORMAL>
		    <END SAFE-DEAD-VAR>

#WORD *24302232203*
		    <GFCN DEAD-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 'FIND-CACHE-VAR>
		    <PUSH VAR16>
		    <CALL 'FIND-CACHE-VAR 1 = LV17>
		    <TYPE? LV17 <TYPE-CODE FALSE> + BOOL22>
		    <NTHUV LV17 4 = LV17>
		    <TYPE? LV17 <TYPE-CODE FALSE> - PHRASE21>
		    <DEAD LV17>
BOOL22
		    <FRAME 'INDICATE-VAR-TEMP-DECL>
		    <PUSH VAR16>
		    <PUSH %<>>
		    <CALL 'INDICATE-VAR-TEMP-DECL 2>
PHRASE21
		    <GVAL 'ALL-ACS = LV17>
		    <LOOP>
MAP27
		    <INTGO>
		    <EMPUV? LV17 + MAPAP30>
		    <NTHUV LV17 1 = AC37>
		    <FRAME 'BREAK-LINK>
		    <PUSH AC37>
		    <DEAD AC37>
		    <PUSH VAR16>
		    <CALL 'BREAK-LINK 2>
		    <RESTUV LV17 1 = LV17 (TYPE VECTOR)>
		    <JUMP + MAP27>
MAPAP30
		    <RESTUV VARS4 1 = VARS4 (TYPE VECTOR)>
		    <JUMP + MAP6>
MAPAP9
		    <RETURN 'NORMAL>
		    <END DEAD-VAR>

#WORD *3721622763*
		    <GFCN USE-ALL-ACS ("VALUE" ANY)>
		    <TEMP TEMP7 TEMP10:VECTOR>
		    <INTGO>
		    <SET TEMP7 %<> (TYPE FALSE)>
		    <GVAL 'ALL-ACS = TEMP10>
		    <LOOP>
MAP5
		    <INTGO>
		    <EMPUV? TEMP10 + MAP4>
		    <FRAME 'USE-AC>
		    <NTHUV TEMP10 1 = STACK>
		    <CALL 'USE-AC 1 = TEMP7>
		    <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
		    <JUMP + MAP5>
MAP4
		    <RETURN TEMP7>
		    <DEAD TEMP7>
		    <END USE-ALL-ACS>

<GDECL (EMPTY-VAR) VARTBL (EMPTY-LINKVAR) LINKVAR>

#WORD *174743027*
		    <GFCN CREATE-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 CREATE-LINKVAR>

#WORD *20511546341*
		    <GFCN COPY-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 COPY-LINKVAR>

"THIS OPERATION SAYS THAT THE TYPE-WORD, VALUE-WORD, COUNT, OR TYPE
 OF A VARIABLE IS IN AN AC"

#WORD *32224011717*
		    <GFCN LINK-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 'CACHE-VAR>
		    <PUSH VAR7>
		    <CALL 'CACHE-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 'OR?>
		    <NTHUV LV13 8 = STACK>
		    <NTHUV LV13 9 = STACK>
		    <CALL 'OR? 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 'PLACE-LV-IN-AC>
		    <PUSH AC8>
		    <PUSH LV13>
		    <CALL 'PLACE-LV-IN-AC 2>
		    <EQUAL? KIND9 'TYPE-VALUE-PAIR - PHRASE29>
		    <FRAME 'PLACE-LV-IN-AC>
		    <FRAME 'NEXT-AC>
		    <PUSH AC8>
		    <CALL 'NEXT-AC 1 = STACK>
		    <PUSH LV13>
		    <CALL 'PLACE-LV-IN-AC 2>
PHRASE29
		    <TYPE? FLUSH-DECL11 <TYPE-CODE FALSE> + BOOL32>
		    <DEAD FLUSH-DECL11>
		    <FRAME 'INDICATE-VAR-TEMP-DECL>
		    <PUSH VAR7>
		    <DEAD VAR7>
		    <PUSH %<>>
		    <CALL 'INDICATE-VAR-TEMP-DECL 2>
BOOL32
		    <EQUAL? KIND9 'TYPE-VALUE-PAIR - PHRASE35>
		    <NTHUV LV13 9 = TEMP21>
		    <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL36>
		    <FRAME 'REMOVE-LV-FROM-AC>
		    <PUSH TEMP21>
		    <DEAD TEMP21>
		    <PUSH LV13>
		    <CALL 'REMOVE-LV-FROM-AC 2>
BOOL36
		    <PUTUV LV13 9 AC8>
		    <FRAME 'NEXT-AC>
		    <PUSH AC8>
		    <DEAD AC8>
		    <CALL 'NEXT-AC 1 = AC8>
		    <NTHUV LV13 6 = TEMP21>
		    <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL39>
		    <FRAME 'REMOVE-LV-FROM-AC>
		    <PUSH TEMP21>
		    <DEAD TEMP21>
		    <PUSH LV13>
		    <CALL 'REMOVE-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 'REMOVE-LV-FROM-AC>
		    <PUSH TEMP21>
		    <DEAD TEMP21>
		    <PUSH LV13>
		    <CALL 'REMOVE-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 'REMOVE-LV-FROM-AC>
		    <PUSH TEMP21>
		    <DEAD TEMP21>
		    <PUSH LV13>
		    <CALL 'REMOVE-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 'REMOVE-LV-FROM-AC>
		    <PUSH TEMP21>
		    <DEAD TEMP21>
		    <PUSH LV13>
		    <CALL 'REMOVE-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 'REMOVE-LV-FROM-AC>
		    <PUSH TEMP21>
		    <DEAD TEMP21>
		    <PUSH LV13>
		    <CALL 'REMOVE-LV-FROM-AC 2>
BOOL51
		    <PUTUV LV13 8 AC8>
		    <DEAD AC8>
		    <JUMP + COND34>
PHRASE50
		    <FRAME 'ERROR>
		    <PUSH 'BAD-MODE>
		    <PUSH KIND9>
		    <DEAD KIND9>
		    <PUSH 'LINK-VAR-TO-AC>
		    <CALL 'ERROR 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 LINK-VAR-TO-AC>

#WORD *17370210317*
		    <GFCN PLACE-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 'USE-AC>
		    <PUSH AC4>
		    <CALL 'USE-AC 1>
BOOL22
		    <PUTUV AC4 8 VARS6>
		    <DEAD VARS6>
		    <RETURN AC4>
		    <DEAD AC4>
		    <END PLACE-LV-IN-AC>

#WORD *10007674551*
		    <GFCN REMOVE-LV-FROM-AC ("VALUE" AC AC LINKVAR) AC4 LV5>
		    <TEMP VARS6:VECTOR>
		    <INTGO>
		    <NTHUV AC4 8 = VARS6 (TYPE VECTOR)>
		    <FRAME 'REMOVE-LINKVAR>
		    <PUSH LV5>
		    <DEAD LV5>
		    <PUSH VARS6>
		    <DEAD VARS6>
		    <CALL 'REMOVE-LINKVAR 2 = VARS6>
		    <PUTUV AC4 8 VARS6>
		    <DEAD VARS6>
		    <RETURN AC4>
		    <DEAD AC4>
		    <END REMOVE-LV-FROM-AC>

#WORD *14405234700*
		    <GFCN INDICATE-CACHED-VARIABLE-DECL ("VALUE" ANY VARTBL <OR FALSE ATOM>) VAR4 DECL5>
		    <TEMP LV6 TEMP10>
		    <INTGO>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR4>
		    <CALL 'FIND-CACHE-VAR 1 = LV6>
		    <SET TEMP10 LV6>
		    <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
		    <PUTUV LV6 5 DECL5>
		    <DEAD LV6>
		    <FRAME 'INDICATE-VAR-TEMP-DECL>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <PUSH DECL5>
		    <DEAD DECL5>
		    <CALL 'INDICATE-VAR-TEMP-DECL 2 = TEMP10>
PHRASE9
		    <RETURN TEMP10>
		    <DEAD TEMP10>
		    <END INDICATE-CACHED-VARIABLE-DECL>

#WORD *31222514405*
		    <GFCN INDICATE-CACHED-VARIABLE-STORED ("VALUE" <OR FALSE LINKVAR> VARTBL <OR FALSE ATOM> ATOM) VAR4 STORED?5 TYP6>
		    <TEMP LV7 TEMP10>
		    <INTGO>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <CALL 'FIND-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 INDICATE-CACHED-VARIABLE-STORED>

#WORD *16111701075*
		    <GFCN INIT-VARIABLE-CACHE ("VALUE" AC-STATE)>
		    <TEMP TEMP7 RES4:VECTOR TEMP9>
		    <INTGO>
		    <FRAME 'INIT-VAR-LIST>
		    <CALL 'INIT-VAR-LIST 0>
		    <FRAME 'CREATE-VAR>
		    <PUSH '\ >
		    <PUSH 'T>
		    <CALL 'CREATE-VAR 2 = TEMP7>
		    <SETG 'EMPTY-VAR TEMP7>
		    <DEAD TEMP7>
		    <FRAME 'CREATE-LINKVAR>
		    <GVAL 'EMPTY-VAR = STACK>
		    <CALL 'CREATE-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 INIT-VARIABLE-CACHE>

#WORD *20754454723*
		    <GFCN FIND-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 FIND-CACHE-VAR>

#WORD *32064602743*
		    <GFCN VAR-VALUE-IN-AC? ("VALUE" <OR AC FALSE> VARTBL) VAR4>
		    <TEMP LVAR5 TEMP8>
		    <INTGO>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <CALL 'FIND-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 VAR-VALUE-IN-AC?>

#WORD *36042045460*
		    <GFCN VAR-TYPE-IN-AC? ("VALUE" <OR AC FALSE> VARTBL) VAR4>
		    <TEMP LVAR5 TEMP8>
		    <INTGO>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <CALL 'FIND-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 VAR-TYPE-IN-AC?>

#WORD *23264704741*
		    <GFCN VAR-COUNT-IN-AC? ("VALUE" <OR AC FALSE> VARTBL) VAR4>
		    <TEMP LVAR5 TEMP8>
		    <INTGO>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <CALL 'FIND-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 VAR-COUNT-IN-AC?>

#WORD *21266410040*
		    <GFCN VAR-TYPE-WORD-IN-AC? ("VALUE" <OR AC FALSE> VARTBL) VAR4>
		    <TEMP LVAR5 TEMP8>
		    <INTGO>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <CALL 'FIND-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 VAR-TYPE-WORD-IN-AC?>

#WORD *6605014644*
		    <GFCN VAR-COUNT-STORED? ("VALUE" ANY ANY) VAR4>
		    <TEMP LVAR5>
		    <INTGO>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR4>
		    <CALL 'FIND-CACHE-VAR 1 = LVAR5>
		    <TYPE? LVAR5 <TYPE-CODE FALSE> + PHRASE7>
		    <NTHUV LVAR5 3 = LVAR5>
		    <TYPE? LVAR5 <TYPE-CODE FALSE> + COND6>
		    <FRAME 'ADDR-VAR-COUNT>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <CALL 'ADDR-VAR-COUNT 1 = LVAR5>
		    <RETURN LVAR5>
		    <DEAD LVAR5>
PHRASE7
		    <FRAME 'ADDR-VAR-COUNT>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <CALL 'ADDR-VAR-COUNT 1 = LVAR5>
COND6
		    <RETURN LVAR5>
		    <DEAD LVAR5>
		    <END VAR-COUNT-STORED?>

#WORD *1043333760*
		    <GFCN SAFE-TYPE-WORD? ("VALUE" <OR AC ATOM FALSE> VARTBL) VAR4>
		    <TEMP LVAR5 TEMP10>
		    <INTGO>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR4>
		    <CALL 'FIND-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 'COUNT-NEEDED?>
		    <NTHUV LVAR5 5 = STACK>
		    <DEAD LVAR5>
		    <CALL 'COUNT-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 SAFE-TYPE-WORD?>

#WORD *21765737467*
		    <GFCN CACHE-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 'FIND-CACHE-VAR>
		    <PUSH VAR6>
		    <CALL 'FIND-CACHE-VAR 1 = RES8>
		    <TYPE? RES8 <TYPE-CODE FALSE> - PHRASE12>
		    <GVAL 'VARIABLE-CACHE = CACHE9>
		    <TYPE? LVC7 <TYPE-CODE FALSE> + PHRASE14>
		    <FRAME 'COPY-LINKVAR>
		    <PUSH LVC7>
		    <DEAD LVC7>
		    <CALL 'COPY-LINKVAR 1 = RES8>
		    <JUMP + COND13>
PHRASE14
		    <FRAME 'CREATE-LINKVAR>
		    <PUSH VAR6>
		    <DEAD VAR6>
		    <CALL 'CREATE-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 CACHE-VAR>

#WORD *27141656646*
		    <GFCN BREAK-LINK ("VALUE" <OR FALSE <VECTOR [REST LINKVAR]>> AC VARTBL) AC4 VAR5>
		    <TEMP VARS6 TEMP10>
		    <INTGO>
		    <NTHUV AC4 8 = VARS6 (TYPE VECTOR)>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR5>
		    <DEAD VAR5>
		    <PUSH VARS6>
		    <DEAD VARS6>
		    <CALL 'FIND-CACHE-VAR 2 = VARS6>
		    <SET TEMP10 VARS6>
		    <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE20>
		    <FRAME 'REMOVE-LV-FROM-AC>
		    <PUSH AC4>
		    <PUSH VARS6>
		    <CALL 'REMOVE-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 'REMOVE-VAR-FROM-CACHE>
		    <PUSH VARS6>
		    <DEAD VARS6>
		    <CALL 'REMOVE-VAR-FROM-CACHE 1 = TEMP10>
PHRASE20
		    <RETURN TEMP10>
		    <DEAD TEMP10>
		    <END BREAK-LINK>

#WORD *24232642212*
		    <GFCN REMOVE-VAR-FROM-CACHE ("VALUE" AC-STATE ANY) LV4>
		    <TEMP TEMP6:VECTOR>
		    <INTGO>
		    <FRAME 'REMOVE-LINKVAR>
		    <PUSH LV4>
		    <DEAD LV4>
		    <GVAL 'VARIABLE-CACHE = STACK>
		    <CALL 'REMOVE-LINKVAR 2 = TEMP6>
		    <SETG 'VARIABLE-CACHE TEMP6>
		    <RETURN TEMP6>
		    <DEAD TEMP6>
		    <END REMOVE-VAR-FROM-CACHE>

#WORD *32346746506*
		    <GFCN REMOVE-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 REMOVE-LINKVAR>

#WORD *15407655045*
		    <GFCN CLEAR-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 'BREAK-LINK>
		    <PUSH AC7>
		    <NTHUV LV22 1 = STACK (TYPE VARTBL)>
		    <CALL 'BREAK-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 'BREAK-LINK>
		    <PUSH TAC23>
		    <DEAD TAC23>
		    <NTHUV LV22 1 = STACK (TYPE VARTBL)>
		    <CALL 'BREAK-LINK 2>
PHRASE31
		    <NTHUV LV22 9 = TAC23>
		    <TYPE? TAC23 <TYPE-CODE FALSE> + PHRASE35>
		    <VEQUAL? TAC23 AC7 + PHRASE35>
		    <FRAME 'BREAK-LINK>
		    <PUSH TAC23>
		    <DEAD TAC23>
		    <NTHUV LV22 1 = STACK (TYPE VARTBL)>
		    <CALL 'BREAK-LINK 2>
PHRASE35
		    <NTHUV LV22 7 = TAC23>
		    <TYPE? TAC23 <TYPE-CODE FALSE> + PHRASE39>
		    <VEQUAL? TAC23 AC7 + PHRASE39>
		    <FRAME 'BREAK-LINK>
		    <PUSH TAC23>
		    <DEAD TAC23>
		    <NTHUV LV22 1 = STACK (TYPE VARTBL)>
		    <CALL 'BREAK-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 'BREAK-LINK>
		    <PUSH TAC23>
		    <DEAD TAC23>
		    <NTHUV LV22 1 = STACK (TYPE VARTBL)>
		    <DEAD LV22>
		    <CALL 'BREAK-LINK 2 = TEMP20>
PHRASE43
		    <RESTUV VARS10 1 = VARS10 (TYPE VECTOR)>
		    <JUMP + MAP12>
MAPAP15
		    <RETURN TEMP20>
		    <DEAD TEMP20>
		    <END CLEAR-VARS-FROM-AC>

#WORD *25164767002*
		    <GFCN MUNG-AC ("VALUE" <OR FALSE <VECTOR [REST LINKVAR]>> AC) VAC4>
		    <TEMP TEMP8>
		    <INTGO>
		    <FRAME 'STORE-AC>
		    <PUSH VAC4>
		    <PUSH 'T>
		    <CALL 'STORE-AC 2>
		    <FRAME 'USE-AC>
		    <PUSH VAC4>
		    <CALL 'USE-AC 1>
		    <FRAME 'CLEAR-VARS-FROM-AC>
		    <PUSH VAC4>
		    <DEAD VAC4>
		    <CALL 'CLEAR-VARS-FROM-AC 1 = TEMP8>
		    <RETURN TEMP8>
		    <DEAD TEMP8>
		    <END MUNG-AC>

#WORD *12771605461*
		    <GFCN FLUSH-ACS ("VALUE" ANY)>
		    <TEMP TEMP7 TEMP10:VECTOR>
		    <INTGO>
		    <SET TEMP7 %<> (TYPE FALSE)>
		    <GVAL 'ALL-ACS = TEMP10>
		    <LOOP>
MAP5
		    <INTGO>
		    <EMPUV? TEMP10 + MAP4>
		    <FRAME 'MUNG-AC>
		    <NTHUV TEMP10 1 = STACK>
		    <CALL 'MUNG-AC 1 = TEMP7>
		    <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
		    <JUMP + MAP5>
MAP4
		    <RETURN TEMP7>
		    <DEAD TEMP7>
		    <END FLUSH-ACS>

#WORD *37232707022*
		    <GFCN EXCH-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 'CLOAD-AC>
		    <PUSH AC14>
		    <CALL 'CLOAD-AC 1>
		    <FRAME 'CLOAD-AC>
		    <PUSH AC25>
		    <CALL 'CLOAD-AC 1>
		    <SET TEMP7 %<> (TYPE FALSE)>
		    <GVAL 'VARIABLE-CACHE = VARS6>
		    <LOOP>
MAP11
		    <INTGO>
		    <EMPUV? VARS6 + MAPAP14>
		    <NTHUV VARS6 1 = LV21>
		    <FRAME 'EXCH-TEST>
		    <PUSH AC14>
		    <PUSH AC25>
		    <NTHUV LV21 6 = STACK>
		    <CALL 'EXCH-TEST 3 = TEMP7>
		    <PUTUV LV21 6 TEMP7>
		    <DEAD TEMP7>
		    <FRAME 'EXCH-TEST>
		    <PUSH AC14>
		    <PUSH AC25>
		    <NTHUV LV21 7 = STACK>
		    <CALL 'EXCH-TEST 3 = TEMP7>
		    <PUTUV LV21 7 TEMP7>
		    <DEAD TEMP7>
		    <FRAME 'EXCH-TEST>
		    <PUSH AC14>
		    <PUSH AC25>
		    <NTHUV LV21 8 = STACK>
		    <CALL 'EXCH-TEST 3 = TEMP7>
		    <PUTUV LV21 8 TEMP7>
		    <DEAD TEMP7>
		    <FRAME 'EXCH-TEST>
		    <PUSH AC14>
		    <PUSH AC25>
		    <NTHUV LV21 9 = STACK>
		    <CALL 'EXCH-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 EXCH-AC>

#WORD *12154104727*
		    <GFCN EXCH-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 EXCH-TEST>

#WORD *35057322011*
		    <GFCN MOVE-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 'USE-AC>
		    <PUSH AC14>
		    <CALL 'USE-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 'ADJUST-LENGTH>
		    <PUSH VARS27>
		    <DEAD VARS27>
		    <LENUV VARS16 = STACK (TYPE FIX)>
		    <CALL 'ADJUST-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 'CLEAR-VARS-FROM-AC>
		    <PUSH AC14>
		    <DEAD AC14>
		    <CALL 'CLEAR-VARS-FROM-AC 1 = TEMP24>
		    <RETURN TEMP24>
		    <DEAD TEMP24>
		    <END MOVE-AC>

#WORD *35337723700*
		    <GFCN ADJUST-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 ADJUST-LENGTH>

#WORD *4153764447*
		    <GFCN SET-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 SET-AC-AGE>

#WORD *4135344073*
		    <GFCN USE-AC ("VALUE" AC AC) AC4>
		    <TEMP>
		    <INTGO>
		    <PUTUV AC4 9 'T>
		    <RETURN AC4>
		    <DEAD AC4>
		    <END USE-AC>

#WORD *25411156030*
		    <GFCN PROTECT ("VALUE" AC AC) AC4>
		    <TEMP>
		    <INTGO>
		    <PUTUV AC4 4 'T>
		    <RETURN AC4>
		    <DEAD AC4>
		    <END PROTECT>

#WORD *26476055667*
		    <GFCN PROTECT-USE ("VALUE" AC AC) AC4>
		    <TEMP TEMP7:AC>
		    <INTGO>
		    <FRAME 'PROTECT>
		    <PUSH AC4>
		    <CALL 'PROTECT 1>
		    <FRAME 'USE-AC>
		    <PUSH AC4>
		    <DEAD AC4>
		    <CALL 'USE-AC 1 = TEMP7>
		    <RETURN TEMP7>
		    <DEAD TEMP7>
		    <END PROTECT-USE>

#WORD *31107311045*
		    <GFCN UNPROTECT ("VALUE" AC AC) AC4>
		    <TEMP>
		    <INTGO>
		    <PUTUV AC4 4 %<>>
		    <RETURN AC4>
		    <DEAD AC4>
		    <END UNPROTECT>

#WORD *3020661073*
		    <GFCN UNPROTECT-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 'UNPROTECT>
		    <NTHUV TEMP10 1 = STACK>
		    <CALL 'UNPROTECT 1 = TEMP7>
		    <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
		    <JUMP + MAP5>
MAP4
		    <RETURN TEMP7>
		    <DEAD TEMP7>
		    <END UNPROTECT-ACS>

#WORD *26245667474*
		    <GFCN LOAD-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 'CLEAR-STATUS>
		    <CALL 'CLEAR-STATUS 0 = TEMP6>
		    <RETURN TEMP6>
		    <DEAD TEMP6>
		    <END LOAD-AC>

#WORD *21310044426*
		    <GFCN CLOAD-AC ("VALUE" AC AC) AC4>
		    <TEMP>
		    <INTGO>
		    <PUTUV AC4 6 %<>>
		    <PUTUV AC4 7 %<>>
		    <RETURN AC4>
		    <DEAD AC4>
		    <END CLOAD-AC>

#WORD *10575071642*
		    <GFCN SET-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 'CLEAR-STATUS>
		    <CALL 'CLEAR-STATUS 0 = TEMP7>
		    <RETURN TEMP7>
		    <DEAD TEMP7>
		    <END SET-STATUS-AC>

#WORD *5003173422*
		    <GFCN SET-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 SET-STATUS-VAR>

#WORD *23660435346*
		    <GFCN CLEAR-STATUS ("VALUE" <OR FALSE VARTBL>)>
		    <TEMP>
		    <INTGO>
		    <SETG 'STATUS-AC %<>>
		    <SETG 'STATUS-VAR %<>>
		    <RETURN %<>>
		    <END CLEAR-STATUS>

#WORD *15143701462*
		    <GFCN STATUS? ("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 'FIND-CACHE-VAR>
		    <PUSH VAR4>
		    <NTHUV SAC7 8 = STACK (TYPE VECTOR)>
		    <CALL 'FIND-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 STATUS?>

#WORD *26464166206*
		    <GFCN PRINT-LINKVAR ("VALUE" STRING LINKVAR) LV4>
		    <TEMP OUTCHAN5 TEMP10>
		    <INTGO>
		    <GEN-LVAL 'OUTCHAN = OUTCHAN5>
		    <FRAME 'PRINC>
		    <PUSH "#LINKVAR [">
		    <PUSH OUTCHAN5>
		    <CALL 'PRINC 2>
		    <FRAME 'PRINC>
		    <NTHUV LV4 1 = TEMP10 (TYPE VARTBL)>
		    <NTHUV TEMP10 1 = STACK (TYPE ATOM)>
		    <DEAD TEMP10>
		    <PUSH OUTCHAN5>
		    <CALL 'PRINC 2>
		    <FRAME 'PRINC>
		    <PUSH " ">
		    <PUSH OUTCHAN5>
		    <CALL 'PRINC 2>
		    <FRAME 'PRINC>
		    <NTHUV LV4 5 = STACK>
		    <PUSH OUTCHAN5>
		    <CALL 'PRINC 2>
		    <FRAME 'TESTPRINT>
		    <NTHUV LV4 6 = STACK>
		    <PUSH "VALUE">
		    <PUSH OUTCHAN5>
		    <CALL 'TESTPRINT 3>
		    <FRAME 'TESTPRINT>
		    <NTHUV LV4 7 = STACK>
		    <PUSH "TYPE">
		    <PUSH OUTCHAN5>
		    <CALL 'TESTPRINT 3>
		    <FRAME 'TESTPRINT>
		    <NTHUV LV4 9 = STACK>
		    <PUSH "TYPE-WORD">
		    <PUSH OUTCHAN5>
		    <CALL 'TESTPRINT 3>
		    <FRAME 'TESTPRINT>
		    <NTHUV LV4 8 = STACK>
		    <DEAD LV4>
		    <PUSH "COUNT">
		    <PUSH OUTCHAN5>
		    <CALL 'TESTPRINT 3>
		    <FRAME 'PRINC>
		    <PUSH "]">
		    <PUSH OUTCHAN5>
		    <DEAD OUTCHAN5>
		    <CALL 'PRINC 2 = TEMP10>
		    <RETURN TEMP10>
		    <DEAD TEMP10>
		    <END PRINT-LINKVAR>

#WORD *1376230320*
		    <GFCN TESTPRINT ("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 'PRINC>
		    <PUSH " #">
		    <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
		    <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
		    <DEAD TEMP9>
		    <CALL 'PRINC 2>
		    <FRAME 'PRINC>
		    <PUSH TYP5>
		    <DEAD TYP5>
		    <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
		    <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
		    <DEAD TEMP9>
		    <CALL 'PRINC 2>
		    <FRAME 'PRINC>
		    <PUSH " ">
		    <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
		    <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
		    <DEAD TEMP9>
		    <CALL 'PRINC 2>
		    <FRAME 'PRIN1>
		    <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 'PRIN1 2 = TEMP9>
PHRASE8
		    <UNBIND TEMP3>
		    <DEAD TEMP3>
		    <ADJ -9>
		    <RETURN TEMP9>
		    <DEAD TEMP9>
		    <END TESTPRINT>

<COND (<GASSIGNED? PRINT-LINKVAR> <PRINTTYPE LINKVAR ,PRINT-LINKVAR>)>

#WORD *3535053551*
		    <GFCN PRINT-AC ("VALUE" STRING AC) AC4>
		    <TEMP OUTCHAN5 TEMP22:VECTOR LV23:LINKVAR>
		    <INTGO>
		    <GEN-LVAL 'OUTCHAN = OUTCHAN5>
		    <FRAME 'PRINC>
		    <PUSH "#AC [">
		    <PUSH OUTCHAN5>
		    <CALL 'PRINC 2>
		    <FRAME 'PRIN1>
		    <NTHUV AC4 1 = STACK (TYPE ATOM)>
		    <PUSH OUTCHAN5>
		    <CALL 'PRIN1 2>
		    <FRAME 'PRINC>
		    <PUSH " ">
		    <PUSH OUTCHAN5>
		    <CALL 'PRINC 2>
		    <NTHUV AC4 8 = TEMP22 (TYPE VECTOR)>
		    <LOOP>
MAP12
		    <INTGO>
		    <EMPUV? TEMP22 + MAPAP15>
		    <NTHUV TEMP22 1 = LV23>
		    <FRAME 'PRINT-SHORT-LINKVAR>
		    <PUSH LV23>
		    <DEAD LV23>
		    <PUSH AC4>
		    <CALL 'PRINT-SHORT-LINKVAR 2>
		    <RESTUV TEMP22 1 = TEMP22 (TYPE VECTOR)>
		    <JUMP + MAP12>
MAPAP15
		    <FRAME 'PRINC>
		    <PUSH "]">
		    <PUSH OUTCHAN5>
		    <DEAD OUTCHAN5>
		    <CALL 'PRINC 2 = OUTCHAN5>
		    <RETURN OUTCHAN5>
		    <DEAD OUTCHAN5>
		    <END PRINT-AC>

<COND (<GASSIGNED? PRINT-AC> <PRINTTYPE AC ,PRINT-AC>)>

#WORD *22043563371*
		    <GFCN PRINT-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 'PRINC>
		    <PUSH "#TYPE ">
		    <PUSH OUTCHAN6>
		    <CALL 'PRINC 2>
		    <JUMP + PHRASE17>
PHRASE10
		    <NTHUV LV4 6 = TEMP11>
		    <EQUAL? TEMP11 AC5 - PHRASE13>
		    <DEAD TEMP11>
		    <FRAME 'PRINC>
		    <PUSH "#VALUE ">
		    <PUSH OUTCHAN6>
		    <CALL 'PRINC 2>
		    <JUMP + PHRASE17>
PHRASE13
		    <NTHUV LV4 9 = TEMP11>
		    <EQUAL? TEMP11 AC5 - PHRASE15>
		    <DEAD TEMP11>
		    <FRAME 'PRINC>
		    <PUSH "#TYPE-WORD ">
		    <PUSH OUTCHAN6>
		    <CALL 'PRINC 2>
		    <JUMP + PHRASE17>
PHRASE15
		    <NTHUV LV4 8 = TEMP11>
		    <EQUAL? TEMP11 AC5 - PHRASE17>
		    <DEAD TEMP11>
		    <FRAME 'PRINC>
		    <PUSH "#COUNT ">
		    <PUSH OUTCHAN6>
		    <CALL 'PRINC 2>
PHRASE17
		    <FRAME 'PRINC>
		    <NTHUV LV4 1 = TEMP11 (TYPE VARTBL)>
		    <DEAD LV4>
		    <NTHUV TEMP11 1 = STACK (TYPE ATOM)>
		    <DEAD TEMP11>
		    <PUSH OUTCHAN6>
		    <CALL 'PRINC 2>
		    <FRAME 'PRINC>
		    <PUSH " ">
		    <PUSH OUTCHAN6>
		    <DEAD OUTCHAN6>
		    <CALL 'PRINC 2 = TEMP11>
		    <RETURN TEMP11>
		    <DEAD TEMP11>
		    <END PRINT-SHORT-LINKVAR>

#WORD *35711215061*
		    <GFCN FREE-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 'FIND-FREE-AC>
		    <GVAL 'TYPE-ACS = STACK>
		    <PUSH HOWFREE?7>
		    <DEAD HOWFREE?7>
		    <CALL 'FIND-FREE-AC 2 = TEMP10>
		    <RETURN TEMP10>
		    <DEAD TEMP10>
		    <END FREE-TYPE-AC?>

#WORD *2020513542*
		    <GFCN FREE-VALUE-AC? ("VALUE" ANY "OPTIONAL" ANY) HOWFREE?6>
		    <OPT-DISPATCH 0 %<> OPT4 OPT5>
OPT4
		    <PUSH 'NOVARS>
OPT5
		    <TEMP TEMP8>
		    <INTGO>
		    <FRAME 'FIND-FREE-AC>
		    <GVAL 'VAL-ACS = STACK>
		    <PUSH HOWFREE?6>
		    <DEAD HOWFREE?6>
		    <CALL 'FIND-FREE-AC 2 = TEMP8>
		    <RETURN TEMP8>
		    <DEAD TEMP8>
		    <END FREE-VALUE-AC?>

#WORD *30635022433*
		    <GFCN FREE-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 'FIND-FREE-PAIR>
		    <PUSH HOWFREE?8>
		    <DEAD HOWFREE?8>
		    <CALL 'FIND-FREE-PAIR 1 = TEMP12>
		    <RETURN TEMP12>
		    <DEAD TEMP12>
PHRASE10
		    <EQUAL? PREF7 'NONE - PHRASE13>
		    <FRAME 'FIND-FREE-AC>
		    <GVAL 'ALL-ACS = STACK>
		    <PUSH HOWFREE?8>
		    <DEAD HOWFREE?8>
		    <CALL 'FIND-FREE-AC 2 = TEMP12>
		    <RETURN TEMP12>
		    <DEAD TEMP12>
PHRASE13
		    <EQUAL? PREF7 'TYPE + BOOL16>
		    <EQUAL? PREF7 'PREF-TYPE - PHRASE15>
BOOL16
		    <FRAME 'FIND-FREE-AC>
		    <GVAL 'TYPE-ACS = STACK>
		    <PUSH HOWFREE?8>
		    <CALL 'FIND-FREE-AC 2 = TEMP12>
		    <TYPE? TEMP12 <TYPE-CODE FALSE> - COND9>
		    <FRAME 'FIND-FREE-AC>
		    <GVAL 'VAL-ACS = STACK>
		    <PUSH HOWFREE?8>
		    <DEAD HOWFREE?8>
		    <CALL 'FIND-FREE-AC 2 = TEMP12>
		    <RETURN TEMP12>
		    <DEAD TEMP12>
PHRASE15
		    <EQUAL? PREF7 'VALUE + BOOL21>
		    <EQUAL? PREF7 'PREF-VAL - PHRASE20>
		    <DEAD PREF7>
BOOL21
		    <FRAME 'FIND-FREE-AC>
		    <GVAL 'VAL-ACS = STACK>
		    <PUSH HOWFREE?8>
		    <CALL 'FIND-FREE-AC 2 = TEMP12>
		    <TYPE? TEMP12 <TYPE-CODE FALSE> - COND9>
		    <FRAME 'FIND-FREE-AC>
		    <GVAL 'TYPE-ACS = STACK>
		    <PUSH HOWFREE?8>
		    <DEAD HOWFREE?8>
		    <CALL 'FIND-FREE-AC 2 = TEMP12>
		    <RETURN TEMP12>
		    <DEAD TEMP12>
PHRASE20
		    <FRAME 'ERROR>
		    <PUSH 'BAD-PREFERENCE>
		    <PUSH 'FREE-AC?>
		    <CALL 'ERROR 2 = TEMP12>
COND9
		    <RETURN TEMP12>
		    <DEAD TEMP12>
		    <END FREE-AC?>

#WORD *2770344334*
		    <GFCN FIND-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 'ALL-DEAD?>
		    <PUSH AC19>
		    <CALL 'ALL-DEAD? 1 = TEMP18>
		    <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE33>
		    <DEAD TEMP18>
		    <FRAME 'ALL-DEAD?>
		    <PUSH TEMP14>
		    <DEAD TEMP14>
		    <CALL 'ALL-DEAD? 1 = TEMP18>
		    <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE33>
		    <DEAD TEMP18>
		    <RETURN AC19>
		    <DEAD AC19>
PHRASE20
		    <EQUAL? HOWFREE?4 'STORED - PHRASE27>
		    <FRAME 'ALL-STORED?>
		    <PUSH AC19>
		    <CALL 'ALL-STORED? 1 = TEMP18>
		    <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE33>
		    <DEAD TEMP18>
		    <FRAME 'ALL-STORED?>
		    <PUSH TEMP14>
		    <DEAD TEMP14>
		    <CALL 'ALL-STORED? 1 = TEMP18>
		    <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE33>
		    <DEAD TEMP18>
		    <RETURN AC19>
		    <DEAD AC19>
PHRASE27
		    <FRAME 'ERROR>
		    <PUSH 'BAD-MODE>
		    <PUSH 'FIND-FREE-PAIR>
		    <CALL 'ERROR 2>
PHRASE33
		    <RESTUV ACS8 2 = ACS8 (TYPE VECTOR)>
		    <JUMP + AGAIN11>
		    <END FIND-FREE-PAIR>

#WORD *27655454112*
		    <GFCN FIND-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 'ALL-DEAD?>
		    <PUSH AC17>
		    <CALL 'ALL-DEAD? 1 = TEMP15>
		    <TYPE? TEMP15 <TYPE-CODE FALSE> + COND21>
		    <RETURN AC17>
		    <DEAD AC17>
PHRASE22
		    <VEQUAL? HOWFREE?5 'STORED - PHRASE25>
		    <FRAME 'ALL-STORED?>
		    <PUSH AC17>
		    <CALL 'ALL-STORED? 1 = TEMP15>
		    <TYPE? TEMP15 <TYPE-CODE FALSE> + COND21>
		    <RETURN AC17>
		    <DEAD AC17>
PHRASE25
		    <FRAME 'ERROR>
		    <PUSH 'BAD-MODE>
		    <PUSH 'FIND-FREE-AC>
		    <CALL 'ERROR 2 = TEMP15>
COND21
		    <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
		    <JUMP + MAP7>
MAPAP10
		    <RETURN TEMP15>
		    <DEAD TEMP15>
		    <END FIND-FREE-AC>

#WORD *36251131534*
		    <GFCN AC-VAR-STORED? ("VALUE" ANY VARTBL AC) VAR4 AC5>
		    <TEMP LV6:LINKVAR TEMP12>
		    <INTGO>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR4>
		    <CALL 'FIND-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 'ERROR>
		    <PUSH "VAR NOT IN AC">
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <PUSH AC5>
		    <DEAD AC5>
		    <CALL 'ERROR 3 = TEMP12>
		    <RETURN TEMP12>
		    <DEAD TEMP12>
		    <END AC-VAR-STORED?>

#WORD *22235253262*
		    <GFCN ALL-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 'ERROR>
		    <PUSH "VAR NOT IN AC">
		    <PUSH 'ALL-STORED?>
		    <CALL 'ERROR 2>
COND19
		    <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
		    <JUMP + MAP7>
MAPAP10
		    <RETURN VAL5>
		    <DEAD VAL5>
		    <END ALL-STORED?>

#WORD *7741643555*
		    <GFCN ALL-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 'WILL-DIE?>
		    <NTHUV LV18 1 = STACK (TYPE VARTBL)>
		    <DEAD LV18>
		    <CALL 'WILL-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 ALL-DEAD?>

#WORD *12771605461*
		    <GFCN FLUSH-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 'MUNG-AC>
		    <NTHUV TEMP10 1 = STACK>
		    <CALL 'MUNG-AC 1 = TEMP7>
		    <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
		    <JUMP + MAP5>
MAP4
		    <RETURN TEMP7>
		    <DEAD TEMP7>
		    <END FLUSH-ALL-ACS>

#WORD *15174413116*
		    <GFCN MOVE-TO-AC ("VALUE" ANY AC ANY ATOM) AC4 ADDR5 LEN6>
		    <TEMP TEMP10>
		    <INTGO>
		    <VEQUAL? LEN6 'LONG - PHRASE8>
		    <FRAME 'EMIT-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 'EMIT-MOVE 3>
		    <FRAME 'LOAD-AC>
		    <PUSH AC4>
		    <DEAD AC4>
		    <PUSH ADDR5>
		    <DEAD ADDR5>
		    <CALL 'LOAD-AC 2 = TEMP10>
		    <RETURN TEMP10>
		    <DEAD TEMP10>
PHRASE8
		    <VEQUAL? LEN6 'WORD - PHRASE12>
		    <FRAME 'EMIT>
		    <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 'EMIT 3 = TEMP10>
		    <RETURN TEMP10>
		    <DEAD TEMP10>
PHRASE12
		    <VEQUAL? LEN6 'BYTE + TAG16>
		    <DEAD LEN6>
		    <RETURN %<>>
TAG16
		    <FRAME 'EMIT>
		    <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 'EMIT 3 = TEMP10>
		    <RETURN TEMP10>
		    <DEAD TEMP10>
		    <END MOVE-TO-AC>

#WORD *10356412754*
		    <GFCN PREV-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 PREV-AC>

#WORD *6641606221*
		    <GFCN NEXT-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 NEXT-AC>