--- /dev/null
+
+<PACKAGE "MIMC-GRDUMP">
+
+<ENTRY MIMC-GROUP-DUMP DUMP-CODE>
+
+<USE "COMFIL" "COMPDEC" "HASH">
+
+<MSETG M$$PRINT 5>
+
+<MSETG M$$OFF-FIX 1>
+
+<MSETG M$$OFF-DCL 2>
+
+<MSETG M$$OFF-ELT 3>
+
+<MSETG M$$NTYPE 1>
+
+<MSETG M$$PTYPE 2>
+
+<MSETG M$$TYOFF 6>
+
+<MSETG M$$TYPE-INFO-SIZE 1024>
+
+<MSETG TUP-CHAN 1>
+
+<MSETG TUP-OBL 2>
+
+<MSETG TUP-BUF 3>
+
+<MSETG TUP-BUFL 4>
+
+<MSETG BUFLNT 1024>
+
+<MSETG BACK-SLASH <ASCII 92>>
+
+<SETG M$$FS-NSTATE 9>
+
+<SETG M$$FS-NOSLASH <+ ,M$$FS-NSTATE 1>>
+
+<SETG M$$FS-SLASH1 <+ ,M$$FS-NSTATE 2>>
+
+<SETG M$$FS-SLASH2 <+ ,M$$FS-NSTATE 3>>
+
+<SETG M$$END-STATE 6>
+
+<MANIFEST M$$FS-NSTATE M$$FS-NOSLASH M$$FS-SLASH1 M$$FS-SLASH2 M$$END-STATE>
+
+<GDECL (BUFFER) STRING (I$FLOAT-TABLE!-INTERNAL) <VECTOR [REST FLOAT]> (M$$TYPE-INFO!-INTERNAL) <VECTOR [REST <OR TYPE-ENTRY FALSE>]>>
+
+<SETG M$$R-BACKS 15>
+
+<SETG M$$R-MIN-NUM-PART 17>
+
+<SETG M$$R-MAX-ATM-BRK 13>
+
+<MANIFEST M$$R-MAX-ATM-BRK M$$R-BACKS M$$R-MIN-NUM-PART>
+
+<SETG BUFFER <ISTRING ,BUFLNT>>
+
+<SETG ROOT-OBL <ROOT>>
+
+#WORD *4652614317*
+<FCN \1aMIMC-GROUP-DUMP ("VALUE" <OR ATOM FALSE> STRING ATOM ANY) STR4 NAM5 TEMPCH6>
+ <TEMP (OUTCHAN7 'DEFINE) OBL11 OOBLIST12 IOTUP14:TUPLE TEMP3:LBIND TEMP31 TEMP40 TEMP54 THIS-FORM20 FUNC17 TEM46 TEMP67 BUF80>
+ <INTGO>
+ <GEN-LVAL 'OBLIST = OUTCHAN7>
+ <EMPL? OUTCHAN7 - PHRASE22 (TYPE LIST)>
+ <DEAD OUTCHAN7>
+ <SET OUTCHAN7 'FULL-OBL (TYPE ATOM)>
+ <JUMP + COND21>
+PHRASE22
+ <SET OUTCHAN7 'BLOCK (TYPE ATOM)>
+COND21
+ <SET OBL11 OUTCHAN7>
+ <DEAD OUTCHAN7>
+ <GEN-LVAL 'OBLIST = OOBLIST12>
+ <PUSH 0>
+ <PUSH 0>
+ <GVAL 'BUFFER = STACK>
+ <PUSH 0>
+ <TUPLE 4 = IOTUP14 (TYPE TUPLE)>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <LOCATION + TAG29 = OUTCHAN7>
+ <CFRAME = TEMP31 (TYPE FRAME)>
+ <BBIND 'UNWIND OUTCHAN7 'FIX TEMP31>
+ <DEAD OUTCHAN7 TEMP31>
+ <FRAME '\1aOPEN>
+ <PUSH "PRINT">
+ <PUSH STR4>
+ <DEAD STR4>
+ <CALL '\1aOPEN 2 = OUTCHAN7>
+ <TYPE? OUTCHAN7 <TYPE-CODE FALSE> + EXIT33>
+ <FRAME '\1aGETPROP>
+ <PUSH NAM5>
+ <PUSH OBL11>
+ <CFRAME = STACK (TYPE FRAME)>
+ <CALL '\1aGETPROP 3 = TEMP31>
+ <CFRAME = TEMP40 (TYPE FRAME)>
+ <EQUAL? TEMP40 TEMP31 - TAG41>
+ <DEAD TEMP40>
+ <SET TEMP31 OOBLIST12>
+ <DEAD OOBLIST12>
+TAG41
+ <PUTUV IOTUP14 1 OUTCHAN7>
+ <PUTUV IOTUP14 2 TEMP31>
+ <GEN-LVAL NAM5 = TEMP40>
+ <LOOP>
+AGAIN48
+ <INTGO>
+ <EMPL? TEMP40 + EXIT44 (TYPE LIST)>
+ <SET OOBLIST12 %<> (TYPE FALSE)>
+ <NTHL TEMP40 1 = TEMP54>
+ <TYPE? TEMP54 <TYPE-CODE FORM> - PHRASE52>
+ <DEAD TEMP54>
+ <NTHL TEMP40 1 = THIS-FORM20 (TYPE FORM)>
+ <EMPL? THIS-FORM20 + PHRASE52>
+ <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
+ <EMPL? TEMP54 + PHRASE52>
+ <DEAD TEMP54>
+ <NTHL THIS-FORM20 1 = TEMP54>
+ <EQUAL? TEMP54 'DEFINE + BOOL55>
+ <DEAD TEMP54>
+ <NTHL THIS-FORM20 1 = TEMP54>
+ <EQUAL? TEMP54 'DEFMAC - PHRASE52>
+ <DEAD TEMP54>
+ <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
+ <NTHL TEMP54 1 = OOBLIST12>
+ <DEAD TEMP54>
+ <TYPE? OOBLIST12 <TYPE-CODE FALSE> + PHRASE52>
+BOOL55
+ <FRAME '\1aGETPROP>
+ <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
+ <NTHL TEMP54 1 = STACK>
+ <DEAD TEMP54>
+ <PUSH 'VALUE>
+ <CFRAME = STACK (TYPE FRAME)>
+ <CALL '\1aGETPROP 3 = FUNC17>
+ <CFRAME = TEMP54 (TYPE FRAME)>
+ <EQUAL? TEMP54 FUNC17 - TAG58>
+ <DEAD TEMP54>
+ <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
+ <NTHL TEMP54 1 = FUNC17>
+ <DEAD TEMP54>
+TAG58
+ <TYPE? FUNC17 <TYPE-CODE ATOM> - PHRASE52>
+ <NTHR FUNC17 1 = TEMP54 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE125)>
+ <TYPE? TEMP54 <TYPE-CODE FALSE> + PHRASE125>
+ <NTHR TEMP54 1 = TEMP54 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP54 <TYPE-CODE UNBOUND> + PHRASE125>
+ <DEAD TEMP54>
+ <GVAL FUNC17 = TEM46>
+ <TYPE? TEM46 <TYPE-CODE FUNCTION> - PHRASE62>
+ <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
+ <CHTYPE TEMP54 <TYPE-CODE LIST> = TEMP54>
+ <PUTREST TEMP54 TEM46>
+ <DEAD TEMP54 TEM46>
+ <FRAME '\1aMIMC-PRINT>
+ <PUSH THIS-FORM20>
+ <DEAD THIS-FORM20>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-PRINT 2>
+ <FRAME '\1aMIMC-CRLF>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-CRLF 1>
+ <JUMP + PHRASE125>
+PHRASE62
+ <TYPE? TEM46 <TYPE-CODE MACRO> - PHRASE65>
+ <EMPL? TEM46 + PHRASE65 (TYPE MACRO)>
+ <NTHL TEM46 1 = TEMP54>
+ <TYPE? TEMP54 <TYPE-CODE FUNCTION> - PHRASE65>
+ <DEAD TEMP54>
+ <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
+ <CHTYPE TEMP54 <TYPE-CODE LIST> = TEMP54>
+ <NTHL TEM46 1 = TEMP67 (TYPE FUNCTION)>
+ <DEAD TEM46>
+ <PUTREST TEMP54 TEMP67>
+ <DEAD TEMP54 TEMP67>
+ <FRAME '\1aMIMC-PRINT>
+ <PUSH THIS-FORM20>
+ <DEAD THIS-FORM20>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-PRINT 2>
+ <FRAME '\1aMIMC-CRLF>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-CRLF 1>
+ <JUMP + PHRASE125>
+PHRASE65
+ <TYPE? TEM46 <TYPE-CODE INS-LIST> + TAG71>
+ <TYPE? TEM46 <TYPE-CODE ACCESS-LIST> - PHRASE70>
+TAG71
+ <TYPE? TEM46 <TYPE-CODE ACCESS-LIST> - PHRASE73>
+ <FRAME '\1aACCESS>
+ <NTHL TEM46 1 = THIS-FORM20>
+ <PUSH THIS-FORM20>
+ <RESTL TEM46 1 = TEMP54 (TYPE LIST)>
+ <NTHL TEMP54 1 = STACK (TYPE FIX)>
+ <DEAD TEMP54>
+ <CALL '\1aACCESS 2>
+ <FRAME '\1aMIMC-PRINT>
+ <RESTL TEM46 1 = TEMP54 (TYPE LIST)>
+ <RESTL TEMP54 1 = TEMP54 (TYPE LIST)>
+ <RESTL TEMP54 1 = TEMP54 (TYPE LIST)>
+ <NTHL TEMP54 1 = TEMP54>
+ <CHTYPE TEMP54 <TYPE-CODE WORD> = STACK>
+ <DEAD TEMP54>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-PRINT 2>
+ <FRAME '\1aMIMC-CRLF>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-CRLF 1>
+ <NTHUV IOTUP14 3 = TEMP54>
+ <NTHUV IOTUP14 4 = TEMP67>
+ <CHANNEL-OP 'DISK 'WRITE-BUFFER OUTCHAN7 TEMP54 TEMP67>
+ <DEAD TEMP54 TEMP67>
+ <PUTUV IOTUP14 4 0>
+ <RESTL TEM46 1 = TEMP54 (TYPE LIST)>
+ <RESTL TEMP54 1 = TEMP54 (TYPE LIST)>
+ <NTHL TEMP54 1 = TEMP54 (TYPE FIX)>
+ <RESTL TEM46 1 = TEMP67 (TYPE LIST)>
+ <NTHL TEMP67 1 = TEMP67 (TYPE FIX)>
+ <SUB TEMP54 TEMP67 = TEMP54 (TYPE FIX)>
+ <DEAD TEMP67>
+ <NTHUV IOTUP14 3 = BUF80>
+ <LOOP>
+AGAIN81
+ <INTGO>
+ <GRTR? TEMP54 1024 - PHRASE83 (TYPE FIX)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH THIS-FORM20>
+ <PUSH 'READ-BUFFER>
+ <PUSH BUF80>
+ <CALL '\1aCHANNEL-OP 3>
+ <CHANNEL-OP 'DISK 'WRITE-BUFFER OUTCHAN7 BUF80>
+ <JUMP + PHRASE95>
+PHRASE83
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH THIS-FORM20>
+ <DEAD THIS-FORM20>
+ <PUSH 'READ-BUFFER>
+ <PUSH BUF80>
+ <PUSH TEMP54>
+ <CALL '\1aCHANNEL-OP 4>
+ <CHANNEL-OP 'DISK 'WRITE-BUFFER OUTCHAN7 BUF80 TEMP54>
+ <DEAD TEMP54>
+ <FRAME '\1aLENGTH>
+ <PUSH TEM46>
+ <CALL '\1aLENGTH 1 = TEMP67>
+ <GRTR? TEMP67 4 - PHRASE96 (TYPE FIX)>
+ <DEAD TEMP67>
+ <FRAME '\1aNTH>
+ <PUSH TEM46>
+ <DEAD TEM46>
+ <PUSH 5>
+ <CALL '\1aNTH 2 = TEM46>
+ <FRAME '\1aNTH>
+ <PUSH TEM46>
+ <PUSH 3>
+ <CALL '\1aNTH 2 = TEMP67>
+ <FRAME '\1aNTH>
+ <PUSH TEM46>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = TEMP54>
+ <SUB TEMP67 TEMP54 = TEMP67 (TYPE FIX)>
+ <DEAD TEMP54>
+ <SUB TEMP67 -1 = TEMP54 (TYPE FIX)>
+ <DEAD TEMP67>
+ <FRAME '\1aACCESS>
+ <NTH1 TEM46 = THIS-FORM20>
+ <PUSH THIS-FORM20>
+ <FRAME '\1aNTH>
+ <PUSH TEM46>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = STACK>
+ <CALL '\1aACCESS 2>
+ <JUMP + AGAIN81>
+PHRASE95
+ <SUB TEMP54 1024 = TEMP54 (TYPE FIX)>
+ <JUMP + AGAIN81>
+PHRASE73
+ <FRAME '\1aMIMC-PRINT>
+ <NTHL TEM46 1 = TEMP67>
+ <CHTYPE TEMP67 <TYPE-CODE WORD> = STACK>
+ <DEAD TEMP67>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-PRINT 2>
+ <FRAME '\1aMIMC-CRLF>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-CRLF 1>
+ <FRAME '\1aIDUMP-CODE>
+ <RESTL TEM46 1 = TEMP67 (TYPE LIST)>
+ <DEAD TEM46>
+ <CHTYPE TEMP67 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP67>
+ <PUSH IOTUP14>
+ <CALL '\1aIDUMP-CODE 2>
+PHRASE96
+ <TYPE? OOBLIST12 <TYPE-CODE FALSE> + PHRASE125>
+ <DEAD OOBLIST12>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "<COND (<AND <GASSIGNED? ">
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-OUTS 2>
+ <FRAME '\1aMIMC-PRIN-ATOM>
+ <PUSH FUNC17>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-PRIN-ATOM 2>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "> <NOT <TYPE? ,">
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-OUTS 2>
+ <FRAME '\1aMIMC-PRIN-ATOM>
+ <PUSH FUNC17>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-PRIN-ATOM 2>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH " MACRO>>> <SETG ">
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-OUTS 2>
+ <FRAME '\1aMIMC-PRIN-ATOM>
+ <PUSH FUNC17>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-PRIN-ATOM 2>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH " <CHTYPE (,">
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-OUTS 2>
+ <FRAME '\1aMIMC-PRIN-ATOM>
+ <PUSH FUNC17>
+ <DEAD FUNC17>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-PRIN-ATOM 2>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH ") MACRO>>)>">
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-OUTS 2>
+ <FRAME '\1aMIMC-CRLF>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-CRLF 1>
+ <JUMP + PHRASE125>
+PHRASE70
+ <FRAME '\1aFORM>
+ <PUSH 'SETG>
+ <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
+ <DEAD THIS-FORM20>
+ <NTHL TEMP54 1 = STACK>
+ <DEAD TEMP54>
+ <FRAME '\1aFORM>
+ <PUSH 'QUOTE>
+ <GVAL FUNC17 = STACK>
+ <DEAD FUNC17>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aFORM 3 = THIS-FORM20>
+ <FRAME '\1aMIMC-PRINT>
+ <PUSH THIS-FORM20>
+ <DEAD THIS-FORM20>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-PRINT 2>
+ <FRAME '\1aMIMC-CRLF>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-CRLF 1>
+ <JUMP + PHRASE125>
+PHRASE52
+ <NTHL TEMP40 1 = OOBLIST12>
+ <MONAD? OOBLIST12 - TAG120>
+ <DEAD OOBLIST12>
+ <SET TEMP54 'T (TYPE ATOM)>
+ <JUMP + TAG122>
+TAG120
+ <SET TEMP54 %<> (TYPE FALSE)>
+TAG122
+ <VEQUAL? TEMP54 0 + PHRASE119>
+ <DEAD TEMP54>
+ <FRAME '\1aMIMC-PRINT>
+ <NTHL TEMP40 1 = STACK>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-PRINT 2>
+ <FRAME '\1aMIMC-CRLF>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-CRLF 1>
+ <JUMP + PHRASE125>
+PHRASE119
+ <FRAME '\1aMIMC-PRINT>
+ <NTHL TEMP40 1 = STACK>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-PRINT 2>
+ <FRAME '\1aMIMC-CRLF>
+ <PUSH IOTUP14>
+ <CALL '\1aMIMC-CRLF 1>
+PHRASE125
+ <FRAME '\1aGETPROP>
+ <PUSH TEMP40>
+ <PUSH OBL11>
+ <CFRAME = STACK (TYPE FRAME)>
+ <CALL '\1aGETPROP 3 = TEMP54>
+ <CFRAME = OOBLIST12 (TYPE FRAME)>
+ <EQUAL? OOBLIST12 TEMP54 - TAG129>
+ <DEAD OOBLIST12>
+ <SET TEMP54 TEMP31>
+ <DEAD TEMP31>
+TAG129
+ <SET TEMP31 TEMP54>
+ <DEAD TEMP54>
+ <PUTUV IOTUP14 2 TEMP31>
+ <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
+ <JUMP + AGAIN48>
+EXIT44
+ <NTHUV IOTUP14 4 = TEMP54>
+ <EQUAL? TEMP54 0 + PHRASE131>
+ <DEAD TEMP54>
+ <NTHUV IOTUP14 3 = TEMP54>
+ <NTHUV IOTUP14 4 = OOBLIST12>
+ <CHANNEL-OP 'DISK 'WRITE-BUFFER OUTCHAN7 TEMP54 OOBLIST12>
+ <DEAD OUTCHAN7 TEMP54 OOBLIST12>
+PHRASE131
+ <FRAME '\1aCLOSE>
+ <NTHUV IOTUP14 1 = STACK (TYPE CHANNEL)>
+ <DEAD IOTUP14>
+ <CALL '\1aCLOSE 1>
+ <SET OUTCHAN7 NAM5>
+ <DEAD NAM5>
+EXIT33
+ <NTHR 'UNWIND 2 = OOBLIST12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR OOBLIST12 1 0 (RECORD-TYPE LBIND)>
+ <DEAD OOBLIST12>
+ <JUMP + TAG30>
+TAG29
+ <TYPE? OUTCHAN7 <TYPE-CODE UNBOUND> + UNWCONT>
+ <TYPE? OUTCHAN7 <TYPE-CODE CHANNEL> - UNWCONT>
+ <FRAME '\1aCLOSE>
+ <PUSH OUTCHAN7>
+ <CALL '\1aCLOSE 1>
+ <JUMP + UNWCONT>
+TAG30
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -19>
+ <RETURN OUTCHAN7>
+ <DEAD OUTCHAN7>
+ <END \1aMIMC-GROUP-DUMP>\r\r
+#WORD *24637226166*
+<GFCN \1aMIMC-PRINT ("VALUE" ANY ANY ANY) OBJ4 IOTUP5>
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aMIMC-CRLF>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-CRLF 1>
+ <FRAME '\1aMIMC-PRIN1>
+ <PUSH OBJ4>
+ <DEAD OBJ4>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-PRIN1 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aMIMC-PRINT>
+#WORD *22360400437*
+ <GFCN \1aMIMC-PRIN1 ("VALUE" ANY ANY <TUPLE <CHANNEL 'DISK> LIST STRING FIX>) DATA4 IOTUP5>
+ <TEMP TYP6 TEMP13 INFO9 PTYPE10 CHN11:CHANNEL>
+ <INTGO>
+ <TYPE DATA4 = TYP6>
+ <LSH TYP6 -6 = TYP6 (TYPE FIX)>
+ <GVAL 'M$$TYPE-INFO!-INTERNAL = TEMP13>
+ <ADD TYP6 1 = TYP6 (TYPE FIX)>
+ <NTHUV TEMP13 TYP6 = INFO9 (TYPE TYPE-ENTRY)>
+ <DEAD TEMP13 TYP6>
+ <NTHUV INFO9 5 = PTYPE10>
+ <NTHUV IOTUP5 1 = CHN11 (TYPE CHANNEL)>
+ <TYPE? PTYPE10 <TYPE-CODE FALSE> + PHRASE16>
+ <TYPE? PTYPE10 <TYPE-CODE ATOM> + PHRASE16>
+ <TYPE? DATA4 <TYPE-CODE ATOM> - BOOL18>
+ <SET PTYPE10 'ATOM (TYPE ATOM)>
+ <JUMP + PHRASE16>
+BOOL18
+ <TYPE? DATA4 <TYPE-CODE FCN-ATOM> - BOOL19>
+ <SET PTYPE10 'ATOM (TYPE ATOM)>
+ <JUMP + PHRASE16>
+BOOL19
+ <NTHUV IOTUP5 3 = TYP6 (TYPE STRING)>
+ <NTHUV IOTUP5 4 = TEMP13 (TYPE FIX)>
+ <CHANNEL-OP 'DISK 'WRITE-BUFFER CHN11 TYP6 TEMP13>
+ <DEAD TYP6 TEMP13>
+ <CHANNEL-OP 'DISK 'BUFOUT CHN11>
+ <PUTUV IOTUP5 4 0 (TYPE FIX)>
+ <DEAD IOTUP5>
+ <GETS 'BIND = TYP6 (TYPE LBIND)>
+ <BBIND 'OUTCHAN 'CHANNEL 'FIX CHN11>
+ <FRAME>
+ <PUSH DATA4>
+ <DEAD DATA4>
+ <ACALL PTYPE10 1>
+ <DEAD PTYPE10>
+ <CHANNEL-OP 'DISK 'BUFOUT CHN11 = TEMP13>
+ <DEAD CHN11>
+ <UNBIND TYP6>
+ <DEAD TYP6>
+ <ADJ -9>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE16
+ <EQUAL? PTYPE10 'ATOM - PHRASE24>
+ <TYPE? DATA4 <TYPE-CODE FCN-ATOM> - PHRASE26>
+ <NTHR 'CTLZ-PRINT 1 = TYP6 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE26)>
+ <TYPE? TYP6 <TYPE-CODE FALSE> + PHRASE26>
+ <NTHR TYP6 1 = TYP6 (RECORD-TYPE GBIND)>
+ <TYPE? TYP6 <TYPE-CODE UNBOUND> + PHRASE26>
+ <DEAD TYP6>
+ <GVAL 'CTLZ-PRINT = TYP6>
+ <TYPE? TYP6 <TYPE-CODE FALSE> + PHRASE26>
+ <DEAD TYP6>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\\1a>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+PHRASE26
+ <FRAME '\1aMIMC-PRIN-ATOM>
+ <CHTYPE DATA4 <TYPE-CODE ATOM> = STACK>
+ <DEAD DATA4>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-PRIN-ATOM 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE24
+ <EQUAL? PTYPE10 'FIX - PHRASE30>
+ <FRAME '\1aI$PRIN-FIX>
+ <PUSH DATA4>
+ <DEAD DATA4>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aI$PRIN-FIX 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE30
+ <EQUAL? PTYPE10 'FLOAT - PHRASE32>
+ <FRAME '\1aI$PRIN-FLOAT>
+ <PUSH DATA4>
+ <DEAD DATA4>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aI$PRIN-FLOAT 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE32
+ <EQUAL? PTYPE10 'STRING - PHRASE34>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\">
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <CHTYPE DATA4 <TYPE-CODE STRING> = TYP6>
+ <DEAD DATA4>
+ <LOOP>
+MAP37
+ <INTGO>
+ <EMPUS? TYP6 + MAPAP40>
+ <NTHUS TYP6 1 = TEMP13>
+ <VEQUAL? TEMP13 !\" + BOOL50>
+ <VEQUAL? TEMP13 !\\ - PHRASE49>
+BOOL50
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\\>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+PHRASE49
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <RESTUS TYP6 1 = TYP6 (TYPE STRING)>
+ <JUMP + MAP37>
+MAPAP40
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\">
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTC 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE34
+ <EQUAL? PTYPE10 'BYTES - PHRASE54>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "!{">
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTS 2>
+ <CHTYPE DATA4 <TYPE-CODE BYTES> = TYP6>
+ <DEAD DATA4>
+ <LOOP>
+MAP57
+ <INTGO>
+ <EMPUB? TYP6 + MAPAP60>
+ <SET INFO9 TYP6>
+ <NTHUB INFO9 1 = TEMP13 (TYPE FIX)>
+ <FRAME '\1aI$PRIN-FIX>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH IOTUP5>
+ <CALL '\1aI$PRIN-FIX 2>
+ <RESTUB INFO9 1 = INFO9 (TYPE BYTES)>
+ <EMPUB? INFO9 + PHRASE69 (TYPE BYTES)>
+ <DEAD INFO9>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\ >
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+PHRASE69
+ <RESTUB TYP6 1 = TYP6 (TYPE BYTES)>
+ <JUMP + MAP57>
+MAPAP60
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "!}">
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTS 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE54
+ <EQUAL? PTYPE10 'CHARACTER - PHRASE73>
+ <GRTR? DATA4 127 + BOOL76 (TYPE FIX)>
+ <LESS? DATA4 0 - PHRASE75 (TYPE FIX)>
+BOOL76
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "#CHARACTER *">
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTS 2>
+ <FRAME '\1aMIMC-PRIN-OCT>
+ <CHTYPE DATA4 <TYPE-CODE FIX> = STACK>
+ <DEAD DATA4>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-PRIN-OCT 2>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\*>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTC 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE75
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "!\\">
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTS 2>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH DATA4>
+ <DEAD DATA4>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTC 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE73
+ <EQUAL? PTYPE10 'ADECL - PHRASE85>
+ <FRAME '\1aMIMC-PRIN1>
+ <NTHUV DATA4 1 = STACK>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-PRIN1 2>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\:>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <FRAME '\1aMIMC-PRIN1>
+ <NTHUV DATA4 2 = STACK>
+ <DEAD DATA4>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-PRIN1 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE85
+ <EQUAL? PTYPE10 'FORM + BOOL91>
+ <EQUAL? PTYPE10 'SEGMENT - PHRASE89>
+BOOL91
+ <EMPL? DATA4 + PHRASE89>
+ <RESTL DATA4 1 = TYP6 (TYPE LIST)>
+ <EMPL? TYP6 + PHRASE89>
+ <RESTL TYP6 1 = TYP6 (TYPE LIST)>
+ <EMPL? TYP6 - PHRASE89>
+ <DEAD TYP6>
+ <NTHL DATA4 1 = TEMP13>
+ <EQUAL? TEMP13 'LVAL - BOOL93>
+ <SET TEMP13 !\. (TYPE CHARACTER)>
+ <JUMP + BOOL92>
+BOOL93
+ <EQUAL? TEMP13 'GVAL - BOOL94>
+ <SET TEMP13 !\, (TYPE CHARACTER)>
+ <JUMP + BOOL92>
+BOOL94
+ <EQUAL? TEMP13 'QUOTE - PHRASE89>
+ <DEAD TEMP13>
+ <SET TEMP13 !\' (TYPE CHARACTER)>
+BOOL92
+ <EQUAL? PTYPE10 'SEGMENT - PHRASE97>
+ <DEAD PTYPE10>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\!>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+PHRASE97
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <FRAME '\1aMIMC-PRIN1>
+ <RESTL DATA4 1 = TYP6 (TYPE LIST)>
+ <DEAD DATA4>
+ <NTHL TYP6 1 = STACK>
+ <DEAD TYP6>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-PRIN1 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE89
+ <EQUAL? PTYPE10 'FORM - BOOL103>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\<>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <JUMP + BOOL102>
+BOOL103
+ <EQUAL? PTYPE10 'LIST - BOOL105>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\(>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <JUMP + BOOL102>
+BOOL105
+ <EQUAL? PTYPE10 'SEGMENT - PHRASE101>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "!<">
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTS 2>
+BOOL102
+ <CHTYPE DATA4 <TYPE-CODE LIST> = TYP6>
+ <DEAD DATA4>
+ <LOOP>
+MAP110
+ <INTGO>
+ <EMPL? TYP6 + MAPAP113>
+ <SET INFO9 TYP6>
+ <NTHL INFO9 1 = TEMP13>
+ <FRAME '\1aMIMC-PRIN1>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-PRIN1 2>
+ <RESTL INFO9 1 = INFO9 (TYPE LIST)>
+ <EMPL? INFO9 + PHRASE121 (TYPE LIST)>
+ <DEAD INFO9>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\ >
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+PHRASE121
+ <RESTL TYP6 1 = TYP6 (TYPE LIST)>
+ <JUMP + MAP110>
+MAPAP113
+ <EQUAL? PTYPE10 'LIST + PHRASE125>
+ <DEAD PTYPE10>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\>>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTC 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE125
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\)>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTC 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE101
+ <EQUAL? PTYPE10 'OFFSET - PHRASE129>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "%<OFFSET ">
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTS 2>
+ <FRAME '\1aI$PRIN-FIX>
+ <NTHUV DATA4 1 = STACK (TYPE FIX)>
+ <PUSH IOTUP5>
+ <CALL '\1aI$PRIN-FIX 2>
+ <NTHUV DATA4 2 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE ATOM> - PHRASE133>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\ >
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <FRAME '\1aMIMC-PRIN-ATOM>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-PRIN-ATOM 2>
+ <JUMP + PHRASE136>
+PHRASE133
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH " '">
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTS 2>
+ <FRAME '\1aMIMC-PRIN1>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-PRIN1 2>
+PHRASE136
+ <NTHUV DATA4 3 = TEMP13>
+ <DEAD DATA4>
+ <TYPE? TEMP13 <TYPE-CODE ATOM> - PHRASE140>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\ >
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <FRAME '\1aMIMC-PRIN-ATOM>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-PRIN-ATOM 2>
+ <JUMP + PHRASE143>
+PHRASE140
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE143>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH " '">
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTS 2>
+ <FRAME '\1aMIMC-PRIN1>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-PRIN1 2>
+PHRASE143
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\>>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTC 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE129
+ <EQUAL? PTYPE10 'TYPE-C - PHRASE147>
+ <FRAME '\1aI$PRIN-TYPE-W-C>
+ <PUSH DATA4>
+ <DEAD DATA4>
+ <PUSH %<>>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aI$PRIN-TYPE-W-C 3 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE147
+ <EQUAL? PTYPE10 'TYPE-W - PHRASE149>
+ <FRAME '\1aI$PRIN-TYPE-W-C>
+ <PUSH DATA4>
+ <DEAD DATA4>
+ <PUSH 'T>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aI$PRIN-TYPE-W-C 3 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE149
+ <EQUAL? PTYPE10 'UVECTOR - PHRASE151>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "![">
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTS 2>
+ <CHTYPE DATA4 <TYPE-CODE UVECTOR> = TYP6>
+ <DEAD DATA4>
+ <LOOP>
+MAP154
+ <INTGO>
+ <EMPUU? TYP6 + MAPAP157>
+ <SET INFO9 TYP6>
+ <NTHUU INFO9 1 = TEMP13 (TYPE FIX)>
+ <FRAME '\1aI$PRIN-FIX>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH IOTUP5>
+ <CALL '\1aI$PRIN-FIX 2>
+ <RESTUU INFO9 1 = TEMP13 (TYPE UVECTOR)>
+ <DEAD INFO9>
+ <EMPUU? TEMP13 + PHRASE165 (TYPE UVECTOR)>
+ <DEAD TEMP13>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\ >
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+PHRASE165
+ <RESTUU TYP6 1 = TYP6 (TYPE UVECTOR)>
+ <JUMP + MAP154>
+MAPAP157
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "!]">
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTS 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE151
+ <EQUAL? PTYPE10 'VECTOR - PHRASE169>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\[>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <CHTYPE DATA4 <TYPE-CODE VECTOR> = TYP6>
+ <DEAD DATA4>
+ <LOOP>
+MAP172
+ <INTGO>
+ <EMPUV? TYP6 + MAPAP175>
+ <SET INFO9 TYP6>
+ <NTHUV INFO9 1 = TEMP13>
+ <FRAME '\1aMIMC-PRIN1>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-PRIN1 2>
+ <RESTUV INFO9 1 = INFO9 (TYPE VECTOR)>
+ <EMPUV? INFO9 + PHRASE183 (TYPE VECTOR)>
+ <DEAD INFO9>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\ >
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+PHRASE183
+ <RESTUV TYP6 1 = TYP6 (TYPE VECTOR)>
+ <JUMP + MAP172>
+MAPAP175
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\]>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTC 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE169
+ <EQUAL? DATA4 %<> - PHRASE187>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "%<>">
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTS 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE187
+ <EQUAL? PTYPE10 'GVAL - PHRASE189>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\,>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <FRAME '\1aMIMC-PRIN-ATOM>
+ <CHTYPE DATA4 <TYPE-CODE ATOM> = STACK>
+ <DEAD DATA4>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-PRIN-ATOM 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE189
+ <EQUAL? PTYPE10 'LVAL - PHRASE192>
+ <DEAD PTYPE10>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\.>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <FRAME '\1aMIMC-PRIN-ATOM>
+ <CHTYPE DATA4 <TYPE-CODE ATOM> = STACK>
+ <DEAD DATA4>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-PRIN-ATOM 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE192
+ <TYPE? DATA4 <TYPE-CODE WORD> - PHRASE195>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "#WORD *">
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTS 2>
+ <FRAME '\1aMIMC-PRIN-OCT>
+ <CHTYPE DATA4 <TYPE-CODE FIX> = STACK>
+ <DEAD DATA4>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-PRIN-OCT 2>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\*>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTC 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE195
+ <NTHUV INFO9 1 = TYP6 (TYPE ATOM)>
+ <NTHUV INFO9 2 = TEMP13 (TYPE ATOM)>
+ <VEQUAL? TYP6 TEMP13 - PHRASE199>
+ <DEAD TYP6 TEMP13>
+ <NTHUV IOTUP5 3 = TEMP13 (TYPE STRING)>
+ <NTHUV IOTUP5 4 = TYP6 (TYPE FIX)>
+ <CHANNEL-OP 'DISK 'WRITE-BUFFER CHN11 TEMP13 TYP6>
+ <DEAD TEMP13 TYP6>
+ <CHANNEL-OP 'DISK 'BUFOUT CHN11>
+ <PUTUV IOTUP5 4 0 (TYPE FIX)>
+ <DEAD IOTUP5>
+ <GETS 'BIND = TYP6 (TYPE LBIND)>
+ <BBIND 'OUTCHAN 'CHANNEL 'FIX CHN11>
+ <DEAD CHN11>
+ <FRAME '\1aPRIN1>
+ <PUSH DATA4>
+ <DEAD DATA4>
+ <NTHR 'OUTCHAN 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP13 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP13>
+ <CALL '\1aPRIN1 2 = TEMP13>
+ <UNBIND TYP6>
+ <DEAD TYP6>
+ <ADJ -9>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE199
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\#>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <FRAME '\1aMIMC-PRIN-ATOM>
+ <NTHUV INFO9 1 = STACK (TYPE ATOM)>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-PRIN-ATOM 2>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\ >
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <FRAME '\1aMIMC-PRIN1>
+ <FRAME '\1aCHTYPE>
+ <PUSH DATA4>
+ <DEAD DATA4>
+ <NTHUV INFO9 2 = STACK (TYPE ATOM)>
+ <DEAD INFO9>
+ <CALL '\1aCHTYPE 2 = STACK>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-PRIN1 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aMIMC-PRIN1>
+
+#WORD *33132614537*
+<GFCN \1aI$PRIN-TYPE-W-C ("VALUE" ANY ANY ANY <TUPLE CHANNEL LIST STRING FIX>) DATA4 W-C5 IOTUP6>
+ <TEMP TYOFF8:FIX TEMP11 TEMP18>
+ <INTGO>
+ <TYPE? W-C5 <TYPE-CODE FALSE> + PHRASE10>
+ <TYPEWC DATA4 = TEMP11>
+ <DEAD DATA4>
+ <LSH TEMP11 -6 = TYOFF8 (TYPE FIX)>
+ <DEAD TEMP11>
+ <JUMP + PHRASE12>
+PHRASE10
+ <LSH DATA4 -6 = TYOFF8 (TYPE FIX)>
+ <DEAD DATA4>
+PHRASE12
+ <LESS? TYOFF8 0 + PHRASE14 (TYPE FIX)>
+ <GRTR? TYOFF8 1024 + PHRASE14 (TYPE FIX)>
+ <GVAL 'M$$TYPE-INFO!-INTERNAL = TEMP11>
+ <ADD TYOFF8 1 = TEMP18 (TYPE FIX)>
+ <NTHUV TEMP11 TEMP18 = TEMP11>
+ <DEAD TEMP18>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE14>
+ <TYPE? W-C5 <TYPE-CODE FALSE> + PHRASE20>
+ <DEAD W-C5>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "%<TYPE-W ">
+ <PUSH IOTUP6>
+ <CALL '\1aMIMC-OUTS 2>
+ <JUMP + PHRASE22>
+PHRASE20
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "%<TYPE-C ">
+ <PUSH IOTUP6>
+ <CALL '\1aMIMC-OUTS 2>
+PHRASE22
+ <FRAME '\1aMIMC-PRIN-ATOM>
+ <NTHUV TEMP11 1 = STACK (TYPE ATOM)>
+ <PUSH IOTUP6>
+ <CALL '\1aMIMC-PRIN-ATOM 2>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\ >
+ <PUSH IOTUP6>
+ <CALL '\1aMIMC-OUTC 2>
+ <FRAME '\1aMIMC-PRIN-ATOM>
+ <NTHUV TEMP11 2 = STACK (TYPE ATOM)>
+ <DEAD TEMP11>
+ <PUSH IOTUP6>
+ <CALL '\1aMIMC-PRIN-ATOM 2>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\>>
+ <PUSH IOTUP6>
+ <DEAD IOTUP6>
+ <CALL '\1aMIMC-OUTC 2 = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+PHRASE14
+ <FRAME '\1aERROR>
+ <PUSH 'BAD-TYPE-CODE!-ERRORS>
+ <PUSH TYOFF8>
+ <DEAD TYOFF8>
+ <PUSH 'PRINT>
+ <CALL '\1aERROR 3 = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+ <END \1aI$PRIN-TYPE-W-C>
+#WORD *6637220626*
+<GFCN \1aMIMC-PRIN-OCT ("VALUE" <OR FALSE STRING> FIX <TUPLE CHANNEL LIST STRING FIX>) NUM4 IOTUP5>
+ <TEMP TEMP11>
+ <INTGO>
+ <VEQUAL? NUM4 0 - PHRASE7 (TYPE FIX)>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\0>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTC 2 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE7
+ <FRAME '\1aMIMC-POCT>
+ <PUSH NUM4>
+ <DEAD NUM4>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-POCT 2 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aMIMC-PRIN-OCT>
+#WORD *4312470372*
+<GFCN \1aMIMC-POCT ("VALUE" <OR FALSE STRING> FIX <TUPLE CHANNEL LIST STRING FIX>) X4 IOTUP5>
+ <TEMP TEMP8>
+ <INTGO>
+ <VEQUAL? X4 0 - TAG9 (TYPE FIX)>
+ <RETURN %<>>
+TAG9
+ <FRAME '\1aMIMC-POCT>
+ <LSH X4 -3 = STACK (TYPE FIX)>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-POCT 2>
+ <FRAME '\1aMIMC-OUTC>
+ <AND X4 #WORD *7* = TEMP8>
+ <DEAD X4>
+ <ADD TEMP8 48 = TEMP8 (TYPE FIX)>
+ <CHTYPE TEMP8 <TYPE-CODE CHARACTER> = STACK>
+ <DEAD TEMP8>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTC 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aMIMC-POCT>
+#WORD *37644714216*
+<GFCN \1aI$PRIN-FIX ("VALUE" <OR ATOM FALSE STRING> FIX <TUPLE CHANNEL LIST STRING FIX>) NUM4 IOTUP5>
+ <TEMP TEMP9>
+ <INTGO>
+ <VEQUAL? NUM4 %<CHTYPE <MIN> FIX> - PHRASE7 (TYPE FIX)>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "%<CHTYPE <MIN> FIX>">
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTS 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE7
+ <VEQUAL? NUM4 %<CHTYPE <MAX> FIX> - PHRASE10 (TYPE FIX)>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "%<CHTYPE <MAX> FIX>">
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTS 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE10
+ <VEQUAL? NUM4 -0 - PHRASE12 (TYPE FIX)>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "-0">
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTS 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE12
+ <LESS? NUM4 0 - PHRASE14 (TYPE FIX)>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\->
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <FRAME '\1aI$PRIN-INT>
+ <SUB 0 NUM4 = STACK (TYPE FIX)>
+ <DEAD NUM4>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aI$PRIN-INT 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE14
+ <VEQUAL? NUM4 0 - PHRASE19 (TYPE FIX)>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\0>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTC 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE19
+ <FRAME '\1aI$PRIN-INT>
+ <PUSH NUM4>
+ <DEAD NUM4>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aI$PRIN-INT 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aI$PRIN-FIX>
+#WORD *5606142040*
+<GFCN \1aI$PRIN-INT ("VALUE" <OR FALSE STRING> FIX <TUPLE CHANNEL LIST STRING FIX>) NUM4 IOTUP5>
+ <TEMP TEMP8>
+ <INTGO>
+ <VEQUAL? NUM4 0 - TAG9 (TYPE FIX)>
+ <RETURN %<>>
+TAG9
+ <FRAME '\1aI$PRIN-INT>
+ <DIV NUM4 10 = STACK (TYPE FIX)>
+ <PUSH IOTUP5>
+ <CALL '\1aI$PRIN-INT 2>
+ <FRAME '\1aMIMC-OUTC>
+ <MOD NUM4 10 = TEMP8 (TYPE FIX)>
+ <DEAD NUM4>
+ <ADD TEMP8 48 = TEMP8 (TYPE FIX)>
+ <CHTYPE TEMP8 <TYPE-CODE CHARACTER> = STACK>
+ <DEAD TEMP8>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTC 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aI$PRIN-INT>
+#WORD *4540104330*
+<GFCN \1aI$PRIN-FLOAT ("VALUE" <OR ATOM FALSE STRING> FLOAT <TUPLE CHANNEL LIST STRING FIX>) NUM4 IOTUP5>
+ <TEMP MANT6:FLOAT (EXP7:FIX 0) (SIGD9:FIX 7) (OFFSET10:FIX 1) TEMP13 DIG8:FIX>
+ <INTGO>
+ <SET MANT6 NUM4>
+ <GVAL 'MINFL = TEMP13>
+ <EQUAL? TEMP13 NUM4 - PHRASE12>
+ <DEAD TEMP13>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "%,MINFL">
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTS 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE12
+ <GVAL 'MAXFL = TEMP13>
+ <EQUAL? TEMP13 NUM4 - PHRASE15>
+ <DEAD TEMP13>
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "%,MAXFL">
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aMIMC-OUTS 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE15
+ <LESS? NUM4 0.0 - PHRASE20 (TYPE FLOAT)>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\->
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <SUBF 0.0 NUM4 = NUM4 (TYPE FLOAT)>
+ <SET MANT6 NUM4>
+PHRASE20
+ <LESS? NUM4 10.0 + PHRASE25 (TYPE FLOAT)>
+ <LOOP>
+AGAIN27
+ <INTGO>
+ <DIVF MANT6 10.0 = MANT6 (TYPE FLOAT)>
+ <ADD EXP7 1 = EXP7 (TYPE FIX)>
+ <LESS? MANT6 10.0 - AGAIN27 (TYPE FLOAT)>
+ <JUMP + EXIT34>
+PHRASE25
+ <VEQUAL? NUM4 0.0 - PHRASE30 (TYPE FLOAT)>
+ <SET EXP7 -1 (TYPE FIX)>
+ <JUMP + EXIT34>
+PHRASE30
+ <LESS? NUM4 1.0 - EXIT34 (TYPE FLOAT)>
+ <LOOP>
+AGAIN36
+ <INTGO>
+ <MULF MANT6 10.0 = MANT6 (TYPE FLOAT)>
+ <SUB EXP7 1 = EXP7 (TYPE FIX)>
+ <LESS? MANT6 1.0 + AGAIN36 (TYPE FLOAT)>
+EXIT34
+ <GRTR? EXP7 7 + BOOL41 (TYPE FIX)>
+ <LESS? EXP7 -2 - PHRASE40 (TYPE FIX)>
+BOOL41
+ <FRAME '\1aI$PRIN-INT>
+ <FIX MANT6 = DIG8 (TYPE FIX)>
+ <PUSH DIG8>
+ <PUSH IOTUP5>
+ <CALL '\1aI$PRIN-INT 2>
+ <FRAME '\1aI$PRIN-DEC>
+ <FLOAT DIG8 = TEMP13 (TYPE FLOAT)>
+ <DEAD DIG8>
+ <SUBF MANT6 TEMP13 = STACK (TYPE FLOAT)>
+ <DEAD MANT6 TEMP13>
+ <PUSH SIGD9>
+ <PUSH IOTUP5>
+ <PUSH OFFSET10>
+ <DEAD OFFSET10>
+ <CALL '\1aI$PRIN-DEC 4>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\E>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <GRTR? EXP7 SIGD9 - PHRASE47 (TYPE FIX)>
+ <DEAD SIGD9>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\+>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <FRAME '\1aI$PRIN-INT>
+ <PUSH EXP7>
+ <DEAD EXP7>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aI$PRIN-INT 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE47
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\->
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <FRAME '\1aI$PRIN-INT>
+ <SUB 0 EXP7 = STACK (TYPE FIX)>
+ <DEAD EXP7>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <CALL '\1aI$PRIN-INT 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE40
+ <LESS? EXP7 0 + PHRASE53 (TYPE FIX)>
+ <GRTR? EXP7 7 + PHRASE57 (TYPE FIX)>
+ <SUB 8 EXP7 = OFFSET10 (TYPE FIX)>
+PHRASE57
+ <GVAL 'I$FLOAT-TABLE!-INTERNAL = TEMP13>
+ <NTHUV TEMP13 OFFSET10 = TEMP13 (TYPE FLOAT)>
+ <ADDF TEMP13 NUM4 = TEMP13 (TYPE FLOAT)>
+ <FIX TEMP13 = TEMP13 (TYPE FIX)>
+ <FIX NUM4 = DIG8 (TYPE FIX)>
+ <GRTR? TEMP13 DIG8 - PHRASE59 (TYPE FIX)>
+ <DEAD TEMP13 DIG8>
+ <GVAL 'I$FLOAT-TABLE!-INTERNAL = TEMP13>
+ <NTHUV TEMP13 OFFSET10 = TEMP13 (TYPE FLOAT)>
+ <DEAD OFFSET10>
+ <ADDF TEMP13 NUM4 = NUM4 (TYPE FLOAT)>
+ <DEAD TEMP13>
+ <SET OFFSET10 1 (TYPE FIX)>
+PHRASE59
+ <FRAME '\1aI$PRIN-INT>
+ <FIX NUM4 = DIG8 (TYPE FIX)>
+ <PUSH DIG8>
+ <PUSH IOTUP5>
+ <CALL '\1aI$PRIN-INT 2>
+ <FRAME '\1aI$PRIN-DEC>
+ <FLOAT DIG8 = TEMP13 (TYPE FLOAT)>
+ <DEAD DIG8>
+ <SUBF NUM4 TEMP13 = STACK (TYPE FLOAT)>
+ <DEAD NUM4 TEMP13>
+ <SUB SIGD9 EXP7 = STACK (TYPE FIX)>
+ <DEAD SIGD9 EXP7>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <PUSH OFFSET10>
+ <DEAD OFFSET10>
+ <CALL '\1aI$PRIN-DEC 4 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE53
+ <VEQUAL? NUM4 0.0 + PHRASE65 (TYPE FLOAT)>
+ <GVAL 'I$FLOAT-TABLE!-INTERNAL = TEMP13>
+ <NTHUV TEMP13 8 = TEMP13 (TYPE FLOAT)>
+ <ADDF TEMP13 NUM4 = NUM4 (TYPE FLOAT)>
+ <DEAD TEMP13>
+PHRASE65
+ <SET OFFSET10 1 (TYPE FIX)>
+ <LESS? NUM4 1.0 + PHRASE69 (TYPE FLOAT)>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\1>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <SUBF NUM4 1.0 = NUM4 (TYPE FLOAT)>
+ <JUMP + PHRASE71>
+PHRASE69
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\0>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+PHRASE71
+ <FRAME '\1aI$PRIN-DEC>
+ <PUSH NUM4>
+ <DEAD NUM4>
+ <PUSH SIGD9>
+ <DEAD SIGD9>
+ <PUSH IOTUP5>
+ <DEAD IOTUP5>
+ <PUSH OFFSET10>
+ <DEAD OFFSET10>
+ <CALL '\1aI$PRIN-DEC 4 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aI$PRIN-FLOAT>
+#WORD *20335277425*
+<GFCN \1aI$PRIN-DEC ("VALUE" <OR ATOM STRING> FLOAT FIX <TUPLE CHANNEL LIST STRING FIX> ANY) NUM4 MIN5 IOTUP6 OFFSET7>
+ <TEMP (Z-COUNT8:FIX 0) TEMP15 DIG19:FIX>
+ <INTGO>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\.>
+ <PUSH IOTUP6>
+ <CALL '\1aMIMC-OUTC 2>
+ <VEQUAL? NUM4 0.0 - PHRASE11 (TYPE FLOAT)>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\0>
+ <PUSH IOTUP6>
+ <DEAD IOTUP6>
+ <CALL '\1aMIMC-OUTC 2 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE11
+ <GVAL 'I$FLOAT-TABLE!-INTERNAL = TEMP15>
+ <NTHUV TEMP15 OFFSET7 = TEMP15 (TYPE FLOAT)>
+ <DEAD OFFSET7>
+ <ADDF TEMP15 NUM4 = NUM4 (TYPE FLOAT)>
+ <DEAD TEMP15>
+ <LOOP>
+AGAIN20
+ <INTGO>
+ <MULF NUM4 10.0 = NUM4 (TYPE FLOAT)>
+ <FIX NUM4 = DIG19 (TYPE FIX)>
+ <VEQUAL? DIG19 0 - PHRASE22 (TYPE FIX)>
+ <ADD Z-COUNT8 1 = Z-COUNT8 (TYPE FIX)>
+ <JUMP + PHRASE25>
+PHRASE22
+ <SET Z-COUNT8 0 (TYPE FIX)>
+PHRASE25
+ <FRAME '\1aMIMC-OUTC>
+ <ADD DIG19 48 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = STACK>
+ <DEAD TEMP15>
+ <PUSH IOTUP6>
+ <CALL '\1aMIMC-OUTC 2>
+ <FLOAT DIG19 = TEMP15 (TYPE FLOAT)>
+ <DEAD DIG19>
+ <SUBF NUM4 TEMP15 = NUM4 (TYPE FLOAT)>
+ <DEAD TEMP15>
+ <VEQUAL? NUM4 0.0 + BOOL30 (TYPE FLOAT)>
+ <SUB MIN5 1 = MIN5 (TYPE FIX)>
+ <GRTR? MIN5 0 + AGAIN20 (TYPE FIX)>
+BOOL30
+ <RETURN 'T>
+ <END \1aI$PRIN-DEC>
+#WORD *7212603054*
+<GFCN \1aMIMC-CRLF ("VALUE" <OR FALSE STRING> ANY) IOTUP4>
+ <TEMP TEMP14 TEMP16>
+ <INTGO>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <GVAL 'CRLF-STRING!-INTERNAL = TEMP16>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPTY? TEMP16 + MAPAP9>
+ <NTH1 TEMP16 = TEMP14>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <PUSH IOTUP4>
+ <CALL '\1aMIMC-OUTC 2 = TEMP14>
+ <REST1 TEMP16 = TEMP16>
+ <JUMP + MAP6>
+MAPAP9
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aMIMC-CRLF>
+#WORD *30513736251*
+<GFCN \1aMIMC-PRIN-ATOM ("VALUE" ANY ATOM <TUPLE CHANNEL LIST STRING FIX>) ATM4 IOTUP5>
+ <TEMP SP6 O?7 OB8:LIST TEMP21>
+ <INTGO>
+ <NTHR ATM4 3 = SP6 (RECORD-TYPE ATOM)>
+ <NTHR ATM4 4 = O?7 (RECORD-TYPE ATOM)>
+ <NTHUV IOTUP5 2 = OB8 (TYPE LIST)>
+ <LOOP>
+AGAIN12
+ <INTGO>
+ <FRAME '\1aMIMC-PRIN-ATM>
+ <PUSH SP6>
+ <DEAD SP6>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-PRIN-ATM 2>
+ <TYPE? O?7 <TYPE-CODE FALSE> + PHRASE15>
+ <GVAL 'MIM-OBL = SP6>
+ <EQUAL? SP6 O?7 + PHRASE15>
+ <DEAD SP6>
+ <GVAL 'TMP-OBL = SP6>
+ <EQUAL? SP6 O?7 + PHRASE15>
+ <DEAD SP6>
+ <GVAL 'ROOT-OBL = SP6>
+ <EQUAL? SP6 O?7 + PHRASE15>
+ <DEAD SP6>
+ <SET SP6 OB8>
+ <EMPL? SP6 + TAG18>
+ <LOOP (O?7 VALUE) (SP6 VALUE)>
+TAG19
+ <NTHL SP6 1 = TEMP21>
+ <VEQUAL? TEMP21 O?7 + PHRASE15>
+ <DEAD TEMP21>
+ <RESTL SP6 1 = SP6 (TYPE LIST)>
+ <EMPL? SP6 - TAG19>
+TAG18
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH "!-">
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTS 2>
+ <CHTYPE O?7 <TYPE-CODE ATOM> = ATM4>
+ <DEAD O?7>
+ <NTHR ATM4 3 = SP6 (RECORD-TYPE ATOM)>
+ <NTHR ATM4 4 = O?7 (RECORD-TYPE ATOM)>
+ <JUMP + AGAIN12>
+PHRASE15
+ <TYPE? O?7 <TYPE-CODE FALSE> + TAG24>
+ <DEAD O?7>
+ <RETURN %<>>
+TAG24
+ <FRAME '\1aERROR>
+ <PUSH 'CANT-PRINT-ATOM!-ERRORS>
+ <PUSH ATM4>
+ <DEAD ATM4>
+ <CALL '\1aERROR 2 = O?7>
+ <RETURN O?7>
+ <DEAD O?7>
+ <END \1aMIMC-PRIN-ATOM>
+#WORD *33034531413*
+<GFCN \1aMIMC-PRIN-ATM ("VALUE" <OR FALSE STRING> STRING ANY) STR4 IOTUP5>
+ <TEMP FSM6 CSTATE7:BYTES TR-TABLE9:BYTES TEMP19:STRING CHR24 CTRANS8:FIX>
+ <INTGO>
+ <GVAL 'I$ATM-FSM!-INTERNAL = FSM6>
+ <NTHUV FSM6 1 = CSTATE7 (TYPE BYTES)>
+ <GVAL 'I$TRANS-TABLE!-INTERNAL = TR-TABLE9>
+ <SET TEMP19 STR4 (TYPE STRING)>
+ <LOOP>
+MAP14
+ <INTGO>
+ <EMPUS? TEMP19 + MAPAP17>
+ <NTHUS TEMP19 1 = CHR24>
+ <ADD CHR24 1 = CHR24 (TYPE FIX)>
+ <NTHUB TR-TABLE9 CHR24 = CTRANS8 (TYPE FIX)>
+ <DEAD CHR24>
+ <LESS? CTRANS8 17 + PHRASE33 (TYPE FIX)>
+ <SUB CTRANS8 17 = CHR24 (TYPE FIX)>
+ <DEAD CTRANS8>
+ <ADD CHR24 1 = CTRANS8 (TYPE FIX)>
+ <DEAD CHR24>
+ <NTHUB CSTATE7 CTRANS8 = CTRANS8 (TYPE FIX)>
+ <GRTR? CTRANS8 9 + PHRASE29 (TYPE FIX)>
+ <NTHUV FSM6 CTRANS8 = CSTATE7 (TYPE BYTES)>
+ <JUMP + PHRASE31>
+PHRASE29
+ <VEQUAL? CTRANS8 10 + PHRASE33 (TYPE FIX)>
+ <JUMP + MAPAP17>
+PHRASE31
+ <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
+ <JUMP + MAP14>
+MAPAP17
+ <GRTR? CTRANS8 9 + BOOL34 (TYPE FIX)>
+ <DEAD CTRANS8>
+ <NTHUB CSTATE7 6 = FSM6 (TYPE FIX)>
+ <DEAD CSTATE7>
+ <VEQUAL? FSM6 10 + PHRASE33 (TYPE FIX)>
+ <DEAD FSM6>
+BOOL34
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\\>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+PHRASE33
+ <SET CHR24 %<> (TYPE FALSE)>
+ <SET FSM6 STR4 (TYPE STRING)>
+ <DEAD STR4>
+ <LOOP>
+MAP37
+ <INTGO>
+ <EMPUS? FSM6 + MAPAP40>
+ <NTHUS FSM6 1 = CHR24>
+ <ADD CHR24 1 = CTRANS8 (TYPE FIX)>
+ <NTHUB TR-TABLE9 CTRANS8 = CTRANS8 (TYPE FIX)>
+ <GRTR? CTRANS8 13 - BOOL47 (TYPE FIX)>
+ <VEQUAL? CTRANS8 15 - PHRASE46 (TYPE FIX)>
+ <DEAD CTRANS8>
+BOOL47
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\\>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+PHRASE46
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH CHR24>
+ <DEAD CHR24>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2 = CHR24>
+ <RESTUS FSM6 1 = FSM6 (TYPE STRING)>
+ <JUMP + MAP37>
+MAPAP40
+ <RETURN CHR24>
+ <DEAD CHR24>
+ <END \1aMIMC-PRIN-ATM>
+#WORD *12401125504*
+<GFCN \1aMIMC-OUTC ("VALUE" STRING ANY <TUPLE CHANNEL LIST STRING FIX>) CHR4 IOTUP5>
+ <TEMP TEMP9 TEMP10:STRING>
+ <INTGO>
+ <NTHUV IOTUP5 4 = TEMP9 (TYPE FIX)>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <GRTR? TEMP9 1024 - PHRASE8 (TYPE FIX)>
+ <NTHUV IOTUP5 1 = TEMP9 (TYPE CHANNEL)>
+ <NTHUV IOTUP5 3 = TEMP10 (TYPE STRING)>
+ <CHANNEL-OP 'DISK 'WRITE-BUFFER TEMP9 TEMP10>
+ <DEAD TEMP9 TEMP10>
+ <SET TEMP9 1 (TYPE FIX)>
+PHRASE8
+ <PUTUV IOTUP5 4 TEMP9 (TYPE FIX)>
+ <NTHUV IOTUP5 3 = TEMP10 (TYPE STRING)>
+ <DEAD IOTUP5>
+ <PUTUS TEMP10 TEMP9 CHR4>
+ <DEAD TEMP9 CHR4>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aMIMC-OUTC>
+#WORD *1062760350*
+<GFCN \1aMIMC-OUTS ("VALUE" ATOM ANY <TUPLE CHANNEL LIST STRING FIX>) STR4 IOTUP5>
+ <TEMP LNT6 BUF7:STRING TEMP16>
+ <INTGO>
+ <NTHUV IOTUP5 4 = LNT6 (TYPE FIX)>
+ <NTHUV IOTUP5 3 = BUF7 (TYPE STRING)>
+ <LOOP>
+AGAIN11
+ <INTGO>
+ <EMPTY? STR4 - PHRASE13>
+ <PUTUV IOTUP5 4 LNT6 (TYPE FIX)>
+ <DEAD IOTUP5 LNT6>
+ <RETURN 'T>
+PHRASE13
+ <ADD LNT6 1 = LNT6 (TYPE FIX)>
+ <GRTR? LNT6 1024 - PHRASE15 (TYPE FIX)>
+ <NTHUV IOTUP5 1 = TEMP16 (TYPE CHANNEL)>
+ <CHANNEL-OP 'DISK 'WRITE-BUFFER TEMP16 BUF7>
+ <DEAD TEMP16>
+ <SET LNT6 1 (TYPE FIX)>
+PHRASE15
+ <NTH1 STR4 = TEMP16>
+ <PUTUS BUF7 LNT6 TEMP16>
+ <DEAD TEMP16>
+ <REST1 STR4 = STR4>
+ <JUMP + AGAIN11>
+ <END \1aMIMC-OUTS>
+#WORD *37277362460*
+<GFCN \1aIDUMP-CODE ("VALUE" <OR FALSE STRING> LIST TUPLE) L4 IOTUP5>
+ <TEMP TEMP15 TEMP12:LIST TEMP31:LIST YP36:LIST>
+ <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 ATOM> - PHRASE19>
+ <FRAME '\1aMIMC-PRIN-ATOM>
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-PRIN-ATOM 2>
+ <FRAME '\1aMIMC-CRLF>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-CRLF 1 = TEMP15>
+ <JUMP + PHRASE22>
+PHRASE19
+ <FRAME '\1aMIMC-OUTS>
+ <PUSH " ">
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTS 2>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\<>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <CHTYPE TEMP15 <TYPE-CODE LIST> = TEMP31>
+ <DEAD TEMP15>
+ <LOOP>
+MAP26
+ <INTGO>
+ <EMPL? TEMP31 + MAPAP29>
+ <SET YP36 TEMP31>
+ <NTHL YP36 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE ATOM> - PHRASE40>
+ <FRAME '\1aMIMC-PRIN-ATOM>
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-PRIN-ATOM 2>
+ <JUMP + PHRASE42>
+PHRASE40
+ <FRAME '\1aMIMC-PRIN1>
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-PRIN1 2>
+PHRASE42
+ <RESTL YP36 1 = YP36 (TYPE LIST)>
+ <EMPL? YP36 + PHRASE45 (TYPE LIST)>
+ <DEAD YP36>
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\ >
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+PHRASE45
+ <RESTL TEMP31 1 = TEMP31 (TYPE LIST)>
+ <JUMP + MAP26>
+MAPAP29
+ <FRAME '\1aMIMC-OUTC>
+ <PUSH !\>>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-OUTC 2>
+ <FRAME '\1aMIMC-CRLF>
+ <PUSH IOTUP5>
+ <CALL '\1aMIMC-CRLF 1 = TEMP15>
+PHRASE22
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aIDUMP-CODE>
+#WORD *36353064334*
+<GFCN \1aDUMP-CODE ("VALUE" ATOM ANY ANY ANY) L4 CH5 OBL6>
+ <TEMP IOTUP7 TEMP10:CHANNEL TEMP11>
+ <INTGO>
+ <PUSH CH5>
+ <DEAD CH5>
+ <PUSH OBL6>
+ <DEAD OBL6>
+ <GVAL 'BUFFER = STACK>
+ <PUSH 0>
+ <TUPLE 4 = IOTUP7 (TYPE TUPLE)>
+ <FRAME '\1aIDUMP-CODE>
+ <PUSH L4>
+ <DEAD L4>
+ <PUSH IOTUP7>
+ <CALL '\1aIDUMP-CODE 2>
+ <NTHUV IOTUP7 1 = TEMP10 (TYPE CHANNEL)>
+ <NTHUV IOTUP7 3 = TEMP11>
+ <NTHUV IOTUP7 4 = IOTUP7>
+ <CHANNEL-OP 'DISK 'WRITE-BUFFER TEMP10 TEMP11 IOTUP7>
+ <DEAD TEMP10 TEMP11 IOTUP7>
+ <ADJ -10>
+ <RETURN 'T>
+ <END \1aDUMP-CODE>
+<ENDPACKAGE>
\ No newline at end of file
projects / pdp10-muddle.git / blobdiff