--- /dev/null
+
+#WORD *21064524407*
+<GFCN \1aMOVE-STRING!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP FROM6 TEMP10 TO7 CNT8 NO-OVERLAP?9>
+ <INTGO>
+ <NTHL L5 1 = FROM6>
+ <RESTL L5 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = TO7>
+ <DEAD TEMP10>
+ <RESTL L5 1 = TEMP10 (TYPE LIST)>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = CNT8>
+ <DEAD TEMP10>
+ <FRAME '\1aEXTRAMEM>
+ <PUSH 'NO-OVERLAP>
+ <PUSH L5>
+ <DEAD L5>
+ <CALL '\1aEXTRAMEM 2 = NO-OVERLAP?9>
+ <TYPE? NO-OVERLAP?9 <TYPE-CODE FALSE> + PHRASE13>
+ <RESTL NO-OVERLAP?9 1 = TEMP10 (TYPE LIST)>
+ <DEAD NO-OVERLAP?9>
+ <NTHL TEMP10 1 = NO-OVERLAP?9>
+ <DEAD TEMP10>
+PHRASE13
+ <FRAME '\1aWILL-DIE?>
+ <PUSH FROM6>
+ <CALL '\1aWILL-DIE? 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE15>
+ <DEAD TEMP10>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS FROM6 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE15
+ <FRAME '\1aWILL-DIE?>
+ <PUSH TO7>
+ <CALL '\1aWILL-DIE? 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE19>
+ <DEAD TEMP10>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS TO7 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE19
+ <FRAME '\1aWILL-DIE?>
+ <PUSH CNT8>
+ <CALL '\1aWILL-DIE? 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE23>
+ <DEAD TEMP10>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS CNT8 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE23
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <TYPE? NO-OVERLAP?9 <TYPE-CODE FALSE> + PHRASE28>
+ <DEAD NO-OVERLAP?9>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH CNT8>
+ <DEAD CNT8>
+ <PUSH 'VALUE>
+ <PUSH 'A1*>
+ <PUSH FROM6>
+ <DEAD FROM6>
+ <PUSH 'VALUE>
+ <PUSH 'A2*>
+ <PUSH TO7>
+ <DEAD TO7>
+ <PUSH 'VALUE>
+ <PUSH 'C1*>
+ <CALL '\1aGET-INTO-ACS 9>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETZB>
+ <PUSH 'B1*>
+ <PUSH 'C2*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'B2*>
+ <PUSH (A1*)>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XBLT>
+ <PUSH 'A1*>
+ <SET FROM6 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH 1879048192>
+ <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG32 FROM6>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (FROM6 VALUE)>
+TAG35
+ <INTGO>
+ <EMPTY? TEMP10 + TAG32>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD FROM6 1 = FROM6 (TYPE FIX)>
+ <JUMP + TAG35>
+TAG32
+ <CALL '\1aOCEMIT FROM6>
+ <DEAD FROM6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH 'IOERR>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aFLUSH-ACS>
+ <CALL '\1aFLUSH-ACS 0 = FROM6>
+ <RETURN FROM6>
+ <DEAD FROM6>
+PHRASE28
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH FROM6>
+ <DEAD FROM6>
+ <PUSH 'VALUE>
+ <PUSH 'O1*>
+ <PUSH TO7>
+ <DEAD TO7>
+ <PUSH 'VALUE>
+ <PUSH 'O2*>
+ <PUSH CNT8>
+ <DEAD CNT8>
+ <PUSH 'VALUE>
+ <PUSH 'O*>
+ <CALL '\1aGET-INTO-ACS 9>
+ <FRAME '\1aFLUSH-ACS>
+ <CALL '\1aFLUSH-ACS 0>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'MOVSTR>
+ <CALL '\1aPUSHJ 1 = FROM6>
+ <RETURN FROM6>
+ <DEAD FROM6>
+ <END \1aMOVE-STRING!-MIMOC>
+#WORD *5123055726*
+ <GFCN \1aMOVE-WORDS!-MIMOC ("VALUE" ANY LIST) L4>
+ <TEMP FROM5 TEMP11 TO6 CNT7 TY8 TG9 DIRECTION10>
+ <INTGO>
+ <NTHL L4 1 = FROM5>
+ <RESTL L4 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = TO6>
+ <DEAD TEMP11>
+ <RESTL L4 1 = TEMP11 (TYPE LIST)>
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = CNT7>
+ <DEAD TEMP11>
+ <FRAME '\1aEXTRAMEM>
+ <PUSH 'TYPE>
+ <PUSH L4>
+ <CALL '\1aEXTRAMEM 2 = TY8>
+ <FRAME '\1aGENLBL>
+ <PUSH "BLT">
+ <CALL '\1aGENLBL 1 = TG9>
+ <FRAME '\1aEXTRAMEM>
+ <PUSH 'DIRECTION>
+ <PUSH L4>
+ <DEAD L4>
+ <CALL '\1aEXTRAMEM 2 = DIRECTION10>
+ <TYPE? TY8 <TYPE-CODE FALSE> + PHRASE16>
+ <RESTL TY8 1 = TEMP11 (TYPE LIST)>
+ <DEAD TY8>
+ <NTHL TEMP11 1 = TY8>
+ <DEAD TEMP11>
+PHRASE16
+ <TYPE? DIRECTION10 <TYPE-CODE FALSE> + PHRASE18>
+ <RESTL DIRECTION10 1 = TEMP11 (TYPE LIST)>
+ <DEAD DIRECTION10>
+ <NTHL TEMP11 1 = DIRECTION10>
+ <DEAD TEMP11>
+PHRASE18
+ <TYPE? CNT7 <TYPE-CODE FIX> - PHRASE20>
+ <EQUAL? TY8 'VECTOR - PHRASE20>
+ <LSH CNT7 1 = CNT7 (TYPE FIX)>
+PHRASE20
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH FROM5>
+ <DEAD FROM5>
+ <PUSH 'VALUE>
+ <PUSH 'O1*>
+ <PUSH TO6>
+ <DEAD TO6>
+ <PUSH 'VALUE>
+ <PUSH 'O2*>
+ <CALL '\1aGET-INTO-ACS 6>
+ <TYPE? DIRECTION10 <TYPE-CODE FALSE> - PHRASE24 (DEAD-JUMP TG9) (DEAD-FALL DIRECTION10)>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH CNT7>
+ <PUSH 'VALUE>
+ <PUSH 'T*>
+ <CALL '\1aGET-INTO-ACS 3>
+ <TYPE? CNT7 <TYPE-CODE FIX> + PHRASE27 (DEAD-JUMP TY8)>
+ <DEAD CNT7>
+ <EQUAL? TY8 'VECTOR - PHRASE27>
+ <DEAD TY8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ASH>
+ <PUSH 'T*>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+PHRASE27
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAMG>
+ <PUSH 'O2*>
+ <PUSH 'O1*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH TG9>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <PUSH 'O1*>
+ <PUSH 'T*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <PUSH 'O2*>
+ <PUSH 'T*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVNS>
+ <PUSH 'O*>
+ <PUSH 'T*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aLABEL>
+ <PUSH TG9>
+ <DEAD TG9>
+ <CALL '\1aLABEL 1>
+ <JUMP + PHRASE57>
+PHRASE24
+ <EQUAL? DIRECTION10 'BACKWARD - PHRASE37>
+ <DEAD DIRECTION10>
+ <TYPE? CNT7 <TYPE-CODE FIX> - PHRASE39 (DEAD-FALL TY8)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVNI>
+ <PUSH 'T*>
+ <PUSH CNT7>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADDI>
+ <PUSH 'O1*>
+ <PUSH CNT7>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADDI>
+ <PUSH 'O2*>
+ <PUSH CNT7>
+ <DEAD CNT7>
+ <JUMP + PEEP64>
+PHRASE39
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVN>
+ <PUSH 'T*>
+ <SET FROM5 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH CNT7>
+ <DEAD CNT7>
+ <SCALL '\1aOBJ-VAL 1 = TEMP11 + TAG44 FROM5 (DEAD-JUMP TEMP11)>
+ <LOOP (TEMP11 TYPE VALUE LENGTH) (FROM5 VALUE)>
+TAG47
+ <INTGO>
+ <EMPTY? TEMP11 + TAG44 (DEAD-JUMP TEMP11)>
+ <NTH1 TEMP11 = STACK>
+ <REST1 TEMP11 = TEMP11>
+ <ADD FROM5 1 = FROM5 (TYPE FIX)>
+ <JUMP + TAG47>
+TAG44
+ <CALL '\1aOCEMIT FROM5>
+ <DEAD FROM5>
+ <EQUAL? TY8 'VECTOR - PHRASE50>
+ <DEAD TY8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ASH>
+ <PUSH 'T*>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+PHRASE50
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SUB>
+ <PUSH 'O1*>
+ <PUSH 'T*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SUB>
+ <PUSH 'O2*>
+ <PUSH 'T*>
+ <JUMP + PEEP64>
+PHRASE37
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH CNT7>
+ <PUSH 'VALUE>
+ <PUSH 'T*>
+ <CALL '\1aGET-INTO-ACS 3>
+ <TYPE? CNT7 <TYPE-CODE FIX> + PHRASE57 (DEAD-JUMP TY8)>
+ <DEAD CNT7>
+ <EQUAL? TY8 'VECTOR - PHRASE57>
+ <DEAD TY8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ASH>
+ <PUSH 'T*>
+ <PUSH 1>
+PEEP64
+ <CALL '\1aOCEMIT 3>
+PHRASE57
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XBLT>
+ <PUSH 'T*>
+ <SET TEMP11 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH 2147483648>
+ <SCALL '\1aOBJ-VAL 1 = FROM5 + TAG60 TEMP11 (DEAD-JUMP FROM5)>
+ <LOOP (FROM5 TYPE VALUE LENGTH) (TEMP11 VALUE)>
+TAG62
+ <INTGO>
+ <EMPTY? FROM5 + TAG60 (DEAD-JUMP FROM5)>
+ <NTH1 FROM5 = STACK>
+ <REST1 FROM5 = FROM5>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <JUMP + TAG62>
+TAG60
+ <CALL '\1aOCEMIT TEMP11 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aMOVE-WORDS!-MIMOC>
+
+#WORD *11704504741*
+<GFCN \1aSTRING-EQUAL?!-MIMOC ("VALUE" ANY LIST) L4>
+ <TEMP S1-5 TEMP10 S2-6 DIR7 LBL8 LBL2-9 TEMP39>
+ <INTGO>
+ <NTHL L4 1 = S1-5>
+ <RESTL L4 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = S2-6>
+ <DEAD TEMP10>
+ <RESTL L4 1 = TEMP10 (TYPE LIST)>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = DIR7>
+ <DEAD TEMP10>
+ <RESTL L4 1 = TEMP10 (TYPE LIST)>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = LBL8>
+ <DEAD TEMP10>
+ <FRAME '\1aGENLBL>
+ <PUSH "SE">
+ <CALL '\1aGENLBL 1 = LBL2-9>
+ <TYPE? S2-6 <TYPE-CODE STRING> + BOOL14>
+ <FRAME '\1aIN-AC?>
+ <PUSH S2-6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP10>
+ <EQUAL? TEMP10 'A2* + BOOL14>
+ <DEAD TEMP10>
+ <FRAME '\1aIN-AC?>
+ <PUSH S2-6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE13>
+ <DEAD TEMP10>
+ <FRAME '\1aIN-AC?>
+ <PUSH S1-5>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE13>
+ <DEAD TEMP10>
+BOOL14
+ <SET S1-5 S2-6>
+ <DEAD S2-6>
+ <NTHL L4 1 = S2-6>
+ <DEAD L4>
+PHRASE13
+ <TYPE? S1-5 <TYPE-CODE ATOM> - PHRASE20>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH S1-5>
+ <CALL '\1aWILL-DIE? 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE20>
+ <DEAD TEMP10>
+ <FRAME '\1aLAB-WILL-DIE>
+ <FRAME '\1aFIND-LABEL>
+ <PUSH LBL8>
+ <CALL '\1aFIND-LABEL 1 = STACK>
+ <PUSH S1-5>
+ <FRAME '\1a+>
+ <GVAL 'VISIT-COUNT = STACK>
+ <PUSH 1>
+ <CALL '\1a+ 2 = TEMP10>
+ <SETG 'VISIT-COUNT TEMP10>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <PUSH %<>>
+ <CALL '\1aLAB-WILL-DIE 4 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE20>
+ <DEAD TEMP10>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS S1-5 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE20
+ <TYPE? S2-6 <TYPE-CODE ATOM> - PHRASE28>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH S2-6>
+ <CALL '\1aWILL-DIE? 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE28>
+ <DEAD TEMP10>
+ <FRAME '\1aLAB-WILL-DIE>
+ <FRAME '\1aFIND-LABEL>
+ <PUSH LBL8>
+ <CALL '\1aFIND-LABEL 1 = STACK>
+ <PUSH S2-6>
+ <FRAME '\1a+>
+ <GVAL 'VISIT-COUNT = STACK>
+ <PUSH 1>
+ <CALL '\1a+ 2 = TEMP10>
+ <SETG 'VISIT-COUNT TEMP10>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <PUSH %<>>
+ <CALL '\1aLAB-WILL-DIE 4 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE28>
+ <DEAD TEMP10>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS S2-6 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE28
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <TYPE? S1-5 <TYPE-CODE STRING> - PHRASE37>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH 'A1*>
+ <SET TEMP39 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH S2-6>
+ <SCALL '\1aOBJ-TYP 1 = TEMP10 + TAG38 TEMP39>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
+TAG41
+ <INTGO>
+ <EMPTY? TEMP10 + TAG38>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
+ <JUMP + TAG41>
+TAG38
+ <CALL '\1aOCEMIT TEMP39>
+ <DEAD TEMP39>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAIE>
+ <PUSH 'A1*>
+ <LENUS S1-5 = STACK (TYPE FIX)>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <EQUAL? DIR7 '+ - PHRASE47>
+ <SET TEMP39 LBL2-9>
+ <JUMP + PHRASE48>
+PHRASE47
+ <SET TEMP39 LBL8>
+PHRASE48
+ <PUSH TEMP39>
+ <DEAD TEMP39>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aIN-AC?>
+ <PUSH S2-6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP39>
+ <EQUAL? TEMP39 'A2* + PHRASE50>
+ <DEAD TEMP39>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'A2*>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH S2-6>
+ <DEAD S2-6>
+ <SCALL '\1aOBJ-VAL 1 = TEMP39 + TAG52 TEMP10>
+ <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG54
+ <INTGO>
+ <EMPTY? TEMP39 + TAG52>
+ <NTH1 TEMP39 = STACK>
+ <REST1 TEMP39 = TEMP39>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG54>
+TAG52
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+PHRASE50
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'C1*>
+ <SET TEMP39 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH S1-5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG56 TEMP39>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
+TAG58
+ <INTGO>
+ <EMPTY? TEMP10 + TAG56>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
+ <JUMP + TAG58>
+TAG56
+ <CALL '\1aOCEMIT TEMP39>
+ <DEAD TEMP39>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'B2*>
+ <LENUS S1-5 = STACK (TYPE FIX)>
+ <DEAD S1-5>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE61>
+PHRASE37
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH 'A1*>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH S1-5>
+ <SCALL '\1aOBJ-TYP 1 = TEMP39 + TAG62 TEMP10>
+ <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG64
+ <INTGO>
+ <EMPTY? TEMP39 + TAG62>
+ <NTH1 TEMP39 = STACK>
+ <REST1 TEMP39 = TEMP39>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG64>
+TAG62
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <FRAME '\1aIN-AC?>
+ <PUSH S1-5>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP10>
+ <EQUAL? TEMP10 'A2* - PHRASE67>
+ <DEAD TEMP10>
+ <FRAME '\1aIN-AC?>
+ <PUSH S2-6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP10>
+ <EQUAL? TEMP10 'B2* - PHRASE67>
+ <DEAD TEMP10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'C1*>
+ <PUSH 'B2*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH 'B2*>
+ <SET TEMP39 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH S2-6>
+ <DEAD S2-6>
+ <SCALL '\1aOBJ-TYP 1 = TEMP10 + TAG72 TEMP39>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
+TAG74
+ <INTGO>
+ <EMPTY? TEMP10 + TAG72>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
+ <JUMP + TAG74>
+TAG72
+ <CALL '\1aOCEMIT TEMP39>
+ <DEAD TEMP39>
+ <JUMP + PHRASE101>
+PHRASE67
+ <FRAME '\1aIN-AC?>
+ <PUSH S1-5>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP39>
+ <EQUAL? TEMP39 'B2* - PHRASE76>
+ <DEAD TEMP39>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'A2*>
+ <PUSH 'B2*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH 'B2*>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH S2-6>
+ <SCALL '\1aOBJ-TYP 1 = TEMP39 + TAG79 TEMP10>
+ <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG81
+ <INTGO>
+ <EMPTY? TEMP39 + TAG79>
+ <NTH1 TEMP39 = STACK>
+ <REST1 TEMP39 = TEMP39>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG81>
+TAG79
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'C1*>
+ <SET TEMP39 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH S2-6>
+ <DEAD S2-6>
+ <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG83 TEMP39>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
+TAG85
+ <INTGO>
+ <EMPTY? TEMP10 + TAG83>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
+ <JUMP + TAG85>
+TAG83
+ <CALL '\1aOCEMIT TEMP39>
+ <DEAD TEMP39>
+ <JUMP + PHRASE101>
+PHRASE76
+ <FRAME '\1aIN-AC?>
+ <PUSH S2-6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP39>
+ <EQUAL? TEMP39 'B2* - PHRASE87>
+ <DEAD TEMP39>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'C1*>
+ <PUSH 'B2*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH 'B2*>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH S2-6>
+ <DEAD S2-6>
+ <SCALL '\1aOBJ-TYP 1 = TEMP39 + TAG90 TEMP10>
+ <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG92
+ <INTGO>
+ <EMPTY? TEMP39 + TAG90>
+ <NTH1 TEMP39 = STACK>
+ <REST1 TEMP39 = TEMP39>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG92>
+TAG90
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <FRAME '\1aIN-AC?>
+ <PUSH S1-5>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP10>
+ <EQUAL? TEMP10 'A2* + PHRASE101>
+ <DEAD TEMP10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'A2*>
+ <SET TEMP39 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH S1-5>
+ <DEAD S1-5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG97 TEMP39>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
+TAG99
+ <INTGO>
+ <EMPTY? TEMP10 + TAG97>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
+ <JUMP + TAG99>
+TAG97
+ <CALL '\1aOCEMIT TEMP39>
+ <DEAD TEMP39>
+ <JUMP + PHRASE101>
+PHRASE87
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH 'B2*>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH S2-6>
+ <SCALL '\1aOBJ-TYP 1 = TEMP39 + TAG102 TEMP10>
+ <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG104
+ <INTGO>
+ <EMPTY? TEMP39 + TAG102>
+ <NTH1 TEMP39 = STACK>
+ <REST1 TEMP39 = TEMP39>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG104>
+TAG102
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <FRAME '\1aIN-AC?>
+ <PUSH S1-5>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP10>
+ <EQUAL? TEMP10 'A2* + PHRASE107>
+ <DEAD TEMP10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'A2*>
+ <SET TEMP39 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH S1-5>
+ <DEAD S1-5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG109 TEMP39>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
+TAG111
+ <INTGO>
+ <EMPTY? TEMP10 + TAG109>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
+ <JUMP + TAG111>
+TAG109
+ <CALL '\1aOCEMIT TEMP39>
+ <DEAD TEMP39>
+PHRASE107
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'C1*>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH S2-6>
+ <DEAD S2-6>
+ <SCALL '\1aOBJ-VAL 1 = TEMP39 + TAG113 TEMP10>
+ <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG115
+ <INTGO>
+ <EMPTY? TEMP39 + TAG113>
+ <NTH1 TEMP39 = STACK>
+ <REST1 TEMP39 = TEMP39>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG115>
+TAG113
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+PHRASE101
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAIE>
+ <PUSH 'A1*>
+ <PUSH (B2*)>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <EQUAL? DIR7 '+ - PHRASE121>
+ <SET TEMP10 LBL2-9>
+ <JUMP + PHRASE122>
+PHRASE121
+ <SET TEMP10 LBL8>
+PHRASE122
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+PHRASE61
+ <FRAME '\1aFLUSH-ACS>
+ <CALL '\1aFLUSH-ACS 0>
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <PUSH LBL8>
+ <PUSH %<>>
+ <CALL '\1aLABEL-UPDATE-ACS 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETZB>
+ <PUSH 'B1*>
+ <PUSH 'C2*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XBLT>
+ <PUSH 'A1*>
+ <SET TEMP39 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <EQUAL? DIR7 '+ - PHRASE129>
+ <SET S1-5 805306368 (TYPE FIX)>
+ <JUMP + PHRASE131>
+PHRASE129
+ <SET S1-5 268435456 (TYPE FIX)>
+PHRASE131
+ <PUSH S1-5>
+ <DEAD S1-5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG126 TEMP39>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
+TAG132
+ <INTGO>
+ <EMPTY? TEMP10 + TAG126>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
+ <JUMP + TAG132>
+TAG126
+ <CALL '\1aOCEMIT TEMP39>
+ <DEAD TEMP39>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH LBL8>
+ <DEAD LBL8>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <EQUAL? DIR7 '+ + TAG138>
+ <DEAD DIR7>
+ <RETURN %<>>
+TAG138
+ <FRAME '\1aLABEL>
+ <PUSH LBL2-9>
+ <DEAD LBL2-9>
+ <CALL '\1aLABEL 1 = TEMP39>
+ <RETURN TEMP39>
+ <DEAD TEMP39>
+ <END \1aSTRING-EQUAL?!-MIMOC>\r\r
+#WORD *13433347155*
+<GFCN \1aSTRCOMP!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP S16 TEMP13 S27 VAL8 T19 T210 T311 TEMP29>
+ <INTGO>
+ <NTHL L5 1 = S16>
+ <RESTL L5 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = S27>
+ <DEAD TEMP13>
+ <RESTL L5 1 = TEMP13 (TYPE LIST)>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = VAL8>
+ <DEAD TEMP13>
+ <FRAME '\1aGENLBL>
+ <PUSH "TG">
+ <CALL '\1aGENLBL 1 = T19>
+ <FRAME '\1aGENLBL>
+ <PUSH "TG">
+ <CALL '\1aGENLBL 1 = T210>
+ <FRAME '\1aGENLBL>
+ <PUSH "TG">
+ <CALL '\1aGENLBL 1 = T311>
+ <TYPE? S27 <TYPE-CODE STRING> - PHRASE18>
+ <SET S16 S27>
+ <DEAD S27>
+ <NTHL L5 1 = S27>
+ <DEAD L5>
+PHRASE18
+ <FRAME '\1aWILL-DIE?>
+ <PUSH S16>
+ <CALL '\1aWILL-DIE? 1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE20>
+ <DEAD TEMP13>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS S16 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE20
+ <FRAME '\1aWILL-DIE?>
+ <PUSH S27>
+ <CALL '\1aWILL-DIE? 1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE24>
+ <DEAD TEMP13>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS S27 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE24
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH 'O*>
+ <SET TEMP29 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH S16>
+ <SCALL '\1aOBJ-TYP 1 = TEMP13 + TAG28 TEMP29>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP29 VALUE)>
+TAG31
+ <INTGO>
+ <EMPTY? TEMP13 + TAG28>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG31>
+TAG28
+ <CALL '\1aOCEMIT TEMP29>
+ <DEAD TEMP29>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH 'B1*>
+ <SET TEMP13 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH S27>
+ <SCALL '\1aOBJ-TYP 1 = TEMP29 + TAG33 TEMP13>
+ <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG35
+ <INTGO>
+ <EMPTY? TEMP29 + TAG33>
+ <NTH1 TEMP29 = STACK>
+ <REST1 TEMP29 = TEMP29>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG35>
+TAG33
+ <CALL '\1aOCEMIT TEMP13>
+ <DEAD TEMP13>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH S16>
+ <DEAD S16>
+ <PUSH 'VALUE>
+ <PUSH 'A1*>
+ <PUSH S27>
+ <DEAD S27>
+ <PUSH 'VALUE>
+ <PUSH 'B2*>
+ <CALL '\1aGET-INTO-ACS 6>
+ <FRAME '\1aFLUSH-ACS>
+ <CALL '\1aFLUSH-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'C2*>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAMN>
+ <PUSH 'O*>
+ <PUSH 'B1*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SOJA>
+ <PUSH 'C2*>
+ <FRAME '\1aXJUMP>
+ <PUSH T210>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAML>
+ <PUSH 'O*>
+ <PUSH 'B1*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH T311>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVNI>
+ <PUSH 'C2*>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPA>
+ <PUSH 'B1*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aLABEL>
+ <PUSH T311>
+ <DEAD T311>
+ <CALL '\1aLABEL 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O*>
+ <PUSH 'B1*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aLABEL>
+ <PUSH T210>
+ <DEAD T210>
+ <CALL '\1aLABEL 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETZB>
+ <PUSH 'A2*>
+ <PUSH 'C1*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XBLT>
+ <PUSH 'O*>
+ <SET TEMP29 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH 805306368>
+ <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG52 TEMP29>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP29 VALUE)>
+TAG54
+ <INTGO>
+ <EMPTY? TEMP13 + TAG52>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG54>
+TAG52
+ <CALL '\1aOCEMIT TEMP29>
+ <DEAD TEMP29>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH T19>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LDB>
+ <PUSH 'O*>
+ <PUSH 'A1*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LDB>
+ <PUSH 'B1*>
+ <PUSH 'B2*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'C2*>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAMG>
+ <PUSH 'O*>
+ <PUSH 'B1*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVNI>
+ <PUSH 'C2*>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aLABEL>
+ <PUSH T19>
+ <DEAD T19>
+ <CALL '\1aLABEL 1>
+ <EQUAL? VAL8 'STACK - PHRASE65>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP13 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP29 + TAG66 TEMP13>
+ <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG68
+ <INTGO>
+ <EMPTY? TEMP29 + TAG66>
+ <NTH1 TEMP29 = STACK>
+ <REST1 TEMP29 = TEMP29>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG68>
+TAG66
+ <CALL '\1aOCEMIT TEMP13>
+ <DEAD TEMP13>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'C2*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE74>
+ <FRAME '\1a+>
+ <GVAL 'STACK-DEPTH = STACK>
+ <PUSH 2>
+ <CALL '\1a+ 2 = TEMP29>
+ <SETG 'STACK-DEPTH TEMP29>
+ <RETURN TEMP29>
+ <DEAD TEMP29>
+PHRASE65
+ <SET TEMP13 VAL8>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE74>
+ <FRAME '\1aGET-AC>
+ <PUSH 'C1*>
+ <CALL '\1aGET-AC 1 = S16>
+ <FRAME '\1aAC-ITEM>
+ <PUSH S16>
+ <PUSH VAL8>
+ <CALL '\1aAC-ITEM 2>
+ <FRAME '\1aAC-CODE>
+ <PUSH S16>
+ <PUSH 'TYPE>
+ <CALL '\1aAC-CODE 2>
+ <FRAME '\1aAC-UPDATE>
+ <PUSH S16>
+ <PUSH 'T>
+ <CALL '\1aAC-UPDATE 2>
+ <FRAME '\1aAC-TIME>
+ <PUSH S16>
+ <FRAME '\1a+>
+ <GVAL 'AC-STAMP = STACK>
+ <PUSH 1>
+ <CALL '\1a+ 2 = TEMP29>
+ <SETG 'AC-STAMP TEMP29>
+ <PUSH TEMP29>
+ <DEAD TEMP29>
+ <CALL '\1aAC-TIME 2>
+ <FRAME '\1aAC-TYPE>
+ <PUSH S16>
+ <DEAD S16>
+ <PUSH 'FIX>
+ <CALL '\1aAC-TYPE 2>
+ <FRAME '\1aGET-AC>
+ <PUSH 'C2*>
+ <CALL '\1aGET-AC 1 = S16>
+ <FRAME '\1aAC-ITEM>
+ <PUSH S16>
+ <PUSH VAL8>
+ <DEAD VAL8>
+ <CALL '\1aAC-ITEM 2>
+ <FRAME '\1aAC-CODE>
+ <PUSH S16>
+ <PUSH 'VALUE>
+ <CALL '\1aAC-CODE 2>
+ <FRAME '\1aAC-UPDATE>
+ <PUSH S16>
+ <PUSH 'T>
+ <CALL '\1aAC-UPDATE 2>
+ <FRAME '\1aAC-TIME>
+ <PUSH S16>
+ <DEAD S16>
+ <GVAL 'AC-STAMP = STACK>
+ <CALL '\1aAC-TIME 2 = TEMP13>
+PHRASE74
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aSTRCOMP!-MIMOC
\ No newline at end of file
projects / pdp10-muddle.git / blobdiff