2 <PACKAGE "MIMC-GRDUMP">
4 <ENTRY MIMC-GROUP-DUMP DUMP-CODE>
6 <USE "COMFIL" "COMPDEC" "HASH">
22 <MSETG M$$TYPE-INFO-SIZE 1024>
34 <MSETG BACK-SLASH <ASCII 92>>
38 <SETG M$$FS-NOSLASH <+ ,M$$FS-NSTATE 1>>
40 <SETG M$$FS-SLASH1 <+ ,M$$FS-NSTATE 2>>
42 <SETG M$$FS-SLASH2 <+ ,M$$FS-NSTATE 3>>
46 <MANIFEST M$$FS-NSTATE M$$FS-NOSLASH M$$FS-SLASH1 M$$FS-SLASH2 M$$END-STATE>
48 <GDECL (BUFFER) STRING (I$FLOAT-TABLE!-INTERNAL) <VECTOR [REST FLOAT]> (M$$TYPE-INFO!-INTERNAL) <VECTOR [REST <OR TYPE-ENTRY FALSE>]>>
52 <SETG M$$R-MIN-NUM-PART 17>
54 <SETG M$$R-MAX-ATM-BRK 13>
56 <MANIFEST M$$R-MAX-ATM-BRK M$$R-BACKS M$$R-MIN-NUM-PART>
58 <SETG BUFFER <ISTRING ,BUFLNT>>
60 <SETG ROOT-OBL <ROOT>>
63 <FCN
\1aMIMC-GROUP-DUMP ("VALUE" <OR ATOM FALSE> STRING ATOM ANY) STR4 NAM5 TEMPCH6>
64 <TEMP (OUTCHAN7 'DEFINE) OBL11 OOBLIST12 IOTUP14:TUPLE TEMP3:LBIND TEMP31 TEMP40 TEMP54 THIS-FORM20 FUNC17 TEM46 TEMP67 BUF80>
66 <GEN-LVAL 'OBLIST = OUTCHAN7>
67 <EMPL? OUTCHAN7 - PHRASE22 (TYPE LIST)>
69 <SET OUTCHAN7 'FULL-OBL (TYPE ATOM)>
72 <SET OUTCHAN7 'BLOCK (TYPE ATOM)>
76 <GEN-LVAL 'OBLIST = OOBLIST12>
79 <GVAL 'BUFFER = STACK>
81 <TUPLE 4 = IOTUP14 (TYPE TUPLE)>
82 <GETS 'BIND = TEMP3 (TYPE LBIND)>
83 <LOCATION + TAG29 = OUTCHAN7>
84 <CFRAME = TEMP31 (TYPE FRAME)>
85 <BBIND 'UNWIND OUTCHAN7 'FIX TEMP31>
86 <DEAD OUTCHAN7 TEMP31>
91 <CALL '
\1aOPEN 2 = OUTCHAN7>
92 <TYPE? OUTCHAN7 <TYPE-CODE FALSE> + EXIT33>
96 <CFRAME = STACK (TYPE FRAME)>
97 <CALL '
\1aGETPROP 3 = TEMP31>
98 <CFRAME = TEMP40 (TYPE FRAME)>
99 <EQUAL? TEMP40 TEMP31 - TAG41>
101 <SET TEMP31 OOBLIST12>
104 <PUTUV IOTUP14 1 OUTCHAN7>
105 <PUTUV IOTUP14 2 TEMP31>
106 <GEN-LVAL NAM5 = TEMP40>
110 <EMPL? TEMP40 + EXIT44 (TYPE LIST)>
111 <SET OOBLIST12 %<> (TYPE FALSE)>
112 <NTHL TEMP40 1 = TEMP54>
113 <TYPE? TEMP54 <TYPE-CODE FORM> - PHRASE52>
115 <NTHL TEMP40 1 = THIS-FORM20 (TYPE FORM)>
116 <EMPL? THIS-FORM20 + PHRASE52>
117 <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
118 <EMPL? TEMP54 + PHRASE52>
120 <NTHL THIS-FORM20 1 = TEMP54>
121 <EQUAL? TEMP54 'DEFINE + BOOL55>
123 <NTHL THIS-FORM20 1 = TEMP54>
124 <EQUAL? TEMP54 'DEFMAC - PHRASE52>
126 <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
127 <NTHL TEMP54 1 = OOBLIST12>
129 <TYPE? OOBLIST12 <TYPE-CODE FALSE> + PHRASE52>
132 <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
133 <NTHL TEMP54 1 = STACK>
136 <CFRAME = STACK (TYPE FRAME)>
137 <CALL '
\1aGETPROP 3 = FUNC17>
138 <CFRAME = TEMP54 (TYPE FRAME)>
139 <EQUAL? TEMP54 FUNC17 - TAG58>
141 <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
142 <NTHL TEMP54 1 = FUNC17>
145 <TYPE? FUNC17 <TYPE-CODE ATOM> - PHRASE52>
146 <NTHR FUNC17 1 = TEMP54 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE125)>
147 <TYPE? TEMP54 <TYPE-CODE FALSE> + PHRASE125>
148 <NTHR TEMP54 1 = TEMP54 (RECORD-TYPE GBIND)>
149 <TYPE? TEMP54 <TYPE-CODE UNBOUND> + PHRASE125>
151 <GVAL FUNC17 = TEM46>
152 <TYPE? TEM46 <TYPE-CODE FUNCTION> - PHRASE62>
153 <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
154 <CHTYPE TEMP54 <TYPE-CODE LIST> = TEMP54>
155 <PUTREST TEMP54 TEM46>
157 <FRAME '
\1aMIMC-PRINT>
161 <CALL '
\1aMIMC-PRINT 2>
162 <FRAME '
\1aMIMC-CRLF>
164 <CALL '
\1aMIMC-CRLF 1>
167 <TYPE? TEM46 <TYPE-CODE MACRO> - PHRASE65>
168 <EMPL? TEM46 + PHRASE65 (TYPE MACRO)>
169 <NTHL TEM46 1 = TEMP54>
170 <TYPE? TEMP54 <TYPE-CODE FUNCTION> - PHRASE65>
172 <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
173 <CHTYPE TEMP54 <TYPE-CODE LIST> = TEMP54>
174 <NTHL TEM46 1 = TEMP67 (TYPE FUNCTION)>
176 <PUTREST TEMP54 TEMP67>
178 <FRAME '
\1aMIMC-PRINT>
182 <CALL '
\1aMIMC-PRINT 2>
183 <FRAME '
\1aMIMC-CRLF>
185 <CALL '
\1aMIMC-CRLF 1>
188 <TYPE? TEM46 <TYPE-CODE INS-LIST> + TAG71>
189 <TYPE? TEM46 <TYPE-CODE ACCESS-LIST> - PHRASE70>
191 <TYPE? TEM46 <TYPE-CODE ACCESS-LIST> - PHRASE73>
193 <NTHL TEM46 1 = THIS-FORM20>
195 <RESTL TEM46 1 = TEMP54 (TYPE LIST)>
196 <NTHL TEMP54 1 = STACK (TYPE FIX)>
199 <FRAME '
\1aMIMC-PRINT>
200 <RESTL TEM46 1 = TEMP54 (TYPE LIST)>
201 <RESTL TEMP54 1 = TEMP54 (TYPE LIST)>
202 <RESTL TEMP54 1 = TEMP54 (TYPE LIST)>
203 <NTHL TEMP54 1 = TEMP54>
204 <CHTYPE TEMP54 <TYPE-CODE WORD> = STACK>
207 <CALL '
\1aMIMC-PRINT 2>
208 <FRAME '
\1aMIMC-CRLF>
210 <CALL '
\1aMIMC-CRLF 1>
211 <NTHUV IOTUP14 3 = TEMP54>
212 <NTHUV IOTUP14 4 = TEMP67>
213 <CHANNEL-OP 'DISK 'WRITE-BUFFER OUTCHAN7 TEMP54 TEMP67>
216 <RESTL TEM46 1 = TEMP54 (TYPE LIST)>
217 <RESTL TEMP54 1 = TEMP54 (TYPE LIST)>
218 <NTHL TEMP54 1 = TEMP54 (TYPE FIX)>
219 <RESTL TEM46 1 = TEMP67 (TYPE LIST)>
220 <NTHL TEMP67 1 = TEMP67 (TYPE FIX)>
221 <SUB TEMP54 TEMP67 = TEMP54 (TYPE FIX)>
223 <NTHUV IOTUP14 3 = BUF80>
227 <GRTR? TEMP54 1024 - PHRASE83 (TYPE FIX)>
228 <FRAME '
\1aCHANNEL-OP>
232 <CALL '
\1aCHANNEL-OP 3>
233 <CHANNEL-OP 'DISK 'WRITE-BUFFER OUTCHAN7 BUF80>
236 <FRAME '
\1aCHANNEL-OP>
242 <CALL '
\1aCHANNEL-OP 4>
243 <CHANNEL-OP 'DISK 'WRITE-BUFFER OUTCHAN7 BUF80 TEMP54>
247 <CALL '
\1aLENGTH 1 = TEMP67>
248 <GRTR? TEMP67 4 - PHRASE96 (TYPE FIX)>
254 <CALL '
\1aNTH 2 = TEM46>
258 <CALL '
\1aNTH 2 = TEMP67>
262 <CALL '
\1aNTH 2 = TEMP54>
263 <SUB TEMP67 TEMP54 = TEMP67 (TYPE FIX)>
265 <SUB TEMP67 -1 = TEMP54 (TYPE FIX)>
268 <NTH1 TEM46 = THIS-FORM20>
273 <CALL '
\1aNTH 2 = STACK>
277 <SUB TEMP54 1024 = TEMP54 (TYPE FIX)>
280 <FRAME '
\1aMIMC-PRINT>
281 <NTHL TEM46 1 = TEMP67>
282 <CHTYPE TEMP67 <TYPE-CODE WORD> = STACK>
285 <CALL '
\1aMIMC-PRINT 2>
286 <FRAME '
\1aMIMC-CRLF>
288 <CALL '
\1aMIMC-CRLF 1>
289 <FRAME '
\1aIDUMP-CODE>
290 <RESTL TEM46 1 = TEMP67 (TYPE LIST)>
292 <CHTYPE TEMP67 <TYPE-CODE LIST> = STACK>
295 <CALL '
\1aIDUMP-CODE 2>
297 <TYPE? OOBLIST12 <TYPE-CODE FALSE> + PHRASE125>
299 <FRAME '
\1aMIMC-OUTS>
300 <PUSH "<COND (<AND <GASSIGNED? ">
302 <CALL '
\1aMIMC-OUTS 2>
303 <FRAME '
\1aMIMC-PRIN-ATOM>
306 <CALL '
\1aMIMC-PRIN-ATOM 2>
307 <FRAME '
\1aMIMC-OUTS>
308 <PUSH "> <NOT <TYPE? ,">
310 <CALL '
\1aMIMC-OUTS 2>
311 <FRAME '
\1aMIMC-PRIN-ATOM>
314 <CALL '
\1aMIMC-PRIN-ATOM 2>
315 <FRAME '
\1aMIMC-OUTS>
316 <PUSH " MACRO>>> <SETG ">
318 <CALL '
\1aMIMC-OUTS 2>
319 <FRAME '
\1aMIMC-PRIN-ATOM>
322 <CALL '
\1aMIMC-PRIN-ATOM 2>
323 <FRAME '
\1aMIMC-OUTS>
326 <CALL '
\1aMIMC-OUTS 2>
327 <FRAME '
\1aMIMC-PRIN-ATOM>
331 <CALL '
\1aMIMC-PRIN-ATOM 2>
332 <FRAME '
\1aMIMC-OUTS>
335 <CALL '
\1aMIMC-OUTS 2>
336 <FRAME '
\1aMIMC-CRLF>
338 <CALL '
\1aMIMC-CRLF 1>
343 <RESTL THIS-FORM20 1 = TEMP54 (TYPE LIST)>
345 <NTHL TEMP54 1 = STACK>
349 <GVAL FUNC17 = STACK>
351 <CALL '
\1aFORM 2 = STACK>
352 <CALL '
\1aFORM 3 = THIS-FORM20>
353 <FRAME '
\1aMIMC-PRINT>
357 <CALL '
\1aMIMC-PRINT 2>
358 <FRAME '
\1aMIMC-CRLF>
360 <CALL '
\1aMIMC-CRLF 1>
363 <NTHL TEMP40 1 = OOBLIST12>
364 <MONAD? OOBLIST12 - TAG120>
366 <SET TEMP54 'T (TYPE ATOM)>
369 <SET TEMP54 %<> (TYPE FALSE)>
371 <VEQUAL? TEMP54 0 + PHRASE119>
373 <FRAME '
\1aMIMC-PRINT>
374 <NTHL TEMP40 1 = STACK>
376 <CALL '
\1aMIMC-PRINT 2>
377 <FRAME '
\1aMIMC-CRLF>
379 <CALL '
\1aMIMC-CRLF 1>
382 <FRAME '
\1aMIMC-PRINT>
383 <NTHL TEMP40 1 = STACK>
385 <CALL '
\1aMIMC-PRINT 2>
386 <FRAME '
\1aMIMC-CRLF>
388 <CALL '
\1aMIMC-CRLF 1>
393 <CFRAME = STACK (TYPE FRAME)>
394 <CALL '
\1aGETPROP 3 = TEMP54>
395 <CFRAME = OOBLIST12 (TYPE FRAME)>
396 <EQUAL? OOBLIST12 TEMP54 - TAG129>
403 <PUTUV IOTUP14 2 TEMP31>
404 <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
407 <NTHUV IOTUP14 4 = TEMP54>
408 <EQUAL? TEMP54 0 + PHRASE131>
410 <NTHUV IOTUP14 3 = TEMP54>
411 <NTHUV IOTUP14 4 = OOBLIST12>
412 <CHANNEL-OP 'DISK 'WRITE-BUFFER OUTCHAN7 TEMP54 OOBLIST12>
413 <DEAD OUTCHAN7 TEMP54 OOBLIST12>
416 <NTHUV IOTUP14 1 = STACK (TYPE CHANNEL)>
422 <NTHR 'UNWIND 2 = OOBLIST12 (RECORD-TYPE ATOM) (TYPE LBIND)>
423 <PUTR OOBLIST12 1 0 (RECORD-TYPE LBIND)>
427 <TYPE? OUTCHAN7 <TYPE-CODE UNBOUND> + UNWCONT>
428 <TYPE? OUTCHAN7 <TYPE-CODE CHANNEL> - UNWCONT>
439 <END
\1aMIMC-GROUP-DUMP>
\r\r
441 <GFCN
\1aMIMC-PRINT ("VALUE" ANY ANY ANY) OBJ4 IOTUP5>
444 <FRAME '
\1aMIMC-CRLF>
446 <CALL '
\1aMIMC-CRLF 1>
447 <FRAME '
\1aMIMC-PRIN1>
452 <CALL '
\1aMIMC-PRIN1 2 = TEMP8>
457 <GFCN
\1aMIMC-PRIN1 ("VALUE" ANY ANY <TUPLE <CHANNEL 'DISK> LIST STRING FIX>) DATA4 IOTUP5>
458 <TEMP TYP6 TEMP13 INFO9 PTYPE10 CHN11:CHANNEL>
461 <LSH TYP6 -6 = TYP6 (TYPE FIX)>
462 <GVAL 'M$$TYPE-INFO!-INTERNAL = TEMP13>
463 <ADD TYP6 1 = TYP6 (TYPE FIX)>
464 <NTHUV TEMP13 TYP6 = INFO9 (TYPE TYPE-ENTRY)>
466 <NTHUV INFO9 5 = PTYPE10>
467 <NTHUV IOTUP5 1 = CHN11 (TYPE CHANNEL)>
468 <TYPE? PTYPE10 <TYPE-CODE FALSE> + PHRASE16>
469 <TYPE? PTYPE10 <TYPE-CODE ATOM> + PHRASE16>
470 <TYPE? DATA4 <TYPE-CODE ATOM> - BOOL18>
471 <SET PTYPE10 'ATOM (TYPE ATOM)>
474 <TYPE? DATA4 <TYPE-CODE FCN-ATOM> - BOOL19>
475 <SET PTYPE10 'ATOM (TYPE ATOM)>
478 <NTHUV IOTUP5 3 = TYP6 (TYPE STRING)>
479 <NTHUV IOTUP5 4 = TEMP13 (TYPE FIX)>
480 <CHANNEL-OP 'DISK 'WRITE-BUFFER CHN11 TYP6 TEMP13>
482 <CHANNEL-OP 'DISK 'BUFOUT CHN11>
483 <PUTUV IOTUP5 4 0 (TYPE FIX)>
485 <GETS 'BIND = TYP6 (TYPE LBIND)>
486 <BBIND 'OUTCHAN 'CHANNEL 'FIX CHN11>
492 <CHANNEL-OP 'DISK 'BUFOUT CHN11 = TEMP13>
500 <EQUAL? PTYPE10 'ATOM - PHRASE24>
501 <TYPE? DATA4 <TYPE-CODE FCN-ATOM> - PHRASE26>
502 <NTHR 'CTLZ-PRINT 1 = TYP6 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE26)>
503 <TYPE? TYP6 <TYPE-CODE FALSE> + PHRASE26>
504 <NTHR TYP6 1 = TYP6 (RECORD-TYPE GBIND)>
505 <TYPE? TYP6 <TYPE-CODE UNBOUND> + PHRASE26>
507 <GVAL 'CTLZ-PRINT = TYP6>
508 <TYPE? TYP6 <TYPE-CODE FALSE> + PHRASE26>
510 <FRAME '
\1aMIMC-OUTC>
513 <CALL '
\1aMIMC-OUTC 2>
515 <FRAME '
\1aMIMC-PRIN-ATOM>
516 <CHTYPE DATA4 <TYPE-CODE ATOM> = STACK>
520 <CALL '
\1aMIMC-PRIN-ATOM 2 = TEMP13>
524 <EQUAL? PTYPE10 'FIX - PHRASE30>
525 <FRAME '
\1aI$PRIN-FIX>
530 <CALL '
\1aI$PRIN-FIX 2 = TEMP13>
534 <EQUAL? PTYPE10 'FLOAT - PHRASE32>
535 <FRAME '
\1aI$PRIN-FLOAT>
540 <CALL '
\1aI$PRIN-FLOAT 2 = TEMP13>
544 <EQUAL? PTYPE10 'STRING - PHRASE34>
545 <FRAME '
\1aMIMC-OUTC>
548 <CALL '
\1aMIMC-OUTC 2>
549 <CHTYPE DATA4 <TYPE-CODE STRING> = TYP6>
554 <EMPUS? TYP6 + MAPAP40>
555 <NTHUS TYP6 1 = TEMP13>
556 <VEQUAL? TEMP13 !\" + BOOL50>
557 <VEQUAL? TEMP13 !\\ - PHRASE49>
559 <FRAME '
\1aMIMC-OUTC>
562 <CALL '
\1aMIMC-OUTC 2>
564 <FRAME '
\1aMIMC-OUTC>
568 <CALL '
\1aMIMC-OUTC 2>
569 <RESTUS TYP6 1 = TYP6 (TYPE STRING)>
572 <FRAME '
\1aMIMC-OUTC>
576 <CALL '
\1aMIMC-OUTC 2 = TEMP13>
580 <EQUAL? PTYPE10 'BYTES - PHRASE54>
581 <FRAME '
\1aMIMC-OUTS>
584 <CALL '
\1aMIMC-OUTS 2>
585 <CHTYPE DATA4 <TYPE-CODE BYTES> = TYP6>
590 <EMPUB? TYP6 + MAPAP60>
592 <NTHUB INFO9 1 = TEMP13 (TYPE FIX)>
593 <FRAME '
\1aI$PRIN-FIX>
597 <CALL '
\1aI$PRIN-FIX 2>
598 <RESTUB INFO9 1 = INFO9 (TYPE BYTES)>
599 <EMPUB? INFO9 + PHRASE69 (TYPE BYTES)>
601 <FRAME '
\1aMIMC-OUTC>
604 <CALL '
\1aMIMC-OUTC 2>
606 <RESTUB TYP6 1 = TYP6 (TYPE BYTES)>
609 <FRAME '
\1aMIMC-OUTS>
613 <CALL '
\1aMIMC-OUTS 2 = TEMP13>
617 <EQUAL? PTYPE10 'CHARACTER - PHRASE73>
618 <GRTR? DATA4 127 + BOOL76 (TYPE FIX)>
619 <LESS? DATA4 0 - PHRASE75 (TYPE FIX)>
621 <FRAME '
\1aMIMC-OUTS>
622 <PUSH "#CHARACTER *">
624 <CALL '
\1aMIMC-OUTS 2>
625 <FRAME '
\1aMIMC-PRIN-OCT>
626 <CHTYPE DATA4 <TYPE-CODE FIX> = STACK>
629 <CALL '
\1aMIMC-PRIN-OCT 2>
630 <FRAME '
\1aMIMC-OUTC>
634 <CALL '
\1aMIMC-OUTC 2 = TEMP13>
638 <FRAME '
\1aMIMC-OUTS>
641 <CALL '
\1aMIMC-OUTS 2>
642 <FRAME '
\1aMIMC-OUTC>
647 <CALL '
\1aMIMC-OUTC 2 = TEMP13>
651 <EQUAL? PTYPE10 'ADECL - PHRASE85>
652 <FRAME '
\1aMIMC-PRIN1>
653 <NTHUV DATA4 1 = STACK>
655 <CALL '
\1aMIMC-PRIN1 2>
656 <FRAME '
\1aMIMC-OUTC>
659 <CALL '
\1aMIMC-OUTC 2>
660 <FRAME '
\1aMIMC-PRIN1>
661 <NTHUV DATA4 2 = STACK>
665 <CALL '
\1aMIMC-PRIN1 2 = TEMP13>
669 <EQUAL? PTYPE10 'FORM + BOOL91>
670 <EQUAL? PTYPE10 'SEGMENT - PHRASE89>
672 <EMPL? DATA4 + PHRASE89>
673 <RESTL DATA4 1 = TYP6 (TYPE LIST)>
674 <EMPL? TYP6 + PHRASE89>
675 <RESTL TYP6 1 = TYP6 (TYPE LIST)>
676 <EMPL? TYP6 - PHRASE89>
678 <NTHL DATA4 1 = TEMP13>
679 <EQUAL? TEMP13 'LVAL - BOOL93>
680 <SET TEMP13 !\. (TYPE CHARACTER)>
683 <EQUAL? TEMP13 'GVAL - BOOL94>
684 <SET TEMP13 !\, (TYPE CHARACTER)>
687 <EQUAL? TEMP13 'QUOTE - PHRASE89>
689 <SET TEMP13 !\' (TYPE CHARACTER)>
691 <EQUAL? PTYPE10 'SEGMENT - PHRASE97>
693 <FRAME '
\1aMIMC-OUTC>
696 <CALL '
\1aMIMC-OUTC 2>
698 <FRAME '
\1aMIMC-OUTC>
702 <CALL '
\1aMIMC-OUTC 2>
703 <FRAME '
\1aMIMC-PRIN1>
704 <RESTL DATA4 1 = TYP6 (TYPE LIST)>
706 <NTHL TYP6 1 = STACK>
710 <CALL '
\1aMIMC-PRIN1 2 = TEMP13>
714 <EQUAL? PTYPE10 'FORM - BOOL103>
715 <FRAME '
\1aMIMC-OUTC>
718 <CALL '
\1aMIMC-OUTC 2>
721 <EQUAL? PTYPE10 'LIST - BOOL105>
722 <FRAME '
\1aMIMC-OUTC>
725 <CALL '
\1aMIMC-OUTC 2>
728 <EQUAL? PTYPE10 'SEGMENT - PHRASE101>
729 <FRAME '
\1aMIMC-OUTS>
732 <CALL '
\1aMIMC-OUTS 2>
734 <CHTYPE DATA4 <TYPE-CODE LIST> = TYP6>
739 <EMPL? TYP6 + MAPAP113>
741 <NTHL INFO9 1 = TEMP13>
742 <FRAME '
\1aMIMC-PRIN1>
746 <CALL '
\1aMIMC-PRIN1 2>
747 <RESTL INFO9 1 = INFO9 (TYPE LIST)>
748 <EMPL? INFO9 + PHRASE121 (TYPE LIST)>
750 <FRAME '
\1aMIMC-OUTC>
753 <CALL '
\1aMIMC-OUTC 2>
755 <RESTL TYP6 1 = TYP6 (TYPE LIST)>
758 <EQUAL? PTYPE10 'LIST + PHRASE125>
760 <FRAME '
\1aMIMC-OUTC>
764 <CALL '
\1aMIMC-OUTC 2 = TEMP13>
768 <FRAME '
\1aMIMC-OUTC>
772 <CALL '
\1aMIMC-OUTC 2 = TEMP13>
776 <EQUAL? PTYPE10 'OFFSET - PHRASE129>
777 <FRAME '
\1aMIMC-OUTS>
780 <CALL '
\1aMIMC-OUTS 2>
781 <FRAME '
\1aI$PRIN-FIX>
782 <NTHUV DATA4 1 = STACK (TYPE FIX)>
784 <CALL '
\1aI$PRIN-FIX 2>
785 <NTHUV DATA4 2 = TEMP13>
786 <TYPE? TEMP13 <TYPE-CODE ATOM> - PHRASE133>
787 <FRAME '
\1aMIMC-OUTC>
790 <CALL '
\1aMIMC-OUTC 2>
791 <FRAME '
\1aMIMC-PRIN-ATOM>
795 <CALL '
\1aMIMC-PRIN-ATOM 2>
798 <FRAME '
\1aMIMC-OUTS>
801 <CALL '
\1aMIMC-OUTS 2>
802 <FRAME '
\1aMIMC-PRIN1>
806 <CALL '
\1aMIMC-PRIN1 2>
808 <NTHUV DATA4 3 = TEMP13>
810 <TYPE? TEMP13 <TYPE-CODE ATOM> - PHRASE140>
811 <FRAME '
\1aMIMC-OUTC>
814 <CALL '
\1aMIMC-OUTC 2>
815 <FRAME '
\1aMIMC-PRIN-ATOM>
819 <CALL '
\1aMIMC-PRIN-ATOM 2>
822 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE143>
823 <FRAME '
\1aMIMC-OUTS>
826 <CALL '
\1aMIMC-OUTS 2>
827 <FRAME '
\1aMIMC-PRIN1>
831 <CALL '
\1aMIMC-PRIN1 2>
833 <FRAME '
\1aMIMC-OUTC>
837 <CALL '
\1aMIMC-OUTC 2 = TEMP13>
841 <EQUAL? PTYPE10 'TYPE-C - PHRASE147>
842 <FRAME '
\1aI$PRIN-TYPE-W-C>
848 <CALL '
\1aI$PRIN-TYPE-W-C 3 = TEMP13>
852 <EQUAL? PTYPE10 'TYPE-W - PHRASE149>
853 <FRAME '
\1aI$PRIN-TYPE-W-C>
859 <CALL '
\1aI$PRIN-TYPE-W-C 3 = TEMP13>
863 <EQUAL? PTYPE10 'UVECTOR - PHRASE151>
864 <FRAME '
\1aMIMC-OUTS>
867 <CALL '
\1aMIMC-OUTS 2>
868 <CHTYPE DATA4 <TYPE-CODE UVECTOR> = TYP6>
873 <EMPUU? TYP6 + MAPAP157>
875 <NTHUU INFO9 1 = TEMP13 (TYPE FIX)>
876 <FRAME '
\1aI$PRIN-FIX>
880 <CALL '
\1aI$PRIN-FIX 2>
881 <RESTUU INFO9 1 = TEMP13 (TYPE UVECTOR)>
883 <EMPUU? TEMP13 + PHRASE165 (TYPE UVECTOR)>
885 <FRAME '
\1aMIMC-OUTC>
888 <CALL '
\1aMIMC-OUTC 2>
890 <RESTUU TYP6 1 = TYP6 (TYPE UVECTOR)>
893 <FRAME '
\1aMIMC-OUTS>
897 <CALL '
\1aMIMC-OUTS 2 = TEMP13>
901 <EQUAL? PTYPE10 'VECTOR - PHRASE169>
902 <FRAME '
\1aMIMC-OUTC>
905 <CALL '
\1aMIMC-OUTC 2>
906 <CHTYPE DATA4 <TYPE-CODE VECTOR> = TYP6>
911 <EMPUV? TYP6 + MAPAP175>
913 <NTHUV INFO9 1 = TEMP13>
914 <FRAME '
\1aMIMC-PRIN1>
918 <CALL '
\1aMIMC-PRIN1 2>
919 <RESTUV INFO9 1 = INFO9 (TYPE VECTOR)>
920 <EMPUV? INFO9 + PHRASE183 (TYPE VECTOR)>
922 <FRAME '
\1aMIMC-OUTC>
925 <CALL '
\1aMIMC-OUTC 2>
927 <RESTUV TYP6 1 = TYP6 (TYPE VECTOR)>
930 <FRAME '
\1aMIMC-OUTC>
934 <CALL '
\1aMIMC-OUTC 2 = TEMP13>
938 <EQUAL? DATA4 %<> - PHRASE187>
939 <FRAME '
\1aMIMC-OUTS>
943 <CALL '
\1aMIMC-OUTS 2 = TEMP13>
947 <EQUAL? PTYPE10 'GVAL - PHRASE189>
948 <FRAME '
\1aMIMC-OUTC>
951 <CALL '
\1aMIMC-OUTC 2>
952 <FRAME '
\1aMIMC-PRIN-ATOM>
953 <CHTYPE DATA4 <TYPE-CODE ATOM> = STACK>
957 <CALL '
\1aMIMC-PRIN-ATOM 2 = TEMP13>
961 <EQUAL? PTYPE10 'LVAL - PHRASE192>
963 <FRAME '
\1aMIMC-OUTC>
966 <CALL '
\1aMIMC-OUTC 2>
967 <FRAME '
\1aMIMC-PRIN-ATOM>
968 <CHTYPE DATA4 <TYPE-CODE ATOM> = STACK>
972 <CALL '
\1aMIMC-PRIN-ATOM 2 = TEMP13>
976 <TYPE? DATA4 <TYPE-CODE WORD> - PHRASE195>
977 <FRAME '
\1aMIMC-OUTS>
980 <CALL '
\1aMIMC-OUTS 2>
981 <FRAME '
\1aMIMC-PRIN-OCT>
982 <CHTYPE DATA4 <TYPE-CODE FIX> = STACK>
985 <CALL '
\1aMIMC-PRIN-OCT 2>
986 <FRAME '
\1aMIMC-OUTC>
990 <CALL '
\1aMIMC-OUTC 2 = TEMP13>
994 <NTHUV INFO9 1 = TYP6 (TYPE ATOM)>
995 <NTHUV INFO9 2 = TEMP13 (TYPE ATOM)>
996 <VEQUAL? TYP6 TEMP13 - PHRASE199>
998 <NTHUV IOTUP5 3 = TEMP13 (TYPE STRING)>
999 <NTHUV IOTUP5 4 = TYP6 (TYPE FIX)>
1000 <CHANNEL-OP 'DISK 'WRITE-BUFFER CHN11 TEMP13 TYP6>
1002 <CHANNEL-OP 'DISK 'BUFOUT CHN11>
1003 <PUTUV IOTUP5 4 0 (TYPE FIX)>
1005 <GETS 'BIND = TYP6 (TYPE LBIND)>
1006 <BBIND 'OUTCHAN 'CHANNEL 'FIX CHN11>
1011 <NTHR 'OUTCHAN 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
1012 <NTHR TEMP13 1 = STACK (RECORD-TYPE LBIND)>
1014 <CALL '
\1aPRIN1 2 = TEMP13>
1021 <FRAME '
\1aMIMC-OUTC>
1024 <CALL '
\1aMIMC-OUTC 2>
1025 <FRAME '
\1aMIMC-PRIN-ATOM>
1026 <NTHUV INFO9 1 = STACK (TYPE ATOM)>
1028 <CALL '
\1aMIMC-PRIN-ATOM 2>
1029 <FRAME '
\1aMIMC-OUTC>
1032 <CALL '
\1aMIMC-OUTC 2>
1033 <FRAME '
\1aMIMC-PRIN1>
1037 <NTHUV INFO9 2 = STACK (TYPE ATOM)>
1039 <CALL '
\1aCHTYPE 2 = STACK>
1042 <CALL '
\1aMIMC-PRIN1 2 = TEMP13>
1048 <GFCN
\1aI$PRIN-TYPE-W-C ("VALUE" ANY ANY ANY <TUPLE CHANNEL LIST STRING FIX>) DATA4 W-C5 IOTUP6>
1049 <TEMP TYOFF8:FIX TEMP11 TEMP18>
1051 <TYPE? W-C5 <TYPE-CODE FALSE> + PHRASE10>
1052 <TYPEWC DATA4 = TEMP11>
1054 <LSH TEMP11 -6 = TYOFF8 (TYPE FIX)>
1058 <LSH DATA4 -6 = TYOFF8 (TYPE FIX)>
1061 <LESS? TYOFF8 0 + PHRASE14 (TYPE FIX)>
1062 <GRTR? TYOFF8 1024 + PHRASE14 (TYPE FIX)>
1063 <GVAL 'M$$TYPE-INFO!-INTERNAL = TEMP11>
1064 <ADD TYOFF8 1 = TEMP18 (TYPE FIX)>
1065 <NTHUV TEMP11 TEMP18 = TEMP11>
1067 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE14>
1068 <TYPE? W-C5 <TYPE-CODE FALSE> + PHRASE20>
1070 <FRAME '
\1aMIMC-OUTS>
1073 <CALL '
\1aMIMC-OUTS 2>
1076 <FRAME '
\1aMIMC-OUTS>
1079 <CALL '
\1aMIMC-OUTS 2>
1081 <FRAME '
\1aMIMC-PRIN-ATOM>
1082 <NTHUV TEMP11 1 = STACK (TYPE ATOM)>
1084 <CALL '
\1aMIMC-PRIN-ATOM 2>
1085 <FRAME '
\1aMIMC-OUTC>
1088 <CALL '
\1aMIMC-OUTC 2>
1089 <FRAME '
\1aMIMC-PRIN-ATOM>
1090 <NTHUV TEMP11 2 = STACK (TYPE ATOM)>
1093 <CALL '
\1aMIMC-PRIN-ATOM 2>
1094 <FRAME '
\1aMIMC-OUTC>
1098 <CALL '
\1aMIMC-OUTC 2 = TEMP18>
1103 <PUSH 'BAD-TYPE-CODE!-ERRORS>
1107 <CALL '
\1aERROR 3 = TEMP18>
1110 <END
\1aI$PRIN-TYPE-W-C>
1112 <GFCN
\1aMIMC-PRIN-OCT ("VALUE" <OR FALSE STRING> FIX <TUPLE CHANNEL LIST STRING FIX>) NUM4 IOTUP5>
1115 <VEQUAL? NUM4 0 - PHRASE7 (TYPE FIX)>
1116 <FRAME '
\1aMIMC-OUTC>
1120 <CALL '
\1aMIMC-OUTC 2 = TEMP11>
1124 <FRAME '
\1aMIMC-POCT>
1129 <CALL '
\1aMIMC-POCT 2 = TEMP11>
1132 <END
\1aMIMC-PRIN-OCT>
1134 <GFCN
\1aMIMC-POCT ("VALUE" <OR FALSE STRING> FIX <TUPLE CHANNEL LIST STRING FIX>) X4 IOTUP5>
1137 <VEQUAL? X4 0 - TAG9 (TYPE FIX)>
1140 <FRAME '
\1aMIMC-POCT>
1141 <LSH X4 -3 = STACK (TYPE FIX)>
1143 <CALL '
\1aMIMC-POCT 2>
1144 <FRAME '
\1aMIMC-OUTC>
1145 <AND X4 #WORD *7* = TEMP8>
1147 <ADD TEMP8 48 = TEMP8 (TYPE FIX)>
1148 <CHTYPE TEMP8 <TYPE-CODE CHARACTER> = STACK>
1152 <CALL '
\1aMIMC-OUTC 2 = TEMP8>
1157 <GFCN
\1aI$PRIN-FIX ("VALUE" <OR ATOM FALSE STRING> FIX <TUPLE CHANNEL LIST STRING FIX>) NUM4 IOTUP5>
1160 <VEQUAL? NUM4 %<CHTYPE <MIN> FIX> - PHRASE7 (TYPE FIX)>
1161 <FRAME '
\1aMIMC-OUTS>
1162 <PUSH "%<CHTYPE <MIN> FIX>">
1165 <CALL '
\1aMIMC-OUTS 2 = TEMP9>
1169 <VEQUAL? NUM4 %<CHTYPE <MAX> FIX> - PHRASE10 (TYPE FIX)>
1170 <FRAME '
\1aMIMC-OUTS>
1171 <PUSH "%<CHTYPE <MAX> FIX>">
1174 <CALL '
\1aMIMC-OUTS 2 = TEMP9>
1178 <VEQUAL? NUM4 -0 - PHRASE12 (TYPE FIX)>
1179 <FRAME '
\1aMIMC-OUTS>
1183 <CALL '
\1aMIMC-OUTS 2 = TEMP9>
1187 <LESS? NUM4 0 - PHRASE14 (TYPE FIX)>
1188 <FRAME '
\1aMIMC-OUTC>
1191 <CALL '
\1aMIMC-OUTC 2>
1192 <FRAME '
\1aI$PRIN-INT>
1193 <SUB 0 NUM4 = STACK (TYPE FIX)>
1197 <CALL '
\1aI$PRIN-INT 2 = TEMP9>
1201 <VEQUAL? NUM4 0 - PHRASE19 (TYPE FIX)>
1202 <FRAME '
\1aMIMC-OUTC>
1206 <CALL '
\1aMIMC-OUTC 2 = TEMP9>
1210 <FRAME '
\1aI$PRIN-INT>
1215 <CALL '
\1aI$PRIN-INT 2 = TEMP9>
1220 <GFCN
\1aI$PRIN-INT ("VALUE" <OR FALSE STRING> FIX <TUPLE CHANNEL LIST STRING FIX>) NUM4 IOTUP5>
1223 <VEQUAL? NUM4 0 - TAG9 (TYPE FIX)>
1226 <FRAME '
\1aI$PRIN-INT>
1227 <DIV NUM4 10 = STACK (TYPE FIX)>
1229 <CALL '
\1aI$PRIN-INT 2>
1230 <FRAME '
\1aMIMC-OUTC>
1231 <MOD NUM4 10 = TEMP8 (TYPE FIX)>
1233 <ADD TEMP8 48 = TEMP8 (TYPE FIX)>
1234 <CHTYPE TEMP8 <TYPE-CODE CHARACTER> = STACK>
1238 <CALL '
\1aMIMC-OUTC 2 = TEMP8>
1243 <GFCN
\1aI$PRIN-FLOAT ("VALUE" <OR ATOM FALSE STRING> FLOAT <TUPLE CHANNEL LIST STRING FIX>) NUM4 IOTUP5>
1244 <TEMP MANT6:FLOAT (EXP7:FIX 0) (SIGD9:FIX 7) (OFFSET10:FIX 1) TEMP13 DIG8:FIX>
1247 <GVAL 'MINFL = TEMP13>
1248 <EQUAL? TEMP13 NUM4 - PHRASE12>
1250 <FRAME '
\1aMIMC-OUTS>
1254 <CALL '
\1aMIMC-OUTS 2 = TEMP13>
1258 <GVAL 'MAXFL = TEMP13>
1259 <EQUAL? TEMP13 NUM4 - PHRASE15>
1261 <FRAME '
\1aMIMC-OUTS>
1265 <CALL '
\1aMIMC-OUTS 2 = TEMP13>
1269 <LESS? NUM4 0.0 - PHRASE20 (TYPE FLOAT)>
1270 <FRAME '
\1aMIMC-OUTC>
1273 <CALL '
\1aMIMC-OUTC 2>
1274 <SUBF 0.0 NUM4 = NUM4 (TYPE FLOAT)>
1277 <LESS? NUM4 10.0 + PHRASE25 (TYPE FLOAT)>
1281 <DIVF MANT6 10.0 = MANT6 (TYPE FLOAT)>
1282 <ADD EXP7 1 = EXP7 (TYPE FIX)>
1283 <LESS? MANT6 10.0 - AGAIN27 (TYPE FLOAT)>
1286 <VEQUAL? NUM4 0.0 - PHRASE30 (TYPE FLOAT)>
1287 <SET EXP7 -1 (TYPE FIX)>
1290 <LESS? NUM4 1.0 - EXIT34 (TYPE FLOAT)>
1294 <MULF MANT6 10.0 = MANT6 (TYPE FLOAT)>
1295 <SUB EXP7 1 = EXP7 (TYPE FIX)>
1296 <LESS? MANT6 1.0 + AGAIN36 (TYPE FLOAT)>
1298 <GRTR? EXP7 7 + BOOL41 (TYPE FIX)>
1299 <LESS? EXP7 -2 - PHRASE40 (TYPE FIX)>
1301 <FRAME '
\1aI$PRIN-INT>
1302 <FIX MANT6 = DIG8 (TYPE FIX)>
1305 <CALL '
\1aI$PRIN-INT 2>
1306 <FRAME '
\1aI$PRIN-DEC>
1307 <FLOAT DIG8 = TEMP13 (TYPE FLOAT)>
1309 <SUBF MANT6 TEMP13 = STACK (TYPE FLOAT)>
1315 <CALL '
\1aI$PRIN-DEC 4>
1316 <FRAME '
\1aMIMC-OUTC>
1319 <CALL '
\1aMIMC-OUTC 2>
1320 <GRTR? EXP7 SIGD9 - PHRASE47 (TYPE FIX)>
1322 <FRAME '
\1aMIMC-OUTC>
1325 <CALL '
\1aMIMC-OUTC 2>
1326 <FRAME '
\1aI$PRIN-INT>
1331 <CALL '
\1aI$PRIN-INT 2 = TEMP13>
1335 <FRAME '
\1aMIMC-OUTC>
1338 <CALL '
\1aMIMC-OUTC 2>
1339 <FRAME '
\1aI$PRIN-INT>
1340 <SUB 0 EXP7 = STACK (TYPE FIX)>
1344 <CALL '
\1aI$PRIN-INT 2 = TEMP13>
1348 <LESS? EXP7 0 + PHRASE53 (TYPE FIX)>
1349 <GRTR? EXP7 7 + PHRASE57 (TYPE FIX)>
1350 <SUB 8 EXP7 = OFFSET10 (TYPE FIX)>
1352 <GVAL 'I$FLOAT-TABLE!-INTERNAL = TEMP13>
1353 <NTHUV TEMP13 OFFSET10 = TEMP13 (TYPE FLOAT)>
1354 <ADDF TEMP13 NUM4 = TEMP13 (TYPE FLOAT)>
1355 <FIX TEMP13 = TEMP13 (TYPE FIX)>
1356 <FIX NUM4 = DIG8 (TYPE FIX)>
1357 <GRTR? TEMP13 DIG8 - PHRASE59 (TYPE FIX)>
1359 <GVAL 'I$FLOAT-TABLE!-INTERNAL = TEMP13>
1360 <NTHUV TEMP13 OFFSET10 = TEMP13 (TYPE FLOAT)>
1362 <ADDF TEMP13 NUM4 = NUM4 (TYPE FLOAT)>
1364 <SET OFFSET10 1 (TYPE FIX)>
1366 <FRAME '
\1aI$PRIN-INT>
1367 <FIX NUM4 = DIG8 (TYPE FIX)>
1370 <CALL '
\1aI$PRIN-INT 2>
1371 <FRAME '
\1aI$PRIN-DEC>
1372 <FLOAT DIG8 = TEMP13 (TYPE FLOAT)>
1374 <SUBF NUM4 TEMP13 = STACK (TYPE FLOAT)>
1376 <SUB SIGD9 EXP7 = STACK (TYPE FIX)>
1382 <CALL '
\1aI$PRIN-DEC 4 = TEMP13>
1386 <VEQUAL? NUM4 0.0 + PHRASE65 (TYPE FLOAT)>
1387 <GVAL 'I$FLOAT-TABLE!-INTERNAL = TEMP13>
1388 <NTHUV TEMP13 8 = TEMP13 (TYPE FLOAT)>
1389 <ADDF TEMP13 NUM4 = NUM4 (TYPE FLOAT)>
1392 <SET OFFSET10 1 (TYPE FIX)>
1393 <LESS? NUM4 1.0 + PHRASE69 (TYPE FLOAT)>
1394 <FRAME '
\1aMIMC-OUTC>
1397 <CALL '
\1aMIMC-OUTC 2>
1398 <SUBF NUM4 1.0 = NUM4 (TYPE FLOAT)>
1401 <FRAME '
\1aMIMC-OUTC>
1404 <CALL '
\1aMIMC-OUTC 2>
1406 <FRAME '
\1aI$PRIN-DEC>
1415 <CALL '
\1aI$PRIN-DEC 4 = TEMP13>
1418 <END
\1aI$PRIN-FLOAT>
1420 <GFCN
\1aI$PRIN-DEC ("VALUE" <OR ATOM STRING> FLOAT FIX <TUPLE CHANNEL LIST STRING FIX> ANY) NUM4 MIN5 IOTUP6 OFFSET7>
1421 <TEMP (Z-COUNT8:FIX 0) TEMP15 DIG19:FIX>
1423 <FRAME '
\1aMIMC-OUTC>
1426 <CALL '
\1aMIMC-OUTC 2>
1427 <VEQUAL? NUM4 0.0 - PHRASE11 (TYPE FLOAT)>
1428 <FRAME '
\1aMIMC-OUTC>
1432 <CALL '
\1aMIMC-OUTC 2 = TEMP15>
1436 <GVAL 'I$FLOAT-TABLE!-INTERNAL = TEMP15>
1437 <NTHUV TEMP15 OFFSET7 = TEMP15 (TYPE FLOAT)>
1439 <ADDF TEMP15 NUM4 = NUM4 (TYPE FLOAT)>
1444 <MULF NUM4 10.0 = NUM4 (TYPE FLOAT)>
1445 <FIX NUM4 = DIG19 (TYPE FIX)>
1446 <VEQUAL? DIG19 0 - PHRASE22 (TYPE FIX)>
1447 <ADD Z-COUNT8 1 = Z-COUNT8 (TYPE FIX)>
1450 <SET Z-COUNT8 0 (TYPE FIX)>
1452 <FRAME '
\1aMIMC-OUTC>
1453 <ADD DIG19 48 = TEMP15 (TYPE FIX)>
1454 <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = STACK>
1457 <CALL '
\1aMIMC-OUTC 2>
1458 <FLOAT DIG19 = TEMP15 (TYPE FLOAT)>
1460 <SUBF NUM4 TEMP15 = NUM4 (TYPE FLOAT)>
1462 <VEQUAL? NUM4 0.0 + BOOL30 (TYPE FLOAT)>
1463 <SUB MIN5 1 = MIN5 (TYPE FIX)>
1464 <GRTR? MIN5 0 + AGAIN20 (TYPE FIX)>
1469 <GFCN
\1aMIMC-CRLF ("VALUE" <OR FALSE STRING> ANY) IOTUP4>
1470 <TEMP TEMP14 TEMP16>
1472 <SET TEMP14 %<> (TYPE FALSE)>
1473 <GVAL 'CRLF-STRING!-INTERNAL = TEMP16>
1477 <EMPTY? TEMP16 + MAPAP9>
1478 <NTH1 TEMP16 = TEMP14>
1479 <FRAME '
\1aMIMC-OUTC>
1483 <CALL '
\1aMIMC-OUTC 2 = TEMP14>
1484 <REST1 TEMP16 = TEMP16>
1491 <GFCN
\1aMIMC-PRIN-ATOM ("VALUE" ANY ATOM <TUPLE CHANNEL LIST STRING FIX>) ATM4 IOTUP5>
1492 <TEMP SP6 O?7 OB8:LIST TEMP21>
1494 <NTHR ATM4 3 = SP6 (RECORD-TYPE ATOM)>
1495 <NTHR ATM4 4 = O?7 (RECORD-TYPE ATOM)>
1496 <NTHUV IOTUP5 2 = OB8 (TYPE LIST)>
1500 <FRAME '
\1aMIMC-PRIN-ATM>
1504 <CALL '
\1aMIMC-PRIN-ATM 2>
1505 <TYPE? O?7 <TYPE-CODE FALSE> + PHRASE15>
1506 <GVAL 'MIM-OBL = SP6>
1507 <EQUAL? SP6 O?7 + PHRASE15>
1509 <GVAL 'TMP-OBL = SP6>
1510 <EQUAL? SP6 O?7 + PHRASE15>
1512 <GVAL 'ROOT-OBL = SP6>
1513 <EQUAL? SP6 O?7 + PHRASE15>
1517 <LOOP (O?7 VALUE) (SP6 VALUE)>
1519 <NTHL SP6 1 = TEMP21>
1520 <VEQUAL? TEMP21 O?7 + PHRASE15>
1522 <RESTL SP6 1 = SP6 (TYPE LIST)>
1525 <FRAME '
\1aMIMC-OUTS>
1528 <CALL '
\1aMIMC-OUTS 2>
1529 <CHTYPE O?7 <TYPE-CODE ATOM> = ATM4>
1531 <NTHR ATM4 3 = SP6 (RECORD-TYPE ATOM)>
1532 <NTHR ATM4 4 = O?7 (RECORD-TYPE ATOM)>
1535 <TYPE? O?7 <TYPE-CODE FALSE> + TAG24>
1540 <PUSH 'CANT-PRINT-ATOM!-ERRORS>
1543 <CALL '
\1aERROR 2 = O?7>
1546 <END
\1aMIMC-PRIN-ATOM>
1548 <GFCN
\1aMIMC-PRIN-ATM ("VALUE" <OR FALSE STRING> STRING ANY) STR4 IOTUP5>
1549 <TEMP FSM6 CSTATE7:BYTES TR-TABLE9:BYTES TEMP19:STRING CHR24 CTRANS8:FIX>
1551 <GVAL 'I$ATM-FSM!-INTERNAL = FSM6>
1552 <NTHUV FSM6 1 = CSTATE7 (TYPE BYTES)>
1553 <GVAL 'I$TRANS-TABLE!-INTERNAL = TR-TABLE9>
1554 <SET TEMP19 STR4 (TYPE STRING)>
1558 <EMPUS? TEMP19 + MAPAP17>
1559 <NTHUS TEMP19 1 = CHR24>
1560 <ADD CHR24 1 = CHR24 (TYPE FIX)>
1561 <NTHUB TR-TABLE9 CHR24 = CTRANS8 (TYPE FIX)>
1563 <LESS? CTRANS8 17 + PHRASE33 (TYPE FIX)>
1564 <SUB CTRANS8 17 = CHR24 (TYPE FIX)>
1566 <ADD CHR24 1 = CTRANS8 (TYPE FIX)>
1568 <NTHUB CSTATE7 CTRANS8 = CTRANS8 (TYPE FIX)>
1569 <GRTR? CTRANS8 9 + PHRASE29 (TYPE FIX)>
1570 <NTHUV FSM6 CTRANS8 = CSTATE7 (TYPE BYTES)>
1573 <VEQUAL? CTRANS8 10 + PHRASE33 (TYPE FIX)>
1576 <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
1579 <GRTR? CTRANS8 9 + BOOL34 (TYPE FIX)>
1581 <NTHUB CSTATE7 6 = FSM6 (TYPE FIX)>
1583 <VEQUAL? FSM6 10 + PHRASE33 (TYPE FIX)>
1586 <FRAME '
\1aMIMC-OUTC>
1589 <CALL '
\1aMIMC-OUTC 2>
1591 <SET CHR24 %<> (TYPE FALSE)>
1592 <SET FSM6 STR4 (TYPE STRING)>
1597 <EMPUS? FSM6 + MAPAP40>
1598 <NTHUS FSM6 1 = CHR24>
1599 <ADD CHR24 1 = CTRANS8 (TYPE FIX)>
1600 <NTHUB TR-TABLE9 CTRANS8 = CTRANS8 (TYPE FIX)>
1601 <GRTR? CTRANS8 13 - BOOL47 (TYPE FIX)>
1602 <VEQUAL? CTRANS8 15 - PHRASE46 (TYPE FIX)>
1605 <FRAME '
\1aMIMC-OUTC>
1608 <CALL '
\1aMIMC-OUTC 2>
1610 <FRAME '
\1aMIMC-OUTC>
1614 <CALL '
\1aMIMC-OUTC 2 = CHR24>
1615 <RESTUS FSM6 1 = FSM6 (TYPE STRING)>
1620 <END
\1aMIMC-PRIN-ATM>
1622 <GFCN
\1aMIMC-OUTC ("VALUE" STRING ANY <TUPLE CHANNEL LIST STRING FIX>) CHR4 IOTUP5>
1623 <TEMP TEMP9 TEMP10:STRING>
1625 <NTHUV IOTUP5 4 = TEMP9 (TYPE FIX)>
1626 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
1627 <GRTR? TEMP9 1024 - PHRASE8 (TYPE FIX)>
1628 <NTHUV IOTUP5 1 = TEMP9 (TYPE CHANNEL)>
1629 <NTHUV IOTUP5 3 = TEMP10 (TYPE STRING)>
1630 <CHANNEL-OP 'DISK 'WRITE-BUFFER TEMP9 TEMP10>
1632 <SET TEMP9 1 (TYPE FIX)>
1634 <PUTUV IOTUP5 4 TEMP9 (TYPE FIX)>
1635 <NTHUV IOTUP5 3 = TEMP10 (TYPE STRING)>
1637 <PUTUS TEMP10 TEMP9 CHR4>
1643 <GFCN
\1aMIMC-OUTS ("VALUE" ATOM ANY <TUPLE CHANNEL LIST STRING FIX>) STR4 IOTUP5>
1644 <TEMP LNT6 BUF7:STRING TEMP16>
1646 <NTHUV IOTUP5 4 = LNT6 (TYPE FIX)>
1647 <NTHUV IOTUP5 3 = BUF7 (TYPE STRING)>
1651 <EMPTY? STR4 - PHRASE13>
1652 <PUTUV IOTUP5 4 LNT6 (TYPE FIX)>
1656 <ADD LNT6 1 = LNT6 (TYPE FIX)>
1657 <GRTR? LNT6 1024 - PHRASE15 (TYPE FIX)>
1658 <NTHUV IOTUP5 1 = TEMP16 (TYPE CHANNEL)>
1659 <CHANNEL-OP 'DISK 'WRITE-BUFFER TEMP16 BUF7>
1661 <SET LNT6 1 (TYPE FIX)>
1663 <NTH1 STR4 = TEMP16>
1664 <PUTUS BUF7 LNT6 TEMP16>
1670 <GFCN
\1aIDUMP-CODE ("VALUE" <OR FALSE STRING> LIST TUPLE) L4 IOTUP5>
1671 <TEMP TEMP15 TEMP12:LIST TEMP31:LIST YP36:LIST>
1673 <SET TEMP15 %<> (TYPE FALSE)>
1674 <SET TEMP12 L4 (TYPE LIST)>
1679 <EMPL? TEMP12 + MAPAP10>
1680 <NTHL TEMP12 1 = TEMP15>
1681 <TYPE? TEMP15 <TYPE-CODE ATOM> - PHRASE19>
1682 <FRAME '
\1aMIMC-PRIN-ATOM>
1686 <CALL '
\1aMIMC-PRIN-ATOM 2>
1687 <FRAME '
\1aMIMC-CRLF>
1689 <CALL '
\1aMIMC-CRLF 1 = TEMP15>
1692 <FRAME '
\1aMIMC-OUTS>
1695 <CALL '
\1aMIMC-OUTS 2>
1696 <FRAME '
\1aMIMC-OUTC>
1699 <CALL '
\1aMIMC-OUTC 2>
1700 <CHTYPE TEMP15 <TYPE-CODE LIST> = TEMP31>
1705 <EMPL? TEMP31 + MAPAP29>
1707 <NTHL YP36 1 = TEMP15>
1708 <TYPE? TEMP15 <TYPE-CODE ATOM> - PHRASE40>
1709 <FRAME '
\1aMIMC-PRIN-ATOM>
1713 <CALL '
\1aMIMC-PRIN-ATOM 2>
1716 <FRAME '
\1aMIMC-PRIN1>
1720 <CALL '
\1aMIMC-PRIN1 2>
1722 <RESTL YP36 1 = YP36 (TYPE LIST)>
1723 <EMPL? YP36 + PHRASE45 (TYPE LIST)>
1725 <FRAME '
\1aMIMC-OUTC>
1728 <CALL '
\1aMIMC-OUTC 2>
1730 <RESTL TEMP31 1 = TEMP31 (TYPE LIST)>
1733 <FRAME '
\1aMIMC-OUTC>
1736 <CALL '
\1aMIMC-OUTC 2>
1737 <FRAME '
\1aMIMC-CRLF>
1739 <CALL '
\1aMIMC-CRLF 1 = TEMP15>
1741 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
1748 <GFCN
\1aDUMP-CODE ("VALUE" ATOM ANY ANY ANY) L4 CH5 OBL6>
1749 <TEMP IOTUP7 TEMP10:CHANNEL TEMP11>
1755 <GVAL 'BUFFER = STACK>
1757 <TUPLE 4 = IOTUP7 (TYPE TUPLE)>
1758 <FRAME '
\1aIDUMP-CODE>
1762 <CALL '
\1aIDUMP-CODE 2>
1763 <NTHUV IOTUP7 1 = TEMP10 (TYPE CHANNEL)>
1764 <NTHUV IOTUP7 3 = TEMP11>
1765 <NTHUV IOTUP7 4 = IOTUP7>
1766 <CHANNEL-OP 'DISK 'WRITE-BUFFER TEMP10 TEMP11 IOTUP7>
1767 <DEAD TEMP10 TEMP11 IOTUP7>