--- /dev/null
+
+<BLOCK (<ROOT>)>
+
+<NEWTYPE LOSE FIX>
+
+COMPILER-INPUT
+
+<COND (<NOT <GASSIGNED? GVAL-CAREFUL>> <SETG GVAL-CAREFUL <>>)>
+
+<COND (<NOT <GASSIGNED? ADJBP-HACK>> <SETG ADJBP-HACK <>>)>
+
+ACTIVATION
+
+MRETURN
+
+LOOP
+
+TBIND
+
+BINDID
+
+DISPATCH
+
+ARGS
+
+OBLIST
+
+INGC
+
+UBLOCK
+
+UUBLOCK
+
+USBLOCK
+
+SBLOCK
+
+BIND
+
+PAGPTR
+
+MINF
+
+ICALL
+
+ECALL
+
+NCALL
+
+UWATM
+
+MAPPER
+
+ENVIR
+
+RUNINT
+
+PURVEC
+
+DBVEC
+
+M$$BINDID
+
+FRAME
+
+SFRAME
+
+ADJ
+
+SCALL
+
+CALL
+
+NTHR
+
+=
+
+FCN
+
+GFCN
+
+IFSYS
+
+IFCANNOT
+
+IFCAN
+
+ENDIF
+
+TEMP
+
+MAKTUP
+
+END
+
+COMPERR
+
+UNWCONT
+
+IOERR
+
+JUMP
+
+OPT-DISPATCH
+
+ICALL
+
+ACALL
+
+BRANCH-FALSE
+
+DEAD-JUMP
+
+DEAD-FALL
+
+STACK
+
+TYPE-CODE
+
+TYPE-WORD
+
+RECORD-TYPE
+
+DEAD
+
+ALL
+
+<SETG TYPE-LENGTHS [LBIND 16 LBIND 16 GBIND 10 GBIND 10 ATOM 10 ATOM 10 OBLIST 10 OBLIST 10 LINK 10 LINK 10 LVAL 10 LVAL 10 GVAL 10 GVAL 10 FRAME 12 FRAME 12 T$SFRAME 12 SFRAME 12 T$PAGET 256 T$MINF 10 MSUBR 4 T$MSUBR 4]>
+
+<SETG TYPE-WORDS [UNBOUND 0 T$UNBOUND 0 FIX 64 CHARACTER 128 FLOAT 192 LIST 257 FALSE 321 DECL 385 STRING 453 MCODE 518 T$MCODE 518 VECTOR 583 MSUBR 647 T$MSUBR 647 IMSUBR 2055 T$IMSUBR 2055 FRAME 706 FRAME 706 LBIND 770 LBIND 770 ATOM 834 ATOM 834 OBLIST 898 OBLIST 898 GBIND 962 GBIND 962 FORM 1025 T$TYPE-C 1088 TYPE-C 1088 I$TERMIN 1152 SEGMENT 1217 T$DEFER 1281 DEFER 1281 T$FUNCTION 1345 FUNCTION 1345 T$MACRO 1409 MACRO 1409 CHANNEL 1479 CHANNEL 1479 I$SDTABLE 2247 I$DISK-CHANNEL 2311 T$MUD-CHAN 2375 MUD-CHAN 2375 T$TYPE-ENTRY 1543 ADECL 1607 T$OFFSET 1671 OFFSET 1671 LVAL 1730 LVAL 1730 GVAL 1794 GVAL 1794 LINK 1858 LINK 1858 T$TUPLE 1927 TUPLE 1927 T$UVECTOR 1990 UVECTOR 1990 T$TAT 2183 TAT 2183 T$PAGET 1990 T$MINF 1990 T$WORD 2432 WORD 2432 T$PCODE 2502 PCODE 2502 T$ZONE 2567 ZONE 2567 T$GC-PARAMS 2630 GC-PARAMS 2630 T$AREA 2694 AREA 2694 T$SFRAME 2754 SFRAME 2754 T$BYTES 2820 BYTES 2820 T$TYPE-W 2880 TYPE-W 2880 T$BITS 3008 BITS 3008 T$KIND-ENTRY 3079 KIND-ENTRY 3079 T$SPLICE 3137 SPLICE 3137]>
+
+<COND (<NOT <GASSIGNED? PEEP-ENABLED>> <SETG PEEP-ENABLED <>>)>
+
+<COND (<NOT <GASSIGNED? LABEL-OBLIST>> <SETG LABEL-OBLIST <MOBLIST LB 0>>)>
+
+<COND (<NOT <GASSIGNED? VICTIMS>> <SETG VICTIMS ()>)>
+
+<COND (<NOT <GASSIGNED? SURVIVORS>> <SETG SURVIVORS ()>)>
+
+<ENDBLOCK>
+
+<COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD"> <FLOAD "MSGLUE-PM.MUD">)>
+
+<COND (<NOT <GASSIGNED? CONSTANT-TABLE>> <SETG CONSTANT-TABLE <IVECTOR ,CONSTANT-TABLE-LENGTH ()>>)>
+
+<COND (<NOT <GASSIGNED? MV-TABLE>> <SETG MV-TABLE <IVECTOR ,MV-TABLE-LENGTH ()>>)>
+
+<COND (<NOT <GASSIGNED? DEATH-TRQ>> <SETG DEATH-TRQ T>)>
+
+<COND (<NOT <GASSIGNED? MIM-OBL>> <SETG MIM-OBL <LIST !.OBLIST>>)>
+
+<COND (<NOT <GASSIGNED? NO-AC-FUNNYNESS>> <SETG NO-AC-FUNNYNESS <>>)>
+
+<COND (<NOT <GASSIGNED? V1>> <SETG V1 <>>)>
+
+<COND (<NOT <GASSIGNED? V2>> <SETG V2 <>>)>
+
+<COND (<NOT <GASSIGNED? BOOT-MODE>> <SETG BOOT-MODE <>>)>
+
+<COND (<NOT <GASSIGNED? INT-MODE>> <SETG INT-MODE <>>)>
+
+<COND (<NOT <GASSIGNED? GC-MODE>> <SETG GC-MODE <>>)>
+
+<COND (<NOT <GASSIGNED? GLUE-MODE>> <SETG GLUE-MODE <>>)>
+
+<COND (<NOT <GASSIGNED? ACA-AC>> <SETG ACA-AC <>>)>
+
+<COND (<NOT <GASSIGNED? NEXT-FLUSH>> <SETG NEXT-FLUSH 0>)>
+
+<COND (<NOT <GASSIGNED? MAX-SPACE>> <SETG MAX-SPACE <>>)>
+
+<COND (<NOT <GASSIGNED? SURVIVOR-MODE>> <SETG SURVIVOR-MODE <>>)>
+
+<COND (<NOT <GASSIGNED? LIST-OF-FCNS>> <SETG LIST-OF-FCNS ()>)>
+
+<SETG CB-LENGTH 512>
+
+<SETG BUFL 1024>
+
+<MANIFEST CB-LENGTH BUFL>
+
+<USE "FILE-INDEX">
+
+<COND (<NOT <GASSIGNED? CODE-BUFFER>> <SETG CODE-BUFFER <IUVECTOR ,CB-LENGTH 0>> <SETG ONE-WD ![0!]>)>
+
+<COND (<NOT <GASSIGNED? OUTPUT-BUFFER>> <SETG OUTPUT-BUFFER <ISTRING ,OUTPUT-LENGTH>>)>
+
+<SETG CTLZ+1 <+ <SETG CTLZ 26> 1>>
+
+<SETG MIM <==? <TYPEPRIM FIX> FIX>>
+
+<COND (<GASSIGNED? CRLF-STRING!-INTERNAL> <SETG WORD-STRING <STRING ,CRLF-STRING!-INTERNAL "#WORD " <ASCII ,CTLZ>>>)>
+
+<COND (,MIM <SETG PKG-OBL <CHTYPE PACKAGE OBLIST>>) (ELSE <SETG PKG-OBL <GETPROP PACKAGE OBLIST>>)>
+
+<COND (<OR <NOT <ASSIGNED? READ-TABLE>> <L? <LENGTH .READ-TABLE> ,CTLZ+1>> <SETG READ-TABLE <SET READ-TABLE <IVECTOR ,CTLZ+1 <>>>>)>
+
+<SETG FCN-OBL <MOBLIST FOO>>
+
+<SETG FCN-OBL-L (,FCN-OBL)>
+
+#WORD *37425236171*
+<GFCN \1aTERMIN-PRINT ("VALUE" CHARACTER I$TERMIN) TERMIN5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aPRINC>
+ <PUSH "#I$TERMIN ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <CHTYPE TERMIN5 <TYPE-CODE FIX> = STACK>
+ <DEAD TERMIN5>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aTERMIN-PRINT>
+<COND (<NOT <GASSIGNED? FOOSTR>> <SETG FOOSTR " ">)>
+
+<GDECL (FOOSTR) STRING>
+
+#WORD *26751250267*
+<GFCN \1aCHR-PRINT ("VALUE" <OR FIX STRING> CHARACTER) CHR5>
+ <TEMP TEMP9>
+ <INTGO>
+ <GRTR? CHR5 127 - PHRASE7 (TYPE FIX)>
+ <FRAME '\1aPRINC>
+ <PUSH "#CHARACTER ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <CHTYPE CHR5 <TYPE-CODE FIX> = STACK>
+ <DEAD CHR5>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE7
+ <FRAME '\1aPRINC>
+ <PUSH "!\\">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <GVAL 'FOOSTR = TEMP9>
+ <PUTUS TEMP9 1 CHR5>
+ <DEAD TEMP9 CHR5>
+ <FRAME '\1aPRINC>
+ <GVAL 'FOOSTR = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aCHR-PRINT>
+<PRINTTYPE I$TERMIN ,TERMIN-PRINT>
+
+#WORD *12761236166*
+<GFCN \1aATOM-PRINT ("VALUE" STRING ATOM) ATM5>
+ <TEMP SPN6:STRING TEMP10 TEMP24>
+ <INTGO>
+ <NTHR ATM5 3 = SPN6 (RECORD-TYPE ATOM)>
+ <LENUS SPN6 = TEMP10 (TYPE FIX)>
+ <LESS? TEMP10 2 + PHRASE8 (TYPE FIX)>
+ <DEAD TEMP10>
+ <NTHUS SPN6 1 = TEMP10 (TYPE CHARACTER)>
+ <VEQUAL? TEMP10 !\T - PHRASE8>
+ <DEAD TEMP10>
+ <NTHUS SPN6 2 = TEMP10 (TYPE CHARACTER)>
+ <VEQUAL? TEMP10 !\$ - PHRASE8>
+ <DEAD TEMP10>
+ <FRAME '\1aPRINC>
+ <RESTUS SPN6 2 = STACK (TYPE STRING)>
+ <DEAD SPN6>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <GVAL 'BOOT-MODE = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE32>
+ <DEAD TEMP10>
+ <FRAME '\1aPRINC>
+ <PUSH "!-">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE32>
+PHRASE8
+ <NTHR ATM5 4 = TEMP10 (RECORD-TYPE ATOM)>
+ <FRAME '\1aROOT>
+ <CALL '\1aROOT 0 = TEMP24>
+ <EQUAL? TEMP10 TEMP24 + BOOL21>
+ <DEAD TEMP10 TEMP24>
+ <FRAME '\1aMEMBER>
+ <NTHR ATM5 3 = STACK (RECORD-TYPE ATOM)>
+ <DEAD ATM5>
+ <GVAL 'ROOT-ATOMS = STACK>
+ <CALL '\1aMEMBER 2 = TEMP24>
+ <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE19>
+ <DEAD TEMP24>
+BOOL21
+ <GVAL 'BOOT-MODE = TEMP24>
+ <TYPE? TEMP24 <TYPE-CODE FALSE> - PHRASE19>
+ <DEAD TEMP24>
+ <FRAME '\1aPRINC>
+ <PUSH SPN6>
+ <DEAD SPN6>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH "!-">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE32>
+PHRASE19
+ <FRAME '\1aPRINC>
+ <PUSH SPN6>
+ <DEAD SPN6>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+PHRASE32
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2 = SPN6>
+ <RETURN SPN6>
+ <DEAD SPN6>
+ <END \1aATOM-PRINT>
+<COND (<NOT <GASSIGNED? ROOT-ATOMS>> <SETG ROOT-ATOMS ["M$$BINDID" "M$$INT-LEVEL"]>)>
+
+<GDECL (ROOT-ATOMS) <VECTOR [REST STRING]>>
+
+#WORD *12454471220*
+<GFCN \1aT$UNBOUND-PRINT ("VALUE" CHARACTER T$UNBOUND) UNB5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aPRINC>
+ <PUSH "#UNBOUND ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <CHTYPE UNB5 <TYPE-CODE FIX> = STACK>
+ <DEAD UNB5>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aT$UNBOUND-PRINT>
+<PRINTTYPE T$UNBOUND ,T$UNBOUND-PRINT>
+
+#WORD *3614577217*
+<GFCN \1aXGLOC-PRINT ("VALUE" <OR ATOM STRING> XGLOC) X5>
+ <TEMP TEMP8>
+ <INTGO>
+ <GVAL 'BOOT-MODE = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
+ <DEAD TEMP8>
+ <FRAME '\1aPRIN1>
+ <CHTYPE X5 <TYPE-CODE ATOM> = STACK>
+ <DEAD X5>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+PHRASE7
+ <FRAME '\1aPRINC>
+ <PUSH "%<GBIND ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <CHTYPE X5 <TYPE-CODE ATOM> = STACK>
+ <DEAD X5>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " T> ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aXGLOC-PRINT>
+<PRINTTYPE XGLOC ,XGLOC-PRINT>
+
+<SET REDEFINE T>
+
+#WORD *36340161352*
+<GFCN \1aXTYPE-C-PRINT ("VALUE" STRING XTYPE-C) X5>
+ <TEMP ATM6>
+ <INTGO>
+ <CHTYPE X5 <TYPE-CODE ATOM> = ATM6>
+ <DEAD X5>
+ <FRAME '\1aPRINC>
+ <PUSH "%<TYPE-C ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <PUSH ATM6>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aTYPEPRIM>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <CALL '\1aTYPEPRIM 1 = ATM6>
+ <VEQUAL? ATM6 'WORD - PHRASE20>
+ <SET ATM6 'FIX (TYPE ATOM)>
+PHRASE20
+ <FRAME '\1aPRIN1>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH ">">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2 = ATM6>
+ <RETURN ATM6>
+ <DEAD ATM6>
+ <END \1aXTYPE-C-PRINT>
+#WORD *13340161350*
+<GFCN \1aXTYPE-W-PRINT ("VALUE" STRING XTYPE-W) X5>
+ <TEMP ATM6>
+ <INTGO>
+ <CHTYPE X5 <TYPE-CODE ATOM> = ATM6>
+ <DEAD X5>
+ <FRAME '\1aPRINC>
+ <PUSH "%<TYPE-W ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <PUSH ATM6>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aTYPEPRIM>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <CALL '\1aTYPEPRIM 1 = ATM6>
+ <VEQUAL? ATM6 'WORD - PHRASE20>
+ <SET ATM6 'FIX (TYPE ATOM)>
+PHRASE20
+ <FRAME '\1aPRIN1>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH ">">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2 = ATM6>
+ <RETURN ATM6>
+ <DEAD ATM6>
+ <END \1aXTYPE-W-PRINT>
+<PRINTTYPE XTYPE-C ,XTYPE-C-PRINT>
+
+<PRINTTYPE XTYPE-W ,XTYPE-W-PRINT>
+
+<COND (<NOT <GASSIGNED? OPS>> <COND (<GASSIGNED? BLOAT> <BLOAT 100000 5000 100 1500>)> <FLOAD "<MIM.20C>OP.MUD">) (<GASSIGNED? BLOAT> <BLOAT 100000 5000 100 100>)>
+
+<COND (<NOT <GASSIGNED? OPCODE>> <FLOAD "<MIM.20C>MIMOPS.MUD">)>
+
+<GDECL (SURVIVORS INCHANS) LIST (OPT-LIST) <OR FALSE LIST> (THIS-GUY) <LIST ATOM <LIST [REST OBLIST]>>>
+
+#WORD *27146723303*
+<GFCN \1aPROCESS-IFSYS ("VALUE" ATOM LIST) L5>
+ <TEMP IFL9 LP12:LIST LL13:LIST ITM11 IFOBJ10 TEMP23 TEMP24 TEMP30 TEMP31>
+ <INTGO>
+ <SET IFL9 () (TYPE LIST)>
+ <SET LP12 L5>
+ <RESTL L5 1 = LL13 (TYPE LIST)>
+ <DEAD L5>
+ <LOOP>
+AGAIN14
+ <INTGO>
+ <EMPL? LL13 - PHRASE16 (TYPE LIST)>
+ <RETURN 'T>
+PHRASE16
+ <NTHL LL13 1 = ITM11>
+ <TYPE? ITM11 <TYPE-CODE FORM> - PHRASE18>
+ <NTHL ITM11 1 = IFOBJ10>
+ <SET TEMP23 [IFSYS ENDIF IFCAN IFCANNOT] (TYPE VECTOR)>
+ <TYPE? IFOBJ10 <TYPE-CODE ATOM> - PHRASE18>
+ <LOOP (IFOBJ10 VALUE) (TEMP23 LENGTH VALUE)>
+TAG21
+ <NTHUV TEMP23 1 = TEMP24>
+ <VEQUAL? TEMP24 IFOBJ10 + TAG20>
+ <DEAD TEMP24>
+ <RESTUV TEMP23 1 = TEMP23 (TYPE VECTOR)>
+ <EMPUV? TEMP23 - TAG21>
+ <JUMP + PHRASE18>
+TAG20
+ <EQUAL? IFOBJ10 'IFSYS - PHRASE26>
+ <RESTL ITM11 1 = TEMP23 (TYPE LIST)>
+ <NTHL TEMP23 1 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE STRING> - PHRASE28>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP23 "TOPS20" - PHRASE28>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP24 "TOPS20" (TYPE STRING)>
+ <LENUS TEMP23 = IFOBJ10 (TYPE FIX)>
+ <VEQUAL? IFOBJ10 6 - PHRASE28>
+ <LOOP (TEMP23 VALUE LENGTH) (TEMP24 VALUE LENGTH) (IFOBJ10 VALUE)>
+TAG32
+ <NTHUS TEMP23 1 = TEMP30>
+ <NTHUS TEMP24 1 = TEMP31>
+ <VEQUAL? TEMP30 TEMP31 - PHRASE28>
+ <DEAD TEMP30 TEMP31>
+ <RESTUS TEMP23 1 = TEMP23 (TYPE STRING)>
+ <RESTUS TEMP24 1 = TEMP24 (TYPE STRING)>
+ <SUB IFOBJ10 1 = IFOBJ10 (TYPE FIX)>
+ <GRTR? IFOBJ10 0 + TAG32 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
+ <DEAD ITM11>
+ <NTHL TEMP24 1 = TEMP24>
+ <CONS TEMP24 IFL9 = IFL9>
+ <DEAD TEMP24>
+ <RESTL LL13 1 = LL13 (TYPE LIST)>
+ <PUTREST LP12 LL13>
+ <JUMP + AGAIN14>
+PHRASE28
+ <FRAME '\1aFLUSH-TO-ENDIF>
+ <PUSH LL13>
+ <DEAD LL13>
+ <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
+ <DEAD ITM11>
+ <NTHL TEMP24 1 = STACK>
+ <DEAD TEMP24>
+ <CALL '\1aFLUSH-TO-ENDIF 2 = LL13>
+ <PUTREST LP12 LL13>
+ <JUMP + AGAIN14>
+PHRASE26
+ <EQUAL? IFOBJ10 'IFCAN + BOOL36>
+ <EQUAL? IFOBJ10 'IFCANNOT - PHRASE35>
+BOOL36
+ <EQUAL? IFOBJ10 'IFCAN - PHRASE40>
+ <DEAD IFOBJ10>
+ <FRAME '\1aLOOKUP>
+ <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
+ <NTHL TEMP24 1 = STACK (TYPE STRING)>
+ <DEAD TEMP24>
+ <GVAL 'MIMOC-OBLIST = STACK>
+ <CALL '\1aLOOKUP 2 = TEMP24>
+ <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE38>
+ <DEAD TEMP24>
+ <JUMP + PHRASE42>
+PHRASE40
+ <FRAME '\1aLOOKUP>
+ <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
+ <NTHL TEMP24 1 = STACK (TYPE STRING)>
+ <DEAD TEMP24>
+ <GVAL 'MIMOC-OBLIST = STACK>
+ <CALL '\1aLOOKUP 2 = TEMP24>
+ <TYPE? TEMP24 <TYPE-CODE FALSE> - PHRASE38>
+ <DEAD TEMP24>
+PHRASE42
+ <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
+ <DEAD ITM11>
+ <NTHL TEMP24 1 = TEMP24>
+ <CONS TEMP24 IFL9 = IFL9>
+ <DEAD TEMP24>
+ <RESTL LL13 1 = LL13 (TYPE LIST)>
+ <PUTREST LP12 LL13>
+ <JUMP + AGAIN14>
+PHRASE38
+ <FRAME '\1aFLUSH-TO-ENDIF>
+ <PUSH LL13>
+ <DEAD LL13>
+ <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
+ <DEAD ITM11>
+ <NTHL TEMP24 1 = STACK>
+ <DEAD TEMP24>
+ <CALL '\1aFLUSH-TO-ENDIF 2 = LL13>
+ <PUTREST LP12 LL13>
+ <JUMP + AGAIN14>
+PHRASE35
+ <EMPL? IFL9 + BOOL49 (TYPE LIST)>
+ <FRAME '\1aN=?>
+ <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
+ <NTHL TEMP24 1 = STACK>
+ <DEAD TEMP24>
+ <NTHL IFL9 1 = STACK>
+ <CALL '\1aN=? 2 = TEMP24>
+ <VEQUAL? TEMP24 0 + PHRASE48>
+ <DEAD TEMP24>
+BOOL49
+ <FRAME '\1aERROR>
+ <PUSH 'UNBALANCED-IFSYS!-ERRORS>
+ <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
+ <DEAD ITM11>
+ <NTHL TEMP24 1 = STACK>
+ <DEAD TEMP24>
+ <PUSH IFL9>
+ <CALL '\1aERROR 3>
+ <JUMP + PHRASE52>
+PHRASE48
+ <RESTL IFL9 1 = IFL9 (TYPE LIST)>
+PHRASE52
+ <RESTL LL13 1 = LL13 (TYPE LIST)>
+ <PUTREST LP12 LL13>
+ <JUMP + AGAIN14>
+PHRASE18
+ <SET LP12 LL13>
+ <DEAD LL13>
+ <RESTL LP12 1 = LL13 (TYPE LIST)>
+ <JUMP + AGAIN14>
+ <END \1aPROCESS-IFSYS>
+#WORD *6165343027*
+<GFCN \1aFLUSH-TO-ENDIF ("VALUE" <OR ATOM LIST> LIST ANY) L5 FLG6>
+ <TEMP (CT8:FIX 1) TEMP10>
+ <INTGO>
+ <LOOP>
+AGAIN13
+ <INTGO>
+ <RESTL L5 1 = L5 (TYPE LIST)>
+ <EMPL? L5 - PHRASE15 (TYPE LIST)>
+ <FRAME '\1aERROR>
+ <PUSH 'EOF-BEFORE-ENDIF!-ERRORS>
+ <CALL '\1aERROR 1>
+ <RETURN 'T>
+PHRASE15
+ <NTHL L5 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FORM> - AGAIN13>
+ <NTHL TEMP10 1 = TEMP10>
+ <EQUAL? TEMP10 'ENDIF - PHRASE20>
+ <SUB CT8 1 = CT8 (TYPE FIX)>
+ <VEQUAL? CT8 0 - AGAIN13 (TYPE FIX)>
+ <RESTL L5 1 = TEMP10 (TYPE LIST)>
+ <DEAD L5>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE20
+ <EQUAL? TEMP10 'IFSYS + BOOL26>
+ <EQUAL? TEMP10 'IFCAN + BOOL26>
+ <EQUAL? TEMP10 'IFCANNOT - AGAIN13>
+ <DEAD TEMP10>
+BOOL26
+ <ADD CT8 1 = CT8 (TYPE FIX)>
+ <JUMP + AGAIN13>
+ <END \1aFLUSH-TO-ENDIF>
+#WORD *5225266236*
+<GFCN \1aGET-NM1 ("VALUE" STRING STRING) STR5>
+ <TEMP (SEEN-OP6 %<>) TEMP13:STRING TEMP16 CH18>
+ <INTGO>
+ <SET TEMP13 STR5 (TYPE STRING)>
+ <DEAD STR5>
+ <SET TEMP16 0 (TYPE FIX)>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPUS? TEMP13 + MAPAP11>
+ <NTHUS TEMP13 1 = CH18>
+ <VEQUAL? CH18 !\< - PHRASE20>
+ <SET SEEN-OP6 'T (TYPE ATOM)>
+ <SET CH18 SEEN-OP6>
+ <JUMP + PHRASE26>
+PHRASE20
+ <VEQUAL? CH18 !\> - PHRASE22>
+ <SET SEEN-OP6 %<> (TYPE FALSE)>
+ <SET CH18 SEEN-OP6>
+ <JUMP + PHRASE26>
+PHRASE22
+ <VEQUAL? SEEN-OP6 0 - PHRASE23>
+ <VEQUAL? CH18 !\. + MAPAP11>
+PHRASE23
+PHRASE26
+ <PUSH CH18>
+ <DEAD CH18>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <RESTUS TEMP13 1 = TEMP13 (TYPE STRING)>
+ <JUMP + MAP8>
+MAPAP11
+ <UBLOCK <TYPE-CODE STRING> TEMP16 = TEMP16 (TYPE STRING)>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aGET-NM1>
+#WORD *2766341335*
+<GFCN
\1aFILE-MIMOC ("VALUE" ANY "TUPLE" <<PRIMTYPE VECTOR> [REST STRING]>)>
+ <MAKTUP FILES4 C5 OC6 TEMP3:LBIND TEMP16 EXPFLOAD8 (PREC10 %<>) REDO13:LIST ON14:STRING PRE-INDEX11:LIST TEMP57 L59 TEMP61 HASH-CODE81 NM78 NXT75 ACCESS-DATA79:LIST F-OR-G9 = FILES4>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <GEN-LVAL 'OUTCHAN = TEMP16>
+ <BBIND 'OUTCHAN 'ANY 'FIX TEMP16>
+ <DEAD TEMP16>
+ <GEN-ASSIGNED? 'EXPFLOAD + TAG20>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + BOOL19>
+TAG20
+ <GEN-LVAL 'EXPFLOAD = TEMP16>
+BOOL19
+ <SET EXPFLOAD8 TEMP16>
+ <DEAD TEMP16>
+ <BBIND 'COMPILER-INPUT 'CHANNEL 'FIX>
+ <GEN-ASSIGNED? 'REDO + TAG26>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + BOOL25>
+TAG26
+ <GEN-LVAL 'REDO = TEMP16>
+BOOL25
+ <SET REDO13 TEMP16>
+ <DEAD TEMP16>
+ <GEN-ASSIGNED? 'PRECOMPILED + TAG32>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + BOOL31>
+TAG32
+ <GEN-LVAL 'PRECOMPILED = TEMP16>
+BOOL31
+ <FRAME '\1aOPEN>
+ <PUSH "READ">
+ <NTHUV FILES4 1 = STACK (TYPE STRING)>
+ <CALL '\1aOPEN 2 = C5>
+ <TYPE? C5 <TYPE-CODE FALSE> + PHRASE38>
+ <FRAME '\1aOPEN>
+ <PUSH "PRINT">
+ <FRAME '\1aGET-NM1>
+ <NTHUV FILES4 1 = STACK (TYPE STRING)>
+ <CALL '\1aGET-NM1 1 = STACK>
+ <PUSH ".MSUBR">
+ <UBLOCK <TYPE-CODE STRING> 2 = ON14 (TYPE STRING)>
+ <PUSH ON14>
+ <CALL '\1aOPEN 2 = OC6>
+ <TYPE? OC6 <TYPE-CODE FALSE> + PHRASE38>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + BOOL48>
+ <FRAME '\1aOPEN>
+ <PUSH "READ">
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aOPEN 2 = PREC10>
+ <TYPE? PREC10 <TYPE-CODE FALSE> + PHRASE38>
+ <FRAME '\1aBUILD-INDEX>
+ <PUSH PREC10>
+ <GVAL 'FCN-OBL = STACK>
+ <CALL '\1aBUILD-INDEX 2 = PRE-INDEX11>
+ <EMPL? REDO13 + BOOL48 (TYPE LIST)>
+ <SET TEMP57 %<> (TYPE FALSE)>
+ <SET TEMP16 REDO13 (TYPE LIST)>
+ <LOOP>
+MAP50
+ <INTGO>
+ <EMPL? TEMP16 + MAPAP53>
+ <SET L59 TEMP16>
+ <NTHL L59 1 = TEMP61 (TYPE ATOM)>
+ <NTHR TEMP61 3 = TEMP57 (RECORD-TYPE ATOM)>
+ <DEAD TEMP61>
+ <FRAME '\1aLOOKUP>
+ <PUSH TEMP57>
+ <GVAL 'FCN-OBL = STACK>
+ <CALL '\1aLOOKUP 2 = TEMP61>
+ <TYPE? TEMP61 <TYPE-CODE FALSE> - BOOL62>
+ <FRAME '\1aINSERT>
+ <PUSH TEMP57>
+ <DEAD TEMP57>
+ <GVAL 'FCN-OBL = STACK>
+ <CALL '\1aINSERT 2 = TEMP61>
+BOOL62
+ <PUTL L59 1 TEMP61>
+ <DEAD TEMP61>
+ <SET TEMP57 L59>
+ <DEAD L59>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <JUMP + MAP50>
+MAPAP53
+ <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE38>
+ <DEAD TEMP57>
+BOOL48
+ <NTHR 'COMPILER-INPUT 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP16 1 C5 (RECORD-TYPE LBIND)>
+ <DEAD TEMP16>
+ <CONS C5 () = TEMP16>
+ <SETG 'INCHANS TEMP16>
+ <DEAD TEMP16>
+ <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
+ <CHTYPE FILES4 <TYPE-CODE VECTOR> = FILES4>
+ <UUBLOCK <TYPE-CODE STRING> 1024 = ON14 (TYPE STRING)>
+ <LOOP>
+AGAIN70
+ <INTGO>
+ <SET L59 () (TYPE LIST)>
+ <GETS 'BIND = TEMP57 (TYPE LBIND)>
+ <BBIND 'NAME 'ATOM 'FIX>
+ <BBIND 'END <OR FALSE ATOM> 'FIX %<>>
+ <SET HASH-CODE81 #UNBOUND 0 >
+ <LOOP>
+AGAIN82
+ <INTGO>
+ <FRAME '\1aFINISH-FILE>
+ <PUSH C5>
+ <PUSH OC6>
+ <PUSH EXPFLOAD8>
+ <CALL '\1aFINISH-FILE 3 = TEMP61>
+ <TYPE? TEMP61 <TYPE-CODE FALSE> + PHRASE84>
+ <TYPE? TEMP61 <TYPE-CODE FORM> - PHRASE94>
+ <EMPL? TEMP61 + BOOL91>
+ <RESTL TEMP61 1 = TEMP16 (TYPE LIST)>
+ <EMPL? TEMP16 + BOOL91>
+ <DEAD TEMP16>
+ <RESTL TEMP61 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE ATOM> - BOOL91>
+ <NTHR TEMP16 3 = TEMP16 (RECORD-TYPE ATOM)>
+ <FRAME '\1aLOOKUP>
+ <PUSH TEMP16>
+ <GVAL 'FCN-OBL = STACK>
+ <CALL '\1aLOOKUP 2 = NM78>
+ <TYPE? NM78 <TYPE-CODE FALSE> - BOOL91>
+ <FRAME '\1aINSERT>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <GVAL 'FCN-OBL = STACK>
+ <CALL '\1aINSERT 2 = NM78>
+BOOL91
+ <SET NXT75 TEMP61>
+ <JUMP + PHRASE94>
+PHRASE84
+ <NTHR 'END 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP16 1 'T (RECORD-TYPE LBIND)>
+ <DEAD TEMP16>
+PHRASE94
+ <NTHR 'END 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP16 1 = TEMP16 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + BOOL97>
+ <DEAD TEMP16>
+ <UNBIND TEMP57>
+ <DEAD TEMP57>
+ <JUMP + EXIT71>
+BOOL97
+ <GVAL 'INCHANS = TEMP16>
+ <NTHL TEMP16 1 = C5>
+ <DEAD TEMP16>
+ <TYPE? TEMP61 <TYPE-CODE WORD> - PHRASE101>
+ <SET HASH-CODE81 TEMP61>
+ <DEAD TEMP61>
+ <JUMP + MAPAP187>
+PHRASE101
+ <TYPE? PREC10 <TYPE-CODE FALSE> + PHRASE102>
+ <SET TEMP16 REDO13>
+ <TYPE? NM78 <TYPE-CODE ATOM> - TAG104>
+ <EMPL? TEMP16 + TAG104>
+ <LOOP (NM78 VALUE) (TEMP16 VALUE)>
+TAG105
+ <NTHL TEMP16 1 = TEMP61>
+ <VEQUAL? TEMP61 NM78 + PHRASE102>
+ <DEAD TEMP61>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <EMPL? TEMP16 - TAG105>
+TAG104
+ <SET TEMP61 %<> (TYPE FALSE)>
+ <SET TEMP16 PRE-INDEX11 (TYPE LIST)>
+ <LOOP>
+MAP108
+ <INTGO>
+ <EMPL? TEMP16 + MAPAP111>
+ <NTHL TEMP16 1 = L59>
+ <NTHL L59 1 = TEMP61 (TYPE ATOM)>
+ <EQUAL? TEMP61 NM78 + TAG119>
+ <DEAD TEMP61>
+ <SET TEMP61 %<> (TYPE FALSE)>
+ <JUMP + PHRASE124>
+TAG119
+ <RESTL L59 1 = ACCESS-DATA79 (TYPE LIST)>
+ <DEAD L59>
+ <EMPL? ACCESS-DATA79 + BOOL123>
+ <RESTL ACCESS-DATA79 1 = TEMP61 (TYPE LIST)>
+ <EMPL? TEMP61 + BOOL123>
+ <RESTL TEMP61 1 = TEMP61 (TYPE LIST)>
+ <EMPL? TEMP61 + BOOL123>
+ <DEAD TEMP61>
+ <TYPE? HASH-CODE81 <TYPE-CODE UNBOUND> + BOOL123>
+ <RESTL ACCESS-DATA79 1 = TEMP61 (TYPE LIST)>
+ <RESTL TEMP61 1 = TEMP61 (TYPE LIST)>
+ <NTHL TEMP61 1 = TEMP61>
+ <EQUAL? TEMP61 HASH-CODE81 - PHRASE122>
+ <DEAD TEMP61>
+BOOL123
+ <SET TEMP61 'T (TYPE ATOM)>
+ <JUMP + MAPAP111>
+PHRASE122
+ <SET TEMP61 %<> (TYPE FALSE)>
+ <JUMP + MAPAP111>
+PHRASE124
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <JUMP + MAP108>
+MAPAP111
+ <TYPE? TEMP61 <TYPE-CODE FALSE> + PHRASE102>
+ <DEAD TEMP61>
+ <FRAME '\1aACCESS>
+ <PUSH PREC10>
+ <NTHL ACCESS-DATA79 1 = STACK (TYPE FIX)>
+ <CALL '\1aACCESS 2>
+ <FRAME '\1aCRLF>
+ <PUSH OC6>
+ <CALL '\1aCRLF 1>
+ <RESTL ACCESS-DATA79 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = TEMP16 (TYPE FIX)>
+ <NTHL ACCESS-DATA79 1 = TEMP61 (TYPE FIX)>
+ <SUB TEMP16 TEMP61 = TEMP16 (TYPE FIX)>
+ <DEAD TEMP61>
+ <LOOP>
+AGAIN130
+ <INTGO>
+ <LESS? TEMP16 1024 - PHRASE132 (TYPE FIX)>
+ <FRAME '\1aREADSTRING>
+ <PUSH ON14>
+ <PUSH PREC10>
+ <PUSH TEMP16>
+ <CALL '\1aREADSTRING 3>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH ON14>
+ <PUSH OC6>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aPRINTSTRING 3>
+ <JUMP + EXIT128>
+PHRASE132
+ <FRAME '\1aREADSTRING>
+ <PUSH ON14>
+ <PUSH PREC10>
+ <PUSH 1024>
+ <CALL '\1aREADSTRING 3>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH ON14>
+ <PUSH OC6>
+ <PUSH 1024>
+ <CALL '\1aPRINTSTRING 3>
+ <SUB TEMP16 1024 = TEMP16 (TYPE FIX)>
+ <JUMP + AGAIN130>
+EXIT128
+ <FRAME '\1aSKIP-MIMA>
+ <PUSH C5>
+ <PUSH NM78>
+ <CALL '\1aSKIP-MIMA 2>
+ <JUMP + MAPAP187>
+PHRASE102
+ <PUSH NXT75>
+ <SET TEMP16 1 (TYPE FIX)>
+ <SFRAME 'READ-LIST>
+ <PUSH C5>
+ <PUSH 'END>
+ <PUSH <SET END T>>
+ <SCALL '\1aREAD-LIST 3 = TEMP61 + TAG140 TEMP16>
+ <TYPE TEMP61 = L59>
+ <AND L59 7 = L59>
+ <VEQUAL? L59 1 + TAG142>
+ <DEAD L59>
+ <LOOP (TEMP61 TYPE VALUE LENGTH) (TEMP16 VALUE)>
+TAG148
+ <INTGO>
+ <EMPTY? TEMP61 + TAG147>
+ <NTH1 TEMP61 = STACK>
+ <REST1 TEMP61 = TEMP61>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG148>
+TAG147
+ <LIST TEMP16 = TEMP16 (TYPE LIST)>
+ <JUMP + TAG143>
+TAG140
+ <SET TEMP61 0>
+TAG142
+ <LOOP>
+TAG145
+ <VEQUAL? TEMP16 0 + TAG144>
+ <POP = L59>
+ <CONS L59 TEMP61 = TEMP61 (TYPE LIST)>
+ <DEAD L59>
+ <SUB TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG145>
+TAG144
+ <SET TEMP16 TEMP61>
+ <DEAD TEMP61>
+TAG143
+ <NTHR 'END 2 = TEMP61 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP61 1 = TEMP61 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP61 <TYPE-CODE FALSE> + PHRASE150>
+ <DEAD TEMP61>
+ <FRAME '\1aCLOSE>
+ <PUSH C5>
+ <CALL '\1aCLOSE 1>
+PHRASE150
+ <NTHL NXT75 1 = F-OR-G9>
+ <RESTL NXT75 1 = TEMP61 (TYPE LIST)>
+ <NTHL TEMP61 1 = TEMP61 (TYPE ATOM)>
+ <NTHR 'NAME 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR L59 1 TEMP61 (RECORD-TYPE LBIND)>
+ <DEAD L59 TEMP61>
+ <GVAL 'VERBOSE = TEMP61>
+ <TYPE? TEMP61 <TYPE-CODE FALSE> + PHRASE157>
+ <DEAD TEMP61>
+ <GVAL 'OUTCHAN = TEMP61>
+ <NTHR 'OUTCHAN 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR L59 1 = L59 (RECORD-TYPE LBIND)>
+ <EQUAL? TEMP61 L59 + BOOL158>
+ <DEAD TEMP61>
+ <FRAME '\1aPRINC>
+ <PUSH !\\f>
+ <NTHR 'OUTCHAN 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR L59 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD L59>
+ <CALL '\1aPRINC 2>
+BOOL158
+ <FRAME '\1aCRLF>
+ <NTHR 'OUTCHAN 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR L59 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD L59>
+ <CALL '\1aCRLF 1>
+ <FRAME '\1aPRINC>
+ <PUSH "Open coding: ">
+ <NTHR 'OUTCHAN 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR L59 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD L59>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHR 'NAME 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR L59 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD L59>
+ <NTHR 'OUTCHAN 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR L59 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD L59>
+ <CALL '\1aPRIN1 2>
+PHRASE157
+ <FRAME '\1aPROCESS-IFSYS>
+ <PUSH TEMP16>
+ <CALL '\1aPROCESS-IFSYS 1>
+ <FRAME '\1aCALL-ANA>
+ <PUSH TEMP16>
+ <CALL '\1aCALL-ANA 1>
+ <FRAME '\1aMIMOC>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aMIMOC 1>
+ <FRAME '\1aLOCATION-CHECK>
+ <CALL '\1aLOCATION-CHECK 0>
+ <FRAME '\1aFIXUP-ONE-GLUE>
+ <GVAL 'CODE = L59>
+ <RESTL L59 1 = STACK (TYPE LIST)>
+ <DEAD L59>
+ <GVAL 'LABELS = STACK>
+ <CALL '\1aFIXUP-ONE-GLUE 2>
+ <FRAME '\1aALLOCATE-CONSTANTS>
+ <GVAL 'CONSTANT-VECTOR = STACK>
+ <GVAL 'CODE-LENGTH = STACK>
+ <CALL '\1aALLOCATE-CONSTANTS 2>
+ <FRAME '\1aFIXUP-CONSTANTS>
+ <GVAL 'CODE = L59>
+ <RESTL L59 1 = STACK (TYPE LIST)>
+ <DEAD L59>
+ <CALL '\1aFIXUP-CONSTANTS 1>
+ <FRAME '\1aWRITE-MSUBR>
+ <PUSH OC6>
+ <PUSH %<>>
+ <PUSH F-OR-G9>
+ <DEAD F-OR-G9>
+ <CALL '\1aWRITE-MSUBR 3>
+ <GVAL 'LABELS = TEMP16>
+ <LOOP>
+MAP184
+ <INTGO>
+ <EMPL? TEMP16 + MAPAP187>
+ <NTHL TEMP16 1 = TEMP61>
+ <FRAME '\1aGUNASSIGN>
+ <FRAME '\1aREMOVE>
+ <NTHUV TEMP61 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP61>
+ <CALL '\1aREMOVE 1 = STACK>
+ <CALL '\1aGUNASSIGN 1>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <JUMP + MAP184>
+MAPAP187
+ <NTHR 'END 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP16 1 = TEMP16 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + AGAIN82>
+ <DEAD TEMP16>
+ <UNBIND TEMP57>
+ <DEAD TEMP57>
+EXIT71
+ <ADJ -18>
+ <EMPUV? FILES4 + EXIT67 (TYPE VECTOR)>
+ <FRAME '\1aCLOSE>
+ <PUSH C5>
+ <DEAD C5>
+ <CALL '\1aCLOSE 1>
+ <FRAME '\1aOPEN>
+ <PUSH "READ">
+ <NTHUV FILES4 1 = STACK (TYPE STRING)>
+ <CALL '\1aOPEN 2 = C5>
+ <TYPE? C5 <TYPE-CODE FALSE> + PHRASE203>
+ <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
+ <CONS C5 () = TEMP16>
+ <SETG 'INCHANS TEMP16>
+ <DEAD TEMP16>
+ <JUMP + AGAIN70>
+PHRASE203
+ <FRAME '\1aERROR>
+ <PUSH C5>
+ <PUSH 'FILE-MIMOC>
+ <CALL '\1aERROR 2>
+ <JUMP + AGAIN70>
+EXIT67
+ <FRAME '\1aCLOSE>
+ <PUSH C5>
+ <DEAD C5>
+ <CALL '\1aCLOSE 1>
+ <FRAME '\1aCLOSE>
+ <PUSH OC6>
+ <DEAD OC6>
+ <CALL '\1aCLOSE 1>
+ <GVAL 'NULL = TEMP16>
+ <JUMP + PHRASE221>
+PHRASE38
+ <TYPE? C5 <TYPE-CODE UNBOUND> + PHRASE210>
+ <TYPE? C5 <TYPE-CODE FALSE> + PHRASE210>
+ <FRAME '\1aCLOSE>
+ <PUSH C5>
+ <DEAD C5>
+ <CALL '\1aCLOSE 1>
+ <TYPE? OC6 <TYPE-CODE UNBOUND> + PHRASE214>
+ <TYPE? OC6 <TYPE-CODE FALSE> + PHRASE214>
+ <FRAME '\1aCLOSE>
+ <PUSH OC6>
+ <DEAD OC6>
+ <CALL '\1aCLOSE 1>
+ <FRAME '\1aDELFILE>
+ <PUSH ON14>
+ <DEAD ON14>
+ <CALL '\1aDELFILE 1>
+ <FRAME '\1aERROR>
+ <PUSH PREC10>
+ <DEAD PREC10>
+ <CALL '\1aERROR 1 = TEMP16>
+ <JUMP + PHRASE221>
+PHRASE214
+ <FRAME '\1aERROR>
+ <PUSH OC6>
+ <DEAD OC6>
+ <CALL '\1aERROR 1 = TEMP16>
+ <JUMP + PHRASE221>
+PHRASE210
+ <FRAME '\1aERROR>
+ <PUSH C5>
+ <DEAD C5>
+ <CALL '\1aERROR 1 = TEMP16>
+PHRASE221
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -18>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aFILE-MIMOC>\r\r
+#WORD *25554647732*
+<GFCN
\1aFILE-GLUE ("VALUE" ANY "TUPLE" <<PRIMTYPE VECTOR> [REST STRING]>)>
+ <MAKTUP FILES4 C5 OC6 (TC7 %<>) (LEN9:FIX 0) (FCN-COUNT10:FIX 0) (LOWERSTR12 %<>) TFILES13 TEMP3:LBIND EXPFLOAD16 OB23:STRING TEMP44 TEMP59 ON19 TON20:STRING TOC17 TN14:STRING ITM102 TEMP115 TEMP129 FCN-FOUND243:FIX MSUBR-ACCESS11:FIX = FILES4>
+ <INTGO>
+ <SET TFILES13 FILES4>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <GEN-LVAL 'OUTCHAN = C5>
+ <BBIND 'OUTCHAN 'ANY 'FIX C5>
+ <DEAD C5>
+ <GEN-ASSIGNED? 'EXPFLOAD + TAG28>
+ <SET C5 %<> (TYPE FALSE)>
+ <JUMP + BOOL27>
+TAG28
+ <GEN-LVAL 'EXPFLOAD = C5>
+BOOL27
+ <SET EXPFLOAD16 C5>
+ <DEAD C5>
+ <BBIND 'COMPILER-INPUT 'CHANNEL 'FIX>
+ <GVAL 'OUTPUT-BUFFER = OB23>
+ <GVAL 'SURVIVOR-MODE = C5>
+ <TYPE? C5 <TYPE-CODE FALSE> + PHRASE50>
+ <DEAD C5>
+ <GEN-ASSIGNED? 'READ-TABLE - BOOL37>
+ <FRAME '\1aL?>
+ <FRAME '\1aLENGTH>
+ <GEN-LVAL 'READ-TABLE = STACK>
+ <CALL '\1aLENGTH 1 = STACK>
+ <GVAL 'CTLZ+1 = STACK>
+ <CALL '\1aL? 2 = C5>
+ <TYPE? C5 <TYPE-CODE FALSE> + PHRASE36>
+ <DEAD C5>
+BOOL37
+ <GVAL 'CTLZ+1 = C5>
+ <UUBLOCK <TYPE-CODE VECTOR> C5 = TEMP44>
+ <DEAD C5>
+ <SET C5 TEMP44>
+ <LOOP (C5 VALUE LENGTH)>
+ISTR45
+ <EMPUV? C5 + ISTRE46>
+ <PUTUV C5 1 %<>>
+ <RESTUV C5 1 = C5>
+ <JUMP + ISTR45>
+ISTRE46
+ <GEN-SET 'READ-TABLE TEMP44>
+ <SETG 'READ-TABLE TEMP44>
+ <DEAD TEMP44>
+PHRASE36
+ <FRAME '\1aNTH>
+ <GEN-LVAL 'READ-TABLE = STACK>
+ <GVAL 'CTLZ+1 = STACK>
+ <CALL '\1aNTH 2 = C5>
+ <TYPE? C5 <TYPE-CODE FALSE> - PHRASE50>
+ <DEAD C5>
+ <FRAME '\1aPUT>
+ <GEN-LVAL 'READ-TABLE = STACK>
+ <GVAL 'CTLZ+1 = STACK>
+ <FRAME '\1aASCII>
+ <GVAL 'CTLZ = STACK>
+ <CALL '\1aASCII 1 = STACK>
+ <PUSH 65>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 5 = STACK>
+ <CALL '\1aPUT 3>
+PHRASE50
+ <SETG 'GLUE-MODE 'T>
+ <SETG 'PRE-LIST ()>
+ <SETG 'PRE-NAMES ()>
+ <SETG 'PRE-OPTS ()>
+ <SETG 'GLUE-LIST ()>
+ <SETG 'GLUE-PC 0>
+ <CONS 'FOO () = TEMP59>
+ <CONS 'FOO TEMP59 = TEMP59>
+ <CONS 'T TEMP59 = TEMP59>
+ <SETG 'MVECTOR TEMP59>
+ <DEAD TEMP59>
+ <GVAL 'MV-TABLE = C5>
+ <LOOP>
+MAP61
+ <INTGO>
+ <EMPUV? C5 + MAPAP64>
+ <SET TEMP44 C5>
+ <PUTUV TEMP44 1 () (TYPE LIST)>
+ <DEAD TEMP44>
+ <RESTUV C5 1 = C5 (TYPE VECTOR)>
+ <JUMP + MAP61>
+MAPAP64
+ <SETG 'MV-COUNT 0>
+ <SETG 'FREE-CONSTS ()>
+ <SETG 'CONSTANT-VECTOR ()>
+ <GVAL 'CONSTANT-TABLE = TEMP44>
+ <LOOP>
+MAP73
+ <INTGO>
+ <EMPUV? TEMP44 + MAPAP76>
+ <SET C5 TEMP44>
+ <PUTUV C5 1 () (TYPE LIST)>
+ <DEAD C5>
+ <RESTUV TEMP44 1 = TEMP44 (TYPE VECTOR)>
+ <JUMP + MAP73>
+MAPAP76
+ <SETG 'FINAL-LOCALS ()>
+ <GVAL 'MVECTOR = TEMP59>
+ <RESTL TEMP59 1 = TEMP59 (TYPE LIST)>
+ <RESTL TEMP59 1 = TEMP44 (TYPE LIST)>
+ <DEAD TEMP59>
+ <SETG 'MV TEMP44>
+ <DEAD TEMP44>
+ <FRAME '\1aOPEN>
+ <PUSH "READ">
+ <NTHUV FILES4 1 = STACK (TYPE STRING)>
+ <CALL '\1aOPEN 2 = C5>
+ <TYPE? C5 <TYPE-CODE FALSE> + PHRASE83>
+ <FRAME '\1aOPEN>
+ <PUSH "PRINT">
+ <FRAME '\1aGET-NM1>
+ <NTHUV FILES4 1 = STACK (TYPE STRING)>
+ <CALL '\1aGET-NM1 1 = STACK>
+ <PUSH ".MSUBR">
+ <UBLOCK <TYPE-CODE STRING> 2 = ON19 (TYPE STRING)>
+ <PUSH ON19>
+ <CALL '\1aOPEN 2 = OC6>
+ <TYPE? OC6 <TYPE-CODE FALSE> + PHRASE83>
+ <FRAME '\1aOPEN>
+ <PUSH "PRINT">
+ <FRAME '\1aGET-NM1>
+ <NTHUV FILES4 1 = STACK (TYPE STRING)>
+ <CALL '\1aGET-NM1 1 = STACK>
+ <PUSH ".TMSUBR">
+ <UBLOCK <TYPE-CODE STRING> 2 = TON20 (TYPE STRING)>
+ <PUSH TON20>
+ <CALL '\1aOPEN 2 = TOC17>
+ <TYPE? TOC17 <TYPE-CODE FALSE> + PHRASE83>
+ <GVAL 'MAX-SPACE = TEMP44>
+ <TYPE? TEMP44 <TYPE-CODE FALSE> + BOOL92>
+ <DEAD TEMP44>
+ <FRAME '\1aOPEN>
+ <PUSH "PRINTB">
+ <FRAME '\1aGET-NM1>
+ <NTHUV FILES4 1 = STACK (TYPE STRING)>
+ <CALL '\1aGET-NM1 1 = STACK>
+ <PUSH ".MIMOCTEMP">
+ <UBLOCK <TYPE-CODE STRING> 2 = TN14 (TYPE STRING)>
+ <PUSH TN14>
+ <CALL '\1aOPEN 2 = TC7>
+ <TYPE? TC7 <TYPE-CODE FALSE> + PHRASE83>
+BOOL92
+ <CONS C5 () = TEMP59>
+ <SETG 'INCHANS TEMP59>
+ <DEAD TEMP59>
+ <NTHR 'COMPILER-INPUT 2 = TEMP44 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP44 1 C5 (RECORD-TYPE LBIND)>
+ <DEAD TEMP44>
+ <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
+ <CHTYPE FILES4 <TYPE-CODE VECTOR> = FILES4>
+ <LOOP>
+AGAIN99
+ <INTGO>
+ <LOOP>
+AGAIN107
+ <INTGO>
+ <FRAME '\1aFINISH-FILE>
+ <PUSH C5>
+ <PUSH %<>>
+ <PUSH EXPFLOAD16>
+ <CALL '\1aFINISH-FILE 3 = ITM102>
+ <VEQUAL? ITM102 0 + EXIT100>
+ <GVAL 'INCHANS = TEMP44>
+ <NTHL TEMP44 1 = C5>
+ <DEAD TEMP44>
+ <ADD FCN-COUNT10 1 = FCN-COUNT10 (TYPE FIX)>
+ <GVAL 'SURVIVOR-MODE = TEMP44>
+ <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE112>
+ <DEAD TEMP44>
+ <RESTL ITM102 1 = TEMP44 (TYPE LIST)>
+ <NTHL TEMP44 1 = TEMP44 (TYPE ATOM)>
+ <NTHR TEMP44 3 = ON19 (RECORD-TYPE ATOM)>
+ <DEAD TEMP44>
+ <NTHUS ON19 1 = TEMP44 (TYPE CHARACTER)>
+ <FRAME '\1aASCII>
+ <GVAL 'CTLZ = STACK>
+ <CALL '\1aASCII 1 = TEMP115>
+ <EQUAL? TEMP44 TEMP115 - PHRASE112>
+ <DEAD TEMP44>
+ <RESTUS ON19 1 = ON19 (TYPE STRING)>
+ <FRAME '\1aLOOKUP>
+ <PUSH ON19>
+ <GVAL 'FCN-OBL = STACK>
+ <CALL '\1aLOOKUP 2 = TEMP115>
+ <TYPE? TEMP115 <TYPE-CODE FALSE> - BOOL116>
+ <FRAME '\1aINSERT>
+ <PUSH ON19>
+ <DEAD ON19>
+ <GVAL 'FCN-OBL = STACK>
+ <CALL '\1aINSERT 2 = TEMP115>
+BOOL116
+ <SET ON19 TEMP115>
+ <DEAD TEMP115>
+ <RESTL ITM102 1 = TEMP115 (TYPE LIST)>
+ <PUTL TEMP115 1 ON19>
+ <DEAD TEMP115>
+ <SET TEMP115 %<> (TYPE FALSE)>
+ <GVAL 'LIST-OF-FCNS = TEMP129>
+ <LOOP>
+MAP121
+ <INTGO>
+ <EMPTY? TEMP129 + MAPAP124>
+ <NTH1 TEMP129 = TEMP59>
+ <NTHL TEMP59 1 = TEMP44 (TYPE ATOM)>
+ <VEQUAL? TEMP44 ON19 + TAG134>
+ <DEAD TEMP44>
+ <SET TEMP115 %<> (TYPE FALSE)>
+ <JUMP + PHRASE132>
+TAG134
+ <FRAME '\1a=?>
+ <RESTL TEMP59 1 = TEMP44 (TYPE LIST)>
+ <DEAD TEMP59>
+ <NTHL TEMP44 1 = STACK (TYPE LIST)>
+ <DEAD TEMP44>
+ <GEN-LVAL 'OBLIST = STACK>
+ <CALL '\1a=? 2 = TEMP115>
+ <VEQUAL? TEMP115 0 + PHRASE132>
+ <SET TEMP115 'T (TYPE ATOM)>
+ <JUMP + MAPAP124>
+PHRASE132
+ <REST1 TEMP129 = TEMP129>
+ <JUMP + MAP121>
+MAPAP124
+ <TYPE? TEMP115 <TYPE-CODE FALSE> - PHRASE154>
+ <DEAD TEMP115>
+ <CONS ON19 () = TEMP115>
+ <SET TEMP44 0 (TYPE FIX)>
+ <GEN-LVAL 'OBLIST = TEMP129>
+ <LOOP (TEMP129 VALUE) (TEMP44 VALUE)>
+TAG145
+ <INTGO>
+ <EMPL? TEMP129 + TAG142>
+ <NTHL TEMP129 1 = STACK>
+ <RESTL TEMP129 1 = TEMP129 (TYPE LIST)>
+ <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
+ <JUMP + TAG145>
+TAG142
+ <LIST TEMP44 = TEMP44 (TYPE LIST)>
+ <CONS TEMP44 () = TEMP44>
+ <PUTREST TEMP115 TEMP44>
+ <DEAD TEMP44>
+ <PUSH TEMP115>
+ <DEAD TEMP115>
+ <SET TEMP44 1 (TYPE FIX)>
+ <GVAL 'LIST-OF-FCNS = TEMP115>
+ <TYPE TEMP115 = TEMP129>
+ <AND TEMP129 7 = TEMP129>
+ <VEQUAL? TEMP129 1 + TAG147>
+ <DEAD TEMP129>
+ <LOOP (TEMP115 TYPE VALUE LENGTH) (TEMP44 VALUE)>
+TAG153
+ <INTGO>
+ <EMPTY? TEMP115 + TAG152>
+ <NTH1 TEMP115 = STACK>
+ <REST1 TEMP115 = TEMP115>
+ <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
+ <JUMP + TAG153>
+TAG152
+ <LIST TEMP44 = TEMP129 (TYPE LIST)>
+ <DEAD TEMP44>
+ <JUMP + TAG148>
+TAG147
+ <LOOP>
+TAG150
+ <VEQUAL? TEMP44 0 + TAG149>
+ <POP = TEMP129>
+ <CONS TEMP129 TEMP115 = TEMP115 (TYPE LIST)>
+ <DEAD TEMP129>
+ <SUB TEMP44 1 = TEMP44 (TYPE FIX)>
+ <JUMP + TAG150>
+TAG149
+ <SET TEMP129 TEMP115>
+ <DEAD TEMP115>
+TAG148
+ <SETG 'LIST-OF-FCNS TEMP129>
+ <DEAD TEMP129>
+ <JUMP + PHRASE154>
+PHRASE112
+ <RESTL ITM102 1 = TEMP115 (TYPE LIST)>
+ <NTHL TEMP115 1 = ON19 (TYPE ATOM)>
+ <DEAD TEMP115>
+PHRASE154
+ <TYPE? LOWERSTR12 <TYPE-CODE FALSE> - MAPEX160>
+ <NTHR ON19 3 = TEMP44 (RECORD-TYPE ATOM)>
+ <SET TEMP115 0 (TYPE FIX)>
+ <LOOP>
+MAP158
+ <INTGO>
+ <EMPUS? TEMP44 + MAPAP161>
+ <NTHUS TEMP44 1 = TEMP59>
+ <CHTYPE TEMP59 <TYPE-CODE FIX> = LOWERSTR12>
+ <GRTR? LOWERSTR12 90 + PHRASE170 (TYPE FIX)>
+ <LESS? LOWERSTR12 65 + PHRASE170 (TYPE FIX)>
+ <ADD LOWERSTR12 32 = LOWERSTR12 (TYPE FIX)>
+ <CHTYPE LOWERSTR12 <TYPE-CODE CHARACTER> = LOWERSTR12>
+ <JUMP + COND169>
+PHRASE170
+ <SET LOWERSTR12 TEMP59>
+ <DEAD TEMP59>
+COND169
+ <PUSH LOWERSTR12>
+ <DEAD LOWERSTR12>
+ <ADD TEMP115 1 = TEMP115 (TYPE FIX)>
+ <RESTUS TEMP44 1 = TEMP44 (TYPE STRING)>
+ <JUMP + MAP158>
+MAPAP161
+ <UBLOCK <TYPE-CODE STRING> TEMP115 = LOWERSTR12 (TYPE STRING)>
+ <DEAD TEMP115>
+MAPEX160
+ <NTHL ITM102 1 = TEMP44>
+ <EQUAL? TEMP44 'GFCN - PHRASE180>
+ <DEAD TEMP44>
+ <GVAL 'PRE-NAMES = TEMP44>
+ <EMPL? TEMP44 - PHRASE176 (TYPE LIST)>
+ <DEAD TEMP44>
+ <GVAL 'MVECTOR = TEMP44>
+ <RESTL TEMP44 1 = TEMP115 (TYPE LIST)>
+ <DEAD TEMP44>
+ <PUTL TEMP115 1 ON19>
+ <DEAD TEMP115>
+PHRASE176
+ <GVAL 'PRE-NAMES = TEMP44>
+ <CONS ON19 TEMP44 = TEMP44>
+ <SETG 'PRE-NAMES TEMP44>
+ <DEAD TEMP44>
+ <FRAME '\1aMEMBER>
+ <PUSH "TUPLE">
+ <RESTL ITM102 1 = TEMP44 (TYPE LIST)>
+ <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
+ <NTHL TEMP44 1 = STACK>
+ <DEAD TEMP44>
+ <CALL '\1aMEMBER 2 = TEMP44>
+ <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE178>
+ <DEAD TEMP44>
+ <GVAL 'PRE-OPTS = TEMP44>
+ <CONS %<> TEMP44 = TEMP44>
+ <CONS ON19 TEMP44 = TEMP44>
+ <DEAD ON19>
+ <SETG 'PRE-OPTS TEMP44>
+ <DEAD TEMP44>
+ <JUMP + PHRASE180>
+PHRASE178
+ <FRAME '\1aMEMBER>
+ <PUSH "OPTIONAL">
+ <RESTL ITM102 1 = TEMP44 (TYPE LIST)>
+ <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
+ <NTHL TEMP44 1 = STACK>
+ <DEAD TEMP44>
+ <CALL '\1aMEMBER 2 = TEMP44>
+ <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE180>
+ <DEAD TEMP44>
+ <FRAME '\1aREAD>
+ <PUSH C5>
+ <CALL '\1aREAD 1 = TEMP44>
+ <RESTL TEMP44 1 = TEMP115 (TYPE LIST)>
+ <RESTL TEMP115 1 = TEMP115 (TYPE LIST)>
+ <RESTL TEMP115 1 = TEMP129 (TYPE LIST)>
+ <DEAD TEMP115>
+ <CHTYPE TEMP129 <TYPE-CODE LIST> = TEMP129>
+ <LOOP>
+MAP184
+ <INTGO>
+ <EMPL? TEMP129 + MAPAP187>
+ <SET TEMP59 TEMP129>
+ <FRAME '\1aGENLBL>
+ <NTHL TEMP59 1 = TEMP115 (TYPE ATOM)>
+ <NTHR TEMP115 3 = STACK (RECORD-TYPE ATOM)>
+ <DEAD TEMP115>
+ <NTHR ON19 3 = STACK (RECORD-TYPE ATOM)>
+ <UBLOCK <TYPE-CODE STRING> 2 = STACK (TYPE STRING)>
+ <CALL '\1aGENLBL 1 = TEMP115>
+ <PUTL TEMP59 1 TEMP115>
+ <DEAD TEMP59 TEMP115>
+ <RESTL TEMP129 1 = TEMP129 (TYPE LIST)>
+ <JUMP + MAP184>
+MAPAP187
+ <GVAL 'PRE-OPTS = TEMP129>
+ <CONS TEMP44 TEMP129 = TEMP129>
+ <DEAD TEMP44>
+ <CONS ON19 TEMP129 = TEMP129>
+ <DEAD ON19>
+ <SETG 'PRE-OPTS TEMP129>
+ <DEAD TEMP129>
+PHRASE180
+ <FRAME '\1aREAD-LIST>
+ <PUSH C5>
+ <PUSH 'END>
+ <PUSH <ERROR EOF!-ERRORS>>
+ <CALL '\1aREAD-LIST 3 = TEMP44>
+ <NTHL ITM102 1 = TEMP129>
+ <DEAD ITM102>
+ <EQUAL? TEMP129 'GFCN - AGAIN107>
+ <DEAD TEMP129>
+ <SET TEMP129 TEMP44>
+ <DEAD TEMP44>
+ <LOOP>
+MAP199
+ <INTGO>
+ <EMPTY? TEMP129 + AGAIN107>
+ <NTH1 TEMP129 = TEMP44>
+ <TYPE? TEMP44 <TYPE-CODE FORM> - PHRASE210>
+ <NTHL TEMP44 1 = ITM102>
+ <EQUAL? ITM102 'BIND + BOOL211>
+ <EQUAL? ITM102 'BBIND + BOOL211>
+ <EQUAL? ITM102 'TUPLE + BOOL213>
+ <EQUAL? ITM102 'ADJ - BOOL212>
+BOOL213
+ <RESTL TEMP44 1 = ON19 (TYPE LIST)>
+ <NTHL ON19 1 = ON19>
+ <TYPE? ON19 <TYPE-CODE FIX> - BOOL211>
+ <DEAD ON19>
+BOOL212
+ <SET ON19 [CALL SCALL ACALL UBLOCK SBLOCK USBLOCK LIST] (TYPE VECTOR)>
+ <TYPE? ITM102 <TYPE-CODE ATOM> - PHRASE210>
+ <LOOP (ITM102 VALUE) (ON19 LENGTH VALUE)>
+TAG217
+ <NTHUV ON19 1 = TEMP59>
+ <VEQUAL? TEMP59 ITM102 + TAG216>
+ <DEAD TEMP59>
+ <RESTUV ON19 1 = ON19 (TYPE VECTOR)>
+ <EMPUV? ON19 - TAG217>
+ <JUMP + PHRASE210>
+TAG216
+ <RESTL TEMP44 1 = ON19 (TYPE LIST)>
+ <DEAD TEMP44>
+ <RESTL ON19 1 = ON19 (TYPE LIST)>
+ <NTHL ON19 1 = ON19>
+ <TYPE? ON19 <TYPE-CODE FIX> + PHRASE210>
+ <DEAD ON19>
+BOOL211
+ <FRAME '\1aPUTPROP>
+ <GVAL 'PRE-NAMES = STACK>
+ <PUSH 'NDFRM>
+ <PUSH 'T>
+ <CALL '\1aPUTPROP 3>
+ <JUMP + AGAIN107>
+PHRASE210
+ <REST1 TEMP129 = TEMP129>
+ <JUMP + MAP199>
+EXIT100
+ <FRAME '\1aCLOSE>
+ <PUSH C5>
+ <DEAD C5>
+ <CALL '\1aCLOSE 1>
+ <EMPUV? FILES4 + EXIT98 (TYPE VECTOR)>
+ <FRAME '\1aOPEN>
+ <PUSH "READ">
+ <NTHUV FILES4 1 = STACK (TYPE STRING)>
+ <CALL '\1aOPEN 2 = C5>
+ <TYPE? C5 <TYPE-CODE FALSE> + PHRASE226>
+ <CONS C5 () = TEMP129>
+ <SETG 'INCHANS TEMP129>
+ <DEAD TEMP129>
+ <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
+ <JUMP + AGAIN99>
+PHRASE226
+ <FRAME '\1aERROR>
+ <PUSH C5>
+ <PUSH 'FILE-GLUE>
+ <CALL '\1aERROR 2>
+ <JUMP + AGAIN99>
+EXIT98
+ <FRAME '\1aDETERMINE-VICTIMS>
+ <CALL '\1aDETERMINE-VICTIMS 0>
+ <SET FILES4 TFILES13>
+ <DEAD TFILES13>
+ <FRAME '\1aPUT>
+ <GEN-LVAL 'READ-TABLE = STACK>
+ <GVAL 'CTLZ+1 = STACK>
+ <PUSH %<>>
+ <CALL '\1aPUT 3>
+ <FRAME '\1aOPEN>
+ <PUSH "READ">
+ <NTHUV FILES4 1 = STACK (TYPE STRING)>
+ <CALL '\1aOPEN 2 = C5>
+ <TYPE? C5 <TYPE-CODE FALSE> + PHRASE234>
+ <CONS C5 () = TEMP115>
+ <SETG 'INCHANS TEMP115>
+ <DEAD TEMP115>
+ <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
+ <CHTYPE FILES4 <TYPE-CODE VECTOR> = FILES4>
+ <JUMP + COND233>
+PHRASE234
+ <FRAME '\1aERROR>
+ <PUSH C5>
+ <PUSH 'FILE-GLUE>
+ <CALL '\1aERROR 2>
+COND233
+ <GETS 'BIND = TEMP115 (TYPE LBIND)>
+ <BBIND 'NAME 'ATOM 'FIX>
+ <SET TFILES13 %<> (TYPE FALSE)>
+ <BBIND 'END <OR FALSE ATOM> 'FIX %<>>
+ <SET FCN-FOUND243 0 (TYPE FIX)>
+ <SET TEMP44 'T (TYPE ATOM)>
+ <SET TEMP59 () (TYPE LIST)>
+ <LOOP>
+AGAIN248
+ <INTGO>
+ <LOOP>
+AGAIN250
+ <INTGO>
+ <FRAME '\1aFINISH-FILE>
+ <PUSH C5>
+ <PUSH TOC17>
+ <PUSH EXPFLOAD16>
+ <CALL '\1aFINISH-FILE 3 = TFILES13>
+ <TYPE? TFILES13 <TYPE-CODE FALSE> + PHRASE252>
+ <GVAL 'INCHANS = ON19>
+ <NTHL ON19 1 = C5>
+ <DEAD ON19>
+ <ADD FCN-FOUND243 1 = FCN-FOUND243 (TYPE FIX)>
+ <JUMP + EXIT249>
+PHRASE252
+ <FRAME '\1aCLOSE>
+ <PUSH C5>
+ <CALL '\1aCLOSE 1>
+ <EMPUV? FILES4 - PHRASE257>
+ <UNBIND TEMP115>
+ <DEAD TEMP115>
+ <JUMP + EXIT237>
+PHRASE257
+ <FRAME '\1aOPEN>
+ <PUSH "READ">
+ <NTHUV FILES4 1 = STACK (TYPE STRING)>
+ <CALL '\1aOPEN 2 = C5>
+ <TYPE? C5 <TYPE-CODE FALSE> + PHRASE259>
+ <CONS C5 () = ON19>
+ <SETG 'INCHANS ON19>
+ <DEAD ON19>
+ <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
+ <CHTYPE FILES4 <TYPE-CODE VECTOR> = FILES4>
+ <JUMP + AGAIN250>
+PHRASE259
+ <FRAME '\1aERROR>
+ <PUSH C5>
+ <PUSH 'FILE-GLUE>
+ <CALL '\1aERROR 2>
+ <JUMP + AGAIN250>
+EXIT249
+ <PUSH TFILES13>
+ <SET TEMP59 1 (TYPE FIX)>
+ <SFRAME 'READ-LIST>
+ <PUSH C5>
+ <PUSH 'END>
+ <PUSH <SET END T>>
+ <SCALL '\1aREAD-LIST 3 = ON19 + TAG262 TEMP59>
+ <TYPE ON19 = TEMP129>
+ <AND TEMP129 7 = TEMP129>
+ <VEQUAL? TEMP129 1 + TAG264>
+ <DEAD TEMP129>
+ <LOOP (ON19 TYPE VALUE LENGTH) (TEMP59 VALUE)>
+TAG270
+ <INTGO>
+ <EMPTY? ON19 + TAG269>
+ <NTH1 ON19 = STACK>
+ <REST1 ON19 = ON19>
+ <ADD TEMP59 1 = TEMP59 (TYPE FIX)>
+ <JUMP + TAG270>
+TAG269
+ <LIST TEMP59 = ITM102 (TYPE LIST)>
+ <DEAD TEMP59>
+ <JUMP + TAG265>
+TAG262
+ <SET ON19 0>
+TAG264
+ <LOOP>
+TAG267
+ <VEQUAL? TEMP59 0 + TAG266>
+ <POP = TEMP129>
+ <CONS TEMP129 ON19 = ON19 (TYPE LIST)>
+ <DEAD TEMP129>
+ <SUB TEMP59 1 = TEMP59 (TYPE FIX)>
+ <JUMP + TAG267>
+TAG266
+ <SET ITM102 ON19>
+ <DEAD ON19>
+TAG265
+ <NTHR 'END 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ON19 1 = ON19 (RECORD-TYPE LBIND)>
+ <TYPE? ON19 <TYPE-CODE FALSE> + PHRASE272>
+ <DEAD ON19>
+ <FRAME '\1aCLOSE>
+ <PUSH C5>
+ <CALL '\1aCLOSE 1>
+PHRASE272
+ <GVAL 'VERBOSE = ON19>
+ <TYPE? ON19 <TYPE-CODE FALSE> + PHRASE277>
+ <DEAD ON19>
+ <GVAL 'OUTCHAN = ON19>
+ <NTHR 'OUTCHAN 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP129 1 = TEMP129 (RECORD-TYPE LBIND)>
+ <EQUAL? ON19 TEMP129 + BOOL278>
+ <DEAD ON19 TEMP129>
+ <FRAME '\1aPRINC>
+ <PUSH !\\f>
+ <NTHR 'OUTCHAN 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP129 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP129>
+ <CALL '\1aPRINC 2>
+BOOL278
+ <FRAME '\1aCRLF>
+ <NTHR 'OUTCHAN 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP129 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP129>
+ <CALL '\1aCRLF 1>
+ <FRAME '\1aPRINC>
+ <PUSH "Open coding: ">
+ <NTHR 'OUTCHAN 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP129 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP129>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <RESTL TFILES13 1 = TEMP129 (TYPE LIST)>
+ <DEAD TFILES13>
+ <NTHL TEMP129 1 = TEMP129 (TYPE ATOM)>
+ <NTHR 'NAME 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR ON19 1 TEMP129 (RECORD-TYPE LBIND)>
+ <DEAD ON19>
+ <PUSH TEMP129>
+ <DEAD TEMP129>
+ <NTHR 'OUTCHAN 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP129 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP129>
+ <CALL '\1aPRIN1 2>
+ <JUMP + PHRASE295>
+PHRASE277
+ <RESTL TFILES13 1 = TEMP129 (TYPE LIST)>
+ <DEAD TFILES13>
+ <NTHL TEMP129 1 = TEMP129 (TYPE ATOM)>
+ <NTHR 'NAME 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR ON19 1 TEMP129 (RECORD-TYPE LBIND)>
+ <DEAD ON19 TEMP129>
+PHRASE295
+ <FRAME '\1aPROCESS-IFSYS>
+ <PUSH ITM102>
+ <CALL '\1aPROCESS-IFSYS 1>
+ <FRAME '\1aCALL-ANA>
+ <PUSH ITM102>
+ <CALL '\1aCALL-ANA 1>
+ <FRAME '\1aMIMOC>
+ <PUSH ITM102>
+ <DEAD ITM102>
+ <GVAL 'SURVIVOR-MODE = TEMP129>
+ <TYPE? TEMP129 <TYPE-CODE FALSE> + TAG312>
+ <FRAME '\1aFIND-CALL>
+ <NTHR 'NAME 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ON19 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ON19>
+ <GVAL 'PRE-NAMES = STACK>
+ <CALL '\1aFIND-CALL 2 = TFILES13>
+ <SET TEMP129 TFILES13>
+ <TYPE? TEMP129 <TYPE-CODE FALSE> + TAG312>
+ <FRAME '\1aGETPROP>
+ <PUSH TFILES13>
+ <DEAD TFILES13>
+ <PUSH 'NDFRM>
+ <CALL '\1aGETPROP 2 = ON19>
+ <TYPE? ON19 <TYPE-CODE FALSE> + TAG306>
+ <DEAD ON19>
+ <SET TEMP129 %<> (TYPE FALSE)>
+ <JUMP + TAG312>
+TAG306
+ <FRAME '\1aFIND-OPT>
+ <NTHR 'NAME 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ON19 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ON19>
+ <GVAL 'PRE-OPTS = STACK>
+ <CALL '\1aFIND-OPT 2 = ON19>
+ <TYPE? ON19 <TYPE-CODE FALSE> + TAG310>
+ <DEAD ON19>
+ <SET TEMP129 %<> (TYPE FALSE)>
+ <JUMP + TAG312>
+TAG310
+ <FRAME '\1aSURVIVOR?>
+ <NTHR 'NAME 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ON19 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ON19>
+ <CALL '\1aSURVIVOR? 1 = ON19>
+ <VEQUAL? ON19 0 - TAG311>
+ <DEAD ON19>
+ <SET TEMP129 'T (TYPE ATOM)>
+ <JUMP + TAG312>
+TAG311
+ <SET TEMP129 %<> (TYPE FALSE)>
+TAG312
+ <PUSH TEMP129>
+ <DEAD TEMP129>
+ <CALL '\1aMIMOC 2>
+ <NTHR 'NAME 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP129 1 #UNBOUND 0 (RECORD-TYPE LBIND)>
+ <DEAD TEMP129>
+ <FRAME '\1aLOCATION-CHECK>
+ <CALL '\1aLOCATION-CHECK 0>
+ <GVAL 'MAX-SPACE = TEMP129>
+ <TYPE? TEMP129 <TYPE-CODE FALSE> + PHRASE320>
+ <DEAD TEMP129>
+ <FRAME '\1aPRINTTYPE>
+ <PUSH 'LOCAL-NAME>
+ <GVAL 'PRINT = STACK>
+ <CALL '\1aPRINTTYPE 2>
+ <FRAME '\1aPRINTTYPE>
+ <PUSH 'CONSTANT-LABEL>
+ <GVAL 'PRINT = STACK>
+ <CALL '\1aPRINTTYPE 2>
+ <FRAME '\1aFIXUP-ONE-GLUE>
+ <GVAL 'CODE = TEMP129>
+ <RESTL TEMP129 1 = STACK (TYPE LIST)>
+ <DEAD TEMP129>
+ <GVAL 'LABELS = STACK>
+ <CALL '\1aFIXUP-ONE-GLUE 2>
+ <FRAME '\1aFIXUP-CONSTANTS>
+ <GVAL 'CODE = TEMP129>
+ <RESTL TEMP129 1 = STACK (TYPE LIST)>
+ <DEAD TEMP129>
+ <PUSH ()>
+ <CALL '\1aFIXUP-CONSTANTS 2>
+ <FRAME '\1aDUMP-CODE>
+ <GVAL 'CODE = STACK>
+ <PUSH TC7>
+ <CALL '\1aDUMP-CODE 2>
+ <FRAME '\1aPRINTTYPE>
+ <PUSH 'LOCAL-NAME>
+ <GVAL 'PLOCAL-NAME = STACK>
+ <CALL '\1aPRINTTYPE 2>
+ <FRAME '\1aPRINTTYPE>
+ <PUSH 'CONSTANT-LABEL>
+ <GVAL 'PCONST-LABEL = STACK>
+ <CALL '\1aPRINTTYPE 2>
+PHRASE320
+ <GVAL 'LABELS = TFILES13>
+ <LOOP>
+MAP329
+ <INTGO>
+ <EMPL? TFILES13 + MAPAP332>
+ <NTHL TFILES13 1 = ITM102>
+ <PUTUV ITM102 4 () (TYPE LIST)>
+ <PUTUV ITM102 5 %<>>
+ <PUTUV ITM102 8 () (TYPE LIST)>
+ <PUTUV ITM102 7 () (TYPE LIST)>
+ <FRAME '\1aREMOVE>
+ <NTHUV ITM102 1 = STACK (TYPE ATOM)>
+ <DEAD ITM102>
+ <CALL '\1aREMOVE 1>
+ <RESTL TFILES13 1 = TFILES13 (TYPE LIST)>
+ <JUMP + MAP329>
+MAPAP332
+ <GVAL 'GCALS = TFILES13>
+ <CONS TFILES13 () = TEMP59>
+ <DEAD TFILES13>
+ <GVAL 'GREFS = TFILES13>
+ <CONS TFILES13 TEMP59 = TEMP59>
+ <DEAD TFILES13>
+ <GVAL 'LABELS = ITM102>
+ <CONS ITM102 TEMP59 = TEMP59>
+ <DEAD ITM102>
+ <GVAL 'MAX-SPACE = ITM102>
+ <TYPE? ITM102 <TYPE-CODE FALSE> + PHRASE341>
+ <DEAD ITM102>
+ <SET ITM102 () (TYPE LIST)>
+ <JUMP + PHRASE342>
+PHRASE341
+ <GVAL 'CODE = ITM102>
+PHRASE342
+ <CONS ITM102 TEMP59 = TEMP59>
+ <DEAD ITM102>
+ <GVAL 'GLUE-PC = ITM102>
+ <CONS ITM102 TEMP59 = TEMP59>
+ <DEAD ITM102>
+ <GVAL 'GLUE-DECL = ITM102>
+ <CONS ITM102 TEMP59 = TEMP59>
+ <DEAD ITM102>
+ <GVAL 'GLUE-NAME = ITM102>
+ <CONS ITM102 TEMP59 = TEMP59>
+ <DEAD ITM102>
+ <CONS TEMP59 () = ITM102>
+ <GVAL 'GLUE-LIST = TFILES13>
+ <PUTREST ITM102 TFILES13>
+ <DEAD TFILES13>
+ <SETG 'GLUE-LIST ITM102>
+ <DEAD ITM102>
+ <VEQUAL? TEMP44 0 + PHRASE344>
+ <SET TEMP44 %<> (TYPE FALSE)>
+ <FRAME '\1aACCESS>
+ <PUSH TOC17>
+ <CALL '\1aACCESS 1 = MSUBR-ACCESS11>
+PHRASE344
+ <GVAL 'SURVIVOR-MODE = ITM102>
+ <TYPE? ITM102 <TYPE-CODE FALSE> + BOOL348>
+ <DEAD ITM102>
+ <FRAME '\1aSURVIVOR?>
+ <NTHL TEMP59 1 = STACK>
+ <CALL '\1aSURVIVOR? 1 = ITM102>
+ <VEQUAL? ITM102 0 + PHRASE347>
+ <DEAD ITM102>
+BOOL348
+ <FRAME '\1aPRINT-ENTRY>
+ <PUSH TEMP59>
+ <DEAD TEMP59>
+ <PUSH TOC17>
+ <PUSH LOWERSTR12>
+ <CALL '\1aPRINT-ENTRY 3>
+PHRASE347
+ <GVAL 'GLUE-PC = ITM102>
+ <GVAL 'CODE-LENGTH = TFILES13>
+ <ADD ITM102 TFILES13 = ITM102 (TYPE FIX)>
+ <DEAD TFILES13>
+ <SETG 'GLUE-PC ITM102>
+ <DEAD ITM102>
+ <VEQUAL? FCN-COUNT10 FCN-FOUND243 - AGAIN248 (TYPE FIX)>
+ <UNBIND TEMP115>
+ <DEAD TEMP115>
+EXIT237
+ <ADJ -18>
+ <FRAME '\1aALLOCATE-CONSTANTS>
+ <GVAL 'CONSTANT-VECTOR = STACK>
+ <GVAL 'GLUE-PC = STACK>
+ <CALL '\1aALLOCATE-CONSTANTS 2>
+ <FRAME '\1aCLOSE>
+ <PUSH TOC17>
+ <DEAD TOC17>
+ <CALL '\1aCLOSE 1>
+ <FRAME '\1aFILE-LENGTH>
+ <FRAME '\1aOPEN>
+ <PUSH "READ">
+ <PUSH TON20>
+ <CALL '\1aOPEN 2 = TOC17>
+ <PUSH TOC17>
+ <CALL '\1aFILE-LENGTH 1 = ITM102>
+ <SUB ITM102 MSUBR-ACCESS11 = FCN-COUNT10 (TYPE FIX)>
+ <DEAD ITM102>
+ <UUBLOCK <TYPE-CODE STRING> 1024 = ON19 (TYPE STRING)>
+ <LOOP>
+AGAIN359
+ <INTGO>
+ <LESS? MSUBR-ACCESS11 1024 - PHRASE361 (TYPE FIX)>
+ <SUB 1024 MSUBR-ACCESS11 = TFILES13 (TYPE FIX)>
+ <RESTUS ON19 TFILES13 = ON19 (TYPE STRING)>
+ <DEAD TFILES13>
+PHRASE361
+ <EMPUS? ON19 + PHRASE363 (TYPE STRING)>
+ <FRAME '\1aREADSTRING>
+ <PUSH ON19>
+ <PUSH TOC17>
+ <CALL '\1aREADSTRING 2>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH ON19>
+ <PUSH OC6>
+ <CALL '\1aPRINTSTRING 2>
+PHRASE363
+ <SUB MSUBR-ACCESS11 1024 = MSUBR-ACCESS11 (TYPE FIX)>
+ <GRTR? MSUBR-ACCESS11 0 + AGAIN359 (TYPE FIX)>
+ <TYPE? TC7 <TYPE-CODE FALSE> + PHRASE371>
+ <FRAME '\1aCLOSE>
+ <PUSH TC7>
+ <DEAD TC7>
+ <CALL '\1aCLOSE 1>
+ <FRAME '\1aOPEN>
+ <PUSH "READB">
+ <PUSH TN14>
+ <CALL '\1aOPEN 2 = TC7>
+ <GVAL 'VERBOSE = TFILES13>
+ <TYPE? TFILES13 <TYPE-CODE FALSE> + PHRASE375>
+ <DEAD TFILES13>
+ <FRAME '\1aPRINC>
+ <PUSH "
+Doing fixup and output
+">
+ <NTHR 'OUTCHAN 2 = TFILES13 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TFILES13 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TFILES13>
+ <CALL '\1aPRINC 2>
+PHRASE375
+ <FRAME '\1aWRITE-MSUBR>
+ <PUSH OC6>
+ <PUSH LOWERSTR12>
+ <DEAD LOWERSTR12>
+ <CALL '\1aWRITE-MSUBR 2 = FILES4>
+ <GVAL 'GLUE-LIST = LOWERSTR12>
+ <LOOP>
+MAP381
+ <INTGO>
+ <EMPL? LOWERSTR12 + MAPAP384>
+ <NTHL LOWERSTR12 1 = TEMP59>
+ <FRAME '\1aREAD-CODE>
+ <PUSH TC7>
+ <CALL '\1aREAD-CODE 1 = TFILES13>
+ <NTHL TEMP59 7 = TEMP44>
+ <CHTYPE TEMP44 <TYPE-CODE LIST> = TEMP44>
+ <LOOP>
+MAP394
+ <INTGO>
+ <EMPL? TEMP44 + MAPAP397>
+ <NTHL TEMP44 1 = ON19>
+ <NTHL ON19 1 = ITM102 (TYPE FIX)>
+ <NTHL ON19 1 = FCN-FOUND243 (TYPE FIX)>
+ <NTHUU TFILES13 FCN-FOUND243 = FCN-FOUND243 (TYPE FIX)>
+ <FRAME '\1aGFIND>
+ <RESTL ON19 1 = TEMP115 (TYPE LIST)>
+ <NTHL TEMP115 1 = STACK>
+ <DEAD TEMP115>
+ <RESTL ON19 1 = TEMP115 (TYPE LIST)>
+ <DEAD ON19>
+ <RESTL TEMP115 1 = TEMP115 (TYPE LIST)>
+ <NTHL TEMP115 1 = STACK>
+ <DEAD TEMP115>
+ <CALL '\1aGFIND 2 = TEMP115>
+ <OR FCN-FOUND243 TEMP115 = FCN-FOUND243>
+ <DEAD TEMP115>
+ <PUTUU TFILES13 ITM102 FCN-FOUND243>
+ <DEAD ITM102 FCN-FOUND243>
+ <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
+ <JUMP + MAP394>
+MAPAP397
+ <NTHL TEMP59 6 = ITM102>
+ <DEAD TEMP59>
+ <LOOP>
+MAP411
+ <INTGO>
+ <EMPTY? ITM102 + MAPAP414>
+ <NTH1 ITM102 = TEMP59>
+ <NTHL TEMP59 1 = TEMP115 (TYPE FIX)>
+ <NTHL TEMP59 1 = FCN-FOUND243 (TYPE FIX)>
+ <NTHUU TFILES13 FCN-FOUND243 = FCN-FOUND243 (TYPE FIX)>
+ <RESTL TEMP59 1 = TEMP44 (TYPE LIST)>
+ <DEAD TEMP59>
+ <NTHL TEMP44 1 = TEMP44 (TYPE CONSTANT-BUCKET)>
+ <NTHUV TEMP44 4 = TEMP44 (TYPE FIX)>
+ <OR FCN-FOUND243 TEMP44 = FCN-FOUND243>
+ <DEAD TEMP44>
+ <PUTUU TFILES13 TEMP115 FCN-FOUND243>
+ <DEAD TEMP115 FCN-FOUND243>
+ <REST1 ITM102 = ITM102>
+ <JUMP + MAP411>
+MAPAP414
+ <SET ITM102 TFILES13 (TYPE UVECTOR)>
+ <LOOP>
+MAP421
+ <INTGO>
+ <EMPUU? ITM102 + MAPAP424>
+ <NTHUU ITM102 1 = FCN-FOUND243>
+ <SET MSUBR-ACCESS11 4 (TYPE FIX)>
+ <LOOP>
+AGAIN430
+ <INTGO>
+ <ROT FCN-FOUND243 9 = FCN-FOUND243 (TYPE FIX)>
+ <SET TEMP59 FCN-FOUND243>
+ <LSH TEMP59 -5 = TEMP44 (TYPE FIX)>
+ <AND TEMP44 #WORD *17* = TEMP44>
+ <ADD TEMP44 65 = TEMP44 (TYPE FIX)>
+ <CHTYPE TEMP44 <TYPE-CODE CHARACTER> = TEMP44>
+ <PUTUS OB23 1 TEMP44>
+ <DEAD TEMP44>
+ <RESTUS OB23 1 = OB23 (TYPE STRING)>
+ <EMPUS? OB23 - PHRASE436 (TYPE STRING)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OC6>
+ <PUSH 'WRITE-BUFFER>
+ <GVAL 'OUTPUT-BUFFER = OB23>
+ <PUSH OB23>
+ <CALL '\1aCHANNEL-OP 3>
+PHRASE436
+ <AND TEMP59 #WORD *37* = TEMP44>
+ <DEAD TEMP59>
+ <ADD TEMP44 65 = TEMP44 (TYPE FIX)>
+ <CHTYPE TEMP44 <TYPE-CODE CHARACTER> = TEMP44>
+ <PUTUS OB23 1 TEMP44>
+ <DEAD TEMP44>
+ <RESTUS OB23 1 = OB23 (TYPE STRING)>
+ <EMPUS? OB23 - PHRASE439 (TYPE STRING)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OC6>
+ <PUSH 'WRITE-BUFFER>
+ <GVAL 'OUTPUT-BUFFER = OB23>
+ <PUSH OB23>
+ <CALL '\1aCHANNEL-OP 3>
+PHRASE439
+ <SUB MSUBR-ACCESS11 1 = MSUBR-ACCESS11 (TYPE FIX)>
+ <VEQUAL? MSUBR-ACCESS11 0 - AGAIN430 (TYPE FIX)>
+ <RESTUU ITM102 1 = ITM102 (TYPE UVECTOR)>
+ <JUMP + MAP421>
+MAPAP424
+ <LENUU TFILES13 = FCN-FOUND243 (TYPE FIX)>
+ <DEAD TFILES13>
+ <ADD FCN-FOUND243 LEN9 = LEN9 (TYPE FIX)>
+ <DEAD FCN-FOUND243>
+ <RESTL LOWERSTR12 1 = LOWERSTR12 (TYPE LIST)>
+ <JUMP + MAP381>
+MAPAP384
+ <FRAME '\1aCLOSE>
+ <PUSH TC7>
+ <DEAD TC7>
+ <CALL '\1aCLOSE 1>
+ <FRAME '\1aDELFILE>
+ <PUSH TN14>
+ <DEAD TN14>
+ <CALL '\1aDELFILE 1>
+ <SETG 'MAX-SPACE %<>>
+ <FRAME '\1aWRITE-CODE>
+ <PUSH OC6>
+ <PUSH FILES4>
+ <DEAD FILES4>
+ <PUSH ()>
+ <PUSH OB23>
+ <DEAD OB23>
+ <PUSH LEN9>
+ <DEAD LEN9>
+ <CALL '\1aWRITE-CODE 5>
+ <GVAL 'INT-MODE = LOWERSTR12>
+ <TYPE? LOWERSTR12 <TYPE-CODE FALSE> + BOOL448>
+ <DEAD LOWERSTR12>
+ <FRAME '\1aPRINTTYPE>
+ <PUSH 'ATOM>
+ <GVAL 'PRINT = STACK>
+ <CALL '\1aPRINTTYPE 2>
+BOOL448
+ <UUBLOCK <TYPE-CODE STRING> 1024 = OB23 (TYPE STRING)>
+ <LOOP>
+AGAIN452
+ <INTGO>
+ <LESS? FCN-COUNT10 1024 - PHRASE454 (TYPE FIX)>
+ <SUB 1024 FCN-COUNT10 = FILES4 (TYPE FIX)>
+ <RESTUS OB23 FILES4 = OB23 (TYPE STRING)>
+ <DEAD FILES4>
+PHRASE454
+ <FRAME '\1aREADSTRING>
+ <PUSH OB23>
+ <PUSH TOC17>
+ <CALL '\1aREADSTRING 2>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH OB23>
+ <PUSH OC6>
+ <CALL '\1aPRINTSTRING 2>
+ <SUB FCN-COUNT10 1024 = FCN-COUNT10 (TYPE FIX)>
+ <LESS? FCN-COUNT10 0 - AGAIN452 (TYPE FIX)>
+ <FRAME '\1aFINISH-FILE>
+ <PUSH C5>
+ <DEAD C5>
+ <PUSH OC6>
+ <PUSH EXPFLOAD16>
+ <DEAD EXPFLOAD16>
+ <CALL '\1aFINISH-FILE 3>
+ <FRAME '\1aCLOSE>
+ <PUSH OC6>
+ <DEAD OC6>
+ <CALL '\1aCLOSE 1>
+ <JUMP + PHRASE463>
+PHRASE371
+ <GVAL 'VERBOSE = FILES4>
+ <TYPE? FILES4 <TYPE-CODE FALSE> + PHRASE465>
+ <DEAD FILES4>
+ <FRAME '\1aPRINC>
+ <PUSH "
+Fixing Up CALLs
+">
+ <NTHR 'OUTCHAN 2 = FILES4 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR FILES4 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD FILES4>
+ <CALL '\1aPRINC 2>
+PHRASE465
+ <FRAME '\1aGLUE-FIXUP>
+ <CALL '\1aGLUE-FIXUP 0>
+ <GVAL 'VERBOSE = FILES4>
+ <TYPE? FILES4 <TYPE-CODE FALSE> + PHRASE471>
+ <DEAD FILES4>
+ <FRAME '\1aPRINC>
+ <PUSH "Writing MSUBR
+">
+ <NTHR 'OUTCHAN 2 = FILES4 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR FILES4 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD FILES4>
+ <CALL '\1aPRINC 2>
+PHRASE471
+ <FRAME '\1aWRITE-MSUBR>
+ <PUSH OC6>
+ <PUSH LOWERSTR12>
+ <DEAD LOWERSTR12>
+ <CALL '\1aWRITE-MSUBR 2>
+ <UUBLOCK <TYPE-CODE STRING> 1024 = OB23 (TYPE STRING)>
+ <LOOP>
+AGAIN478
+ <INTGO>
+ <LESS? FCN-COUNT10 1024 - PHRASE480 (TYPE FIX)>
+ <SUB 1024 FCN-COUNT10 = ON19 (TYPE FIX)>
+ <RESTUS OB23 ON19 = OB23 (TYPE STRING)>
+ <DEAD ON19>
+PHRASE480
+ <FRAME '\1aREADSTRING>
+ <PUSH OB23>
+ <PUSH TOC17>
+ <CALL '\1aREADSTRING 2>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH OB23>
+ <PUSH OC6>
+ <CALL '\1aPRINTSTRING 2>
+ <SUB FCN-COUNT10 1024 = FCN-COUNT10 (TYPE FIX)>
+ <LESS? FCN-COUNT10 0 - AGAIN478 (TYPE FIX)>
+ <FRAME '\1aFINISH-FILE>
+ <PUSH C5>
+ <PUSH OC6>
+ <PUSH EXPFLOAD16>
+ <DEAD EXPFLOAD16>
+ <CALL '\1aFINISH-FILE 3>
+ <FRAME '\1aCLOSE>
+ <PUSH C5>
+ <DEAD C5>
+ <CALL '\1aCLOSE 1>
+ <FRAME '\1aCLOSE>
+ <PUSH OC6>
+ <DEAD OC6>
+ <CALL '\1aCLOSE 1>
+PHRASE463
+ <FRAME '\1aCLOSE>
+ <PUSH TOC17>
+ <DEAD TOC17>
+ <CALL '\1aCLOSE 1>
+ <FRAME '\1aDELFILE>
+ <PUSH TON20>
+ <DEAD TON20>
+ <CALL '\1aDELFILE 1>
+ <GVAL 'NULL = ON19>
+ <JUMP + PHRASE505>
+PHRASE83
+ <TYPE? C5 <TYPE-CODE UNBOUND> + PHRASE494>
+ <TYPE? C5 <TYPE-CODE FALSE> + PHRASE494>
+ <FRAME '\1aCLOSE>
+ <PUSH C5>
+ <DEAD C5>
+ <CALL '\1aCLOSE 1>
+ <TYPE? OC6 <TYPE-CODE UNBOUND> + PHRASE498>
+ <TYPE? OC6 <TYPE-CODE FALSE> + PHRASE498>
+ <FRAME '\1aCLOSE>
+ <PUSH OC6>
+ <DEAD OC6>
+ <CALL '\1aCLOSE 1>
+ <FRAME '\1aDELFILE>
+ <PUSH ON19>
+ <DEAD ON19>
+ <CALL '\1aDELFILE 1>
+ <FRAME '\1aERROR>
+ <PUSH TC7>
+ <DEAD TC7>
+ <CALL '\1aERROR 1 = ON19>
+ <JUMP + PHRASE505>
+PHRASE498
+ <FRAME '\1aERROR>
+ <PUSH OC6>
+ <DEAD OC6>
+ <CALL '\1aERROR 1 = ON19>
+ <JUMP + PHRASE505>
+PHRASE494
+ <FRAME '\1aERROR>
+ <PUSH C5>
+ <DEAD C5>
+ <CALL '\1aERROR 1 = ON19>
+PHRASE505
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -18>
+ <RETURN ON19>
+ <DEAD ON19>
+ <END \1aFILE-GLUE>\r\r
+#WORD *16573324157*
+<GFCN \1aDO-ACCESS ("VALUE" FORM "QUOTE" ANY) CH5>
+ <TEMP TEMP8>
+ <INTGO>
+ <NTHR 'M-HLEN 1 = TEMP8 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE7)>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
+ <NTHR TEMP8 1 = TEMP8 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP8 <TYPE-CODE UNBOUND> + PHRASE7>
+ <DEAD TEMP8>
+ <FRAME '\1aFORM>
+ <PUSH 'ACCESS>
+ <PUSH CH5>
+ <DEAD CH5>
+ <CALL '\1aFORM 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+PHRASE7
+ <FRAME '\1aFORM>
+ <PUSH 17>
+ <PUSH CH5>
+ <DEAD CH5>
+ <CALL '\1aFORM 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END
\1aDO-ACCESS><COND (<AND <GASSIGNED? DO-ACCESS> <NOT <TYPE? ,DO-ACCESS MACRO>>> <SETG DO-ACCESS <CHTYPE (,DO-ACCESS) MACRO>>)>
+
+#WORD *31365455347*
+<GFCN \1aSURVIVOR? ("VALUE" <OR ATOM !<FALSE>> ANY) A5>
+ <TEMP SP6:STRING VL7 TEMP14 TEMP15 TEMP36 TEMP37 TEMP38 TEMP39>
+ <INTGO>
+ <NTHR A5 3 = SP6 (RECORD-TYPE ATOM)>
+ <GVAL 'VICTIMS = VL7>
+ <SET TEMP14 VL7>
+ <EMPL? TEMP14 + TAG11>
+ <LOOP (A5 VALUE) (TEMP14 VALUE)>
+TAG12
+ <NTHL TEMP14 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG13>
+ <VEQUAL? TEMP15 A5 + BOOL10>
+ <DEAD TEMP15>
+TAG13
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <EMPL? TEMP14 - TAG12>
+TAG11
+ <FRAME '\1aMEMBER>
+ <PUSH SP6>
+ <PUSH VL7>
+ <CALL '\1aMEMBER 2 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> - BOOL10>
+ <DEAD TEMP14>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <SET TEMP15 VL7 (TYPE LIST)>
+ <DEAD VL7>
+ <LOOP>
+MAP18
+ <INTGO>
+ <EMPL? TEMP15 + MAPAP21>
+ <NTHL TEMP15 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE LIST> + TAG31>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <JUMP + PHRASE29>
+TAG31
+ <NTHL TEMP14 1 = VL7>
+ <TYPE? VL7 <TYPE-CODE STRING> - TAG34>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? VL7 SP6 + TAG33>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP36 SP6>
+ <LENUS VL7 = TEMP37 (TYPE FIX)>
+ <LENUS TEMP36 = TEMP38 (TYPE FIX)>
+ <VEQUAL? TEMP37 TEMP38 - TAG34>
+ <DEAD TEMP38>
+ <LOOP (VL7 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
+TAG40
+ <NTHUS VL7 1 = TEMP38>
+ <NTHUS TEMP36 1 = TEMP39>
+ <VEQUAL? TEMP38 TEMP39 - TAG34>
+ <DEAD TEMP38 TEMP39>
+ <RESTUS VL7 1 = VL7 (TYPE STRING)>
+ <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
+ <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
+ <GRTR? TEMP37 0 + TAG40 (TYPE FIX)>
+ <JUMP + TAG33>
+ <ENDIF "STRING-EQUAL?">
+TAG34
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <JUMP + PHRASE29>
+TAG33
+ <NTHR A5 4 = TEMP36 (RECORD-TYPE ATOM)>
+ <RESTL TEMP14 1 = VL7 (TYPE LIST)>
+ <DEAD TEMP14>
+ <NTHL VL7 1 = VL7>
+ <CHTYPE VL7 <TYPE-CODE LIST> = TEMP14>
+ <DEAD VL7>
+ <TYPE TEMP36 = VL7>
+ <EMPL? TEMP14 + TAG41>
+ <LOOP (TEMP36 VALUE) (VL7 VALUE) (TEMP14 VALUE)>
+TAG43
+ <NTHL TEMP14 1 = TEMP39>
+ <TYPE? TEMP39 VL7 - TAG44>
+ <VEQUAL? TEMP39 TEMP36 + TAG42>
+ <DEAD TEMP39>
+TAG44
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <EMPL? TEMP14 - TAG43>
+TAG41
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <JUMP + PHRASE29>
+TAG42
+ <SET TEMP14 'T (TYPE ATOM)>
+ <JUMP + MAPAP21>
+PHRASE29
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <JUMP + MAP18>
+MAPAP21
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG8>
+ <DEAD TEMP14>
+BOOL10
+ <RETURN %<>>
+TAG8
+ <RETURN 'T>
+ <END \1aSURVIVOR?>
+#WORD *12252255000*
+<GFCN \1aCHTYPE-OBLIST ("VALUE" FORM "QUOTE" ANY) O5>
+ <TEMP TEMP8>
+ <INTGO>
+ <NTHR 'M-HLEN 1 = TEMP8 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE7)>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
+ <NTHR TEMP8 1 = TEMP8 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP8 <TYPE-CODE UNBOUND> + PHRASE7>
+ <DEAD TEMP8>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <PUSH O5>
+ <DEAD O5>
+ <PUSH 'ATOM>
+ <CALL '\1aFORM 3 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+PHRASE7
+ <FRAME '\1aFORM>
+ <PUSH 'GETPROP>
+ <PUSH O5>
+ <DEAD O5>
+ <PUSH 'OBLIST>
+ <CALL '\1aFORM 3 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END
\1aCHTYPE-OBLIST><COND (<AND <GASSIGNED? CHTYPE-OBLIST> <NOT <TYPE? ,CHTYPE-OBLIST MACRO>>> <SETG CHTYPE-OBLIST <CHTYPE (,CHTYPE-OBLIST) MACRO>>)>
+
+#WORD *26056104306*
+<GFCN \1aDETERMINE-VICTIMS ("VALUE" !<FALSE>)>
+ <TEMP (VL5:LIST ()) LOF6 TEMP13 A19 SP20 PP22 TEMP26 TEMP35 PN38 TEMP43 TEMP44 TEMP45 TEMP46>
+ <INTGO>
+ <GVAL 'LIST-OF-FCNS = LOF6>
+ <SET TEMP13 LOF6 (TYPE LIST)>
+ <DEAD LOF6>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPL? TEMP13 + MAPAP11>
+ <NTHL TEMP13 1 = LOF6>
+ <NTHL LOF6 1 = A19 (TYPE ATOM)>
+ <NTHR A19 3 = SP20 (RECORD-TYPE ATOM)>
+ <SET PP22 %<> (TYPE FALSE)>
+ <GVAL 'PRE-NAMES = TEMP26>
+ <EMPL? TEMP26 + PHRASE77 (TYPE LIST)>
+ <DEAD TEMP26>
+ <SET TEMP35 %<> (TYPE FALSE)>
+ <GVAL 'PRE-NAMES = TEMP26>
+ <LOOP>
+MAP28
+ <INTGO>
+ <EMPL? TEMP26 + MAPAP31>
+ <SET PN38 TEMP26>
+ <NTHL PN38 1 = TEMP35>
+ <NTHR TEMP35 3 = TEMP35 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP35 SP20 - PHRASE41>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP43 SP20>
+ <LENUS TEMP35 = TEMP44 (TYPE FIX)>
+ <LENUS TEMP43 = TEMP45 (TYPE FIX)>
+ <VEQUAL? TEMP44 TEMP45 - PHRASE41>
+ <DEAD TEMP45>
+ <LOOP (TEMP35 VALUE LENGTH) (TEMP43 VALUE LENGTH) (TEMP44 VALUE)>
+TAG47
+ <NTHUS TEMP35 1 = TEMP45>
+ <NTHUS TEMP43 1 = TEMP46>
+ <VEQUAL? TEMP45 TEMP46 - PHRASE41>
+ <DEAD TEMP45 TEMP46>
+ <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
+ <RESTUS TEMP43 1 = TEMP43 (TYPE STRING)>
+ <SUB TEMP44 1 = TEMP44 (TYPE FIX)>
+ <GRTR? TEMP44 0 + TAG47 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <SET PP22 PN38>
+ <DEAD PN38>
+ <SET TEMP35 %<> (TYPE FALSE)>
+ <JUMP + MAPAP31>
+PHRASE41
+ <SET TEMP35 'T (TYPE ATOM)>
+ <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
+ <JUMP + MAP28>
+MAPAP31
+ <TYPE? TEMP35 <TYPE-CODE FALSE> - PHRASE77>
+ <DEAD TEMP35>
+ <GVAL 'INT-MODE = TEMP35>
+ <TYPE? TEMP35 <TYPE-CODE FALSE> + BOOL49>
+ <DEAD TEMP35>
+ <LENUS SP20 = TEMP35 (TYPE FIX)>
+ <LESS? TEMP35 2 + PHRASE77 (TYPE FIX)>
+ <DEAD TEMP35>
+ <NTHUS SP20 1 = TEMP35 (TYPE CHARACTER)>
+ <VEQUAL? TEMP35 !\I - PHRASE77>
+ <DEAD TEMP35>
+ <NTHUS SP20 2 = TEMP35 (TYPE CHARACTER)>
+ <VEQUAL? TEMP35 !\$ - PHRASE77>
+ <DEAD TEMP35>
+BOOL49
+ <NTHR A19 4 = TEMP43 (RECORD-TYPE ATOM)>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL52>
+ <CHTYPE TEMP43 <TYPE-CODE ATOM> = TEMP35>
+ <DEAD TEMP43>
+ <NTHR TEMP35 4 = TEMP43 (RECORD-TYPE ATOM)>
+ <DEAD TEMP35>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL52>
+ <GVAL 'PKG-OBL = TEMP35>
+ <EQUAL? TEMP35 TEMP43 + PHRASE77>
+ <DEAD TEMP35>
+ <FRAME '\1aROOT>
+ <CALL '\1aROOT 0 = TEMP35>
+ <VEQUAL? TEMP43 TEMP35 + PHRASE77>
+ <DEAD TEMP43>
+BOOL52
+ <SET TEMP35 %<> (TYPE FALSE)>
+ <GVAL 'SURVIVORS = TEMP46>
+ <LOOP>
+MAP56
+ <INTGO>
+ <EMPL? TEMP46 + MAPAP59>
+ <NTHL TEMP46 1 = TEMP35>
+ <NTHR TEMP35 3 = TEMP45 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP45 SP20 + TAG66>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP43 SP20>
+ <LENUS TEMP45 = TEMP44 (TYPE FIX)>
+ <LENUS TEMP43 = TEMP26 (TYPE FIX)>
+ <VEQUAL? TEMP44 TEMP26 - TAG67>
+ <DEAD TEMP26>
+ <LOOP (TEMP45 VALUE LENGTH) (TEMP43 VALUE LENGTH) (TEMP44 VALUE)>
+TAG72
+ <NTHUS TEMP45 1 = TEMP26>
+ <NTHUS TEMP43 1 = PN38>
+ <VEQUAL? TEMP26 PN38 - TAG67>
+ <DEAD TEMP26>
+ <RESTUS TEMP45 1 = TEMP45 (TYPE STRING)>
+ <RESTUS TEMP43 1 = TEMP43 (TYPE STRING)>
+ <SUB TEMP44 1 = TEMP44 (TYPE FIX)>
+ <GRTR? TEMP44 0 + TAG72 (TYPE FIX)>
+ <JUMP + TAG66>
+ <ENDIF "STRING-EQUAL?">
+TAG67
+ <SET TEMP35 %<> (TYPE FALSE)>
+ <JUMP + PHRASE64>
+TAG66
+ <NTHR TEMP35 4 = TEMP43 (RECORD-TYPE ATOM)>
+ <DEAD TEMP35>
+ <RESTL LOF6 1 = TEMP45 (TYPE LIST)>
+ <NTHL TEMP45 1 = TEMP35 (TYPE LIST)>
+ <DEAD TEMP45>
+ <TYPE TEMP43 = TEMP45>
+ <EMPL? TEMP35 + TAG73>
+ <LOOP (TEMP43 VALUE) (TEMP45 VALUE) (TEMP35 VALUE)>
+TAG75
+ <NTHL TEMP35 1 = PN38>
+ <TYPE? PN38 TEMP45 - TAG76>
+ <VEQUAL? PN38 TEMP43 + TAG74>
+ <DEAD PN38>
+TAG76
+ <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
+ <EMPL? TEMP35 - TAG75>
+TAG73
+ <SET TEMP35 %<> (TYPE FALSE)>
+ <JUMP + PHRASE64>
+TAG74
+ <SET TEMP35 'T (TYPE ATOM)>
+ <JUMP + MAPAP59>
+PHRASE64
+ <RESTL TEMP46 1 = TEMP46 (TYPE LIST)>
+ <JUMP + MAP56>
+MAPAP59
+ <TYPE? TEMP35 <TYPE-CODE FALSE> - PHRASE77>
+ <DEAD TEMP35>
+ <SET TEMP43 %<> (TYPE FALSE)>
+ <RESTL LOF6 1 = PN38 (TYPE LIST)>
+ <NTHL PN38 1 = PN38 (TYPE LIST)>
+ <LOOP>
+MAP79
+ <INTGO>
+ <EMPL? PN38 + MAPAP82>
+ <NTHL PN38 1 = TEMP35>
+ <FRAME '\1aLOOKUP>
+ <PUSH SP20>
+ <PUSH TEMP35>
+ <DEAD TEMP35>
+ <CALL '\1aLOOKUP 2 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE87>
+ <SET TEMP43 'T (TYPE ATOM)>
+ <JUMP + MAPAP82>
+PHRASE87
+ <RESTL PN38 1 = PN38 (TYPE LIST)>
+ <JUMP + MAP79>
+MAPAP82
+ <TYPE? TEMP43 <TYPE-CODE FALSE> - PHRASE77>
+ <DEAD TEMP43>
+ <RESTL LOF6 1 = TEMP43 (TYPE LIST)>
+ <NTHL TEMP43 1 = TEMP43 (TYPE LIST)>
+ <CONS TEMP43 () = TEMP43>
+ <CONS SP20 TEMP43 = TEMP43>
+ <CONS TEMP43 VL5 = VL5>
+ <DEAD TEMP43>
+PHRASE77
+ <TYPE? PP22 <TYPE-CODE FALSE> + PHRASE110>
+ <SET TEMP35 %<> (TYPE FALSE)>
+ <RESTL LOF6 1 = TEMP26 (TYPE LIST)>
+ <NTHL TEMP26 1 = TEMP26 (TYPE LIST)>
+ <LOOP>
+MAP93
+ <INTGO>
+ <EMPL? TEMP26 + MAPAP96>
+ <NTHL TEMP26 1 = TEMP35>
+ <FRAME '\1aLOOKUP>
+ <PUSH SP20>
+ <PUSH TEMP35>
+ <DEAD TEMP35>
+ <CALL '\1aLOOKUP 2 = TEMP43>
+ <SET TEMP35 TEMP43>
+ <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE105>
+ <JUMP + MAPEX95>
+PHRASE105
+ <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
+ <JUMP + MAP93>
+MAPAP96
+ <SET TEMP43 TEMP35>
+ <DEAD TEMP35>
+MAPEX95
+ <TYPE? TEMP43 <TYPE-CODE FALSE> - BOOL91>
+ <FRAME '\1aINSERT>
+ <PUSH SP20>
+ <DEAD SP20>
+ <RESTL LOF6 1 = TEMP26 (TYPE LIST)>
+ <DEAD LOF6>
+ <NTHL TEMP26 1 = TEMP26 (TYPE LIST)>
+ <NTHL TEMP26 1 = STACK (TYPE OBLIST)>
+ <DEAD TEMP26>
+ <CALL '\1aINSERT 2 = TEMP43>
+BOOL91
+ <PUTL PP22 1 TEMP43>
+ <DEAD TEMP43>
+ <GVAL 'PRE-OPTS = SP20>
+ <EMPL? SP20 + TAG111>
+ <LOOP (A19 VALUE) (SP20 VALUE)>
+TAG113
+ <NTHL SP20 1 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE ATOM> - TAG114>
+ <VEQUAL? TEMP43 A19 + TAG112>
+ <DEAD TEMP43>
+TAG114
+ <RESTL SP20 1 = SP20 (TYPE LIST)>
+ <EMPL? SP20 - TAG113>
+TAG111
+ <SET SP20 %<> (TYPE FALSE)>
+TAG112
+ <VEQUAL? SP20 0 + PHRASE110>
+ <NTHL PP22 1 = TEMP43>
+ <DEAD PP22>
+ <PUTL SP20 1 TEMP43>
+ <DEAD SP20 TEMP43>
+PHRASE110
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <JUMP + MAP8>
+MAPAP11
+ <SET LOF6 0 (TYPE FIX)>
+ <GVAL 'VICTIMS = TEMP13>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (LOF6 VALUE)>
+TAG116
+ <INTGO>
+ <EMPTY? TEMP13 + TAG115>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD LOF6 1 = LOF6 (TYPE FIX)>
+ <JUMP + TAG116>
+TAG115
+ <SET TEMP13 VL5>
+ <DEAD VL5>
+ <LOOP>
+TAG121
+ <VEQUAL? LOF6 0 + TAG120>
+ <POP = TEMP43>
+ <CONS TEMP43 TEMP13 = TEMP13 (TYPE LIST)>
+ <DEAD TEMP43>
+ <SUB LOF6 1 = LOF6 (TYPE FIX)>
+ <JUMP + TAG121>
+TAG120
+ <SETG 'VICTIMS TEMP13>
+ <DEAD TEMP13>
+ <SETG 'FIRST-PASS-SURVIVOR-GLUE %<>>
+ <RETURN %<>>
+ <END \1aDETERMINE-VICTIMS>
+<GDECL (GLUE-LIST) <LIST [REST LIST]>>
+
+#WORD *1173365163*
+<GFCN \1aPRINT-ENTRY ("VALUE" MUD-CHAN LIST CHANNEL ANY) MSBASE5 OUTCHAN6 LOWERSTR7>
+ <TEMP TEMP10>
+ <INTGO>
+ <GVAL 'INT-MODE = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
+ <DEAD TEMP10>
+ <FRAME '\1aPRINTTYPE>
+ <PUSH 'ATOM>
+ <GVAL 'ATOM-PRINT = STACK>
+ <CALL '\1aPRINTTYPE 2>
+PHRASE9
+ <NTHUV OUTCHAN6 6 = TEMP10 (TYPE MUD-CHAN)>
+ <PUTUV TEMP10 1 100000000 (TYPE FIX)>
+ <DEAD TEMP10>
+ <FRAME '\1aPRINC>
+ <PUSH "<SETG ">
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHL MSBASE5 1 = STACK>
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " #MSUBR [">
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH LOWERSTR7>
+ <DEAD LOWERSTR7>
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+ <GVAL 'INT-MODE = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE20>
+ <DEAD TEMP10>
+ <FRAME '\1aPRINC>
+ <PUSH "!-IMSUBR!- ">
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE23>
+PHRASE20
+ <FRAME '\1aPRINC>
+ <PUSH "-IMSUBR ">
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+PHRASE23
+ <FRAME '\1aPRIN1>
+ <NTHL MSBASE5 1 = STACK>
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <RESTL MSBASE5 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = STACK>
+ <DEAD TEMP10>
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <RESTL MSBASE5 1 = TEMP10 (TYPE LIST)>
+ <DEAD MSBASE5>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = STACK>
+ <DEAD TEMP10>
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH "]>">
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN6>
+ <CALL '\1aCRLF 1>
+ <GVAL 'INT-MODE = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE33>
+ <DEAD TEMP10>
+ <FRAME '\1aPRINTTYPE>
+ <PUSH 'ATOM>
+ <GVAL 'PRINT = STACK>
+ <CALL '\1aPRINTTYPE 2>
+PHRASE33
+ <NTHUV OUTCHAN6 6 = TEMP10 (TYPE MUD-CHAN)>
+ <DEAD OUTCHAN6>
+ <PUTUV TEMP10 1 80 (TYPE FIX)>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aPRINT-ENTRY>
+#WORD *1520041432*
+<GFCN \1aFINISH-FILE ("VALUE" <OR !<FALSE> WORD <FORM ANY>> CHANNEL <OR CHANNEL FALSE> <OR ATOM FALSE> "OPTIONAL" <VECTOR [REST ATOM]> <OR ATOM FALSE>) INCHAN10 OUTCHAN11 EXPFLOAD12 END?13 EVAL?14>
+ <OPT-DISPATCH 3 %<> OPT7 OPT8 OPT9>
+OPT7
+ <PUSH #UNBOUND 0 >
+OPT8
+ <PUSH 'T>
+OPT9
+ <TEMP (IND15:LIST (1)) (WORD-OK?16 %<>) ITM22 TEMP27 TEMP32 TEMP38 TEMP39 TEMP40>
+ <INTGO>
+ <TYPE? END?13 <TYPE-CODE UNBOUND> - PHRASE18>
+ <SET WORD-OK?16 'T (TYPE ATOM)>
+ <SET END?13 [FCN GFCN] (TYPE VECTOR)>
+PHRASE18
+ <LOOP>
+AGAIN24
+ <INTGO>
+ <FRAME '\1aREAD>
+ <PUSH INCHAN10>
+ <CFRAME = STACK (TYPE FRAME)>
+ <CALL '\1aREAD 2 = ITM22>
+ <CFRAME = TEMP27 (TYPE FRAME)>
+ <EQUAL? TEMP27 ITM22 - TAG28>
+ <DEAD TEMP27>
+ <SET ITM22 IND15>
+TAG28
+ <EQUAL? ITM22 IND15 - PHRASE26>
+ <FRAME '\1aCLOSE>
+ <PUSH INCHAN10>
+ <DEAD INCHAN10>
+ <CALL '\1aCLOSE 1>
+ <GVAL 'INCHANS = TEMP32>
+ <RESTL TEMP32 1 = TEMP27 (TYPE LIST)>
+ <DEAD TEMP32>
+ <SETG 'INCHANS TEMP27>
+ <EMPL? TEMP27 - PHRASE31 (TYPE LIST)>
+ <DEAD TEMP27>
+ <RETURN %<>>
+PHRASE31
+ <GVAL 'INCHANS = TEMP32>
+ <NTHL TEMP32 1 = INCHAN10 (TYPE CHANNEL)>
+ <DEAD TEMP32>
+ <JUMP + AGAIN24>
+PHRASE26
+ <TYPE? ITM22 <TYPE-CODE STRING> + AGAIN24>
+ <TYPE? ITM22 <TYPE-CODE CHARACTER> + AGAIN24>
+ <TYPE? ITM22 <TYPE-CODE FIX> + AGAIN24>
+ <TYPE? ITM22 <TYPE-CODE ATOM> - TAG37>
+ <NTHR ITM22 3 = TEMP32 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP32 "\f" + AGAIN24>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP27 "\f" (TYPE STRING)>
+ <LENUS TEMP32 = TEMP38 (TYPE FIX)>
+ <VEQUAL? TEMP38 1 - TAG37>
+ <LOOP (TEMP32 VALUE LENGTH) (TEMP27 VALUE LENGTH) (TEMP38 VALUE)>
+TAG41
+ <NTHUS TEMP32 1 = TEMP39>
+ <NTHUS TEMP27 1 = TEMP40>
+ <VEQUAL? TEMP39 TEMP40 - TAG37>
+ <DEAD TEMP39 TEMP40>
+ <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
+ <RESTUS TEMP27 1 = TEMP27 (TYPE STRING)>
+ <SUB TEMP38 1 = TEMP38 (TYPE FIX)>
+ <GRTR? TEMP38 0 + TAG41 (TYPE FIX)>
+ <JUMP + AGAIN24>
+ <ENDIF "STRING-EQUAL?">
+TAG37
+ <TYPE? ITM22 <TYPE-CODE FORM> - PHRASE43>
+ <EMPL? ITM22 + PHRASE43 (TYPE FORM)>
+ <NTHL ITM22 1 = TEMP27>
+ <SET TEMP32 END?13>
+ <TYPE? TEMP27 <TYPE-CODE ATOM> - PHRASE43>
+ <EMPUV? TEMP32 + PHRASE43>
+ <LOOP (TEMP27 VALUE) (TEMP32 LENGTH VALUE)>
+TAG46
+ <NTHUV TEMP32 1 = TEMP40>
+ <VEQUAL? TEMP40 TEMP27 + TAG45>
+ <DEAD TEMP40>
+ <RESTUV TEMP32 1 = TEMP32 (TYPE VECTOR)>
+ <EMPUV? TEMP32 - TAG46>
+ <JUMP + PHRASE43>
+TAG45
+ <RETURN ITM22>
+ <DEAD ITM22>
+PHRASE43
+ <VEQUAL? WORD-OK?16 0 + PHRASE48>
+ <TYPE? ITM22 <TYPE-CODE WORD> - PHRASE48>
+ <GVAL 'INT-MODE = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - AGAIN24>
+ <DEAD TEMP32>
+ <GVAL 'BOOT-MODE = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - AGAIN24>
+ <DEAD TEMP32>
+ <GVAL 'GLUE-MODE = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - AGAIN24>
+ <DEAD TEMP32>
+ <TYPE? OUTCHAN11 <TYPE-CODE FALSE> + PHRASE54>
+ <FRAME '\1aPRINC>
+ <GVAL 'WORD-STRING = STACK>
+ <PUSH OUTCHAN11>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN-OCT>
+ <CHTYPE ITM22 <TYPE-CODE FIX> = STACK>
+ <PUSH OUTCHAN11>
+ <CALL '\1aPRIN-OCT 2>
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN11>
+ <DEAD OUTCHAN11>
+ <CALL '\1aCRLF 1>
+PHRASE54
+ <RETURN ITM22>
+ <DEAD ITM22>
+PHRASE48
+ <TYPE? EXPFLOAD12 <TYPE-CODE FALSE> + PHRASE59>
+ <TYPE? ITM22 <TYPE-CODE FORM> - PHRASE59>
+ <EMPL? ITM22 + PHRASE59 (TYPE FORM)>
+ <NTHL ITM22 1 = TEMP32>
+ <EQUAL? TEMP32 'FLOAD - PHRASE62>
+ <DEAD TEMP32>
+ <FRAME '\1aOPEN>
+ <PUSH "READ">
+ <SET TEMP27 1 (TYPE FIX)>
+ <RESTL ITM22 1 = TEMP32 (TYPE LIST)>
+ <CHTYPE TEMP32 <TYPE-CODE LIST> = TEMP32>
+ <LOOP (TEMP32 VALUE) (TEMP27 VALUE)>
+TAG64
+ <INTGO>
+ <EMPL? TEMP32 + TAG63>
+ <NTHL TEMP32 1 = STACK>
+ <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
+ <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
+ <JUMP + TAG64>
+TAG63
+ <CALL '\1aOPEN TEMP27 = TEMP32>
+ <DEAD TEMP27>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE59>
+ <JUMP + PHRASE66>
+PHRASE62
+ <NTHL ITM22 1 = TEMP27>
+ <EQUAL? TEMP27 'L-FLOAD - PHRASE59>
+ <DEAD TEMP27>
+ <FRAME '\1aL-OPEN>
+ <RESTL ITM22 1 = TEMP27 (TYPE LIST)>
+ <NTHL TEMP27 1 = STACK (TYPE STRING)>
+ <DEAD TEMP27>
+ <CALL '\1aL-OPEN 1 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE59>
+PHRASE66
+ <SET INCHAN10 TEMP32>
+ <GVAL 'INCHANS = TEMP27>
+ <CONS TEMP32 TEMP27 = TEMP27>
+ <DEAD TEMP32>
+ <SETG 'INCHANS TEMP27>
+ <DEAD TEMP27>
+ <JUMP + AGAIN24>
+PHRASE59
+ <TYPE? EVAL?14 <TYPE-CODE FALSE> + PHRASE83>
+ <TYPE? ITM22 <TYPE-CODE FORM> - PHRASE77>
+ <EMPL? ITM22 + PHRASE77 (TYPE FORM)>
+ <NTHL ITM22 1 = TEMP32>
+ <SET TEMP40 [INCLUDE-WHEN USE-WHEN] (TYPE VECTOR)>
+ <TYPE? TEMP32 <TYPE-CODE ATOM> - PHRASE77>
+ <LOOP (TEMP32 VALUE) (TEMP40 LENGTH VALUE)>
+TAG80
+ <NTHUV TEMP40 1 = TEMP39>
+ <VEQUAL? TEMP39 TEMP32 + TAG79>
+ <DEAD TEMP39>
+ <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
+ <EMPUV? TEMP40 - TAG80>
+ <JUMP + PHRASE77>
+TAG79
+ <RESTL ITM22 1 = TEMP40 (TYPE LIST)>
+ <CHTYPE TEMP40 <TYPE-CODE LIST> = TEMP40>
+ <EMPL? TEMP40 + PHRASE77 (TYPE LIST)>
+ <DEAD TEMP40>
+ <RESTL ITM22 1 = TEMP40 (TYPE LIST)>
+ <NTHL TEMP40 1 = TEMP27>
+ <DEAD TEMP40>
+ <TYPE? TEMP27 <TYPE-CODE FORM> - PHRASE77>
+ <EMPL? TEMP27 + PHRASE77 (TYPE FORM)>
+ <NTHL TEMP27 1 = TEMP40>
+ <EQUAL? TEMP40 'COMPILING? - PHRASE77>
+ <DEAD TEMP40>
+ <FRAME '\1aEVAL>
+ <PUSH ITM22>
+ <CALL '\1aEVAL 1>
+ <PUTL TEMP27 1 'DEBUGGING?>
+ <DEAD TEMP27>
+ <JUMP + PHRASE83>
+PHRASE77
+ <FRAME '\1aEVAL>
+ <PUSH ITM22>
+ <CALL '\1aEVAL 1>
+PHRASE83
+ <TYPE? OUTCHAN11 <TYPE-CODE FALSE> + AGAIN24>
+ <GVAL 'INT-MODE = TEMP40>
+ <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE88>
+ <DEAD TEMP40>
+ <FRAME '\1aPRINTTYPE>
+ <PUSH 'ATOM>
+ <GVAL 'ATOM-PRINT = STACK>
+ <CALL '\1aPRINTTYPE 2>
+PHRASE88
+ <FRAME '\1aPRINTTYPE>
+ <PUSH 'CHARACTER>
+ <GVAL 'CHR-PRINT = STACK>
+ <CALL '\1aPRINTTYPE 2>
+ <NTHUV OUTCHAN11 6 = TEMP27 (TYPE MUD-CHAN)>
+ <PUTUV TEMP27 1 100000 (TYPE FIX)>
+ <DEAD TEMP27>
+ <FRAME '\1aPRIN1>
+ <PUSH ITM22>
+ <DEAD ITM22>
+ <PUSH OUTCHAN11>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN11>
+ <CALL '\1aCRLF 1>
+ <NTHUV OUTCHAN11 6 = TEMP27 (TYPE MUD-CHAN)>
+ <PUTUV TEMP27 1 80 (TYPE FIX)>
+ <DEAD TEMP27>
+ <GVAL 'INT-MODE = TEMP39>
+ <TYPE? TEMP39 <TYPE-CODE FALSE> + PHRASE100>
+ <DEAD TEMP39>
+ <FRAME '\1aPRINTTYPE>
+ <PUSH 'ATOM>
+ <GVAL 'PRINT = STACK>
+ <CALL '\1aPRINTTYPE 2>
+PHRASE100
+ <FRAME '\1aPRINTTYPE>
+ <PUSH 'CHARACTER>
+ <GVAL 'PRINT = STACK>
+ <CALL '\1aPRINTTYPE 2>
+ <JUMP + AGAIN24>
+ <END \1aFINISH-FILE>
+#WORD *17464703305*
+<GFCN \1aPRIN-OCT ("VALUE" CHARACTER FIX ANY) X5 CH6>
+ <TEMP TEMP16:CHARACTER>
+ <INTGO>
+ <FRAME '\1aPRINC>
+ <PUSH !\*>
+ <PUSH CH6>
+ <CALL '\1aPRINC 2>
+ <VEQUAL? X5 0 - PHRASE9 (TYPE FIX)>
+ <FRAME '\1aPRINC>
+ <PUSH !\0>
+ <PUSH CH6>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE13>
+PHRASE9
+ <FRAME '\1aPOCT>
+ <PUSH X5>
+ <DEAD X5>
+ <PUSH CH6>
+ <CALL '\1aPOCT 2>
+PHRASE13
+ <FRAME '\1aPRINC>
+ <PUSH !\*>
+ <PUSH CH6>
+ <DEAD CH6>
+ <CALL '\1aPRINC 2 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aPRIN-OCT>
+#WORD *6332307305*
+<GFCN \1aPOCT ("VALUE" <OR CHARACTER FALSE> FIX ANY) X5 CH6>
+ <TEMP TEMP9>
+ <INTGO>
+ <VEQUAL? X5 0 - TAG10 (TYPE FIX)>
+ <RETURN %<>>
+TAG10
+ <FRAME '\1aPOCT>
+ <LSH X5 -3 = STACK (TYPE FIX)>
+ <PUSH CH6>
+ <CALL '\1aPOCT 2>
+ <FRAME '\1aPRINC>
+ <AND X5 #WORD *7* = TEMP9>
+ <DEAD X5>
+ <ADD TEMP9 48 = TEMP9 (TYPE FIX)>
+ <CHTYPE TEMP9 <TYPE-CODE CHARACTER> = STACK>
+ <DEAD TEMP9>
+ <PUSH CH6>
+ <DEAD CH6>
+ <CALL '\1aPRINC 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aPOCT>
+<GDECL (SUBRIFIED-PKGS SUBRIFIED-MSUBRS) <LIST [REST ATOM]>>
+
+#WORD *22420213030*
+<GFCN \1aSUBRIFY? ("VALUE" <OR FALSE SUBR-INFO> ANY) NAME4>
+ <TEMP OBL5 TEMP14 MS6 OO7 CNT33:FIX>
+ <INTGO>
+ <NTHR NAME4 4 = OBL5 (RECORD-TYPE ATOM)>
+ <NTHR NAME4 1 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG13)>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG13>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP14 <TYPE-CODE UNBOUND> - TAG12>
+ <DEAD TEMP14>
+TAG13
+ <RETURN %<>>
+TAG12
+ <GVAL NAME4 = MS6>
+ <TYPE? MS6 <TYPE-CODE MSUBR> + TAG15>
+ <RETURN %<>>
+TAG15
+ <TYPE? OBL5 <TYPE-CODE FALSE> + TAG21>
+ <CHTYPE OBL5 <TYPE-CODE ATOM> = TEMP14>
+ <NTHR TEMP14 4 = OO7 (RECORD-TYPE ATOM)>
+ <DEAD TEMP14>
+ <EQUAL? OO7 #OBLIST PACKAGE + BOOL19>
+ <CHTYPE OO7 <TYPE-CODE ATOM> = TEMP14>
+ <NTHR TEMP14 4 = TEMP14 (RECORD-TYPE ATOM)>
+ <EQUAL? TEMP14 #OBLIST PACKAGE - TAG21>
+ <DEAD TEMP14>
+ <SET OBL5 OO7>
+ <DEAD OO7>
+ <TYPE? OBL5 <TYPE-CODE FALSE> + TAG21>
+BOOL19
+ <CHTYPE OBL5 <TYPE-CODE ATOM> = TEMP14>
+ <DEAD OBL5>
+ <GVAL 'SUBRIFIED-PKGS = OO7>
+ <EMPL? OO7 + TAG21>
+ <LOOP (TEMP14 VALUE) (OO7 VALUE)>
+TAG22
+ <NTHL OO7 1 = OBL5>
+ <VEQUAL? OBL5 TEMP14 + TAG27>
+ <DEAD OBL5>
+ <RESTL OO7 1 = OO7 (TYPE LIST)>
+ <EMPL? OO7 - TAG22>
+TAG21
+ <GVAL 'SUBRIFIED-MSUBRS = OBL5>
+ <EMPL? OBL5 + TAG26>
+ <LOOP (NAME4 VALUE) (OBL5 VALUE)>
+TAG28
+ <NTHL OBL5 1 = OO7>
+ <VEQUAL? OO7 NAME4 + TAG27>
+ <DEAD OO7>
+ <RESTL OBL5 1 = OBL5 (TYPE LIST)>
+ <EMPL? OBL5 - TAG28>
+TAG26
+ <RETURN %<>>
+TAG27
+ <PUSH NAME4>
+ <DEAD NAME4>
+ <NTHUV MS6 3 = TEMP14>
+ <DEAD MS6>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = OO7 (TYPE LIST)>
+ <DEAD TEMP14>
+ <CHTYPE OO7 <TYPE-CODE LIST> = OO7>
+ <SET CNT33 0 (TYPE FIX)>
+ <LOOP>
+AGAIN35
+ <INTGO>
+ <EMPL? OO7 - PHRASE37 (TYPE LIST)>
+ <PUSH CNT33>
+ <DEAD CNT33>
+ <JUMP + EXIT31>
+PHRASE37
+ <NTHL OO7 1 = MS6>
+ <TYPE? MS6 <TYPE-CODE STRING> + PHRASE39>
+ <ADD CNT33 1 = CNT33 (TYPE FIX)>
+ <JUMP + PHRASE40>
+PHRASE39
+ <SET TEMP14 ["OPT" "OPTIONAL" "TUPLE"] (TYPE VECTOR)>
+ <LOOP (MS6 VALUE) (TEMP14 LENGTH VALUE)>
+TAG42
+ <NTHUV TEMP14 1 = OBL5>
+ <VEQUAL? OBL5 MS6 + TAG41>
+ <DEAD OBL5>
+ <RESTUV TEMP14 1 = TEMP14 (TYPE VECTOR)>
+ <EMPUV? TEMP14 - TAG42>
+ <JUMP + PHRASE40>
+TAG41
+ <PUSH %<>>
+ <JUMP + EXIT31>
+PHRASE40
+ <RESTL OO7 1 = OO7 (TYPE LIST)>
+ <JUMP + AGAIN35>
+EXIT31
+ <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP14>
+ <CHTYPE TEMP14 <TYPE-CODE SUBR-INFO> = OBL5>
+ <DEAD TEMP14>
+ <RETURN OBL5>
+ <DEAD OBL5>
+ <END \1aSUBRIFY?>
+#WORD *10427351722*
+<GFCN \1aPRINT-SUBR-INFO ("VALUE" STRING SUBR-INFO) S4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aPRINC>
+ <PUSH "%<SUBR-ENTRY ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV S4 1 = STACK>
+ <DEAD S4>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH ">">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aPRINT-SUBR-INFO>
+<COND (<GASSIGNED? PRINT-SUBR-INFO> <PRINTTYPE SUBR-INFO ,PRINT-SUBR-INFO>)
\ No newline at end of file
projects / pdp10-muddle.git / blobdiff