--- /dev/null
+
+<COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD"> <FLOAD "MSGLUE-PM.MUD">)>
+
+#WORD *26154242754*
+<GFCN \1aGLUE-FIXUP ("VALUE" ANY)>
+ <TEMP TEMP13 TEMP15 FROB16:LIST TEMP19:LIST>
+ <INTGO>
+ <SET TEMP13 %<> (TYPE FALSE)>
+ <GVAL 'GLUE-LIST = TEMP15>
+ <LOOP>
+MAP5
+ <INTGO>
+ <EMPTY? TEMP15 + MAPAP8>
+ <NTH1 TEMP15 = FROB16>
+ <NTHL FROB16 5 = TEMP13 (TYPE LIST)>
+ <FRAME '\1aFIXUP-ONE-GLUE>
+ <RESTL FROB16 1 = TEMP19 (TYPE LIST)>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = STACK (TYPE LIST)>
+ <DEAD TEMP19>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <CALL '\1aFIXUP-ONE-GLUE 2>
+ <FRAME '\1aFIXUP-CONSTANTS>
+ <RESTL FROB16 1 = TEMP19 (TYPE LIST)>
+ <DEAD FROB16>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = STACK (TYPE LIST)>
+ <DEAD TEMP19>
+ <CALL '\1aFIXUP-CONSTANTS 1 = TEMP13>
+ <REST1 TEMP15 = TEMP15>
+ <JUMP + MAP5>
+MAPAP8
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aGLUE-FIXUP>
+#WORD *446452235*
+<GFCN \1aFIXUP-ONE-GLUE ("VALUE" <OR FALSE <LIST <OR INST <LIST FIX ATOM ANY>>>> LIST LIST) CODE4 LBL5>
+ <TEMP (N6:FIX 0) TEMP16 TEMP13:LIST LST18:LIST INS19 ITM20 CONST21:CONSTANT FC23:CONSTANT-BUCKET>
+ <INTGO>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <SET TEMP13 CODE4 (TYPE LIST)>
+ <DEAD CODE4>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPL? TEMP13 + MAPAP11>
+ <SET LST18 TEMP13>
+ <NTHL LST18 1 = INS19>
+ <TYPE? INS19 <TYPE-CODE ATOM> + PHRASE25>
+ <ADD N6 1 = N6 (TYPE FIX)>
+PHRASE25
+ <TYPE? INS19 <TYPE-CODE INST> + TAG28>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE75>
+TAG28
+ <NTHUV INS19 1 = ITM20>
+ <TYPE? ITM20 <TYPE-CODE GFRM> + TAG32>
+ <TYPE? ITM20 <TYPE-CODE SGFRM> + TAG32>
+ <TYPE? ITM20 <TYPE-CODE SBFRM> - PHRASE31>
+TAG32
+ <CHTYPE ITM20 <TYPE-CODE ATOM> = ITM20>
+ <VEQUAL? ITM20 'COMPERR - PHRASE34>
+ <FRAME '\1a+>
+ <GVAL 'SETZ = STACK>
+ <PUSH 106>
+ <CALL '\1a+ 2 = TEMP16>
+ <CHTYPE TEMP16 <TYPE-CODE CONSTANT> = CONST21>
+ <DEAD TEMP16>
+ <JUMP + PHRASE47>
+PHRASE34
+ <VEQUAL? ITM20 'UNWCONT + BOOL38>
+ <VEQUAL? ITM20 'IOERR - PHRASE37>
+BOOL38
+ <FRAME '\1a+>
+ <GVAL 'SETZ-IND = STACK>
+ <FRAME '\1aOPCODE>
+ <PUSH ITM20>
+ <DEAD ITM20>
+ <CALL '\1aOPCODE 1 = STACK>
+ <CALL '\1a+ 2 = TEMP16>
+ <CHTYPE TEMP16 <TYPE-CODE CONSTANT> = CONST21>
+ <DEAD TEMP16>
+ <JUMP + PHRASE47>
+PHRASE37
+ <FRAME '\1aFIND-LABEL>
+ <PUSH ITM20>
+ <CALL '\1aFIND-LABEL 1 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> - BOOL43>
+ <FRAME '\1aLONG-FIND-LABEL>
+ <PUSH ITM20>
+ <PUSH LBL5>
+ <CALL '\1aLONG-FIND-LABEL 2 = TEMP16>
+BOOL43
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + BOOL42>
+ <NTHUV TEMP16 2 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE41>
+BOOL42
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'BAD-FRM-LABEL!-ERRORS>
+ <PUSH ITM20>
+ <DEAD ITM20>
+ <CALL '\1aMIMOCERR 2>
+ <JUMP + PHRASE47>
+PHRASE41
+ <FRAME '\1a+>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <NTHUV INS19 1 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE GFRM> - PHRASE50>
+ <DEAD TEMP16>
+ <GVAL 'SETZ-R = TEMP16>
+ <JUMP + PHRASE53>
+PHRASE50
+ <NTHUV INS19 1 = ITM20>
+ <TYPE? ITM20 <TYPE-CODE SBFRM> - PHRASE51>
+ <DEAD ITM20>
+ <GVAL 'SETZQ-R = TEMP16>
+ <JUMP + PHRASE53>
+PHRASE51
+ <GVAL 'SETZX-R = TEMP16>
+PHRASE53
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1a+ 2 = TEMP16>
+ <CHTYPE TEMP16 <TYPE-CODE CONSTANT> = CONST21>
+ <DEAD TEMP16>
+PHRASE47
+ <GVAL 'FREE-CONSTS = TEMP16>
+ <NTHL TEMP16 1 = FC23 (TYPE CONSTANT-BUCKET)>
+ <DEAD TEMP16>
+ <PUTUV FC23 1 CONST21>
+ <GVAL 'FREE-CONSTS = ITM20>
+ <RESTL ITM20 1 = TEMP16 (TYPE LIST)>
+ <DEAD ITM20>
+ <SETG 'FREE-CONSTS TEMP16>
+ <DEAD TEMP16>
+ <PUSH FC23>
+ <DEAD FC23>
+ <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP16>
+ <CHTYPE TEMP16 <TYPE-CODE REF> = ITM20>
+ <DEAD TEMP16>
+ <NTHUV INS19 1 = TEMP16>
+ <DEAD INS19>
+ <TYPE? TEMP16 <TYPE-CODE SBFRM> - PHRASE56>
+ <DEAD TEMP16>
+ <PUSH 'MOVE>
+ <PUSH 'O*>
+ <PUSH ITM20>
+ <DEAD ITM20>
+ <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP16>
+ <CHTYPE TEMP16 <TYPE-CODE INST> = TEMP16>
+ <JUMP + PHRASE58>
+PHRASE56
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH ITM20>
+ <DEAD ITM20>
+ <UBLOCK <TYPE-CODE VECTOR> 3 = ITM20>
+ <CHTYPE ITM20 <TYPE-CODE INST> = TEMP16>
+ <DEAD ITM20>
+PHRASE58
+ <PUTL LST18 1 TEMP16>
+ <DEAD TEMP16>
+ <SET TEMP16 LST18>
+ <DEAD LST18>
+ <JUMP + PHRASE75>
+PHRASE31
+ <TYPE? ITM20 <TYPE-CODE GCAL> + TAG61>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE75>
+TAG61
+ <GVAL 'MAX-SPACE = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE64>
+ <DEAD TEMP16>
+ <PUSH 'JRST>
+ <PUSH 0>
+ <PUSH (R*)>
+ <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP16>
+ <CHTYPE TEMP16 <TYPE-CODE INST> = TEMP16>
+ <PUTL LST18 1 TEMP16>
+ <DEAD LST18 TEMP16>
+ <NTHUV INS19 3 = TEMP16>
+ <DEAD INS19>
+ <CONS TEMP16 () = TEMP16>
+ <CHTYPE ITM20 <TYPE-CODE ATOM> = ITM20>
+ <CONS ITM20 TEMP16 = TEMP16>
+ <DEAD ITM20>
+ <CONS N6 TEMP16 = STACK>
+ <DEAD TEMP16>
+ <SET ITM20 1 (TYPE FIX)>
+ <GVAL 'GCALS = TEMP16>
+ <TYPE TEMP16 = INS19>
+ <AND INS19 7 = INS19>
+ <VEQUAL? INS19 1 + TAG68>
+ <DEAD INS19>
+ <LOOP (TEMP16 TYPE VALUE LENGTH) (ITM20 VALUE)>
+TAG74
+ <INTGO>
+ <EMPTY? TEMP16 + TAG73>
+ <NTH1 TEMP16 = STACK>
+ <REST1 TEMP16 = TEMP16>
+ <ADD ITM20 1 = ITM20 (TYPE FIX)>
+ <JUMP + TAG74>
+TAG73
+ <LIST ITM20 = TEMP16 (TYPE LIST)>
+ <DEAD ITM20>
+ <JUMP + TAG69>
+TAG68
+ <LOOP>
+TAG71
+ <VEQUAL? ITM20 0 + TAG70>
+ <POP = INS19>
+ <CONS INS19 TEMP16 = TEMP16 (TYPE LIST)>
+ <DEAD INS19>
+ <SUB ITM20 1 = ITM20 (TYPE FIX)>
+ <JUMP + TAG71>
+TAG70
+TAG69
+ <SETG 'GCALS TEMP16>
+ <JUMP + PHRASE75>
+PHRASE64
+ <PUSH 'JRST>
+ <FRAME '\1aGFIND>
+ <CHTYPE ITM20 <TYPE-CODE ATOM> = STACK>
+ <DEAD ITM20>
+ <NTHUV INS19 3 = STACK>
+ <DEAD INS19>
+ <CALL '\1aGFIND 2 = STACK>
+ <PUSH (R*)>
+ <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP16>
+ <CHTYPE TEMP16 <TYPE-CODE INST> = TEMP16>
+ <PUTL LST18 1 TEMP16>
+ <DEAD TEMP16>
+ <SET TEMP16 LST18>
+ <DEAD LST18>
+PHRASE75
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <JUMP + MAP8>
+MAPAP11
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aFIXUP-ONE-GLUE>
+#WORD *23600646424*
+<GFCN \1aFIND-CALL ("VALUE" <OR !<FALSE> <LIST [REST ATOM]>> ATOM <LIST [REST ATOM]>) ATM4 LIST5>
+ <TEMP TEMP6>
+ <INTGO>
+ <LOOP>
+AGAIN9
+ <INTGO>
+ <EMPL? LIST5 - PHRASE11 (TYPE LIST)>
+ <RETURN %<>>
+PHRASE11
+ <FRAME '\1aSAME-NAME?>
+ <PUSH ATM4>
+ <NTHL LIST5 1 = STACK (TYPE ATOM)>
+ <CALL '\1aSAME-NAME? 2 = TEMP6>
+ <TYPE? TEMP6 <TYPE-CODE FALSE> + PHRASE13>
+ <DEAD TEMP6>
+ <RETURN LIST5>
+ <DEAD LIST5>
+PHRASE13
+ <RESTL LIST5 1 = LIST5 (TYPE LIST)>
+ <JUMP + AGAIN9>
+ <END \1aFIND-CALL>
+#WORD *16020755022*
+<GFCN
\1aFIND-OPT ("VALUE" <OR !<FALSE> <LIST [REST <PRIMTYPE LIST> ATOM]>> ATOM <LIST [REST ATOM <PRIMTYPE LIST>]>) ATM4 LIST5>
+ <TEMP TEMP6>
+ <INTGO>
+ <LOOP>
+AGAIN9
+ <INTGO>
+ <EMPL? LIST5 - PHRASE11 (TYPE LIST)>
+ <RETURN %<>>
+PHRASE11
+ <FRAME '\1aSAME-NAME?>
+ <PUSH ATM4>
+ <NTHL LIST5 1 = STACK (TYPE ATOM)>
+ <CALL '\1aSAME-NAME? 2 = TEMP6>
+ <TYPE? TEMP6 <TYPE-CODE FALSE> + PHRASE13>
+ <DEAD TEMP6>
+ <RESTL LIST5 1 = TEMP6 (TYPE LIST)>
+ <DEAD LIST5>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+PHRASE13
+ <RESTL LIST5 1 = LIST5 (TYPE LIST)>
+ <RESTL LIST5 1 = LIST5 (TYPE LIST)>
+ <JUMP + AGAIN9>
+ <END \1aFIND-OPT>
+#WORD *36313040576*
+<GFCN \1aSAME-NAME? ("VALUE" <OR ATOM FALSE> ATOM ATOM) X4 Y5>
+ <TEMP TEMP10 S16:STRING S27:STRING TEMP19 TEMP20 TEMP21 TEMP22>
+ <INTGO>
+ <GVAL 'INT-MODE = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE9>
+ <DEAD TEMP10>
+ <VEQUAL? X4 Y5 - TAG11>
+ <DEAD X4 Y5>
+ <RETURN 'T>
+TAG11
+ <RETURN %<>>
+PHRASE9
+ <NTHR X4 3 = S16 (RECORD-TYPE ATOM)>
+ <NTHR Y5 3 = S27 (RECORD-TYPE ATOM)>
+ <VEQUAL? X4 Y5 - TAG15>
+ <DEAD X4 Y5>
+ <RETURN 'T>
+TAG15
+ <LENUS S16 = TEMP10 (TYPE FIX)>
+ <GRTR? TEMP10 2 - TAG18 (TYPE FIX)>
+ <DEAD TEMP10>
+ <NTHUS S16 1 = TEMP10 (TYPE CHARACTER)>
+ <VEQUAL? TEMP10 !\T - TAG18>
+ <DEAD TEMP10>
+ <NTHUS S16 2 = TEMP10 (TYPE CHARACTER)>
+ <VEQUAL? TEMP10 !\$ - TAG18>
+ <DEAD TEMP10>
+ <RESTUS S16 2 = TEMP10 (TYPE STRING)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP10 S27 - TAG18>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP19 S27>
+ <LENUS TEMP10 = TEMP20 (TYPE FIX)>
+ <LENUS TEMP19 = TEMP21 (TYPE FIX)>
+ <VEQUAL? TEMP20 TEMP21 - TAG18>
+ <DEAD TEMP21>
+ <LOOP (TEMP10 VALUE LENGTH) (TEMP19 VALUE LENGTH) (TEMP20 VALUE)>
+TAG23
+ <NTHUS TEMP10 1 = TEMP21>
+ <NTHUS TEMP19 1 = TEMP22>
+ <VEQUAL? TEMP21 TEMP22 - TAG18>
+ <DEAD TEMP21 TEMP22>
+ <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
+ <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
+ <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
+ <GRTR? TEMP20 0 + TAG23 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <RETURN 'T>
+TAG18
+ <LENUS S27 = TEMP19 (TYPE FIX)>
+ <GRTR? TEMP19 2 + TAG25 (TYPE FIX)>
+ <DEAD TEMP19>
+ <RETURN %<>>
+TAG25
+ <NTHUS S27 1 = TEMP19 (TYPE CHARACTER)>
+ <VEQUAL? TEMP19 !\T + TAG26>
+ <DEAD TEMP19>
+ <RETURN %<>>
+TAG26
+ <NTHUS S27 2 = TEMP19 (TYPE CHARACTER)>
+ <VEQUAL? TEMP19 !\$ + TAG27>
+ <DEAD TEMP19>
+ <RETURN %<>>
+TAG27
+ <RESTUS S27 2 = TEMP19 (TYPE STRING)>
+ <DEAD S27>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP19 S16 - TAG28>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP10 S16>
+ <DEAD S16>
+ <LENUS TEMP19 = TEMP22 (TYPE FIX)>
+ <LENUS TEMP10 = TEMP21 (TYPE FIX)>
+ <VEQUAL? TEMP22 TEMP21 - TAG28>
+ <DEAD TEMP21>
+ <LOOP (TEMP19 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP22 VALUE)>
+TAG30
+ <NTHUS TEMP19 1 = TEMP21>
+ <NTHUS TEMP10 1 = TEMP20>
+ <VEQUAL? TEMP21 TEMP20 - TAG28>
+ <DEAD TEMP21>
+ <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
+ <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
+ <SUB TEMP22 1 = TEMP22 (TYPE FIX)>
+ <GRTR? TEMP22 0 + TAG30 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <RETURN 'T>
+TAG28
+ <RETURN %<>>
+ <END \1aSAME-NAME?>
+#WORD *26423722202*
+<GFCN \1aGFIND ("VALUE" ANY ATOM <OR ATOM FALSE>) NAM4 LBL?5>
+ <TEMP TEMP17 TEMP19 L20:LIST>
+ <INTGO>
+ <SET TEMP17 %<> (TYPE FALSE)>
+ <GVAL 'GLUE-LIST = TEMP19>
+ <LOOP>
+MAP9
+ <INTGO>
+ <EMPTY? TEMP19 + MAPAP12>
+ <NTH1 TEMP19 = L20>
+ <FRAME '\1aSAME-NAME?>
+ <NTHL L20 1 = STACK (TYPE ATOM)>
+ <PUSH NAM4>
+ <CALL '\1aSAME-NAME? 2 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE34>
+ <TYPE? LBL?5 <TYPE-CODE FALSE> + PHRASE26>
+ <FRAME '\1aFIND-LABEL>
+ <PUSH LBL?5>
+ <CALL '\1aFIND-LABEL 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE28>
+ <NTHUV TEMP17 2 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE28>
+ <JUMP + MAPEX11>
+PHRASE28
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'BAD-OPT-LABEL!-ERRORS>
+ <PUSH LBL?5>
+ <CALL '\1aMIMOCERR 2 = TEMP17>
+ <JUMP + PHRASE34>
+PHRASE26
+ <RESTL L20 1 = L20 (TYPE LIST)>
+ <RESTL L20 1 = L20 (TYPE LIST)>
+ <NTHL L20 1 = TEMP17 (TYPE FIX)>
+ <DEAD L20>
+ <JUMP + MAPEX11>
+PHRASE34
+ <REST1 TEMP19 = TEMP19>
+ <JUMP + MAP9>
+MAPAP12
+MAPEX11
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE37>
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'CANT-FIND-GL-ENTRY!-ERRORS>
+ <PUSH NAM4>
+ <DEAD NAM4>
+ <CALL '\1aMIMOCERR 2 = TEMP17>
+PHRASE37
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aGFIND>
+#WORD *11663257421*
+<GFCN \1aCALL-ANA ("VALUE" <OR FALSE LIST> LIST) L4>
+ <TEMP (ANA-L5:LIST ()) TEMP15 TEMP12:LIST ONE18:ATOM TEMP37 IT21 TEMP48 TEM20>
+ <INTGO>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <SET TEMP12 L4 (TYPE LIST)>
+ <DEAD L4>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPL? TEMP12 + MAPAP10>
+ <NTHL TEMP12 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FORM> + TAG26>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + PHRASE57>
+TAG26
+ <EMPL? TEMP15 - TAG28 (TYPE FORM)>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + PHRASE57>
+TAG28
+ <NTHL TEMP15 1 = ONE18 (TYPE ATOM)>
+ <VEQUAL? ONE18 'FRAME + BOOL31>
+ <VEQUAL? ONE18 'SFRAME - PHRASE30>
+BOOL31
+ <CONS TEMP15 ANA-L5 = ANA-L5>
+ <DEAD TEMP15>
+ <SET TEMP15 ANA-L5>
+ <JUMP + PHRASE57>
+PHRASE30
+ <VEQUAL? ONE18 'CALL + BOOL33>
+ <VEQUAL? ONE18 'SCALL - PHRASE32>
+BOOL33
+ <RESTL TEMP15 1 = TEMP37 (TYPE LIST)>
+ <NTHL TEMP37 1 = IT21>
+ <DEAD TEMP37>
+ <TYPE? IT21 <TYPE-CODE FORM> - PHRASE53>
+ <EMPL? IT21 + PHRASE53>
+ <RESTL IT21 1 = TEMP37 (TYPE LIST)>
+ <EMPL? TEMP37 + PHRASE53>
+ <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
+ <EMPL? TEMP37 - PHRASE53>
+ <DEAD TEMP37>
+ <NTHL IT21 1 = TEMP37>
+ <EQUAL? TEMP37 'QUOTE - PHRASE53>
+ <DEAD TEMP37>
+ <RESTL IT21 1 = TEMP37 (TYPE LIST)>
+ <DEAD IT21>
+ <NTHL TEMP37 1 = IT21>
+ <DEAD TEMP37>
+ <GVAL 'GLUE-MODE = TEMP37>
+ <TYPE? TEMP37 <TYPE-CODE FALSE> + BOOL42>
+ <DEAD TEMP37>
+ <FRAME '\1aFIND-CALL>
+ <PUSH IT21>
+ <GVAL 'PRE-NAMES = STACK>
+ <CALL '\1aFIND-CALL 2 = TEMP37>
+ <TYPE? TEMP37 <TYPE-CODE FALSE> - BOOL41>
+ <DEAD TEMP37>
+BOOL42
+ <FRAME '\1aSUBRIFY?>
+ <PUSH IT21>
+ <CALL '\1aSUBRIFY? 1 = TEMP37>
+ <TYPE? TEMP37 <TYPE-CODE FALSE> + PHRASE53>
+ <DEAD TEMP37>
+BOOL41
+ <SET TEMP37 [GVAL GASSIGNED?] (TYPE VECTOR)>
+ <TYPE? IT21 <TYPE-CODE ATOM> - TAG45>
+ <LOOP (IT21 VALUE) (TEMP37 LENGTH VALUE)>
+TAG46
+ <NTHUV TEMP37 1 = TEMP48>
+ <VEQUAL? TEMP48 IT21 + PHRASE53>
+ <DEAD TEMP48>
+ <RESTUV TEMP37 1 = TEMP37 (TYPE VECTOR)>
+ <EMPUV? TEMP37 - TAG46>
+TAG45
+ <NTHL ANA-L5 1 = TEM20>
+ <TYPE? TEM20 <TYPE-CODE FORM> - BOOL51>
+ <EMPL? TEM20 + BOOL51>
+ <RESTL TEM20 1 = TEMP37 (TYPE LIST)>
+ <EMPL? TEMP37 + BOOL51>
+ <DEAD TEMP37>
+ <RESTL TEM20 1 = TEMP37 (TYPE LIST)>
+ <NTHL TEMP37 1 = TEMP48>
+ <DEAD TEMP37>
+ <TYPE? TEMP48 <TYPE-CODE FORM> - BOOL51>
+ <EMPL? TEMP48 + BOOL51>
+ <RESTL TEMP48 1 = TEMP37 (TYPE LIST)>
+ <EMPL? TEMP37 + BOOL51>
+ <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
+ <EMPL? TEMP37 - BOOL51>
+ <DEAD TEMP37>
+ <NTHL TEMP48 1 = TEMP37>
+ <EQUAL? TEMP37 'QUOTE - BOOL51>
+ <DEAD TEMP37>
+ <RESTL TEMP48 1 = TEMP37 (TYPE LIST)>
+ <DEAD TEMP48>
+ <NTHL TEMP37 1 = TEMP37>
+ <EQUAL? TEMP37 IT21 + PHRASE50>
+ <DEAD TEMP37>
+BOOL51
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'BAD-FRAME-CALL-MATCH!-ERRORS>
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH TEM20>
+ <DEAD TEM20>
+ <CALL '\1aMIMOCERR 3>
+ <JUMP + PHRASE53>
+PHRASE50
+ <FRAME '\1aGENLBL>
+ <PUSH "?FRM">
+ <CALL '\1aGENLBL 1 = ONE18>
+ <CONS ONE18 () = TEMP37>
+ <CONS IT21 () = TEMP48>
+ <DEAD IT21>
+ <PUTREST TEMP37 TEMP48>
+ <DEAD TEMP48>
+ <PUTREST TEM20 TEMP37>
+ <DEAD TEM20 TEMP37>
+ <SET TEMP37 TEMP15>
+ <DEAD TEMP15>
+ <LOOP (TEMP37 VALUE)>
+TAG55
+ <RESTL TEMP37 1 = TEMP48 (TYPE LIST)>
+ <EMPL? TEMP48 + TAG56>
+ <SET TEMP37 TEMP48>
+ <DEAD TEMP48>
+ <JUMP + TAG55>
+TAG56
+ <CONS ONE18 () = TEMP48>
+ <DEAD ONE18>
+ <PUTREST TEMP37 TEMP48>
+ <DEAD TEMP37 TEMP48>
+PHRASE53
+ <RESTL ANA-L5 1 = ANA-L5 (TYPE LIST)>
+ <SET TEMP15 ANA-L5>
+ <JUMP + PHRASE57>
+PHRASE32
+ <VEQUAL? ONE18 'ACALL + TAG58>
+ <DEAD ONE18>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + PHRASE57>
+TAG58
+ <RESTL ANA-L5 1 = ANA-L5 (TYPE LIST)>
+ <SET TEMP15 ANA-L5>
+PHRASE57
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aCALL-ANA>
+#WORD *22557434101*
+<FCN \1aMIMOC ("VALUE" ANY <LIST [REST <OR ATOM FORM>]> "OPTIONAL" ANY) L6 WINNER7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP3:LBIND TEMP13 LSEQ23:FIX OLD-LOCS24:LIST TEMP38 TEMP41 TEMP43 TEMP44 ITM42 OPT?52 OP47 ATM126 DC127 TEMP134 TEMP135 TEMP136 TEMP137 TEMP138 NAME8:ATOM>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <GEN-LVAL 'OBLIST = TEMP13>
+ <BBIND 'OBLIST 'ANY 'FIX TEMP13>
+ <DEAD TEMP13>
+ <GEN-LVAL 'OUTCHAN = TEMP13>
+ <BBIND 'OUTCHAN 'ANY 'FIX TEMP13>
+ <DEAD TEMP13>
+ <CFRAME = TEMP13 (TYPE FRAME)>
+ <BBIND 'MACT 'ANY 'FIX TEMP13>
+ <DEAD TEMP13>
+ <ACTIVATION>
+ <GVAL 'NO-AC-FUNNYNESS = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE19>
+ <DEAD TEMP13>
+ <SETG 'PASS1 %<>>
+ <JUMP + PHRASE20>
+PHRASE19
+ <SETG 'PASS1 'T>
+PHRASE20
+ <SETG 'LAST-UNCON %<>>
+ <SETG 'NEXT-LOOP %<>>
+ <SETG 'VISIT-COUNT 0>
+ <SETG 'AC-STAMP 0>
+ <SETG 'LABELS ()>
+ <FRAME '\1aPRE-HACK>
+ <PUSH L6>
+ <CALL '\1aPRE-HACK 1>
+ <GVAL 'LBLSEQ = LSEQ23>
+ <SET OLD-LOCS24 () (TYPE LIST)>
+ <LOOP>
+AGAIN25
+ <INTGO>
+ <FRAME '\1aFLUSH-ACS>
+ <CALL '\1aFLUSH-ACS 0>
+ <SETG 'STACK-DEPTH 0>
+ <SETG 'CHANGED %<>>
+ <TYPE? WINNER7 <TYPE-CODE FALSE> + PHRASE28>
+ <SETG 'WINNING-VICTIM 2>
+ <JUMP + PHRASE29>
+PHRASE28
+ <SETG 'WINNING-VICTIM %<>>
+PHRASE29
+ <SET TEMP13 L6 (TYPE LIST)>
+ <LOOP>
+MAP31
+ <INTGO>
+ <EMPL? TEMP13 + MAPAP34>
+ <GETS 'BIND = TEMP38 (TYPE LBIND)>
+ <SET TEMP41 TEMP13>
+ <BBIND 'MIML 'LIST 'FIX TEMP41>
+ <DEAD TEMP41>
+ <NTHR 'MIML 2 = TEMP44 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP44 1 = TEMP43 (RECORD-TYPE LBIND)>
+ <DEAD TEMP44>
+ <NTHL TEMP43 1 = ITM42>
+ <DEAD TEMP43>
+ <SET OPT?52 %<> (TYPE FALSE)>
+ <GVAL 'ACA-AC = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE54>
+ <DEAD TEMP43>
+ <GVAL 'ACA-ITEM = TEMP43>
+ <GVAL 'ACA-AC = TEMP44>
+ <PUTUV TEMP44 2 TEMP43>
+ <DEAD TEMP44 TEMP43>
+ <GVAL 'ACA-BOTH = TEMP44>
+ <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE56>
+ <DEAD TEMP44>
+ <GVAL 'ACA-ITEM = TEMP44>
+ <GVAL 'ACA-BOTH = TEMP43>
+ <PUTUV TEMP43 2 TEMP44>
+ <DEAD TEMP43 TEMP44>
+PHRASE56
+ <SETG 'ACA-AC %<>>
+PHRASE54
+ <SETG 'FIRST-AC 'T>
+ <TYPE? ITM42 <TYPE-CODE ATOM> - PHRASE58>
+ <GVAL 'ICALL-TAGS = TEMP44>
+ <EMPL? TEMP44 + PHRASE60>
+ <LOOP (ITM42 VALUE) (TEMP44 VALUE)>
+TAG63
+ <NTHL TEMP44 1 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE ATOM> - TAG64>
+ <VEQUAL? TEMP43 ITM42 + TAG62>
+ <DEAD TEMP43>
+TAG64
+ <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
+ <EMPL? TEMP44 - TAG63>
+ <JUMP + PHRASE60>
+TAG62
+ <FRAME '\1aPUSHJ-VAL>
+ <RESTL TEMP44 1 = TEMP43 (TYPE LIST)>
+ <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
+ <NTHL TEMP43 1 = STACK>
+ <DEAD TEMP43>
+ <CALL '\1aPUSHJ-VAL 1>
+ <SETG 'LAST-UNCON %<>>
+ <FRAME '\1aLABEL>
+ <RESTL TEMP44 1 = TEMP43 (TYPE LIST)>
+ <DEAD TEMP44>
+ <NTHL TEMP43 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP43>
+ <PUSH %<>>
+ <NTHR 'MIML 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP43>
+ <CALL '\1aLABEL 3>
+ <GVAL 'ICALL-FLAG = TEMP43>
+ <SUB TEMP43 1 = TEMP43 (TYPE FIX)>
+ <SETG 'ICALL-FLAG TEMP43>
+ <VEQUAL? TEMP43 0 - PHRASE70 (TYPE FIX)>
+ <DEAD TEMP43>
+ <SETG 'ICALL-FLAG %<>>
+PHRASE70
+ <GVAL 'PASS1 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> - PHRASE74>
+ <DEAD TEMP43>
+ <FRAME '\1aFIXUP-LOCALS>
+ <GVAL 'ALL-ICALL-TEMPS = TEMP44>
+ <NTHL TEMP44 1 = TEMP44>
+ <RESTL TEMP44 1 = TEMP43 (TYPE LIST)>
+ <DEAD TEMP44>
+ <CHTYPE TEMP43 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP43>
+ <CALL '\1aFIXUP-LOCALS 1>
+PHRASE74
+ <GVAL 'ALL-ICALL-TEMPS = TEMP44>
+ <NTHL TEMP44 1 = TEMP44>
+ <PUTREST TEMP44 ()>
+ <DEAD TEMP44>
+ <GVAL 'ALL-ICALL-TEMPS = TEMP43>
+ <RESTL TEMP43 1 = TEMP44 (TYPE LIST)>
+ <DEAD TEMP43>
+ <SETG 'ALL-ICALL-TEMPS TEMP44>
+ <DEAD TEMP44>
+ <GVAL 'ALL-TEMP-CC = TEMP43>
+ <NTHL TEMP43 1 = TEMP43 (TYPE LIST)>
+ <SETG 'TEMP-CC TEMP43>
+ <DEAD TEMP43>
+ <GVAL 'ALL-TEMP-CC = TEMP44>
+ <RESTL TEMP44 1 = TEMP43 (TYPE LIST)>
+ <DEAD TEMP44>
+ <SETG 'ALL-TEMP-CC TEMP43>
+ <DEAD TEMP43>
+PHRASE60
+ <GVAL 'PASS1 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE78>
+ <DEAD TEMP43>
+ <FRAME '\1aLABEL>
+ <PUSH ITM42>
+ <DEAD ITM42>
+ <PUSH %<>>
+ <NTHR 'MIML 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP43>
+ <CALL '\1aLABEL 3 = TEMP43>
+ <FRAME '\1aSAVE-LABEL-STATE>
+ <PUSH TEMP43>
+ <DEAD TEMP43>
+ <CALL '\1aSAVE-LABEL-STATE 1>
+ <JUMP + PHRASE88>
+PHRASE78
+ <GVAL 'NO-AC-FUNNYNESS = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE83>
+ <DEAD TEMP43>
+ <FRAME '\1aSAVE-ACS>
+ <CALL '\1aSAVE-ACS 0>
+ <FRAME '\1aLABEL>
+ <PUSH ITM42>
+ <DEAD ITM42>
+ <PUSH %<>>
+ <NTHR 'MIML 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP43>
+ <CALL '\1aLABEL 3>
+ <JUMP + PHRASE88>
+PHRASE83
+ <FRAME '\1aFIND-LABEL>
+ <PUSH ITM42>
+ <CALL '\1aFIND-LABEL 1 = TEMP43>
+ <FRAME '\1aESTABLISH-LABEL-STATE>
+ <PUSH TEMP43>
+ <DEAD TEMP43>
+ <CALL '\1aESTABLISH-LABEL-STATE 1>
+ <FRAME '\1aLABEL>
+ <PUSH ITM42>
+ <DEAD ITM42>
+ <PUSH %<>>
+ <NTHR 'MIML 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP43>
+ <CALL '\1aLABEL 3>
+PHRASE88
+ <SETG 'NEXT-LOOP %<>>
+ <SETG 'LAST-UNCON %<>>
+ <JUMP + PHRASE207>
+PHRASE58
+ <LENL ITM42 = TEMP41 (TYPE FIX)>
+ <VEQUAL? TEMP41 0 - PHRASE96 (TYPE FIX)>
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'BAD-SYNTAX!-ERRORS>
+ <PUSH ITM42>
+ <DEAD ITM42>
+ <CALL '\1aMIMOCERR 2>
+ <JUMP + PHRASE207>
+PHRASE96
+ <NTHL ITM42 1 = OP47>
+ <TYPE? OP47 <TYPE-CODE ATOM> + PHRASE100>
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'BAD-SYNTAX!-ERRORS>
+ <PUSH ITM42>
+ <DEAD ITM42>
+ <CALL '\1aMIMOCERR 2>
+ <JUMP + PHRASE207>
+PHRASE100
+ <SET TEMP43 [FCN GFCN] (TYPE VECTOR)>
+ <LOOP (OP47 VALUE) (TEMP43 LENGTH VALUE)>
+TAG104
+ <NTHUV TEMP43 1 = TEMP44>
+ <VEQUAL? TEMP44 OP47 + TAG103>
+ <DEAD TEMP44>
+ <RESTUV TEMP43 1 = TEMP43 (TYPE VECTOR)>
+ <EMPUV? TEMP43 - TAG104>
+ <JUMP + PHRASE102>
+TAG103
+ <GVAL 'V1 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL106>
+ <DEAD TEMP43>
+ <GVAL 'PASS1 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> - BOOL106>
+ <DEAD TEMP43>
+ <FRAME '\1aPRINT>
+ <PUSH ITM42>
+ <NTHR 'OUTCHAN 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP43>
+ <CALL '\1aPRINT 2>
+BOOL106
+ <FRAME '\1aFLUSH-ACS>
+ <CALL '\1aFLUSH-ACS 0>
+ <LESS? TEMP41 3 - PHRASE112 (TYPE FIX)>
+ <DEAD TEMP41>
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'BAD-SYNTAX!-ERRORS>
+ <PUSH ITM42>
+ <DEAD ITM42>
+ <CALL '\1aMIMOCERR 2>
+ <JUMP + PHRASE207>
+PHRASE112
+ <RESTL ITM42 1 = TEMP43 (TYPE LIST)>
+ <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
+ <NTHL TEMP43 1 = TEMP43>
+ <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
+ <RESTL TEMP43 1 = TEMP41 (TYPE LIST)>
+ <DEAD TEMP43>
+ <CHTYPE TEMP41 <TYPE-CODE LIST> = TEMP41>
+ <SET TEMP43 () (TYPE LIST)>
+ <SET TEMP44 () (TYPE LIST)>
+ <RESTL ITM42 1 = OP47 (TYPE LIST)>
+ <RESTL OP47 1 = OP47 (TYPE LIST)>
+ <RESTL OP47 1 = OP47 (TYPE LIST)>
+ <CHTYPE OP47 <TYPE-CODE LIST> = OP47>
+ <LOOP>
+MAP116
+ <INTGO>
+ <EMPL? OP47 + MAPAP119>
+ <NTHL OP47 1 = ATM126>
+ <LOOP>
+AGAIN129
+ <INTGO>
+ <NTHL TEMP41 1 = DC127>
+ <TYPE? DC127 <TYPE-CODE STRING> - PHRASE131>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? DC127 "OPTIONAL" - PHRASE133>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP134 DC127>
+ <SET TEMP135 "OPTIONAL" (TYPE STRING)>
+ <LENUS TEMP134 = TEMP136 (TYPE FIX)>
+ <VEQUAL? TEMP136 8 - PHRASE133>
+ <LOOP (TEMP134 VALUE LENGTH) (TEMP135 VALUE LENGTH) (TEMP136 VALUE)>
+TAG139
+ <NTHUS TEMP134 1 = TEMP137>
+ <NTHUS TEMP135 1 = TEMP138>
+ <VEQUAL? TEMP137 TEMP138 - PHRASE133>
+ <DEAD TEMP137 TEMP138>
+ <RESTUS TEMP134 1 = TEMP134 (TYPE STRING)>
+ <RESTUS TEMP135 1 = TEMP135 (TYPE STRING)>
+ <SUB TEMP136 1 = TEMP136 (TYPE FIX)>
+ <GRTR? TEMP136 0 + TAG139 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <SET OPT?52 'T (TYPE ATOM)>
+ <JUMP + PHRASE140>
+PHRASE133
+ <VEQUAL? DC127 "TUPLE" - PHRASE140>
+ <DEAD DC127>
+ <SET OPT?52 %<> (TYPE FALSE)>
+PHRASE140
+ <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
+ <JUMP + AGAIN129>
+PHRASE131
+ <GVAL 'WINNING-VICTIM = TEMP135>
+ <TYPE? TEMP135 <TYPE-CODE FALSE> + PHRASE142>
+ <DEAD TEMP135>
+ <GVAL 'WINNING-VICTIM = TEMP135>
+ <ADD TEMP135 2 = TEMP135 (TYPE FIX)>
+ <SETG 'WINNING-VICTIM TEMP135>
+ <DEAD TEMP135>
+PHRASE142
+ <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
+ <PUSH ATM126>
+ <DEAD ATM126>
+ <VEQUAL? OPT?52 0 + PHRASE145>
+ <SET TEMP135 'OARG (TYPE ATOM)>
+ <JUMP + PHRASE146>
+PHRASE145
+ <SET TEMP135 'ARG (TYPE ATOM)>
+PHRASE146
+ <PUSH TEMP135>
+ <DEAD TEMP135>
+ <GVAL 'LBLSEQ = TEMP135>
+ <ADD TEMP135 1 = TEMP135 (TYPE FIX)>
+ <SETG 'LBLSEQ TEMP135>
+ <CHTYPE TEMP135 <TYPE-CODE LOCAL-NAME> = STACK>
+ <DEAD TEMP135>
+ <FRAME '\1aDECL-HACK>
+ <PUSH DC127>
+ <DEAD DC127>
+ <CALL '\1aDECL-HACK 1 = STACK>
+ <PUSH %<>>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 6 = TEMP135>
+ <CHTYPE TEMP135 <TYPE-CODE LOCAL> = TEMP135>
+ <CONS TEMP135 () = TEMP135 (TYPE LIST)>
+ <EMPL? TEMP43 - TAG148>
+ <SET TEMP43 TEMP135 (TYPE LIST)>
+ <JUMP + TAG149>
+TAG148
+ <PUTREST TEMP44 TEMP135>
+ <DEAD TEMP44>
+TAG149
+ <SET TEMP44 TEMP135 (TYPE LIST)>
+ <DEAD TEMP135>
+ <RESTL OP47 1 = OP47 (TYPE LIST)>
+ <JUMP + MAP116>
+MAPAP119
+ <CONS 'T TEMP43 = OP47>
+ <DEAD TEMP43>
+ <SETG 'LOCALS OP47>
+ <DEAD OP47>
+ <SETG 'ALL-TEMP-CC ()>
+ <SETG 'TYPED-LOCALS ()>
+ <LENL ITM42 = OP47 (TYPE FIX)>
+ <SUB OP47 3 = OP47 (TYPE FIX)>
+ <SETG 'NRARGS OP47>
+ <DEAD OP47>
+ <RESTL ITM42 1 = OP47 (TYPE LIST)>
+ <NTHL OP47 1 = NAME8 (TYPE ATOM)>
+ <DEAD OP47>
+ <CONS 'T () = OP47>
+ <SETG 'CODE OP47>
+ <DEAD OP47>
+ <GVAL 'CODE = OP47>
+ <SETG 'CC OP47>
+ <DEAD OP47>
+ <GVAL 'GLUE-MODE = OP47>
+ <TYPE? OP47 <TYPE-CODE FALSE> - PHRASE151>
+ <DEAD OP47>
+ <SETG 'CONSTANT-VECTOR ()>
+ <SETG 'FREE-CONSTS ()>
+ <GVAL 'CONSTANT-TABLE = TEMP137>
+ <LOOP>
+MAP153
+ <INTGO>
+ <EMPUV? TEMP137 + MAPAP156>
+ <SET TEMP41 TEMP137>
+ <PUTUV TEMP41 1 () (TYPE LIST)>
+ <DEAD TEMP41>
+ <RESTUV TEMP137 1 = TEMP137 (TYPE VECTOR)>
+ <JUMP + MAP153>
+MAPAP156
+ <RESTL ITM42 1 = TEMP137 (TYPE LIST)>
+ <DEAD ITM42>
+ <RESTL TEMP137 1 = TEMP137 (TYPE LIST)>
+ <NTHL TEMP137 1 = TEMP137>
+ <CONS TEMP137 () = TEMP137>
+ <CONS NAME8 TEMP137 = TEMP137>
+ <CONS 'T TEMP137 = TEMP137>
+ <SETG 'MVECTOR TEMP137>
+ <DEAD TEMP137>
+ <GVAL 'MV-TABLE = TEMP43>
+ <LOOP>
+MAP161
+ <INTGO>
+ <EMPUV? TEMP43 + MAPAP164>
+ <SET TEMP41 TEMP43>
+ <PUTUV TEMP41 1 () (TYPE LIST)>
+ <DEAD TEMP41>
+ <RESTUV TEMP43 1 = TEMP43 (TYPE VECTOR)>
+ <JUMP + MAP161>
+MAPAP164
+ <SETG 'MV-COUNT 0>
+ <SETG 'FINAL-LOCALS ()>
+ <GVAL 'MVECTOR = TEMP43>
+ <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
+ <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
+ <SETG 'MV TEMP43>
+ <DEAD TEMP43>
+ <JUMP + PHRASE170>
+PHRASE151
+ <SETG 'GLUE-NAME NAME8>
+ <RESTL ITM42 1 = TEMP43 (TYPE LIST)>
+ <DEAD ITM42>
+ <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
+ <NTHL TEMP43 1 = TEMP43>
+ <SETG 'GLUE-DECL TEMP43>
+ <DEAD TEMP43>
+ <SETG 'GREFS ()>
+ <SETG 'GCALS ()>
+PHRASE170
+ <SETG 'ICALL-FLAG %<>>
+ <SETG 'ICALL-TAGS ()>
+ <SETG 'LOOPTAGS ()>
+ <SETG 'LOCATIONS ()>
+ <SETG 'OPT-LIST %<>>
+ <JUMP + PHRASE207>
+PHRASE102
+ <VEQUAL? OP47 'TEMP - PHRASE171>
+ <GVAL 'V1 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL172>
+ <DEAD TEMP43>
+ <GVAL 'PASS1 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> - BOOL172>
+ <DEAD TEMP43>
+ <FRAME '\1aPRINT>
+ <PUSH ITM42>
+ <NTHR 'OUTCHAN 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP43>
+ <CALL '\1aPRINT 2 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL172>
+ <DEAD TEMP43>
+ <FRAME '\1aCRLF>
+ <NTHR 'OUTCHAN 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP43>
+ <CALL '\1aCRLF 1>
+BOOL172
+ <FRAME '\1aSORT-TEMPS>
+ <PUSH ITM42>
+ <DEAD ITM42>
+ <CALL '\1aSORT-TEMPS 1 = ITM42>
+ <FRAME '\1aTEMP-INIT>
+ <RESTL ITM42 1 = TEMP43 (TYPE LIST)>
+ <CHTYPE TEMP43 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP43>
+ <PUSH %<>>
+ <PUSH OLD-LOCS24>
+ <CALL '\1aTEMP-INIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE207>
+ <DEAD TEMP43>
+ <LENL ITM42 = TEMP43 (TYPE FIX)>
+ <DEAD ITM42>
+ <LSH TEMP43 1 = TEMP43 (TYPE FIX)>
+ <GVAL 'WINNING-VICTIM = TEMP138>
+ <ADD TEMP43 TEMP138 = TEMP43 (TYPE FIX)>
+ <DEAD TEMP138>
+ <ADD TEMP43 -2 = TEMP43 (TYPE FIX)>
+ <SETG 'WINNING-VICTIM TEMP43>
+ <DEAD TEMP43>
+ <JUMP + PHRASE207>
+PHRASE171
+ <VEQUAL? OP47 'OPT-DISPATCH - PHRASE183>
+ <FRAME '\1aOPT-INIT>
+ <RESTL ITM42 1 = TEMP43 (TYPE LIST)>
+ <DEAD ITM42>
+ <CHTYPE TEMP43 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP43>
+ <CALL '\1aOPT-INIT 1>
+ <JUMP + PHRASE207>
+PHRASE183
+ <VEQUAL? OP47 'MAKTUP - PHRASE185>
+ <GVAL 'V1 = TEMP138>
+ <TYPE? TEMP138 <TYPE-CODE FALSE> + BOOL186>
+ <DEAD TEMP138>
+ <GVAL 'PASS1 = TEMP138>
+ <TYPE? TEMP138 <TYPE-CODE FALSE> - BOOL186>
+ <DEAD TEMP138>
+ <FRAME '\1aPRINT>
+ <PUSH ITM42>
+ <NTHR 'OUTCHAN 2 = TEMP138 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP138 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP138>
+ <CALL '\1aPRINT 2 = TEMP138>
+ <TYPE? TEMP138 <TYPE-CODE FALSE> + BOOL186>
+ <DEAD TEMP138>
+ <FRAME '\1aCRLF>
+ <NTHR 'OUTCHAN 2 = TEMP138 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP138 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP138>
+ <CALL '\1aCRLF 1>
+BOOL186
+ <FRAME '\1aSORT-TEMPS>
+ <PUSH ITM42>
+ <DEAD ITM42>
+ <CALL '\1aSORT-TEMPS 1 = ITM42>
+ <FRAME '\1aTEMP-INIT>
+ <RESTL ITM42 1 = TEMP138 (TYPE LIST)>
+ <DEAD ITM42>
+ <CHTYPE TEMP138 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP138>
+ <PUSH 'T>
+ <PUSH OLD-LOCS24>
+ <CALL '\1aTEMP-INIT 3>
+ <JUMP + PHRASE207>
+PHRASE185
+ <GVAL 'NEXT-FLUSH = TEMP43>
+ <GRTR? TEMP43 0 - PHRASE195 (TYPE FIX)>
+ <DEAD TEMP43>
+ <GVAL 'V1 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE200>
+ <DEAD TEMP43>
+ <GVAL 'PASS1 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> - PHRASE200>
+ <DEAD TEMP43>
+ <FRAME '\1aPRINT>
+ <PUSH ITM42>
+ <DEAD ITM42>
+ <NTHR 'OUTCHAN 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP43>
+ <CALL '\1aPRINT 2>
+PHRASE200
+ <VEQUAL? OP47 'DEAD + PHRASE207>
+ <DEAD OP47>
+ <GVAL 'NEXT-FLUSH = TEMP43>
+ <SUB TEMP43 1 = TEMP43 (TYPE FIX)>
+ <SETG 'NEXT-FLUSH TEMP43>
+ <DEAD TEMP43>
+ <JUMP + PHRASE207>
+PHRASE195
+ <VEQUAL? OP47 'DEAD + PHRASE209>
+ <DEAD OP47>
+ <SETG 'NEXT-LOOP %<>>
+ <SETG 'LAST-UNCON %<>>
+PHRASE209
+ <FRAME '\1aOC>
+ <PUSH ITM42>
+ <DEAD ITM42>
+ <NTHR 'OBLIST 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP43>
+ <CALL '\1aOC 2>
+ <FRAME '\1aGET-AC>
+ <PUSH 'T*>
+ <CALL '\1aGET-AC 1 = TEMP43>
+ <PUTUV TEMP43 4 %<CHTYPE <MIN> FIX> (TYPE FIX)>
+ <DEAD TEMP43>
+PHRASE207
+ <UNBIND TEMP38>
+ <DEAD TEMP38>
+ <ADJ -9>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <JUMP + MAP31>
+MAPAP34
+ <GVAL 'PASS1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE215>
+ <DEAD TEMP13>
+ <SETG 'LBLSEQ LSEQ23>
+ <GVAL 'LOCALS = OLD-LOCS24>
+ <FRAME '\1aMERGE-LABEL-STATES>
+ <CALL '\1aMERGE-LABEL-STATES 0>
+ <GVAL 'CHANGED = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE218>
+ <DEAD TEMP13>
+ <SETG 'PASS1 %<>>
+ <JUMP + AGAIN25>
+PHRASE218
+ <NTHR 'LOOP-DEBUG 1 = TEMP13 (RECORD-TYPE ATOM) (BRANCH-FALSE + AGAIN25)>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + AGAIN25>
+ <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP13 <TYPE-CODE UNBOUND> + AGAIN25>
+ <DEAD TEMP13>
+ <GVAL 'LOOP-DEBUG = TEMP13>
+ <EQUAL? TEMP13 1 - PHRASE221>
+ <DEAD TEMP13>
+ <FRAME '\1aPRINC>
+ <PUSH "Changed: ">
+ <NTHR 'OUTCHAN 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP13 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP13>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <GVAL 'CHANGED = STACK>
+ <NTHR 'OUTCHAN 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP13 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP13>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aCRLF>
+ <NTHR 'OUTCHAN 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP13 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP13>
+ <CALL '\1aCRLF 1>
+ <JUMP + AGAIN25>
+PHRASE221
+ <FRAME '\1aERROR>
+ <GVAL 'CHANGED = STACK>
+ <CALL '\1aERROR 1>
+ <JUMP + AGAIN25>
+PHRASE215
+ <FRAME '\1aFIXUP-LOCALS>
+ <GVAL 'LOCALS = TEMP38>
+ <RESTL TEMP38 1 = STACK (TYPE LIST)>
+ <DEAD TEMP38>
+ <CALL '\1aFIXUP-LOCALS 1>
+ <GVAL 'PEEP-ENABLED = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE235>
+ <DEAD TEMP38>
+ <FRAME '\1aPPOLE>
+ <GVAL 'CODE = STACK>
+ <SET TEMP13 1 (TYPE FIX)>
+ <GVAL 'CODE = TEMP38>
+ <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
+ <LOOP (TEMP38 VALUE) (TEMP13 VALUE)>
+TAG237
+ <INTGO>
+ <EMPL? TEMP38 + TAG236>
+ <NTHL TEMP38 1 = STACK>
+ <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG237>
+TAG236
+ <CALL '\1aPPOLE TEMP13 = TEMP38>
+ <DEAD TEMP13>
+ <SETG 'CODE TEMP38>
+ <DEAD TEMP38>
+PHRASE235
+ <FRAME '\1aFIXUP-REFS>
+ <CALL '\1aFIXUP-REFS 0>
+ <GVAL 'OPT-LIST = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> + MAPAP268>
+ <GVAL 'GLUE-MODE = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + MAPAP250>
+ <DEAD TEMP13>
+ <FRAME '\1aFIND-OPT>
+ <PUSH NAME8>
+ <GVAL 'PRE-OPTS = STACK>
+ <CALL '\1aFIND-OPT 2 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> + MAPAP250>
+ <NTHL TEMP38 1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + MAPAP250>
+ <DEAD TEMP13>
+ <NTHL TEMP38 1 = TEMP13>
+ <DEAD TEMP38>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <RESTL TEMP13 1 = OLD-LOCS24 (TYPE LIST)>
+ <DEAD TEMP13>
+ <CHTYPE OLD-LOCS24 <TYPE-CODE LIST> = OLD-LOCS24>
+ <FRAME '\1aREST>
+ <GVAL 'OPT-LIST = STACK>
+ <PUSH 2>
+ <CALL '\1aREST 2 = TEMP13>
+ <LOOP>
+MAP247
+ <INTGO>
+ <EMPL? OLD-LOCS24 + MAPAP250>
+ <EMPTY? TEMP13 + MAPAP250>
+ <NTHL OLD-LOCS24 1 = TEMP43>
+ <NTH1 TEMP13 = TEMP38>
+ <GVAL TEMP38 = TEMP38>
+ <NTHR TEMP43 1 = TEMP44 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG262)>
+ <TYPE? TEMP44 <TYPE-CODE FALSE> + TAG262>
+ <PUTR TEMP44 1 TEMP38 (RECORD-TYPE GBIND)>
+ <DEAD TEMP44 TEMP38>
+ <JUMP + TAG263>
+TAG262
+ <FRAME '\1aSETG>
+ <PUSH TEMP43>
+ <DEAD TEMP43>
+ <PUSH TEMP38>
+ <DEAD TEMP38>
+ <CALL '\1aSETG 2>
+TAG263
+ <RESTL OLD-LOCS24 1 = OLD-LOCS24 (TYPE LIST)>
+ <REST1 TEMP13 = TEMP13>
+ <JUMP + MAP247>
+MAPAP250
+ <SET TEMP38 %<> (TYPE FALSE)>
+ <GVAL 'CODE = TEMP44>
+ <GVAL 'OPT-OFFSET = TEMP13>
+ <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
+ <GRTR? TEMP13 0 - RESTL273 (TYPE FIX)>
+ <LOOP (TEMP44 VALUE) (TEMP13 VALUE)>
+RESTL272
+ <INTGO>
+ <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
+ <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
+ <GRTR? TEMP13 0 + RESTL272 (TYPE FIX)>
+RESTL273
+ <FRAME '\1aREST>
+ <GVAL 'OPT-LIST = STACK>
+ <PUSH 2>
+ <CALL '\1aREST 2 = TEMP13>
+ <LOOP>
+MAP265
+ <INTGO>
+ <EMPL? TEMP44 + MAPAP268>
+ <EMPTY? TEMP13 + MAPAP268>
+ <SET OLD-LOCS24 TEMP44>
+ <SET TEMP41 TEMP13>
+ <NTHL OLD-LOCS24 1 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE INST> - PHRASE280>
+ <LENUV TEMP38 = TEMP43 (TYPE FIX)>
+ <VEQUAL? TEMP43 2 - PHRASE280 (TYPE FIX)>
+ <DEAD TEMP43>
+ <NTHUV TEMP38 1 = TEMP43>
+ <EQUAL? TEMP43 'DISPATCH - PHRASE280>
+ <DEAD TEMP43>
+ <PUSH 'SETZ>
+ <FRAME '\1aFIND-LABEL>
+ <NTHUV TEMP38 2 = STACK>
+ <DEAD TEMP38>
+ <CALL '\1aFIND-LABEL 1 = TEMP43>
+ <NTHUV TEMP43 2 = TEMP38>
+ <DEAD TEMP43>
+ <PUSH TEMP38>
+ <PUSH (R*)>
+ <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP43>
+ <CHTYPE TEMP43 <TYPE-CODE INST> = TEMP43>
+ <PUTL OLD-LOCS24 1 TEMP43>
+ <DEAD OLD-LOCS24 TEMP43>
+ <PUTL TEMP41 1 TEMP38>
+ <DEAD TEMP38>
+ <SET TEMP38 TEMP41>
+ <DEAD TEMP41>
+ <JUMP + PHRASE285>
+PHRASE280
+ <SET TEMP38 'T (TYPE ATOM)>
+ <JUMP + MAPAP268>
+PHRASE285
+ <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
+ <REST1 TEMP13 = TEMP13>
+ <JUMP + MAP265>
+MAPAP268
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -27>
+ <RETURN TEMP38>
+ <DEAD TEMP38>
+ <END \1aMIMOC>
+#WORD *26616415162*
+<GFCN \1aDECL-HACK ("VALUE" <OR ATOM FALSE> ANY) TYP4>
+ <TEMP TY8 TEMP16 TEMP30 TEMP28:VECTOR>
+ <INTGO>
+ <SET TY8 %<> (TYPE FALSE)>
+ <LOOP>
+AGAIN9
+ <INTGO>
+ <TYPE? TYP4 <TYPE-CODE FORM> + TAG12>
+ <TYPE? TYP4 <TYPE-CODE SEGMENT> - PHRASE36>
+TAG12
+ <EMPL? TYP4 + PHRASE14>
+ <RESTL TYP4 1 = TEMP16 (TYPE LIST)>
+ <EMPL? TEMP16 + PHRASE14>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <EMPL? TEMP16 - PHRASE14>
+ <DEAD TEMP16>
+ <NTHL TYP4 1 = TEMP16>
+ <EQUAL? TEMP16 'QUOTE - PHRASE14>
+ <DEAD TEMP16>
+ <FRAME '\1aTYPE>
+ <RESTL TYP4 1 = TEMP16 (TYPE LIST)>
+ <DEAD TYP4>
+ <NTHL TEMP16 1 = STACK>
+ <DEAD TEMP16>
+ <CALL '\1aTYPE 1 = TYP4>
+ <JUMP + PHRASE36>
+PHRASE14
+ <NTHL TYP4 1 = TEMP16>
+ <EQUAL? TEMP16 'OR - PHRASE18>
+ <DEAD TEMP16>
+ <FRAME '\1aDECL-HACK>
+ <SET TY8 TYP4>
+ <DEAD TYP4>
+ <RESTL TY8 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = STACK>
+ <DEAD TEMP16>
+ <CALL '\1aDECL-HACK 1 = TYP4>
+ <RESTL TY8 1 = TEMP16 (TYPE LIST)>
+ <RESTL TEMP16 1 = TEMP30 (TYPE LIST)>
+ <DEAD TEMP16>
+ <CHTYPE TEMP30 <TYPE-CODE LIST> = TEMP30>
+ <LOOP>
+MAP21
+ <INTGO>
+ <EMPL? TEMP30 + PHRASE36>
+ <NTHL TEMP30 1 = TEMP16>
+ <FRAME '\1aDECL-HACK>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aDECL-HACK 1 = TEMP16>
+ <EQUAL? TYP4 TEMP16 + PHRASE34>
+ <DEAD TEMP16>
+ <SET TYP4 %<> (TYPE FALSE)>
+ <JUMP + PHRASE36>
+PHRASE34
+ <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
+ <JUMP + MAP21>
+PHRASE18
+ <SET TY8 TYP4>
+ <DEAD TYP4>
+ <NTHL TY8 1 = TYP4>
+PHRASE36
+ <TYPE? TYP4 <TYPE-CODE ATOM> + TAG39>
+ <RETURN %<>>
+TAG39
+ <NTHR TYP4 5 = TEMP30 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG45)>
+ <TYPE? TEMP30 <TYPE-CODE FALSE> + TAG45>
+ <DEAD TEMP30>
+ <FRAME '\1aTYPEPRIM>
+ <PUSH TYP4>
+ <CALL '\1aTYPEPRIM 1 = TEMP30>
+ <SET TEMP28 [WORD FIX LIST] (TYPE VECTOR)>
+ <TYPE? TEMP30 <TYPE-CODE ATOM> - TAG45>
+ <LOOP (TEMP30 VALUE) (TEMP28 LENGTH VALUE)>
+TAG46
+ <NTHUV TEMP28 1 = TEMP16>
+ <VEQUAL? TEMP16 TEMP30 + TAG49>
+ <DEAD TEMP16>
+ <RESTUV TEMP28 1 = TEMP28 (TYPE VECTOR)>
+ <EMPUV? TEMP28 - TAG46>
+TAG45
+ <GVAL 'TYPE-LENGTHS = TEMP28>
+ <EMPUV? TEMP28 + PHRASE42>
+ <LOOP (TYP4 VALUE) (TEMP28 LENGTH VALUE)>
+TAG50
+ <NTHUV TEMP28 1 = TEMP30>
+ <TYPE? TEMP30 <TYPE-CODE ATOM> - TAG51>
+ <VEQUAL? TEMP30 TYP4 + TAG49>
+ <DEAD TEMP30>
+TAG51
+ <RESTUV TEMP28 1 = TEMP28 (TYPE VECTOR)>
+ <EMPUV? TEMP28 - TAG50>
+ <JUMP + PHRASE42>
+TAG49
+ <RETURN TYP4>
+ <DEAD TYP4>
+PHRASE42
+ <FRAME '\1aGETPROP>
+ <PUSH TYP4>
+ <DEAD TYP4>
+ <PUSH 'DECL>
+ <CALL '\1aGETPROP 2 = TYP4>
+ <SET TEMP16 TYP4>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE52>
+ <FRAME '\1aN=?>
+ <PUSH TY8>
+ <PUSH TYP4>
+ <CALL '\1aN=? 2 = TEMP16>
+ <VEQUAL? TEMP16 0 - AGAIN9>
+PHRASE52
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aDECL-HACK>
+#WORD *24677336004*
+<GFCN
\1aSORT-TEMPS ("VALUE" FORM <PRIMTYPE LIST>) TEMPL4>
+ <TEMP (ALIST5:LIST ()) (NON-ALIST6:LIST ()) TEMP18 L19:LIST TEMP20>
+ <INTGO>
+ <RESTL TEMPL4 1 = TEMP18 (TYPE LIST)>
+ <CHTYPE TEMP18 <TYPE-CODE LIST> = TEMP18>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPL? TEMP18 + MAPAP11>
+ <SET L19 TEMP18>
+ <NTHL L19 1 = TEMP20>
+ <EQUAL? TEMP20 '= - PHRASE22>
+ <EMPL? ALIST5 - PHRASE24 (TYPE LIST)>
+ <SET ALIST5 L19>
+ <DEAD L19>
+ <JUMP + MAPAP11>
+PHRASE24
+ <SET TEMP18 ALIST5>
+ <LOOP (TEMP18 VALUE)>
+TAG27
+ <RESTL TEMP18 1 = TEMP20 (TYPE LIST)>
+ <EMPL? TEMP20 + TAG29>
+ <SET TEMP18 TEMP20>
+ <DEAD TEMP20>
+ <JUMP + TAG27>
+TAG29
+ <PUTREST TEMP18 L19>
+ <DEAD TEMP18 L19>
+ <JUMP + MAPAP11>
+PHRASE22
+ <TYPE? TEMP20 <TYPE-CODE ATOM> - PHRASE30>
+ <CONS TEMP20 ALIST5 = ALIST5>
+ <DEAD TEMP20>
+ <JUMP + PHRASE31>
+PHRASE30
+ <CONS TEMP20 NON-ALIST6 = NON-ALIST6>
+ <DEAD TEMP20>
+PHRASE31
+ <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
+ <JUMP + MAP8>
+MAPAP11
+ <EMPL? NON-ALIST6 + PHRASE33 (TYPE LIST)>
+ <SET TEMP18 NON-ALIST6>
+ <LOOP (TEMP18 VALUE)>
+TAG34
+ <RESTL TEMP18 1 = TEMP20 (TYPE LIST)>
+ <EMPL? TEMP20 + TAG35>
+ <SET TEMP18 TEMP20>
+ <DEAD TEMP20>
+ <JUMP + TAG34>
+TAG35
+ <PUTREST TEMP18 ALIST5>
+ <DEAD TEMP18 ALIST5>
+ <JUMP + PHRASE36>
+PHRASE33
+ <SET NON-ALIST6 ALIST5>
+ <DEAD ALIST5>
+PHRASE36
+ <NTHL TEMPL4 1 = TEMP20>
+ <DEAD TEMPL4>
+ <CONS TEMP20 NON-ALIST6 = TEMP18>
+ <DEAD TEMP20 NON-ALIST6>
+ <CHTYPE TEMP18 <TYPE-CODE FORM> = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+ <END \1aSORT-TEMPS>
+#WORD *27412540677*
+<GFCN \1aOPT-INIT ("VALUE" FIX <LIST FIX <OR FIX FALSE> [REST ATOM]>) OPT4>
+ <TEMP (OFF5:FIX 1) TEMP10 TEMP15>
+ <INTGO>
+ <RESTL OPT4 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
+ <ADD OFF5 3 = OFF5 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAILE>
+ <PUSH 'O2*>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <SET TEMP10 OPT4>
+ <LOOP (TEMP10 VALUE)>
+TAG14
+ <RESTL TEMP10 1 = TEMP15 (TYPE LIST)>
+ <EMPL? TEMP15 + TAG16>
+ <SET TEMP10 TEMP15>
+ <DEAD TEMP15>
+ <JUMP + TAG14>
+TAG16
+ <NTHL TEMP10 1 = STACK>
+ <DEAD TEMP10>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O1*>
+ <NTHL OPT4 1 = TEMP10 (TYPE FIX)>
+ <SUB 5 TEMP10 = TEMP15 (TYPE FIX)>
+ <DEAD TEMP10>
+ <GVAL 'GLUE-MODE = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE20>
+ <DEAD TEMP10>
+ <GVAL 'GLUE-PC = TEMP10>
+ <JUMP + PHRASE21>
+PHRASE20
+ <SET TEMP10 0 (TYPE FIX)>
+PHRASE21
+ <ADD TEMP15 TEMP10 = STACK (TYPE FIX)>
+ <DEAD TEMP15 TEMP10>
+ <PUSH (R*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <PUSH 'O1*>
+ <PUSH 'O2*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <PUSH '@>
+ <PUSH (O1*)>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE24>
+PHRASE9
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADDI>
+ <PUSH 'O2*>
+ <NTHL OPT4 1 = TEMP15 (TYPE FIX)>
+ <SUB 2 TEMP15 = TEMP10 (TYPE FIX)>
+ <DEAD TEMP15>
+ <GVAL 'GLUE-MODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE27>
+ <DEAD TEMP15>
+ <GVAL 'GLUE-PC = TEMP15>
+ <JUMP + PHRASE28>
+PHRASE27
+ <SET TEMP15 0 (TYPE FIX)>
+PHRASE28
+ <ADD TEMP10 TEMP15 = STACK (TYPE FIX)>
+ <DEAD TEMP10 TEMP15>
+ <PUSH (R*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <PUSH '@>
+ <PUSH (O2*)>
+ <CALL '\1aOCEMIT 3>
+PHRASE24
+ <SETG 'OPT-LIST OPT4>
+ <RESTL OPT4 1 = TEMP10 (TYPE LIST)>
+ <DEAD OPT4>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <LOOP>
+MAP31
+ <INTGO>
+ <EMPL? TEMP10 + MAPAP34>
+ <NTHL TEMP10 1 = TEMP15>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DISPATCH>
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <CALL '\1aOCEMIT 2>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <JUMP + MAP31>
+MAPAP34
+ <SETG 'OPT-OFFSET OFF5>
+ <RETURN OFF5>
+ <DEAD OFF5>
+ <END \1aOPT-INIT>
+#WORD *32402601716*
+<GFCN \1aTEMP-INIT ("VALUE" <OR FALSE AC> LIST "OPTIONAL" <OR FALSE ATOM> ANY) LST7 TUP8 OLD9>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH ()>
+OPT6
+ <TEMP (STK10 'TP*) (CNT11 0) TEMP21 TEMP26 TEMP27 VAR40 LCL44>
+ <INTGO>
+ <GVAL 'CC = CNT11>
+ <TYPE? TUP8 <TYPE-CODE FALSE> + PHRASE14>
+ <DEAD TUP8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O*>
+ <PUSH 'O2*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O1*>
+ <GVAL 'NRARGS = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O2*>
+ <LENL LST7 = STK10 (TYPE FIX)>
+ <SUB STK10 2 = STACK (TYPE FIX)>
+ <DEAD STK10>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'MAKTUP>
+ <SET STK10 LST7>
+ <LOOP (STK10 VALUE)>
+TAG20
+ <RESTL STK10 1 = TEMP21 (TYPE LIST)>
+ <EMPL? TEMP21 + TAG22>
+ <SET STK10 TEMP21>
+ <DEAD TEMP21>
+ <JUMP + TAG20>
+TAG22
+ <NTHL STK10 1 = STACK>
+ <DEAD STK10>
+ <CALL '\1aPUSHJ 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XMOVEI>
+ <PUSH 'B1*>
+ <GVAL 'NRARGS = TEMP21>
+ <LSH TEMP21 1 = TEMP21 (TYPE FIX)>
+ <ADD TEMP21 1 = STACK (TYPE FIX)>
+ <DEAD TEMP21>
+ <PUSH (F*)>
+ <CALL '\1aOCEMIT 4>
+ <SET STK10 'B1* (TYPE ATOM)>
+PHRASE14
+ <GVAL 'ICALL-FLAG = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE25>
+ <DEAD TEMP21>
+ <GVAL 'ALL-TEMP-CC = TEMP21>
+ <GVAL 'TEMP-CC = TEMP26>
+ <CONS TEMP26 TEMP21 = TEMP26>
+ <DEAD TEMP21>
+ <SETG 'ALL-TEMP-CC TEMP26>
+ <DEAD TEMP26>
+ <GVAL 'ALL-ICALL-TEMPS = TEMP26>
+ <GVAL 'ICALL-TEMPS = TEMP21>
+ <GVAL 'ICALL-TEMPS = TEMP27>
+ <LENL TEMP27 = TEMP27 (TYPE FIX)>
+ <SUB TEMP27 1 = TEMP27 (TYPE FIX)>
+ <GRTR? TEMP27 0 - RESTL29 (TYPE FIX)>
+ <LOOP (TEMP21 VALUE) (TEMP27 VALUE)>
+RESTL28
+ <INTGO>
+ <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
+ <SUB TEMP27 1 = TEMP27 (TYPE FIX)>
+ <GRTR? TEMP27 0 + RESTL28 (TYPE FIX)>
+RESTL29
+ <CONS TEMP21 TEMP26 = TEMP26>
+ <DEAD TEMP21>
+ <SETG 'ALL-ICALL-TEMPS TEMP26>
+ <DEAD TEMP26>
+ <JUMP + PHRASE30>
+PHRASE25
+ <CONS 'T () = TEMP26>
+ <SETG 'ICALL-TEMPS TEMP26>
+ <CONS TEMP26 () = TEMP26>
+ <SETG 'ALL-ICALL-TEMPS TEMP26>
+ <DEAD TEMP26>
+PHRASE30
+ <SETG 'TEMP-CC CNT11>
+ <DEAD CNT11>
+ <SET TEMP26 LST7 (TYPE LIST)>
+ <DEAD LST7>
+ <LOOP>
+MAP32
+ <INTGO>
+ <EMPL? TEMP26 + MAPAP35>
+ <NTHL TEMP26 1 = CNT11>
+ <SET TEMP21 #T$UNBOUND 0>
+ <SET TEMP27 #LOSE 0 (TYPE LOSE)>
+ <EQUAL? CNT11 '= + MAPAP35>
+ <TYPE? CNT11 <TYPE-CODE ADECL> - PHRASE49>
+ <NTHUV CNT11 1 = VAR40 (TYPE ATOM)>
+ <NTHUV CNT11 2 = TEMP21 (TYPE ATOM)>
+ <DEAD CNT11>
+ <JUMP + PHRASE54>
+PHRASE49
+ <TYPE? CNT11 <TYPE-CODE LIST> - PHRASE50>
+ <NTHL CNT11 1 = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE ADECL> - PHRASE52>
+ <NTHUV TEMP27 1 = VAR40 (TYPE ATOM)>
+ <NTHUV TEMP27 2 = TEMP21 (TYPE ATOM)>
+ <DEAD TEMP27>
+ <JUMP + PHRASE53>
+PHRASE52
+ <SET VAR40 TEMP27>
+ <DEAD TEMP27>
+PHRASE53
+ <RESTL CNT11 1 = CNT11 (TYPE LIST)>
+ <NTHL CNT11 1 = TEMP27>
+ <DEAD CNT11>
+ <JUMP + PHRASE54>
+PHRASE50
+ <SET VAR40 CNT11>
+ <DEAD CNT11>
+PHRASE54
+ <FRAME '\1aLMEMQ>
+ <PUSH VAR40>
+ <PUSH OLD9>
+ <CALL '\1aLMEMQ 2 = LCL44>
+ <PUSH VAR40>
+ <DEAD VAR40>
+ <SET CNT11 LCL44>
+ <TYPE? CNT11 <TYPE-CODE FALSE> + PHRASE58>
+ <NTHUV LCL44 2 = CNT11>
+ <DEAD LCL44>
+PHRASE58
+ <PUSH CNT11>
+ <DEAD CNT11>
+ <GVAL 'LBLSEQ = CNT11>
+ <ADD CNT11 1 = CNT11 (TYPE FIX)>
+ <SETG 'LBLSEQ CNT11>
+ <CHTYPE CNT11 <TYPE-CODE LOCAL-NAME> = STACK>
+ <DEAD CNT11>
+ <TYPE? TEMP21 <TYPE-CODE UNBOUND> + PHRASE60>
+ <FRAME '\1aDECL-HACK>
+ <PUSH TEMP21>
+ <DEAD TEMP21>
+ <CALL '\1aDECL-HACK 1 = TEMP21>
+ <SET CNT11 TEMP21>
+ <JUMP + PHRASE62>
+PHRASE60
+ <SET CNT11 %<> (TYPE FALSE)>
+PHRASE62
+ <PUSH CNT11>
+ <DEAD CNT11>
+ <PUSH %<>>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 6 = CNT11>
+ <CHTYPE CNT11 <TYPE-CODE LOCAL> = LCL44>
+ <DEAD CNT11>
+ <TYPE? TEMP27 <TYPE-CODE LOSE> + PHRASE64>
+ <PUTUV LCL44 2 'TEMP>
+PHRASE64
+ <GVAL 'ICALL-FLAG = CNT11>
+ <TYPE? CNT11 <TYPE-CODE FALSE> + PHRASE66>
+ <DEAD CNT11>
+ <GVAL 'ICALL-TEMPS = CNT11>
+ <GVAL 'ICALL-TEMPS = VAR40>
+ <LENL VAR40 = VAR40 (TYPE FIX)>
+ <SUB VAR40 1 = VAR40 (TYPE FIX)>
+ <GRTR? VAR40 0 - RESTL69 (TYPE FIX)>
+ <LOOP (CNT11 VALUE) (VAR40 VALUE)>
+RESTL68
+ <INTGO>
+ <RESTL CNT11 1 = CNT11 (TYPE LIST)>
+ <SUB VAR40 1 = VAR40 (TYPE FIX)>
+ <GRTR? VAR40 0 + RESTL68 (TYPE FIX)>
+RESTL69
+ <CONS LCL44 () = VAR40>
+ <PUTREST CNT11 VAR40>
+ <DEAD CNT11 VAR40>
+ <JUMP + PHRASE70>
+PHRASE66
+ <GVAL 'LOCALS = CNT11>
+ <GVAL 'LOCALS = VAR40>
+ <LENL VAR40 = VAR40 (TYPE FIX)>
+ <SUB VAR40 1 = VAR40 (TYPE FIX)>
+ <GRTR? VAR40 0 - RESTL72 (TYPE FIX)>
+ <LOOP (CNT11 VALUE) (VAR40 VALUE)>
+RESTL71
+ <INTGO>
+ <RESTL CNT11 1 = CNT11 (TYPE LIST)>
+ <SUB VAR40 1 = VAR40 (TYPE FIX)>
+ <GRTR? VAR40 0 + RESTL71 (TYPE FIX)>
+RESTL72
+ <CONS LCL44 () = VAR40>
+ <PUTREST CNT11 VAR40>
+ <DEAD CNT11 VAR40>
+PHRASE70
+ <TYPE? TEMP21 <TYPE-CODE UNBOUND> + PHRASE74>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE74>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH STK10>
+ <SET VAR40 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH TEMP21>
+ <DEAD TEMP21>
+ <SCALL '\1aTYPE-WORD 1 = CNT11 + TAG76 VAR40>
+ <LOOP (CNT11 TYPE VALUE LENGTH) (VAR40 VALUE)>
+TAG78
+ <INTGO>
+ <EMPTY? CNT11 + TAG76>
+ <NTH1 CNT11 = STACK>
+ <REST1 CNT11 = CNT11>
+ <ADD VAR40 1 = VAR40 (TYPE FIX)>
+ <JUMP + TAG78>
+TAG76
+ <CALL '\1aOCEMIT VAR40>
+ <DEAD VAR40>
+ <GVAL 'TYPED-LOCALS = VAR40>
+ <CONS LCL44 VAR40 = VAR40>
+ <DEAD LCL44>
+ <SETG 'TYPED-LOCALS VAR40>
+ <DEAD VAR40>
+ <TYPE? TEMP27 <TYPE-CODE LOSE> - PHRASE86>
+ <SET TEMP27 0 (TYPE FIX)>
+ <JUMP + PHRASE86>
+PHRASE74
+ <TYPE? TEMP27 <TYPE-CODE LOSE> - PHRASE81>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH STK10>
+ <SET CNT11 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH 0>
+ <SCALL '\1aOBJ-VAL 1 = VAR40 + TAG82 CNT11>
+ <LOOP (VAR40 TYPE VALUE LENGTH) (CNT11 VALUE)>
+TAG84
+ <INTGO>
+ <EMPTY? VAR40 + TAG82>
+ <NTH1 VAR40 = STACK>
+ <REST1 VAR40 = VAR40>
+ <ADD CNT11 1 = CNT11 (TYPE FIX)>
+ <JUMP + TAG84>
+TAG82
+ <CALL '\1aOCEMIT CNT11>
+ <DEAD CNT11>
+ <SET TEMP27 0 (TYPE FIX)>
+ <JUMP + PHRASE86>
+PHRASE81
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH STK10>
+ <SET VAR40 2 (TYPE FIX)>
+ <SFRAME 'OBJ-LOC>
+ <PUSH TEMP27>
+ <PUSH 0>
+ <SCALL '\1aOBJ-LOC 2 = CNT11 + TAG87 VAR40>
+ <LOOP (CNT11 TYPE VALUE LENGTH) (VAR40 VALUE)>
+TAG89
+ <INTGO>
+ <EMPTY? CNT11 + TAG87>
+ <NTH1 CNT11 = STACK>
+ <REST1 CNT11 = CNT11>
+ <ADD VAR40 1 = VAR40 (TYPE FIX)>
+ <JUMP + TAG89>
+TAG87
+ <CALL '\1aOCEMIT VAR40>
+ <DEAD VAR40>
+PHRASE86
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH STK10>
+ <SET CNT11 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH TEMP27>
+ <DEAD TEMP27>
+ <SCALL '\1aOBJ-VAL 1 = VAR40 + TAG91 CNT11>
+ <LOOP (VAR40 TYPE VALUE LENGTH) (CNT11 VALUE)>
+TAG93
+ <INTGO>
+ <EMPTY? VAR40 + TAG91>
+ <NTH1 VAR40 = STACK>
+ <REST1 VAR40 = VAR40>
+ <ADD CNT11 1 = CNT11 (TYPE FIX)>
+ <JUMP + TAG93>
+TAG91
+ <CALL '\1aOCEMIT CNT11>
+ <DEAD CNT11>
+ <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
+ <JUMP + MAP32>
+MAPAP35
+ <VEQUAL? STK10 'B1* + TAG97>
+ <DEAD STK10>
+ <RETURN %<>>
+TAG97
+ <FRAME '\1aGET-AC>
+ <PUSH 'B1*>
+ <CALL '\1aGET-AC 1 = STK10>
+ <PUTUV STK10 4 0 (TYPE FIX)>
+ <RETURN STK10>
+ <DEAD STK10>
+ <END \1aTEMP-INIT>
+#WORD *32347155076*
+<GFCN \1aPRE-HACK ("VALUE" ATOM LIST) L4>
+ <TEMP FIX-LABS10 FIRST11 WIN9 LR5 TEMP20 TEMP19:LIST LL24:LIST FRM25 TEMP40 TEMP53 M26 LBL30:ATOM>
+ <INTGO>
+ <SETG 'THE-BIG-LABELS ()>
+ <SET FIX-LABS10 %<> (TYPE FALSE)>
+ <SET FIRST11 'T (TYPE ATOM)>
+ <LOOP>
+AGAIN12
+ <INTGO>
+ <SET WIN9 %<> (TYPE FALSE)>
+ <SET LR5 () (TYPE LIST)>
+ <SET TEMP20 () (TYPE LIST)>
+ <SET TEMP19 L4 (TYPE LIST)>
+ <LOOP>
+MAP14
+ <INTGO>
+ <EMPL? TEMP19 + MAPAP17>
+ <SET LL24 TEMP19>
+ <NTHL LL24 1 = FRM25>
+ <TYPE? FRM25 <TYPE-CODE ATOM> + PHRASE113>
+ <VEQUAL? FIRST11 0 + PHRASE35>
+ <FRAME '\1aREMOVE-FUNNY-DEADS>
+ <PUSH FRM25>
+ <CALL '\1aREMOVE-FUNNY-DEADS 1>
+PHRASE35
+ <NTHL FRM25 1 = TEMP40>
+ <EQUAL? TEMP40 'OPT-DISPATCH + BOOL39>
+ <DEAD TEMP40>
+ <NTHL FRM25 1 = TEMP40>
+ <EQUAL? TEMP40 'DISPATCH - PHRASE38>
+ <DEAD TEMP40>
+BOOL39
+ <VEQUAL? FIX-LABS10 0 + MAPAP47>
+ <RESTL FRM25 1 = TEMP40 (TYPE LIST)>
+ <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
+ <RESTL TEMP40 1 = TEMP53 (TYPE LIST)>
+ <DEAD TEMP40>
+ <CHTYPE TEMP53 <TYPE-CODE LIST> = TEMP53>
+ <LOOP>
+MAP44
+ <INTGO>
+ <EMPL? TEMP53 + MAPAP47>
+ <SET LL24 TEMP53>
+ <FRAME '\1aFIX-LAB>
+ <NTHL LL24 1 = STACK>
+ <CALL '\1aFIX-LAB 1 = TEMP40>
+ <PUTL LL24 1 TEMP40>
+ <DEAD LL24 TEMP40>
+ <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
+ <JUMP + MAP44>
+MAPAP47
+ <RESTL FRM25 1 = TEMP53 (TYPE LIST)>
+ <DEAD FRM25>
+ <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
+ <RESTL TEMP53 1 = LL24 (TYPE LIST)>
+ <DEAD TEMP53>
+ <CHTYPE LL24 <TYPE-CODE LIST> = LL24>
+ <LOOP (LL24 VALUE)>
+TAG60
+ <INTGO>
+ <EMPL? LL24 + PHRASE113>
+ <NTHL LL24 1 = TEMP53>
+ <CONS TEMP53 () = TEMP53 (TYPE LIST)>
+ <EMPL? LR5 - TAG61>
+ <SET LR5 TEMP53 (TYPE LIST)>
+ <JUMP + TAG62>
+TAG61
+ <PUTREST TEMP20 TEMP53>
+ <DEAD TEMP20>
+TAG62
+ <SET TEMP20 TEMP53 (TYPE LIST)>
+ <DEAD TEMP53>
+ <RESTL LL24 1 = LL24 (TYPE LIST)>
+ <JUMP + TAG60>
+PHRASE38
+ <SET M26 FRM25>
+ <CHTYPE M26 <TYPE-CODE LIST> = M26>
+ <LOOP (M26 VALUE)>
+TAG67
+ <NTHL M26 1 = TEMP53>
+ <TYPE? TEMP53 <TYPE-CODE ATOM> - TAG68>
+ <VEQUAL? TEMP53 '+ + BOOL64>
+ <DEAD TEMP53>
+TAG68
+ <RESTL M26 1 = M26 (TYPE LIST)>
+ <EMPL? M26 - TAG67>
+ <CHTYPE FRM25 <TYPE-CODE LIST> = TEMP53>
+ <LOOP (TEMP53 VALUE)>
+TAG71
+ <NTHL TEMP53 1 = TEMP40>
+ <TYPE? TEMP40 <TYPE-CODE ATOM> - TAG72>
+ <VEQUAL? TEMP40 '- + TAG69>
+ <DEAD TEMP40>
+TAG72
+ <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
+ <EMPL? TEMP53 - TAG71>
+ <JUMP + TAG70>
+TAG69
+ <SET M26 TEMP53>
+ <DEAD TEMP53>
+ <JUMP + BOOL64>
+TAG70
+ <NTHL FRM25 1 = TEMP53>
+ <EQUAL? TEMP53 'NTHR - PHRASE102>
+ <DEAD TEMP53>
+ <SET TEMP40 FRM25>
+ <LOOP (TEMP40 VALUE)>
+TAG74
+ <RESTL TEMP40 1 = TEMP53 (TYPE LIST)>
+ <EMPL? TEMP53 + TAG75>
+ <SET TEMP40 TEMP53>
+ <DEAD TEMP53>
+ <JUMP + TAG74>
+TAG75
+ <NTHL TEMP40 1 = TEMP40>
+ <TYPE? TEMP40 <TYPE-CODE LIST> - PHRASE102>
+ <NTHL TEMP40 1 = TEMP53>
+ <EQUAL? TEMP53 'BRANCH-FALSE - PHRASE102>
+ <DEAD TEMP53>
+ <RESTL TEMP40 1 = M26 (TYPE LIST)>
+ <DEAD TEMP40>
+BOOL64
+ <RESTL M26 1 = TEMP53 (TYPE LIST)>
+ <NTHL TEMP53 1 = LBL30 (TYPE ATOM)>
+ <DEAD TEMP53>
+ <VEQUAL? LBL30 'COMPERR + BOOL78>
+ <VEQUAL? LBL30 'UNWCONT + BOOL78>
+ <VEQUAL? LBL30 'IOERR - PHRASE77>
+BOOL78
+ <CONS LBL30 () = TEMP53 (TYPE LIST)>
+ <DEAD LBL30>
+ <EMPL? LR5 - TAG80>
+ <SET LR5 TEMP53 (TYPE LIST)>
+ <JUMP + TAG81>
+TAG80
+ <PUTREST TEMP20 TEMP53>
+ <DEAD TEMP20>
+TAG81
+ <SET TEMP20 TEMP53 (TYPE LIST)>
+ <DEAD TEMP53>
+ <JUMP + PHRASE113>
+PHRASE77
+ <VEQUAL? FIX-LABS10 0 + PHRASE82>
+ <FRAME '\1aFIX-LAB>
+ <PUSH LBL30>
+ <CALL '\1aFIX-LAB 1 = TEMP53>
+ <RESTL M26 1 = TEMP40 (TYPE LIST)>
+ <DEAD M26>
+ <PUTL TEMP40 1 TEMP53>
+ <DEAD TEMP40 TEMP53>
+ <CONS LBL30 () = TEMP53 (TYPE LIST)>
+ <DEAD LBL30>
+ <EMPL? LR5 - TAG85>
+ <SET LR5 TEMP53 (TYPE LIST)>
+ <JUMP + TAG86>
+TAG85
+ <PUTREST TEMP20 TEMP53>
+ <DEAD TEMP20>
+TAG86
+ <SET TEMP20 TEMP53 (TYPE LIST)>
+ <DEAD TEMP53>
+ <JUMP + PHRASE113>
+PHRASE82
+ <SET TEMP40 L4>
+ <EMPL? TEMP40 + TAG88>
+ <LOOP (LBL30 VALUE) (TEMP40 VALUE)>
+TAG89
+ <NTHL TEMP40 1 = TEMP53>
+ <TYPE? TEMP53 <TYPE-CODE ATOM> - TAG90>
+ <VEQUAL? TEMP53 LBL30 + PHRASE91>
+ <DEAD TEMP53>
+TAG90
+ <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
+ <EMPL? TEMP40 - TAG89>
+TAG88
+ <SET TEMP40 %<> (TYPE FALSE)>
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'BAD-LABEL!-ERRORS>
+ <PUSH LBL30>
+ <CALL '\1aMIMOCERR 2>
+PHRASE91
+ <FRAME '\1aNEXTINS>
+ <PUSH TEMP40>
+ <DEAD TEMP40>
+ <CALL '\1aNEXTINS 1 = TEMP40>
+ <NTHL TEMP40 1 = TEMP53>
+ <EQUAL? TEMP53 'JUMP - PHRASE94>
+ <DEAD TEMP53>
+ <RESTL TEMP40 1 = TEMP53 (TYPE LIST)>
+ <DEAD TEMP40>
+ <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
+ <NTHL TEMP53 1 = TEMP53>
+ <RESTL M26 1 = TEMP40 (TYPE LIST)>
+ <PUTL TEMP40 1 TEMP53>
+ <DEAD TEMP40 TEMP53>
+ <RESTL M26 1 = TEMP53 (TYPE LIST)>
+ <DEAD M26>
+ <NTHL TEMP53 1 = TEMP53>
+ <CONS TEMP53 () = TEMP53 (TYPE LIST)>
+ <EMPL? LR5 - TAG97>
+ <SET LR5 TEMP53 (TYPE LIST)>
+ <JUMP + TAG98>
+TAG97
+ <PUTREST TEMP20 TEMP53>
+ <DEAD TEMP20>
+TAG98
+ <SET TEMP20 TEMP53 (TYPE LIST)>
+ <DEAD TEMP53>
+ <JUMP + PHRASE113>
+PHRASE94
+ <NTHL FRM25 1 = TEMP53>
+ <DEAD FRM25>
+ <EQUAL? TEMP53 'JUMP - PHRASE99>
+ <DEAD TEMP53>
+ <NTHL TEMP40 1 = TEMP53>
+ <EQUAL? TEMP53 'RETURN - PHRASE99>
+ <DEAD TEMP53>
+ <PUTL LL24 1 TEMP40>
+ <DEAD LL24 TEMP40>
+ <JUMP + PHRASE113>
+PHRASE99
+ <CONS LBL30 () = TEMP53 (TYPE LIST)>
+ <DEAD LBL30>
+ <EMPL? LR5 - TAG104>
+ <SET LR5 TEMP53 (TYPE LIST)>
+ <JUMP + TAG105>
+TAG104
+ <PUTREST TEMP20 TEMP53>
+ <DEAD TEMP20>
+TAG105
+ <SET TEMP20 TEMP53 (TYPE LIST)>
+ <DEAD TEMP53>
+ <JUMP + PHRASE113>
+PHRASE102
+ <NTHL FRM25 1 = TEMP53>
+ <EQUAL? TEMP53 'ICALL - PHRASE113>
+ <DEAD TEMP53>
+ <VEQUAL? FIX-LABS10 0 + PHRASE108>
+ <FRAME '\1aFIX-LAB>
+ <RESTL FRM25 1 = TEMP53 (TYPE LIST)>
+ <NTHL TEMP53 1 = STACK>
+ <DEAD TEMP53>
+ <CALL '\1aFIX-LAB 1 = TEMP53>
+ <RESTL FRM25 1 = TEMP40 (TYPE LIST)>
+ <PUTL TEMP40 1 TEMP53>
+ <DEAD TEMP40 TEMP53>
+PHRASE108
+ <RESTL FRM25 1 = TEMP53 (TYPE LIST)>
+ <DEAD FRM25>
+ <NTHL TEMP53 1 = TEMP53>
+ <CONS TEMP53 () = TEMP53 (TYPE LIST)>
+ <EMPL? LR5 - TAG111>
+ <SET LR5 TEMP53 (TYPE LIST)>
+ <JUMP + TAG112>
+TAG111
+ <PUTREST TEMP20 TEMP53>
+ <DEAD TEMP20>
+TAG112
+ <SET TEMP20 TEMP53 (TYPE LIST)>
+ <DEAD TEMP53>
+PHRASE113
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <JUMP + MAP14>
+MAPAP17
+ <SET FIRST11 %<> (TYPE FALSE)>
+ <SET TEMP19 L4>
+ <SET LL24 TEMP19>
+ <SET TEMP20 %<> (TYPE FALSE)>
+ <LOOP>
+AGAIN120
+ <INTGO>
+ <EMPL? TEMP19 + EXIT115 (TYPE LIST)>
+ <NTHL TEMP19 1 = FRM25>
+ <TYPE? FRM25 <TYPE-CODE ATOM> - PHRASE123>
+ <VEQUAL? FIX-LABS10 0 + PHRASE125>
+ <FRAME '\1aFIX-LAB>
+ <PUSH FRM25>
+ <DEAD FRM25>
+ <CALL '\1aFIX-LAB 1 = FRM25>
+ <PUTL TEMP19 1 FRM25>
+ <FRAME '\1aMAKE-LABEL>
+ <PUSH FRM25>
+ <DEAD FRM25>
+ <PUSH %<>>
+ <PUSH TEMP19>
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <CALL '\1aMAKE-LABEL 4>
+ <SET LL24 TEMP19>
+ <JUMP + PHRASE160>
+PHRASE125
+ <SET TEMP53 LR5>
+ <EMPL? TEMP53 + TAG129>
+ <LOOP (FRM25 VALUE) (TEMP53 VALUE)>
+TAG130
+ <NTHL TEMP53 1 = TEMP40>
+ <TYPE? TEMP40 <TYPE-CODE ATOM> - TAG131>
+ <VEQUAL? TEMP40 FRM25 + PHRASE128>
+ <DEAD TEMP40>
+TAG131
+ <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
+ <EMPL? TEMP53 - TAG130>
+TAG129
+ <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
+ <DEAD TEMP19>
+ <PUTREST LL24 TEMP53>
+ <DEAD TEMP53>
+ <SET TEMP19 LL24>
+ <SET WIN9 'T (TYPE ATOM)>
+ <JUMP + PHRASE160>
+PHRASE128
+ <SET LL24 TEMP19>
+ <JUMP + PHRASE160>
+PHRASE123
+ <VEQUAL? FIX-LABS10 0 + PHRASE133>
+ <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE133>
+ <NTHL FRM25 1 = TEMP53>
+ <EQUAL? TEMP53 'ACTIVATION - PHRASE133>
+ <DEAD TEMP53>
+ <FRAME '\1aGENLBL>
+ <PUSH "ACT">
+ <CALL '\1aGENLBL 1 = FRM25>
+ <CONS FRM25 () = TEMP53>
+ <GVAL 'THE-BIG-LABELS = TEMP40 (TYPE LIST)>
+ <PUTREST TEMP53 TEMP40>
+ <DEAD TEMP40>
+ <SETG 'THE-BIG-LABELS TEMP53>
+ <DEAD TEMP53>
+ <FRAME '\1aMAKE-LABEL>
+ <PUSH FRM25>
+ <DEAD FRM25>
+ <PUSH %<>>
+ <PUSH TEMP19>
+ <PUSH 'T>
+ <CALL '\1aMAKE-LABEL 4>
+ <SET LL24 TEMP19>
+ <JUMP + PHRASE160>
+PHRASE133
+ <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE137>
+ <NTHL FRM25 1 = TEMP53>
+ <EQUAL? TEMP53 'LOOP - PHRASE137>
+ <DEAD TEMP53>
+ <SET TEMP20 'T (TYPE ATOM)>
+ <SET LL24 TEMP19>
+ <DEAD TEMP19>
+ <RESTL LL24 1 = TEMP19 (TYPE LIST)>
+ <JUMP + AGAIN120>
+PHRASE137
+ <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE139>
+ <NTHL FRM25 1 = TEMP53>
+ <DEAD FRM25>
+ <EQUAL? TEMP53 'JUMP - PHRASE139>
+ <DEAD TEMP53>
+ <NTHL LL24 1 = FRM25>
+ <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE139>
+ <NTHL FRM25 1 = TEMP53>
+ <DEAD FRM25>
+ <EQUAL? TEMP53 'JUMP - PHRASE139>
+ <DEAD TEMP53>
+ <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
+ <PUTREST LL24 TEMP53>
+ <DEAD TEMP53>
+ <SET WIN9 'T (TYPE ATOM)>
+ <JUMP + PHRASE160>
+PHRASE139
+ <NTHL TEMP19 1 = FRM25>
+ <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE141>
+ <NTHL FRM25 1 = TEMP53>
+ <EQUAL? TEMP53 'JUMP - PHRASE141>
+ <DEAD TEMP53>
+ <EMPL? TEMP19 + PHRASE141>
+ <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
+ <EMPL? TEMP53 + PHRASE141>
+ <DEAD TEMP53>
+ <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
+ <NTHL TEMP53 1 = TEMP53>
+ <RESTL FRM25 1 = TEMP40 (TYPE LIST)>
+ <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
+ <NTHL TEMP40 1 = TEMP40>
+ <EQUAL? TEMP53 TEMP40 - PHRASE141>
+ <DEAD TEMP53 TEMP40>
+ <RESTL TEMP19 1 = TEMP40 (TYPE LIST)>
+ <PUTREST LL24 TEMP40>
+ <DEAD TEMP40>
+ <SET WIN9 'T (TYPE ATOM)>
+ <JUMP + PHRASE160>
+PHRASE141
+ <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE143>
+ <NTHL FRM25 1 = TEMP40>
+ <EQUAL? TEMP40 'JUMP - PHRASE143>
+ <DEAD TEMP40>
+ <EMPL? TEMP19 + PHRASE143>
+ <RESTL TEMP19 1 = TEMP40 (TYPE LIST)>
+ <EMPL? TEMP40 + PHRASE143>
+ <DEAD TEMP40>
+ <RESTL TEMP19 1 = TEMP40 (TYPE LIST)>
+ <NTHL TEMP40 1 = TEMP40>
+ <TYPE? TEMP40 <TYPE-CODE ATOM> + PHRASE143>
+ <DEAD TEMP40>
+ <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
+ <RESTL TEMP53 1 = TEMP40 (TYPE LIST)>
+ <DEAD TEMP53>
+ <PUTREST TEMP19 TEMP40>
+ <DEAD TEMP40>
+ <SET WIN9 'T (TYPE ATOM)>
+ <JUMP + PHRASE160>
+PHRASE143
+ <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE145>
+ <NTHL FRM25 1 = TEMP40>
+ <EQUAL? TEMP40 'RETURN + BOOL147>
+ <DEAD TEMP40>
+ <NTHL FRM25 1 = TEMP40>
+ <EQUAL? TEMP40 'RTUPLE + BOOL147>
+ <DEAD TEMP40>
+ <NTHL FRM25 1 = TEMP40>
+ <EQUAL? TEMP40 'AGAIN + BOOL147>
+ <DEAD TEMP40>
+ <NTHL FRM25 1 = TEMP40>
+ <EQUAL? TEMP40 'RETRY + BOOL147>
+ <DEAD TEMP40>
+ <NTHL FRM25 1 = TEMP40>
+ <DEAD FRM25>
+ <EQUAL? TEMP40 'MRETURN - PHRASE145>
+ <DEAD TEMP40>
+BOOL147
+ <RESTL TEMP19 1 = LL24 (TYPE LIST)>
+ <LOOP>
+AGAIN150
+ <INTGO>
+ <EMPL? LL24 + BOOL153 (TYPE LIST)>
+ <NTHL LL24 1 = FRM25>
+ <TYPE? FRM25 <TYPE-CODE ATOM> - PHRASE152>
+BOOL153
+ <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
+ <VEQUAL? TEMP53 LL24 + EXIT148>
+ <DEAD TEMP53>
+ <SET WIN9 'T (TYPE ATOM)>
+ <PUTREST TEMP19 LL24>
+ <DEAD LL24>
+ <JUMP + EXIT148>
+PHRASE152
+ <NTH1 FRM25 = TEMP53>
+ <DEAD FRM25>
+ <EQUAL? TEMP53 'DEAD - PHRASE157>
+ <DEAD TEMP53>
+ <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
+ <VEQUAL? TEMP53 LL24 + PHRASE159>
+ <DEAD TEMP53>
+ <SET WIN9 'T (TYPE ATOM)>
+ <PUTREST TEMP19 LL24>
+ <DEAD TEMP19>
+PHRASE159
+ <SET TEMP19 LL24>
+PHRASE157
+ <RESTL LL24 1 = LL24 (TYPE LIST)>
+ <JUMP + AGAIN150>
+EXIT148
+ <SET LL24 TEMP19>
+ <JUMP + PHRASE160>
+PHRASE145
+ <SET LL24 TEMP19>
+PHRASE160
+ <SET TEMP20 %<> (TYPE FALSE)>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <JUMP + AGAIN120>
+EXIT115
+ <VEQUAL? FIX-LABS10 0 + PHRASE162>
+ <RETURN 'T>
+PHRASE162
+ <VEQUAL? WIN9 0 - AGAIN12>
+ <DEAD WIN9>
+ <SET FIX-LABS10 'T (TYPE ATOM)>
+ <JUMP + AGAIN12>
+ <END \1aPRE-HACK>
+#WORD *1210473152*
+ <GFCN \1aREMOVE-FUNNY-DEADS ("VALUE" ATOM FORM) FRM4>
+ <TEMP N5 L9 TEMP15:FIX TEMP23>
+ <INTGO>
+ <LENL FRM4 = N5 (TYPE FIX)>
+ <LOOP>
+AGAIN11
+ <INTGO>
+ <SET TEMP15 N5>
+ <SET L9 FRM4>
+ <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
+ <GRTR? TEMP15 0 - RESTL18 (TYPE FIX)>
+ <LOOP (L9 VALUE) (TEMP15 VALUE)>
+RESTL16
+ <INTGO>
+ <RESTL L9 1 = L9 (TYPE LIST)>
+ <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
+ <GRTR? TEMP15 0 + RESTL16 (TYPE FIX)>
+RESTL18
+ <NTHL L9 1 = L9>
+ <TYPE? L9 <TYPE-CODE LIST> - PHRASE13>
+ <EMPL? L9 + PHRASE13 (TYPE LIST)>
+ <NTHL L9 1 = L9>
+ <EQUAL? L9 'DEAD-FALL + BOOL19>
+ <EQUAL? L9 'DEAD-JUMP - PHRASE13>
+ <DEAD L9>
+BOOL19
+ <SUB N5 2 = TEMP15 (TYPE FIX)>
+ <SET L9 FRM4>
+ <GRTR? TEMP15 0 - RESTL21 (TYPE FIX)>
+ <LOOP (L9 VALUE) (TEMP15 VALUE)>
+RESTL20
+ <INTGO>
+ <RESTL L9 1 = L9 (TYPE LIST)>
+ <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
+ <GRTR? TEMP15 0 + RESTL20 (TYPE FIX)>
+RESTL21
+ <CHTYPE L9 <TYPE-CODE LIST> = L9>
+ <SET TEMP15 N5>
+ <SET TEMP23 FRM4>
+ <GRTR? TEMP15 0 - RESTL24 (TYPE FIX)>
+ <LOOP (TEMP23 VALUE) (TEMP15 VALUE)>
+RESTL22
+ <INTGO>
+ <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
+ <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
+ <GRTR? TEMP15 0 + RESTL22 (TYPE FIX)>
+RESTL24
+ <CHTYPE TEMP23 <TYPE-CODE LIST> = TEMP23>
+ <PUTREST L9 TEMP23>
+ <DEAD L9 TEMP23>
+ <SUB N5 1 = N5 (TYPE FIX)>
+ <JUMP + PHRASE25>
+PHRASE13
+ <SUB N5 1 = N5 (TYPE FIX)>
+PHRASE25
+ <GRTR? N5 1 + AGAIN11 (TYPE FIX)>
+ <RETURN 'T>
+ <END \1aREMOVE-FUNNY-DEADS>
+
+#WORD *4110654335*
+<GFCN \1aFIX-LAB ("VALUE" ANY ANY) X4>
+ <TEMP TEMP6>
+ <INTGO>
+ <NTHR X4 3 = X4 (RECORD-TYPE ATOM)>
+ <FRAME '\1aLOOKUP>
+ <PUSH X4>
+ <GVAL 'LABEL-OBLIST = STACK>
+ <CALL '\1aLOOKUP 2 = TEMP6>
+ <TYPE? TEMP6 <TYPE-CODE FALSE> - BOOL5>
+ <FRAME '\1aINSERT>
+ <PUSH X4>
+ <DEAD X4>
+ <GVAL 'LABEL-OBLIST = STACK>
+ <CALL '\1aINSERT 2 = TEMP6>
+BOOL5
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aFIX-LAB>
+#WORD *25164700723*
+<GFCN \1aFIXUP-REFS ("VALUE" ANY)>
+ <TEMP TEMP12 C4:LIST (PC5 0) OFF9 C26 TEMP34 R27 TG8 NPC63:FIX>
+ <INTGO>
+ <GVAL 'CODE = TEMP12>
+ <RESTL TEMP12 1 = C4 (TYPE LIST)>
+ <DEAD TEMP12>
+ <GVAL 'GLUE-MODE = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE14>
+ <DEAD TEMP12>
+ <GVAL 'GLUE-PC = TEMP12>
+ <JUMP + PHRASE15>
+PHRASE14
+ <SET TEMP12 0 (TYPE FIX)>
+PHRASE15
+ <SET OFF9 TEMP12>
+ <DEAD TEMP12>
+ <GVAL 'WINNING-VICTIM = TEMP12>
+ <SET TEMP12 C4 (TYPE LIST)>
+ <LOOP>
+MAP17
+ <INTGO>
+ <EMPL? TEMP12 + MAPAP20>
+ <NTHL TEMP12 1 = C26>
+ <TYPE? C26 <TYPE-CODE INST> - PHRASE39>
+ <LENUV C26 = TEMP34 (TYPE FIX)>
+ <NTHUV C26 TEMP34 = R27>
+ <DEAD TEMP34>
+ <TYPE? R27 <TYPE-CODE REF> - PHRASE33>
+ <NTHUV R27 1 = C26>
+ <DEAD R27>
+ <TYPE? C26 <TYPE-CODE ATOM> - PHRASE39>
+ <FRAME '\1aFIND-LABEL>
+ <PUSH C26>
+ <DEAD C26>
+ <CALL '\1aFIND-LABEL 1 = C26>
+ <TYPE? C26 <TYPE-CODE FALSE> + PHRASE39>
+ <PUTUV C26 2 0>
+ <DEAD C26>
+ <JUMP + PHRASE39>
+PHRASE33
+ <TYPE? R27 <TYPE-CODE FORM> + TAG40>
+ <TYPE? R27 <TYPE-CODE GVAL> - PHRASE39>
+TAG40
+ <LENUV C26 = TEMP34 (TYPE FIX)>
+ <FRAME '\1aEVAL>
+ <PUSH R27>
+ <DEAD R27>
+ <CALL '\1aEVAL 1 = R27>
+ <PUTUV C26 TEMP34 R27>
+ <DEAD C26 TEMP34 R27>
+PHRASE39
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <JUMP + MAP17>
+MAPAP20
+ <LOOP>
+AGAIN44
+ <INTGO>
+ <EMPL? C4 - PHRASE46 (TYPE LIST)>
+ <SETG 'CODE-LENGTH PC5>
+ <DEAD PC5>
+ <JUMP + EXIT43>
+PHRASE46
+ <NTHL C4 1 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE ATOM> - PHRASE47>
+ <FRAME '\1aFIND-LABEL>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <CALL '\1aFIND-LABEL 1 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE47>
+ <ADD PC5 OFF9 = C26 (TYPE FIX)>
+ <PUTUV TEMP12 2 C26>
+ <DEAD TEMP12 C26>
+ <JUMP + PHRASE50>
+PHRASE47
+ <ADD PC5 1 = PC5 (TYPE FIX)>
+PHRASE50
+ <RESTL C4 1 = C4 (TYPE LIST)>
+ <JUMP + AGAIN44>
+EXIT43
+ <SET TEMP34 %<> (TYPE FALSE)>
+ <GVAL 'CODE = C26>
+ <RESTL C26 1 = C4 (TYPE LIST)>
+ <DEAD C26>
+ <LOOP>
+MAP52
+ <INTGO>
+ <EMPL? C4 + MAPAP55>
+ <SET PC5 C4>
+ <NTHL PC5 1 = TEMP34>
+ <SET R27 %<> (TYPE FALSE)>
+ <TYPE? TEMP34 <TYPE-CODE INST> + TAG68>
+ <SET TEMP34 %<> (TYPE FALSE)>
+ <JUMP + PHRASE107>
+TAG68
+ <NTHUV TEMP34 2 = OFF9>
+ <TYPE? OFF9 <TYPE-CODE REF> + BOOL70>
+ <LENUV TEMP34 = C26 (TYPE FIX)>
+ <GRTR? C26 2 + TAG72 (TYPE FIX)>
+ <DEAD C26>
+ <SET TEMP34 %<> (TYPE FALSE)>
+ <JUMP + PHRASE107>
+TAG72
+ <NTHUV TEMP34 3 = OFF9>
+ <TYPE? OFF9 <TYPE-CODE REF> + TAG73>
+ <SET TEMP34 %<> (TYPE FALSE)>
+ <JUMP + PHRASE107>
+TAG73
+ <SET R27 'T (TYPE ATOM)>
+BOOL70
+ <NTHUV OFF9 1 = TG8>
+ <SET TEMP12 %<> (TYPE FALSE)>
+ <TYPE? TG8 <TYPE-CODE ATOM> - PHRASE83>
+ <GVAL 'CODE = TEMP12>
+ <RESTL TEMP12 1 = C26 (TYPE LIST)>
+ <DEAD TEMP12>
+ <EMPL? C26 + TAG77>
+ <LOOP (TG8 VALUE) (C26 VALUE)>
+TAG79
+ <NTHL C26 1 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE ATOM> - TAG80>
+ <VEQUAL? TEMP12 TG8 + TAG78>
+ <DEAD TEMP12>
+TAG80
+ <RESTL C26 1 = C26 (TYPE LIST)>
+ <EMPL? C26 - TAG79>
+TAG77
+ <SET TEMP12 %<> (TYPE FALSE)>
+ <JUMP + TAG82>
+TAG78
+ <SET TEMP12 C26>
+ <DEAD C26>
+TAG82
+ <VEQUAL? TEMP12 0 + PHRASE83>
+ <FRAME '\1aFIND-LABEL>
+ <NTHUV OFF9 1 = STACK>
+ <CALL '\1aFIND-LABEL 1 = C26>
+ <NTHUV C26 2 = NPC63 (TYPE FIX)>
+ <DEAD C26>
+PHRASE83
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE86>
+ <DEAD TEMP12>
+ <EQUAL? TG8 'COMPERR - PHRASE88>
+ <VEQUAL? R27 0 + PHRASE90>
+ <DEAD R27>
+ <PUTUV TEMP34 3 106>
+ <JUMP + PHRASE107>
+PHRASE90
+ <PUTUV TEMP34 2 106>
+ <JUMP + PHRASE107>
+PHRASE88
+ <EQUAL? TG8 'UNWCONT + BOOL93>
+ <EQUAL? TG8 'IOERR - PHRASE92>
+BOOL93
+ <VEQUAL? R27 0 + PHRASE95>
+ <DEAD R27>
+ <NTHUV TEMP34 1 = STACK>
+ <NTHUV TEMP34 2 = STACK>
+ <DEAD TEMP34>
+ <PUSH '@>
+ <FRAME '\1aOPCODE>
+ <PUSH TG8>
+ <DEAD TG8>
+ <CALL '\1aOPCODE 1 = STACK>
+ <UBLOCK <TYPE-CODE VECTOR> 4 = C26>
+ <CHTYPE C26 <TYPE-CODE INST> = C26>
+ <PUTL PC5 1 C26>
+ <DEAD C26>
+ <SET TEMP34 PC5>
+ <DEAD PC5>
+ <JUMP + PHRASE107>
+PHRASE95
+ <PUSH 'JRST>
+ <PUSH '@>
+ <FRAME '\1aOPCODE>
+ <PUSH TG8>
+ <DEAD TG8>
+ <CALL '\1aOPCODE 1 = STACK>
+ <UBLOCK <TYPE-CODE VECTOR> 3 = C26>
+ <CHTYPE C26 <TYPE-CODE INST> = C26>
+ <PUTL PC5 1 C26>
+ <DEAD C26>
+ <SET TEMP34 PC5>
+ <DEAD PC5>
+ <JUMP + PHRASE107>
+PHRASE92
+ <TYPE? TG8 <TYPE-CODE CONSTANT-BUCKET> - TAG102>
+ <DEAD TG8>
+ <SET TEMP34 %<> (TYPE FALSE)>
+ <JUMP + PHRASE107>
+TAG102
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'UNKNOWN-LABEL!-ERRORS>
+ <NTHUV OFF9 1 = STACK>
+ <DEAD OFF9>
+ <CALL '\1aMIMOCERR 2 = TEMP34>
+ <JUMP + PHRASE107>
+PHRASE86
+ <VEQUAL? R27 0 + PHRASE105>
+ <DEAD R27>
+ <NTHUV TEMP34 1 = STACK>
+ <NTHUV TEMP34 2 = STACK>
+ <DEAD TEMP34>
+ <PUSH NPC63>
+ <PUSH (R*)>
+ <UBLOCK <TYPE-CODE VECTOR> 4 = C26>
+ <CHTYPE C26 <TYPE-CODE INST> = C26>
+ <PUTL PC5 1 C26>
+ <DEAD C26>
+ <SET TEMP34 PC5>
+ <DEAD PC5>
+ <JUMP + PHRASE107>
+PHRASE105
+ <PUSH 'JRST>
+ <PUSH NPC63>
+ <PUSH (R*)>
+ <UBLOCK <TYPE-CODE VECTOR> 3 = C26>
+ <CHTYPE C26 <TYPE-CODE INST> = C26>
+ <PUTL PC5 1 C26>
+ <DEAD C26>
+ <SET TEMP34 PC5>
+ <DEAD PC5>
+PHRASE107
+ <RESTL C4 1 = C4 (TYPE LIST)>
+ <JUMP + MAP52>
+MAPAP55
+ <RETURN TEMP34>
+ <DEAD TEMP34>
+ <END \1aFIXUP-REFS>
+#WORD *25437250545*
+<GFCN \1aWRITE-MSUBR ("VALUE" ANY ANY "OPTIONAL" ANY ANY) OC7 LOWERSTR8 F-OR-G9>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP MVECTOR11:LIST TEMP3:LBIND OB13:STRING TEMP15 TEMP27 CHR30 ICHR31 C72:LIST TEMP73>
+ <INTGO>
+ <GVAL 'MVECTOR = MVECTOR11>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'OUTCHAN 'CHANNEL 'FIX OC7>
+ <GVAL 'OUTPUT-BUFFER = OB13>
+ <GVAL 'INT-MODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + BOOL14>
+ <DEAD TEMP15>
+ <FRAME '\1aPRINTTYPE>
+ <PUSH 'ATOM>
+ <GVAL 'ATOM-PRINT = STACK>
+ <CALL '\1aPRINTTYPE 2>
+BOOL14
+ <TYPE? LOWERSTR8 <TYPE-CODE FALSE> - MAPEX22>
+ <RESTL MVECTOR11 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = TEMP15 (TYPE ATOM)>
+ <NTHR TEMP15 3 = TEMP15 (RECORD-TYPE ATOM)>
+ <SET TEMP27 0 (TYPE FIX)>
+ <LOOP>
+MAP20
+ <INTGO>
+ <EMPUS? TEMP15 + MAPAP23>
+ <NTHUS TEMP15 1 = CHR30>
+ <CHTYPE CHR30 <TYPE-CODE FIX> = ICHR31>
+ <GRTR? ICHR31 90 + PHRASE33 (TYPE FIX)>
+ <LESS? ICHR31 65 + PHRASE33 (TYPE FIX)>
+ <ADD ICHR31 32 = ICHR31 (TYPE FIX)>
+ <CHTYPE ICHR31 <TYPE-CODE CHARACTER> = ICHR31>
+ <JUMP + PHRASE36>
+PHRASE33
+ <SET ICHR31 CHR30>
+ <DEAD CHR30>
+PHRASE36
+ <PUSH ICHR31>
+ <DEAD ICHR31>
+ <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
+ <RESTUS TEMP15 1 = TEMP15 (TYPE STRING)>
+ <JUMP + MAP20>
+MAPAP23
+ <UBLOCK <TYPE-CODE STRING> TEMP27 = LOWERSTR8 (TYPE STRING)>
+ <DEAD TEMP27>
+MAPEX22
+ <FRAME '\1aM-HLEN>
+ <PUSH OC7>
+ <PUSH 100000000>
+ <CALL '\1aM-HLEN 2>
+ <GVAL 'GLUE-MODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE39>
+ <DEAD TEMP15>
+ <FRAME '\1aLREVERSE>
+ <GVAL 'GLUE-LIST = STACK>
+ <CALL '\1aLREVERSE 1 = TEMP15>
+ <SETG 'GLUE-LIST TEMP15>
+ <DEAD TEMP15>
+PHRASE39
+ <FRAME '\1aCRLF>
+ <PUSH OC7>
+ <CALL '\1aCRLF 1>
+ <GVAL 'BOOT-MODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE43>
+ <DEAD TEMP15>
+ <FRAME '\1aPRINC>
+ <PUSH "<SETG ">
+ <PUSH OC7>
+ <CALL '\1aPRINC 2>
+ <GVAL 'GLUE-MODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE46>
+ <DEAD TEMP15>
+ <FRAME '\1aPRINC>
+ <PUSH !\\1a>
+ <PUSH OC7>
+ <CALL '\1aPRINC 2>
+PHRASE46
+ <FRAME '\1aPRINC>
+ <PUSH LOWERSTR8>
+ <PUSH OC7>
+ <CALL '\1aPRINC 2>
+ <GVAL 'BOOT-MODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE54>
+ <DEAD TEMP15>
+ <GVAL 'INT-MODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE52>
+ <DEAD TEMP15>
+ <FRAME '\1aPRINC>
+ <PUSH "!-IMSUBR!- ">
+ <PUSH OC7>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE54>
+PHRASE52
+ <FRAME '\1aPRINC>
+ <PUSH "-IMSUBR ">
+ <PUSH OC7>
+ <CALL '\1aPRINC 2>
+PHRASE54
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <NTHR 'OUTCHAN 2 = TEMP15 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP15 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP15>
+ <CALL '\1aPRINC 2>
+PHRASE43
+ <FRAME '\1aPRINC>
+ <PUSH "#IMSUBR [|">
+ <PUSH OC7>
+ <CALL '\1aPRINC 2>
+ <GVAL 'GLUE-MODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE61>
+ <DEAD TEMP15>
+ <GVAL 'MAX-SPACE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE61>
+ <DEAD TEMP15>
+ <SET ICHR31 () (TYPE LIST)>
+ <SET TEMP27 () (TYPE LIST)>
+ <GVAL 'GLUE-LIST = TEMP15>
+ <LOOP>
+MAP64
+ <INTGO>
+ <EMPTY? TEMP15 + MAPAP67>
+ <NTH1 TEMP15 = CHR30>
+ <RESTL CHR30 1 = TEMP73 (TYPE LIST)>
+ <RESTL TEMP73 1 = TEMP73 (TYPE LIST)>
+ <RESTL TEMP73 1 = TEMP73 (TYPE LIST)>
+ <NTHL TEMP73 1 = TEMP73 (TYPE LIST)>
+ <RESTL TEMP73 1 = C72 (TYPE LIST)>
+ <DEAD TEMP73>
+ <RESTL CHR30 1 = TEMP73 (TYPE LIST)>
+ <DEAD CHR30>
+ <RESTL TEMP73 1 = TEMP73 (TYPE LIST)>
+ <RESTL TEMP73 1 = TEMP73 (TYPE LIST)>
+ <PUTL TEMP73 1 () (TYPE LIST)>
+ <DEAD TEMP73>
+ <LOOP (C72 VALUE)>
+TAG78
+ <INTGO>
+ <EMPL? C72 + MAP65>
+ <NTHL C72 1 = TEMP73>
+ <CONS TEMP73 () = TEMP73 (TYPE LIST)>
+ <EMPL? ICHR31 - TAG80>
+ <SET ICHR31 TEMP73 (TYPE LIST)>
+ <JUMP + TAG81>
+TAG80
+ <PUTREST TEMP27 TEMP73>
+ <DEAD TEMP27>
+TAG81
+ <SET TEMP27 TEMP73 (TYPE LIST)>
+ <DEAD TEMP73>
+ <RESTL C72 1 = C72 (TYPE LIST)>
+ <JUMP + TAG78>
+MAP65
+ <REST1 TEMP15 = TEMP15>
+ <JUMP + MAP64>
+MAPAP67
+ <SETG 'CODE ICHR31>
+ <DEAD ICHR31>
+ <GVAL 'CODE = TEMP15>
+ <CONS 'T TEMP15 = TEMP15>
+ <SETG 'CODE TEMP15>
+ <DEAD TEMP15>
+PHRASE61
+ <GVAL 'BOOT-MODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE112>
+ <DEAD TEMP15>
+ <GVAL 'GLUE-MODE = TEMP73>
+ <TYPE? TEMP73 <TYPE-CODE FALSE> + PHRASE87>
+ <DEAD TEMP73>
+ <GVAL 'GLUE-PC = TEMP73>
+ <JUMP + PHRASE88>
+PHRASE87
+ <GVAL 'CODE-LENGTH = TEMP73>
+PHRASE88
+ <GVAL 'CONSTANT-VECTOR = TEMP15>
+ <LENL TEMP15 = TEMP15 (TYPE FIX)>
+ <ADD TEMP73 TEMP15 = TEMP27 (TYPE FIX)>
+ <DEAD TEMP73 TEMP15>
+ <LSH TEMP27 -16 = CHR30 (TYPE FIX)>
+ <LSH CHR30 -5 = TEMP15 (TYPE FIX)>
+ <AND TEMP15 #WORD *7* = TEMP15>
+ <ADD TEMP15 65 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = TEMP15>
+ <PUTUS OB13 1 TEMP15>
+ <DEAD TEMP15>
+ <RESTUS OB13 1 = OB13 (TYPE STRING)>
+ <EMPUS? OB13 - PHRASE92 (TYPE STRING)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OC7>
+ <PUSH 'WRITE-BUFFER>
+ <GVAL 'OUTPUT-BUFFER = OB13>
+ <PUSH OB13>
+ <CALL '\1aCHANNEL-OP 3>
+PHRASE92
+ <AND CHR30 #WORD *37* = TEMP15>
+ <DEAD CHR30>
+ <ADD TEMP15 65 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = TEMP15>
+ <PUTUS OB13 1 TEMP15>
+ <DEAD TEMP15>
+ <RESTUS OB13 1 = OB13 (TYPE STRING)>
+ <EMPUS? OB13 - PHRASE95 (TYPE STRING)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OC7>
+ <PUSH 'WRITE-BUFFER>
+ <GVAL 'OUTPUT-BUFFER = OB13>
+ <PUSH OB13>
+ <CALL '\1aCHANNEL-OP 3>
+PHRASE95
+ <LSH TEMP27 -13 = TEMP73 (TYPE FIX)>
+ <AND TEMP73 #WORD *7* = TEMP73>
+ <ADD TEMP73 65 = TEMP73 (TYPE FIX)>
+ <CHTYPE TEMP73 <TYPE-CODE CHARACTER> = TEMP73>
+ <PUTUS OB13 1 TEMP73>
+ <DEAD TEMP73>
+ <RESTUS OB13 1 = OB13 (TYPE STRING)>
+ <EMPUS? OB13 - PHRASE100 (TYPE STRING)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OC7>
+ <PUSH 'WRITE-BUFFER>
+ <GVAL 'OUTPUT-BUFFER = OB13>
+ <PUSH OB13>
+ <CALL '\1aCHANNEL-OP 3>
+PHRASE100
+ <LSH TEMP27 -8 = TEMP73 (TYPE FIX)>
+ <AND TEMP73 #WORD *37* = TEMP73>
+ <ADD TEMP73 65 = TEMP73 (TYPE FIX)>
+ <CHTYPE TEMP73 <TYPE-CODE CHARACTER> = TEMP73>
+ <PUTUS OB13 1 TEMP73>
+ <DEAD TEMP73>
+ <RESTUS OB13 1 = OB13 (TYPE STRING)>
+ <EMPUS? OB13 - PHRASE103 (TYPE STRING)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OC7>
+ <PUSH 'WRITE-BUFFER>
+ <GVAL 'OUTPUT-BUFFER = OB13>
+ <PUSH OB13>
+ <CALL '\1aCHANNEL-OP 3>
+PHRASE103
+ <LSH TEMP27 -5 = TEMP15 (TYPE FIX)>
+ <AND TEMP15 #WORD *7* = TEMP15>
+ <ADD TEMP15 65 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = TEMP15>
+ <PUTUS OB13 1 TEMP15>
+ <DEAD TEMP15>
+ <RESTUS OB13 1 = OB13 (TYPE STRING)>
+ <EMPUS? OB13 - PHRASE109 (TYPE STRING)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OC7>
+ <PUSH 'WRITE-BUFFER>
+ <GVAL 'OUTPUT-BUFFER = OB13>
+ <PUSH OB13>
+ <CALL '\1aCHANNEL-OP 3>
+PHRASE109
+ <AND TEMP27 #WORD *37* = TEMP15>
+ <DEAD TEMP27>
+ <ADD TEMP15 65 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = TEMP15>
+ <PUTUS OB13 1 TEMP15>
+ <DEAD TEMP15>
+ <RESTUS OB13 1 = OB13 (TYPE STRING)>
+ <EMPUS? OB13 - PHRASE112 (TYPE STRING)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OC7>
+ <PUSH 'WRITE-BUFFER>
+ <GVAL 'OUTPUT-BUFFER = OB13>
+ <PUSH OB13>
+ <CALL '\1aCHANNEL-OP 3>
+PHRASE112
+ <GVAL 'MAX-SPACE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE115>
+ <DEAD TEMP15>
+ <FRAME '\1aWRITE-CODE>
+ <PUSH OC7>
+ <PUSH LOWERSTR8>
+ <GVAL 'CODE = TEMP15>
+ <RESTL TEMP15 1 = STACK (TYPE LIST)>
+ <DEAD TEMP15>
+ <PUSH OB13>
+ <DEAD OB13>
+ <CALL '\1aWRITE-CODE 4>
+ <JUMP + PHRASE117>
+PHRASE115
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OC7>
+ <PUSH 'WRITE-BUFFER>
+ <GVAL 'OUTPUT-BUFFER = STACK>
+ <LENUS OB13 = TEMP15 (TYPE FIX)>
+ <DEAD OB13>
+ <SUB 1024 TEMP15 = STACK (TYPE FIX)>
+ <DEAD TEMP15>
+ <CALL '\1aCHANNEL-OP 4>
+PHRASE117
+ <GVAL 'GLUE-MODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE120>
+ <DEAD TEMP15>
+ <EQUAL? F-OR-G9 'GFCN - PHRASE122>
+ <DEAD F-OR-G9>
+ <FRAME '\1aPRIN1>
+ <GVAL 'CODE-LENGTH = STACK>
+ <PUSH OC7>
+ <CALL '\1aPRIN1 2>
+ <JUMP + PHRASE124>
+PHRASE122
+ <FRAME '\1aPRIN1>
+ <GVAL 'CODE-LENGTH = TEMP15>
+ <SUB 0 TEMP15 = STACK (TYPE FIX)>
+ <DEAD TEMP15>
+ <PUSH OC7>
+ <CALL '\1aPRIN1 2>
+PHRASE124
+ <FRAME '\1aCRLF>
+ <PUSH OC7>
+ <CALL '\1aCRLF 1>
+ <GVAL 'BOOT-MODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE128>
+ <DEAD TEMP15>
+ <FRAME '\1aPRINC>
+ <PUSH "<SETG ">
+ <PUSH OC7>
+ <CALL '\1aPRINC 2>
+ <GVAL 'GLUE-MODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE131>
+ <DEAD TEMP15>
+ <FRAME '\1aPRINC>
+ <PUSH !\\1a>
+ <PUSH OC7>
+ <CALL '\1aPRINC 2>
+PHRASE131
+ <FRAME '\1aPRIN1>
+ <RESTL MVECTOR11 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = STACK>
+ <DEAD TEMP15>
+ <PUSH OC7>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <PUSH OC7>
+ <CALL '\1aPRINC 2>
+PHRASE128
+ <FRAME '\1aPRINC>
+ <PUSH "#MSUBR [">
+ <PUSH OC7>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH LOWERSTR8>
+ <PUSH OC7>
+ <CALL '\1aPRINC 2>
+ <GVAL 'BOOT-MODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE142>
+ <DEAD TEMP15>
+ <GVAL 'INT-MODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE140>
+ <DEAD TEMP15>
+ <FRAME '\1aPRINC>
+ <PUSH "!-IMSUBR!- ">
+ <PUSH OC7>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE142>
+PHRASE140
+ <FRAME '\1aPRINC>
+ <PUSH "-IMSUBR ">
+ <PUSH OC7>
+ <CALL '\1aPRINC 2>
+PHRASE142
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <PUSH OC7>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <RESTL MVECTOR11 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = STACK>
+ <DEAD TEMP15>
+ <PUSH OC7>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <PUSH OC7>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <RESTL MVECTOR11 1 = TEMP15 (TYPE LIST)>
+ <DEAD MVECTOR11>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = STACK>
+ <DEAD TEMP15>
+ <PUSH OC7>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " 0]">
+ <PUSH OC7>
+ <CALL '\1aPRINC 2>
+ <GVAL 'BOOT-MODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE150>
+ <DEAD TEMP15>
+ <FRAME '\1aPRINC>
+ <PUSH ">">
+ <PUSH OC7>
+ <CALL '\1aPRINC 2>
+PHRASE150
+ <FRAME '\1aM-HLEN>
+ <PUSH OC7>
+ <DEAD OC7>
+ <PUSH 80>
+ <CALL '\1aM-HLEN 2>
+PHRASE120
+ <GVAL 'INT-MODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + BOOL153>
+ <DEAD TEMP15>
+ <GVAL 'MAX-SPACE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL153>
+ <DEAD TEMP15>
+ <FRAME '\1aPRINTTYPE>
+ <PUSH 'ATOM>
+ <GVAL 'PRINT = STACK>
+ <CALL '\1aPRINTTYPE 2>
+BOOL153
+ <GVAL 'MAX-SPACE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE156>
+ <SET TEMP15 LOWERSTR8>
+ <DEAD LOWERSTR8>
+PHRASE156
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -9>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aWRITE-MSUBR>
+#WORD *11036414766*
+<GFCN \1aWRITE-CODE ("VALUE" ANY ANY ANY LIST STRING "OPTIONAL" FIX) OC6 LOWERSTR7 CODE8 OB9 LEN10>
+ <OPT-DISPATCH 4 %<> OPT4 OPT5>
+OPT4
+ <PUSH 0>
+OPT5
+ <TEMP MVECTOR11:LIST TEMP3:LBIND TEMP20 WRD25 I31 RBYT35 TEMP37 TEMP89>
+ <INTGO>
+ <GVAL 'MVECTOR = MVECTOR11>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'OUTCHAN 'CHANNEL 'FIX OC6>
+ <SET TEMP20 CODE8 (TYPE LIST)>
+ <DEAD CODE8>
+ <LOOP>
+MAP15
+ <INTGO>
+ <EMPL? TEMP20 + MAPAP18>
+ <NTHL TEMP20 1 = WRD25>
+ <FRAME '\1aASS-INS>
+ <PUSH WRD25>
+ <DEAD WRD25>
+ <CALL '\1aASS-INS 1 = WRD25>
+ <TYPE? WRD25 <TYPE-CODE FALSE> + EXIT29>
+ <ADD LEN10 4 = LEN10 (TYPE FIX)>
+ <SET I31 4 (TYPE FIX)>
+ <LOOP>
+AGAIN32
+ <INTGO>
+ <ROT WRD25 9 = WRD25 (TYPE FIX)>
+ <SET RBYT35 WRD25>
+ <LSH RBYT35 -5 = TEMP37 (TYPE FIX)>
+ <AND TEMP37 #WORD *17* = TEMP37>
+ <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
+ <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
+ <PUTUS OB9 1 TEMP37>
+ <DEAD TEMP37>
+ <RESTUS OB9 1 = OB9 (TYPE STRING)>
+ <EMPUS? OB9 - PHRASE39 (TYPE STRING)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OC6>
+ <PUSH 'WRITE-BUFFER>
+ <GVAL 'OUTPUT-BUFFER = OB9>
+ <PUSH OB9>
+ <CALL '\1aCHANNEL-OP 3>
+PHRASE39
+ <AND RBYT35 #WORD *37* = TEMP37>
+ <DEAD RBYT35>
+ <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
+ <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
+ <PUTUS OB9 1 TEMP37>
+ <DEAD TEMP37>
+ <RESTUS OB9 1 = OB9 (TYPE STRING)>
+ <EMPUS? OB9 - PHRASE42 (TYPE STRING)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OC6>
+ <PUSH 'WRITE-BUFFER>
+ <GVAL 'OUTPUT-BUFFER = OB9>
+ <PUSH OB9>
+ <CALL '\1aCHANNEL-OP 3>
+PHRASE42
+ <SUB I31 1 = I31 (TYPE FIX)>
+ <VEQUAL? I31 0 - AGAIN32 (TYPE FIX)>
+EXIT29
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <JUMP + MAP15>
+MAPAP18
+ <GVAL 'MAX-SPACE = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE49>
+ <DEAD TEMP20>
+ <GVAL 'CONSTANT-VECTOR = TEMP20>
+ <LOOP>
+MAP51
+ <INTGO>
+ <EMPL? TEMP20 + MAPAP54>
+ <NTHL TEMP20 1 = WRD25>
+ <NTHUV WRD25 1 = WRD25>
+ <TYPE? WRD25 <TYPE-CODE CONSTANT> - PHRASE61>
+ <SET I31 4 (TYPE FIX)>
+ <LOOP>
+AGAIN65
+ <INTGO>
+ <ROT WRD25 9 = WRD25 (TYPE FIX)>
+ <SET RBYT35 WRD25>
+ <LSH RBYT35 -5 = TEMP37 (TYPE FIX)>
+ <AND TEMP37 #WORD *17* = TEMP37>
+ <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
+ <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
+ <PUTUS OB9 1 TEMP37>
+ <DEAD TEMP37>
+ <RESTUS OB9 1 = OB9 (TYPE STRING)>
+ <EMPUS? OB9 - PHRASE72 (TYPE STRING)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OC6>
+ <PUSH 'WRITE-BUFFER>
+ <GVAL 'OUTPUT-BUFFER = OB9>
+ <PUSH OB9>
+ <CALL '\1aCHANNEL-OP 3>
+PHRASE72
+ <AND RBYT35 #WORD *37* = TEMP37>
+ <DEAD RBYT35>
+ <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
+ <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
+ <PUTUS OB9 1 TEMP37>
+ <DEAD TEMP37>
+ <RESTUS OB9 1 = OB9 (TYPE STRING)>
+ <EMPUS? OB9 - PHRASE75 (TYPE STRING)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OC6>
+ <PUSH 'WRITE-BUFFER>
+ <GVAL 'OUTPUT-BUFFER = OB9>
+ <PUSH OB9>
+ <CALL '\1aCHANNEL-OP 3>
+PHRASE75
+ <SUB I31 1 = I31 (TYPE FIX)>
+ <VEQUAL? I31 0 - AGAIN65 (TYPE FIX)>
+ <ADD LEN10 4 = LEN10 (TYPE FIX)>
+ <JUMP + PHRASE81>
+PHRASE61
+ <TYPE? WRD25 <TYPE-CODE CONST-W-LOCAL> - PHRASE81>
+ <NTHL WRD25 1 = TEMP37>
+ <GVAL 'FINAL-LOCALS = I31>
+ <TYPE TEMP37 = RBYT35>
+ <EMPL? I31 + PHRASE83>
+ <LOOP (TEMP37 VALUE) (RBYT35 VALUE) (I31 VALUE)>
+TAG86
+ <NTHL I31 1 = TEMP89>
+ <TYPE? TEMP89 RBYT35 - TAG87>
+ <VEQUAL? TEMP89 TEMP37 + TAG85>
+ <DEAD TEMP89>
+TAG87
+ <RESTL I31 1 = I31 (TYPE LIST)>
+ <EMPL? I31 - TAG86>
+ <JUMP + PHRASE83>
+TAG85
+ <RESTL WRD25 1 = RBYT35 (TYPE LIST)>
+ <NTHL RBYT35 1 = RBYT35>
+ <AND RBYT35 #WORD *777777000000* = RBYT35>
+ <RESTL WRD25 1 = TEMP37 (TYPE LIST)>
+ <DEAD WRD25>
+ <NTHL TEMP37 1 = TEMP37>
+ <RESTL I31 1 = TEMP89 (TYPE LIST)>
+ <DEAD I31>
+ <NTHL TEMP89 1 = TEMP89 (TYPE FIX)>
+ <ADD TEMP37 TEMP89 = TEMP37 (TYPE FIX)>
+ <DEAD TEMP89>
+ <AND TEMP37 #WORD *777777* = TEMP37>
+ <OR RBYT35 TEMP37 = WRD25>
+ <DEAD RBYT35 TEMP37>
+ <JUMP + PHRASE90>
+PHRASE83
+ <FRAME '\1aPRINC>
+ <PUSH "**** WARNING unknown local: ">
+ <GVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHL WRD25 1 = STACK>
+ <DEAD WRD25>
+ <GVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " in fcn ">
+ <GVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <GEN-LVAL 'NAME = STACK>
+ <GVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aCRLF>
+ <GVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1>
+ <SET WRD25 0 (TYPE FIX)>
+PHRASE90
+ <SET I31 4 (TYPE FIX)>
+ <LOOP>
+AGAIN100
+ <INTGO>
+ <ROT WRD25 9 = WRD25 (TYPE FIX)>
+ <SET RBYT35 WRD25>
+ <LSH RBYT35 -5 = TEMP37 (TYPE FIX)>
+ <AND TEMP37 #WORD *17* = TEMP37>
+ <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
+ <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
+ <PUTUS OB9 1 TEMP37>
+ <DEAD TEMP37>
+ <RESTUS OB9 1 = OB9 (TYPE STRING)>
+ <EMPUS? OB9 - PHRASE106 (TYPE STRING)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OC6>
+ <PUSH 'WRITE-BUFFER>
+ <GVAL 'OUTPUT-BUFFER = OB9>
+ <PUSH OB9>
+ <CALL '\1aCHANNEL-OP 3>
+PHRASE106
+ <AND RBYT35 #WORD *37* = TEMP37>
+ <DEAD RBYT35>
+ <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
+ <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
+ <PUTUS OB9 1 TEMP37>
+ <DEAD TEMP37>
+ <RESTUS OB9 1 = OB9 (TYPE STRING)>
+ <EMPUS? OB9 - PHRASE109 (TYPE STRING)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OC6>
+ <PUSH 'WRITE-BUFFER>
+ <GVAL 'OUTPUT-BUFFER = OB9>
+ <PUSH OB9>
+ <CALL '\1aCHANNEL-OP 3>
+PHRASE109
+ <SUB I31 1 = I31 (TYPE FIX)>
+ <VEQUAL? I31 0 - AGAIN100 (TYPE FIX)>
+ <ADD LEN10 4 = LEN10 (TYPE FIX)>
+PHRASE81
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <JUMP + MAP51>
+MAPAP54
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OC6>
+ <DEAD OC6>
+ <PUSH 'WRITE-BUFFER>
+ <GVAL 'OUTPUT-BUFFER = STACK>
+ <LENUS OB9 = TEMP20 (TYPE FIX)>
+ <DEAD OB9>
+ <SUB 1024 TEMP20 = STACK (TYPE FIX)>
+ <DEAD TEMP20>
+ <CALL '\1aCHANNEL-OP 4>
+ <FRAME '\1aPRINC>
+ <PUSH "| ">
+ <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP20>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH LOWERSTR7>
+ <DEAD LOWERSTR7>
+ <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP20>
+ <CALL '\1aPRINC 2>
+ <GVAL 'BOOT-MODE = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE129>
+ <DEAD TEMP20>
+ <GVAL 'INT-MODE = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE125>
+ <DEAD TEMP20>
+ <FRAME '\1aPRINC>
+ <PUSH "!-IMSUBR!- ">
+ <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP20>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE129>
+PHRASE125
+ <FRAME '\1aPRINC>
+ <PUSH "-IMSUBR ">
+ <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP20>
+ <CALL '\1aPRINC 2>
+PHRASE129
+ <RESTL MVECTOR11 1 = TEMP20 (TYPE LIST)>
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <RESTL TEMP20 1 = WRD25 (TYPE LIST)>
+ <DEAD TEMP20>
+ <LOOP>
+MAP134
+ <INTGO>
+ <EMPL? WRD25 + MAPAP137>
+ <NTHL WRD25 1 = TEMP37>
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP20>
+ <CALL '\1aPRINC 2>
+ <TYPE? TEMP37 <TYPE-CODE CHARACTER> - PHRASE149>
+ <FRAME '\1aPRINTTYPE>
+ <PUSH 'CHARACTER>
+ <GVAL 'CHR-PRINT = STACK>
+ <CALL '\1aPRINTTYPE 2>
+ <FRAME '\1aPRIN1>
+ <PUSH TEMP37>
+ <DEAD TEMP37>
+ <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP20>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINTTYPE>
+ <PUSH 'CHARACTER>
+ <GVAL 'PRINT = STACK>
+ <CALL '\1aPRINTTYPE 2>
+ <JUMP + PHRASE166>
+PHRASE149
+ <TYPE? TEMP37 <TYPE-CODE CONST-W-LOCAL> - PHRASE155>
+ <NTHL TEMP37 1 = TEMP20>
+ <GVAL 'FINAL-LOCALS = I31>
+ <TYPE TEMP20 = RBYT35>
+ <EMPL? I31 + TAG156>
+ <LOOP (TEMP20 VALUE) (RBYT35 VALUE) (I31 VALUE)>
+TAG158
+ <NTHL I31 1 = TEMP89>
+ <TYPE? TEMP89 RBYT35 - TAG159>
+ <VEQUAL? TEMP89 TEMP20 + TAG157>
+ <DEAD TEMP89>
+TAG159
+ <RESTL I31 1 = I31 (TYPE LIST)>
+ <EMPL? I31 - TAG158>
+TAG156
+ <SET I31 %<> (TYPE FALSE)>
+TAG157
+ <RESTL I31 1 = I31 (TYPE LIST)>
+ <NTHL I31 1 = I31>
+ <RESTL TEMP37 1 = RBYT35 (TYPE LIST)>
+ <DEAD TEMP37>
+ <NTHL RBYT35 1 = RBYT35>
+ <ADD I31 RBYT35 = TEMP37 (TYPE FIX)>
+ <DEAD I31 RBYT35>
+ <FRAME '\1aPRIN1>
+ <PUSH TEMP37>
+ <DEAD TEMP37>
+ <NTHR 'OUTCHAN 2 = RBYT35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR RBYT35 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD RBYT35>
+ <CALL '\1aPRIN1 2>
+ <JUMP + PHRASE166>
+PHRASE155
+ <FRAME '\1aPRIN1>
+ <PUSH TEMP37>
+ <DEAD TEMP37>
+ <NTHR 'OUTCHAN 2 = RBYT35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR RBYT35 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD RBYT35>
+ <CALL '\1aPRIN1 2>
+PHRASE166
+ <RESTL WRD25 1 = WRD25 (TYPE LIST)>
+ <JUMP + MAP134>
+MAPAP137
+ <GVAL 'GLUE-MODE = WRD25>
+ <TYPE? WRD25 <TYPE-CODE FALSE> + PHRASE171>
+ <DEAD WRD25>
+ <FRAME '\1aM-HLEN>
+ <NTHR 'OUTCHAN 2 = WRD25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR WRD25 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD WRD25>
+ <PUSH 80>
+ <CALL '\1aM-HLEN 2>
+PHRASE171
+ <FRAME '\1aPRINC>
+ <PUSH !\]>
+ <NTHR 'OUTCHAN 2 = WRD25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR WRD25 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD WRD25>
+ <CALL '\1aPRINC 2>
+ <GVAL 'BOOT-MODE = WRD25>
+ <TYPE? WRD25 <TYPE-CODE FALSE> - PHRASE179>
+ <DEAD WRD25>
+ <FRAME '\1aPRINC>
+ <PUSH !\>>
+ <NTHR 'OUTCHAN 2 = WRD25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR WRD25 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD WRD25>
+ <CALL '\1aPRINC 2>
+PHRASE179
+ <FRAME '\1aCRLF>
+ <NTHR 'OUTCHAN 2 = WRD25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR WRD25 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD WRD25>
+ <CALL '\1aCRLF 1>
+ <GVAL 'VERBOSE = WRD25>
+ <TYPE? WRD25 <TYPE-CODE FALSE> + PHRASE187>
+ <DEAD WRD25>
+ <GETS 'BIND = WRD25 (TYPE LBIND)>
+ <GVAL 'V2 = TEMP37>
+ <TYPE? TEMP37 <TYPE-CODE FALSE> - PHRASE194>
+ <GVAL 'V1 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE191>
+ <DEAD TEMP20>
+ <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP37 1 = TEMP37 (RECORD-TYPE LBIND)>
+ <JUMP + PHRASE194>
+PHRASE191
+ <GVAL 'OUTCHAN = TEMP37>
+PHRASE194
+ <BBIND 'OUTCHAN 'CHANNEL 'FIX TEMP37>
+ <DEAD TEMP37>
+ <FRAME '\1aPRINC>
+ <PUSH " [Code: ">
+ <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP37>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <DIV LEN10 4 = STACK (TYPE FIX)>
+ <DEAD LEN10>
+ <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP37>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " / Vector: ">
+ <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP37>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <LENL MVECTOR11 = TEMP37 (TYPE FIX)>
+ <DEAD MVECTOR11>
+ <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
+ <LSH TEMP37 1 = STACK (TYPE FIX)>
+ <DEAD TEMP37>
+ <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP37>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\]>
+ <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP37>
+ <CALL '\1aPRINC 2>
+ <UNBIND WRD25>
+ <DEAD WRD25>
+ <ADJ -9>
+PHRASE187
+ <GVAL 'NULL = WRD25>
+ <JUMP + PHRASE211>
+PHRASE49
+ <SET WRD25 LEN10>
+ <DEAD LEN10>
+PHRASE211
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -9>
+ <RETURN WRD25>
+ <DEAD WRD25>
+ <END \1aWRITE-CODE>\r\r
+#WORD *26033402331*
+<GFCN \1aASS-INS ("VALUE" <OR FALSE FIX> <OR CONST-W-LOCAL CONSTANT FIX WORD INST ATOM>) WRD4>
+ <TEMP (AC?6 %<>) (ADR7:FIX 0) (IDX8:FIX 0) (INS9:FIX 0) (IND10:FIX 0) TEMP25:VECTOR FROB30 M5 TEMP39 TEMP79>
+ <INTGO>
+ <TYPE? WRD4 <TYPE-CODE ATOM> - PHRASE14>
+ <RETURN %<>>
+PHRASE14
+ <TYPE? WRD4 <TYPE-CODE INST> + TAG17>
+ <RETURN %<>>
+TAG17
+ <CHTYPE WRD4 <TYPE-CODE VECTOR> = TEMP25>
+ <DEAD WRD4>
+ <LOOP>
+MAP20
+ <INTGO>
+ <EMPUV? TEMP25 + MAPAP23>
+ <NTHUV TEMP25 1 = FROB30>
+ <EQUAL? FROB30 '@ - PHRASE32>
+ <SET IND10 16 (TYPE FIX)>
+ <JUMP + COND31>
+PHRASE32
+ <TYPE? FROB30 <TYPE-CODE ATOM> - PHRASE33>
+ <GVAL 'ACS = M5>
+ <EMPUV? M5 + PHRASE33>
+ <LOOP (FROB30 VALUE) (M5 LENGTH VALUE)>
+TAG37
+ <NTHUV M5 1 = TEMP39>
+ <TYPE? TEMP39 <TYPE-CODE ATOM> - TAG38>
+ <VEQUAL? TEMP39 FROB30 + TAG36>
+ <DEAD TEMP39>
+TAG38
+ <RESTUV M5 1 = M5 (TYPE VECTOR)>
+ <EMPUV? M5 - TAG37>
+ <JUMP + PHRASE33>
+TAG36
+ <TYPE? AC?6 <TYPE-CODE FALSE> - BOOL42>
+ <VEQUAL? IND10 0 + PHRASE41 (TYPE FIX)>
+BOOL42
+ <NTHUV M5 2 = TEMP39 (TYPE FIX)>
+ <DEAD M5>
+ <ADD TEMP39 ADR7 = ADR7 (TYPE FIX)>
+ <DEAD TEMP39>
+ <JUMP + COND31>
+PHRASE41
+ <NTHUV M5 2 = AC?6 (TYPE FIX)>
+ <DEAD M5>
+ <JUMP + COND31>
+PHRASE33
+ <TYPE? FROB30 <TYPE-CODE LOCAL-NAME> - PHRASE46>
+ <GVAL 'FINAL-LOCALS = M5>
+ <EMPL? M5 + PHRASE48>
+ <LOOP (FROB30 VALUE) (M5 VALUE)>
+TAG51
+ <NTHL M5 1 = TEMP39>
+ <TYPE? TEMP39 <TYPE-CODE LOCAL-NAME> - TAG52>
+ <VEQUAL? TEMP39 FROB30 + TAG50>
+ <DEAD TEMP39>
+TAG52
+ <RESTL M5 1 = M5 (TYPE LIST)>
+ <EMPL? M5 - TAG51>
+ <JUMP + PHRASE48>
+TAG50
+ <RESTL M5 1 = TEMP39 (TYPE LIST)>
+ <DEAD M5>
+ <NTHL TEMP39 1 = TEMP39>
+ <ADD TEMP39 ADR7 = ADR7 (TYPE FIX)>
+ <DEAD TEMP39>
+ <JUMP + COND31>
+PHRASE48
+ <SET ADR7 0 (TYPE FIX)>
+ <FRAME '\1aPRINC>
+ <PUSH "**** WARNING unknown local: ">
+ <GVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <PUSH FROB30>
+ <DEAD FROB30>
+ <GVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " in fcn ">
+ <GVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <GEN-LVAL 'NAME = STACK>
+ <GVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aCRLF>
+ <GVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1>
+ <JUMP + COND31>
+PHRASE46
+ <TYPE? FROB30 <TYPE-CODE ATOM> - PHRASE61>
+ <FRAME '\1aLOOKUP>
+ <NTHR FROB30 3 = STACK (RECORD-TYPE ATOM)>
+ <GVAL 'OPS = STACK>
+ <CALL '\1aLOOKUP 2 = M5>
+ <TYPE? M5 <TYPE-CODE FALSE> - PHRASE66>
+ <FRAME '\1aLOOKUP>
+ <NTHR FROB30 3 = STACK (RECORD-TYPE ATOM)>
+ <GVAL 'JSYS-OBLIST = STACK>
+ <CALL '\1aLOOKUP 2 = M5>
+ <TYPE? M5 <TYPE-CODE FALSE> - PHRASE66>
+ <SET M5 FROB30>
+ <DEAD FROB30>
+PHRASE66
+ <SET FROB30 M5>
+ <DEAD M5>
+ <NTHR FROB30 1 = M5 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE68)>
+ <TYPE? M5 <TYPE-CODE FALSE> + PHRASE68>
+ <NTHR M5 1 = M5 (RECORD-TYPE GBIND)>
+ <TYPE? M5 <TYPE-CODE UNBOUND> + PHRASE68>
+ <DEAD M5>
+ <GVAL FROB30 = M5>
+ <TYPE? M5 <TYPE-CODE JSYS> - PHRASE68>
+ <DEAD M5>
+ <GVAL FROB30 = M5>
+ <LSH M5 -27 = INS9 (TYPE FIX)>
+ <DEAD M5>
+ <GVAL FROB30 = M5>
+ <DEAD FROB30>
+ <AND M5 #WORD *777777* = ADR7>
+ <DEAD M5>
+ <JUMP + COND31>
+PHRASE68
+ <NTHR FROB30 1 = M5 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE70)>
+ <TYPE? M5 <TYPE-CODE FALSE> + PHRASE70>
+ <NTHR M5 1 = M5 (RECORD-TYPE GBIND)>
+ <TYPE? M5 <TYPE-CODE UNBOUND> + PHRASE70>
+ <DEAD M5>
+ <GVAL FROB30 = INS9>
+ <DEAD FROB30>
+ <JUMP + COND31>
+PHRASE70
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'BAD-OPCODE!-ERRORS>
+ <PUSH FROB30>
+ <DEAD FROB30>
+ <CALL '\1aMIMOCERR 2>
+ <JUMP + COND31>
+PHRASE61
+ <TYPE? FROB30 <TYPE-CODE LIST> - PHRASE73>
+ <NTHL FROB30 1 = FROB30>
+ <GVAL 'ACS = M5>
+ <TYPE FROB30 = TEMP39>
+ <EMPUV? M5 + TAG74>
+ <LOOP (FROB30 VALUE) (TEMP39 VALUE) (M5 LENGTH VALUE)>
+TAG76
+ <NTHUV M5 1 = TEMP79>
+ <TYPE? TEMP79 TEMP39 - TAG77>
+ <VEQUAL? TEMP79 FROB30 + TAG75>
+ <DEAD TEMP79>
+TAG77
+ <RESTUV M5 1 = M5 (TYPE VECTOR)>
+ <EMPUV? M5 - TAG76>
+TAG74
+ <SET M5 %<> (TYPE FALSE)>
+TAG75
+ <CHTYPE M5 <TYPE-CODE VECTOR> = M5>
+ <NTHUV M5 2 = IDX8 (TYPE FIX)>
+ <DEAD M5>
+ <JUMP + COND31>
+PHRASE73
+ <FRAME '\1aPRIMTYPE>
+ <PUSH FROB30>
+ <CALL '\1aPRIMTYPE 1 = M5>
+ <SET TEMP39 [WORD FIX] (TYPE VECTOR)>
+ <LOOP (M5 VALUE) (TEMP39 LENGTH VALUE)>
+TAG82
+ <NTHUV TEMP39 1 = TEMP79>
+ <VEQUAL? TEMP79 M5 + TAG81>
+ <DEAD TEMP79>
+ <RESTUV TEMP39 1 = TEMP39 (TYPE VECTOR)>
+ <EMPUV? TEMP39 - TAG82>
+ <JUMP + PHRASE80>
+TAG81
+ <ADD FROB30 ADR7 = ADR7 (TYPE FIX)>
+ <DEAD FROB30>
+ <JUMP + COND31>
+PHRASE80
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'BAD-THING-IN-CODE!-ERRORS>
+ <PUSH FROB30>
+ <DEAD FROB30>
+ <CALL '\1aMIMOCERR 2>
+COND31
+ <RESTUV TEMP25 1 = TEMP25 (TYPE VECTOR)>
+ <JUMP + MAP20>
+MAPAP23
+ <TYPE? AC?6 <TYPE-CODE FALSE> - PHRASE87>
+ <SET AC?6 0 (TYPE FIX)>
+PHRASE87
+ <LSH INS9 27 = INS9 (TYPE FIX)>
+ <LSH AC?6 5 = AC?6 (TYPE FIX)>
+ <ADD AC?6 IND10 = AC?6 (TYPE FIX)>
+ <DEAD IND10>
+ <ADD AC?6 IDX8 = AC?6 (TYPE FIX)>
+ <DEAD IDX8>
+ <LSH AC?6 18 = AC?6 (TYPE FIX)>
+ <OR INS9 AC?6 = INS9>
+ <DEAD AC?6>
+ <AND ADR7 #WORD *777777* = AC?6>
+ <DEAD ADR7>
+ <OR INS9 AC?6 = AC?6>
+ <DEAD INS9>
+ <RETURN AC?6>
+ <DEAD AC?6>
+ <END \1aASS-INS>
+#WORD *35212502022*
+<GFCN \1aDUMP-CODE ("VALUE" ANY LIST CHANNEL) CODE4 TC5>
+ <TEMP CB6 TCB7 TEMP8 WRD19>
+ <INTGO>
+ <GVAL 'CODE-BUFFER = CB6>
+ <SET TCB7 CB6>
+ <GVAL 'CODE-LENGTH = TEMP8>
+ <PUTUU CB6 1 TEMP8>
+ <DEAD TEMP8>
+ <RESTUU CB6 1 = CB6 (TYPE UVECTOR)>
+ <SET TEMP8 CODE4 (TYPE LIST)>
+ <DEAD CODE4>
+ <LOOP>
+MAP10
+ <INTGO>
+ <EMPL? TEMP8 + MAPAP13>
+ <NTHL TEMP8 1 = WRD19>
+ <FRAME '\1aASS-INS>
+ <PUSH WRD19>
+ <DEAD WRD19>
+ <CALL '\1aASS-INS 1 = WRD19>
+ <TYPE? WRD19 <TYPE-CODE FALSE> + PHRASE24>
+ <PUTUU CB6 1 WRD19>
+ <DEAD WRD19>
+ <RESTUU CB6 1 = CB6 (TYPE UVECTOR)>
+ <EMPUU? CB6 - PHRASE24 (TYPE UVECTOR)>
+ <FRAME '\1aPRINTB>
+ <PUSH TCB7>
+ <PUSH TC5>
+ <CALL '\1aPRINTB 2>
+ <SET CB6 TCB7>
+PHRASE24
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <JUMP + MAP10>
+MAPAP13
+ <VEQUAL? CB6 TCB7 - TAG28>
+ <RETURN %<>>
+TAG28
+ <FRAME '\1aPRINTB>
+ <PUSH TCB7>
+ <DEAD TCB7>
+ <PUSH TC5>
+ <DEAD TC5>
+ <GVAL 'CB-LENGTH = TCB7>
+ <LENUU CB6 = CB6 (TYPE FIX)>
+ <SUB TCB7 CB6 = STACK (TYPE FIX)>
+ <DEAD TCB7 CB6>
+ <CALL '\1aPRINTB 3 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aDUMP-CODE>
+#WORD *30737374657*
+<GFCN \1aREAD-CODE ("VALUE" <UVECTOR FIX> ANY) TC4>
+ <TEMP FB5:UVECTOR TEMP8>
+ <INTGO>
+ <GVAL 'ONE-WD = FB5>
+ <FRAME '\1aREADB>
+ <PUSH FB5>
+ <PUSH TC4>
+ <CALL '\1aREADB 2>
+ <FRAME '\1aREADB>
+ <NTHUU FB5 1 = TEMP8 (TYPE FIX)>
+ <DEAD FB5>
+ <UUBLOCK <TYPE-CODE UVECTOR> TEMP8 = FB5>
+ <DEAD TEMP8>
+ <SET TEMP8 FB5>
+ <LOOP (TEMP8 VALUE LENGTH)>
+ISTR9
+ <EMPUU? TEMP8 + ISTRE10>
+ <PUTUU TEMP8 1 0>
+ <RESTUU TEMP8 1 = TEMP8>
+ <JUMP + ISTR9>
+ISTRE10
+ <PUSH FB5>
+ <PUSH TC4>
+ <DEAD TC4>
+ <CALL '\1aREADB 2>
+ <RETURN FB5>
+ <DEAD FB5>
+ <END \1aREAD-CODE>
+#WORD *5546201065*
+<GFCN \1aNOPE ("VALUE" ANY LIST) L4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'CANT-OPEN-COMPILE!-ERRORS>
+ <PUSH L4>
+ <DEAD L4>
+ <CALL '\1aMIMOCERR 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aNOPE>
+#WORD *22771272476*
+<GFCN \1aMIMOCERR ("VALUE" ANY "TUPLE" ANY)>
+ <MAKTUP T4:TUPLE TEMP6 X20 = T4>
+ <INTGO>
+ <FRAME '\1aPRINC>
+ <PUSH "
+** Error - ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <CHTYPE T4 <TYPE-CODE VECTOR> = TEMP6>
+ <LOOP>
+MAP10
+ <INTGO>
+ <EMPUV? TEMP6 + MAPAP13>
+ <NTHUV TEMP6 1 = X20>
+ <FRAME '\1aPRIN1>
+ <PUSH X20>
+ <DEAD X20>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
+ <JUMP + MAP10>
+MAPAP13
+ <FRAME '\1aERROR>
+ <SET X20 0 (TYPE FIX)>
+ <SET TEMP6 T4>
+ <DEAD T4>
+ <LOOP (TEMP6 VALUE LENGTH) (X20 VALUE)>
+TAG30
+ <INTGO>
+ <EMPUV? TEMP6 + TAG29>
+ <NTHUV TEMP6 1 = STACK>
+ <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
+ <ADD X20 1 = X20 (TYPE FIX)>
+ <JUMP + TAG30>
+TAG29
+ <CALL '\1aERROR X20>
+ <DEAD X20>
+ <FRAME '\1aRETURN>
+ <PUSH %<>>
+ <GEN-LVAL 'MACT = STACK>
+ <CALL '\1aRETURN 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aMIMOCERR>
+#WORD *21033557035*
+<GFCN \1aDOC ("VALUE" ATOM "TUPLE" ANY)>
+ <MAKTUP NAM4 TEMP7:LBIND TEMP12 TEMP16 = NAM4>
+ <INTGO>
+ <GETS 'BIND = TEMP7 (TYPE LBIND)>
+ <FRAME '\1aOPEN>
+ <PUSH "PRINT">
+ <FRAME '\1aGET-NM1>
+ <NTHUV NAM4 1 = STACK>
+ <CALL '\1aGET-NM1 1 = STACK>
+ <PUSH ".OC">
+ <UBLOCK <TYPE-CODE STRING> 2 = STACK (TYPE STRING)>
+ <CALL '\1aOPEN 2 = TEMP12>
+ <BBIND 'OUTCHAN 'CHANNEL 'FIX TEMP12>
+ <DEAD TEMP12>
+ <NTHR 'OUTCHAN 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP16 1 = TEMP12 (RECORD-TYPE LBIND)>
+ <DEAD TEMP16>
+ <SETG 'V1 'T>
+ <NTHR 'OUTCHAN 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP16 1 = TEMP12 (RECORD-TYPE LBIND)>
+ <DEAD TEMP16>
+ <SETG 'V2 TEMP12>
+ <DEAD TEMP12>
+ <GVAL 'GLUE-MODE = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE22>
+ <DEAD TEMP12>
+ <FRAME '\1aFILE-GLUE>
+ <SET TEMP16 0 (TYPE FIX)>
+ <SET TEMP12 NAM4>
+ <DEAD NAM4>
+ <LOOP (TEMP12 VALUE LENGTH) (TEMP16 VALUE)>
+TAG24
+ <INTGO>
+ <EMPUV? TEMP12 + TAG23>
+ <NTHUV TEMP12 1 = STACK>
+ <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG24>
+TAG23
+ <CALL '\1aFILE-GLUE TEMP16>
+ <DEAD TEMP16>
+ <JUMP + PHRASE26>
+PHRASE22
+ <FRAME '\1aFILE-MIMOC>
+ <SET TEMP12 0 (TYPE FIX)>
+ <SET TEMP16 NAM4>
+ <DEAD NAM4>
+ <LOOP (TEMP16 VALUE LENGTH) (TEMP12 VALUE)>
+TAG28
+ <INTGO>
+ <EMPUV? TEMP16 + TAG27>
+ <NTHUV TEMP16 1 = STACK>
+ <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG28>
+TAG27
+ <CALL '\1aFILE-MIMOC TEMP12>
+ <DEAD TEMP12>
+PHRASE26
+ <FRAME '\1aCLOSE>
+ <NTHR 'OUTCHAN 2 = TEMP12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP12 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP12>
+ <CALL '\1aCLOSE 1>
+ <SET NAM4 'T (TYPE ATOM)>
+ <UNBIND TEMP7>
+ <DEAD TEMP7>
+ <ADJ -9>
+ <RETURN NAM4>
+ <DEAD NAM4>
+ <END \1aDOC
\ No newline at end of file
projects / pdp10-muddle.git / blobdiff