--- /dev/null
+
+<COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD">)>
+
+<NEWTYPE XTYPE-W ATOM>
+
+<NEWTYPE LOCAL-NAME FIX>
+
+<NEWTYPE LOCAL VECTOR>
+
+<NEWTYPE XGLOC ATOM>
+
+<SETG PRIM-FIX 0>
+
+<SETG PRIM-LIST 1>
+
+<MANIFEST PRIM-LIST PRIM-FIX>
+
+#WORD *32437125433*
+<GFCN \1aTYPE!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP ARG6 TEMP11 TEMP13>
+ <INTGO>
+ <NTHL L5 1 = ARG6>
+ <RESTL L5 1 = TEMP11 (TYPE LIST)>
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = TEMP11>
+ <EQUAL? TEMP11 'STACK - PHRASE10>
+ <DEAD TEMP11>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP13 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP11 + TAG12 TEMP13>
+ <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG15
+ <INTGO>
+ <EMPTY? TEMP11 + TAG12>
+ <NTH1 TEMP11 = STACK>
+ <REST1 TEMP11 = TEMP11>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG15>
+TAG12
+ <CALL '\1aOCEMIT TEMP13>
+ <DEAD TEMP13>
+ <FRAME '\1aLOAD-TYPE>
+ <PUSH 'O*>
+ <FRAME '\1aOBJ-TYP>
+ <PUSH ARG6>
+ <DEAD ARG6>
+ <CALL '\1aOBJ-TYP 1 = STACK>
+ <CALL '\1aLOAD-TYPE 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE21>
+ <DEAD TEMP13>
+ <GVAL 'STACK-DEPTH = TEMP13>
+ <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP13>
+ <DEAD TEMP13>
+PHRASE21
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'O*>
+ <CALL '\1aMUNGED-AC 1 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE10
+ <FRAME '\1aASSIGN-AC>
+ <RESTL L5 1 = TEMP11 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = STACK>
+ <DEAD TEMP11>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = TEMP13>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP13>
+ <CALL '\1aGET-AC 1 = TEMP11>
+ <PUTUV TEMP11 6 'FIX>
+ <DEAD TEMP11>
+ <FRAME '\1aLOAD-TYPE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <FRAME '\1aOBJ-TYP>
+ <PUSH ARG6>
+ <DEAD ARG6>
+ <CALL '\1aOBJ-TYP 1 = STACK>
+ <CALL '\1aLOAD-TYPE 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aTYPE!-MIMOC>
+#WORD *2062611112*
+<GFCN \1aTYPE?!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP ARG6 TEMP12 TYP7 (CAM8 'CAMN) (CAI9 'CAIN) (JMP10 'JUMPE)>
+ <INTGO>
+ <NTHL L5 1 = ARG6>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TYP7>
+ <DEAD TEMP12>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12>
+ <EQUAL? TEMP12 '- - PHRASE14>
+ <DEAD TEMP12>
+ <SET CAM8 'CAME (TYPE ATOM)>
+ <SET CAI9 'CAIE (TYPE ATOM)>
+ <SET JMP10 'JUMPN (TYPE ATOM)>
+PHRASE14
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG6>
+ <PUSH 'TYPE>
+ <CALL '\1aIN-AC? 2 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE16>
+ <FRAME '\1aLOAD-TYPE>
+ <PUSH 'O*>
+ <CONS TEMP12 () = STACK>
+ <DEAD TEMP12>
+ <CALL '\1aLOAD-TYPE 2>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'O*>
+ <CALL '\1aMUNGED-AC 1>
+ <JUMP + PHRASE20>
+PHRASE16
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'O*>
+ <PUSH ARG6>
+ <DEAD ARG6>
+ <PUSH 'TYPECODE>
+ <CALL '\1aSMASH-AC 3 = TEMP12>
+PHRASE20
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = STACK>
+ <DEAD TEMP12>
+ <PUSH %<>>
+ <CALL '\1aLABEL-UPDATE-ACS 2>
+ <GVAL 'GC-MODE = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE24>
+ <DEAD TEMP12>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'TRZ>
+ <PUSH 'O*>
+ <PUSH 56>
+ <CALL '\1aOCEMIT 3>
+PHRASE24
+ <TYPE? TYP7 <TYPE-CODE FIX> - PHRASE27>
+ <VEQUAL? TYP7 0 - PHRASE29 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH JMP10>
+ <DEAD JMP10>
+ <PUSH 'O*>
+ <FRAME '\1aXJUMP>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = STACK>
+ <DEAD TEMP12>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE36>
+PHRASE29
+ <FRAME '\1aOCEMIT>
+ <PUSH CAI9>
+ <DEAD CAI9>
+ <PUSH 'O*>
+ <PUSH TYP7>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE36>
+PHRASE27
+ <FRAME '\1aOCEMIT>
+ <PUSH CAM8>
+ <DEAD CAM8>
+ <PUSH 'O*>
+ <SET ARG6 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH TYP7>
+ <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG37 ARG6>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (ARG6 VALUE)>
+TAG40
+ <INTGO>
+ <EMPTY? TEMP12 + TAG37>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD ARG6 1 = ARG6 (TYPE FIX)>
+ <JUMP + TAG40>
+TAG37
+ <CALL '\1aOCEMIT ARG6>
+ <DEAD ARG6>
+PHRASE36
+ <EQUAL? TYP7 0 - TAG44>
+ <DEAD TYP7>
+ <RETURN %<>>
+TAG44
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = STACK>
+ <DEAD TEMP12>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2 = ARG6>
+ <RETURN ARG6>
+ <DEAD ARG6>
+ <END \1aTYPE?!-MIMOC>
+#WORD *14140260172*
+<GFCN \1aCHTYPE!-MIMOC ("VALUE" <OR FALSE FIX AC> LIST) L4>
+ <TEMP ARG15 TEMP14 ARG26 VAL7:ATOM LV13 TEMP25 TEMP26 AC8:ATOM>
+ <INTGO>
+ <NTHL L4 1 = ARG15>
+ <RESTL L4 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = ARG26>
+ <DEAD TEMP14>
+ <RESTL L4 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = VAL7 (TYPE ATOM)>
+ <DEAD TEMP14>
+ <FRAME '\1aLMEMQ>
+ <PUSH VAL7>
+ <GVAL 'LOCALS = STACK>
+ <CALL '\1aLMEMQ 2 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> - BOOL17>
+ <GVAL 'ICALL-FLAG = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL17>
+ <FRAME '\1aLMEMQ>
+ <PUSH VAL7>
+ <GVAL 'ICALL-TEMPS = STACK>
+ <CALL '\1aLMEMQ 2 = TEMP14>
+BOOL17
+ <SET LV13 TEMP14>
+ <DEAD TEMP14>
+ <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE20>
+ <GVAL 'TYPED-LOCALS = TEMP14>
+ <TYPE LV13 = TEMP25>
+ <EMPL? TEMP14 + PHRASE20>
+ <LOOP (LV13 VALUE) (TEMP25 VALUE) (TEMP14 VALUE)>
+TAG23
+ <NTHL TEMP14 1 = TEMP26>
+ <TYPE? TEMP26 TEMP25 - TAG24>
+ <VEQUAL? TEMP26 LV13 + TAG22>
+ <DEAD TEMP26>
+TAG24
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <EMPL? TEMP14 - TAG23>
+ <JUMP + PHRASE20>
+TAG22
+ <NTHUV LV13 4 = LV13>
+ <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE20>
+ <FRAME '\1aTYPEPRIM>
+ <PUSH LV13>
+ <CALL '\1aTYPEPRIM 1 = TEMP14>
+ <SET TEMP25 [WORD FIX LIST] (TYPE VECTOR)>
+ <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG28>
+ <LOOP (TEMP14 VALUE) (TEMP25 LENGTH VALUE)>
+TAG29
+ <NTHUV TEMP25 1 = TEMP26>
+ <VEQUAL? TEMP26 TEMP14 + TAG32>
+ <DEAD TEMP26>
+ <RESTUV TEMP25 1 = TEMP25 (TYPE VECTOR)>
+ <EMPUV? TEMP25 - TAG29>
+TAG28
+ <GVAL 'TYPE-LENGTHS = TEMP25>
+ <EMPUV? TEMP25 + PHRASE20>
+ <LOOP (LV13 VALUE) (TEMP25 LENGTH VALUE)>
+TAG33
+ <NTHUV TEMP25 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG34>
+ <VEQUAL? TEMP14 LV13 + TAG32>
+ <DEAD TEMP14>
+TAG34
+ <RESTUV TEMP25 1 = TEMP25 (TYPE VECTOR)>
+ <EMPUV? TEMP25 - TAG33>
+ <JUMP + PHRASE20>
+TAG32
+ <FRAME '\1aLOAD-AC>
+ <PUSH ARG15>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = AC8>
+ <EQUAL? VAL7 ARG15 + PHRASE41>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG15>
+ <DEAD ARG15>
+ <CALL '\1aWILL-DIE? 1 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE41>
+ <DEAD TEMP25>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <NTHUV TEMP25 5 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE41>
+ <DEAD TEMP25>
+ <FRAME '\1aUPDATE-AC>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = STACK>
+ <CALL '\1aUPDATE-AC 1>
+ <FRAME '\1aUPDATE-AC>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = STACK>
+ <CALL '\1aUPDATE-AC 1>
+PHRASE41
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH VAL7>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <PUTUV TEMP25 5 'T>
+ <PUTUV TEMP25 2 VAL7>
+ <PUTUV TEMP25 3 'VALUE (TYPE ATOM)>
+ <DEAD TEMP25>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <DEAD AC8>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <PUTUV TEMP25 5 'T>
+ <PUTUV TEMP25 2 VAL7>
+ <DEAD VAL7>
+ <PUTUV TEMP25 3 'TYPE (TYPE ATOM)>
+ <PUTUV TEMP25 6 LV13>
+ <DEAD LV13>
+ <RETURN TEMP25>
+ <DEAD TEMP25>
+PHRASE20
+ <TYPE? ARG26 <TYPE-CODE FIX> - PHRASE52>
+ <FRAME '\1aGETPROP>
+ <RESTL L4 1 = STACK (TYPE LIST)>
+ <DEAD L4>
+ <PUSH 'EVAL>
+ <CALL '\1aGETPROP 2 = LV13>
+ <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE54>
+ <AND ARG26 #WORD *7* = TEMP14>
+ <VEQUAL? TEMP14 0 + TAG62 (TYPE FIX)>
+ <VEQUAL? TEMP14 1 + TAG62 (TYPE FIX)>
+ <DEAD TEMP14>
+ <RESTL LV13 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = TEMP14 (TYPE ATOM)>
+ <GVAL 'TYPE-LENGTHS = TEMP26>
+ <EMPUV? TEMP26 + PHRASE54>
+ <LOOP (TEMP14 VALUE) (TEMP26 LENGTH VALUE)>
+TAG63
+ <NTHUV TEMP26 1 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE ATOM> - TAG64>
+ <VEQUAL? TEMP25 TEMP14 + TAG62>
+ <DEAD TEMP25>
+TAG64
+ <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
+ <EMPUV? TEMP26 - TAG63>
+ <JUMP + PHRASE54>
+TAG62
+ <VEQUAL? VAL7 'STACK - PHRASE67>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP14 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <RESTL LV13 1 = TEMP25 (TYPE LIST)>
+ <DEAD LV13>
+ <NTHL TEMP25 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP25>
+ <SCALL '\1aTYPE-WORD 1 = TEMP26 + TAG68 TEMP14>
+ <LOOP (TEMP26 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG70
+ <INTGO>
+ <EMPTY? TEMP26 + TAG68>
+ <NTH1 TEMP26 = STACK>
+ <REST1 TEMP26 = TEMP26>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG70>
+TAG68
+ <CALL '\1aOCEMIT TEMP14>
+ <DEAD TEMP14>
+ <GVAL 'WINNING-VICTIM = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE73>
+ <DEAD TEMP14>
+ <GVAL 'STACK-DEPTH = TEMP14>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP14>
+ <DEAD TEMP14>
+PHRASE73
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP26 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG15>
+ <DEAD ARG15>
+ <SCALL '\1aOBJ-VAL 1 = TEMP14 + TAG74 TEMP26>
+ <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP26 VALUE)>
+TAG76
+ <INTGO>
+ <EMPTY? TEMP14 + TAG74>
+ <NTH1 TEMP14 = STACK>
+ <REST1 TEMP14 = TEMP14>
+ <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
+ <JUMP + TAG76>
+TAG74
+ <CALL '\1aOCEMIT TEMP26>
+ <DEAD TEMP26>
+ <GVAL 'WINNING-VICTIM = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE180>
+ <GVAL 'STACK-DEPTH = TEMP26>
+ <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP26>
+ <RETURN TEMP26>
+ <DEAD TEMP26>
+PHRASE67
+ <FRAME '\1aLOAD-AC>
+ <PUSH ARG15>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = AC8>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG15>
+ <CALL '\1aWILL-DIE? 1 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE83>
+ <DEAD TEMP26>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <PUTUV TEMP26 5 %<>>
+ <DEAD TEMP26>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <PUTUV TEMP26 5 %<>>
+ <DEAD TEMP26>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <PUTUV TEMP26 6 %<>>
+ <DEAD TEMP26>
+PHRASE83
+ <EQUAL? ARG15 VAL7 + PHRASE90>
+ <DEAD ARG15>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH VAL7>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aALTER-AC>
+ <PUSH AC8>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <CALL '\1aALTER-AC 2>
+PHRASE90
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <RESTL LV13 1 = TEMP14 (TYPE LIST)>
+ <DEAD LV13>
+ <NTHL TEMP14 1 = TEMP14 (TYPE ATOM)>
+ <PUTUV TEMP26 6 TEMP14>
+ <DEAD TEMP26 TEMP14>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <DEAD AC8>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <PUTUV TEMP26 5 'T>
+ <RETURN TEMP26>
+ <DEAD TEMP26>
+PHRASE54
+ <FRAME '\1aLOAD-AC>
+ <PUSH ARG15>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = AC8>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG15>
+ <CALL '\1aWILL-DIE? 1 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE98>
+ <DEAD TEMP26>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <PUTUV TEMP26 5 %<>>
+ <DEAD TEMP26>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <PUTUV TEMP26 5 %<>>
+ <DEAD TEMP26>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <PUTUV TEMP26 6 %<>>
+ <DEAD TEMP26>
+PHRASE98
+ <EQUAL? ARG15 VAL7 + PHRASE105>
+ <DEAD ARG15>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH VAL7>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aALTER-AC>
+ <PUSH AC8>
+ <PUSH VAL7>
+ <CALL '\1aALTER-AC 2>
+PHRASE105
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <PUTUV TEMP26 6 %<>>
+ <DEAD TEMP26>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLI>
+ <PUSH AC8>
+ <PUSH ARG26>
+ <DEAD ARG26>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <PUTUV TEMP26 5 'T>
+ <DEAD TEMP26>
+ <VEQUAL? VAL7 'STACK + TAG113>
+ <DEAD VAL7>
+ <RETURN %<>>
+TAG113
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH AC8>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <DEAD AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE180>
+ <GVAL 'STACK-DEPTH = TEMP26>
+ <ADD TEMP26 2 = TEMP26 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP26>
+ <RETURN TEMP26>
+ <DEAD TEMP26>
+PHRASE52
+ <FRAME '\1aLOAD-AC>
+ <PUSH ARG15>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = AC8>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <NTHUV TEMP26 6 = LV13>
+ <DEAD TEMP26>
+ <EQUAL? ARG15 VAL7 + PHRASE123>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG15>
+ <CALL '\1aWILL-DIE? 1 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE125>
+ <DEAD TEMP26>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <PUTUV TEMP26 5 %<>>
+ <DEAD TEMP26>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <PUTUV TEMP26 5 %<>>
+ <DEAD TEMP26>
+PHRASE125
+ <FRAME '\1aFLUSH-AC>
+ <PUSH AC8>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AC8>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+PHRASE123
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <PUTUV TEMP26 6 %<>>
+ <DEAD TEMP26>
+ <TYPE? ARG26 <TYPE-CODE FORM> - PHRASE134>
+ <EMPL? ARG26 + PHRASE134>
+ <RESTL ARG26 1 = TEMP26 (TYPE LIST)>
+ <EMPL? TEMP26 + PHRASE134>
+ <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
+ <EMPL? TEMP26 - PHRASE134>
+ <DEAD TEMP26>
+ <NTHL ARG26 1 = TEMP26>
+ <EQUAL? TEMP26 'TYPE - PHRASE134>
+ <DEAD TEMP26>
+ <RESTL ARG26 1 = TEMP26 (TYPE LIST)>
+ <NTHL TEMP26 1 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE ATOM> - PHRASE134>
+ <DEAD TEMP26>
+ <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE137>
+ <GVAL 'TYPE-LENGTHS = TEMP26>
+ <EMPUV? TEMP26 + PHRASE137>
+ <LOOP (LV13 VALUE) (TEMP26 LENGTH VALUE)>
+TAG140
+ <NTHUV TEMP26 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG141>
+ <VEQUAL? TEMP14 LV13 + TAG139>
+ <DEAD TEMP14>
+TAG141
+ <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
+ <EMPUV? TEMP26 - TAG140>
+ <JUMP + PHRASE137>
+TAG139
+ <FRAME '\1aLOAD-TYPE-IN-AC>
+ <PUSH AC8>
+ <PUSH LV13>
+ <DEAD LV13>
+ <CALL '\1aLOAD-TYPE-IN-AC 2>
+PHRASE137
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HLL>
+ <PUSH AC8>
+ <SET TEMP14 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <RESTL ARG26 1 = TEMP25 (TYPE LIST)>
+ <DEAD ARG26>
+ <NTHL TEMP25 1 = STACK>
+ <DEAD TEMP25>
+ <SCALL '\1aOBJ-TYP 1 = TEMP26 + TAG143 TEMP14>
+ <LOOP (TEMP26 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG145
+ <INTGO>
+ <EMPTY? TEMP26 + TAG143>
+ <NTH1 TEMP26 = STACK>
+ <REST1 TEMP26 = TEMP26>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG145>
+TAG143
+ <CALL '\1aOCEMIT TEMP14>
+ <DEAD TEMP14>
+ <JUMP + PHRASE162>
+PHRASE134
+ <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE147>
+ <GVAL 'TYPE-LENGTHS = TEMP14>
+ <EMPUV? TEMP14 + PHRASE149>
+ <LOOP (LV13 VALUE) (TEMP14 LENGTH VALUE)>
+TAG151
+ <NTHUV TEMP14 1 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE ATOM> - TAG152>
+ <VEQUAL? TEMP26 LV13 + TAG150>
+ <DEAD TEMP26>
+TAG152
+ <RESTUV TEMP14 1 = TEMP14 (TYPE VECTOR)>
+ <EMPUV? TEMP14 - TAG151>
+ <JUMP + PHRASE149>
+TAG150
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH AC8>
+ <SET TEMP26 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <CHTYPE ARG26 <TYPE-CODE XTYPE-W> = STACK>
+ <DEAD ARG26>
+ <SCALL '\1aOBJ-VAL 1 = TEMP14 + TAG153 TEMP26>
+ <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP26 VALUE)>
+TAG155
+ <INTGO>
+ <EMPTY? TEMP14 + TAG153>
+ <NTH1 TEMP14 = STACK>
+ <REST1 TEMP14 = TEMP14>
+ <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
+ <JUMP + TAG155>
+TAG153
+ <CALL '\1aOCEMIT TEMP26>
+ <DEAD TEMP26>
+ <JUMP + PHRASE162>
+PHRASE149
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLZ>
+ <PUSH AC8>
+ <SET TEMP14 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG26>
+ <DEAD ARG26>
+ <SCALL '\1aOBJ-VAL 1 = TEMP26 + TAG158 TEMP14>
+ <LOOP (TEMP26 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG160
+ <INTGO>
+ <EMPTY? TEMP26 + TAG158>
+ <NTH1 TEMP26 = STACK>
+ <REST1 TEMP26 = TEMP26>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG160>
+TAG158
+ <CALL '\1aOCEMIT TEMP14>
+ <DEAD TEMP14>
+ <JUMP + PHRASE162>
+PHRASE147
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRL>
+ <PUSH AC8>
+ <SET TEMP26 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG26>
+ <DEAD ARG26>
+ <SCALL '\1aOBJ-VAL 1 = TEMP14 + TAG163 TEMP26>
+ <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP26 VALUE)>
+TAG165
+ <INTGO>
+ <EMPTY? TEMP14 + TAG163>
+ <NTH1 TEMP14 = STACK>
+ <REST1 TEMP14 = TEMP14>
+ <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
+ <JUMP + TAG165>
+TAG163
+ <CALL '\1aOCEMIT TEMP26>
+ <DEAD TEMP26>
+PHRASE162
+ <VEQUAL? VAL7 'STACK + PHRASE168>
+ <EQUAL? VAL7 ARG15 + PHRASE168>
+ <DEAD ARG15>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH VAL7>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aALTER-AC>
+ <PUSH AC8>
+ <PUSH VAL7>
+ <CALL '\1aALTER-AC 2>
+PHRASE168
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <PUTUV TEMP26 5 'T>
+ <DEAD TEMP26>
+ <VEQUAL? VAL7 'STACK + TAG175>
+ <DEAD VAL7>
+ <RETURN %<>>
+TAG175
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH AC8>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <DEAD AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE180>
+ <GVAL 'STACK-DEPTH = TEMP26>
+ <ADD TEMP26 2 = TEMP26 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP26>
+ <SET TEMP25 TEMP26>
+ <DEAD TEMP26>
+PHRASE180
+ <RETURN TEMP25>
+ <DEAD TEMP25>
+ <END \1aCHTYPE!-MIMOC>
+#WORD *10213362305*
+<GFCN \1aNEWTYPE!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP8>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG11
+ <INTGO>
+ <EMPTY? TEMP8 + TAG7>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG11>
+TAG7
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'NEWTYPE>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <CALL '\1aPUSHJ 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aNEWTYPE!-MIMOC>
+#WORD *26470224467*
+<GFCN \1aVALUE!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP IT6 TEMP9 VAL7:ATOM TEMP13>
+ <INTGO>
+ <NTHL L5 1 = IT6>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = VAL7 (TYPE ATOM)>
+ <DEAD TEMP9>
+ <VEQUAL? VAL7 'STACK - PHRASE11>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP13 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP9 + TAG12 TEMP13>
+ <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG15
+ <INTGO>
+ <EMPTY? TEMP9 + TAG12>
+ <NTH1 TEMP9 = STACK>
+ <REST1 TEMP9 = TEMP9>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG15>
+TAG12
+ <CALL '\1aOCEMIT TEMP13>
+ <DEAD TEMP13>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH IT6>
+ <DEAD IT6>
+ <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG17 TEMP9>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG19
+ <INTGO>
+ <EMPTY? TEMP13 + TAG17>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG19>
+TAG17
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <GVAL 'WINNING-VICTIM = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE37>
+ <GVAL 'STACK-DEPTH = TEMP13>
+ <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE11
+ <EQUAL? IT6 VAL7 + BOOL25>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH IT6>
+ <CALL '\1aWILL-DIE? 1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE23>
+ <DEAD TEMP13>
+BOOL25
+ <FRAME '\1aIN-AC?>
+ <PUSH IT6>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - BOOL27>
+ <FRAME '\1aIN-AC?>
+ <PUSH IT6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE23>
+ <FRAME '\1aGETPROP>
+ <PUSH TEMP9>
+ <DEAD TEMP9>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE23>
+BOOL27
+ <EQUAL? IT6 VAL7 + PHRASE33>
+ <DEAD IT6>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH VAL7>
+ <CALL '\1aCLEAN-ACS 1>
+PHRASE33
+ <FRAME '\1aALTER-AC>
+ <PUSH TEMP9>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <CALL '\1aALTER-AC 2>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP9>
+ <DEAD TEMP9>
+ <CALL '\1aGET-AC 1 = TEMP13>
+ <PUTUV TEMP13 6 'FIX>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE23
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = TEMP9>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP9>
+ <CALL '\1aGET-AC 1 = TEMP13>
+ <PUTUV TEMP13 6 'FIX>
+ <DEAD TEMP13>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP9>
+ <DEAD TEMP9>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET IT6 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG40 IT6>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (IT6 VALUE)>
+TAG44
+ <INTGO>
+ <EMPTY? TEMP13 + TAG40>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD IT6 1 = IT6 (TYPE FIX)>
+ <JUMP + TAG44>
+TAG40
+ <CALL '\1aOCEMIT IT6 = TEMP9>
+ <DEAD IT6>
+PHRASE37
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aVALUE!-MIMOC>
+#WORD *21414421770*
+<GFCN \1aON-STACK?!-MIMOC ("VALUE" <OR FALSE FIX AC> LIST) L5>
+ <TEMP IT6 TEMP10 VAL7:ATOM TEMP14 AC8>
+ <INTGO>
+ <NTHL L5 1 = IT6>
+ <RESTL L5 1 = TEMP10 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = VAL7 (TYPE ATOM)>
+ <DEAD TEMP10>
+ <VEQUAL? VAL7 'STACK - PHRASE12>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP14 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP10 + TAG13 TEMP14>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG16
+ <INTGO>
+ <EMPTY? TEMP10 + TAG13>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG16>
+TAG13
+ <CALL '\1aOCEMIT TEMP14>
+ <DEAD TEMP14>
+ <GVAL 'WINNING-VICTIM = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE19>
+ <DEAD TEMP14>
+ <GVAL 'STACK-DEPTH = TEMP14>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP14>
+ <DEAD TEMP14>
+PHRASE19
+ <FRAME '\1aWILL-DIE?>
+ <PUSH IT6>
+ <CALL '\1aWILL-DIE? 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL21>
+ <DEAD TEMP14>
+ <FRAME '\1aIN-AC?>
+ <PUSH IT6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC8>
+ <TYPE? AC8 <TYPE-CODE FALSE> - PHRASE24>
+BOOL21
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <SET AC8 'O1* (TYPE ATOM)>
+ <PUSH AC8>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH IT6>
+ <DEAD IT6>
+ <SCALL '\1aOBJ-VAL 1 = TEMP14 + TAG25 TEMP10>
+ <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG27
+ <INTGO>
+ <EMPTY? TEMP14 + TAG25>
+ <NTH1 TEMP14 = STACK>
+ <REST1 TEMP14 = TEMP14>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG27>
+TAG25
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+PHRASE24
+ <FRAME '\1aDO-ON-STACK>
+ <PUSH AC8>
+ <DEAD AC8>
+ <PUSH 'O*>
+ <CALL '\1aDO-ON-STACK 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE43>
+ <GVAL 'STACK-DEPTH = TEMP14>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE12
+ <EQUAL? IT6 VAL7 - PHRASE33>
+ <FRAME '\1aIN-AC?>
+ <PUSH IT6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC8>
+ <TYPE? AC8 <TYPE-CODE FALSE> + PHRASE33>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH IT6>
+ <DEAD IT6>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP14>
+ <GVAL 'AC-STAMP = TEMP10>
+ <PUTUV TEMP14 4 TEMP10 (TYPE FIX)>
+ <DEAD TEMP14 TEMP10>
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aDO-ON-STACK>
+ <PUSH AC8>
+ <DEAD AC8>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = AC8>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aDO-ON-STACK 2>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <DEAD AC8>
+ <CALL '\1aGET-AC 1 = TEMP14>
+ <PUTUV TEMP14 6 'FIX>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE33
+ <FRAME '\1aIN-AC?>
+ <PUSH IT6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC8>
+ <TYPE? AC8 <TYPE-CODE FALSE> + PHRASE45>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH IT6>
+ <CALL '\1aWILL-DIE? 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE45>
+ <DEAD TEMP14>
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP14>
+ <GVAL 'AC-STAMP = TEMP10>
+ <PUTUV TEMP14 4 TEMP10 (TYPE FIX)>
+ <DEAD TEMP14 TEMP10>
+ <JUMP + PHRASE50>
+PHRASE45
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <SET AC8 'O1* (TYPE ATOM)>
+ <PUSH AC8>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH IT6>
+ <DEAD IT6>
+ <SCALL '\1aOBJ-VAL 1 = TEMP14 + TAG51 TEMP10>
+ <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG53
+ <INTGO>
+ <EMPTY? TEMP14 + TAG51>
+ <NTH1 TEMP14 = STACK>
+ <REST1 TEMP14 = TEMP14>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG53>
+TAG51
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+PHRASE50
+ <FRAME '\1aDO-ON-STACK>
+ <PUSH AC8>
+ <DEAD AC8>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = AC8>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aDO-ON-STACK 2>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <DEAD AC8>
+ <CALL '\1aGET-AC 1 = TEMP10>
+ <PUTUV TEMP10 6 'FIX>
+PHRASE43
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aON-STACK?!-MIMOC>
+#WORD *23206414250*
+<GFCN \1aDO-ON-STACK ("VALUE" ANY ANY ANY) ARG5 DEST6>
+ <TEMP LBL7 TEMP13 TEMP12>
+ <INTGO>
+ <FRAME '\1aGENLBL>
+ <PUSH "DOS">
+ <CALL '\1aGENLBL 1 = LBL7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH DEST6>
+ <PUSH 0>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'TLZ>
+ <PUSH ARG5>
+ <PUSH 258048>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAMLE>
+ <PUSH ARG5>
+ <SET TEMP13 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH 786432>
+ <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG11 TEMP13>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG15
+ <INTGO>
+ <EMPTY? TEMP12 + TAG11>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG15>
+TAG11
+ <CALL '\1aOCEMIT TEMP13>
+ <DEAD TEMP13>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH LBL7>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVNI>
+ <PUSH DEST6>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH ARG5>
+ <PUSH ARG5>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAILE>
+ <PUSH ARG5>
+ <DEAD ARG5>
+ <PUSH 0>
+ <PUSH (TP*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH DEST6>
+ <DEAD DEST6>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aLABEL>
+ <PUSH LBL7>
+ <DEAD LBL7>
+ <CALL '\1aLABEL 1 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aDO-ON-STACK>
+#WORD *17764611507*
+<GFCN \1aOBJECT!-MIMOC ("VALUE" ANY <LIST [5 <OR ATOM FIX>]>) L5>
+ <TEMP TY6 TEMP14 CNT7 VAL8 (V-DONE9 %<>) (AC11 %<>) (TAC12 %<>) (CAC13 %<>) TEMP23>
+ <INTGO>
+ <NTHL L5 1 = TY6>
+ <RESTL L5 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = CNT7>
+ <DEAD TEMP14>
+ <RESTL L5 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = VAL8>
+ <DEAD TEMP14>
+ <NTHL L5 5 = TEMP14>
+ <DEAD L5>
+ <EQUAL? TEMP14 'STACK - PHRASE16>
+ <TYPE? TY6 <TYPE-CODE FIX> - PHRASE18>
+ <TYPE? CNT7 <TYPE-CODE FIX> - PHRASE18>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET CAC13 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <LSH TY6 18 = TEMP23 (TYPE FIX)>
+ <DEAD TY6>
+ <OR TEMP23 CNT7 = STACK>
+ <DEAD TEMP23 CNT7>
+ <SCALL '\1aOBJ-VAL 1 = TEMP14 + TAG20 CAC13>
+ <LOOP (TEMP14 TYPE VALUE LENGTH) (CAC13 VALUE)>
+TAG24
+ <INTGO>
+ <EMPTY? TEMP14 + TAG20>
+ <NTH1 TEMP14 = STACK>
+ <REST1 TEMP14 = TEMP14>
+ <ADD CAC13 1 = CAC13 (TYPE FIX)>
+ <JUMP + TAG24>
+TAG20
+ <CALL '\1aOCEMIT CAC13>
+ <DEAD CAC13>
+ <JUMP + PHRASE26>
+PHRASE18
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'O*>
+ <PUSH CNT7>
+ <DEAD CNT7>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <TYPE? TY6 <TYPE-CODE FIX> - PHRASE29>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLI>
+ <PUSH 'O*>
+ <PUSH TY6>
+ <DEAD TY6>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE31>
+PHRASE29
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRL>
+ <PUSH 'O*>
+ <SET TEMP14 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH TY6>
+ <DEAD TY6>
+ <SCALL '\1aOBJ-VAL 1 = CAC13 + TAG32 TEMP14>
+ <LOOP (CAC13 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG34
+ <INTGO>
+ <EMPTY? CAC13 + TAG32>
+ <NTH1 CAC13 = STACK>
+ <REST1 CAC13 = CAC13>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG34>
+TAG32
+ <CALL '\1aOCEMIT TEMP14>
+ <DEAD TEMP14>
+PHRASE31
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+PHRASE26
+ <GVAL 'WINNING-VICTIM = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE38>
+ <DEAD TEMP14>
+ <GVAL 'STACK-DEPTH = TEMP23>
+ <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP23>
+ <DEAD TEMP23>
+PHRASE38
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP14 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH VAL8>
+ <DEAD VAL8>
+ <SCALL '\1aOBJ-VAL 1 = TEMP23 + TAG39 TEMP14>
+ <LOOP (TEMP23 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG41
+ <INTGO>
+ <EMPTY? TEMP23 + TAG39>
+ <NTH1 TEMP23 = STACK>
+ <REST1 TEMP23 = TEMP23>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG41>
+TAG39
+ <CALL '\1aOCEMIT TEMP14>
+ <DEAD TEMP14>
+ <GVAL 'WINNING-VICTIM = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE175>
+ <GVAL 'STACK-DEPTH = TEMP23>
+ <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP23>
+ <RETURN TEMP23>
+ <DEAD TEMP23>
+PHRASE16
+ <TYPE? TY6 <TYPE-CODE ATOM> - PHRASE47>
+ <EQUAL? TEMP14 TY6 + BOOL49>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH TY6>
+ <CALL '\1aWILL-DIE? 1 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE47>
+ <DEAD TEMP23>
+BOOL49
+ <FRAME '\1aIN-AC?>
+ <PUSH TY6>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TAC12>
+ <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE52>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH TAC12>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TAC12>
+ <DEAD TAC12>
+ <CALL '\1aNEXT-AC 1 = TAC12>
+ <JUMP + PHRASE56>
+PHRASE52
+ <FRAME '\1aIN-AC?>
+ <PUSH TY6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TAC12>
+ <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE56>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH TAC12>
+ <CALL '\1aMUNGED-AC 1>
+PHRASE56
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS TY6 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE47
+ <TYPE? CNT7 <TYPE-CODE ATOM> - PHRASE61>
+ <EQUAL? TEMP14 CNT7 + BOOL63>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH CNT7>
+ <CALL '\1aWILL-DIE? 1 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE61>
+ <DEAD TEMP23>
+BOOL63
+ <FRAME '\1aIN-AC?>
+ <PUSH CNT7>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = CAC13>
+ <TYPE? CAC13 <TYPE-CODE FALSE> + PHRASE66>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH CAC13>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <FRAME '\1aNEXT-AC>
+ <PUSH CAC13>
+ <DEAD CAC13>
+ <CALL '\1aNEXT-AC 1 = CAC13>
+ <JUMP + PHRASE70>
+PHRASE66
+ <FRAME '\1aIN-AC?>
+ <PUSH CNT7>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = CAC13>
+ <TYPE? CAC13 <TYPE-CODE FALSE> + PHRASE70>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH CAC13>
+ <CALL '\1aMUNGED-AC 1>
+PHRASE70
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS CNT7 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE61
+ <TYPE? VAL8 <TYPE-CODE ATOM> - PHRASE84>
+ <EQUAL? TEMP14 VAL8 + BOOL77>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH VAL8>
+ <CALL '\1aWILL-DIE? 1 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE84>
+ <DEAD TEMP23>
+BOOL77
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS VAL8 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL8>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = AC11>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE81>
+ <SET V-DONE9 'T (TYPE ATOM)>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AC11>
+ <CALL '\1aMUNGED-AC 1>
+ <JUMP + PHRASE84>
+PHRASE81
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL8>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC11>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE84>
+ <FRAME '\1aGETPROP>
+ <PUSH AC11>
+ <DEAD AC11>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = AC11>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AC11>
+ <CALL '\1aMUNGED-AC 1>
+ <SET V-DONE9 'T (TYPE ATOM)>
+PHRASE84
+ <TYPE? AC11 <TYPE-CODE FALSE> - PHRASE89>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH TEMP14>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = AC11>
+PHRASE89
+ <TYPE? TY6 <TYPE-CODE FIX> - PHRASE92>
+ <TYPE? CNT7 <TYPE-CODE FIX> - PHRASE92>
+ <VEQUAL? CNT7 0 - PHRASE95 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVSI>
+ <PUSH AC11>
+ <PUSH TY6>
+ <DEAD TY6>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE163>
+PHRASE95
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH AC11>
+ <SET CAC13 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <LSH TY6 18 = TY6 (TYPE FIX)>
+ <OR TY6 CNT7 = STACK>
+ <DEAD TY6 CNT7>
+ <SCALL '\1aOBJ-VAL 1 = TEMP23 + TAG100 CAC13>
+ <LOOP (TEMP23 TYPE VALUE LENGTH) (CAC13 VALUE)>
+TAG103
+ <INTGO>
+ <EMPTY? TEMP23 + TAG100>
+ <NTH1 TEMP23 = STACK>
+ <REST1 TEMP23 = TEMP23>
+ <ADD CAC13 1 = CAC13 (TYPE FIX)>
+ <JUMP + TAG103>
+TAG100
+ <CALL '\1aOCEMIT CAC13>
+ <DEAD CAC13>
+ <JUMP + PHRASE163>
+PHRASE92
+ <TYPE? TY6 <TYPE-CODE FIX> - PHRASE105>
+ <VEQUAL? TY6 0 - PHRASE107 (TYPE FIX)>
+ <TYPE? CAC13 <TYPE-CODE FALSE> + PHRASE111>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH AC11>
+ <PUSH CAC13>
+ <DEAD CAC13>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE163>
+PHRASE111
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH AC11>
+ <SET TEMP23 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH CNT7>
+ <DEAD CNT7>
+ <SCALL '\1aOBJ-VAL 1 = CAC13 + TAG114 TEMP23>
+ <LOOP (CAC13 TYPE VALUE LENGTH) (TEMP23 VALUE)>
+TAG116
+ <INTGO>
+ <EMPTY? CAC13 + TAG114>
+ <NTH1 CAC13 = STACK>
+ <REST1 CAC13 = CAC13>
+ <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
+ <JUMP + TAG116>
+TAG114
+ <CALL '\1aOCEMIT TEMP23>
+ <DEAD TEMP23>
+ <JUMP + PHRASE163>
+PHRASE107
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVSI>
+ <PUSH AC11>
+ <PUSH TY6>
+ <DEAD TY6>
+ <CALL '\1aOCEMIT 3>
+ <TYPE? CAC13 <TYPE-CODE FALSE> + PHRASE121>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRR>
+ <PUSH AC11>
+ <PUSH CAC13>
+ <DEAD CAC13>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE163>
+PHRASE121
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRR>
+ <PUSH AC11>
+ <SET CAC13 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH CNT7>
+ <DEAD CNT7>
+ <SCALL '\1aOBJ-VAL 1 = TEMP23 + TAG124 CAC13>
+ <LOOP (TEMP23 TYPE VALUE LENGTH) (CAC13 VALUE)>
+TAG126
+ <INTGO>
+ <EMPTY? TEMP23 + TAG124>
+ <NTH1 TEMP23 = STACK>
+ <REST1 TEMP23 = TEMP23>
+ <ADD CAC13 1 = CAC13 (TYPE FIX)>
+ <JUMP + TAG126>
+TAG124
+ <CALL '\1aOCEMIT CAC13>
+ <DEAD CAC13>
+ <JUMP + PHRASE163>
+PHRASE105
+ <TYPE? CNT7 <TYPE-CODE FIX> - PHRASE128>
+ <VEQUAL? CNT7 0 - PHRASE130 (TYPE FIX)>
+ <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE134>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLZ>
+ <PUSH AC11>
+ <PUSH TAC12>
+ <DEAD TAC12>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE163>
+PHRASE134
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLZ>
+ <PUSH AC11>
+ <SET TEMP23 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH TY6>
+ <DEAD TY6>
+ <SCALL '\1aOBJ-VAL 1 = CAC13 + TAG137 TEMP23>
+ <LOOP (CAC13 TYPE VALUE LENGTH) (TEMP23 VALUE)>
+TAG139
+ <INTGO>
+ <EMPTY? CAC13 + TAG137>
+ <NTH1 CAC13 = STACK>
+ <REST1 CAC13 = CAC13>
+ <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
+ <JUMP + TAG139>
+TAG137
+ <CALL '\1aOCEMIT TEMP23>
+ <DEAD TEMP23>
+ <JUMP + PHRASE163>
+PHRASE130
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH AC11>
+ <PUSH CNT7>
+ <DEAD CNT7>
+ <CALL '\1aOCEMIT 3>
+ <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE144>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRL>
+ <PUSH AC11>
+ <PUSH TAC12>
+ <DEAD TAC12>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE163>
+PHRASE144
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRL>
+ <PUSH AC11>
+ <SET CAC13 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH TY6>
+ <DEAD TY6>
+ <SCALL '\1aOBJ-VAL 1 = TEMP23 + TAG147 CAC13>
+ <LOOP (TEMP23 TYPE VALUE LENGTH) (CAC13 VALUE)>
+TAG149
+ <INTGO>
+ <EMPTY? TEMP23 + TAG147>
+ <NTH1 TEMP23 = STACK>
+ <REST1 TEMP23 = TEMP23>
+ <ADD CAC13 1 = CAC13 (TYPE FIX)>
+ <JUMP + TAG149>
+TAG147
+ <CALL '\1aOCEMIT CAC13>
+ <DEAD CAC13>
+ <JUMP + PHRASE163>
+PHRASE128
+ <TYPE? CAC13 <TYPE-CODE FALSE> + PHRASE153>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH AC11>
+ <PUSH CAC13>
+ <DEAD CAC13>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE155>
+PHRASE153
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH AC11>
+ <SET TEMP23 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH CNT7>
+ <DEAD CNT7>
+ <SCALL '\1aOBJ-VAL 1 = CAC13 + TAG156 TEMP23>
+ <LOOP (CAC13 TYPE VALUE LENGTH) (TEMP23 VALUE)>
+TAG158
+ <INTGO>
+ <EMPTY? CAC13 + TAG156>
+ <NTH1 CAC13 = STACK>
+ <REST1 CAC13 = CAC13>
+ <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
+ <JUMP + TAG158>
+TAG156
+ <CALL '\1aOCEMIT TEMP23>
+ <DEAD TEMP23>
+PHRASE155
+ <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE161>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRL>
+ <PUSH AC11>
+ <PUSH TAC12>
+ <DEAD TAC12>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE163>
+PHRASE161
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRL>
+ <PUSH AC11>
+ <SET CAC13 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH TY6>
+ <DEAD TY6>
+ <SCALL '\1aOBJ-VAL 1 = TEMP23 + TAG164 CAC13>
+ <LOOP (TEMP23 TYPE VALUE LENGTH) (CAC13 VALUE)>
+TAG166
+ <INTGO>
+ <EMPTY? TEMP23 + TAG164>
+ <NTH1 TEMP23 = STACK>
+ <REST1 TEMP23 = TEMP23>
+ <ADD CAC13 1 = CAC13 (TYPE FIX)>
+ <JUMP + TAG166>
+TAG164
+ <CALL '\1aOCEMIT CAC13>
+ <DEAD CAC13>
+PHRASE163
+ <TYPE? V-DONE9 <TYPE-CODE FALSE> - PHRASE169>
+ <DEAD V-DONE9>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC11>
+ <DEAD AC11>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP23 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH VAL8>
+ <DEAD VAL8>
+ <SCALL '\1aOBJ-VAL 1 = CAC13 + TAG170 TEMP23>
+ <LOOP (CAC13 TYPE VALUE LENGTH) (TEMP23 VALUE)>
+TAG173
+ <INTGO>
+ <EMPTY? CAC13 + TAG170>
+ <NTH1 CAC13 = STACK>
+ <REST1 CAC13 = CAC13>
+ <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
+ <JUMP + TAG173>
+TAG170
+ <CALL '\1aOCEMIT TEMP23 = TEMP14>
+ <DEAD TEMP23>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE169
+ <FRAME '\1aALTER-AC>
+ <PUSH AC11>
+ <DEAD AC11>
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <CALL '\1aALTER-AC 2 = TEMP14>
+PHRASE175
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aOBJECT!-MIMOC>
+#WORD *32764025064*
+<GFCN \1aOPEN!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP8 TEMP15:LIST>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG11
+ <INTGO>
+ <EMPTY? TEMP8 + TAG7>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG11>
+TAG7
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O2*>
+ <SET TEMP8 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <RESTL L5 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = STACK>
+ <DEAD TEMP15>
+ <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG13 TEMP8>
+ <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP8 VALUE)>
+TAG16
+ <INTGO>
+ <EMPTY? TEMP9 + TAG13>
+ <NTH1 TEMP9 = STACK>
+ <REST1 TEMP9 = TEMP9>
+ <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
+ <JUMP + TAG16>
+TAG13
+ <CALL '\1aOCEMIT TEMP8>
+ <DEAD TEMP8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH 'B1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <RESTL L5 1 = TEMP15 (TYPE LIST)>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = STACK>
+ <DEAD TEMP15>
+ <SCALL '\1aOBJ-TYP 1 = TEMP8 + TAG18 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG20
+ <INTGO>
+ <EMPTY? TEMP8 + TAG18>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG20>
+TAG18
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'OPEN>
+ <NTHL L5 5 = STACK>
+ <DEAD L5>
+ <CALL '\1aPUSHJ 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aOPEN!-MIMOC>
+#WORD *4776510265*
+<GFCN \1aCLOSE!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP8>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'A1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG11
+ <INTGO>
+ <EMPTY? TEMP8 + TAG7>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG11>
+TAG7
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'CLOSE>
+ <EMPL? L5 + TAG17>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <EMPL? TEMP8 + TAG17>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <EMPL? TEMP8 - TAG16>
+ <DEAD TEMP8>
+TAG17
+ <SET TEMP9 %<> (TYPE FALSE)>
+ <JUMP + PHRASE15>
+TAG16
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = TEMP9>
+ <DEAD TEMP8>
+PHRASE15
+ <PUSH TEMP9>
+ <DEAD TEMP9>
+ <CALL '\1aPUSHJ 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aCLOSE!-MIMOC>
+#WORD *10554307110*
+<GFCN \1aRESET!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP8>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'A1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG11
+ <INTGO>
+ <EMPTY? TEMP8 + TAG7>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG11>
+TAG7
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'RESET>
+ <CALL '\1aPUSHJ 1 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aRESET!-MIMOC>
+#WORD *22000015571*
+<GFCN \1aREAD!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP LL6 TEMP14 TL7>
+ <INTGO>
+ <LENL L5 = LL6 (TYPE FIX)>
+ <SET LL6 L5>
+ <EMPL? LL6 + TAG9>
+ <LOOP (LL6 VALUE)>
+TAG11
+ <NTHL LL6 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG12>
+ <VEQUAL? TEMP14 '= + TAG10>
+ <DEAD TEMP14>
+TAG12
+ <RESTL LL6 1 = LL6 (TYPE LIST)>
+ <EMPL? LL6 - TAG11>
+TAG9
+ <SET TL7 %<> (TYPE FALSE)>
+ <JUMP + TAG15>
+TAG10
+ <SET TL7 LL6>
+ <DEAD LL6>
+TAG15
+ <LENL L5 = LL6 (TYPE FIX)>
+ <LENL TL7 = TEMP14 (TYPE FIX)>
+ <SUB LL6 TEMP14 = LL6 (TYPE FIX)>
+ <DEAD TEMP14>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <NTHL L5 1 = STACK>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A2*>
+ <RESTL L5 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = STACK>
+ <DEAD TEMP14>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'B1*>
+ <RESTL L5 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = STACK>
+ <DEAD TEMP14>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'B2*>
+ <RESTL L5 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = STACK>
+ <DEAD TEMP14>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <LESS? LL6 5 + PHRASE22 (TYPE FIX)>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'C1*>
+ <NTHL L5 5 = STACK>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <JUMP + COND21>
+PHRASE22
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'C1*>
+ <PUSH 0>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+COND21
+ <LESS? LL6 6 + PHRASE26 (TYPE FIX)>
+ <DEAD LL6>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'C2*>
+ <NTHL L5 6 = STACK>
+ <DEAD L5>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <JUMP + COND25>
+PHRASE26
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'C2*>
+ <PUSH 0>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+COND25
+ <FRAME '\1aPUSHJ>
+ <PUSH 'READ>
+ <SET TEMP14 TL7>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE31>
+ <RESTL TL7 1 = LL6 (TYPE LIST)>
+ <DEAD TL7>
+ <NTHL LL6 1 = TEMP14>
+ <DEAD LL6>
+PHRASE31
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <CALL '\1aPUSHJ 2 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aREAD!-MIMOC>
+#WORD *24150531240*
+<GFCN \1aPRINT!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <NTHL L5 1 = STACK>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A2*>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'B1*>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'PRINT>
+ <CALL '\1aPUSHJ 1 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aPRINT!-MIMOC>
+#WORD *3054761557*
+<GFCN \1aSET!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP ARG16:ATOM TEMP18 VT8 STK?9 MIML17 ITM12 TEMP46 TEMP56>
+ <INTGO>
+ <NTHL L5 1 = ARG16 (TYPE ATOM)>
+ <RESTL L5 1 = TEMP18 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP18 1 = TEMP18>
+ <FRAME '\1aVAR-TYPED?>
+ <PUSH ARG16>
+ <CALL '\1aVAR-TYPED? 1 = VT8>
+ <FRAME '\1aVAR-STACKED?>
+ <PUSH ARG16>
+ <CALL '\1aVAR-STACKED? 1 = STK?9>
+ <GEN-LVAL 'MIML = MIML17>
+ <TYPE? TEMP18 <TYPE-CODE ATOM> - PHRASE24>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH TEMP18>
+ <CALL '\1aWILL-DIE? 1 = ITM12>
+ <TYPE? ITM12 <TYPE-CODE FALSE> + PHRASE24>
+ <DEAD ITM12>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH ARG16>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS TEMP18 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+ <RESTL MIML17 1 = STK?9 (TYPE LIST)>
+ <NTHL STK?9 1 = STK?9>
+ <TYPE? STK?9 <TYPE-CODE FORM> - PHRASE30>
+ <DEAD STK?9>
+ <RESTL MIML17 1 = STK?9 (TYPE LIST)>
+ <NTHL STK?9 1 = STK?9 (TYPE FORM)>
+ <EMPL? STK?9 + PHRASE30 (TYPE FORM)>
+ <DEAD STK?9>
+ <RESTL MIML17 1 = STK?9 (TYPE LIST)>
+ <DEAD MIML17>
+ <NTHL STK?9 1 = STK?9 (TYPE FORM)>
+ <NTHL STK?9 1 = STK?9>
+ <EQUAL? STK?9 'RETURN - PHRASE30>
+ <DEAD STK?9>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <PUSH 'BOTH>
+ <SET ITM12 'A1* (TYPE ATOM)>
+ <PUSH ITM12>
+ <CALL '\1aGET-INTO-ACS 3>
+ <JUMP + PHRASE41>
+PHRASE30
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP18>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = MIML17>
+ <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE34>
+ <SET ITM12 MIML17>
+ <DEAD MIML17>
+ <JUMP + PHRASE41>
+PHRASE34
+ <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE36>
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP18>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = MIML17>
+ <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE36>
+ <SET ITM12 MIML17>
+ <DEAD MIML17>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aGETPROP>
+ <PUSH ITM12>
+ <DEAD ITM12>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = ITM12>
+ <PUSH ITM12>
+ <CALL '\1aGET-AC 1 = STK?9>
+ <PUTUV STK?9 6 VT8>
+ <DEAD STK?9>
+ <JUMP + PHRASE41>
+PHRASE36
+ <FRAME '\1aLOAD-AC>
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = ITM12>
+PHRASE41
+ <FRAME '\1aGET-AC>
+ <PUSH ITM12>
+ <CALL '\1aGET-AC 1 = STK?9>
+ <TYPE? VT8 <TYPE-CODE FALSE> - TAG44>
+ <DEAD VT8>
+ <SET TEMP46 'T (TYPE ATOM)>
+ <JUMP + TAG45>
+TAG44
+ <SET TEMP46 %<> (TYPE FALSE)>
+TAG45
+ <PUTUV STK?9 5 TEMP46>
+ <DEAD TEMP46>
+ <PUTUV STK?9 2 ARG16>
+ <PUTUV STK?9 3 'TYPE (TYPE ATOM)>
+ <DEAD STK?9>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <DEAD ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = STK?9>
+ <PUTUV STK?9 5 'T>
+ <PUTUV STK?9 2 ARG16>
+ <DEAD ARG16>
+ <PUTUV STK?9 3 'VALUE (TYPE ATOM)>
+ <RETURN STK?9>
+ <DEAD STK?9>
+PHRASE24
+ <TYPE? TEMP18 <TYPE-CODE ATOM> + PHRASE49>
+ <RESTL MIML17 1 = ITM12 (TYPE LIST)>
+ <DEAD MIML17>
+ <EMPL? ITM12 + PHRASE49 (TYPE LIST)>
+ <NTHL ITM12 1 = ITM12>
+ <TYPE? ITM12 <TYPE-CODE FORM> - PHRASE49>
+ <NTHL ITM12 1 = TEMP46>
+ <DEAD ITM12>
+ <EQUAL? TEMP46 'RETURN - PHRASE49>
+ <DEAD TEMP46>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH ARG16>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <PUSH 'BOTH>
+ <SET ITM12 'A1* (TYPE ATOM)>
+ <PUSH ITM12>
+ <CALL '\1aGET-INTO-ACS 3>
+ <FRAME '\1aGET-AC>
+ <PUSH ITM12>
+ <CALL '\1aGET-AC 1 = TEMP46>
+ <TYPE? VT8 <TYPE-CODE FALSE> - TAG54>
+ <DEAD VT8>
+ <SET TEMP56 'T (TYPE ATOM)>
+ <JUMP + TAG55>
+TAG54
+ <SET TEMP56 %<> (TYPE FALSE)>
+TAG55
+ <PUTUV TEMP46 5 TEMP56>
+ <DEAD TEMP56>
+ <PUTUV TEMP46 2 ARG16>
+ <PUTUV TEMP46 3 'TYPE (TYPE ATOM)>
+ <DEAD TEMP46>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <DEAD ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP46>
+ <PUTUV TEMP46 5 'T>
+ <PUTUV TEMP46 2 ARG16>
+ <DEAD ARG16>
+ <PUTUV TEMP46 3 'VALUE (TYPE ATOM)>
+ <RETURN TEMP46>
+ <DEAD TEMP46>
+PHRASE49
+ <TYPE? TEMP18 <TYPE-CODE ATOM> - PHRASE61>
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP18>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TEMP46>
+ <TYPE? TEMP46 <TYPE-CODE FALSE> - BOOL63>
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP18>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP46>
+BOOL63
+ <SET MIML17 TEMP46>
+ <DEAD TEMP46>
+ <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE61>
+ <FRAME '\1aGET-AC>
+ <PUSH MIML17>
+ <CALL '\1aGET-AC 1 = TEMP46>
+ <NTHUV TEMP46 5 = TEMP46>
+ <TYPE? TEMP46 <TYPE-CODE FALSE> + PHRASE61>
+ <DEAD TEMP46>
+ <FRAME '\1aGET-AC>
+ <PUSH MIML17>
+ <DEAD MIML17>
+ <CALL '\1aGET-AC 1 = TEMP46>
+ <GVAL 'AC-STAMP = TEMP56>
+ <PUTUV TEMP46 4 TEMP56 (TYPE FIX)>
+ <DEAD TEMP46 TEMP56>
+PHRASE61
+ <FRAME '\1aASSIGN-AC>
+ <PUSH ARG16>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = ITM12>
+ <FRAME '\1aGET-AC>
+ <PUSH ITM12>
+ <CALL '\1aGET-AC 1 = TEMP46>
+ <PUTUV TEMP46 6 %<>>
+ <DEAD TEMP46>
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP18>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = MIML17>
+ <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE71>
+ <FRAME '\1aGET-AC>
+ <PUSH MIML17>
+ <CALL '\1aGET-AC 1 = TEMP46>
+ <NTHUV TEMP46 6 = TEMP46>
+ <TYPE? TEMP46 <TYPE-CODE FALSE> - PHRASE71>
+ <DEAD TEMP46>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH ITM12>
+ <DEAD ITM12>
+ <PUSH MIML17>
+ <DEAD MIML17>
+ <CALL '\1aOCEMIT 3 = STK?9>
+ <RETURN STK?9>
+ <DEAD STK?9>
+PHRASE71
+ <FRAME '\1aPRIMTYPE>
+ <PUSH TEMP18>
+ <CALL '\1aPRIMTYPE 1 = TEMP46>
+ <SET TEMP56 [WORD FIX] (TYPE VECTOR)>
+ <LOOP (TEMP46 VALUE) (TEMP56 LENGTH VALUE)>
+TAG79
+ <NTHUV TEMP56 1 = MIML17>
+ <VEQUAL? MIML17 TEMP46 + TAG78>
+ <DEAD MIML17>
+ <RESTUV TEMP56 1 = TEMP56 (TYPE VECTOR)>
+ <EMPUV? TEMP56 - TAG79>
+ <JUMP + PHRASE76>
+TAG78
+ <FRAME '\1aTYPE>
+ <PUSH TEMP18>
+ <CALL '\1aTYPE 1 = TEMP56>
+ <GVAL 'TYPE-WORDS = TEMP46>
+ <EMPUV? TEMP46 + PHRASE76>
+ <LOOP (TEMP56 VALUE) (TEMP46 LENGTH VALUE)>
+TAG84
+ <NTHUV TEMP46 1 = MIML17>
+ <TYPE? MIML17 <TYPE-CODE ATOM> - TAG85>
+ <VEQUAL? MIML17 TEMP56 + TAG83>
+ <DEAD MIML17>
+TAG85
+ <RESTUV TEMP46 1 = TEMP46 (TYPE VECTOR)>
+ <EMPUV? TEMP46 - TAG84>
+ <JUMP + PHRASE76>
+TAG83
+ <VEQUAL? TEMP18 0 - PHRASE88 (TYPE FIX)>
+ <TYPE? STK?9 <TYPE-CODE FALSE> + PHRASE92>
+ <DEAD STK?9>
+ <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE92>
+ <DEAD VT8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETZB>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP56 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG16>
+ <PUSH %<>>
+ <SCALL '\1aOBJ-VAL 2 = TEMP46 + TAG94 TEMP56>
+ <LOOP (TEMP46 TYPE VALUE LENGTH) (TEMP56 VALUE)>
+TAG97
+ <INTGO>
+ <EMPTY? TEMP46 + TAG94>
+ <NTH1 TEMP46 = STACK>
+ <REST1 TEMP46 = TEMP46>
+ <ADD TEMP56 1 = TEMP56 (TYPE FIX)>
+ <JUMP + TAG97>
+TAG94
+ <CALL '\1aOCEMIT TEMP56>
+ <DEAD TEMP56>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP56>
+ <PUTUV TEMP56 5 %<>>
+ <DEAD TEMP56>
+ <JUMP + PHRASE137>
+PHRASE92
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 0>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE137>
+PHRASE88
+ <VEQUAL? TEMP18 -1 - PHRASE104 (TYPE FIX)>
+ <TYPE? STK?9 <TYPE-CODE FALSE> + PHRASE108>
+ <DEAD STK?9>
+ <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE108>
+ <DEAD VT8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETOB>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP46 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG16>
+ <PUSH %<>>
+ <SCALL '\1aOBJ-VAL 2 = TEMP56 + TAG110 TEMP46>
+ <LOOP (TEMP56 TYPE VALUE LENGTH) (TEMP46 VALUE)>
+TAG113
+ <INTGO>
+ <EMPTY? TEMP56 + TAG110>
+ <NTH1 TEMP56 = STACK>
+ <REST1 TEMP56 = TEMP56>
+ <ADD TEMP46 1 = TEMP46 (TYPE FIX)>
+ <JUMP + TAG113>
+TAG110
+ <CALL '\1aOCEMIT TEMP46>
+ <DEAD TEMP46>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP46>
+ <PUTUV TEMP46 5 %<>>
+ <DEAD TEMP46>
+ <JUMP + PHRASE137>
+PHRASE108
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVNI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE137>
+PHRASE104
+ <AND TEMP18 #WORD *777777* = TEMP46>
+ <VEQUAL? TEMP46 0 - PHRASE120 (TYPE FIX)>
+ <DEAD TEMP46>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVSI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <LSH TEMP18 -18 = STACK (TYPE FIX)>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE137>
+PHRASE120
+ <CHTYPE TEMP18 <TYPE-CODE FIX> = VT8>
+ <SET TEMP46 VT8>
+ <LESS? TEMP46 0 - TAG126 (TYPE FIX)>
+ <SUB 0 TEMP46 = TEMP46 (TYPE FIX)>
+TAG126
+ <GVAL 'MAX-IMMEDIATE = TEMP56>
+ <GRTR? TEMP46 TEMP56 + PHRASE125 (TYPE FIX)>
+ <DEAD TEMP46 TEMP56>
+ <LESS? VT8 0 + PHRASE128 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH VT8>
+ <DEAD VT8>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE137>
+PHRASE128
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVNI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP46 VT8>
+ <DEAD VT8>
+ <LESS? TEMP46 0 - TAG136 (TYPE FIX)>
+ <SUB 0 TEMP46 = TEMP46 (TYPE FIX)>
+TAG136
+ <PUSH TEMP46>
+ <DEAD TEMP46>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE137>
+PHRASE125
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP56 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH VT8>
+ <DEAD VT8>
+ <SCALL '\1aOBJ-VAL 1 = TEMP46 + TAG138 TEMP56>
+ <LOOP (TEMP46 TYPE VALUE LENGTH) (TEMP56 VALUE)>
+TAG141
+ <INTGO>
+ <EMPTY? TEMP46 + TAG138>
+ <NTH1 TEMP46 = STACK>
+ <REST1 TEMP46 = TEMP46>
+ <ADD TEMP56 1 = TEMP56 (TYPE FIX)>
+ <JUMP + TAG141>
+TAG138
+ <CALL '\1aOCEMIT TEMP56>
+ <DEAD TEMP56>
+PHRASE137
+ <FRAME '\1aGET-AC>
+ <PUSH ITM12>
+ <CALL '\1aGET-AC 1 = TEMP56>
+ <FRAME '\1aTYPE>
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <CALL '\1aTYPE 1 = TEMP46>
+ <PUTUV TEMP56 6 TEMP46>
+ <DEAD TEMP56 TEMP46>
+ <FRAME '\1aVAR-TYPED?>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <CALL '\1aVAR-TYPED? 1 = TEMP56>
+ <TYPE? TEMP56 <TYPE-CODE FALSE> + PHRASE146>
+ <DEAD TEMP56>
+ <FRAME '\1aGET-AC>
+ <PUSH ITM12>
+ <DEAD ITM12>
+ <CALL '\1aGET-AC 1 = TEMP56>
+ <PUTUV TEMP56 5 %<>>
+ <RETURN TEMP56>
+ <DEAD TEMP56>
+PHRASE146
+ <FRAME '\1aGET-AC>
+ <PUSH ITM12>
+ <DEAD ITM12>
+ <CALL '\1aGET-AC 1 = TEMP56>
+ <PUTUV TEMP56 5 'T>
+ <RETURN TEMP56>
+ <DEAD TEMP56>
+PHRASE76
+ <FRAME '\1aPRIMTYPE>
+ <PUSH TEMP18>
+ <CALL '\1aPRIMTYPE 1 = TEMP56>
+ <VEQUAL? TEMP56 'LIST - PHRASE151>
+ <DEAD TEMP56>
+ <EMPL? TEMP18 - PHRASE151 (TYPE LIST)>
+ <FRAME '\1aTYPE>
+ <PUSH TEMP18>
+ <CALL '\1aTYPE 1 = TEMP56>
+ <GVAL 'TYPE-WORDS = TEMP46>
+ <EMPUV? TEMP46 + PHRASE151>
+ <LOOP (TEMP56 VALUE) (TEMP46 LENGTH VALUE)>
+TAG155
+ <NTHUV TEMP46 1 = MIML17>
+ <TYPE? MIML17 <TYPE-CODE ATOM> - TAG156>
+ <VEQUAL? MIML17 TEMP56 + TAG154>
+ <DEAD MIML17>
+TAG156
+ <RESTUV TEMP46 1 = TEMP46 (TYPE VECTOR)>
+ <EMPUV? TEMP46 - TAG155>
+ <JUMP + PHRASE151>
+TAG154
+ <TYPE? STK?9 <TYPE-CODE FALSE> + PHRASE159>
+ <DEAD STK?9>
+ <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE159>
+ <DEAD VT8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETZB>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP56 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG16>
+ <PUSH %<>>
+ <SCALL '\1aOBJ-VAL 2 = TEMP46 + TAG161 TEMP56>
+ <LOOP (TEMP46 TYPE VALUE LENGTH) (TEMP56 VALUE)>
+TAG164
+ <INTGO>
+ <EMPTY? TEMP46 + TAG161>
+ <NTH1 TEMP46 = STACK>
+ <REST1 TEMP46 = TEMP46>
+ <ADD TEMP56 1 = TEMP56 (TYPE FIX)>
+ <JUMP + TAG164>
+TAG161
+ <CALL '\1aOCEMIT TEMP56>
+ <DEAD TEMP56>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP56>
+ <PUTUV TEMP56 5 %<>>
+ <DEAD TEMP56>
+ <JUMP + PHRASE168>
+PHRASE159
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 0>
+ <CALL '\1aOCEMIT 3>
+PHRASE168
+ <FRAME '\1aGET-AC>
+ <PUSH ITM12>
+ <CALL '\1aGET-AC 1 = TEMP56>
+ <FRAME '\1aTYPE>
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <CALL '\1aTYPE 1 = TEMP46>
+ <PUTUV TEMP56 6 TEMP46>
+ <DEAD TEMP56 TEMP46>
+ <FRAME '\1aVAR-TYPED?>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <CALL '\1aVAR-TYPED? 1 = STK?9>
+ <TYPE? STK?9 <TYPE-CODE FALSE> + PHRASE215>
+ <FRAME '\1aGET-AC>
+ <PUSH ITM12>
+ <DEAD ITM12>
+ <CALL '\1aGET-AC 1 = TEMP56>
+ <PUTUV TEMP56 5 %<>>
+ <RETURN TEMP56>
+ <DEAD TEMP56>
+PHRASE151
+ <FRAME '\1aVAR-TYPED?>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <CALL '\1aVAR-TYPED? 1 = VT8>
+ <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE177>
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP18>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = MIML17>
+ <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE177>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH MIML17>
+ <DEAD MIML17>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aGET-AC>
+ <PUSH ITM12>
+ <DEAD ITM12>
+ <CALL '\1aGET-AC 1 = TEMP56>
+ <PUTUV TEMP56 5 %<>>
+ <PUTUV TEMP56 6 VT8>
+ <DEAD VT8>
+ <RETURN TEMP56>
+ <DEAD TEMP56>
+PHRASE177
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP18>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = MIML17>
+ <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE184>
+ <FRAME '\1aVAR-TYPED?>
+ <PUSH TEMP18>
+ <CALL '\1aVAR-TYPED? 1 = TEMP56>
+ <TYPE? TEMP56 <TYPE-CODE FALSE> - BOOL189>
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP18>
+ <PUSH 'TYPE>
+ <CALL '\1aIN-AC? 2 = VT8>
+ <SET TEMP56 VT8>
+ <TYPE? TEMP56 <TYPE-CODE FALSE> + BOOL189>
+ <FRAME '\1aGET-AC>
+ <PUSH VT8>
+ <DEAD VT8>
+ <CALL '\1aGET-AC 1 = TEMP46>
+ <NTHUV TEMP46 6 = TEMP56>
+ <DEAD TEMP46>
+BOOL189
+ <SET VT8 TEMP56>
+ <DEAD TEMP56>
+ <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE184>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH MIML17>
+ <DEAD MIML17>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aGET-AC>
+ <PUSH ITM12>
+ <DEAD ITM12>
+ <CALL '\1aGET-AC 1 = TEMP56>
+ <PUTUV TEMP56 6 VT8>
+ <DEAD VT8>
+ <RETURN TEMP56>
+ <DEAD TEMP56>
+PHRASE184
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP18>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = MIML17>
+ <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE195>
+ <FRAME '\1aGET-AC>
+ <PUSH MIML17>
+ <CALL '\1aGET-AC 1 = TEMP56>
+ <NTHUV TEMP56 5 = TEMP56>
+ <TYPE? TEMP56 <TYPE-CODE FALSE> + PHRASE195>
+ <DEAD TEMP56>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH ITM12>
+ <SET TEMP46 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <SCALL '\1aOBJ-TYP 1 = TEMP56 + TAG199 TEMP46>
+ <LOOP (TEMP56 TYPE VALUE LENGTH) (TEMP46 VALUE)>
+TAG201
+ <INTGO>
+ <EMPTY? TEMP56 + TAG199>
+ <NTH1 TEMP56 = STACK>
+ <REST1 TEMP56 = TEMP56>
+ <ADD TEMP46 1 = TEMP46 (TYPE FIX)>
+ <JUMP + TAG201>
+TAG199
+ <CALL '\1aOCEMIT TEMP46>
+ <DEAD TEMP46>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <DEAD ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH MIML17>
+ <DEAD MIML17>
+ <CALL '\1aOCEMIT 3 = STK?9>
+ <RETURN STK?9>
+ <DEAD STK?9>
+PHRASE195
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP18>
+ <PUSH 'TYPE>
+ <CALL '\1aIN-AC? 2 = MIML17>
+ <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE205>
+ <FRAME '\1aGET-AC>
+ <PUSH MIML17>
+ <CALL '\1aGET-AC 1 = TEMP46>
+ <NTHUV TEMP46 5 = TEMP46>
+ <TYPE? TEMP46 <TYPE-CODE FALSE> + PHRASE205>
+ <DEAD TEMP46>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH ITM12>
+ <PUSH MIML17>
+ <DEAD MIML17>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ITM12>
+ <DEAD ITM12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP56 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <SCALL '\1aOBJ-VAL 1 = TEMP46 + TAG210 TEMP56>
+ <LOOP (TEMP46 TYPE VALUE LENGTH) (TEMP56 VALUE)>
+TAG213
+ <INTGO>
+ <EMPTY? TEMP46 + TAG210>
+ <NTH1 TEMP46 = STACK>
+ <REST1 TEMP46 = TEMP46>
+ <ADD TEMP56 1 = TEMP56 (TYPE FIX)>
+ <JUMP + TAG213>
+TAG210
+ <CALL '\1aOCEMIT TEMP56 = STK?9>
+ <DEAD TEMP56>
+ <RETURN STK?9>
+ <DEAD STK?9>
+PHRASE205
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH ITM12>
+ <DEAD ITM12>
+ <SET TEMP46 2 (TYPE FIX)>
+ <SFRAME 'OBJ-LOC>
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <PUSH 0>
+ <SCALL '\1aOBJ-LOC 2 = TEMP56 + TAG216 TEMP46>
+ <LOOP (TEMP56 TYPE VALUE LENGTH) (TEMP46 VALUE)>
+TAG218
+ <INTGO>
+ <EMPTY? TEMP56 + TAG216>
+ <NTH1 TEMP56 = STACK>
+ <REST1 TEMP56 = TEMP56>
+ <ADD TEMP46 1 = TEMP46 (TYPE FIX)>
+ <JUMP + TAG218>
+TAG216
+ <CALL '\1aOCEMIT TEMP46 = STK?9>
+ <DEAD TEMP46>
+PHRASE215
+ <RETURN STK?9>
+ <DEAD STK?9>
+ <END \1aSET!-MIMOC>
+#WORD *511173346*
+<GFCN \1aVAR-TYPED? ("VALUE" <OR ATOM FALSE> ATOM) ARG15>
+ <TEMP LV6 TEMP8 TEMP20 TEMP21>
+ <INTGO>
+ <FRAME '\1aLMEMQ>
+ <PUSH ARG15>
+ <GVAL 'LOCALS = STACK>
+ <CALL '\1aLMEMQ 2 = LV6>
+ <TYPE? LV6 <TYPE-CODE FALSE> - BOOL11>
+ <GVAL 'ICALL-FLAG = LV6>
+ <TYPE? LV6 <TYPE-CODE FALSE> + BOOL11>
+ <FRAME '\1aLMEMQ>
+ <PUSH ARG15>
+ <DEAD ARG15>
+ <GVAL 'ICALL-TEMPS = STACK>
+ <CALL '\1aLMEMQ 2 = LV6>
+BOOL11
+ <SET TEMP8 LV6>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
+ <NTHUV LV6 2 = TEMP8>
+ <EQUAL? TEMP8 'OARG - TAG13>
+ <DEAD TEMP8>
+ <RETURN %<>>
+TAG13
+ <NTHUV LV6 4 = LV6>
+ <SET TEMP8 LV6>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
+ <FRAME '\1aTYPEPRIM>
+ <PUSH LV6>
+ <CALL '\1aTYPEPRIM 1 = TEMP8>
+ <SET TEMP20 [WORD FIX LIST] (TYPE VECTOR)>
+ <TYPE? TEMP8 <TYPE-CODE ATOM> - TAG16>
+ <LOOP (TEMP8 VALUE) (TEMP20 LENGTH VALUE)>
+TAG17
+ <NTHUV TEMP20 1 = TEMP21>
+ <VEQUAL? TEMP21 TEMP8 + TAG23>
+ <DEAD TEMP21>
+ <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
+ <EMPUV? TEMP20 - TAG17>
+TAG16
+ <GVAL 'TYPE-LENGTHS = TEMP8>
+ <EMPUV? TEMP8 + TAG22>
+ <LOOP (LV6 VALUE) (TEMP8 LENGTH VALUE)>
+TAG24
+ <NTHUV TEMP8 1 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE ATOM> - TAG25>
+ <VEQUAL? TEMP20 LV6 + TAG23>
+ <DEAD TEMP20>
+TAG25
+ <RESTUV TEMP8 1 = TEMP8 (TYPE VECTOR)>
+ <EMPUV? TEMP8 - TAG24>
+TAG22
+ <RETURN %<>>
+TAG23
+ <SET TEMP8 LV6>
+ <DEAD LV6>
+BOOL7
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aVAR-TYPED?>
+#WORD *12067143611*
+<GFCN \1aVAR-STACKED? ("VALUE" <OR ATOM FALSE> ATOM) ARG15>
+ <TEMP LV6 TEMP8>
+ <INTGO>
+ <FRAME '\1aLMEMQ>
+ <PUSH ARG15>
+ <GVAL 'LOCALS = STACK>
+ <CALL '\1aLMEMQ 2 = LV6>
+ <TYPE? LV6 <TYPE-CODE FALSE> - BOOL11>
+ <GVAL 'ICALL-FLAG = LV6>
+ <TYPE? LV6 <TYPE-CODE FALSE> + BOOL11>
+ <FRAME '\1aLMEMQ>
+ <PUSH ARG15>
+ <DEAD ARG15>
+ <GVAL 'ICALL-TEMPS = STACK>
+ <CALL '\1aLMEMQ 2 = LV6>
+BOOL11
+ <SET TEMP8 LV6>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
+ <NTHUV LV6 2 = TEMP8>
+ <DEAD LV6>
+BOOL7
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aVAR-STACKED?>
+<SETG SIMPLE-DEATH <>>
+
+<NEWTYPE DEAD-VAR ATOM>
+
+#WORD *11563720044*
+<GFCN \1aWILL-DIE? ("VALUE" <OR ATOM FALSE <LIST ANY>> ANY "OPTIONAL" LIST FIX) ARG10 MIML11 VISIT12>
+ <OPT-DISPATCH 1 %<> OPT7 OPT8 OPT9>
+OPT7
+ <PUSH #T$UNBOUND 0>
+OPT8
+ <PUSH #T$UNBOUND 0>
+OPT9
+ <TEMP TEMP17 TEMP35 ITM26 TEMP44 XP69:LIST X70>
+ <INTGO>
+ <TYPE? MIML11 <TYPE-CODE UNBOUND> - TAG15>
+ <GEN-LVAL 'MIML = MIML11>
+TAG15
+ <TYPE? VISIT12 <TYPE-CODE UNBOUND> - TAG20>
+ <GVAL 'VISIT-COUNT = TEMP17>
+ <ADD TEMP17 1 = TEMP17 (TYPE FIX)>
+ <SETG 'VISIT-COUNT TEMP17>
+ <SET VISIT12 TEMP17>
+ <DEAD TEMP17>
+TAG20
+ <GVAL 'SIMPLE-DEATH = TEMP17>
+ <LOOP>
+AGAIN30
+ <INTGO>
+ <TYPE? ARG10 <TYPE-CODE ATOM> + PHRASE32>
+ <RETURN 'T>
+PHRASE32
+ <EMPL? MIML11 + TAG34>
+ <RESTL MIML11 1 = TEMP35 (TYPE LIST)>
+ <EMPL? TEMP35 - PHRASE33>
+ <DEAD TEMP35>
+TAG34
+ <RETURN 'T>
+PHRASE33
+ <RESTL MIML11 1 = TEMP35 (TYPE LIST)>
+ <NTHL TEMP35 1 = TEMP35>
+ <TYPE? TEMP35 <TYPE-CODE FORM> - PHRASE36>
+ <NTHL TEMP35 1 = ITM26>
+ <EQUAL? ITM26 'DEAD - BOOL38>
+ <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
+ <CHTYPE TEMP35 <TYPE-CODE LIST> = TEMP35>
+ <EMPL? TEMP35 + TAG41>
+ <LOOP (ARG10 VALUE) (TEMP35 VALUE)>
+TAG42
+ <NTHL TEMP35 1 = TEMP44>
+ <TYPE? TEMP44 <TYPE-CODE ATOM> - TAG43>
+ <VEQUAL? TEMP44 ARG10 + BOOL37>
+ <DEAD TEMP44>
+TAG43
+ <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
+ <EMPL? TEMP35 - TAG42>
+TAG41
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL45>
+ <RETURN %<>>
+BOOL45
+ <RESTL MIML11 1 = MIML11 (TYPE LIST)>
+ <JUMP + AGAIN30>
+BOOL38
+ <EQUAL? ITM26 'RETURN - BOOL47>
+ <RESTL TEMP35 1 = TEMP44 (TYPE LIST)>
+ <DEAD TEMP35>
+ <NTHL TEMP44 1 = TEMP44>
+ <EQUAL? TEMP44 ARG10 + TAG48>
+ <DEAD TEMP44>
+ <RETURN 'T>
+TAG48
+ <RETURN %<>>
+BOOL47
+ <EQUAL? ITM26 'DISPATCH - BOOL50>
+ <RETURN %<>>
+BOOL50
+ <EQUAL? ITM26 'END - TAG51>
+ <RETURN 'T>
+TAG51
+ <EQUAL? ITM26 'SET - BOOL52>
+ <RESTL TEMP35 1 = TEMP44 (TYPE LIST)>
+ <NTHL TEMP44 1 = TEMP44>
+ <EQUAL? TEMP44 ARG10 - TAG54>
+ <DEAD TEMP44>
+ <RETURN 'T>
+TAG54
+ <RESTL TEMP35 1 = TEMP44 (TYPE LIST)>
+ <DEAD TEMP35>
+ <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
+ <NTHL TEMP44 1 = TEMP44>
+ <EQUAL? TEMP44 ARG10 + BOOL56>
+ <DEAD TEMP44>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE55>
+BOOL56
+ <RETURN %<>>
+PHRASE55
+ <RESTL MIML11 1 = MIML11 (TYPE LIST)>
+ <JUMP + AGAIN30>
+BOOL52
+ <EQUAL? ITM26 'ICALL + MAPAP63>
+ <CHTYPE TEMP35 <TYPE-CODE LIST> = TEMP44>
+ <LOOP>
+MAP60
+ <INTGO>
+ <EMPL? TEMP44 + MAPAP63>
+ <SET XP69 TEMP44>
+ <NTHL XP69 1 = X70>
+ <EQUAL? X70 '= - PHRASE76>
+ <RESTL XP69 1 = XP69 (TYPE LIST)>
+ <NTHL XP69 1 = X70>
+ <DEAD XP69>
+ <EQUAL? X70 ARG10 - MAPAP63>
+ <DEAD X70>
+ <RETURN 'T>
+PHRASE76
+ <EQUAL? X70 ARG10 - PHRASE77>
+ <DEAD X70>
+ <RETURN %<>>
+PHRASE77
+ <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
+ <JUMP + MAP60>
+MAPAP63
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL78>
+ <RETURN %<>>
+BOOL78
+ <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
+ <CHTYPE TEMP35 <TYPE-CODE LIST> = TEMP35>
+ <SET X70 TEMP35>
+ <EMPL? X70 + TAG81>
+ <LOOP (X70 VALUE)>
+TAG83
+ <NTHL X70 1 = TEMP44>
+ <TYPE? TEMP44 <TYPE-CODE ATOM> - TAG84>
+ <VEQUAL? TEMP44 '+ + TAG82>
+ <DEAD TEMP44>
+TAG84
+ <RESTL X70 1 = X70 (TYPE LIST)>
+ <EMPL? X70 - TAG83>
+TAG81
+ <SET X70 %<> (TYPE FALSE)>
+TAG82
+ <VEQUAL? X70 0 - BOOL80>
+ <SET TEMP44 TEMP35>
+ <EMPL? TEMP44 + TAG85>
+ <LOOP (TEMP44 VALUE)>
+TAG87
+ <NTHL TEMP44 1 = X70>
+ <TYPE? X70 <TYPE-CODE ATOM> - TAG88>
+ <VEQUAL? X70 '- + TAG86>
+ <DEAD X70>
+TAG88
+ <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
+ <EMPL? TEMP44 - TAG87>
+TAG85
+ <SET X70 %<> (TYPE FALSE)>
+ <JUMP + TAG89>
+TAG86
+ <SET X70 TEMP44>
+ <DEAD TEMP44>
+TAG89
+ <VEQUAL? X70 0 - BOOL80>
+ <EQUAL? ITM26 'NTHR - BOOL90>
+ <SET ITM26 TEMP35>
+ <DEAD TEMP35>
+ <LOOP (ITM26 VALUE)>
+TAG91
+ <RESTL ITM26 1 = TEMP44 (TYPE LIST)>
+ <EMPL? TEMP44 + TAG92>
+ <SET ITM26 TEMP44>
+ <DEAD TEMP44>
+ <JUMP + TAG91>
+TAG92
+ <NTHL ITM26 1 = ITM26>
+ <TYPE? ITM26 <TYPE-CODE LIST> - BOOL90>
+ <NTHL ITM26 1 = TEMP44>
+ <EQUAL? TEMP44 'BRANCH-FALSE - BOOL90>
+ <DEAD TEMP44>
+ <RESTL ITM26 1 = X70 (TYPE LIST)>
+ <JUMP + BOOL80>
+BOOL90
+ <EQUAL? ITM26 'ICALL - PHRASE113>
+ <RESTL MIML11 1 = TEMP35 (TYPE LIST)>
+ <NTHL TEMP35 1 = X70 (TYPE FORM)>
+ <DEAD TEMP35>
+BOOL80
+ <FRAME '\1aFIND-LABEL>
+ <RESTL X70 1 = TEMP35 (TYPE LIST)>
+ <NTHL TEMP35 1 = TEMP44>
+ <DEAD TEMP35>
+ <PUSH TEMP44>
+ <CALL '\1aFIND-LABEL 1 = TEMP35>
+ <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE107>
+ <FRAME '\1aLAB-WILL-DIE>
+ <PUSH TEMP35>
+ <DEAD TEMP35>
+ <PUSH ARG10>
+ <PUSH VISIT12>
+ <EQUAL? ITM26 'ICALL + TAG102>
+ <SET TEMP35 %<> (TYPE FALSE)>
+ <JUMP + PHRASE100>
+TAG102
+ <EMPL? X70 + TAG104>
+ <RESTL X70 1 = XP69 (TYPE LIST)>
+ <EMPL? XP69 - TAG103>
+ <DEAD XP69>
+TAG104
+ <SET TEMP35 %<> (TYPE FALSE)>
+ <JUMP + PHRASE100>
+TAG103
+ <RESTL X70 1 = XP69 (TYPE LIST)>
+ <DEAD X70>
+ <RESTL XP69 1 = XP69 (TYPE LIST)>
+ <RESTL XP69 1 = XP69 (TYPE LIST)>
+ <NTHL XP69 1 = TEMP35>
+ <DEAD XP69>
+PHRASE100
+ <PUSH TEMP35>
+ <DEAD TEMP35>
+ <CALL '\1aLAB-WILL-DIE 4 = TEMP35>
+ <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE107>
+ <DEAD TEMP35>
+ <RESTL MIML11 1 = MIML11 (TYPE LIST)>
+ <EQUAL? ITM26 'JUMP - AGAIN30>
+ <DEAD ITM26>
+ <RETURN 'T>
+PHRASE107
+ <EQUAL? TEMP44 'COMPERR + BOOL109>
+ <EQUAL? TEMP44 'IOERR + BOOL109>
+ <EQUAL? TEMP44 'UNWCNT - PHRASE108>
+ <DEAD TEMP44>
+BOOL109
+ <EQUAL? ITM26 'JUMP - PHRASE113>
+ <RETURN 'T>
+PHRASE108
+ <RETURN %<>>
+PHRASE113
+ <GVAL 'THE-BIG-LABELS = XP69>
+ <EMPL? XP69 + MAPAP120 (TYPE LIST)>
+ <DEAD XP69>
+ <EQUAL? ITM26 'CALL + BOOL115>
+ <EQUAL? ITM26 'ACALL + BOOL115>
+ <EQUAL? ITM26 'SCALL - MAPAP120>
+ <DEAD ITM26>
+BOOL115
+ <GVAL 'THE-BIG-LABELS = XP69>
+ <LOOP>
+MAP117
+ <INTGO>
+ <EMPL? XP69 + MAPAP120>
+ <NTHL XP69 1 = TEMP35>
+ <FRAME '\1aLAB-WILL-DIE>
+ <FRAME '\1aFIND-LABEL>
+ <PUSH TEMP35>
+ <DEAD TEMP35>
+ <CALL '\1aFIND-LABEL 1 = STACK>
+ <PUSH ARG10>
+ <PUSH VISIT12>
+ <PUSH %<>>
+ <CALL '\1aLAB-WILL-DIE 4 = TEMP35>
+ <TYPE? TEMP35 <TYPE-CODE FALSE> - PHRASE130>
+ <DEAD TEMP35>
+ <RETURN %<>>
+PHRASE130
+ <RESTL XP69 1 = XP69 (TYPE LIST)>
+ <JUMP + MAP117>
+MAPAP120
+ <RESTL MIML11 1 = MIML11 (TYPE LIST)>
+ <JUMP + AGAIN30>
+BOOL37
+ <RETURN TEMP35>
+ <DEAD TEMP35>
+PHRASE36
+ <RESTL MIML11 1 = MIML11 (TYPE LIST)>
+ <JUMP + AGAIN30>
+ <END \1aWILL-DIE?>
+#WORD *30414117450*
+<GFCN \1aLAB-WILL-DIE ("VALUE" <OR ATOM FALSE LAB> LAB ATOM FIX <OR ATOM FALSE>) LB5 ARG6 VISIT7 ICALL-VAR8>
+ <TEMP TEMP9 TEMP32:LIST TEMP36:ATOM>
+ <INTGO>
+ <EQUAL? ICALL-VAR8 ARG6 - PHRASE14>
+ <DEAD ICALL-VAR8>
+ <RETURN 'T>
+PHRASE14
+ <NTHR 'DO-LOOPS 1 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL18)>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL18>
+ <NTHR TEMP9 1 = TEMP9 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP9 <TYPE-CODE UNBOUND> + BOOL18>
+ <DEAD TEMP9>
+ <GVAL 'DO-LOOPS = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - TAG20>
+ <DEAD TEMP9>
+BOOL18
+ <NTHUV LB5 3 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + TAG20>
+ <DEAD TEMP9>
+ <SET TEMP9 %<> (TYPE FALSE)>
+ <JUMP + PHRASE45>
+TAG20
+ <SET TEMP9 %<> (TYPE FALSE)>
+ <NTHUV LB5 8 = TEMP32 (TYPE LIST)>
+ <LOOP>
+MAP23
+ <INTGO>
+ <EMPL? TEMP32 + MAPAP26>
+ <NTHL TEMP32 1 = TEMP9>
+ <CHTYPE TEMP9 <TYPE-CODE ATOM> = TEMP36>
+ <VEQUAL? TEMP36 ARG6 - PHRASE39>
+ <DEAD TEMP36>
+ <TYPE? TEMP9 <TYPE-CODE ATOM> - PHRASE38>
+ <DEAD TEMP9>
+ <RETURN %<>>
+PHRASE38
+ <SET TEMP9 'T (TYPE ATOM)>
+ <JUMP + MAPEX25>
+PHRASE39
+ <SET TEMP9 %<> (TYPE FALSE)>
+ <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
+ <JUMP + MAP23>
+MAPAP26
+MAPEX25
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE45>
+ <NTHUV LB5 6 = TEMP9 (TYPE FIX)>
+ <VEQUAL? VISIT7 TEMP9 - TAG40 (TYPE FIX)>
+ <DEAD TEMP9>
+ <SET TEMP9 'T (TYPE ATOM)>
+ <JUMP + PHRASE45>
+TAG40
+ <PUTUV LB5 6 VISIT7 (TYPE FIX)>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG6>
+ <NTHUV LB5 7 = STACK (TYPE LIST)>
+ <PUSH VISIT7>
+ <DEAD VISIT7>
+ <CALL '\1aWILL-DIE? 3 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE43>
+ <DEAD TEMP9>
+ <NTHUV LB5 8 = TEMP32 (TYPE LIST)>
+ <CHTYPE ARG6 <TYPE-CODE DEAD-VAR> = TEMP9>
+ <DEAD ARG6>
+ <CONS TEMP9 TEMP32 = TEMP32>
+ <DEAD TEMP9>
+ <PUTUV LB5 8 TEMP32 (TYPE LIST)>
+ <DEAD TEMP32>
+ <SET TEMP9 LB5>
+ <DEAD LB5>
+ <JUMP + PHRASE45>
+PHRASE43
+ <NTHUV LB5 8 = TEMP32 (TYPE LIST)>
+ <CONS ARG6 TEMP32 = TEMP32>
+ <DEAD ARG6>
+ <PUTUV LB5 8 TEMP32 (TYPE LIST)>
+ <DEAD LB5 TEMP32>
+ <SET TEMP9 %<> (TYPE FALSE)>
+PHRASE45
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aLAB-WILL-DIE>
+<NEWTYPE T$UNBOUND FIX>
+
+#WORD *33207316141*
+<GFCN \1aPUSH!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L4>
+ <TEMP ARG5 TEMP12 TEMP11>
+ <INTGO>
+ <NTHL L4 1 = ARG5>
+ <DEAD L4>
+ <TYPE? ARG5 <TYPE-CODE T$UNBOUND> - PHRASE9>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP12 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH 0>
+ <SCALL '\1aOBJ-VAL 1 = TEMP11 + TAG10 TEMP12>
+ <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
+TAG14
+ <INTGO>
+ <EMPTY? TEMP11 + TAG10>
+ <NTH1 TEMP11 = STACK>
+ <REST1 TEMP11 = TEMP11>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG14>
+TAG10
+ <CALL '\1aOCEMIT TEMP12>
+ <DEAD TEMP12>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP11 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH 0>
+ <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG16 TEMP11>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP11 VALUE)>
+TAG18
+ <INTGO>
+ <EMPTY? TEMP12 + TAG16>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <JUMP + TAG18>
+TAG16
+ <CALL '\1aOCEMIT TEMP11>
+ <DEAD TEMP11>
+ <GVAL 'WINNING-VICTIM = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE45>
+ <GVAL 'STACK-DEPTH = TEMP12>
+ <ADD TEMP12 2 = TEMP12 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE9
+ <TYPE? ARG5 <TYPE-CODE ATOM> - PHRASE24>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG5>
+ <PUSH 'TYPE>
+ <CALL '\1aIN-AC? 2 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE24>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <CALL '\1aGET-AC 1 = TEMP12>
+ <NTHUV TEMP12 6 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE24>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP11 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <SCALL '\1aTYPE-WORD 1 = TEMP12 + TAG28 TEMP11>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP11 VALUE)>
+TAG31
+ <INTGO>
+ <EMPTY? TEMP12 + TAG28>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <JUMP + TAG31>
+TAG28
+ <CALL '\1aOCEMIT TEMP11>
+ <DEAD TEMP11>
+ <JUMP + PHRASE33>
+PHRASE24
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP12 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH ARG5>
+ <SCALL '\1aOBJ-TYP 1 = TEMP11 + TAG34 TEMP12>
+ <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
+TAG36
+ <INTGO>
+ <EMPTY? TEMP11 + TAG34>
+ <NTH1 TEMP11 = STACK>
+ <REST1 TEMP11 = TEMP11>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG36>
+TAG34
+ <CALL '\1aOCEMIT TEMP12>
+ <DEAD TEMP12>
+PHRASE33
+ <GVAL 'WINNING-VICTIM = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE39>
+ <DEAD TEMP12>
+ <GVAL 'STACK-DEPTH = TEMP12>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP12>
+ <DEAD TEMP12>
+PHRASE39
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP11 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG5>
+ <DEAD ARG5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG40 TEMP11>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP11 VALUE)>
+TAG42
+ <INTGO>
+ <EMPTY? TEMP12 + TAG40>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <JUMP + TAG42>
+TAG40
+ <CALL '\1aOCEMIT TEMP11>
+ <DEAD TEMP11>
+ <GVAL 'WINNING-VICTIM = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE45>
+ <GVAL 'STACK-DEPTH = TEMP11>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP11>
+PHRASE45
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aPUSH!-MIMOC>
+#WORD *24752155415*
+<GFCN \1aPOP!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L4>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aASSIGN-AC>
+ <RESTL L4 1 = TEMP7 (TYPE LIST)>
+ <DEAD L4>
+ <NTHL TEMP7 1 = STACK>
+ <DEAD TEMP7>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = TEMP7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH TEMP7>
+ <DEAD TEMP7>
+ <PUSH -1>
+ <PUSH (TP*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADJSP>
+ <PUSH 'TP*>
+ <PUSH -2>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE11>
+ <GVAL 'STACK-DEPTH = TEMP7>
+ <SUB TEMP7 2 = TEMP7 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP7>
+PHRASE11
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aPOP!-MIMOC>
+#WORD *16260005774*
+<GFCN \1aADJ!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP ARG6 TEMP12>
+ <INTGO>
+ <NTHL L5 1 = ARG6>
+ <DEAD L5>
+ <TYPE? ARG6 <TYPE-CODE FIX> - PHRASE8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADJSP>
+ <PUSH 'TP*>
+ <PUSH ARG6>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE14>
+ <GVAL 'STACK-DEPTH = TEMP12>
+ <ADD TEMP12 ARG6 = TEMP12 (TYPE FIX)>
+ <DEAD ARG6>
+ <SETG 'STACK-DEPTH TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE8
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'T*>
+ <PUSH ARG6>
+ <DEAD ARG6>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADJSP>
+ <PUSH 'TP*>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 3 = TEMP12>
+PHRASE14
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aADJ!-MIMOC>
+#WORD *23573342355*
+<GFCN \1aGETS!-MIMOC ("VALUE" ANY LIST) L4>
+ <TEMP ARG15 TEMP10 VAL6:ATOM TEMP16 TEMP9>
+ <INTGO>
+ <NTHL L4 1 = ARG15 (TYPE FORM)>
+ <RESTL L4 1 = TEMP10 (TYPE LIST)>
+ <DEAD L4>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = VAL6 (TYPE ATOM)>
+ <DEAD TEMP10>
+ <RESTL ARG15 1 = TEMP10 (TYPE LIST)>
+ <DEAD ARG15>
+ <NTHL TEMP10 1 = ARG15 (TYPE ATOM)>
+ <DEAD TEMP10>
+ <VEQUAL? ARG15 'ARGS - PHRASE12>
+ <VEQUAL? VAL6 'STACK - PHRASE14>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP16 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP10 + TAG15 TEMP16>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
+TAG18
+ <INTGO>
+ <EMPTY? TEMP10 + TAG15>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG18>
+TAG15
+ <CALL '\1aOCEMIT TEMP16>
+ <DEAD TEMP16>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HLRZ>
+ <PUSH 'O*>
+ <PUSH -2>
+ <PUSH (F*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'O*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE25>
+ <GVAL 'STACK-DEPTH = TEMP10>
+ <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE14
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = VAL6>
+ <FRAME '\1aGET-AC>
+ <PUSH VAL6>
+ <CALL '\1aGET-AC 1 = TEMP10>
+ <PUTUV TEMP10 6 'FIX>
+ <DEAD TEMP10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HLRZ>
+ <FRAME '\1aNEXT-AC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH -2>
+ <PUSH (F*)>
+ <CALL '\1aOCEMIT 4 = TEMP16>
+PHRASE25
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE12
+ <VEQUAL? ARG15 'OBLIST - PHRASE30>
+ <VEQUAL? VAL6 'STACK - PHRASE32>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'T*>
+ <PUSH 100>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 1>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 4>
+ <GVAL 'WINNING-VICTIM = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE40>
+ <GVAL 'STACK-DEPTH = TEMP10>
+ <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE32
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = VAL6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH '@>
+ <PUSH 100>
+ <CALL '\1aOCEMIT 4 = TEMP16>
+PHRASE40
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE30
+ <VEQUAL? ARG15 'BIND - PHRASE43>
+ <VEQUAL? VAL6 'STACK - PHRASE45>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP16 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'LBIND>
+ <SCALL '\1aTYPE-WORD 1 = TEMP10 + TAG46 TEMP16>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
+TAG49
+ <INTGO>
+ <EMPTY? TEMP10 + TAG46>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG49>
+TAG46
+ <CALL '\1aOCEMIT TEMP16>
+ <DEAD TEMP16>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'SP*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE54>
+ <GVAL 'STACK-DEPTH = TEMP16>
+ <ADD TEMP16 2 = TEMP16 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE45
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = VAL6>
+ <FRAME '\1aGET-AC>
+ <PUSH VAL6>
+ <CALL '\1aGET-AC 1 = TEMP16>
+ <PUTUV TEMP16 6 'LBIND>
+ <DEAD TEMP16>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 'SP*>
+ <CALL '\1aOCEMIT 3 = TEMP16>
+PHRASE54
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE43
+ <VEQUAL? ARG15 'PAGPTR - PHRASE59>
+ <VEQUAL? VAL6 'STACK - PHRASE61>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'T*>
+ <PUSH 101>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 1>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 4>
+ <GVAL 'WINNING-VICTIM = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE68>
+ <DEAD TEMP16>
+ <GVAL 'STACK-DEPTH = TEMP16>
+ <ADD TEMP16 2 = TEMP16 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP16>
+ <DEAD TEMP16>
+PHRASE68
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPN>
+ <PUSH (TP*)>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETZM>
+ <PUSH -1>
+ <PUSH (TP*)>
+ <CALL '\1aOCEMIT 3 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE61
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = VAL6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH VAL6>
+ <PUSH '@>
+ <PUSH 101>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPN>
+ <PUSH 'O*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH VAL6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 0>
+ <CALL '\1aOCEMIT 3 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE59
+ <VEQUAL? ARG15 'MINF - PHRASE77>
+ <VEQUAL? VAL6 'STACK - PHRASE79>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'T$MINF>
+ <SCALL '\1aTYPE-WORD 1 = TEMP16 + TAG80 TEMP10>
+ <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG82
+ <INTGO>
+ <EMPTY? TEMP16 + TAG80>
+ <NTH1 TEMP16 = STACK>
+ <REST1 TEMP16 = TEMP16>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG82>
+TAG80
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH '@>
+ <PUSH 99>
+ <CALL '\1aOCEMIT 4>
+ <GVAL 'WINNING-VICTIM = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE86>
+ <DEAD TEMP10>
+ <GVAL 'STACK-DEPTH = TEMP10>
+ <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP10>
+ <DEAD TEMP10>
+PHRASE86
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPN>
+ <PUSH (TP*)>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETZM>
+ <PUSH -1>
+ <PUSH (TP*)>
+ <CALL '\1aOCEMIT 3 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE79
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = VAL6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH VAL6>
+ <SET TEMP16 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'T$MINF>
+ <SCALL '\1aTYPE-WORD 1 = TEMP10 + TAG91 TEMP16>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
+TAG93
+ <INTGO>
+ <EMPTY? TEMP10 + TAG91>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG93>
+TAG91
+ <CALL '\1aOCEMIT TEMP16>
+ <DEAD TEMP16>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPN>
+ <FRAME '\1aNEXT-AC>
+ <PUSH VAL6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH '@>
+ <PUSH 99>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 0>
+ <CALL '\1aOCEMIT 3 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE77
+ <SET TEMP9 [ICALL ECALL NCALL UWATM MAPPER PURVEC DBVEC TBIND] (TYPE VECTOR)>
+ <LOOP (ARG15 VALUE) (TEMP9 LENGTH VALUE)>
+TAG101
+ <NTHUV TEMP9 1 = TEMP16>
+ <VEQUAL? TEMP16 ARG15 + TAG100>
+ <DEAD TEMP16>
+ <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
+ <EMPUV? TEMP9 - TAG101>
+ <SET TEMP9 %<> (TYPE FALSE)>
+TAG100
+ <VEQUAL? TEMP9 0 + PHRASE98>
+ <LENUV TEMP9 = TEMP9 (TYPE FIX)>
+ <VEQUAL? VAL6 'STACK - PHRASE104>
+ <VEQUAL? ARG15 'TBIND - PHRASE106>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'LBIND>
+ <SCALL '\1aTYPE-WORD 1 = TEMP16 + TAG107 TEMP10>
+ <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG109
+ <INTGO>
+ <EMPTY? TEMP16 + TAG107>
+ <NTH1 TEMP16 = STACK>
+ <REST1 TEMP16 = TEMP16>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG109>
+TAG107
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <JUMP + COND105>
+PHRASE106
+ <SET TEMP10 [PURVEC DBVEC] (TYPE VECTOR)>
+ <LOOP (ARG15 VALUE) (TEMP10 LENGTH VALUE)>
+TAG113
+ <NTHUV TEMP10 1 = TEMP16>
+ <VEQUAL? TEMP16 ARG15 + TAG112>
+ <DEAD TEMP16>
+ <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
+ <EMPUV? TEMP10 - TAG113>
+ <JUMP + PHRASE111>
+TAG112
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP16 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'LIST>
+ <SCALL '\1aTYPE-WORD 1 = TEMP10 + TAG115 TEMP16>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
+TAG117
+ <INTGO>
+ <EMPTY? TEMP10 + TAG115>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG117>
+TAG115
+ <CALL '\1aOCEMIT TEMP16>
+ <DEAD TEMP16>
+ <JUMP + COND105>
+PHRASE111
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'ATOM>
+ <SCALL '\1aTYPE-WORD 1 = TEMP16 + TAG119 TEMP10>
+ <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG121
+ <INTGO>
+ <EMPTY? TEMP16 + TAG119>
+ <NTH1 TEMP16 = STACK>
+ <REST1 TEMP16 = TEMP16>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG121>
+TAG119
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+COND105
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH '@>
+ <NTHUU ![94 98 97 96 102 105 104 103!] TEMP9 = STACK (TYPE FIX)>
+ <DEAD TEMP9>
+ <CALL '\1aOCEMIT 4>
+ <GVAL 'WINNING-VICTIM = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE125>
+ <DEAD TEMP10>
+ <GVAL 'STACK-DEPTH = TEMP10>
+ <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP10>
+ <DEAD TEMP10>
+PHRASE125
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPN>
+ <PUSH (TP*)>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETZM>
+ <PUSH -1>
+ <PUSH (TP*)>
+ <CALL '\1aOCEMIT 3 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE104
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = VAL6>
+ <VEQUAL? ARG15 'TBIND - PHRASE131>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH VAL6>
+ <SET TEMP16 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'LBIND>
+ <SCALL '\1aTYPE-WORD 1 = TEMP10 + TAG132 TEMP16>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
+TAG134
+ <INTGO>
+ <EMPTY? TEMP10 + TAG132>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG134>
+TAG132
+ <CALL '\1aOCEMIT TEMP16>
+ <DEAD TEMP16>
+ <JUMP + COND130>
+PHRASE131
+ <SET TEMP16 [PURVEC DBVEC] (TYPE VECTOR)>
+ <LOOP (ARG15 VALUE) (TEMP16 LENGTH VALUE)>
+TAG138
+ <NTHUV TEMP16 1 = TEMP10>
+ <VEQUAL? TEMP10 ARG15 + TAG137>
+ <DEAD TEMP10>
+ <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
+ <EMPUV? TEMP16 - TAG138>
+ <JUMP + PHRASE136>
+TAG137
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH VAL6>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'LIST>
+ <SCALL '\1aTYPE-WORD 1 = TEMP16 + TAG140 TEMP10>
+ <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG142
+ <INTGO>
+ <EMPTY? TEMP16 + TAG140>
+ <NTH1 TEMP16 = STACK>
+ <REST1 TEMP16 = TEMP16>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG142>
+TAG140
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <JUMP + COND130>
+PHRASE136
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH VAL6>
+ <SET TEMP16 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'ATOM>
+ <SCALL '\1aTYPE-WORD 1 = TEMP10 + TAG144 TEMP16>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
+TAG146
+ <INTGO>
+ <EMPTY? TEMP10 + TAG144>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG146>
+TAG144
+ <CALL '\1aOCEMIT TEMP16>
+ <DEAD TEMP16>
+COND130
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPN>
+ <FRAME '\1aNEXT-AC>
+ <PUSH VAL6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH '@>
+ <NTHUU ![94 98 97 96 102 105 104 103!] TEMP9 = STACK (TYPE FIX)>
+ <DEAD TEMP9>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 0>
+ <CALL '\1aOCEMIT 3 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE98
+ <SET TEMP16 [ENVIR ARGV] (TYPE VECTOR)>
+ <LOOP (ARG15 VALUE) (TEMP16 LENGTH VALUE)>
+TAG153
+ <NTHUV TEMP16 1 = TEMP10>
+ <VEQUAL? TEMP10 ARG15 + TAG152>
+ <DEAD TEMP10>
+ <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
+ <EMPUV? TEMP16 - TAG153>
+ <JUMP + PHRASE151>
+TAG152
+ <VEQUAL? VAL6 'STACK - PHRASE156>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FALSE>
+ <SCALL '\1aTYPE-WORD 1 = TEMP16 + TAG157 TEMP10>
+ <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG159
+ <INTGO>
+ <EMPTY? TEMP16 + TAG157>
+ <NTH1 TEMP16 = STACK>
+ <REST1 TEMP16 = TEMP16>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG159>
+TAG157
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP16 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH 0>
+ <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG161 TEMP16>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
+TAG163
+ <INTGO>
+ <EMPTY? TEMP10 + TAG161>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG163>
+TAG161
+ <CALL '\1aOCEMIT TEMP16>
+ <DEAD TEMP16>
+ <GVAL 'WINNING-VICTIM = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE167>
+ <GVAL 'STACK-DEPTH = TEMP16>
+ <ADD TEMP16 2 = TEMP16 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE156
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = VAL6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH VAL6>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FALSE>
+ <SCALL '\1aTYPE-WORD 1 = TEMP16 + TAG169 TEMP10>
+ <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG171
+ <INTGO>
+ <EMPTY? TEMP16 + TAG169>
+ <NTH1 TEMP16 = STACK>
+ <REST1 TEMP16 = TEMP16>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG171>
+TAG169
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 0>
+ <CALL '\1aOCEMIT 3 = TEMP16>
+PHRASE167
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE151
+ <VEQUAL? ARG15 'BINDID + BOOL176>
+ <VEQUAL? ARG15 'INGC - PHRASE175>
+BOOL176
+ <VEQUAL? VAL6 'STACK - PHRASE178>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP16 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP10 + TAG179 TEMP16>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
+TAG181
+ <INTGO>
+ <EMPTY? TEMP10 + TAG179>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG181>
+TAG179
+ <CALL '\1aOCEMIT TEMP16>
+ <DEAD TEMP16>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH '@>
+ <VEQUAL? ARG15 'BINDID - PHRASE185>
+ <DEAD ARG15>
+ <SET TEMP16 95 (TYPE FIX)>
+ <JUMP + PHRASE186>
+PHRASE185
+ <SET TEMP16 113 (TYPE FIX)>
+PHRASE186
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aOCEMIT 4>
+ <GVAL 'WINNING-VICTIM = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE189>
+ <GVAL 'STACK-DEPTH = TEMP16>
+ <ADD TEMP16 2 = TEMP16 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE178
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = VAL6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVSI>
+ <PUSH VAL6>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'TYPE-CODE>
+ <PUSH 'FIX>
+ <PUSH 'T>
+ <SCALL '\1aTYPE-CODE 2 = TEMP16 + TAG191 TEMP10>
+ <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG193
+ <INTGO>
+ <EMPTY? TEMP16 + TAG191>
+ <NTH1 TEMP16 = STACK>
+ <REST1 TEMP16 = TEMP16>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG193>
+TAG191
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH '@>
+ <VEQUAL? ARG15 'BINDID - PHRASE198>
+ <DEAD ARG15>
+ <SET TEMP10 95 (TYPE FIX)>
+ <JUMP + PHRASE199>
+PHRASE198
+ <SET TEMP10 113 (TYPE FIX)>
+PHRASE199
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <CALL '\1aOCEMIT 4 = TEMP16>
+PHRASE189
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE175
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'UNKNOWN-SPECIAL-VARIABLE!-ERRORS>
+ <PUSH ARG15>
+ <DEAD ARG15>
+ <CALL '\1aMIMOCERR 2 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aGETS!-MIMOC>
+#WORD *5440256352*
+<GFCN \1aATIC!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP8>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG11
+ <INTGO>
+ <EMPTY? TEMP8 + TAG7>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG11>
+TAG7
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'ATIC>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <CALL '\1aPUSHJ 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aATIC!-MIMOC>
+#WORD *17575266253*
+<GFCN \1aSETS!-MIMOC ("VALUE" ANY LIST) L4>
+ <TEMP ARG5 VAR6:ATOM VAL7 TEMP15>
+ <INTGO>
+ <NTHL L4 1 = ARG5 (TYPE FORM)>
+ <RESTL ARG5 1 = ARG5 (TYPE LIST)>
+ <NTHL ARG5 1 = VAR6 (TYPE ATOM)>
+ <DEAD ARG5>
+ <RESTL L4 1 = ARG5 (TYPE LIST)>
+ <NTHL ARG5 1 = VAL7>
+ <DEAD ARG5>
+ <SET ARG5 L4>
+ <LOOP (ARG5 VALUE)>
+TAG13
+ <NTHL ARG5 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG14>
+ <VEQUAL? TEMP15 '= + TAG12>
+ <DEAD TEMP15>
+TAG14
+ <RESTL ARG5 1 = ARG5 (TYPE LIST)>
+ <EMPL? ARG5 - TAG13>
+ <JUMP + PHRASE11>
+TAG12
+ <FRAME '\1aERROR>
+ <PUSH 'CANT-ASSIGN-RESULT-OF-SETS!-ERRORS>
+ <PUSH L4>
+ <DEAD L4>
+ <CALL '\1aERROR 2>
+PHRASE11
+ <VEQUAL? VAR6 'BIND - PHRASE18>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'SP*>
+ <SET TEMP15 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <SCALL '\1aOBJ-VAL 1 = ARG5 + TAG19 TEMP15>
+ <LOOP (ARG5 TYPE VALUE LENGTH) (TEMP15 VALUE)>
+TAG21
+ <INTGO>
+ <EMPTY? ARG5 + TAG19>
+ <NTH1 ARG5 = STACK>
+ <REST1 ARG5 = ARG5>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <JUMP + TAG21>
+TAG19
+ <CALL '\1aOCEMIT TEMP15 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE18
+ <VEQUAL? VAR6 'ICALL - PHRASE23>
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL7>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = ARG5>
+ <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE25>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'VALUE>
+ <SET ARG5 'O1* (TYPE ATOM)>
+ <PUSH ARG5>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE25
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH ARG5>
+ <DEAD ARG5>
+ <PUSH '@>
+ <PUSH 103>
+ <CALL '\1aOCEMIT 4 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE23
+ <VEQUAL? VAR6 'INGC - PHRASE29>
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL7>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = ARG5>
+ <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE31>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'VALUE>
+ <SET ARG5 'O1* (TYPE ATOM)>
+ <PUSH ARG5>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE31
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH ARG5>
+ <DEAD ARG5>
+ <PUSH '@>
+ <PUSH 113>
+ <CALL '\1aOCEMIT 4 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE29
+ <VEQUAL? VAR6 'ECALL - PHRASE35>
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL7>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = ARG5>
+ <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE37>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'VALUE>
+ <SET ARG5 'O1* (TYPE ATOM)>
+ <PUSH ARG5>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE37
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH ARG5>
+ <DEAD ARG5>
+ <PUSH '@>
+ <PUSH 104>
+ <CALL '\1aOCEMIT 4 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE35
+ <VEQUAL? VAR6 'NCALL - PHRASE41>
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL7>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = ARG5>
+ <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE43>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'VALUE>
+ <SET ARG5 'O1* (TYPE ATOM)>
+ <PUSH ARG5>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE43
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH ARG5>
+ <DEAD ARG5>
+ <PUSH '@>
+ <PUSH 105>
+ <CALL '\1aOCEMIT 4 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE41
+ <VEQUAL? VAR6 'RUNINT - PHRASE47>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP15 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <SCALL '\1aOBJ-VAL 1 = ARG5 + TAG49 TEMP15>
+ <LOOP (ARG5 TYPE VALUE LENGTH) (TEMP15 VALUE)>
+TAG52
+ <INTGO>
+ <EMPTY? ARG5 + TAG49>
+ <NTH1 ARG5 = STACK>
+ <REST1 ARG5 = ARG5>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <JUMP + TAG52>
+TAG49
+ <CALL '\1aOCEMIT TEMP15>
+ <DEAD TEMP15>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'IENABLE>
+ <CALL '\1aPUSHJ 1 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE47
+ <VEQUAL? VAR6 'UWATM - PHRASE55>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET ARG5 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG56 ARG5>
+ <LOOP (TEMP15 TYPE VALUE LENGTH) (ARG5 VALUE)>
+TAG58
+ <INTGO>
+ <EMPTY? TEMP15 + TAG56>
+ <NTH1 TEMP15 = STACK>
+ <REST1 TEMP15 = TEMP15>
+ <ADD ARG5 1 = ARG5 (TYPE FIX)>
+ <JUMP + TAG58>
+TAG56
+ <CALL '\1aOCEMIT ARG5>
+ <DEAD ARG5>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'SUNWAT>
+ <CALL '\1aPUSHJ 1 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE55
+ <VEQUAL? VAR6 'PAGPTR - PHRASE61>
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL7>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = ARG5>
+ <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE63>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'BOTH>
+ <SET ARG5 'O1* (TYPE ATOM)>
+ <PUSH ARG5>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE63
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVEM>
+ <PUSH ARG5>
+ <DEAD ARG5>
+ <PUSH '@>
+ <PUSH 101>
+ <CALL '\1aOCEMIT 4 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE61
+ <VEQUAL? VAR6 'MINF - PHRASE67>
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL7>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = ARG5>
+ <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE69>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'VALUE>
+ <SET ARG5 'O1* (TYPE ATOM)>
+ <PUSH ARG5>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE69
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH ARG5>
+ <DEAD ARG5>
+ <PUSH '@>
+ <PUSH 99>
+ <CALL '\1aOCEMIT 4 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE67
+ <VEQUAL? VAR6 'MAPPER - PHRASE73>
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL7>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = ARG5>
+ <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE75>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'VALUE>
+ <SET ARG5 'O1* (TYPE ATOM)>
+ <PUSH ARG5>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE75
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH ARG5>
+ <DEAD ARG5>
+ <PUSH '@>
+ <PUSH 96>
+ <CALL '\1aOCEMIT 4 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE73
+ <VEQUAL? VAR6 'PURVEC - PHRASE79>
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL7>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = ARG5>
+ <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE81>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'VALUE>
+ <SET ARG5 'O1* (TYPE ATOM)>
+ <PUSH ARG5>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE81
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH ARG5>
+ <DEAD ARG5>
+ <PUSH '@>
+ <PUSH 97>
+ <CALL '\1aOCEMIT 4 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE79
+ <VEQUAL? VAR6 'DBVEC - PHRASE85>
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL7>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = ARG5>
+ <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE87>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'VALUE>
+ <SET ARG5 'O1* (TYPE ATOM)>
+ <PUSH ARG5>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE87
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH ARG5>
+ <DEAD ARG5>
+ <PUSH '@>
+ <PUSH 98>
+ <CALL '\1aOCEMIT 4 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE85
+ <VEQUAL? VAR6 'OBLIST - PHRASE91>
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL7>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = ARG5>
+ <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE93>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'BOTH>
+ <SET ARG5 'O1* (TYPE ATOM)>
+ <PUSH ARG5>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE93
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVEM>
+ <PUSH ARG5>
+ <DEAD ARG5>
+ <PUSH '@>
+ <PUSH 100>
+ <CALL '\1aOCEMIT 4 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE91
+ <VEQUAL? VAR6 'TBIND - PHRASE97>
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL7>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = ARG5>
+ <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE99>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'VALUE>
+ <SET ARG5 'O1* (TYPE ATOM)>
+ <PUSH ARG5>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE99
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH ARG5>
+ <DEAD ARG5>
+ <PUSH '@>
+ <PUSH 94>
+ <CALL '\1aOCEMIT 4 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE97
+ <VEQUAL? VAR6 'BINDID - PHRASE103>
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL7>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = ARG5>
+ <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE105>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'VALUE>
+ <SET ARG5 'O1* (TYPE ATOM)>
+ <PUSH ARG5>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE105
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH ARG5>
+ <DEAD ARG5>
+ <PUSH '@>
+ <PUSH 95>
+ <CALL '\1aOCEMIT 4 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE103
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'UNKNOWN-SPECIAL-VARIABLE!-ERRORS>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <CALL '\1aMIMOCERR 2 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aSETS!-MIMOC>
+#WORD *36734242257*
+<GFCN \1aJUMP!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <RESTL L5 1 = TEMP7 (TYPE LIST)>
+ <NTHL TEMP7 1 = STACK>
+ <DEAD TEMP7>
+ <PUSH 'T>
+ <CALL '\1aLABEL-UPDATE-ACS 2>
+ <SETG 'LAST-UNCON 'T>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <RESTL L5 1 = TEMP7 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP7 1 = STACK>
+ <DEAD TEMP7>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aJUMP!-MIMOC>
+<NEWTYPE GFRM ATOM>
+
+<NEWTYPE GCAL ATOM>
+
+<NEWTYPE SGFRM ATOM>
+
+<SETG GLUE-FRAME 100>
+
+#WORD *17543015021*
+<GFCN \1aSFRAME!-MIMOC ("VALUE" <OR FALSE FIX> ANY) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aFRAME!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'T>
+ <CALL '\1aFRAME!-MIMOC 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aSFRAME!-MIMOC>
+#WORD *7364160064*
+<GFCN \1aFRAME!-MIMOC ("VALUE" <OR FALSE FIX> LIST "OPTIONAL" ANY) L6 SEG7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP14 NM9>
+ <INTGO>
+ <GVAL 'GLUE-MODE = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE12>
+ <DEAD TEMP14>
+ <EMPL? L6 + PHRASE12 (TYPE LIST)>
+ <NTHL L6 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FORM> + PHRASE12>
+ <DEAD TEMP14>
+ <GVAL 'SURVIVOR-MODE = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE16>
+ <DEAD TEMP14>
+ <FRAME '\1aFIND-CALL>
+ <RESTL L6 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = NM9>
+ <DEAD TEMP14>
+ <PUSH NM9>
+ <GVAL 'PRE-NAMES = STACK>
+ <CALL '\1aFIND-CALL 2 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE16>
+ <FRAME '\1aGETPROP>
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <PUSH 'NDFRM>
+ <CALL '\1aGETPROP 2 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE16>
+ <DEAD TEMP14>
+ <FRAME '\1aFIND-OPT>
+ <PUSH NM9>
+ <GVAL 'PRE-OPTS = STACK>
+ <CALL '\1aFIND-OPT 2 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE16>
+ <DEAD TEMP14>
+ <FRAME '\1aSURVIVOR?>
+ <PUSH NM9>
+ <DEAD NM9>
+ <CALL '\1aSURVIVOR? 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE16>
+ <DEAD TEMP14>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET NM9 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP14 + TAG22 NM9>
+ <LOOP (TEMP14 TYPE VALUE LENGTH) (NM9 VALUE)>
+TAG25
+ <INTGO>
+ <EMPTY? TEMP14 + TAG22>
+ <NTH1 TEMP14 = STACK>
+ <REST1 TEMP14 = TEMP14>
+ <ADD NM9 1 = NM9 (TYPE FIX)>
+ <JUMP + TAG25>
+TAG22
+ <CALL '\1aOCEMIT NM9>
+ <DEAD NM9>
+ <TYPE? SEG7 <TYPE-CODE FALSE> + PHRASE28>
+ <DEAD SEG7>
+ <FRAME '\1aOCEMIT>
+ <NTHL L6 1 = NM9>
+ <DEAD L6>
+ <CHTYPE NM9 <TYPE-CODE SGFRM> = STACK>
+ <DEAD NM9>
+ <PUSH 'T>
+ <CALL '\1aOCEMIT 2>
+ <JUMP + PHRASE30>
+PHRASE28
+ <FRAME '\1aOCEMIT>
+ <NTHL L6 1 = NM9>
+ <DEAD L6>
+ <CHTYPE NM9 <TYPE-CODE GFRM> = STACK>
+ <DEAD NM9>
+ <PUSH 'T>
+ <CALL '\1aOCEMIT 2>
+PHRASE30
+ <GVAL 'PASS1 = NM9>
+ <TYPE? NM9 <TYPE-CODE FALSE> - PHRASE33>
+ <DEAD NM9>
+ <FRAME '\1aCONST-ADD-FRM>
+ <CALL '\1aCONST-ADD-FRM 0>
+PHRASE33
+ <GVAL 'WINNING-VICTIM = NM9>
+ <TYPE? NM9 <TYPE-CODE FALSE> + PHRASE53>
+ <GVAL 'STACK-DEPTH = TEMP14>
+ <ADD TEMP14 2 = TEMP14 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE16
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPL>
+ <PUSH 'T*>
+ <PUSH -1>
+ <PUSH (F*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRROI>
+ <PUSH 'T*>
+ <PUSH (F*)>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'T*>
+ <CALL '\1aOCEMIT 3>
+ <TYPE? SEG7 <TYPE-CODE FALSE> + PHRASE44>
+ <DEAD SEG7>
+ <FRAME '\1aOCEMIT>
+ <NTHL L6 1 = TEMP14>
+ <DEAD L6>
+ <CHTYPE TEMP14 <TYPE-CODE SGFRM> = STACK>
+ <DEAD TEMP14>
+ <PUSH 'T>
+ <CALL '\1aOCEMIT 2>
+ <JUMP + PHRASE46>
+PHRASE44
+ <FRAME '\1aOCEMIT>
+ <NTHL L6 1 = TEMP14>
+ <DEAD L6>
+ <CHTYPE TEMP14 <TYPE-CODE GFRM> = STACK>
+ <DEAD TEMP14>
+ <PUSH 'T>
+ <CALL '\1aOCEMIT 2>
+PHRASE46
+ <GVAL 'PASS1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE49>
+ <DEAD TEMP14>
+ <FRAME '\1aCONST-ADD-FRM>
+ <CALL '\1aCONST-ADD-FRM 0>
+PHRASE49
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'F*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = NM9>
+ <TYPE? NM9 <TYPE-CODE FALSE> + PHRASE76>
+ <GVAL 'STACK-DEPTH = TEMP14>
+ <ADD TEMP14 3 = TEMP14 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP14>
+ <SET NM9 TEMP14>
+ <DEAD TEMP14>
+PHRASE53
+ <RETURN NM9>
+ <DEAD NM9>
+PHRASE12
+ <EMPL? L6 + PHRASE54 (TYPE LIST)>
+ <NTHL L6 1 = NM9>
+ <TYPE? NM9 <TYPE-CODE FORM> + PHRASE54>
+ <FRAME '\1aSUBRIFY?>
+ <RESTL L6 1 = TEMP14 (TYPE LIST)>
+ <DEAD L6>
+ <NTHL TEMP14 1 = STACK>
+ <DEAD TEMP14>
+ <CALL '\1aSUBRIFY? 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE54>
+ <DEAD TEMP14>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aOCEMIT>
+ <CHTYPE NM9 <TYPE-CODE SBFRM> = STACK>
+ <DEAD NM9>
+ <PUSH 'T>
+ <CALL '\1aOCEMIT 2>
+ <GVAL 'PASS1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE61>
+ <DEAD TEMP14>
+ <FRAME '\1aCONST-ADD-FRM>
+ <CALL '\1aCONST-ADD-FRM 0>
+PHRASE61
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JSP>
+ <PUSH 'T*>
+ <PUSH '@>
+ <FRAME '\1aOPCODE>
+ <PUSH 'SBRFRAM>
+ <CALL '\1aOPCODE 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FIX> - TAG65>
+ <SUB 0 TEMP14 = STACK (TYPE FIX)>
+ <DEAD TEMP14>
+ <JUMP + TAG66>
+TAG65
+ <SUBF 0.0 TEMP14 = STACK (TYPE FLOAT)>
+ <DEAD TEMP14>
+TAG66
+ <CALL '\1aOCEMIT 4>
+ <GVAL 'WINNING-VICTIM = NM9>
+ <TYPE? NM9 <TYPE-CODE FALSE> + PHRASE76>
+ <GVAL 'STACK-DEPTH = TEMP14>
+ <ADD TEMP14 7 = TEMP14 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE54
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aPUSHJ>
+ <TYPE? SEG7 <TYPE-CODE FALSE> + PHRASE73>
+ <DEAD SEG7>
+ <SET TEMP14 'SFRAME (TYPE ATOM)>
+ <JUMP + PHRASE74>
+PHRASE73
+ <SET TEMP14 'FRAME (TYPE ATOM)>
+PHRASE74
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <CALL '\1aPUSHJ 1>
+ <GVAL 'WINNING-VICTIM = NM9>
+ <TYPE? NM9 <TYPE-CODE FALSE> + PHRASE76>
+ <GVAL 'STACK-DEPTH = TEMP14>
+ <ADD TEMP14 7 = TEMP14 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP14>
+ <SET NM9 TEMP14>
+ <DEAD TEMP14>
+PHRASE76
+ <RETURN NM9>
+ <DEAD NM9>
+ <END \1aFRAME!-MIMOC>
+#WORD *25316263361*
+<GFCN \1aVFRAME!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'FRAME>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP8 1 = STACK>
+ <DEAD TEMP8>
+ <CALL '\1aPUSHJ 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aVFRAME!-MIMOC>
+#WORD *4022337244*
+<GFCN \1aCFRAME!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP8 VAL6>
+ <INTGO>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP8 1 = VAL6 (TYPE ATOM)>
+ <DEAD TEMP8>
+ <VEQUAL? VAL6 'STACK - PHRASE10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET VAL6 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FRAME>
+ <SCALL '\1aTYPE-WORD 1 = TEMP8 + TAG11 VAL6>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (VAL6 VALUE)>
+TAG14
+ <INTGO>
+ <EMPTY? TEMP8 + TAG11>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD VAL6 1 = VAL6 (TYPE FIX)>
+ <JUMP + TAG14>
+TAG11
+ <CALL '\1aOCEMIT VAL6>
+ <DEAD VAL6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XMOVEI>
+ <PUSH 'O*>
+ <PUSH -4>
+ <PUSH (F*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = VAL6>
+ <TYPE? VAL6 <TYPE-CODE FALSE> + PHRASE20>
+ <GVAL 'STACK-DEPTH = TEMP8>
+ <ADD TEMP8 2 = TEMP8 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+PHRASE10
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = VAL6>
+ <FRAME '\1aGET-AC>
+ <PUSH VAL6>
+ <CALL '\1aGET-AC 1 = TEMP8>
+ <PUTUV TEMP8 6 'FRAME>
+ <DEAD TEMP8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XMOVEI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH -4>
+ <PUSH (F*)>
+ <CALL '\1aOCEMIT 4 = VAL6>
+PHRASE20
+ <RETURN VAL6>
+ <DEAD VAL6>
+ <END \1aCFRAME!-MIMOC>
+#WORD *21135654350*
+<GFCN \1aPFRAME!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L4>
+ <TEMP TEMP10 VAL5:ATOM AC6:ATOM NAC7:ATOM>
+ <INTGO>
+ <RESTL L4 1 = TEMP10 (TYPE LIST)>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = VAL5 (TYPE ATOM)>
+ <DEAD TEMP10>
+ <FRAME '\1aLOAD-AC>
+ <NTHL L4 1 = STACK>
+ <DEAD L4>
+ <PUSH 'VALUE>
+ <CALL '\1aLOAD-AC 2 = AC6>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL5>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = NAC7>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC7>
+ <CALL '\1aGET-AC 1 = TEMP10>
+ <PUTUV TEMP10 6 'FRAME>
+ <DEAD TEMP10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC7>
+ <CALL '\1aNEXT-AC 1 = TEMP10>
+ <PUSH TEMP10>
+ <PUSH 3>
+ <CONS AC6 () = STACK>
+ <DEAD AC6>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPL>
+ <CONS TEMP10 () = STACK>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <FRAME '\1aGENLBL>
+ <PUSH "END">
+ <CALL '\1aGENLBL 1 = AC6>
+ <PUSH AC6>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRR>
+ <PUSH TEMP10>
+ <PUSH -1>
+ <CONS TEMP10 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SUBI>
+ <PUSH TEMP10>
+ <PUSH 4>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aLABEL>
+ <PUSH AC6>
+ <DEAD AC6>
+ <CALL '\1aLABEL 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HLL>
+ <PUSH TEMP10>
+ <PUSH 'F*>
+ <CALL '\1aOCEMIT 3>
+ <VEQUAL? VAL5 'STACK + TAG26>
+ <DEAD VAL5>
+ <RETURN %<>>
+TAG26
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH NAC7>
+ <DEAD NAC7>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE30>
+ <GVAL 'STACK-DEPTH = TEMP10>
+ <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP10>
+PHRASE30
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aPFRAME!-MIMOC>
+#WORD *31253534274*
+<GFCN \1aRFRAME!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aRETURN!-MIMOC>
+ <PUSH L5>
+ <RESTL L5 1 = TEMP7 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP7 1 = STACK>
+ <DEAD TEMP7>
+ <CALL '\1aRETURN!-MIMOC 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aRFRAME!-MIMOC>
+#WORD *25134454416*
+<GFCN \1aRTUPLE!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP8>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG11
+ <INTGO>
+ <EMPTY? TEMP8 + TAG7>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG11>
+TAG7
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O2*>
+ <SET TEMP8 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG13 TEMP8>
+ <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP8 VALUE)>
+TAG16
+ <INTGO>
+ <EMPTY? TEMP9 + TAG13>
+ <NTH1 TEMP9 = STACK>
+ <REST1 TEMP9 = TEMP9>
+ <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
+ <JUMP + TAG16>
+TAG13
+ <CALL '\1aOCEMIT TEMP8>
+ <DEAD TEMP8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <PUSH '@>
+ <FRAME '\1aOPCODE>
+ <PUSH 'RTUPLE>
+ <CALL '\1aOPCODE 1 = STACK>
+ <CALL '\1aOCEMIT 3 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aRTUPLE!-MIMOC>
+#WORD *35313011261*
+<GFCN \1aMRETURN!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP8>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG11
+ <INTGO>
+ <EMPTY? TEMP8 + TAG7>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG11>
+TAG7
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = TEMP9>
+ <EQUAL? TEMP9 0 - PHRASE14>
+ <DEAD TEMP9>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O2*>
+ <PUSH 0>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE16>
+PHRASE14
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O2*>
+ <SET TEMP8 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG17 TEMP8>
+ <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP8 VALUE)>
+TAG20
+ <INTGO>
+ <EMPTY? TEMP9 + TAG17>
+ <NTH1 TEMP9 = STACK>
+ <REST1 TEMP9 = TEMP9>
+ <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
+ <JUMP + TAG20>
+TAG17
+ <CALL '\1aOCEMIT TEMP8>
+ <DEAD TEMP8>
+PHRASE16
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <PUSH '@>
+ <FRAME '\1aOPCODE>
+ <PUSH 'MRETURN>
+ <CALL '\1aOPCODE 1 = STACK>
+ <CALL '\1aOCEMIT 3 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aMRETURN!-MIMOC>
+#WORD *33442757232*
+<GFCN \1aICALL!-MIMOC ("VALUE" LIST LIST) L5>
+ <TEMP END6 TEMP10 TEMP22>
+ <INTGO>
+ <FRAME '\1aGENLBL>
+ <PUSH "ICALL">
+ <CALL '\1aGENLBL 1 = END6>
+ <GVAL 'ICALL-FLAG = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
+ <DEAD TEMP10>
+ <GVAL 'ICALL-FLAG = TEMP10>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <SETG 'ICALL-FLAG TEMP10>
+ <DEAD TEMP10>
+ <JUMP + PHRASE11>
+PHRASE9
+ <SETG 'ICALL-FLAG 1>
+PHRASE11
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aFLUSH-ACS>
+ <CALL '\1aFLUSH-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JSP>
+ <PUSH 'T*>
+ <PUSH '@>
+ <FRAME '\1aOPCODE>
+ <PUSH 'ICALL>
+ <CALL '\1aOPCODE 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FIX> - TAG16>
+ <SUB 0 TEMP10 = STACK (TYPE FIX)>
+ <DEAD TEMP10>
+ <JUMP + TAG17>
+TAG16
+ <SUBF 0.0 TEMP10 = STACK (TYPE FLOAT)>
+ <DEAD TEMP10>
+TAG17
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH END6>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <GVAL 'ICALL-TAGS = TEMP10>
+ <EMPL? L5 + PHRASE21>
+ <RESTL L5 1 = TEMP22 (TYPE LIST)>
+ <EMPL? TEMP22 + PHRASE21>
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <EMPL? TEMP22 + PHRASE21>
+ <DEAD TEMP22>
+ <RESTL L5 1 = TEMP22 (TYPE LIST)>
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <NTHL TEMP22 1 = TEMP22>
+ <JUMP + PHRASE23>
+PHRASE21
+ <SET TEMP22 %<> (TYPE FALSE)>
+PHRASE23
+ <CONS TEMP22 TEMP10 = TEMP10>
+ <DEAD TEMP22>
+ <CONS END6 TEMP10 = TEMP10>
+ <DEAD END6>
+ <NTHL L5 1 = TEMP22>
+ <DEAD L5>
+ <CONS TEMP22 TEMP10 = TEMP10>
+ <DEAD TEMP22>
+ <SETG 'ICALL-TAGS TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aICALL!-MIMOC>
+#WORD *10243202421*
+<GFCN \1aSCALL!-MIMOC ("VALUE" ANY ANY) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aCALL!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'T>
+ <CALL '\1aCALL!-MIMOC 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aSCALL!-MIMOC>
+#WORD *37421175001*
+<GFCN \1aCALL!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY) L8 SEG9>
+ <OPT-DISPATCH 1 %<> OPT6 OPT7>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP ARG110 TEMP20 ARG211 TAG16 XTAG18 (SBYFINF19 %<>) TEMP25 COUNT17 PN14 OP-INF15>
+ <INTGO>
+ <NTHL L8 1 = ARG110>
+ <RESTL L8 1 = TEMP20 (TYPE LIST)>
+ <NTHL TEMP20 1 = ARG211>
+ <DEAD TEMP20>
+ <FRAME '\1aGENLBL>
+ <PUSH "SC">
+ <CALL '\1aGENLBL 1 = XTAG18>
+ <TYPE? SEG9 <TYPE-CODE FALSE> + PHRASE23>
+ <SET TEMP20 L8>
+ <SET TEMP25 6 (TYPE FIX)>
+ <LOOP (TEMP20 VALUE) (TEMP25 VALUE)>
+TAG26
+ <EMPL? TEMP20 + PHRASE23>
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
+ <GRTR? TEMP25 0 + TAG26 (TYPE FIX)>
+ <NTHL L8 6 = TAG16>
+ <NTHL L8 7 = COUNT17>
+PHRASE23
+ <TYPE? ARG110 <TYPE-CODE FORM> - PHRASE28>
+ <GVAL 'GLUE-MODE = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + BOOL31>
+ <DEAD TEMP20>
+ <FRAME '\1aFIND-CALL>
+ <RESTL ARG110 1 = TEMP20 (TYPE LIST)>
+ <NTHL TEMP20 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP20>
+ <GVAL 'PRE-NAMES = STACK>
+ <CALL '\1aFIND-CALL 2 = PN14>
+ <TYPE? PN14 <TYPE-CODE FALSE> - BOOL30>
+BOOL31
+ <FRAME '\1aSUBRIFY?>
+ <RESTL ARG110 1 = TEMP20 (TYPE LIST)>
+ <NTHL TEMP20 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP20>
+ <CALL '\1aSUBRIFY? 1 = SBYFINF19>
+ <TYPE? SBYFINF19 <TYPE-CODE FALSE> + PHRASE28>
+BOOL30
+ <TYPE? SBYFINF19 <TYPE-CODE FALSE> + PHRASE35>
+ <TYPE? ARG211 <TYPE-CODE FIX> + PHRASE37>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O2*>
+ <SET TEMP25 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG211>
+ <SCALL '\1aOBJ-VAL 1 = TEMP20 + TAG38 TEMP25>
+ <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP25 VALUE)>
+TAG41
+ <INTGO>
+ <EMPTY? TEMP20 + TAG38>
+ <NTH1 TEMP20 = STACK>
+ <REST1 TEMP20 = TEMP20>
+ <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
+ <JUMP + TAG41>
+TAG38
+ <CALL '\1aOCEMIT TEMP25>
+ <DEAD TEMP25>
+ <JUMP + PHRASE56>
+PHRASE37
+ <FRAME '\1aNTH>
+ <PUSH SBYFINF19>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE56>
+ <DEAD TEMP25>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O2*>
+ <PUSH ARG211>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE56>
+PHRASE35
+ <FRAME '\1aFIND-OPT>
+ <RESTL ARG110 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP25>
+ <GVAL 'PRE-OPTS = STACK>
+ <CALL '\1aFIND-OPT 2 = OP-INF15>
+ <VEQUAL? OP-INF15 0 + PHRASE46>
+ <TYPE? ARG211 <TYPE-CODE FIX> + PHRASE49>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O2*>
+ <SET TEMP20 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG211>
+ <SCALL '\1aOBJ-VAL 1 = TEMP25 + TAG50 TEMP20>
+ <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP20 VALUE)>
+TAG52
+ <INTGO>
+ <EMPTY? TEMP25 + TAG50>
+ <NTH1 TEMP25 = STACK>
+ <REST1 TEMP25 = TEMP25>
+ <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
+ <JUMP + TAG52>
+TAG50
+ <CALL '\1aOCEMIT TEMP20>
+ <DEAD TEMP20>
+ <JUMP + PHRASE56>
+PHRASE49
+ <NTHL OP-INF15 1 = TEMP20>
+ <VEQUAL? TEMP20 0 - PHRASE56>
+ <DEAD TEMP20>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O2*>
+ <PUSH ARG211>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE56>
+PHRASE46
+ <TYPE? ARG211 <TYPE-CODE ATOM> - PHRASE56>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG211>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE56>
+ <DEAD TEMP20>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O2*>
+ <SET TEMP25 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG211>
+ <SCALL '\1aOBJ-VAL 1 = TEMP20 + TAG59 TEMP25>
+ <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP25 VALUE)>
+TAG61
+ <INTGO>
+ <EMPTY? TEMP20 + TAG59>
+ <NTH1 TEMP20 = STACK>
+ <REST1 TEMP20 = TEMP20>
+ <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
+ <JUMP + TAG61>
+TAG59
+ <CALL '\1aOCEMIT TEMP25>
+ <DEAD TEMP25>
+PHRASE56
+ <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE64>
+ <GVAL 'SURVIVOR-MODE = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE64>
+ <DEAD TEMP25>
+ <FRAME '\1aGETPROP>
+ <PUSH PN14>
+ <DEAD PN14>
+ <PUSH 'NDFRM>
+ <CALL '\1aGETPROP 2 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE64>
+ <DEAD TEMP25>
+ <TYPE? OP-INF15 <TYPE-CODE FALSE> - PHRASE64>
+ <FRAME '\1aSURVIVOR?>
+ <RESTL ARG110 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP25>
+ <CALL '\1aSURVIVOR? 1 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE64>
+ <DEAD TEMP25>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <GVAL 'WINNING-VICTIM = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE96>
+ <DEAD TEMP25>
+ <GVAL 'STACK-DEPTH = TEMP25>
+ <LSH ARG211 1 = TEMP20 (TYPE FIX)>
+ <ADD TEMP20 2 = TEMP20 (TYPE FIX)>
+ <SUB TEMP25 TEMP20 = TEMP25 (TYPE FIX)>
+ <DEAD TEMP20>
+ <SETG 'STACK-DEPTH TEMP25>
+ <DEAD TEMP25>
+ <JUMP + PHRASE96>
+PHRASE64
+ <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE71>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XMOVEI>
+ <PUSH 'F*>
+ <LSH ARG211 1 = TEMP25 (TYPE FIX)>
+ <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
+ <SUB 0 TEMP25 = STACK (TYPE FIX)>
+ <DEAD TEMP25>
+ <CONS 'TP* () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <GVAL 'WINNING-VICTIM = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE96>
+ <DEAD TEMP25>
+ <GVAL 'STACK-DEPTH = TEMP25>
+ <LSH ARG211 1 = TEMP20 (TYPE FIX)>
+ <ADD TEMP20 3 = TEMP20 (TYPE FIX)>
+ <SUB TEMP25 TEMP20 = TEMP25 (TYPE FIX)>
+ <DEAD TEMP20>
+ <SETG 'STACK-DEPTH TEMP25>
+ <DEAD TEMP25>
+ <JUMP + PHRASE96>
+PHRASE71
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG211>
+ <CALL '\1aWILL-DIE? 1 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> - BOOL80>
+ <DEAD TEMP25>
+ <SET TEMP20 L8>
+ <SET TEMP25 4 (TYPE FIX)>
+ <LOOP (TEMP20 VALUE) (TEMP25 VALUE)>
+TAG86
+ <EMPL? TEMP20 + TAG87>
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
+ <GRTR? TEMP25 0 + TAG86 (TYPE FIX)>
+ <JUMP + TAG84>
+TAG87
+ <SET TEMP25 %<> (TYPE FALSE)>
+ <JUMP + PHRASE83>
+TAG84
+ <RESTL L8 1 = TEMP20 (TYPE LIST)>
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <NTHL TEMP20 1 = TEMP25>
+ <DEAD TEMP20>
+PHRASE83
+ <EQUAL? TEMP25 ARG211 - PHRASE78>
+ <DEAD TEMP25>
+BOOL80
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS ARG211 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE78
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XMOVEI>
+ <PUSH 'F*>
+ <PUSH -1>
+ <PUSH (TP*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG211>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE92>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LSH>
+ <PUSH TEMP20>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SUB>
+ <PUSH 'F*>
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE96>
+PHRASE92
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SUB>
+ <PUSH 'F*>
+ <PUSH 'O2*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SUB>
+ <PUSH 'F*>
+ <PUSH 'O2*>
+ <CALL '\1aOCEMIT 3>
+PHRASE96
+ <TYPE? SBYFINF19 <TYPE-CODE FALSE> + PHRASE100>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH 'A1*>
+ <SET TEMP20 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH SBYFINF19>
+ <DEAD SBYFINF19>
+ <SCALL '\1aOBJ-TYP 1 = TEMP25 + TAG101 TEMP20>
+ <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP20 VALUE)>
+TAG103
+ <INTGO>
+ <EMPTY? TEMP25 + TAG101>
+ <NTH1 TEMP25 = STACK>
+ <REST1 TEMP25 = TEMP25>
+ <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
+ <JUMP + TAG103>
+TAG101
+ <CALL '\1aOCEMIT TEMP20>
+ <DEAD TEMP20>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVEM>
+ <PUSH 'A1*>
+ <PUSH -3>
+ <PUSH (F*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'M*>
+ <PUSH 1>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XCT>
+ <PUSH 3>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <PUSH '@>
+ <PUSH 5>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE109>
+PHRASE100
+ <FRAME '\1aOCEMIT>
+ <RESTL ARG110 1 = TEMP20 (TYPE LIST)>
+ <DEAD ARG110>
+ <NTHL TEMP20 1 = TEMP20 (TYPE ATOM)>
+ <CHTYPE TEMP20 <TYPE-CODE GCAL> = STACK>
+ <DEAD TEMP20>
+ <PUSH 'T>
+ <SET TEMP20 OP-INF15>
+ <VEQUAL? TEMP20 0 + PHRASE112>
+ <NTHL OP-INF15 1 = TEMP20>
+ <VEQUAL? TEMP20 0 + PHRASE112>
+ <TYPE? ARG211 <TYPE-CODE FIX> + TAG114>
+ <SET TEMP20 %<> (TYPE FALSE)>
+ <JUMP + PHRASE112>
+TAG114
+ <NTHL OP-INF15 1 = TEMP25 (TYPE FORM)>
+ <NTHL OP-INF15 1 = ARG110 (TYPE FORM)>
+ <DEAD OP-INF15>
+ <RESTL ARG110 1 = ARG110 (TYPE LIST)>
+ <NTHL ARG110 1 = ARG110 (TYPE FIX)>
+ <SUB ARG211 ARG110 = TEMP20 (TYPE FIX)>
+ <DEAD ARG211 ARG110>
+ <SUB TEMP20 -4 = TEMP20 (TYPE FIX)>
+ <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
+ <GRTR? TEMP20 0 - RESTL119 (TYPE FIX)>
+ <LOOP (TEMP25 VALUE) (TEMP20 VALUE)>
+RESTL118
+ <INTGO>
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
+ <GRTR? TEMP20 0 + RESTL118 (TYPE FIX)>
+RESTL119
+ <NTHL TEMP25 1 = TEMP20>
+ <DEAD TEMP25>
+PHRASE112
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <CALL '\1aOCEMIT 3>
+PHRASE109
+ <FRAME '\1aLABEL>
+ <SET TEMP20 L8>
+ <LOOP (TEMP20 VALUE)>
+TAG121
+ <RESTL TEMP20 1 = TEMP25 (TYPE LIST)>
+ <EMPL? TEMP25 + TAG122>
+ <SET TEMP20 TEMP25>
+ <DEAD TEMP25>
+ <JUMP + TAG121>
+TAG122
+ <NTHL TEMP20 1 = STACK>
+ <DEAD TEMP20>
+ <PUSH 0>
+ <CALL '\1aLABEL 2>
+ <FRAME '\1aFLUSH-ACS>
+ <CALL '\1aFLUSH-ACS 0>
+ <TYPE? SEG9 <TYPE-CODE FALSE> + PHRASE125>
+ <DEAD SEG9>
+ <TYPE? TAG16 <TYPE-CODE UNBOUND> + PHRASE125>
+ <FRAME '\1aNTH>
+ <GEN-LVAL 'MIML = STACK>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = TEMP20>
+ <EQUAL? TEMP20 TAG16 + PHRASE128>
+ <DEAD TEMP20>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH XTAG18>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <JUMP + PHRASE134>
+PHRASE128
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JFCL>
+ <PUSH 'O*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+PHRASE134
+ <FRAME '\1aWILL-DIE?>
+ <PUSH COUNT17>
+ <CALL '\1aWILL-DIE? 1 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE137>
+ <DEAD TEMP20>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH COUNT17>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADDB>
+ <PUSH 'A2*>
+ <SET ARG110 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH COUNT17>
+ <SCALL '\1aOBJ-VAL 1 = TEMP20 + TAG140 ARG110>
+ <LOOP (TEMP20 TYPE VALUE LENGTH) (ARG110 VALUE)>
+TAG142
+ <INTGO>
+ <EMPTY? TEMP20 + TAG140>
+ <NTH1 TEMP20 = STACK>
+ <REST1 TEMP20 = TEMP20>
+ <ADD ARG110 1 = ARG110 (TYPE FIX)>
+ <JUMP + TAG142>
+TAG140
+ <CALL '\1aOCEMIT ARG110>
+ <DEAD ARG110>
+ <FRAME '\1aGET-AC>
+ <PUSH 'A1*>
+ <CALL '\1aGET-AC 1 = TEMP20>
+ <PUTUV TEMP20 2 COUNT17>
+ <PUTUV TEMP20 3 'TYPE (TYPE ATOM)>
+ <PUTUV TEMP20 5 %<>>
+ <GVAL 'AC-STAMP = ARG110>
+ <ADD ARG110 1 = ARG110 (TYPE FIX)>
+ <SETG 'AC-STAMP ARG110>
+ <PUTUV TEMP20 4 ARG110 (TYPE FIX)>
+ <DEAD TEMP20 ARG110>
+ <FRAME '\1aGET-AC>
+ <PUSH 'A2*>
+ <CALL '\1aGET-AC 1 = TEMP20>
+ <PUTUV TEMP20 2 COUNT17>
+ <DEAD COUNT17>
+ <PUTUV TEMP20 3 'VALUE (TYPE ATOM)>
+ <PUTUV TEMP20 5 %<>>
+ <GVAL 'AC-STAMP = ARG110>
+ <PUTUV TEMP20 4 ARG110 (TYPE FIX)>
+ <DEAD TEMP20 ARG110>
+PHRASE137
+ <FRAME '\1aNTH>
+ <GEN-LVAL 'MIML = STACK>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = SBYFINF19>
+ <EQUAL? SBYFINF19 TAG16 - TAG148>
+ <DEAD SBYFINF19>
+ <RETURN %<>>
+TAG148
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <PUSH TAG16>
+ <PUSH %<>>
+ <CALL '\1aLABEL-UPDATE-ACS 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH TAG16>
+ <DEAD TAG16>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aLABEL>
+ <PUSH XTAG18>
+ <DEAD XTAG18>
+ <CALL '\1aLABEL 1>
+ <FRAME '\1aGET-AC>
+ <PUSH 'A1*>
+ <CALL '\1aGET-AC 1 = TEMP20>
+ <FRAME '\1aCLEAN-ACS>
+ <RESTL L8 1 = SBYFINF19 (TYPE LIST)>
+ <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
+ <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
+ <NTHL SBYFINF19 1 = STACK>
+ <DEAD SBYFINF19>
+ <CALL '\1aCLEAN-ACS 1>
+ <RESTL L8 1 = SBYFINF19 (TYPE LIST)>
+ <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
+ <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
+ <NTHL SBYFINF19 1 = SBYFINF19>
+ <PUTUV TEMP20 2 SBYFINF19>
+ <DEAD SBYFINF19>
+ <PUTUV TEMP20 3 'TYPE (TYPE ATOM)>
+ <PUTUV TEMP20 5 'T>
+ <GVAL 'AC-STAMP = SBYFINF19>
+ <ADD SBYFINF19 1 = SBYFINF19 (TYPE FIX)>
+ <SETG 'AC-STAMP SBYFINF19>
+ <PUTUV TEMP20 4 SBYFINF19 (TYPE FIX)>
+ <DEAD TEMP20 SBYFINF19>
+ <FRAME '\1aGET-AC>
+ <PUSH 'A2*>
+ <CALL '\1aGET-AC 1 = TEMP20>
+ <RESTL L8 1 = SBYFINF19 (TYPE LIST)>
+ <DEAD L8>
+ <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
+ <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
+ <NTHL SBYFINF19 1 = SBYFINF19>
+ <PUTUV TEMP20 2 SBYFINF19>
+ <DEAD SBYFINF19>
+ <PUTUV TEMP20 3 'VALUE (TYPE ATOM)>
+ <PUTUV TEMP20 5 'T>
+ <GVAL 'AC-STAMP = SBYFINF19>
+ <PUTUV TEMP20 4 SBYFINF19 (TYPE FIX)>
+ <DEAD SBYFINF19>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+PHRASE125
+ <SET SBYFINF19 L8>
+ <SET TEMP25 4 (TYPE FIX)>
+ <LOOP (SBYFINF19 VALUE) (TEMP25 VALUE)>
+TAG165
+ <EMPL? SBYFINF19 + TAG166>
+ <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
+ <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
+ <GRTR? TEMP25 0 + TAG165 (TYPE FIX)>
+ <JUMP + TAG163>
+TAG166
+ <RETURN %<>>
+TAG163
+ <FRAME '\1aPUSHJ-VAL>
+ <RESTL L8 1 = SBYFINF19 (TYPE LIST)>
+ <DEAD L8>
+ <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
+ <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
+ <NTHL SBYFINF19 1 = STACK>
+ <DEAD SBYFINF19>
+ <CALL '\1aPUSHJ-VAL 1 = ARG110>
+ <RETURN ARG110>
+ <DEAD ARG110>
+PHRASE28
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET PN14 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG110>
+ <SCALL '\1aOBJ-VAL 1 = SBYFINF19 + TAG169 PN14>
+ <LOOP (SBYFINF19 TYPE VALUE LENGTH) (PN14 VALUE)>
+TAG172
+ <INTGO>
+ <EMPTY? SBYFINF19 + TAG169>
+ <NTH1 SBYFINF19 = STACK>
+ <REST1 SBYFINF19 = SBYFINF19>
+ <ADD PN14 1 = PN14 (TYPE FIX)>
+ <JUMP + TAG172>
+TAG169
+ <CALL '\1aOCEMIT PN14>
+ <DEAD PN14>
+ <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE175>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O2*>
+ <PUSH ARG211>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE177>
+PHRASE175
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O2*>
+ <SET SBYFINF19 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG211>
+ <SCALL '\1aOBJ-VAL 1 = PN14 + TAG178 SBYFINF19>
+ <LOOP (PN14 TYPE VALUE LENGTH) (SBYFINF19 VALUE)>
+TAG180
+ <INTGO>
+ <EMPTY? PN14 + TAG178>
+ <NTH1 PN14 = STACK>
+ <REST1 PN14 = PN14>
+ <ADD SBYFINF19 1 = SBYFINF19 (TYPE FIX)>
+ <JUMP + TAG180>
+TAG178
+ <CALL '\1aOCEMIT SBYFINF19>
+ <DEAD SBYFINF19>
+PHRASE177
+ <TYPE? ARG110 <TYPE-CODE ATOM> - PHRASE183>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG110>
+ <CALL '\1aWILL-DIE? 1 = SBYFINF19>
+ <TYPE? SBYFINF19 <TYPE-CODE FALSE> - BOOL185>
+ <DEAD SBYFINF19>
+ <SET PN14 L8>
+ <SET TEMP25 4 (TYPE FIX)>
+ <LOOP (PN14 VALUE) (TEMP25 VALUE)>
+TAG191
+ <EMPL? PN14 + TAG192>
+ <RESTL PN14 1 = PN14 (TYPE LIST)>
+ <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
+ <GRTR? TEMP25 0 + TAG191 (TYPE FIX)>
+ <JUMP + TAG189>
+TAG192
+ <SET SBYFINF19 %<> (TYPE FALSE)>
+ <JUMP + PHRASE188>
+TAG189
+ <RESTL L8 1 = PN14 (TYPE LIST)>
+ <RESTL PN14 1 = PN14 (TYPE LIST)>
+ <RESTL PN14 1 = PN14 (TYPE LIST)>
+ <NTHL PN14 1 = SBYFINF19>
+ <DEAD PN14>
+PHRASE188
+ <EQUAL? SBYFINF19 ARG110 - PHRASE183>
+ <DEAD SBYFINF19>
+BOOL185
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS ARG110 () = STACK>
+ <DEAD ARG110>
+ <CALL '\1aDEAD!-MIMOC 1>
+PHRASE183
+ <TYPE? ARG211 <TYPE-CODE ATOM> - PHRASE195>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG211>
+ <CALL '\1aWILL-DIE? 1 = SBYFINF19>
+ <TYPE? SBYFINF19 <TYPE-CODE FALSE> - BOOL197>
+ <DEAD SBYFINF19>
+ <SET PN14 L8>
+ <SET TEMP25 4 (TYPE FIX)>
+ <LOOP (PN14 VALUE) (TEMP25 VALUE)>
+TAG203
+ <EMPL? PN14 + TAG204>
+ <RESTL PN14 1 = PN14 (TYPE LIST)>
+ <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
+ <GRTR? TEMP25 0 + TAG203 (TYPE FIX)>
+ <JUMP + TAG201>
+TAG204
+ <SET SBYFINF19 %<> (TYPE FALSE)>
+ <JUMP + PHRASE200>
+TAG201
+ <RESTL L8 1 = PN14 (TYPE LIST)>
+ <RESTL PN14 1 = PN14 (TYPE LIST)>
+ <RESTL PN14 1 = PN14 (TYPE LIST)>
+ <NTHL PN14 1 = SBYFINF19>
+ <DEAD PN14>
+PHRASE200
+ <EQUAL? SBYFINF19 ARG211 - PHRASE195>
+ <DEAD SBYFINF19>
+BOOL197
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS ARG211 () = STACK>
+ <CALL '\1aDEAD!-MIMOC 1>
+PHRASE195
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <GVAL 'WINNING-VICTIM = SBYFINF19>
+ <TYPE? SBYFINF19 <TYPE-CODE FALSE> + PHRASE208>
+ <DEAD SBYFINF19>
+ <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE208>
+ <GVAL 'STACK-DEPTH = SBYFINF19>
+ <LSH ARG211 1 = PN14 (TYPE FIX)>
+ <DEAD ARG211>
+ <SUB SBYFINF19 PN14 = SBYFINF19 (TYPE FIX)>
+ <DEAD PN14>
+ <SUB SBYFINF19 7 = SBYFINF19 (TYPE FIX)>
+ <SETG 'STACK-DEPTH SBYFINF19>
+ <DEAD SBYFINF19>
+PHRASE208
+ <TYPE? SEG9 <TYPE-CODE FALSE> + PHRASE211>
+ <TYPE? TAG16 <TYPE-CODE UNBOUND> + PHRASE211>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'CALL>
+ <CALL '\1aPUSHJ 1>
+ <FRAME '\1aNTH>
+ <GEN-LVAL 'MIML = STACK>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = PN14>
+ <EQUAL? PN14 TAG16 + PHRASE215>
+ <DEAD PN14>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH XTAG18>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <JUMP + PHRASE221>
+PHRASE215
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JFCL>
+ <PUSH 'O*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+PHRASE221
+ <FRAME '\1aWILL-DIE?>
+ <PUSH COUNT17>
+ <CALL '\1aWILL-DIE? 1 = PN14>
+ <TYPE? PN14 <TYPE-CODE FALSE> - PHRASE224>
+ <DEAD PN14>
+ <FRAME '\1aGET-AC>
+ <PUSH 'A1*>
+ <CALL '\1aGET-AC 1 = TEMP20>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH COUNT17>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADDB>
+ <PUSH 'A2*>
+ <SET ARG110 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH COUNT17>
+ <SCALL '\1aOBJ-VAL 1 = PN14 + TAG228 ARG110>
+ <LOOP (PN14 TYPE VALUE LENGTH) (ARG110 VALUE)>
+TAG231
+ <INTGO>
+ <EMPTY? PN14 + TAG228>
+ <NTH1 PN14 = STACK>
+ <REST1 PN14 = PN14>
+ <ADD ARG110 1 = ARG110 (TYPE FIX)>
+ <JUMP + TAG231>
+TAG228
+ <CALL '\1aOCEMIT ARG110>
+ <DEAD ARG110>
+ <PUTUV TEMP20 2 COUNT17>
+ <PUTUV TEMP20 3 'TYPE (TYPE ATOM)>
+ <PUTUV TEMP20 5 %<>>
+ <GVAL 'AC-STAMP = ARG110>
+ <ADD ARG110 1 = ARG110 (TYPE FIX)>
+ <SETG 'AC-STAMP ARG110>
+ <PUTUV TEMP20 4 ARG110 (TYPE FIX)>
+ <DEAD TEMP20 ARG110>
+ <FRAME '\1aGET-AC>
+ <PUSH 'A2*>
+ <CALL '\1aGET-AC 1 = TEMP20>
+ <PUTUV TEMP20 2 COUNT17>
+ <DEAD COUNT17>
+ <PUTUV TEMP20 3 'VALUE (TYPE ATOM)>
+ <PUTUV TEMP20 5 %<>>
+ <GVAL 'AC-STAMP = ARG110>
+ <PUTUV TEMP20 4 ARG110 (TYPE FIX)>
+ <DEAD TEMP20 ARG110>
+PHRASE224
+ <FRAME '\1aNTH>
+ <GEN-LVAL 'MIML = STACK>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = PN14>
+ <EQUAL? PN14 TAG16 - TAG236>
+ <DEAD PN14>
+ <RETURN %<>>
+TAG236
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <PUSH TAG16>
+ <PUSH %<>>
+ <CALL '\1aLABEL-UPDATE-ACS 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH TAG16>
+ <DEAD TAG16>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aLABEL>
+ <PUSH XTAG18>
+ <DEAD XTAG18>
+ <CALL '\1aLABEL 1>
+ <FRAME '\1aGET-AC>
+ <PUSH 'A1*>
+ <CALL '\1aGET-AC 1 = TEMP20>
+ <FRAME '\1aCLEAN-ACS>
+ <RESTL L8 1 = PN14 (TYPE LIST)>
+ <RESTL PN14 1 = PN14 (TYPE LIST)>
+ <RESTL PN14 1 = PN14 (TYPE LIST)>
+ <NTHL PN14 1 = STACK>
+ <DEAD PN14>
+ <CALL '\1aCLEAN-ACS 1>
+ <RESTL L8 1 = PN14 (TYPE LIST)>
+ <RESTL PN14 1 = PN14 (TYPE LIST)>
+ <RESTL PN14 1 = PN14 (TYPE LIST)>
+ <NTHL PN14 1 = PN14>
+ <PUTUV TEMP20 2 PN14>
+ <DEAD PN14>
+ <PUTUV TEMP20 3 'TYPE (TYPE ATOM)>
+ <PUTUV TEMP20 5 'T>
+ <GVAL 'AC-STAMP = PN14>
+ <ADD PN14 1 = PN14 (TYPE FIX)>
+ <SETG 'AC-STAMP PN14>
+ <PUTUV TEMP20 4 PN14 (TYPE FIX)>
+ <DEAD TEMP20 PN14>
+ <FRAME '\1aGET-AC>
+ <PUSH 'A2*>
+ <CALL '\1aGET-AC 1 = TEMP20>
+ <RESTL L8 1 = PN14 (TYPE LIST)>
+ <DEAD L8>
+ <RESTL PN14 1 = PN14 (TYPE LIST)>
+ <RESTL PN14 1 = PN14 (TYPE LIST)>
+ <NTHL PN14 1 = PN14>
+ <PUTUV TEMP20 2 PN14>
+ <DEAD PN14>
+ <PUTUV TEMP20 3 'VALUE (TYPE ATOM)>
+ <PUTUV TEMP20 5 'T>
+ <GVAL 'AC-STAMP = PN14>
+ <PUTUV TEMP20 4 PN14 (TYPE FIX)>
+ <DEAD PN14>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+PHRASE211
+ <SET PN14 L8>
+ <SET TEMP25 4 (TYPE FIX)>
+ <LOOP (PN14 VALUE) (TEMP25 VALUE)>
+TAG251
+ <EMPL? PN14 + TAG252>
+ <RESTL PN14 1 = PN14 (TYPE LIST)>
+ <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
+ <GRTR? TEMP25 0 + TAG251 (TYPE FIX)>
+ <JUMP + PHRASE249>
+TAG252
+ <FRAME '\1aPUSHJ>
+ <PUSH 'CALL>
+ <CALL '\1aPUSHJ 1>
+ <JUMP + PHRASE254>
+PHRASE249
+ <FRAME '\1aPUSHJ>
+ <PUSH 'CALL>
+ <RESTL L8 1 = PN14 (TYPE LIST)>
+ <DEAD L8>
+ <RESTL PN14 1 = PN14 (TYPE LIST)>
+ <RESTL PN14 1 = PN14 (TYPE LIST)>
+ <NTHL PN14 1 = STACK>
+ <DEAD PN14>
+ <CALL '\1aPUSHJ 2>
+PHRASE254
+ <SET ARG110 SEG9>
+ <DEAD SEG9>
+ <TYPE? ARG110 <TYPE-CODE FALSE> + PHRASE257>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JFCL>
+ <PUSH 'O*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3 = ARG110>
+PHRASE257
+ <RETURN ARG110>
+ <DEAD ARG110>
+ <END \1aCALL!-MIMOC>\r\r
+#WORD *24343025313*
+<GFCN \1aACALL!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP ARG16 TEMP10 ARG27 (VAL9 %<>) TEMP13:FIX>
+ <INTGO>
+ <NTHL L5 1 = ARG16>
+ <RESTL L5 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = ARG27>
+ <DEAD TEMP10>
+ <SET TEMP10 L5>
+ <SET TEMP13 4 (TYPE FIX)>
+ <LOOP (TEMP10 VALUE) (TEMP13 VALUE)>
+TAG14
+ <EMPL? TEMP10 + PHRASE12>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
+ <GRTR? TEMP13 0 + TAG14 (TYPE FIX)>
+ <RESTL L5 1 = TEMP10 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = VAL9>
+ <DEAD TEMP10>
+PHRASE12
+ <EQUAL? ARG16 VAL9 + BOOL17>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG16>
+ <CALL '\1aWILL-DIE? 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE16>
+ <DEAD TEMP10>
+BOOL17
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS ARG16 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE16
+ <EQUAL? ARG27 VAL9 + BOOL22>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG27>
+ <CALL '\1aWILL-DIE? 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE21>
+ <DEAD TEMP10>
+BOOL22
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS ARG27 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE21
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <PUSH 'BOTH>
+ <PUSH 'A1*>
+ <PUSH ARG27>
+ <PUSH 'VALUE>
+ <PUSH 'O2*>
+ <CALL '\1aGET-INTO-ACS 6>
+ <TYPE? ARG27 <TYPE-CODE FIX> - PHRASE28>
+ <GVAL 'WINNING-VICTIM = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE28>
+ <DEAD TEMP10>
+ <GVAL 'STACK-DEPTH = TEMP10>
+ <LSH ARG27 1 = TEMP13 (TYPE FIX)>
+ <DEAD ARG27>
+ <SUB TEMP10 TEMP13 = TEMP10 (TYPE FIX)>
+ <DEAD TEMP13>
+ <SUB TEMP10 7 = TEMP10 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP10>
+ <DEAD TEMP10>
+PHRASE28
+ <TYPE? VAL9 <TYPE-CODE FALSE> - PHRASE32>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'ACALL>
+ <CALL '\1aPUSHJ 1 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE32
+ <FRAME '\1aPUSHJ>
+ <PUSH 'ACALL>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <CALL '\1aPUSHJ 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aACALL!-MIMOC>
+#WORD *12305752772*
+<GFCN \1aSETLR!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP AC6:ATOM TEMP11:FIX TEMP13>
+ <INTGO>
+ <FRAME '\1aASSIGN-AC>
+ <NTHL L5 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = AC6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'T*>
+ <SET TEMP11 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <RESTL L5 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = STACK>
+ <DEAD TEMP13>
+ <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG9 TEMP11>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP11 VALUE)>
+TAG14
+ <INTGO>
+ <EMPTY? TEMP13 + TAG9>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <JUMP + TAG14>
+TAG9
+ <CALL '\1aOCEMIT TEMP11>
+ <DEAD TEMP11>
+ <FRAME '\1aLMEMQ>
+ <RESTL L5 1 = TEMP13 (TYPE LIST)>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = STACK>
+ <DEAD TEMP13>
+ <GVAL 'LOCALS = STACK>
+ <CALL '\1aLMEMQ 2 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> - BOOL16>
+ <FRAME '\1aLMEMQ>
+ <RESTL L5 1 = TEMP13 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = STACK>
+ <DEAD TEMP13>
+ <GVAL 'ICALL-TEMPS = STACK>
+ <CALL '\1aLMEMQ 2 = TEMP13>
+BOOL16
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH AC6>
+ <DEAD AC6>
+ <NTHUV TEMP13 3 = STACK (TYPE LOCAL-NAME)>
+ <DEAD TEMP13>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 4 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aSETLR!-MIMOC>
+#WORD *32500420077*
+<GFCN \1aSETRL!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 AC6:ATOM TEMP11>
+ <INTGO>
+ <FRAME '\1aLOAD-AC>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = AC6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'T*>
+ <SET TEMP11 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG10 TEMP11>
+ <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP11 VALUE)>
+TAG13
+ <INTGO>
+ <EMPTY? TEMP9 + TAG10>
+ <NTH1 TEMP9 = STACK>
+ <REST1 TEMP9 = TEMP9>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <JUMP + TAG13>
+TAG10
+ <CALL '\1aOCEMIT TEMP11>
+ <DEAD TEMP11>
+ <FRAME '\1aLMEMQ>
+ <RESTL L5 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = STACK>
+ <DEAD TEMP11>
+ <GVAL 'LOCALS = STACK>
+ <CALL '\1aLMEMQ 2 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - BOOL17>
+ <FRAME '\1aLMEMQ>
+ <RESTL L5 1 = TEMP11 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP11 1 = STACK>
+ <DEAD TEMP11>
+ <GVAL 'ICALL-TEMPS = STACK>
+ <CALL '\1aLMEMQ 2 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE21>
+BOOL17
+ <NTHUV TEMP9 2 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE21>
+ <DEAD TEMP11>
+ <PUTUV TEMP9 2 'TEMP>
+PHRASE21
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVEM>
+ <PUSH AC6>
+ <DEAD AC6>
+ <NTHUV TEMP9 3 = STACK (TYPE LOCAL-NAME)>
+ <DEAD TEMP9>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 4 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aSETRL!-MIMOC>
+#WORD *34327711472*
+<GFCN \1aRETURN!-MIMOC ("VALUE" ANY LIST "OPTIONAL" <OR FALSE ATOM>) L8 FRM9>
+ <OPT-DISPATCH 1 %<> OPT6 OPT7>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP TEMP19 TEMP21>
+ <INTGO>
+ <TYPE? FRM9 <TYPE-CODE FALSE> + PHRASE12>
+ <FRAME '\1aGET-INTO-ACS>
+ <NTHL L8 1 = STACK>
+ <DEAD L8>
+ <PUSH 'BOTH>
+ <PUSH 'A1*>
+ <PUSH FRM9>
+ <PUSH 'VALUE>
+ <PUSH 'T*>
+ <CALL '\1aGET-INTO-ACS 6>
+ <JUMP + PHRASE14>
+PHRASE12
+ <FRAME '\1aGET-INTO-ACS>
+ <NTHL L8 1 = STACK>
+ <DEAD L8>
+ <PUSH 'BOTH>
+ <PUSH 'A1*>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE14
+ <FRAME '\1aGET-AC>
+ <PUSH 'A1*>
+ <CALL '\1aGET-AC 1 = TEMP19>
+ <NTHUV TEMP19 6 = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE17>
+ <FRAME '\1aXEMIT>
+ <PUSH 'MOVSI>
+ <PUSH 'A1*>
+ <SET TEMP21 2 (TYPE FIX)>
+ <SFRAME 'TYPE-CODE>
+ <PUSH TEMP19>
+ <DEAD TEMP19>
+ <PUSH 'T>
+ <SCALL '\1aTYPE-CODE 2 = TEMP19 + TAG20 TEMP21>
+ <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP21 VALUE)>
+TAG23
+ <INTGO>
+ <EMPTY? TEMP19 + TAG20>
+ <NTH1 TEMP19 = STACK>
+ <REST1 TEMP19 = TEMP19>
+ <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
+ <JUMP + TAG23>
+TAG20
+ <CALL '\1aXEMIT TEMP21>
+ <DEAD TEMP21>
+PHRASE17
+ <TYPE? FRM9 <TYPE-CODE FALSE> + PHRASE26>
+ <DEAD FRM9>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XMOVEI>
+ <PUSH 'F*>
+ <PUSH 4>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPGE>
+ <PUSH (F*)>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRR>
+ <PUSH 'F*>
+ <PUSH -1>
+ <PUSH (F*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <PUSH '@>
+ <FRAME '\1aOPCODE>
+ <PUSH 'RETURN>
+ <CALL '\1aOPCODE 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE36>
+PHRASE26
+ <GVAL 'WINNING-VICTIM = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE32>
+ <DEAD TEMP21>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O*>
+ <PUSH (TP*)>
+ <PUSH <- 2 ,WINNING-VICTIM>>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SUBI>
+ <PUSH 'TP*>
+ <PUSH ,WINNING-VICTIM>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <PUSH '@>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE36>
+PHRASE32
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <PUSH '@>
+ <FRAME '\1aOPCODE>
+ <PUSH 'RETURN>
+ <CALL '\1aOPCODE 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+PHRASE36
+ <SETG 'LAST-UNCON 'T>
+ <FRAME '\1aFLUSH-ACS>
+ <CALL '\1aFLUSH-ACS 0 = TEMP21>
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+ <END \1aRETURN!-MIMOC>
+#WORD *6136175410*
+<GFCN \1aBIND!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <GVAL 'WINNING-VICTIM = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
+ <DEAD TEMP9>
+ <GVAL 'STACK-DEPTH = TEMP9>
+ <ADD TEMP9 9 = TEMP9 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP9>
+ <DEAD TEMP9>
+PHRASE8
+ <FRAME '\1aPUSHJ>
+ <PUSH 'BIND>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <CALL '\1aPUSHJ 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aBIND!-MIMOC>
+#WORD *13146162026*
+<GFCN \1aACTIVATION!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'ACTIVATION>
+ <CALL '\1aPUSHJ 1 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aACTIVATION!-MIMOC>
+#WORD *2452266472*
+<GFCN \1aAGAIN!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP8>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG11
+ <INTGO>
+ <EMPTY? TEMP8 + TAG7>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG11>
+TAG7
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <PUSH '@>
+ <FRAME '\1aOPCODE>
+ <PUSH 'AGAIN>
+ <CALL '\1aOPCODE 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aFLUSH-ACS>
+ <CALL '\1aFLUSH-ACS 0 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aAGAIN!-MIMOC>
+#WORD *3512230772*
+<GFCN \1aRETRY!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP8>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG11
+ <INTGO>
+ <EMPTY? TEMP8 + TAG7>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG11>
+TAG7
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <PUSH '@>
+ <FRAME '\1aOPCODE>
+ <PUSH 'RETRY>
+ <CALL '\1aOPCODE 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aFLUSH-ACS>
+ <CALL '\1aFLUSH-ACS 0 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aRETRY!-MIMOC>
+#WORD *4047051014*
+<GFCN \1aFIXBIND!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'FIXBIND>
+ <CALL '\1aPUSHJ 1 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aFIXBIND!-MIMOC>
+#WORD *2300110332*
+<GFCN \1aUNBIND!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP8>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG11
+ <INTGO>
+ <EMPTY? TEMP8 + TAG7>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG11>
+TAG7
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'UNBIND>
+ <CALL '\1aPUSHJ 1 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aUNBIND!-MIMOC>
+#WORD *24243145107*
+<GFCN \1aARGS!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP8>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG11
+ <INTGO>
+ <EMPTY? TEMP8 + TAG7>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG11>
+TAG7
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'ARGS>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <CALL '\1aPUSHJ 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aARGS!-MIMOC>
+#WORD *373150107*
+<GFCN \1aTUPLE!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP8>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG11
+ <INTGO>
+ <EMPTY? TEMP8 + TAG7>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG11>
+TAG7
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'TUPLE>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <CALL '\1aPUSHJ 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aTUPLE!-MIMOC>
+#WORD *10740527230*
+<GFCN \1aARGNUM!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O1*>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'ARGNUM>
+ <CALL '\1aPUSHJ 1 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aARGNUM!-MIMOC>
+#WORD *17641235757*
+<GFCN \1aEQUAL?!-MIMOC ("VALUE" <OR FALSE AC> LIST "OPTIONAL" ANY ANY ANY) L12 ADDR113 ADDR214 OFF15>
+ <OPT-DISPATCH 1 %<> OPT8 OPT9 OPT10 OPT11>
+OPT8
+ <PUSH %<>>
+OPT9
+ <PUSH %<>>
+OPT10
+ <PUSH %<>>
+OPT11
+ <TEMP ARG116 TEMP25 ARG217 (AC118 %<>) (AC219 %<>) (AC-T120 %<>) (AC-T221 %<>) (TY123 %<>) (TY224 %<>)>
+ <INTGO>
+ <NTHL L12 1 = ARG116>
+ <RESTL L12 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = ARG217>
+ <DEAD TEMP25>
+ <TYPE? ADDR113 <TYPE-CODE FALSE> - PHRASE27>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG116>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = AC118>
+ <TYPE? AC118 <TYPE-CODE FALSE> + PHRASE27>
+ <FRAME '\1aGET-AC>
+ <PUSH AC118>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <NTHUV TEMP25 6 = TY123>
+ <DEAD TEMP25>
+ <TYPE? TY123 <TYPE-CODE FALSE> - PHRASE27>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG217>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = AC219>
+ <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE44>
+ <FRAME '\1aGET-AC>
+ <PUSH AC219>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <NTHUV TEMP25 6 = TY224>
+ <DEAD TEMP25>
+ <JUMP + PHRASE44>
+PHRASE27
+ <TYPE? ADDR214 <TYPE-CODE FALSE> - PHRASE34>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG217>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = AC219>
+ <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE34>
+ <FRAME '\1aGET-AC>
+ <PUSH AC219>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <NTHUV TEMP25 6 = TY224>
+ <DEAD TEMP25>
+ <TYPE? TY224 <TYPE-CODE FALSE> - PHRASE34>
+ <SET TY224 TY123>
+ <DEAD TY123>
+ <SET AC118 AC219>
+ <DEAD AC219>
+ <SET ARG217 ARG116>
+ <DEAD ARG116>
+ <SET ADDR214 ADDR113>
+ <DEAD ADDR113>
+ <RESTL L12 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = ARG116>
+ <DEAD TEMP25>
+ <SET TY123 %<> (TYPE FALSE)>
+ <SET ADDR113 TY123>
+ <DEAD TY123>
+ <FRAME '\1aIN-AC?>
+ <PUSH ADDR214>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = AC219>
+ <JUMP + PHRASE44>
+PHRASE34
+ <TYPE? AC118 <TYPE-CODE FALSE> + PHRASE39>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG217>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = AC219>
+ <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE44>
+ <FRAME '\1aGET-AC>
+ <PUSH AC219>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <NTHUV TEMP25 6 = TY224>
+ <DEAD TEMP25>
+ <JUMP + PHRASE44>
+PHRASE39
+ <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE43>
+ <SET TY224 TY123>
+ <DEAD TY123>
+ <SET AC118 AC219>
+ <DEAD AC219>
+ <SET ARG217 ARG116>
+ <DEAD ARG116>
+ <SET ADDR214 ADDR113>
+ <DEAD ADDR113>
+ <RESTL L12 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = ARG116>
+ <DEAD TEMP25>
+ <SET TY123 %<> (TYPE FALSE)>
+ <SET ADDR113 TY123>
+ <DEAD TY123>
+ <SET AC219 %<> (TYPE FALSE)>
+ <JUMP + PHRASE44>
+PHRASE43
+ <FRAME '\1aLOAD-AC>
+ <PUSH ARG116>
+ <DEAD ARG116>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = AC118>
+PHRASE44
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <RESTL L12 1 = TEMP25 (TYPE LIST)>
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = STACK>
+ <DEAD TEMP25>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH AC118>
+ <PUSH AC219>
+ <CALL '\1aLABEL-UPDATE-ACS 5 = ARG116>
+ <NTHL ARG116 1 = TEMP25>
+ <EQUAL? TEMP25 AC118 + PHRASE48>
+ <DEAD TEMP25>
+ <FRAME '\1aGET-AC>
+ <NTHL ARG116 1 = AC118>
+ <PUSH AC118>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <NTHUV TEMP25 4 = AC-T120 (TYPE FIX)>
+ <DEAD TEMP25>
+PHRASE48
+ <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE51>
+ <RESTL ARG116 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = TEMP25>
+ <EQUAL? TEMP25 AC219 + PHRASE51>
+ <DEAD TEMP25>
+ <FRAME '\1aGET-AC>
+ <RESTL ARG116 1 = TEMP25 (TYPE LIST)>
+ <DEAD ARG116>
+ <NTHL TEMP25 1 = AC219>
+ <DEAD TEMP25>
+ <PUSH AC219>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <NTHUV TEMP25 4 = AC-T221 (TYPE FIX)>
+ <DEAD TEMP25>
+PHRASE51
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAMN>
+ <PUSH AC118>
+ <SET ARG116 2 (TYPE FIX)>
+ <TYPE? ADDR214 <TYPE-CODE FALSE> + PHRASE57>
+ <CONS ADDR214 () = TY123>
+ <CONS TY123 () = TEMP25>
+ <DEAD TY123>
+ <CONS OFF15 TEMP25 = TEMP25>
+ <JUMP + PHRASE62>
+PHRASE57
+ <TYPE? TY224 <TYPE-CODE FALSE> + PHRASE59>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH TY224>
+ <DEAD TY224>
+ <CALL '\1aTYPE-WORD 1 = TEMP25>
+ <JUMP + PHRASE62>
+PHRASE59
+ <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE61>
+ <CONS AC219 () = TEMP25>
+ <JUMP + PHRASE62>
+PHRASE61
+ <FRAME '\1aOBJ-TYP>
+ <PUSH ARG217>
+ <CALL '\1aOBJ-TYP 1 = TEMP25>
+PHRASE62
+ <LOOP (TEMP25 TYPE VALUE LENGTH) (ARG116 VALUE)>
+TAG64
+ <INTGO>
+ <EMPTY? TEMP25 + TAG54>
+ <NTH1 TEMP25 = STACK>
+ <REST1 TEMP25 = TEMP25>
+ <ADD ARG116 1 = ARG116 (TYPE FIX)>
+ <JUMP + TAG64>
+TAG54
+ <CALL '\1aOCEMIT ARG116>
+ <DEAD ARG116>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAME>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC118>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP25 2 (TYPE FIX)>
+ <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE69>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC219>
+ <CALL '\1aNEXT-AC 1 = TY123>
+ <CONS TY123 () = ARG116>
+ <DEAD TY123>
+ <JUMP + PHRASE73>
+PHRASE69
+ <TYPE? ADDR214 <TYPE-CODE FALSE> + PHRASE71>
+ <CONS ADDR214 () = TY123>
+ <DEAD ADDR214>
+ <CONS TY123 () = ARG116>
+ <DEAD TY123>
+ <FRAME '\1a+>
+ <PUSH OFF15>
+ <DEAD OFF15>
+ <PUSH 1>
+ <CALL '\1a+ 2 = TY123>
+ <CONS TY123 ARG116 = ARG116>
+ <DEAD TY123>
+ <JUMP + PHRASE73>
+PHRASE71
+ <FRAME '\1aOBJ-VAL>
+ <PUSH ARG217>
+ <DEAD ARG217>
+ <CALL '\1aOBJ-VAL 1 = ARG116>
+PHRASE73
+ <LOOP (ARG116 TYPE VALUE LENGTH) (TEMP25 VALUE)>
+TAG75
+ <INTGO>
+ <EMPTY? ARG116 + TAG66>
+ <NTH1 ARG116 = STACK>
+ <REST1 ARG116 = ARG116>
+ <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
+ <JUMP + TAG75>
+TAG66
+ <CALL '\1aOCEMIT TEMP25>
+ <DEAD TEMP25>
+ <RESTL L12 1 = TEMP25 (TYPE LIST)>
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = TEMP25>
+ <EQUAL? TEMP25 '+ - PHRASE78>
+ <DEAD TEMP25>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAIA>
+ <PUSH 'O*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+PHRASE78
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <RESTL L12 1 = TEMP25 (TYPE LIST)>
+ <DEAD L12>
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = STACK>
+ <DEAD TEMP25>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <TYPE? AC-T120 <TYPE-CODE FALSE> + PHRASE83>
+ <FRAME '\1aGET-AC>
+ <PUSH AC118>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <PUTUV TEMP25 4 AC-T120 (TYPE FIX)>
+ <DEAD TEMP25>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC118>
+ <DEAD AC118>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <PUTUV TEMP25 4 AC-T120 (TYPE FIX)>
+ <DEAD TEMP25 AC-T120>
+PHRASE83
+ <SET TEMP25 AC-T221>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE88>
+ <FRAME '\1aGET-AC>
+ <PUSH AC219>
+ <CALL '\1aGET-AC 1 = ARG116>
+ <PUTUV ARG116 4 AC-T221 (TYPE FIX)>
+ <DEAD ARG116>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC219>
+ <DEAD AC219>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = ARG116>
+ <PUTUV ARG116 4 AC-T221 (TYPE FIX)>
+ <DEAD AC-T221>
+ <SET TEMP25 ARG116>
+ <DEAD ARG116>
+PHRASE88
+ <RETURN TEMP25>
+ <DEAD TEMP25>
+ <END \1aEQUAL?!-MIMOC>
+#WORD *10236645671*
+<GFCN \1aVEQUAL?!-MIMOC ("VALUE" <OR FALSE AC> LIST "OPTIONAL" ANY ANY ANY ANY ATOM ATOM ATOM ATOM ATOM ATOM ANY ANY ATOM ATOM) L19 ADDR120 ADDR221 OFF22 TY23 CAI24 CAM25 JUMP26 CAIX27 CAMX28 JUMPX29 SOJ30 SOJX31 SKIP32 SKIPX33>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7 OPT8 OPT9 OPT10 OPT11 OPT12 OPT13 OPT14 OPT15 OPT16 OPT17 OPT18>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <PUSH %<>>
+OPT7
+ <PUSH %<>>
+OPT8
+ <PUSH 'CAIN>
+OPT9
+ <PUSH 'CAMN>
+OPT10
+ <PUSH 'JUMPE>
+OPT11
+ <PUSH 'CAIE>
+OPT12
+ <PUSH 'CAME>
+OPT13
+ <PUSH 'JUMPN>
+OPT14
+ <PUSH 'SOJE>
+OPT15
+ <PUSH 'SOJN>
+OPT16
+ <PUSH 'SKIPN>
+OPT17
+ <PUSH 'SKIPE>
+OPT18
+ <TEMP ARG134 TEMP48 ARG235 TAG36:ATOM (AC-T139 %<>) (AC-T240 %<>) DIR43 (KL45 %<>) (SWAPPED?47 %<>) TEMP62 AC137 AC241>
+ <INTGO>
+ <NTHL L19 1 = ARG134>
+ <RESTL L19 1 = TEMP48 (TYPE LIST)>
+ <NTHL TEMP48 1 = ARG235>
+ <DEAD TEMP48>
+ <RESTL L19 1 = TEMP48 (TYPE LIST)>
+ <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
+ <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
+ <NTHL TEMP48 1 = TAG36 (TYPE ATOM)>
+ <DEAD TEMP48>
+ <RESTL L19 1 = TEMP48 (TYPE LIST)>
+ <DEAD L19>
+ <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
+ <NTHL TEMP48 1 = DIR43>
+ <DEAD TEMP48>
+ <TYPE? ARG235 <TYPE-CODE FLOAT> + TAG51>
+ <TYPE? ARG235 <TYPE-CODE WORD> + TAG51>
+ <TYPE? ARG235 <TYPE-CODE LOSE> + TAG51>
+ <TYPE? ARG235 <TYPE-CODE CHARACTER> - PHRASE50>
+TAG51
+ <CHTYPE ARG235 <TYPE-CODE FIX> = ARG235>
+ <JUMP + PHRASE52>
+PHRASE50
+ <FRAME '\1aPRIMTYPE>
+ <PUSH ARG235>
+ <CALL '\1aPRIMTYPE 1 = TEMP48>
+ <VEQUAL? TEMP48 'LIST - PHRASE52>
+ <DEAD TEMP48>
+ <EMPTY? ARG235 - PHRASE52>
+ <SET ARG235 0 (TYPE FIX)>
+PHRASE52
+ <SET TEMP48 ADDR120>
+ <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE77>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG134>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP48>
+ <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE77>
+ <EQUAL? ARG235 0 - PHRASE57>
+ <SET TEMP48 'X* (TYPE ATOM)>
+ <JUMP + PHRASE77>
+PHRASE57
+ <TYPE? ARG235 <TYPE-CODE ATOM> - PHRASE58>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG235>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP62>
+ <TYPE? TEMP62 <TYPE-CODE FALSE> - BOOL60>
+ <DEAD TEMP62>
+ <TYPE? ARG134 <TYPE-CODE ATOM> + PHRASE58>
+BOOL60
+ <VEQUAL? CAI24 'CAIGE - PHRASE64>
+ <SET KL45 'T (TYPE ATOM)>
+ <EQUAL? DIR43 '+ - PHRASE66>
+ <SET CAI24 'CAILE (TYPE ATOM)>
+ <SET CAM25 'CAMLE (TYPE ATOM)>
+ <JUMP + PHRASE71>
+PHRASE66
+ <SET CAI24 'CAIG (TYPE ATOM)>
+ <SET CAM25 'CAMG (TYPE ATOM)>
+ <JUMP + PHRASE71>
+PHRASE64
+ <VEQUAL? CAI24 'CAILE - PHRASE71>
+ <SET KL45 'T (TYPE ATOM)>
+ <EQUAL? DIR43 '+ - PHRASE70>
+ <SET CAI24 'CAIGE (TYPE ATOM)>
+ <SET CAM25 'CAMGE (TYPE ATOM)>
+ <JUMP + PHRASE71>
+PHRASE70
+ <SET CAI24 'CAIL (TYPE ATOM)>
+ <SET CAM25 'CAML (TYPE ATOM)>
+PHRASE71
+ <SET SWAPPED?47 'T (TYPE ATOM)>
+ <SET TEMP48 ARG134>
+ <DEAD ARG134>
+ <SET ARG134 ARG235>
+ <DEAD ARG235>
+ <SET ARG235 TEMP48>
+ <DEAD TEMP48>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG134>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP48>
+ <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE77>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH ARG134>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = TEMP48>
+ <JUMP + PHRASE77>
+PHRASE58
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH ARG134>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = TEMP48>
+PHRASE77
+ <SET AC137 TEMP48>
+ <DEAD TEMP48>
+ <SET AC241 ADDR221>
+ <DEAD ADDR221>
+ <TYPE? AC241 <TYPE-CODE FALSE> - PHRASE86>
+ <TYPE? ARG235 <TYPE-CODE ATOM> - BOOL81>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG235>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC241>
+ <TYPE? AC241 <TYPE-CODE FALSE> - PHRASE86>
+BOOL81
+ <TYPE? ADDR120 <TYPE-CODE FALSE> + PHRASE83>
+ <DEAD ADDR120>
+ <TYPE? ARG235 <TYPE-CODE ATOM> - PHRASE83>
+ <FRAME '\1aLOAD-AC>
+ <PUSH ARG235>
+ <PUSH 'VALUE>
+ <CALL '\1aLOAD-AC 2 = AC241>
+ <JUMP + PHRASE86>
+PHRASE83
+ <SET AC241 'X* (TYPE ATOM)>
+PHRASE86
+ <EQUAL? ARG235 1 - PHRASE88>
+ <FRAME '\1aGET-AC>
+ <PUSH AC137>
+ <CALL '\1aGET-AC 1 = TEMP48>
+ <NTHUV TEMP48 5 = TEMP48>
+ <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE88>
+ <DEAD TEMP48>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG134>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TEMP48>
+ <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE92>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH TEMP48>
+ <DEAD TEMP48>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <JUMP + PHRASE97>
+PHRASE92
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AC137>
+ <CALL '\1aMUNGED-AC 1>
+ <JUMP + PHRASE97>
+PHRASE88
+ <SET SOJ30 %<> (TYPE FALSE)>
+PHRASE97
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <PUSH TAG36>
+ <PUSH %<>>
+ <PUSH 'T>
+ <VEQUAL? AC137 'X* - TAG102>
+ <SET TEMP48 %<> (TYPE FALSE)>
+ <JUMP + PHRASE100>
+TAG102
+ <VEQUAL? AC137 'O* - TAG103>
+ <SET TEMP48 %<> (TYPE FALSE)>
+ <JUMP + PHRASE100>
+TAG103
+ <SET TEMP48 AC137>
+PHRASE100
+ <PUSH TEMP48>
+ <DEAD TEMP48>
+ <EQUAL? AC241 'X* - TAG107>
+ <SET TEMP48 %<> (TYPE FALSE)>
+ <JUMP + PHRASE105>
+TAG107
+ <EQUAL? AC241 'O* - TAG108>
+ <SET TEMP48 %<> (TYPE FALSE)>
+ <JUMP + PHRASE105>
+TAG108
+ <SET TEMP48 AC241>
+PHRASE105
+ <PUSH TEMP48>
+ <DEAD TEMP48>
+ <CALL '\1aLABEL-UPDATE-ACS 5 = TEMP62>
+ <VEQUAL? AC137 'X* + PHRASE110>
+ <VEQUAL? AC137 'O* + PHRASE110>
+ <NTH1 TEMP62 = TEMP48>
+ <EQUAL? TEMP48 AC137 + PHRASE110>
+ <DEAD TEMP48>
+ <FRAME '\1aGET-AC>
+ <NTH1 TEMP62 = AC137>
+ <PUSH AC137>
+ <CALL '\1aGET-AC 1 = TEMP48>
+ <NTHUV TEMP48 4 = AC-T139 (TYPE FIX)>
+ <DEAD TEMP48>
+PHRASE110
+ <EQUAL? AC241 'X* + PHRASE114>
+ <EQUAL? AC241 'O* + PHRASE114>
+ <FRAME '\1aNTH>
+ <PUSH TEMP62>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = TEMP48>
+ <EQUAL? TEMP48 AC241 + PHRASE114>
+ <DEAD TEMP48>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNTH>
+ <PUSH TEMP62>
+ <DEAD TEMP62>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = AC241>
+ <PUSH AC241>
+ <CALL '\1aGET-AC 1 = TEMP48>
+ <NTHUV TEMP48 4 = AC-T240 (TYPE FIX)>
+ <DEAD TEMP48>
+PHRASE114
+ <VEQUAL? KL45 0 - PHRASE120>
+ <DEAD KL45>
+ <EQUAL? DIR43 '- - PHRASE120>
+ <DEAD DIR43>
+ <SET CAI24 CAIX27>
+ <SET CAM25 CAMX28>
+ <SET JUMP26 JUMPX29>
+ <DEAD JUMPX29>
+ <TYPE? SOJ30 <TYPE-CODE FALSE> + PHRASE123>
+ <SET SOJ30 SOJX31>
+ <DEAD SOJX31>
+PHRASE123
+ <SET SKIP32 SKIPX33>
+PHRASE120
+ <TYPE? OFF22 <TYPE-CODE FALSE> + PHRASE125>
+ <TYPE? TY23 <TYPE-CODE FALSE> + PHRASE125>
+ <FRAME '\1a+>
+ <GVAL 'ACS = TEMP48>
+ <EMPUV? TEMP48 + TAG128>
+ <LOOP (AC137 VALUE) (TEMP48 LENGTH VALUE)>
+TAG130
+ <NTHUV TEMP48 1 = TEMP62>
+ <TYPE? TEMP62 <TYPE-CODE ATOM> - TAG131>
+ <VEQUAL? TEMP62 AC137 + TAG129>
+ <DEAD TEMP62>
+TAG131
+ <RESTUV TEMP48 1 = TEMP48 (TYPE VECTOR)>
+ <EMPUV? TEMP48 - TAG130>
+TAG128
+ <SET TEMP48 %<> (TYPE FALSE)>
+TAG129
+ <NTHUV TEMP48 2 = TEMP48>
+ <LSH TEMP48 18 = TEMP48 (TYPE FIX)>
+ <OR TEMP48 #WORD *222000000000* = STACK>
+ <DEAD TEMP48>
+ <FRAME '\1a->
+ <PUSH OFF22>
+ <PUSH 1>
+ <CALL '\1a- 2 = STACK>
+ <CALL '\1a+ 2 = TEMP48>
+ <FRAME '\1aCONST-LOC>
+ <PUSH TEMP48>
+ <PUSH 'VALUE>
+ <CALL '\1aCONST-LOC 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LDB>
+ <PUSH 'O*>
+ <SET TEMP62 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH TEMP48>
+ <DEAD TEMP48>
+ <SCALL '\1aOBJ-VAL 1 = TEMP48 + TAG134 TEMP62>
+ <LOOP (TEMP48 TYPE VALUE LENGTH) (TEMP62 VALUE)>
+TAG136
+ <INTGO>
+ <EMPTY? TEMP48 + TAG134>
+ <NTH1 TEMP48 = STACK>
+ <REST1 TEMP48 = TEMP48>
+ <ADD TEMP62 1 = TEMP62 (TYPE FIX)>
+ <JUMP + TAG136>
+TAG134
+ <CALL '\1aOCEMIT TEMP62>
+ <DEAD TEMP62>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAIN>
+ <PUSH 'O*>
+ <PUSH TY23>
+ <CALL '\1aOCEMIT 3>
+ <SET CAI24 CAIX27>
+ <DEAD CAIX27>
+ <SET CAM25 CAMX28>
+ <DEAD CAMX28>
+ <SET SKIP32 SKIPX33>
+ <DEAD SKIPX33>
+PHRASE125
+ <EQUAL? ARG235 0 - PHRASE140>
+ <TYPE? OFF22 <TYPE-CODE FALSE> + PHRASE142>
+ <TYPE? OFF22 <TYPE-CODE FIX> - PHRASE144>
+ <FRAME '\1aOCEMIT>
+ <PUSH SKIP32>
+ <DEAD SKIP32>
+ <PUSH 'O*>
+ <PUSH OFF22>
+ <DEAD OFF22>
+ <CONS AC137 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE146>
+PHRASE144
+ <FRAME '\1aOCEMIT>
+ <PUSH SKIP32>
+ <DEAD SKIP32>
+ <PUSH 'O*>
+ <SET TEMP48 2 (TYPE FIX)>
+ <SET TEMP62 OFF22>
+ <DEAD OFF22>
+ <LOOP (TEMP62 TYPE VALUE LENGTH) (TEMP48 VALUE)>
+TAG148
+ <INTGO>
+ <EMPTY? TEMP62 + TAG147>
+ <NTH1 TEMP62 = STACK>
+ <REST1 TEMP62 = TEMP62>
+ <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
+ <JUMP + TAG148>
+TAG147
+ <CALL '\1aOCEMIT TEMP48>
+ <DEAD TEMP48>
+PHRASE146
+ <TYPE? TY23 <TYPE-CODE FALSE> + PHRASE151>
+ <DEAD TY23>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAIA>
+ <PUSH 'O*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+PHRASE151
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH TAG36>
+ <DEAD TAG36>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <JUMP + PHRASE198>
+PHRASE142
+ <VEQUAL? AC137 'X* - PHRASE155>
+ <FRAME '\1aOCEMIT>
+ <PUSH SKIP32>
+ <DEAD SKIP32>
+ <SET TEMP62 1 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG134>
+ <DEAD ARG134>
+ <SCALL '\1aOBJ-VAL 1 = TEMP48 + TAG156 TEMP62>
+ <LOOP (TEMP48 TYPE VALUE LENGTH) (TEMP62 VALUE)>
+TAG158
+ <INTGO>
+ <EMPTY? TEMP48 + TAG156>
+ <NTH1 TEMP48 = STACK>
+ <REST1 TEMP48 = TEMP48>
+ <ADD TEMP62 1 = TEMP62 (TYPE FIX)>
+ <JUMP + TAG158>
+TAG156
+ <CALL '\1aOCEMIT TEMP62>
+ <DEAD TEMP62>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH TAG36>
+ <DEAD TAG36>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <JUMP + PHRASE198>
+PHRASE155
+ <FRAME '\1aOCEMIT>
+ <PUSH JUMP26>
+ <DEAD JUMP26>
+ <PUSH AC137>
+ <FRAME '\1aXJUMP>
+ <PUSH TAG36>
+ <DEAD TAG36>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE198>
+PHRASE140
+ <EQUAL? ARG235 1 - PHRASE165>
+ <FRAME '\1aGET-AC>
+ <PUSH AC137>
+ <CALL '\1aGET-AC 1 = TEMP62>
+ <NTHUV TEMP62 5 = TEMP62>
+ <TYPE? TEMP62 <TYPE-CODE FALSE> - PHRASE165>
+ <DEAD TEMP62>
+ <TYPE? SOJ30 <TYPE-CODE FALSE> + PHRASE165>
+ <FRAME '\1aOCEMIT>
+ <PUSH SOJ30>
+ <DEAD SOJ30>
+ <PUSH AC137>
+ <FRAME '\1aXJUMP>
+ <PUSH TAG36>
+ <DEAD TAG36>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE198>
+PHRASE165
+ <TYPE? ARG235 <TYPE-CODE FIX> - PHRASE170>
+ <LESS? ARG235 0 + PHRASE170 (TYPE FIX)>
+ <GVAL 'MAX-IMMEDIATE = TEMP62>
+ <GRTR? ARG235 TEMP62 + PHRASE170 (TYPE FIX)>
+ <DEAD TEMP62>
+ <FRAME '\1aOCEMIT>
+ <PUSH CAI24>
+ <DEAD CAI24>
+ <PUSH AC137>
+ <PUSH ARG235>
+ <DEAD ARG235>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH TAG36>
+ <DEAD TAG36>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <JUMP + PHRASE198>
+PHRASE170
+ <TYPE? OFF22 <TYPE-CODE FALSE> + PHRASE177>
+ <VEQUAL? SWAPPED?47 0 + PHRASE179>
+ <DEAD SWAPPED?47>
+ <TYPE? OFF22 <TYPE-CODE FIX> - PHRASE181>
+ <FRAME '\1aOCEMIT>
+ <PUSH CAM25>
+ <DEAD CAM25>
+ <PUSH AC137>
+ <PUSH OFF22>
+ <DEAD OFF22>
+ <CONS AC241 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE189>
+PHRASE181
+ <FRAME '\1aOCEMIT>
+ <PUSH CAM25>
+ <DEAD CAM25>
+ <PUSH AC137>
+ <SET TEMP48 2 (TYPE FIX)>
+ <SET TEMP62 OFF22>
+ <DEAD OFF22>
+ <LOOP (TEMP62 TYPE VALUE LENGTH) (TEMP48 VALUE)>
+TAG185
+ <INTGO>
+ <EMPTY? TEMP62 + TAG184>
+ <NTH1 TEMP62 = STACK>
+ <REST1 TEMP62 = TEMP62>
+ <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
+ <JUMP + TAG185>
+TAG184
+ <CALL '\1aOCEMIT TEMP48>
+ <DEAD TEMP48>
+ <JUMP + PHRASE189>
+PHRASE179
+ <TYPE? OFF22 <TYPE-CODE FIX> - PHRASE187>
+ <FRAME '\1aOCEMIT>
+ <PUSH CAM25>
+ <DEAD CAM25>
+ <PUSH AC241>
+ <PUSH OFF22>
+ <DEAD OFF22>
+ <CONS AC137 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE189>
+PHRASE187
+ <FRAME '\1aOCEMIT>
+ <PUSH CAM25>
+ <DEAD CAM25>
+ <PUSH AC241>
+ <SET TEMP62 2 (TYPE FIX)>
+ <SET TEMP48 OFF22>
+ <DEAD OFF22>
+ <LOOP (TEMP48 TYPE VALUE LENGTH) (TEMP62 VALUE)>
+TAG191
+ <INTGO>
+ <EMPTY? TEMP48 + TAG190>
+ <NTH1 TEMP48 = STACK>
+ <REST1 TEMP48 = TEMP48>
+ <ADD TEMP62 1 = TEMP62 (TYPE FIX)>
+ <JUMP + TAG191>
+TAG190
+ <CALL '\1aOCEMIT TEMP62>
+ <DEAD TEMP62>
+PHRASE189
+ <TYPE? TY23 <TYPE-CODE FALSE> + PHRASE194>
+ <DEAD TY23>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAIA>
+ <PUSH 'O*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+PHRASE194
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH TAG36>
+ <DEAD TAG36>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <JUMP + PHRASE198>
+PHRASE177
+ <EQUAL? AC241 'X* - PHRASE200>
+ <FRAME '\1aOCEMIT>
+ <PUSH CAM25>
+ <DEAD CAM25>
+ <PUSH AC137>
+ <SET TEMP48 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG235>
+ <DEAD ARG235>
+ <SCALL '\1aOBJ-VAL 1 = TEMP62 + TAG201 TEMP48>
+ <LOOP (TEMP62 TYPE VALUE LENGTH) (TEMP48 VALUE)>
+TAG203
+ <INTGO>
+ <EMPTY? TEMP62 + TAG201>
+ <NTH1 TEMP62 = STACK>
+ <REST1 TEMP62 = TEMP62>
+ <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
+ <JUMP + TAG203>
+TAG201
+ <CALL '\1aOCEMIT TEMP48>
+ <DEAD TEMP48>
+ <JUMP + PHRASE205>
+PHRASE200
+ <FRAME '\1aOCEMIT>
+ <PUSH CAM25>
+ <DEAD CAM25>
+ <PUSH AC137>
+ <PUSH AC241>
+ <CALL '\1aOCEMIT 3>
+PHRASE205
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH TAG36>
+ <DEAD TAG36>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+PHRASE198
+ <TYPE? AC-T139 <TYPE-CODE FALSE> + PHRASE210>
+ <FRAME '\1aGET-AC>
+ <PUSH AC137>
+ <DEAD AC137>
+ <CALL '\1aGET-AC 1 = TEMP48>
+ <PUTUV TEMP48 4 AC-T139 (TYPE FIX)>
+ <DEAD TEMP48 AC-T139>
+PHRASE210
+ <SET TEMP48 AC-T240>
+ <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE213>
+ <FRAME '\1aGET-AC>
+ <PUSH AC241>
+ <DEAD AC241>
+ <CALL '\1aGET-AC 1 = TEMP62>
+ <PUTUV TEMP62 4 AC-T240 (TYPE FIX)>
+ <DEAD AC-T240>
+ <SET TEMP48 TEMP62>
+ <DEAD TEMP62>
+PHRASE213
+ <RETURN TEMP48>
+ <DEAD TEMP48>
+ <END \1aVEQUAL?!-MIMOC>
+#WORD *27727713723*
+<GFCN \1aLESS?!-MIMOC ("VALUE" <OR FALSE AC> LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aVEQUAL?!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH 'CAIGE>
+ <PUSH 'CAMGE>
+ <PUSH 'JUMPL>
+ <PUSH 'CAIL>
+ <PUSH 'CAML>
+ <PUSH 'JUMPGE>
+ <PUSH 'SOJL>
+ <PUSH 'SOJGE>
+ <PUSH 'SKIPGE>
+ <PUSH 'SKIPL>
+ <CALL '\1aVEQUAL?!-MIMOC 15 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aLESS?!-MIMOC>
+#WORD *20727274642*
+<GFCN \1aGRTR?!-MIMOC ("VALUE" <OR FALSE AC> LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aVEQUAL?!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH 'CAILE>
+ <PUSH 'CAMLE>
+ <PUSH 'JUMPG>
+ <PUSH 'CAIG>
+ <PUSH 'CAMG>
+ <PUSH 'JUMPLE>
+ <PUSH 'SOJG>
+ <PUSH 'SOJLE>
+ <PUSH 'SKIPLE>
+ <PUSH 'SKIPG>
+ <CALL '\1aVEQUAL?!-MIMOC 15 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aGRTR?!-MIMOC>
+<SETG COMPARERS [VEQUAL!-MIMOC LESS?!-MIMOC GRTR?!-MIMOC]>
+
+#WORD *25246156750*
+<GFCN \1aMUL!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aARITH!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'IMUL>
+ <PUSH 'IMULI>
+ <PUSH %<>>
+ <PUSH 'IMULB>
+ <CALL '\1aARITH!-MIMOC 5 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aMUL!-MIMOC>
+#WORD *12352266161*
+<GFCN \1aMULF!-MIMOC ("VALUE" ANY LIST) L4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aARITH!-MIMOC>
+ <PUSH L4>
+ <DEAD L4>
+ <PUSH 'FMPR>
+ <PUSH 'FMPRI>
+ <PUSH %<>>
+ <PUSH 'FMPRB>
+ <PUSH 'FLOAT>
+ <CALL '\1aARITH!-MIMOC 6 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aMULF!-MIMOC>
+#WORD *26331255572*
+<GFCN \1aSUB!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aARITH!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'SUB>
+ <PUSH 'SUBI>
+ <PUSH 'SOS>
+ <PUSH 'SUBB>
+ <CALL '\1aARITH!-MIMOC 5 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aSUB!-MIMOC>
+#WORD *13252271161*
+<GFCN \1aSUBF!-MIMOC ("VALUE" ANY LIST) L4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aARITH!-MIMOC>
+ <PUSH L4>
+ <DEAD L4>
+ <PUSH 'FSBR>
+ <PUSH 'FSBRI>
+ <PUSH %<>>
+ <PUSH 'FSBRB>
+ <PUSH 'FLOAT>
+ <CALL '\1aARITH!-MIMOC 6 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aSUBF!-MIMOC>
+#WORD *25526155350*
+<GFCN \1aDIV!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aARITH!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'IDIV>
+ <PUSH 'IDIVI>
+ <PUSH %<>>
+ <PUSH 'IDIVB>
+ <CALL '\1aARITH!-MIMOC 5 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aDIV!-MIMOC>
+#WORD *12052262561*
+<GFCN \1aDIVF!-MIMOC ("VALUE" ANY LIST) L4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aARITH!-MIMOC>
+ <PUSH L4>
+ <DEAD L4>
+ <PUSH 'FDVR>
+ <PUSH 'FDVRI>
+ <PUSH %<>>
+ <PUSH 'FDVRB>
+ <PUSH 'FLOAT>
+ <CALL '\1aARITH!-MIMOC 6 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aDIVF!-MIMOC>
+#WORD *23701047431*
+<GFCN \1aADD!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aARITH!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <CALL '\1aARITH!-MIMOC 1 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aADD!-MIMOC>
+#WORD *13152260161*
+<GFCN \1aADDF!-MIMOC ("VALUE" ANY LIST) L4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aARITH!-MIMOC>
+ <PUSH L4>
+ <DEAD L4>
+ <PUSH 'FADR>
+ <PUSH 'FADRI>
+ <PUSH %<>>
+ <PUSH 'FADRB>
+ <PUSH 'FLOAT>
+ <CALL '\1aARITH!-MIMOC 6 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aADDF!-MIMOC>
+#WORD *17732307326*
+<GFCN \1aMOD!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aARITH!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'IDIV>
+ <PUSH 'IDIVI>
+ <PUSH 'MOD>
+ <PUSH %<>>
+ <CALL '\1aARITH!-MIMOC 5 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aMOD!-MIMOC>
+#WORD *11405060530*
+<GFCN \1aXOR!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aARITH!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'XOR>
+ <PUSH 'XORI>
+ <PUSH 'TLC>
+ <PUSH 'XORB>
+ <CALL '\1aARITH!-MIMOC 5 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aXOR!-MIMOC>
+#WORD *31057141657*
+<GFCN \1aEQV!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aARITH!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'EQV>
+ <PUSH 'EQVI>
+ <PUSH (TLC TRC)>
+ <PUSH 'EQVB>
+ <CALL '\1aARITH!-MIMOC 5 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aEQV!-MIMOC>
+#WORD *27431256472*
+<GFCN \1aOR!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aARITH!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'IOR>
+ <PUSH 'IORI>
+ <PUSH 'TLO>
+ <PUSH 'IORB>
+ <CALL '\1aARITH!-MIMOC 5 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aOR!-MIMOC>
+#WORD *27733447356*
+<GFCN \1aARITH!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ATOM ATOM <OR ATOM LIST FALSE> ANY ANY) L10 NORM11 IMMED12 HACK13 BO14 RESTYP15>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7 OPT8 OPT9>
+OPT4
+ <PUSH 'ADD>
+OPT5
+ <PUSH 'ADDI>
+OPT6
+ <PUSH 'AOS>
+OPT7
+ <PUSH 'ADDB>
+OPT8
+ <PUSH 'FIX>
+OPT9
+ <TEMP ARG118 TEMP25 ARG219 VAL20:ATOM TEM22 (IMM-OK23 %<>) (NEG-FIRST24 %<>) OAC17 TEMP54 HACK221:ATOM>
+ <INTGO>
+ <NTHL L10 1 = ARG118>
+ <RESTL L10 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = ARG219>
+ <DEAD TEMP25>
+ <RESTL L10 1 = TEMP25 (TYPE LIST)>
+ <DEAD L10>
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = VAL20 (TYPE ATOM)>
+ <DEAD TEMP25>
+ <SET TEM22 ARG118>
+ <EQUAL? ARG118 1 - PHRASE27>
+ <VEQUAL? NORM11 'ADD - PHRASE27>
+ <SET ARG118 ARG219>
+ <DEAD ARG219>
+ <SET ARG219 1 (TYPE FIX)>
+PHRASE27
+ <EQUAL? ARG219 VAL20 - BOOL33>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG118>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + BOOL41>
+ <DEAD TEMP25>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG118>
+ <CALL '\1aWILL-DIE? 1 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + BOOL41>
+ <DEAD TEMP25>
+BOOL33
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG219>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE30>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG118>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = OAC17>
+ <TYPE? OAC17 <TYPE-CODE FALSE> + BOOL41>
+ <EQUAL? ARG118 VAL20 + PHRASE30>
+ <FRAME '\1aGET-AC>
+ <PUSH OAC17>
+ <DEAD OAC17>
+ <CALL '\1aGET-AC 1 = OAC17>
+ <NTHUV OAC17 5 = OAC17>
+ <TYPE? OAC17 <TYPE-CODE FALSE> + BOOL44>
+ <DEAD OAC17>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG219>
+ <CALL '\1aWILL-DIE? 1 = OAC17>
+ <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE30>
+ <DEAD OAC17>
+BOOL44
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aGET-AC 1 = OAC17>
+ <NTHUV OAC17 5 = OAC17>
+ <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE30>
+ <DEAD OAC17>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG118>
+ <CALL '\1aWILL-DIE? 1 = OAC17>
+ <TYPE? OAC17 <TYPE-CODE FALSE> - PHRASE30>
+ <DEAD OAC17>
+BOOL41
+ <EQUAL? ARG118 0 + PHRASE30>
+ <EQUAL? ARG118 0.0 + PHRASE30>
+ <SET OAC17 [ADD MUL IOR XOR AND EQV] (TYPE VECTOR)>
+ <LOOP (NORM11 VALUE) (OAC17 LENGTH VALUE)>
+TAG52
+ <NTHUV OAC17 1 = TEMP54>
+ <VEQUAL? TEMP54 NORM11 + BOOL50>
+ <DEAD TEMP54>
+ <RESTUV OAC17 1 = OAC17 (TYPE VECTOR)>
+ <EMPUV? OAC17 - TAG52>
+ <VEQUAL? NORM11 'SUB - BOOL55>
+ <SET NEG-FIRST24 'T (TYPE ATOM)>
+ <SET IMMED12 'ADDI (TYPE ATOM)>
+ <SET NORM11 'ADD (TYPE ATOM)>
+ <SET BO14 'ADDB (TYPE ATOM)>
+ <JUMP + BOOL50>
+BOOL55
+ <VEQUAL? NORM11 'FSBR - PHRASE30>
+ <SET NEG-FIRST24 'T (TYPE ATOM)>
+ <SET IMMED12 'FADRI (TYPE ATOM)>
+ <SET NORM11 'FADR (TYPE ATOM)>
+ <SET BO14 'FADRB (TYPE ATOM)>
+BOOL50
+ <SET ARG118 ARG219>
+ <DEAD ARG219>
+ <SET ARG219 TEM22>
+ <DEAD TEM22>
+ <JUMP + PHRASE70>
+PHRASE30
+ <FRAME '\1aPRIMTYPE>
+ <PUSH ARG219>
+ <CALL '\1aPRIMTYPE 1 = OAC17>
+ <VEQUAL? OAC17 'WORD + BOOL59>
+ <DEAD OAC17>
+ <FRAME '\1aPRIMTYPE>
+ <PUSH ARG219>
+ <CALL '\1aPRIMTYPE 1 = OAC17>
+ <VEQUAL? OAC17 'FIX - PHRASE70>
+ <DEAD OAC17>
+BOOL59
+ <VEQUAL? NORM11 'ADD + BOOL62>
+ <VEQUAL? NORM11 'SUB - PHRASE70>
+BOOL62
+ <LESS? ARG219 0 - PHRASE70 (TYPE FIX)>
+ <GVAL 'MAX-IMMEDIATE = OAC17>
+ <CHTYPE ARG219 <TYPE-CODE FIX> = TEMP54>
+ <LESS? TEMP54 0 - TAG65 (TYPE FIX)>
+ <SUB 0 TEMP54 = TEMP54 (TYPE FIX)>
+TAG65
+ <GRTR? OAC17 TEMP54 - PHRASE70 (TYPE FIX)>
+ <DEAD OAC17 TEMP54>
+ <TYPE? ARG219 <TYPE-CODE FIX> - TAG66>
+ <SUB 0 ARG219 = ARG219 (TYPE FIX)>
+ <JUMP + TAG67>
+TAG66
+ <SUBF 0.0 ARG219 = ARG219 (TYPE FLOAT)>
+TAG67
+ <VEQUAL? NORM11 'ADD - PHRASE69>
+ <DEAD NORM11>
+ <SET NORM11 'SUB (TYPE ATOM)>
+ <SET IMMED12 'SUBI (TYPE ATOM)>
+ <JUMP + PHRASE70>
+PHRASE69
+ <SET NORM11 'ADD (TYPE ATOM)>
+ <SET IMMED12 'ADDI (TYPE ATOM)>
+PHRASE70
+ <FRAME '\1aPRIMTYPE>
+ <PUSH ARG219>
+ <CALL '\1aPRIMTYPE 1 = OAC17>
+ <VEQUAL? OAC17 'WORD + BOOL74>
+ <DEAD OAC17>
+ <FRAME '\1aPRIMTYPE>
+ <PUSH ARG219>
+ <CALL '\1aPRIMTYPE 1 = OAC17>
+ <VEQUAL? OAC17 'FIX - PHRASE72>
+ <DEAD OAC17>
+BOOL74
+ <CHTYPE ARG219 <TYPE-CODE FIX> = ARG219>
+ <GVAL 'MAX-IMMEDIATE = OAC17>
+ <GRTR? ARG219 OAC17 + BOOL78 (TYPE FIX)>
+ <DEAD OAC17>
+ <LESS? ARG219 0 - PHRASE101 (TYPE FIX)>
+BOOL78
+ <AND ARG219 #WORD *777777* = OAC17>
+ <VEQUAL? OAC17 0 - BOOL91 (TYPE FIX)>
+ <DEAD OAC17>
+ <VEQUAL? NORM11 'IOR + BOOL86>
+ <VEQUAL? NORM11 'XOR - BOOL85>
+BOOL86
+ <LSH ARG219 -18 = ARG219 (TYPE FIX)>
+ <SET IMMED12 HACK13>
+ <VEQUAL? HACK13 'TLO - PHRASE101>
+ <VEQUAL? ARG219 262143 - PHRASE101 (TYPE FIX)>
+ <SET IMMED12 'HRLI (TYPE ATOM)>
+ <SET HACK13 'HRROS (TYPE ATOM)>
+ <SET HACK221 'HRRO (TYPE ATOM)>
+ <JUMP + PHRASE101>
+BOOL85
+ <SET OAC17 [FADR FSBR FDVR FMPR] (TYPE VECTOR)>
+ <LOOP (NORM11 VALUE) (OAC17 LENGTH VALUE)>
+TAG93
+ <NTHUV OAC17 1 = TEMP54>
+ <VEQUAL? TEMP54 NORM11 + TAG92>
+ <DEAD TEMP54>
+ <RESTUV OAC17 1 = OAC17 (TYPE VECTOR)>
+ <EMPUV? OAC17 - TAG93>
+ <JUMP + BOOL91>
+TAG92
+ <LSH ARG219 -18 = ARG219 (TYPE FIX)>
+ <JUMP + PHRASE101>
+BOOL91
+ <VEQUAL? NORM11 'AND + BOOL96>
+ <VEQUAL? NORM11 'EQV - PHRASE72>
+BOOL96
+ <AND ARG219 #WORD *777777* = OAC17>
+ <VEQUAL? OAC17 262143 - BOOL98 (TYPE FIX)>
+ <DEAD OAC17>
+ <XOR ARG219 #WORD *777777777777* = OAC17>
+ <DEAD ARG219>
+ <LSH OAC17 -18 = ARG219 (TYPE FIX)>
+ <DEAD OAC17>
+ <NTHL HACK13 1 = IMMED12 (TYPE ATOM)>
+ <JUMP + PHRASE101>
+BOOL98
+ <LSH ARG219 -18 = OAC17 (TYPE FIX)>
+ <AND OAC17 #WORD *777777* = OAC17>
+ <VEQUAL? OAC17 262143 - PHRASE72 (TYPE FIX)>
+ <DEAD OAC17>
+ <XOR ARG219 #WORD *777777777777* = OAC17>
+ <DEAD ARG219>
+ <AND OAC17 #WORD *777777* = ARG219>
+ <DEAD OAC17>
+ <RESTL HACK13 1 = OAC17 (TYPE LIST)>
+ <NTHL OAC17 1 = IMMED12 (TYPE ATOM)>
+ <DEAD OAC17>
+ <VEQUAL? ARG219 262143 - PHRASE101 (TYPE FIX)>
+ <VEQUAL? IMMED12 'TRZ - PHRASE101>
+ <SET HACK13 'HLLZS (TYPE ATOM)>
+ <SET HACK221 'HLLZ (TYPE ATOM)>
+PHRASE101
+ <SET IMM-OK23 'T (TYPE ATOM)>
+ <EQUAL? ARG118 VAL20 + BOOL112>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG118>
+ <CALL '\1aWILL-DIE? 1 = OAC17>
+ <TYPE? OAC17 <TYPE-CODE FALSE> + BOOL105>
+ <DEAD OAC17>
+ <VEQUAL? VAL20 'STACK + BOOL105>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS ARG118 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+ <JUMP + BOOL112>
+BOOL105
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG118>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP54>
+ <TYPE? TEMP54 <TYPE-CODE FALSE> - PHRASE72>
+ <DEAD TEMP54>
+ <VEQUAL? HACK13 'HRROS + BOOL112>
+ <VEQUAL? HACK13 'HLLZS + BOOL112>
+ <VEQUAL? IMMED12 'ANDI - PHRASE72>
+ <VEQUAL? ARG219 262143 - PHRASE72 (TYPE FIX)>
+BOOL112
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG118>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE115>
+ <VEQUAL? VAL20 'STACK + PHRASE135>
+ <EQUAL? ARG118 VAL20 + PHRASE135>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH VAL20>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <PUTUV TEMP54 2 VAL20>
+ <PUTUV TEMP54 3 'VALUE (TYPE ATOM)>
+ <DEAD TEMP54>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aGETPROP>
+ <PUSH TEMP25>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = OAC17>
+ <PUSH OAC17>
+ <DEAD OAC17>
+ <CALL '\1aGET-AC 1 = IMM-OK23>
+ <NTHUV IMM-OK23 2 = OAC17>
+ <EQUAL? OAC17 ARG118 + BOOL131>
+ <DEAD OAC17>
+ <FRAME '\1aVAR-TYPED?>
+ <PUSH ARG118>
+ <CALL '\1aVAR-TYPED? 1 = TEM22>
+ <TYPE? TEM22 <TYPE-CODE FALSE> + PHRASE135>
+ <DEAD TEM22>
+ <PUTUV IMM-OK23 6 RESTYP15>
+BOOL131
+ <PUTUV IMM-OK23 2 VAL20>
+ <DEAD VAL20>
+ <PUTUV IMM-OK23 3 'TYPE (TYPE ATOM)>
+ <PUTUV IMM-OK23 5 'T>
+ <NTHUV IMM-OK23 6 = OAC17>
+ <TYPE? OAC17 <TYPE-CODE FALSE> + BOOL137>
+ <DEAD OAC17>
+ <NTHUV IMM-OK23 6 = OAC17 (TYPE ATOM)>
+ <EQUAL? OAC17 RESTYP15 - BOOL139>
+ <DEAD OAC17>
+BOOL137
+ <NTHUV IMM-OK23 6 = OAC17>
+ <TYPE? OAC17 <TYPE-CODE FALSE> - PHRASE135>
+ <DEAD OAC17>
+ <FRAME '\1aVAR-TYPED?>
+ <PUSH ARG118>
+ <DEAD ARG118>
+ <CALL '\1aVAR-TYPED? 1 = TEM22>
+ <TYPE? TEM22 <TYPE-CODE FALSE> + BOOL139>
+ <EQUAL? TEM22 RESTYP15 + PHRASE135>
+ <DEAD TEM22>
+BOOL139
+ <PUTUV IMM-OK23 6 RESTYP15>
+ <DEAD IMM-OK23 RESTYP15>
+PHRASE135
+ <VEQUAL? NEG-FIRST24 0 + PHRASE142>
+ <DEAD NEG-FIRST24>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVNS>
+ <PUSH 'O*>
+ <PUSH TEMP25>
+ <CALL '\1aOCEMIT 3>
+PHRASE142
+ <VEQUAL? NORM11 'IDIV + BOOL147>
+ <VEQUAL? NORM11 'FDVR - PHRASE145>
+ <DEAD NORM11>
+BOOL147
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = OAC17>
+ <NTHUV OAC17 6 = OAC17>
+ <TYPE? OAC17 <TYPE-CODE FALSE> - PHRASE145>
+ <DEAD OAC17>
+ <FRAME '\1aFLUSH-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aMUNGED-AC 1>
+PHRASE145
+ <FRAME '\1aOCEMIT>
+ <PUSH IMMED12>
+ <DEAD IMMED12>
+ <PUSH TEMP25>
+ <PUSH ARG219>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = OAC17>
+ <PUTUV OAC17 5 'T>
+ <DEAD OAC17>
+ <VEQUAL? HACK13 'MOD + TAG158>
+ <DEAD HACK13>
+ <RETURN %<>>
+TAG158
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = IMM-OK23>
+ <NTHUV IMM-OK23 6 = ARG118>
+ <PUTUV IMM-OK23 6 %<>>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPGE>
+ <PUSH TEMP25>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADDI>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <PUSH ARG219>
+ <DEAD ARG219>
+ <CALL '\1aOCEMIT 3>
+ <PUTUV IMM-OK23 6 ARG118>
+ <DEAD ARG118>
+ <RETURN IMM-OK23>
+ <DEAD IMM-OK23>
+PHRASE115
+ <VEQUAL? ARG219 1 - PHRASE171 (TYPE FIX)>
+ <SET TEM22 [ADD SUB] (TYPE VECTOR)>
+ <LOOP (NORM11 VALUE) (TEM22 LENGTH VALUE)>
+TAG176
+ <NTHUV TEM22 1 = TEMP54>
+ <VEQUAL? TEMP54 NORM11 + TAG175>
+ <DEAD TEMP54>
+ <RESTUV TEM22 1 = TEM22 (TYPE VECTOR)>
+ <EMPUV? TEM22 - TAG176>
+ <JUMP + PHRASE171>
+TAG175
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL20>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = TEMP25>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEM22>
+ <EQUAL? ARG118 VAL20 + TAG183>
+ <SET TEMP54 'T (TYPE ATOM)>
+ <JUMP + TAG184>
+TAG183
+ <SET TEMP54 %<> (TYPE FALSE)>
+TAG184
+ <PUTUV TEM22 5 TEMP54>
+ <DEAD TEM22 TEMP54>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = TEM22>
+ <EQUAL? ARG118 VAL20 + TAG186>
+ <SET TEMP54 'T (TYPE ATOM)>
+ <JUMP + TAG187>
+TAG186
+ <SET TEMP54 %<> (TYPE FALSE)>
+TAG187
+ <PUTUV TEM22 5 TEMP54>
+ <DEAD TEM22 TEMP54>
+ <FRAME '\1aOCEMIT>
+ <PUSH HACK13>
+ <DEAD HACK13>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP54 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG118>
+ <DEAD ARG118>
+ <SCALL '\1aOBJ-VAL 1 = TEM22 + TAG188 TEMP54>
+ <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
+TAG191
+ <INTGO>
+ <EMPTY? TEM22 + TAG188>
+ <NTH1 TEM22 = STACK>
+ <REST1 TEM22 = TEM22>
+ <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
+ <JUMP + TAG191>
+TAG188
+ <CALL '\1aOCEMIT TEMP54>
+ <DEAD TEMP54>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <PUTUV TEMP54 2 VAL20>
+ <DEAD TEMP54 VAL20>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <PUTUV TEMP54 3 'VALUE (TYPE ATOM)>
+ <DEAD TEMP54>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <PUTUV TEMP54 6 'FIX>
+ <RETURN TEMP54>
+ <DEAD TEMP54>
+PHRASE171
+ <VEQUAL? HACK13 'HRROS + BOOL199>
+ <VEQUAL? HACK13 'HLLZS + BOOL199>
+ <VEQUAL? IMMED12 'ANDI - PHRASE198>
+ <VEQUAL? ARG219 262143 - PHRASE198 (TYPE FIX)>
+ <SET HACK13 'HRRZS (TYPE ATOM)>
+ <SET HACK221 'HRRZ (TYPE ATOM)>
+BOOL199
+ <VEQUAL? VAL20 'STACK + PHRASE202>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL20>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = TEMP25>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <EQUAL? VAL20 ARG118 + TAG206>
+ <SET TEM22 'T (TYPE ATOM)>
+ <JUMP + TAG207>
+TAG206
+ <SET TEM22 %<> (TYPE FALSE)>
+TAG207
+ <PUTUV TEMP54 5 TEM22>
+ <DEAD TEMP54 TEM22>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <EQUAL? VAL20 ARG118 + TAG209>
+ <SET TEM22 'T (TYPE ATOM)>
+ <JUMP + TAG210>
+TAG209
+ <SET TEM22 %<> (TYPE FALSE)>
+TAG210
+ <PUTUV TEMP54 5 TEM22>
+ <DEAD TEMP54 TEM22>
+ <FRAME '\1aOCEMIT>
+ <EQUAL? VAL20 ARG118 - PHRASE213>
+ <SET TEMP54 HACK13>
+ <DEAD HACK13>
+ <JUMP + PHRASE214>
+PHRASE213
+ <SET TEMP54 HACK221>
+ <DEAD HACK221>
+PHRASE214
+ <PUSH TEMP54>
+ <DEAD TEMP54>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEM22 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG118>
+ <DEAD ARG118>
+ <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG211 TEM22>
+ <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
+TAG217
+ <INTGO>
+ <EMPTY? TEMP54 + TAG211>
+ <NTH1 TEMP54 = STACK>
+ <REST1 TEMP54 = TEMP54>
+ <ADD TEM22 1 = TEM22 (TYPE FIX)>
+ <JUMP + TAG217>
+TAG211
+ <CALL '\1aOCEMIT TEM22>
+ <DEAD TEM22>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEM22>
+ <PUTUV TEM22 2 VAL20>
+ <DEAD TEM22 VAL20>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEM22>
+ <PUTUV TEM22 3 'VALUE (TYPE ATOM)>
+ <DEAD TEM22>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aGET-AC 1 = TEM22>
+ <PUTUV TEM22 6 'FIX>
+ <RETURN TEM22>
+ <DEAD TEM22>
+PHRASE202
+ <FRAME '\1aOCEMIT>
+ <PUSH HACK221>
+ <DEAD HACK221>
+ <PUSH 'O*>
+ <SET TEMP54 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG118>
+ <DEAD ARG118>
+ <SCALL '\1aOBJ-VAL 1 = TEM22 + TAG225 TEMP54>
+ <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
+TAG227
+ <INTGO>
+ <EMPTY? TEM22 + TAG225>
+ <NTH1 TEM22 = STACK>
+ <REST1 TEM22 = TEM22>
+ <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
+ <JUMP + TAG227>
+TAG225
+ <CALL '\1aOCEMIT TEMP54>
+ <DEAD TEMP54>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEM22 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH RESTYP15>
+ <DEAD RESTYP15>
+ <SCALL '\1aTYPE-WORD 1 = TEMP54 + TAG229 TEM22>
+ <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
+TAG231
+ <INTGO>
+ <EMPTY? TEMP54 + TAG229>
+ <NTH1 TEMP54 = STACK>
+ <REST1 TEMP54 = TEMP54>
+ <ADD TEM22 1 = TEM22 (TYPE FIX)>
+ <JUMP + TAG231>
+TAG229
+ <CALL '\1aOCEMIT TEM22>
+ <DEAD TEM22>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = OAC17>
+ <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE254>
+ <GVAL 'STACK-DEPTH = TEM22>
+ <ADD TEM22 2 = TEM22 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEM22>
+ <RETURN TEM22>
+ <DEAD TEM22>
+PHRASE198
+ <VEQUAL? HACK13 'MOD - PHRASE236>
+ <DEAD HACK13>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL20>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = TEMP25>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH TEMP25>
+ <SET TEMP54 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG118>
+ <DEAD ARG118>
+ <SCALL '\1aOBJ-VAL 1 = TEM22 + TAG238 TEMP54>
+ <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
+TAG240
+ <INTGO>
+ <EMPTY? TEM22 + TAG238>
+ <NTH1 TEM22 = STACK>
+ <REST1 TEM22 = TEM22>
+ <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
+ <JUMP + TAG240>
+TAG238
+ <CALL '\1aOCEMIT TEMP54>
+ <DEAD TEMP54>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'IDIVI>
+ <PUSH TEMP25>
+ <PUSH ARG219>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPGE>
+ <PUSH 'O*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADDI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH ARG219>
+ <DEAD ARG219>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <PUTUV TEMP54 6 'FIX>
+ <DEAD TEMP54>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <PUTUV TEMP54 2 VAL20>
+ <DEAD TEMP54 VAL20>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <PUTUV TEMP54 3 'VALUE (TYPE ATOM)>
+ <DEAD TEMP54>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <PUTUV TEMP54 5 'T>
+ <RETURN TEMP54>
+ <DEAD TEMP54>
+PHRASE236
+ <VEQUAL? NEG-FIRST24 0 + PHRASE256>
+ <DEAD NEG-FIRST24>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH ARG118>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = TEMP25>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVN>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEM22 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG118>
+ <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG258 TEM22>
+ <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
+TAG261
+ <INTGO>
+ <EMPTY? TEMP54 + TAG258>
+ <NTH1 TEMP54 = STACK>
+ <REST1 TEMP54 = TEMP54>
+ <ADD TEM22 1 = TEM22 (TYPE FIX)>
+ <JUMP + TAG261>
+TAG258
+ <CALL '\1aOCEMIT TEM22>
+ <DEAD TEM22>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = TEM22>
+ <PUTUV TEM22 6 RESTYP15>
+ <DEAD TEM22>
+ <JUMP + PHRASE264>
+PHRASE256
+ <FRAME '\1aLOAD-AC>
+ <PUSH ARG118>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aLOAD-AC 3 = TEMP25>
+PHRASE264
+ <EQUAL? ARG118 VAL20 + PHRASE267>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS ARG118 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = TEM22>
+ <NTHUV TEM22 6 = TEMP54>
+ <TYPE? TEMP54 <TYPE-CODE FALSE> + BOOL277>
+ <DEAD TEMP54>
+ <NTHUV TEM22 6 = TEMP54 (TYPE ATOM)>
+ <EQUAL? TEMP54 RESTYP15 - BOOL279>
+ <DEAD TEMP54>
+BOOL277
+ <NTHUV TEM22 6 = TEMP54>
+ <TYPE? TEMP54 <TYPE-CODE FALSE> - PHRASE275>
+ <DEAD TEMP54>
+ <FRAME '\1aVAR-TYPED?>
+ <PUSH ARG118>
+ <DEAD ARG118>
+ <CALL '\1aVAR-TYPED? 1 = ARG118>
+ <TYPE? ARG118 <TYPE-CODE FALSE> + BOOL279>
+ <EQUAL? ARG118 RESTYP15 + PHRASE275>
+ <DEAD ARG118>
+BOOL279
+ <PUTUV TEM22 6 RESTYP15>
+ <DEAD TEM22 RESTYP15>
+PHRASE275
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH VAL20>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aALTER-AC>
+ <PUSH TEMP25>
+ <PUSH VAL20>
+ <DEAD VAL20>
+ <CALL '\1aALTER-AC 2>
+PHRASE267
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aNEXT-AC 1 = TEMP25>
+ <VEQUAL? NORM11 'IDIV + BOOL286>
+ <VEQUAL? NORM11 'FDVR - PHRASE285>
+ <DEAD NORM11>
+BOOL286
+ <FRAME '\1aFLUSH-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aMUNGED-AC 1>
+PHRASE285
+ <FRAME '\1aOCEMIT>
+ <PUSH IMMED12>
+ <DEAD IMMED12>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <PUSH ARG219>
+ <DEAD ARG219>
+ <CALL '\1aOCEMIT 3 = OAC17>
+PHRASE254
+ <RETURN OAC17>
+ <DEAD OAC17>
+PHRASE72
+ <EQUAL? ARG118 0 + BOOL294>
+ <EQUAL? ARG118 0.0 - PHRASE292>
+BOOL294
+ <VEQUAL? NORM11 'SUB + BOOL295>
+ <VEQUAL? NORM11 'FSBR - PHRASE292>
+BOOL295
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG219>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE297>
+ <EQUAL? ARG219 VAL20 - PHRASE300>
+ <DEAD ARG219>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <PUTUV TEMP54 5 'T>
+ <DEAD TEMP54>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVNS>
+ <PUSH 'O*>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aOCEMIT 3 = OAC17>
+ <RETURN OAC17>
+ <DEAD OAC17>
+PHRASE300
+ <VEQUAL? VAL20 'STACK - PHRASE303>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVN>
+ <PUSH 'O*>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEM22 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH RESTYP15>
+ <DEAD RESTYP15>
+ <SCALL '\1aTYPE-WORD 1 = TEMP54 + TAG305 TEM22>
+ <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
+TAG308
+ <INTGO>
+ <EMPTY? TEMP54 + TAG305>
+ <NTH1 TEMP54 = STACK>
+ <REST1 TEMP54 = TEMP54>
+ <ADD TEM22 1 = TEM22 (TYPE FIX)>
+ <JUMP + TAG308>
+TAG305
+ <CALL '\1aOCEMIT TEM22>
+ <DEAD TEM22>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = OAC17>
+ <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE556>
+ <GVAL 'STACK-DEPTH = TEM22>
+ <ADD TEM22 2 = TEM22 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEM22>
+ <RETURN TEM22>
+ <DEAD TEM22>
+PHRASE303
+ <SET OAC17 TEMP25>
+ <DEAD TEMP25>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL20>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = TEMP25>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = TEM22>
+ <PUTUV TEM22 6 RESTYP15>
+ <DEAD TEM22 RESTYP15>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEM22>
+ <PUTUV TEM22 2 VAL20>
+ <DEAD TEM22 VAL20>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVN>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH OAC17>
+ <DEAD OAC17>
+ <CALL '\1aOCEMIT 3 = OAC17>
+ <RETURN OAC17>
+ <DEAD OAC17>
+PHRASE297
+ <EQUAL? ARG219 VAL20 - PHRASE320>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVNS>
+ <PUSH 'O*>
+ <SET TEMP54 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG219>
+ <DEAD ARG219>
+ <SCALL '\1aOBJ-VAL 1 = TEM22 + TAG321 TEMP54>
+ <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
+TAG323
+ <INTGO>
+ <EMPTY? TEM22 + TAG321>
+ <NTH1 TEM22 = STACK>
+ <REST1 TEM22 = TEM22>
+ <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
+ <JUMP + TAG323>
+TAG321
+ <CALL '\1aOCEMIT TEMP54 = OAC17>
+ <DEAD TEMP54>
+ <RETURN OAC17>
+ <DEAD OAC17>
+PHRASE320
+ <VEQUAL? VAL20 'STACK - PHRASE325>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVN>
+ <PUSH 'O*>
+ <SET TEM22 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG219>
+ <DEAD ARG219>
+ <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG326 TEM22>
+ <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
+TAG328
+ <INTGO>
+ <EMPTY? TEMP54 + TAG326>
+ <NTH1 TEMP54 = STACK>
+ <REST1 TEMP54 = TEMP54>
+ <ADD TEM22 1 = TEM22 (TYPE FIX)>
+ <JUMP + TAG328>
+TAG326
+ <CALL '\1aOCEMIT TEM22>
+ <DEAD TEM22>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP54 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH RESTYP15>
+ <DEAD RESTYP15>
+ <SCALL '\1aTYPE-WORD 1 = TEM22 + TAG330 TEMP54>
+ <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
+TAG332
+ <INTGO>
+ <EMPTY? TEM22 + TAG330>
+ <NTH1 TEM22 = STACK>
+ <REST1 TEM22 = TEM22>
+ <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
+ <JUMP + TAG332>
+TAG330
+ <CALL '\1aOCEMIT TEMP54>
+ <DEAD TEMP54>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = OAC17>
+ <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE337>
+ <GVAL 'STACK-DEPTH = TEMP54>
+ <ADD TEMP54 2 = TEMP54 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP54>
+ <RETURN TEMP54>
+ <DEAD TEMP54>
+PHRASE325
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL20>
+ <DEAD VAL20>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = TEMP25>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <PUTUV TEMP54 6 RESTYP15>
+ <DEAD TEMP54 RESTYP15>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVN>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEM22 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG219>
+ <DEAD ARG219>
+ <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG340 TEM22>
+ <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
+TAG343
+ <INTGO>
+ <EMPTY? TEMP54 + TAG340>
+ <NTH1 TEMP54 = STACK>
+ <REST1 TEMP54 = TEMP54>
+ <ADD TEM22 1 = TEM22 (TYPE FIX)>
+ <JUMP + TAG343>
+TAG340
+ <CALL '\1aOCEMIT TEM22 = OAC17>
+ <DEAD TEM22>
+PHRASE337
+ <RETURN OAC17>
+ <DEAD OAC17>
+PHRASE292
+ <VEQUAL? HACK13 'MOD - PHRASE345>
+ <EQUAL? ARG118 VAL20 - PHRASE345>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH ARG118>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = TEMP25>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH TEMP25>
+ <SET TEMP54 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG118>
+ <SCALL '\1aOBJ-VAL 1 = TEM22 + TAG348 TEMP54>
+ <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
+TAG350
+ <INTGO>
+ <EMPTY? TEM22 + TAG348>
+ <NTH1 TEM22 = STACK>
+ <REST1 TEM22 = TEM22>
+ <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
+ <JUMP + TAG350>
+TAG348
+ <CALL '\1aOCEMIT TEMP54>
+ <DEAD TEMP54>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'IDIV>
+ <PUSH TEMP25>
+ <SET TEM22 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG219>
+ <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG352 TEM22>
+ <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
+TAG354
+ <INTGO>
+ <EMPTY? TEMP54 + TAG352>
+ <NTH1 TEMP54 = STACK>
+ <REST1 TEMP54 = TEMP54>
+ <ADD TEM22 1 = TEM22 (TYPE FIX)>
+ <JUMP + TAG354>
+TAG352
+ <CALL '\1aOCEMIT TEM22>
+ <DEAD TEM22>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPGE>
+ <PUSH 'O*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP54 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG219>
+ <DEAD ARG219>
+ <SCALL '\1aOBJ-VAL 1 = TEM22 + TAG358 TEMP54>
+ <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
+TAG361
+ <INTGO>
+ <EMPTY? TEM22 + TAG358>
+ <NTH1 TEM22 = STACK>
+ <REST1 TEM22 = TEM22>
+ <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
+ <JUMP + TAG361>
+TAG358
+ <CALL '\1aOCEMIT TEMP54>
+ <DEAD TEMP54>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <PUTUV TEMP54 6 'FIX>
+ <DEAD TEMP54>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <PUTUV TEMP54 2 ARG118>
+ <DEAD TEMP54 ARG118>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <PUTUV TEMP54 3 'VALUE (TYPE ATOM)>
+ <DEAD TEMP54>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <PUTUV TEMP54 5 'T>
+ <RETURN TEMP54>
+ <DEAD TEMP54>
+PHRASE345
+ <EQUAL? ARG118 VAL20 - PHRASE370>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH ARG118>
+ <DEAD ARG118>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = TEMP25>
+ <VEQUAL? NEG-FIRST24 0 + PHRASE374>
+ <DEAD NEG-FIRST24>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVNS>
+ <PUSH 'O*>
+ <PUSH TEMP25>
+ <CALL '\1aOCEMIT 3>
+PHRASE374
+ <VEQUAL? NORM11 'IDIV + BOOL378>
+ <VEQUAL? NORM11 'FDVR - PHRASE377>
+BOOL378
+ <FRAME '\1aFLUSH-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aMUNGED-AC 1>
+PHRASE377
+ <FRAME '\1aOCEMIT>
+ <PUSH NORM11>
+ <DEAD NORM11>
+ <PUSH TEMP25>
+ <SET TEM22 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG219>
+ <DEAD ARG219>
+ <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG383 TEM22>
+ <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
+TAG385
+ <INTGO>
+ <EMPTY? TEMP54 + TAG383>
+ <NTH1 TEMP54 = STACK>
+ <REST1 TEMP54 = TEMP54>
+ <ADD TEM22 1 = TEM22 (TYPE FIX)>
+ <JUMP + TAG385>
+TAG383
+ <CALL '\1aOCEMIT TEM22>
+ <DEAD TEM22>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aGET-AC 1 = TEM22>
+ <PUTUV TEM22 5 'T>
+ <RETURN TEM22>
+ <DEAD TEM22>
+PHRASE370
+ <VEQUAL? HACK13 'MOD - PHRASE388>
+ <DEAD HACK13>
+ <EQUAL? ARG219 VAL20 - PHRASE390>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'T*>
+ <PUSH ARG219>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+PHRASE390
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH VAL20>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL20>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = TEMP25>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH TEMP25>
+ <SET TEMP54 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG118>
+ <SCALL '\1aOBJ-VAL 1 = TEM22 + TAG394 TEMP54>
+ <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
+TAG396
+ <INTGO>
+ <EMPTY? TEM22 + TAG394>
+ <NTH1 TEM22 = STACK>
+ <REST1 TEM22 = TEM22>
+ <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
+ <JUMP + TAG396>
+TAG394
+ <CALL '\1aOCEMIT TEMP54>
+ <DEAD TEMP54>
+ <TYPE? ARG219 <TYPE-CODE FIX> - PHRASE399>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'IDIVI>
+ <PUSH TEMP25>
+ <PUSH ARG219>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPGE>
+ <PUSH 'O*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADDI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH ARG219>
+ <DEAD ARG219>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE405>
+PHRASE399
+ <FRAME '\1aOCEMIT>
+ <PUSH 'IDIV>
+ <PUSH TEMP25>
+ <SET TEM22 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG219>
+ <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG406 TEM22>
+ <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
+TAG408
+ <INTGO>
+ <EMPTY? TEMP54 + TAG406>
+ <NTH1 TEMP54 = STACK>
+ <REST1 TEMP54 = TEMP54>
+ <ADD TEM22 1 = TEM22 (TYPE FIX)>
+ <JUMP + TAG408>
+TAG406
+ <CALL '\1aOCEMIT TEM22>
+ <DEAD TEM22>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPGE>
+ <PUSH 'O*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP54 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG219>
+ <DEAD ARG219>
+ <SCALL '\1aOBJ-VAL 1 = TEM22 + TAG412 TEMP54>
+ <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
+TAG415
+ <INTGO>
+ <EMPTY? TEM22 + TAG412>
+ <NTH1 TEM22 = STACK>
+ <REST1 TEM22 = TEM22>
+ <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
+ <JUMP + TAG415>
+TAG412
+ <CALL '\1aOCEMIT TEMP54>
+ <DEAD TEMP54>
+PHRASE405
+ <VEQUAL? VAL20 'STACK - PHRASE418>
+ <DEAD VAL20>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEM22 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP54 + TAG419 TEM22>
+ <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
+TAG421
+ <INTGO>
+ <EMPTY? TEMP54 + TAG419>
+ <NTH1 TEMP54 = STACK>
+ <REST1 TEMP54 = TEMP54>
+ <ADD TEM22 1 = TEM22 (TYPE FIX)>
+ <JUMP + TAG421>
+TAG419
+ <CALL '\1aOCEMIT TEM22>
+ <DEAD TEM22>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEM22>
+ <TYPE? TEM22 <TYPE-CODE FALSE> + PHRASE426>
+ <DEAD TEM22>
+ <GVAL 'STACK-DEPTH = TEM22>
+ <ADD TEM22 2 = TEM22 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEM22>
+ <DEAD TEM22>
+PHRASE426
+ <FRAME '\1aMUNGED-AC>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2 = OAC17>
+ <RETURN OAC17>
+ <DEAD OAC17>
+PHRASE418
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = TEM22>
+ <PUTUV TEM22 6 'FIX>
+ <DEAD TEM22>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEM22>
+ <PUTUV TEM22 2 ARG118>
+ <DEAD TEM22 ARG118>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEM22>
+ <PUTUV TEM22 3 'VALUE (TYPE ATOM)>
+ <DEAD TEM22>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEM22>
+ <PUTUV TEM22 5 'T>
+ <RETURN TEM22>
+ <DEAD TEM22>
+PHRASE388
+ <SET TEM22 %<> (TYPE FALSE)>
+ <EQUAL? ARG219 VAL20 - BOOL446>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG219>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TEM22>
+ <TYPE? TEM22 <TYPE-CODE FALSE> + BOOL440>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH TEM22>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEM22>
+ <DEAD TEM22>
+ <CALL '\1aNEXT-AC 1 = TEM22>
+ <JUMP + BOOL446>
+BOOL440
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG219>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEM22>
+ <TYPE? TEM22 <TYPE-CODE FALSE> + BOOL446>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH TEM22>
+ <CALL '\1aMUNGED-AC 1>
+BOOL446
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG118>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE450>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG118>
+ <CALL '\1aWILL-DIE? 1 = TEMP54>
+ <TYPE? TEMP54 <TYPE-CODE FALSE> + PHRASE453>
+ <DEAD TEMP54>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS ARG118 () = STACK>
+ <DEAD ARG118>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+ <JUMP + PHRASE456>
+PHRASE453
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <NTHUV TEMP54 5 = TEMP54>
+ <TYPE? TEMP54 <TYPE-CODE FALSE> + PHRASE456>
+ <DEAD TEMP54>
+ <FRAME '\1aREALLY-FREE-AC-PAIR>
+ <CALL '\1aREALLY-FREE-AC-PAIR 0 = OAC17>
+ <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE456>
+ <FRAME '\1aNEXT-AC>
+ <PUSH OAC17>
+ <CALL '\1aNEXT-AC 1 = TEMP54>
+ <EQUAL? TEMP54 TEM22 + PHRASE456>
+ <DEAD TEMP54>
+ <VEQUAL? NEG-FIRST24 0 + PHRASE463>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVN>
+ <FRAME '\1aNEXT-AC>
+ <PUSH OAC17>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <SET NEG-FIRST24 %<> (TYPE FALSE)>
+ <JUMP + PHRASE467>
+PHRASE463
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH OAC17>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+PHRASE467
+ <SET TEMP25 OAC17>
+ <DEAD OAC17>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = TEMP54>
+ <PUTUV TEMP54 6 RESTYP15>
+ <DEAD TEMP54>
+PHRASE456
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = OAC17>
+ <NTHUV OAC17 6 = ARG118>
+ <DEAD OAC17>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH TEMP25>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH TEMP25>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = OAC17>
+ <PUTUV OAC17 6 ARG118>
+ <DEAD OAC17 ARG118>
+ <VEQUAL? NEG-FIRST24 0 + PHRASE502>
+ <DEAD NEG-FIRST24>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVNS>
+ <PUSH 'O*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE502>
+PHRASE450
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL20>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = TEMP25>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = OAC17>
+ <EQUAL? TEM22 OAC17 - PHRASE487>
+ <DEAD OAC17>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'T*>
+ <PUSH TEM22>
+ <DEAD TEM22>
+ <CALL '\1aOCEMIT 3>
+ <SET TEM22 'T* (TYPE ATOM)>
+PHRASE487
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = OAC17>
+ <PUTUV OAC17 6 RESTYP15>
+ <DEAD OAC17>
+ <TYPE? ARG118 <TYPE-CODE ATOM> - PHRASE492>
+ <FRAME '\1aOCEMIT>
+ <VEQUAL? NEG-FIRST24 0 + PHRASE495>
+ <DEAD NEG-FIRST24>
+ <SET OAC17 'MOVN (TYPE ATOM)>
+ <JUMP + PHRASE496>
+PHRASE495
+ <SET OAC17 'MOVE (TYPE ATOM)>
+PHRASE496
+ <PUSH OAC17>
+ <DEAD OAC17>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET NEG-FIRST24 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG118>
+ <DEAD ARG118>
+ <SCALL '\1aOBJ-VAL 1 = OAC17 + TAG493 NEG-FIRST24>
+ <LOOP (OAC17 TYPE VALUE LENGTH) (NEG-FIRST24 VALUE)>
+TAG500
+ <INTGO>
+ <EMPTY? OAC17 + TAG493>
+ <NTH1 OAC17 = STACK>
+ <REST1 OAC17 = OAC17>
+ <ADD NEG-FIRST24 1 = NEG-FIRST24 (TYPE FIX)>
+ <JUMP + TAG500>
+TAG493
+ <CALL '\1aOCEMIT NEG-FIRST24>
+ <DEAD NEG-FIRST24>
+ <JUMP + PHRASE502>
+PHRASE492
+ <FRAME '\1aLOAD-AC>
+ <PUSH ARG118>
+ <DEAD ARG118>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <PUSH %<>>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = STACK>
+ <CALL '\1aLOAD-AC 5>
+PHRASE502
+ <VEQUAL? NORM11 'IDIV + BOOL509>
+ <VEQUAL? NORM11 'FDVR - PHRASE507>
+BOOL509
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aNEXT-AC 1 = NEG-FIRST24>
+ <EQUAL? NEG-FIRST24 'T* + PHRASE507>
+ <DEAD NEG-FIRST24>
+ <FRAME '\1aFLUSH-AC>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aMUNGED-AC 1>
+PHRASE507
+ <VEQUAL? IMM-OK23 0 + PHRASE519>
+ <DEAD IMM-OK23>
+ <FRAME '\1aOCEMIT>
+ <PUSH IMMED12>
+ <DEAD IMMED12>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH ARG219>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE532>
+PHRASE519
+ <TYPE? TEM22 <TYPE-CODE FALSE> + PHRASE522>
+ <FRAME '\1aOCEMIT>
+ <PUSH NORM11>
+ <DEAD NORM11>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH TEM22>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE532>
+PHRASE522
+ <TYPE? BO14 <TYPE-CODE FALSE> + PHRASE525>
+ <EQUAL? ARG219 VAL20 - PHRASE525>
+ <FRAME '\1aOCEMIT>
+ <PUSH BO14>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET OAC17 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG219>
+ <SCALL '\1aOBJ-VAL 1 = NEG-FIRST24 + TAG527 OAC17>
+ <LOOP (NEG-FIRST24 TYPE VALUE LENGTH) (OAC17 VALUE)>
+TAG530
+ <INTGO>
+ <EMPTY? NEG-FIRST24 + TAG527>
+ <NTH1 NEG-FIRST24 = STACK>
+ <REST1 NEG-FIRST24 = NEG-FIRST24>
+ <ADD OAC17 1 = OAC17 (TYPE FIX)>
+ <JUMP + TAG530>
+TAG527
+ <CALL '\1aOCEMIT OAC17>
+ <DEAD OAC17>
+ <JUMP + PHRASE532>
+PHRASE525
+ <FRAME '\1aOCEMIT>
+ <PUSH NORM11>
+ <DEAD NORM11>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET NEG-FIRST24 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG219>
+ <SCALL '\1aOBJ-VAL 1 = OAC17 + TAG533 NEG-FIRST24>
+ <LOOP (OAC17 TYPE VALUE LENGTH) (NEG-FIRST24 VALUE)>
+TAG536
+ <INTGO>
+ <EMPTY? OAC17 + TAG533>
+ <NTH1 OAC17 = STACK>
+ <REST1 OAC17 = OAC17>
+ <ADD NEG-FIRST24 1 = NEG-FIRST24 (TYPE FIX)>
+ <JUMP + TAG536>
+TAG533
+ <CALL '\1aOCEMIT NEG-FIRST24>
+ <DEAD NEG-FIRST24>
+PHRASE532
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH VAL20>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = NEG-FIRST24>
+ <PUTUV NEG-FIRST24 2 VAL20>
+ <PUTUV NEG-FIRST24 3 'TYPE (TYPE ATOM)>
+ <DEAD NEG-FIRST24>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = NEG-FIRST24>
+ <PUTUV NEG-FIRST24 5 'T>
+ <DEAD NEG-FIRST24>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aNEXT-AC 1 = TEMP25>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = NEG-FIRST24>
+ <PUTUV NEG-FIRST24 2 VAL20>
+ <PUTUV NEG-FIRST24 3 'VALUE (TYPE ATOM)>
+ <DEAD NEG-FIRST24>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = NEG-FIRST24>
+ <TYPE? BO14 <TYPE-CODE FALSE> + TAG544>
+ <DEAD BO14>
+ <EQUAL? ARG219 VAL20 - TAG544>
+ <DEAD ARG219>
+ <TYPE? TEM22 <TYPE-CODE FALSE> - TAG544>
+ <DEAD TEM22>
+ <SET OAC17 %<> (TYPE FALSE)>
+ <JUMP + TAG545>
+TAG544
+ <SET OAC17 'T (TYPE ATOM)>
+TAG545
+ <PUTUV NEG-FIRST24 5 OAC17>
+ <DEAD NEG-FIRST24 OAC17>
+ <VEQUAL? VAL20 'STACK + TAG549>
+ <DEAD VAL20>
+ <RETURN %<>>
+TAG549
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET OAC17 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH RESTYP15>
+ <DEAD RESTYP15>
+ <SCALL '\1aTYPE-WORD 1 = NEG-FIRST24 + TAG550 OAC17>
+ <LOOP (NEG-FIRST24 TYPE VALUE LENGTH) (OAC17 VALUE)>
+TAG552
+ <INTGO>
+ <EMPTY? NEG-FIRST24 + TAG550>
+ <NTH1 NEG-FIRST24 = STACK>
+ <REST1 NEG-FIRST24 = NEG-FIRST24>
+ <ADD OAC17 1 = OAC17 (TYPE FIX)>
+ <JUMP + TAG552>
+TAG550
+ <CALL '\1aOCEMIT OAC17>
+ <DEAD OAC17>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = OAC17>
+ <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE556>
+ <GVAL 'STACK-DEPTH = OAC17>
+ <ADD OAC17 2 = OAC17 (TYPE FIX)>
+ <SETG 'STACK-DEPTH OAC17>
+PHRASE556
+ <RETURN OAC17>
+ <DEAD OAC17>
+ <END \1aARITH!-MIMOC>\r\r
+#WORD *11521221065*
+<GFCN \1aAND!-MIMOC ("VALUE" ANY LIST) L4>
+ <TEMP ARG15 TEMP18 ARG26 VAL7:ATOM (CONST13 %<>) MIML17 NEXTLINE8 TEMP41 TEMP42 TEMP43 TEMP44 TRN12:LIST>
+ <INTGO>
+ <NTHL L4 1 = ARG15>
+ <RESTL L4 1 = TEMP18 (TYPE LIST)>
+ <NTHL TEMP18 1 = ARG26>
+ <DEAD TEMP18>
+ <RESTL L4 1 = TEMP18 (TYPE LIST)>
+ <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
+ <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
+ <NTHL TEMP18 1 = VAL7 (TYPE ATOM)>
+ <DEAD TEMP18>
+ <GEN-LVAL 'MIML = MIML17>
+ <EMPL? MIML17 + PHRASE22>
+ <RESTL MIML17 1 = TEMP18 (TYPE LIST)>
+ <EMPL? TEMP18 + PHRASE22>
+ <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
+ <EMPL? TEMP18 + PHRASE22>
+ <DEAD TEMP18>
+ <FRAME '\1aPRIMTYPE>
+ <PUSH ARG15>
+ <CALL '\1aPRIMTYPE 1 = TEMP18>
+ <VEQUAL? TEMP18 'FIX - BOOL26>
+ <DEAD TEMP18>
+ <TYPE? ARG26 <TYPE-CODE ATOM> - BOOL26>
+ <SET TEMP18 ARG15>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + BOOL26>
+ <SET ARG15 ARG26>
+ <DEAD ARG26>
+ <CHTYPE TEMP18 <TYPE-CODE FIX> = ARG26>
+ <DEAD TEMP18>
+ <JUMP + PHRASE36>
+BOOL26
+ <TYPE? ARG15 <TYPE-CODE ATOM> - BOOL28>
+ <FRAME '\1aPRIMTYPE>
+ <PUSH ARG26>
+ <CALL '\1aPRIMTYPE 1 = TEMP18>
+ <VEQUAL? TEMP18 'FIX - BOOL28>
+ <DEAD TEMP18>
+ <CHTYPE ARG26 <TYPE-CODE FIX> = ARG26>
+ <JUMP + PHRASE36>
+BOOL28
+ <TYPE? ARG15 <TYPE-CODE ATOM> - PHRASE22>
+ <TYPE? ARG26 <TYPE-CODE ATOM> - PHRASE22>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG15>
+ <CALL '\1aWILL-DIE? 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE22>
+ <DEAD TEMP18>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG26>
+ <CALL '\1aWILL-DIE? 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE22>
+ <DEAD TEMP18>
+ <VEQUAL? ARG15 VAL7 + PHRASE22>
+ <VEQUAL? ARG26 VAL7 + PHRASE22>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG26>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE36>
+ <DEAD TEMP18>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG15>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE36>
+ <DEAD TEMP18>
+ <SET TEMP18 ARG15>
+ <DEAD ARG15>
+ <SET ARG15 ARG26>
+ <DEAD ARG26>
+ <SET ARG26 TEMP18>
+ <DEAD TEMP18>
+PHRASE36
+ <RESTL MIML17 1 = TEMP18 (TYPE LIST)>
+ <NTHL TEMP18 1 = NEXTLINE8>
+ <DEAD TEMP18>
+ <TYPE? NEXTLINE8 <TYPE-CODE FORM> - PHRASE22>
+ <NTHL NEXTLINE8 1 = TEMP18 (TYPE ATOM)>
+ <NTHR TEMP18 3 = TEMP18 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP18 "VEQUAL?" - PHRASE22>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP41 "VEQUAL?" (TYPE STRING)>
+ <LENUS TEMP18 = TEMP42 (TYPE FIX)>
+ <VEQUAL? TEMP42 7 - PHRASE22>
+ <LOOP (TEMP18 VALUE LENGTH) (TEMP41 VALUE LENGTH) (TEMP42 VALUE)>
+TAG45
+ <NTHUS TEMP18 1 = TEMP43>
+ <NTHUS TEMP41 1 = TEMP44>
+ <VEQUAL? TEMP43 TEMP44 - PHRASE22>
+ <DEAD TEMP43 TEMP44>
+ <RESTUS TEMP18 1 = TEMP18 (TYPE STRING)>
+ <RESTUS TEMP41 1 = TEMP41 (TYPE STRING)>
+ <SUB TEMP42 1 = TEMP42 (TYPE FIX)>
+ <GRTR? TEMP42 0 + TAG45 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <RESTL NEXTLINE8 1 = TEMP41 (TYPE LIST)>
+ <NTHL TEMP41 1 = TEMP41>
+ <EQUAL? TEMP41 VAL7 - BOOL47>
+ <DEAD TEMP41>
+ <RESTL NEXTLINE8 1 = TEMP41 (TYPE LIST)>
+ <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
+ <NTHL TEMP41 1 = TEMP41>
+ <EQUAL? TEMP41 0 + BOOL46>
+ <DEAD TEMP41>
+BOOL47
+ <RESTL NEXTLINE8 1 = TEMP41 (TYPE LIST)>
+ <NTHL TEMP41 1 = TEMP41>
+ <EQUAL? TEMP41 0 - PHRASE22>
+ <DEAD TEMP41>
+ <RESTL NEXTLINE8 1 = TEMP41 (TYPE LIST)>
+ <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
+ <NTHL TEMP41 1 = TEMP41>
+ <EQUAL? TEMP41 VAL7 - PHRASE22>
+ <DEAD TEMP41>
+BOOL46
+ <FRAME '\1aWILL-DIE?>
+ <PUSH VAL7>
+ <RESTL MIML17 1 = STACK (TYPE LIST)>
+ <DEAD MIML17>
+ <CALL '\1aWILL-DIE? 2 = TEMP41>
+ <TYPE? TEMP41 <TYPE-CODE FALSE> + PHRASE22>
+ <DEAD TEMP41>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <FRAME '\1aFIND-LABEL>
+ <NTHL NEXTLINE8 5 = STACK>
+ <CALL '\1aFIND-LABEL 1 = TEMP41>
+ <NTHUV TEMP41 7 = STACK (TYPE LIST)>
+ <DEAD TEMP41>
+ <CALL '\1aWILL-DIE? 2 = TEMP41>
+ <TYPE? TEMP41 <TYPE-CODE FALSE> + PHRASE22>
+ <DEAD TEMP41>
+ <RESTL NEXTLINE8 1 = TEMP41 (TYPE LIST)>
+ <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
+ <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
+ <NTHL TEMP41 1 = VAL7 (TYPE ATOM)>
+ <DEAD TEMP41>
+ <NTHL NEXTLINE8 5 = MIML17 (TYPE ATOM)>
+ <DEAD NEXTLINE8>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG15>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE53>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <CALL '\1aNEXT-AC 1 = NEXTLINE8>
+ <JUMP + PHRASE57>
+PHRASE53
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG15>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = NEXTLINE8>
+ <TYPE? NEXTLINE8 <TYPE-CODE FALSE> - PHRASE57>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH ARG15>
+ <DEAD ARG15>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TEMP18>
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <CALL '\1aNEXT-AC 1 = NEXTLINE8>
+PHRASE57
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <PUSH MIML17>
+ <PUSH %<>>
+ <CALL '\1aLABEL-UPDATE-ACS 2>
+ <TYPE? ARG26 <TYPE-CODE ATOM> - PHRASE62>
+ <SET CONST13 'T (TYPE ATOM)>
+ <JUMP + PHRASE68>
+PHRASE62
+ <FRAME '\1aL=?>
+ <PUSH ARG26>
+ <PUSH 262143>
+ <CALL '\1aL=? 2 = TEMP41>
+ <TYPE? TEMP41 <TYPE-CODE FALSE> + PHRASE63>
+ <DEAD TEMP41>
+ <SET TRN12 (TRNN TRNE) (TYPE LIST)>
+ <JUMP + PHRASE68>
+PHRASE63
+ <AND ARG26 #WORD *777777* = TEMP41>
+ <VEQUAL? TEMP41 0 - PHRASE65 (TYPE FIX)>
+ <DEAD TEMP41>
+ <LSH ARG26 -18 = ARG26 (TYPE FIX)>
+ <SET TRN12 (TLNN TLNE) (TYPE LIST)>
+ <JUMP + PHRASE68>
+PHRASE65
+ <SET CONST13 'T (TYPE ATOM)>
+PHRASE68
+ <VEQUAL? VAL7 '- - PHRASE70>
+ <DEAD VAL7>
+ <VEQUAL? CONST13 0 + PHRASE72>
+ <DEAD CONST13>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'TDNE>
+ <PUSH NEXTLINE8>
+ <DEAD NEXTLINE8>
+ <SET TEMP18 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG26>
+ <DEAD ARG26>
+ <SCALL '\1aOBJ-VAL 1 = TEMP41 + TAG73 TEMP18>
+ <LOOP (TEMP41 TYPE VALUE LENGTH) (TEMP18 VALUE)>
+TAG75
+ <INTGO>
+ <EMPTY? TEMP41 + TAG73>
+ <NTH1 TEMP41 = STACK>
+ <REST1 TEMP41 = TEMP41>
+ <ADD TEMP18 1 = TEMP18 (TYPE FIX)>
+ <JUMP + TAG75>
+TAG73
+ <CALL '\1aOCEMIT TEMP18>
+ <DEAD TEMP18>
+ <JUMP + PHRASE95>
+PHRASE72
+ <FRAME '\1aOCEMIT>
+ <RESTL TRN12 1 = TEMP18 (TYPE LIST)>
+ <DEAD TRN12>
+ <NTHL TEMP18 1 = STACK>
+ <DEAD TEMP18>
+ <PUSH NEXTLINE8>
+ <DEAD NEXTLINE8>
+ <PUSH ARG26>
+ <DEAD ARG26>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE95>
+PHRASE70
+ <TYPE? ARG26 <TYPE-CODE FIX> - PHRASE79>
+ <SUB 0 ARG26 = TEMP18 (TYPE FIX)>
+ <AND ARG26 TEMP18 = TEMP41>
+ <DEAD TEMP18>
+ <VEQUAL? ARG26 TEMP41 - PHRASE79 (TYPE FIX)>
+ <DEAD TEMP41>
+ <VEQUAL? CONST13 0 + PHRASE82>
+ <DEAD CONST13>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'TDNN>
+ <PUSH NEXTLINE8>
+ <DEAD NEXTLINE8>
+ <SET TEMP18 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG26>
+ <DEAD ARG26>
+ <SCALL '\1aOBJ-VAL 1 = TEMP41 + TAG83 TEMP18>
+ <LOOP (TEMP41 TYPE VALUE LENGTH) (TEMP18 VALUE)>
+TAG85
+ <INTGO>
+ <EMPTY? TEMP41 + TAG83>
+ <NTH1 TEMP41 = STACK>
+ <REST1 TEMP41 = TEMP41>
+ <ADD TEMP18 1 = TEMP18 (TYPE FIX)>
+ <JUMP + TAG85>
+TAG83
+ <CALL '\1aOCEMIT TEMP18>
+ <DEAD TEMP18>
+ <JUMP + PHRASE95>
+PHRASE82
+ <FRAME '\1aOCEMIT>
+ <NTHL TRN12 1 = STACK>
+ <DEAD TRN12>
+ <PUSH NEXTLINE8>
+ <DEAD NEXTLINE8>
+ <PUSH ARG26>
+ <DEAD ARG26>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE95>
+PHRASE79
+ <VEQUAL? CONST13 0 + PHRASE89>
+ <DEAD CONST13>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'TDNE>
+ <PUSH NEXTLINE8>
+ <DEAD NEXTLINE8>
+ <SET TEMP41 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG26>
+ <DEAD ARG26>
+ <SCALL '\1aOBJ-VAL 1 = TEMP18 + TAG90 TEMP41>
+ <LOOP (TEMP18 TYPE VALUE LENGTH) (TEMP41 VALUE)>
+TAG92
+ <INTGO>
+ <EMPTY? TEMP18 + TAG90>
+ <NTH1 TEMP18 = STACK>
+ <REST1 TEMP18 = TEMP18>
+ <ADD TEMP41 1 = TEMP41 (TYPE FIX)>
+ <JUMP + TAG92>
+TAG90
+ <CALL '\1aOCEMIT TEMP41>
+ <DEAD TEMP41>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAIA>
+ <PUSH 'O*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE95>
+PHRASE89
+ <FRAME '\1aOCEMIT>
+ <RESTL TRN12 1 = TEMP41 (TYPE LIST)>
+ <DEAD TRN12>
+ <NTHL TEMP41 1 = STACK>
+ <DEAD TEMP41>
+ <PUSH NEXTLINE8>
+ <DEAD NEXTLINE8>
+ <PUSH ARG26>
+ <DEAD ARG26>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAIA>
+ <PUSH 'O*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+PHRASE95
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH MIML17>
+ <DEAD MIML17>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <SETG 'NEXT-FLUSH 1>
+ <RETURN 1>
+PHRASE22
+ <FRAME '\1aARITH!-MIMOC>
+ <PUSH L4>
+ <DEAD L4>
+ <PUSH 'AND>
+ <PUSH 'ANDI>
+ <PUSH (TLZ TRZ)>
+ <PUSH 'ANDB>
+ <CALL '\1aARITH!-MIMOC 5 = TEMP41>
+ <RETURN TEMP41>
+ <DEAD TEMP41>
+ <END \1aAND!-MIMOC>
+#WORD *33721510151*
+<GFCN \1aFLOAT!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP8 TEMP12>
+ <INTGO>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = TEMP8 (TYPE ATOM)>
+ <VEQUAL? TEMP8 'STACK - PHRASE10>
+ <DEAD TEMP8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP12 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FLOAT>
+ <SCALL '\1aTYPE-WORD 1 = TEMP8 + TAG11 TEMP12>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP12 VALUE)>
+TAG14
+ <INTGO>
+ <EMPTY? TEMP8 + TAG11>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG14>
+TAG11
+ <CALL '\1aOCEMIT TEMP12>
+ <DEAD TEMP12>
+ <GVAL 'WINNING-VICTIM = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE17>
+ <DEAD TEMP12>
+ <GVAL 'STACK-DEPTH = TEMP12>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP12>
+ <DEAD TEMP12>
+PHRASE17
+ <FRAME '\1aOCEMIT>
+ <PUSH 'FLTR>
+ <PUSH 'O*>
+ <SET TEMP8 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG18 TEMP8>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP8 VALUE)>
+TAG20
+ <INTGO>
+ <EMPTY? TEMP12 + TAG18>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
+ <JUMP + TAG20>
+TAG18
+ <CALL '\1aOCEMIT TEMP8>
+ <DEAD TEMP8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE25>
+ <GVAL 'STACK-DEPTH = TEMP12>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE10
+ <FRAME '\1aASSIGN-AC>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP12>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = TEMP8>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP8>
+ <CALL '\1aGET-AC 1 = TEMP12>
+ <PUTUV TEMP12 6 'FLOAT>
+ <DEAD TEMP12>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'FLTR>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP8>
+ <DEAD TEMP8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP8 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG28 TEMP8>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP8 VALUE)>
+TAG32
+ <INTGO>
+ <EMPTY? TEMP12 + TAG28>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
+ <JUMP + TAG32>
+TAG28
+ <CALL '\1aOCEMIT TEMP8 = TEMP8>
+PHRASE25
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aFLOAT!-MIMOC>
+#WORD *11636601746*
+<GFCN \1aFIX!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP8 TEMP12>
+ <INTGO>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = TEMP8 (TYPE ATOM)>
+ <VEQUAL? TEMP8 'STACK - PHRASE10>
+ <DEAD TEMP8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP12 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP8 + TAG11 TEMP12>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP12 VALUE)>
+TAG14
+ <INTGO>
+ <EMPTY? TEMP8 + TAG11>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG14>
+TAG11
+ <CALL '\1aOCEMIT TEMP12>
+ <DEAD TEMP12>
+ <GVAL 'WINNING-VICTIM = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE17>
+ <DEAD TEMP12>
+ <GVAL 'STACK-DEPTH = TEMP12>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP12>
+ <DEAD TEMP12>
+PHRASE17
+ <FRAME '\1aOCEMIT>
+ <PUSH 'FIX>
+ <PUSH 'O*>
+ <SET TEMP8 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG18 TEMP8>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP8 VALUE)>
+TAG20
+ <INTGO>
+ <EMPTY? TEMP12 + TAG18>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
+ <JUMP + TAG20>
+TAG18
+ <CALL '\1aOCEMIT TEMP8>
+ <DEAD TEMP8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE25>
+ <GVAL 'STACK-DEPTH = TEMP12>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE10
+ <FRAME '\1aASSIGN-AC>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP12>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = TEMP8>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP8>
+ <CALL '\1aGET-AC 1 = TEMP12>
+ <PUTUV TEMP12 6 'FIX>
+ <DEAD TEMP12>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'FIX>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP8>
+ <DEAD TEMP8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP8 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG28 TEMP8>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP8 VALUE)>
+TAG32
+ <INTGO>
+ <EMPTY? TEMP12 + TAG28>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
+ <JUMP + TAG32>
+TAG28
+ <CALL '\1aOCEMIT TEMP8 = TEMP8>
+PHRASE25
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aFIX!-MIMOC>
+#WORD *10744773014*
+<GFCN \1aLSH!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ATOM) L6 INS7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH 'LSH>
+OPT5
+ <TEMP (AC9 %<>) ARG10 TEMP16 AMT11 VAL12:ATOM TAC8 TEMP34 TEMP46 TEMP66:FIX>
+ <INTGO>
+ <NTHL L6 1 = ARG10>
+ <RESTL L6 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = AMT11>
+ <DEAD TEMP16>
+ <RESTL L6 1 = TEMP16 (TYPE LIST)>
+ <DEAD L6>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = VAL12 (TYPE ATOM)>
+ <DEAD TEMP16>
+ <VEQUAL? INS7 'LSH - PHRASE18>
+ <EQUAL? AMT11 18 + BOOL20>
+ <EQUAL? AMT11 -18 - PHRASE18>
+BOOL20
+ <FRAME '\1aDO-HWRD-INS>
+ <PUSH ARG10>
+ <DEAD ARG10>
+ <PUSH VAL12>
+ <DEAD VAL12>
+ <PUSH AMT11>
+ <DEAD AMT11>
+ <CALL '\1aDO-HWRD-INS 3 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE18
+ <TYPE? ARG10 <TYPE-CODE ATOM> - PHRASE24>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH ARG10>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TAC8>
+ <PUSH TAC8>
+ <CALL '\1aNEXT-AC 1 = AC9>
+PHRASE24
+ <FRAME '\1aIN-AC?>
+ <PUSH AMT11>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE44>
+ <SETG 'FIRST-AC %<>>
+ <EQUAL? AMT11 VAL12 + BOOL32>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH AMT11>
+ <CALL '\1aWILL-DIE? 1 = TEMP34>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE40>
+ <DEAD TEMP34>
+BOOL32
+ <TYPE? AC9 <TYPE-CODE FALSE> - BOOL37>
+ <FRAME '\1aREALLY-FREE-AC-PAIR>
+ <CALL '\1aREALLY-FREE-AC-PAIR 0 = TEMP34>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE36>
+ <DEAD TEMP34>
+BOOL37
+ <FRAME '\1aMUNGED-AC>
+ <PUSH TEMP16>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <JUMP + PHRASE40>
+PHRASE36
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <SET TEMP34 'T* (TYPE ATOM)>
+ <PUSH TEMP34>
+ <DEAD TEMP34>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <SET TEMP16 'T* (TYPE ATOM)>
+PHRASE40
+ <EQUAL? TEMP16 'T* + PHRASE44>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP16>
+ <CALL '\1aGET-AC 1 = TEMP34>
+ <GVAL 'AC-STAMP = TEMP46>
+ <PUTUV TEMP34 4 TEMP46 (TYPE FIX)>
+ <DEAD TEMP34 TEMP46>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP16>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP34>
+ <GVAL 'AC-STAMP = TEMP46>
+ <PUTUV TEMP34 4 TEMP46 (TYPE FIX)>
+ <DEAD TEMP34 TEMP46>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aNEXT-AC 1 = TEMP16>
+PHRASE44
+ <EQUAL? ARG10 VAL12 + PHRASE51>
+ <TYPE? ARG10 <TYPE-CODE ATOM> - PHRASE51>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG10>
+ <CALL '\1aWILL-DIE? 1 = TEMP34>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE51>
+ <DEAD TEMP34>
+ <FRAME '\1aGET-AC>
+ <PUSH AC9>
+ <CALL '\1aGET-AC 1 = TEMP34>
+ <NTHUV TEMP34 5 = TEMP34>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> - BOOL54>
+ <DEAD TEMP34>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH TAC8>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH TAC8>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <JUMP + PHRASE51>
+BOOL54
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL12>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = TEMP34>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP34>
+ <CALL '\1aGET-AC 1 = TEMP46>
+ <PUTUV TEMP46 6 'FIX>
+ <DEAD TEMP46>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP34>
+ <DEAD TEMP34>
+ <CALL '\1aNEXT-AC 1 = TEMP34>
+ <PUSH TEMP34>
+ <PUSH AC9>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE68>
+PHRASE51
+ <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE64>
+ <FRAME '\1aGET-AC>
+ <PUSH TAC8>
+ <CALL '\1aGET-AC 1 = TEMP46>
+ <GVAL 'AC-STAMP = TEMP66>
+ <PUTUV TEMP46 4 TEMP66 (TYPE FIX)>
+ <DEAD TEMP46 TEMP66>
+ <FRAME '\1aGET-AC>
+ <SET TEMP34 AC9>
+ <PUSH TEMP34>
+ <CALL '\1aGET-AC 1 = TEMP46>
+ <GVAL 'AC-STAMP = TEMP66>
+ <PUTUV TEMP46 4 TEMP66 (TYPE FIX)>
+ <DEAD TEMP46 TEMP66>
+ <JUMP + PHRASE68>
+PHRASE64
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL12>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = TEMP34>
+ <PUSH TEMP34>
+ <CALL '\1aGET-AC 1 = TEMP46>
+ <PUTUV TEMP46 6 'FIX>
+ <DEAD TEMP46>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP34>
+ <DEAD TEMP34>
+ <CALL '\1aNEXT-AC 1 = TEMP34>
+PHRASE68
+ <TYPE? AMT11 <TYPE-CODE FIX> - PHRASE73>
+ <TYPE? ARG10 <TYPE-CODE ATOM> + PHRASE75>
+ <FRAME '\1aLOAD-NUM-INTO-AC>
+ <PUSH ARG10>
+ <DEAD ARG10>
+ <PUSH TEMP34>
+ <CALL '\1aLOAD-NUM-INTO-AC 2>
+PHRASE75
+ <FRAME '\1aOCEMIT>
+ <PUSH INS7>
+ <DEAD INS7>
+ <PUSH TEMP34>
+ <PUSH AMT11>
+ <DEAD AMT11>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE93>
+PHRASE73
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE78>
+ <EQUAL? TEMP16 TEMP34 - PHRASE80>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'T*>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aOCEMIT 3>
+ <SET TEMP16 'T* (TYPE ATOM)>
+PHRASE80
+ <TYPE? ARG10 <TYPE-CODE ATOM> + PHRASE83>
+ <FRAME '\1aLOAD-NUM-INTO-AC>
+ <PUSH ARG10>
+ <DEAD ARG10>
+ <PUSH TEMP34>
+ <CALL '\1aLOAD-NUM-INTO-AC 2>
+PHRASE83
+ <FRAME '\1aOCEMIT>
+ <PUSH INS7>
+ <DEAD INS7>
+ <PUSH TEMP34>
+ <CONS TEMP16 () = STACK>
+ <DEAD TEMP16>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE93>
+PHRASE78
+ <FRAME '\1aWILL-DIE?>
+ <PUSH AMT11>
+ <CALL '\1aWILL-DIE? 1 = TEMP46>
+ <TYPE? TEMP46 <TYPE-CODE FALSE> + PHRASE86>
+ <DEAD TEMP46>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH AMT11>
+ <DEAD AMT11>
+ <PUSH 'VALUE>
+ <PUSH 'T*>
+ <CALL '\1aGET-INTO-ACS 3>
+ <TYPE? ARG10 <TYPE-CODE ATOM> + PHRASE90>
+ <FRAME '\1aLOAD-NUM-INTO-AC>
+ <PUSH ARG10>
+ <DEAD ARG10>
+ <PUSH TEMP34>
+ <CALL '\1aLOAD-NUM-INTO-AC 2>
+PHRASE90
+ <FRAME '\1aOCEMIT>
+ <PUSH INS7>
+ <DEAD INS7>
+ <PUSH TEMP34>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE93>
+PHRASE86
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP34>
+ <CALL '\1aGET-AC 1 = TEMP46>
+ <GVAL 'AC-STAMP = TEMP66>
+ <PUTUV TEMP46 4 TEMP66 (TYPE FIX)>
+ <DEAD TEMP46 TEMP66>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aGETPROP>
+ <PUSH TEMP34>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = TEMP46>
+ <PUSH TEMP46>
+ <DEAD TEMP46>
+ <CALL '\1aGET-AC 1 = TEMP46>
+ <GVAL 'AC-STAMP = TEMP66>
+ <PUTUV TEMP46 4 TEMP66 (TYPE FIX)>
+ <DEAD TEMP46 TEMP66>
+ <TYPE? ARG10 <TYPE-CODE ATOM> + PHRASE98>
+ <FRAME '\1aLOAD-NUM-INTO-AC>
+ <PUSH ARG10>
+ <DEAD ARG10>
+ <PUSH TEMP34>
+ <CALL '\1aLOAD-NUM-INTO-AC 2>
+PHRASE98
+ <FRAME '\1aLOAD-AC>
+ <PUSH AMT11>
+ <DEAD AMT11>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TEMP16>
+ <FRAME '\1aOCEMIT>
+ <PUSH INS7>
+ <DEAD INS7>
+ <PUSH TEMP34>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aNEXT-AC 1 = TEMP46>
+ <CONS TEMP46 () = STACK>
+ <DEAD TEMP46>
+ <CALL '\1aOCEMIT 3>
+PHRASE93
+ <EQUAL? TEMP34 AC9 - PHRASE104>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH VAL12>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aGET-AC>
+ <PUSH TAC8>
+ <DEAD TAC8>
+ <CALL '\1aGET-AC 1 = TEMP46>
+ <PUTUV TEMP46 5 'T>
+ <PUTUV TEMP46 6 'FIX>
+ <PUTUV TEMP46 2 VAL12>
+ <PUTUV TEMP46 3 'TYPE (TYPE ATOM)>
+ <DEAD TEMP46>
+ <FRAME '\1aGET-AC>
+ <PUSH AC9>
+ <DEAD AC9>
+ <CALL '\1aGET-AC 1 = TEMP46>
+ <PUTUV TEMP46 5 'T>
+ <PUTUV TEMP46 6 %<>>
+ <PUTUV TEMP46 2 VAL12>
+ <PUTUV TEMP46 3 'VALUE (TYPE ATOM)>
+ <DEAD TEMP46>
+PHRASE104
+ <VEQUAL? VAL12 'STACK + TAG110>
+ <DEAD VAL12>
+ <RETURN %<>>
+TAG110
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP66 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP46 + TAG111 TEMP66>
+ <LOOP (TEMP46 TYPE VALUE LENGTH) (TEMP66 VALUE)>
+TAG113
+ <INTGO>
+ <EMPTY? TEMP46 + TAG111>
+ <NTH1 TEMP46 = STACK>
+ <REST1 TEMP46 = TEMP46>
+ <ADD TEMP66 1 = TEMP66 (TYPE FIX)>
+ <JUMP + TAG113>
+TAG111
+ <CALL '\1aOCEMIT TEMP66>
+ <DEAD TEMP66>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH TEMP34>
+ <DEAD TEMP34>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE117>
+ <GVAL 'STACK-DEPTH = TEMP66>
+ <ADD TEMP66 2 = TEMP66 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP66>
+ <SET TEMP16 TEMP66>
+ <DEAD TEMP66>
+PHRASE117
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aLSH!-MIMOC>
+#WORD *5436413267*
+<GFCN \1aLOAD-NUM-INTO-AC ("VALUE" ANY FIX ATOM) V5 AC6>
+ <TEMP TEMP12 TEMP19:FIX>
+ <INTGO>
+ <LESS? V5 0 + PHRASE8 (TYPE FIX)>
+ <GVAL 'MAX-IMMEDIATE = TEMP12>
+ <GRTR? V5 TEMP12 + PHRASE8 (TYPE FIX)>
+ <DEAD TEMP12>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH AC6>
+ <DEAD AC6>
+ <PUSH V5>
+ <DEAD V5>
+ <CALL '\1aOCEMIT 3 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE8
+ <LESS? V5 0 - PHRASE14 (TYPE FIX)>
+ <GVAL 'MAX-IMMEDIATE = TEMP12>
+ <SET TEMP19 V5>
+ <LESS? TEMP19 0 - TAG20 (TYPE FIX)>
+ <SUB 0 TEMP19 = TEMP19 (TYPE FIX)>
+TAG20
+ <LESS? TEMP12 TEMP19 + PHRASE14 (TYPE FIX)>
+ <DEAD TEMP12 TEMP19>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVNI>
+ <PUSH AC6>
+ <DEAD AC6>
+ <SUB 0 V5 = STACK (TYPE FIX)>
+ <DEAD V5>
+ <CALL '\1aOCEMIT 3 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE14
+ <AND V5 #WORD *777777* = TEMP12>
+ <VEQUAL? TEMP12 0 - PHRASE22 (TYPE FIX)>
+ <DEAD TEMP12>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVSI>
+ <PUSH AC6>
+ <DEAD AC6>
+ <LSH V5 -18 = STACK (TYPE FIX)>
+ <DEAD V5>
+ <CALL '\1aOCEMIT 3 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE22
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH AC6>
+ <DEAD AC6>
+ <SET TEMP19 2 (TYPE FIX)>
+ <SFRAME 'OBJ-LOC>
+ <PUSH V5>
+ <DEAD V5>
+ <PUSH 1>
+ <SCALL '\1aOBJ-LOC 2 = TEMP12 + TAG27 TEMP19>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP19 VALUE)>
+TAG29
+ <INTGO>
+ <EMPTY? TEMP12 + TAG27>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
+ <JUMP + TAG29>
+TAG27
+ <CALL '\1aOCEMIT TEMP19 = TEMP12>
+ <DEAD TEMP19>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aLOAD-NUM-INTO-AC>
+#WORD *11232500555*
+<GFCN \1aDO-HWRD-INS ("VALUE" ANY ANY ANY FIX) SRC5 VAL6 AMT7>
+ <TEMP TEMP13 TEMP12>
+ <INTGO>
+ <EQUAL? VAL6 'STACK - PHRASE10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP13 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP12 + TAG11 TEMP13>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG15
+ <INTGO>
+ <EMPTY? TEMP12 + TAG11>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG15>
+TAG11
+ <CALL '\1aOCEMIT TEMP13>
+ <DEAD TEMP13>
+ <GVAL 'WINNING-VICTIM = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE18>
+ <DEAD TEMP13>
+ <GVAL 'STACK-DEPTH = TEMP13>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP13>
+ <DEAD TEMP13>
+PHRASE18
+ <FRAME '\1aOCEMIT>
+ <VEQUAL? AMT7 18 - PHRASE21 (TYPE FIX)>
+ <DEAD AMT7>
+ <SET TEMP13 'HRLZ (TYPE ATOM)>
+ <JUMP + PHRASE22>
+PHRASE21
+ <SET TEMP13 'HLRZ (TYPE ATOM)>
+PHRASE22
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH 'O*>
+ <SET TEMP12 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH SRC5>
+ <DEAD SRC5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG19 TEMP12>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP12 VALUE)>
+TAG24
+ <INTGO>
+ <EMPTY? TEMP13 + TAG19>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG24>
+TAG19
+ <CALL '\1aOCEMIT TEMP12>
+ <DEAD TEMP12>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE60>
+ <GVAL 'STACK-DEPTH = TEMP13>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE10
+ <EQUAL? SRC5 VAL6 - PHRASE29>
+ <FRAME '\1aIN-AC?>
+ <PUSH SRC5>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE31>
+ <VEQUAL? AMT7 18 - PHRASE34 (TYPE FIX)>
+ <DEAD AMT7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLZS>
+ <PUSH 'O*>
+ <PUSH TEMP12>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE36>
+PHRASE34
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HLRZS>
+ <PUSH 'O*>
+ <PUSH TEMP12>
+ <CALL '\1aOCEMIT 3>
+PHRASE36
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <CALL '\1aGET-AC 1 = TEMP13>
+ <PUTUV TEMP13 5 'T>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE31
+ <VEQUAL? AMT7 18 - PHRASE39 (TYPE FIX)>
+ <DEAD AMT7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLZS>
+ <SET TEMP12 1 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH SRC5>
+ <DEAD SRC5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG40 TEMP12>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP12 VALUE)>
+TAG43
+ <INTGO>
+ <EMPTY? TEMP13 + TAG40>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG43>
+TAG40
+ <CALL '\1aOCEMIT TEMP12 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE39
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HLRZS>
+ <SET TEMP13 1 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH SRC5>
+ <DEAD SRC5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG46 TEMP13>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG48
+ <INTGO>
+ <EMPTY? TEMP12 + TAG46>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG48>
+TAG46
+ <CALL '\1aOCEMIT TEMP13 = TEMP12>
+ <DEAD TEMP13>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE29
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = TEMP12>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP12>
+ <CALL '\1aGET-AC 1 = TEMP13>
+ <PUTUV TEMP13 6 'FIX>
+ <DEAD TEMP13>
+ <VEQUAL? AMT7 18 - PHRASE54 (TYPE FIX)>
+ <DEAD AMT7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLZ>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP12 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH SRC5>
+ <DEAD SRC5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG55 TEMP12>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP12 VALUE)>
+TAG58
+ <INTGO>
+ <EMPTY? TEMP13 + TAG55>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG58>
+TAG55
+ <CALL '\1aOCEMIT TEMP12 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE54
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HLRZ>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP13 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH SRC5>
+ <DEAD SRC5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG61 TEMP13>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG64
+ <INTGO>
+ <EMPTY? TEMP12 + TAG61>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG64>
+TAG61
+ <CALL '\1aOCEMIT TEMP13 = TEMP12>
+ <DEAD TEMP13>
+PHRASE60
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aDO-HWRD-INS>
+#WORD *36452445350*
+<GFCN \1aROT!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aLSH!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'ROT>
+ <CALL '\1aLSH!-MIMOC 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aROT!-MIMOC>
+#WORD *7303313307*
+<GFCN \1aRANDOM!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP8>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG11
+ <INTGO>
+ <EMPTY? TEMP8 + TAG7>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG11>
+TAG7
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'RANDOM>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <CALL '\1aPUSHJ 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aRANDOM!-MIMOC>
+#WORD *37320446651*
+<GFCN \1aTEMPLATE-TABLE!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP8>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG11
+ <INTGO>
+ <EMPTY? TEMP8 + TAG7>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG11>
+TAG7
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <PUSH 'BOTH>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'TEMPLATE-TABLE>
+ <CALL '\1aPUSHJ 1 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aTEMPLATE-TABLE!-MIMOC>
+#WORD *12515122526*
+<GFCN \1aIRECORD!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP8 TEMP15:LIST>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG11
+ <INTGO>
+ <EMPTY? TEMP8 + TAG7>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG11>
+TAG7
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O2*>
+ <SET TEMP8 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <RESTL L5 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = STACK>
+ <DEAD TEMP15>
+ <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG13 TEMP8>
+ <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP8 VALUE)>
+TAG16
+ <INTGO>
+ <EMPTY? TEMP9 + TAG13>
+ <NTH1 TEMP9 = STACK>
+ <REST1 TEMP9 = TEMP9>
+ <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
+ <JUMP + TAG16>
+TAG13
+ <CALL '\1aOCEMIT TEMP8>
+ <DEAD TEMP8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'C1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <RESTL L5 1 = TEMP15 (TYPE LIST)>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = STACK>
+ <DEAD TEMP15>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG18 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG20
+ <INTGO>
+ <EMPTY? TEMP8 + TAG18>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG20>
+TAG18
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'IRECORD>
+ <NTHL L5 5 = STACK>
+ <DEAD L5>
+ <CALL '\1aPUSHJ 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aIRECORD!-MIMOC>
+#WORD *6647046303*
+<GFCN \1aMARKL!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP AC6:ATOM TEMP13>
+ <INTGO>
+ <FRAME '\1aLOAD-AC>
+ <NTHL L5 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = AC6>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'O*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVSI>
+ <PUSH 'O*>
+ <PUSH 65536>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <RESTL L5 1 = TEMP13 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP13 1 = TEMP13>
+ <EQUAL? TEMP13 0 - PHRASE12>
+ <DEAD TEMP13>
+ <SET TEMP13 'ANDCAM (TYPE ATOM)>
+ <JUMP + PHRASE14>
+PHRASE12
+ <SET TEMP13 'IORM (TYPE ATOM)>
+PHRASE14
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH 'O*>
+ <PUSH 1>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC6>
+ <DEAD AC6>
+ <CALL '\1aNEXT-AC 1 = TEMP13>
+ <CONS TEMP13 () = STACK>
+ <DEAD TEMP13>
+ <CALL '\1aOCEMIT 4 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aMARKL!-MIMOC>
+#WORD *3424267553*
+<GFCN \1aMARK-JOIN ("VALUE" ANY ANY) NUM5>
+ <TEMP TEMP16>
+ <INTGO>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'O*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVSI>
+ <PUSH 'O*>
+ <PUSH 65536>
+ <CALL '\1aOCEMIT 3>
+ <TYPE? NUM5 <TYPE-CODE FIX> - PHRASE10>
+ <FRAME '\1aOCEMIT>
+ <VEQUAL? NUM5 0 - PHRASE13 (TYPE FIX)>
+ <DEAD NUM5>
+ <SET TEMP16 'ANDCAM (TYPE ATOM)>
+ <JUMP + PHRASE17>
+PHRASE13
+ <SET TEMP16 'IORM (TYPE ATOM)>
+PHRASE17
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <PUSH 'O*>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 3 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE10
+ <FRAME '\1aOCEMIT>
+ <PUSH 'IORM>
+ <PUSH 'O*>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aIN-AC?>
+ <PUSH NUM5>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE22>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'O*>
+ <PUSH NUM5>
+ <DEAD NUM5>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <SET TEMP16 'O* (TYPE ATOM)>
+PHRASE22
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <PUSH 1>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 4 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aMARK-JOIN>
+#WORD *5331350160*
+<GFCN \1aMARKR!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP END7:ATOM AC6>
+ <INTGO>
+ <FRAME '\1aGENLBL>
+ <PUSH "END">
+ <CALL '\1aGENLBL 1 = END7>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aLOAD-AC>
+ <NTHL L5 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = AC6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XMOVEI>
+ <PUSH 'O*>
+ <PUSH (TP*)>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAMG>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH END7>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH 'T*>
+ <PUSH AC6>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LSH>
+ <PUSH 'T*>
+ <PUSH -1>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <PUSH 'T*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC6>
+ <DEAD AC6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aMARK-JOIN>
+ <RESTL L5 1 = AC6 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL AC6 1 = STACK>
+ <DEAD AC6>
+ <CALL '\1aMARK-JOIN 1>
+ <FRAME '\1aLABEL>
+ <PUSH END7>
+ <DEAD END7>
+ <CALL '\1aLABEL 1 = AC6>
+ <RETURN AC6>
+ <DEAD AC6>
+ <END \1aMARKR!-MIMOC>
+#WORD *15270052231*
+<GFCN \1aMARKU!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aMARK!-MIMOC>
+ <PUSH 'MARKU>
+ <NTHL L5 1 = STACK>
+ <RESTL L5 1 = TEMP7 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP7 1 = STACK (TYPE FIX)>
+ <DEAD TEMP7>
+ <CALL '\1aMARK!-MIMOC 3 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aMARKU!-MIMOC>
+#WORD *13434226770*
+<GFCN \1aMARKUS!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP AC6>
+ <INTGO>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aLOAD-AC>
+ <NTHL L5 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = AC6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'T*>
+ <PUSH 5>
+ <CONS AC6 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADJBP>
+ <PUSH 'T*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC6>
+ <DEAD AC6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'TLZ>
+ <PUSH 'T*>
+ <PUSH 258048>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aMARK-JOIN>
+ <RESTL L5 1 = AC6 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL AC6 1 = STACK>
+ <DEAD AC6>
+ <CALL '\1aMARK-JOIN 1 = AC6>
+ <RETURN AC6>
+ <DEAD AC6>
+ <END \1aMARKUS!-MIMOC>
+#WORD *13474226770*
+<GFCN \1aMARKUB!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP AC6>
+ <INTGO>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aLOAD-AC>
+ <NTHL L5 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = AC6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'T*>
+ <PUSH 4>
+ <CONS AC6 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADJBP>
+ <PUSH 'T*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC6>
+ <DEAD AC6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'TLZ>
+ <PUSH 'T*>
+ <PUSH 258048>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aMARK-JOIN>
+ <RESTL L5 1 = AC6 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL AC6 1 = STACK>
+ <DEAD AC6>
+ <CALL '\1aMARK-JOIN 1 = AC6>
+ <RETURN AC6>
+ <DEAD AC6>
+ <END \1aMARKUB!-MIMOC>
+#WORD *3257526503*
+<GFCN \1aMARKUV!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP AC6>
+ <INTGO>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aLOAD-AC>
+ <NTHL L5 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = AC6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH 'T*>
+ <PUSH AC6>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LSH>
+ <PUSH 'T*>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <PUSH 'T*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC6>
+ <DEAD AC6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aMARK-JOIN>
+ <RESTL L5 1 = AC6 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL AC6 1 = STACK>
+ <DEAD AC6>
+ <CALL '\1aMARK-JOIN 1 = AC6>
+ <RETURN AC6>
+ <DEAD AC6>
+ <END \1aMARKUV!-MIMOC>
+#WORD *14657004411*
+<GFCN \1aMARKUU!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP AC6>
+ <INTGO>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aLOAD-AC>
+ <NTHL L5 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = AC6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH 'T*>
+ <PUSH AC6>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <PUSH 'T*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC6>
+ <DEAD AC6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aMARK-JOIN>
+ <RESTL L5 1 = AC6 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL AC6 1 = STACK>
+ <DEAD AC6>
+ <CALL '\1aMARK-JOIN 1 = AC6>
+ <RETURN AC6>
+ <DEAD AC6>
+ <END \1aMARKUU!-MIMOC>
+#WORD *16730724417*
+<GFCN \1aMARK!-MIMOC ("VALUE" ANY ATOM ANY FIX) NAM5 OBJ6 VAL7>
+ <TEMP TEMP18>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <PUSH OBJ6>
+ <DEAD OBJ6>
+ <PUSH 'BOTH>
+ <CALL '\1aSMASH-AC 3>
+ <VEQUAL? VAL7 0 - PHRASE11 (TYPE FIX)>
+ <DEAD VAL7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'B1*>
+ <PUSH 0>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE15>
+PHRASE11
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVSI>
+ <PUSH 'B1*>
+ <PUSH 65536>
+ <CALL '\1aOCEMIT 3>
+PHRASE15
+ <FRAME '\1aPUSHJ>
+ <PUSH NAM5>
+ <DEAD NAM5>
+ <CALL '\1aPUSHJ 1 = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+ <END \1aMARK!-MIMOC>
+#WORD *4013765704*
+<GFCN \1aMARKL?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
+ <TEMP AC6:ATOM TEMP10 NAC7:ATOM TEMP14 TEMP22>
+ <INTGO>
+ <FRAME '\1aLOAD-AC>
+ <NTHL L5 1 = STACK>
+ <PUSH 'VALUE>
+ <CALL '\1aLOAD-AC 2 = AC6>
+ <FRAME '\1aASSIGN-AC>
+ <RESTL L5 1 = TEMP10 (TYPE LIST)>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = STACK>
+ <DEAD TEMP10>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = NAC7>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC7>
+ <CALL '\1aGET-AC 1 = TEMP10>
+ <PUTUV TEMP10 6 'FIX>
+ <DEAD TEMP10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LDB>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC7>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP14 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <FRAME '\1a+>
+ <PUSH 139328>
+ <GVAL 'ACS = TEMP10>
+ <EMPUV? TEMP10 + TAG17>
+ <LOOP (AC6 VALUE) (TEMP10 LENGTH VALUE)>
+TAG19
+ <NTHUV TEMP10 1 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE ATOM> - TAG20>
+ <VEQUAL? TEMP22 AC6 + TAG18>
+ <DEAD TEMP22>
+TAG20
+ <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
+ <EMPUV? TEMP10 - TAG19>
+TAG17
+ <SET TEMP10 %<> (TYPE FALSE)>
+TAG18
+ <NTHUV TEMP10 2 = STACK>
+ <DEAD TEMP10>
+ <CALL '\1a+ 2 = TEMP10>
+ <LSH TEMP10 18 = TEMP10 (TYPE FIX)>
+ <OR TEMP10 #WORD *1* = STACK>
+ <DEAD TEMP10>
+ <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG12 TEMP14>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG23
+ <INTGO>
+ <EMPTY? TEMP10 + TAG12>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG23>
+TAG12
+ <CALL '\1aOCEMIT TEMP14>
+ <DEAD TEMP14>
+ <FRAME '\1aCOND-PUSH>
+ <RESTL L5 1 = TEMP14 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP14>
+ <PUSH NAC7>
+ <DEAD NAC7>
+ <CALL '\1aCOND-PUSH 2 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aMARKL?!-MIMOC>
+#WORD *20642213161*
+<GFCN \1aMARKR?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
+ <TEMP END8:ATOM (REL10 %<>) TEMP14 TEMP15 AC6:ATOM NAC7:ATOM TEMP27>
+ <INTGO>
+ <FRAME '\1aGENLBL>
+ <PUSH "END">
+ <CALL '\1aGENLBL 1 = END8>
+ <SET TEMP14 L5>
+ <SET TEMP15 4 (TYPE FIX)>
+ <LOOP (TEMP14 VALUE) (TEMP15 VALUE)>
+TAG16
+ <EMPL? TEMP14 + PHRASE13>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
+ <GRTR? TEMP15 0 + TAG16 (TYPE FIX)>
+ <EMPL? TEMP14 - PHRASE13>
+ <DEAD TEMP14>
+ <RESTL L5 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = TEMP15>
+ <DEAD TEMP14>
+ <SET REL10 'T (TYPE ATOM)>
+ <JUMP + PHRASE17>
+PHRASE13
+ <RESTL L5 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = TEMP15>
+ <DEAD TEMP14>
+PHRASE17
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aLOAD-AC>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = AC6>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH TEMP15>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = NAC7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC7>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+ <VEQUAL? REL10 0 + PHRASE25>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH NAC7>
+ <SET TEMP27 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP14 + TAG26 TEMP27>
+ <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP27 VALUE)>
+TAG29
+ <INTGO>
+ <EMPTY? TEMP14 + TAG26>
+ <NTH1 TEMP14 = STACK>
+ <REST1 TEMP14 = TEMP14>
+ <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
+ <JUMP + TAG29>
+TAG26
+ <CALL '\1aOCEMIT TEMP27>
+ <DEAD TEMP27>
+PHRASE25
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XMOVEI>
+ <PUSH 'O*>
+ <PUSH (TP*)>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAMG>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH END8>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH 'T*>
+ <PUSH AC6>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LSH>
+ <PUSH 'T*>
+ <PUSH -1>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aMARK?-JOIN>
+ <PUSH AC6>
+ <DEAD AC6>
+ <PUSH NAC7>
+ <PUSH REL10>
+ <PUSH %<>>
+ <PUSH REL10>
+ <DEAD REL10>
+ <CALL '\1aMARK?-JOIN 5>
+ <FRAME '\1aLABEL>
+ <PUSH END8>
+ <DEAD END8>
+ <CALL '\1aLABEL 1>
+ <FRAME '\1aCOND-PUSH>
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH NAC7>
+ <DEAD NAC7>
+ <CALL '\1aCOND-PUSH 2 = TEMP27>
+ <RETURN TEMP27>
+ <DEAD TEMP27>
+ <END \1aMARKR?!-MIMOC>
+#WORD *20400154607*
+<GFCN \1aMARKU?!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <NTHL L5 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'MARKU?>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <CALL '\1aPUSHJ 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aMARKU?!-MIMOC>
+#WORD *3303443613*
+<GFCN \1aMARKUS?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
+ <TEMP (REL9 %<>) TEMP12 TEMP13 NAC7:ATOM>
+ <INTGO>
+ <SET TEMP12 L5>
+ <SET TEMP13 4 (TYPE FIX)>
+ <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
+TAG14
+ <EMPL? TEMP12 + PHRASE11>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
+ <GRTR? TEMP13 0 + TAG14 (TYPE FIX)>
+ <EMPL? TEMP12 - PHRASE11>
+ <DEAD TEMP12>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12>
+ <SET REL9 'T (TYPE ATOM)>
+ <JUMP + PHRASE15>
+PHRASE11
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12>
+PHRASE15
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aLOAD-AC>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TEMP13>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH TEMP12>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = NAC7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'T*>
+ <PUSH 5>
+ <CONS TEMP13 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aMARK?-JOIN>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH NAC7>
+ <PUSH REL9>
+ <DEAD REL9>
+ <PUSH 'T>
+ <CALL '\1aMARK?-JOIN 4>
+ <FRAME '\1aCOND-PUSH>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH NAC7>
+ <DEAD NAC7>
+ <CALL '\1aCOND-PUSH 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aMARKUS?!-MIMOC>
+#WORD *3303443713*
+<GFCN \1aMARKUB?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
+ <TEMP (REL9 %<>) TEMP12 TEMP13 NAC7:ATOM>
+ <INTGO>
+ <SET TEMP12 L5>
+ <SET TEMP13 4 (TYPE FIX)>
+ <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
+TAG14
+ <EMPL? TEMP12 + PHRASE11>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
+ <GRTR? TEMP13 0 + TAG14 (TYPE FIX)>
+ <EMPL? TEMP12 - PHRASE11>
+ <DEAD TEMP12>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12>
+ <SET REL9 'T (TYPE ATOM)>
+ <JUMP + PHRASE15>
+PHRASE11
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12>
+PHRASE15
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aLOAD-AC>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TEMP13>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH TEMP12>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = NAC7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'T*>
+ <PUSH 4>
+ <CONS TEMP13 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aMARK?-JOIN>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH NAC7>
+ <PUSH REL9>
+ <DEAD REL9>
+ <PUSH 'T>
+ <CALL '\1aMARK?-JOIN 4>
+ <FRAME '\1aCOND-PUSH>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH NAC7>
+ <DEAD NAC7>
+ <CALL '\1aCOND-PUSH 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aMARKUB?!-MIMOC>
+#WORD *37111412674*
+<GFCN \1aMARKUU?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
+ <TEMP (REL9 %<>) TEMP12 TEMP13 NAC7:ATOM>
+ <INTGO>
+ <SET TEMP12 L5>
+ <SET TEMP13 4 (TYPE FIX)>
+ <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
+TAG14
+ <EMPL? TEMP12 + PHRASE11>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
+ <GRTR? TEMP13 0 + TAG14 (TYPE FIX)>
+ <EMPL? TEMP12 - PHRASE11>
+ <DEAD TEMP12>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12>
+ <SET REL9 'T (TYPE ATOM)>
+ <JUMP + PHRASE15>
+PHRASE11
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12>
+PHRASE15
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aLOAD-AC>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TEMP13>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH TEMP12>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = NAC7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH 'T*>
+ <PUSH TEMP13>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aMARK?-JOIN>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH NAC7>
+ <PUSH REL9>
+ <DEAD REL9>
+ <CALL '\1aMARK?-JOIN 3>
+ <FRAME '\1aCOND-PUSH>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH NAC7>
+ <DEAD NAC7>
+ <CALL '\1aCOND-PUSH 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aMARKUU?!-MIMOC>
+#WORD *666017230*
+<GFCN \1aMARKUV?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
+ <TEMP (REL9 %<>) TEMP12 TEMP13 NAC7:ATOM>
+ <INTGO>
+ <SET TEMP12 L5>
+ <SET TEMP13 4 (TYPE FIX)>
+ <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
+TAG14
+ <EMPL? TEMP12 + PHRASE11>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
+ <GRTR? TEMP13 0 + TAG14 (TYPE FIX)>
+ <EMPL? TEMP12 - PHRASE11>
+ <DEAD TEMP12>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12>
+ <SET REL9 'T (TYPE ATOM)>
+ <JUMP + PHRASE15>
+PHRASE11
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12>
+PHRASE15
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aLOAD-AC>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TEMP13>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH TEMP12>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = NAC7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH 'T*>
+ <PUSH TEMP13>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LSH>
+ <PUSH 'T*>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aMARK?-JOIN>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH NAC7>
+ <PUSH REL9>
+ <DEAD REL9>
+ <CALL '\1aMARK?-JOIN 3>
+ <FRAME '\1aCOND-PUSH>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH NAC7>
+ <DEAD NAC7>
+ <CALL '\1aCOND-PUSH 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aMARKUV?!-MIMOC>
+#WORD *3106300135*
+<GFCN \1aCOND-PUSH ("VALUE" <OR FALSE FIX> ATOM ATOM) ITM5 AC6>
+ <TEMP TEMP9>
+ <INTGO>
+ <VEQUAL? ITM5 'STACK + TAG10>
+ <DEAD ITM5>
+ <RETURN %<>>
+TAG10
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH AC6>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC6>
+ <DEAD AC6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE15>
+ <GVAL 'STACK-DEPTH = TEMP9>
+ <ADD TEMP9 2 = TEMP9 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP9>
+PHRASE15
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aCOND-PUSH>
+#WORD *13564444547*
+<GFCN \1aMARK?-JOIN ("VALUE" ANY ATOM ATOM ANY "OPTIONAL" ANY ANY) AC10 NAC11 REL12 DIV13 NO-LOAD-TYPE14>
+ <OPT-DISPATCH 3 %<> OPT7 OPT8 OPT9>
+OPT7
+ <PUSH %<>>
+OPT8
+ <PUSH %<>>
+OPT9
+ <TEMP L115 L216:ATOM TEMP30 TEMP33>
+ <INTGO>
+ <FRAME '\1aGENLBL>
+ <PUSH "L1">
+ <CALL '\1aGENLBL 1 = L115>
+ <FRAME '\1aGENLBL>
+ <PUSH "L2">
+ <CALL '\1aGENLBL 1 = L216>
+ <TYPE? DIV13 <TYPE-CODE FALSE> + PHRASE20>
+ <DEAD DIV13>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADJBP>
+ <PUSH 'T*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'TLZ>
+ <PUSH 'T*>
+ <PUSH 258048>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE24>
+PHRASE20
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <PUSH 'T*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+PHRASE24
+ <TYPE? REL12 <TYPE-CODE FALSE> - PHRASE28>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC11>
+ <CALL '\1aGET-AC 1 = TEMP30>
+ <PUTUV TEMP30 6 'FIX>
+ <DEAD TEMP30>
+PHRASE28
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LDB>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC11>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP33 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH -32193642496>
+ <SCALL '\1aOBJ-VAL 1 = TEMP30 + TAG31 TEMP33>
+ <LOOP (TEMP30 TYPE VALUE LENGTH) (TEMP33 VALUE)>
+TAG35
+ <INTGO>
+ <EMPTY? TEMP30 + TAG31>
+ <NTH1 TEMP30 = STACK>
+ <REST1 TEMP30 = TEMP30>
+ <ADD TEMP33 1 = TEMP33 (TYPE FIX)>
+ <JUMP + TAG35>
+TAG31
+ <CALL '\1aOCEMIT TEMP33>
+ <DEAD TEMP33>
+ <SET TEMP33 REL12>
+ <DEAD REL12>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE38>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JUMPE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC11>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <FRAME '\1aXJUMP>
+ <PUSH L115>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH NAC11>
+ <PUSH AC10>
+ <DEAD AC10>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC11>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 1>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH L216>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aLABEL>
+ <PUSH L115>
+ <DEAD L115>
+ <CALL '\1aLABEL 1>
+ <TYPE? NO-LOAD-TYPE14 <TYPE-CODE FALSE> - PHRASE49>
+ <DEAD NO-LOAD-TYPE14>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH NAC11>
+ <SET L115 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP30 + TAG50 L115>
+ <LOOP (TEMP30 TYPE VALUE LENGTH) (L115 VALUE)>
+TAG53
+ <INTGO>
+ <EMPTY? TEMP30 + TAG50>
+ <NTH1 TEMP30 = STACK>
+ <REST1 TEMP30 = TEMP30>
+ <ADD L115 1 = L115 (TYPE FIX)>
+ <JUMP + TAG53>
+TAG50
+ <CALL '\1aOCEMIT L115>
+ <DEAD L115>
+PHRASE49
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC11>
+ <DEAD NAC11>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 0>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aLABEL>
+ <PUSH L216>
+ <DEAD L216>
+ <CALL '\1aLABEL 1 = TEMP33>
+PHRASE38
+ <RETURN TEMP33>
+ <DEAD TEMP33>
+ <END \1aMARK?-JOIN>\r\r
+<SETG LDB-PAREN-T -32193642496>
+
+<MANIFEST LDB-PAREN-T>
+
+#WORD *30530055614*
+<GFCN \1aSWNEXT!-MIMOC ("VALUE" ANY LIST) L4>
+ <TEMP TEMP8 TEMP7>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH 'O1*>
+ <SET TEMP8 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <NTHL L4 1 = STACK>
+ <SCALL '\1aOBJ-TYP 1 = TEMP7 + TAG6 TEMP8>
+ <LOOP (TEMP7 TYPE VALUE LENGTH) (TEMP8 VALUE)>
+TAG10
+ <INTGO>
+ <EMPTY? TEMP7 + TAG6>
+ <NTH1 TEMP7 = STACK>
+ <REST1 TEMP7 = TEMP7>
+ <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
+ <JUMP + TAG10>
+TAG6
+ <CALL '\1aOCEMIT TEMP8>
+ <DEAD TEMP8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'A1*>
+ <SET TEMP7 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <RESTL L4 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = STACK>
+ <DEAD TEMP8>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG12 TEMP7>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP7 VALUE)>
+TAG15
+ <INTGO>
+ <EMPTY? TEMP8 + TAG12>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP7 1 = TEMP7 (TYPE FIX)>
+ <JUMP + TAG15>
+TAG12
+ <CALL '\1aOCEMIT TEMP7>
+ <DEAD TEMP7>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'SWNEXT>
+ <RESTL L4 1 = TEMP8 (TYPE LIST)>
+ <DEAD L4>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = STACK>
+ <DEAD TEMP8>
+ <CALL '\1aPUSHJ 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aSWNEXT!-MIMOC>
+#WORD *7672227645*
+<GFCN \1aNEXTS!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP8>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG11
+ <INTGO>
+ <EMPTY? TEMP8 + TAG7>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG11>
+TAG7
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'NEXTS>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <CALL '\1aPUSHJ 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aNEXTS!-MIMOC>
+#WORD *31000655344*
+<GFCN \1aCONTENTS!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
+ <TEMP TEMP9 AC6:ATOM>
+ <INTGO>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'T*>
+ <NTHL L5 1 = STACK>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aASSIGN-AC>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = AC6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH AC6>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'TLZE>
+ <PUSH AC6>
+ <PUSH 32>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XMOVEI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 1>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 4>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = TEMP9>
+ <EQUAL? TEMP9 'STACK + TAG16>
+ <DEAD TEMP9>
+ <RETURN %<>>
+TAG16
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH AC6>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC6>
+ <DEAD AC6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE22>
+ <GVAL 'STACK-DEPTH = TEMP9>
+ <ADD TEMP9 2 = TEMP9 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP9>
+PHRASE22
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aCONTENTS!-MIMOC>
+#WORD *6521023431*
+<GFCN \1aPUTS!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aLOAD-AC>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = STACK>
+ <DEAD TEMP8>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TEMP8>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'T*>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'O*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'O*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O*>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'TLNN>
+ <PUSH 'O*>
+ <PUSH 32>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVEM>
+ <PUSH TEMP8>
+ <DEAD TEMP8>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 3 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aPUTS!-MIMOC>
+#WORD *37551102046*
+<GFCN \1aALLOCL!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
+ <TEMP TEMP8 AC6:ATOM TEMP10>
+ <INTGO>
+ <FRAME '\1aASSIGN-AC>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = STACK>
+ <DEAD TEMP8>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = AC6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH AC6>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'LIST>
+ <SCALL '\1aTYPE-WORD 1 = TEMP8 + TAG9 TEMP10>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG12
+ <INTGO>
+ <EMPTY? TEMP8 + TAG9>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG12>
+TAG9
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP8 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG14 TEMP8>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP8 VALUE)>
+TAG17
+ <INTGO>
+ <EMPTY? TEMP10 + TAG14>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
+ <JUMP + TAG17>
+TAG14
+ <CALL '\1aOCEMIT TEMP8>
+ <DEAD TEMP8>
+ <RESTL L5 1 = TEMP10 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = TEMP10>
+ <EQUAL? TEMP10 'STACK + TAG21>
+ <DEAD TEMP10>
+ <RETURN %<>>
+TAG21
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH AC6>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC6>
+ <DEAD AC6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE26>
+ <GVAL 'STACK-DEPTH = TEMP10>
+ <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP10>
+ <SET TEMP8 TEMP10>
+ <DEAD TEMP10>
+PHRASE26
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aALLOCL!-MIMOC>
+#WORD *23430623677*
+<GFCN \1aALLOCUV!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aALLOC-JOIN>
+ <NTHL L5 1 = STACK>
+ <RESTL L5 1 = TEMP7 (TYPE LIST)>
+ <NTHL TEMP7 1 = STACK>
+ <DEAD TEMP7>
+ <RESTL L5 1 = TEMP7 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
+ <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
+ <NTHL TEMP7 1 = STACK>
+ <DEAD TEMP7>
+ <PUSH 'VECTOR>
+ <CALL '\1aALLOC-JOIN 4 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aALLOCUV!-MIMOC>
+#WORD *20660462017*
+<GFCN \1aALLOCUU!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aALLOC-JOIN>
+ <NTHL L5 1 = STACK>
+ <RESTL L5 1 = TEMP7 (TYPE LIST)>
+ <NTHL TEMP7 1 = STACK>
+ <DEAD TEMP7>
+ <RESTL L5 1 = TEMP7 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
+ <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
+ <NTHL TEMP7 1 = STACK>
+ <DEAD TEMP7>
+ <PUSH 'UVECTOR>
+ <CALL '\1aALLOC-JOIN 4 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aALLOCUU!-MIMOC>
+#WORD *32542612610*
+<GFCN \1aALLOCUS!-MIMOC ("VALUE" <OR FALSE FIX> LIST "OPTIONAL" ANY) L8 BYTES?9>
+ <OPT-DISPATCH 1 %<> OPT6 OPT7>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP TEMP12 AC10 TEMP15 TEMP24>
+ <INTGO>
+ <FRAME '\1aASSIGN-AC>
+ <RESTL L8 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = STACK>
+ <DEAD TEMP12>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = AC10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP15 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L8 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG13 TEMP15>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP15 VALUE)>
+TAG17
+ <INTGO>
+ <EMPTY? TEMP12 + TAG13>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <JUMP + TAG17>
+TAG13
+ <CALL '\1aOCEMIT TEMP15>
+ <DEAD TEMP15>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP12 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <TYPE? BYTES?9 <TYPE-CODE FALSE> + PHRASE23>
+ <DEAD BYTES?9>
+ <SET TEMP24 -17179869185 (TYPE FIX)>
+ <JUMP + PHRASE25>
+PHRASE23
+ <SET TEMP24 -10737418241 (TYPE FIX)>
+PHRASE25
+ <PUSH TEMP24>
+ <DEAD TEMP24>
+ <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG19 TEMP12>
+ <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP12 VALUE)>
+TAG26
+ <INTGO>
+ <EMPTY? TEMP15 + TAG19>
+ <NTH1 TEMP15 = STACK>
+ <REST1 TEMP15 = TEMP15>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG26>
+TAG19
+ <CALL '\1aOCEMIT TEMP12>
+ <DEAD TEMP12>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH AC10>
+ <SET TEMP15 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <RESTL L8 1 = TEMP24 (TYPE LIST)>
+ <NTHL TEMP24 1 = STACK>
+ <DEAD TEMP24>
+ <SCALL '\1aOBJ-TYP 1 = TEMP12 + TAG28 TEMP15>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP15 VALUE)>
+TAG30
+ <INTGO>
+ <EMPTY? TEMP12 + TAG28>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <JUMP + TAG30>
+TAG28
+ <CALL '\1aOCEMIT TEMP15>
+ <DEAD TEMP15>
+ <RESTL L8 1 = TEMP12 (TYPE LIST)>
+ <DEAD L8>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12>
+ <EQUAL? TEMP12 'STACK + TAG34>
+ <DEAD TEMP12>
+ <RETURN %<>>
+TAG34
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH AC10>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC10>
+ <DEAD AC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE39>
+ <GVAL 'STACK-DEPTH = TEMP12>
+ <ADD TEMP12 2 = TEMP12 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP12>
+ <SET TEMP15 TEMP12>
+ <DEAD TEMP12>
+PHRASE39
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aALLOCUS!-MIMOC>
+#WORD *12642005423*
+<GFCN \1aALLOCUB!-MIMOC ("VALUE" <OR FALSE FIX> ANY) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aALLOCUS!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'T>
+ <CALL '\1aALLOCUS!-MIMOC 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aALLOCUB!-MIMOC>
+#WORD *22760620037*
+<GFCN \1aALLOCR!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aALLOC-JOIN>
+ <NTHL L5 1 = STACK>
+ <RESTL L5 1 = TEMP7 (TYPE LIST)>
+ <NTHL TEMP7 1 = STACK>
+ <DEAD TEMP7>
+ <RESTL L5 1 = TEMP7 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
+ <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
+ <NTHL TEMP7 1 = STACK>
+ <DEAD TEMP7>
+ <PUSH 'RECORD>
+ <CALL '\1aALLOC-JOIN 4 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aALLOCR!-MIMOC>
+#WORD *11267037532*
+<GFCN \1aALLOC-JOIN ("VALUE" ANY ANY ANY ANY ANY) WHERE5 OLD6 NEW7 TYP8>
+ <TEMP TEMP14 TEMP13 TEMP29>
+ <INTGO>
+ <EQUAL? NEW7 'STACK - PHRASE11>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP14 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH OLD6>
+ <DEAD OLD6>
+ <SCALL '\1aOBJ-TYP 1 = TEMP13 + TAG12 TEMP14>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG16
+ <INTGO>
+ <EMPTY? TEMP13 + TAG12>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG16>
+TAG12
+ <CALL '\1aOCEMIT TEMP14>
+ <DEAD TEMP14>
+ <GVAL 'WINNING-VICTIM = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE19>
+ <DEAD TEMP14>
+ <GVAL 'STACK-DEPTH = TEMP14>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP14>
+ <DEAD TEMP14>
+PHRASE19
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP13 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH WHERE5>
+ <DEAD WHERE5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP14 + TAG20 TEMP13>
+ <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG22
+ <INTGO>
+ <EMPTY? TEMP14 + TAG20>
+ <NTH1 TEMP14 = STACK>
+ <REST1 TEMP14 = TEMP14>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG22>
+TAG20
+ <CALL '\1aOCEMIT TEMP13>
+ <DEAD TEMP13>
+ <GVAL 'WINNING-VICTIM = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE26>
+ <GVAL 'STACK-DEPTH = TEMP14>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE11
+ <FRAME '\1aASSIGN-AC>
+ <PUSH NEW7>
+ <DEAD NEW7>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = TEMP13>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH TEMP13>
+ <SET TEMP29 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH OLD6>
+ <DEAD OLD6>
+ <SCALL '\1aOBJ-TYP 1 = TEMP14 + TAG28 TEMP29>
+ <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP29 VALUE)>
+TAG31
+ <INTGO>
+ <EMPTY? TEMP14 + TAG28>
+ <NTH1 TEMP14 = STACK>
+ <REST1 TEMP14 = TEMP14>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG31>
+TAG28
+ <CALL '\1aOCEMIT TEMP29>
+ <DEAD TEMP29>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP14 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH WHERE5>
+ <DEAD WHERE5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG33 TEMP14>
+ <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG36
+ <INTGO>
+ <EMPTY? TEMP29 + TAG33>
+ <NTH1 TEMP29 = STACK>
+ <REST1 TEMP29 = TEMP29>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG36>
+TAG33
+ <CALL '\1aOCEMIT TEMP14 = TEMP13>
+ <DEAD TEMP14>
+PHRASE26
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aALLOC-JOIN>
+#WORD *16761317722*
+<GFCN \1aBLT!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP10 TEMP9 TEMP16:LIST>
+ <INTGO>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG8 TEMP10>
+ <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG12
+ <INTGO>
+ <EMPTY? TEMP9 + TAG8>
+ <NTH1 TEMP9 = STACK>
+ <REST1 TEMP9 = TEMP9>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG12>
+TAG8
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O2*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <RESTL L5 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = STACK>
+ <DEAD TEMP16>
+ <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG14 TEMP9>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG17
+ <INTGO>
+ <EMPTY? TEMP10 + TAG14>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG17>
+TAG14
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'T*>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <RESTL L5 1 = TEMP16 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = STACK>
+ <DEAD TEMP16>
+ <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG19 TEMP10>
+ <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG21
+ <INTGO>
+ <EMPTY? TEMP9 + TAG19>
+ <NTH1 TEMP9 = STACK>
+ <REST1 TEMP9 = TEMP9>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG21>
+TAG19
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XBLT>
+ <PUSH 'T*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH 2147483648>
+ <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG23 TEMP9>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG25
+ <INTGO>
+ <EMPTY? TEMP10 + TAG23>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG25>
+TAG23
+ <CALL '\1aOCEMIT TEMP9 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aBLT!-MIMOC>
+#WORD *442012330*
+<GFCN \1aRELL!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <PUSH 'BOTH>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'RELL>
+ <CALL '\1aPUSHJ 1 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aRELL!-MIMOC>
+#WORD *442012510*
+<GFCN \1aRELU!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <PUSH 'BOTH>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'RELU>
+ <CALL '\1aPUSHJ 1 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aRELU!-MIMOC>
+#WORD *442012470*
+<GFCN \1aRELR!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <PUSH 'BOTH>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'RELR>
+ <CALL '\1aPUSHJ 1 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aRELR!-MIMOC>
+#WORD *7532440457*
+<GFCN \1aLOOP!-MIMOC ("VALUE" <OR ATOM FALSE> LIST) L4>
+ <TEMP TEMP10 LFS8 TEMP19 TEMP28 TEMP40 LL52 TEMP61 ACS73:VECTOR A174:AC TEMP88 A275:AC ACS2105:ACSTATE>
+ <INTGO>
+ <FRAME '\1aNTH>
+ <GEN-LVAL 'MIML = STACK>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE ATOM> + TAG16>
+ <RETURN %<>>
+TAG16
+ <GVAL TEMP10 = TEMP10>
+ <NTHUV TEMP10 5 = LFS8>
+ <DEAD TEMP10>
+ <SETG 'NEXT-LOOP 'T>
+ <GEN-LVAL 'MIML = TEMP19>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = STACK>
+ <DEAD TEMP19>
+ <SET TEMP10 1 (TYPE FIX)>
+ <GVAL 'LOOPTAGS = TEMP19>
+ <TYPE TEMP19 = TEMP28>
+ <AND TEMP28 7 = TEMP28>
+ <VEQUAL? TEMP28 1 + TAG24>
+ <DEAD TEMP28>
+ <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG30
+ <INTGO>
+ <EMPTY? TEMP19 + TAG29>
+ <NTH1 TEMP19 = STACK>
+ <REST1 TEMP19 = TEMP19>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG30>
+TAG29
+ <LIST TEMP10 = TEMP19 (TYPE LIST)>
+ <DEAD TEMP10>
+ <JUMP + TAG26>
+TAG24
+ <LOOP>
+TAG27
+ <VEQUAL? TEMP10 0 + TAG26>
+ <POP = TEMP28>
+ <CONS TEMP28 TEMP19 = TEMP19 (TYPE LIST)>
+ <DEAD TEMP28>
+ <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG27>
+TAG26
+ <SETG 'LOOPTAGS TEMP19>
+ <DEAD TEMP19>
+ <NTHR 'DO-LOOPS 1 = TEMP19 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG35)>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + TAG35>
+ <NTHR TEMP19 1 = TEMP19 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP19 <TYPE-CODE UNBOUND> - TAG34>
+ <DEAD TEMP19>
+TAG35
+ <RETURN %<>>
+TAG34
+ <GVAL 'DO-LOOPS = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + MAPAP47>
+ <SET TEMP28 () (TYPE LIST)>
+ <SET TEMP10 () (TYPE LIST)>
+ <SET TEMP19 L4 (TYPE LIST)>
+ <LOOP>
+MAP37
+ <INTGO>
+ <EMPL? TEMP19 + MAP36>
+ <NTHL TEMP19 1 = TEMP40>
+ <NTH1 TEMP40 = TEMP40>
+ <CONS TEMP40 () = TEMP40 (TYPE LIST)>
+ <EMPL? TEMP28 - TAG41>
+ <SET TEMP28 TEMP40 (TYPE LIST)>
+ <JUMP + TAG42>
+TAG41
+ <PUTREST TEMP10 TEMP40>
+ <DEAD TEMP10>
+TAG42
+ <SET TEMP10 TEMP40 (TYPE LIST)>
+ <DEAD TEMP40>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <JUMP + MAP37>
+MAP36
+ <SET TEMP10 %<> (TYPE FALSE)>
+ <SET TEMP19 L4 (TYPE LIST)>
+ <DEAD L4>
+ <LOOP>
+MAP44
+ <INTGO>
+ <EMPL? TEMP19 + MAPAP47>
+ <NTHL TEMP19 1 = LL52>
+ <NTHL LL52 1 = TEMP10>
+ <RESTL LL52 1 = LL52 (TYPE LIST)>
+ <SET TEMP40 LL52>
+ <EMPL? TEMP40 + PHRASE56>
+ <LOOP (TEMP40 VALUE)>
+TAG58
+ <NTHL TEMP40 1 = TEMP61>
+ <TYPE? TEMP61 <TYPE-CODE ATOM> - TAG59>
+ <VEQUAL? TEMP61 'VALUE + TAG57>
+ <DEAD TEMP61>
+TAG59
+ <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
+ <EMPL? TEMP40 - TAG58>
+ <JUMP + PHRASE56>
+TAG57
+ <RESTL LL52 1 = TEMP40 (TYPE LIST)>
+ <DEAD LL52>
+ <EMPL? TEMP40 + PHRASE63 (TYPE LIST)>
+ <DEAD TEMP40>
+ <SET LL52 'BOTH (TYPE ATOM)>
+ <JUMP + PHRASE65>
+PHRASE63
+ <SET LL52 'VALUE (TYPE ATOM)>
+ <JUMP + PHRASE65>
+PHRASE56
+ <SET LL52 'TYPE (TYPE ATOM)>
+PHRASE65
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP10>
+ <PUSH LL52>
+ <CALL '\1aIN-AC? 2 = TEMP40>
+ <TYPE? TEMP40 <TYPE-CODE FALSE> + TAG69>
+ <DEAD TEMP40>
+ <SET TEMP10 %<> (TYPE FALSE)>
+ <JUMP + EXIT102>
+TAG69
+ <TYPE? LFS8 <TYPE-CODE FALSE> - PHRASE71>
+ <GVAL 'AC-TABLE = TEMP61>
+ <RESTUV TEMP61 1 = ACS73 (TYPE VECTOR)>
+ <DEAD TEMP61>
+ <LOOP>
+AGAIN77
+ <INTGO>
+ <NTHUV ACS73 1 = A174 (TYPE AC)>
+ <NTHUV A174 1 = TEMP61 (TYPE ATOM)>
+ <VEQUAL? TEMP61 'X* - PHRASE79>
+ <DEAD TEMP61>
+ <SET TEMP10 'T (TYPE ATOM)>
+ <JUMP + EXIT102>
+PHRASE79
+ <VEQUAL? LL52 'VALUE + TAG85>
+ <NTHUV A174 2 = TEMP40>
+ <TYPE? TEMP40 <TYPE-CODE FALSE> + TAG85>
+ <TYPE? TEMP40 <TYPE-CODE LOSE> + TAG85>
+ <NTHUV A174 5 = TEMP61>
+ <TYPE? TEMP61 <TYPE-CODE FALSE> - PHRASE81>
+ <DEAD TEMP61>
+ <SET TEMP61 TEMP28>
+ <EMPL? TEMP61 + TAG85>
+ <LOOP (TEMP40 VALUE) (TEMP61 VALUE)>
+TAG86
+ <NTHL TEMP61 1 = TEMP88>
+ <TYPE? TEMP88 <TYPE-CODE ATOM> - TAG87>
+ <VEQUAL? TEMP88 TEMP40 + PHRASE81>
+ <DEAD TEMP88>
+TAG87
+ <RESTL TEMP61 1 = TEMP61 (TYPE LIST)>
+ <EMPL? TEMP61 - TAG86>
+TAG85
+ <VEQUAL? LL52 'TYPE + TAG91>
+ <NTHUV ACS73 2 = A275 (TYPE AC)>
+ <NTHUV A275 2 = TEMP40>
+ <TYPE? TEMP40 <TYPE-CODE FALSE> + TAG91>
+ <TYPE? TEMP40 <TYPE-CODE LOSE> + TAG91>
+ <NTHUV A275 5 = TEMP61>
+ <TYPE? TEMP61 <TYPE-CODE FALSE> - PHRASE81>
+ <DEAD TEMP61>
+ <SET TEMP61 TEMP28>
+ <EMPL? TEMP61 + TAG91>
+ <LOOP (TEMP40 VALUE) (TEMP61 VALUE)>
+TAG92
+ <NTHL TEMP61 1 = TEMP88>
+ <TYPE? TEMP88 <TYPE-CODE ATOM> - TAG93>
+ <VEQUAL? TEMP88 TEMP40 + PHRASE81>
+ <DEAD TEMP88>
+TAG93
+ <RESTL TEMP61 1 = TEMP61 (TYPE LIST)>
+ <EMPL? TEMP61 - TAG92>
+TAG91
+ <VEQUAL? LL52 'VALUE - PHRASE95>
+ <FRAME '\1aLOAD-AC>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH A275>
+ <CALL '\1aLOAD-AC 5>
+ <JUMP + PHRASE99>
+PHRASE95
+ <VEQUAL? LL52 'TYPE - PHRASE97>
+ <DEAD LL52>
+ <FRAME '\1aLOAD-AC>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <PUSH 'TYPE>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH A174>
+ <DEAD A174>
+ <CALL '\1aLOAD-AC 5>
+ <JUMP + PHRASE99>
+PHRASE97
+ <FRAME '\1aLOAD-AC>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <PUSH 'BOTH>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH A174>
+ <DEAD A174>
+ <PUSH A275>
+ <CALL '\1aLOAD-AC 6>
+PHRASE99
+ <SET TEMP10 'T (TYPE ATOM)>
+ <JUMP + EXIT102>
+PHRASE81
+ <RESTUV ACS73 2 = ACS73 (TYPE VECTOR)>
+ <JUMP + AGAIN77>
+PHRASE71
+ <CHTYPE LFS8 <TYPE-CODE VECTOR> = ACS73>
+ <LOOP>
+AGAIN107
+ <INTGO>
+ <EMPUV? ACS73 - PHRASE109 (TYPE VECTOR)>
+ <SET TEMP10 'T (TYPE ATOM)>
+ <JUMP + EXIT102>
+PHRASE109
+ <SET TEMP40 %<> (TYPE FALSE)>
+ <NTHUV ACS73 1 = LL52 (TYPE ACSTATE)>
+ <NTHUV LL52 2 = TEMP88 (TYPE LOCAL)>
+ <NTHUV TEMP88 1 = TEMP88 (TYPE ATOM)>
+ <EQUAL? TEMP88 TEMP10 - TAG113>
+ <DEAD TEMP88>
+ <SET TEMP40 'T (TYPE ATOM)>
+ <JUMP + BOOL112>
+TAG113
+ <NTHUV ACS73 2 = ACS2105 (TYPE ACSTATE)>
+ <NTHUV ACS2105 2 = TEMP88 (TYPE LOCAL)>
+ <NTHUV TEMP88 1 = TEMP88 (TYPE ATOM)>
+ <EQUAL? TEMP88 TEMP10 - PHRASE111>
+ <DEAD TEMP88>
+BOOL112
+ <VEQUAL? TEMP40 0 + PHRASE115>
+ <DEAD TEMP40>
+ <FRAME '\1aLOAD-AC>
+ <PUSH TEMP10>
+ <PUSH 'BOTH>
+ <NTHUV ACS73 2 = ACS2105 (TYPE ACSTATE)>
+ <DEAD ACS73>
+ <NTHUV ACS2105 2 = TEMP88 (TYPE LOCAL)>
+ <NTHUV TEMP88 1 = TEMP88 (TYPE ATOM)>
+ <EQUAL? TEMP88 TEMP10 - PHRASE118>
+ <DEAD TEMP88 TEMP10>
+ <NTHUV ACS2105 3 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - TAG121>
+ <DEAD TEMP10>
+ <SET TEMP88 'T (TYPE ATOM)>
+ <JUMP + TAG126>
+TAG121
+ <NTHUV LL52 3 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - TAG122>
+ <DEAD TEMP10>
+ <SET TEMP88 'T (TYPE ATOM)>
+ <JUMP + TAG126>
+TAG122
+ <SET TEMP88 %<> (TYPE FALSE)>
+ <JUMP + TAG126>
+PHRASE118
+ <NTHUV LL52 3 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - TAG125>
+ <DEAD TEMP10>
+ <SET TEMP88 'T (TYPE ATOM)>
+ <JUMP + TAG126>
+TAG125
+ <SET TEMP88 %<> (TYPE FALSE)>
+TAG126
+ <PUSH TEMP88>
+ <DEAD TEMP88>
+ <PUSH %<>>
+ <NTHUV LL52 1 = STACK (TYPE AC)>
+ <DEAD LL52>
+ <NTHUV ACS2105 1 = STACK (TYPE AC)>
+ <CALL '\1aLOAD-AC 6>
+ <JUMP + PHRASE127>
+PHRASE115
+ <FRAME '\1aLOAD-AC>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <PUSH 'VALUE>
+ <NTHUV ACS2105 3 = TEMP88>
+ <TYPE? TEMP88 <TYPE-CODE FALSE> - TAG129>
+ <DEAD TEMP88>
+ <SET TEMP88 'T (TYPE ATOM)>
+ <JUMP + TAG130>
+TAG129
+ <SET TEMP88 %<> (TYPE FALSE)>
+TAG130
+ <PUSH TEMP88>
+ <DEAD TEMP88>
+ <PUSH %<>>
+ <NTHUV ACS2105 1 = STACK (TYPE AC)>
+ <CALL '\1aLOAD-AC 5>
+PHRASE127
+ <SET TEMP10 'T (TYPE ATOM)>
+ <JUMP + EXIT102>
+PHRASE111
+ <RESTUV ACS73 2 = ACS73 (TYPE VECTOR)>
+ <JUMP + AGAIN107>
+EXIT102
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <JUMP + MAP44>
+MAPAP47
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aLOOP!-MIMOC>
+#WORD *7127312635*
+<GFCN \1aINTGO!-MIMOC ("VALUE" ATOM ANY) L5>
+ <TEMP>
+ <INTGO>
+ <RETURN 'T>
+ <END \1aINTGO!-MIMOC>
+#WORD *14173600417*
+<GFCN \1aSAVE!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <NTHL L5 1 = STACK>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A2*>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'B1*>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'SAVE>
+ <NTHL L5 5 = STACK>
+ <DEAD L5>
+ <CALL '\1aPUSHJ 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aSAVE!-MIMOC>
+#WORD *6746151666*
+<GFCN \1aRESTORE!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <NTHL L5 1 = STACK>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'RESTORE>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = STACK>
+ <DEAD TEMP8>
+ <CALL '\1aPUSHJ 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aRESTORE!-MIMOC>
+#WORD *24677170745*
+<GFCN \1aQUIT!-MIMOC ("VALUE" ANY ANY) L4>
+ <TEMP TEMP11>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <EMPTY? L4 + PHRASE7>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A2*>
+ <NTH1 L4 = STACK>
+ <DEAD L4>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <PUSH -262141>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+PHRASE7
+ <FRAME '\1aPUSHJ>
+ <PUSH 'QUIT>
+ <CALL '\1aPUSHJ 1 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aQUIT!-MIMOC>
+#WORD *21450120207*
+<GFCN \1aSETSIZ!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <NTHL L5 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'SETSIZ>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <CALL '\1aPUSHJ 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aSETSIZ!-MIMOC>
+#WORD *22212040166*
+<GFCN \1aRNTIME!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP10>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <EMPL? L5 - PHRASE8 (TYPE LIST)>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'RNTIME>
+ <CALL '\1aPUSHJ 1 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE8
+ <FRAME '\1aPUSHJ>
+ <PUSH 'RNTIME>
+ <RESTL L5 1 = TEMP10 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP10 1 = STACK>
+ <DEAD TEMP10>
+ <CALL '\1aPUSHJ 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aRNTIME!-MIMOC>
+"Instructions for seedup of NTH,REST,EMPTY? and MONAD? of unknown type"
+
+#WORD *16233203647*
+<GFCN \1aNTH1!-MIMOC ("VALUE" ANY ANY) L5>
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aNEW-FUNNY-CALL>
+ <PUSH 108>
+ <PUSH L5>
+ <CALL '\1aNEW-FUNNY-CALL 2>
+ <FRAME '\1aALTER-AC>
+ <PUSH 'A1*>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = STACK>
+ <DEAD TEMP8>
+ <CALL '\1aALTER-AC 2>
+ <FRAME '\1aPUSHJ-VAL>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = STACK>
+ <DEAD TEMP8>
+ <CALL '\1aPUSHJ-VAL 1 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aNTH1!-MIMOC>
+#WORD *16233203747*
+<GFCN \1aREST1!-MIMOC ("VALUE" ANY ANY) L5>
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aNEW-FUNNY-CALL>
+ <PUSH 109>
+ <PUSH L5>
+ <CALL '\1aNEW-FUNNY-CALL 2>
+ <FRAME '\1aALTER-AC>
+ <PUSH 'A1*>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = STACK>
+ <DEAD TEMP8>
+ <CALL '\1aALTER-AC 2>
+ <FRAME '\1aPUSHJ-VAL>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = STACK>
+ <DEAD TEMP8>
+ <CALL '\1aPUSHJ-VAL 1 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aREST1!-MIMOC>
+#WORD *10702137651*
+<GFCN \1aEMPTY?!-MIMOC ("VALUE" ANY ANY) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aFUNNY-PRED>
+ <PUSH 107>
+ <PUSH L5>
+ <DEAD L5>
+ <CALL '\1aFUNNY-PRED 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aEMPTY?!-MIMOC>
+#WORD *10702137771*
+<GFCN \1aMONAD?!-MIMOC ("VALUE" ANY ANY) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aFUNNY-PRED>
+ <PUSH 110>
+ <PUSH L5>
+ <DEAD L5>
+ <CALL '\1aFUNNY-PRED 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aMONAD?!-MIMOC>
+#WORD *13164171562*
+<GFCN \1aFUNNY-PRED ("VALUE" ANY ANY LIST) LOC5 L6>
+ <TEMP TEMP9 FLAG7>
+ <INTGO>
+ <RESTL L6 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = FLAG7>
+ <DEAD TEMP9>
+ <RESTL L6 1 = TEMP9 (TYPE LIST)>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = TEMP9>
+ <FRAME '\1aNEW-FUNNY-CALL>
+ <PUSH LOC5>
+ <DEAD LOC5>
+ <PUSH L6>
+ <DEAD L6>
+ <PUSH TEMP9>
+ <CALL '\1aNEW-FUNNY-CALL 3>
+ <EQUAL? FLAG7 '+ - PHRASE12>
+ <DEAD FLAG7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAIA>
+ <PUSH 'O*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+PHRASE12
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH TEMP9>
+ <DEAD TEMP9>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aFUNNY-PRED>
+#WORD *2417276164*
+<GFCN \1aNEW-FUNNY-CALL ("VALUE" ANY ANY LIST "OPTIONAL" ANY) LOC6 L7 TAG8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP AC9 TEMP29>
+ <INTGO>
+ <FRAME '\1aIN-AC?>
+ <NTHL L7 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = AC9>
+ <EQUAL? AC9 'A1* + PHRASE20>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'A1*>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'A1*>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE16>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH 'A1*>
+ <PUSH AC9>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AC9>
+ <DEAD AC9>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <FRAME '\1aALTER-AC>
+ <PUSH 'A1*>
+ <NTHL L7 1 = STACK>
+ <CALL '\1aALTER-AC 2>
+ <JUMP + PHRASE20>
+PHRASE16
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <NTHL L7 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aSMASH-AC 3>
+PHRASE20
+ <TYPE? TAG8 <TYPE-CODE FALSE> + PHRASE23>
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <PUSH TAG8>
+ <DEAD TAG8>
+ <PUSH %<>>
+ <CALL '\1aLABEL-UPDATE-ACS 2>
+ <JUMP + PHRASE25>
+PHRASE23
+ <NTHL L7 1 = AC9>
+ <RESTL L7 1 = TEMP29 (TYPE LIST)>
+ <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
+ <NTHL TEMP29 1 = TEMP29>
+ <EQUAL? AC9 TEMP29 + PHRASE32>
+ <DEAD AC9 TEMP29>
+ <FRAME '\1aCLEAN-ACS>
+ <RESTL L7 1 = TEMP29 (TYPE LIST)>
+ <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
+ <NTHL TEMP29 1 = STACK>
+ <DEAD TEMP29>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aWILL-DIE?>
+ <NTHL L7 1 = STACK>
+ <DEAD L7>
+ <CALL '\1aWILL-DIE? 1 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> - PHRASE32>
+ <DEAD TEMP29>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'A1*>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+PHRASE32
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'A1*>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+PHRASE25
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JSP>
+ <PUSH 'T*>
+ <PUSH '@>
+ <PUSH LOC6>
+ <DEAD LOC6>
+ <CALL '\1aOCEMIT 4 = TEMP29>
+ <RETURN TEMP29>
+ <DEAD TEMP29>
+ <END \1aNEW-FUNNY-CALL>
+#WORD *31320264040*
+<GFCN \1aLEGAL?!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9>
+ <INTGO>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'A1*>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <NTHL L5 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'LEGAL?>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <CALL '\1aPUSHJ 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aLEGAL?!-MIMOC>
+#WORD *7257070127*
+<GFCN \1aSETZONE!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP10:FIX>
+ <INTGO>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <NTHL L5 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aSMASH-AC 3>
+ <SET TEMP9 L5>
+ <SET TEMP10 3 (TYPE FIX)>
+ <LOOP (TEMP9 VALUE) (TEMP10 VALUE)>
+TAG11
+ <EMPL? TEMP9 + PHRASE8>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
+ <GRTR? TEMP10 0 + TAG11 (TYPE FIX)>
+ <EMPL? TEMP9 - PHRASE8>
+ <DEAD TEMP9>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'SETZONE>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <CALL '\1aPUSHJ 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE8
+ <FRAME '\1aPUSHJ>
+ <PUSH 'SETZONE>
+ <CALL '\1aPUSHJ 1 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aSETZONE!-MIMOC>
+#WORD *34030413472*
+<GFCN \1aTYPEW!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP8 TEMP7>
+ <INTGO>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP8 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP7 + TAG6 TEMP8>
+ <LOOP (TEMP7 TYPE VALUE LENGTH) (TEMP8 VALUE)>
+TAG10
+ <INTGO>
+ <EMPTY? TEMP7 + TAG6>
+ <NTH1 TEMP7 = STACK>
+ <REST1 TEMP7 = TEMP7>
+ <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
+ <JUMP + TAG10>
+TAG6
+ <CALL '\1aOCEMIT TEMP8>
+ <DEAD TEMP8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O2*>
+ <SET TEMP7 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = STACK>
+ <DEAD TEMP8>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG12 TEMP7>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP7 VALUE)>
+TAG15
+ <INTGO>
+ <EMPTY? TEMP8 + TAG12>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP7 1 = TEMP7 (TYPE FIX)>
+ <JUMP + TAG15>
+TAG12
+ <CALL '\1aOCEMIT TEMP7>
+ <DEAD TEMP7>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'TYPEW>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = STACK>
+ <DEAD TEMP8>
+ <CALL '\1aPUSHJ 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aTYPEW!-MIMOC>
+#WORD *6634222230*
+<GFCN \1aTYPEWC!-MIMOC ("VALUE" AC LIST) L5>
+ <TEMP TEMP8 AC6 TEMP11>
+ <INTGO>
+ <FRAME '\1aASSIGN-AC>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = STACK>
+ <DEAD TEMP8>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = AC6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HLRZ>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP11 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG9 TEMP11>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP11 VALUE)>
+TAG13
+ <INTGO>
+ <EMPTY? TEMP8 + TAG9>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <JUMP + TAG13>
+TAG9
+ <CALL '\1aOCEMIT TEMP11>
+ <DEAD TEMP11>
+ <FRAME '\1aGET-AC>
+ <PUSH AC6>
+ <DEAD AC6>
+ <CALL '\1aGET-AC 1 = TEMP11>
+ <PUTUV TEMP11 6 'TYPE-C>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aTYPEWC!-MIMOC>
+#WORD *11571711125*
+<GFCN \1aFATAL!-MIMOC ("VALUE" ANY LIST) L4>
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <NTHL L4 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aSMASH-AC 3>
+ <RESTL L4 1 = TEMP8 (TYPE LIST)>
+ <EMPL? TEMP8 - PHRASE7 (TYPE LIST)>
+ <DEAD TEMP8>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'FATAL>
+ <CALL '\1aPUSHJ 1 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+PHRASE7
+ <FRAME '\1aPUSHJ>
+ <PUSH 'FATAL>
+ <RESTL L4 1 = TEMP8 (TYPE LIST)>
+ <DEAD L4>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = STACK>
+ <DEAD TEMP8>
+ <CALL '\1aPUSHJ 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aFATAL!-MIMOC>
+#WORD *31414210660*
+<GFCN \1aGETBITS!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L4>
+ <TEMP WD5 TEMP19 WL6 SHL7 DST8 TAC?9 AC?12 (OL13 %<>) (W15:FIX 0) (SH16:FIX 0) (IX17 %<>) TEMP29 BP11 TEMP36 TEMP44>
+ <INTGO>
+ <NTHL L4 1 = WD5>
+ <RESTL L4 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = WL6>
+ <DEAD TEMP19>
+ <RESTL L4 1 = TEMP19 (TYPE LIST)>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = SHL7>
+ <DEAD TEMP19>
+ <NTHL L4 5 = DST8>
+ <DEAD L4>
+ <FRAME '\1aIN-AC?>
+ <PUSH WD5>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TAC?9>
+ <FRAME '\1aIN-AC?>
+ <PUSH WD5>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC?12>
+ <TYPE? WL6 <TYPE-CODE FIX> - PHRASE23>
+ <SET W15 WL6>
+PHRASE23
+ <TYPE? SHL7 <TYPE-CODE FIX> - PHRASE25>
+ <SET SH16 SHL7>
+PHRASE25
+ <TYPE? WD5 <TYPE-CODE ATOM> - PHRASE27>
+ <FRAME '\1aOBJ-LOC>
+ <PUSH WD5>
+ <PUSH 1>
+ <CALL '\1aOBJ-LOC 2 = OL13>
+PHRASE27
+ <LSH SH16 30 = TEMP19 (TYPE FIX)>
+ <LSH W15 24 = TEMP29 (TYPE FIX)>
+ <OR TEMP19 TEMP29 = BP11>
+ <DEAD TEMP19 TEMP29>
+ <TYPE? AC?12 <TYPE-CODE FALSE> + PHRASE31>
+ <GVAL 'ACS = TEMP29>
+ <TYPE AC?12 = TEMP19>
+ <EMPUV? TEMP29 + TAG32>
+ <LOOP (AC?12 VALUE) (TEMP19 VALUE) (TEMP29 LENGTH VALUE)>
+TAG34
+ <NTHUV TEMP29 1 = TEMP36>
+ <TYPE? TEMP36 TEMP19 - TAG35>
+ <VEQUAL? TEMP36 AC?12 + TAG33>
+ <DEAD TEMP36>
+TAG35
+ <RESTUV TEMP29 1 = TEMP29 (TYPE VECTOR)>
+ <EMPUV? TEMP29 - TAG34>
+TAG32
+ <SET TEMP29 %<> (TYPE FALSE)>
+TAG33
+ <NTHUV TEMP29 2 = TEMP36>
+ <DEAD TEMP29>
+PHRASE31
+ <TYPE? AC?12 <TYPE-CODE FALSE> + PHRASE38>
+ <OR BP11 TEMP36 = TEMP29>
+ <DEAD BP11 TEMP36>
+ <CHTYPE TEMP29 <TYPE-CODE CONSTANT> = BP11>
+ <DEAD TEMP29>
+ <JUMP + PHRASE39>
+PHRASE38
+ <TYPE? OL13 <TYPE-CODE FALSE> + PHRASE39>
+ <RESTL OL13 1 = TEMP29 (TYPE LIST)>
+ <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
+ <NTHL TEMP29 1 = TEMP29>
+ <NTHL TEMP29 1 = TEMP29>
+ <GVAL 'ACS = TEMP19>
+ <TYPE TEMP29 = TEMP36>
+ <EMPUV? TEMP19 + TAG40>
+ <LOOP (TEMP29 VALUE) (TEMP36 VALUE) (TEMP19 LENGTH VALUE)>
+TAG42
+ <NTHUV TEMP19 1 = TEMP44>
+ <TYPE? TEMP44 TEMP36 - TAG43>
+ <VEQUAL? TEMP44 TEMP29 + TAG41>
+ <DEAD TEMP44>
+TAG43
+ <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
+ <EMPUV? TEMP19 - TAG42>
+TAG40
+ <SET TEMP19 %<> (TYPE FALSE)>
+TAG41
+ <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
+ <LSH TEMP19 18 = TEMP19 (TYPE FIX)>
+ <NTHL OL13 1 = TEMP36>
+ <ADD TEMP19 TEMP36 = TEMP19 (TYPE FIX)>
+ <DEAD TEMP36>
+ <ADD TEMP19 BP11 = TEMP19 (TYPE FIX)>
+ <DEAD BP11>
+ <CONS TEMP19 () = TEMP19>
+ <RESTL OL13 1 = TEMP36 (TYPE LIST)>
+ <DEAD OL13>
+ <NTHL TEMP36 1 = TEMP36>
+ <CONS TEMP36 TEMP19 = TEMP19>
+ <DEAD TEMP36>
+ <CHTYPE TEMP19 <TYPE-CODE CONST-W-LOCAL> = BP11>
+ <DEAD TEMP19>
+PHRASE39
+ <TYPE? WL6 <TYPE-CODE FIX> - PHRASE46>
+ <TYPE? SHL7 <TYPE-CODE FIX> - PHRASE46>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH DST8>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = OL13>
+ <FRAME '\1aCONST-LOC>
+ <PUSH BP11>
+ <PUSH 'VALUE>
+ <CALL '\1aCONST-LOC 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LDB>
+ <FRAME '\1aNEXT-AC>
+ <PUSH OL13>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP36 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH BP11>
+ <DEAD BP11>
+ <SCALL '\1aOBJ-VAL 1 = TEMP19 + TAG50 TEMP36>
+ <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP36 VALUE)>
+TAG53
+ <INTGO>
+ <EMPTY? TEMP19 + TAG50>
+ <NTH1 TEMP19 = STACK>
+ <REST1 TEMP19 = TEMP19>
+ <ADD TEMP36 1 = TEMP36 (TYPE FIX)>
+ <JUMP + TAG53>
+TAG50
+ <CALL '\1aOCEMIT TEMP36>
+ <DEAD TEMP36>
+ <FRAME '\1aGET-AC>
+ <PUSH OL13>
+ <CALL '\1aGET-AC 1 = TEMP36>
+ <PUTUV TEMP36 6 'FIX>
+ <DEAD TEMP36>
+ <JUMP + PHRASE172>
+PHRASE46
+ <TYPE? WL6 <TYPE-CODE FIX> - PHRASE56>
+ <TYPE? AC?12 <TYPE-CODE FALSE> + BOOL61>
+ <EQUAL? DST8 WD5 + PHRASE58>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH WD5>
+ <CALL '\1aWILL-DIE? 1 = TEMP36>
+ <TYPE? TEMP36 <TYPE-CODE FALSE> + BOOL61>
+ <DEAD TEMP36>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS WD5 () = STACK>
+ <DEAD WD5>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+ <JUMP + PHRASE58>
+BOOL61
+ <FRAME '\1aASSIGN-AC>
+ <EQUAL? SHL7 DST8 - PHRASE68>
+ <FRAME '\1aIN-AC?>
+ <PUSH SHL7>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE68>
+ <DEAD TEMP29>
+ <SET TEMP29 WD5>
+ <JUMP + PHRASE71>
+PHRASE68
+ <SET TEMP29 DST8>
+PHRASE71
+ <PUSH TEMP29>
+ <DEAD TEMP29>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = OL13>
+ <FRAME '\1aGET-AC>
+ <PUSH OL13>
+ <CALL '\1aGET-AC 1 = TEMP29>
+ <PUTUV TEMP29 6 'FIX>
+ <DEAD TEMP29>
+ <FRAME '\1aNEXT-AC>
+ <PUSH OL13>
+ <DEAD OL13>
+ <CALL '\1aNEXT-AC 1 = OL13>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH OL13>
+ <SET TEMP44 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH WD5>
+ <DEAD WD5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG74 TEMP44>
+ <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP44 VALUE)>
+TAG76
+ <INTGO>
+ <EMPTY? TEMP29 + TAG74>
+ <NTH1 TEMP29 = STACK>
+ <REST1 TEMP29 = TEMP29>
+ <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
+ <JUMP + TAG76>
+TAG74
+ <CALL '\1aOCEMIT TEMP44>
+ <DEAD TEMP44>
+ <JUMP + PHRASE81>
+PHRASE58
+ <TYPE? TAC?9 <TYPE-CODE FALSE> + PHRASE78>
+ <FRAME '\1aGET-AC>
+ <PUSH TAC?9>
+ <CALL '\1aGET-AC 1 = TEMP44>
+ <PUTUV TEMP44 6 'FIX>
+ <DEAD TEMP44>
+ <SET OL13 AC?12>
+ <DEAD AC?12>
+ <FRAME '\1aALTER-AC>
+ <PUSH TAC?9>
+ <DEAD TAC?9>
+ <PUSH DST8>
+ <CALL '\1aALTER-AC 2>
+ <JUMP + PHRASE81>
+PHRASE78
+ <FRAME '\1aASSIGN-AC>
+ <PUSH DST8>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = OL13>
+ <FRAME '\1aGET-AC>
+ <PUSH OL13>
+ <CALL '\1aGET-AC 1 = TEMP44>
+ <PUTUV TEMP44 6 'FIX>
+ <DEAD TEMP44>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH OL13>
+ <DEAD OL13>
+ <CALL '\1aNEXT-AC 1 = OL13>
+ <PUSH OL13>
+ <PUSH AC?12>
+ <DEAD AC?12>
+ <CALL '\1aOCEMIT 3>
+PHRASE81
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVN>
+ <PUSH 'T*>
+ <SET TEMP29 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH SHL7>
+ <SCALL '\1aOBJ-VAL 1 = TEMP44 + TAG88 TEMP29>
+ <LOOP (TEMP44 TYPE VALUE LENGTH) (TEMP29 VALUE)>
+TAG90
+ <INTGO>
+ <EMPTY? TEMP44 + TAG88>
+ <NTH1 TEMP44 = STACK>
+ <REST1 TEMP44 = TEMP44>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG90>
+TAG88
+ <CALL '\1aOCEMIT TEMP29>
+ <DEAD TEMP29>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LSH>
+ <PUSH OL13>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 3>
+ <LSH -1 W15 = TEMP29 (TYPE FIX)>
+ <DEAD W15>
+ <XOR TEMP29 #WORD *777777777777* = W15>
+ <DEAD TEMP29>
+ <GRTR? W15 262143 + PHRASE94 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ANDI>
+ <PUSH OL13>
+ <PUSH W15>
+ <DEAD W15>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE96>
+PHRASE94
+ <FRAME '\1aOCEMIT>
+ <PUSH 'TLZ>
+ <PUSH OL13>
+ <XOR W15 #WORD *777777777777* = TEMP29>
+ <DEAD W15>
+ <LSH TEMP29 -18 = STACK (TYPE FIX)>
+ <DEAD TEMP29>
+ <CALL '\1aOCEMIT 3>
+PHRASE96
+ <EQUAL? DST8 SHL7 - PHRASE172>
+ <DEAD SHL7>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH DST8>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aALTER-AC>
+ <FRAME '\1aGETPROP>
+ <PUSH OL13>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = TEMP29>
+ <PUSH TEMP29>
+ <DEAD TEMP29>
+ <PUSH DST8>
+ <CALL '\1aALTER-AC 2>
+ <SETG 'ACA-ITEM %<>>
+ <SETG 'ACA-BOTH %<>>
+ <SETG 'ACA-AC %<>>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aGETPROP>
+ <PUSH OL13>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = TEMP29>
+ <PUSH TEMP29>
+ <DEAD TEMP29>
+ <CALL '\1aGET-AC 1 = TEMP29>
+ <PUTUV TEMP29 6 'FIX>
+ <DEAD TEMP29>
+ <JUMP + PHRASE172>
+PHRASE56
+ <TYPE? SHL7 <TYPE-CODE FIX> - PHRASE105>
+ <TYPE? TAC?9 <TYPE-CODE FALSE> + PHRASE107>
+ <EQUAL? WD5 DST8 + BOOL109>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH WD5>
+ <CALL '\1aWILL-DIE? 1 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE107>
+ <DEAD TEMP29>
+BOOL109
+ <SET OL13 'O* (TYPE ATOM)>
+ <JUMP + PHRASE111>
+PHRASE107
+ <EQUAL? WL6 DST8 - PHRASE122>
+ <FRAME '\1aIN-AC?>
+ <PUSH WL6>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = OL13>
+ <TYPE? OL13 <TYPE-CODE FALSE> + PHRASE115>
+ <FRAME '\1aNEXT-AC>
+ <PUSH OL13>
+ <CALL '\1aNEXT-AC 1 = IX17>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH OL13>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <FRAME '\1aGET-AC>
+ <PUSH OL13>
+ <CALL '\1aGET-AC 1 = TEMP29>
+ <GVAL 'AC-STAMP = TEMP44>
+ <PUTUV TEMP29 4 TEMP44 (TYPE FIX)>
+ <DEAD TEMP29 TEMP44>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH OL13>
+ <DEAD OL13>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP29>
+ <GVAL 'AC-STAMP = TEMP44>
+ <PUTUV TEMP29 4 TEMP44 (TYPE FIX)>
+ <DEAD TEMP29 TEMP44>
+ <JUMP + PHRASE122>
+PHRASE115
+ <FRAME '\1aIN-AC?>
+ <PUSH WL6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = OL13>
+ <TYPE? OL13 <TYPE-CODE FALSE> + PHRASE122>
+ <SET IX17 OL13>
+ <FRAME '\1aGET-AC>
+ <PUSH OL13>
+ <CALL '\1aGET-AC 1 = TEMP29>
+ <GVAL 'AC-STAMP = TEMP44>
+ <PUTUV TEMP29 4 TEMP44 (TYPE FIX)>
+ <DEAD TEMP29 TEMP44>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH OL13>
+ <DEAD OL13>
+ <CALL '\1aMUNGED-AC 1>
+PHRASE122
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH DST8>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = OL13>
+ <PUSH OL13>
+ <CALL '\1aGET-AC 1 = TEMP29>
+ <PUTUV TEMP29 6 'FIX>
+ <DEAD TEMP29>
+ <FRAME '\1aNEXT-AC>
+ <PUSH OL13>
+ <DEAD OL13>
+ <CALL '\1aNEXT-AC 1 = OL13>
+PHRASE111
+ <LSH -1 SH16 = W15 (TYPE FIX)>
+ <AND W15 #WORD *777777* = TEMP29>
+ <VEQUAL? TEMP29 0 - PHRASE130 (TYPE FIX)>
+ <DEAD TEMP29>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVSI>
+ <PUSH OL13>
+ <LSH W15 -18 = STACK (TYPE FIX)>
+ <DEAD W15>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE134>
+PHRASE130
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRROI>
+ <PUSH OL13>
+ <AND W15 #WORD *777777* = STACK>
+ <DEAD W15>
+ <CALL '\1aOCEMIT 3>
+PHRASE134
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LSH>
+ <PUSH OL13>
+ <SET TEMP44 2 (TYPE FIX)>
+ <TYPE? IX17 <TYPE-CODE FALSE> + PHRASE138>
+ <CONS IX17 () = TEMP29>
+ <DEAD IX17>
+ <CONS TEMP29 () = TEMP29>
+ <JUMP + TAG149>
+PHRASE138
+ <EQUAL? WL6 DST8 + PHRASE140>
+ <FRAME '\1aIN-AC?>
+ <PUSH WL6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = IX17>
+ <TYPE? IX17 <TYPE-CODE FALSE> + PHRASE140>
+ <CONS IX17 () = TEMP29>
+ <DEAD IX17>
+ <CONS TEMP29 () = TEMP29>
+ <JUMP + TAG149>
+PHRASE140
+ <PUSH '@>
+ <SET W15 1 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH WL6>
+ <DEAD WL6>
+ <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG144 W15>
+ <TYPE TEMP29 = TEMP19>
+ <AND TEMP19 7 = TEMP19>
+ <VEQUAL? TEMP19 1 + TAG147>
+ <DEAD TEMP19>
+ <LOOP (TEMP29 TYPE VALUE LENGTH) (W15 VALUE)>
+TAG153
+ <INTGO>
+ <EMPTY? TEMP29 + TAG152>
+ <NTH1 TEMP29 = STACK>
+ <REST1 TEMP29 = TEMP29>
+ <ADD W15 1 = W15 (TYPE FIX)>
+ <JUMP + TAG153>
+TAG152
+ <LIST W15 = TEMP29 (TYPE LIST)>
+ <DEAD W15>
+ <JUMP + TAG149>
+TAG144
+ <SET TEMP29 0>
+TAG147
+ <LOOP>
+TAG150
+ <VEQUAL? W15 0 + TAG149>
+ <POP = TEMP19>
+ <CONS TEMP19 TEMP29 = TEMP29 (TYPE LIST)>
+ <DEAD TEMP19>
+ <SUB W15 1 = W15 (TYPE FIX)>
+ <JUMP + TAG150>
+TAG149
+ <LOOP (TEMP29 VALUE) (TEMP44 VALUE)>
+TAG154
+ <INTGO>
+ <EMPL? TEMP29 + TAG136>
+ <NTHL TEMP29 1 = STACK>
+ <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
+ <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
+ <JUMP + TAG154>
+TAG136
+ <CALL '\1aOCEMIT TEMP44>
+ <DEAD TEMP44>
+ <EQUAL? OL13 'O* - PHRASE157>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ANDCA>
+ <PUSH AC?12>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LSH>
+ <PUSH AC?12>
+ <SUB 0 SH16 = STACK (TYPE FIX)>
+ <DEAD SH16>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH DST8>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aGET-AC>
+ <PUSH TAC?9>
+ <DEAD TAC?9>
+ <CALL '\1aGET-AC 1 = TEMP44>
+ <PUTUV TEMP44 6 'FIX>
+ <PUTUV TEMP44 3 'TYPE (TYPE ATOM)>
+ <PUTUV TEMP44 2 DST8>
+ <PUTUV TEMP44 5 'T>
+ <DEAD TEMP44>
+ <FRAME '\1aGET-AC>
+ <SET OL13 AC?12>
+ <DEAD AC?12>
+ <PUSH OL13>
+ <CALL '\1aGET-AC 1 = TEMP44>
+ <PUTUV TEMP44 5 'T>
+ <PUTUV TEMP44 2 DST8>
+ <PUTUV TEMP44 6 %<>>
+ <PUTUV TEMP44 3 'VALUE (TYPE ATOM)>
+ <DEAD TEMP44>
+ <JUMP + PHRASE172>
+PHRASE157
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ANDCA>
+ <PUSH OL13>
+ <SET TEMP29 2 (TYPE FIX)>
+ <TYPE? AC?12 <TYPE-CODE FALSE> + PHRASE166>
+ <CONS AC?12 () = TEMP44>
+ <DEAD AC?12>
+ <JUMP + PHRASE167>
+PHRASE166
+ <FRAME '\1aOBJ-VAL>
+ <PUSH WD5>
+ <DEAD WD5>
+ <CALL '\1aOBJ-VAL 1 = TEMP44>
+PHRASE167
+ <LOOP (TEMP44 TYPE VALUE LENGTH) (TEMP29 VALUE)>
+TAG169
+ <INTGO>
+ <EMPTY? TEMP44 + TAG164>
+ <NTH1 TEMP44 = STACK>
+ <REST1 TEMP44 = TEMP44>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG169>
+TAG164
+ <CALL '\1aOCEMIT TEMP29>
+ <DEAD TEMP29>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LSH>
+ <PUSH OL13>
+ <SUB 0 SH16 = STACK (TYPE FIX)>
+ <DEAD SH16>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE172>
+PHRASE105
+ <TYPE? AC?12 <TYPE-CODE FALSE> + PHRASE174>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O*>
+ <PUSH AC?12>
+ <DEAD AC?12>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE176>
+PHRASE174
+ <FRAME '\1aCONST-LOC>
+ <PUSH BP11>
+ <PUSH 'VALUE>
+ <CALL '\1aCONST-LOC 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O*>
+ <SET TEMP44 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH BP11>
+ <DEAD BP11>
+ <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG178 TEMP44>
+ <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP44 VALUE)>
+TAG180
+ <INTGO>
+ <EMPTY? TEMP29 + TAG178>
+ <NTH1 TEMP29 = STACK>
+ <REST1 TEMP29 = TEMP29>
+ <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
+ <JUMP + TAG180>
+TAG178
+ <CALL '\1aOCEMIT TEMP44>
+ <DEAD TEMP44>
+PHRASE176
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DPB>
+ <FRAME '\1aIN-AC?>
+ <PUSH SHL7>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP44>
+ <TYPE? TEMP44 <TYPE-CODE FALSE> - PHRASE185>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH SHL7>
+ <DEAD SHL7>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = TEMP44>
+PHRASE185
+ <PUSH TEMP44>
+ <DEAD TEMP44>
+ <SET TEMP29 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <SET BP11 #CONSTANT 32312918016 (TYPE CONSTANT)>
+ <PUSH BP11>
+ <SCALL '\1aOBJ-VAL 1 = TEMP44 + TAG182 TEMP29>
+ <LOOP (TEMP44 TYPE VALUE LENGTH) (TEMP29 VALUE)>
+TAG189
+ <INTGO>
+ <EMPTY? TEMP44 + TAG182>
+ <NTH1 TEMP44 = STACK>
+ <REST1 TEMP44 = TEMP44>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG189>
+TAG182
+ <CALL '\1aOCEMIT TEMP29>
+ <DEAD TEMP29>
+ <FRAME '\1aCONST-LOC>
+ <PUSH BP11>
+ <DEAD BP11>
+ <PUSH 'VALUE>
+ <CALL '\1aCONST-LOC 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DPB>
+ <FRAME '\1aIN-AC?>
+ <PUSH WL6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> - PHRASE195>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH WL6>
+ <DEAD WL6>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = TEMP29>
+PHRASE195
+ <PUSH TEMP29>
+ <DEAD TEMP29>
+ <SET TEMP44 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <SET BP11 #CONSTANT 25870467072 (TYPE CONSTANT)>
+ <PUSH BP11>
+ <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG192 TEMP44>
+ <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP44 VALUE)>
+TAG199
+ <INTGO>
+ <EMPTY? TEMP29 + TAG192>
+ <NTH1 TEMP29 = STACK>
+ <REST1 TEMP29 = TEMP29>
+ <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
+ <JUMP + TAG199>
+TAG192
+ <CALL '\1aOCEMIT TEMP44>
+ <DEAD TEMP44>
+ <FRAME '\1aCONST-LOC>
+ <PUSH BP11>
+ <DEAD BP11>
+ <PUSH 'VALUE>
+ <CALL '\1aCONST-LOC 2>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH DST8>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = OL13>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LDB>
+ <FRAME '\1aNEXT-AC>
+ <PUSH OL13>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aGET-AC>
+ <PUSH OL13>
+ <CALL '\1aGET-AC 1 = TEMP44>
+ <PUTUV TEMP44 6 'FIX>
+ <DEAD TEMP44>
+PHRASE172
+ <EQUAL? DST8 'STACK + TAG208>
+ <DEAD DST8>
+ <RETURN %<>>
+TAG208
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP19 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP29 + TAG209 TEMP19>
+ <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP19 VALUE)>
+TAG211
+ <INTGO>
+ <EMPTY? TEMP29 + TAG209>
+ <NTH1 TEMP29 = STACK>
+ <REST1 TEMP29 = TEMP29>
+ <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
+ <JUMP + TAG211>
+TAG209
+ <CALL '\1aOCEMIT TEMP19>
+ <DEAD TEMP19>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH OL13>
+ <DEAD OL13>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP44>
+ <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE216>
+ <GVAL 'STACK-DEPTH = TEMP19>
+ <ADD TEMP19 2 = TEMP19 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP19>
+ <SET TEMP44 TEMP19>
+ <DEAD TEMP19>
+PHRASE216
+ <RETURN TEMP44>
+ <DEAD TEMP44>
+ <END \1aGETBITS!-MIMOC>\r\r
+#WORD *36703572621*
+<GFCN \1aPUTBITS!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP15 WL6 SHL7 NEW8 OLD9 DST13 (FLIP14 %<>) AC?10 TEMP54 NAC12>
+ <INTGO>
+ <RESTL L5 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = WL6>
+ <DEAD TEMP15>
+ <RESTL L5 1 = TEMP15 (TYPE LIST)>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = SHL7>
+ <DEAD TEMP15>
+ <RESTL L5 1 = TEMP15 (TYPE LIST)>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = NEW8>
+ <DEAD TEMP15>
+ <NTHL L5 1 = OLD9>
+ <NTHL L5 6 = DST13>
+ <EQUAL? WL6 18 - PHRASE17>
+ <DEAD WL6>
+ <EQUAL? SHL7 0 + BOOL19>
+ <EQUAL? SHL7 18 - PHRASE17>
+BOOL19
+ <EQUAL? OLD9 0 + BOOL24>
+ <EQUAL? OLD9 -1 + BOOL24>
+ <EQUAL? SHL7 0 - PHRASE21>
+ <FRAME '\1aIN-AC?>
+ <PUSH OLD9>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL25>
+ <DEAD TEMP15>
+ <FRAME '\1aIN-AC?>
+ <PUSH NEW8>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL24>
+ <DEAD TEMP15>
+BOOL25
+ <EQUAL? NEW8 DST13 - PHRASE21>
+BOOL24
+ <SET FLIP14 'T (TYPE ATOM)>
+ <SET NEW8 OLD9>
+ <DEAD OLD9>
+ <RESTL L5 1 = TEMP15 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = OLD9>
+ <DEAD TEMP15>
+PHRASE21
+ <FRAME '\1aIN-AC?>
+ <PUSH OLD9>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = WL6>
+ <TYPE? WL6 <TYPE-CODE FALSE> + BOOL31>
+ <FRAME '\1aNEXT-AC>
+ <PUSH WL6>
+ <CALL '\1aNEXT-AC 1 = AC?10>
+ <TYPE? AC?10 <TYPE-CODE FALSE> - BOOL30>
+BOOL31
+ <FRAME '\1aIN-AC?>
+ <PUSH OLD9>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC?10>
+ <TYPE? AC?10 <TYPE-CODE FALSE> + BOOL34>
+ <FRAME '\1aGETPROP>
+ <PUSH AC?10>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = WL6>
+ <TYPE? WL6 <TYPE-CODE FALSE> - BOOL30>
+BOOL34
+ <EQUAL? OLD9 DST13 + PHRASE29>
+ <EQUAL? NEW8 0 + PHRASE29>
+ <EQUAL? NEW8 -1 + PHRASE29>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH OLD9>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = WL6>
+ <PUSH WL6>
+ <CALL '\1aNEXT-AC 1 = AC?10>
+ <TYPE? AC?10 <TYPE-CODE FALSE> + PHRASE29>
+BOOL30
+ <EQUAL? OLD9 DST13 + PHRASE50>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH OLD9>
+ <CALL '\1aWILL-DIE? 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE43>
+ <DEAD TEMP15>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS OLD9 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE43
+ <TYPE? WL6 <TYPE-CODE FALSE> + PHRASE47>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH WL6>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH WL6>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <JUMP + PHRASE50>
+PHRASE47
+ <FRAME '\1aFLUSH-AC>
+ <PUSH AC?10>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AC?10>
+ <CALL '\1aMUNGED-AC 1>
+PHRASE50
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aGET-AC>
+ <PUSH WL6>
+ <CALL '\1aGET-AC 1 = TEMP15>
+ <GVAL 'AC-STAMP = TEMP54>
+ <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP54>
+ <PUTUV TEMP15 4 TEMP54 (TYPE FIX)>
+ <DEAD TEMP15 TEMP54>
+ <FRAME '\1aGET-AC>
+ <PUSH AC?10>
+ <CALL '\1aGET-AC 1 = TEMP15>
+ <GVAL 'AC-STAMP = TEMP54>
+ <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP54>
+ <PUTUV TEMP15 4 TEMP54 (TYPE FIX)>
+ <DEAD TEMP54>
+ <PUTUV TEMP15 5 'T>
+ <DEAD TEMP15>
+PHRASE29
+ <TYPE? AC?10 <TYPE-CODE FALSE> - PHRASE66>
+ <FRAME '\1aIN-AC?>
+ <PUSH NEW8>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = NAC12>
+ <TYPE? NAC12 <TYPE-CODE FALSE> - PHRASE66>
+ <EQUAL? NEW8 0 + PHRASE66>
+ <EQUAL? NEW8 -1 + PHRASE66>
+ <TYPE? NEW8 <TYPE-CODE ATOM> - PHRASE61>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH NEW8>
+ <CALL '\1aWILL-DIE? 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE61>
+ <DEAD TEMP15>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH NEW8>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = NAC12>
+ <JUMP + PHRASE66>
+PHRASE61
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH NEW8>
+ <PUSH 'VALUE>
+ <SET NAC12 'T* (TYPE ATOM)>
+ <PUSH NAC12>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE66
+ <VEQUAL? FLIP14 0 + PHRASE69>
+ <EQUAL? SHL7 0 + PHRASE69>
+ <EQUAL? DST13 'STACK - PHRASE72>
+ <TYPE? AC?10 <TYPE-CODE FALSE> + PHRASE74>
+ <FRAME '\1aOCEMIT>
+ <EQUAL? NEW8 0 - PHRASE77>
+ <DEAD NEW8>
+ <SET TEMP15 'HRLZ (TYPE ATOM)>
+ <JUMP + PHRASE78>
+PHRASE77
+ <SET TEMP15 'HRLO (TYPE ATOM)>
+PHRASE78
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH 'O*>
+ <PUSH AC?10>
+ <DEAD AC?10>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE79>
+PHRASE74
+ <FRAME '\1aOCEMIT>
+ <EQUAL? NEW8 0 - PHRASE82>
+ <DEAD NEW8>
+ <SET TEMP15 'HRLZ (TYPE ATOM)>
+ <JUMP + PHRASE83>
+PHRASE82
+ <SET TEMP15 'HRLO (TYPE ATOM)>
+PHRASE83
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH 'O*>
+ <SET TEMP54 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH OLD9>
+ <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG80 TEMP54>
+ <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP54 VALUE)>
+TAG85
+ <INTGO>
+ <EMPTY? TEMP15 + TAG80>
+ <NTH1 TEMP15 = STACK>
+ <REST1 TEMP15 = TEMP15>
+ <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
+ <JUMP + TAG85>
+TAG80
+ <CALL '\1aOCEMIT TEMP54>
+ <DEAD TEMP54>
+PHRASE79
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP15 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP54 + TAG87 TEMP15>
+ <LOOP (TEMP54 TYPE VALUE LENGTH) (TEMP15 VALUE)>
+TAG89
+ <INTGO>
+ <EMPTY? TEMP54 + TAG87>
+ <NTH1 TEMP54 = STACK>
+ <REST1 TEMP54 = TEMP54>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <JUMP + TAG89>
+TAG87
+ <CALL '\1aOCEMIT TEMP15>
+ <DEAD TEMP15>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE245>
+ <DEAD TEMP15>
+ <GVAL 'STACK-DEPTH = TEMP15>
+ <ADD TEMP15 2 = TEMP15 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP15>
+ <DEAD TEMP15>
+ <JUMP + PHRASE245>
+PHRASE72
+ <TYPE? AC?10 <TYPE-CODE FALSE> + PHRASE94>
+ <EQUAL? NEW8 0 - PHRASE96>
+ <DEAD NEW8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLZS>
+ <PUSH 'O*>
+ <PUSH AC?10>
+ <DEAD AC?10>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE98>
+PHRASE96
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLOS>
+ <PUSH 'O*>
+ <PUSH AC?10>
+ <DEAD AC?10>
+ <CALL '\1aOCEMIT 3>
+PHRASE98
+ <EQUAL? DST13 OLD9 + PHRASE245>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH DST13>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aALTER-AC>
+ <PUSH WL6>
+ <PUSH DST13>
+ <CALL '\1aALTER-AC 2>
+ <FRAME '\1aGET-AC>
+ <PUSH WL6>
+ <CALL '\1aGET-AC 1 = TEMP15>
+ <PUTUV TEMP15 6 'FIX>
+ <DEAD TEMP15>
+ <JUMP + PHRASE245>
+PHRASE94
+ <EQUAL? DST13 OLD9 + PHRASE105>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH DST13>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = AC?10>
+ <EQUAL? NEW8 0 - PHRASE108>
+ <DEAD NEW8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLZ>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC?10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP54 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH OLD9>
+ <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG109 TEMP54>
+ <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP54 VALUE)>
+TAG112
+ <INTGO>
+ <EMPTY? TEMP15 + TAG109>
+ <NTH1 TEMP15 = STACK>
+ <REST1 TEMP15 = TEMP15>
+ <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
+ <JUMP + TAG112>
+TAG109
+ <CALL '\1aOCEMIT TEMP54>
+ <DEAD TEMP54>
+ <JUMP + PHRASE114>
+PHRASE108
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLO>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC?10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP15 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH OLD9>
+ <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG115 TEMP15>
+ <LOOP (TEMP54 TYPE VALUE LENGTH) (TEMP15 VALUE)>
+TAG118
+ <INTGO>
+ <EMPTY? TEMP54 + TAG115>
+ <NTH1 TEMP54 = STACK>
+ <REST1 TEMP54 = TEMP54>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <JUMP + TAG118>
+TAG115
+ <CALL '\1aOCEMIT TEMP15>
+ <DEAD TEMP15>
+PHRASE114
+ <FRAME '\1aGET-AC>
+ <PUSH AC?10>
+ <DEAD AC?10>
+ <CALL '\1aGET-AC 1 = TEMP15>
+ <PUTUV TEMP15 6 'FIX>
+ <DEAD TEMP15>
+ <JUMP + PHRASE245>
+PHRASE105
+ <EQUAL? NEW8 0 - PHRASE121>
+ <DEAD NEW8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLZS>
+ <PUSH 'O*>
+ <SET TEMP54 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH OLD9>
+ <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG122 TEMP54>
+ <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP54 VALUE)>
+TAG124
+ <INTGO>
+ <EMPTY? TEMP15 + TAG122>
+ <NTH1 TEMP15 = STACK>
+ <REST1 TEMP15 = TEMP15>
+ <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
+ <JUMP + TAG124>
+TAG122
+ <CALL '\1aOCEMIT TEMP54>
+ <DEAD TEMP54>
+ <JUMP + PHRASE245>
+PHRASE121
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLOS>
+ <PUSH 'O*>
+ <SET TEMP15 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH OLD9>
+ <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG127 TEMP15>
+ <LOOP (TEMP54 TYPE VALUE LENGTH) (TEMP15 VALUE)>
+TAG129
+ <INTGO>
+ <EMPTY? TEMP54 + TAG127>
+ <NTH1 TEMP54 = STACK>
+ <REST1 TEMP54 = TEMP54>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <JUMP + TAG129>
+TAG127
+ <CALL '\1aOCEMIT TEMP15>
+ <DEAD TEMP15>
+ <JUMP + PHRASE245>
+PHRASE69
+ <TYPE? AC?10 <TYPE-CODE FALSE> + PHRASE131>
+ <FRAME '\1aOCEMIT>
+ <TYPE? NEW8 <TYPE-CODE ATOM> - PHRASE134>
+ <EQUAL? SHL7 0 - PHRASE136>
+ <DEAD SHL7>
+ <VEQUAL? FLIP14 0 + PHRASE138>
+ <SET TEMP15 'HLL (TYPE ATOM)>
+ <JUMP + PHRASE145>
+PHRASE138
+ <SET TEMP15 'HRR (TYPE ATOM)>
+ <JUMP + PHRASE145>
+PHRASE136
+ <SET TEMP15 'HRL (TYPE ATOM)>
+ <JUMP + PHRASE145>
+PHRASE134
+ <EQUAL? SHL7 0 - PHRASE141>
+ <DEAD SHL7>
+ <VEQUAL? FLIP14 0 + PHRASE143>
+ <SET TEMP15 'HRLI (TYPE ATOM)>
+ <JUMP + PHRASE145>
+PHRASE143
+ <SET TEMP15 'HRRI (TYPE ATOM)>
+ <JUMP + PHRASE145>
+PHRASE141
+ <SET TEMP15 'HRLI (TYPE ATOM)>
+PHRASE145
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH AC?10>
+ <SET TEMP54 2 (TYPE FIX)>
+ <TYPE? NEW8 <TYPE-CODE ATOM> - PHRASE147>
+ <FRAME '\1aOBJ-VAL>
+ <PUSH NEW8>
+ <DEAD NEW8>
+ <CALL '\1aOBJ-VAL 1 = TEMP15>
+ <JUMP + PHRASE151>
+PHRASE147
+ <VEQUAL? FLIP14 0 + PHRASE149>
+ <DEAD FLIP14>
+ <LSH NEW8 -18 = NEW8 (TYPE FIX)>
+ <CONS NEW8 () = TEMP15>
+ <DEAD NEW8>
+ <JUMP + PHRASE151>
+PHRASE149
+ <AND NEW8 #WORD *777777* = NEW8>
+ <CONS NEW8 () = TEMP15>
+ <DEAD NEW8>
+PHRASE151
+ <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP54 VALUE)>
+TAG152
+ <INTGO>
+ <EMPTY? TEMP15 + TAG132>
+ <NTH1 TEMP15 = STACK>
+ <REST1 TEMP15 = TEMP15>
+ <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
+ <JUMP + TAG152>
+TAG132
+ <CALL '\1aOCEMIT TEMP54>
+ <DEAD TEMP54>
+ <EQUAL? DST13 'STACK - PHRASE155>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP15 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP54 + TAG156 TEMP15>
+ <LOOP (TEMP54 TYPE VALUE LENGTH) (TEMP15 VALUE)>
+TAG158
+ <INTGO>
+ <EMPTY? TEMP54 + TAG156>
+ <NTH1 TEMP54 = STACK>
+ <REST1 TEMP54 = TEMP54>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <JUMP + TAG158>
+TAG156
+ <CALL '\1aOCEMIT TEMP15>
+ <DEAD TEMP15>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH AC?10>
+ <DEAD AC?10>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE245>
+ <DEAD TEMP15>
+ <GVAL 'STACK-DEPTH = NEW8>
+ <ADD NEW8 2 = NEW8 (TYPE FIX)>
+ <SETG 'STACK-DEPTH NEW8>
+ <DEAD NEW8>
+ <JUMP + PHRASE245>
+PHRASE155
+ <EQUAL? DST13 OLD9 + PHRASE245>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH DST13>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aALTER-AC>
+ <PUSH WL6>
+ <PUSH DST13>
+ <CALL '\1aALTER-AC 2>
+ <FRAME '\1aGET-AC>
+ <PUSH WL6>
+ <CALL '\1aGET-AC 1 = NEW8>
+ <PUTUV NEW8 6 'FIX>
+ <DEAD NEW8>
+ <JUMP + PHRASE245>
+PHRASE131
+ <TYPE? NAC12 <TYPE-CODE FALSE> - PHRASE167>
+ <EQUAL? DST13 OLD9 - PHRASE169>
+ <FRAME '\1aOCEMIT>
+ <EQUAL? NEW8 -1 - PHRASE172>
+ <DEAD NEW8>
+ <EQUAL? SHL7 0 - PHRASE174>
+ <DEAD SHL7>
+ <VEQUAL? FLIP14 0 + PHRASE176>
+ <DEAD FLIP14>
+ <SET NEW8 'HRROS (TYPE ATOM)>
+ <JUMP + PHRASE185>
+PHRASE176
+ <SET NEW8 'HLLOS (TYPE ATOM)>
+ <JUMP + PHRASE185>
+PHRASE174
+ <VEQUAL? FLIP14 0 + PHRASE178>
+ <DEAD FLIP14>
+ <SET NEW8 'HRLOS (TYPE ATOM)>
+ <JUMP + PHRASE185>
+PHRASE178
+ <SET NEW8 'HRROS (TYPE ATOM)>
+ <JUMP + PHRASE185>
+PHRASE172
+ <EQUAL? SHL7 0 - PHRASE180>
+ <DEAD SHL7>
+ <VEQUAL? FLIP14 0 + PHRASE182>
+ <DEAD FLIP14>
+ <SET NEW8 'HRRZS (TYPE ATOM)>
+ <JUMP + PHRASE185>
+PHRASE182
+ <SET NEW8 'HLLZS (TYPE ATOM)>
+ <JUMP + PHRASE185>
+PHRASE180
+ <VEQUAL? FLIP14 0 + PHRASE184>
+ <DEAD FLIP14>
+ <SET NEW8 'HRLZS (TYPE ATOM)>
+ <JUMP + PHRASE185>
+PHRASE184
+ <SET NEW8 'HRRZS (TYPE ATOM)>
+PHRASE185
+ <PUSH NEW8>
+ <DEAD NEW8>
+ <PUSH 'O*>
+ <SET TEMP15 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH OLD9>
+ <SCALL '\1aOBJ-VAL 1 = NEW8 + TAG170 TEMP15>
+ <LOOP (NEW8 TYPE VALUE LENGTH) (TEMP15 VALUE)>
+TAG187
+ <INTGO>
+ <EMPTY? NEW8 + TAG170>
+ <NTH1 NEW8 = STACK>
+ <REST1 NEW8 = NEW8>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <JUMP + TAG187>
+TAG170
+ <CALL '\1aOCEMIT TEMP15>
+ <DEAD TEMP15>
+ <JUMP + PHRASE245>
+PHRASE169
+ <EQUAL? DST13 'STACK + PHRASE191>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH DST13>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = NAC12>
+PHRASE191
+ <FRAME '\1aOCEMIT>
+ <EQUAL? NEW8 -1 - PHRASE195>
+ <DEAD NEW8>
+ <EQUAL? SHL7 0 - PHRASE197>
+ <DEAD SHL7>
+ <VEQUAL? FLIP14 0 + PHRASE199>
+ <DEAD FLIP14>
+ <SET TEMP15 'HRRO (TYPE ATOM)>
+ <JUMP + PHRASE208>
+PHRASE199
+ <SET TEMP15 'HLLO (TYPE ATOM)>
+ <JUMP + PHRASE208>
+PHRASE197
+ <VEQUAL? FLIP14 0 + PHRASE201>
+ <DEAD FLIP14>
+ <SET TEMP15 'HRLO (TYPE ATOM)>
+ <JUMP + PHRASE208>
+PHRASE201
+ <SET TEMP15 'HRRO (TYPE ATOM)>
+ <JUMP + PHRASE208>
+PHRASE195
+ <EQUAL? SHL7 0 - PHRASE203>
+ <DEAD SHL7>
+ <VEQUAL? FLIP14 0 + PHRASE205>
+ <DEAD FLIP14>
+ <SET TEMP15 'HRRZ (TYPE ATOM)>
+ <JUMP + PHRASE208>
+PHRASE205
+ <SET TEMP15 'HLLZ (TYPE ATOM)>
+ <JUMP + PHRASE208>
+PHRASE203
+ <VEQUAL? FLIP14 0 + PHRASE207>
+ <DEAD FLIP14>
+ <SET TEMP15 'HRLZ (TYPE ATOM)>
+ <JUMP + PHRASE208>
+PHRASE207
+ <SET TEMP15 'HRRZ (TYPE ATOM)>
+PHRASE208
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <EQUAL? DST13 'STACK - PHRASE210>
+ <SET TEMP15 'O* (TYPE ATOM)>
+ <JUMP + PHRASE211>
+PHRASE210
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC12>
+ <CALL '\1aNEXT-AC 1 = TEMP15>
+PHRASE211
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <SET NEW8 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH OLD9>
+ <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG193 NEW8>
+ <LOOP (TEMP15 TYPE VALUE LENGTH) (NEW8 VALUE)>
+TAG214
+ <INTGO>
+ <EMPTY? TEMP15 + TAG193>
+ <NTH1 TEMP15 = STACK>
+ <REST1 TEMP15 = TEMP15>
+ <ADD NEW8 1 = NEW8 (TYPE FIX)>
+ <JUMP + TAG214>
+TAG193
+ <CALL '\1aOCEMIT NEW8>
+ <DEAD NEW8>
+ <EQUAL? DST13 'STACK - PHRASE217>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP15 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = NEW8 + TAG218 TEMP15>
+ <LOOP (NEW8 TYPE VALUE LENGTH) (TEMP15 VALUE)>
+TAG220
+ <INTGO>
+ <EMPTY? NEW8 + TAG218>
+ <NTH1 NEW8 = STACK>
+ <REST1 NEW8 = NEW8>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <JUMP + TAG220>
+TAG218
+ <CALL '\1aOCEMIT TEMP15>
+ <DEAD TEMP15>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE245>
+ <DEAD TEMP15>
+ <GVAL 'STACK-DEPTH = TEMP15>
+ <ADD TEMP15 2 = TEMP15 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP15>
+ <DEAD TEMP15>
+ <JUMP + PHRASE245>
+PHRASE217
+ <FRAME '\1aGET-AC>
+ <PUSH NAC12>
+ <DEAD NAC12>
+ <CALL '\1aGET-AC 1 = TEMP15>
+ <PUTUV TEMP15 6 'FIX>
+ <DEAD TEMP15>
+ <JUMP + PHRASE245>
+PHRASE167
+ <EQUAL? DST13 'STACK - PHRASE227>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET NEW8 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP15 + TAG228 NEW8>
+ <LOOP (TEMP15 TYPE VALUE LENGTH) (NEW8 VALUE)>
+TAG230
+ <INTGO>
+ <EMPTY? TEMP15 + TAG228>
+ <NTH1 TEMP15 = STACK>
+ <REST1 TEMP15 = TEMP15>
+ <ADD NEW8 1 = NEW8 (TYPE FIX)>
+ <JUMP + TAG230>
+TAG228
+ <CALL '\1aOCEMIT NEW8>
+ <DEAD NEW8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP15 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH OLD9>
+ <SCALL '\1aOBJ-VAL 1 = NEW8 + TAG232 TEMP15>
+ <LOOP (NEW8 TYPE VALUE LENGTH) (TEMP15 VALUE)>
+TAG234
+ <INTGO>
+ <EMPTY? NEW8 + TAG232>
+ <NTH1 NEW8 = STACK>
+ <REST1 NEW8 = NEW8>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <JUMP + TAG234>
+TAG232
+ <CALL '\1aOCEMIT TEMP15>
+ <DEAD TEMP15>
+ <FRAME '\1aOCEMIT>
+ <EQUAL? SHL7 0 - PHRASE238>
+ <DEAD SHL7>
+ <VEQUAL? FLIP14 0 + PHRASE240>
+ <DEAD FLIP14>
+ <SET TEMP15 'HLLM (TYPE ATOM)>
+ <JUMP + PHRASE242>
+PHRASE240
+ <SET TEMP15 'HRRM (TYPE ATOM)>
+ <JUMP + PHRASE242>
+PHRASE238
+ <SET TEMP15 'HRLM (TYPE ATOM)>
+PHRASE242
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH NAC12>
+ <DEAD NAC12>
+ <PUSH (TP*)>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE245>
+ <DEAD TEMP15>
+ <GVAL 'STACK-DEPTH = TEMP15>
+ <ADD TEMP15 2 = TEMP15 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP15>
+ <DEAD TEMP15>
+ <JUMP + PHRASE245>
+PHRASE227
+ <FRAME '\1aOCEMIT>
+ <EQUAL? SHL7 0 - PHRASE248>
+ <DEAD SHL7>
+ <VEQUAL? FLIP14 0 + PHRASE250>
+ <DEAD FLIP14>
+ <SET TEMP15 'HLLM (TYPE ATOM)>
+ <JUMP + PHRASE252>
+PHRASE250
+ <SET TEMP15 'HRRM (TYPE ATOM)>
+ <JUMP + PHRASE252>
+PHRASE248
+ <SET TEMP15 'HRLM (TYPE ATOM)>
+PHRASE252
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH NAC12>
+ <DEAD NAC12>
+ <SET NEW8 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH OLD9>
+ <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG246 NEW8>
+ <LOOP (TEMP15 TYPE VALUE LENGTH) (NEW8 VALUE)>
+TAG254
+ <INTGO>
+ <EMPTY? TEMP15 + TAG246>
+ <NTH1 TEMP15 = STACK>
+ <REST1 TEMP15 = TEMP15>
+ <ADD NEW8 1 = NEW8 (TYPE FIX)>
+ <JUMP + TAG254>
+TAG246
+ <CALL '\1aOCEMIT NEW8>
+ <DEAD NEW8>
+PHRASE245
+ <SET NEW8 WL6>
+ <TYPE? NEW8 <TYPE-CODE FALSE> + PHRASE263>
+ <EQUAL? OLD9 DST13 - TAG259>
+ <DEAD OLD9>
+ <RETURN %<>>
+TAG259
+ <EQUAL? DST13 'STACK - TAG260>
+ <RETURN %<>>
+TAG260
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH DST13>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aALTER-AC>
+ <PUSH WL6>
+ <DEAD WL6>
+ <PUSH DST13>
+ <DEAD DST13>
+ <CALL '\1aALTER-AC 2 = NEW8>
+ <RETURN NEW8>
+ <DEAD NEW8>
+PHRASE17
+ <FRAME '\1aRPUTBITS>
+ <PUSH L5>
+ <DEAD L5>
+ <CALL '\1aRPUTBITS 1 = NEW8>
+PHRASE263
+ <RETURN NEW8>
+ <DEAD NEW8>
+ <END \1aPUTBITS!-MIMOC>
+#WORD *37762402155*
+ <GFCN \1aRPUTBITS ("VALUE" <OR FALSE FIX AC> LIST) L4>
+ <TEMP WD5 TEMP22 WL6 SHL7 NEW8 DST9 (TAC?10 %<>) (AC?11 %<>) (OL14 %<>) (AC15 %<>) (W16 0) (SH17 0) (VT19 %<>) (WAS-TYPED20 %<>) (DST-IN-O1-21 %<>) TEMP38 TEMP89>
+ <INTGO>
+ <NTHL L4 1 = WD5>
+ <RESTL L4 1 = TEMP22 (TYPE LIST)>
+ <NTHL TEMP22 1 = WL6>
+ <DEAD TEMP22>
+ <RESTL L4 1 = TEMP22 (TYPE LIST)>
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <NTHL TEMP22 1 = SHL7>
+ <DEAD TEMP22>
+ <RESTL L4 1 = TEMP22 (TYPE LIST)>
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <NTHL TEMP22 1 = NEW8>
+ <DEAD TEMP22>
+ <NTHL L4 6 = DST9>
+ <DEAD L4>
+ <TYPE? WL6 <TYPE-CODE FIX> - PHRASE24>
+ <SET W16 WL6>
+PHRASE24
+ <TYPE? SHL7 <TYPE-CODE FIX> - PHRASE26>
+ <SET SH17 SHL7>
+PHRASE26
+ <TYPE? WD5 <TYPE-CODE ATOM> - PHRASE28>
+ <FRAME '\1aOBJ-LOC>
+ <PUSH WD5>
+ <PUSH 1>
+ <CALL '\1aOBJ-LOC 2 = OL14>
+ <FRAME '\1aIN-AC?>
+ <PUSH WD5>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TAC?10>
+ <FRAME '\1aIN-AC?>
+ <PUSH WD5>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC?11>
+ <FRAME '\1aVAR-TYPED?>
+ <PUSH WD5>
+ <CALL '\1aVAR-TYPED? 1 = VT19>
+ <JUMP + PHRASE49>
+PHRASE28
+ <FRAME '\1aPRIMTYPE>
+ <PUSH WD5>
+ <CALL '\1aPRIMTYPE 1 = TEMP22>
+ <VEQUAL? TEMP22 'FIX + PHRASE33>
+ <DEAD TEMP22>
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'BAD-ARG-TO-PUTBITS>
+ <PUSH WD5>
+ <CALL '\1aMIMOCERR 2>
+ <JUMP + PHRASE49>
+PHRASE33
+ <EQUAL? DST9 'STACK - PHRASE36>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP38 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP22 + TAG37 TEMP38>
+ <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP38 VALUE)>
+TAG40
+ <INTGO>
+ <EMPTY? TEMP22 + TAG37>
+ <NTH1 TEMP22 = STACK>
+ <REST1 TEMP22 = TEMP22>
+ <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
+ <JUMP + TAG40>
+TAG37
+ <CALL '\1aOCEMIT TEMP38>
+ <DEAD TEMP38>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP22 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <CHTYPE WD5 <TYPE-CODE CONSTANT> = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG42 TEMP22>
+ <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP22 VALUE)>
+TAG44
+ <INTGO>
+ <EMPTY? TEMP38 + TAG42>
+ <NTH1 TEMP38 = STACK>
+ <REST1 TEMP38 = TEMP38>
+ <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
+ <JUMP + TAG44>
+TAG42
+ <CALL '\1aOCEMIT TEMP22>
+ <DEAD TEMP22>
+ <FRAME '\1aCONST-LOC>
+ <CHTYPE WD5 <TYPE-CODE CONSTANT> = STACK>
+ <PUSH 'VALUE>
+ <CALL '\1aCONST-LOC 2>
+ <GVAL 'WINNING-VICTIM = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE49>
+ <DEAD TEMP22>
+ <GVAL 'STACK-DEPTH = TEMP22>
+ <ADD TEMP22 2 = TEMP22 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP22>
+ <DEAD TEMP22>
+ <JUMP + PHRASE49>
+PHRASE36
+ <EQUAL? DST9 NEW8 + BOOL52>
+ <EQUAL? DST9 'SHL + BOOL52>
+ <EQUAL? DST9 WL6 - PHRASE51>
+BOOL52
+ <SET DST-IN-O1-21 'T (TYPE ATOM)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP38 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH DST9>
+ <SCALL '\1aOBJ-VAL 1 = TEMP22 + TAG53 TEMP38>
+ <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP38 VALUE)>
+TAG55
+ <INTGO>
+ <EMPTY? TEMP22 + TAG53>
+ <NTH1 TEMP22 = STACK>
+ <REST1 TEMP22 = TEMP22>
+ <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
+ <JUMP + TAG55>
+TAG53
+ <CALL '\1aOCEMIT TEMP38>
+ <DEAD TEMP38>
+PHRASE51
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH DST9>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = TAC?10>
+ <PUSH TAC?10>
+ <CALL '\1aNEXT-AC 1 = AC?11>
+ <FRAME '\1aLOAD-AC>
+ <PUSH WD5>
+ <DEAD WD5>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <PUSH %<>>
+ <FRAME '\1aGET-AC>
+ <PUSH AC?11>
+ <CALL '\1aGET-AC 1 = STACK>
+ <CALL '\1aLOAD-AC 5>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH DST9>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aALTER-AC>
+ <PUSH TAC?10>
+ <PUSH DST9>
+ <CALL '\1aALTER-AC 2>
+ <SET WD5 DST9>
+PHRASE49
+ <LSH SH17 30 = TEMP38 (TYPE FIX)>
+ <DEAD SH17>
+ <LSH W16 24 = TEMP22 (TYPE FIX)>
+ <DEAD W16>
+ <OR TEMP38 TEMP22 = W16>
+ <DEAD TEMP38 TEMP22>
+ <TYPE? WD5 <TYPE-CODE ATOM> - PHRASE71>
+ <EQUAL? WD5 DST9 - BOOL66>
+ <TYPE? VT19 <TYPE-CODE FALSE> - PHRASE71>
+ <TYPE? AC?11 <TYPE-CODE FALSE> - PHRASE71>
+BOOL66
+ <FRAME '\1aLOAD-AC>
+ <PUSH WD5>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TAC?10>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TAC?10>
+ <CALL '\1aNEXT-AC 1 = AC?11>
+ <EQUAL? WD5 DST9 + PHRASE71>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH WD5>
+ <CALL '\1aWILL-DIE? 1 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE71>
+ <DEAD TEMP22>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH TAC?10>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+PHRASE71
+ <EQUAL? WD5 DST9 + PHRASE81>
+ <TYPE? TAC?10 <TYPE-CODE FALSE> + PHRASE78>
+ <FRAME '\1aGET-AC>
+ <PUSH TAC?10>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <NTHUV TEMP22 6 = WAS-TYPED20>
+ <DEAD TEMP22>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH TAC?10>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <JUMP + PHRASE81>
+PHRASE78
+ <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE81>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AC?11>
+ <CALL '\1aMUNGED-AC 1>
+PHRASE81
+ <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE84>
+ <GVAL 'ACS = TEMP22>
+ <TYPE AC?11 = TEMP38>
+ <EMPUV? TEMP22 + TAG85>
+ <LOOP (AC?11 VALUE) (TEMP38 VALUE) (TEMP22 LENGTH VALUE)>
+TAG87
+ <NTHUV TEMP22 1 = TEMP89>
+ <TYPE? TEMP89 TEMP38 - TAG88>
+ <VEQUAL? TEMP89 AC?11 + TAG86>
+ <DEAD TEMP89>
+TAG88
+ <RESTUV TEMP22 1 = TEMP22 (TYPE VECTOR)>
+ <EMPUV? TEMP22 - TAG87>
+TAG85
+ <SET TEMP22 %<> (TYPE FALSE)>
+TAG86
+ <NTHUV TEMP22 2 = TEMP89>
+ <DEAD TEMP22>
+PHRASE84
+ <TYPE? WD5 <TYPE-CODE FIX> - PHRASE91>
+ <EQUAL? DST9 'STACK - PHRASE91>
+ <GVAL 'TP* = TEMP22>
+ <LSH TEMP22 18 = TEMP22 (TYPE FIX)>
+ <OR W16 TEMP22 = TEMP38>
+ <DEAD W16 TEMP22>
+ <CHTYPE TEMP38 <TYPE-CODE CONSTANT> = W16>
+ <DEAD TEMP38>
+ <JUMP + PHRASE94>
+PHRASE91
+ <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE93>
+ <OR W16 TEMP89 = TEMP38>
+ <DEAD W16 TEMP89>
+ <CHTYPE TEMP38 <TYPE-CODE CONSTANT> = W16>
+ <DEAD TEMP38>
+ <JUMP + PHRASE94>
+PHRASE93
+ <TYPE? OL14 <TYPE-CODE FALSE> + PHRASE94>
+ <RESTL OL14 1 = TEMP38 (TYPE LIST)>
+ <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
+ <NTHL TEMP38 1 = TEMP38>
+ <NTHL TEMP38 1 = TEMP38>
+ <GVAL 'ACS = TEMP22>
+ <TYPE TEMP38 = TEMP89>
+ <EMPUV? TEMP22 + TAG95>
+ <LOOP (TEMP38 VALUE) (TEMP89 VALUE) (TEMP22 LENGTH VALUE)>
+TAG97
+ <NTHUV TEMP22 1 = SH17>
+ <TYPE? SH17 TEMP89 - TAG98>
+ <VEQUAL? SH17 TEMP38 + TAG96>
+ <DEAD SH17>
+TAG98
+ <RESTUV TEMP22 1 = TEMP22 (TYPE VECTOR)>
+ <EMPUV? TEMP22 - TAG97>
+TAG95
+ <SET TEMP22 %<> (TYPE FALSE)>
+TAG96
+ <NTHUV TEMP22 2 = TEMP22 (TYPE FIX)>
+ <LSH TEMP22 18 = TEMP22 (TYPE FIX)>
+ <NTHL OL14 1 = TEMP89>
+ <ADD TEMP22 TEMP89 = TEMP22 (TYPE FIX)>
+ <DEAD TEMP89>
+ <ADD TEMP22 W16 = TEMP22 (TYPE FIX)>
+ <DEAD W16>
+ <CONS TEMP22 () = TEMP22>
+ <RESTL OL14 1 = TEMP89 (TYPE LIST)>
+ <DEAD OL14>
+ <NTHL TEMP89 1 = TEMP89>
+ <CONS TEMP89 TEMP22 = TEMP22>
+ <DEAD TEMP89>
+ <CHTYPE TEMP22 <TYPE-CODE CONST-W-LOCAL> = W16>
+ <DEAD TEMP22>
+PHRASE94
+ <TYPE? WL6 <TYPE-CODE FIX> - PHRASE101>
+ <TYPE? SHL7 <TYPE-CODE FIX> - PHRASE101>
+ <TYPE? NEW8 <TYPE-CODE ATOM> - BOOL105>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH NEW8>
+ <CALL '\1aWILL-DIE? 1 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE104>
+ <DEAD TEMP22>
+ <FRAME '\1aIN-AC?>
+ <PUSH NEW8>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC15>
+ <TYPE? AC15 <TYPE-CODE FALSE> - PHRASE104>
+BOOL105
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH NEW8>
+ <DEAD NEW8>
+ <PUSH 'VALUE>
+ <SET AC15 'T* (TYPE ATOM)>
+ <PUSH AC15>
+ <CALL '\1aGET-INTO-ACS 3>
+ <JUMP + PHRASE112>
+PHRASE104
+ <VEQUAL? DST-IN-O1-21 0 + PHRASE110>
+ <DEAD DST-IN-O1-21>
+ <EQUAL? NEW8 DST9 - PHRASE110>
+ <SET AC15 'O1* (TYPE ATOM)>
+ <JUMP + PHRASE112>
+PHRASE110
+ <TYPE? AC15 <TYPE-CODE FALSE> - PHRASE112>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH NEW8>
+ <DEAD NEW8>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = AC15>
+PHRASE112
+ <FRAME '\1aCONST-LOC>
+ <PUSH W16>
+ <PUSH 'VALUE>
+ <CALL '\1aCONST-LOC 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DPB>
+ <PUSH AC15>
+ <DEAD AC15>
+ <SET TEMP89 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH W16>
+ <DEAD W16>
+ <SCALL '\1aOBJ-VAL 1 = TEMP22 + TAG116 TEMP89>
+ <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP89 VALUE)>
+TAG118
+ <INTGO>
+ <EMPTY? TEMP22 + TAG116>
+ <NTH1 TEMP22 = STACK>
+ <REST1 TEMP22 = TEMP22>
+ <ADD TEMP89 1 = TEMP89 (TYPE FIX)>
+ <JUMP + TAG118>
+TAG116
+ <CALL '\1aOCEMIT TEMP89>
+ <DEAD TEMP89>
+ <JUMP + PHRASE168>
+PHRASE101
+ <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE122>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O*>
+ <PUSH AC?11>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE124>
+PHRASE122
+ <FRAME '\1aCONST-LOC>
+ <PUSH W16>
+ <PUSH 'VALUE>
+ <CALL '\1aCONST-LOC 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O*>
+ <SET TEMP22 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH W16>
+ <DEAD W16>
+ <SCALL '\1aOBJ-VAL 1 = TEMP89 + TAG126 TEMP22>
+ <LOOP (TEMP89 TYPE VALUE LENGTH) (TEMP22 VALUE)>
+TAG128
+ <INTGO>
+ <EMPTY? TEMP89 + TAG126>
+ <NTH1 TEMP89 = STACK>
+ <REST1 TEMP89 = TEMP89>
+ <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
+ <JUMP + TAG128>
+TAG126
+ <CALL '\1aOCEMIT TEMP22>
+ <DEAD TEMP22>
+PHRASE124
+ <TYPE? SHL7 <TYPE-CODE FIX> + PHRASE131>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DPB>
+ <FRAME '\1aIN-AC?>
+ <PUSH SHL7>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE137>
+ <EQUAL? SHL7 DST9 - PHRASE135>
+ <VEQUAL? DST-IN-O1-21 0 + PHRASE135>
+ <SET TEMP22 'O1* (TYPE ATOM)>
+ <JUMP + PHRASE137>
+PHRASE135
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH SHL7>
+ <DEAD SHL7>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = TEMP22>
+PHRASE137
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <SET TEMP89 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <SET W16 #CONSTANT 32312918016 (TYPE CONSTANT)>
+ <PUSH W16>
+ <SCALL '\1aOBJ-VAL 1 = TEMP22 + TAG132 TEMP89>
+ <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP89 VALUE)>
+TAG141
+ <INTGO>
+ <EMPTY? TEMP22 + TAG132>
+ <NTH1 TEMP22 = STACK>
+ <REST1 TEMP22 = TEMP22>
+ <ADD TEMP89 1 = TEMP89 (TYPE FIX)>
+ <JUMP + TAG141>
+TAG132
+ <CALL '\1aOCEMIT TEMP89>
+ <DEAD TEMP89>
+ <FRAME '\1aCONST-LOC>
+ <PUSH W16>
+ <DEAD W16>
+ <PUSH 'VALUE>
+ <CALL '\1aCONST-LOC 2>
+PHRASE131
+ <TYPE? WL6 <TYPE-CODE FIX> + PHRASE145>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DPB>
+ <FRAME '\1aIN-AC?>
+ <PUSH WL6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP89>
+ <TYPE? TEMP89 <TYPE-CODE FALSE> - PHRASE151>
+ <EQUAL? WL6 DST9 - PHRASE149>
+ <VEQUAL? DST-IN-O1-21 0 + PHRASE149>
+ <SET TEMP89 'O1* (TYPE ATOM)>
+ <JUMP + PHRASE151>
+PHRASE149
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH WL6>
+ <DEAD WL6>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = TEMP89>
+PHRASE151
+ <PUSH TEMP89>
+ <DEAD TEMP89>
+ <SET TEMP22 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <SET W16 #CONSTANT 25870467072 (TYPE CONSTANT)>
+ <PUSH W16>
+ <SCALL '\1aOBJ-VAL 1 = TEMP89 + TAG146 TEMP22>
+ <LOOP (TEMP89 TYPE VALUE LENGTH) (TEMP22 VALUE)>
+TAG155
+ <INTGO>
+ <EMPTY? TEMP89 + TAG146>
+ <NTH1 TEMP89 = STACK>
+ <REST1 TEMP89 = TEMP89>
+ <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
+ <JUMP + TAG155>
+TAG146
+ <CALL '\1aOCEMIT TEMP22>
+ <DEAD TEMP22>
+ <FRAME '\1aCONST-LOC>
+ <PUSH W16>
+ <DEAD W16>
+ <PUSH 'VALUE>
+ <CALL '\1aCONST-LOC 2>
+PHRASE145
+ <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE162>
+ <FRAME '\1aGET-AC>
+ <PUSH AC?11>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <GVAL 'AC-STAMP = TEMP89>
+ <ADD TEMP89 1 = TEMP89 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP89>
+ <PUTUV TEMP22 4 TEMP89 (TYPE FIX)>
+ <DEAD TEMP22 TEMP89>
+ <TYPE? TAC?10 <TYPE-CODE FALSE> + PHRASE162>
+ <FRAME '\1aGET-AC>
+ <PUSH TAC?10>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <GVAL 'AC-STAMP = TEMP89>
+ <PUTUV TEMP22 4 TEMP89 (TYPE FIX)>
+ <DEAD TEMP22 TEMP89>
+PHRASE162
+ <EQUAL? NEW8 DST9 - PHRASE165>
+ <VEQUAL? DST-IN-O1-21 0 + PHRASE165>
+ <DEAD DST-IN-O1-21>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DPB>
+ <PUSH 'O1*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE168>
+PHRASE165
+ <FRAME '\1aLOAD-AC>
+ <PUSH NEW8>
+ <DEAD NEW8>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = AC15>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DPB>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC15>
+ <DEAD AC15>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+PHRASE168
+ <EQUAL? DST9 'STACK - PHRASE173>
+ <TYPE? WD5 <TYPE-CODE ATOM> + TAG176>
+ <DEAD WD5>
+ <RETURN %<>>
+TAG176
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP38 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP89 + TAG178 TEMP38>
+ <LOOP (TEMP89 TYPE VALUE LENGTH) (TEMP38 VALUE)>
+TAG180
+ <INTGO>
+ <EMPTY? TEMP89 + TAG178>
+ <NTH1 TEMP89 = STACK>
+ <REST1 TEMP89 = TEMP89>
+ <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
+ <JUMP + TAG180>
+TAG178
+ <CALL '\1aOCEMIT TEMP38>
+ <DEAD TEMP38>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH AC?11>
+ <DEAD AC?11>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE199>
+ <GVAL 'STACK-DEPTH = TEMP38>
+ <ADD TEMP38 2 = TEMP38 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP38>
+ <RETURN TEMP38>
+ <DEAD TEMP38>
+PHRASE173
+ <EQUAL? WD5 DST9 + PHRASE185>
+ <DEAD WD5>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH DST9>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aGET-AC>
+ <PUSH TAC?10>
+ <CALL '\1aGET-AC 1 = TEMP38>
+ <PUTUV TEMP38 3 'TYPE (TYPE ATOM)>
+ <PUTUV TEMP38 2 DST9>
+ <PUTUV TEMP38 5 'T>
+ <DEAD TEMP38>
+ <TYPE? WAS-TYPED20 <TYPE-CODE FALSE> + PHRASE189>
+ <DEAD WAS-TYPED20>
+ <FRAME '\1aGET-AC>
+ <PUSH TAC?10>
+ <DEAD TAC?10>
+ <CALL '\1aGET-AC 1 = TEMP38>
+ <PUTUV TEMP38 6 'FIX>
+ <DEAD TEMP38>
+PHRASE189
+ <FRAME '\1aGET-AC>
+ <SET AC15 AC?11>
+ <DEAD AC?11>
+ <PUSH AC15>
+ <DEAD AC15>
+ <CALL '\1aGET-AC 1 = TEMP38>
+ <PUTUV TEMP38 5 'T>
+ <PUTUV TEMP38 2 DST9>
+ <DEAD DST9>
+ <PUTUV TEMP38 6 %<>>
+ <PUTUV TEMP38 3 'VALUE (TYPE ATOM)>
+ <RETURN TEMP38>
+ <DEAD TEMP38>
+PHRASE185
+ <SET TEMP22 AC?11>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE199>
+ <TYPE? TAC?10 <TYPE-CODE FALSE> - PHRASE194>
+ <FRAME '\1aGETPROP>
+ <PUSH AC?11>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = TAC?10>
+ <FRAME '\1aGET-AC>
+ <PUSH TAC?10>
+ <CALL '\1aGET-AC 1 = TEMP38>
+ <PUTUV TEMP38 3 'TYPE (TYPE ATOM)>
+ <PUTUV TEMP38 2 DST9>
+ <DEAD DST9>
+ <PUTUV TEMP38 5 'T>
+ <DEAD TEMP38>
+PHRASE194
+ <FRAME '\1aGET-AC>
+ <PUSH AC?11>
+ <DEAD AC?11>
+ <CALL '\1aGET-AC 1 = TEMP38>
+ <PUTUV TEMP38 5 'T>
+ <DEAD TEMP38>
+ <TYPE? VT19 <TYPE-CODE FALSE> + TAG200>
+ <DEAD VT19>
+ <RETURN %<>>
+TAG200
+ <FRAME '\1aGET-AC>
+ <PUSH TAC?10>
+ <DEAD TAC?10>
+ <CALL '\1aGET-AC 1 = TEMP38>
+ <PUTUV TEMP38 6 'FIX>
+ <SET TEMP22 TEMP38>
+ <DEAD TEMP38>
+PHRASE199
+ <RETURN TEMP22>
+ <DEAD TEMP22>
+ <END \1aRPUTBITS>
+
+#WORD *2773640507*
+<GFCN \1aDISPATCH!-MIMOC ("VALUE" ANY LIST) L4>
+ <TEMP VAR5 TEMP18 (DF9 %<>) DLBL10 LL12:LIST TEMP22:FIX TEMP3:LBIND TEMP31 TEMP29 TEMP34 TEMP33 LBL35 LBX37 DELBL7>
+ <INTGO>
+ <NTHL L4 1 = VAR5>
+ <RESTL L4 1 = TEMP18 (TYPE LIST)>
+ <NTHL TEMP18 1 = TEMP18 (TYPE FIX)>
+ <FRAME '\1aGENLBL>
+ <PUSH "DISP">
+ <CALL '\1aGENLBL 1 = DLBL10>
+ <GEN-LVAL 'MIML = LL12>
+ <LENL L4 = TEMP22 (TYPE FIX)>
+ <SUB TEMP22 2 = TEMP22 (TYPE FIX)>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'DISP-L 'LIST 'FIX ()>
+ <SET TEMP31 () (TYPE LIST)>
+ <SET TEMP29 () (TYPE LIST)>
+ <RESTL L4 1 = TEMP34 (TYPE LIST)>
+ <DEAD L4>
+ <RESTL TEMP34 1 = TEMP33 (TYPE LIST)>
+ <DEAD TEMP34>
+ <LOOP>
+MAP24
+ <INTGO>
+ <EMPL? TEMP33 + MAPAP27>
+ <NTHL TEMP33 1 = LBL35>
+ <FRAME '\1aFIND-LABEL>
+ <PUSH LBL35>
+ <CALL '\1aFIND-LABEL 1 = TEMP34>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE39>
+ <NTHUV TEMP34 3 = TEMP34>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE39>
+ <DEAD TEMP34>
+ <FRAME '\1aFIND-LABEL>
+ <FRAME '\1aGENLBL>
+ <PUSH "LOOPD">
+ <CALL '\1aGENLBL 1 = LBX37>
+ <PUSH LBX37>
+ <CALL '\1aFIND-LABEL 1 = TEMP34>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE43>
+ <DEAD TEMP34>
+ <FRAME '\1aMAKE-LABEL>
+ <PUSH LBX37>
+ <PUSH %<>>
+ <PUSH ()>
+ <CALL '\1aMAKE-LABEL 3>
+PHRASE43
+ <CONS LBX37 () = TEMP34>
+ <DEAD LBX37>
+ <CONS LBL35 TEMP34 = TEMP34>
+ <DEAD LBL35>
+ <JUMP + PHRASE47>
+PHRASE39
+ <CONS LBL35 () = TEMP34>
+ <CONS LBL35 TEMP34 = TEMP34>
+ <DEAD LBL35>
+PHRASE47
+ <CONS TEMP34 () = TEMP34 (TYPE LIST)>
+ <EMPL? TEMP31 - TAG48>
+ <SET TEMP31 TEMP34 (TYPE LIST)>
+ <JUMP + TAG49>
+TAG48
+ <PUTREST TEMP29 TEMP34>
+ <DEAD TEMP29>
+TAG49
+ <SET TEMP29 TEMP34 (TYPE LIST)>
+ <DEAD TEMP34>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <JUMP + MAP24>
+MAPAP27
+ <SET TEMP29 () (TYPE LIST)>
+ <SET TEMP34 () (TYPE LIST)>
+ <SET TEMP33 TEMP31 (TYPE LIST)>
+ <LOOP>
+MAP51
+ <INTGO>
+ <EMPL? TEMP33 + MAPAP54>
+ <NTHL TEMP33 1 = LBL35>
+ <RESTL LBL35 1 = LBL35 (TYPE LIST)>
+ <NTHL LBL35 1 = LBL35>
+ <CONS LBL35 () = LBL35 (TYPE LIST)>
+ <EMPL? TEMP29 - TAG61>
+ <SET TEMP29 LBL35 (TYPE LIST)>
+ <JUMP + TAG62>
+TAG61
+ <PUTREST TEMP34 LBL35>
+ <DEAD TEMP34>
+TAG62
+ <SET TEMP34 LBL35 (TYPE LIST)>
+ <DEAD LBL35>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <JUMP + MAP51>
+MAPAP54
+ <NTHR 'DISP-L 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP33 1 TEMP29 (RECORD-TYPE LBIND)>
+ <DEAD TEMP33 TEMP29>
+ <LOOP>
+AGAIN67
+ <INTGO>
+ <RESTL LL12 1 = LL12 (TYPE LIST)>
+ <EMPL? LL12 + EXIT65 (TYPE LIST)>
+ <NTHL LL12 1 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FORM> - PHRASE69>
+ <EMPL? TEMP29 + EXIT65 (TYPE FORM)>
+ <NTHL TEMP29 1 = LBL35>
+ <EQUAL? LBL35 'DEAD - EXIT65>
+ <DEAD LBL35>
+PHRASE69
+ <TYPE? TEMP29 <TYPE-CODE ATOM> - AGAIN67>
+ <SET DELBL7 TEMP29>
+ <DEAD TEMP29>
+ <SET DF9 'T (TYPE ATOM)>
+EXIT65
+ <FRAME '\1aIN-AC?>
+ <PUSH VAR5>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE75>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP29>
+ <DEAD TEMP29>
+ <CALL '\1aNEXT-AC 1 = TEMP29>
+ <JUMP + PHRASE79>
+PHRASE75
+ <FRAME '\1aIN-AC?>
+ <PUSH VAR5>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> - PHRASE79>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH VAR5>
+ <DEAD VAR5>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TEMP29>
+ <PUSH TEMP29>
+ <DEAD TEMP29>
+ <CALL '\1aNEXT-AC 1 = TEMP29>
+PHRASE79
+ <VEQUAL? DF9 0 - PHRASE86>
+ <FRAME '\1aGENLBL>
+ <PUSH "DEFAULT">
+ <CALL '\1aGENLBL 1 = DELBL7>
+ <FRAME '\1aFIND-LABEL>
+ <PUSH DELBL7>
+ <CALL '\1aFIND-LABEL 1 = LBL35>
+ <TYPE? LBL35 <TYPE-CODE FALSE> - PHRASE86>
+ <DEAD LBL35>
+ <FRAME '\1aMAKE-LABEL>
+ <PUSH DELBL7>
+ <PUSH %<>>
+ <PUSH ()>
+ <CALL '\1aMAKE-LABEL 3>
+PHRASE86
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <PUSH DELBL7>
+ <PUSH %<>>
+ <CALL '\1aLABEL-UPDATE-ACS 2>
+ <LESS? TEMP18 0 + PHRASE91 (TYPE FIX)>
+ <GRTR? TEMP18 1 + PHRASE91 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <VEQUAL? TEMP18 0 - PHRASE99 (TYPE FIX)>
+ <SET LBL35 'JUMPL (TYPE ATOM)>
+ <JUMP + PHRASE102>
+PHRASE99
+ <SET LBL35 'JUMPLE (TYPE ATOM)>
+PHRASE102
+ <PUSH LBL35>
+ <DEAD LBL35>
+ <PUSH TEMP29>
+ <FRAME '\1aXJUMP>
+ <PUSH DELBL7>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAILE>
+ <PUSH TEMP29>
+ <ADD TEMP22 TEMP18 = LBL35 (TYPE FIX)>
+ <DEAD TEMP22>
+ <ADD LBL35 -1 = STACK (TYPE FIX)>
+ <DEAD LBL35>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <PUSH 'O*>
+ <FRAME '\1aXJUMP>
+ <PUSH DELBL7>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE107>
+PHRASE91
+ <GRTR? TEMP18 0 - PHRASE109 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAIL>
+ <PUSH TEMP29>
+ <PUSH TEMP18>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE113>
+PHRASE109
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAML>
+ <PUSH TEMP29>
+ <SET VAR5 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH TEMP18>
+ <SCALL '\1aOBJ-VAL 1 = LBL35 + TAG114 VAR5>
+ <LOOP (LBL35 TYPE VALUE LENGTH) (VAR5 VALUE)>
+TAG117
+ <INTGO>
+ <EMPTY? LBL35 + TAG114>
+ <NTH1 LBL35 = STACK>
+ <REST1 LBL35 = LBL35>
+ <ADD VAR5 1 = VAR5 (TYPE FIX)>
+ <JUMP + TAG117>
+TAG114
+ <CALL '\1aOCEMIT VAR5>
+ <DEAD VAR5>
+PHRASE113
+ <ADD TEMP22 TEMP18 = VAR5 (TYPE FIX)>
+ <DEAD TEMP22>
+ <ADD VAR5 -1 = TEMP22 (TYPE FIX)>
+ <DEAD VAR5>
+ <GRTR? TEMP22 0 - PHRASE120 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAILE>
+ <PUSH TEMP29>
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE124>
+PHRASE120
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAMLE>
+ <PUSH TEMP29>
+ <SET LBL35 2 (TYPE FIX)>
+ <SFRAME 'OBJ-CAL>
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <SCALL '\1aOBJ-CAL 1 = VAR5 + TAG125 LBL35>
+ <LOOP (VAR5 TYPE VALUE LENGTH) (LBL35 VALUE)>
+TAG127
+ <INTGO>
+ <EMPTY? VAR5 + TAG125>
+ <NTH1 VAR5 = STACK>
+ <REST1 VAR5 = VAR5>
+ <ADD LBL35 1 = LBL35 (TYPE FIX)>
+ <JUMP + TAG127>
+TAG125
+ <CALL '\1aOCEMIT LBL35>
+ <DEAD LBL35>
+PHRASE124
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <PUSH 'O*>
+ <FRAME '\1aXJUMP>
+ <PUSH DELBL7>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+PHRASE107
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XMOVEI>
+ <PUSH 'O1*>
+ <FRAME '\1aXJUMP>
+ <PUSH DLBL10>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <PUSH 'O1*>
+ <PUSH TEMP29>
+ <DEAD TEMP29>
+ <CALL '\1aOCEMIT 3>
+ <SET LBL35 TEMP31 (TYPE LIST)>
+ <LOOP>
+MAP135
+ <INTGO>
+ <EMPL? LBL35 + MAPAP138>
+ <NTHL LBL35 1 = VAR5>
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <FRAME '\1aNTH>
+ <PUSH VAR5>
+ <DEAD VAR5>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = STACK>
+ <PUSH %<>>
+ <CALL '\1aLABEL-UPDATE-ACS 2>
+ <RESTL LBL35 1 = LBL35 (TYPE LIST)>
+ <JUMP + MAP135>
+MAPAP138
+ <SETG 'LAST-UNCON 'T>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <PUSH '@>
+ <SUB 0 TEMP18 = STACK (TYPE FIX)>
+ <DEAD TEMP18>
+ <PUSH (O1*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aLABEL>
+ <PUSH DLBL10>
+ <DEAD DLBL10>
+ <CALL '\1aLABEL 1>
+ <SET LBL35 TEMP31 (TYPE LIST)>
+ <LOOP>
+MAP149
+ <INTGO>
+ <EMPL? LBL35 + MAPAP152>
+ <NTHL LBL35 1 = VAR5>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETZ>
+ <PUSH 'O*>
+ <FRAME '\1aXJUMP>
+ <FRAME '\1aNTH>
+ <PUSH VAR5>
+ <DEAD VAR5>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = STACK>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <RESTL LBL35 1 = LBL35 (TYPE LIST)>
+ <JUMP + MAP149>
+MAPAP152
+ <SET LBL35 TEMP31 (TYPE LIST)>
+ <DEAD TEMP31>
+ <LOOP>
+MAP161
+ <INTGO>
+ <EMPL? LBL35 + MAPAP164>
+ <NTHL LBL35 1 = VAR5>
+ <NTH1 VAR5 = TEMP18>
+ <FRAME '\1aNTH>
+ <PUSH VAR5>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = DLBL10>
+ <EQUAL? TEMP18 DLBL10 + PHRASE170>
+ <DEAD TEMP18 DLBL10>
+ <FRAME '\1aLABEL>
+ <FRAME '\1aNTH>
+ <PUSH VAR5>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = STACK>
+ <CALL '\1aLABEL 1>
+ <FRAME '\1aJUMP!-MIMOC>
+ <NTH1 VAR5 = STACK>
+ <DEAD VAR5>
+ <CALL '\1aJUMP!-MIMOC 1>
+PHRASE170
+ <RESTL LBL35 1 = LBL35 (TYPE LIST)>
+ <JUMP + MAP161>
+MAPAP164
+ <VEQUAL? DF9 0 + TAG179>
+ <DEAD DF9>
+ <SET LBL35 %<> (TYPE FALSE)>
+ <JUMP + PHRASE193>
+TAG179
+ <GVAL 'PASS1 = VAR5>
+ <TYPE? VAR5 <TYPE-CODE FALSE> + PHRASE181>
+ <DEAD VAR5>
+ <FRAME '\1aLABEL>
+ <PUSH DELBL7>
+ <DEAD DELBL7>
+ <CALL '\1aLABEL 1 = VAR5>
+ <GEN-SET 'LB VAR5>
+ <DEAD VAR5>
+ <FRAME '\1aSAVE-LABEL-STATE>
+ <GEN-LVAL 'LB = STACK>
+ <CALL '\1aSAVE-LABEL-STATE 1 = LBL35>
+ <JUMP + PHRASE193>
+PHRASE181
+ <GVAL 'NO-AC-FUNNYNESS = VAR5>
+ <TYPE? VAR5 <TYPE-CODE FALSE> + PHRASE188>
+ <DEAD VAR5>
+ <FRAME '\1aSAVE-ACS>
+ <CALL '\1aSAVE-ACS 0>
+ <FRAME '\1aLABEL>
+ <PUSH DELBL7>
+ <DEAD DELBL7>
+ <CALL '\1aLABEL 1 = LBL35>
+ <GEN-SET 'LB LBL35>
+ <JUMP + PHRASE193>
+PHRASE188
+ <FRAME '\1aFIND-LABEL>
+ <PUSH DELBL7>
+ <CALL '\1aFIND-LABEL 1 = VAR5>
+ <GEN-SET 'LB VAR5>
+ <DEAD VAR5>
+ <FRAME '\1aESTABLISH-LABEL-STATE>
+ <GEN-LVAL 'LB = STACK>
+ <CALL '\1aESTABLISH-LABEL-STATE 1>
+ <FRAME '\1aLABEL>
+ <PUSH DELBL7>
+ <DEAD DELBL7>
+ <CALL '\1aLABEL 1 = LBL35>
+PHRASE193
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -9>
+ <RETURN LBL35>
+ <DEAD LBL35>
+ <END \1aDISPATCH!-MIMOC>
+#WORD *33047003450*
+<GFCN \1aCHANNEL-OP!-MIMOC ("VALUE" ANY LIST) L4>
+ <TEMP CTYP5:FORM TEMP13 OPER6:FORM (EQSN7 %<>) RES8 (GC9 %<>) (NUM10:FIX 2) OC12 TEMP32 TEMP33>
+ <INTGO>
+ <NTHL L4 1 = CTYP5 (TYPE FORM)>
+ <RESTL L4 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = OPER6 (TYPE FORM)>
+ <DEAD TEMP13>
+ <FRAME '\1aGETPROP>
+ <RESTL CTYP5 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP13>
+ <PUSH 'OC-INDICATOR>
+ <CALL '\1aGETPROP 2 = OC12>
+ <TYPE? OC12 <TYPE-CODE FALSE> + PHRASE18>
+ <FRAME>
+ <RESTL OPER6 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP13>
+ <RESTL L4 1 = TEMP13 (TYPE LIST)>
+ <RESTL TEMP13 1 = STACK (TYPE LIST)>
+ <DEAD TEMP13>
+ <ACALL OC12 2 = OC12>
+ <TYPE? OC12 <TYPE-CODE FALSE> + PHRASE18>
+ <RETURN OC12>
+ <DEAD OC12>
+PHRASE18
+ <FRAME '\1aCT-QUERY>
+ <RESTL CTYP5 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP13>
+ <RESTL OPER6 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP13>
+ <CALL '\1aCT-QUERY 2 = OC12>
+ <TYPE? OC12 <TYPE-CODE FALSE> + PHRASE25>
+ <GVAL 'GLUE-MODE = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE27>
+ <DEAD TEMP13>
+ <GVAL 'PRE-NAMES = TEMP13>
+ <TYPE OC12 = TEMP32>
+ <EMPL? TEMP13 + PHRASE27>
+ <LOOP (OC12 VALUE) (TEMP32 VALUE) (TEMP13 VALUE)>
+TAG30
+ <NTHL TEMP13 1 = TEMP33>
+ <TYPE? TEMP33 TEMP32 - TAG31>
+ <VEQUAL? TEMP33 OC12 + TAG29>
+ <DEAD TEMP33>
+TAG31
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <EMPL? TEMP13 - TAG30>
+ <JUMP + PHRASE27>
+TAG29
+ <FRAME '\1aFRAME!-MIMOC>
+ <FRAME '\1aGENLBL>
+ <PUSH "?FRM">
+ <CALL '\1aGENLBL 1 = GC9>
+ <CONS GC9 () = TEMP13>
+ <CONS OC12 () = TEMP32>
+ <PUTREST TEMP13 TEMP32>
+ <DEAD TEMP32>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <CALL '\1aFRAME!-MIMOC 1>
+ <FRAME '\1aFORM>
+ <PUSH 'QUOTE>
+ <PUSH OC12>
+ <DEAD OC12>
+ <CALL '\1aFORM 2 = OC12>
+ <JUMP + PHRASE45>
+PHRASE27
+ <FRAME '\1aSUBRIFY?>
+ <PUSH OC12>
+ <CALL '\1aSUBRIFY? 1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE37>
+ <DEAD TEMP13>
+ <FRAME '\1aFRAME!-MIMOC>
+ <FRAME '\1aGENLBL>
+ <PUSH "?FRM">
+ <CALL '\1aGENLBL 1 = GC9>
+ <CONS GC9 () = TEMP13>
+ <CONS OC12 () = TEMP32>
+ <PUTREST TEMP13 TEMP32>
+ <DEAD TEMP32>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <CALL '\1aFRAME!-MIMOC 1>
+ <FRAME '\1aFORM>
+ <PUSH 'QUOTE>
+ <PUSH OC12>
+ <DEAD OC12>
+ <CALL '\1aFORM 2 = OC12>
+ <JUMP + PHRASE45>
+PHRASE37
+ <FRAME '\1aFORM>
+ <PUSH 'QUOTE>
+ <PUSH OC12>
+ <DEAD OC12>
+ <CALL '\1aFORM 2 = OC12>
+ <FRAME '\1aFRAME!-MIMOC>
+ <CONS OC12 () = STACK>
+ <CALL '\1aFRAME!-MIMOC 1>
+ <JUMP + PHRASE45>
+PHRASE25
+ <FRAME '\1aFRAME!-MIMOC>
+ <PUSH ()>
+ <CALL '\1aFRAME!-MIMOC 1>
+PHRASE45
+ <FRAME '\1aPUSH!-MIMOC>
+ <RESTL L4 1 = TEMP13 (TYPE LIST)>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = TEMP13>
+ <CONS TEMP13 () = STACK>
+ <DEAD TEMP13>
+ <CALL '\1aPUSH!-MIMOC 1>
+ <FRAME '\1aPUSH!-MIMOC>
+ <CONS OPER6 () = STACK>
+ <CALL '\1aPUSH!-MIMOC 1>
+ <RESTL L4 1 = TEMP13 (TYPE LIST)>
+ <DEAD L4>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <RESTL TEMP13 1 = TEMP33 (TYPE LIST)>
+ <DEAD TEMP13>
+ <LOOP>
+MAP50
+ <INTGO>
+ <EMPL? TEMP33 + MAPAP53>
+ <NTHL TEMP33 1 = TEMP13>
+ <VEQUAL? EQSN7 0 + PHRASE61>
+ <SET RES8 TEMP13>
+ <DEAD TEMP13>
+ <JUMP + MAPAP53>
+PHRASE61
+ <EQUAL? TEMP13 '= - PHRASE62>
+ <SET EQSN7 'T (TYPE ATOM)>
+ <JUMP + PHRASE63>
+PHRASE62
+ <FRAME '\1aPUSH!-MIMOC>
+ <CONS TEMP13 () = STACK>
+ <DEAD TEMP13>
+ <CALL '\1aPUSH!-MIMOC 1>
+ <ADD NUM10 1 = NUM10 (TYPE FIX)>
+PHRASE63
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <JUMP + MAP50>
+MAPAP53
+ <TYPE? OC12 <TYPE-CODE FALSE> + PHRASE66>
+ <FRAME '\1aCALL!-MIMOC>
+ <TYPE? GC9 <TYPE-CODE FALSE> + PHRASE69>
+ <CONS GC9 () = TEMP33>
+ <DEAD GC9>
+ <JUMP + PHRASE70>
+PHRASE69
+ <SET TEMP33 () (TYPE LIST)>
+PHRASE70
+ <VEQUAL? EQSN7 0 + PHRASE74>
+ <DEAD EQSN7>
+ <CONS RES8 () = EQSN7>
+ <DEAD RES8>
+ <CONS '= EQSN7 = EQSN7>
+ <JUMP + PHRASE75>
+PHRASE74
+ <SET EQSN7 () (TYPE LIST)>
+PHRASE75
+ <SET TEMP32 TEMP33>
+ <EMPL? EQSN7 + TAG72>
+ <NTHL EQSN7 1 = TEMP13>
+ <CONS TEMP13 TEMP33 = TEMP13>
+ <SET TEMP32 TEMP13>
+ <RESTL EQSN7 1 = EQSN7 (TYPE LIST)>
+ <EMPL? EQSN7 + TAG72>
+ <LOOP (EQSN7 VALUE) (TEMP13 VALUE) (TEMP33 VALUE)>
+TAG71
+ <NTHL EQSN7 1 = RES8>
+ <CONS RES8 TEMP33 = RES8>
+ <PUTREST TEMP13 RES8>
+ <DEAD TEMP13>
+ <SET TEMP13 RES8>
+ <DEAD RES8>
+ <RESTL EQSN7 1 = EQSN7 (TYPE LIST)>
+ <EMPL? EQSN7 - TAG71>
+TAG72
+ <CONS NUM10 TEMP32 = EQSN7>
+ <DEAD NUM10 TEMP32>
+ <CONS OC12 EQSN7 = STACK>
+ <DEAD OC12 EQSN7>
+ <CALL '\1aCALL!-MIMOC 1 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE66
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP32 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <CONS OPER6 () = TEMP13>
+ <DEAD OPER6>
+ <CONS CTYP5 TEMP13 = TEMP13>
+ <DEAD CTYP5>
+ <CHTYPE TEMP13 <TYPE-CODE CHANNEL-ROUTINE> = STACK>
+ <DEAD TEMP13>
+ <SCALL '\1aOBJ-VAL 1 = EQSN7 + TAG78 TEMP32>
+ <LOOP (EQSN7 TYPE VALUE LENGTH) (TEMP32 VALUE)>
+TAG80
+ <INTGO>
+ <EMPTY? EQSN7 + TAG78>
+ <NTH1 EQSN7 = STACK>
+ <REST1 EQSN7 = EQSN7>
+ <ADD TEMP32 1 = TEMP32 (TYPE FIX)>
+ <JUMP + TAG80>
+TAG78
+ <CALL '\1aOCEMIT TEMP32>
+ <DEAD TEMP32>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <PUSH 2>
+ <CONS 'O1* () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O2*>
+ <PUSH NUM10>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE85>
+ <DEAD TEMP32>
+ <GVAL 'STACK-DEPTH = TEMP32>
+ <LSH NUM10 1 = EQSN7 (TYPE FIX)>
+ <DEAD NUM10>
+ <SUB TEMP32 EQSN7 = TEMP32 (TYPE FIX)>
+ <DEAD EQSN7>
+ <SUB TEMP32 7 = TEMP32 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP32>
+ <DEAD TEMP32>
+PHRASE85
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <TYPE? RES8 <TYPE-CODE UNBOUND> + PHRASE88>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'CALL>
+ <PUSH RES8>
+ <DEAD RES8>
+ <CALL '\1aPUSHJ 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE88
+ <FRAME '\1aPUSHJ>
+ <PUSH 'CALL>
+ <CALL '\1aPUSHJ 1 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aCHANNEL-OP!-MIMOC>
+#WORD *11642375366*
+<GFCN \1aCHANNEL-ROUTINE-PRINT ("VALUE" STRING CHANNEL-ROUTINE) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aPRINC>
+ <PUSH "%<CHANNEL-OPERATION ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHL L5 1 = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <RESTL L5 1 = TEMP7 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP7 1 = STACK>
+ <DEAD TEMP7>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH ">">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aCHANNEL-ROUTINE-PRINT>
+<PRINTTYPE CHANNEL-ROUTINE ,CHANNEL-ROUTINE-PRINT>
+
+<SETG BIND-DW 210239488>
+
+#WORD *21127657654*
+<GFCN \1aBBIND!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
+ <TEMP ATM6 TEMP11 DCL7 FXB8 TEMP13 VAL9>
+ <INTGO>
+ <NTHL L5 1 = ATM6>
+ <RESTL L5 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = DCL7>
+ <DEAD TEMP11>
+ <RESTL L5 1 = TEMP11 (TYPE LIST)>
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = FXB8>
+ <DEAD TEMP11>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP13 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <GVAL 'BIND-DW = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP11 + TAG12 TEMP13>
+ <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG15
+ <INTGO>
+ <EMPTY? TEMP11 + TAG12>
+ <NTH1 TEMP11 = STACK>
+ <REST1 TEMP11 = TEMP11>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG15>
+TAG12
+ <CALL '\1aOCEMIT TEMP13>
+ <DEAD TEMP13>
+ <GVAL 'WINNING-VICTIM = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE18>
+ <DEAD TEMP13>
+ <GVAL 'STACK-DEPTH = TEMP13>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP13>
+ <DEAD TEMP13>
+PHRASE18
+ <SET TEMP13 L5>
+ <SET TEMP11 4 (TYPE FIX)>
+ <LOOP (TEMP13 VALUE) (TEMP11 VALUE)>
+TAG21
+ <EMPL? TEMP13 + PHRASE20>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
+ <GRTR? TEMP11 0 + TAG21 (TYPE FIX)>
+ <EMPL? TEMP13 - PHRASE20>
+ <DEAD TEMP13>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP11 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <RESTL L5 1 = TEMP13 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = VAL9>
+ <DEAD TEMP13>
+ <PUSH VAL9>
+ <SCALL '\1aOBJ-TYP 1 = TEMP13 + TAG22 TEMP11>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP11 VALUE)>
+TAG26
+ <INTGO>
+ <EMPTY? TEMP13 + TAG22>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <JUMP + TAG26>
+TAG22
+ <CALL '\1aOCEMIT TEMP11>
+ <DEAD TEMP11>
+ <GVAL 'WINNING-VICTIM = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE29>
+ <DEAD TEMP11>
+ <GVAL 'STACK-DEPTH = TEMP11>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP11>
+ <DEAD TEMP11>
+PHRASE29
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP13 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <SCALL '\1aOBJ-VAL 1 = TEMP11 + TAG30 TEMP13>
+ <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG32
+ <INTGO>
+ <EMPTY? TEMP11 + TAG30>
+ <NTH1 TEMP11 = STACK>
+ <REST1 TEMP11 = TEMP11>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG32>
+TAG30
+ <CALL '\1aOCEMIT TEMP13>
+ <DEAD TEMP13>
+ <GVAL 'WINNING-VICTIM = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE46>
+ <DEAD TEMP13>
+ <GVAL 'STACK-DEPTH = TEMP13>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP13>
+ <DEAD TEMP13>
+ <JUMP + PHRASE46>
+PHRASE20
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP11 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH 0>
+ <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG37 TEMP11>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP11 VALUE)>
+TAG39
+ <INTGO>
+ <EMPTY? TEMP13 + TAG37>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <JUMP + TAG39>
+TAG37
+ <CALL '\1aOCEMIT TEMP11>
+ <DEAD TEMP11>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP13 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH 0>
+ <SCALL '\1aOBJ-VAL 1 = TEMP11 + TAG41 TEMP13>
+ <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG43
+ <INTGO>
+ <EMPTY? TEMP11 + TAG41>
+ <NTH1 TEMP11 = STACK>
+ <REST1 TEMP11 = TEMP11>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG43>
+TAG41
+ <CALL '\1aOCEMIT TEMP13>
+ <DEAD TEMP13>
+ <GVAL 'WINNING-VICTIM = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE46>
+ <DEAD TEMP13>
+ <GVAL 'STACK-DEPTH = TEMP13>
+ <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP13>
+ <DEAD TEMP13>
+PHRASE46
+ <FRAME '\1aIN-AC?>
+ <PUSH ATM6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = VAL9>
+ <TYPE? VAL9 <TYPE-CODE FALSE> - PHRASE52>
+ <TYPE? ATM6 <TYPE-CODE ATOM> - PHRASE49>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = VAL9>
+ <JUMP + PHRASE52>
+PHRASE49
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <SET VAL9 'O1* (TYPE ATOM)>
+ <PUSH VAL9>
+ <SET TEMP11 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG53 TEMP11>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP11 VALUE)>
+TAG55
+ <INTGO>
+ <EMPTY? TEMP13 + TAG53>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <JUMP + TAG55>
+TAG53
+ <CALL '\1aOCEMIT TEMP11>
+ <DEAD TEMP11>
+PHRASE52
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH VAL9>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP13 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH DCL7>
+ <SCALL '\1aOBJ-TYP 1 = TEMP11 + TAG58 TEMP13>
+ <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG60
+ <INTGO>
+ <EMPTY? TEMP11 + TAG58>
+ <NTH1 TEMP11 = STACK>
+ <REST1 TEMP11 = TEMP11>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG60>
+TAG58
+ <CALL '\1aOCEMIT TEMP13>
+ <DEAD TEMP13>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP11 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH DCL7>
+ <DEAD DCL7>
+ <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG62 TEMP11>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP11 VALUE)>
+TAG64
+ <INTGO>
+ <EMPTY? TEMP13 + TAG62>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <JUMP + TAG64>
+TAG62
+ <CALL '\1aOCEMIT TEMP11>
+ <DEAD TEMP11>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'SP*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 1>
+ <CONS VAL9 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH '@>
+ <PUSH 95>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XMOVEI>
+ <PUSH 'SP*>
+ <PUSH -7>
+ <PUSH (TP*)>
+ <CALL '\1aOCEMIT 4>
+ <TYPE? FXB8 <TYPE-CODE FALSE> + PHRASE71>
+ <DEAD FXB8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH 'SP*>
+ <PUSH 1>
+ <CONS VAL9 () = STACK>
+ <DEAD VAL9>
+ <CALL '\1aOCEMIT 4>
+PHRASE71
+ <GVAL 'WINNING-VICTIM = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE74>
+ <GVAL 'STACK-DEPTH = TEMP13>
+ <ADD TEMP13 6 = TEMP13 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP13>
+ <SET TEMP11 TEMP13>
+ <DEAD TEMP13>
+PHRASE74
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aBBIND!-MIMOC>
+#WORD *12015637535*
+<GFCN \1aGEN-LVAL!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP ATM6 TEMP8 VAL7 TEMP10>
+ <INTGO>
+ <NTHL L5 1 = ATM6>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = VAL7>
+ <DEAD TEMP8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG9 TEMP10>
+ <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG12
+ <INTGO>
+ <EMPTY? TEMP8 + TAG9>
+ <NTH1 TEMP8 = STACK>
+ <REST1 TEMP8 = TEMP8>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG12>
+TAG9
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <FRAME '\1aSAVE-ACS>
+ <CALL '\1aSAVE-ACS 0>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'ILVAL>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <CALL '\1aPUSHJ 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aGEN-LVAL!-MIMOC>
+#WORD *6502277571*
+<GFCN \1aGEN-ASSIGNED?!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP ATM6 TEMP9 DIR7 TG8 TEMP11>
+ <INTGO>
+ <NTHL L5 1 = ATM6>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = DIR7>
+ <DEAD TEMP9>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = TG8>
+ <DEAD TEMP9>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP11 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG10 TEMP11>
+ <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP11 VALUE)>
+TAG13
+ <INTGO>
+ <EMPTY? TEMP9 + TAG10>
+ <NTH1 TEMP9 = STACK>
+ <REST1 TEMP9 = TEMP9>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <JUMP + TAG13>
+TAG10
+ <CALL '\1aOCEMIT TEMP11>
+ <DEAD TEMP11>
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <PUSH TG8>
+ <PUSH %<>>
+ <CALL '\1aLABEL-UPDATE-ACS 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JSP>
+ <PUSH 'T*>
+ <PUSH '@>
+ <FRAME '\1aOPCODE>
+ <PUSH 'IASS>
+ <CALL '\1aOPCODE 1 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FIX> - TAG18>
+ <SUB 0 TEMP11 = STACK (TYPE FIX)>
+ <DEAD TEMP11>
+ <JUMP + TAG19>
+TAG18
+ <SUBF 0.0 TEMP11 = STACK (TYPE FLOAT)>
+ <DEAD TEMP11>
+TAG19
+ <CALL '\1aOCEMIT 4>
+ <EQUAL? DIR7 '+ - PHRASE21>
+ <DEAD DIR7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAIA>
+ <PUSH 'O*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+PHRASE21
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH TG8>
+ <DEAD TG8>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aGEN-ASSIGNED?!-MIMOC>
+#WORD *33763704407*
+<GFCN \1aGEN-SET!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP ATM6 TEMP8 NVAL7>
+ <INTGO>
+ <NTHL L5 1 = ATM6>
+ <RESTL L5 1 = TEMP8 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP8 1 = NVAL7>
+ <DEAD TEMP8>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH NVAL7>
+ <CALL '\1aWILL-DIE? 1 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE10>
+ <DEAD TEMP8>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS NVAL7 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE10
+ <TYPE? ATM6 <TYPE-CODE ATOM> - PHRASE14>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ATM6>
+ <CALL '\1aWILL-DIE? 1 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE14>
+ <DEAD TEMP8>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS ATM6 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE14
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH NVAL7>
+ <DEAD NVAL7>
+ <PUSH 'BOTH>
+ <PUSH 'A1*>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <PUSH 'VALUE>
+ <PUSH 'O1*>
+ <CALL '\1aGET-INTO-ACS 6>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'ISET>
+ <CALL '\1aPUSHJ 1 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aGEN-SET!-MI
\ No newline at end of file
projects / pdp10-muddle.git / blobdiff