#WORD *31164722637*
<GFCN INIT-VAR-LIST ("VALUE" <LIST [REST VARTBL]>)>
		    <TEMP>
		    <INTGO>
		    <SETG 'VAR-LIST ()>
		    <RETURN ()>
		    <END INIT-VAR-LIST>
#WORD *760454234*
<GFCN CREATE-VAR ("VALUE" VARTBL <OR ATOM VARTBL> BOOLEAN "OPTIONAL" ANY) NAME6 TEMP7 HACK?8>
		    <OPT-DISPATCH 2 %<> OPT4 OPT5>
OPT4
		    <PUSH %<>>
OPT5
		    <TEMP TEMP14 VAR9 CMOD10:STK-MODEL>
		    <INTGO>
		    <TYPE? NAME6 <TYPE-CODE ATOM> - PHRASE12>
		    <PUSH NAME6>
		    <PUSH %<>>
		    <PUSH %<>>
		    <PUSH %<>>
		    <PUSH %<>>
		    <PUSH TEMP7>
		    <PUSH %<>>
		    <PUSH %<>>
		    <UBLOCK <TYPE-CODE VECTOR> 8 = TEMP14 (TYPE VECTOR)>
		    <CHTYPE TEMP14 <TYPE-CODE VARTBL> = VAR9>
		    <DEAD TEMP14>
		    <JUMP + PHRASE15>
PHRASE12
		    <SET VAR9 NAME6>
PHRASE15
		    <TYPE? HACK?8 <TYPE-CODE FALSE> - PHRASE20>
		    <DEAD HACK?8>
		    <NTHR 'CURRENT-MODEL 1 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL18)>
		    <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL18>
		    <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE GBIND)>
		    <TYPE? TEMP14 <TYPE-CODE UNBOUND> + BOOL18>
		    <DEAD TEMP14>
		    <GVAL 'CURRENT-MODEL = CMOD10>
		    <NTHUV CMOD10 6 = TEMP14 (TYPE LIST)>
		    <CONS VAR9 TEMP14 = TEMP14>
		    <PUTUV CMOD10 6 TEMP14 (TYPE LIST)>
		    <DEAD CMOD10 TEMP14>
BOOL18
		    <TYPE? TEMP7 <TYPE-CODE FALSE> - PHRASE20>
		    <DEAD TEMP7>
		    <FRAME 'GEN-LOC>
		    <PUSH VAR9>
		    <PUSH 0>
		    <CALL 'GEN-LOC 2>
PHRASE20
		    <TYPE? NAME6 <TYPE-CODE ATOM> - PHRASE23>
		    <DEAD NAME6>
		    <GVAL 'VAR-LIST = TEMP14>
		    <CONS VAR9 TEMP14 = TEMP14>
		    <SETG 'VAR-LIST TEMP14>
		    <DEAD TEMP14>
PHRASE23
		    <RETURN VAR9>
		    <DEAD VAR9>
		    <END CREATE-VAR>
#WORD *11652637451*
<GFCN FIND-VAR ("VALUE" <OR FALSE VARTBL> ATOM) NAME4>
		    <TEMP (VAR?5 %<>) TEMP17:LIST VAR18:VARTBL TEMP21:ATOM>
		    <INTGO>
		    <GVAL 'VAR-LIST = TEMP17>
		    <LOOP>
MAP7
		    <INTGO>
		    <EMPL? TEMP17 + MAPAP10>
		    <NTHL TEMP17 1 = VAR18>
		    <NTHUV VAR18 1 = TEMP21 (TYPE ATOM)>
		    <VEQUAL? TEMP21 NAME4 - PHRASE20>
		    <DEAD TEMP21>
		    <RETURN VAR18>
		    <DEAD VAR18>
PHRASE20
		    <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
		    <JUMP + MAP7>
MAPAP10
		    <RETURN VAR?5>
		    <DEAD VAR?5>
		    <END FIND-VAR>
#WORD *37635071767*
<GFCN INDICATE-VAR-DECL ("VALUE" VARTBL VARTBL <OR ATOM FALSE>) VAR4 DCL5>
		    <TEMP>
		    <INTGO>
		    <PUTUV VAR4 4 DCL5>
		    <DEAD DCL5>
		    <RETURN VAR4>
		    <DEAD VAR4>
		    <END INDICATE-VAR-DECL>
#WORD *23650226110*
<GFCN INDICATE-VAR-INIT ("VALUE" <OR EFF-ADDR LADDR> VARTBL ANY) VAR4 VAL5>
		    <TEMP TEMP9>
		    <INTGO>
		    <TYPE? VAL5 <TYPE-CODE FALSE> - PHRASE7>
		    <CHTYPE VAL5 <TYPE-CODE SPEC-FALSE> = VAL5>
PHRASE7
		    <PUTUV VAR4 8 VAL5>
		    <DEAD VAL5>
		    <FRAME 'GEN-LOC>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <PUSH 0>
		    <CALL 'GEN-LOC 2 = TEMP9>
		    <RETURN TEMP9>
		    <DEAD TEMP9>
		    <END INDICATE-VAR-INIT>
#WORD *36035234465*
<GFCN INDICATE-VAR-TEMP-DECL ("VALUE" VARTBL VARTBL <OR FALSE ATOM>) VAR4 DCL5>
		    <TEMP>
		    <INTGO>
		    <PUTUV VAR4 7 DCL5>
		    <DEAD DCL5>
		    <RETURN VAR4>
		    <DEAD VAR4>
		    <END INDICATE-VAR-TEMP-DECL>
#WORD *24257612470*
<GFCN FLUSH-VAR-TEMP-DECLS ("VALUE" <OR FALSE VARTBL>)>
		    <TEMP TEMP13 TEMP15:LIST>
		    <INTGO>
		    <SET TEMP13 %<> (TYPE FALSE)>
		    <GVAL 'VAR-LIST = TEMP15>
		    <LOOP>
MAP5
		    <INTGO>
		    <EMPL? TEMP15 + MAPAP8>
		    <NTHL TEMP15 1 = TEMP13>
		    <FRAME 'INDICATE-VAR-TEMP-DECL>
		    <PUSH TEMP13>
		    <DEAD TEMP13>
		    <PUSH %<>>
		    <CALL 'INDICATE-VAR-TEMP-DECL 2 = TEMP13>
		    <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
		    <JUMP + MAP5>
MAPAP8
		    <RETURN TEMP13>
		    <DEAD TEMP13>
		    <END FLUSH-VAR-TEMP-DECLS>
#WORD *26041303320*
<GFCN VARTBL-DECL ("VALUE" <OR ATOM FALSE> VARTBL) VAR4>
		    <TEMP LVAR5 TEMP8>
		    <INTGO>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR4>
		    <CALL 'FIND-CACHE-VAR 1 = LVAR5>
		    <NTHUV VAR4 4 = TEMP8>
		    <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL9>
		    <NTHUV VAR4 7 = TEMP8>
		    <DEAD VAR4>
		    <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL9>
		    <SET TEMP8 LVAR5>
		    <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL9>
		    <NTHUV LVAR5 5 = TEMP8>
		    <DEAD LVAR5>
BOOL9
		    <RETURN TEMP8>
		    <DEAD TEMP8>
		    <END VARTBL-DECL>
#WORD *10236053761*
<GFCN ADDR-VAR-VALUE ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
		    <TEMP TEMP6>
		    <INTGO>
		    <FRAME 'GEN-LOC>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <PUSH 4>
		    <CALL 'GEN-LOC 2 = TEMP6>
		    <RETURN TEMP6>
		    <DEAD TEMP6>
		    <END ADDR-VAR-VALUE>
#WORD *10236053761*
<GFCN ADDR-VAR-CHAR-VALUE ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
		    <TEMP TEMP6>
		    <INTGO>
		    <FRAME 'GEN-LOC>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <PUSH 4>
		    <CALL 'GEN-LOC 2 = TEMP6>
		    <RETURN TEMP6>
		    <DEAD TEMP6>
		    <END ADDR-VAR-CHAR-VALUE>
#WORD *10222053761*
<GFCN ADDR-VAR-COUNT ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
		    <TEMP TEMP6>
		    <INTGO>
		    <FRAME 'GEN-LOC>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <PUSH 2>
		    <CALL 'GEN-LOC 2 = TEMP6>
		    <RETURN TEMP6>
		    <DEAD TEMP6>
		    <END ADDR-VAR-COUNT>
#WORD *10226053761*
<GFCN ADDR-VAR-TYPE ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
		    <TEMP TEMP6>
		    <INTGO>
		    <FRAME 'GEN-LOC>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <PUSH 0>
		    <CALL 'GEN-LOC 2 = TEMP6>
		    <RETURN TEMP6>
		    <DEAD TEMP6>
		    <END ADDR-VAR-TYPE>
#WORD *10226053761*
<GFCN ADDR-VAR-TYPE-VALUE ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
		    <TEMP TEMP6>
		    <INTGO>
		    <FRAME 'GEN-LOC>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <PUSH 0>
		    <CALL 'GEN-LOC 2 = TEMP6>
		    <RETURN TEMP6>
		    <DEAD TEMP6>
		    <END ADDR-VAR-TYPE-VALUE>
#WORD *7537063005*
<GFCN CREATE-MODEL ("VALUE" STK-MODEL)>
		    <TEMP TEMP5>
		    <INTGO>
		    <PUSH 0>
		    <PUSH ()>
		    <PUSH ()>
		    <PUSH %<>>
		    <PUSH 0>
		    <PUSH ()>
		    <UBLOCK <TYPE-CODE VECTOR> 6 = TEMP5 (TYPE VECTOR)>
		    <CHTYPE TEMP5 <TYPE-CODE STK-MODEL> = TEMP5>
		    <RETURN TEMP5>
		    <DEAD TEMP5>
		    <END CREATE-MODEL>
#WORD *577707050*
<GFCN INIT-STACK-MODEL ("VALUE" <LIST STK-MODEL>)>
		    <TEMP MOD4>
		    <INTGO>
		    <FRAME 'CREATE-MODEL>
		    <CALL 'CREATE-MODEL 0 = MOD4>
		    <SETG 'CURRENT-MODEL MOD4>
		    <SETG 'TOP-MODEL MOD4>
		    <CONS MOD4 () = MOD4>
		    <SETG 'STACK-LEVELS MOD4>
		    <RETURN MOD4>
		    <DEAD MOD4>
		    <END INIT-STACK-MODEL>
#WORD *21326272170*
<GFCN INDICATE-TEMP-PATCH ("VALUE" STK-MODEL FIX) NUM4>
		    <TEMP TEMP5:STK-MODEL>
		    <INTGO>
		    <GVAL 'CURRENT-MODEL = TEMP5>
		    <PUTUV TEMP5 1 NUM4 (TYPE FIX)>
		    <DEAD NUM4>
		    <RETURN TEMP5>
		    <DEAD TEMP5>
		    <END INDICATE-TEMP-PATCH>
#WORD *25517704364*
<GFCN NEW-MODEL ("VALUE" STK-MODEL STK-MODEL) MODEL4>
		    <TEMP TEMP5 TEMP6:STK-MODEL>
		    <INTGO>
		    <GVAL 'CURRENT-MODEL = TEMP5>
		    <NTHUV TEMP5 3 = TEMP5 (TYPE LIST)>
		    <CONS MODEL4 TEMP5 = TEMP5>
		    <GVAL 'CURRENT-MODEL = TEMP6>
		    <PUTUV TEMP6 3 TEMP5 (TYPE LIST)>
		    <DEAD TEMP6 TEMP5>
		    <GVAL 'CURRENT-MODEL = TEMP6>
		    <PUTUV MODEL4 4 TEMP6>
		    <DEAD TEMP6>
		    <SETG 'CURRENT-MODEL MODEL4>
		    <RETURN MODEL4>
		    <DEAD MODEL4>
		    <END NEW-MODEL>
#WORD *23175543163*
<GFCN POP-MODEL ("VALUE" STK-MODEL)>
		    <TEMP TEMP6>
		    <INTGO>
		    <GVAL 'CURRENT-MODEL = TEMP6>
		    <NTHUV TEMP6 4 = TEMP6>
		    <TYPE? TEMP6 <TYPE-CODE FALSE> - PHRASE5>
		    <DEAD TEMP6>
		    <FRAME 'ERROR>
		    <PUSH "TOPLEVEL MODEL">
		    <PUSH 'POP-MODEL>
		    <CALL 'ERROR 2>
PHRASE5
		    <GVAL 'CURRENT-MODEL = TEMP6>
		    <NTHUV TEMP6 4 = TEMP6 (TYPE STK-MODEL)>
		    <SETG 'CURRENT-MODEL TEMP6>
		    <RETURN TEMP6>
		    <DEAD TEMP6>
		    <END POP-MODEL>
#WORD *7561375104*
<GFCN GEN-LOC ("VALUE" <OR EFF-ADDR LADDR> VARTBL FIX "OPTIONAL" ANY) VAR6 IOFF7 DEF?8>
		    <OPT-DISPATCH 2 %<> OPT4 OPT5>
OPT4
		    <PUSH %<>>
OPT5
		    <TEMP OFF9 CMOD10 TEMP20 TEMP21>
		    <INTGO>
		    <NTHUV VAR6 2 = OFF9>
		    <GVAL 'CURRENT-MODEL = CMOD10>
		    <LOOP>
AGAIN14
		    <INTGO>
		    <NTHUV CMOD10 6 = TEMP20 (TYPE LIST)>
		    <EMPL? TEMP20 + PHRASE16>
		    <LOOP (VAR6 VALUE) (TEMP20 VALUE)>
TAG18
		    <NTHL TEMP20 1 = TEMP21>
		    <VEQUAL? TEMP21 VAR6 + EXIT12>
		    <DEAD TEMP21>
		    <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
		    <EMPL? TEMP20 - TAG18>
PHRASE16
		    <NTHUV CMOD10 4 = CMOD10>
		    <TYPE? CMOD10 <TYPE-CODE FALSE> - AGAIN14>
		    <FRAME 'ERROR>
		    <PUSH "VARIABLE NOT FOUND">
		    <PUSH 'GEN-LOC>
		    <CALL 'ERROR 2>
		    <JUMP + AGAIN14>
EXIT12
		    <TYPE? OFF9 <TYPE-CODE FALSE> - COND25>
		    <NTHUV CMOD10 5 = OFF9 (TYPE FIX)>
		    <ADD OFF9 8 = TEMP20 (TYPE FIX)>
		    <PUTUV CMOD10 5 TEMP20 (TYPE FIX)>
		    <DEAD TEMP20>
		    <PUTUV VAR6 2 OFF9>
		    <NTHUV CMOD10 2 = TEMP20 (TYPE LIST)>
		    <EMPL? TEMP20 - PHRASE26 (TYPE LIST)>
		    <CONS VAR6 () = TEMP20>
		    <DEAD VAR6>
		    <PUTUV CMOD10 2 TEMP20 (TYPE LIST)>
		    <DEAD CMOD10 TEMP20>
		    <JUMP + COND25>
PHRASE26
		    <LOOP (TEMP20 VALUE)>
TAG27
		    <RESTL TEMP20 1 = TEMP21 (TYPE LIST)>
		    <EMPL? TEMP21 + TAG28>
		    <SET TEMP20 TEMP21>
		    <DEAD TEMP21>
		    <JUMP + TAG27>
TAG28
		    <CONS VAR6 () = TEMP21>
		    <DEAD VAR6>
		    <PUTREST TEMP20 TEMP21>
		    <DEAD TEMP20 TEMP21>
COND25
		    <ADD OFF9 IOFF7 = OFF9 (TYPE FIX)>
		    <DEAD IOFF7>
		    <TYPE? DEF?8 <TYPE-CODE FALSE> + PHRASE30>
		    <DEAD DEF?8>
		    <FRAME 'MA-DEF-DISP>
		    <GVAL 'AC-F = STACK>
		    <PUSH OFF9>
		    <DEAD OFF9>
		    <CALL 'MA-DEF-DISP 2 = TEMP21>
		    <RETURN TEMP21>
		    <DEAD TEMP21>
PHRASE30
		    <VEQUAL? OFF9 0 - PHRASE32 (TYPE FIX)>
		    <GVAL 'AC-F = OFF9>
		    <NTHUV OFF9 2 = OFF9 (TYPE FIX)>
		    <OR OFF9 #WORD *140* = OFF9>
		    <LSH OFF9 24 = OFF9 (TYPE FIX)>
		    <CHTYPE OFF9 <TYPE-CODE EFF-ADDR> = TEMP21>
		    <DEAD OFF9>
		    <RETURN TEMP21>
		    <DEAD TEMP21>
PHRASE32
		    <FRAME 'MA-DISP>
		    <GVAL 'AC-F = STACK>
		    <PUSH OFF9>
		    <DEAD OFF9>
		    <CALL 'MA-DISP 2 = TEMP21>
		    <RETURN TEMP21>
		    <DEAD TEMP21>
		    <END GEN-LOC>
#WORD *22245217221*
<GFCN EMIT-STORE-AC ("VALUE" ANY AC EFF-ADDR "OPTIONAL" ATOM) AC6 DEST7 MODE8>
		    <OPT-DISPATCH 2 %<> OPT4 OPT5>
OPT4
		    <PUSH 'LONG>
OPT5
		    <TEMP TEMP12>
		    <INTGO>
		    <NTHUV AC6 9 = TEMP12>
		    <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE10>
		    <DEAD TEMP12>
		    <NTHUV AC6 6 = TEMP12>
		    <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
		    <DEAD TEMP12>
		    <VEQUAL? MODE8 'BYTE + PHRASE10>
		    <GVAL 'AC-STORE-OPT = TEMP12>
		    <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
		    <DEAD TEMP12>
		    <NTHUV AC6 8 = TEMP12 (TYPE VECTOR)>
		    <LENUV TEMP12 = TEMP12 (TYPE FIX)>
		    <LESS? TEMP12 2 - PHRASE10 (TYPE FIX)>
		    <DEAD TEMP12>
		    <FRAME 'RE-EMIT-MOVE>
		    <NTHUV AC6 6 = STACK (TYPE FIX)>
		    <NTHUV AC6 7 = STACK>
		    <PUSH DEST7>
		    <DEAD DEST7>
		    <PUSH MODE8>
		    <DEAD MODE8>
		    <CALL 'RE-EMIT-MOVE 4>
		    <FRAME 'CLEAR-VARS-FROM-AC>
		    <PUSH AC6>
		    <DEAD AC6>
		    <CALL 'CLEAR-VARS-FROM-AC 1 = TEMP12>
		    <RETURN TEMP12>
		    <DEAD TEMP12>
PHRASE10
		    <FRAME 'USE-AC>
		    <PUSH AC6>
		    <CALL 'USE-AC 1>
		    <FRAME 'EMIT-MOVE>
		    <NTHUV AC6 2 = TEMP12 (TYPE FIX)>
		    <DEAD AC6>
		    <OR TEMP12 #WORD *120* = TEMP12>
		    <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
		    <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP12>
		    <PUSH DEST7>
		    <DEAD DEST7>
		    <PUSH MODE8>
		    <DEAD MODE8>
		    <CALL 'EMIT-MOVE 3 = TEMP12>
		    <RETURN TEMP12>
		    <DEAD TEMP12>
		    <END EMIT-STORE-AC>
#WORD *11602564461*
<GFCN EMIT-STORE-PAIR-AC ("VALUE" ANY AC AC EFF-ADDR "OPTIONAL" ATOM) AC6 AC27 DEST8 MODE9>
		    <OPT-DISPATCH 3 %<> OPT4 OPT5>
OPT4
		    <PUSH 'LONG>
OPT5
		    <TEMP TEMP13>
		    <INTGO>
		    <NTHUV AC6 9 = TEMP13>
		    <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE11>
		    <DEAD TEMP13>
		    <NTHUV AC6 6 = TEMP13>
		    <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
		    <DEAD TEMP13>
		    <VEQUAL? MODE9 'BYTE + PHRASE11>
		    <DEAD MODE9>
		    <GVAL 'AC-STORE-OPT = TEMP13>
		    <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
		    <DEAD TEMP13>
		    <NTHUV AC6 8 = TEMP13 (TYPE VECTOR)>
		    <LENUV TEMP13 = TEMP13 (TYPE FIX)>
		    <LESS? TEMP13 2 - PHRASE11 (TYPE FIX)>
		    <DEAD TEMP13>
		    <FRAME 'RE-EMIT-MOVE>
		    <NTHUV AC6 6 = STACK (TYPE FIX)>
		    <NTHUV AC6 7 = STACK>
		    <PUSH DEST8>
		    <DEAD DEST8>
		    <PUSH 'DOUBLE>
		    <CALL 'RE-EMIT-MOVE 4>
		    <FRAME 'CLEAR-VARS-FROM-AC>
		    <PUSH AC6>
		    <DEAD AC6>
		    <CALL 'CLEAR-VARS-FROM-AC 1 = TEMP13>
		    <RETURN TEMP13>
		    <DEAD TEMP13>
PHRASE11
		    <FRAME 'USE-AC>
		    <PUSH AC6>
		    <CALL 'USE-AC 1>
		    <FRAME 'USE-AC>
		    <PUSH AC27>
		    <DEAD AC27>
		    <CALL 'USE-AC 1>
		    <FRAME 'EMIT-MOVE>
		    <NTHUV AC6 2 = TEMP13 (TYPE FIX)>
		    <DEAD AC6>
		    <OR TEMP13 #WORD *120* = TEMP13>
		    <LSH TEMP13 24 = TEMP13 (TYPE FIX)>
		    <CHTYPE TEMP13 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP13>
		    <PUSH DEST8>
		    <DEAD DEST8>
		    <PUSH 'DOUBLE>
		    <CALL 'EMIT-MOVE 3 = TEMP13>
		    <RETURN TEMP13>
		    <DEAD TEMP13>
		    <END EMIT-STORE-PAIR-AC>
#WORD *347453003*
<GFCN ISTORE-VAR ("VALUE" ANY LINKVAR "OPTIONAL" <OR FALSE XREF-INFO> ANY) LVAR7 XREF8 WILL-DIE-LIES?9>
		    <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
OPT4
		    <PUSH %<>>
OPT5
		    <PUSH %<>>
OPT6
		    <TEMP VAR11:VARTBL (STOREV14 %<>) (STORET15 %<>) (STOREC16 %<>) TEMP23 TAC13>
		    <INTGO>
		    <NTHUV LVAR7 1 = VAR11 (TYPE VARTBL)>
		    <NTHUV VAR11 5 = STORET15>
		    <TYPE? STORET15 <TYPE-CODE FALSE> - BOOL57>
		    <NTHUV LVAR7 2 = TEMP23>
		    <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL22>
		    <DEAD TEMP23>
		    <NTHUV LVAR7 4 = TEMP23>
		    <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL22>
		    <DEAD TEMP23>
		    <NTHUV LVAR7 3 = STORET15>
		    <TYPE? STORET15 <TYPE-CODE FALSE> - BOOL57>
BOOL22
		    <TYPE? WILL-DIE-LIES?9 <TYPE-CODE FALSE> - BOOL24>
		    <DEAD WILL-DIE-LIES?9>
		    <FRAME 'WILL-DIE?>
		    <PUSH VAR11>
		    <CALL 'WILL-DIE? 1 = STORET15>
		    <TYPE? STORET15 <TYPE-CODE FALSE> - BOOL57>
BOOL24
		    <FRAME 'START-CODE-INSERT>
		    <CALL 'START-CODE-INSERT 0>
		    <NTHUV LVAR7 2 = TEMP23>
		    <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE29>
		    <DEAD TEMP23>
		    <NTHUV LVAR7 3 = TEMP23>
		    <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL31>
		    <DEAD TEMP23>
		    <NTHUV LVAR7 4 = TEMP23>
		    <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE29>
		    <DEAD TEMP23>
BOOL31
		    <NTHUV LVAR7 9 = TEMP23>
		    <FRAME 'PREV-AC>
		    <NTHUV LVAR7 6 = STACK>
		    <CALL 'PREV-AC 1 = STORET15>
		    <EQUAL? TEMP23 STORET15 - PHRASE29>
		    <DEAD TEMP23>
		    <TYPE? STORET15 <TYPE-CODE FALSE> + PHRASE29>
		    <FRAME 'ADDR-VAR-TYPE-VALUE>
		    <PUSH VAR11>
		    <CALL 'ADDR-VAR-TYPE-VALUE 1 = TEMP23>
		    <FRAME 'EMIT-STORE-PAIR-AC>
		    <PUSH STORET15>
		    <DEAD STORET15>
		    <NTHUV LVAR7 6 = STACK (TYPE AC)>
		    <PUSH TEMP23>
		    <DEAD TEMP23>
		    <CALL 'EMIT-STORE-PAIR-AC 3>
		    <SET STOREC16 'T (TYPE ATOM)>
		    <SET STORET15 STOREC16>
		    <SET STOREV14 STORET15>
		    <DEAD STORET15>
		    <PUTUV LVAR7 2 'T>
		    <PUTUV LVAR7 4 'T>
		    <PUTUV LVAR7 3 'T>
		    <JUMP + PHRASE35>
PHRASE29
		    <NTHUV LVAR7 2 = TEMP23>
		    <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE35>
		    <DEAD TEMP23>
		    <NTHUV LVAR7 6 = STORET15>
		    <TYPE? STORET15 <TYPE-CODE FALSE> - PHRASE37>
		    <FRAME 'ERROR>
		    <PUSH "VARIABLE NOT IN AC">
		    <PUSH 'ISTORE-VAR>
		    <CALL 'ERROR 2>
PHRASE37
		    <FRAME 'ADDR-VAR-VALUE>
		    <PUSH VAR11>
		    <CALL 'ADDR-VAR-VALUE 1 = TEMP23>
		    <FRAME 'EMIT-STORE-AC>
		    <PUSH STORET15>
		    <DEAD STORET15>
		    <PUSH TEMP23>
		    <DEAD TEMP23>
		    <PUSH 'LONG>
		    <CALL 'EMIT-STORE-AC 3>
		    <SET STOREV14 'T (TYPE ATOM)>
		    <PUTUV LVAR7 2 'T>
PHRASE35
		    <FRAME 'SCHECK-TYPE-STORED>
		    <PUSH LVAR7>
		    <CALL 'SCHECK-TYPE-STORED 1 = STORET15>
		    <NTHUV LVAR7 3 = TEMP23>
		    <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE48>
		    <DEAD TEMP23>
		    <PUTUV LVAR7 3 'T>
		    <SET STOREC16 'T (TYPE ATOM)>
		    <NTHUV LVAR7 9 = TAC13>
		    <TYPE? TAC13 <TYPE-CODE FALSE> + PHRASE45>
		    <FRAME 'ADDR-VAR-TYPE>
		    <PUSH VAR11>
		    <CALL 'ADDR-VAR-TYPE 1 = TEMP23>
		    <FRAME 'EMIT-STORE-AC>
		    <PUSH TAC13>
		    <DEAD TAC13>
		    <PUSH TEMP23>
		    <DEAD TEMP23>
		    <PUSH 'LONG>
		    <CALL 'EMIT-STORE-AC 3>
		    <JUMP + PHRASE48>
PHRASE45
		    <NTHUV LVAR7 8 = TAC13>
		    <TYPE? TAC13 <TYPE-CODE FALSE> + PHRASE48>
		    <FRAME 'ADDR-VAR-COUNT>
		    <PUSH VAR11>
		    <CALL 'ADDR-VAR-COUNT 1 = TEMP23>
		    <FRAME 'EMIT-STORE-AC>
		    <PUSH TAC13>
		    <DEAD TAC13>
		    <PUSH TEMP23>
		    <DEAD TEMP23>
		    <PUSH 'WORD>
		    <CALL 'EMIT-STORE-AC 3>
PHRASE48
		    <FRAME 'END-CODE-INSERT>
		    <CALL 'END-CODE-INSERT 0 = TEMP23>
		    <EMPUU? TEMP23 - TAG53 (TYPE UVECTOR)>
		    <RETURN %<>>
TAG53
		    <FRAME 'COMPUTE-KIND>
		    <PUSH STOREV14>
		    <DEAD STOREV14>
		    <PUSH STORET15>
		    <DEAD STORET15>
		    <PUSH STOREC16>
		    <DEAD STOREC16>
		    <CALL 'COMPUTE-KIND 3 = STOREV14>
		    <FRAME 'EMIT-POTENTIAL-STORE>
		    <PUSH TEMP23>
		    <DEAD TEMP23>
		    <PUSH STOREV14>
		    <PUSH LVAR7>
		    <DEAD LVAR7>
		    <CALL 'EMIT-POTENTIAL-STORE 3>
		    <SET STORET15 XREF8>
		    <TYPE? STORET15 <TYPE-CODE FALSE> + BOOL57>
		    <FRAME 'KILL-STORES>
		    <PUSH XREF8>
		    <DEAD XREF8>
		    <PUSH STOREV14>
		    <DEAD STOREV14>
		    <PUSH VAR11>
		    <DEAD VAR11>
		    <CALL 'KILL-STORES 3 = STORET15>
BOOL57
		    <RETURN STORET15>
		    <DEAD STORET15>
		    <END ISTORE-VAR>
#WORD *11220477560*
<GFCN COMPUTE-KIND ("VALUE" <OR ATOM FALSE> BOOLEAN <OR FALSE ATOM> BOOLEAN) STOREV4 STORET5 STOREC6>
		    <TEMP TEMP12>
		    <INTGO>
		    <EQUAL? STORET5 'TYPE - PHRASE8>
		    <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE10>
		    <TYPE? STOREC6 <TYPE-CODE FALSE> + PHRASE10>
		    <RETURN 'COUNT-VALUE>
PHRASE10
		    <TYPE? STOREC6 <TYPE-CODE FALSE> + PHRASE13>
		    <DEAD STOREC6>
		    <RETURN 'TYPE-COUNT>
PHRASE13
		    <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE14>
		    <DEAD STOREV4>
		    <RETURN 'TYPE-VALUE>
PHRASE14
		    <RETURN 'TYPE>
PHRASE8
		    <EQUAL? STORET5 'TYPE-COUNT - PHRASE15>
		    <DEAD STORET5>
		    <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE17>
		    <DEAD STOREV4>
		    <RETURN 'TYPE-COUNT-VALUE>
PHRASE17
		    <RETURN 'TYPE-COUNT>
PHRASE15
		    <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE20>
		    <TYPE? STOREC6 <TYPE-CODE FALSE> + PHRASE20>
		    <RETURN 'COUNT-VALUE>
PHRASE20
		    <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE22>
		    <DEAD STOREV4>
		    <RETURN 'VALUE>
PHRASE22
		    <SET TEMP12 STOREC6>
		    <DEAD STOREC6>
		    <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE23>
		    <SET TEMP12 'COUNT (TYPE ATOM)>
PHRASE23
		    <RETURN TEMP12>
		    <DEAD TEMP12>
		    <END COMPUTE-KIND>
#WORD *12413041352*
<GFCN SCHECK-TYPE-STORED ("VALUE" ATOM LINKVAR) LVAR4>
		    <TEMP (KIND7 'TYPE) VAR9:VARTBL TEMP12 DCL8 TEMP20>
		    <INTGO>
		    <NTHUV LVAR4 1 = VAR9 (TYPE VARTBL)>
		    <NTHUV LVAR4 4 = TEMP12>
		    <TYPE? TEMP12 <TYPE-CODE FALSE> - COND24>
		    <DEAD TEMP12>
		    <NTHUV LVAR4 1 = TEMP12 (TYPE VARTBL)>
		    <NTHUV TEMP12 4 = DCL8>
		    <DEAD TEMP12>
		    <TYPE? DCL8 <TYPE-CODE FALSE> + PHRASE14>
		    <GVAL 'TYPE-LENGTHS = TEMP12>
		    <EMPTY? TEMP12 + TAG17>
		    <LOOP (DCL8 VALUE) (TEMP12 LENGTH VALUE TYPE)>
TAG18
		    <NTH1 TEMP12 = TEMP20>
		    <TYPE? TEMP20 <TYPE-CODE ATOM> - TAG19>
		    <VEQUAL? TEMP20 DCL8 + BOOL16>
		    <DEAD TEMP20>
TAG19
		    <REST1 TEMP12 = TEMP12>
		    <EMPTY? TEMP12 - TAG18>
TAG17
		    <FRAME 'COUNT-NEEDED?>
		    <PUSH DCL8>
		    <DEAD DCL8>
		    <CALL 'COUNT-NEEDED? 1 = TEMP12>
		    <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE14>
		    <DEAD TEMP12>
BOOL16
		    <PUTUV LVAR4 3 'T>
		    <DEAD LVAR4>
		    <RETURN KIND7>
		    <DEAD KIND7>
PHRASE14
		    <FRAME 'ADDR-VAR-TYPE>
		    <PUSH VAR9>
		    <DEAD VAR9>
		    <CALL 'ADDR-VAR-TYPE 1 = TEMP12>
		    <PUTUV LVAR4 4 'T>
		    <NTHUV LVAR4 9 = DCL8>
		    <TYPE? DCL8 <TYPE-CODE FALSE> + PHRASE25>
		    <FRAME 'EMIT-STORE-AC>
		    <PUSH DCL8>
		    <DEAD DCL8>
		    <PUSH TEMP12>
		    <DEAD TEMP12>
		    <PUSH 'LONG>
		    <CALL 'EMIT-STORE-AC 3>
		    <PUTUV LVAR4 3 'T>
		    <DEAD LVAR4>
		    <RETURN 'TYPE-COUNT>
PHRASE25
		    <NTHUV LVAR4 7 = DCL8>
		    <TYPE? DCL8 <TYPE-CODE FALSE> + PHRASE27>
		    <FRAME 'EMIT-STORE-AC>
		    <PUSH DCL8>
		    <DEAD DCL8>
		    <PUSH TEMP12>
		    <DEAD TEMP12>
		    <PUSH 'WORD>
		    <CALL 'EMIT-STORE-AC 3>
		    <RETURN KIND7>
		    <DEAD KIND7>
PHRASE27
		    <NTHUV LVAR4 5 = DCL8>
		    <DEAD LVAR4>
		    <TYPE? DCL8 <TYPE-CODE FALSE> + PHRASE29>
		    <FRAME 'STORE-TYPE>
		    <PUSH DCL8>
		    <DEAD DCL8>
		    <PUSH TEMP12>
		    <DEAD TEMP12>
		    <CALL 'STORE-TYPE 2>
		    <RETURN KIND7>
		    <DEAD KIND7>
PHRASE29
		    <FRAME 'ERROR>
		    <PUSH "VARIABLE NOT IN AC">
		    <PUSH 'ISTORE-ADDR>
		    <CALL 'ERROR 2>
COND24
		    <RETURN KIND7>
		    <DEAD KIND7>
		    <END SCHECK-TYPE-STORED>
#WORD *33464047112*
<GFCN STORE-TYPE ("VALUE" ANY ATOM EFF-ADDR "OPTIONAL" ANY) DCL6 ADDR7 EXTRA8>
		    <OPT-DISPATCH 2 %<> OPT4 OPT5>
OPT4
		    <PUSH %<>>
OPT5
		    <TEMP TEMP14 TEMP15 TEMP26 TEMP27>
		    <INTGO>
		    <GVAL 'TYPE-LENGTHS = TEMP14>
		    <EMPTY? TEMP14 + PHRASE10>
		    <LOOP (DCL6 VALUE) (TEMP14 LENGTH VALUE TYPE)>
TAG12
		    <NTH1 TEMP14 = TEMP15>
		    <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG13>
		    <VEQUAL? TEMP15 DCL6 + TAG11>
		    <DEAD TEMP15>
TAG13
		    <REST1 TEMP14 = TEMP14>
		    <EMPTY? TEMP14 - TAG12>
		    <JUMP + PHRASE10>
TAG11
		    <FRAME 'EMIT-MOVE>
		    <FRAME 'TYPE-WORD>
		    <PUSH DCL6>
		    <DEAD DCL6>
		    <CALL 'TYPE-WORD 1 = STACK>
		    <PUSH ADDR7>
		    <DEAD ADDR7>
		    <PUSH 'LONG>
		    <PUSH EXTRA8>
		    <DEAD EXTRA8>
		    <CALL 'EMIT-MOVE 4 = TEMP14>
		    <RETURN TEMP14>
		    <DEAD TEMP14>
PHRASE10
		    <FRAME 'COUNT-NEEDED?>
		    <PUSH DCL6>
		    <CALL 'COUNT-NEEDED? 1 = TEMP15>
		    <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE18>
		    <DEAD TEMP15>
		    <FRAME 'TYPEPRIM>
		    <PUSH DCL6>
		    <CALL 'TYPEPRIM 1 = TEMP15>
		    <GVAL 'TYPE-LENGTHS = TEMP14>
		    <TYPE TEMP15 = TEMP26>
		    <EMPTY? TEMP14 + TAG21>
		    <LOOP (TEMP15 VALUE) (TEMP26 VALUE) (TEMP14 LENGTH VALUE TYPE)>
TAG22
		    <NTH1 TEMP14 = TEMP27>
		    <TYPE? TEMP27 TEMP26 - TAG23>
		    <VEQUAL? TEMP27 TEMP15 + PHRASE18>
		    <DEAD TEMP27>
TAG23
		    <REST1 TEMP14 = TEMP14>
		    <EMPTY? TEMP14 - TAG22>
TAG21
		    <FRAME 'EMIT-MOVE>
		    <FRAME 'TYPE-CODE>
		    <PUSH DCL6>
		    <DEAD DCL6>
		    <PUSH 'WORD>
		    <CALL 'TYPE-CODE 2 = STACK>
		    <PUSH ADDR7>
		    <DEAD ADDR7>
		    <PUSH 'LONG>
		    <PUSH EXTRA8>
		    <DEAD EXTRA8>
		    <CALL 'EMIT-MOVE 4 = TEMP14>
		    <RETURN TEMP14>
		    <DEAD TEMP14>
PHRASE18
		    <FRAME 'EMIT-MOVE>
		    <FRAME 'TYPE-CODE>
		    <PUSH DCL6>
		    <DEAD DCL6>
		    <PUSH 'WORD>
		    <CALL 'TYPE-CODE 2 = STACK>
		    <PUSH ADDR7>
		    <DEAD ADDR7>
		    <PUSH 'WORD>
		    <CALL 'EMIT-MOVE 3 = TEMP14>
		    <RETURN TEMP14>
		    <DEAD TEMP14>
		    <END STORE-TYPE>


#WORD *736034154*
<GFCN LOAD-AC-PAIR ("VALUE" ANY ANY ANY "OPTIONAL" ANY) VAR6 RES7 AC8>
		    <OPT-DISPATCH 2 %<> OPT4 OPT5>
OPT4
		    <PUSH #T$UNBOUND 0>
OPT5
		    <TEMP TEMP26 TEMP27 TEMP28 TAC9>
		    <INTGO>
		    <TYPE? AC8 <TYPE-CODE UNBOUND> - TAG12>
		    <FRAME 'GET-AC>
		    <PUSH 'DOUBLE>
		    <PUSH %<>>
		    <CALL 'GET-AC 2 = AC8>
TAG12
		    <TYPE? VAR6 <TYPE-CODE VARTBL> + PHRASE16>
		    <FRAME 'STORE-AC>
		    <PUSH AC8>
		    <PUSH 'T>
		    <CALL 'STORE-AC 2>
		    <FRAME 'STORE-AC>
		    <FRAME 'NEXT-AC>
		    <PUSH AC8>
		    <CALL 'NEXT-AC 1 = STACK>
		    <PUSH 'T>
		    <CALL 'STORE-AC 2>
		    <FRAME 'PRIMTYPE>
		    <PUSH VAR6>
		    <CALL 'PRIMTYPE 1 = TEMP26>
		    <SET TEMP27 [WORD FIX] (TYPE VECTOR)>
		    <LOOP (TEMP26 VALUE) (TEMP27 LENGTH VALUE)>
TAG23
		    <NTHUV TEMP27 1 = TEMP28>
		    <VEQUAL? TEMP28 TEMP26 + PHRASE21>
		    <DEAD TEMP28>
		    <RESTUV TEMP27 1 = TEMP27 (TYPE VECTOR)>
		    <EMPUV? TEMP27 - TAG23>
		    <FRAME 'EMIT>
		    <PUSH 125>
		    <FRAME 'ADDR-TYPE-M>
		    <FRAME 'ADD-MVEC>
		    <PUSH VAR6>
		    <DEAD VAR6>
		    <CALL 'ADD-MVEC 1 = STACK>
		    <CALL 'ADDR-TYPE-M 1 = STACK>
		    <NTHUV AC8 2 = TEMP27 (TYPE FIX)>
		    <OR TEMP27 #WORD *120* = TEMP27>
		    <LSH TEMP27 24 = TEMP27 (TYPE FIX)>
		    <CHTYPE TEMP27 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP27>
		    <CALL 'EMIT 3>
		    <JUMP + PHRASE64>
PHRASE21
		    <FRAME 'MOVE-VALUE>
		    <PUSH VAR6>
		    <FRAME 'NEXT-AC>
		    <PUSH AC8>
		    <CALL 'NEXT-AC 1 = STACK>
		    <CALL 'MOVE-VALUE 2>
		    <FRAME 'EMIT-MOVE>
		    <FRAME 'TYPE-WORD>
		    <FRAME 'TYPE>
		    <PUSH VAR6>
		    <CALL 'TYPE 1 = STACK>
		    <CALL 'TYPE-WORD 1 = STACK>
		    <NTHUV AC8 2 = TEMP27 (TYPE FIX)>
		    <OR TEMP27 #WORD *120* = TEMP27>
		    <LSH TEMP27 24 = TEMP27 (TYPE FIX)>
		    <CHTYPE TEMP27 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP27>
		    <PUSH 'LONG>
		    <CALL 'EMIT-MOVE 3>
		    <FRAME 'LOAD-AC>
		    <PUSH AC8>
		    <FRAME 'TYPE-WORD>
		    <FRAME 'TYPE>
		    <PUSH VAR6>
		    <DEAD VAR6>
		    <CALL 'TYPE 1 = STACK>
		    <CALL 'TYPE-WORD 1 = STACK>
		    <CALL 'LOAD-AC 2>
		    <JUMP + PHRASE64>
PHRASE16
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR6>
		    <CALL 'FIND-CACHE-VAR 1 = TEMP28>
		    <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE41>
		    <FRAME 'STORE-AC>
		    <PUSH AC8>
		    <PUSH 'T>
		    <CALL 'STORE-AC 2>
		    <FRAME 'STORE-AC>
		    <FRAME 'NEXT-AC>
		    <PUSH AC8>
		    <CALL 'NEXT-AC 1 = STACK>
		    <PUSH 'T>
		    <CALL 'STORE-AC 2>
		    <FRAME 'LOAD-VAR-INTO-AC>
		    <PUSH VAR6>
		    <DEAD VAR6>
		    <PUSH 'TYPE-VALUE-PAIR>
		    <PUSH AC8>
		    <PUSH 'T>
		    <CALL 'LOAD-VAR-INTO-AC 4>
		    <JUMP + PHRASE64>
PHRASE41
		    <NTHUV TEMP28 6 = TEMP26>
		    <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE47>
		    <NTHUV TEMP28 9 = TAC9>
		    <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE47>
		    <FRAME 'NEXT-AC>
		    <PUSH TAC9>
		    <CALL 'NEXT-AC 1 = TEMP27>
		    <EQUAL? TEMP27 TEMP26 - PHRASE47>
		    <DEAD TEMP27>
		    <EQUAL? TAC9 AC8 - PHRASE51>
		    <FRAME 'MUNG-AC>
		    <PUSH AC8>
		    <CALL 'MUNG-AC 1>
		    <FRAME 'MUNG-AC>
		    <FRAME 'NEXT-AC>
		    <PUSH AC8>
		    <CALL 'NEXT-AC 1 = STACK>
		    <CALL 'MUNG-AC 1>
		    <JUMP + PHRASE64>
PHRASE51
		    <FRAME 'LOAD-VAR-INTO-AC>
		    <PUSH VAR6>
		    <DEAD VAR6>
		    <PUSH 'TYPE-VALUE-PAIR>
		    <PUSH AC8>
		    <PUSH 'T>
		    <PUSH %<>>
		    <PUSH TAC9>
		    <DEAD TAC9>
		    <CALL 'LOAD-VAR-INTO-AC 6>
		    <JUMP + PHRASE64>
PHRASE47
		    <NTHUV TEMP28 9 = TAC9>
		    <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL61>
		    <DEAD TEMP26>
		    <TYPE? TAC9 <TYPE-CODE FALSE> + BOOL60>
		    <DEAD TAC9>
BOOL61
		    <NTHUV TEMP28 2 = TEMP27>
		    <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE59>
		    <DEAD TEMP27>
		    <NTHUV TEMP28 4 = TEMP27>
		    <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE59>
		    <DEAD TEMP27>
		    <NTHUV TEMP28 3 = TEMP27>
		    <DEAD TEMP28>
		    <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE59>
		    <DEAD TEMP27>
BOOL60
		    <FRAME 'LOAD-VAR-INTO-AC>
		    <PUSH VAR6>
		    <DEAD VAR6>
		    <PUSH 'TYPE-VALUE-PAIR>
		    <PUSH AC8>
		    <PUSH 'T>
		    <PUSH %<>>
		    <PUSH %<>>
		    <CALL 'LOAD-VAR-INTO-AC 6>
		    <JUMP + PHRASE64>
PHRASE59
		    <FRAME 'LOAD-VAR>
		    <PUSH VAR6>
		    <PUSH 'JUST-VALUE>
		    <PUSH 'T>
		    <FRAME 'NEXT-AC>
		    <PUSH AC8>
		    <CALL 'NEXT-AC 1 = STACK>
		    <CALL 'LOAD-VAR 4>
		    <FRAME 'LOAD-VAR>
		    <PUSH VAR6>
		    <DEAD VAR6>
		    <PUSH 'TYPE-WORD>
		    <PUSH 'T>
		    <PUSH AC8>
		    <CALL 'LOAD-VAR 4>
PHRASE64
		    <TYPE? RES7 <TYPE-CODE FALSE> + PHRASE69>
		    <FRAME 'DEST-PAIR>
		    <FRAME 'NEXT-AC>
		    <PUSH AC8>
		    <CALL 'NEXT-AC 1 = STACK>
		    <PUSH AC8>
		    <PUSH RES7>
		    <DEAD RES7>
		    <CALL 'DEST-PAIR 3>
PHRASE69
		    <RETURN AC8>
		    <DEAD AC8>
		    <END LOAD-AC-PAIR>
#WORD *27040314035*
<GFCN LOAD-VAR ("VALUE" ANY VARTBL ANY BOOLEAN AC-CHOICES "OPTIONAL" <OR ATOM FALSE> BOOLEAN) VAR7 IMODE8 MODIFY?9 AC-TYPE10 DCL?11 USE?12>
		    <OPT-DISPATCH 4 %<> OPT4 OPT5 OPT6>
OPT4
		    <PUSH %<>>
OPT5
		    <PUSH 'T>
OPT6
		    <TEMP MODE19 LVAR13 NOAC?14 VAC16 TAC15 TEMP32>
		    <INTGO>
		    <SET MODE19 IMODE8>
		    <VEQUAL? IMODE8 'JUST-VALUE - PHRASE21>
		    <SET MODE19 'VALUE (TYPE ATOM)>
PHRASE21
		    <TYPE? DCL?11 <TYPE-CODE FALSE> - BOOL22>
		    <FRAME 'VARTBL-DECL>
		    <PUSH VAR7>
		    <CALL 'VARTBL-DECL 1 = DCL?11>
BOOL22
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR7>
		    <CALL 'FIND-CACHE-VAR 1 = LVAR13>
		    <TYPE? LVAR13 <TYPE-CODE FALSE> - PHRASE25>
		    <SET NOAC?14 %<> (TYPE FALSE)>
		    <JUMP + COND24>
PHRASE25
		    <VEQUAL? MODE19 'VALUE - PHRASE27>
		    <VEQUAL? IMODE8 'JUST-VALUE + PHRASE29>
		    <NTHUV LVAR13 6 = VAC16>
		    <TYPE? VAC16 <TYPE-CODE FALSE> + PHRASE29>
		    <NTHUV LVAR13 9 = TAC15>
		    <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE29>
		    <FRAME 'NEXT-AC>
		    <PUSH TAC15>
		    <CALL 'NEXT-AC 1 = TEMP32>
		    <EQUAL? TEMP32 VAC16 - PHRASE29>
		    <DEAD TEMP32>
		    <GVAL 'AC-0 = TEMP32>
		    <EQUAL? TEMP32 AC-TYPE10 + PHRASE29>
		    <DEAD TEMP32>
		    <TYPE? AC-TYPE10 <TYPE-CODE AC> - PHRASE34>
		    <VEQUAL? AC-TYPE10 VAC16 + PHRASE34>
		    <FRAME 'PREV-AC>
		    <PUSH AC-TYPE10>
		    <CALL 'PREV-AC 1 = NOAC?14>
		    <FRAME 'LOAD-VAR-INTO-AC>
		    <PUSH VAR7>
		    <PUSH 'TYPE-VALUE-PAIR>
		    <PUSH NOAC?14>
		    <DEAD NOAC?14>
		    <PUSH MODIFY?9>
		    <PUSH %<>>
		    <PUSH TAC15>
		    <DEAD TAC15>
		    <CALL 'LOAD-VAR-INTO-AC 6>
		    <SET NOAC?14 AC-TYPE10>
		    <JUMP + COND24>
PHRASE34
		    <SET NOAC?14 VAC16>
		    <TYPE? MODIFY?9 <TYPE-CODE FALSE> + COND24>
		    <FRAME 'MUNG-AC>
		    <PUSH VAC16>
		    <DEAD VAC16>
		    <CALL 'MUNG-AC 1>
		    <FRAME 'MUNG-AC>
		    <PUSH TAC15>
		    <DEAD TAC15>
		    <CALL 'MUNG-AC 1>
		    <JUMP + COND24>
PHRASE29
		    <NTHUV LVAR13 6 = VAC16>
		    <TYPE? VAC16 <TYPE-CODE FALSE> + PHRASE45>
		    <FRAME 'MOVE-VAR-BETWEEN-ACS>
		    <PUSH VAC16>
		    <DEAD VAC16>
		    <PUSH VAR7>
		    <PUSH AC-TYPE10>
		    <PUSH MODIFY?9>
		    <CALL 'MOVE-VAR-BETWEEN-ACS 4 = NOAC?14>
		    <JUMP + COND24>
PHRASE45
		    <SET NOAC?14 %<> (TYPE FALSE)>
		    <JUMP + COND24>
PHRASE27
		    <VEQUAL? MODE19 'TYPE - PHRASE48>
		    <NTHUV LVAR13 7 = TAC15>
		    <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE50>
		    <FRAME 'MOVE-VAR-BETWEEN-ACS>
		    <PUSH TAC15>
		    <DEAD TAC15>
		    <PUSH VAR7>
		    <PUSH AC-TYPE10>
		    <PUSH MODIFY?9>
		    <CALL 'MOVE-VAR-BETWEEN-ACS 4 = NOAC?14>
		    <JUMP + COND24>
PHRASE50
		    <NTHUV LVAR13 4 = TEMP32>
		    <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE52>
		    <DEAD TEMP32>
		    <NTHUV LVAR13 9 = TAC15>
		    <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE52>
		    <FRAME 'VARTBL-DECL>
		    <PUSH VAR7>
		    <CALL 'VARTBL-DECL 1 = TEMP32>
		    <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE52>
		    <DEAD TEMP32>
		    <FRAME 'MOVE-TYPE-FROM-TYPEWORD>
		    <PUSH VAR7>
		    <PUSH TAC15>
		    <DEAD TAC15>
		    <PUSH AC-TYPE10>
		    <PUSH MODIFY?9>
		    <CALL 'MOVE-TYPE-FROM-TYPEWORD 4 = NOAC?14>
		    <JUMP + COND24>
PHRASE52
		    <SET NOAC?14 %<> (TYPE FALSE)>
		    <JUMP + COND24>
PHRASE48
		    <VEQUAL? MODE19 'COUNT - PHRASE57>
		    <NTHUV LVAR13 3 = TEMP32>
		    <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE59>
		    <DEAD TEMP32>
		    <SET NOAC?14 %<> (TYPE FALSE)>
		    <JUMP + COND24>
PHRASE59
		    <NTHUV LVAR13 8 = TAC15>
		    <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE60>
		    <FRAME 'MOVE-VAR-BETWEEN-ACS>
		    <PUSH TAC15>
		    <DEAD TAC15>
		    <PUSH VAR7>
		    <PUSH AC-TYPE10>
		    <PUSH MODIFY?9>
		    <CALL 'MOVE-VAR-BETWEEN-ACS 4 = NOAC?14>
		    <JUMP + COND24>
PHRASE60
		    <NTHUV LVAR13 9 = TAC15>
		    <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE62>
		    <FRAME 'MOVE-COUNT-FROM-TYPEWORD>
		    <PUSH VAR7>
		    <PUSH TAC15>
		    <DEAD TAC15>
		    <PUSH AC-TYPE10>
		    <PUSH MODIFY?9>
		    <CALL 'MOVE-COUNT-FROM-TYPEWORD 4 = NOAC?14>
		    <JUMP + COND24>
PHRASE62
		    <SET NOAC?14 %<> (TYPE FALSE)>
		    <JUMP + COND24>
PHRASE57
		    <VEQUAL? MODE19 'TYPE-WORD - PHRASE65>
		    <NTHUV LVAR13 9 = TAC15>
		    <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE67>
		    <FRAME 'MOVE-VAR-BETWEEN-ACS>
		    <PUSH TAC15>
		    <DEAD TAC15>
		    <PUSH VAR7>
		    <PUSH AC-TYPE10>
		    <PUSH MODIFY?9>
		    <CALL 'MOVE-VAR-BETWEEN-ACS 4 = NOAC?14>
		    <JUMP + COND24>
PHRASE67
		    <FRAME 'SAFE-TYPE-WORD?>
		    <PUSH VAR7>
		    <CALL 'SAFE-TYPE-WORD? 1 = TEMP32>
		    <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE69>
		    <DEAD TEMP32>
		    <NTHUV LVAR13 8 = NOAC?14>
		    <TYPE? NOAC?14 <TYPE-CODE FALSE> + PHRASE72>
		    <NTHUV LVAR13 3 = TEMP32>
		    <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE72>
		    <DEAD TEMP32>
		    <FRAME 'EMIT-MOVE>
		    <NTHUV NOAC?14 2 = TEMP32 (TYPE FIX)>
		    <OR TEMP32 #WORD *120* = TEMP32>
		    <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
		    <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP32>
		    <FRAME 'ADDR-VAR-COUNT>
		    <PUSH VAR7>
		    <CALL 'ADDR-VAR-COUNT 1 = STACK>
		    <PUSH 'WORD>
		    <CALL 'EMIT-MOVE 3>
		    <PUTUV LVAR13 3 'T>
		    <FRAME 'BREAK-LINK>
		    <PUSH NOAC?14>
		    <DEAD NOAC?14>
		    <PUSH VAR7>
		    <CALL 'BREAK-LINK 2>
PHRASE72
		    <NTHUV LVAR13 7 = NOAC?14>
		    <TYPE? NOAC?14 <TYPE-CODE FALSE> + PHRASE78>
		    <NTHUV LVAR13 4 = TEMP32>
		    <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE78>
		    <DEAD TEMP32>
		    <FRAME 'EMIT-MOVE>
		    <NTHUV NOAC?14 2 = TEMP32 (TYPE FIX)>
		    <OR TEMP32 #WORD *120* = TEMP32>
		    <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
		    <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP32>
		    <FRAME 'ADDR-VAR-TYPE>
		    <PUSH VAR7>
		    <CALL 'ADDR-VAR-TYPE 1 = STACK>
		    <PUSH 'WORD>
		    <CALL 'EMIT-MOVE 3>
		    <PUTUV LVAR13 4 'T>
		    <FRAME 'BREAK-LINK>
		    <PUSH NOAC?14>
		    <DEAD NOAC?14>
		    <PUSH VAR7>
		    <CALL 'BREAK-LINK 2>
PHRASE78
		    <FRAME 'SAFE-TYPE-WORD?>
		    <PUSH VAR7>
		    <CALL 'SAFE-TYPE-WORD? 1 = TEMP32>
		    <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE84>
		    <DEAD TEMP32>
		    <NTHUV LVAR13 5 = DCL?11>
		    <TYPE? DCL?11 <TYPE-CODE FALSE> + PHRASE84>
		    <FRAME 'EMIT-MOVE>
		    <FRAME 'TYPE-CODE>
		    <PUSH DCL?11>
		    <PUSH 'WORD>
		    <CALL 'TYPE-CODE 2 = STACK>
		    <FRAME 'ADDR-VAR-TYPE>
		    <PUSH VAR7>
		    <CALL 'ADDR-VAR-TYPE 1 = STACK>
		    <PUSH 'WORD>
		    <CALL 'EMIT-MOVE 3>
		    <PUTUV LVAR13 4 'T>
PHRASE84
		    <SET NOAC?14 %<> (TYPE FALSE)>
		    <JUMP + COND24>
PHRASE69
		    <SET NOAC?14 %<> (TYPE FALSE)>
		    <JUMP + COND24>
PHRASE65
		    <FRAME 'ERROR>
		    <PUSH "BAD-MODE">
		    <PUSH 'LOAD-VAR>
		    <CALL 'ERROR 2>
COND24
		    <TYPE? NOAC?14 <TYPE-CODE FALSE> - PHRASE93>
		    <VEQUAL? IMODE8 'VALUE - PHRASE93>
		    <DEAD IMODE8>
		    <TYPE? LVAR13 <TYPE-CODE FALSE> + BOOL95>
		    <NTHUV LVAR13 7 = TEMP32>
		    <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE93>
		    <DEAD TEMP32>
		    <NTHUV LVAR13 9 = TEMP32>
		    <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE93>
		    <DEAD TEMP32>
		    <NTHUV LVAR13 8 = TEMP32>
		    <DEAD LVAR13>
		    <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE93>
		    <DEAD TEMP32>
BOOL95
		    <GVAL 'AC-0 = TEMP32>
		    <EQUAL? TEMP32 AC-TYPE10 + PHRASE93>
		    <DEAD TEMP32>
		    <TYPE? AC-TYPE10 <TYPE-CODE AC> - PHRASE98>
		    <FRAME 'GET-AC>
		    <FRAME 'PREV-AC>
		    <PUSH AC-TYPE10>
		    <CALL 'PREV-AC 1 = STACK>
		    <CALL 'GET-AC 1 = TAC15>
		    <FRAME 'GET-AC>
		    <PUSH AC-TYPE10>
		    <CALL 'GET-AC 1 = TEMP32>
		    <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE93>
		    <DEAD TEMP32>
		    <JUMP + PHRASE102>
PHRASE98
		    <FRAME 'GET-AC>
		    <PUSH 'DOUBLE>
		    <CALL 'GET-AC 1 = TAC15>
		    <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE93>
PHRASE102
		    <FRAME 'LOAD-VAR-INTO-AC>
		    <PUSH VAR7>
		    <PUSH 'TYPE-VALUE-PAIR>
		    <PUSH TAC15>
		    <PUSH MODIFY?9>
		    <DEAD MODIFY?9>
		    <PUSH %<>>
		    <CALL 'LOAD-VAR-INTO-AC 5>
		    <TYPE? DCL?11 <TYPE-CODE FALSE> + BOOL105>
		    <FRAME 'INDICATE-CACHED-VARIABLE-DECL>
		    <PUSH VAR7>
		    <DEAD VAR7>
		    <PUSH DCL?11>
		    <DEAD DCL?11>
		    <CALL 'INDICATE-CACHED-VARIABLE-DECL 2>
BOOL105
		    <FRAME 'NEXT-AC>
		    <PUSH TAC15>
		    <DEAD TAC15>
		    <CALL 'NEXT-AC 1 = TAC15>
		    <TYPE? USE?12 <TYPE-CODE FALSE> + BOOL108>
		    <DEAD USE?12>
		    <FRAME 'USE-AC>
		    <PUSH TAC15>
		    <CALL 'USE-AC 1>
BOOL108
		    <RETURN TAC15>
		    <DEAD TAC15>
PHRASE93
		    <TYPE? NOAC?14 <TYPE-CODE FALSE> - PHRASE110>
		    <FRAME 'GET-AC>
		    <PUSH AC-TYPE10>
		    <DEAD AC-TYPE10>
		    <CALL 'GET-AC 1 = TAC15>
		    <FRAME 'LOAD-VAR-INTO-AC>
		    <PUSH VAR7>
		    <PUSH MODE19>
		    <DEAD MODE19>
		    <PUSH TAC15>
		    <PUSH MODIFY?9>
		    <DEAD MODIFY?9>
		    <CALL 'LOAD-VAR-INTO-AC 4>
		    <FRAME 'SET-STATUS-AC>
		    <PUSH TAC15>
		    <CALL 'SET-STATUS-AC 1>
		    <TYPE? DCL?11 <TYPE-CODE FALSE> + BOOL114>
		    <FRAME 'INDICATE-CACHED-VARIABLE-DECL>
		    <PUSH VAR7>
		    <DEAD VAR7>
		    <PUSH DCL?11>
		    <DEAD DCL?11>
		    <CALL 'INDICATE-CACHED-VARIABLE-DECL 2>
BOOL114
		    <TYPE? USE?12 <TYPE-CODE FALSE> + BOOL116>
		    <DEAD USE?12>
		    <FRAME 'USE-AC>
		    <PUSH TAC15>
		    <CALL 'USE-AC 1>
BOOL116
		    <RETURN TAC15>
		    <DEAD TAC15>
PHRASE110
		    <TYPE? DCL?11 <TYPE-CODE FALSE> + BOOL119>
		    <FRAME 'INDICATE-CACHED-VARIABLE-DECL>
		    <PUSH VAR7>
		    <DEAD VAR7>
		    <PUSH DCL?11>
		    <DEAD DCL?11>
		    <CALL 'INDICATE-CACHED-VARIABLE-DECL 2>
BOOL119
		    <TYPE? USE?12 <TYPE-CODE FALSE> + BOOL121>
		    <DEAD USE?12>
		    <FRAME 'USE-AC>
		    <PUSH NOAC?14>
		    <CALL 'USE-AC 1>
BOOL121
		    <RETURN NOAC?14>
		    <DEAD NOAC?14>
		    <END LOAD-VAR>
#WORD *23013725425*
<GFCN MOVE-VAR-BETWEEN-ACS ("VALUE" STRUCTURED AC ANY AC-CHOICES BOOLEAN) VAC4 VAR5 AC-MODE6 MODIFY?7>
		    <TEMP TEMP13>
		    <INTGO>
		    <FRAME 'PROTECT-USE>
		    <PUSH VAC4>
		    <CALL 'PROTECT-USE 1>
		    <FRAME 'MATCH-AC?>
		    <PUSH VAC4>
		    <PUSH AC-MODE6>
		    <CALL 'MATCH-AC? 2 = TEMP13>
		    <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
		    <DEAD TEMP13>
		    <TYPE? MODIFY?7 <TYPE-CODE FALSE> + PHRASE15>
		    <DEAD MODIFY?7>
		    <FRAME 'AVAILABLE?>
		    <PUSH VAC4>
		    <CALL 'AVAILABLE? 1 = TEMP13>
		    <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE17>
		    <DEAD TEMP13>
		    <FRAME 'CLEAR-VARS-FROM-AC>
		    <PUSH VAC4>
		    <CALL 'CLEAR-VARS-FROM-AC 1>
		    <RETURN VAC4>
		    <DEAD VAC4>
PHRASE17
		    <FRAME 'CHECK-FREE-AC?>
		    <PUSH AC-MODE6>
		    <DEAD AC-MODE6>
		    <CALL 'CHECK-FREE-AC? 1 = TEMP13>
		    <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE20>
		    <FRAME 'IMOVE-AC>
		    <PUSH VAC4>
		    <PUSH TEMP13>
		    <DEAD TEMP13>
		    <PUSH %<>>
		    <CALL 'IMOVE-AC 3>
		    <RETURN VAC4>
		    <DEAD VAC4>
PHRASE20
		    <FRAME 'STORE-AC>
		    <PUSH VAC4>
		    <PUSH 'T>
		    <CALL 'STORE-AC 2>
		    <RETURN VAC4>
		    <DEAD VAC4>
PHRASE15
		    <RETURN VAC4>
		    <DEAD VAC4>
PHRASE11
		    <TYPE? MODIFY?7 <TYPE-CODE FALSE> + PHRASE27>
		    <DEAD MODIFY?7>
		    <FRAME 'GET-AC>
		    <PUSH AC-MODE6>
		    <DEAD AC-MODE6>
		    <CALL 'GET-AC 1 = TEMP13>
		    <FRAME 'IMOVE-AC>
		    <PUSH VAC4>
		    <DEAD VAC4>
		    <PUSH TEMP13>
		    <PUSH 'T>
		    <CALL 'IMOVE-AC 3>
		    <RETURN TEMP13>
		    <DEAD TEMP13>
PHRASE27
		    <FRAME 'PLACE-ALTERNATE-AC>
		    <PUSH VAC4>
		    <DEAD VAC4>
		    <PUSH AC-MODE6>
		    <DEAD AC-MODE6>
		    <CALL 'PLACE-ALTERNATE-AC 2 = TEMP13>
		    <RETURN TEMP13>
		    <DEAD TEMP13>
		    <END MOVE-VAR-BETWEEN-ACS>


#WORD *32763776551*
<GFCN CHECK-FREE-AC? ("VALUE" ANY AC-CHOICES) MODE4>
		    <TEMP TEMP8>
		    <INTGO>
		    <TYPE? MODE4 <TYPE-CODE AC> - PHRASE6>
		    <FRAME 'AVAILABLE?>
		    <PUSH MODE4>
		    <CALL 'AVAILABLE? 1 = TEMP8>
		    <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL15>
		    <RETURN MODE4>
		    <DEAD MODE4>
PHRASE6
		    <VEQUAL? MODE4 'DOUBLE - PHRASE10>
		    <FRAME 'FIND-FREE-PAIR>
		    <PUSH 'NOVARS>
		    <CALL 'FIND-FREE-PAIR 1 = TEMP8>
		    <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL15>
		    <FRAME 'FIND-FREE-PAIR>
		    <PUSH 'STORED>
		    <CALL 'FIND-FREE-PAIR 1 = TEMP8>
		    <RETURN TEMP8>
		    <DEAD TEMP8>
PHRASE10
		    <FRAME 'FREE-AC?>
		    <PUSH MODE4>
		    <PUSH 'NOVARS>
		    <CALL 'FREE-AC? 2 = TEMP8>
		    <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL15>
		    <FRAME 'FREE-AC?>
		    <PUSH MODE4>
		    <DEAD MODE4>
		    <PUSH 'STORED>
		    <CALL 'FREE-AC? 2 = TEMP8>
BOOL15
		    <RETURN TEMP8>
		    <DEAD TEMP8>
		    <END CHECK-FREE-AC?>
#WORD *6562007404*
<GFCN AVAILABLE? ("VALUE" <OR AC FALSE> AC) AC4>
		    <TEMP TEMP14 TEMP16:VECTOR LVAR17:LINKVAR>
		    <INTGO>
		    <SET TEMP14 %<> (TYPE FALSE)>
		    <NTHUV AC4 8 = TEMP16 (TYPE VECTOR)>
		    <LOOP>
MAP6
		    <INTGO>
		    <EMPUV? TEMP16 + MAPAP9>
		    <NTHUV TEMP16 1 = LVAR17>
		    <NTHUV LVAR17 1 = TEMP14 (TYPE VARTBL)>
		    <NTHUV TEMP14 5 = TEMP14>
		    <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE30>
		    <DEAD TEMP14>
		    <NTHUV LVAR17 6 = TEMP14>
		    <EQUAL? TEMP14 AC4 - PHRASE22>
		    <DEAD TEMP14>
		    <NTHUV LVAR17 2 = TEMP14>
		    <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE22>
		    <DEAD TEMP14>
		    <RETURN %<>>
PHRASE22
		    <NTHUV LVAR17 7 = TEMP14>
		    <EQUAL? TEMP14 AC4 - PHRASE24>
		    <DEAD TEMP14>
		    <NTHUV LVAR17 4 = TEMP14>
		    <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE24>
		    <DEAD TEMP14>
		    <RETURN %<>>
PHRASE24
		    <NTHUV LVAR17 8 = TEMP14>
		    <EQUAL? TEMP14 AC4 - PHRASE27>
		    <DEAD TEMP14>
		    <NTHUV LVAR17 3 = TEMP14>
		    <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE27>
		    <DEAD TEMP14>
		    <RETURN %<>>
PHRASE27
		    <NTHUV LVAR17 9 = TEMP14>
		    <EQUAL? TEMP14 AC4 - PHRASE30>
		    <DEAD TEMP14>
		    <NTHUV LVAR17 4 = TEMP14>
		    <DEAD LVAR17>
		    <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE30>
		    <DEAD TEMP14>
		    <RETURN %<>>
PHRASE30
		    <SET TEMP14 AC4>
		    <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
		    <JUMP + MAP6>
MAPAP9
		    <RETURN TEMP14>
		    <DEAD TEMP14>
		    <END AVAILABLE?>
#WORD *22732255475*
<GFCN GET-AC ("VALUE" STRUCTURED "OPTIONAL" AC-CHOICES ANY) AC-MODE7 MUNG?8>
		    <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6>
OPT4
		    <PUSH 'ANY-AC>
OPT5
		    <PUSH %<>>
OPT6
		    <TEMP PAC9>
		    <INTGO>
		    <EQUAL? AC-MODE7 'ANY-AC - PHRASE11>
		    <SET AC-MODE7 'NONE (TYPE ATOM)>
PHRASE11
		    <TYPE? AC-MODE7 <TYPE-CODE AC> - PHRASE13>
		    <FRAME 'STORE-AC>
		    <PUSH AC-MODE7>
		    <CALL 'STORE-AC 1>
		    <SET PAC9 AC-MODE7>
		    <JUMP + PHRASE16>
PHRASE13
		    <FRAME 'CHECK-FREE-AC?>
		    <PUSH AC-MODE7>
		    <CALL 'CHECK-FREE-AC? 1 = PAC9>
		    <TYPE? PAC9 <TYPE-CODE FALSE> - PHRASE16>
		    <FRAME 'PICK-BEST-AC>
		    <PUSH AC-MODE7>
		    <CALL 'PICK-BEST-AC 1 = PAC9>
		    <FRAME 'STORE-AC>
		    <PUSH PAC9>
		    <CALL 'STORE-AC 1>
		    <VEQUAL? AC-MODE7 'DOUBLE - PHRASE16>
		    <FRAME 'STORE-AC>
		    <FRAME 'NEXT-AC>
		    <PUSH PAC9>
		    <CALL 'NEXT-AC 1 = STACK>
		    <CALL 'STORE-AC 1>
PHRASE16
		    <TYPE? MUNG?8 <TYPE-CODE FALSE> + PHRASE27>
		    <DEAD MUNG?8>
		    <FRAME 'MUNG-AC>
		    <PUSH PAC9>
		    <CALL 'MUNG-AC 1>
		    <EQUAL? AC-MODE7 'DOUBLE - PHRASE27>
		    <DEAD AC-MODE7>
		    <FRAME 'MUNG-AC>
		    <FRAME 'NEXT-AC>
		    <PUSH PAC9>
		    <CALL 'NEXT-AC 1 = STACK>
		    <CALL 'MUNG-AC 1>
PHRASE27
		    <RETURN PAC9>
		    <DEAD PAC9>
		    <END GET-AC>
#WORD *24525566511*
<GFCN PICK-BEST-AC ("VALUE" AC ATOM) MODE4>
		    <TEMP TEMP6:AC>
		    <INTGO>
		    <FRAME 'PICK-FROM>
		    <GVAL 'ALL-ACS = STACK>
		    <PUSH MODE4>
		    <DEAD MODE4>
		    <CALL 'PICK-FROM 2 = TEMP6>
		    <RETURN TEMP6>
		    <DEAD TEMP6>
		    <END PICK-BEST-AC>
#WORD *26717477356*
<GFCN PICK-FROM ("VALUE" <OR FALSE AC> <VECTOR [REST AC]> ANY) ACS4 MODE5>
		    <TEMP (BEST-AC6 %<>) TEMP17 AC10:AC AC211:AC BEST-AC27:AC TEMP37>
		    <INTGO>
		    <LOOP>
AGAIN12
		    <INTGO>
		    <EMPUV? ACS4 + EXIT8 (TYPE VECTOR)>
		    <RESTUV ACS4 1 = TEMP17 (TYPE VECTOR)>
		    <EMPUV? TEMP17 - PHRASE14 (TYPE VECTOR)>
		    <DEAD TEMP17>
		    <EQUAL? MODE5 'DOUBLE + EXIT8>
PHRASE14
		    <NTHUV ACS4 1 = AC10 (TYPE AC)>
		    <EQUAL? MODE5 'DOUBLE - PHRASE19>
		    <NTHUV ACS4 2 = AC211 (TYPE AC)>
PHRASE19
		    <EQUAL? MODE5 'DOUBLE - PHRASE21>
		    <SET TEMP17 2 (TYPE FIX)>
		    <JUMP + PHRASE22>
PHRASE21
		    <SET TEMP17 1 (TYPE FIX)>
PHRASE22
		    <RESTUV ACS4 TEMP17 = ACS4 (TYPE VECTOR)>
		    <DEAD TEMP17>
		    <NTHUV AC10 4 = TEMP17>
		    <TYPE? TEMP17 <TYPE-CODE FALSE> - AGAIN12>
		    <DEAD TEMP17>
		    <EQUAL? MODE5 'DOUBLE - PHRASE26>
		    <NTHUV AC211 4 = TEMP17>
		    <TYPE? TEMP17 <TYPE-CODE FALSE> - AGAIN12>
		    <DEAD TEMP17>
PHRASE26
		    <TYPE? BEST-AC6 <TYPE-CODE FALSE> - PHRASE31>
		    <SET BEST-AC6 AC10>
		    <DEAD AC10>
		    <EQUAL? MODE5 'DOUBLE - AGAIN12>
		    <SET BEST-AC27 AC211>
		    <JUMP + AGAIN12>
PHRASE31
		    <NTHUV AC10 8 = TEMP17 (TYPE VECTOR)>
		    <LENUV TEMP17 = TEMP17 (TYPE FIX)>
		    <NTHUV BEST-AC6 8 = TEMP37 (TYPE VECTOR)>
		    <LENUV TEMP37 = TEMP37 (TYPE FIX)>
		    <LESS? TEMP17 TEMP37 - PHRASE35 (TYPE FIX)>
		    <DEAD TEMP17 TEMP37>
		    <EQUAL? MODE5 'DOUBLE - BOOL38>
		    <NTHUV AC211 8 = TEMP17 (TYPE VECTOR)>
		    <LENUV TEMP17 = TEMP17 (TYPE FIX)>
		    <NTHUV BEST-AC27 8 = TEMP37 (TYPE VECTOR)>
		    <LENUV TEMP37 = TEMP37 (TYPE FIX)>
		    <LESS? TEMP17 TEMP37 - PHRASE35 (TYPE FIX)>
		    <DEAD TEMP17 TEMP37>
BOOL38
		    <SET BEST-AC6 AC10>
		    <DEAD AC10>
		    <EQUAL? MODE5 'DOUBLE - AGAIN12>
		    <SET BEST-AC27 AC211>
		    <JUMP + AGAIN12>
PHRASE35
		    <NTHUV AC10 3 = TEMP17 (TYPE FIX)>
		    <NTHUV BEST-AC6 3 = TEMP37 (TYPE FIX)>
		    <GRTR? TEMP17 TEMP37 - AGAIN12 (TYPE FIX)>
		    <DEAD TEMP17 TEMP37>
		    <EQUAL? MODE5 'DOUBLE - BOOL44>
		    <NTHUV AC211 3 = TEMP17 (TYPE FIX)>
		    <NTHUV BEST-AC27 3 = TEMP37 (TYPE FIX)>
		    <GRTR? TEMP17 TEMP37 - AGAIN12 (TYPE FIX)>
		    <DEAD TEMP17 TEMP37>
BOOL44
		    <SET BEST-AC6 AC10>
		    <DEAD AC10>
		    <SET BEST-AC27 AC211>
		    <JUMP + AGAIN12>
EXIT8
		    <TYPE? BEST-AC6 <TYPE-CODE FALSE> - PHRASE46>
		    <FRAME 'ERROR>
		    <PUSH "AC NOT FOUND">
		    <PUSH 'PICK-FROM>
		    <CALL 'ERROR 2>
PHRASE46
		    <RETURN BEST-AC6>
		    <DEAD BEST-AC6>
		    <END PICK-FROM>
#WORD *16075050366*
		    <GFCN IMOVE-AC ("VALUE" ANY AC AC ANY) SOURCE-AC4 DEST-AC5 MODIFY?6>
		    <TEMP TEMP10>
		    <INTGO>
		    <FRAME 'USE-AC>
		    <PUSH SOURCE-AC4>
		    <CALL 'USE-AC 1>
		    <FRAME 'STORE-AC>
		    <PUSH DEST-AC5>
		    <PUSH 'T>
		    <CALL 'STORE-AC 2>
		    <FRAME 'EMIT-MOVE>
		    <NTHUV SOURCE-AC4 2 = TEMP10 (TYPE FIX)>
		    <OR TEMP10 #WORD *120* = TEMP10>
		    <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
		    <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP10>
		    <NTHUV DEST-AC5 2 = TEMP10 (TYPE FIX)>
		    <OR TEMP10 #WORD *120* = TEMP10>
		    <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
		    <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP10>
		    <PUSH 'LONG>
		    <CALL 'EMIT-MOVE 3>
		    <FRAME 'LOAD-AC>
		    <PUSH DEST-AC5>
		    <NTHUV SOURCE-AC4 2 = TEMP10 (TYPE FIX)>
		    <OR TEMP10 #WORD *120* = TEMP10>
		    <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
		    <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP10>
		    <CALL 'LOAD-AC 2>
		    <TYPE? MODIFY?6 <TYPE-CODE FALSE> - BOOL12>
		    <DEAD MODIFY?6>
		    <FRAME 'MOVE-AC>
		    <PUSH SOURCE-AC4>
		    <DEAD SOURCE-AC4>
		    <PUSH DEST-AC5>
		    <CALL 'MOVE-AC 2>
BOOL12
		    <FRAME 'SET-STATUS-AC>
		    <PUSH DEST-AC5>
		    <CALL 'SET-STATUS-AC 1>
		    <FRAME 'SET-AC-AGE>
		    <PUSH DEST-AC5>
		    <DEAD DEST-AC5>
		    <CALL 'SET-AC-AGE 1 = TEMP10>
		    <RETURN TEMP10>
		    <DEAD TEMP10>
		    <END IMOVE-AC>

#WORD *30247662615*
<GFCN STORE-AC ("VALUE" ANY AC "OPTIONAL" BOOLEAN <OR LINKVAR FALSE>) AC7 FLUSH8 SAVE?9>
		    <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
OPT4
		    <PUSH %<>>
OPT5
		    <PUSH %<>>
OPT6
		    <TEMP TEMP21 X22:LINKVAR>
		    <INTGO>
		    <NTHUV AC7 8 = TEMP21 (TYPE VECTOR)>
		    <LOOP>
MAP11
		    <INTGO>
		    <EMPUV? TEMP21 + MAPAP14>
		    <NTHUV TEMP21 1 = X22>
		    <EQUAL? X22 SAVE?9 + PHRASE24>
		    <FRAME 'ISTORE-VAR>
		    <PUSH X22>
		    <DEAD X22>
		    <CALL 'ISTORE-VAR 1>
PHRASE24
		    <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
		    <JUMP + MAP11>
MAPAP14
		    <SET TEMP21 FLUSH8>
		    <DEAD FLUSH8>
		    <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE27>
		    <FRAME 'CLEAR-VARS-FROM-AC>
		    <PUSH AC7>
		    <DEAD AC7>
		    <PUSH SAVE?9>
		    <DEAD SAVE?9>
		    <PUSH 'T>
		    <CALL 'CLEAR-VARS-FROM-AC 3 = TEMP21>
PHRASE27
		    <RETURN TEMP21>
		    <DEAD TEMP21>
		    <END STORE-AC>
#WORD *33012570317*
<GFCN PLACE-ALTERNATE-AC ("VALUE" STRUCTURED AC AC-CHOICES) AC4 MODE5>
		    <TEMP FAC6 TEMP11>
		    <INTGO>
		    <FRAME 'GET-AC>
		    <PUSH MODE5>
		    <DEAD MODE5>
		    <CALL 'GET-AC 1 = FAC6>
		    <FRAME 'ALL-DEAD?>
		    <PUSH FAC6>
		    <CALL 'ALL-DEAD? 1 = TEMP11>
		    <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE9>
		    <DEAD TEMP11>
		    <FRAME 'EMIT-MOVE>
		    <NTHUV AC4 2 = TEMP11 (TYPE FIX)>
		    <OR TEMP11 #WORD *120* = TEMP11>
		    <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
		    <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP11>
		    <NTHUV FAC6 2 = TEMP11 (TYPE FIX)>
		    <OR TEMP11 #WORD *120* = TEMP11>
		    <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
		    <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP11>
		    <PUSH 'LONG>
		    <CALL 'EMIT-MOVE 3>
		    <FRAME 'MOVE-AC>
		    <PUSH AC4>
		    <DEAD AC4>
		    <PUSH FAC6>
		    <CALL 'MOVE-AC 2>
		    <RETURN FAC6>
		    <DEAD FAC6>
PHRASE9
		    <FRAME 'EMIT-EXCH>
		    <PUSH AC4>
		    <PUSH FAC6>
		    <CALL 'EMIT-EXCH 2>
		    <FRAME 'EXCH-AC>
		    <PUSH AC4>
		    <DEAD AC4>
		    <PUSH FAC6>
		    <CALL 'EXCH-AC 2>
		    <RETURN FAC6>
		    <DEAD FAC6>
		    <END PLACE-ALTERNATE-AC>
#WORD *4630717321*
<GFCN EMIT-EXCH ("VALUE" ANY AC AC) AC14 AC25>
		    <TEMP TAC6 TEMP11>
		    <INTGO>
		    <FRAME 'FREE-AC?>
		    <PUSH 'NONE>
		    <PUSH 'NOVARS>
		    <CALL 'FREE-AC? 2 = TAC6>
		    <TYPE? TAC6 <TYPE-CODE FALSE> + PHRASE8>
		    <FRAME 'EMIT>
		    <PUSH 208>
		    <NTHUV AC14 2 = TEMP11 (TYPE FIX)>
		    <OR TEMP11 #WORD *120* = TEMP11>
		    <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
		    <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP11>
		    <NTHUV TAC6 2 = TEMP11 (TYPE FIX)>
		    <OR TEMP11 #WORD *120* = TEMP11>
		    <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
		    <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP11>
		    <CALL 'EMIT 3>
		    <FRAME 'EMIT>
		    <PUSH 208>
		    <NTHUV AC25 2 = TEMP11 (TYPE FIX)>
		    <OR TEMP11 #WORD *120* = TEMP11>
		    <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
		    <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP11>
		    <NTHUV AC14 2 = TEMP11 (TYPE FIX)>
		    <DEAD AC14>
		    <OR TEMP11 #WORD *120* = TEMP11>
		    <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
		    <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP11>
		    <CALL 'EMIT 3>
		    <FRAME 'EMIT>
		    <PUSH 208>
		    <NTHUV TAC6 2 = TEMP11 (TYPE FIX)>
		    <DEAD TAC6>
		    <OR TEMP11 #WORD *120* = TEMP11>
		    <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
		    <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP11>
		    <NTHUV AC25 2 = TEMP11 (TYPE FIX)>
		    <DEAD AC25>
		    <OR TEMP11 #WORD *120* = TEMP11>
		    <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
		    <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP11>
		    <CALL 'EMIT 3 = TEMP11>
		    <RETURN TEMP11>
		    <DEAD TEMP11>
PHRASE8
		    <FRAME 'EMIT>
		    <PUSH 221>
		    <NTHUV AC14 2 = TAC6 (TYPE FIX)>
		    <OR TAC6 #WORD *120* = TAC6>
		    <LSH TAC6 24 = TAC6 (TYPE FIX)>
		    <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TAC6>
		    <CALL 'EMIT 2>
		    <FRAME 'EMIT>
		    <PUSH 208>
		    <NTHUV AC25 2 = TAC6 (TYPE FIX)>
		    <OR TAC6 #WORD *120* = TAC6>
		    <LSH TAC6 24 = TAC6 (TYPE FIX)>
		    <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TAC6>
		    <NTHUV AC14 2 = TAC6 (TYPE FIX)>
		    <DEAD AC14>
		    <OR TAC6 #WORD *120* = TAC6>
		    <LSH TAC6 24 = TAC6 (TYPE FIX)>
		    <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TAC6>
		    <CALL 'EMIT 3>
		    <FRAME 'EMIT>
		    <PUSH 208>
		    <GVAL 'AC-P = TAC6>
		    <NTHUV TAC6 2 = TAC6 (TYPE FIX)>
		    <OR TAC6 #WORD *200* = TAC6>
		    <LSH TAC6 24 = TAC6 (TYPE FIX)>
		    <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TAC6>
		    <NTHUV AC25 2 = TAC6 (TYPE FIX)>
		    <DEAD AC25>
		    <OR TAC6 #WORD *120* = TAC6>
		    <LSH TAC6 24 = TAC6 (TYPE FIX)>
		    <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TAC6>
		    <CALL 'EMIT 3 = TEMP11>
		    <RETURN TEMP11>
		    <DEAD TEMP11>
		    <END EMIT-EXCH>
#WORD *5063003233*
<GFCN LOAD-VAR-INTO-AC ("VALUE" <OR FALSE LINKVAR> VARTBL ATOM AC BOOLEAN "OPTIONAL" ANY ANY) VAR7 MODE8 AC9 MODIFY?10 VTMOD11 ALREADY?12>
		    <OPT-DISPATCH 4 %<> OPT4 OPT5 OPT6>
OPT4
		    <PUSH %<>>
OPT5
		    <PUSH %<>>
OPT6
		    <TEMP LVAR13 SAFE?18 (RLVAR19 %<>) TEMP26 (CLEAR-TYPE?21 %<>) (CLEAR-COUNT?22 %<>) V70:FIX>
		    <INTGO>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR7>
		    <CALL 'FIND-CACHE-VAR 1 = LVAR13>
		    <FRAME 'SAFE-TYPE-WORD?>
		    <PUSH VAR7>
		    <CALL 'SAFE-TYPE-WORD? 1 = SAFE?18>
		    <SET TEMP26 LVAR13>
		    <TYPE? TEMP26 <TYPE-CODE FALSE> + BOOL25>
		    <NTHUV LVAR13 4 = TEMP26>
		    <DEAD LVAR13>
BOOL25
		    <SET LVAR13 TEMP26>
		    <DEAD TEMP26>
		    <VEQUAL? MODE8 'TYPE-VALUE-PAIR - PHRASE28>
		    <FRAME 'ALL-DEAD?>
		    <PUSH AC9>
		    <CALL 'ALL-DEAD? 1 = TEMP26>
		    <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL32>
		    <DEAD TEMP26>
		    <FRAME 'ALL-STORED?>
		    <PUSH AC9>
		    <CALL 'ALL-STORED? 1 = TEMP26>
		    <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE30>
		    <DEAD TEMP26>
BOOL32
		    <FRAME 'ALL-DEAD?>
		    <FRAME 'NEXT-AC>
		    <PUSH AC9>
		    <CALL 'NEXT-AC 1 = STACK>
		    <CALL 'ALL-DEAD? 1 = TEMP26>
		    <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL35>
		    <DEAD TEMP26>
		    <FRAME 'ALL-STORED?>
		    <FRAME 'NEXT-AC>
		    <PUSH AC9>
		    <CALL 'NEXT-AC 1 = STACK>
		    <CALL 'ALL-STORED? 1 = TEMP26>
		    <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE30>
		    <DEAD TEMP26>
BOOL35
		    <FRAME 'MUNG-AC>
		    <PUSH AC9>
		    <CALL 'MUNG-AC 1>
		    <FRAME 'MUNG-AC>
		    <FRAME 'NEXT-AC>
		    <PUSH AC9>
		    <CALL 'NEXT-AC 1 = STACK>
		    <CALL 'MUNG-AC 1>
		    <JUMP + COND27>
PHRASE30
		    <FRAME 'STORE-AC>
		    <PUSH AC9>
		    <PUSH 'T>
		    <CALL 'STORE-AC 2>
		    <FRAME 'STORE-AC>
		    <FRAME 'NEXT-AC>
		    <PUSH AC9>
		    <CALL 'NEXT-AC 1 = STACK>
		    <PUSH 'T>
		    <CALL 'STORE-AC 2>
		    <JUMP + COND27>
PHRASE28
		    <FRAME 'ALL-DEAD?>
		    <PUSH AC9>
		    <CALL 'ALL-DEAD? 1 = TEMP26>
		    <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL48>
		    <DEAD TEMP26>
		    <FRAME 'ALL-STORED?>
		    <PUSH AC9>
		    <CALL 'ALL-STORED? 1 = TEMP26>
		    <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE47>
		    <DEAD TEMP26>
BOOL48
		    <FRAME 'MUNG-AC>
		    <PUSH AC9>
		    <CALL 'MUNG-AC 1>
		    <JUMP + COND27>
PHRASE47
		    <FRAME 'FREE-AC?>
		    <PUSH MODE8>
		    <PUSH 'NOVARS>
		    <CALL 'FREE-AC? 2 = TEMP26>
		    <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE52>
		    <FRAME 'IMOVE-AC>
		    <PUSH AC9>
		    <PUSH TEMP26>
		    <DEAD TEMP26>
		    <PUSH %<>>
		    <CALL 'IMOVE-AC 3>
		    <FRAME 'CLEAR-VARS-FROM-AC>
		    <PUSH AC9>
		    <CALL 'CLEAR-VARS-FROM-AC 1>
		    <JUMP + COND27>
PHRASE52
		    <FRAME 'STORE-AC>
		    <PUSH AC9>
		    <PUSH 'T>
		    <CALL 'STORE-AC 2>
COND27
		    <FRAME 'CLOAD-AC>
		    <PUSH AC9>
		    <CALL 'CLOAD-AC 1>
		    <VEQUAL? MODE8 'TYPE-VALUE-PAIR - PHRASE59>
		    <FRAME 'EMIT>
		    <PUSH 125>
		    <TYPE? ALREADY?12 <TYPE-CODE FALSE> + PHRASE62>
		    <NTHUV ALREADY?12 2 = TEMP26 (TYPE FIX)>
		    <DEAD ALREADY?12>
		    <OR TEMP26 #WORD *120* = TEMP26>
		    <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
		    <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = TEMP26>
		    <JUMP + COND61>
PHRASE62
		    <FRAME 'ADDR-VAR-TYPE-VALUE>
		    <PUSH VAR7>
		    <CALL 'ADDR-VAR-TYPE-VALUE 1 = TEMP26>
COND61
		    <PUSH TEMP26>
		    <DEAD TEMP26>
		    <NTHUV AC9 2 = TEMP26 (TYPE FIX)>
		    <OR TEMP26 #WORD *120* = TEMP26>
		    <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
		    <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP26>
		    <CALL 'EMIT 3>
		    <GVAL 'GC-MODE = TEMP26>
		    <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE126>
		    <DEAD TEMP26>
		    <FRAME 'EMIT>
		    <PUSH 170>
		    <GVAL 'AC-PC = TEMP26>
		    <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
		    <OR TEMP26 #WORD *200* = TEMP26>
		    <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
		    <SET V70 32800 (TYPE FIX)>
		    <AND V70 #WORD *377* = LVAR13>
		    <LSH LVAR13 16 = LVAR13 (TYPE FIX)>
		    <AND V70 #WORD *177400* = SAFE?18>
		    <DEAD V70>
		    <OR LVAR13 SAFE?18 = LVAR13>
		    <DEAD SAFE?18>
		    <AND LVAR13 #WORD *77777400* = LVAR13>
		    <OR TEMP26 LVAR13 = TEMP26>
		    <DEAD LVAR13>
		    <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP26>
		    <NTHUV AC9 2 = LVAR13 (TYPE FIX)>
		    <OR LVAR13 #WORD *120* = LVAR13>
		    <LSH LVAR13 24 = LVAR13 (TYPE FIX)>
		    <CHTYPE LVAR13 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD LVAR13>
		    <CALL 'EMIT 3>
		    <JUMP + PHRASE126>
PHRASE59
		    <VEQUAL? MODE8 'TYPE - PHRASE74>
		    <TYPE? SAFE?18 <TYPE-CODE FALSE> - BOOL77>
		    <DEAD SAFE?18>
		    <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE76>
		    <DEAD LVAR13>
BOOL77
		    <FRAME 'MOVE-TO-AC>
		    <PUSH AC9>
		    <FRAME 'ADDR-VAR-TYPE>
		    <PUSH VAR7>
		    <CALL 'ADDR-VAR-TYPE 1 = STACK>
		    <PUSH 'WORD>
		    <CALL 'MOVE-TO-AC 3>
		    <GVAL 'GC-MODE = LVAR13>
		    <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE126>
		    <DEAD LVAR13>
		    <FRAME 'EMIT>
		    <PUSH 170>
		    <GVAL 'AC-PC = LVAR13>
		    <NTHUV LVAR13 2 = SAFE?18 (TYPE FIX)>
		    <DEAD LVAR13>
		    <OR SAFE?18 #WORD *200* = SAFE?18>
		    <LSH SAFE?18 24 = SAFE?18 (TYPE FIX)>
		    <SET V70 32800 (TYPE FIX)>
		    <AND V70 #WORD *377* = LVAR13>
		    <LSH LVAR13 16 = LVAR13 (TYPE FIX)>
		    <AND V70 #WORD *177400* = TEMP26>
		    <DEAD V70>
		    <OR LVAR13 TEMP26 = LVAR13>
		    <DEAD TEMP26>
		    <AND LVAR13 #WORD *77777400* = LVAR13>
		    <OR SAFE?18 LVAR13 = SAFE?18>
		    <DEAD LVAR13>
		    <CHTYPE SAFE?18 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD SAFE?18>
		    <NTHUV AC9 2 = SAFE?18 (TYPE FIX)>
		    <OR SAFE?18 #WORD *120* = SAFE?18>
		    <LSH SAFE?18 24 = SAFE?18 (TYPE FIX)>
		    <CHTYPE SAFE?18 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD SAFE?18>
		    <CALL 'EMIT 3>
		    <JUMP + PHRASE126>
PHRASE76
		    <FRAME 'VARTBL-DECL>
		    <PUSH VAR7>
		    <CALL 'VARTBL-DECL 1 = LVAR13>
		    <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE87>
		    <FRAME 'MOVE-TO-AC>
		    <PUSH AC9>
		    <FRAME 'TYPE-CODE>
		    <PUSH LVAR13>
		    <DEAD LVAR13>
		    <CALL 'TYPE-CODE 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'MOVE-TO-AC 3>
		    <SET CLEAR-TYPE?21 'T (TYPE ATOM)>
		    <JUMP + PHRASE126>
PHRASE87
		    <FRAME 'ERROR>
		    <PUSH "NO TYPE CODE">
		    <PUSH 'LOAD-VAR-INTO-AC>
		    <CALL 'ERROR 2>
		    <JUMP + PHRASE126>
PHRASE74
		    <VEQUAL? MODE8 'COUNT - PHRASE92>
		    <FRAME 'MOVE-TO-AC>
		    <PUSH AC9>
		    <FRAME 'ADDR-VAR-COUNT>
		    <PUSH VAR7>
		    <CALL 'ADDR-VAR-COUNT 1 = STACK>
		    <PUSH 'WORD>
		    <CALL 'MOVE-TO-AC 3>
		    <JUMP + PHRASE126>
PHRASE92
		    <VEQUAL? MODE8 'TYPE-WORD - PHRASE95>
		    <TYPE? SAFE?18 <TYPE-CODE FALSE> + PHRASE97>
		    <DEAD SAFE?18>
		    <FRAME 'MOVE-TO-AC>
		    <PUSH AC9>
		    <FRAME 'ADDR-VAR-TYPE>
		    <PUSH VAR7>
		    <CALL 'ADDR-VAR-TYPE 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'MOVE-TO-AC 3>
		    <JUMP + PHRASE126>
PHRASE97
		    <FRAME 'VARTBL-DECL>
		    <PUSH VAR7>
		    <CALL 'VARTBL-DECL 1 = LVAR13>
		    <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE102>
		    <FRAME 'COUNT-NEEDED?>
		    <PUSH LVAR13>
		    <CALL 'COUNT-NEEDED? 1 = SAFE?18>
		    <TYPE? SAFE?18 <TYPE-CODE FALSE> + PHRASE105>
		    <DEAD SAFE?18>
		    <FRAME 'MOVE-TO-AC>
		    <PUSH AC9>
		    <FRAME 'VAR-COUNT-ADDRESS>
		    <PUSH VAR7>
		    <CALL 'VAR-COUNT-ADDRESS 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'MOVE-TO-AC 3>
		    <FRAME 'MOVE-TO-AC>
		    <PUSH AC9>
		    <FRAME 'TYPE-CODE>
		    <PUSH LVAR13>
		    <DEAD LVAR13>
		    <CALL 'TYPE-CODE 1 = STACK>
		    <PUSH 'WORD>
		    <CALL 'MOVE-TO-AC 3>
		    <JUMP + COND101>
PHRASE105
		    <FRAME 'MOVE-TO-AC>
		    <PUSH AC9>
		    <FRAME 'TYPE-WORD>
		    <PUSH LVAR13>
		    <DEAD LVAR13>
		    <CALL 'TYPE-WORD 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'MOVE-TO-AC 3>
		    <JUMP + COND101>
PHRASE102
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR7>
		    <CALL 'FIND-CACHE-VAR 1 = LVAR13>
		    <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE114>
		    <NTHUV LVAR13 7 = SAFE?18>
		    <TYPE? SAFE?18 <TYPE-CODE FALSE> + PHRASE117>
		    <NTHUV LVAR13 8 = LVAR13>
		    <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE119>
		    <FRAME 'MOVE-TO-AC>
		    <PUSH AC9>
		    <NTHUV LVAR13 2 = TEMP26 (TYPE FIX)>
		    <DEAD LVAR13>
		    <OR TEMP26 #WORD *120* = TEMP26>
		    <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
		    <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP26>
		    <PUSH 'WORD>
		    <CALL 'MOVE-TO-AC 3>
		    <FRAME 'EMIT>
		    <PUSH 156>
		    <GVAL 'AC-PC = TEMP26>
		    <NTHUV TEMP26 2 = LVAR13 (TYPE FIX)>
		    <DEAD TEMP26>
		    <OR LVAR13 #WORD *200* = LVAR13>
		    <LSH LVAR13 24 = LVAR13 (TYPE FIX)>
		    <LSH 16 16 = TEMP26 (TYPE FIX)>
		    <OR LVAR13 TEMP26 = LVAR13>
		    <DEAD TEMP26>
		    <CHTYPE LVAR13 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD LVAR13>
		    <NTHUV AC9 2 = LVAR13 (TYPE FIX)>
		    <OR LVAR13 #WORD *120* = LVAR13>
		    <LSH LVAR13 24 = LVAR13 (TYPE FIX)>
		    <CHTYPE LVAR13 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD LVAR13>
		    <CALL 'EMIT 3>
PHRASE119
		    <FRAME 'MOVE-TO-AC>
		    <PUSH AC9>
		    <NTHUV SAFE?18 2 = LVAR13 (TYPE FIX)>
		    <DEAD SAFE?18>
		    <OR LVAR13 #WORD *120* = LVAR13>
		    <LSH LVAR13 24 = LVAR13 (TYPE FIX)>
		    <CHTYPE LVAR13 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD LVAR13>
		    <PUSH 'WORD>
		    <CALL 'MOVE-TO-AC 3>
		    <JUMP + COND101>
PHRASE117
		    <FRAME 'ERROR>
		    <PUSH "NO TYPE WORD">
		    <PUSH 'LOAD-VAR-INTO-AC>
		    <CALL 'ERROR 2>
		    <JUMP + COND101>
PHRASE114
		    <FRAME 'ERROR>
		    <PUSH "NO TYPE WORD">
		    <PUSH 'LOAD-VAR-INTO-AC>
		    <CALL 'ERROR 2>
COND101
		    <SET CLEAR-TYPE?21 'T (TYPE ATOM)>
		    <SET CLEAR-COUNT?22 'T (TYPE ATOM)>
		    <FRAME 'USE-AC>
		    <PUSH AC9>
		    <CALL 'USE-AC 1>
		    <JUMP + PHRASE126>
PHRASE95
		    <VEQUAL? MODE8 'VALUE - PHRASE126>
		    <FRAME 'MOVE-TO-AC>
		    <PUSH AC9>
		    <FRAME 'ADDR-VAR-VALUE>
		    <PUSH VAR7>
		    <CALL 'ADDR-VAR-VALUE 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'MOVE-TO-AC 3>
PHRASE126
		    <TYPE? MODIFY?10 <TYPE-CODE FALSE> - PHRASE130>
		    <DEAD MODIFY?10>
		    <FRAME 'LINK-VAR-TO-AC>
		    <PUSH VAR7>
		    <DEAD VAR7>
		    <PUSH AC9>
		    <DEAD AC9>
		    <PUSH MODE8>
		    <DEAD MODE8>
		    <PUSH 'T>
		    <PUSH %<>>
		    <CALL 'LINK-VAR-TO-AC 5 = RLVAR19>
PHRASE130
		    <SET LVAR13 RLVAR19>
		    <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE137>
		    <VEQUAL? CLEAR-TYPE?21 0 + PHRASE135>
		    <DEAD CLEAR-TYPE?21>
		    <PUTUV RLVAR19 4 %<>>
PHRASE135
		    <SET LVAR13 CLEAR-COUNT?22>
		    <DEAD CLEAR-COUNT?22>
		    <VEQUAL? LVAR13 0 + PHRASE137>
		    <PUTUV RLVAR19 3 %<>>
		    <SET LVAR13 RLVAR19>
		    <DEAD RLVAR19>
PHRASE137
		    <RETURN LVAR13>
		    <DEAD LVAR13>
		    <END LOAD-VAR-INTO-AC>


#WORD *36560534574*
<GFCN MATCH-AC? ("VALUE" <OR ATOM FALSE> AC AC-CHOICES) AC4 MODE5>
		    <TEMP TEMP9>
		    <INTGO>
		    <TYPE? MODE5 <TYPE-CODE AC> - PHRASE7>
		    <VEQUAL? AC4 MODE5 - TAG8>
		    <DEAD AC4 MODE5>
		    <RETURN 'T>
TAG8
		    <RETURN %<>>
PHRASE7
		    <RETURN 'T>
		    <END MATCH-AC?>
#WORD *25177725536*
<GFCN VAR-VALUE-ADDRESS ("VALUE" <OR EFF-ADDR LADDR> VARTBL "OPTIONAL" ANY) VAR6 WRITE?7>
		    <OPT-DISPATCH 1 %<> OPT4 OPT5>
OPT4
		    <PUSH %<>>
OPT5
		    <TEMP LVAR8 TAC9 TEMP18>
		    <INTGO>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR6>
		    <CALL 'FIND-CACHE-VAR 1 = LVAR8>
		    <TYPE? LVAR8 <TYPE-CODE FALSE> + PHRASE11>
		    <NTHUV LVAR8 6 = TAC9>
		    <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE11>
		    <TYPE? WRITE?7 <TYPE-CODE FALSE> + PHRASE15>
		    <DEAD WRITE?7>
		    <NTHUV TAC9 8 = TEMP18 (TYPE VECTOR)>
		    <LENUV TEMP18 = TEMP18 (TYPE FIX)>
		    <GRTR? TEMP18 1 - PHRASE15>
		    <DEAD TEMP18>
		    <FRAME 'STORE-AC>
		    <PUSH TAC9>
		    <PUSH 'T>
		    <PUSH LVAR8>
		    <DEAD LVAR8>
		    <CALL 'STORE-AC 3>
PHRASE15
		    <FRAME 'USE-AC>
		    <PUSH TAC9>
		    <CALL 'USE-AC 1>
		    <NTHUV TAC9 2 = TEMP18 (TYPE FIX)>
		    <DEAD TAC9>
		    <OR TEMP18 #WORD *120* = TEMP18>
		    <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
		    <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = TEMP18>
		    <RETURN TEMP18>
		    <DEAD TEMP18>
PHRASE11
		    <FRAME 'ADDR-VAR-VALUE>
		    <PUSH VAR6>
		    <DEAD VAR6>
		    <CALL 'ADDR-VAR-VALUE 1 = TEMP18>
		    <RETURN TEMP18>
		    <DEAD TEMP18>
		    <END VAR-VALUE-ADDRESS>
#WORD *21100545544*
<GFCN VAR-TYPE-ADDRESS ("VALUE" <OR EFF-ADDR LADDR> VARTBL "OPTIONAL" ATOM ANY) VAR7 MODE8 WRITE?9>
		    <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
OPT4
		    <PUSH 'TYPE>
OPT5
		    <PUSH %<>>
OPT6
		    <TEMP LVAR10 TAC11 TEMP21>
		    <INTGO>
		    <VEQUAL? MODE8 'TYPE - PHRASE13>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR7>
		    <CALL 'FIND-CACHE-VAR 1 = LVAR10>
		    <TYPE? LVAR10 <TYPE-CODE FALSE> + PHRASE13>
		    <NTHUV LVAR10 7 = TAC11>
		    <TYPE? TAC11 <TYPE-CODE FALSE> - BOOL16>
		    <NTHUV LVAR10 9 = TAC11>
		    <TYPE? TAC11 <TYPE-CODE FALSE> + PHRASE13>
BOOL16
		    <TYPE? WRITE?9 <TYPE-CODE FALSE> + PHRASE18>
		    <DEAD WRITE?9>
		    <NTHUV TAC11 8 = TEMP21 (TYPE VECTOR)>
		    <LENUV TEMP21 = TEMP21 (TYPE FIX)>
		    <GRTR? TEMP21 1 - PHRASE18>
		    <DEAD TEMP21>
		    <FRAME 'STORE-AC>
		    <PUSH TAC11>
		    <PUSH 'T>
		    <PUSH LVAR10>
		    <DEAD LVAR10>
		    <CALL 'STORE-AC 3>
PHRASE18
		    <FRAME 'USE-AC>
		    <PUSH TAC11>
		    <CALL 'USE-AC 1>
		    <NTHUV TAC11 2 = TEMP21 (TYPE FIX)>
		    <DEAD TAC11>
		    <OR TEMP21 #WORD *120* = TEMP21>
		    <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
		    <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
		    <RETURN TEMP21>
		    <DEAD TEMP21>
PHRASE13
		    <VEQUAL? MODE8 'TYPE-WORD + BOOL26>
		    <VEQUAL? MODE8 'TYPEMODE + BOOL26>
		    <VEQUAL? MODE8 'TYPEWORD - PHRASE24>
		    <DEAD MODE8>
BOOL26
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR7>
		    <CALL 'FIND-CACHE-VAR 1 = LVAR10>
		    <TYPE? LVAR10 <TYPE-CODE FALSE> + PHRASE24>
		    <NTHUV LVAR10 9 = TAC11>
		    <TYPE? TAC11 <TYPE-CODE FALSE> + PHRASE24>
		    <TYPE? WRITE?9 <TYPE-CODE FALSE> + PHRASE29>
		    <DEAD WRITE?9>
		    <NTHUV TAC11 8 = TEMP21 (TYPE VECTOR)>
		    <LENUV TEMP21 = TEMP21 (TYPE FIX)>
		    <GRTR? TEMP21 1 - PHRASE29>
		    <DEAD TEMP21>
		    <FRAME 'STORE-AC>
		    <PUSH TAC11>
		    <PUSH 'T>
		    <PUSH LVAR10>
		    <DEAD LVAR10>
		    <CALL 'STORE-AC 3>
PHRASE29
		    <FRAME 'USE-AC>
		    <PUSH TAC11>
		    <CALL 'USE-AC 1>
		    <NTHUV TAC11 2 = TEMP21 (TYPE FIX)>
		    <DEAD TAC11>
		    <OR TEMP21 #WORD *120* = TEMP21>
		    <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
		    <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
		    <RETURN TEMP21>
		    <DEAD TEMP21>
PHRASE24
		    <FRAME 'ADDR-VAR-TYPE>
		    <PUSH VAR7>
		    <DEAD VAR7>
		    <CALL 'ADDR-VAR-TYPE 1 = TEMP21>
		    <RETURN TEMP21>
		    <DEAD TEMP21>
		    <END VAR-TYPE-ADDRESS>
#WORD *7226504030*
<GFCN VAR-COUNT-ADDRESS ("VALUE" <OR EFF-ADDR LADDR> VARTBL "OPTIONAL" ANY) VAR6 WRITE?7>
		    <OPT-DISPATCH 1 %<> OPT4 OPT5>
OPT4
		    <PUSH %<>>
OPT5
		    <TEMP LVAR8 TAC9 TEMP18>
		    <INTGO>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR6>
		    <CALL 'FIND-CACHE-VAR 1 = LVAR8>
		    <TYPE? LVAR8 <TYPE-CODE FALSE> + PHRASE11>
		    <NTHUV LVAR8 8 = TAC9>
		    <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE11>
		    <TYPE? WRITE?7 <TYPE-CODE FALSE> + PHRASE15>
		    <DEAD WRITE?7>
		    <NTHUV TAC9 8 = TEMP18 (TYPE VECTOR)>
		    <LENUV TEMP18 = TEMP18 (TYPE FIX)>
		    <GRTR? TEMP18 1 - PHRASE15>
		    <DEAD TEMP18>
		    <FRAME 'STORE-AC>
		    <PUSH TAC9>
		    <PUSH 'T>
		    <PUSH LVAR8>
		    <DEAD LVAR8>
		    <CALL 'STORE-AC 3>
PHRASE15
		    <FRAME 'USE-AC>
		    <PUSH TAC9>
		    <CALL 'USE-AC 1>
		    <NTHUV TAC9 2 = TEMP18 (TYPE FIX)>
		    <DEAD TAC9>
		    <OR TEMP18 #WORD *120* = TEMP18>
		    <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
		    <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = TEMP18>
		    <RETURN TEMP18>
		    <DEAD TEMP18>
PHRASE11
		    <FRAME 'ADDR-VAR-COUNT>
		    <PUSH VAR6>
		    <DEAD VAR6>
		    <CALL 'ADDR-VAR-COUNT 1 = TEMP18>
		    <RETURN TEMP18>
		    <DEAD TEMP18>
		    <END VAR-COUNT-ADDRESS>
#WORD *3561006424*
<GFCN STORE-ALL-ACS ("VALUE" ANY)>
		    <TEMP TEMP13 TEMP15:VECTOR>
		    <INTGO>
		    <SET TEMP13 %<> (TYPE FALSE)>
		    <GVAL 'ALL-ACS = TEMP15>
		    <LOOP>
MAP5
		    <INTGO>
		    <EMPUV? TEMP15 + MAPAP8>
		    <NTHUV TEMP15 1 = TEMP13>
		    <FRAME 'STORE-AC>
		    <PUSH TEMP13>
		    <DEAD TEMP13>
		    <PUSH %<>>
		    <CALL 'STORE-AC 2 = TEMP13>
		    <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
		    <JUMP + MAP5>
MAPAP8
		    <RETURN TEMP13>
		    <DEAD TEMP13>
		    <END STORE-ALL-ACS>
#WORD *11454050466*
<GFCN PUSH-TEMPS ("VALUE" ANY "OPTIONAL" ANY) MODEL6>
		    <OPT-DISPATCH 0 %<> OPT4 OPT5>
OPT4
		    <PUSH #T$UNBOUND 0>
OPT5
		    <TEMP TEMP12 TEMP25:LIST>
		    <INTGO>
		    <TYPE? MODEL6 <TYPE-CODE UNBOUND> - TAG7>
		    <GVAL 'TOP-MODEL = MODEL6>
TAG7
		    <NTHUV MODEL6 1 = TEMP12 (TYPE FIX)>
		    <VEQUAL? TEMP12 0 - TAG13 (TYPE FIX)>
		    <DEAD TEMP12>
		    <RETURN %<>>
TAG13
		    <FRAME 'START-CODE-INSERT>
		    <CALL 'START-CODE-INSERT 0>
		    <FRAME 'PUSH-MODEL>
		    <PUSH MODEL6>
		    <CALL 'PUSH-MODEL 1>
		    <FRAME 'INSERT-PATCH>
		    <NTHUV MODEL6 1 = STACK (TYPE FIX)>
		    <FRAME 'END-CODE-INSERT>
		    <CALL 'END-CODE-INSERT 0 = STACK>
		    <CALL 'INSERT-PATCH 2>
		    <SET TEMP12 %<> (TYPE FALSE)>
		    <NTHUV MODEL6 3 = TEMP25 (TYPE LIST)>
		    <DEAD MODEL6>
		    <LOOP>
MAP21
		    <INTGO>
		    <EMPL? TEMP25 + MAP20>
		    <FRAME 'PUSH-TEMPS>
		    <NTHL TEMP25 1 = STACK>
		    <CALL 'PUSH-TEMPS 1 = TEMP12>
		    <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
		    <JUMP + MAP21>
MAP20
		    <RETURN TEMP12>
		    <DEAD TEMP12>
		    <END PUSH-TEMPS>
#WORD *31273436507*
<GFCN PUSH-TEMP ("VALUE" ANY VARTBL) VAR4>
		    <TEMP IVAL5>
		    <INTGO>
		    <NTHUV VAR4 8 = IVAL5>
		    <TYPE? IVAL5 <TYPE-CODE FALSE> + PHRASE8>
		    <FRAME 'PUSH-CONSTANT>
		    <PUSH IVAL5>
		    <DEAD IVAL5>
		    <CALL 'PUSH-CONSTANT 1 = IVAL5>
		    <RETURN IVAL5>
		    <DEAD IVAL5>
PHRASE8
		    <NTHUV VAR4 4 = IVAL5>
		    <DEAD VAR4>
		    <TYPE? IVAL5 <TYPE-CODE FALSE> + PHRASE11>
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'TYPE-WORD>
		    <PUSH IVAL5>
		    <DEAD IVAL5>
		    <CALL 'TYPE-WORD 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
		    <FRAME 'CLEAR-PUSH>
		    <CALL 'CLEAR-PUSH 0 = IVAL5>
		    <RETURN IVAL5>
		    <DEAD IVAL5>
PHRASE11
		    <FRAME 'CLEAR-PUSH>
		    <PUSH 'DOUBLE>
		    <CALL 'CLEAR-PUSH 1 = IVAL5>
		    <RETURN IVAL5>
		    <DEAD IVAL5>
		    <END PUSH-TEMP>
#WORD *17460344666*
<GFCN PUSH-CONSTANT ("VALUE" ANY ANY) IVAL4>
		    <TEMP RVAL5 TEMP21>
		    <INTGO>
		    <TYPE? IVAL4 <TYPE-CODE SPEC-FALSE> - PHRASE7>
		    <CHTYPE IVAL4 <TYPE-CODE FALSE> = IVAL4>
PHRASE7
		    <FRAME 'FIX-CONSTANT?>
		    <PUSH IVAL4>
		    <CALL 'FIX-CONSTANT? 1 = RVAL5>
		    <TYPE? RVAL5 <TYPE-CODE FALSE> + PHRASE9>
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'TYPE-WORD>
		    <FRAME 'TYPE>
		    <PUSH IVAL4>
		    <DEAD IVAL4>
		    <CALL 'TYPE 1 = STACK>
		    <CALL 'TYPE-WORD 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
		    <VEQUAL? RVAL5 0 - PHRASE15 (TYPE FIX)>
		    <FRAME 'CLEAR-PUSH>
		    <PUSH 'LONG>
		    <CALL 'CLEAR-PUSH 1 = RVAL5>
		    <RETURN RVAL5>
		    <DEAD RVAL5>
PHRASE15
		    <FRAME 'EMIT-PUSH>
		    <GVAL 'AC-PC = TEMP21>
		    <NTHUV TEMP21 2 = TEMP21 (TYPE FIX)>
		    <OR TEMP21 #WORD *200* = TEMP21>
		    <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
		    <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
		    <CONS TEMP21 () = TEMP21>
		    <FRAME 'LREV>
		    <PUSH RVAL5>
		    <DEAD RVAL5>
		    <CALL 'LREV 1 = RVAL5>
		    <CHTYPE RVAL5 <TYPE-CODE EFF-ADDR> = RVAL5>
		    <CONS RVAL5 () = RVAL5>
		    <PUTREST TEMP21 RVAL5>
		    <DEAD RVAL5>
		    <CHTYPE TEMP21 <TYPE-CODE LADDR> = STACK>
		    <DEAD TEMP21>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2 = RVAL5>
		    <RETURN RVAL5>
		    <DEAD RVAL5>
PHRASE9
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'ADDR-TYPE-MQUOTE>
		    <PUSH IVAL4>
		    <DEAD IVAL4>
		    <CALL 'ADDR-TYPE-MQUOTE 1 = STACK>
		    <PUSH 'DOUBLE>
		    <CALL 'EMIT-PUSH 2 = RVAL5>
		    <RETURN RVAL5>
		    <DEAD RVAL5>
		    <END PUSH-CONSTANT>
#WORD *33125545577*
<GFCN PUSH-VAR ("VALUE" ANY VARTBL) VAR4>
		    <TEMP (DONE9 %<>) LVAR6 TAC7 TEMP17 TEMP18>
		    <INTGO>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR4>
		    <CALL 'FIND-CACHE-VAR 1 = LVAR6>
		    <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE11>
		    <NTHUV LVAR6 9 = TAC7>
		    <TYPE? TAC7 <TYPE-CODE FALSE> + PHRASE11>
		    <NTHUV LVAR6 6 = LVAR6>
		    <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE15>
		    <NTHUV TAC7 2 = TEMP17 (TYPE FIX)>
		    <ADD TEMP17 1 = TEMP17 (TYPE FIX)>
		    <NTHUV LVAR6 2 = TEMP18 (TYPE FIX)>
		    <VEQUAL? TEMP17 TEMP18 - PHRASE15 (TYPE FIX)>
		    <DEAD TEMP17 TEMP18>
		    <FRAME 'EMIT-PUSH>
		    <NTHUV TAC7 2 = TEMP17 (TYPE FIX)>
		    <OR TEMP17 #WORD *120* = TEMP17>
		    <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
		    <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP17>
		    <PUSH 'DOUBLE>
		    <CALL 'EMIT-PUSH 2>
		    <SET DONE9 'T (TYPE ATOM)>
		    <FRAME 'USE-AC>
		    <PUSH LVAR6>
		    <DEAD LVAR6>
		    <CALL 'USE-AC 1>
		    <JUMP + PHRASE21>
PHRASE15
		    <FRAME 'EMIT-PUSH>
		    <NTHUV TAC7 2 = TEMP17 (TYPE FIX)>
		    <OR TEMP17 #WORD *120* = TEMP17>
		    <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
		    <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP17>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
PHRASE21
		    <FRAME 'USE-AC>
		    <PUSH TAC7>
		    <DEAD TAC7>
		    <CALL 'USE-AC 1>
		    <JUMP + COND10>
PHRASE11
		    <FRAME 'SAFE-TYPE-WORD?>
		    <PUSH VAR4>
		    <CALL 'SAFE-TYPE-WORD? 1 = TEMP17>
		    <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE24>
		    <DEAD TEMP17>
		    <TYPE? LVAR6 <TYPE-CODE FALSE> + BOOL28>
		    <NTHUV LVAR6 2 = TEMP17>
		    <DEAD LVAR6>
		    <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE27>
		    <DEAD TEMP17>
BOOL28
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'ADDR-VAR-TYPE>
		    <PUSH VAR4>
		    <CALL 'ADDR-VAR-TYPE 1 = STACK>
		    <PUSH 'DOUBLE>
		    <CALL 'EMIT-PUSH 2>
		    <SET DONE9 'T (TYPE ATOM)>
		    <JUMP + COND10>
PHRASE27
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'ADDR-VAR-TYPE>
		    <PUSH VAR4>
		    <CALL 'ADDR-VAR-TYPE 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
		    <JUMP + COND10>
PHRASE24
		    <FRAME 'VARTBL-DECL>
		    <PUSH VAR4>
		    <CALL 'VARTBL-DECL 1 = TAC7>
		    <TYPE? TAC7 <TYPE-CODE FALSE> + PHRASE34>
		    <FRAME 'COUNT-NEEDED?>
		    <PUSH TAC7>
		    <CALL 'COUNT-NEEDED? 1 = TEMP17>
		    <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE37>
		    <DEAD TEMP17>
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'TYPE-CODE>
		    <PUSH TAC7>
		    <DEAD TAC7>
		    <PUSH 'FIX>
		    <CALL 'TYPE-CODE 2 = STACK>
		    <PUSH 'WORD>
		    <CALL 'EMIT-PUSH 2>
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'VAR-COUNT-ADDRESS>
		    <PUSH VAR4>
		    <CALL 'VAR-COUNT-ADDRESS 1 = STACK>
		    <PUSH 'WORD>
		    <CALL 'EMIT-PUSH 2>
		    <JUMP + COND10>
PHRASE37
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'TYPE-WORD>
		    <PUSH TAC7>
		    <DEAD TAC7>
		    <CALL 'TYPE-WORD 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
		    <JUMP + COND10>
PHRASE34
		    <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE45>
		    <NTHUV LVAR6 7 = TAC7>
		    <TYPE? TAC7 <TYPE-CODE FALSE> + PHRASE45>
		    <FRAME 'EMIT-PUSH>
		    <NTHUV TAC7 2 = TEMP18 (TYPE FIX)>
		    <OR TEMP18 #WORD *120* = TEMP18>
		    <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
		    <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP18>
		    <PUSH 'WORD>
		    <CALL 'EMIT-PUSH 2>
		    <FRAME 'USE-AC>
		    <PUSH TAC7>
		    <DEAD TAC7>
		    <CALL 'USE-AC 1>
		    <NTHUV LVAR6 8 = TAC7>
		    <DEAD LVAR6>
		    <TYPE? TAC7 <TYPE-CODE FALSE> + COND10>
		    <FRAME 'EMIT-PUSH>
		    <NTHUV TAC7 2 = TEMP18 (TYPE FIX)>
		    <OR TEMP18 #WORD *120* = TEMP18>
		    <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
		    <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP18>
		    <PUSH 'WORD>
		    <CALL 'EMIT-PUSH 2>
		    <FRAME 'USE-AC>
		    <PUSH TAC7>
		    <DEAD TAC7>
		    <CALL 'USE-AC 1>
		    <JUMP + COND10>
PHRASE45
		    <FRAME 'ERROR>
		    <PUSH "NO TYPE WORD">
		    <PUSH 'PUSH-VAR>
		    <CALL 'ERROR 2>
COND10
		    <VEQUAL? DONE9 0 + TAG56>
		    <DEAD DONE9>
		    <RETURN %<>>
TAG56
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <CALL 'VAR-VALUE-ADDRESS 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2 = TEMP18>
		    <RETURN TEMP18>
		    <DEAD TEMP18>
		    <END PUSH-VAR>
#WORD *13340740250*
<GFCN MOVE-COUNT-FROM-TYPEWORD ("VALUE" STRUCTURED ANY AC AC-CHOICES BOOLEAN) VAR4 TAC5 ACTYPE6 MODIFY?7>
		    <TEMP TEMP12 NAC8 TEMP16>
		    <INTGO>
		    <FRAME 'ALL-STORED?>
		    <PUSH TAC5>
		    <CALL 'ALL-STORED? 1 = TEMP12>
		    <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
		    <DEAD TEMP12>
		    <FRAME 'MUNG-AC>
		    <PUSH TAC5>
		    <CALL 'MUNG-AC 1>
		    <SET NAC8 TAC5>
		    <FRAME 'EMIT>
		    <PUSH 202>
		    <GVAL 'AC-PC = TEMP12>
		    <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
		    <OR TEMP12 #WORD *200* = TEMP12>
		    <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
		    <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = TEMP12>
		    <CONS TEMP12 () = TEMP12>
		    <FRAME 'LREV>
		    <PUSH 65535>
		    <CALL 'LREV 1 = TEMP16>
		    <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = TEMP16>
		    <CONS TEMP16 () = TEMP16>
		    <PUTREST TEMP12 TEMP16>
		    <DEAD TEMP16>
		    <CHTYPE TEMP12 <TYPE-CODE LADDR> = STACK>
		    <DEAD TEMP12>
		    <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
		    <OR TEMP12 #WORD *120* = TEMP12>
		    <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
		    <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP12>
		    <CALL 'EMIT 3>
		    <FRAME 'EMIT>
		    <PUSH 156>
		    <GVAL 'AC-PC = TEMP12>
		    <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
		    <OR TEMP12 #WORD *200* = TEMP12>
		    <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
		    <LSH 16 16 = TEMP16 (TYPE FIX)>
		    <OR TEMP12 TEMP16 = TEMP12>
		    <DEAD TEMP16>
		    <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP12>
		    <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
		    <OR TEMP12 #WORD *120* = TEMP12>
		    <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
		    <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP12>
		    <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
		    <DEAD TAC5>
		    <OR TEMP12 #WORD *120* = TEMP12>
		    <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
		    <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP12>
		    <CALL 'EMIT 4>
		    <JUMP + PHRASE18>
PHRASE10
		    <FRAME 'PROTECT-USE>
		    <PUSH TAC5>
		    <CALL 'PROTECT-USE 1>
		    <FRAME 'GET-AC>
		    <PUSH ACTYPE6>
		    <DEAD ACTYPE6>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = NAC8>
		    <FRAME 'EMIT>
		    <PUSH 203>
		    <GVAL 'AC-PC = TEMP12>
		    <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
		    <OR TEMP12 #WORD *200* = TEMP12>
		    <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
		    <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = TEMP12>
		    <CONS TEMP12 () = TEMP12>
		    <FRAME 'LREV>
		    <PUSH 65535>
		    <CALL 'LREV 1 = TEMP16>
		    <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = TEMP16>
		    <CONS TEMP16 () = TEMP16>
		    <PUTREST TEMP12 TEMP16>
		    <DEAD TEMP16>
		    <CHTYPE TEMP12 <TYPE-CODE LADDR> = STACK>
		    <DEAD TEMP12>
		    <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
		    <DEAD TAC5>
		    <OR TEMP12 #WORD *120* = TEMP12>
		    <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
		    <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP12>
		    <NTHUV NAC8 2 = TEMP12 (TYPE FIX)>
		    <OR TEMP12 #WORD *120* = TEMP12>
		    <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
		    <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP12>
		    <CALL 'EMIT 4>
		    <FRAME 'EMIT>
		    <PUSH 156>
		    <GVAL 'AC-PC = TEMP12>
		    <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
		    <OR TEMP12 #WORD *200* = TEMP12>
		    <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
		    <LSH 16 16 = TEMP16 (TYPE FIX)>
		    <OR TEMP12 TEMP16 = TEMP12>
		    <DEAD TEMP16>
		    <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP12>
		    <NTHUV NAC8 2 = TEMP12 (TYPE FIX)>
		    <OR TEMP12 #WORD *120* = TEMP12>
		    <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
		    <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP12>
		    <NTHUV NAC8 2 = TEMP12 (TYPE FIX)>
		    <OR TEMP12 #WORD *120* = TEMP12>
		    <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
		    <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP12>
		    <CALL 'EMIT 4>
PHRASE18
		    <TYPE? MODIFY?7 <TYPE-CODE FALSE> - BOOL24>
		    <DEAD MODIFY?7>
		    <FRAME 'LINK-VAR-TO-AC>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <PUSH NAC8>
		    <PUSH 'COUNT>
		    <PUSH 'NO-CHANGE>
		    <CALL 'LINK-VAR-TO-AC 4>
BOOL24
		    <RETURN NAC8>
		    <DEAD NAC8>
		    <END MOVE-COUNT-FROM-TYPEWORD>
#WORD *6237122435*
<GFCN MOVE-TYPE-FROM-TYPEWORD ("VALUE" AC ANY AC AC-CHOICES BOOLEAN) VAR4 TAC5 ACTYPE6 MODIFY?7>
		    <TEMP TEMP12 NAC8:AC V25:FIX TEMP27:FIX>
		    <INTGO>
		    <FRAME 'ALL-STORED?>
		    <PUSH TAC5>
		    <CALL 'ALL-STORED? 1 = TEMP12>
		    <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
		    <DEAD TEMP12>
		    <FRAME 'MUNG-AC>
		    <PUSH TAC5>
		    <CALL 'MUNG-AC 1>
		    <FRAME 'EMIT>
		    <PUSH 60>
		    <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
		    <OR TEMP12 #WORD *120* = TEMP12>
		    <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
		    <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP12>
		    <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
		    <OR TEMP12 #WORD *120* = TEMP12>
		    <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
		    <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP12>
		    <CALL 'EMIT 3>
		    <SET NAC8 TAC5>
		    <DEAD TAC5>
		    <JUMP + PHRASE15>
PHRASE10
		    <FRAME 'PROTECT-USE>
		    <PUSH TAC5>
		    <CALL 'PROTECT-USE 1>
		    <FRAME 'GET-AC>
		    <PUSH ACTYPE6>
		    <DEAD ACTYPE6>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = NAC8>
		    <FRAME 'EMIT>
		    <PUSH 60>
		    <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
		    <DEAD TAC5>
		    <OR TEMP12 #WORD *120* = TEMP12>
		    <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
		    <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP12>
		    <NTHUV NAC8 2 = TEMP12 (TYPE FIX)>
		    <OR TEMP12 #WORD *120* = TEMP12>
		    <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
		    <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP12>
		    <CALL 'EMIT 3>
PHRASE15
		    <GVAL 'GC-MODE = TEMP12>
		    <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE20>
		    <DEAD TEMP12>
		    <FRAME 'EMIT>
		    <PUSH 170>
		    <GVAL 'AC-PC = TEMP12>
		    <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
		    <OR TEMP12 #WORD *200* = TEMP12>
		    <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
		    <SET V25 32800 (TYPE FIX)>
		    <AND V25 #WORD *377* = TEMP27>
		    <LSH TEMP27 16 = TEMP27 (TYPE FIX)>
		    <AND V25 #WORD *177400* = V25>
		    <OR TEMP27 V25 = V25>
		    <DEAD TEMP27>
		    <AND V25 #WORD *77777400* = V25>
		    <OR TEMP12 V25 = TEMP12>
		    <DEAD V25>
		    <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD TEMP12>
		    <NTHUV NAC8 2 = V25 (TYPE FIX)>
		    <OR V25 #WORD *120* = V25>
		    <LSH V25 24 = V25 (TYPE FIX)>
		    <CHTYPE V25 <TYPE-CODE EFF-ADDR> = STACK>
		    <DEAD V25>
		    <CALL 'EMIT 3>
PHRASE20
		    <TYPE? MODIFY?7 <TYPE-CODE FALSE> - BOOL29>
		    <DEAD MODIFY?7>
		    <FRAME 'LINK-VAR-TO-AC>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <PUSH NAC8>
		    <PUSH 'TYPE>
		    <PUSH 'NO-CHANGE>
		    <CALL 'LINK-VAR-TO-AC 4>
BOOL29
		    <FRAME 'CLEAR-STATUS>
		    <CALL 'CLEAR-STATUS 0>
		    <RETURN NAC8>
		    <DEAD NAC8>
		    <END MOVE-TYPE-FROM-TYPEWORD>
#WORD *10125772777*
<GFCN VARTBL-ASSIGNED? ("VALUE" ANY VARTBL) VAR4>
		    <TEMP TEMP6>
		    <INTGO>
		    <NTHUV VAR4 2 = TEMP6>
		    <TYPE? TEMP6 <TYPE-CODE FALSE> - BOOL5>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAR4>
		    <DEAD VAR4>
		    <CALL 'FIND-CACHE-VAR 1 = TEMP6>
BOOL5
		    <RETURN TEMP6>
		    <DEAD TEMP6>
		    <END VARTBL-ASSIGNED?>
#WORD *23525400142*
<GFCN PUSH-MODEL ("VALUE" ANY STK-MODEL) MODEL4>
		    <TEMP TEMP14 TEMP16:LIST VAR17:VARTBL>
		    <INTGO>
		    <SET TEMP14 %<> (TYPE FALSE)>
		    <NTHUV MODEL4 2 = TEMP16 (TYPE LIST)>
		    <DEAD MODEL4>
		    <LOOP>
MAP6
		    <INTGO>
		    <EMPL? TEMP16 + MAPAP9>
		    <NTHL TEMP16 1 = VAR17>
		    <NTHUV VAR17 6 = TEMP14>
		    <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE19>
		    <FRAME 'PUSH-TEMP>
		    <PUSH VAR17>
		    <DEAD VAR17>
		    <CALL 'PUSH-TEMP 1 = TEMP14>
PHRASE19
		    <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
		    <JUMP + MAP6>
MAPAP9
		    <RETURN TEMP14>
		    <DEAD TEMP14>
		    <END PUSH-MODEL>
#WORD *7162751154*
<GFCN ADDR-VAR-OFFSET ("VALUE" <OR FALSE FIX> VARTBL) VAR4>
		    <TEMP TEMP6>
		    <INTGO>
		    <FRAME 'GEN-LOC>
		    <PUSH VAR4>
		    <PUSH 0>
		    <CALL 'GEN-LOC 2>
		    <NTHUV VAR4 2 = TEMP6>
		    <DEAD VAR4>
		    <RETURN TEMP6>
		    <DEAD TEMP6>
		    <END ADDR-VAR-OFFSET>