--- /dev/null
+
+<USE "HASH">
+
+<COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD">)>
+
+<SETG AC-R 10>
+
+<MANIFEST AC-R>
+
+<SETG SETZ-R <CHTYPE <ORB -0 <LSH ,AC-R 18>> FIX>>
+
+<SETG SETZX-R <CHTYPE <ORB -25769803776 <LSH ,AC-R 18>> FIX>>
+
+<SETG SETZQ-R <CHTYPE <ORB -17179869184 <LSH ,AC-R 18>> FIX>>
+
+<SETG SETZ-IND -34355544064>
+
+<SETG SETZ -0>
+
+<SETG ACS [O* 0 A1* 1 A2* 2 B1* 3 B2* 4 C1* 5 C2* 6 T* 7 O1* 8 O2* 9 R* 10 M* 11 SP* 12 F* 13 TP* 14 P* 15]>
+
+<REPEAT ((A ,ACS)) <SETG <1 .A> <2 .A>> <COND (<EMPTY? <SET A <REST .A 2>>> <RETURN>)>>
+
+<SETG ACNAMS [A1 A2 B1 B2 C1 C2 T O1 O2 R M SP F TP P]>
+
+<GDECL (ACNAMS) <VECTOR [REST ATOM]>>
+
+#WORD *25133337411*
+<GFCN \1aNEXTINS ("VALUE" <OR FALSE FORM> LIST) L5>
+ <TEMP TEMP15 TEMP12:LIST ITM17>
+ <INTGO>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPL? L5 + MAPAP10>
+ <NTHL L5 1 = ITM17>
+ <TYPE? ITM17 <TYPE-CODE FORM> + TAG20>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + PHRASE19>
+TAG20
+ <RETURN ITM17>
+ <DEAD ITM17>
+PHRASE19
+ <RESTL L5 1 = L5 (TYPE LIST)>
+ <JUMP + MAP7>
+MAPAP10
+ <DEAD L5>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aNEXTINS>
+<SETG AC-STAMP 0>
+
+<SETG AC-TABLE '[#AC [O* %<> DUMMY 0 %<> %<>] #AC [A1* %<> DUMMY 0 %<> %<>] #AC [A2* %<> DUMMY 0 %<> %<>] #AC [B1* %<> DUMMY 0 %<> %<>] #AC [B2* %<> DUMMY 0 %<> %<>] #AC [C1* %<> DUMMY 0 %<> %<>] #AC [C2* %<> DUMMY 0 %<> %<>] #AC [X* %<> DUMMY 0 %<> %<>] #AC [T* %<> DUMMY %<CHTYPE <MIN> FIX> %<> %<>]]>
+
+<MAPR <> <FUNCTION (TBL "AUX" (AC <1 .TBL>)) #DECL ((TBL) <VECTOR [REST AC]> (AC) AC) <COND (<1? <LENGTH .TBL>> <PUTPROP <AC-NAME .AC> AC .AC> <MAPLEAVE>) (T <PUTPROP <AC-NAME .AC> NEXTAC <COND (<==? <AC-NAME <2 .TBL>> X*> T*) (ELSE <AC-NAME <2 .TBL>>)>> <PUTPROP <COND (<==? <AC-NAME <2 .TBL>> X*> T*) (ELSE <AC-NAME <2 .TBL>>)> AC-PAIR <AC-NAME .AC>> <PUTPROP <COND (<==? <AC-NAME <2 .TBL>> X*> <3 .TBL>) (ELSE <2 .TBL>)> AC-PAIR .AC> <PUTPROP .AC NEXTAC <COND (<==? <AC-NAME <2 .TBL>> X*> T*) (ELSE <AC-NAME <2 .TBL>>)>> <PUTPROP <AC-NAME .AC> AC .AC>)>> ,AC-TABLE>
+
+<SETG AC-PAIR-TABLE [<2 ,AC-TABLE> <3 ,AC-TABLE> <4 ,AC-TABLE> <5 ,AC-TABLE> <6 ,AC-TABLE> <7 ,AC-TABLE>]>
+
+<SETG NULL-STATES <MAPF ,VECTOR <FUNCTION (AC) <CHTYPE [.AC <> <> <> DUMMY] ACSTATE>> ,AC-PAIR-TABLE>>
+
+#WORD *1712330064*
+<GFCN \1aNEXT-AC ("VALUE" ANY <OR ATOM AC>) AC5>
+ <TEMP TEMP8>
+ <INTGO>
+ <EQUAL? AC5 'STACK - PHRASE7>
+ <RETURN 'STACK>
+PHRASE7
+ <FRAME '\1aGETPROP>
+ <PUSH AC5>
+ <DEAD AC5>
+ <PUSH 'NEXTAC>
+ <CALL '\1aGETPROP 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aNEXT-AC>
+#WORD *33520570212*
+<GFCN \1aGET-AC ("VALUE" AC ATOM) AC5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aGETPROP>
+ <PUSH AC5>
+ <DEAD AC5>
+ <PUSH 'AC>
+ <CALL '\1aGETPROP 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aGET-AC>
+#WORD *11122344002*
+<GFCN \1aIS-AC? ("VALUE" ANY ATOM) AC5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aGETPROP>
+ <PUSH AC5>
+ <DEAD AC5>
+ <PUSH 'AC>
+ <CALL '\1aGETPROP 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aIS-AC?>
+#WORD *4010647163*
+<GFCN \1aPA ("VALUE" ANY)>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aPPRINT>
+ <GVAL 'AC-TABLE = STACK>
+ <CALL '\1aPPRINT 1 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aPA>
+#WORD *13074567675*
+<GFCN \1aASSIGN-AC ("VALUE" <OR ATOM FALSE> ANY ATOM "OPTIONAL" <OR ATOM FALSE>) ITM8 TYP9 AC-FORCE10>
+ <OPT-DISPATCH 2 %<> OPT6 OPT7>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP TEMP14>
+ <INTGO>
+ <EQUAL? ITM8 'STACK - PHRASE12>
+ <TYPE? AC-FORCE10 <TYPE-CODE FALSE> - PHRASE12>
+ <DEAD AC-FORCE10>
+ <RETURN 'STACK>
+PHRASE12
+ <FRAME '\1aLOAD-AC>
+ <PUSH ITM8>
+ <DEAD ITM8>
+ <PUSH TYP9>
+ <DEAD TYP9>
+ <PUSH 'T>
+ <PUSH 'T>
+ <CALL '\1aLOAD-AC 4 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aASSIGN-AC>
+#WORD *5717701775*
+<GFCN \1aIN-AC? ("VALUE" <OR ATOM FALSE> ANY ATOM) ITM5 TYP6>
+ <TEMP BOTH7 TEMP24 TEMP26:VECTOR AC28 TEMP35>
+ <INTGO>
+ <VEQUAL? TYP6 'BOTH - TAG8>
+ <SET BOTH7 'T (TYPE ATOM)>
+ <JUMP + TAG9>
+TAG8
+ <SET BOTH7 %<> (TYPE FALSE)>
+TAG9
+ <TYPE? ITM5 <TYPE-CODE ATOM> + TAG13>
+ <RETURN %<>>
+TAG13
+ <SET TEMP24 %<> (TYPE FALSE)>
+ <GVAL 'AC-TABLE = TEMP26>
+ <LOOP>
+MAP16
+ <INTGO>
+ <EMPUV? TEMP26 + MAPAP19>
+ <SET TEMP24 TEMP26>
+ <NTHUV TEMP24 1 = AC28 (TYPE AC)>
+ <VEQUAL? TYP6 'FREE - PHRASE31>
+ <RETURN %<>>
+PHRASE31
+ <NTHUV AC28 2 = TEMP35>
+ <EQUAL? TEMP35 ITM5 + TAG34>
+ <DEAD TEMP35>
+ <SET TEMP24 %<> (TYPE FALSE)>
+ <JUMP + PHRASE44>
+TAG34
+ <VEQUAL? BOTH7 0 + PHRASE37>
+ <NTHUV AC28 3 = TEMP35 (TYPE ATOM)>
+ <VEQUAL? TEMP35 'TYPE + TAG41>
+ <DEAD TEMP35>
+ <SET TEMP24 %<> (TYPE FALSE)>
+ <JUMP + PHRASE44>
+TAG41
+ <NTHUV TEMP24 2 = TEMP24 (TYPE AC)>
+ <NTHUV TEMP24 3 = TEMP35 (TYPE ATOM)>
+ <VEQUAL? TEMP35 'VALUE + TAG42>
+ <DEAD TEMP35>
+ <SET TEMP24 %<> (TYPE FALSE)>
+ <JUMP + PHRASE44>
+TAG42
+ <NTHUV TEMP24 2 = TEMP35>
+ <EQUAL? TEMP35 ITM5 + TAG43>
+ <DEAD TEMP35>
+ <SET TEMP24 %<> (TYPE FALSE)>
+ <JUMP + PHRASE44>
+TAG43
+ <GVAL 'AC-STAMP = TEMP35>
+ <PUTUV AC28 4 TEMP35 (TYPE FIX)>
+ <DEAD TEMP35>
+ <GVAL 'AC-STAMP = TEMP35>
+ <PUTUV TEMP24 4 TEMP35 (TYPE FIX)>
+ <DEAD TEMP24 TEMP35>
+ <NTHUV AC28 1 = BOTH7 (TYPE ATOM)>
+ <DEAD AC28>
+ <RETURN BOTH7>
+ <DEAD BOTH7>
+PHRASE37
+ <NTHUV AC28 3 = TEMP35 (TYPE ATOM)>
+ <VEQUAL? TEMP35 TYP6 + TAG45>
+ <DEAD TEMP35>
+ <SET TEMP24 %<> (TYPE FALSE)>
+ <JUMP + PHRASE44>
+TAG45
+ <GVAL 'AC-STAMP = TEMP35>
+ <PUTUV AC28 4 TEMP35 (TYPE FIX)>
+ <DEAD TEMP35>
+ <NTHUV AC28 1 = BOTH7 (TYPE ATOM)>
+ <DEAD AC28>
+ <RETURN BOTH7>
+ <DEAD BOTH7>
+PHRASE44
+ <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
+ <JUMP + MAP16>
+MAPAP19
+ <RETURN TEMP24>
+ <DEAD TEMP24>
+ <END \1aIN-AC?>
+#WORD *21614002014*
+<GFCN \1aSMASH-AC ("VALUE" <OR ATOM FALSE> ATOM ANY ATOM "OPTIONAL" <OR FALSE ATOM>) NAM8 ITM9 TYP10 AC?11>
+ <OPT-DISPATCH 3 %<> OPT6 OPT7>
+OPT6
+ <PUSH 'T>
+OPT7
+ <TEMP AC12 RAC13:AC>
+ <INTGO>
+ <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE15>
+ <DEAD AC?11>
+ <FRAME '\1aIN-AC?>
+ <PUSH ITM9>
+ <PUSH TYP10>
+ <CALL '\1aIN-AC? 2 = AC12>
+ <TYPE? AC12 <TYPE-CODE FALSE> + PHRASE15>
+ <VEQUAL? TYP10 'BOTH - PHRASE19>
+ <FRAME '\1aGET-AC>
+ <PUSH NAM8>
+ <CALL '\1aGET-AC 1 = RAC13>
+ <VEQUAL? NAM8 AC12 + PHRASE22>
+ <PUTUV RAC13 6 %<>>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH NAM8>
+ <PUSH AC12>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH AC12>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AC12>
+ <DEAD AC12>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+PHRASE22
+ <TYPE? ITM9 <TYPE-CODE ATOM> - PHRASE27>
+ <PUTUV RAC13 2 ITM9>
+ <PUTUV RAC13 3 'TYPE (TYPE ATOM)>
+ <DEAD RAC13>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAM8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = RAC13>
+ <PUTUV RAC13 2 ITM9>
+ <DEAD ITM9>
+ <PUTUV RAC13 3 'VALUE (TYPE ATOM)>
+ <DEAD RAC13>
+ <RETURN NAM8>
+ <DEAD NAM8>
+PHRASE27
+ <PUTUV RAC13 3 'DUMMY (TYPE ATOM)>
+ <DEAD RAC13>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAM8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = AC12>
+ <PUTUV AC12 3 'DUMMY (TYPE ATOM)>
+ <DEAD AC12>
+ <RETURN NAM8>
+ <DEAD NAM8>
+PHRASE19
+ <VEQUAL? NAM8 AC12 + PHRASE41>
+ <FRAME '\1aGET-AC>
+ <PUSH NAM8>
+ <CALL '\1aGET-AC 1 = RAC13>
+ <PUTUV RAC13 6 %<>>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH NAM8>
+ <PUSH AC12>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH AC12>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AC12>
+ <DEAD AC12>
+ <CALL '\1aMUNGED-AC 1>
+ <TYPE? ITM9 <TYPE-CODE ATOM> - PHRASE40>
+ <PUTUV RAC13 2 ITM9>
+ <DEAD ITM9>
+ <PUTUV RAC13 3 TYP10 (TYPE ATOM)>
+ <DEAD RAC13 TYP10>
+ <RETURN NAM8>
+ <DEAD NAM8>
+PHRASE40
+ <PUTUV RAC13 3 'DUMMY (TYPE ATOM)>
+ <DEAD RAC13>
+PHRASE41
+ <RETURN NAM8>
+ <DEAD NAM8>
+PHRASE15
+ <FRAME '\1aLOAD-AC>
+ <PUSH ITM9>
+ <DEAD ITM9>
+ <PUSH TYP10>
+ <PUSH %<>>
+ <PUSH %<>>
+ <FRAME '\1aGET-AC>
+ <PUSH NAM8>
+ <CALL '\1aGET-AC 1 = STACK>
+ <VEQUAL? TYP10 'BOTH + TAG48>
+ <DEAD TYP10>
+ <SET AC12 %<> (TYPE FALSE)>
+ <JUMP + PHRASE46>
+TAG48
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAM8>
+ <DEAD NAM8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = AC12>
+PHRASE46
+ <PUSH AC12>
+ <DEAD AC12>
+ <CALL '\1aLOAD-AC 6 = AC12>
+ <RETURN AC12>
+ <DEAD AC12>
+ <END \1aSMASH-AC>
+#WORD *10101712601*
+<GFCN \1aCLEAN-ACS ("VALUE" <OR FALSE AC> ANY) ITM5>
+ <TEMP TEMP15 TEMP17:VECTOR AC18:AC>
+ <INTGO>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <GVAL 'AC-TABLE = TEMP17>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPUV? TEMP17 + MAPAP10>
+ <NTHUV TEMP17 1 = AC18>
+ <NTHUV AC18 2 = TEMP15>
+ <EQUAL? TEMP15 ITM5 + TAG21>
+ <DEAD TEMP15>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + PHRASE20>
+TAG21
+ <PUTUV AC18 2 %<>>
+ <PUTUV AC18 3 'DUMMY (TYPE ATOM)>
+ <SET TEMP15 AC18>
+ <DEAD AC18>
+PHRASE20
+ <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aCLEAN-ACS>
+#WORD *2756276114*
+<GFCN \1aLOAD-TYPE ("VALUE" <OR FALSE LIST STRING> ATOM LIST) AC4 L5>
+ <TEMP (OFF7:FIX 0) TEMP10 TEMP11>
+ <INTGO>
+ <EMPL? L5 + PHRASE9>
+ <RESTL L5 1 = TEMP10 (TYPE LIST)>
+ <EMPL? TEMP10 - PHRASE9>
+ <DEAD TEMP10>
+ <NTHL L5 1 = TEMP10 (TYPE ATOM)>
+ <DEAD L5>
+ <GVAL TEMP10 = TEMP11>
+ <DEAD TEMP10>
+ <OR TEMP11 #WORD *222000000000* = TEMP11>
+ <CHTYPE TEMP11 <TYPE-CODE CONSTANT> = TEMP10>
+ <DEAD TEMP11>
+ <JUMP + PHRASE12>
+PHRASE9
+ <SET TEMP11 L5>
+ <SET TEMP10 3 (TYPE FIX)>
+ <LOOP (TEMP11 VALUE) (TEMP10 VALUE)>
+TAG15
+ <EMPL? TEMP11 + PHRASE14>
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
+ <GRTR? TEMP10 0 + TAG15 (TYPE FIX)>
+ <EMPL? TEMP11 - PHRASE14>
+ <DEAD TEMP11>
+ <NTHL L5 1 = OFF7 (TYPE FIX)>
+ <RESTL L5 1 = L5 (TYPE LIST)>
+PHRASE14
+ <RESTL L5 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = TEMP11>
+ <NTH1 TEMP11 = TEMP11>
+ <GVAL TEMP11 = TEMP10>
+ <DEAD TEMP11>
+ <LSH TEMP10 18 = TEMP10 (TYPE FIX)>
+ <OR TEMP10 #WORD *222000000000* = TEMP10>
+ <AND OFF7 #WORD *777777* = TEMP11>
+ <DEAD OFF7>
+ <ADD TEMP10 TEMP11 = TEMP10 (TYPE FIX)>
+ <DEAD TEMP11>
+ <CONS TEMP10 () = TEMP10>
+ <NTHL L5 1 = TEMP11>
+ <DEAD L5>
+ <CONS TEMP11 TEMP10 = TEMP10>
+ <DEAD TEMP11>
+ <CHTYPE TEMP10 <TYPE-CODE CONST-W-LOCAL> = TEMP10>
+PHRASE12
+ <FRAME '\1aCONST-ADD>
+ <PUSH TEMP10>
+ <CALL '\1aCONST-ADD 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LDB>
+ <PUSH AC4>
+ <DEAD AC4>
+ <SET TEMP11 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG18 TEMP11>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP11 VALUE)>
+TAG20
+ <INTGO>
+ <EMPTY? TEMP10 + TAG18>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <JUMP + TAG20>
+TAG18
+ <CALL '\1aOCEMIT TEMP11 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aLOAD-TYPE>
+#WORD *31337542546*
+<GFCN \1aLOAD-AC ("VALUE" <OR ATOM FALSE> ANY ATOM "OPTIONAL" <OR FALSE ATOM> <OR FALSE ATOM> <OR AC FALSE> <OR AC FALSE>) ITM14 TYP15 UPDATE16 ASSIGN17 LAC18 NAC19>
+ <OPT-DISPATCH 2 %<> OPT9 OPT10 OPT11 OPT12 OPT13>
+OPT9
+ <PUSH %<>>
+OPT10
+ <PUSH %<>>
+OPT11
+ <PUSH %<>>
+OPT12
+ <PUSH %<>>
+OPT13
+ <TEMP BOTH20 (LOW21 %<CHTYPE <MIN> FIX>) FIRST-AC24 TEMP32 AC22 ACT93:VECTOR>
+ <INTGO>
+ <VEQUAL? TYP15 'BOTH - TAG30>
+ <SET BOTH20 'T (TYPE ATOM)>
+ <JUMP + TAG31>
+TAG30
+ <SET BOTH20 %<> (TYPE FALSE)>
+TAG31
+ <GVAL 'FIRST-AC = FIRST-AC24>
+ <SETG 'FIRST-AC %<>>
+ <GVAL 'AC-STAMP = TEMP32>
+ <ADD TEMP32 1 = TEMP32 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP32>
+ <DEAD TEMP32>
+ <TYPE? LAC18 <TYPE-CODE FALSE> - PHRASE34>
+ <TYPE? ITM14 <TYPE-CODE ATOM> - PHRASE34>
+ <FRAME '\1aIN-AC?>
+ <PUSH ITM14>
+ <PUSH TYP15>
+ <CALL '\1aIN-AC? 2 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + BOOL37>
+ <VEQUAL? AC22 'X* - BOOL58>
+BOOL37
+ <TYPE? AC22 <TYPE-CODE FALSE> - PHRASE34>
+ <DEAD AC22>
+ <VEQUAL? TYP15 'BOTH - PHRASE34>
+ <FRAME '\1aIN-AC?>
+ <PUSH ITM14>
+ <PUSH 'TYPE>
+ <CALL '\1aIN-AC? 2 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE51>
+ <VEQUAL? AC22 'A1* + BOOL45>
+ <VEQUAL? AC22 'B1* + BOOL45>
+ <VEQUAL? AC22 'B1* - BOOL44>
+BOOL45
+ <FRAME '\1aLOAD-AC>
+ <PUSH ITM14>
+ <PUSH 'VALUE>
+ <PUSH UPDATE16>
+ <PUSH ASSIGN17>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC22>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = STACK>
+ <CALL '\1aLOAD-AC 5 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + BOOL44>
+ <DEAD TEMP32>
+ <FRAME '\1aGET-AC>
+ <PUSH AC22>
+ <CALL '\1aGET-AC 1 = TEMP32>
+ <PUTUV TEMP32 3 'TYPE (TYPE ATOM)>
+ <PUTUV TEMP32 2 ITM14>
+ <DEAD TEMP32>
+ <JUMP + BOOL58>
+BOOL44
+ <FRAME '\1aGET-AC>
+ <PUSH AC22>
+ <CALL '\1aGET-AC 1 = TEMP32>
+ <NTHUV TEMP32 5 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE51>
+ <DEAD TEMP32>
+ <FRAME '\1aUPDATE-AC>
+ <FRAME '\1aGET-AC>
+ <PUSH AC22>
+ <CALL '\1aGET-AC 1 = STACK>
+ <CALL '\1aUPDATE-AC 1>
+ <FRAME '\1aGET-AC>
+ <PUSH AC22>
+ <DEAD AC22>
+ <CALL '\1aGET-AC 1 = TEMP32>
+ <PUTUV TEMP32 5 %<>>
+ <DEAD TEMP32>
+PHRASE51
+ <FRAME '\1aIN-AC?>
+ <PUSH ITM14>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE34>
+ <VEQUAL? AC22 'A2* + BOOL60>
+ <VEQUAL? AC22 'B2* + BOOL60>
+ <VEQUAL? AC22 'C2* - BOOL59>
+BOOL60
+ <FRAME '\1aLOAD-AC>
+ <PUSH ITM14>
+ <PUSH 'TYPE>
+ <PUSH UPDATE16>
+ <PUSH ASSIGN17>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aGETPROP>
+ <PUSH AC22>
+ <DEAD AC22>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = TEMP32>
+ <PUSH TEMP32>
+ <DEAD TEMP32>
+ <CALL '\1aGET-AC 1 = STACK>
+ <CALL '\1aLOAD-AC 5 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + BOOL59>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC22>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP32>
+ <PUTUV TEMP32 3 'VALUE (TYPE ATOM)>
+ <PUTUV TEMP32 2 ITM14>
+ <DEAD TEMP32>
+ <JUMP + BOOL58>
+BOOL59
+ <FRAME '\1aGET-AC>
+ <PUSH AC22>
+ <CALL '\1aGET-AC 1 = TEMP32>
+ <NTHUV TEMP32 5 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE34>
+ <DEAD TEMP32>
+ <FRAME '\1aUPDATE-AC>
+ <FRAME '\1aGET-AC>
+ <PUSH AC22>
+ <CALL '\1aGET-AC 1 = STACK>
+ <CALL '\1aUPDATE-AC 1>
+ <FRAME '\1aGET-AC>
+ <PUSH AC22>
+ <DEAD AC22>
+ <CALL '\1aGET-AC 1 = TEMP32>
+ <PUTUV TEMP32 5 %<>>
+ <DEAD TEMP32>
+ <JUMP + PHRASE34>
+BOOL58
+ <TYPE? ASSIGN17 <TYPE-CODE FALSE> + PHRASE76>
+ <DEAD ASSIGN17>
+ <FRAME '\1aGET-AC>
+ <PUSH AC22>
+ <CALL '\1aGET-AC 1 = LAC18>
+ <PUTUV LAC18 5 UPDATE16>
+ <SETG 'ACA-AC LAC18>
+ <DEAD LAC18>
+ <SETG 'ACA-ITEM ITM14>
+ <DEAD ITM14>
+ <SETG 'ACA-BOTH BOTH20>
+ <VEQUAL? BOTH20 0 + PHRASE76>
+ <DEAD BOTH20>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC22>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = NAC19>
+ <PUTUV NAC19 5 UPDATE16>
+ <DEAD UPDATE16>
+ <SETG 'ACA-BOTH NAC19>
+ <DEAD NAC19>
+PHRASE76
+ <RETURN AC22>
+ <DEAD AC22>
+PHRASE34
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH ITM14>
+ <CALL '\1aCLEAN-ACS 1>
+ <TYPE? LAC18 <TYPE-CODE FALSE> - EXIT92>
+ <TYPE? ITM14 <TYPE-CODE ATOM> - BOOL88>
+ <FRAME '\1aLOOK-AHEAD>
+ <GEN-LVAL 'MIML = TEMP32>
+ <REST1 TEMP32 = STACK>
+ <DEAD TEMP32>
+ <PUSH ITM14>
+ <PUSH TYP15>
+ <CALL '\1aLOOK-AHEAD 3 = LAC18>
+ <TYPE? LAC18 <TYPE-CODE FALSE> + BOOL88>
+ <TYPE? FIRST-AC24 <TYPE-CODE FALSE> - EXIT92>
+ <NTHUV LAC18 2 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE ATOM> + BOOL88>
+ <DEAD TEMP32>
+ <VEQUAL? TYP15 'BOTH - EXIT92>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH LAC18>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE ATOM> - EXIT92>
+ <DEAD TEMP32>
+BOOL88
+ <GVAL 'AC-TABLE = TEMP32>
+ <RESTUV TEMP32 1 = ACT93 (TYPE VECTOR)>
+ <DEAD TEMP32>
+ <LOOP>
+AGAIN95
+ <INTGO>
+ <EMPUV? ACT93 + EXIT92 (TYPE VECTOR)>
+ <VEQUAL? BOTH20 0 + PHRASE97>
+ <LENUV ACT93 = TEMP32 (TYPE FIX)>
+ <VEQUAL? TEMP32 1 + EXIT92 (TYPE FIX)>
+ <DEAD TEMP32>
+PHRASE97
+ <VEQUAL? BOTH20 0 + PHRASE102>
+ <NTHUV ACT93 2 = TEMP32 (TYPE AC)>
+ <NTHUV TEMP32 1 = TEMP32 (TYPE ATOM)>
+ <VEQUAL? TEMP32 'X* + PHRASE135>
+ <DEAD TEMP32>
+ <NTHUV ACT93 1 = TEMP32 (TYPE AC)>
+ <NTHUV TEMP32 1 = TEMP32 (TYPE ATOM)>
+ <VEQUAL? TEMP32 'X* + PHRASE135>
+ <DEAD TEMP32>
+ <NTHUV ACT93 1 = AC22 (TYPE AC)>
+ <NTHUV AC22 4 = TEMP32 (TYPE FIX)>
+ <DEAD AC22>
+ <NTHUV ACT93 2 = AC22 (TYPE AC)>
+ <NTHUV AC22 4 = AC22 (TYPE FIX)>
+ <LESS? TEMP32 AC22 - TAG107>
+ <SET TEMP32 AC22 (TYPE FIX)>
+ <DEAD AC22>
+TAG107
+ <TYPE? FIRST-AC24 <TYPE-CODE FALSE> + PHRASE109>
+ <TYPE? LAC18 <TYPE-CODE FALSE> + BOOL113>
+ <NTHUV LAC18 2 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE109>
+ <DEAD AC22>
+ <NTHUV ACT93 1 = AC22 (TYPE AC)>
+ <NTHUV AC22 2 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + BOOL113>
+ <DEAD AC22>
+ <NTHUV LAC18 5 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE109>
+ <DEAD AC22>
+ <NTHUV ACT93 1 = AC22 (TYPE AC)>
+ <NTHUV AC22 5 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> - PHRASE109>
+ <DEAD AC22>
+BOOL113
+ <SET AC22 TEMP32>
+ <DEAD TEMP32>
+ <GRTR? AC22 LOW21 - TAG115>
+ <SET AC22 LOW21 (TYPE FIX)>
+ <DEAD LOW21>
+TAG115
+ <SET LOW21 AC22>
+ <DEAD AC22>
+ <NTHUV ACT93 1 = LAC18 (TYPE AC)>
+ <NTHUV ACT93 2 = NAC19 (TYPE AC)>
+ <JUMP + PHRASE135>
+PHRASE109
+ <GRTR? TEMP32 LOW21 + PHRASE135 (TYPE FIX)>
+ <VEQUAL? LOW21 TEMP32 - BOOL122 (TYPE FIX)>
+ <TYPE? LAC18 <TYPE-CODE FALSE> + BOOL122>
+ <NTHUV LAC18 2 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE135>
+ <DEAD AC22>
+ <NTHUV ACT93 1 = AC22 (TYPE AC)>
+ <NTHUV AC22 2 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + BOOL122>
+ <DEAD AC22>
+ <NTHUV LAC18 5 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE135>
+ <DEAD AC22>
+ <NTHUV ACT93 1 = AC22 (TYPE AC)>
+ <NTHUV AC22 5 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> - PHRASE135>
+ <DEAD AC22>
+BOOL122
+ <SET LOW21 TEMP32>
+ <DEAD TEMP32>
+ <NTHUV ACT93 1 = LAC18 (TYPE AC)>
+ <NTHUV ACT93 2 = NAC19 (TYPE AC)>
+ <JUMP + PHRASE135>
+PHRASE102
+ <NTHUV ACT93 1 = AC22 (TYPE AC)>
+ <NTHUV AC22 1 = AC22 (TYPE ATOM)>
+ <VEQUAL? AC22 'X* + PHRASE135>
+ <DEAD AC22>
+ <NTHUV ACT93 1 = AC22 (TYPE AC)>
+ <NTHUV AC22 1 = AC22 (TYPE ATOM)>
+ <VEQUAL? AC22 'T* + PHRASE135>
+ <DEAD AC22>
+ <NTHUV ACT93 1 = AC22 (TYPE AC)>
+ <NTHUV AC22 4 = TEMP32 (TYPE FIX)>
+ <DEAD AC22>
+ <TYPE? FIRST-AC24 <TYPE-CODE FALSE> + PHRASE127>
+ <TYPE? LAC18 <TYPE-CODE FALSE> + BOOL131>
+ <NTHUV LAC18 2 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE127>
+ <DEAD AC22>
+ <NTHUV ACT93 1 = AC22 (TYPE AC)>
+ <NTHUV AC22 2 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + BOOL131>
+ <DEAD AC22>
+ <NTHUV LAC18 5 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE127>
+ <DEAD AC22>
+ <NTHUV ACT93 1 = AC22 (TYPE AC)>
+ <NTHUV AC22 5 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> - PHRASE127>
+ <DEAD AC22>
+BOOL131
+ <NTHUV ACT93 1 = LAC18 (TYPE AC)>
+ <SET LOW21 TEMP32>
+ <DEAD TEMP32>
+ <JUMP + PHRASE135>
+PHRASE127
+ <GRTR? TEMP32 LOW21 + PHRASE135 (TYPE FIX)>
+ <VEQUAL? LOW21 TEMP32 - BOOL138 (TYPE FIX)>
+ <TYPE? LAC18 <TYPE-CODE FALSE> + BOOL138>
+ <NTHUV LAC18 2 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE135>
+ <DEAD AC22>
+ <NTHUV ACT93 1 = AC22 (TYPE AC)>
+ <NTHUV AC22 2 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + BOOL138>
+ <DEAD AC22>
+ <NTHUV LAC18 5 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE135>
+ <DEAD AC22>
+ <NTHUV ACT93 1 = AC22 (TYPE AC)>
+ <NTHUV AC22 5 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> - PHRASE135>
+ <DEAD AC22>
+BOOL138
+ <SET LOW21 TEMP32>
+ <DEAD TEMP32>
+ <NTHUV ACT93 1 = LAC18 (TYPE AC)>
+PHRASE135
+ <VEQUAL? BOTH20 0 + PHRASE141>
+ <RESTUV ACT93 2 = ACT93 (TYPE VECTOR)>
+ <JUMP + AGAIN95>
+PHRASE141
+ <RESTUV ACT93 1 = ACT93 (TYPE VECTOR)>
+ <JUMP + AGAIN95>
+EXIT92
+ <VEQUAL? BOTH20 0 + PHRASE144>
+ <TYPE? NAC19 <TYPE-CODE FALSE> - PHRASE144>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH LAC18>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = NAC19>
+PHRASE144
+ <NTHUV LAC18 5 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE149>
+ <DEAD AC22>
+ <FRAME '\1aUPDATE-AC>
+ <PUSH LAC18>
+ <CALL '\1aUPDATE-AC 1>
+PHRASE149
+ <TYPE? ASSIGN17 <TYPE-CODE FALSE> + PHRASE152>
+ <SETG 'ACA-AC LAC18>
+ <SETG 'ACA-ITEM ITM14>
+ <SETG 'ACA-BOTH BOTH20>
+ <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
+ <PUTUV AC22 2 #LOSE 0>
+ <DEAD AC22>
+ <JUMP + PHRASE154>
+PHRASE152
+ <TYPE? ITM14 <TYPE-CODE ATOM> - PHRASE153>
+ <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
+ <PUTUV AC22 2 ITM14>
+ <DEAD AC22>
+ <JUMP + PHRASE154>
+PHRASE153
+ <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
+ <PUTUV AC22 2 %<>>
+ <DEAD AC22>
+PHRASE154
+ <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
+ <TYPE? BOTH20 <TYPE-CODE FALSE> + PHRASE156>
+ <SET FIRST-AC24 'TYPE (TYPE ATOM)>
+ <JUMP + COND155>
+PHRASE156
+ <SET FIRST-AC24 TYP15>
+COND155
+ <PUTUV AC22 3 FIRST-AC24 (TYPE ATOM)>
+ <DEAD AC22 FIRST-AC24>
+ <FRAME '\1aGET-AC>
+ <PUSH 'T*>
+ <CALL '\1aGET-AC 1 = AC22>
+ <EQUAL? LAC18 AC22 + BOOL158>
+ <DEAD AC22>
+ <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
+ <GVAL 'AC-STAMP = FIRST-AC24>
+ <PUTUV AC22 4 FIRST-AC24 (TYPE FIX)>
+ <DEAD AC22 FIRST-AC24>
+BOOL158
+ <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
+ <PUTUV AC22 6 %<>>
+ <DEAD AC22>
+ <TYPE? BOTH20 <TYPE-CODE FALSE> + PHRASE161>
+ <NTHUV NAC19 5 = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE163>
+ <DEAD AC22>
+ <FRAME '\1aUPDATE-AC>
+ <PUSH NAC19>
+ <CALL '\1aUPDATE-AC 1>
+PHRASE163
+ <TYPE? ASSIGN17 <TYPE-CODE FALSE> + PHRASE166>
+ <SETG 'ACA-BOTH NAC19>
+ <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
+ <PUTUV AC22 2 #LOSE 0>
+ <DEAD AC22>
+ <JUMP + PHRASE168>
+PHRASE166
+ <TYPE? ITM14 <TYPE-CODE ATOM> - PHRASE167>
+ <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
+ <PUTUV AC22 2 ITM14>
+ <DEAD AC22>
+ <JUMP + PHRASE168>
+PHRASE167
+ <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
+ <PUTUV AC22 2 %<>>
+ <DEAD AC22>
+PHRASE168
+ <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
+ <PUTUV AC22 3 'VALUE (TYPE ATOM)>
+ <DEAD AC22>
+ <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
+ <GVAL 'AC-STAMP = FIRST-AC24>
+ <PUTUV AC22 4 FIRST-AC24 (TYPE FIX)>
+ <DEAD AC22 FIRST-AC24>
+ <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
+ <PUTUV AC22 5 UPDATE16>
+ <DEAD AC22>
+ <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
+ <PUTUV AC22 6 %<>>
+ <DEAD AC22>
+PHRASE161
+ <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
+ <PUTUV AC22 5 UPDATE16>
+ <DEAD AC22 UPDATE16>
+ <TYPE? ASSIGN17 <TYPE-CODE FALSE> - PHRASE245>
+ <DEAD ASSIGN17>
+ <TYPE? ITM14 <TYPE-CODE ATOM> - PHRASE170>
+ <FRAME '\1aLMEMQ>
+ <PUSH ITM14>
+ <GVAL 'LOCALS = STACK>
+ <CALL '\1aLMEMQ 2 = FIRST-AC24>
+ <VEQUAL? FIRST-AC24 0 - BOOL173>
+ <GVAL 'ICALL-FLAG = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE172>
+ <DEAD AC22>
+ <FRAME '\1aLMEMQ>
+ <PUSH ITM14>
+ <GVAL 'ICALL-TEMPS = STACK>
+ <CALL '\1aLMEMQ 2 = FIRST-AC24>
+ <VEQUAL? FIRST-AC24 0 + PHRASE172>
+BOOL173
+ <NTHUV FIRST-AC24 3 = ITM14 (TYPE LOCAL-NAME)>
+ <DEAD FIRST-AC24>
+ <GVAL 'WINNING-VICTIM = AC22>
+ <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE178>
+ <DEAD AC22>
+ <SET LOW21 (TP*) (TYPE LIST)>
+ <JUMP + PHRASE179>
+PHRASE178
+ <SET LOW21 (F*) (TYPE LIST)>
+PHRASE179
+ <TYPE? BOTH20 <TYPE-CODE FALSE> + PHRASE181>
+ <DEAD BOTH20>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH LAC18>
+ <GVAL 'STACK-DEPTH = AC22>
+ <SUB 0 AC22 = STACK (TYPE FIX)>
+ <DEAD AC22>
+ <PUSH ITM14>
+ <DEAD ITM14>
+ <PUSH LOW21>
+ <DEAD LOW21>
+ <CALL '\1aOCEMIT 5>
+ <JUMP + PHRASE245>
+PHRASE181
+ <VEQUAL? TYP15 'VALUE - PHRASE183>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH LAC18>
+ <GVAL 'STACK-DEPTH = AC22>
+ <SUB 1 AC22 = STACK (TYPE FIX)>
+ <DEAD AC22>
+ <PUSH ITM14>
+ <DEAD ITM14>
+ <PUSH LOW21>
+ <DEAD LOW21>
+ <CALL '\1aOCEMIT 5>
+ <JUMP + PHRASE245>
+PHRASE183
+ <VEQUAL? TYP15 'LENGTH - PHRASE185>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH LAC18>
+ <GVAL 'STACK-DEPTH = AC22>
+ <SUB 0 AC22 = STACK (TYPE FIX)>
+ <DEAD AC22>
+ <PUSH ITM14>
+ <DEAD ITM14>
+ <PUSH LOW21>
+ <DEAD LOW21>
+ <CALL '\1aOCEMIT 5>
+ <JUMP + PHRASE245>
+PHRASE185
+ <VEQUAL? TYP15 'TYPECODE - PHRASE187>
+ <DEAD TYP15>
+ <FRAME '\1aLOAD-TYPE>
+ <NTHUV LAC18 1 = STACK (TYPE ATOM)>
+ <CONS LOW21 () = AC22>
+ <DEAD LOW21>
+ <CONS ITM14 AC22 = AC22>
+ <DEAD ITM14>
+ <GVAL 'STACK-DEPTH = FIRST-AC24>
+ <SUB 0 FIRST-AC24 = FIRST-AC24 (TYPE FIX)>
+ <CONS FIRST-AC24 AC22 = STACK>
+ <DEAD FIRST-AC24 AC22>
+ <CALL '\1aLOAD-TYPE 2>
+ <JUMP + PHRASE245>
+PHRASE187
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH LAC18>
+ <GVAL 'STACK-DEPTH = AC22>
+ <SUB 0 AC22 = STACK (TYPE FIX)>
+ <DEAD AC22>
+ <PUSH ITM14>
+ <DEAD ITM14>
+ <PUSH LOW21>
+ <DEAD LOW21>
+ <CALL '\1aOCEMIT 5>
+ <JUMP + PHRASE245>
+PHRASE172
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'UNKNOWN-LOCAL!-ERRORS>
+ <PUSH ITM14>
+ <DEAD ITM14>
+ <CALL '\1aMIMOCERR 2>
+ <JUMP + PHRASE245>
+PHRASE170
+ <FRAME '\1aPRIMTYPE>
+ <PUSH ITM14>
+ <CALL '\1aPRIMTYPE 1 = LOW21>
+ <VEQUAL? LOW21 'WORD + BOOL197>
+ <VEQUAL? LOW21 'FIX - BOOL196>
+ <DEAD LOW21>
+BOOL197
+ <GVAL 'MAX-IMMEDIATE = AC22>
+ <CHTYPE ITM14 <TYPE-CODE FIX> = FIRST-AC24>
+ <LESS? FIRST-AC24 0 - TAG200 (TYPE FIX)>
+ <SUB 0 FIRST-AC24 = FIRST-AC24 (TYPE FIX)>
+TAG200
+ <GRTR? AC22 FIRST-AC24 + BOOL195 (TYPE FIX)>
+ <DEAD AC22 FIRST-AC24>
+ <AND ITM14 #WORD *777777* = AC22>
+ <VEQUAL? AC22 0 + BOOL195 (TYPE FIX)>
+ <DEAD AC22>
+BOOL196
+ <FRAME '\1aPRIMTYPE>
+ <PUSH ITM14>
+ <CALL '\1aPRIMTYPE 1 = AC22>
+ <VEQUAL? AC22 'LIST - PHRASE193>
+ <DEAD AC22>
+ <EMPL? ITM14 - PHRASE193 (TYPE LIST)>
+BOOL195
+ <VEQUAL? TYP15 'FREE + TAG208>
+ <VEQUAL? TYP15 'VALUE + TAG208>
+ <VEQUAL? TYP15 'BOTH - PHRASE193>
+ <FRAME '\1aTYPE>
+ <PUSH ITM14>
+ <CALL '\1aTYPE 1 = AC22>
+ <GVAL 'TYPE-WORDS = FIRST-AC24>
+ <EMPUV? FIRST-AC24 + PHRASE193>
+ <LOOP (AC22 VALUE) (FIRST-AC24 LENGTH VALUE)>
+TAG209
+ <NTHUV FIRST-AC24 1 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE ATOM> - TAG210>
+ <VEQUAL? TEMP32 AC22 + TAG208>
+ <DEAD TEMP32>
+TAG210
+ <RESTUV FIRST-AC24 1 = FIRST-AC24 (TYPE VECTOR)>
+ <EMPUV? FIRST-AC24 - TAG209>
+ <JUMP + PHRASE193>
+TAG208
+ <VEQUAL? TYP15 'BOTH - PHRASE214>
+ <DEAD TYP15>
+ <FRAME '\1aLOAD-TYPE-IN-AC>
+ <NTHUV LAC18 1 = STACK (TYPE ATOM)>
+ <FRAME '\1aTYPE>
+ <PUSH ITM14>
+ <CALL '\1aTYPE 1 = STACK>
+ <CALL '\1aLOAD-TYPE-IN-AC 2>
+ <SET BOTH20 NAC19>
+ <DEAD NAC19>
+ <JUMP + COND213>
+PHRASE214
+ <SET BOTH20 LAC18>
+COND213
+ <FRAME '\1aPRIMTYPE>
+ <PUSH ITM14>
+ <CALL '\1aPRIMTYPE 1 = FIRST-AC24>
+ <VEQUAL? FIRST-AC24 'LIST - PHRASE218>
+ <DEAD FIRST-AC24>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH BOTH20>
+ <DEAD BOTH20>
+ <PUSH 0>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE245>
+PHRASE218
+ <AND ITM14 #WORD *777777* = FIRST-AC24>
+ <VEQUAL? FIRST-AC24 0 - PHRASE221 (TYPE FIX)>
+ <DEAD FIRST-AC24>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVSI>
+ <PUSH BOTH20>
+ <DEAD BOTH20>
+ <LSH ITM14 -18 = STACK (TYPE FIX)>
+ <DEAD ITM14>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE245>
+PHRASE221
+ <CHTYPE ITM14 <TYPE-CODE FIX> = ITM14>
+ <LESS? ITM14 0 - PHRASE227 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVNI>
+ <PUSH BOTH20>
+ <DEAD BOTH20>
+ <SET FIRST-AC24 ITM14>
+ <DEAD ITM14>
+ <LESS? FIRST-AC24 0 - TAG231 (TYPE FIX)>
+ <SUB 0 FIRST-AC24 = FIRST-AC24 (TYPE FIX)>
+TAG231
+ <PUSH FIRST-AC24>
+ <DEAD FIRST-AC24>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE245>
+PHRASE227
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH BOTH20>
+ <DEAD BOTH20>
+ <PUSH ITM14>
+ <DEAD ITM14>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE245>
+PHRASE193
+ <FRAME '\1aMVADD>
+ <PUSH ITM14>
+ <DEAD ITM14>
+ <CALL '\1aMVADD 1 = TEMP32>
+ <ADD TEMP32 1 = FIRST-AC24 (TYPE FIX)>
+ <DEAD TEMP32>
+ <LSH FIRST-AC24 1 = TEMP32 (TYPE FIX)>
+ <DEAD FIRST-AC24>
+ <TYPE? BOTH20 <TYPE-CODE FALSE> + PHRASE237>
+ <DEAD BOTH20>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH LAC18>
+ <PUSH TEMP32>
+ <DEAD TEMP32>
+ <PUSH (M*)>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE245>
+PHRASE237
+ <VEQUAL? TYP15 'VALUE - PHRASE239>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH LAC18>
+ <PUSH 1>
+ <PUSH TEMP32>
+ <DEAD TEMP32>
+ <PUSH (M*)>
+ <CALL '\1aOCEMIT 5>
+ <JUMP + PHRASE245>
+PHRASE239
+ <VEQUAL? TYP15 'LENGTH - PHRASE241>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH LAC18>
+ <PUSH TEMP32>
+ <DEAD TEMP32>
+ <PUSH (M*)>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE245>
+PHRASE241
+ <VEQUAL? TYP15 'TYPECODE - PHRASE243>
+ <DEAD TYP15>
+ <FRAME '\1aLOAD-TYPE>
+ <NTHUV LAC18 1 = STACK (TYPE ATOM)>
+ <CONS (M*) () = FIRST-AC24>
+ <CONS TEMP32 FIRST-AC24 = STACK>
+ <DEAD TEMP32 FIRST-AC24>
+ <CALL '\1aLOAD-TYPE 2>
+ <JUMP + PHRASE245>
+PHRASE243
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH LAC18>
+ <PUSH TEMP32>
+ <DEAD TEMP32>
+ <PUSH (M*)>
+ <CALL '\1aOCEMIT 4>
+PHRASE245
+ <NTHUV LAC18 1 = TEMP32 (TYPE ATOM)>
+ <DEAD LAC18>
+ <RETURN TEMP32>
+ <DEAD TEMP32>
+ <END \1aLOAD-AC>
+#WORD *32257705565*
+<GFCN \1aLABEL-PREF ("VALUE" <OR AC FALSE> ATOM ATOM ATOM) LBL5 VAR6 TYP7>
+ <TEMP LB8 TEMP13 L9 ACS31>
+ <INTGO>
+ <FRAME '\1aFIND-LABEL>
+ <PUSH LBL5>
+ <CALL '\1aFIND-LABEL 1 = LB8>
+ <SET TEMP13 LB8>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + MAPEX23>
+ <VEQUAL? LBL5 'COMPERR - TAG15>
+ <DEAD LBL5>
+ <RETURN %<>>
+TAG15
+ <NTHUV LB8 5 = L9>
+ <TYPE? L9 <TYPE-CODE FALSE> - BOOL16>
+ <NTHUV LB8 4 = L9 (TYPE LIST)>
+ <EMPL? L9 - TAG18 (TYPE LIST)>
+ <DEAD L9>
+ <RETURN %<>>
+TAG18
+ <NTHUV LB8 4 = L9 (TYPE LIST)>
+ <DEAD LB8>
+ <NTHL L9 1 = L9 (TYPE LABSTATE)>
+BOOL16
+ <SET TEMP13 %<> (TYPE FALSE)>
+ <LOOP>
+MAP21
+ <INTGO>
+ <EMPTY? L9 + MAPAP24>
+ <SET LB8 L9>
+ <NTH1 LB8 = ACS31>
+ <NTHUV ACS31 2 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + BOOL39>
+ <DEAD TEMP13>
+ <NTHUV ACS31 2 = TEMP13 (TYPE LOCAL)>
+ <NTHUV TEMP13 1 = TEMP13 (TYPE ATOM)>
+ <VEQUAL? TEMP13 VAR6 - BOOL39>
+ <DEAD TEMP13>
+ <NTHUV ACS31 5 = TEMP13 (TYPE ATOM)>
+ <VEQUAL? TEMP13 TYP7 + TAG45>
+ <DEAD TEMP13>
+ <VEQUAL? TYP7 'BOTH - BOOL39>
+ <NTHUV ACS31 5 = TEMP13 (TYPE ATOM)>
+ <VEQUAL? TEMP13 'TYPE + TAG45>
+ <DEAD TEMP13>
+BOOL39
+ <VEQUAL? TYP7 'BOTH + TAG41>
+ <SET TEMP13 %<> (TYPE FALSE)>
+ <JUMP + PHRASE34>
+TAG41
+ <REST1 LB8 = TEMP13>
+ <EMPTY? TEMP13 - TAG42>
+ <DEAD TEMP13>
+ <SET TEMP13 %<> (TYPE FALSE)>
+ <JUMP + PHRASE34>
+TAG42
+ <FRAME '\1aNTH>
+ <PUSH LB8>
+ <DEAD LB8>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = LB8>
+ <NTHUV LB8 2 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE34>
+ <NTHUV LB8 2 = TEMP13 (TYPE LOCAL)>
+ <NTHUV TEMP13 1 = TEMP13 (TYPE ATOM)>
+ <VEQUAL? TEMP13 VAR6 + TAG44>
+ <DEAD TEMP13>
+ <SET TEMP13 %<> (TYPE FALSE)>
+ <JUMP + PHRASE34>
+TAG44
+ <NTHUV LB8 5 = TEMP13 (TYPE ATOM)>
+ <DEAD LB8>
+ <VEQUAL? TEMP13 'VALUE + TAG45>
+ <DEAD TEMP13>
+ <SET TEMP13 %<> (TYPE FALSE)>
+ <JUMP + PHRASE34>
+TAG45
+ <NTHUV ACS31 1 = TEMP13 (TYPE AC)>
+ <DEAD ACS31>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE34
+ <REST1 L9 = L9>
+ <JUMP + MAP21>
+MAPAP24
+MAPEX23
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aLABEL-PREF>
+#WORD *37715720105*
+<GFCN \1aLOOK-AHEAD ("VALUE" <OR AC FALSE> LIST ATOM ATOM) L5 ITM6 TYP7>
+ <TEMP TEMP10 X15 Y16 TEMP54>
+ <INTGO>
+ <VEQUAL? ITM6 'STACK - TAG11>
+ <RETURN %<>>
+TAG11
+ <LOOP>
+AGAIN17
+ <INTGO>
+ <EMPL? L5 - PHRASE19 (TYPE LIST)>
+ <RETURN %<>>
+PHRASE19
+ <NTHL L5 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE ATOM> - PHRASE25>
+ <FRAME '\1aLABEL-PREF>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <PUSH ITM6>
+ <DEAD ITM6>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aLABEL-PREF 3 = X15>
+ <TYPE? X15 <TYPE-CODE FALSE> + PHRASE24>
+ <RETURN X15>
+ <DEAD X15>
+PHRASE24
+ <RETURN %<>>
+PHRASE25
+ <TYPE? TEMP10 <TYPE-CODE FORM> - PHRASE83>
+ <EMPL? TEMP10 + PHRASE83 (TYPE FORM)>
+ <FRAME '\1aGETPROP>
+ <NTHL TEMP10 1 = X15>
+ <PUSH X15>
+ <PUSH 'LOOKA-AHEAD>
+ <CALL '\1aGETPROP 2 = Y16>
+ <TYPE? Y16 <TYPE-CODE FALSE> + PHRASE29>
+ <FRAME '\1aSPECIAL-PREF>
+ <PUSH Y16>
+ <DEAD Y16>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <PUSH ITM6>
+ <PUSH TYP7>
+ <CALL '\1aSPECIAL-PREF 4>
+ <JUMP + PHRASE83>
+PHRASE29
+ <EQUAL? X15 'CONS - PHRASE47>
+ <RESTL TEMP10 1 = Y16 (TYPE LIST)>
+ <NTHL Y16 1 = Y16>
+ <EQUAL? Y16 ITM6 - PHRASE34>
+ <DEAD Y16>
+ <VEQUAL? TYP7 'VALUE - PHRASE37>
+ <DEAD TYP7>
+ <FRAME '\1aGET-AC>
+ <PUSH 'B2*>
+ <CALL '\1aGET-AC 1 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE37
+ <FRAME '\1aGET-AC>
+ <PUSH 'B1*>
+ <CALL '\1aGET-AC 1 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE34
+ <RESTL TEMP10 1 = Y16 (TYPE LIST)>
+ <DEAD TEMP10>
+ <RESTL Y16 1 = Y16 (TYPE LIST)>
+ <NTHL Y16 1 = Y16>
+ <EQUAL? Y16 ITM6 - PHRASE41>
+ <DEAD Y16>
+ <VEQUAL? TYP7 'VALUE - PHRASE43>
+ <DEAD TYP7>
+ <FRAME '\1aGET-AC>
+ <PUSH 'C2*>
+ <CALL '\1aGET-AC 1 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE43
+ <FRAME '\1aGET-AC>
+ <PUSH 'C1*>
+ <CALL '\1aGET-AC 1 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE41
+ <RETURN %<>>
+PHRASE47
+ <SET Y16 TEMP10>
+ <CHTYPE Y16 <TYPE-CODE LIST> = Y16>
+ <LOOP (Y16 VALUE)>
+TAG52
+ <NTHL Y16 1 = TEMP54>
+ <TYPE? TEMP54 <TYPE-CODE ATOM> - TAG53>
+ <VEQUAL? TEMP54 '+ + TAG56>
+ <DEAD TEMP54>
+TAG53
+ <RESTL Y16 1 = Y16 (TYPE LIST)>
+ <EMPL? Y16 - TAG52>
+ <SET Y16 TEMP10>
+ <CHTYPE Y16 <TYPE-CODE LIST> = Y16>
+ <LOOP (Y16 VALUE)>
+TAG57
+ <NTHL Y16 1 = TEMP54>
+ <TYPE? TEMP54 <TYPE-CODE ATOM> - TAG58>
+ <VEQUAL? TEMP54 '- + TAG56>
+ <DEAD TEMP54>
+TAG58
+ <RESTL Y16 1 = Y16 (TYPE LIST)>
+ <EMPL? Y16 - TAG57>
+ <SET Y16 %<> (TYPE FALSE)>
+TAG56
+ <TYPE? Y16 <TYPE-CODE FALSE> + PHRASE48>
+ <FRAME '\1aLABEL-PREF>
+ <RESTL Y16 1 = Y16 (TYPE LIST)>
+ <NTHL Y16 1 = STACK (TYPE ATOM)>
+ <DEAD Y16>
+ <PUSH ITM6>
+ <PUSH TYP7>
+ <CALL '\1aLABEL-PREF 3 = Y16>
+ <TYPE? Y16 <TYPE-CODE FALSE> + PHRASE83>
+ <RETURN Y16>
+ <DEAD Y16>
+PHRASE48
+ <EQUAL? X15 'SET - PHRASE62>
+ <RESTL TEMP10 1 = Y16 (TYPE LIST)>
+ <NTHL Y16 1 = Y16>
+ <EQUAL? Y16 ITM6 - PHRASE62>
+ <DEAD Y16>
+ <RETURN %<>>
+PHRASE62
+ <CHTYPE TEMP10 <TYPE-CODE LIST> = Y16>
+ <LOOP (Y16 VALUE)>
+TAG68
+ <NTHL Y16 1 = TEMP54>
+ <TYPE? TEMP54 <TYPE-CODE ATOM> - TAG69>
+ <VEQUAL? TEMP54 '= + TAG67>
+ <DEAD TEMP54>
+TAG69
+ <RESTL Y16 1 = Y16 (TYPE LIST)>
+ <EMPL? Y16 - TAG68>
+ <SET Y16 %<> (TYPE FALSE)>
+ <JUMP + TAG70>
+TAG67
+TAG70
+ <TYPE? Y16 <TYPE-CODE FALSE> + PHRASE64>
+ <RESTL Y16 1 = Y16 (TYPE LIST)>
+ <NTHL Y16 1 = Y16>
+ <EQUAL? Y16 ITM6 - PHRASE64>
+ <DEAD Y16>
+ <RETURN %<>>
+PHRASE64
+ <EQUAL? X15 'DEAD - PHRASE71>
+ <RESTL TEMP10 1 = Y16 (TYPE LIST)>
+ <CHTYPE Y16 <TYPE-CODE LIST> = Y16>
+ <EMPL? Y16 + PHRASE71>
+ <LOOP (ITM6 VALUE) (Y16 VALUE)>
+TAG74
+ <NTHL Y16 1 = TEMP54>
+ <TYPE? TEMP54 <TYPE-CODE ATOM> - TAG75>
+ <VEQUAL? TEMP54 ITM6 + TAG73>
+ <DEAD TEMP54>
+TAG75
+ <RESTL Y16 1 = Y16 (TYPE LIST)>
+ <EMPL? Y16 - TAG74>
+ <JUMP + PHRASE71>
+TAG73
+ <RETURN %<>>
+PHRASE71
+ <EQUAL? X15 'RETURN - PHRASE81>
+ <RESTL TEMP10 1 = Y16 (TYPE LIST)>
+ <DEAD TEMP10>
+ <NTHL Y16 1 = Y16>
+ <EQUAL? Y16 ITM6 - PHRASE81>
+ <DEAD Y16>
+ <VEQUAL? TYP7 'VALUE - PHRASE79>
+ <DEAD TYP7>
+ <FRAME '\1aGET-AC>
+ <PUSH 'A2*>
+ <CALL '\1aGET-AC 1 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE79
+ <FRAME '\1aGET-AC>
+ <PUSH 'A1*>
+ <CALL '\1aGET-AC 1 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE81
+ <EQUAL? X15 'RETURN - PHRASE83>
+ <DEAD X15>
+ <RETURN %<>>
+PHRASE83
+ <RESTL L5 1 = L5 (TYPE LIST)>
+ <JUMP + AGAIN17>
+ <END \1aLOOK-AHEAD>
+#WORD *33371041724*
+<GFCN \1aUPDATE-AC ("VALUE" <OR FALSE FIX> AC "OPTIONAL" ANY) AC8 SAVE-TIME9>
+ <OPT-DISPATCH 1 %<> OPT6 OPT7>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP ITM10 TYP11:ATOM T115:FIX T216 ACSTMP17:FIX LCL14 TEMP27 NAC12 TEMP42>
+ <INTGO>
+ <NTHUV AC8 2 = ITM10>
+ <NTHUV AC8 3 = TYP11 (TYPE ATOM)>
+ <NTHUV AC8 4 = T115 (TYPE FIX)>
+ <GVAL 'AC-STAMP = ACSTMP17>
+ <TYPE? ITM10 <TYPE-CODE ATOM> - PHRASE88>
+ <VEQUAL? ITM10 'STACK + PHRASE88>
+ <FRAME '\1aLMEMQ>
+ <PUSH ITM10>
+ <GVAL 'LOCALS = STACK>
+ <CALL '\1aLMEMQ 2 = LCL14>
+ <VEQUAL? LCL14 0 + PHRASE22>
+ <TYPE? LCL14 <TYPE-CODE LOCAL> - PHRASE34>
+ <NTHUV LCL14 2 = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> - PHRASE34>
+ <DEAD TEMP27>
+ <PUTUV LCL14 2 'TEMP>
+ <JUMP + PHRASE34>
+PHRASE22
+ <GVAL 'ICALL-FLAG = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE28>
+ <DEAD TEMP27>
+ <FRAME '\1aLMEMQ>
+ <PUSH ITM10>
+ <GVAL 'ICALL-TEMPS = STACK>
+ <CALL '\1aLMEMQ 2 = LCL14>
+ <VEQUAL? LCL14 0 + PHRASE28>
+ <TYPE? LCL14 <TYPE-CODE LOCAL> - PHRASE34>
+ <NTHUV LCL14 2 = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> - PHRASE34>
+ <DEAD TEMP27>
+ <PUTUV LCL14 2 'TEMP>
+ <JUMP + PHRASE34>
+PHRASE28
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'UNKNOWN-LOCAL!-ERRORS>
+ <PUSH ITM10>
+ <DEAD ITM10>
+ <CALL '\1aMIMOCERR 2>
+PHRASE34
+ <NTHUV LCL14 3 = ITM10 (TYPE LOCAL-NAME)>
+ <VEQUAL? TYP11 'TYPE - BOOL39>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = NAC12>
+ <NTHUV NAC12 3 = TEMP27 (TYPE ATOM)>
+ <VEQUAL? TEMP27 'VALUE - BOOL39>
+ <DEAD TEMP27>
+ <NTHUV NAC12 2 = TEMP27>
+ <NTHUV LCL14 1 = TEMP42 (TYPE ATOM)>
+ <EQUAL? TEMP27 TEMP42 - BOOL39>
+ <DEAD TEMP27 TEMP42>
+ <NTHUV NAC12 5 = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> + BOOL39>
+ <DEAD TEMP42>
+ <PUTUV NAC12 5 %<>>
+ <JUMP + BOOL38>
+BOOL39
+ <VEQUAL? TYP11 'VALUE - PHRASE37>
+ <FRAME '\1aGETPROP>
+ <PUSH AC8>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = NAC12>
+ <NTHUV NAC12 3 = TEMP42 (TYPE ATOM)>
+ <VEQUAL? TEMP42 'TYPE - PHRASE37>
+ <DEAD TEMP42>
+ <NTHUV NAC12 2 = TEMP42>
+ <NTHUV LCL14 1 = TEMP27 (TYPE ATOM)>
+ <EQUAL? TEMP42 TEMP27 - PHRASE37>
+ <DEAD TEMP42>
+ <NTHUV NAC12 4 = T216 (TYPE FIX)>
+ <NTHUV NAC12 5 = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE37>
+ <DEAD TEMP27>
+ <PUTUV NAC12 5 %<>>
+ <NTHUV NAC12 4 = T115 (TYPE FIX)>
+ <SET AC8 NAC12>
+ <DEAD NAC12>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = NAC12>
+BOOL38
+ <FRAME '\1aHACK-LAST-ACS>
+ <PUSH LCL14>
+ <PUSH 'TYPE>
+ <CALL '\1aHACK-LAST-ACS 2>
+ <FRAME '\1aHACK-LAST-ACS>
+ <PUSH LCL14>
+ <PUSH 'VALUE>
+ <CALL '\1aHACK-LAST-ACS 2>
+ <NTHUV NAC12 4 = T216 (TYPE FIX)>
+ <GVAL 'TYPED-LOCALS = TEMP27>
+ <EMPL? TEMP27 + PHRASE50>
+ <LOOP (LCL14 VALUE) (TEMP27 VALUE)>
+TAG53
+ <NTHL TEMP27 1 = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE LOCAL> - TAG54>
+ <VEQUAL? TEMP42 LCL14 + TAG52>
+ <DEAD TEMP42>
+TAG54
+ <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
+ <EMPL? TEMP27 - TAG53>
+ <JUMP + PHRASE50>
+TAG52
+ <NTHUV LCL14 2 = TEMP27>
+ <DEAD LCL14>
+ <EQUAL? TEMP27 'OARG + PHRASE50>
+ <DEAD TEMP27>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <NTHUV NAC12 1 = STACK (TYPE ATOM)>
+ <GVAL 'STACK-DEPTH = TEMP27>
+ <SUB 1 TEMP27 = STACK (TYPE FIX)>
+ <DEAD TEMP27>
+ <PUSH ITM10>
+ <DEAD ITM10>
+ <GVAL 'WINNING-VICTIM = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE57>
+ <DEAD TEMP27>
+ <SET TEMP27 (TP*) (TYPE LIST)>
+ <JUMP + PHRASE58>
+PHRASE57
+ <SET TEMP27 (F*) (TYPE LIST)>
+PHRASE58
+ <PUSH TEMP27>
+ <DEAD TEMP27>
+ <CALL '\1aOCEMIT 5>
+ <JUMP + PHRASE59>
+PHRASE50
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVEM>
+ <NTHUV AC8 1 = STACK (TYPE ATOM)>
+ <GVAL 'STACK-DEPTH = TEMP27>
+ <SUB 0 TEMP27 = STACK (TYPE FIX)>
+ <DEAD TEMP27>
+ <PUSH ITM10>
+ <DEAD ITM10>
+ <GVAL 'WINNING-VICTIM = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE62>
+ <DEAD TEMP27>
+ <SET TEMP27 (TP*) (TYPE LIST)>
+ <JUMP + PHRASE63>
+PHRASE62
+ <SET TEMP27 (F*) (TYPE LIST)>
+PHRASE63
+ <PUSH TEMP27>
+ <DEAD TEMP27>
+ <CALL '\1aOCEMIT 5>
+PHRASE59
+ <TYPE? SAVE-TIME9 <TYPE-CODE FALSE> + PHRASE65>
+ <PUTUV AC8 4 T115 (TYPE FIX)>
+ <DEAD AC8 T115>
+ <PUTUV NAC12 4 T216 (TYPE FIX)>
+ <DEAD T216>
+PHRASE65
+ <PUTUV NAC12 5 %<>>
+ <DEAD NAC12>
+ <JUMP + PHRASE88>
+PHRASE37
+ <VEQUAL? TYP11 'TYPE - PHRASE66>
+ <FRAME '\1aHACK-LAST-ACS>
+ <PUSH LCL14>
+ <PUSH 'TYPE>
+ <CALL '\1aHACK-LAST-ACS 2>
+ <GVAL 'TYPED-LOCALS = TEMP27>
+ <EMPL? TEMP27 + TAG70>
+ <LOOP (LCL14 VALUE) (TEMP27 VALUE)>
+TAG71
+ <NTHL TEMP27 1 = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE LOCAL> - TAG72>
+ <VEQUAL? TEMP42 LCL14 + PHRASE88>
+ <DEAD TEMP42>
+TAG72
+ <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
+ <EMPL? TEMP27 - TAG71>
+TAG70
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <NTHUV AC8 1 = STACK (TYPE ATOM)>
+ <GVAL 'STACK-DEPTH = TEMP27>
+ <SUB 0 TEMP27 = STACK (TYPE FIX)>
+ <DEAD TEMP27>
+ <PUSH ITM10>
+ <DEAD ITM10>
+ <GVAL 'WINNING-VICTIM = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE75>
+ <DEAD TEMP27>
+ <SET TEMP27 (TP*) (TYPE LIST)>
+ <JUMP + PHRASE76>
+PHRASE75
+ <SET TEMP27 (F*) (TYPE LIST)>
+PHRASE76
+ <PUSH TEMP27>
+ <DEAD TEMP27>
+ <CALL '\1aOCEMIT 5>
+ <TYPE? SAVE-TIME9 <TYPE-CODE FALSE> + PHRASE88>
+ <PUTUV AC8 4 T115 (TYPE FIX)>
+ <DEAD AC8 T115>
+ <JUMP + PHRASE88>
+PHRASE66
+ <VEQUAL? TYP11 'VALUE - PHRASE88>
+ <DEAD TYP11>
+ <FRAME '\1aHACK-LAST-ACS>
+ <PUSH LCL14>
+ <DEAD LCL14>
+ <PUSH 'VALUE>
+ <CALL '\1aHACK-LAST-ACS 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <NTHUV AC8 1 = STACK (TYPE ATOM)>
+ <GVAL 'STACK-DEPTH = TEMP27>
+ <SUB 1 TEMP27 = STACK (TYPE FIX)>
+ <DEAD TEMP27>
+ <PUSH ITM10>
+ <DEAD ITM10>
+ <GVAL 'WINNING-VICTIM = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE83>
+ <DEAD TEMP27>
+ <SET TEMP27 (TP*) (TYPE LIST)>
+ <JUMP + PHRASE84>
+PHRASE83
+ <SET TEMP27 (F*) (TYPE LIST)>
+PHRASE84
+ <PUSH TEMP27>
+ <DEAD TEMP27>
+ <CALL '\1aOCEMIT 5>
+ <TYPE? SAVE-TIME9 <TYPE-CODE FALSE> + PHRASE88>
+ <PUTUV AC8 4 T115 (TYPE FIX)>
+ <DEAD AC8 T115>
+ <TYPE? T216 <TYPE-CODE UNBOUND> + PHRASE88>
+ <PUTUV NAC12 4 T216 (TYPE FIX)>
+ <DEAD NAC12 T216>
+PHRASE88
+ <SET TEMP27 SAVE-TIME9>
+ <DEAD SAVE-TIME9>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE90>
+ <SETG 'AC-STAMP ACSTMP17>
+ <SET TEMP27 ACSTMP17>
+ <DEAD ACSTMP17>
+PHRASE90
+ <RETURN TEMP27>
+ <DEAD TEMP27>
+ <END \1aUPDATE-AC>\r\r
+#WORD *27674532506*
+<GFCN \1aHACK-LAST-ACS ("VALUE" <OR FALSE LOCAL> LOCAL ATOM) LCL5 TYP6>
+ <TEMP ACS7 TEMP11>
+ <INTGO>
+ <VEQUAL? TYP6 'TYPE - PHRASE9>
+ <NTHUV LCL5 5 = ACS7>
+ <TYPE? ACS7 <TYPE-CODE FALSE> + PHRASE9>
+ <NTHUV ACS7 3 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE9>
+ <DEAD TEMP11>
+ <PUTUV ACS7 3 'HACKED>
+ <DEAD ACS7>
+ <PUTUV LCL5 5 %<>>
+ <RETURN LCL5>
+ <DEAD LCL5>
+PHRASE9
+ <VEQUAL? TYP6 'VALUE + TAG14>
+ <DEAD TYP6>
+ <RETURN %<>>
+TAG14
+ <NTHUV LCL5 6 = ACS7>
+ <SET TEMP11 ACS7>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE12>
+ <NTHUV ACS7 3 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + TAG16>
+ <DEAD TEMP11>
+ <RETURN %<>>
+TAG16
+ <PUTUV ACS7 3 'HACKED>
+ <DEAD ACS7>
+ <PUTUV LCL5 6 %<>>
+ <SET TEMP11 LCL5>
+ <DEAD LCL5>
+PHRASE12
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aHACK-LAST-ACS>
+#WORD *36237266563*
+<GFCN \1aUPDATE-ACS ("VALUE" <OR FALSE <LIST ANY>>)>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aLABEL-UPDATE-ACS 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aUPDATE-ACS>
+#WORD *15561725166*
+<GFCN \1aLABEL-UPDATE-ACS ("VALUE" <OR FALSE <LIST ANY>> <OR ATOM FALSE> ANY "OPTIONAL" ANY ANY ANY) TAG12 UNCND13 NO-TY14 A115 A216>
+ <OPT-DISPATCH 2 %<> OPT8 OPT9 OPT10 OPT11>
+OPT8
+ <PUSH %<>>
+OPT9
+ <PUSH %<>>
+OPT10
+ <PUSH %<>>
+OPT11
+ <TEMP TEMP20 MIML19 TEMP39 NXT17>
+ <INTGO>
+ <GEN-LVAL 'MIML = MIML19>
+ <TYPE? TAG12 <TYPE-CODE FALSE> + BOOL24>
+ <FRAME '\1aFIND-LABEL>
+ <PUSH TAG12>
+ <CALL '\1aFIND-LABEL 1 = TEMP20>
+BOOL24
+ <EQUAL? TAG12 'COMPERR + BOOL28>
+ <EQUAL? TAG12 'UNWCONT - PHRASE27>
+BOOL28
+ <SET TEMP20 A115>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE82>
+ <TYPE? A216 <TYPE-CODE FALSE> + PHRASE33>
+ <CONS A216 () = TEMP20>
+ <DEAD A216>
+ <CONS A115 TEMP20 = TEMP20>
+ <DEAD A115>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+PHRASE33
+ <CONS A115 () = TEMP20>
+ <DEAD A115>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+PHRASE27
+ <TYPE? TAG12 <TYPE-CODE FALSE> + PHRASE49>
+ <NTHUV TEMP20 3 = TEMP39>
+ <TYPE? TEMP39 <TYPE-CODE FALSE> - PHRASE49>
+ <DEAD TEMP39>
+ <TYPE? UNCND13 <TYPE-CODE FALSE> - PHRASE49>
+ <LOOP>
+AGAIN41
+ <INTGO>
+ <EMPL? MIML19 + PHRASE49 (TYPE LIST)>
+ <RESTL MIML19 1 = TEMP39 (TYPE LIST)>
+ <NTHL TEMP39 1 = NXT17>
+ <DEAD TEMP39>
+ <TYPE? NXT17 <TYPE-CODE FORM> - PHRASE45>
+ <NTHL NXT17 1 = TEMP39>
+ <EQUAL? TEMP39 'DEAD - PHRASE45>
+ <DEAD TEMP39>
+ <FRAME '\1aDEAD!-MIMOC>
+ <RESTL NXT17 1 = TEMP39 (TYPE LIST)>
+ <DEAD NXT17>
+ <CHTYPE TEMP39 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP39>
+ <PUSH 'T>
+ <PUSH NO-TY14>
+ <CALL '\1aDEAD!-MIMOC 3>
+ <RESTL MIML19 1 = MIML19 (TYPE LIST)>
+ <JUMP + AGAIN41>
+PHRASE45
+ <TYPE? NXT17 <TYPE-CODE ATOM> - PHRASE49>
+ <DEAD NXT17>
+ <RESTL MIML19 1 = MIML19 (TYPE LIST)>
+ <JUMP + AGAIN41>
+PHRASE49
+ <TYPE? TAG12 <TYPE-CODE FALSE> + BOOL52>
+ <DEAD TAG12>
+ <GVAL 'NO-AC-FUNNYNESS = TEMP39>
+ <TYPE? TEMP39 <TYPE-CODE FALSE> + PHRASE51>
+ <DEAD TEMP39>
+BOOL52
+ <GVAL 'AC-TABLE = TEMP39>
+ <LOOP>
+MAP55
+ <INTGO>
+ <EMPUV? TEMP39 + MAPAP58>
+ <NTHUV TEMP39 1 = MIML19>
+ <NTHUV MIML19 5 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE67>
+ <DEAD TEMP20>
+ <FRAME '\1aUPDATE-AC>
+ <PUSH MIML19>
+ <CALL '\1aUPDATE-AC 1>
+ <PUTUV MIML19 5 %<>>
+ <DEAD MIML19>
+PHRASE67
+ <RESTUV TEMP39 1 = TEMP39 (TYPE VECTOR)>
+ <JUMP + MAP55>
+MAPAP58
+ <SET TEMP20 A115>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE82>
+ <TYPE? A216 <TYPE-CODE FALSE> + PHRASE73>
+ <CONS A216 () = TEMP20>
+ <DEAD A216>
+ <CONS A115 TEMP20 = TEMP20>
+ <DEAD A115>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+PHRASE73
+ <CONS A115 () = TEMP20>
+ <DEAD A115>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+PHRASE51
+ <GVAL 'PASS1 = TEMP39>
+ <TYPE? TEMP39 <TYPE-CODE FALSE> + PHRASE75>
+ <DEAD TEMP39>
+ <FRAME '\1aSAVE-BRANCH-STATE>
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <PUSH UNCND13>
+ <DEAD UNCND13>
+ <CALL '\1aSAVE-BRANCH-STATE 2>
+ <SET TEMP20 A115>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE82>
+ <TYPE? A216 <TYPE-CODE FALSE> + PHRASE80>
+ <CONS A216 () = TEMP20>
+ <DEAD A216>
+ <CONS A115 TEMP20 = TEMP20>
+ <DEAD A115>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+PHRASE80
+ <CONS A115 () = TEMP20>
+ <DEAD A115>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+PHRASE75
+ <GVAL 'NO-AC-FUNNYNESS = TEMP39>
+ <TYPE? TEMP39 <TYPE-CODE FALSE> + TAG83>
+ <DEAD TEMP39>
+ <RETURN %<>>
+TAG83
+ <FRAME '\1aESTABLISH-BRANCH-STATE>
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <PUSH UNCND13>
+ <DEAD UNCND13>
+ <PUSH A115>
+ <DEAD A115>
+ <PUSH A216>
+ <DEAD A216>
+ <CALL '\1aESTABLISH-BRANCH-STATE 4 = TEMP20>
+PHRASE82
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+ <END \1aLABEL-UPDATE-ACS>
+#WORD *16773732434*
+<GFCN \1aFLUSH-AC ("VALUE" <OR FALSE FIX> ATOM "OPTIONAL" <OR ATOM FALSE>) AC8 BOTH9>
+ <OPT-DISPATCH 1 %<> OPT6 OPT7>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP RAC10:AC TEMP14>
+ <INTGO>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = RAC10>
+ <NTHUV RAC10 5 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE12>
+ <DEAD TEMP14>
+ <FRAME '\1aUPDATE-AC>
+ <PUSH RAC10>
+ <DEAD RAC10>
+ <CALL '\1aUPDATE-AC 1>
+PHRASE12
+ <SET TEMP14 BOTH9>
+ <DEAD BOTH9>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE17>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <DEAD AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = RAC10>
+ <NTHUV RAC10 5 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE17>
+ <FRAME '\1aUPDATE-AC>
+ <PUSH RAC10>
+ <DEAD RAC10>
+ <CALL '\1aUPDATE-AC 1 = TEMP14>
+PHRASE17
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aFLUSH-AC>
+#WORD *5167230010*
+<GFCN \1aALTER-AC ("VALUE" AC ATOM ATOM) AC5 WHAT6>
+ <TEMP RAC7:AC TEMP11>
+ <INTGO>
+ <FRAME '\1aGET-AC>
+ <PUSH AC5>
+ <CALL '\1aGET-AC 1 = RAC7>
+ <NTHUV RAC7 5 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE9>
+ <DEAD TEMP11>
+ <FRAME '\1aUPDATE-AC>
+ <PUSH RAC7>
+ <CALL '\1aUPDATE-AC 1>
+PHRASE9
+ <PUTUV RAC7 2 WHAT6>
+ <PUTUV RAC7 3 'TYPE (TYPE ATOM)>
+ <PUTUV RAC7 5 'T>
+ <DEAD RAC7>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC5>
+ <DEAD AC5>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = RAC7>
+ <NTHUV RAC7 5 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE14>
+ <DEAD TEMP11>
+ <FRAME '\1aUPDATE-AC>
+ <PUSH RAC7>
+ <CALL '\1aUPDATE-AC 1>
+PHRASE14
+ <PUTUV RAC7 2 WHAT6>
+ <DEAD WHAT6>
+ <PUTUV RAC7 3 'VALUE (TYPE ATOM)>
+ <PUTUV RAC7 5 'T>
+ <RETURN RAC7>
+ <DEAD RAC7>
+ <END \1aALTER-AC>
+#WORD *5060470577*
+<GFCN \1aFLUSH-ACS ("VALUE" <OR ATOM FALSE AC>)>
+ <TEMP TEMP14 TEMP16:VECTOR TEMP20:ATOM>
+ <INTGO>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <GVAL 'AC-TABLE = TEMP16>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPUV? TEMP16 + MAPAP9>
+ <NTHUV TEMP16 1 = TEMP14>
+ <PUTUV TEMP14 2 %<>>
+ <PUTUV TEMP14 3 'DUMMY (TYPE ATOM)>
+ <PUTUV TEMP14 5 %<>>
+ <PUTUV TEMP14 6 %<>>
+ <NTHUV TEMP14 1 = TEMP20 (TYPE ATOM)>
+ <VEQUAL? TEMP20 'T* - TAG19>
+ <DEAD TEMP20>
+ <SET TEMP14 'T (TYPE ATOM)>
+ <JUMP + BOOL18>
+TAG19
+ <PUTUV TEMP14 4 0 (TYPE FIX)>
+BOOL18
+ <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
+ <JUMP + MAP6>
+MAPAP9
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aFLUSH-ACS>
+#WORD *23501344272*
+<GFCN \1aREALLY-FREE-AC-PAIR ("VALUE" <OR ATOM FALSE>)>
+ <TEMP OAC5:ATOM TEMP12>
+ <INTGO>
+ <FRAME '\1aGET-AC>
+ <SET OAC5 'A1* (TYPE ATOM)>
+ <PUSH OAC5>
+ <CALL '\1aGET-AC 1 = TEMP12>
+ <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
+ <VEQUAL? TEMP12 'DUMMY - BOOL10>
+ <DEAD TEMP12>
+ <FRAME '\1aGET-AC>
+ <PUSH 'A2*>
+ <CALL '\1aGET-AC 1 = TEMP12>
+ <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
+ <VEQUAL? TEMP12 'DUMMY + TAG20>
+ <DEAD TEMP12>
+BOOL10
+ <FRAME '\1aGET-AC>
+ <SET OAC5 'B1* (TYPE ATOM)>
+ <PUSH OAC5>
+ <CALL '\1aGET-AC 1 = TEMP12>
+ <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
+ <VEQUAL? TEMP12 'DUMMY - BOOL14>
+ <DEAD TEMP12>
+ <FRAME '\1aGET-AC>
+ <PUSH 'B2*>
+ <CALL '\1aGET-AC 1 = TEMP12>
+ <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
+ <VEQUAL? TEMP12 'DUMMY + TAG20>
+ <DEAD TEMP12>
+BOOL14
+ <FRAME '\1aGET-AC>
+ <SET OAC5 'C1* (TYPE ATOM)>
+ <PUSH OAC5>
+ <CALL '\1aGET-AC 1 = TEMP12>
+ <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
+ <VEQUAL? TEMP12 'DUMMY + TAG18>
+ <DEAD TEMP12>
+ <RETURN %<>>
+TAG18
+ <FRAME '\1aGET-AC>
+ <PUSH 'C2*>
+ <CALL '\1aGET-AC 1 = TEMP12>
+ <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
+ <VEQUAL? TEMP12 'DUMMY + TAG20>
+ <DEAD TEMP12>
+ <RETURN %<>>
+TAG20
+ <RETURN OAC5>
+ <DEAD OAC5>
+ <END \1aREALLY-FREE-AC-PAIR>
+#WORD *13741145013*
+<GFCN \1aMUNGED-AC ("VALUE" <OR FALSE AC> ATOM "OPTIONAL" <OR ATOM FALSE>) NAM8 NXT?9>
+ <OPT-DISPATCH 1 %<> OPT6 OPT7>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP AC10>
+ <INTGO>
+ <FRAME '\1aGET-AC>
+ <PUSH NAM8>
+ <CALL '\1aGET-AC 1 = AC10>
+ <PUTUV AC10 2 %<>>
+ <PUTUV AC10 3 'DUMMY (TYPE ATOM)>
+ <PUTUV AC10 5 %<>>
+ <PUTUV AC10 6 %<>>
+ <DEAD AC10>
+ <SET AC10 NXT?9>
+ <DEAD NXT?9>
+ <TYPE? AC10 <TYPE-CODE FALSE> + PHRASE13>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAM8>
+ <DEAD NAM8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = AC10>
+ <PUTUV AC10 2 %<>>
+ <PUTUV AC10 3 'DUMMY (TYPE ATOM)>
+ <PUTUV AC10 5 %<>>
+ <PUTUV AC10 6 %<>>
+PHRASE13
+ <RETURN AC10>
+ <DEAD AC10>
+ <END \1aMUNGED-AC>
+#WORD *17166617220*
+<GFCN \1aSAVE-ACS ("VALUE" <OR AC ATOM FALSE>)>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aFLUSH-ACS>
+ <CALL '\1aFLUSH-ACS 0 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aSAVE-ACS>
+#WORD *11234212013*
+ <GFCN \1aMVADD ("VALUE" FIX ANY) ITM4>
+ <TEMP ITM13 TEMP18 BK8:LIST IDX7:FIX HC6:FIX MVB35:MBUCK>
+ <INTGO>
+ <SET ITM13 ITM4>
+ <LOOP>
+AGAIN14
+ <INTGO>
+ <TYPE? ITM13 <TYPE-CODE FORM> - PHRASE10>
+ <EMPL? ITM13 + PHRASE10>
+ <RESTL ITM13 1 = TEMP18 (TYPE LIST)>
+ <EMPL? TEMP18 + PHRASE10>
+ <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
+ <EMPL? TEMP18 - PHRASE10>
+ <DEAD TEMP18>
+ <NTHL ITM13 1 = TEMP18>
+ <EQUAL? TEMP18 'QUOTE - PHRASE10>
+ <DEAD TEMP18>
+ <RESTL ITM13 1 = TEMP18 (TYPE LIST)>
+ <DEAD ITM13>
+ <NTHL TEMP18 1 = ITM13>
+ <DEAD TEMP18>
+ <TYPE? ITM13 <TYPE-CODE ATOM> - AGAIN14>
+ <FRAME '\1aNTH>
+ <PUSH ITM4>
+ <DEAD ITM4>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = ITM4>
+PHRASE10
+ <GVAL 'MV-TABLE = TEMP18>
+ <FRAME '\1aHASH>
+ <PUSH ITM4>
+ <CALL '\1aHASH 1 = HC6>
+ <MOD HC6 391 = ITM13 (TYPE FIX)>
+ <ADD ITM13 1 = IDX7 (TYPE FIX)>
+ <DEAD ITM13>
+ <NTHUV TEMP18 IDX7 = BK8 (TYPE LIST)>
+ <DEAD TEMP18>
+ <SET TEMP18 BK8 (TYPE LIST)>
+ <LOOP>
+MAP27
+ <INTGO>
+ <EMPL? TEMP18 + MAPAP30>
+ <NTHL TEMP18 1 = MVB35>
+ <NTHUV MVB35 2 = ITM13 (TYPE FIX)>
+ <VEQUAL? HC6 ITM13 - PHRASE37 (TYPE FIX)>
+ <DEAD ITM13>
+ <FRAME '\1a=?>
+ <NTHUV MVB35 1 = STACK>
+ <PUSH ITM4>
+ <CALL '\1a=? 2 = ITM13>
+ <VEQUAL? ITM13 0 + PHRASE37>
+ <DEAD ITM13>
+ <GEN-SET 'FMV MVB35>
+ <DEAD MVB35>
+ <JUMP + PHRASE43>
+PHRASE37
+ <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
+ <JUMP + MAP27>
+MAPAP30
+ <GVAL 'MV-TABLE = TEMP18>
+ <PUSH ITM4>
+ <PUSH HC6>
+ <DEAD HC6>
+ <GVAL 'MV-COUNT = ITM13>
+ <ADD ITM13 1 = ITM13 (TYPE FIX)>
+ <SETG 'MV-COUNT ITM13>
+ <PUSH ITM13>
+ <DEAD ITM13>
+ <UBLOCK <TYPE-CODE VECTOR> 3 = ITM13>
+ <CHTYPE ITM13 <TYPE-CODE MBUCK> = ITM13>
+ <GEN-SET 'FMV ITM13>
+ <CONS ITM13 () = ITM13>
+ <PUTREST ITM13 BK8>
+ <DEAD BK8>
+ <PUTUV TEMP18 IDX7 ITM13 (TYPE LIST)>
+ <DEAD TEMP18 IDX7 ITM13>
+ <GVAL 'MV = TEMP18>
+ <CONS ITM4 () = ITM13>
+ <DEAD ITM4>
+ <PUTREST TEMP18 ITM13>
+ <DEAD TEMP18>
+ <SETG 'MV ITM13>
+ <DEAD ITM13>
+PHRASE43
+ <GEN-LVAL 'FMV = ITM13>
+ <NTHUV ITM13 3 = ITM13 (TYPE FIX)>
+ <RETURN ITM13>
+ <DEAD ITM13>
+ <END \1aMVADD>
+
+#WORD *15203237072*
+<GFCN \1aPOS ("VALUE" ANY ANY LIST) ITM5 LST6>
+ <TEMP TEMP11 M7 TEMP19 TEMP25 TEMP26>
+ <INTGO>
+ <TYPE? ITM5 <TYPE-CODE FORM> - PHRASE9>
+ <EMPL? ITM5 + PHRASE9>
+ <RESTL ITM5 1 = TEMP11 (TYPE LIST)>
+ <EMPL? TEMP11 + PHRASE9>
+ <DEAD TEMP11>
+ <NTHL ITM5 1 = TEMP11>
+ <EQUAL? TEMP11 'QUOTE - PHRASE9>
+ <DEAD TEMP11>
+ <RESTL ITM5 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE ATOM> - PHRASE9>
+ <DEAD TEMP11>
+ <RESTL ITM5 1 = ITM5 (TYPE LIST)>
+ <NTHL ITM5 1 = ITM5 (TYPE ATOM)>
+PHRASE9
+ <GVAL 'ICALL-FLAG = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE13>
+ <DEAD TEMP11>
+ <GVAL 'LOCALS = TEMP11>
+ <VEQUAL? TEMP11 LST6 - PHRASE13>
+ <DEAD TEMP11>
+ <GVAL 'ICALL-TEMPS = M7>
+ <TYPE ITM5 = TEMP11>
+ <EMPL? M7 + TAG15>
+ <LOOP (ITM5 VALUE) (TEMP11 VALUE) (M7 VALUE)>
+TAG17
+ <NTHL M7 1 = TEMP19>
+ <TYPE? TEMP19 TEMP11 - TAG18>
+ <VEQUAL? TEMP19 ITM5 + TAG16>
+ <DEAD TEMP19>
+TAG18
+ <RESTL M7 1 = M7 (TYPE LIST)>
+ <EMPL? M7 - TAG17>
+TAG15
+ <DEAD M7 TEMP11>
+ <SET M7 %<> (TYPE FALSE)>
+TAG16
+ <TYPE? M7 <TYPE-CODE FALSE> + PHRASE13>
+ <RESTL M7 1 = M7 (TYPE LIST)>
+ <NTHL M7 1 = M7>
+ <RETURN M7>
+ <DEAD M7>
+PHRASE13
+ <RESTL LST6 1 = TEMP19 (TYPE LIST)>
+ <TYPE ITM5 = TEMP25>
+ <EMPL? TEMP19 + TAG21>
+ <LOOP (ITM5 VALUE) (TEMP25 VALUE) (TEMP19 VALUE)>
+TAG23
+ <NTHL TEMP19 1 = TEMP26>
+ <TYPE? TEMP26 TEMP25 - TAG24>
+ <VEQUAL? TEMP26 ITM5 + TAG22>
+ <DEAD TEMP26>
+TAG24
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <EMPL? TEMP19 - TAG23>
+TAG21
+ <DEAD ITM5 TEMP19 TEMP25>
+ <SET M7 %<> (TYPE FALSE)>
+ <JUMP + TAG27>
+TAG22
+ <SET M7 TEMP19>
+ <DEAD TEMP19>
+TAG27
+ <SET TEMP11 M7>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE20>
+ <LENL LST6 = TEMP19 (TYPE FIX)>
+ <DEAD LST6>
+ <LENL M7 = M7 (TYPE FIX)>
+ <SUB TEMP19 M7 = TEMP11 (TYPE FIX)>
+ <DEAD M7 TEMP19>
+PHRASE20
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aPOS>
+#WORD *32557052014*
+<GFCN \1aLMEMQ ("VALUE" <OR ATOM !<FALSE> LOCAL> ATOM LIST) ATM5 LST6>
+ <TEMP TEMP8 TEMP16:ATOM>
+ <INTGO>
+ <LOOP>
+AGAIN11
+ <INTGO>
+ <EMPL? LST6 - PHRASE13 (TYPE LIST)>
+ <RETURN %<>>
+PHRASE13
+ <NTHL LST6 1 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE LOCAL> - PHRASE14>
+ <NTHUV TEMP8 1 = TEMP16 (TYPE ATOM)>
+ <VEQUAL? TEMP16 ATM5 - PHRASE14>
+ <DEAD TEMP16>
+ <NTHL LST6 1 = TEMP8 (TYPE LOCAL)>
+ <DEAD LST6>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+PHRASE14
+ <EQUAL? TEMP8 ATM5 - PHRASE17>
+ <DEAD TEMP8>
+ <RETURN ATM5>
+ <DEAD ATM5>
+PHRASE17
+ <RESTL LST6 1 = LST6 (TYPE LIST)>
+ <JUMP + AGAIN11>
+ <END \1aLMEMQ>
+#WORD *11744210303*
+<GFCN \1aL-N-LMEMQ ("VALUE" <OR !<FALSE> LOCAL LOCAL-NAME> LOCAL-NAME LIST) LN5 LST6>
+ <TEMP TEMP8 TEMP16:LOCAL-NAME>
+ <INTGO>
+ <LOOP>
+AGAIN11
+ <INTGO>
+ <EMPL? LST6 - PHRASE13 (TYPE LIST)>
+ <RETURN %<>>
+PHRASE13
+ <NTHL LST6 1 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE LOCAL> - PHRASE14>
+ <NTHUV TEMP8 3 = TEMP16 (TYPE LOCAL-NAME)>
+ <VEQUAL? TEMP16 LN5 - PHRASE14>
+ <DEAD TEMP16>
+ <NTHL LST6 1 = TEMP8 (TYPE LOCAL)>
+ <DEAD LST6>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+PHRASE14
+ <EQUAL? TEMP8 LN5 - PHRASE17>
+ <DEAD TEMP8>
+ <RETURN LN5>
+ <DEAD LN5>
+PHRASE17
+ <RESTL LST6 1 = LST6 (TYPE LIST)>
+ <JUMP + AGAIN11>
+ <END \1aL-N-LMEMQ>
+#WORD *760665003*
+<GFCN \1aLLOOKUP ("VALUE" ANY ATOM) ATM5>
+ <TEMP M6 TEMP14 P7>
+ <INTGO>
+ <GVAL 'ICALL-TEMPS = M6>
+ <EMPL? M6 + TAG10>
+ <LOOP (ATM5 VALUE) (M6 VALUE)>
+TAG12
+ <NTHL M6 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG13>
+ <VEQUAL? TEMP14 ATM5 + TAG11>
+ <DEAD TEMP14>
+TAG13
+ <RESTL M6 1 = M6 (TYPE LIST)>
+ <EMPL? M6 - TAG12>
+TAG10
+ <DEAD M6>
+ <SET M6 %<> (TYPE FALSE)>
+TAG11
+ <TYPE? M6 <TYPE-CODE FALSE> + PHRASE9>
+ <RESTL M6 1 = M6 (TYPE LIST)>
+ <NTHL M6 1 = M6>
+ <LSH M6 1 = M6 (TYPE FIX)>
+ <RETURN M6>
+ <DEAD M6>
+PHRASE9
+ <FRAME '\1aPOS>
+ <PUSH ATM5>
+ <GVAL 'LOCALS = STACK>
+ <CALL '\1aPOS 2 = P7>
+ <TYPE? P7 <TYPE-CODE FALSE> + PHRASE15>
+ <LSH P7 1 = P7 (TYPE FIX)>
+ <RETURN P7>
+ <DEAD P7>
+PHRASE15
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'UNKNOWN-LOCAL!-ERRORS>
+ <PUSH ATM5>
+ <DEAD ATM5>
+ <CALL '\1aMIMOCERR 2 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aLLOOKUP>
+#WORD *6774046040*
+<GFCN \1aFIXUP-LOCALS ("VALUE" <OR ATOM FALSE> LIST) L5>
+ <TEMP C6:LIST (CFLG7 %<>) (CNT8:FIX 0) (LNUM9:FIX 0) (TUP10 %<>) (FL11:LIST ()) TEMP16 ITM27 LU28 TEMP34>
+ <INTGO>
+ <GVAL 'TEMP-CC = C6>
+ <RESTL C6 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE INST> - PHRASE14>
+ <NTHUV TEMP16 1 = TEMP16>
+ <EQUAL? TEMP16 'MOVE - PHRASE14>
+ <DEAD TEMP16>
+ <EMPL? L5 + PHRASE14 (TYPE LIST)>
+ <RESTL C6 1 = TEMP16 (TYPE LIST)>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = TUP10>
+ <DEAD TEMP16>
+ <RESTL C6 5 = C6 (TYPE LIST)>
+PHRASE14
+ <SET TEMP16 L5 (TYPE LIST)>
+ <DEAD L5>
+ <LOOP>
+MAP18
+ <INTGO>
+ <EMPL? TEMP16 + MAPAP21>
+ <NTHL TEMP16 1 = ITM27>
+ <VEQUAL? CFLG7 0 - PHRASE30>
+ <SET CFLG7 'T (TYPE ATOM)>
+PHRASE30
+ <NTHUV ITM27 2 = LU28>
+ <TYPE? LU28 <TYPE-CODE FALSE> + PHRASE32>
+ <NTHUV ITM27 3 = ITM27 (TYPE LOCAL-NAME)>
+ <CONS ITM27 () = ITM27>
+ <ADD LNUM9 2 = LNUM9 (TYPE FIX)>
+ <CONS LNUM9 () = TEMP34>
+ <PUTREST ITM27 TEMP34>
+ <PUTREST TEMP34 FL11>
+ <DEAD TEMP34 FL11>
+ <SET FL11 ITM27>
+ <DEAD ITM27>
+ <VEQUAL? LU28 'ARG + PHRASE42>
+ <VEQUAL? LU28 'OARG + PHRASE42>
+ <DEAD LU28>
+ <RESTL C6 1 = C6 (TYPE LIST)>
+ <RESTL C6 1 = C6 (TYPE LIST)>
+ <JUMP + PHRASE42>
+PHRASE32
+ <GVAL 'WINNING-VICTIM = ITM27>
+ <TYPE? ITM27 <TYPE-CODE FALSE> + PHRASE40>
+ <DEAD ITM27>
+ <GVAL 'WINNING-VICTIM = ITM27>
+ <SUB ITM27 2 = ITM27 (TYPE FIX)>
+ <SETG 'WINNING-VICTIM ITM27>
+ <DEAD ITM27>
+PHRASE40
+ <ADD CNT8 1 = CNT8 (TYPE FIX)>
+ <RESTL C6 1 = TEMP34 (TYPE LIST)>
+ <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
+ <RESTL TEMP34 1 = ITM27 (TYPE LIST)>
+ <DEAD TEMP34>
+ <PUTREST C6 ITM27>
+ <DEAD ITM27>
+ <TYPE? TUP10 <TYPE-CODE FALSE> + PHRASE42>
+ <NTHUV TUP10 3 = ITM27>
+ <SUB ITM27 1 = ITM27 (TYPE FIX)>
+ <PUTUV TUP10 3 ITM27>
+ <DEAD ITM27>
+PHRASE42
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <JUMP + MAP18>
+MAPAP21
+ <GVAL 'WINNING-VICTIM = CFLG7>
+ <TYPE? CFLG7 <TYPE-CODE FALSE> + EXIT45>
+ <DEAD CFLG7>
+ <GVAL 'WINNING-VICTIM = LNUM9>
+ <SET C6 FL11>
+ <LOOP>
+AGAIN48
+ <INTGO>
+ <EMPL? C6 + EXIT45 (TYPE LIST)>
+ <RESTL C6 1 = CFLG7 (TYPE LIST)>
+ <NTHL CFLG7 1 = CFLG7 (TYPE FIX)>
+ <SUB CFLG7 LNUM9 = CFLG7 (TYPE FIX)>
+ <SUB CFLG7 -1 = CFLG7 (TYPE FIX)>
+ <RESTL C6 1 = TEMP34 (TYPE LIST)>
+ <PUTL TEMP34 1 CFLG7 (TYPE FIX)>
+ <DEAD TEMP34 CFLG7>
+ <RESTL C6 1 = C6 (TYPE LIST)>
+ <RESTL C6 1 = C6 (TYPE LIST)>
+ <JUMP + AGAIN48>
+EXIT45
+ <EMPL? FL11 + PHRASE52 (TYPE LIST)>
+ <SET CFLG7 FL11>
+ <LOOP (CFLG7 VALUE)>
+TAG53
+ <RESTL CFLG7 1 = TEMP34 (TYPE LIST)>
+ <EMPL? TEMP34 + TAG54>
+ <SET CFLG7 TEMP34>
+ <DEAD TEMP34>
+ <JUMP + TAG53>
+TAG54
+ <GVAL 'FINAL-LOCALS = TEMP34>
+ <PUTREST CFLG7 TEMP34>
+ <DEAD CFLG7 TEMP34>
+ <SETG 'FINAL-LOCALS FL11>
+ <DEAD FL11>
+PHRASE52
+ <GVAL 'V1 = TEMP34>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE56>
+ <GRTR? CNT8 0 + TAG58 (TYPE FIX)>
+ <RETURN %<>>
+TAG58
+ <FRAME '\1aCRLF>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1>
+ <FRAME '\1aPRIN1>
+ <PUSH CNT8>
+ <DEAD CNT8>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " flushed temporaries.">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aCRLF>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1 = TEMP34>
+PHRASE56
+ <RETURN TEMP34>
+ <DEAD TEMP34>
+ <END \1aFIXUP-LOCALS>
+#WORD *14766431641*
+<GFCN \1aOCEMIT ("VALUE" <OR FALSE LIST STRING> "TUPLE" TUPLE)>
+ <MAKTUP T5:TUPLE (LABEL6 %<>) TEMP10 Y38 X39 AC40 TEMP49 AC142 TEMP57 = T5>
+ <INTGO>
+ <LENUV T5 = TEMP10 (TYPE FIX)>
+ <VEQUAL? TEMP10 1 - PHRASE8 (TYPE FIX)>
+ <DEAD TEMP10>
+ <NTHUV T5 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE ATOM> - PHRASE8>
+ <DEAD TEMP10>
+ <GVAL 'V1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + BOOL13>
+ <DEAD TEMP10>
+ <GVAL 'PASS1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - BOOL13>
+ <DEAD TEMP10>
+ <FRAME '\1aINDENT-TO>
+ <PUSH 30>
+ <CALL '\1aINDENT-TO 1>
+BOOL13
+ <SET LABEL6 'T (TYPE ATOM)>
+ <JUMP + PHRASE15>
+PHRASE8
+ <GVAL 'V1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE15>
+ <DEAD TEMP10>
+ <GVAL 'PASS1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE15>
+ <DEAD TEMP10>
+ <FRAME '\1aM-HPOS>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aM-HPOS 1 = TEMP10>
+ <GRTR? TEMP10 45 - PHRASE18 (TYPE FIX)>
+ <DEAD TEMP10>
+ <FRAME '\1aCRLF>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1>
+PHRASE18
+ <FRAME '\1aINDENT-TO>
+ <PUSH 45>
+ <CALL '\1aINDENT-TO 1>
+PHRASE15
+ <CHTYPE T5 <TYPE-CODE VECTOR> = TEMP10>
+ <LOOP>
+MAP28
+ <INTGO>
+ <EMPUV? TEMP10 + MAPAP31>
+ <SET Y38 TEMP10>
+ <NTHUV Y38 1 = X39>
+ <TYPE? X39 <TYPE-CODE LIST> - PHRASE54>
+ <FRAME '\1aIS-AC?>
+ <NTHL X39 1 = STACK (TYPE ATOM)>
+ <CALL '\1aIS-AC? 1 = AC40>
+ <TYPE? AC40 <TYPE-CODE FALSE> + PHRASE54>
+ <FRAME '\1aGET-AC>
+ <PUSH 'T*>
+ <CALL '\1aGET-AC 1 = TEMP49>
+ <VEQUAL? AC40 TEMP49 + BOOL47>
+ <DEAD TEMP49>
+ <GVAL 'AC-STAMP = TEMP49>
+ <ADD TEMP49 1 = TEMP49 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP49>
+ <PUTUV AC40 4 TEMP49 (TYPE FIX)>
+ <DEAD TEMP49>
+BOOL47
+ <NTHUV AC40 6 = TEMP49>
+ <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE51>
+ <FRAME '\1aLOAD-TYPE-IN-AC>
+ <NTHUV AC40 1 = STACK (TYPE ATOM)>
+ <PUSH TEMP49>
+ <DEAD TEMP49>
+ <CALL '\1aLOAD-TYPE-IN-AC 2>
+ <PUTUV AC40 6 %<>>
+PHRASE51
+ <FRAME '\1aGETPROP>
+ <PUSH AC40>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = AC142>
+ <TYPE? AC142 <TYPE-CODE FALSE> + PHRASE54>
+ <NTHUV AC142 2 = TEMP49>
+ <NTHUV AC40 2 = TEMP57>
+ <DEAD AC40>
+ <EQUAL? TEMP49 TEMP57 - PHRASE54>
+ <DEAD TEMP49 TEMP57>
+ <GVAL 'AC-STAMP = TEMP57>
+ <PUTUV AC142 4 TEMP57 (TYPE FIX)>
+ <DEAD AC142 TEMP57>
+PHRASE54
+ <SET AC40 %<> (TYPE FALSE)>
+ <TYPE? X39 <TYPE-CODE ATOM> - PHRASE59>
+ <FRAME '\1aIS-AC?>
+ <PUSH X39>
+ <CALL '\1aIS-AC? 1 = AC40>
+ <TYPE? AC40 <TYPE-CODE FALSE> + PHRASE59>
+ <NTHUV AC40 6 = TEMP49>
+ <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE59>
+ <FRAME '\1aLOAD-TYPE-IN-AC>
+ <NTHUV AC40 1 = STACK (TYPE ATOM)>
+ <PUSH TEMP49>
+ <DEAD TEMP49>
+ <CALL '\1aLOAD-TYPE-IN-AC 2>
+ <PUTUV AC40 6 %<>>
+ <JUMP + PHRASE65>
+PHRASE59
+ <TYPE? X39 <TYPE-CODE AC> - PHRASE65>
+ <SET AC40 X39>
+ <NTHUV AC40 1 = TEMP57 (TYPE ATOM)>
+ <PUTUV Y38 1 TEMP57>
+ <DEAD Y38 TEMP57>
+ <NTHUV X39 6 = TEMP49>
+ <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE65>
+ <FRAME '\1aLOAD-TYPE-IN-AC>
+ <NTHUV AC40 1 = STACK (TYPE ATOM)>
+ <PUSH TEMP49>
+ <DEAD TEMP49>
+ <CALL '\1aLOAD-TYPE-IN-AC 2>
+ <PUTUV X39 6 %<>>
+ <DEAD X39>
+PHRASE65
+ <TYPE? AC40 <TYPE-CODE FALSE> + PHRASE70>
+ <GVAL 'AC-STAMP = TEMP57>
+ <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP57>
+ <PUTUV AC40 4 TEMP57 (TYPE FIX)>
+ <DEAD TEMP57>
+ <FRAME '\1aGETPROP>
+ <PUSH AC40>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = AC142>
+ <TYPE? AC142 <TYPE-CODE FALSE> + PHRASE70>
+ <NTHUV AC40 2 = TEMP57>
+ <DEAD AC40>
+ <NTHUV AC142 2 = TEMP49>
+ <EQUAL? TEMP57 TEMP49 - PHRASE70>
+ <DEAD TEMP57>
+ <GVAL 'AC-STAMP = TEMP49>
+ <PUTUV AC142 4 TEMP49 (TYPE FIX)>
+ <DEAD AC142 TEMP49>
+PHRASE70
+ <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
+ <JUMP + MAP28>
+MAPAP31
+ <GVAL 'V1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + MAPAP80>
+ <DEAD TEMP10>
+ <GVAL 'PASS1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - MAPAP80>
+ <DEAD TEMP10>
+ <CHTYPE T5 <TYPE-CODE VECTOR> = TEMP10>
+ <LOOP>
+MAP77
+ <INTGO>
+ <EMPUV? TEMP10 + MAPAP80>
+ <NTHUV TEMP10 1 = X39>
+ <TYPE? X39 <TYPE-CODE ATOM> - PHRASE85>
+ <FRAME '\1aPRINC>
+ <PUSH X39>
+ <DEAD X39>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE129>
+PHRASE85
+ <TYPE? X39 <TYPE-CODE REF> - PHRASE89>
+ <FRAME '\1aPRINC>
+ <PUSH "#REF [">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <NTHUV X39 1 = AC40>
+ <TYPE? AC40 <TYPE-CODE ATOM> - PHRASE95>
+ <DEAD AC40>
+ <FRAME '\1aPRINC>
+ <NTHUV X39 1 = STACK (TYPE ATOM)>
+ <DEAD X39>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE100>
+PHRASE95
+ <FRAME '\1aPRIN1>
+ <NTHUV X39 1 = STACK>
+ <DEAD X39>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+PHRASE100
+ <FRAME '\1aPRINC>
+ <PUSH "]">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE129>
+PHRASE89
+ <TYPE? X39 <TYPE-CODE LIST> - PHRASE109>
+ <FRAME '\1aPRINC>
+ <PUSH "(">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <NTHL X39 1 = AC40>
+ <TYPE? AC40 <TYPE-CODE ATOM> - PHRASE115>
+ <DEAD AC40>
+ <FRAME '\1aPRINC>
+ <NTHL X39 1 = STACK (TYPE ATOM)>
+ <DEAD X39>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE120>
+PHRASE115
+ <FRAME '\1aPRIN1>
+ <NTHL X39 1 = STACK>
+ <DEAD X39>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+PHRASE120
+ <FRAME '\1aPRINC>
+ <PUSH ")">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE129>
+PHRASE109
+ <FRAME '\1aPRIN1>
+ <PUSH X39>
+ <DEAD X39>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+PHRASE129
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
+ <JUMP + MAP77>
+MAPAP80
+ <VEQUAL? LABEL6 0 + PHRASE139>
+ <DEAD LABEL6>
+ <GVAL 'V1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE145>
+ <GVAL 'PASS1 = TEMP49>
+ <TYPE? TEMP49 <TYPE-CODE FALSE> + TAG141>
+ <DEAD TEMP49>
+ <RETURN %<>>
+TAG141
+ <FRAME '\1aPRINC>
+ <PUSH ":">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE139
+ <GVAL 'PASS1 = LABEL6>
+ <TYPE? LABEL6 <TYPE-CODE FALSE> + TAG146>
+ <DEAD LABEL6>
+ <RETURN %<>>
+TAG146
+ <GVAL 'V1 = LABEL6>
+ <TYPE? LABEL6 <TYPE-CODE FALSE> + BOOL147>
+ <DEAD LABEL6>
+ <FRAME '\1aCRLF>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1>
+BOOL147
+ <GVAL 'CC = LABEL6>
+ <SET Y38 0 (TYPE FIX)>
+ <SET TEMP10 T5>
+ <DEAD T5>
+ <LOOP (TEMP10 VALUE LENGTH) (Y38 VALUE)>
+TAG155
+ <INTGO>
+ <EMPUV? TEMP10 + TAG152>
+ <NTHUV TEMP10 1 = STACK>
+ <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
+ <ADD Y38 1 = Y38 (TYPE FIX)>
+ <JUMP + TAG155>
+TAG152
+ <UBLOCK <TYPE-CODE VECTOR> Y38 = TEMP10>
+ <DEAD Y38>
+ <CHTYPE TEMP10 <TYPE-CODE INST> = TEMP10>
+ <CONS TEMP10 () = TEMP10>
+ <PUTREST LABEL6 TEMP10>
+ <DEAD LABEL6>
+ <SETG 'CC TEMP10>
+PHRASE145
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aOCEMIT>
+#WORD *35707157740*
+<GFCN \1aXEMIT ("VALUE" <OR FALSE STRING> "TUPLE" <TUPLE ATOM ATOM <OR FIX XTYPE-C REF>>)>
+ <MAKTUP T5:TUPLE TEMP11 TEMP10 COD7 M6 TEMP22:FIX TEMP24:FIX TEMP25:FIX TEMP21 ITM47 TEMP51 TEMP56 TEMP61 TEMP67 TEMP71 TEMP76 TEMP81 TEMP87 TEMP91 TEMP96 TEMP100 = T5>
+ <INTGO>
+ <GVAL 'PASS1 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + TAG12>
+ <DEAD TEMP11>
+ <RETURN %<>>
+TAG12
+ <NTHUV T5 3 = COD7>
+ <TYPE? COD7 <TYPE-CODE FIX> - PHRASE14>
+ <SET M6 [834 10 898 10 706 12 770 16 962 10] (TYPE VECTOR)>
+ <LOOP (COD7 VALUE) (M6 LENGTH VALUE)>
+TAG18
+ <NTHUV M6 1 = TEMP11>
+ <VEQUAL? TEMP11 COD7 + TAG17>
+ <DEAD TEMP11>
+ <RESTUV M6 1 = M6 (TYPE VECTOR)>
+ <EMPUV? M6 - TAG18>
+ <DEAD M6>
+ <SET M6 %<> (TYPE FALSE)>
+TAG17
+ <TYPE? M6 <TYPE-CODE FALSE> + PHRASE14>
+ <GVAL 'CC = TEMP11>
+ <PUSH 'MOVE>
+ <NTHUV T5 2 = STACK (TYPE ATOM)>
+ <SET TEMP22 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <LSH COD7 18 = COD7 (TYPE FIX)>
+ <NTHUV M6 2 = M6 (TYPE FIX)>
+ <OR COD7 M6 = STACK>
+ <DEAD M6 COD7>
+ <SCALL '\1aOBJ-VAL 1 = TEMP21 + TAG20 TEMP22>
+ <LOOP (TEMP21 TYPE VALUE LENGTH) (TEMP22 VALUE)>
+TAG26
+ <INTGO>
+ <EMPTY? TEMP21 + TAG20>
+ <NTH1 TEMP21 = STACK>
+ <REST1 TEMP21 = TEMP21>
+ <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
+ <JUMP + TAG26>
+TAG20
+ <DEAD TEMP21>
+ <UBLOCK <TYPE-CODE VECTOR> TEMP22 = TEMP21>
+ <DEAD TEMP22>
+ <CHTYPE TEMP21 <TYPE-CODE INST> = TEMP21>
+ <CONS TEMP21 () = TEMP21>
+ <PUTREST TEMP11 TEMP21>
+ <DEAD TEMP11>
+ <SETG 'CC TEMP21>
+ <DEAD TEMP21>
+ <JUMP + PHRASE28>
+PHRASE14
+ <GVAL 'CC = TEMP21>
+ <SET TEMP25 0 (TYPE FIX)>
+ <SET TEMP11 T5>
+ <LOOP (TEMP11 VALUE LENGTH) (TEMP25 VALUE)>
+TAG30
+ <INTGO>
+ <EMPUV? TEMP11 + TAG29>
+ <NTHUV TEMP11 1 = STACK>
+ <RESTUV TEMP11 1 = TEMP11 (TYPE VECTOR)>
+ <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
+ <JUMP + TAG30>
+TAG29
+ <DEAD TEMP11>
+ <UBLOCK <TYPE-CODE VECTOR> TEMP25 = TEMP11>
+ <DEAD TEMP25>
+ <CHTYPE TEMP11 <TYPE-CODE INST> = TEMP11>
+ <CONS TEMP11 () = TEMP11>
+ <PUTREST TEMP21 TEMP11>
+ <DEAD TEMP21>
+ <SETG 'CC TEMP11>
+ <DEAD TEMP11>
+PHRASE28
+ <GVAL 'V1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE33>
+ <FRAME '\1aINDENT-TO>
+ <PUSH 40>
+ <CALL '\1aINDENT-TO 1>
+ <FRAME '\1aPRINC>
+ <PUSH "*TRQ*">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <CHTYPE T5 <TYPE-CODE VECTOR> = TEMP21>
+ <DEAD T5>
+ <LOOP>
+MAP39
+ <INTGO>
+ <EMPUV? TEMP21 + MAPAP42>
+ <NTHUV TEMP21 1 = ITM47>
+ <TYPE? ITM47 <TYPE-CODE ATOM> - PHRASE49>
+ <FRAME '\1aPRINC>
+ <PUSH ITM47>
+ <DEAD ITM47>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE94>
+PHRASE49
+ <TYPE? ITM47 <TYPE-CODE REF> - PHRASE54>
+ <FRAME '\1aPRINC>
+ <PUSH "#REF [">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <NTHUV ITM47 1 = TEMP61>
+ <TYPE? TEMP61 <TYPE-CODE ATOM> - PHRASE60>
+ <DEAD TEMP61>
+ <FRAME '\1aPRINC>
+ <NTHUV ITM47 1 = STACK (TYPE ATOM)>
+ <DEAD ITM47>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE65>
+PHRASE60
+ <FRAME '\1aPRIN1>
+ <NTHUV ITM47 1 = STACK>
+ <DEAD ITM47>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+PHRASE65
+ <FRAME '\1aPRINC>
+ <PUSH "]">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE94>
+PHRASE54
+ <TYPE? ITM47 <TYPE-CODE LIST> - PHRASE74>
+ <FRAME '\1aPRINC>
+ <PUSH "(">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <NTHL ITM47 1 = TEMP81>
+ <TYPE? TEMP81 <TYPE-CODE ATOM> - PHRASE80>
+ <DEAD TEMP81>
+ <FRAME '\1aPRINC>
+ <NTHL ITM47 1 = STACK (TYPE ATOM)>
+ <DEAD ITM47>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE85>
+PHRASE80
+ <FRAME '\1aPRIN1>
+ <NTHL ITM47 1 = STACK>
+ <DEAD ITM47>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+PHRASE85
+ <FRAME '\1aPRINC>
+ <PUSH ")">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE94>
+PHRASE74
+ <FRAME '\1aPRIN1>
+ <PUSH ITM47>
+ <DEAD ITM47>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+PHRASE94
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
+ <JUMP + MAP39>
+MAPAP42
+ <DEAD TEMP21>
+ <FRAME '\1aCRLF>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1>
+ <FRAME '\1aINDENT-TO>
+ <PUSH 45>
+ <CALL '\1aINDENT-TO 1 = TEMP10>
+PHRASE33
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aXEMIT>
+#WORD *1314513466*
+<GFCN \1aCONST-LOC ("VALUE" ANY ANY ANY "OPTIONAL" ANY) ITM8 TYP9 NEWV10>
+ <OPT-DISPATCH 2 %<> OPT6 OPT7>
+OPT6
+ <PUSH #UNBOUND 0>
+OPT7
+ <TEMP TEMP15>
+ <INTGO>
+ <EQUAL? TYP9 'TYPE - PHRASE12>
+ <DEAD TYP9>
+ <FRAME '\1aTYPE-WORD>
+ <FRAME '\1aTYPE>
+ <PUSH ITM8>
+ <CALL '\1aTYPE 1 = STACK>
+ <CALL '\1aTYPE-WORD 1 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE12
+ <TYPE? ITM8 <TYPE-CODE CONST-W-LOCAL> - PHRASE18>
+ <FRAME '\1aCONST-ADD>
+ <PUSH ITM8>
+ <CALL '\1aCONST-ADD 1 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE18
+ <FRAME '\1aCONST-ADD>
+ <CHTYPE ITM8 <TYPE-CODE CONSTANT> = ITM8>
+ <PUSH ITM8>
+ <DEAD ITM8>
+ <CALL '\1aCONST-ADD 1 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aCONST-LOC>
+#WORD *36412417356*
+<GFCN \1aCONST-ADD ("VALUE" <LIST REF> <OR CONSTANT CONST-W-LOCAL>) ITM5>
+ <TEMP TEMP12 LS7:FIX HC8:FIX TEMP16 BUCK9:LIST INDX10:FIX CB27:CONSTANT-BUCKET TEM28 TEMP42 FCB11:CONSTANT-BUCKET>
+ <INTGO>
+ <GVAL 'CONSTSEQ = TEMP12>
+ <ADD TEMP12 1 = LS7 (TYPE FIX)>
+ <DEAD TEMP12>
+ <TYPE? ITM5 <TYPE-CODE CONSTANT> - PHRASE14>
+ <CHTYPE ITM5 <TYPE-CODE FIX> = HC8>
+ <JUMP + PHRASE15>
+PHRASE14
+ <NTHL ITM5 1 = TEMP12>
+ <RESTL ITM5 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = TEMP16>
+ <XOR TEMP12 TEMP16 = HC8>
+ <DEAD TEMP12 TEMP16>
+PHRASE15
+ <GVAL 'CONSTANT-TABLE = TEMP16>
+ <XOR HC8 #WORD *202622072311* = HC8>
+ <MOD HC8 1001 = TEMP12 (TYPE FIX)>
+ <ADD TEMP12 1 = INDX10 (TYPE FIX)>
+ <DEAD TEMP12>
+ <NTHUV TEMP16 INDX10 = BUCK9 (TYPE LIST)>
+ <DEAD TEMP16>
+ <SET TEMP12 %<> (TYPE FALSE)>
+ <SET TEMP16 BUCK9 (TYPE LIST)>
+ <LOOP>
+MAP19
+ <INTGO>
+ <EMPL? TEMP16 + MAPAP22>
+ <NTHL TEMP16 1 = CB27>
+ <NTHUV CB27 2 = TEMP12 (TYPE FIX)>
+ <VEQUAL? HC8 TEMP12 + TAG33 (TYPE FIX)>
+ <DEAD TEMP12>
+ <SET TEMP12 %<> (TYPE FALSE)>
+ <JUMP + PHRASE30>
+TAG33
+ <TYPE? ITM5 <TYPE-CODE CONSTANT> - BOOL35>
+ <NTHUV CB27 1 = TEMP12>
+ <EQUAL? TEMP12 ITM5 + TAG43>
+ <DEAD TEMP12>
+BOOL35
+ <TYPE? ITM5 <TYPE-CODE CONST-W-LOCAL> + TAG37>
+ <SET TEMP12 %<> (TYPE FALSE)>
+ <JUMP + PHRASE30>
+TAG37
+ <NTHUV CB27 1 = TEM28>
+ <TYPE? TEM28 <TYPE-CODE CONST-W-LOCAL> + TAG39>
+ <SET TEMP12 %<> (TYPE FALSE)>
+ <JUMP + PHRASE30>
+TAG39
+ <NTHL TEM28 1 = TEMP12>
+ <NTHL ITM5 1 = TEMP42>
+ <EQUAL? TEMP12 TEMP42 + TAG41>
+ <DEAD TEMP12 TEMP42>
+ <SET TEMP12 %<> (TYPE FALSE)>
+ <JUMP + PHRASE30>
+TAG41
+ <RESTL TEM28 1 = TEMP42 (TYPE LIST)>
+ <DEAD TEM28>
+ <NTHL TEMP42 1 = TEMP42>
+ <RESTL ITM5 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12>
+ <EQUAL? TEMP42 TEMP12 + TAG43>
+ <DEAD TEMP42>
+ <SET TEMP12 %<> (TYPE FALSE)>
+ <JUMP + PHRASE30>
+TAG43
+ <SET FCB11 CB27>
+ <DEAD CB27>
+ <SET TEMP12 'T (TYPE ATOM)>
+ <JUMP + MAPAP22>
+PHRASE30
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <JUMP + MAP19>
+MAPAP22
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE44>
+ <DEAD TEMP12>
+ <PUSH ITM5>
+ <DEAD ITM5>
+ <PUSH HC8>
+ <DEAD HC8>
+ <SETG 'CONSTSEQ LS7>
+ <CHTYPE LS7 <TYPE-CODE CONSTANT-LABEL> = STACK>
+ <DEAD LS7>
+ <PUSH 0>
+ <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP12>
+ <CHTYPE TEMP12 <TYPE-CODE CONSTANT-BUCKET> = FCB11>
+ <DEAD TEMP12>
+ <GVAL 'CONSTANT-VECTOR = TEMP12>
+ <CONS FCB11 TEMP12 = TEMP12>
+ <SETG 'CONSTANT-VECTOR TEMP12>
+ <DEAD TEMP12>
+ <CONS FCB11 BUCK9 = TEMP12>
+ <DEAD BUCK9>
+ <GVAL 'CONSTANT-TABLE = TEMP16>
+ <PUTUV TEMP16 INDX10 TEMP12 (TYPE LIST)>
+ <DEAD TEMP16 INDX10 TEMP12>
+PHRASE44
+ <PUSH FCB11>
+ <DEAD FCB11>
+ <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP16>
+ <CHTYPE TEMP16 <TYPE-CODE REF> = TEMP16>
+ <CONS TEMP16 () = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aCONST-ADD>
+#WORD *13136423453*
+<GFCN \1aCONST-ADD-FRM ("VALUE" <LIST [REST CONSTANT-BUCKET]>)>
+ <TEMP TEMP7 CB5:CONSTANT-BUCKET TEMP8:LIST>
+ <INTGO>
+ <PUSH 'FREE>
+ <PUSH 0>
+ <GVAL 'CONSTSEQ = TEMP7>
+ <ADD TEMP7 1 = TEMP7 (TYPE FIX)>
+ <SETG 'CONSTSEQ TEMP7>
+ <CHTYPE TEMP7 <TYPE-CODE CONSTANT-LABEL> = STACK>
+ <DEAD TEMP7>
+ <PUSH 0>
+ <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP7>
+ <CHTYPE TEMP7 <TYPE-CODE CONSTANT-BUCKET> = CB5>
+ <DEAD TEMP7>
+ <CONS CB5 () = TEMP7>
+ <GVAL 'CONSTANT-VECTOR = TEMP8>
+ <PUTREST TEMP7 TEMP8>
+ <DEAD TEMP8>
+ <SETG 'CONSTANT-VECTOR TEMP7>
+ <DEAD TEMP7>
+ <GVAL 'FREE-CONSTS = TEMP8>
+ <CONS CB5 TEMP8 = TEMP8>
+ <DEAD CB5>
+ <SETG 'FREE-CONSTS TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aCONST-ADD-FRM>
+#WORD *15030636617*
+<GFCN \1aOBJ-LOC ("VALUE" <LIST FIX <OR LOCAL-NAME !<LIST ATOM>>> ANY FIX) ITM5 OFF6>
+ <TEMP LCL9 TEMP18>
+ <INTGO>
+ <TYPE? ITM5 <TYPE-CODE ATOM> - PHRASE11>
+ <FRAME '\1aLMEMQ>
+ <PUSH ITM5>
+ <GVAL 'LOCALS = STACK>
+ <CALL '\1aLMEMQ 2 = LCL9>
+ <VEQUAL? LCL9 0 - BOOL14>
+ <GVAL 'ICALL-FLAG = LCL9>
+ <TYPE? LCL9 <TYPE-CODE FALSE> + BOOL14>
+ <FRAME '\1aLMEMQ>
+ <PUSH ITM5>
+ <DEAD ITM5>
+ <GVAL 'ICALL-TEMPS = STACK>
+ <CALL '\1aLMEMQ 2 = LCL9>
+BOOL14
+ <GVAL 'WINNING-VICTIM = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE17>
+ <DEAD TEMP18>
+ <SET TEMP18 (TP*) (TYPE LIST)>
+ <JUMP + PHRASE19>
+PHRASE17
+ <SET TEMP18 (F*) (TYPE LIST)>
+PHRASE19
+ <CONS TEMP18 () = TEMP18>
+ <NTHUV LCL9 3 = LCL9 (TYPE LOCAL-NAME)>
+ <CONS LCL9 TEMP18 = TEMP18>
+ <DEAD LCL9>
+ <GVAL 'STACK-DEPTH = LCL9>
+ <SUB OFF6 LCL9 = LCL9 (TYPE FIX)>
+ <DEAD OFF6>
+ <CONS LCL9 TEMP18 = TEMP18>
+ <DEAD LCL9>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+PHRASE11
+ <FRAME '\1aMVADD>
+ <PUSH ITM5>
+ <DEAD ITM5>
+ <CALL '\1aMVADD 1 = LCL9>
+ <ADD LCL9 1 = LCL9 (TYPE FIX)>
+ <LSH LCL9 1 = LCL9 (TYPE FIX)>
+ <CONS (M*) () = TEMP18>
+ <ADD OFF6 LCL9 = LCL9 (TYPE FIX)>
+ <DEAD OFF6>
+ <CONS LCL9 TEMP18 = TEMP18>
+ <DEAD LCL9>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+ <END \1aOBJ-LOC>
+#WORD *22305003060*
+<GFCN \1aALLOCATE-CONSTANTS ("VALUE" <OR FALSE FIX> LIST FIX) CV5 START6>
+ <TEMP TEMP16 TEMP13:LIST>
+ <INTGO>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <SET TEMP13 CV5 (TYPE LIST)>
+ <DEAD CV5>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPL? TEMP13 + MAPAP11>
+ <NTHL TEMP13 1 = TEMP16>
+ <PUTUV TEMP16 4 START6 (TYPE FIX)>
+ <DEAD TEMP16>
+ <ADD START6 1 = START6 (TYPE FIX)>
+ <SET TEMP16 START6>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <JUMP + MAP8>
+MAPAP11
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aALLOCATE-CONSTANTS>
+#WORD *27123034316*
+<GFCN \1aFIXUP-CONSTANTS ("VALUE" ANY LIST) C5>
+ <TEMP (N6:FIX 0) TEMP16 TEMP13:LIST CP18:LIST TEMP27 X21 TEMP35:FIX>
+ <INTGO>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <SET TEMP13 C5 (TYPE LIST)>
+ <DEAD C5>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPL? TEMP13 + MAPAP11>
+ <SET CP18 TEMP13>
+ <NTHL CP18 1 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE INST> + TAG25>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE45>
+TAG25
+ <ADD N6 1 = N6 (TYPE FIX)>
+ <LENUV TEMP16 = TEMP27 (TYPE FIX)>
+ <NTHUV TEMP16 TEMP27 = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE REF> + TAG28>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE45>
+TAG28
+ <NTHUV TEMP27 1 = X21>
+ <DEAD TEMP27>
+ <TYPE? X21 <TYPE-CODE CONSTANT-BUCKET> + PHRASE31>
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'BAD-REF-IN-CODE!-ERRORS>
+ <PUSH X21>
+ <DEAD X21>
+ <CALL '\1aMIMOCERR 2 = TEMP16>
+ <JUMP + PHRASE45>
+PHRASE31
+ <GVAL 'MAX-SPACE = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE33>
+ <DEAD TEMP27>
+ <CONS X21 () = TEMP27>
+ <DEAD X21>
+ <CONS N6 TEMP27 = STACK>
+ <DEAD TEMP27>
+ <SET TEMP35 1 (TYPE FIX)>
+ <GVAL 'GREFS = TEMP27>
+ <TYPE TEMP27 = X21>
+ <AND X21 7 = X21>
+ <VEQUAL? X21 1 + TAG37>
+ <DEAD X21>
+ <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP35 VALUE)>
+TAG43
+ <INTGO>
+ <EMPTY? TEMP27 + TAG42>
+ <NTH1 TEMP27 = STACK>
+ <REST1 TEMP27 = TEMP27>
+ <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
+ <JUMP + TAG43>
+TAG42
+ <LIST TEMP35 = TEMP27 (TYPE LIST)>
+ <DEAD TEMP35>
+ <JUMP + TAG38>
+TAG37
+ <LOOP>
+TAG40
+ <VEQUAL? TEMP35 0 + TAG39>
+ <POP = X21>
+ <CONS X21 TEMP27 = TEMP27 (TYPE LIST)>
+ <DEAD X21>
+ <SUB TEMP35 1 = TEMP35 (TYPE FIX)>
+ <JUMP + TAG40>
+TAG39
+TAG38
+ <SETG 'GREFS TEMP27>
+ <DEAD TEMP27>
+ <NTHUV TEMP16 1 = STACK>
+ <NTHUV TEMP16 2 = STACK>
+ <DEAD TEMP16>
+ <PUSH 0>
+ <PUSH (R*)>
+ <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP27>
+ <CHTYPE TEMP27 <TYPE-CODE INST> = TEMP27>
+ <PUTL CP18 1 TEMP27>
+ <DEAD TEMP27>
+ <SET TEMP16 CP18>
+ <DEAD CP18>
+ <JUMP + PHRASE45>
+PHRASE33
+ <NTHUV TEMP16 1 = STACK>
+ <NTHUV TEMP16 2 = STACK>
+ <DEAD TEMP16>
+ <NTHUV X21 4 = STACK (TYPE FIX)>
+ <DEAD X21>
+ <PUSH (R*)>
+ <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP27>
+ <CHTYPE TEMP27 <TYPE-CODE INST> = TEMP27>
+ <PUTL CP18 1 TEMP27>
+ <DEAD TEMP27>
+ <SET TEMP16 CP18>
+ <DEAD CP18>
+PHRASE45
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <JUMP + MAP8>
+MAPAP11
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aFIXUP-CONSTANTS>
+#WORD *21766610302*
+<GFCN \1aOBJ-VAL ("VALUE" ANY ANY "OPTIONAL" <OR FALSE ATOM>) ITM8 AC?9>
+ <OPT-DISPATCH 1 %<> OPT6 OPT7>
+OPT6
+ <PUSH 'T>
+OPT7
+ <TEMP AC10 TEMP15 TEMP18:ATOM>
+ <INTGO>
+ <TYPE? AC?9 <TYPE-CODE FALSE> + PHRASE12>
+ <DEAD AC?9>
+ <FRAME '\1aIN-AC?>
+ <PUSH ITM8>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC10>
+ <TYPE? AC10 <TYPE-CODE FALSE> + PHRASE12>
+ <CONS AC10 () = AC10>
+ <RETURN AC10>
+ <DEAD AC10>
+PHRASE12
+ <FRAME '\1aPRIMTYPE>
+ <PUSH ITM8>
+ <CALL '\1aPRIMTYPE 1 = TEMP18>
+ <VEQUAL? TEMP18 'FIX - PHRASE16>
+ <DEAD TEMP18>
+ <FRAME '\1aCONST-LOC>
+ <CHTYPE ITM8 <TYPE-CODE CONSTANT> = STACK>
+ <PUSH 'VALUE>
+ <CALL '\1aCONST-LOC 2 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE16
+ <TYPE? ITM8 <TYPE-CODE CONST-W-LOCAL> - PHRASE20>
+ <FRAME '\1aCONST-LOC>
+ <PUSH ITM8>
+ <PUSH 'VALUE>
+ <CALL '\1aCONST-LOC 2 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE20
+ <FRAME '\1aOBJ-LOC>
+ <PUSH ITM8>
+ <DEAD ITM8>
+ <PUSH 1>
+ <CALL '\1aOBJ-LOC 2 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aOBJ-VAL>
+#WORD *12446006040*
+<GFCN \1aOBJ-TYP ("VALUE" ANY ANY) ITM5>
+ <TEMP AC6 TEMP10 TEMP14:ATOM TEMP19:VECTOR TEMP20>
+ <INTGO>
+ <FRAME '\1aIN-AC?>
+ <PUSH ITM5>
+ <PUSH 'TYPE>
+ <CALL '\1aIN-AC? 2 = AC6>
+ <TYPE? AC6 <TYPE-CODE FALSE> + PHRASE8>
+ <CONS AC6 () = AC6>
+ <RETURN AC6>
+ <DEAD AC6>
+PHRASE8
+ <FRAME '\1aPRIMTYPE>
+ <PUSH ITM5>
+ <CALL '\1aPRIMTYPE 1 = TEMP14>
+ <VEQUAL? TEMP14 'FIX - PHRASE11>
+ <DEAD TEMP14>
+ <FRAME '\1aTYPE>
+ <PUSH ITM5>
+ <CALL '\1aTYPE 1 = TEMP14>
+ <GVAL 'TYPE-WORDS = TEMP19>
+ <EMPUV? TEMP19 + PHRASE11>
+ <LOOP (TEMP14 VALUE) (TEMP19 LENGTH VALUE)>
+TAG16
+ <NTHUV TEMP19 1 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE ATOM> - TAG17>
+ <VEQUAL? TEMP20 TEMP14 + TAG15>
+ <DEAD TEMP20>
+TAG17
+ <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
+ <EMPUV? TEMP19 - TAG16>
+ <DEAD TEMP14 TEMP19>
+ <JUMP + PHRASE11>
+TAG15
+ <FRAME '\1aCONST-LOC>
+ <PUSH ITM5>
+ <PUSH 'TYPE>
+ <CALL '\1aCONST-LOC 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE11
+ <FRAME '\1aOBJ-LOC>
+ <PUSH ITM5>
+ <DEAD ITM5>
+ <PUSH 0>
+ <CALL '\1aOBJ-LOC 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aOBJ-TYP>
+#WORD *30212552067*
+<GFCN \1aXJUMP ("VALUE" REF ANY) TAG5>
+ <TEMP TEMP10 TEMP11 X6>
+ <INTGO>
+ <NTHR TAG5 4 = TEMP10 (RECORD-TYPE ATOM)>
+ <GVAL 'LABEL-OBLIST = TEMP11>
+ <EQUAL? TEMP10 TEMP11 + PHRASE8>
+ <DEAD TEMP11 TEMP10>
+ <FRAME '\1aLOOKUP>
+ <NTHR TAG5 3 = STACK (RECORD-TYPE ATOM)>
+ <GVAL 'LABEL-OBLIST = STACK>
+ <CALL '\1aLOOKUP 2 = X6>
+ <TYPE? X6 <TYPE-CODE FALSE> + PHRASE8>
+ <SET TAG5 X6>
+ <DEAD X6>
+PHRASE8
+ <PUSH TAG5>
+ <DEAD TAG5>
+ <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP11>
+ <CHTYPE TEMP11 <TYPE-CODE REF> = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aXJUMP>
+#WORD *7520100416*
+<GFCN \1aDEAD!-MIMOC ("VALUE" <OR FALSE AC> <LIST [REST ATOM]> "OPTIONAL" <OR FALSE ATOM> ANY) LCLS10 PRED?11 NO-TY12>
+ <OPT-DISPATCH 1 %<> OPT7 OPT8 OPT9>
+OPT7
+ <PUSH %<>>
+OPT8
+ <PUSH %<>>
+OPT9
+ <TEMP TEMP15 TEMP26:VECTOR AC27:AC ITM28 TEMP37>
+ <INTGO>
+ <GVAL 'DEATH-TRQ = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE14>
+ <DEAD TEMP15>
+ <SET NO-TY12 'T (TYPE ATOM)>
+PHRASE14
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <GVAL 'AC-TABLE = TEMP26>
+ <LOOP>
+MAP17
+ <INTGO>
+ <EMPUV? TEMP26 + MAPAP20>
+ <NTHUV TEMP26 1 = AC27>
+ <NTHUV AC27 2 = ITM28>
+ <SET TEMP15 LCLS10>
+ <TYPE? ITM28 <TYPE-CODE ATOM> - TAG33>
+ <EMPL? TEMP15 + TAG33>
+ <LOOP (ITM28 VALUE) (TEMP15 VALUE)>
+TAG35
+ <NTHL TEMP15 1 = TEMP37>
+ <VEQUAL? TEMP37 ITM28 + TAG34>
+ <DEAD TEMP37>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <EMPL? TEMP15 - TAG35>
+TAG33
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + PHRASE48>
+TAG34
+ <FRAME '\1aLMEMQ>
+ <NTHUV AC27 2 = STACK (TYPE ATOM)>
+ <GVAL 'LOCALS = STACK>
+ <CALL '\1aLMEMQ 2 = TEMP37>
+ <VEQUAL? TEMP37 0 - BOOL40>
+ <GVAL 'ICALL-FLAG = TEMP37>
+ <TYPE? TEMP37 <TYPE-CODE FALSE> + BOOL40>
+ <FRAME '\1aLMEMQ>
+ <NTHUV AC27 2 = STACK (TYPE ATOM)>
+ <GVAL 'ICALL-TEMPS = STACK>
+ <CALL '\1aLMEMQ 2 = TEMP37>
+BOOL40
+ <PUTUV TEMP37 5 %<>>
+ <PUTUV TEMP37 6 %<>>
+ <DEAD TEMP37>
+ <NTHUV AC27 6 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE45>
+ <TYPE? NO-TY12 <TYPE-CODE FALSE> - PHRASE45>
+ <FRAME '\1aLOAD-TYPE-IN-AC>
+ <NTHUV AC27 1 = STACK (TYPE ATOM)>
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <CALL '\1aLOAD-TYPE-IN-AC 2>
+ <PUTUV AC27 6 %<>>
+PHRASE45
+ <PUTUV AC27 5 %<>>
+ <TYPE? PRED?11 <TYPE-CODE FALSE> + TAG49>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + PHRASE48>
+TAG49
+ <PUTUV AC27 3 'DUMMY (TYPE ATOM)>
+ <PUTUV AC27 2 %<>>
+ <PUTUV AC27 4 0 (TYPE FIX)>
+ <SET TEMP15 AC27>
+ <DEAD AC27>
+PHRASE48
+ <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
+ <JUMP + MAP17>
+MAPAP20
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aDEAD!-MIMOC>
+<COND (<NOT <GASSIGNED? LBLSEQ>> <SETG CONSTSEQ <SETG LBLSEQ 0>>)>
+
+#WORD *15677031764*
+<GFCN \1aGENLBL ("VALUE" ANY STRING) STR5>
+ <TEMP TEMP8>
+ <INTGO>
+ <PUSH STR5>
+ <DEAD STR5>
+ <FRAME '\1aUNPARSE>
+ <GVAL 'LBLSEQ = TEMP8>
+ <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
+ <SETG 'LBLSEQ TEMP8>
+ <PUSH TEMP8>
+ <DEAD TEMP8>
+ <CALL '\1aUNPARSE 1 = STACK>
+ <UBLOCK <TYPE-CODE STRING> 2 = STR5 (TYPE STRING)>
+ <FRAME '\1aLOOKUP>
+ <PUSH STR5>
+ <GVAL 'LABEL-OBLIST = STACK>
+ <CALL '\1aLOOKUP 2 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL9>
+ <FRAME '\1aINSERT>
+ <PUSH STR5>
+ <DEAD STR5>
+ <GVAL 'LABEL-OBLIST = STACK>
+ <CALL '\1aINSERT 2 = TEMP8>
+BOOL9
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aGENLBL>
+#WORD *21553677076*
+<GFCN \1aLABEL ("VALUE" ANY ATOM "OPTIONAL" <OR FALSE FIX> ANY) NAM10 IND11 CP12>
+ <OPT-DISPATCH 1 %<> OPT7 OPT8 OPT9>
+OPT7
+ <PUSH %<>>
+OPT8
+ <PUSH ()>
+OPT9
+ <TEMP (LB13 %<>) TEMP17 TEMP24:LIST>
+ <INTGO>
+ <FRAME '\1aFIND-LABEL>
+ <PUSH NAM10>
+ <CALL '\1aFIND-LABEL 1 = LB13>
+ <GVAL 'PASS1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE16>
+ <DEAD TEMP17>
+ <TYPE? LB13 <TYPE-CODE FALSE> - PHRASE19>
+ <FRAME '\1aMAKE-LABEL>
+ <PUSH NAM10>
+ <DEAD NAM10>
+ <PUSH IND11>
+ <DEAD IND11>
+ <PUSH CP12>
+ <DEAD CP12>
+ <CALL '\1aMAKE-LABEL 3 = LB13>
+ <JUMP + PHRASE21>
+PHRASE19
+ <TYPE? IND11 <TYPE-CODE FALSE> + PHRASE21>
+ <PUTUV LB13 2 IND11>
+ <DEAD IND11>
+PHRASE21
+ <GVAL 'NEXT-LOOP = TEMP17>
+ <PUTUV LB13 3 TEMP17>
+ <DEAD TEMP17>
+ <RETURN LB13>
+ <DEAD LB13>
+PHRASE16
+ <GVAL 'CC = TEMP17>
+ <CONS NAM10 () = TEMP24>
+ <PUTREST TEMP17 TEMP24>
+ <DEAD TEMP17>
+ <SETG 'CC TEMP24>
+ <DEAD TEMP24>
+ <FRAME '\1aOCEMIT>
+ <PUSH NAM10>
+ <DEAD NAM10>
+ <CALL '\1aOCEMIT 1>
+ <RETURN LB13>
+ <DEAD LB13>
+ <END \1aLABEL>
+#WORD *3637070554*
+<GFCN \1aMAKE-LABEL ("VALUE" LAB ANY ANY ANY "OPTIONAL" ANY) NAM8 IND9 CP10 NL11>
+ <OPT-DISPATCH 3 %<> OPT6 OPT7>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP TEMP14 LB12:LAB TEMP15:LIST>
+ <INTGO>
+ <PUSH NAM8>
+ <PUSH IND9>
+ <DEAD IND9>
+ <PUSH NL11>
+ <DEAD NL11>
+ <PUSH ()>
+ <PUSH %<>>
+ <PUSH 0>
+ <PUSH CP10>
+ <DEAD CP10>
+ <PUSH ()>
+ <UBLOCK <TYPE-CODE VECTOR> 8 = TEMP14>
+ <CHTYPE TEMP14 <TYPE-CODE LAB> = LB12>
+ <DEAD TEMP14>
+ <CONS LB12 () = TEMP14>
+ <GVAL 'LABELS = TEMP15>
+ <PUTREST TEMP14 TEMP15>
+ <DEAD TEMP15>
+ <SETG 'LABELS TEMP14>
+ <DEAD TEMP14>
+ <NTHR NAM8 1 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG16)>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG16>
+ <PUTR TEMP14 1 LB12 (RECORD-TYPE GBIND)>
+ <DEAD TEMP14>
+ <RETURN LB12>
+TAG16
+ <FRAME '\1aSETG>
+ <PUSH NAM8>
+ <DEAD NAM8>
+ <PUSH LB12>
+ <DEAD LB12>
+ <CALL '\1aSETG 2 = LB12>
+ <RETURN LB12>
+ <DEAD LB12>
+ <END \1aMAKE-LABEL>
+#WORD *30310173025*
+<GFCN \1aLONG-FIND-LABEL ("VALUE" <OR FALSE LAB> ANY <LIST [REST LAB]>) NAM5 LBLS6>
+ <TEMP TEMP16 TEMP13:LIST TEMP22:ATOM>
+ <INTGO>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <SET TEMP13 LBLS6 (TYPE LIST)>
+ <DEAD LBLS6>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPL? TEMP13 + MAPAP11>
+ <NTHL TEMP13 1 = TEMP16>
+ <NTHUV TEMP16 1 = TEMP22 (TYPE ATOM)>
+ <EQUAL? TEMP22 NAM5 + TAG21>
+ <DEAD TEMP22>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE20>
+TAG21
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE20
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <JUMP + MAP8>
+MAPAP11
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aLONG-FIND-LABEL>
+#WORD *6655513607*
+<GFCN \1aFIND-LABEL ("VALUE" ANY ANY) NAM5>
+ <TEMP TEMP11 TEMP8>
+ <INTGO>
+ <NTHR NAM5 1 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG10)>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + TAG10>
+ <NTHR TEMP11 1 = TEMP11 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP11 <TYPE-CODE UNBOUND> - TAG9>
+ <DEAD TEMP11>
+TAG10
+ <RETURN %<>>
+TAG9
+ <GVAL NAM5 = NAM5>
+ <RETURN NAM5>
+ <DEAD NAM5>
+ <END \1aFIND-LABEL>
+#WORD *26157740313*
+<GFCN \1aTYPE-CODE ("VALUE" ANY ATOM "OPTIONAL" ANY) TYP8 LS9>
+ <OPT-DISPATCH 1 %<> OPT6 OPT7>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP L10 TEMP17 TEMP22>
+ <INTGO>
+ <GVAL 'TYPE-WORDS = L10>
+ <EMPUV? L10 + TAG13>
+ <LOOP (TYP8 VALUE) (L10 LENGTH VALUE)>
+TAG15
+ <NTHUV L10 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE ATOM> - TAG16>
+ <VEQUAL? TEMP17 TYP8 + TAG14>
+ <DEAD TEMP17>
+TAG16
+ <RESTUV L10 1 = L10 (TYPE VECTOR)>
+ <EMPUV? L10 - TAG15>
+TAG13
+ <DEAD L10>
+ <SET L10 %<> (TYPE FALSE)>
+TAG14
+ <TYPE? L10 <TYPE-CODE FALSE> + PHRASE12>
+ <TYPE? LS9 <TYPE-CODE FALSE> + PHRASE19>
+ <DEAD LS9>
+ <NTHUV L10 2 = TEMP17>
+ <CONS TEMP17 () = TEMP17>
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+PHRASE19
+ <NTHUV L10 2 = L10>
+ <RETURN L10>
+ <DEAD L10>
+PHRASE12
+ <NTHR TYP8 5 = TEMP22 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE21)>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE21>
+ <DEAD TEMP22>
+ <TYPE? LS9 <TYPE-CODE FALSE> + PHRASE24>
+ <DEAD LS9>
+ <FRAME '\1aOBJ-LOC>
+ <CHTYPE TYP8 <TYPE-CODE XTYPE-C> = STACK>
+ <PUSH 1>
+ <CALL '\1aOBJ-LOC 2 = TEMP22>
+ <CONS '@ TEMP22 = TEMP22>
+ <RETURN TEMP22>
+ <DEAD TEMP22>
+PHRASE24
+ <CHTYPE TYP8 <TYPE-CODE XTYPE-C> = TEMP17>
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+PHRASE21
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'UNDEFINED-TYPE!-ERRORS>
+ <PUSH TYP8>
+ <DEAD TYP8>
+ <CALL '\1aMIMOCERR 2 = TEMP17>
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aTYPE-CODE>
+#WORD *11116125000*
+<GFCN \1aTYPE-WORD ("VALUE" ANY ATOM) TYP5>
+ <TEMP L6 TEMP15 VAL7:CONSTANT M8 TEMP22>
+ <INTGO>
+ <GVAL 'TYPE-WORDS = L6>
+ <EMPUV? L6 + TAG11>
+ <LOOP (TYP5 VALUE) (L6 LENGTH VALUE)>
+TAG13
+ <NTHUV L6 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG14>
+ <VEQUAL? TEMP15 TYP5 + TAG12>
+ <DEAD TEMP15>
+TAG14
+ <RESTUV L6 1 = L6 (TYPE VECTOR)>
+ <EMPUV? L6 - TAG13>
+TAG11
+ <DEAD L6>
+ <SET L6 %<> (TYPE FALSE)>
+TAG12
+ <TYPE? L6 <TYPE-CODE FALSE> + PHRASE10>
+ <NTHUV L6 2 = L6 (TYPE FIX)>
+ <LSH L6 18 = L6 (TYPE FIX)>
+ <CHTYPE L6 <TYPE-CODE CONSTANT> = L6>
+ <GVAL 'TYPE-LENGTHS = M8>
+ <EMPUV? M8 + TAG18>
+ <LOOP (TYP5 VALUE) (M8 LENGTH VALUE)>
+TAG20
+ <NTHUV M8 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG21>
+ <VEQUAL? TEMP15 TYP5 + TAG19>
+ <DEAD TEMP15>
+TAG21
+ <RESTUV M8 1 = M8 (TYPE VECTOR)>
+ <EMPUV? M8 - TAG20>
+TAG18
+ <DEAD M8 TYP5>
+ <SET M8 %<> (TYPE FALSE)>
+TAG19
+ <TYPE? M8 <TYPE-CODE FALSE> + PHRASE17>
+ <NTHUV M8 2 = M8 (TYPE FIX)>
+ <OR L6 M8 = L6>
+ <DEAD M8>
+ <CHTYPE L6 <TYPE-CODE CONSTANT> = L6>
+PHRASE17
+ <FRAME '\1aCONST-ADD>
+ <PUSH L6>
+ <CALL '\1aCONST-ADD 1>
+ <FRAME '\1aCONST-LOC>
+ <PUSH L6>
+ <DEAD L6>
+ <PUSH 'VALUE>
+ <CALL '\1aCONST-LOC 2 = TEMP22>
+ <RETURN TEMP22>
+ <DEAD TEMP22>
+PHRASE10
+ <NTHR TYP5 5 = TEMP15 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE25)>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE25>
+ <DEAD TEMP15>
+ <FRAME '\1aOBJ-LOC>
+ <CHTYPE TYP5 <TYPE-CODE XTYPE-W> = STACK>
+ <PUSH 1>
+ <CALL '\1aOBJ-LOC 2 = TEMP22>
+ <RETURN TEMP22>
+ <DEAD TEMP22>
+PHRASE25
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'CANT-TYPE-WORD!-ERRORS>
+ <PUSH TYP5>
+ <DEAD TYP5>
+ <CALL '\1aMIMOCERR 2 = TEMP22>
+ <RETURN TEMP22>
+ <DEAD TEMP22>
+ <END \1aTYPE-WORD>
+#WORD *4350540571*
+<GFCN \1aPUSHJ ("VALUE" <OR AC FALSE FIX> ATOM "OPTIONAL" <OR ATOM FALSE> ANY ANY) NAM12 VAL13 TAG14 TYP15>
+ <OPT-DISPATCH 1 %<> OPT8 OPT9 OPT10 OPT11>
+OPT8
+ <PUSH %<>>
+OPT9
+ <PUSH %<>>
+OPT10
+ <PUSH %<>>
+OPT11
+ <TEMP OC17:FIX TEMP35 TEMP34>
+ <INTGO>
+ <FRAME '\1aOPCODE>
+ <PUSH NAM12>
+ <DEAD NAM12>
+ <CALL '\1aOPCODE 1 = OC17>
+ <FRAME '\1aFLUSH-ACS>
+ <CALL '\1aFLUSH-ACS 0>
+ <GRTR? OC17 0 - PHRASE21 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSHJ>
+ <PUSH 'P*>
+ <PUSH '@>
+ <PUSH OC17>
+ <DEAD OC17>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE25>
+PHRASE21
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JSP>
+ <PUSH 'T*>
+ <PUSH '@>
+ <SUB 0 OC17 = STACK (TYPE FIX)>
+ <DEAD OC17>
+ <CALL '\1aOCEMIT 4>
+PHRASE25
+ <TYPE? TAG14 <TYPE-CODE FALSE> + PHRASE28>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH TAG14>
+ <DEAD TAG14>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+PHRASE28
+ <TYPE? TYP15 <TYPE-CODE FALSE> + PHRASE32>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLI>
+ <PUSH 'A1*>
+ <SET TEMP35 2 (TYPE FIX)>
+ <SFRAME 'TYPE-CODE>
+ <PUSH TYP15>
+ <DEAD TYP15>
+ <PUSH 'T>
+ <SCALL '\1aTYPE-CODE 2 = TEMP34 + TAG33 TEMP35>
+ <LOOP (TEMP34 TYPE VALUE LENGTH) (TEMP35 VALUE)>
+TAG37
+ <INTGO>
+ <EMPTY? TEMP34 + TAG33>
+ <NTH1 TEMP34 = STACK>
+ <REST1 TEMP34 = TEMP34>
+ <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
+ <JUMP + TAG37>
+TAG33
+ <DEAD TEMP34>
+ <CALL '\1aOCEMIT TEMP35>
+ <DEAD TEMP35>
+PHRASE32
+ <FRAME '\1aPUSHJ-VAL>
+ <PUSH VAL13>
+ <DEAD VAL13>
+ <CALL '\1aPUSHJ-VAL 1 = TEMP35>
+ <RETURN TEMP35>
+ <DEAD TEMP35>
+ <END \1aPUSHJ>
+#WORD *15546071502*
+<GFCN \1aPUSHJ-VAL ("VALUE" <OR FALSE FIX AC> <OR FALSE ATOM>) VAL5>
+ <TEMP TEMP13 AC6:AC>
+ <INTGO>
+ <EQUAL? VAL5 'STACK - PHRASE8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'A1*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'A2*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE15>
+ <GVAL 'STACK-DEPTH = TEMP13>
+ <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE8
+ <SET TEMP13 VAL5>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE15>
+ <FRAME '\1aGET-AC>
+ <PUSH 'A1*>
+ <CALL '\1aGET-AC 1 = AC6>
+ <PUTUV AC6 2 VAL5>
+ <PUTUV AC6 3 'TYPE (TYPE ATOM)>
+ <PUTUV AC6 5 'T>
+ <GVAL 'AC-STAMP = TEMP13>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP13>
+ <PUTUV AC6 4 TEMP13 (TYPE FIX)>
+ <DEAD AC6 TEMP13>
+ <FRAME '\1aGET-AC>
+ <PUSH 'A2*>
+ <CALL '\1aGET-AC 1 = AC6>
+ <PUTUV AC6 2 VAL5>
+ <DEAD VAL5>
+ <PUTUV AC6 3 'VALUE (TYPE ATOM)>
+ <PUTUV AC6 5 'T>
+ <GVAL 'AC-STAMP = TEMP13>
+ <PUTUV AC6 4 TEMP13 (TYPE FIX)>
+ <DEAD TEMP13>
+ <SET TEMP13 AC6>
+ <DEAD AC6>
+PHRASE15
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aPUSHJ-VAL>
+<SETG MIMOC-OBLIST <MOBLIST MIMOC 51>>
+
+<SETG EVALABLES '[TYPE-CODE TYPE-WORD]>
+
+<GDECL (EVALABLES) VECTOR>
+
+#WORD *33333173670*
+<GFCN \1aOC ("VALUE" ANY FORM ANY) FRM5 OBLIST6>
+ <TEMP TEMP4:LBIND (EVF8 %<>) TEMP10 TEMP20:LIST L25:LIST ITM26 TEMP33 TEMP34 TEMP35 TEMP36 TEMP23 ATM7 TEMP21 L54:LIST>
+ <INTGO>
+ <GETS 'BIND = TEMP4 (TYPE LBIND)>
+ <BBIND 'OBLIST 'ANY %<> OBLIST6>
+ <DEAD OBLIST6>
+ <FIXBIND>
+ <GVAL 'PASS1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - BOOL9>
+ <DEAD TEMP10>
+ <GVAL 'V1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + BOOL9>
+ <DEAD TEMP10>
+ <FRAME '\1aPRINT>
+ <PUSH FRM5>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINT 2>
+BOOL9
+ <CHTYPE FRM5 <TYPE-CODE LIST> = TEMP20>
+ <LOOP>
+MAP15
+ <INTGO>
+ <EMPL? TEMP20 + MAPAP18>
+ <SET L25 TEMP20>
+ <NTHL L25 1 = ITM26>
+ <TYPE? ITM26 <TYPE-CODE FORM> - PHRASE28>
+ <EMPL? ITM26 + PHRASE28 (TYPE FORM)>
+ <NTHL ITM26 1 = TEMP33>
+ <GVAL 'EVALABLES = TEMP34>
+ <TYPE TEMP33 = TEMP35>
+ <EMPUV? TEMP34 + PHRASE28>
+ <LOOP (TEMP33 VALUE) (TEMP35 VALUE) (TEMP34 LENGTH VALUE)>
+TAG31
+ <NTHUV TEMP34 1 = TEMP36>
+ <TYPE? TEMP36 TEMP35 - TAG32>
+ <VEQUAL? TEMP36 TEMP33 + TAG30>
+ <DEAD TEMP36>
+TAG32
+ <RESTUV TEMP34 1 = TEMP34 (TYPE VECTOR)>
+ <EMPUV? TEMP34 - TAG31>
+ <DEAD ITM26 L25 TEMP33 TEMP34 TEMP35>
+ <JUMP + PHRASE28>
+TAG30
+ <FRAME '\1aEVAL>
+ <PUSH ITM26>
+ <CALL '\1aEVAL 1 = TEMP34>
+ <PUTL L25 1 TEMP34>
+ <DEAD TEMP34>
+ <FRAME '\1aPUTPROP>
+ <PUSH L25>
+ <DEAD L25>
+ <PUSH 'EVAL>
+ <PUSH ITM26>
+ <DEAD ITM26>
+ <CALL '\1aPUTPROP 3>
+ <SET EVF8 'T (TYPE ATOM)>
+PHRASE28
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <JUMP + MAP15>
+MAPAP18
+ <DEAD TEMP20>
+ <FRAME '\1aLOOKUP>
+ <NTHL FRM5 1 = TEMP23 (TYPE ATOM)>
+ <NTHR TEMP23 3 = STACK (RECORD-TYPE ATOM)>
+ <DEAD TEMP23>
+ <GVAL 'MIMOC-OBLIST = STACK>
+ <CALL '\1aLOOKUP 2 = ATM7>
+ <TYPE? ATM7 <TYPE-CODE FALSE> + PHRASE40>
+ <FRAME>
+ <GVAL ATM7 = ATM7>
+ <RESTL FRM5 1 = TEMP20 (TYPE LIST)>
+ <CHTYPE TEMP20 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP20>
+ <ACALL ATM7 1>
+ <DEAD ATM7>
+ <SET TEMP23 EVF8>
+ <DEAD EVF8>
+ <VEQUAL? TEMP23 0 + PHRASE56>
+ <GVAL 'PASS1 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + TAG46>
+ <DEAD TEMP21>
+ <SET TEMP23 %<> (TYPE FALSE)>
+ <JUMP + PHRASE56>
+TAG46
+ <SET TEMP33 %<> (TYPE FALSE)>
+ <CHTYPE FRM5 <TYPE-CODE LIST> = TEMP21>
+ <DEAD FRM5>
+ <LOOP>
+MAP48
+ <INTGO>
+ <EMPL? TEMP21 + MAPAP51>
+ <FRAME '\1aPUTPROP>
+ <PUSH TEMP21>
+ <PUSH 'EVAL>
+ <CALL '\1aPUTPROP 2 = TEMP33>
+ <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
+ <JUMP + MAP48>
+MAPAP51
+ <DEAD TEMP21>
+ <SET TEMP23 TEMP33>
+ <DEAD TEMP33>
+ <JUMP + PHRASE56>
+PHRASE40
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'CANT-OPEN-COMPILE!-ERRORS>
+ <PUSH FRM5>
+ <DEAD FRM5>
+ <CALL '\1aMIMOCERR 2 = TEMP23>
+PHRASE56
+ <UNBIND TEMP4>
+ <DEAD TEMP4>
+ <ADJ -9>
+ <RETURN TEMP23>
+ <DEAD TEMP23>
+ <END \1aOC>
+#WORD *34701105146*
+<GFCN \1aLOCATION!-MIMOC ("VALUE" <OR FALSE LIST STRING> LIST) L5>
+ <TEMP TEMP8 NAC6:ATOM TEMP20:FIX TEMP26>
+ <INTGO>
+ <FRAME '\1aASSIGN-AC>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = STACK>
+ <DEAD TEMP8>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = NAC6>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC6>
+ <CALL '\1aGET-AC 1 = TEMP8>
+ <PUTUV TEMP8 6 'FIX>
+ <DEAD TEMP8>
+ <GVAL 'GLUE-MODE = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE11>
+ <DEAD TEMP8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 0>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE14>
+PHRASE11
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XMOVEI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 0>
+ <PUSH (R*)>
+ <CALL '\1aOCEMIT 4>
+PHRASE14
+ <GVAL 'PASS1 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE18>
+ <DEAD TEMP8>
+ <GVAL 'CC = TEMP8>
+ <NTH1 TEMP8 = STACK>
+ <DEAD TEMP8>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP8 1 = STACK>
+ <DEAD TEMP8>
+ <SET TEMP20 2 (TYPE FIX)>
+ <GVAL 'LOCATIONS = TEMP8>
+ <TYPE TEMP8 = TEMP26>
+ <AND TEMP26 7 = TEMP26>
+ <VEQUAL? TEMP26 1 + TAG22>
+ <DEAD TEMP26>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP20 VALUE)>
+TAG28
+ <INTGO>
+ <EMPTY? TEMP8 + TAG27>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
+ <JUMP + TAG28>
+TAG27
+ <LIST TEMP20 = TEMP8 (TYPE LIST)>
+ <DEAD TEMP20>
+ <JUMP + TAG23>
+TAG22
+ <LOOP>
+TAG25
+ <VEQUAL? TEMP20 0 + TAG24>
+ <POP = TEMP26>
+ <CONS TEMP26 TEMP8 = TEMP8 (TYPE LIST)>
+ <DEAD TEMP26>
+ <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
+ <JUMP + TAG25>
+TAG24
+TAG23
+ <SETG 'LOCATIONS TEMP8>
+ <DEAD TEMP8>
+PHRASE18
+ <GVAL 'GLUE-MODE = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> + TAG31>
+ <DEAD TEMP26>
+ <RETURN %<>>
+TAG31
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SUB>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC6>
+ <DEAD NAC6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 'R*>
+ <CALL '\1aOCEMIT 3 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aLOCATION!-MIMOC>
+#WORD *36327533214*
+<GFCN \1aLOCATION-CHECK ("VALUE" ATOM)>
+ <TEMP O8 TEMP13:INST TEMP15>
+ <INTGO>
+ <GVAL 'LOCATIONS = O8>
+ <LOOP>
+AGAIN9
+ <INTGO>
+ <EMPL? O8 - PHRASE11 (TYPE LIST)>
+ <RETURN 'T>
+PHRASE11
+ <NTHL O8 1 = TEMP13 (TYPE INST)>
+ <FRAME '\1aFIND-LABEL>
+ <RESTL O8 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP15>
+ <CALL '\1aFIND-LABEL 1 = TEMP15>
+ <NTHUV TEMP15 2 = TEMP15>
+ <PUTUV TEMP13 3 TEMP15>
+ <DEAD TEMP13 TEMP15>
+ <RESTL O8 1 = O8 (TYPE LIST)>
+ <RESTL O8 1 = O8 (TYPE LIST)>
+ <JUMP + AGAIN9>
+ <END \1aLOCATION-CHECK>
+#WORD *33036672652*
+<GFCN \1aLOAD-TYPE-IN-AC ("VALUE" <OR FALSE STRING> ANY ANY) ACNAM5 TYP6>
+ <TEMP TEMP12 TEMP13 TEMP14>
+ <INTGO>
+ <GVAL 'TYPE-LENGTHS = TEMP12>
+ <TYPE TYP6 = TEMP13>
+ <EMPUV? TEMP12 + PHRASE8>
+ <LOOP (TYP6 VALUE) (TEMP13 VALUE) (TEMP12 LENGTH VALUE)>
+TAG10
+ <NTHUV TEMP12 1 = TEMP14>
+ <TYPE? TEMP14 TEMP13 - TAG11>
+ <VEQUAL? TEMP14 TYP6 + TAG9>
+ <DEAD TEMP14>
+TAG11
+ <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
+ <EMPUV? TEMP12 - TAG10>
+ <DEAD TEMP12 TEMP13>
+ <JUMP + PHRASE8>
+TAG9
+ <FRAME '\1aXEMIT>
+ <PUSH 'MOVE>
+ <PUSH ACNAM5>
+ <DEAD ACNAM5>
+ <SET TEMP13 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH TYP6>
+ <DEAD TYP6>
+ <SCALL '\1aTYPE-WORD 1 = TEMP12 + TAG15 TEMP13>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG17
+ <INTGO>
+ <EMPTY? TEMP12 + TAG15>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG17>
+TAG15
+ <DEAD TEMP12>
+ <CALL '\1aXEMIT TEMP13 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE8
+ <FRAME '\1aXEMIT>
+ <PUSH 'MOVSI>
+ <PUSH ACNAM5>
+ <DEAD ACNAM5>
+ <SET TEMP14 2 (TYPE FIX)>
+ <SFRAME 'TYPE-CODE>
+ <PUSH TYP6>
+ <DEAD TYP6>
+ <PUSH 'T>
+ <SCALL '\1aTYPE-CODE 2 = TEMP12 + TAG20 TEMP14>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG22
+ <INTGO>
+ <EMPTY? TEMP12 + TAG20>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG22>
+TAG20
+ <DEAD TEMP12>
+ <CALL '\1aXEMIT TEMP14 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aLOAD-TYPE-IN-AC>
+#WORD *36416413506*
+<GFCN \1aSAVE-BRANCH-STATE ("VALUE" <OR AC ATOM FALSE> LAB ANY) LB5 UNCND6>
+ <TEMP LS8:LIST LOOP?9 TEMP22 TEMP23:VECTOR TEMP20 AC24:AC NULL-STATE25 TEMP31 LCL26>
+ <INTGO>
+ <NTHUV LB5 4 = LS8 (TYPE LIST)>
+ <NTHUV LB5 3 = LOOP?9>
+ <GVAL 'AC-PAIR-TABLE = TEMP22>
+ <GVAL 'NULL-STATES = TEMP23>
+ <SET TEMP20 0 (TYPE FIX)>
+ <LOOP>
+MAP11
+ <INTGO>
+ <EMPUV? TEMP22 + MAPAP14>
+ <EMPUV? TEMP23 + MAPAP14>
+ <NTHUV TEMP22 1 = AC24>
+ <NTHUV TEMP23 1 = NULL-STATE25>
+ <NTHUV AC24 2 = TEMP31>
+ <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE29>
+ <DEAD TEMP31>
+ <NTHUV AC24 2 = TEMP31>
+ <TYPE? TEMP31 <TYPE-CODE LOSE> + PHRASE29>
+ <DEAD TEMP31>
+ <FRAME '\1aLMEMQ>
+ <NTHUV AC24 2 = STACK (TYPE ATOM)>
+ <GVAL 'LOCALS = STACK>
+ <CALL '\1aLMEMQ 2 = LCL26>
+ <VEQUAL? LCL26 0 - PHRASE36>
+ <GVAL 'ICALL-FLAG = TEMP31>
+ <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE36>
+ <DEAD TEMP31>
+ <FRAME '\1aLMEMQ>
+ <NTHUV AC24 2 = STACK (TYPE ATOM)>
+ <GVAL 'ICALL-TEMPS = STACK>
+ <CALL '\1aLMEMQ 2 = LCL26>
+ <JUMP + PHRASE36>
+PHRASE29
+ <SET LCL26 %<> (TYPE FALSE)>
+PHRASE36
+ <NTHUV AC24 5 = TEMP31>
+ <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE38>
+ <DEAD TEMP31>
+ <TYPE? LOOP?9 <TYPE-CODE FALSE> - PHRASE38>
+ <TYPE? UNCND6 <TYPE-CODE FALSE> - BOOL40>
+ <FRAME '\1aWILL-DIE?>
+ <NTHUV AC24 2 = STACK>
+ <CALL '\1aWILL-DIE? 1 = TEMP31>
+ <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE38>
+ <DEAD TEMP31>
+BOOL40
+ <FRAME '\1aWILL-DIE?>
+ <NTHUV AC24 2 = STACK>
+ <NTHUV LB5 7 = STACK (TYPE LIST)>
+ <CALL '\1aWILL-DIE? 2 = TEMP31>
+ <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE38>
+ <DEAD TEMP31>
+ <SET LCL26 %<> (TYPE FALSE)>
+ <PUTUV AC24 5 %<>>
+ <PUTUV AC24 2 %<>>
+PHRASE38
+ <TYPE? LCL26 <TYPE-CODE FALSE> + PHRASE44>
+ <NTHUV AC24 3 = TEMP31 (TYPE ATOM)>
+ <VEQUAL? TEMP31 'TYPE - PHRASE46>
+ <DEAD TEMP31>
+ <NTHUV LCL26 5 = NULL-STATE25>
+ <TYPE? NULL-STATE25 <TYPE-CODE FALSE> + PHRASE46>
+ <NTHUV NULL-STATE25 3 = TEMP31>
+ <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE46>
+ <DEAD TEMP31>
+ <NTHUV NULL-STATE25 1 = TEMP31 (TYPE AC)>
+ <VEQUAL? TEMP31 AC24 - BOOL48>
+ <DEAD TEMP31>
+ <NTHUV AC24 5 = TEMP31>
+ <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE46>
+ <DEAD TEMP31>
+BOOL48
+ <PUTUV NULL-STATE25 3 'HACKED>
+ <DEAD NULL-STATE25>
+PHRASE46
+ <NTHUV AC24 3 = TEMP31 (TYPE ATOM)>
+ <VEQUAL? TEMP31 'VALUE - PHRASE50>
+ <DEAD TEMP31>
+ <NTHUV LCL26 6 = NULL-STATE25>
+ <TYPE? NULL-STATE25 <TYPE-CODE FALSE> + PHRASE50>
+ <NTHUV NULL-STATE25 3 = TEMP31>
+ <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE50>
+ <DEAD TEMP31>
+ <NTHUV NULL-STATE25 1 = TEMP31 (TYPE AC)>
+ <VEQUAL? TEMP31 AC24 - BOOL52>
+ <DEAD TEMP31>
+ <NTHUV AC24 5 = TEMP31>
+ <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE50>
+ <DEAD TEMP31>
+BOOL52
+ <PUTUV NULL-STATE25 3 'HACKED>
+ <DEAD NULL-STATE25>
+PHRASE50
+ <PUSH AC24>
+ <PUSH LCL26>
+ <NTHUV AC24 5 = TEMP31>
+ <TYPE? TEMP31 <TYPE-CODE FALSE> - TAG54>
+ <DEAD TEMP31>
+ <SET TEMP31 'T (TYPE ATOM)>
+ <JUMP + TAG55>
+TAG54
+ <SET TEMP31 %<> (TYPE FALSE)>
+TAG55
+ <PUSH TEMP31>
+ <DEAD TEMP31>
+ <NTHUV AC24 6 = STACK>
+ <NTHUV AC24 3 = STACK (TYPE ATOM)>
+ <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP31>
+ <CHTYPE TEMP31 <TYPE-CODE ACSTATE> = NULL-STATE25>
+ <DEAD TEMP31>
+ <NTHUV AC24 3 = TEMP31 (TYPE ATOM)>
+ <DEAD AC24>
+ <VEQUAL? TEMP31 'TYPE - PHRASE57>
+ <DEAD TEMP31>
+ <PUTUV LCL26 5 NULL-STATE25>
+ <DEAD LCL26>
+ <JUMP + PHRASE58>
+PHRASE57
+ <PUTUV LCL26 6 NULL-STATE25>
+ <DEAD LCL26>
+PHRASE58
+ <SET TEMP31 NULL-STATE25>
+ <DEAD NULL-STATE25>
+ <JUMP + PHRASE59>
+PHRASE44
+ <SET TEMP31 NULL-STATE25>
+ <DEAD NULL-STATE25>
+PHRASE59
+ <PUSH TEMP31>
+ <DEAD TEMP31>
+ <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
+ <RESTUV TEMP22 1 = TEMP22 (TYPE VECTOR)>
+ <RESTUV TEMP23 1 = TEMP23 (TYPE VECTOR)>
+ <JUMP + MAP11>
+MAPAP14
+ <UBLOCK <TYPE-CODE VECTOR> TEMP20 = TEMP20 (TYPE VECTOR)>
+ <CHTYPE TEMP20 <TYPE-CODE LABSTATE> = TEMP22>
+ <DEAD TEMP20>
+ <EMPL? LS8 - PHRASE61 (TYPE LIST)>
+ <CONS TEMP22 () = LOOP?9>
+ <PUTUV LB5 4 LOOP?9 (TYPE LIST)>
+ <DEAD LOOP?9>
+ <JUMP + PHRASE62>
+PHRASE61
+ <SET LOOP?9 LS8>
+ <DEAD LS8>
+ <LOOP (LOOP?9 VALUE)>
+TAG63
+ <RESTL LOOP?9 1 = TEMP20 (TYPE LIST)>
+ <EMPL? TEMP20 + TAG64>
+ <SET LOOP?9 TEMP20>
+ <DEAD TEMP20>
+ <JUMP + TAG63>
+TAG64
+ <CONS TEMP22 () = TEMP20>
+ <PUTREST LOOP?9 TEMP20>
+ <DEAD LOOP?9 TEMP20>
+PHRASE62
+ <NTHUV LB5 3 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE66>
+ <DEAD TEMP20>
+ <NTHUV LB5 5 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE68>
+ <DEAD TEMP20>
+ <FRAME '\1aMERGE-TWO-FORCE>
+ <PUSH TEMP22>
+ <NTHUV LB5 5 = STACK (TYPE LABSTATE)>
+ <DEAD LB5>
+ <CALL '\1aMERGE-TWO-FORCE 2>
+PHRASE68
+ <FRAME '\1aLOGICAL-ESTABLISH>
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <CALL '\1aLOGICAL-ESTABLISH 1>
+ <JUMP + PHRASE71>
+PHRASE66
+ <NTHUV LB5 5 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE73>
+ <DEAD TEMP20>
+ <FRAME '\1aMERGE-TWO>
+ <PUSH TEMP22>
+ <NTHUV LB5 5 = STACK (TYPE LABSTATE)>
+ <DEAD LB5>
+ <CALL '\1aMERGE-TWO 2>
+PHRASE73
+ <FRAME '\1aESTABLISH-UPDATE>
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <CALL '\1aESTABLISH-UPDATE 1>
+PHRASE71
+ <TYPE? UNCND6 <TYPE-CODE FALSE> + PHRASE77>
+ <DEAD UNCND6>
+ <FRAME '\1aFLUSH-ACS>
+ <CALL '\1aFLUSH-ACS 0 = TEMP20>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+PHRASE77
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'O*>
+ <CALL '\1aMUNGED-AC 1 = TEMP20>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+ <END \1aSAVE-BRANCH-STATE>
+#WORD *32724323653*
+<GFCN \1aSAVE-LABEL-STATE ("VALUE" <OR ATOM FALSE> ANY) LB5>
+ <TEMP TEMP9 TEMP21 TEMP22:VECTOR AC23:AC NULL-STATE24:ACSTATE ITM26 LCL25 TEMP34>
+ <INTGO>
+ <GVAL 'LAST-UNCON = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE8>
+ <DEAD TEMP9>
+ <GVAL 'AC-PAIR-TABLE = TEMP21>
+ <GVAL 'NULL-STATES = TEMP22>
+ <SET TEMP9 0 (TYPE FIX)>
+ <LOOP>
+MAP11
+ <INTGO>
+ <EMPUV? TEMP21 + MAPAP14>
+ <EMPUV? TEMP22 + MAPAP14>
+ <NTHUV TEMP21 1 = AC23>
+ <NTHUV TEMP22 1 = NULL-STATE24>
+ <NTHUV AC23 2 = ITM26>
+ <TYPE? ITM26 <TYPE-CODE FALSE> + PHRASE29>
+ <TYPE? ITM26 <TYPE-CODE LOSE> + PHRASE29>
+ <FRAME '\1aLMEMQ>
+ <PUSH ITM26>
+ <GVAL 'LOCALS = STACK>
+ <CALL '\1aLMEMQ 2 = LCL25>
+ <VEQUAL? LCL25 0 - PHRASE36>
+ <GVAL 'ICALL-FLAG = TEMP34>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE36>
+ <DEAD TEMP34>
+ <FRAME '\1aLMEMQ>
+ <PUSH ITM26>
+ <DEAD ITM26>
+ <GVAL 'ICALL-TEMPS = STACK>
+ <CALL '\1aLMEMQ 2 = LCL25>
+ <JUMP + PHRASE36>
+PHRASE29
+ <SET LCL25 %<> (TYPE FALSE)>
+PHRASE36
+ <TYPE? LCL25 <TYPE-CODE FALSE> + PHRASE38>
+ <NTHUV AC23 3 = TEMP34 (TYPE ATOM)>
+ <VEQUAL? TEMP34 'TYPE - PHRASE40>
+ <DEAD TEMP34>
+ <NTHUV LCL25 5 = ITM26>
+ <TYPE? ITM26 <TYPE-CODE FALSE> + PHRASE40>
+ <NTHUV ITM26 3 = TEMP34>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE40>
+ <DEAD TEMP34>
+ <NTHUV ITM26 1 = TEMP34 (TYPE AC)>
+ <VEQUAL? TEMP34 AC23 - BOOL42>
+ <DEAD TEMP34>
+ <NTHUV AC23 5 = TEMP34>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE40>
+ <DEAD TEMP34>
+BOOL42
+ <PUTUV ITM26 3 'HACKED>
+ <DEAD ITM26>
+PHRASE40
+ <NTHUV AC23 3 = TEMP34 (TYPE ATOM)>
+ <VEQUAL? TEMP34 'VALUE - PHRASE44>
+ <DEAD TEMP34>
+ <NTHUV LCL25 6 = ITM26>
+ <TYPE? ITM26 <TYPE-CODE FALSE> + PHRASE44>
+ <NTHUV ITM26 3 = TEMP34>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE44>
+ <DEAD TEMP34>
+ <NTHUV ITM26 1 = TEMP34 (TYPE AC)>
+ <VEQUAL? TEMP34 AC23 - BOOL46>
+ <DEAD TEMP34>
+ <NTHUV AC23 5 = TEMP34>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE44>
+ <DEAD TEMP34>
+BOOL46
+ <PUTUV ITM26 3 'HACKED>
+ <DEAD ITM26>
+PHRASE44
+ <PUSH AC23>
+ <PUSH LCL25>
+ <NTHUV AC23 5 = TEMP34>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> - TAG48>
+ <DEAD TEMP34>
+ <SET TEMP34 'T (TYPE ATOM)>
+ <JUMP + TAG49>
+TAG48
+ <SET TEMP34 %<> (TYPE FALSE)>
+TAG49
+ <PUSH TEMP34>
+ <DEAD TEMP34>
+ <NTHUV AC23 6 = STACK>
+ <NTHUV AC23 3 = STACK (TYPE ATOM)>
+ <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP34>
+ <CHTYPE TEMP34 <TYPE-CODE ACSTATE> = ITM26>
+ <DEAD TEMP34>
+ <NTHUV AC23 3 = TEMP34 (TYPE ATOM)>
+ <DEAD AC23>
+ <VEQUAL? TEMP34 'TYPE - PHRASE51>
+ <DEAD TEMP34>
+ <PUTUV LCL25 5 ITM26>
+ <DEAD LCL25>
+ <JUMP + PHRASE52>
+PHRASE51
+ <PUTUV LCL25 6 ITM26>
+ <DEAD LCL25>
+PHRASE52
+ <SET TEMP34 ITM26>
+ <DEAD ITM26>
+ <JUMP + PHRASE53>
+PHRASE38
+ <SET TEMP34 NULL-STATE24>
+ <DEAD NULL-STATE24>
+PHRASE53
+ <PUSH TEMP34>
+ <DEAD TEMP34>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
+ <RESTUV TEMP22 1 = TEMP22 (TYPE VECTOR)>
+ <JUMP + MAP11>
+MAPAP14
+ <UBLOCK <TYPE-CODE VECTOR> TEMP9 = TEMP9 (TYPE VECTOR)>
+ <CHTYPE TEMP9 <TYPE-CODE LABSTATE> = TEMP21>
+ <DEAD TEMP9>
+ <NTHUV LB5 4 = TEMP9 (TYPE LIST)>
+ <CONS TEMP21 TEMP9 = TEMP9>
+ <PUTUV LB5 4 TEMP9 (TYPE LIST)>
+ <DEAD TEMP9>
+ <NTHUV LB5 3 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE55>
+ <DEAD TEMP9>
+ <FRAME '\1aKILL-DEAD-ACS>
+ <PUSH LB5>
+ <CALL '\1aKILL-DEAD-ACS 1>
+PHRASE55
+ <NTHUV LB5 5 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE58>
+ <DEAD TEMP9>
+ <PUTUV LB5 5 TEMP21>
+ <DEAD TEMP21>
+PHRASE58
+ <FRAME '\1aMERGE-TWO>
+ <NTHUV LB5 4 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK (TYPE LABSTATE)>
+ <DEAD TEMP9>
+ <NTHUV LB5 5 = STACK (TYPE LABSTATE)>
+ <CALL '\1aMERGE-TWO 2>
+ <FRAME '\1aESTABLISH-LABEL-STATE>
+ <PUSH LB5>
+ <NTHUV LB5 4 = TEMP9 (TYPE LIST)>
+ <DEAD LB5>
+ <NTHL TEMP9 1 = STACK (TYPE LABSTATE)>
+ <DEAD TEMP9>
+ <CALL '\1aESTABLISH-LABEL-STATE 2>
+ <RETURN 'T>
+PHRASE8
+ <NTHUV LB5 3 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE63>
+ <DEAD TEMP9>
+ <FRAME '\1aKILL-DEAD-ACS>
+ <PUSH LB5>
+ <CALL '\1aKILL-DEAD-ACS 1>
+PHRASE63
+ <NTHUV LB5 5 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE66>
+ <DEAD TEMP9>
+ <NTHUV LB5 4 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 + PHRASE66 (TYPE LIST)>
+ <DEAD TEMP9>
+ <NTHUV LB5 4 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = TEMP9 (TYPE LABSTATE)>
+ <PUTUV LB5 5 TEMP9>
+ <DEAD TEMP9>
+PHRASE66
+ <NTHUV LB5 5 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE69>
+ <FRAME '\1aESTABLISH-LABEL-STATE>
+ <PUSH LB5>
+ <DEAD LB5>
+ <CALL '\1aESTABLISH-LABEL-STATE 1 = TEMP9>
+PHRASE69
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aSAVE-LABEL-STATE>
+#WORD *72666112*
+<GFCN \1aKILL-DEAD-ACS ("VALUE" <OR ACSTATE FALSE> LAB) LB5>
+ <TEMP TEMP8 TEMP15:LIST>
+ <INTGO>
+ <NTHUV LB5 5 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
+ <DEAD TEMP8>
+ <FRAME '\1aKILL-ONE-STATE>
+ <NTHUV LB5 5 = STACK (TYPE LABSTATE)>
+ <CALL '\1aKILL-ONE-STATE 1>
+PHRASE7
+ <SET TEMP8 %<> (TYPE FALSE)>
+ <NTHUV LB5 4 = TEMP15 (TYPE LIST)>
+ <DEAD LB5>
+ <LOOP>
+MAP11
+ <INTGO>
+ <EMPL? TEMP15 + MAP10>
+ <FRAME '\1aKILL-ONE-STATE>
+ <NTHL TEMP15 1 = STACK>
+ <CALL '\1aKILL-ONE-STATE 1 = TEMP8>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <JUMP + MAP11>
+MAP10
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aKILL-DEAD-ACS>
+#WORD *11416714057*
+<GFCN \1aKILL-ONE-STATE ("VALUE" <OR FALSE ACSTATE> LABSTATE) LSTATE5>
+ <TEMP TEMP15 TEMP12:VECTOR ACST17:ACSTATE LCL18:LOCAL>
+ <INTGO>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <CHTYPE LSTATE5 <TYPE-CODE VECTOR> = TEMP12>
+ <DEAD LSTATE5>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPUV? TEMP12 + MAPAP10>
+ <NTHUV TEMP12 1 = ACST17>
+ <NTHUV ACST17 2 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE20>
+ <FRAME '\1aWILL-DIE?>
+ <NTHUV ACST17 2 = LCL18 (TYPE LOCAL)>
+ <NTHUV LCL18 1 = STACK (TYPE ATOM)>
+ <CALL '\1aWILL-DIE? 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE20>
+ <PUTUV LCL18 5 %<>>
+ <PUTUV LCL18 6 %<>>
+ <DEAD LCL18>
+ <NTHUV ACST17 2 = TEMP15>
+ <CONS TEMP15 () = TEMP15>
+ <CHTYPE TEMP15 <TYPE-CODE FALSE> = TEMP15>
+ <PUTUV ACST17 2 TEMP15>
+ <DEAD TEMP15>
+ <PUTUV ACST17 3 'DEAD>
+ <SET TEMP15 ACST17>
+ <DEAD ACST17>
+PHRASE20
+ <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aKILL-ONE-STATE>
+#WORD *11151412701*
+<GFCN \1aESTABLISH-BRANCH-STATE ("VALUE" <OR FALSE <LIST ATOM>> LAB ANY "OPTIONAL" ANY ANY LABSTATE) LB8 UNCND9 AC-P110 AC-P211 LS12>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <PUSH #T$UNBOUND 0>
+OPT7
+ <TEMP LOOP?13 (MOVES-TO14:LIST ()) (MOVES-FROM16:LIST ()) TEMP25 STAT30 AC32 LCL233 NEW-AC?34 TEMP57 TEMP65 PF147:LIST TEMP165 AT1151:FIX AT2152:FIX AF153:AC P-TO?154 P-FROM155:AC>
+ <INTGO>
+ <TYPE? LS12 <TYPE-CODE UNBOUND> - TAG17>
+ <NTHUV LB8 5 = LS12 (TYPE LABSTATE)>
+TAG17
+ <NTHUV LB8 3 = LOOP?13>
+ <CHTYPE LS12 <TYPE-CODE VECTOR> = TEMP25>
+ <LOOP>
+MAP20
+ <INTGO>
+ <EMPUV? TEMP25 + MAPAP23>
+ <NTHUV TEMP25 1 = STAT30>
+ <NTHUV STAT30 1 = AC32 (TYPE AC)>
+ <NTHUV AC32 2 = LCL233>
+ <TYPE? LCL233 <TYPE-CODE LOSE> - PHRASE36>
+ <SET LCL233 %<> (TYPE FALSE)>
+PHRASE36
+ <NTHUV AC32 5 = NEW-AC?34>
+ <TYPE? NEW-AC?34 <TYPE-CODE FALSE> + PHRASE38>
+ <DEAD NEW-AC?34>
+ <TYPE? LOOP?13 <TYPE-CODE FALSE> - PHRASE38>
+ <TYPE? LCL233 <TYPE-CODE FALSE> + PHRASE38>
+ <TYPE? UNCND9 <TYPE-CODE FALSE> - BOOL41>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH LCL233>
+ <CALL '\1aWILL-DIE? 1 = NEW-AC?34>
+ <TYPE? NEW-AC?34 <TYPE-CODE FALSE> + PHRASE38>
+ <DEAD NEW-AC?34>
+BOOL41
+ <FRAME '\1aWILL-DIE?>
+ <PUSH LCL233>
+ <NTHUV LB8 7 = STACK (TYPE LIST)>
+ <CALL '\1aWILL-DIE? 2 = NEW-AC?34>
+ <TYPE? NEW-AC?34 <TYPE-CODE FALSE> + PHRASE38>
+ <DEAD NEW-AC?34>
+ <GEN-ASSIGNED? 'DISP-L - PHRASE45>
+ <GEN-LVAL 'DISP-L = TEMP57>
+ <EMPTY? TEMP57 + PHRASE38>
+ <LOOP>
+MAP47
+ <INTGO>
+ <EMPTY? TEMP57 + PHRASE45>
+ <NTH1 TEMP57 = NEW-AC?34>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH LCL233>
+ <FRAME '\1aFIND-LABEL>
+ <PUSH NEW-AC?34>
+ <DEAD NEW-AC?34>
+ <CALL '\1aFIND-LABEL 1 = TEMP65>
+ <NTHUV TEMP65 7 = STACK (TYPE LIST)>
+ <DEAD TEMP65>
+ <CALL '\1aWILL-DIE? 2 = TEMP65>
+ <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE38>
+ <DEAD TEMP65>
+ <REST1 TEMP57 = TEMP57>
+ <JUMP + MAP47>
+PHRASE45
+ <SET LCL233 %<> (TYPE FALSE)>
+ <PUTUV AC32 5 %<>>
+ <PUTUV AC32 2 %<>>
+PHRASE38
+ <NTHUV STAT30 2 = TEMP57>
+ <TYPE? TEMP57 <TYPE-CODE FALSE> + BOOL71>
+ <NTHUV TEMP57 1 = TEMP65 (TYPE ATOM)>
+ <VEQUAL? TEMP65 LCL233 + BOOL70>
+ <DEAD TEMP65>
+BOOL71
+ <TYPE? TEMP57 <TYPE-CODE FALSE> - PHRASE69>
+ <TYPE? LOOP?13 <TYPE-CODE FALSE> - PHRASE69>
+BOOL70
+ <NTHUV AC32 5 = TEMP65>
+ <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE90>
+ <DEAD TEMP65>
+ <TYPE? TEMP57 <TYPE-CODE FALSE> - BOOL77>
+ <EMPL? TEMP57 + BOOL79 (TYPE FALSE)>
+BOOL77
+ <NTHUV STAT30 3 = TEMP65>
+ <DEAD STAT30>
+ <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE90>
+ <DEAD TEMP65>
+ <TYPE? TEMP57 <TYPE-CODE FALSE> - BOOL79>
+ <EMPL? TEMP57 + PHRASE90 (TYPE FALSE)>
+ <NTHL TEMP57 1 = TEMP65 (TYPE LOCAL)>
+ <DEAD TEMP57>
+ <NTHUV TEMP65 1 = TEMP65 (TYPE ATOM)>
+ <VEQUAL? TEMP65 LCL233 + PHRASE90>
+ <DEAD TEMP65>
+BOOL79
+ <FRAME '\1aUPDATE-AC>
+ <PUSH AC32>
+ <PUSH 'T>
+ <CALL '\1aUPDATE-AC 2>
+ <PUTUV AC32 5 %<>>
+ <JUMP + PHRASE90>
+PHRASE69
+ <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE82>
+ <TYPE? LOOP?13 <TYPE-CODE FALSE> + PHRASE82>
+ <TYPE? LCL233 <TYPE-CODE FALSE> + BOOL84>
+ <NTHUV TEMP57 1 = TEMP65 (TYPE ATOM)>
+ <VEQUAL? TEMP65 LCL233 + PHRASE82>
+ <DEAD TEMP65>
+BOOL84
+ <FRAME '\1aFIND-AC>
+ <PUSH TEMP57>
+ <NTHUV STAT30 5 = STACK (TYPE ATOM)>
+ <CALL '\1aFIND-AC 2 = NEW-AC?34>
+ <TYPE? NEW-AC?34 <TYPE-CODE FALSE> + PHRASE82>
+ <NTHUV STAT30 4 = TEMP65>
+ <TYPE? TEMP65 <TYPE-CODE FALSE> + BOOL88>
+ <DEAD TEMP65>
+ <NTHUV STAT30 3 = TEMP65>
+ <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE90>
+ <DEAD TEMP65>
+ <NTHUV TEMP57 4 = TEMP65>
+ <DEAD TEMP57>
+ <TYPE? TEMP65 <TYPE-CODE FALSE> - PHRASE90>
+ <DEAD TEMP65>
+ <NTHUV STAT30 4 = TEMP57 (TYPE ATOM)>
+ <DEAD STAT30>
+ <NTHUV NEW-AC?34 6 = TEMP65>
+ <VEQUAL? TEMP57 TEMP65 + PHRASE90>
+ <DEAD TEMP57 TEMP65>
+BOOL88
+ <CONS AC32 MOVES-TO14 = MOVES-TO14>
+ <CONS NEW-AC?34 MOVES-FROM16 = MOVES-FROM16>
+ <DEAD NEW-AC?34>
+ <JUMP + PHRASE90>
+PHRASE82
+ <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE90>
+ <DEAD TEMP57>
+ <TYPE? LOOP?13 <TYPE-CODE FALSE> + PHRASE90>
+ <FRAME '\1aERROR>
+ <PUSH 'AC-SCREW-UP!-ERRORS>
+ <CALL '\1aERROR 1>
+PHRASE90
+ <TYPE? LOOP?13 <TYPE-CODE FALSE> + PHRASE94>
+ <TYPE? LCL233 <TYPE-CODE FALSE> + PHRASE94>
+ <FRAME '\1aFIND-LOCAL>
+ <PUSH LCL233>
+ <DEAD LCL233>
+ <NTHUV AC32 3 = STACK (TYPE ATOM)>
+ <PUSH LS12>
+ <PUSH 'T>
+ <CALL '\1aFIND-LOCAL 4 = TEMP65>
+ <TYPE? TEMP65 <TYPE-CODE FALSE> - PHRASE94>
+ <DEAD TEMP65>
+ <NTHUV AC32 5 = TEMP65>
+ <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE94>
+ <DEAD TEMP65>
+ <FRAME '\1aUPDATE-AC>
+ <PUSH AC32>
+ <PUSH 'T>
+ <CALL '\1aUPDATE-AC 2>
+ <PUTUV AC32 5 %<>>
+ <DEAD AC32>
+PHRASE94
+ <RESTUV TEMP25 1 = TEMP25 (TYPE VECTOR)>
+ <JUMP + MAP20>
+MAPAP23
+ <TYPE? AC-P110 <TYPE-CODE FALSE> + PHRASE113>
+ <FRAME '\1aGET-AC>
+ <PUSH AC-P110>
+ <DEAD AC-P110>
+ <CALL '\1aGET-AC 1 = AC-P110>
+ <SET TEMP25 MOVES-TO14>
+ <EMPL? TEMP25 + PHRASE113>
+ <LOOP (AC-P110 VALUE) (TEMP25 VALUE)>
+TAG103
+ <NTHL TEMP25 1 = AC32>
+ <TYPE? AC32 <TYPE-CODE AC> - TAG104>
+ <VEQUAL? AC32 AC-P110 + TAG102>
+ <DEAD AC32>
+TAG104
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <EMPL? TEMP25 - TAG103>
+ <JUMP + PHRASE113>
+TAG102
+ <SET AC32 MOVES-FROM16>
+ <EMPL? AC32 + PHRASE106>
+ <LOOP (AC-P110 VALUE) (AC32 VALUE)>
+TAG109
+ <NTHL AC32 1 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE AC> - TAG110>
+ <VEQUAL? TEMP25 AC-P110 + TAG108>
+ <DEAD TEMP25>
+TAG110
+ <RESTL AC32 1 = AC32 (TYPE LIST)>
+ <EMPL? AC32 - TAG109>
+ <JUMP + PHRASE106>
+TAG108
+ <LENL MOVES-FROM16 = LCL233 (TYPE FIX)>
+ <LENL AC32 = TEMP25 (TYPE FIX)>
+ <DEAD AC32>
+ <SUB LCL233 TEMP25 = LCL233 (TYPE FIX)>
+ <DEAD TEMP25>
+ <SUB LCL233 -1 = LCL233 (TYPE FIX)>
+ <SET TEMP25 MOVES-TO14>
+ <SUB LCL233 1 = LCL233 (TYPE FIX)>
+ <GRTR? LCL233 0 - RESTL112 (TYPE FIX)>
+ <LOOP (TEMP25 VALUE) (LCL233 VALUE)>
+RESTL111
+ <INTGO>
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <SUB LCL233 1 = LCL233 (TYPE FIX)>
+ <GRTR? LCL233 0 + RESTL111 (TYPE FIX)>
+RESTL112
+ <NTHL TEMP25 1 = AC-P110>
+ <DEAD TEMP25>
+ <JUMP + PHRASE113>
+PHRASE106
+ <CONS AC-P110 MOVES-FROM16 = MOVES-FROM16>
+ <DEAD AC-P110>
+ <FRAME '\1aFIND-FREE-TO>
+ <PUSH MOVES-TO14>
+ <PUSH MOVES-FROM16>
+ <CALL '\1aFIND-FREE-TO 2 = AC-P110>
+ <CONS AC-P110 () = TEMP25>
+ <PUTREST TEMP25 MOVES-TO14>
+ <DEAD MOVES-TO14>
+ <SET MOVES-TO14 TEMP25>
+ <DEAD TEMP25>
+PHRASE113
+ <TYPE? AC-P211 <TYPE-CODE FALSE> + PHRASE130>
+ <FRAME '\1aGET-AC>
+ <PUSH AC-P211>
+ <DEAD AC-P211>
+ <CALL '\1aGET-AC 1 = AC-P211>
+ <SET TEMP25 MOVES-TO14>
+ <EMPL? TEMP25 + PHRASE130>
+ <LOOP (AC-P211 VALUE) (TEMP25 VALUE)>
+TAG120
+ <NTHL TEMP25 1 = LCL233>
+ <TYPE? LCL233 <TYPE-CODE AC> - TAG121>
+ <VEQUAL? LCL233 AC-P211 + TAG119>
+ <DEAD LCL233>
+TAG121
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <EMPL? TEMP25 - TAG120>
+ <JUMP + PHRASE130>
+TAG119
+ <SET TEMP25 MOVES-FROM16>
+ <EMPL? TEMP25 + PHRASE123>
+ <LOOP (AC-P211 VALUE) (TEMP25 VALUE)>
+TAG126
+ <NTHL TEMP25 1 = LCL233>
+ <TYPE? LCL233 <TYPE-CODE AC> - TAG127>
+ <VEQUAL? LCL233 AC-P211 + TAG125>
+ <DEAD LCL233>
+TAG127
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <EMPL? TEMP25 - TAG126>
+ <JUMP + PHRASE123>
+TAG125
+ <SET AC32 TEMP25>
+ <DEAD TEMP25>
+ <LENL MOVES-FROM16 = TEMP25 (TYPE FIX)>
+ <LENL AC32 = LCL233 (TYPE FIX)>
+ <DEAD AC32>
+ <SUB TEMP25 LCL233 = TEMP25 (TYPE FIX)>
+ <DEAD LCL233>
+ <SUB TEMP25 -1 = TEMP25 (TYPE FIX)>
+ <SET LCL233 MOVES-TO14>
+ <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
+ <GRTR? TEMP25 0 - RESTL129 (TYPE FIX)>
+ <LOOP (LCL233 VALUE) (TEMP25 VALUE)>
+RESTL128
+ <INTGO>
+ <RESTL LCL233 1 = LCL233 (TYPE LIST)>
+ <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
+ <GRTR? TEMP25 0 + RESTL128 (TYPE FIX)>
+RESTL129
+ <NTHL LCL233 1 = AC-P211>
+ <DEAD LCL233>
+ <JUMP + PHRASE130>
+PHRASE123
+ <CONS AC-P211 MOVES-FROM16 = MOVES-FROM16>
+ <DEAD AC-P211>
+ <FRAME '\1aFIND-FREE-TO>
+ <PUSH MOVES-TO14>
+ <PUSH MOVES-FROM16>
+ <CALL '\1aFIND-FREE-TO 2 = AC-P211>
+ <CONS AC-P211 () = LCL233>
+ <PUTREST LCL233 MOVES-TO14>
+ <DEAD MOVES-TO14>
+ <SET MOVES-TO14 LCL233>
+ <DEAD LCL233>
+PHRASE130
+ <EMPL? MOVES-FROM16 + EXIT134 (TYPE LIST)>
+ <SET LCL233 'T (TYPE ATOM)>
+ <LOOP>
+AGAIN137
+ <INTGO>
+ <SET NEW-AC?34 %<> (TYPE FALSE)>
+ <SET TEMP25 MOVES-TO14 (TYPE LIST)>
+ <SET AC32 MOVES-FROM16 (TYPE LIST)>
+ <LOOP>
+MAP139
+ <INTGO>
+ <EMPL? TEMP25 + MAPAP142>
+ <EMPL? AC32 + MAPAP142>
+ <SET STAT30 TEMP25>
+ <SET PF147 AC32>
+ <NTHL STAT30 1 = TEMP57>
+ <NTHL PF147 1 = TEMP65>
+ <VEQUAL? TEMP65 TEMP57 - PHRASE157>
+ <DEAD TEMP65>
+ <PUTL PF147 1 %<>>
+ <DEAD PF147>
+ <PUTL STAT30 1 %<>>
+ <DEAD STAT30>
+ <JUMP + PHRASE161>
+PHRASE157
+ <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE161>
+ <SET LCL233 %<> (TYPE FALSE)>
+ <SET TEMP65 MOVES-FROM16>
+ <EMPL? TEMP65 + TAG162>
+ <LOOP (TEMP57 VALUE) (TEMP65 VALUE)>
+TAG163
+ <NTHL TEMP65 1 = TEMP165>
+ <TYPE? TEMP165 <TYPE-CODE AC> - TAG164>
+ <VEQUAL? TEMP165 TEMP57 + PHRASE161>
+ <DEAD TEMP165>
+TAG164
+ <RESTL TEMP65 1 = TEMP65 (TYPE LIST)>
+ <EMPL? TEMP65 - TAG163>
+TAG162
+ <NTHUV TEMP57 4 = AT1151 (TYPE FIX)>
+ <NTHL PF147 1 = AF153 (TYPE AC)>
+ <NTHUV AF153 4 = AT2152 (TYPE FIX)>
+ <SET NEW-AC?34 'T (TYPE ATOM)>
+ <RESTL STAT30 1 = TEMP65 (TYPE LIST)>
+ <EMPL? TEMP65 + PHRASE167 (TYPE LIST)>
+ <DEAD TEMP65>
+ <RESTL STAT30 1 = TEMP65 (TYPE LIST)>
+ <NTHL TEMP65 1 = P-TO?154>
+ <DEAD TEMP65>
+ <TYPE? P-TO?154 <TYPE-CODE FALSE> + PHRASE167>
+ <FRAME '\1aNEXT-AC>
+ <NTHUV P-TO?154 1 = STACK (TYPE ATOM)>
+ <CALL '\1aNEXT-AC 1 = TEMP65>
+ <NTHUV TEMP57 1 = TEMP165 (TYPE ATOM)>
+ <EQUAL? TEMP65 TEMP165 - PHRASE167>
+ <DEAD TEMP65 TEMP165>
+ <RESTL PF147 1 = TEMP165 (TYPE LIST)>
+ <NTHL TEMP165 1 = P-FROM155 (TYPE AC)>
+ <DEAD TEMP165>
+ <FRAME '\1aNEXT-AC>
+ <NTHUV P-FROM155 1 = STACK (TYPE ATOM)>
+ <CALL '\1aNEXT-AC 1 = TEMP165>
+ <NTHUV AF153 1 = TEMP65 (TYPE ATOM)>
+ <EQUAL? TEMP165 TEMP65 - PHRASE167>
+ <DEAD TEMP165 TEMP65>
+ <SET TEMP65 MOVES-FROM16>
+ <EMPL? TEMP65 + TAG171>
+ <LOOP (P-TO?154 VALUE) (TEMP65 VALUE)>
+TAG172
+ <NTHL TEMP65 1 = TEMP165>
+ <TYPE? TEMP165 <TYPE-CODE AC> - TAG173>
+ <VEQUAL? TEMP165 P-TO?154 + PHRASE167>
+ <DEAD TEMP165>
+TAG173
+ <RESTL TEMP65 1 = TEMP65 (TYPE LIST)>
+ <EMPL? TEMP65 - TAG172>
+TAG171
+ <NTHUV P-TO?154 4 = TEMP65 (TYPE FIX)>
+ <NTHUV P-FROM155 4 = TEMP165 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <NTHUV P-TO?154 1 = STACK (TYPE ATOM)>
+ <NTHUV P-FROM155 1 = STACK (TYPE ATOM)>
+ <CALL '\1aOCEMIT 3>
+ <PUTUV P-TO?154 4 TEMP65 (TYPE FIX)>
+ <DEAD P-TO?154 TEMP65>
+ <PUTUV P-FROM155 4 TEMP165 (TYPE FIX)>
+ <DEAD P-FROM155 TEMP165>
+ <RESTL STAT30 1 = TEMP65 (TYPE LIST)>
+ <PUTL TEMP65 1 %<>>
+ <DEAD TEMP65>
+ <RESTL PF147 1 = TEMP65 (TYPE LIST)>
+ <PUTL TEMP65 1 %<>>
+ <DEAD TEMP65>
+ <JUMP + PHRASE177>
+PHRASE167
+ <NTHUV AF153 6 = TEMP65>
+ <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE175>
+ <DEAD TEMP65>
+ <FRAME '\1aLOAD-TYPE-IN-AC>
+ <NTHUV TEMP57 1 = STACK (TYPE ATOM)>
+ <NTHUV AF153 6 = STACK (TYPE ATOM)>
+ <CALL '\1aLOAD-TYPE-IN-AC 2>
+ <JUMP + PHRASE177>
+PHRASE175
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <NTHUV TEMP57 1 = STACK (TYPE ATOM)>
+ <NTHUV AF153 1 = STACK (TYPE ATOM)>
+ <CALL '\1aOCEMIT 3>
+PHRASE177
+ <PUTUV TEMP57 4 AT1151 (TYPE FIX)>
+ <DEAD TEMP57 AT1151>
+ <PUTUV AF153 4 AT2152 (TYPE FIX)>
+ <DEAD AF153 AT2152>
+ <PUTL STAT30 1 %<>>
+ <DEAD STAT30>
+ <PUTL PF147 1 %<>>
+ <DEAD PF147>
+PHRASE161
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <RESTL AC32 1 = AC32 (TYPE LIST)>
+ <JUMP + MAP139>
+MAPAP142
+ <VEQUAL? LCL233 0 - EXIT134>
+ <DEAD LCL233>
+ <VEQUAL? NEW-AC?34 0 - MAPAP187>
+ <DEAD NEW-AC?34>
+ <SET AC32 MOVES-TO14 (TYPE LIST)>
+ <SET TEMP25 MOVES-FROM16 (TYPE LIST)>
+ <LOOP>
+MAP184
+ <INTGO>
+ <EMPL? AC32 + MAPAP187>
+ <EMPL? TEMP25 + MAPAP187>
+ <SET STAT30 AC32>
+ <SET PF147 TEMP25>
+ <NTHL STAT30 1 = LCL233>
+ <NTHL PF147 1 = NEW-AC?34>
+ <TYPE? LCL233 <TYPE-CODE FALSE> + PHRASE199>
+ <TYPE? NEW-AC?34 <TYPE-CODE FALSE> + PHRASE199>
+ <NTHUV LCL233 4 = AT1151 (TYPE FIX)>
+ <NTHUV NEW-AC?34 4 = AT2152 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'EXCH>
+ <NTHUV LCL233 1 = STACK (TYPE ATOM)>
+ <NTHUV NEW-AC?34 1 = STACK (TYPE ATOM)>
+ <CALL '\1aOCEMIT 3>
+ <PUTUV LCL233 4 AT1151 (TYPE FIX)>
+ <DEAD AT1151>
+ <PUTUV NEW-AC?34 4 AT2152 (TYPE FIX)>
+ <DEAD AT2152>
+ <PUTL STAT30 1 %<>>
+ <DEAD STAT30>
+ <PUTL PF147 1 %<>>
+ <DEAD PF147>
+ <SET TEMP25 MOVES-FROM16>
+ <EMPL? TEMP25 + TAG204>
+ <LOOP (LCL233 VALUE) (TEMP25 VALUE)>
+TAG206
+ <NTHL TEMP25 1 = TEMP165>
+ <TYPE? TEMP165 <TYPE-CODE AC> - TAG207>
+ <VEQUAL? TEMP165 LCL233 + TAG205>
+ <DEAD TEMP165>
+TAG207
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <EMPL? TEMP25 - TAG206>
+TAG204
+ <SET TEMP25 %<> (TYPE FALSE)>
+ <JUMP + PHRASE203>
+TAG205
+ <PUTL TEMP25 1 NEW-AC?34>
+PHRASE203
+ <SET AC32 MOVES-FROM16>
+ <EMPL? AC32 + MAPAP187>
+ <LOOP (NEW-AC?34 VALUE) (AC32 VALUE)>
+TAG213
+ <NTHL AC32 1 = TEMP165>
+ <TYPE? TEMP165 <TYPE-CODE AC> - TAG214>
+ <VEQUAL? TEMP165 NEW-AC?34 + TAG212>
+ <DEAD TEMP165>
+TAG214
+ <RESTL AC32 1 = AC32 (TYPE LIST)>
+ <EMPL? AC32 - TAG213>
+ <JUMP + MAPAP187>
+TAG212
+ <EQUAL? TEMP25 AC32 + MAPAP187>
+ <DEAD TEMP25>
+ <PUTL AC32 1 LCL233>
+ <DEAD AC32 LCL233>
+ <JUMP + MAPAP187>
+PHRASE199
+ <RESTL AC32 1 = AC32 (TYPE LIST)>
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <JUMP + MAP184>
+MAPAP187
+ <SET LCL233 'T (TYPE ATOM)>
+ <JUMP + AGAIN137>
+EXIT134
+ <TYPE? UNCND9 <TYPE-CODE FALSE> + PHRASE216>
+ <DEAD UNCND9>
+ <FRAME '\1aFLUSH-ACS>
+ <CALL '\1aFLUSH-ACS 0>
+ <JUMP + PHRASE218>
+PHRASE216
+ <TYPE? LOOP?13 <TYPE-CODE FALSE> + PHRASE218>
+ <DEAD LOOP?13>
+ <FRAME '\1aLOGICAL-ESTABLISH>
+ <PUSH LS12>
+ <DEAD LS12>
+ <CALL '\1aLOGICAL-ESTABLISH 1>
+PHRASE218
+ <SET TEMP25 AC-P110>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE224>
+ <TYPE? AC-P211 <TYPE-CODE FALSE> + PHRASE223>
+ <NTHUV AC-P211 1 = LOOP?13 (TYPE ATOM)>
+ <DEAD AC-P211>
+ <CONS LOOP?13 () = TEMP25>
+ <DEAD LOOP?13>
+ <NTHUV AC-P110 1 = LOOP?13 (TYPE ATOM)>
+ <DEAD AC-P110>
+ <CONS LOOP?13 TEMP25 = TEMP25>
+ <DEAD LOOP?13>
+ <RETURN TEMP25>
+ <DEAD TEMP25>
+PHRASE223
+ <NTHUV AC-P110 1 = LOOP?13 (TYPE ATOM)>
+ <DEAD AC-P110>
+ <CONS LOOP?13 () = TEMP25>
+ <DEAD LOOP?13>
+PHRASE224
+ <RETURN TEMP25>
+ <DEAD TEMP25>
+ <END \1aESTABLISH-BRANCH-STATE>\r\r
+#WORD *3174103032*
+<GFCN \1aFIND-FREE-TO ("VALUE" <OR AC FALSE> <LIST [REST AC]> <LIST [REST AC]>) L15 L26>
+ <TEMP (BEST7 %<>) TEMP19:VECTOR AC20:AC TEMP26:LIST TEMP27>
+ <INTGO>
+ <GVAL 'AC-PAIR-TABLE = TEMP19>
+ <LOOP>
+MAP9
+ <INTGO>
+ <EMPUV? TEMP19 + MAPAP12>
+ <NTHUV TEMP19 1 = AC20>
+ <SET TEMP26 L15>
+ <EMPL? TEMP26 + TAG23>
+ <LOOP (AC20 VALUE) (TEMP26 VALUE)>
+TAG24
+ <NTHL TEMP26 1 = TEMP27>
+ <VEQUAL? TEMP27 AC20 + PHRASE33>
+ <DEAD TEMP27>
+ <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
+ <EMPL? TEMP26 - TAG24>
+TAG23
+ <DEAD TEMP26>
+ <SET TEMP26 L26>
+ <EMPL? TEMP26 + PHRASE29>
+ <LOOP (AC20 VALUE) (TEMP26 VALUE)>
+TAG31
+ <NTHL TEMP26 1 = TEMP27>
+ <VEQUAL? TEMP27 AC20 + TAG30>
+ <DEAD TEMP27>
+ <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
+ <EMPL? TEMP26 - TAG31>
+ <DEAD TEMP26>
+ <JUMP + PHRASE29>
+TAG30
+ <RETURN AC20>
+PHRASE29
+ <TYPE? BEST7 <TYPE-CODE FALSE> - PHRASE33>
+ <SET BEST7 AC20>
+ <DEAD AC20>
+PHRASE33
+ <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
+ <JUMP + MAP9>
+MAPAP12
+ <DEAD L15 L26 TEMP19>
+ <RETURN BEST7>
+ <DEAD BEST7>
+ <END \1aFIND-FREE-TO>
+#WORD *21771336722*
+<GFCN \1aLOGICAL-ESTABLISH ("VALUE" <OR FALSE AC> LABSTATE) LS4>
+ <TEMP TEMP14 TEMP11:VECTOR STAT16:ACSTATE TEMP20>
+ <INTGO>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <CHTYPE LS4 <TYPE-CODE VECTOR> = TEMP11>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPUV? TEMP11 + MAPAP9>
+ <NTHUV TEMP11 1 = STAT16>
+ <NTHUV STAT16 1 = TEMP14 (TYPE AC)>
+ <NTHUV STAT16 2 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE19>
+ <DEAD TEMP20>
+ <NTHUV STAT16 2 = TEMP20 (TYPE LOCAL)>
+ <NTHUV TEMP20 1 = TEMP20 (TYPE ATOM)>
+ <PUTUV TEMP14 2 TEMP20>
+ <DEAD TEMP20>
+ <NTHUV STAT16 5 = TEMP20 (TYPE ATOM)>
+ <PUTUV TEMP14 3 TEMP20 (TYPE ATOM)>
+ <DEAD TEMP20>
+ <NTHUV STAT16 3 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> - TAG21>
+ <DEAD TEMP20>
+ <SET TEMP20 'T (TYPE ATOM)>
+ <JUMP + TAG22>
+TAG21
+ <SET TEMP20 %<> (TYPE FALSE)>
+TAG22
+ <PUTUV TEMP14 5 TEMP20>
+ <DEAD TEMP20>
+ <NTHUV STAT16 4 = TEMP20>
+ <DEAD STAT16>
+ <PUTUV TEMP14 6 TEMP20>
+ <DEAD TEMP20>
+ <JUMP + PHRASE25>
+PHRASE19
+ <FRAME '\1aFIND-LOCAL>
+ <NTHUV TEMP14 2 = STACK>
+ <NTHUV TEMP14 3 = STACK (TYPE ATOM)>
+ <PUSH LS4>
+ <CALL '\1aFIND-LOCAL 3 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE23>
+ <DEAD TEMP20>
+ <PUTUV TEMP14 6 %<>>
+ <PUTUV TEMP14 3 'DUMMY (TYPE ATOM)>
+ <PUTUV TEMP14 2 %<>>
+ <PUTUV TEMP14 4 0 (TYPE FIX)>
+ <JUMP + PHRASE25>
+PHRASE23
+ <NTHUV TEMP14 3 = TEMP20 (TYPE ATOM)>
+ <VEQUAL? TEMP20 'TYPE + TAG27>
+ <DEAD TEMP20>
+ <NTHUV TEMP14 3 = TEMP20 (TYPE ATOM)>
+ <VEQUAL? TEMP20 'VALUE + TAG27>
+ <DEAD TEMP20>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <JUMP + PHRASE25>
+TAG27
+ <PUTUV TEMP14 5 %<>>
+PHRASE25
+ <RESTUV TEMP11 1 = TEMP11 (TYPE VECTOR)>
+ <JUMP + MAP6>
+MAPAP9
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aLOGICAL-ESTABLISH>
+#WORD *27723763161*
+<GFCN \1aESTABLISH-UPDATE ("VALUE" <OR FALSE AC> LABSTATE) LS5>
+ <TEMP TEMP15 TEMP12:VECTOR STAT17:ACSTATE TEMP23>
+ <INTGO>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <CHTYPE LS5 <TYPE-CODE VECTOR> = TEMP12>
+ <DEAD LS5>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPUV? TEMP12 + MAPAP10>
+ <NTHUV TEMP12 1 = STAT17>
+ <NTHUV STAT17 1 = TEMP15 (TYPE AC)>
+ <NTHUV STAT17 2 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL22>
+ <DEAD TEMP23>
+ <NTHUV STAT17 3 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> - TAG24>
+ <DEAD TEMP23>
+BOOL22
+ <NTHUV STAT17 2 = TEMP23>
+ <DEAD STAT17>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + TAG24>
+ <DEAD TEMP23>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + PHRASE20>
+TAG24
+ <PUTUV TEMP15 5 %<>>
+PHRASE20
+ <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aESTABLISH-UPDATE>
+#WORD *34630654702*
+<GFCN \1aFIND-LOCAL ("VALUE" <OR ATOM FALSE> ANY ANY LABSTATE "OPTIONAL" ANY) ATM8 COD9 LS10 STORE-CHECK11>
+ <OPT-DISPATCH 3 %<> OPT6 OPT7>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP TEMP21 TEMP18:VECTOR STAT23:ACSTATE>
+ <INTGO>
+ <SET TEMP21 %<> (TYPE FALSE)>
+ <CHTYPE LS10 <TYPE-CODE VECTOR> = TEMP18>
+ <DEAD LS10>
+ <LOOP>
+MAP13
+ <INTGO>
+ <EMPUV? TEMP18 + MAPAP16>
+ <NTHUV TEMP18 1 = STAT23>
+ <NTHUV STAT23 2 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE25>
+ <NTHUV STAT23 2 = TEMP21 (TYPE LOCAL)>
+ <NTHUV TEMP21 1 = TEMP21 (TYPE ATOM)>
+ <EQUAL? TEMP21 ATM8 + TAG27>
+ <DEAD TEMP21>
+ <SET TEMP21 %<> (TYPE FALSE)>
+ <JUMP + PHRASE25>
+TAG27
+ <NTHUV STAT23 5 = TEMP21 (TYPE ATOM)>
+ <EQUAL? TEMP21 COD9 + TAG29>
+ <DEAD TEMP21>
+ <SET TEMP21 %<> (TYPE FALSE)>
+ <JUMP + PHRASE25>
+TAG29
+ <TYPE? STORE-CHECK11 <TYPE-CODE FALSE> + TAG31>
+ <NTHUV STAT23 3 = TEMP21>
+ <DEAD STAT23>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + TAG31>
+ <DEAD TEMP21>
+ <SET TEMP21 %<> (TYPE FALSE)>
+ <JUMP + PHRASE25>
+TAG31
+ <RETURN 'T>
+PHRASE25
+ <RESTUV TEMP18 1 = TEMP18 (TYPE VECTOR)>
+ <JUMP + MAP13>
+MAPAP16
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+ <END \1aFIND-LOCAL>
+#WORD *20102446170*
+<GFCN \1aFIND-AC ("VALUE" <OR AC FALSE> LOCAL ANY) LCL5 COD6>
+ <TEMP ATM7:ATOM TEMP17 TEMP19:VECTOR AC20:AC>
+ <INTGO>
+ <NTHUV LCL5 1 = ATM7 (TYPE ATOM)>
+ <DEAD LCL5>
+ <SET TEMP17 %<> (TYPE FALSE)>
+ <GVAL 'AC-PAIR-TABLE = TEMP19>
+ <LOOP>
+MAP9
+ <INTGO>
+ <EMPUV? TEMP19 + MAPAP12>
+ <NTHUV TEMP19 1 = AC20>
+ <NTHUV AC20 2 = TEMP17>
+ <EQUAL? TEMP17 ATM7 + TAG24>
+ <DEAD TEMP17>
+ <SET TEMP17 %<> (TYPE FALSE)>
+ <JUMP + PHRASE22>
+TAG24
+ <NTHUV AC20 3 = TEMP17 (TYPE ATOM)>
+ <EQUAL? TEMP17 COD6 + TAG26>
+ <DEAD TEMP17>
+ <SET TEMP17 %<> (TYPE FALSE)>
+ <JUMP + PHRASE22>
+TAG26
+ <RETURN AC20>
+ <DEAD AC20>
+PHRASE22
+ <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
+ <JUMP + MAP9>
+MAPAP12
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aFIND-AC>
+#WORD *6770456464*
+<GFCN \1aESTABLISH-LABEL-STATE ("VALUE" ATOM LAB "OPTIONAL" <OR FALSE LABSTATE>) LB8 LS9>
+ <OPT-DISPATCH 1 %<> OPT6 OPT7>
+OPT6
+ <PUSH #T$UNBOUND 0>
+OPT7
+ <TEMP TEMP20:VECTOR STAT25:ACSTATE AC26:AC TEMP31 ACL27 TEMP33>
+ <INTGO>
+ <TYPE? LS9 <TYPE-CODE UNBOUND> - TAG10>
+ <NTHUV LB8 5 = LS9>
+ <DEAD LB8>
+TAG10
+ <TYPE? LS9 <TYPE-CODE FALSE> + PHRASE13>
+ <CHTYPE LS9 <TYPE-CODE VECTOR> = TEMP20>
+ <DEAD LS9>
+ <LOOP>
+MAP15
+ <INTGO>
+ <EMPUV? TEMP20 + MAPAP18>
+ <NTHUV TEMP20 1 = STAT25>
+ <NTHUV STAT25 1 = AC26 (TYPE AC)>
+ <GVAL 'LAST-UNCON = TEMP31>
+ <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE29>
+ <DEAD TEMP31>
+ <NTHUV STAT25 2 = ACL27>
+ <TYPE? ACL27 <TYPE-CODE FALSE> - BOOL32>
+ <EMPL? ACL27 + BOOL32 (TYPE FALSE)>
+ <NTHL ACL27 1 = TEMP31 (TYPE LOCAL)>
+ <NTHUV TEMP31 1 = TEMP31 (TYPE ATOM)>
+ <NTHUV AC26 2 = TEMP33>
+ <EQUAL? TEMP31 TEMP33 + PHRASE29>
+ <DEAD TEMP31 TEMP33>
+BOOL32
+ <TYPE? ACL27 <TYPE-CODE FALSE> + BOOL36>
+ <NTHUV STAT25 3 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE29>
+ <DEAD TEMP33>
+ <NTHUV STAT25 4 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + BOOL36>
+ <DEAD TEMP33>
+ <NTHUV ACL27 4 = TEMP33>
+ <DEAD ACL27>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE29>
+ <DEAD TEMP33>
+BOOL36
+ <NTHUV AC26 5 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE29>
+ <DEAD TEMP33>
+ <FRAME '\1aUPDATE-AC>
+ <PUSH AC26>
+ <PUSH 'T>
+ <CALL '\1aUPDATE-AC 2>
+PHRASE29
+ <NTHUV STAT25 2 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE39>
+ <DEAD TEMP33>
+ <PUTUV AC26 5 %<>>
+ <PUTUV AC26 2 %<>>
+ <PUTUV AC26 3 'DUMMY (TYPE ATOM)>
+ <DEAD AC26>
+ <JUMP + PHRASE40>
+PHRASE39
+ <NTHUV STAT25 5 = TEMP33 (TYPE ATOM)>
+ <PUTUV AC26 3 TEMP33 (TYPE ATOM)>
+ <DEAD TEMP33>
+ <NTHUV STAT25 2 = TEMP33 (TYPE LOCAL)>
+ <NTHUV TEMP33 1 = TEMP33 (TYPE ATOM)>
+ <PUTUV AC26 2 TEMP33>
+ <DEAD TEMP33>
+ <NTHUV STAT25 3 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> - TAG41>
+ <DEAD TEMP33>
+ <SET TEMP33 'T (TYPE ATOM)>
+ <JUMP + TAG42>
+TAG41
+ <SET TEMP33 %<> (TYPE FALSE)>
+TAG42
+ <PUTUV AC26 5 TEMP33>
+ <DEAD TEMP33>
+ <NTHUV STAT25 4 = TEMP33>
+ <DEAD STAT25>
+ <PUTUV AC26 6 TEMP33>
+ <DEAD AC26 TEMP33>
+PHRASE40
+ <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
+ <JUMP + MAP15>
+MAPAP18
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'O*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'O*>
+ <CALL '\1aMUNGED-AC 1>
+ <RETURN 'T>
+PHRASE13
+ <FRAME '\1aFLUSH-ACS>
+ <CALL '\1aFLUSH-ACS 0>
+ <RETURN 'T>
+ <END \1aESTABLISH-LABEL-STATE>
+#WORD *14064571714*
+<GFCN \1aPLS ("VALUE" <OR ATOM FALSE> ANY) LAB5>
+ <TEMP (N6:FIX 0) TEMP11 TEMP55:LIST>
+ <INTGO>
+ <TYPE? LAB5 <TYPE-CODE ATOM> - PHRASE8>
+ <FRAME '\1aFIND-LABEL>
+ <PUSH LAB5>
+ <DEAD LAB5>
+ <CALL '\1aFIND-LABEL 1 = LAB5>
+PHRASE8
+ <FRAME '\1aCRLF>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1>
+ <FRAME '\1aPRINC>
+ <PUSH "States for label: ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV LAB5 1 = STACK (TYPE ATOM)>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <NTHUV LAB5 3 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE23>
+ <DEAD TEMP11>
+ <FRAME '\1aPRINC>
+ <PUSH " (loop)">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+PHRASE23
+ <FRAME '\1aCRLF>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1>
+ <FRAME '\1aCRLF>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1>
+ <NTHUV LAB5 5 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE37>
+ <DEAD TEMP11>
+ <FRAME '\1aPRINC>
+ <PUSH "Current final state">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aCRLF>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1>
+ <FRAME '\1aCRLF>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1>
+ <FRAME '\1aPSTATE>
+ <NTHUV LAB5 5 = STACK (TYPE LABSTATE)>
+ <CALL '\1aPSTATE 1>
+PHRASE37
+ <NTHUV LAB5 4 = TEMP55 (TYPE LIST)>
+ <EMPL? TEMP55 - TAG54 (TYPE LIST)>
+ <DEAD TEMP55>
+ <RETURN %<>>
+TAG54
+ <SET TEMP11 %<> (TYPE FALSE)>
+ <NTHUV LAB5 4 = TEMP55 (TYPE LIST)>
+ <DEAD LAB5>
+ <LOOP>
+MAP57
+ <INTGO>
+ <EMPL? TEMP55 + MAPAP60>
+ <NTHL TEMP55 1 = TEMP11>
+ <FRAME '\1aPRINC>
+ <PUSH "State ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <ADD N6 1 = N6 (TYPE FIX)>
+ <PUSH N6>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aCRLF>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1>
+ <FRAME '\1aCRLF>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1>
+ <FRAME '\1aPSTATE>
+ <PUSH TEMP11>
+ <DEAD TEMP11>
+ <CALL '\1aPSTATE 1 = TEMP11>
+ <RESTL TEMP55 1 = TEMP55 (TYPE LIST)>
+ <JUMP + MAP57>
+MAPAP60
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aPLS>\r\r
+#WORD *3246220743*
+<GFCN \1aPSTATE ("VALUE" <OR ATOM FALSE> LABSTATE) LS5>
+ <TEMP TEMP15 TEMP12:VECTOR ACS17:ACSTATE>
+ <INTGO>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <CHTYPE LS5 <TYPE-CODE VECTOR> = TEMP12>
+ <DEAD LS5>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPUV? TEMP12 + MAPAP10>
+ <NTHUV TEMP12 1 = ACS17>
+ <NTHUV ACS17 2 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE19>
+ <DEAD TEMP15>
+ <FRAME '\1aPRIN1>
+ <NTHUV ACS17 1 = TEMP15 (TYPE AC)>
+ <NTHUV TEMP15 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP15>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV ACS17 2 = TEMP15 (TYPE LOCAL)>
+ <NTHUV TEMP15 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP15>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <NTHUV ACS17 3 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE34>
+ <DEAD TEMP15>
+ <SET TEMP15 " stored " (TYPE STRING)>
+ <JUMP + PHRASE36>
+PHRASE34
+ <SET TEMP15 " not stored " (TYPE STRING)>
+PHRASE36
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <NTHUV ACS17 4 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE40>
+ <DEAD TEMP15>
+ <FRAME '\1aPRINC>
+ <PUSH "type is ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV ACS17 4 = STACK>
+ <DEAD ACS17>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+PHRASE40
+ <FRAME '\1aCRLF>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1 = TEMP15>
+ <JUMP + PHRASE53>
+PHRASE19
+ <NTHUV ACS17 3 = TEMP15>
+ <EQUAL? TEMP15 'DEAD + TAG54>
+ <DEAD TEMP15>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + PHRASE53>
+TAG54
+ <FRAME '\1aPRIN1>
+ <NTHUV ACS17 1 = TEMP15 (TYPE AC)>
+ <NTHUV TEMP15 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP15>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV ACS17 2 = TEMP15>
+ <DEAD ACS17>
+ <NTH1 TEMP15 = TEMP15>
+ <NTHUV TEMP15 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP15>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " dead!">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aCRLF>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1 = TEMP15>
+PHRASE53
+ <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aPSTATE>\r\r
+#WORD *16127243605*
+<GFCN \1aMERGE-LABEL-STATES ("VALUE" <OR FALSE LAB>)>
+ <TEMP TEMP14 TEMP16:LIST LS18 TEM19>
+ <INTGO>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <GVAL 'LABELS = TEMP16>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPL? TEMP16 + MAPAP9>
+ <NTHL TEMP16 1 = TEMP14>
+ <NTHUV TEMP14 4 = LS18 (TYPE LIST)>
+ <NTHUV TEMP14 5 = TEM19>
+ <TYPE? TEM19 <TYPE-CODE FALSE> - PHRASE21>
+ <EMPL? LS18 + PHRASE21 (TYPE LIST)>
+ <NTHL LS18 1 = TEM19 (TYPE LABSTATE)>
+ <RESTL LS18 1 = LS18 (TYPE LIST)>
+PHRASE21
+ <EMPL? LS18 + PHRASE23 (TYPE LIST)>
+ <FRAME '\1aMERGE-ONE-SET>
+ <PUSH TEM19>
+ <DEAD TEM19>
+ <PUSH LS18>
+ <DEAD LS18>
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <CALL '\1aMERGE-ONE-SET 3 = TEMP14>
+ <JUMP + PHRASE25>
+PHRASE23
+ <PUTUV TEMP14 4 () (TYPE LIST)>
+ <PUTUV TEMP14 5 TEM19>
+ <DEAD TEM19>
+PHRASE25
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <JUMP + MAP6>
+MAPAP9
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aMERGE-LABEL-STATES>
+#WORD *25152322354*
+<GFCN \1aMERGE-ONE-SET ("VALUE" LAB LABSTATE <LIST LABSTATE [REST LABSTATE]> LAB) FIRST5 RESTP6 LAB7>
+ <TEMP TEMP14:LIST NEXT19:LABSTATE TEMP23>
+ <INTGO>
+ <SET TEMP14 RESTP6 (TYPE LIST)>
+ <DEAD RESTP6>
+ <LOOP>
+MAP9
+ <INTGO>
+ <EMPL? TEMP14 + MAPAP12>
+ <NTHL TEMP14 1 = NEXT19>
+ <NTHUV LAB7 3 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE22>
+ <DEAD TEMP23>
+ <FRAME '\1aMERGE-TWO-FORCE>
+ <PUSH FIRST5>
+ <PUSH NEXT19>
+ <DEAD NEXT19>
+ <CALL '\1aMERGE-TWO-FORCE 2 = TEMP23>
+ <JUMP + PHRASE25>
+PHRASE22
+ <FRAME '\1aMERGE-TWO>
+ <PUSH FIRST5>
+ <PUSH NEXT19>
+ <DEAD NEXT19>
+ <CALL '\1aMERGE-TWO 2 = TEMP23>
+PHRASE25
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE28>
+ <SETG 'CHANGED TEMP23>
+ <DEAD TEMP23>
+PHRASE28
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <JUMP + MAP9>
+MAPAP12
+ <PUTUV LAB7 5 FIRST5>
+ <DEAD FIRST5>
+ <PUTUV LAB7 4 () (TYPE LIST)>
+ <RETURN LAB7>
+ <DEAD LAB7>
+ <END \1aMERGE-ONE-SET>
+#WORD *30702122641*
+<GFCN \1aMERGE-TWO ("VALUE" <OR ATOM FALSE> LABSTATE LABSTATE) ONE5 TWO6>
+ <TEMP (CHANGED7 %<>) TEMP14:VECTOR TEMP15:VECTOR TEMP21:VECTOR AP122:VECTOR AP223:VECTOR NSP24 ACST125 ACST226 LD28 TEMP33>
+ <INTGO>
+ <CHTYPE ONE5 <TYPE-CODE VECTOR> = TEMP14>
+ <DEAD ONE5>
+ <CHTYPE TWO6 <TYPE-CODE VECTOR> = TEMP15>
+ <DEAD TWO6>
+ <GVAL 'NULL-STATES = TEMP21>
+ <LOOP>
+MAP9
+ <INTGO>
+ <EMPUV? TEMP14 + MAPAP12>
+ <EMPUV? TEMP15 + MAPAP12>
+ <EMPUV? TEMP21 + MAPAP12>
+ <SET AP122 TEMP14>
+ <SET AP223 TEMP15>
+ <SET NSP24 TEMP21>
+ <NTHUV AP122 1 = ACST125 (TYPE ACSTATE)>
+ <NTHUV AP223 1 = ACST226 (TYPE ACSTATE)>
+ <NTHUV NSP24 1 = NSP24 (TYPE ACSTATE)>
+ <SET LD28 %<> (TYPE FALSE)>
+ <NTHUV ACST125 2 = LD28>
+ <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE30>
+ <DEAD LD28>
+ <NTHUV ACST226 2 = LD28>
+ <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE30>
+ <DEAD LD28>
+ <NTHUV ACST125 2 = LD28 (TYPE LOCAL)>
+ <NTHUV LD28 1 = LD28 (TYPE ATOM)>
+ <NTHUV ACST226 2 = TEMP33 (TYPE LOCAL)>
+ <NTHUV TEMP33 1 = TEMP33 (TYPE ATOM)>
+ <VEQUAL? LD28 TEMP33 - PHRASE30>
+ <DEAD LD28 TEMP33>
+ <NTHUV ACST125 5 = TEMP33 (TYPE ATOM)>
+ <NTHUV ACST226 5 = LD28 (TYPE ATOM)>
+ <VEQUAL? TEMP33 LD28 - PHRASE30>
+ <DEAD TEMP33>
+ <NTHUV ACST125 4 = LD28>
+ <NTHUV ACST226 4 = TEMP33>
+ <EQUAL? LD28 TEMP33 + BOOL34>
+ <DEAD LD28 TEMP33>
+ <NTHUV ACST125 2 = TEMP33 (TYPE LOCAL)>
+ <NTHUV TEMP33 4 = LD28>
+ <DEAD TEMP33>
+ <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE30>
+ <PUTUV ACST125 3 'T>
+ <PUTUV ACST125 4 LD28>
+ <PUTUV ACST226 3 'T>
+ <PUTUV ACST226 4 LD28>
+ <DEAD LD28>
+ <NTHUV ACST125 2 = TEMP33 (TYPE LOCAL)>
+ <NTHUV TEMP33 1 = CHANGED7 (TYPE ATOM)>
+ <DEAD TEMP33>
+BOOL34
+ <NTHUV ACST226 3 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> - TAG38>
+ <DEAD TEMP33>
+ <SET TEMP33 'T (TYPE ATOM)>
+ <JUMP + TAG39>
+TAG38
+ <SET TEMP33 %<> (TYPE FALSE)>
+TAG39
+ <NTHUV ACST125 3 = LD28>
+ <TYPE? LD28 <TYPE-CODE FALSE> - TAG40>
+ <DEAD LD28>
+ <SET LD28 'T (TYPE ATOM)>
+ <JUMP + TAG41>
+TAG40
+ <SET LD28 %<> (TYPE FALSE)>
+TAG41
+ <EQUAL? TEMP33 LD28 + PHRASE52>
+ <DEAD TEMP33>
+ <NTHUV ACST125 2 = LD28 (TYPE LOCAL)>
+ <NTHUV LD28 1 = CHANGED7 (TYPE ATOM)>
+ <DEAD LD28>
+ <NTHUV ACST125 4 = LD28>
+ <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE43>
+ <DEAD LD28>
+ <NTHUV ACST125 2 = LD28 (TYPE LOCAL)>
+ <NTHUV LD28 4 = LD28>
+ <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE43>
+ <DEAD LD28>
+ <PUTUV ACST125 3 'T>
+ <DEAD ACST125>
+ <JUMP + PHRASE52>
+PHRASE43
+ <NTHUV ACST125 3 = LD28>
+ <EQUAL? LD28 'HACKED + BOOL46>
+ <DEAD LD28>
+ <NTHUV ACST226 3 = LD28>
+ <DEAD ACST226>
+ <EQUAL? LD28 'HACKED - PHRASE45>
+ <DEAD LD28>
+BOOL46
+ <PUTUV ACST125 3 'HACKED>
+ <DEAD ACST125>
+ <JUMP + PHRASE52>
+PHRASE45
+ <PUTUV ACST125 3 %<>>
+ <DEAD ACST125>
+ <JUMP + PHRASE52>
+PHRASE30
+ <VEQUAL? ACST125 NSP24 - PHRASE50>
+ <DEAD NSP24>
+ <PUTUV AP122 1 ACST226>
+ <DEAD ACST226>
+ <SET ACST226 ACST125>
+ <DEAD ACST125>
+ <PUTUV AP223 1 ACST226>
+ <DEAD AP223>
+ <NTHUV AP122 1 = ACST125 (TYPE ACSTATE)>
+ <DEAD AP122>
+PHRASE50
+ <NTHUV ACST125 2 = LD28>
+ <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE52>
+ <DEAD LD28>
+ <NTHUV ACST226 2 = LD28>
+ <TYPE? LD28 <TYPE-CODE FALSE> - BOOL54>
+ <DEAD LD28>
+ <NTHUV ACST226 2 = LD28 (TYPE FALSE)>
+ <EMPL? LD28 + BOOL54 (TYPE FALSE)>
+ <DEAD LD28>
+ <NTHUV ACST125 2 = LD28 (TYPE LOCAL)>
+ <NTHUV LD28 1 = LD28 (TYPE ATOM)>
+ <NTHUV ACST226 2 = TEMP33 (TYPE FALSE)>
+ <DEAD ACST226>
+ <NTHL TEMP33 1 = TEMP33 (TYPE LOCAL)>
+ <NTHUV TEMP33 1 = TEMP33 (TYPE ATOM)>
+ <VEQUAL? LD28 TEMP33 + PHRASE52>
+ <DEAD LD28 TEMP33>
+BOOL54
+ <NTHUV ACST125 2 = TEMP33 (TYPE LOCAL)>
+ <NTHUV TEMP33 1 = CHANGED7 (TYPE ATOM)>
+ <DEAD TEMP33>
+ <NTHUV ACST125 2 = TEMP33 (TYPE LOCAL)>
+ <PUTUV TEMP33 2 'T>
+ <DEAD TEMP33>
+ <PUTUV ACST125 2 %<>>
+ <PUTUV ACST125 3 %<>>
+ <DEAD ACST125>
+PHRASE52
+ <RESTUV TEMP14 1 = TEMP14 (TYPE VECTOR)>
+ <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
+ <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
+ <JUMP + MAP9>
+MAPAP12
+ <RETURN CHANGED7>
+ <DEAD CHANGED7>
+ <END \1aMERGE-TWO>
+#WORD *6716626442*
+<GFCN \1aMERGE-TWO-FORCE ("VALUE" ANY LABSTATE LABSTATE) ONE5 TWO6>
+ <TEMP (CHANGED7 %<>) (WINNERS8:FIX 0) TEMP15:VECTOR ACST120:ACSTATE TEMP23 TEMP32 ACST234:ACSTATE LCL35 TEMP41>
+ <INTGO>
+ <CHTYPE ONE5 <TYPE-CODE VECTOR> = TEMP15>
+ <DEAD ONE5>
+ <LOOP>
+MAP10
+ <INTGO>
+ <EMPUV? TEMP15 + MAPAP13>
+ <NTHUV TEMP15 1 = ACST120>
+ <NTHUV ACST120 2 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL22>
+ <DEAD TEMP23>
+ <ADD WINNERS8 1 = WINNERS8 (TYPE FIX)>
+ <SET TEMP32 %<> (TYPE FALSE)>
+ <CHTYPE TWO6 <TYPE-CODE VECTOR> = TEMP23>
+ <LOOP>
+MAP25
+ <INTGO>
+ <EMPUV? TEMP23 + MAPAP28>
+ <NTHUV TEMP23 1 = ACST234>
+ <NTHUV ACST234 2 = LCL35>
+ <SET TEMP32 LCL35>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE37>
+ <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
+ <NTHUV TEMP32 1 = TEMP32 (TYPE ATOM)>
+ <NTHUV ACST234 2 = TEMP41 (TYPE LOCAL)>
+ <NTHUV TEMP41 1 = TEMP41 (TYPE ATOM)>
+ <VEQUAL? TEMP32 TEMP41 + TAG39>
+ <DEAD TEMP32 TEMP41>
+ <SET TEMP32 %<> (TYPE FALSE)>
+ <JUMP + PHRASE37>
+TAG39
+ <NTHUV ACST120 5 = TEMP41 (TYPE ATOM)>
+ <NTHUV ACST234 5 = TEMP32 (TYPE ATOM)>
+ <VEQUAL? TEMP41 TEMP32 + TAG42>
+ <DEAD TEMP41>
+ <SET TEMP32 %<> (TYPE FALSE)>
+ <JUMP + PHRASE37>
+TAG42
+ <NTHUV ACST120 4 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - BOOL44>
+ <DEAD TEMP32>
+ <NTHUV ACST234 4 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + BOOL43>
+ <DEAD TEMP32>
+BOOL44
+ <NTHUV ACST120 4 = TEMP32>
+ <NTHUV ACST234 4 = TEMP41>
+ <EQUAL? TEMP32 TEMP41 - BOOL45>
+ <DEAD TEMP32 TEMP41>
+ <NTHUV ACST120 3 = TEMP41>
+ <TYPE? TEMP41 <TYPE-CODE FALSE> - TAG47>
+ <DEAD TEMP41>
+ <SET TEMP41 'T (TYPE ATOM)>
+ <JUMP + TAG48>
+TAG47
+ <SET TEMP41 %<> (TYPE FALSE)>
+TAG48
+ <NTHUV ACST234 3 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - TAG49>
+ <DEAD TEMP32>
+ <SET TEMP32 'T (TYPE ATOM)>
+ <JUMP + TAG50>
+TAG49
+ <SET TEMP32 %<> (TYPE FALSE)>
+TAG50
+ <EQUAL? TEMP41 TEMP32 + BOOL43>
+ <DEAD TEMP41>
+ <NTHUV LCL35 4 = TEMP32>
+ <DEAD LCL35>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + BOOL51>
+ <DEAD TEMP32>
+ <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
+ <NTHUV TEMP32 1 = CHANGED7 (TYPE ATOM)>
+ <DEAD TEMP32>
+ <PUTUV ACST120 3 'T>
+ <PUTUV ACST234 3 'T>
+ <JUMP + BOOL43>
+BOOL51
+ <NTHUV ACST120 3 = TEMP32>
+ <EQUAL? TEMP32 'HACKED + BOOL53>
+ <DEAD TEMP32>
+ <NTHUV ACST234 3 = TEMP32>
+ <EQUAL? TEMP32 'HACKED - BOOL52>
+ <DEAD TEMP32>
+BOOL53
+ <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
+ <NTHUV TEMP32 1 = CHANGED7 (TYPE ATOM)>
+ <DEAD TEMP32>
+ <PUTUV ACST120 3 'HACKED>
+ <PUTUV ACST234 3 'HACKED>
+ <JUMP + BOOL43>
+BOOL52
+ <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
+ <NTHUV TEMP32 1 = CHANGED7 (TYPE ATOM)>
+ <DEAD TEMP32>
+ <PUTUV ACST120 3 %<>>
+ <PUTUV ACST234 3 %<>>
+ <JUMP + BOOL43>
+BOOL45
+ <NTHUV LCL35 4 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE37>
+ <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
+ <NTHUV TEMP32 1 = CHANGED7 (TYPE ATOM)>
+ <DEAD TEMP32>
+ <NTHUV LCL35 4 = TEMP32 (TYPE ATOM)>
+ <PUTUV ACST120 4 TEMP32>
+ <DEAD TEMP32>
+ <PUTUV ACST120 3 'T>
+ <NTHUV LCL35 4 = TEMP32>
+ <DEAD LCL35>
+ <PUTUV ACST234 4 TEMP32>
+ <DEAD TEMP32>
+ <PUTUV ACST234 3 'T>
+BOOL43
+ <NTHUV ACST120 3 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - TAG58>
+ <DEAD TEMP32>
+ <SET TEMP32 'T (TYPE ATOM)>
+ <JUMP + TAG59>
+TAG58
+ <SET TEMP32 %<> (TYPE FALSE)>
+TAG59
+ <NTHUV ACST234 3 = TEMP41>
+ <TYPE? TEMP41 <TYPE-CODE FALSE> - TAG60>
+ <DEAD TEMP41>
+ <SET TEMP41 'T (TYPE ATOM)>
+ <JUMP + TAG61>
+TAG60
+ <SET TEMP41 %<> (TYPE FALSE)>
+TAG61
+ <EQUAL? TEMP32 TEMP41 + PHRASE65>
+ <DEAD TEMP32 TEMP41>
+ <NTHUV ACST120 2 = TEMP41 (TYPE LOCAL)>
+ <NTHUV TEMP41 1 = CHANGED7 (TYPE ATOM)>
+ <DEAD TEMP41>
+ <NTHUV ACST120 3 = TEMP41>
+ <EQUAL? TEMP41 'HACKED + BOOL64>
+ <DEAD TEMP41>
+ <NTHUV ACST234 3 = TEMP41>
+ <EQUAL? TEMP41 'HACKED - PHRASE63>
+ <DEAD TEMP41>
+BOOL64
+ <PUTUV ACST120 3 'HACKED>
+ <PUTUV ACST234 3 'HACKED>
+ <DEAD ACST234>
+ <JUMP + PHRASE65>
+PHRASE63
+ <PUTUV ACST120 3 %<>>
+ <PUTUV ACST234 3 %<>>
+ <DEAD ACST234>
+PHRASE65
+ <SET TEMP32 'T (TYPE ATOM)>
+ <JUMP + MAPAP28>
+PHRASE37
+ <RESTUV TEMP23 1 = TEMP23 (TYPE VECTOR)>
+ <JUMP + MAP25>
+MAPAP28
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE66>
+ <DEAD TEMP32>
+BOOL22
+ <NTHUV ACST120 2 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE68>
+ <DEAD TEMP23>
+ <NTHUV ACST120 2 = TEMP23 (TYPE LOCAL)>
+ <NTHUV TEMP23 1 = CHANGED7 (TYPE ATOM)>
+ <DEAD TEMP23>
+ <NTHUV ACST120 2 = TEMP23 (TYPE LOCAL)>
+ <PUTUV TEMP23 2 'T>
+ <DEAD TEMP23>
+PHRASE68
+ <PUTUV ACST120 2 %<>>
+ <PUTUV ACST120 3 %<>>
+ <DEAD ACST120>
+PHRASE66
+ <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
+ <JUMP + MAP10>
+MAPAP13
+ <CHTYPE TWO6 <TYPE-CODE VECTOR> = TEMP15>
+ <DEAD TWO6>
+ <LOOP>
+MAP70
+ <INTGO>
+ <EMPUV? TEMP15 + MAPAP73>
+ <NTHUV TEMP15 1 = ACST120>
+ <NTHUV ACST120 2 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE80>
+ <DEAD TEMP32>
+ <SUB WINNERS8 1 = WINNERS8 (TYPE FIX)>
+ <LESS? WINNERS8 0 - PHRASE80 (TYPE FIX)>
+ <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
+ <DEAD ACST120>
+ <NTHUV TEMP32 1 = CHANGED7 (TYPE ATOM)>
+ <DEAD TEMP32>
+ <RETURN CHANGED7>
+ <DEAD CHANGED7>
+PHRASE80
+ <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
+ <JUMP + MAP70>
+MAPAP73
+ <RETURN CHANGED7>
+ <DEAD CHANGED7>
+ <END \1aMERGE-TWO-FORCE>
+#WORD *6254770561*
+<GFCN \1aPLOCAL-NAME ("VALUE" <OR ATOM FIX> LOCAL-NAME) LN5>
+ <TEMP LCL6 TEMP10>
+ <INTGO>
+ <FRAME '\1aL-N-LMEMQ>
+ <PUSH LN5>
+ <GVAL 'LOCALS = STACK>
+ <CALL '\1aL-N-LMEMQ 2 = LCL6>
+ <TYPE? LCL6 <TYPE-CODE FALSE> - BOOL9>
+ <GVAL 'ICALL-FLAG = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + BOOL9>
+ <DEAD TEMP10>
+ <FRAME '\1aL-N-LMEMQ>
+ <PUSH LN5>
+ <GVAL 'ICALL-TEMPS = STACK>
+ <CALL '\1aL-N-LMEMQ 2 = LCL6>
+BOOL9
+ <TYPE? LCL6 <TYPE-CODE FALSE> + PHRASE13>
+ <FRAME '\1aPRINC>
+ <NTHUV LCL6 1 = STACK (TYPE ATOM)>
+ <DEAD LCL6>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2 = LCL6>
+ <RETURN LCL6>
+ <DEAD LCL6>
+PHRASE13
+ <FRAME '\1aPRINC>
+ <PUSH "#LOC ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <CHTYPE LN5 <TYPE-CODE FIX> = STACK>
+ <DEAD LN5>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2 = LCL6>
+ <RETURN LCL6>
+ <DEAD LCL6>
+ <END \1aPLOCAL-NAME>
+#WORD *5205163144*
+<GFCN \1aPCONST-LABEL ("VALUE" <OR FIX LIST> CONSTANT-LABEL) CL5>
+ <TEMP TEM6 TEMP13 TEMP19 TEMP22 TEMP27 TEMP31>
+ <INTGO>
+ <GVAL 'CONSTANT-VECTOR = TEM6>
+ <EMPL? TEM6 + TAG9>
+ <LOOP (CL5 VALUE) (TEM6 VALUE)>
+TAG11
+ <NTHL TEM6 1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE CONSTANT-LABEL> - TAG12>
+ <VEQUAL? TEMP13 CL5 + TAG10>
+ <DEAD TEMP13>
+TAG12
+ <RESTL TEM6 1 = TEM6 (TYPE LIST)>
+ <EMPL? TEM6 - TAG11>
+TAG9
+ <DEAD TEM6>
+ <SET TEM6 %<> (TYPE FALSE)>
+TAG10
+ <TYPE? TEM6 <TYPE-CODE FALSE> + PHRASE8>
+ <RESTL TEM6 1 = TEM6 (TYPE LIST)>
+ <NTHL TEM6 1 = TEM6>
+ <TYPE? TEM6 <TYPE-CODE CONSTANT> - PHRASE15>
+ <FRAME '\1aPRIN1>
+ <CHTYPE TEM6 <TYPE-CODE FIX> = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2 = TEMP19>
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+PHRASE15
+ <FRAME '\1aPRIN1>
+ <CHTYPE TEM6 <TYPE-CODE LIST> = STACK>
+ <DEAD TEM6>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2 = TEMP19>
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+PHRASE8
+ <FRAME '\1aPRINC>
+ <PUSH "#CL ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <CHTYPE CL5 <TYPE-CODE FIX> = STACK>
+ <DEAD CL5>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2 = TEMP19>
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+ <END \1aPCONST-LABEL>
+#WORD *31501436155*
+<GFCN \1aPCONST-BUCK ("VALUE" <OR FIX LIST> CONSTANT-BUCKET) CB5>
+ <TEMP TEM6>
+ <INTGO>
+ <NTHUV CB5 1 = TEM6>
+ <DEAD CB5>
+ <TYPE? TEM6 <TYPE-CODE CONSTANT> - PHRASE8>
+ <FRAME '\1aPRIN1>
+ <CHTYPE TEM6 <TYPE-CODE FIX> = STACK>
+ <DEAD TEM6>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2 = TEM6>
+ <RETURN TEM6>
+ <DEAD TEM6>
+PHRASE8
+ <FRAME '\1aPRIN1>
+ <CHTYPE TEM6 <TYPE-CODE LIST> = STACK>
+ <DEAD TEM6>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2 = TEM6>
+ <RETURN TEM6>
+ <DEAD TEM6>
+ <END \1aPCONST-BUCK>
+<COND (<GASSIGNED? PCONST-BUCK> <PRINTTYPE CONSTANT-BUCKET ,PCONST-BUCK>)>
+
+<COND (<GASSIGNED? PLOCAL-NAME> <PRINTTYPE LOCAL-NAME ,PLOCAL-NAME>)>
+
+<COND (<GASSIGNED? PCONST-LABEL> <PRINTTYPE CONSTANT-LABEL ,PCONST-LABEL
\ No newline at end of file
projects / pdp10-muddle.git / blobdiff