7 <GFCN
\1aREADIN ("VALUE" <OR ATOM LIST> TUPLE "OPTIONAL" ANY) READ-INFO6 NXT7>
8 <OPT-DISPATCH 1 %<> OPT4 OPT5>
12 <TEMP RES8 LAST9 TEMP17 L24:LIST LL25:LIST IFL27:LIST TEMP36>
14 <FRAME '
\1aREAD-LIST-INTERNAL>
19 <CALL '
\1aREAD-LIST-INTERNAL 3 = RES8>
20 <TYPE? RES8 <TYPE-CODE FALSE> + BOOL15>
25 <RESTL LAST9 1 = TEMP17 (TYPE LIST)>
26 <EMPL? TEMP17 + TAG18>
31 <NTHL LAST9 1 = LAST9>
32 <TYPE? LAST9 <TYPE-CODE FORM> - BOOL15>
33 <EMPL? LAST9 + BOOL15 (TYPE FORM)>
34 <NTHL LAST9 1 = TEMP17>
36 <EQUAL? TEMP17 'END + PHRASE14>
42 <TYPE? NXT7 <TYPE-CODE FALSE> + PHRASE21>
43 <CONS NXT7 RES8 = RES8>
48 <SET IFL27 () (TYPE LIST)>
49 <SET LAST9 %<> (TYPE FALSE)>
53 <EMPL? L24 + EXIT22 (TYPE LIST)>
55 <TYPE? TEMP17 <TYPE-CODE FORM> - PHRASE69>
56 <FRAME '
\1aFUDGE-MIMOP>
58 <CALL '
\1aFUDGE-MIMOP 1 = TEMP36>
59 <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE69>
61 <NTHL TEMP17 1 = TEMP36>
62 <EQUAL? TEMP36 'END!-MIMOP + EXIT22>
63 <EQUAL? TEMP36 'IFSYS!-MIMOP - PHRASE40>
65 <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
66 <NTHL TEMP36 1 = STACK>
69 <CALL '
\1aMEMBER 2 = TEMP36>
70 <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE42>
72 <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
74 <NTHL TEMP36 1 = TEMP36>
75 <CONS TEMP36 IFL27 = IFL27>
77 <SET LAST9 'T (TYPE ATOM)>
80 <FRAME '
\1aFLUSH-TO-ENDIF>
81 <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
83 <NTHL TEMP36 1 = STACK>
85 <RESTL L24 1 = STACK (TYPE LIST)>
88 <CALL '
\1aFLUSH-TO-ENDIF 3>
89 <RESTL LL25 1 = L24 (TYPE LIST)>
92 <EQUAL? TEMP36 'IFCAN!-MIMOP - PHRASE46>
94 <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
95 <NTHL TEMP36 1 = STACK (TYPE STRING)>
99 <CALL '
\1aMOBLIST 1 = STACK>
100 <CALL '
\1aLOOKUP 2 = TEMP36>
101 <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE48>
102 <NTHR TEMP36 1 = TEMP36 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE48)>
103 <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE48>
104 <NTHR TEMP36 1 = TEMP36 (RECORD-TYPE GBIND)>
105 <TYPE? TEMP36 <TYPE-CODE UNBOUND> + PHRASE48>
107 <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
109 <NTHL TEMP36 1 = TEMP36>
110 <CONS TEMP36 IFL27 = IFL27>
112 <SET LAST9 'T (TYPE ATOM)>
115 <FRAME '
\1aFLUSH-TO-ENDIF>
116 <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
118 <NTHL TEMP36 1 = STACK>
120 <RESTL L24 1 = STACK (TYPE LIST)>
123 <CALL '
\1aFLUSH-TO-ENDIF 3>
124 <RESTL LL25 1 = L24 (TYPE LIST)>
127 <EQUAL? TEMP36 'IFCANNOT!-MIMOP - PHRASE54>
129 <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
130 <NTHL TEMP36 1 = STACK (TYPE STRING)>
134 <CALL '
\1aMOBLIST 1 = STACK>
135 <CALL '
\1aLOOKUP 2 = TEMP36>
136 <TYPE? TEMP36 <TYPE-CODE FALSE> + TAG60>
137 <NTHR TEMP36 1 = TEMP36 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG60)>
138 <TYPE? TEMP36 <TYPE-CODE FALSE> + TAG60>
139 <NTHR TEMP36 1 = TEMP36 (RECORD-TYPE GBIND)>
140 <TYPE? TEMP36 <TYPE-CODE UNBOUND> - PHRASE56>
143 <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
145 <NTHL TEMP36 1 = TEMP36>
146 <CONS TEMP36 IFL27 = IFL27>
148 <SET LAST9 'T (TYPE ATOM)>
151 <FRAME '
\1aFLUSH-TO-ENDIF>
152 <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
154 <NTHL TEMP36 1 = STACK>
156 <RESTL L24 1 = STACK (TYPE LIST)>
159 <CALL '
\1aFLUSH-TO-ENDIF 3>
160 <RESTL LL25 1 = L24 (TYPE LIST)>
163 <EQUAL? TEMP36 'ENDIF!-MIMOP - PHRASE69>
165 <EMPL? IFL27 + BOOL66 (TYPE LIST)>
167 <RESTL TEMP17 1 = TEMP36 (TYPE LIST)>
168 <NTHL TEMP36 1 = STACK>
170 <NTHL IFL27 1 = STACK>
171 <CALL '
\1aN=? 2 = TEMP36>
172 <VEQUAL? TEMP36 0 + PHRASE65>
176 <PUSH 'UNMATCHED-IFSYS!-ERRORS>
184 <RESTL IFL27 1 = IFL27 (TYPE LIST)>
185 <SET LAST9 'T (TYPE ATOM)>
187 <VEQUAL? LAST9 0 + PHRASE71>
188 <SET LAST9 %<> (TYPE FALSE)>
189 <VEQUAL? L24 LL25 - PHRASE73>
190 <RESTL RES8 1 = RES8 (TYPE LIST)>
195 <RESTL L24 1 = L24 (TYPE LIST)>
200 <RESTL L24 1 = L24 (TYPE LIST)>
205 <END
\1aREADIN>
\r\0\r\0
207 <GFCN
\1aFLUSH-TO-ENDIF ("VALUE" ATOM ANY LIST LIST) FLG4 L5 LL6>
208 <TEMP (CT8 1) THING7 TEMP20>
213 <EMPL? L5 - PHRASE14 (TYPE LIST)>
215 <PUSH 'MISSING-ENDIF!-ERRORS>
222 <TYPE? THING7 <TYPE-CODE FORM> - PHRASE27>
223 <FRAME '
\1aFUDGE-MIMOP>
225 <CALL '
\1aFUDGE-MIMOP 1 = TEMP20>
226 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE27>
228 <NTHL THING7 1 = TEMP20>
229 <EQUAL? TEMP20 'ENDIF!-MIMOP - PHRASE22>
231 <SUB CT8 1 = CT8 (TYPE FIX)>
232 <VEQUAL? CT8 0 - PHRASE27 (TYPE FIX)>
233 <RESTL L5 1 = TEMP20 (TYPE LIST)>
239 <NTHL THING7 1 = TEMP20>
240 <EQUAL? TEMP20 'IFSYS!-MIMOP + BOOL28>
242 <NTHL THING7 1 = TEMP20>
243 <EQUAL? TEMP20 'IFCAN!-MIMOP + BOOL28>
245 <NTHL THING7 1 = TEMP20>
247 <EQUAL? TEMP20 'IFCANNOT!-MIMOP - PHRASE27>
250 <ADD CT8 1 = CT8 (TYPE FIX)>
252 <RESTL L5 1 = L5 (TYPE LIST)>
254 <END
\1aFLUSH-TO-ENDIF>
256 <GFCN
\1aFUDGE-MIMOP ("VALUE" <OR FALSE <FORM <OR ATOM LINK>>> FORM) FRM4>
260 <NTHL FRM4 1 = TEMP10 (TYPE ATOM)>
261 <NTHR TEMP10 3 = STACK (RECORD-TYPE ATOM)>
263 <GVAL 'MIMOP-OBLIST = STACK>
264 <CALL '
\1aLOOKUP 2 = TEMP10>
266 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
276 <GFCN
\1aPRE-HACK ("VALUE" ATOM LIST) L4>
277 <TEMP WIN9 LR5 TEMP18 TEMP17:LIST LL22:LIST FRM23 TEMP32 M24 LBL27:ATOM N25>
282 <SET WIN9 %<> (TYPE FALSE)>
283 <SET LR5 () (TYPE LIST)>
284 <SET TEMP18 () (TYPE LIST)>
285 <SET TEMP17 L4 (TYPE LIST)>
289 <EMPL? TEMP17 + MAPAP15>
291 <NTHL LL22 1 = FRM23>
292 <TYPE? FRM23 <TYPE-CODE ATOM> + PHRASE77>
293 <NTHL FRM23 1 = TEMP32>
294 <EQUAL? TEMP32 'OPT-DISPATCH!-MIMOP - PHRASE31>
296 <RESTL FRM23 1 = TEMP32 (TYPE LIST)>
298 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
299 <RESTL TEMP32 1 = LL22 (TYPE LIST)>
301 <CHTYPE LL22 <TYPE-CODE LIST> = LL22>
305 <EMPL? LL22 + PHRASE77>
306 <NTHL LL22 1 = TEMP32>
307 <CONS TEMP32 () = TEMP32 (TYPE LIST)>
309 <SET LR5 TEMP32 (TYPE LIST)>
312 <PUTREST TEMP18 TEMP32>
315 <SET TEMP18 TEMP32 (TYPE LIST)>
317 <RESTL LL22 1 = LL22 (TYPE LIST)>
321 <CHTYPE M24 <TYPE-CODE LIST> = M24>
325 <NTHL M24 1 = TEMP32>
326 <TYPE? TEMP32 <TYPE-CODE ATOM> - TAG46>
327 <VEQUAL? TEMP32 '+ + TAG44>
330 <RESTL M24 1 = M24 (TYPE LIST)>
333 <SET M24 %<> (TYPE FALSE)>
335 <VEQUAL? M24 0 - BOOL42>
336 <CHTYPE FRM23 <TYPE-CODE LIST> = TEMP32>
337 <EMPL? TEMP32 + TAG47>
338 <LOOP (TEMP32 VALUE)>
340 <NTHL TEMP32 1 = M24>
341 <TYPE? M24 <TYPE-CODE ATOM> - TAG50>
342 <VEQUAL? M24 '- + TAG48>
345 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
346 <EMPL? TEMP32 - TAG49>
348 <SET M24 %<> (TYPE FALSE)>
354 <VEQUAL? M24 0 + PHRASE69>
356 <RESTL M24 1 = TEMP32 (TYPE LIST)>
357 <NTHL TEMP32 1 = LBL27 (TYPE ATOM)>
361 <LOOP (LBL27 VALUE) (N25 VALUE)>
363 <NTHL N25 1 = TEMP32>
364 <TYPE? TEMP32 <TYPE-CODE ATOM> - TAG57>
365 <VEQUAL? TEMP32 LBL27 + TAG55>
368 <RESTL N25 1 = N25 (TYPE LIST)>
371 <SET N25 %<> (TYPE FALSE)>
373 <VEQUAL? N25 0 - PHRASE58>
375 <PUSH 'BAD-LABEL!-ERRORS>
377 <CALL '
\1aMIMOCERR 2>
382 <CALL '
\1aNEXTINS 1 = N25>
383 <NTHL N25 1 = TEMP32>
384 <EQUAL? TEMP32 'JUMP!-MIMOP - PHRASE61>
386 <RESTL N25 1 = TEMP32 (TYPE LIST)>
387 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
388 <NTHL TEMP32 1 = TEMP32>
389 <RESTL M24 1 = M24 (TYPE LIST)>
392 <RESTL N25 1 = TEMP32 (TYPE LIST)>
394 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
395 <NTHL TEMP32 1 = TEMP32>
396 <CONS TEMP32 () = TEMP32 (TYPE LIST)>
398 <SET LR5 TEMP32 (TYPE LIST)>
401 <PUTREST TEMP18 TEMP32>
404 <SET TEMP18 TEMP32 (TYPE LIST)>
408 <NTHL FRM23 1 = TEMP32>
410 <EQUAL? TEMP32 'JUMP!-MIMOP - PHRASE66>
412 <NTHL N25 1 = TEMP32>
413 <EQUAL? TEMP32 'RETURN - PHRASE66>
419 <CONS LBL27 () = TEMP32 (TYPE LIST)>
422 <SET LR5 TEMP32 (TYPE LIST)>
425 <PUTREST TEMP18 TEMP32>
428 <SET TEMP18 TEMP32 (TYPE LIST)>
432 <NTHL FRM23 1 = TEMP32>
433 <EQUAL? TEMP32 'ICALL!-MIMOP - PHRASE77>
435 <RESTL FRM23 1 = TEMP32 (TYPE LIST)>
437 <NTHL TEMP32 1 = TEMP32>
438 <CONS TEMP32 () = TEMP32 (TYPE LIST)>
440 <SET LR5 TEMP32 (TYPE LIST)>
443 <PUTREST TEMP18 TEMP32>
446 <SET TEMP18 TEMP32 (TYPE LIST)>
449 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
457 <EMPL? TEMP17 + EXIT79 (TYPE LIST)>
458 <NTHL TEMP17 1 = TEMP32>
459 <TYPE? TEMP32 <TYPE-CODE ATOM> - PHRASE86>
461 <NTHL TEMP17 1 = TEMP32 (TYPE ATOM)>
464 <LOOP (TEMP32 VALUE) (M24 VALUE)>
466 <NTHL M24 1 = TEMP18>
467 <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG90>
468 <VEQUAL? TEMP18 TEMP32 + PHRASE86>
471 <RESTL M24 1 = M24 (TYPE LIST)>
474 <RESTL TEMP17 1 = M24 (TYPE LIST)>
477 <SET WIN9 'T (TYPE ATOM)>
480 <NTHL TEMP17 1 = TEMP18>
481 <TYPE? TEMP18 <TYPE-CODE FORM> - PHRASE92>
482 <NTHL TEMP18 1 = M24>
484 <EQUAL? M24 'JUMP - PHRASE92>
486 <NTHL LL22 1 = TEMP18>
487 <TYPE? TEMP18 <TYPE-CODE FORM> - PHRASE92>
488 <NTHL TEMP18 1 = M24>
490 <EQUAL? M24 'JUMP - PHRASE92>
492 <RESTL TEMP17 1 = M24 (TYPE LIST)>
495 <SET WIN9 'T (TYPE ATOM)>
498 <NTHL TEMP17 1 = TEMP18>
499 <TYPE? TEMP18 <TYPE-CODE FORM> - PHRASE94>
500 <NTHL TEMP18 1 = M24>
501 <EQUAL? M24 'JUMP - PHRASE94>
504 <SET TEMP32 1 (TYPE FIX)>
505 <LOOP (M24 VALUE) (TEMP32 VALUE)>
507 <EMPL? M24 + PHRASE94>
508 <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
509 <LESS? TEMP32 0 + TAG98>
510 <RESTL M24 1 = M24 (TYPE LIST)>
513 <RESTL TEMP17 1 = TEMP32 (TYPE LIST)>
514 <NTHL TEMP32 1 = TEMP32>
515 <RESTL TEMP18 1 = M24 (TYPE LIST)>
517 <RESTL M24 1 = M24 (TYPE LIST)>
519 <EQUAL? TEMP32 M24 - PHRASE94>
521 <RESTL TEMP17 1 = M24 (TYPE LIST)>
524 <SET WIN9 'T (TYPE ATOM)>
527 <NTHL TEMP17 1 = TEMP18>
528 <TYPE? TEMP18 <TYPE-CODE FORM> - PHRASE99>
529 <NTHL TEMP18 1 = M24>
531 <EQUAL? M24 'JUMP - PHRASE99>
534 <SET TEMP32 1 (TYPE FIX)>
535 <LOOP (M24 VALUE) (TEMP32 VALUE)>
537 <EMPL? M24 + PHRASE99>
538 <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
539 <LESS? TEMP32 0 + TAG103>
540 <RESTL M24 1 = M24 (TYPE LIST)>
543 <RESTL TEMP17 1 = TEMP32 (TYPE LIST)>
544 <NTHL TEMP32 1 = TEMP32>
545 <TYPE? TEMP32 <TYPE-CODE ATOM> + PHRASE99>
547 <RESTL TEMP17 1 = M24 (TYPE LIST)>
548 <RESTL M24 1 = TEMP32 (TYPE LIST)>
550 <PUTREST TEMP17 TEMP32>
552 <SET WIN9 'T (TYPE ATOM)>
557 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
560 <VEQUAL? WIN9 0 - AGAIN10>
567 <GFCN
\1aFIXIT ("VALUE" ATOM LIST) LST4>
570 <SETG 'COMPERR-FLAG %<>>
571 <SETG 'UNWCNT-FLAG %<>>
572 <GVAL 'USE-PRE = TEMP7>
573 <TYPE? TEMP7 <TYPE-CODE FALSE> + BOOL6>
577 <CALL '
\1aPRE-HACK 1>
579 <FRAME '
\1aREPLACE-LOOP-BRANCHES>
581 <CALL '
\1aREPLACE-LOOP-BRANCHES 1>
582 <FRAME '
\1aFIND-DUAL-LABELS>
584 <CALL '
\1aFIND-DUAL-LABELS 1 = TEMP7>
585 <CONS 'TCOMPERR TEMP7 = TEMP7>
586 <CONS 'COMPERR TEMP7 = TEMP7>
587 <CONS 'TUNWCNT TEMP7 = TEMP7>
588 <CONS 'UNWCONT TEMP7 = TEMP7>
589 <FRAME '
\1aFLUSH-DUAL-LABELS>
593 <CALL '
\1aFLUSH-DUAL-LABELS 2>
594 <GVAL 'COMPERR-FLAG = TEMP7>
595 <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE13>
600 <RESTL TEMP7 1 = TEMP15 (TYPE LIST)>
601 <EMPL? TEMP15 + TAG16>
606 <CONS <COMPERR!-MIMOP> () = TEMP15>
607 <CONS 'TCOMPERR TEMP15 = TEMP15>
608 <PUTREST TEMP7 TEMP15>
611 <GVAL 'UNWCNT-FLAG = TEMP15>
612 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE18>
616 <LOOP (TEMP15 VALUE)>
618 <RESTL TEMP15 1 = TEMP7 (TYPE LIST)>
619 <EMPL? TEMP7 + TAG21>
624 <CONS <UNWCNT!-MIMOP> () = TEMP7>
625 <CONS 'TUNWCNT TEMP7 = TEMP7>
626 <PUTREST TEMP15 TEMP7>
632 <GFCN
\1aNEXTINS ("VALUE" <OR FALSE FORM> LIST) L4>
633 <TEMP TEMP14 TEMP11:LIST>
635 <SET TEMP14 %<> (TYPE FALSE)>
636 <SET TEMP11 L4 (TYPE LIST)>
641 <EMPL? TEMP11 + MAPAP9>
642 <NTHL TEMP11 1 = TEMP14>
643 <TYPE? TEMP14 <TYPE-CODE FORM> + TAG19>
644 <SET TEMP14 %<> (TYPE FALSE)>
650 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
657 <GFCN
\1aFIND-DUAL-LABELS ("VALUE" <LIST [REST ATOM]> LIST) LST4>
658 <TEMP PPTR5:LIST NPTR6:LIST TEMP15 TEMP13 L117 L218 TEMP22>
661 <RESTL LST4 1 = NPTR6 (TYPE LIST)>
663 <SET TEMP15 () (TYPE LIST)>
664 <SET TEMP13 () (TYPE LIST)>
668 <NTHL PPTR5 1 = L117>
669 <TYPE? L117 <TYPE-CODE ATOM> - PHRASE20>
670 <NTHL NPTR6 1 = L218>
671 <TYPE? L218 <TYPE-CODE ATOM> - PHRASE20>
672 <RESTL NPTR6 1 = TEMP22 (TYPE LIST)>
674 <PUTREST PPTR5 TEMP22>
676 <RESTL PPTR5 1 = NPTR6 (TYPE LIST)>
677 <EMPL? NPTR6 - PHRASE24 (TYPE LIST)>
678 <CONS L218 () = TEMP22 (TYPE LIST)>
680 <EMPL? TEMP15 - TAG26>
681 <SET TEMP15 TEMP22 (TYPE LIST)>
684 <PUTREST TEMP13 TEMP22>
687 <SET TEMP13 TEMP22 (TYPE LIST)>
689 <CONS L117 () = TEMP22 (TYPE LIST)>
691 <EMPL? TEMP15 - TAG28>
692 <SET TEMP15 TEMP22 (TYPE LIST)>
695 <PUTREST TEMP13 TEMP22>
698 <SET TEMP13 TEMP22 (TYPE LIST)>
703 <CONS L218 () = TEMP22 (TYPE LIST)>
705 <EMPL? TEMP15 - TAG31>
706 <SET TEMP15 TEMP22 (TYPE LIST)>
709 <PUTREST TEMP13 TEMP22>
712 <SET TEMP13 TEMP22 (TYPE LIST)>
714 <CONS L117 () = TEMP22 (TYPE LIST)>
716 <EMPL? TEMP15 - TAG33>
717 <SET TEMP15 TEMP22 (TYPE LIST)>
720 <PUTREST TEMP13 TEMP22>
723 <SET TEMP13 TEMP22 (TYPE LIST)>
729 <RESTL PPTR5 1 = NPTR6 (TYPE LIST)>
730 <EMPL? NPTR6 - MAP8 (TYPE LIST)>
733 <END
\1aFIND-DUAL-LABELS>
735 <GFCN
\1aFLUSH-DUAL-LABELS ("VALUE" <PRIMTYPE LIST> LIST <LIST [REST ATOM]>) LST4 LABS5>
736 <TEMP TEMP18 TEMP15:LIST PITEM6 TEMP31 TEMP36>
738 <SET TEMP18 %<> (TYPE FALSE)>
739 <SET TEMP15 LST4 (TYPE LIST)>
744 <EMPL? TEMP15 + MAPAP13>
745 <NTHL TEMP15 1 = TEMP18>
746 <TYPE? TEMP18 <TYPE-CODE FORM> + TAG24>
747 <SET TEMP18 %<> (TYPE FALSE)>
751 <CHTYPE PITEM6 <TYPE-CODE LIST> = PITEM6>
752 <EMPL? PITEM6 + TAG27>
753 <LOOP (PITEM6 VALUE)>
755 <NTHL PITEM6 1 = TEMP31>
756 <TYPE? TEMP31 <TYPE-CODE ATOM> - TAG30>
757 <VEQUAL? TEMP31 '+ + TAG28>
760 <RESTL PITEM6 1 = PITEM6 (TYPE LIST)>
761 <EMPL? PITEM6 - TAG29>
763 <SET PITEM6 %<> (TYPE FALSE)>
765 <VEQUAL? PITEM6 0 - BOOL44>
766 <CHTYPE TEMP18 <TYPE-CODE LIST> = TEMP31>
767 <EMPL? TEMP31 + TAG32>
768 <LOOP (TEMP31 VALUE)>
770 <NTHL TEMP31 1 = TEMP36>
771 <TYPE? TEMP36 <TYPE-CODE ATOM> - TAG35>
772 <VEQUAL? TEMP36 '- + TAG33>
775 <RESTL TEMP31 1 = TEMP31 (TYPE LIST)>
776 <EMPL? TEMP31 - TAG34>
778 <SET PITEM6 %<> (TYPE FALSE)>
784 <VEQUAL? PITEM6 0 - BOOL44>
785 <EMPL? TEMP18 - TAG39 (TYPE FORM)>
786 <SET TEMP18 %<> (TYPE FALSE)>
791 <LOOP (PITEM6 VALUE)>
793 <RESTL PITEM6 1 = TEMP31 (TYPE LIST)>
794 <EMPL? TEMP31 + TAG41>
799 <NTHL PITEM6 1 = PITEM6>
800 <TYPE? PITEM6 <TYPE-CODE LIST> + TAG42>
801 <SET TEMP18 %<> (TYPE FALSE)>
806 <EMPL? TEMP31 + TAG45>
807 <LOOP (TEMP31 VALUE)>
809 <NTHL TEMP31 1 = TEMP36>
810 <TYPE? TEMP36 <TYPE-CODE ATOM> - TAG48>
811 <VEQUAL? TEMP36 '+ + TAG46>
814 <RESTL TEMP31 1 = TEMP31 (TYPE LIST)>
815 <EMPL? TEMP31 - TAG47>
817 <SET PITEM6 %<> (TYPE FALSE)>
823 <VEQUAL? PITEM6 0 - BOOL44>
824 <CHTYPE PITEM6 <TYPE-CODE LIST> = TEMP31>
826 <EMPL? TEMP31 + TAG50>
827 <LOOP (TEMP31 VALUE)>
829 <NTHL TEMP31 1 = TEMP36>
830 <TYPE? TEMP36 <TYPE-CODE ATOM> - TAG53>
831 <VEQUAL? TEMP36 '- + TAG51>
834 <RESTL TEMP31 1 = TEMP31 (TYPE LIST)>
835 <EMPL? TEMP31 - TAG52>
837 <SET PITEM6 %<> (TYPE FALSE)>
844 <VEQUAL? TEMP18 0 + PHRASE22>
847 <RESTL PITEM6 1 = TEMP31 (TYPE LIST)>
848 <NTHL TEMP31 1 = STACK (TYPE ATOM)>
851 <CALL '
\1aDMEMQ 2 = TEMP36>
853 <VEQUAL? TEMP18 0 + PHRASE22>
854 <RESTL TEMP36 1 = TEMP31 (TYPE LIST)>
855 <NTHL TEMP31 1 = TEMP18 (TYPE ATOM)>
857 <VEQUAL? TEMP18 'TCOMPERR - PHRASE57>
858 <SETG 'COMPERR-FLAG 'T>
860 <VEQUAL? TEMP18 'TUNWCNT - PHRASE59>
862 <SETG 'UNWCNT-FLAG 'T>
864 <RESTL TEMP36 1 = TEMP31 (TYPE LIST)>
866 <NTHL TEMP31 1 = TEMP31 (TYPE ATOM)>
867 <RESTL PITEM6 1 = TEMP36 (TYPE LIST)>
868 <PUTL TEMP36 1 TEMP31>
873 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
878 <END
\1aFLUSH-DUAL-LABELS>
880 <GFCN
\1aREPLACE-LOOP-BRANCHES ("VALUE" ATOM LIST) CODE4>
881 <TEMP (LOOPS5 ()) PTR9:LIST ITM10 TEMP23 RBRANCH11 TEMP37 LAB12 TEMP57>
888 <EMPL? PTR9 - PHRASE17 (TYPE LIST)>
891 <NTHL PTR9 1 = ITM10>
892 <TYPE? ITM10 <TYPE-CODE FORM> - PHRASE19>
893 <NTHL ITM10 1 = TEMP23>
894 <EQUAL? TEMP23 'LOOP!-MIMOP - PHRASE21>
896 <EMPL? ITM10 + PHRASE21>
897 <RESTL ITM10 1 = TEMP23 (TYPE LIST)>
898 <EMPL? TEMP23 + PHRASE21>
900 <RESTL PTR9 1 = TEMP23 (TYPE LIST)>
901 <NTHL TEMP23 1 = TEMP23>
902 <CONS TEMP23 LOOPS5 = LOOPS5>
904 <RESTL PTR9 1 = PTR9 (TYPE LIST)>
905 <RESTL PTR9 1 = PTR9 (TYPE LIST)>
908 <NTHL ITM10 1 = TEMP23>
909 <EQUAL? TEMP23 'DISPATCH!-MIMOP - PHRASE24>
911 <FRAME '
\1aHACK-DISPATCH-LABELS>
914 <CALL '
\1aHACK-DISPATCH-LABELS 2>
915 <RESTL PTR9 1 = PTR9 (TYPE LIST)>
918 <SET RBRANCH11 ITM10>
919 <CHTYPE RBRANCH11 <TYPE-CODE LIST> = RBRANCH11>
920 <LOOP (RBRANCH11 VALUE)>
922 <NTHL RBRANCH11 1 = TEMP23>
923 <TYPE? TEMP23 <TYPE-CODE ATOM> - TAG32>
924 <VEQUAL? TEMP23 '+ + TAG30>
927 <RESTL RBRANCH11 1 = RBRANCH11 (TYPE LIST)>
928 <EMPL? RBRANCH11 - TAG31>
929 <SET RBRANCH11 %<> (TYPE FALSE)>
931 <VEQUAL? RBRANCH11 0 - BOOL42>
932 <CHTYPE ITM10 <TYPE-CODE LIST> = TEMP23>
933 <LOOP (TEMP23 VALUE)>
935 <NTHL TEMP23 1 = TEMP37>
936 <TYPE? TEMP37 <TYPE-CODE ATOM> - TAG36>
937 <VEQUAL? TEMP37 '- + TAG34>
940 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
941 <EMPL? TEMP23 - TAG35>
942 <SET RBRANCH11 %<> (TYPE FALSE)>
945 <SET RBRANCH11 TEMP23>
948 <VEQUAL? RBRANCH11 0 - BOOL42>
949 <SET RBRANCH11 ITM10>
950 <LOOP (RBRANCH11 VALUE)>
952 <RESTL RBRANCH11 1 = TEMP23 (TYPE LIST)>
953 <EMPL? TEMP23 + TAG41>
954 <SET RBRANCH11 TEMP23>
958 <NTHL RBRANCH11 1 = RBRANCH11>
959 <TYPE? RBRANCH11 <TYPE-CODE LIST> - PHRASE26>
960 <SET TEMP23 RBRANCH11>
962 <EMPL? TEMP23 + TAG43>
963 <LOOP (TEMP23 VALUE)>
965 <NTHL TEMP23 1 = TEMP37>
966 <TYPE? TEMP37 <TYPE-CODE ATOM> - TAG46>
967 <VEQUAL? TEMP37 '+ + TAG44>
970 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
971 <EMPL? TEMP23 - TAG45>
973 <SET RBRANCH11 %<> (TYPE FALSE)>
976 <SET RBRANCH11 TEMP23>
979 <VEQUAL? RBRANCH11 0 - BOOL42>
980 <CHTYPE RBRANCH11 <TYPE-CODE LIST> = TEMP23>
982 <EMPL? TEMP23 + TAG48>
983 <LOOP (TEMP23 VALUE)>
985 <NTHL TEMP23 1 = TEMP37>
986 <TYPE? TEMP37 <TYPE-CODE ATOM> - TAG51>
987 <VEQUAL? TEMP37 '- + TAG49>
990 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
991 <EMPL? TEMP23 - TAG50>
993 <SET RBRANCH11 %<> (TYPE FALSE)>
996 <SET RBRANCH11 TEMP23>
999 <VEQUAL? RBRANCH11 0 + PHRASE26>
1004 <CALL '
\1aNTH 2 = LAB12>
1006 <TYPE LAB12 = TEMP37>
1007 <EMPL? TEMP23 + PHRASE26>
1008 <LOOP (LAB12 VALUE) (TEMP37 VALUE) (TEMP23 VALUE)>
1010 <NTHL TEMP23 1 = TEMP57>
1011 <TYPE? TEMP57 TEMP37 - TAG55>
1012 <VEQUAL? TEMP57 LAB12 + TAG53>
1015 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
1016 <EMPL? TEMP23 - TAG54>
1019 <NTHL ITM10 1 = TEMP23>
1021 <EQUAL? TEMP23 'JUMP!-MIMOP + PHRASE26>
1023 <FRAME '
\1aMAKE-LABEL>
1025 <CALL '
\1aMAKE-LABEL 1 = ITM10>
1031 <NTH1 RBRANCH11 = TEMP23>
1032 <EQUAL? TEMP23 '- - PHRASE61>
1049 <RESTL PTR9 1 = RBRANCH11 (TYPE LIST)>
1055 <CALL '
\1aFORM 3 = TEMP23>
1056 <CONS TEMP23 () = TEMP23>
1057 <CONS ITM10 () = TEMP37>
1059 <PUTREST TEMP23 TEMP37>
1061 <PUTREST PTR9 TEMP23>
1063 <RESTL PTR9 1 = TEMP37 (TYPE LIST)>
1064 <RESTL TEMP37 1 = TEMP23 (TYPE LIST)>
1066 <PUTREST TEMP23 RBRANCH11>
1067 <DEAD TEMP23 RBRANCH11>
1068 <RESTL PTR9 1 = PTR9 (TYPE LIST)>
1069 <RESTL PTR9 1 = PTR9 (TYPE LIST)>
1070 <RESTL PTR9 1 = PTR9 (TYPE LIST)>
1073 <RESTL PTR9 1 = PTR9 (TYPE LIST)>
1076 <RESTL PTR9 1 = PTR9 (TYPE LIST)>
1078 <END
\1aREPLACE-LOOP-BRANCHES>
1080 <GFCN
\1aHACK-DISPATCH-LABELS ("VALUE" <OR ATOM FALSE> LIST LIST) PTR4 LOOPS5>
1081 <TEMP (DEFLBL6 %<>) (ANY?7 %<>) TEMP10 TEMP22 NP23:LIST LBL24 TEMP32 TEMP38:LIST NL25:ATOM>
1083 <RESTL PTR4 1 = TEMP10 (TYPE LIST)>
1084 <NTHL TEMP10 1 = TEMP10>
1085 <TYPE? TEMP10 <TYPE-CODE ATOM> - PHRASE9>
1087 <RESTL PTR4 1 = TEMP10 (TYPE LIST)>
1088 <NTHL TEMP10 1 = DEFLBL6 (TYPE ATOM)>
1091 <SET TEMP10 %<> (TYPE FALSE)>
1093 <NTHL PTR4 1 = STACK>
1095 <CALL '
\1aREST 2 = TEMP22>
1099 <EMPTY? TEMP22 + MAPAP15>
1101 <NTHL NP23 1 = LBL24 (TYPE ATOM)>
1103 <EMPL? TEMP10 + TAG28>
1104 <LOOP (LBL24 VALUE) (TEMP10 VALUE)>
1106 <NTHL TEMP10 1 = TEMP32>
1107 <TYPE? TEMP32 <TYPE-CODE ATOM> - TAG31>
1108 <VEQUAL? TEMP32 LBL24 + TAG29>
1111 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
1112 <EMPL? TEMP10 - TAG30>
1114 <SET TEMP10 %<> (TYPE FALSE)>
1117 <TYPE? ANY?7 <TYPE-CODE FALSE> - PHRASE34>
1118 <TYPE? DEFLBL6 <TYPE-CODE FALSE> - PHRASE36>
1119 <FRAME '
\1aMAKE-LABEL>
1121 <CALL '
\1aMAKE-LABEL 1 = DEFLBL6>
1122 <CONS DEFLBL6 () = TEMP32>
1123 <RESTL PTR4 1 = TEMP38 (TYPE LIST)>
1124 <PUTREST TEMP32 TEMP38>
1126 <PUTREST PTR4 TEMP32>
1133 <CALL '
\1aFORM 3 = TEMP32>
1134 <CONS TEMP32 () = TEMP38>
1136 <RESTL PTR4 1 = TEMP32 (TYPE LIST)>
1137 <PUTREST TEMP38 TEMP32>
1141 <PUTREST PTR4 ANY?7>
1143 <FRAME '
\1aMAKE-LABEL>
1145 <CALL '
\1aMAKE-LABEL 1 = NL25>
1146 <CONS NL25 () = TEMP38>
1151 <CALL '
\1aFORM 3 = TEMP32>
1152 <CONS TEMP32 () = TEMP32>
1153 <PUTREST TEMP38 TEMP32>
1154 <RESTL ANY?7 1 = TEMP10 (TYPE LIST)>
1155 <PUTREST TEMP32 TEMP10>
1156 <DEAD TEMP32 TEMP10>
1157 <PUTREST ANY?7 TEMP38>
1160 <RESTL NP23 1 = TEMP32 (TYPE LIST)>
1165 <EMPL? TEMP32 + TAG48>
1166 <LOOP (LBL24 VALUE) (TEMP32 VALUE)>
1168 <NTHL TEMP32 1 = TEMP10>
1169 <TYPE? TEMP10 <TYPE-CODE ATOM> - TAG51>
1170 <VEQUAL? TEMP10 LBL24 + TAG49>
1173 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
1174 <EMPL? TEMP32 - TAG50>
1176 <SET TEMP32 %<> (TYPE FALSE)>
1180 <VEQUAL? TEMP32 0 + PHRASE47>
1181 <PUTL TEMP32 1 NL25>
1184 <SET TEMP10 'T (TYPE ATOM)>
1186 <REST1 TEMP22 = TEMP22>
1191 <END
\1aHACK-DISPATCH-LABELS>
1193 <GFCN
\1aDMEMQ ("VALUE" <OR !<FALSE> <LIST ATOM [REST ATOM]>> ATOM <LIST [REST ATOM]>) X4 L5>
1199 <EMPL? L5 - PHRASE11 (TYPE LIST)>
1202 <NTHL L5 1 = TEMP6 (TYPE ATOM)>
1203 <VEQUAL? TEMP6 X4 - PHRASE12>
1208 <RESTL L5 1 = L5 (TYPE LIST)>
1209 <RESTL L5 1 = L5 (TYPE LIST)>
1213 <GFCN
\1aPRINT-MIM-CODE ("VALUE" <OR ATOM FALSE> LIST "OPTIONAL" CHANNEL) LST6 OUTCHAN7>
1214 <OPT-DISPATCH 1 %<> OPT4 OPT5>
1218 <TEMP TEMP3:LBIND TEMP11 TEMP17 TEMP37>
1220 <GETS 'BIND = TEMP3 (TYPE LBIND)>
1221 <TYPE? OUTCHAN7 <TYPE-CODE UNBOUND> - TAG9>
1222 <GEN-LVAL 'OUTCHAN = OUTCHAN7>
1224 <BBIND 'OUTCHAN 'CHANNEL 'FIX OUTCHAN7>
1227 <GEN-LVAL 'OBLIST = TEMP11>
1228 <GVAL 'MIMOP-OBLIST = TEMP17>
1229 <CONS TEMP17 TEMP11 = TEMP11>
1231 <BBIND 'OBLIST 'LIST 'FIX TEMP11>
1234 <NTHR 'OUTCHAN 2 = TEMP11 (RECORD-TYPE ATOM) (TYPE LBIND)>
1235 <NTHR TEMP11 1 = STACK (RECORD-TYPE LBIND)>
1239 <NTHR 'OUTCHAN 2 = TEMP11 (RECORD-TYPE ATOM) (TYPE LBIND)>
1240 <NTHR TEMP11 1 = STACK (RECORD-TYPE LBIND)>
1243 <SET TEMP17 %<> (TYPE FALSE)>
1244 <SET TEMP11 LST6 (TYPE LIST)>
1249 <EMPL? TEMP11 + MAPAP28>
1250 <NTHL TEMP11 1 = TEMP17>
1251 <TYPE? TEMP17 <TYPE-CODE ATOM> - PHRASE35>
1255 <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
1256 <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
1263 <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
1264 <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
1270 <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
1271 <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
1276 <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
1277 <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
1279 <CALL '
\1aCRLF 1 = TEMP17>
1280 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
1288 <END
\1aPRINT-MIM-CODE>
1289 <GDECL (GLUE-FCNS) <LIST [REST ATOM]>>
1291 <GDECL (INCHANS) <LIST [REST CHANNEL]>>
1294 <GFCN
\1aFINISH-FILE ("VALUE" <OR !<FALSE> FORM> TUPLE <OR CHANNEL FALSE> <OR ATOM FALSE>) READ-INFO4 OUTCHAN5 EXPFLOAD6>
1295 <TEMP TEMP3:LBIND (IND7:LIST (1)) TEMP15 EXPSPLICE8 TEMP26 TEMP30 TEMP43 TEMP44 TEMP45>
1297 <GETS 'BIND = TEMP3 (TYPE LBIND)>
1298 <BBIND 'OUTCHAN <OR CHANNEL FALSE> %<> OUTCHAN5>
1301 <GEN-ASSIGNED? 'EXPSPLICE + TAG14>
1302 <SET TEMP15 %<> (TYPE FALSE)>
1305 <GEN-LVAL 'EXPSPLICE = TEMP15>
1307 <SET EXPSPLICE8 TEMP15>
1309 <NTHUV READ-INFO4 3 = TEMP15 (TYPE CHANNEL)>
1310 <BBIND 'INCHAN 'CHANNEL 'FIX TEMP15>
1315 <FRAME '
\1aREAD-INTERNAL>
1317 <CFRAME = STACK (TYPE FRAME)>
1318 <CALL '
\1aREAD-INTERNAL 2 = TEMP15>
1319 <CFRAME = TEMP26 (TYPE FRAME)>
1320 <EQUAL? TEMP26 TEMP15 - TAG27>
1324 <EQUAL? TEMP15 IND7 - PHRASE25>
1325 <GVAL 'INCHANS = TEMP30>
1326 <RESTL TEMP30 1 = TEMP26 (TYPE LIST)>
1328 <SETG 'INCHANS TEMP26>
1329 <EMPL? TEMP26 - PHRASE29 (TYPE LIST)>
1332 <NTHR 'INCHAN 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
1333 <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
1336 <SET TEMP15 %<> (TYPE FALSE)>
1340 <FRAME '
\1aSET-RI-CHANNEL>
1342 <GVAL 'INCHANS = TEMP30>
1343 <NTHL TEMP30 1 = TEMP30 (TYPE CHANNEL)>
1344 <NTHR 'INCHAN 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
1345 <PUTR TEMP26 1 TEMP30 (RECORD-TYPE LBIND)>
1349 <CALL '
\1aSET-RI-CHANNEL 2 = STACK>
1353 <TYPE? TEMP15 <TYPE-CODE STRING> + AGAIN23>
1354 <TYPE? TEMP15 <TYPE-CODE CHARACTER> + AGAIN23>
1355 <TYPE? TEMP15 <TYPE-CODE FIX> + AGAIN23>
1356 <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG42>
1357 <NTHR TEMP15 3 = TEMP30 (RECORD-TYPE ATOM)>
1358 <IFCAN "STRING-EQUAL?">
1359 <STRING-EQUAL? TEMP30 "
\f" + AGAIN23>
1360 <ENDIF "STRING-EQUAL?">
1361 <IFCANNOT "STRING-EQUAL?">
1362 <SET TEMP26 "
\f" (TYPE STRING)>
1363 <LENUS TEMP30 = TEMP43 (TYPE FIX)>
1364 <VEQUAL? TEMP43 1 - TAG42>
1365 <LOOP (TEMP30 VALUE LENGTH) (TEMP26 VALUE LENGTH) (TEMP43 VALUE)>
1367 <NTHUS TEMP30 1 = TEMP44>
1368 <NTHUS TEMP26 1 = TEMP45>
1369 <VEQUAL? TEMP44 TEMP45 - TAG42>
1370 <DEAD TEMP44 TEMP45>
1371 <RESTUS TEMP30 1 = TEMP30 (TYPE STRING)>
1372 <RESTUS TEMP26 1 = TEMP26 (TYPE STRING)>
1373 <SUB TEMP43 1 = TEMP43 (TYPE FIX)>
1374 <GRTR? TEMP43 0 + TAG46 (TYPE FIX)>
1376 <ENDIF "STRING-EQUAL?">
1378 <TYPE? TEMP15 <TYPE-CODE FORM> - PHRASE48>
1380 <SET TEMP30 2 (TYPE FIX)>
1381 <LOOP (TEMP26 VALUE) (TEMP30 VALUE)>
1383 <EMPL? TEMP26 + PHRASE48>
1384 <SUB TEMP30 1 = TEMP30 (TYPE FIX)>
1385 <LESS? TEMP30 0 + TAG52>
1386 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1390 <NTHL TEMP15 1 = TEMP30 (TYPE ATOM)>
1391 <NTHR TEMP30 3 = STACK (RECORD-TYPE ATOM)>
1393 <PUSH ["FCN" "GFCN"]>
1394 <CALL '
\1aMEMBER 2 = TEMP30>
1395 <TYPE? TEMP30 <TYPE-CODE FALSE> + PHRASE48>
1399 <TYPE? TEMP15 <TYPE-CODE WORD> - PHRASE55>
1400 <GVAL 'GLUE = TEMP30>
1401 <TYPE? TEMP30 <TYPE-CODE FALSE> - AGAIN23>
1403 <SETG 'LAST-HASH TEMP15>
1404 <GVAL 'INT-MODE = TEMP30>
1405 <TYPE? TEMP30 <TYPE-CODE FALSE> - AGAIN23>
1410 <CALL '
\1aUNPARSE 1 = TEMP15>
1413 <NTHR 'OUTCHAN 2 = TEMP30 (RECORD-TYPE ATOM) (TYPE LBIND)>
1414 <NTHR TEMP30 1 = STACK (RECORD-TYPE LBIND)>
1417 <FRAME '
\1aPRINTSTRING>
1418 <RESTUS TEMP15 7 = STACK (TYPE STRING)>
1419 <NTHR 'OUTCHAN 2 = TEMP30 (RECORD-TYPE ATOM) (TYPE LBIND)>
1420 <NTHR TEMP30 1 = STACK (RECORD-TYPE LBIND)>
1422 <LENUS TEMP15 = TEMP30 (TYPE FIX)>
1424 <SUB TEMP30 8 = STACK (TYPE FIX)>
1426 <CALL '
\1aPRINTSTRING 3>
1429 <NTHR 'OUTCHAN 2 = TEMP30 (RECORD-TYPE ATOM) (TYPE LBIND)>
1430 <NTHR TEMP30 1 = STACK (RECORD-TYPE LBIND)>
1434 <NTHR 'OUTCHAN 2 = TEMP30 (RECORD-TYPE ATOM) (TYPE LBIND)>
1435 <NTHR TEMP30 1 = STACK (RECORD-TYPE LBIND)>
1440 <TYPE? EXPFLOAD6 <TYPE-CODE FALSE> + PHRASE73>
1441 <TYPE? TEMP15 <TYPE-CODE FORM> - PHRASE73>
1442 <EMPL? TEMP15 + PHRASE73 (TYPE FORM)>
1443 <NTHL TEMP15 1 = TEMP30>
1444 <EQUAL? TEMP30 'FLOAD - PHRASE76>
1448 <SET TEMP26 1 (TYPE FIX)>
1449 <RESTL TEMP15 1 = TEMP30 (TYPE LIST)>
1450 <CHTYPE TEMP30 <TYPE-CODE LIST> = TEMP30>
1451 <LOOP (TEMP30 VALUE) (TEMP26 VALUE)>
1454 <EMPL? TEMP30 + TAG77>
1455 <NTHL TEMP30 1 = STACK>
1456 <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
1457 <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
1460 <CALL '
\1aOPEN TEMP26 = TEMP30>
1462 <TYPE? TEMP30 <TYPE-CODE FALSE> + PHRASE73>
1465 <NTHL TEMP15 1 = TEMP26>
1466 <EQUAL? TEMP26 'L-FLOAD - PHRASE73>
1469 <RESTL TEMP15 1 = TEMP26 (TYPE LIST)>
1470 <NTHL TEMP26 1 = STACK (TYPE STRING)>
1472 <CALL '
\1aL-OPEN 1 = TEMP30>
1473 <TYPE? TEMP30 <TYPE-CODE FALSE> + PHRASE73>
1475 <FRAME '
\1aPRINFILE>
1477 <CALL '
\1aPRINFILE 1>
1478 <FRAME '
\1aSET-RI-CHANNEL>
1480 <NTHR 'INCHAN 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
1481 <PUTR TEMP26 1 TEMP30 (RECORD-TYPE LBIND)>
1484 <CALL '
\1aSET-RI-CHANNEL 2>
1485 <GVAL 'INCHANS = TEMP26>
1486 <CONS TEMP30 TEMP26 = TEMP26>
1488 <SETG 'INCHANS TEMP26>
1492 <TYPE? TEMP15 <TYPE-CODE FORM> - PHRASE88>
1493 <EMPL? TEMP15 + PHRASE88 (TYPE FORM)>
1494 <NTHL TEMP15 1 = TEMP26>
1495 <EQUAL? TEMP26 'NEW-CHANNEL-TYPE - PHRASE91>
1500 <SET TEMP30 1 (TYPE FIX)>
1501 <RESTL TEMP15 1 = TEMP26 (TYPE LIST)>
1502 <CHTYPE TEMP26 <TYPE-CODE LIST> = TEMP26>
1503 <LOOP (TEMP26 VALUE) (TEMP30 VALUE)>
1506 <EMPL? TEMP26 + TAG93>
1507 <NTHL TEMP26 1 = STACK>
1508 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1509 <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
1512 <CALL '
\1aFORM TEMP30 = STACK>
1514 <CALL '
\1aEVAL 1 = TEMP26>
1517 <NTHL TEMP15 1 = TEMP30>
1518 <SET TEMP26 [INCLUDE-WHEN USE-WHEN] (TYPE VECTOR)>
1519 <TYPE? TEMP30 <TYPE-CODE ATOM> - PHRASE96>
1520 <LOOP (TEMP30 VALUE) (TEMP26 LENGTH VALUE)>
1522 <NTHUV TEMP26 1 = TEMP45>
1523 <VEQUAL? TEMP45 TEMP30 + TAG98>
1525 <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1526 <EMPUV? TEMP26 - TAG99>
1530 <SET TEMP30 1 (TYPE FIX)>
1531 <LOOP (TEMP26 VALUE) (TEMP30 VALUE)>
1533 <EMPL? TEMP26 + PHRASE96>
1534 <SUB TEMP30 1 = TEMP30 (TYPE FIX)>
1535 <LESS? TEMP30 0 + TAG103>
1536 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1539 <RESTL TEMP15 1 = TEMP30 (TYPE LIST)>
1540 <NTHL TEMP30 1 = TEMP30>
1541 <TYPE? TEMP30 <TYPE-CODE FORM> - PHRASE96>
1543 <RESTL TEMP15 1 = TEMP30 (TYPE LIST)>
1544 <NTHL TEMP30 1 = TEMP30 (TYPE FORM)>
1545 <EMPL? TEMP30 + PHRASE96 (TYPE FORM)>
1547 <RESTL TEMP15 1 = TEMP30 (TYPE LIST)>
1548 <NTHL TEMP30 1 = TEMP30 (TYPE FORM)>
1549 <NTHL TEMP30 1 = TEMP30>
1550 <EQUAL? TEMP30 'COMPILING? - PHRASE96>
1554 <CALL '
\1aEVAL 1 = TEMP26>
1556 <RESTL TEMP15 1 = TEMP30 (TYPE LIST)>
1557 <NTHL TEMP30 1 = STACK>
1566 <CALL '
\1aEVAL 1 = TEMP26>
1571 <CALL '
\1aEVAL 1 = TEMP26>
1573 <NTHR 'OUTCHAN 2 = TEMP30 (RECORD-TYPE ATOM) (TYPE LBIND)>
1574 <NTHR TEMP30 1 = TEMP30 (RECORD-TYPE LBIND)>
1575 <TYPE? TEMP30 <TYPE-CODE FALSE> + AGAIN23>
1577 <GVAL 'INT-MODE = TEMP30>
1578 <TYPE? TEMP30 <TYPE-CODE FALSE> + PHRASE115>
1580 <FRAME '
\1aPRINTTYPE>
1582 <GVAL 'ATOM-PRINT = STACK>
1583 <CALL '
\1aPRINTTYPE 2>
1584 <FRAME '
\1aPRINTTYPE>
1586 <GVAL 'ATOM-PRINT = STACK>
1587 <CALL '
\1aPRINTTYPE 2>
1588 <FRAME '
\1aPRINTTYPE>
1590 <GVAL 'ATOM-PRINT = STACK>
1591 <CALL '
\1aPRINTTYPE 2>
1593 <TYPE? EXPSPLICE8 <TYPE-CODE FALSE> + PHRASE120>
1594 <TYPE? TEMP26 <TYPE-CODE SPLICE> - PHRASE120>
1595 <CHTYPE TEMP26 <TYPE-CODE LIST> = TEMP30>
1600 <EMPL? TEMP30 + PHRASE137>
1601 <NTHL TEMP30 1 = TEMP15>
1605 <NTHR 'OUTCHAN 2 = TEMP15 (RECORD-TYPE ATOM) (TYPE LBIND)>
1606 <NTHR TEMP15 1 = STACK (RECORD-TYPE LBIND)>
1610 <NTHR 'OUTCHAN 2 = TEMP15 (RECORD-TYPE ATOM) (TYPE LBIND)>
1611 <NTHR TEMP15 1 = STACK (RECORD-TYPE LBIND)>
1614 <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
1620 <NTHR 'OUTCHAN 2 = TEMP30 (RECORD-TYPE ATOM) (TYPE LBIND)>
1621 <NTHR TEMP30 1 = STACK (RECORD-TYPE LBIND)>
1625 <NTHR 'OUTCHAN 2 = TEMP30 (RECORD-TYPE ATOM) (TYPE LBIND)>
1626 <NTHR TEMP30 1 = STACK (RECORD-TYPE LBIND)>
1630 <GVAL 'INT-MODE = TEMP30>
1631 <TYPE? TEMP30 <TYPE-CODE FALSE> + AGAIN23>
1633 <FRAME '
\1aPRINTTYPE>
1635 <GVAL 'PRINT = STACK>
1636 <CALL '
\1aPRINTTYPE 2>
1637 <FRAME '
\1aPRINTTYPE>
1639 <GVAL 'PRINT = STACK>
1640 <CALL '
\1aPRINTTYPE 2>
1641 <FRAME '
\1aPRINTTYPE>
1643 <GVAL 'PRINT = STACK>
1644 <CALL '
\1aPRINTTYPE 2>
1652 <END
\1aFINISH-FILE>
1653 <GDECL (LAST-HASH) <OR FALSE WORD>>
1656 <GFCN
\1aFILE-PASS1 ("VALUE" ATOM <<PRIMTYPE VECTOR> [REST STRING]> TUPLE CHANNEL <OR FALSE CHANNEL> <OR FALSE CHANNEL> <OR FALSE CHANNEL> ANY) NAMES4 READ-INFO5 OCH6 PMCH7 AMCH8 AACH9 EXPFLOAD10>
1657 <TEMP (STARCPU14 0.0) TEMP3:LBIND (PRE-CH16 %<>) (INDEX17:LIST ()) (RREDO18:LIST ()) TEMP22 TEMP48 TEMP52 X55 VAL87 TEMP100 TEMP102>
1659 <GETS 'BIND = TEMP3 (TYPE LBIND)>
1660 <BBIND 'NM2 'STRING 'FIX "MIMA">
1662 <SETG 'GLUE-FCNS ()>
1664 <GVAL 'GLUE = TEMP22>
1665 <TYPE? TEMP22 <TYPE-CODE FALSE> - MAPEX45>
1667 <GEN-ASSIGNED? 'PRECOMPILED - MAPEX45>
1668 <GEN-LVAL 'PRECOMPILED = TEMP22>
1669 <TYPE? TEMP22 <TYPE-CODE FALSE> + MAPEX45>
1671 <GVAL 'PRE-CH = TEMP22>
1672 <TYPE? TEMP22 <TYPE-CODE FALSE> + MAPEX45>
1674 <GVAL 'PRE-CH = PRE-CH16>
1676 <GEN-LVAL 'OUTCHAN = STACK>
1678 <FRAME '
\1aPRINT-MANY>
1679 <GEN-LVAL 'OUTCHAN = STACK>
1681 <PUSH "Precompilation from ">
1682 <FRAME '
\1aCHANNEL-OP>
1685 <CALL '
\1aCHANNEL-OP 2 = STACK>
1686 <CALL '
\1aPRINT-MANY 4>
1687 <FRAME '
\1aBUILD-INDEX>
1689 <GVAL 'FCN-OBL = STACK>
1690 <CALL '
\1aBUILD-INDEX 2 = INDEX17>
1691 <GEN-ASSIGNED? 'REDO - MAPEX45>
1692 <GEN-LVAL 'REDO = TEMP22>
1693 <TYPE? TEMP22 <TYPE-CODE FALSE> + MAPEX45>
1695 <SET TEMP22 () (TYPE LIST)>
1696 <SET TEMP48 () (TYPE LIST)>
1697 <GEN-LVAL 'REDO = TEMP52>
1701 <EMPTY? TEMP52 + MAPAP46>
1703 <NTHR X55 3 = X55 (RECORD-TYPE ATOM)>
1704 <CONS X55 () = X55 (TYPE LIST)>
1705 <EMPL? TEMP22 - TAG57>
1706 <SET TEMP22 X55 (TYPE LIST)>
1709 <PUTREST TEMP48 X55>
1712 <SET TEMP48 X55 (TYPE LIST)>
1714 <REST1 TEMP52 = TEMP52>
1717 <SET RREDO18 TEMP22>
1720 <SET TEMP22 %<> (TYPE FALSE)>
1721 <GETS 'BIND = X55 (TYPE LBIND)>
1722 <BBIND 'COMPILER-INPUT 'CHANNEL 'FIX>
1726 <SETG 'LAST-HASH %<>>
1727 <GVAL 'END-READ = TEMP48>
1728 <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE68>
1730 <TYPE? TEMP22 <TYPE-CODE FALSE> + BOOL70>
1736 <EMPUV? NAMES4 - PHRASE73>
1737 <SET TEMP52 'T (TYPE ATOM)>
1744 <NTHUV NAMES4 1 = STACK (TYPE STRING)>
1745 <CALL '
\1aOPEN 2 = TEMP22>
1746 <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE75>
1751 <FRAME '
\1aPRINFILE>
1753 <CALL '
\1aPRINFILE 1>
1754 <CONS TEMP22 () = TEMP48>
1755 <SETG 'INCHANS TEMP48>
1757 <NTHR 'COMPILER-INPUT 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
1758 <PUTR TEMP48 1 TEMP22 (RECORD-TYPE LBIND)>
1760 <FRAME '
\1aSET-RI-CHANNEL>
1763 <CALL '
\1aSET-RI-CHANNEL 2>
1764 <RESTUV NAMES4 1 = NAMES4 (TYPE VECTOR)>
1765 <CHTYPE NAMES4 <TYPE-CODE VECTOR> = NAMES4>
1766 <SETG 'END-READ %<>>
1769 <CALL '
\1aTIME 0 = STARCPU14>
1770 <FRAME '
\1aFINISH-FILE>
1772 <GVAL 'GLUE = TEMP48>
1773 <TYPE? TEMP48 <TYPE-CODE FALSE> + TAG94>
1775 <SET TEMP52 %<> (TYPE FALSE)>
1783 <CALL '
\1aFINISH-FILE 3 = VAL87>
1784 <GVAL 'IO-TIME = TEMP52>
1786 <CALL '
\1aTIME 0 = TEMP48>
1787 <SUBF TEMP48 STARCPU14 = TEMP48 (TYPE FLOAT)>
1789 <ADDF TEMP52 TEMP48 = TEMP52 (TYPE FLOAT)>
1791 <SETG 'IO-TIME TEMP52>
1793 <TYPE? VAL87 <TYPE-CODE FALSE> - PHRASE83>
1797 <GVAL 'INCHANS = TEMP52>
1798 <NTHL TEMP52 1 = TEMP22 (TYPE CHANNEL)>
1801 <GVAL 'FCN-COUNT = STACK>
1803 <CALL '
\1a+ 2 = TEMP52>
1804 <SETG 'FCN-COUNT TEMP52>
1806 <NTH1 VAL87 = TEMP52>
1807 <NTHR TEMP52 3 = TEMP52 (RECORD-TYPE ATOM)>
1808 <IFCAN "STRING-EQUAL?">
1809 <STRING-EQUAL? TEMP52 "FCN" - PHRASE99>
1810 <ENDIF "STRING-EQUAL?">
1811 <IFCANNOT "STRING-EQUAL?">
1812 <SET TEMP48 "FCN" (TYPE STRING)>
1813 <LENUS TEMP52 = TEMP100 (TYPE FIX)>
1814 <VEQUAL? TEMP100 3 - PHRASE99>
1815 <LOOP (TEMP52 VALUE LENGTH) (TEMP48 VALUE LENGTH) (TEMP100 VALUE)>
1817 <NTHUS TEMP52 1 = STARCPU14>
1818 <NTHUS TEMP48 1 = TEMP102>
1819 <VEQUAL? STARCPU14 TEMP102 - PHRASE99>
1820 <DEAD STARCPU14 TEMP102>
1821 <RESTUS TEMP52 1 = TEMP52 (TYPE STRING)>
1822 <RESTUS TEMP48 1 = TEMP48 (TYPE STRING)>
1823 <SUB TEMP100 1 = TEMP100 (TYPE FIX)>
1824 <GRTR? TEMP100 0 + TAG103 (TYPE FIX)>
1825 <ENDIF "STRING-EQUAL?">
1842 <CALL '
\1aNTH 2 = TEMP100>
1843 <GVAL 'GLUE = TEMP48>
1844 <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE108>
1847 <CALL '
\1aTIME 0 = STARCPU14>
1850 <CALL '
\1aSKIP 1 = TEMP48>
1851 <GVAL 'IO-TIME = TEMP52>
1853 <CALL '
\1aTIME 0 = TEMP102>
1854 <SUBF TEMP102 STARCPU14 = TEMP102 (TYPE FLOAT)>
1856 <ADDF TEMP52 TEMP102 = TEMP52 (TYPE FLOAT)>
1858 <SETG 'IO-TIME TEMP52>
1860 <NTH1 VAL87 = TEMP52>
1862 <EQUAL? TEMP52 'GFCN!-MIMOP - AGAIN66>
1864 <GVAL 'GLUE-FCNS = TEMP52>
1865 <CONS TEMP100 TEMP52 = TEMP52>
1867 <SETG 'GLUE-FCNS TEMP52>
1871 <TYPE? PRE-CH16 <TYPE-CODE FALSE> + PHRASE120>
1873 <NTHR TEMP100 3 = STACK (RECORD-TYPE ATOM)>
1875 <CALL '
\1aMEMBER 2 = TEMP52>
1876 <TYPE? TEMP52 <TYPE-CODE FALSE> - PHRASE120>
1878 <FRAME '
\1aFIND-OLD-FCN>
1881 <CALL '
\1aFIND-OLD-FCN 2 = TEMP48>
1882 <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE120>
1884 <SET TEMP102 4 (TYPE FIX)>
1885 <LOOP (TEMP52 VALUE) (TEMP102 VALUE)>
1887 <EMPL? TEMP52 + BOOL124>
1888 <RESTL TEMP52 1 = TEMP52 (TYPE LIST)>
1889 <SUB TEMP102 1 = TEMP102 (TYPE FIX)>
1890 <GRTR? TEMP102 0 + TAG125 (TYPE FIX)>
1891 <RESTL TEMP48 1 = TEMP52 (TYPE LIST)>
1892 <RESTL TEMP52 1 = TEMP52 (TYPE LIST)>
1893 <RESTL TEMP52 1 = TEMP52 (TYPE LIST)>
1894 <NTHL TEMP52 1 = TEMP52>
1895 <GVAL 'LAST-HASH = STARCPU14>
1896 <EQUAL? TEMP52 STARCPU14 - PHRASE120>
1899 <GVAL 'VERBOSE? = STARCPU14>
1900 <TYPE? STARCPU14 <TYPE-CODE FALSE> + PHRASE127>
1903 <GEN-LVAL 'OUTCHAN = STACK>
1906 <PUSH "Skipping function ">
1907 <GEN-LVAL 'OUTCHAN = STACK>
1911 <GEN-LVAL 'OUTCHAN = STACK>
1915 <CALL '
\1aTIME 0 = STARCPU14>
1916 <FRAME '
\1aCOPY-OLD-FCN>
1921 <CALL '
\1aCOPY-OLD-FCN 3>
1922 <FRAME '
\1aSET-RI-CHANNEL>
1925 <CALL '
\1aSET-RI-CHANNEL 2>
1926 <FRAME '
\1aSKIP-MIMA>
1930 <CALL '
\1aSKIP-MIMA 2>
1931 <FRAME '
\1aSET-RI-CHANNEL>
1934 <CALL '
\1aSET-RI-CHANNEL 2 = TEMP48>
1935 <GVAL 'IO-TIME = TEMP48>
1937 <CALL '
\1aTIME 0 = TEMP52>
1938 <SUBF TEMP52 STARCPU14 = TEMP52 (TYPE FLOAT)>
1940 <ADDF TEMP48 TEMP52 = TEMP48 (TYPE FLOAT)>
1942 <SETG 'IO-TIME TEMP48>
1946 <GVAL 'WARN-PRINT = TEMP48>
1947 <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE156>
1949 <GVAL 'VERBOSE? = TEMP48>
1950 <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE156>
1953 <GEN-LVAL 'OUTCHAN = STACK>
1956 <PUSH "Compiling: ">
1957 <GEN-LVAL 'OUTCHAN = STACK>
1963 <CALL '
\1aNTH 2 = STACK>
1964 <GEN-LVAL 'OUTCHAN = STACK>
1968 <CALL '
\1aTIME 0 = STARCPU14>
1973 <CALL '
\1aREADIN 2 = TEMP52>
1975 <GVAL 'IO-TIME = VAL87>
1977 <CALL '
\1aTIME 0 = TEMP48>
1978 <SUBF TEMP48 STARCPU14 = TEMP48 (TYPE FLOAT)>
1980 <ADDF VAL87 TEMP48 = VAL87 (TYPE FLOAT)>
1982 <SETG 'IO-TIME VAL87>
1985 <CALL '
\1aTIME 0 = STARCPU14>
1989 <TYPE? PMCH7 <TYPE-CODE FALSE> + BOOL181>
1990 <FRAME '
\1aPRINT-MIM-CODE>
1993 <CALL '
\1aPRINT-MIM-CODE 2>
2000 <TYPE? AMCH8 <TYPE-CODE FALSE> + BOOL184>
2001 <FRAME '
\1aPRINT-GEN-INST>
2003 <CALL '
\1aPRINT-GEN-INST 1>
2005 <GVAL 'FUNCTION-NAME = TEMP100>
2006 <FRAME '
\1aASSEMBLE-CODE>
2009 <CALL '
\1aASSEMBLE-CODE 2>
2011 <CALL '
\1aTIME 0 = VAL87>
2013 <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE193>
2032 <FRAME '
\1aPRINT-FINAL-INST>
2034 <CALL '
\1aPRINT-FINAL-INST 1 = TEMP48>
2036 <GVAL 'IO-TIME = TEMP48>
2038 <CALL '
\1aTIME 0 = TEMP52>
2039 <SUBF TEMP52 VAL87 = TEMP52 (TYPE FLOAT)>
2041 <ADDF TEMP48 TEMP52 = TEMP48 (TYPE FLOAT)>
2043 <SETG 'IO-TIME TEMP48>
2045 <FRAME '
\1aGEN-NAME>
2046 <GVAL 'FUNCTION-NAME = STACK>
2047 <CALL '
\1aGEN-NAME 1 = TEMP48>
2048 <SETG 'INTERNAL-MSUBR-NAME TEMP48>
2050 <GVAL 'INT-MODE = TEMP48>
2051 <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE204>
2053 <FRAME '
\1aPRINTTYPE>
2055 <GVAL 'ATOM-PRINT = STACK>
2056 <CALL '
\1aPRINTTYPE 2>
2057 <FRAME '
\1aPRINTTYPE>
2059 <GVAL 'ATOM-PRINT = STACK>
2060 <CALL '
\1aPRINTTYPE 2>
2061 <FRAME '
\1aPRINTTYPE>
2063 <GVAL 'ATOM-PRINT = STACK>
2064 <CALL '
\1aPRINTTYPE 2>
2067 <CALL '
\1aTIME 0 = VAL87>
2068 <FRAME '
\1aPRINT-IMSUBR>
2070 <CALL '
\1aPRINT-IMSUBR 1>
2071 <FRAME '
\1aPRINT-MSUBR>
2074 <CALL '
\1aPRINT-MSUBR 2 = TEMP48>
2075 <GVAL 'IO-TIME = TEMP48>
2077 <CALL '
\1aTIME 0 = TEMP52>
2078 <SUBF TEMP52 VAL87 = TEMP52 (TYPE FLOAT)>
2080 <ADDF TEMP48 TEMP52 = TEMP48 (TYPE FLOAT)>
2082 <SETG 'IO-TIME TEMP48>
2084 <GVAL 'VERBOSE? = TEMP48>
2085 <TYPE? TEMP48 <TYPE-CODE FALSE> + BOOL220>
2087 <GVAL 'WARN-PRINT = TEMP48>
2088 <TYPE? TEMP48 <TYPE-CODE FALSE> + BOOL220>
2090 <FRAME '
\1aPRINT-RSUBR-STATS>
2094 <CALL '
\1aPRINT-RSUBR-STATS 2>
2096 <GVAL 'INT-MODE = TEMP48>
2097 <TYPE? TEMP48 <TYPE-CODE FALSE> + AGAIN66>
2099 <FRAME '
\1aPRINTTYPE>
2101 <GVAL 'PRINT = STACK>
2102 <CALL '
\1aPRINTTYPE 2>
2103 <FRAME '
\1aPRINTTYPE>
2105 <GVAL 'PRINT = STACK>
2106 <CALL '
\1aPRINTTYPE 2>
2107 <FRAME '
\1aPRINTTYPE>
2109 <GVAL 'PRINT = STACK>
2110 <CALL '
\1aPRINTTYPE 2>
2119 <END
\1aFILE-PASS1>
\r\0\r\0
2121 <GFCN
\1aFILE-PASS2 ("VALUE" ATOM <<PRIMTYPE VECTOR> [REST STRING]> TUPLE CHANNEL <OR FALSE CHANNEL> <OR FALSE CHANNEL> <OR FALSE CHANNEL> ANY) NAMES4 READ-INFO5 OCH6 PMCH7 AMCH8 AACH9 EXPFLOAD10>
2122 <TEMP (STARCPU14 0.0) TEMP3:LBIND FIRST22 OFF23:FIX CH24 END25 TEMP20:LBIND TEMP33 CH228 TEMP61 TEMP133 TEMP134>
2124 <GETS 'BIND = TEMP3 (TYPE LBIND)>
2125 <BBIND 'NM2 'STRING 'FIX "MIMA">
2126 <BBIND 'REDEFINE 'ATOM 'FIX 'T>
2127 <BBIND 'PASS2? 'ATOM 'FIX 'T>
2129 <SETG 'FIRST-FCN-ACCESS %<>>
2130 <SETG 'FIRST-FCN-OBLIST ()>
2131 <SET FIRST22 'T (TYPE ATOM)>
2132 <SET OFF23 0 (TYPE FIX)>
2133 <SET CH24 %<> (TYPE FALSE)>
2134 <SET END25 'T (TYPE ATOM)>
2135 <GETS 'BIND = TEMP20 (TYPE LBIND)>
2136 <BBIND 'COMPILER-INPUT 'CHANNEL 'FIX>
2140 <GVAL 'FCN-COUNT = TEMP33>
2141 <VEQUAL? TEMP33 0 - COND36 (TYPE FIX)>
2146 <FRAME '
\1aCHANNEL-OP>
2149 <CALL '
\1aCHANNEL-OP 2 = STACK>
2156 <FRAME '
\1aCHANNEL-OP>
2159 <CALL '
\1aCHANNEL-OP 2 = STACK>
2160 <FRAME '
\1aCHANNEL-OP>
2163 <CALL '
\1aCHANNEL-OP 2 = STACK>
2164 <CALL '
\1aOPEN 6 = CH228>
2165 <TYPE? CH228 <TYPE-CODE FALSE> + PHRASE37>
2166 <GETS 'BIND = TEMP33 (TYPE LBIND)>
2167 <GVAL 'FIRST-FCN-OBLIST = END25>
2168 <BBIND 'OBLIST 'OBLIST 'FIX END25>
2177 <GVAL 'FIRST-FCN-ACCESS = END25>
2178 <TYPE? END25 <TYPE-CODE FALSE> + EXIT53>
2181 <CALL '
\1aTIME 0 = STARCPU14>
2182 <FRAME '
\1aDO-FILE-COPY>
2185 <GVAL 'FIRST-FCN-ACCESS = STACK>
2186 <CALL '
\1aDO-FILE-COPY 3 = END25>
2187 <GVAL 'IO-TIME = END25>
2189 <CALL '
\1aTIME 0 = TEMP61>
2190 <SUBF TEMP61 STARCPU14 = TEMP61 (TYPE FLOAT)>
2192 <ADDF END25 TEMP61 = END25 (TYPE FLOAT)>
2194 <SETG 'IO-TIME END25>
2197 <GVAL 'INT-MODE = END25>
2198 <TYPE? END25 <TYPE-CODE FALSE> + PHRASE63>
2200 <FRAME '
\1aPRINTTYPE>
2202 <GVAL 'ATOM-PRINT = STACK>
2203 <CALL '
\1aPRINTTYPE 2>
2204 <FRAME '
\1aPRINTTYPE>
2206 <GVAL 'ATOM-PRINT = STACK>
2207 <CALL '
\1aPRINTTYPE 2>
2208 <FRAME '
\1aPRINTTYPE>
2210 <GVAL 'ATOM-PRINT = STACK>
2211 <CALL '
\1aPRINTTYPE 2>
2214 <CALL '
\1aTIME 0 = STARCPU14>
2215 <FRAME '
\1aPRINT-IMSUBR>
2217 <CALL '
\1aPRINT-IMSUBR 1 = END25>
2218 <GVAL 'IO-TIME = TEMP61>
2220 <CALL '
\1aTIME 0 = END25>
2221 <SUBF END25 STARCPU14 = END25 (TYPE FLOAT)>
2223 <ADDF TEMP61 END25 = TEMP61 (TYPE FLOAT)>
2225 <SETG 'IO-TIME TEMP61>
2227 <TYPE? AACH9 <TYPE-CODE FALSE> + EXIT77>
2229 <CALL '
\1aTIME 0 = STARCPU14>
2230 <FRAME '
\1aPRINT-FINAL-INST>
2232 <CALL '
\1aPRINT-FINAL-INST 1 = END25>
2233 <GVAL 'IO-TIME = END25>
2235 <CALL '
\1aTIME 0 = TEMP61>
2236 <SUBF TEMP61 STARCPU14 = TEMP61 (TYPE FLOAT)>
2238 <ADDF END25 TEMP61 = END25 (TYPE FLOAT)>
2240 <SETG 'IO-TIME END25>
2243 <GVAL 'INT-MODE = END25>
2244 <TYPE? END25 <TYPE-CODE FALSE> + PHRASE86>
2246 <FRAME '
\1aPRINTTYPE>
2248 <GVAL 'PRINT = STACK>
2249 <CALL '
\1aPRINTTYPE 2>
2250 <FRAME '
\1aPRINTTYPE>
2252 <GVAL 'PRINT = STACK>
2253 <CALL '
\1aPRINTTYPE 2>
2254 <FRAME '
\1aPRINTTYPE>
2256 <GVAL 'PRINT = STACK>
2257 <CALL '
\1aPRINTTYPE 2>
2260 <CALL '
\1aTIME 0 = STARCPU14>
2261 <FRAME '
\1aDO-FILE-COPY>
2266 <CALL '
\1aDO-FILE-COPY 3 = END25>
2267 <GVAL 'IO-TIME = TEMP61>
2269 <CALL '
\1aTIME 0 = END25>
2270 <SUBF END25 STARCPU14 = END25 (TYPE FLOAT)>
2272 <ADDF TEMP61 END25 = TEMP61 (TYPE FLOAT)>
2274 <SETG 'IO-TIME TEMP61>
2280 <SETG 'FCN-COUNT -1>
2284 <PUSH 'CANT-OPEN-MSUBR-FILE>
2289 <GVAL 'END-READ = TEMP33>
2290 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE100>
2292 <TYPE? CH24 <TYPE-CODE FALSE> + BOOL101>
2298 <EMPUV? NAMES4 - PHRASE104>
2303 <SET END25 'T (TYPE ATOM)>
2310 <NTHUV NAMES4 1 = STACK (TYPE STRING)>
2311 <CALL '
\1aOPEN 2 = CH24>
2312 <TYPE? CH24 <TYPE-CODE FALSE> - PHRASE107>
2317 <FRAME '
\1aPRINFILE>
2319 <CALL '
\1aPRINFILE 1>
2320 <CONS CH24 () = TEMP33>
2321 <SETG 'INCHANS TEMP33>
2323 <NTHR 'COMPILER-INPUT 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
2324 <PUTR TEMP33 1 CH24 (RECORD-TYPE LBIND)>
2326 <FRAME '
\1aSET-RI-CHANNEL>
2329 <CALL '
\1aSET-RI-CHANNEL 2>
2330 <RESTUV NAMES4 1 = NAMES4 (TYPE VECTOR)>
2331 <CHTYPE NAMES4 <TYPE-CODE VECTOR> = NAMES4>
2332 <SETG 'END-READ %<>>
2335 <CALL '
\1aTIME 0 = STARCPU14>
2336 <FRAME '
\1aFINISH-FILE>
2340 <CALL '
\1aFINISH-FILE 3 = TEMP33>
2341 <GVAL 'IO-TIME = TEMP61>
2343 <CALL '
\1aTIME 0 = END25>
2344 <SUBF END25 STARCPU14 = END25 (TYPE FLOAT)>
2346 <ADDF TEMP61 END25 = TEMP61 (TYPE FLOAT)>
2348 <SETG 'IO-TIME TEMP61>
2350 <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE115>
2354 <GVAL 'INCHANS = TEMP61>
2355 <NTHL TEMP61 1 = CH24 (TYPE CHANNEL)>
2358 <GVAL 'FCN-COUNT = STACK>
2360 <CALL '
\1a- 2 = TEMP61>
2361 <SETG 'FCN-COUNT TEMP61>
2363 <VEQUAL? FIRST22 0 + PHRASE126>
2366 <CALL '
\1aACCESS 1 = TEMP61>
2367 <SETG 'FIRST-FCN-ACCESS TEMP61>
2369 <GEN-LVAL 'OBLIST = TEMP61>
2370 <SETG 'FIRST-FCN-OBLIST TEMP61>
2373 <NTH1 TEMP33 = TEMP61>
2374 <NTHR TEMP61 3 = TEMP61 (RECORD-TYPE ATOM)>
2375 <IFCAN "STRING-EQUAL?">
2376 <STRING-EQUAL? TEMP61 "FCN" - PHRASE131>
2377 <ENDIF "STRING-EQUAL?">
2378 <IFCANNOT "STRING-EQUAL?">
2379 <SET END25 "FCN" (TYPE STRING)>
2380 <LENUS TEMP61 = STARCPU14 (TYPE FIX)>
2381 <VEQUAL? STARCPU14 3 - PHRASE131>
2382 <LOOP (TEMP61 VALUE LENGTH) (END25 VALUE LENGTH) (STARCPU14 VALUE)>
2384 <NTHUS TEMP61 1 = TEMP133>
2385 <NTHUS END25 1 = TEMP134>
2386 <VEQUAL? TEMP133 TEMP134 - PHRASE131>
2387 <DEAD TEMP133 TEMP134>
2388 <RESTUS TEMP61 1 = TEMP61 (TYPE STRING)>
2389 <RESTUS END25 1 = END25 (TYPE STRING)>
2390 <SUB STARCPU14 1 = STARCPU14 (TYPE FIX)>
2391 <GRTR? STARCPU14 0 + TAG135 (TYPE FIX)>
2392 <ENDIF "STRING-EQUAL?">
2406 <GVAL 'VERBOSE? = END25>
2407 <TYPE? END25 <TYPE-CODE FALSE> + PHRASE139>
2409 <GVAL 'WARN-PRINT = END25>
2410 <TYPE? END25 <TYPE-CODE FALSE> + PHRASE139>
2413 <GEN-LVAL 'OUTCHAN = STACK>
2416 <PUSH "Compiling: ">
2417 <GEN-LVAL 'OUTCHAN = STACK>
2423 <CALL '
\1aNTH 2 = STACK>
2424 <GEN-LVAL 'OUTCHAN = STACK>
2428 <CALL '
\1aTIME 0 = STARCPU14>
2433 <CALL '
\1aREADIN 2 = TEMP61>
2435 <GVAL 'IO-TIME = TEMP33>
2437 <CALL '
\1aTIME 0 = END25>
2438 <SUBF END25 STARCPU14 = END25 (TYPE FLOAT)>
2440 <ADDF TEMP33 END25 = TEMP33 (TYPE FLOAT)>
2442 <SETG 'IO-TIME TEMP33>
2445 <CALL '
\1aTIME 0 = STARCPU14>
2454 <TYPE? AMCH8 <TYPE-CODE FALSE> + BOOL163>
2455 <FRAME '
\1aPRINT-GEN-INST>
2457 <CALL '
\1aPRINT-GEN-INST 1>
2459 <GVAL 'FUNCTION-NAME = END25>
2460 <TYPE? FIRST22 <TYPE-CODE FALSE> + BOOL165>
2462 <FRAME '
\1aGEN-NAME>
2464 <CALL '
\1aGEN-NAME 1 = TEMP33>
2465 <SETG 'INTERNAL-MSUBR-NAME TEMP33>
2468 <FRAME '
\1aASSEMBLE-CODE>
2473 <CALL '
\1aASSEMBLE-CODE 2 = TEMP61>
2474 <NTHL TEMP61 1 = OFF23 (TYPE FIX)>
2475 <RESTL TEMP61 1 = TEMP33 (TYPE LIST)>
2477 <NTHL TEMP33 1 = TEMP133 (TYPE FIX)>
2479 <GVAL 'INT-MODE = TEMP33>
2480 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE169>
2482 <FRAME '
\1aPRINTTYPE>
2484 <GVAL 'ATOM-PRINT = STACK>
2485 <CALL '
\1aPRINTTYPE 2>
2486 <FRAME '
\1aPRINTTYPE>
2488 <GVAL 'ATOM-PRINT = STACK>
2489 <CALL '
\1aPRINTTYPE 2>
2490 <FRAME '
\1aPRINTTYPE>
2492 <GVAL 'ATOM-PRINT = STACK>
2493 <CALL '
\1aPRINTTYPE 2>
2496 <CALL '
\1aTIME 0 = TEMP61>
2497 <FRAME '
\1aPRINT-MSUBR>
2500 <CALL '
\1aPRINT-MSUBR 2 = FIRST22>
2501 <GVAL 'IO-TIME = END25>
2503 <CALL '
\1aTIME 0 = FIRST22>
2504 <SUBF FIRST22 TEMP61 = FIRST22 (TYPE FLOAT)>
2506 <ADDF END25 FIRST22 = END25 (TYPE FLOAT)>
2508 <SETG 'IO-TIME END25>
2510 <GVAL 'INT-MODE = END25>
2511 <TYPE? END25 <TYPE-CODE FALSE> + PHRASE182>
2513 <FRAME '
\1aPRINTTYPE>
2515 <GVAL 'PRINT = STACK>
2516 <CALL '
\1aPRINTTYPE 2>
2517 <FRAME '
\1aPRINTTYPE>
2519 <GVAL 'PRINT = STACK>
2520 <CALL '
\1aPRINTTYPE 2>
2521 <FRAME '
\1aPRINTTYPE>
2523 <GVAL 'PRINT = STACK>
2524 <CALL '
\1aPRINTTYPE 2>
2526 <SET FIRST22 %<> (TYPE FALSE)>
2527 <GVAL 'WARN-PRINT = END25>
2528 <TYPE? END25 <TYPE-CODE FALSE> + BOOL186>
2530 <GVAL 'VERBOSE? = END25>
2531 <TYPE? END25 <TYPE-CODE FALSE> + BOOL186>
2533 <FRAME '
\1aPRINT-RSUBR-STATS>
2538 <CALL '
\1aPRINT-RSUBR-STATS 2>
2553 <GFCN
\1aPRINT-RSUBR-STATS ("VALUE" <OR ATOM FALSE> FLOAT FIX) STARCPU4 OFF5>
2556 <GEN-LVAL 'OUTCHAN = OUTCHAN6>
2557 <FRAME '
\1aPRINT-MANY>
2563 <CALL '
\1aTIME 0 = OUTCHAN6>
2564 <SUBF OUTCHAN6 STARCPU4 = STACK (TYPE FLOAT)>
2565 <DEAD OUTCHAN6 STARCPU4>
2569 <GVAL 'FBYTE-OFFSET = STACK>
2571 <CALL '
\1a* 2 = STACK>
2574 <CALL '
\1a- 2 = STACK>
2575 <CALL '
\1aPRINT-MANY 6 = OUTCHAN6>
2578 <END
\1aPRINT-RSUBR-STATS>
2580 <GFCN
\1aGEN-NAME ("VALUE" ANY ATOM) NAME4>
2581 <TEMP TEMP17 TEMP15:FIX X18:CHARACTER VAL19>
2583 <NTHR NAME4 3 = TEMP17 (RECORD-TYPE ATOM)>
2585 <SET TEMP15 0 (TYPE FIX)>
2589 <EMPUS? TEMP17 + MAPAP10>
2590 <NTHUS TEMP17 1 = X18>
2591 <CHTYPE X18 <TYPE-CODE FIX> = VAL19>
2592 <LESS? VAL19 65 + PHRASE21 (TYPE FIX)>
2593 <GRTR? VAL19 90 + PHRASE21 (TYPE FIX)>
2594 <ADD VAL19 32 = VAL19 (TYPE FIX)>
2595 <CHTYPE VAL19 <TYPE-CODE CHARACTER> = VAL19>
2603 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
2604 <RESTUS TEMP17 1 = TEMP17 (TYPE STRING)>
2607 <UBLOCK <TYPE-CODE STRING> TEMP15 = TEMP17 (TYPE STRING)>
2613 <UBLOCK <TYPE-CODE STRING> 2 = STACK (TYPE STRING)>
2614 <CALL '
\1aPARSE 1 = TEMP17>
2619 <GFCN
\1aATOM-PRINT ("VALUE" STRING <OR ATOM LVAL GVAL>) ATM4>
2620 <TEMP TEMP7 SPN5:STRING OUTCHAN6 TEMP22>
2622 <CHTYPE ATM4 <TYPE-CODE ATOM> = TEMP7>
2623 <NTHR TEMP7 3 = SPN5 (RECORD-TYPE ATOM)>
2625 <GEN-LVAL 'OUTCHAN = OUTCHAN6>
2626 <LENUS SPN5 = TEMP7 (TYPE FIX)>
2627 <GRTR? TEMP7 2 - PHRASE11>
2629 <NTHUS SPN5 1 = TEMP7 (TYPE CHARACTER)>
2630 <VEQUAL? TEMP7 !\T - PHRASE11>
2632 <NTHUS SPN5 2 = TEMP7 (TYPE CHARACTER)>
2633 <VEQUAL? TEMP7 !\$ - PHRASE11>
2636 <RESTUS SPN5 2 = STACK (TYPE STRING)>
2639 <GVAL 'BOOT-MODE = TEMP7>
2640 <TYPE? TEMP7 <TYPE-CODE FALSE> - TAG15>
2642 <SET TEMP7 'T (TYPE ATOM)>
2645 <SET TEMP7 %<> (TYPE FALSE)>
2652 <CALL '
\1aTYPE 1 = STACK>
2656 <NTHR ATM4 4 = TEMP7 (RECORD-TYPE ATOM)>
2658 <CALL '
\1aROOT 0 = TEMP22>
2659 <EQUAL? TEMP7 TEMP22 + BOOL20>
2663 <GVAL 'ROOT-ATOMS = STACK>
2664 <CALL '
\1aMEMBER 2 = TEMP22>
2665 <TYPE? TEMP22 <TYPE-CODE FALSE> - BOOL20>
2667 <NTHR ATM4 4 = TEMP22 (RECORD-TYPE ATOM)>
2668 <GVAL 'MIMOP-OBLIST = TEMP7>
2669 <EQUAL? TEMP22 TEMP7 - PHRASE18>
2674 <CALL '
\1aROOT 0 = STACK>
2675 <CALL '
\1aLOOKUP 2 = TEMP7>
2676 <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE18>
2679 <GVAL 'BOOT-MODE = TEMP7>
2680 <TYPE? TEMP7 <TYPE-CODE FALSE> - PHRASE18>
2690 <CALL '
\1aTYPE 1 = STACK>
2702 <CALL '
\1aTYPE 1 = STACK>
2709 <CALL '
\1aPRINC 2 = TEMP7>
2715 <GDECL (FOOSTR) STRING>
2717 <GDECL (GC-COUNT) FIX (IO-TIME) FLOAT>
2720 <FCN
\1aFILE-MIMOC ("VALUE" ATOM ANY ANY ANY ANY "TUPLE" ANY) OUTNAME4 PML5 AML6 AAL7>
2721 <MAKTUP NAMES8 (PMCH11 %<>) (AMCH12 %<>) (AACH13 %<>) (GC-HANDLER14 %<>) TEMP17 READ-INFO15:TUPLE TEMP3:LBIND TEMP29 OCH10 EXPFLOAD114 TEMP127 = NAMES8>
2723 <USBLOCK <TYPE-CODE TUPLE> 9 = READ-INFO15>
2724 <SET TEMP17 READ-INFO15>
2725 <LOOP (TEMP17 VALUE LENGTH)>
2727 <EMPUV? TEMP17 + ISTRE19>
2728 <PUTUV TEMP17 1 %<>>
2729 <RESTUV TEMP17 1 = TEMP17>
2732 <GETS 'BIND = TEMP3 (TYPE LBIND)>
2734 <FRAME '
\1aSETUP-READ-TABLE>
2735 <CALL '
\1aSETUP-READ-TABLE 0>
2740 <GVAL 'MIMOC-READ-TABLE = STACK>
2741 <CALL '
\1aINIT-RI 4>
2742 <GETS 'BIND = TEMP17 (TYPE LBIND)>
2743 <BBIND 'NM2 'STRING 'FIX>
2744 <GEN-ASSIGNED? 'PRECOMPILED - PHRASE44>
2745 <GEN-LVAL 'PRECOMPILED = TEMP29>
2746 <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE44>
2749 <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2750 <PUTR TEMP29 1 "MSUBR" (RECORD-TYPE LBIND)>
2754 <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2755 <PUTR TEMP29 1 "VSUBR" (RECORD-TYPE LBIND)>
2758 <GEN-LVAL 'PRECOMPILED = TEMP29>
2759 <TYPE? TEMP29 <TYPE-CODE STRING> + PHRASE40>
2764 <CALL '
\1aOPEN 2 = TEMP29>
2765 <SETG 'PRE-CH TEMP29>
2771 <GEN-LVAL 'PRECOMPILED = STACK>
2772 <CALL '
\1aOPEN 2 = TEMP29>
2773 <SETG 'PRE-CH TEMP29>
2776 <GEN-ASSIGNED? 'AUTO-PRECOMP - PHRASE68>
2777 <GEN-LVAL 'AUTO-PRECOMP = TEMP29>
2778 <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE68>
2780 <GVAL 'PRE-CH = TEMP29>
2781 <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE68>
2783 <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2784 <PUTR TEMP29 1 "MIMA" (RECORD-TYPE LBIND)>
2789 <CALL '
\1aOPEN 2 = OCH10>
2790 <TYPE? OCH10 <TYPE-CODE FALSE> + PHRASE58>
2792 <FRAME '
\1aCHANNEL-OP>
2795 <CALL '
\1aCHANNEL-OP 2 = STACK>
2796 <FRAME '
\1aCHANNEL-OP>
2797 <GVAL 'PRE-CH = STACK>
2799 <CALL '
\1aCHANNEL-OP 2 = STACK>
2800 <CALL '
\1aL=? 2 = TEMP29>
2801 <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE58>
2803 <FRAME '
\1aPRINT-MANY>
2804 <GVAL 'OUTCHAN = STACK>
2806 <PUSH "Not recompiling ">
2807 <FRAME '
\1aCHANNEL-OP>
2811 <CALL '
\1aCHANNEL-OP 2 = STACK>
2813 <CALL '
\1aPRINT-MANY 5>
2815 <GVAL 'OUTCHAN = STACK>
2821 <TYPE? OCH10 <TYPE-CODE FALSE> + PHRASE68>
2827 <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2828 <PUTR TEMP29 1 "MUD" (RECORD-TYPE LBIND)>
2830 <GVAL 'GLUE = TEMP29>
2831 <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE73>
2833 <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2834 <PUTR TEMP29 1 "TMSUBR" (RECORD-TYPE LBIND)>
2839 <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2840 <PUTR TEMP29 1 "MSUBR" (RECORD-TYPE LBIND)>
2844 <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2845 <PUTR TEMP29 1 "VSUBR" (RECORD-TYPE LBIND)>
2852 <CALL '
\1aOPEN 2 = OCH10>
2853 <TYPE? OCH10 <TYPE-CODE FALSE> - BOOL84>
2860 <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2861 <PUTR TEMP29 1 "BMIM" (RECORD-TYPE LBIND)>
2863 <TYPE? PML5 <TYPE-CODE FALSE> + BOOL90>
2868 <CALL '
\1aOPEN 2 = PMCH11>
2869 <TYPE? PMCH11 <TYPE-CODE FALSE> - BOOL90>
2876 <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2877 <PUTR TEMP29 1 "AMIM" (RECORD-TYPE LBIND)>
2879 <TYPE? AML6 <TYPE-CODE FALSE> + BOOL96>
2884 <CALL '
\1aOPEN 2 = AMCH12>
2885 <TYPE? AMCH12 <TYPE-CODE FALSE> - BOOL96>
2892 <NTHR 'NM2 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
2893 <PUTR TEMP29 1 "ASSEMBLY" (RECORD-TYPE LBIND)>
2895 <TYPE? AAL7 <TYPE-CODE FALSE> + BOOL102>
2900 <CALL '
\1aOPEN 2 = AACH13>
2901 <TYPE? AACH13 <TYPE-CODE FALSE> - BOOL102>
2912 <LOCATION + TAG105 = TEMP17>
2913 <CFRAME = TEMP29 (TYPE FRAME)>
2914 <BBIND 'UNWIND TEMP17 'FIX TEMP29>
2915 <DEAD TEMP17 TEMP29>
2916 <GETS 'BIND = TEMP17 (TYPE LBIND)>
2918 <CALL '
\1aTIME 0 = TEMP29>
2919 <ADDF TEMP29 0.5000000 = TEMP29 (TYPE FLOAT)>
2920 <FIX TEMP29 = TEMP29 (TYPE FIX)>
2921 <BBIND 'STARCPU 'FIX 'FIX TEMP29>
2923 <BBIND 'GCTIME 'FLOAT 'FIX 0.0>
2924 <GEN-ASSIGNED? 'EXPFLOAD + TAG116>
2925 <SET TEMP29 %<> (TYPE FALSE)>
2928 <GEN-LVAL 'EXPFLOAD = TEMP29>
2930 <SET EXPFLOAD114 TEMP29>
2932 <GVAL 'WARN-PRINT = TEMP29>
2933 <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE123>
2938 <GVAL 'COUNT-GCS = STACK>
2940 <CALL '
\1aHANDLER 3 = STACK>
2941 <CALL '
\1aON 1 = GC-HANDLER14>
2945 <SET TEMP127 0 (TYPE FIX)>
2946 <GEN-LVAL 'OBLIST = TEMP29>
2947 <LOOP (TEMP29 VALUE) (TEMP127 VALUE)>
2950 <EMPL? TEMP29 + TAG126>
2951 <NTHL TEMP29 1 = STACK>
2952 <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
2953 <ADD TEMP127 1 = TEMP127 (TYPE FIX)>
2956 <LIST TEMP127 = TEMP29 (TYPE LIST)>
2958 <FRAME '
\1aFILE-PASS1>
2966 <CALL '
\1aFILE-PASS1 7>
2971 <GVAL 'GLUE = TEMP127>
2972 <TYPE? TEMP127 <TYPE-CODE FALSE> + BOOL134>
2974 <FRAME '
\1aFILE-PASS2>
2984 <CALL '
\1aFILE-PASS2 7>
2986 <FRAME '
\1aENDBLOCK>
2987 <CALL '
\1aENDBLOCK 0>
2992 <GVAL 'GLUE = TEMP127>
2993 <TYPE? TEMP127 <TYPE-CODE FALSE> + PHRASE139>
2995 <GEN-SET 'NM2 "TMSUBR">
2999 <CALL '
\1aDELFILE 1>
3001 <TYPE? PMCH11 <TYPE-CODE FALSE> + BOOL143>
3007 <TYPE? AMCH12 <TYPE-CODE FALSE> + BOOL145>
3013 <TYPE? AACH13 <TYPE-CODE FALSE> + BOOL147>
3019 <SETG 'DO-CLOSE %<>>
3020 <TYPE? GC-HANDLER14 <TYPE-CODE FALSE> + BOOL149>
3026 <GVAL 'WARN-PRINT = TEMP127>
3027 <TYPE? TEMP127 <TYPE-CODE FALSE> + PHRASE152>
3029 <FRAME '
\1aPRINTSTATS>
3030 <CALL '
\1aPRINTSTATS 0>
3032 <SET NAMES8 'T (TYPE ATOM)>
3036 <NTHR 'UNWIND 2 = TEMP17 (RECORD-TYPE ATOM) (TYPE LBIND)>
3037 <PUTR TEMP17 1 0 (RECORD-TYPE LBIND)>
3041 <GVAL 'DO-CLOSE = TEMP17>
3042 <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL186>
3044 <NTHUV READ-INFO15 3 = TEMP17>
3045 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE161>
3048 <NTHUV READ-INFO15 3 = STACK>
3050 <CALL '
\1aNTH 2 = TEMP17>
3051 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE161>
3054 <NTHUV READ-INFO15 3 = STACK (TYPE CHANNEL)>
3058 <NTHR 'INCHANS 1 = TEMP17 (RECORD-TYPE ATOM) (BRANCH-FALSE + MAPAP171)>
3059 <TYPE? TEMP17 <TYPE-CODE FALSE> + MAPAP171>
3060 <NTHR TEMP17 1 = TEMP17 (RECORD-TYPE GBIND)>
3061 <TYPE? TEMP17 <TYPE-CODE UNBOUND> + MAPAP171>
3063 <GVAL 'INCHANS = TEMP29>
3067 <EMPL? TEMP29 + MAPAP171>
3068 <NTHL TEMP29 1 = NAMES8>
3069 <NTHUV NAMES8 4 = PMCH11>
3070 <TYPE? PMCH11 <TYPE-CODE FALSE> + PHRASE178>
3077 <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
3083 <TYPE? PMCH11 <TYPE-CODE FALSE> + BOOL182>
3088 <TYPE? AMCH12 <TYPE-CODE FALSE> + BOOL184>
3093 <TYPE? AACH13 <TYPE-CODE FALSE> + BOOL186>
3098 <TYPE? GC-HANDLER14 <TYPE-CODE FALSE> + UNWCONT>
3112 <GFCN
\1aPRINFILE ("VALUE" <OR ATOM FALSE> CHANNEL) CH4>
3113 <TEMP OUTCHAN5 TEMP8>
3115 <GVAL 'OUTCHAN = OUTCHAN5>
3116 <GVAL 'VERBOSE? = TEMP8>
3117 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
3121 <FRAME '
\1aPRINT-MANY>
3125 <GVAL 'GLUE = OUTCHAN5>
3126 <TYPE? OUTCHAN5 <TYPE-CODE FALSE> - PHRASE12>
3128 <SET OUTCHAN5 "Reading file " (TYPE STRING)>
3131 <GEN-ASSIGNED? 'PASS2? - PHRASE14>
3132 <GEN-LVAL 'PASS2? = OUTCHAN5>
3133 <TYPE? OUTCHAN5 <TYPE-CODE FALSE> + PHRASE14>
3135 <SET OUTCHAN5 "Pass 2: " (TYPE STRING)>
3138 <SET OUTCHAN5 "Pass 1: " (TYPE STRING)>
3142 <FRAME '
\1aCHANNEL-OP>
3146 <CALL '
\1aCHANNEL-OP 2 = STACK>
3147 <CALL '
\1aPRINT-MANY 4 = TEMP8>
3153 <GFCN
\1aPRINTSTATS ("VALUE" ATOM)>
3154 <TEMP TEMP7 ECPU4:FIX OUTCHAN5>
3157 <CALL '
\1aTIME 0 = TEMP7>
3158 <ADDF TEMP7 0.5000000 = TEMP7 (TYPE FLOAT)>
3159 <FIX TEMP7 = ECPU4 (TYPE FIX)>
3161 <GEN-LVAL 'OUTCHAN = OUTCHAN5>
3165 <FRAME '
\1aPRINT-MANY>
3168 <PUSH "Total time Used: ">
3169 <GEN-LVAL 'STARCPU = TEMP7>
3170 <SUB ECPU4 TEMP7 = STACK (TYPE FIX)>
3172 <PUSH " Gc Time Used: ">
3173 <GEN-LVAL 'GCTIME = TEMP7>
3174 <FIX TEMP7 = STACK (TYPE FIX)>
3178 <GVAL 'IO-TIME = TEMP7>
3179 <ADDF TEMP7 0.5000000 = TEMP7 (TYPE FLOAT)>
3180 <FIX TEMP7 = STACK (TYPE FIX)>
3182 <GVAL 'GLUE = TEMP7>
3183 <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE17>
3185 <SET TEMP7 " Total Glue Code Length: " (TYPE STRING)>
3188 <SET TEMP7 "" (TYPE STRING)>
3192 <GVAL 'GLUE = TEMP7>
3193 <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE19>
3196 <GVAL 'FBYTE-OFFSET = STACK>
3198 <CALL '
\1a* 2 = TEMP7>
3201 <SET TEMP7 "" (TYPE STRING)>
3205 <CALL '
\1aPRINT-MANY 10>
3209 <CALL '
\1aCRLF 1 = TEMP7>
3213 <SETG ROOT-ATOMS ["M$$BINDID" "M$$INT-LEVEL"]>
3215 <GDECL (ROOT-ATOMS) <VECTOR [REST STRING]>>
3218 <GFCN
\1aSKIP ("VALUE" ATOM TUPLE) READ-INFO4>
3219 <TEMP EREAD9 TEMP11>
3224 <FRAME '
\1aREAD-INTERNAL>
3226 <CFRAME = STACK (TYPE FRAME)>
3227 <CALL '
\1aREAD-INTERNAL 2 = EREAD9>
3228 <CFRAME = TEMP11 (TYPE FRAME)>
3229 <EQUAL? TEMP11 EREAD9 - EXIT13>
3234 <TYPE? EREAD9 <TYPE-CODE FORM> - AGAIN10>
3235 <FRAME '
\1aFUDGE-MIMOP>
3237 <CALL '
\1aFUDGE-MIMOP 1 = TEMP11>
3238 <TYPE? TEMP11 <TYPE-CODE FALSE> + AGAIN10>
3240 <NTHL EREAD9 1 = TEMP11>
3242 <EQUAL? TEMP11 'END!-MIMOP - AGAIN10>
3246 <SETG IP-BUFSTR <ISTRING 100>>
3248 <GDECL (IP-BUFSTR) STRING>
3251 <GFCN
\1aIPRINC ("VALUE" STRING STRING CHANNEL "OPTIONAL" ANY ANY) X7 OUTCHAN8 PRINT-TRAIL9 TYPE10>
3252 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
3258 <TEMP TEMP3:LBIND (CNT11:FIX 1) STR12 TEMP22 CH27>
3260 <GETS 'BIND = TEMP3 (TYPE LBIND)>
3261 <BBIND 'OUTCHAN 'CHANNEL %<> OUTCHAN8>
3264 <GVAL 'IP-BUFSTR = STR12>
3265 <EQUAL? TYPE10 'GVAL - PHRASE14>
3267 <SET CNT11 2 (TYPE FIX)>
3270 <EQUAL? TYPE10 'LVAL - PHRASE15>
3273 <SET CNT11 2 (TYPE FIX)>
3275 <SET TEMP22 X7 (TYPE STRING)>
3280 <EMPUS? TEMP22 + MAPAP20>
3281 <NTHUS TEMP22 1 = CH27>
3282 <VEQUAL? CH27 !\ - PHRASE29>
3283 <GVAL 'INT-MODE = CH27>
3284 <TYPE? CH27 <TYPE-CODE FALSE> - PHRASE33>
3286 <PUTUS STR12 CNT11 !\\>
3287 <ADD CNT11 1 = CH27 (TYPE FIX)>
3288 <PUTUS STR12 CH27 !\ >
3290 <ADD CNT11 2 = CNT11 (TYPE FIX)>
3293 <PUTUS STR12 CNT11 CH27>
3295 <ADD CNT11 1 = CNT11 (TYPE FIX)>
3297 <RESTUS TEMP22 1 = TEMP22 (TYPE STRING)>
3300 <TYPE? PRINT-TRAIL9 <TYPE-CODE FALSE> + PHRASE35>
3302 <PUTUS STR12 CNT11 !\!>
3303 <ADD CNT11 1 = CH27 (TYPE FIX)>
3304 <PUTUS STR12 CH27 !\->
3306 <ADD CNT11 2 = CNT11 (TYPE FIX)>
3308 <SUB CNT11 1 = CH27 (TYPE FIX)>
3309 <SUB 101 CNT11 = TEMP22 (TYPE FIX)>
3311 <RESTUS STR12 TEMP22 = TEMP22 (TYPE STRING)>
3312 <MOVE-STRING STR12 TEMP22 CH27 (NO-OVERLAP %<>)>
3319 <NTHR 'OUTCHAN 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
3320 <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
3322 <CALL '
\1aPRINC 2 = TEMP22>
3330 <GFCN
\1aCOUNT-GCS ("VALUE" <OR FALSE FLOAT> ANY FLOAT "TUPLE" ANY) IGN4 TI5>
3333 <GVAL 'GC-COUNT = X6>
3334 <ADD X6 1 = X6 (TYPE FIX)>
3337 <GEN-ASSIGNED? 'GCTIME + TAG9>
3340 <GEN-LVAL 'GCTIME = X6>
3341 <ADDF X6 TI5 = X6 (TYPE FLOAT)>
3343 <GEN-SET 'GCTIME X6>
3348 <GFCN
\1aDO-FILE-COPY ("VALUE" ATOM <CHANNEL 'DISK> <CHANNEL 'DISK> FIX) INCH4 OUCH5 AMT6>
3349 <TEMP BUF7 TEMP20 TEMP26>
3351 <UUBLOCK <TYPE-CODE STRING> 512 = BUF7 (TYPE STRING)>
3352 <VEQUAL? AMT6 -1 - PHRASE9 (TYPE FIX)>
3353 <SET AMT6 %<CHTYPE <MIN> FIX> (TYPE FIX)>
3359 <GRTR? TEMP20 512 - TAG21>
3360 <SET TEMP20 512 (TYPE FIX)>
3362 <CHANNEL-OP 'DISK 'READ-BUFFER INCH4 BUF7 TEMP20 = TEMP20>
3363 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE19>
3364 <CHANNEL-OP 'DISK 'WRITE-BUFFER OUCH5 BUF7 TEMP20>
3368 <CALL '
\1aL? 2 = TEMP26>
3369 <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL24>
3371 <SUB AMT6 TEMP20 = AMT6 (TYPE FIX)>
3373 <GRTR? AMT6 0 + AGAIN17 (TYPE FIX)>
3380 <CHANNEL-OP 'DISK 'NAME INCH4 = STACK>
3384 <CALL '
\1aSYS-ERR 3 = STACK>
3385 <PUSH 'DO-FILE-COPY>
3388 <END
\1aDO-FILE-COPY>
3391 <SETG CTLZ+1 <+ <SETG CTLZ 26> 1>>
3393 <COND (<==? <PRIMTYPE FIX> FIX> <SETG PKG-OBL <CHTYPE PACKAGE OBLIST>>) (T <SETG PKG-OBL <GETPROP PACKAGE OBLIST>>)>
3396 <GFCN
\1aSETUP-READ-TABLE ("VALUE" VECTOR)>
3397 <TEMP TEMP6 RT4:VECTOR>
3401 <CALL '
\1aMOBLIST 1 = TEMP6>
3402 <SETG 'FCN-OBL TEMP6>
3404 <GVAL 'FCN-OBL = TEMP6>
3405 <CONS TEMP6 () = TEMP6>
3406 <SETG 'FCN-OBL-L TEMP6>
3408 <NTHR 'MIMOC-READ-TABLE 1 = TEMP6 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE8)>
3409 <TYPE? TEMP6 <TYPE-CODE FALSE> + PHRASE8>
3410 <NTHR TEMP6 1 = TEMP6 (RECORD-TYPE GBIND)>
3411 <TYPE? TEMP6 <TYPE-CODE UNBOUND> + PHRASE8>
3413 <GVAL 'MIMOC-READ-TABLE = RT4>
3416 <GVAL 'CTLZ+1 = TEMP6>
3417 <UUBLOCK <TYPE-CODE VECTOR> TEMP6 = RT4>
3420 <LOOP (TEMP6 VALUE LENGTH)>
3422 <EMPUV? TEMP6 + ISTRE11>
3424 <RESTUV TEMP6 1 = TEMP6>
3427 <SETG 'MIMOC-READ-TABLE RT4>
3432 <GVAL 'CTLZ+1 = STACK>
3434 <GVAL 'CTLZ = STACK>
3435 <CALL '
\1aASCII 1 = STACK>
3436 <GVAL 'CTLZ = STACK>
3438 <GVAL 'CTLZ-RD = STACK>
3440 <UBLOCK <TYPE-CODE VECTOR> 5 = STACK>
3441 <CALL '
\1aPUT 3 = TEMP6>
3444 <END
\1aSETUP-READ-TABLE>
3445 <SETG FIRST-PASS-SURVIVOR-GLUE <>>
3448 <GFCN
\1aCTLZ-RD ("VALUE" ANY ANY "OPTIONAL" ANY) X6 Y7>
3449 <OPT-DISPATCH 1 %<> OPT4 OPT5>
3453 <TEMP O8 TEMP3:LBIND TEMP12 TEMP21>
3455 <GEN-LVAL 'OBLIST = O8>
3456 <GETS 'BIND = TEMP3 (TYPE LBIND)>
3457 <GVAL 'FCN-OBL-L = TEMP12>
3458 <BBIND 'OBLIST 'ANY 'FIX TEMP12>
3460 <GVAL 'FIRST-PASS-SURVIVOR-GLUE = TEMP12>
3461 <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE14>
3463 <NTHR 'OBLIST 2 = TEMP12 (RECORD-TYPE ATOM) (TYPE LBIND)>
3464 <PUTR TEMP12 1 O8 (RECORD-TYPE LBIND)>
3470 <CALL '
\1aREAD 1 = X6>
3471 <TYPE? X6 <TYPE-CODE ATOM> + PHRASE18>
3472 <GETS 'BIND = TEMP21 (TYPE LBIND)>
3473 <BBIND 'OBLIST 'ANY 'FIX O8>
3476 <PUSH 'BAD-CTRL-Z-USAGE-BY-MIMC>
3479 <CALL '
\1aERROR 2 = TEMP12>
3485 <NTHR 'OBLIST 2 = TEMP21 (RECORD-TYPE ATOM) (TYPE LBIND)>
3486 <NTHR TEMP21 1 = TEMP21 (RECORD-TYPE LBIND)>
3487 <EQUAL? TEMP21 O8 - PHRASE25>
3493 <CONS X6 () = TEMP21>
3495 <SET TEMP12 0 (TYPE FIX)>
3496 <LOOP (O8 VALUE) (TEMP12 VALUE)>
3501 <RESTL O8 1 = O8 (TYPE LIST)>
3502 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
3505 <LIST TEMP12 = TEMP12 (TYPE LIST)>
3506 <CONS TEMP12 () = TEMP12>
3507 <PUTREST TEMP21 TEMP12>
3513 <GVAL 'LIST-OF-FCNS = STACK>
3514 <CALL '
\1aMEMBER 2 = TEMP21>
3515 <TYPE? TEMP21 <TYPE-CODE FALSE> - PHRASE35>
3518 <SET TEMP12 1 (TYPE FIX)>
3519 <GVAL 'LIST-OF-FCNS = TEMP21>
3522 <VEQUAL? O8 1 + TAG38>
3524 <LOOP (TEMP21 TYPE VALUE LENGTH) (TEMP12 VALUE)>
3527 <EMPTY? TEMP21 + TAG43>
3528 <NTH1 TEMP21 = STACK>
3529 <REST1 TEMP21 = TEMP21>
3530 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
3533 <LIST TEMP12 = O8 (TYPE LIST)>
3539 <VEQUAL? TEMP12 0 + TAG40>
3541 <CONS O8 TEMP21 = TEMP21 (TYPE LIST)>
3543 <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
3549 <SETG 'LIST-OF-FCNS O8>
3552 <NTHL X6 1 = TEMP12>
3562 <GFCN
\1aFIND-OLD-FCN ("VALUE" <OR FALSE <LIST ATOM>> ATOM <LIST [REST LIST]>) NAME4 INDEX5>
3563 <TEMP SPN6:STRING TEMP16 TEMP13:LIST L18:LIST TEMP24:STRING TEMP25 TEMP26 TEMP27>
3565 <NTHR NAME4 3 = SPN6 (RECORD-TYPE ATOM)>
3567 <SET TEMP16 %<> (TYPE FALSE)>
3568 <SET TEMP13 INDEX5 (TYPE LIST)>
3573 <EMPL? TEMP13 + MAPAP11>
3574 <NTHL TEMP13 1 = L18>
3575 <NTHL L18 1 = TEMP16 (TYPE ATOM)>
3576 <NTHR TEMP16 3 = TEMP16 (RECORD-TYPE ATOM)>
3577 <IFCAN "STRING-EQUAL?">
3578 <STRING-EQUAL? SPN6 TEMP16 + TAG21>
3579 <ENDIF "STRING-EQUAL?">
3580 <IFCANNOT "STRING-EQUAL?">
3582 <LENUS TEMP24 = TEMP25 (TYPE FIX)>
3583 <LENUS TEMP16 = TEMP26 (TYPE FIX)>
3584 <VEQUAL? TEMP25 TEMP26 - TAG22>
3586 <LOOP (TEMP24 VALUE LENGTH) (TEMP16 VALUE LENGTH) (TEMP25 VALUE)>
3588 <NTHUS TEMP24 1 = TEMP26>
3589 <NTHUS TEMP16 1 = TEMP27>
3590 <VEQUAL? TEMP26 TEMP27 - TAG22>
3591 <DEAD TEMP26 TEMP27>
3592 <RESTUS TEMP24 1 = TEMP24 (TYPE STRING)>
3593 <RESTUS TEMP16 1 = TEMP16 (TYPE STRING)>
3594 <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
3595 <GRTR? TEMP25 0 + TAG28 (TYPE FIX)>
3598 <ENDIF "STRING-EQUAL?">
3600 <SET TEMP16 %<> (TYPE FALSE)>
3606 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
3611 <END
\1aFIND-OLD-FCN>
3613 <GFCN
\1aCOPY-OLD-FCN ("VALUE" ATOM <LIST ATOM FIX FIX> <CHANNEL 'DISK> <CHANNEL 'DISK>) LIST4 INCH5 OUCH6>
3614 <TEMP TEMP10 TEMP16 LEN14:FIX>
3616 <NTHR 'COPY-BUF 1 = TEMP10 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG9)>
3617 <TYPE? TEMP10 <TYPE-CODE FALSE> + TAG9>
3618 <NTHR TEMP10 1 = TEMP10 (RECORD-TYPE GBIND)>
3619 <TYPE? TEMP10 <TYPE-CODE UNBOUND> - PHRASE8>
3622 <UUBLOCK <TYPE-CODE STRING> 1024 = TEMP10 (TYPE STRING)>
3623 <SETG 'COPY-BUF TEMP10>
3628 <RESTL LIST4 1 = TEMP10 (TYPE LIST)>
3629 <NTHL TEMP10 1 = STACK (TYPE FIX)>
3635 <RESTL LIST4 1 = TEMP10 (TYPE LIST)>
3636 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
3637 <NTHL TEMP10 1 = TEMP10 (TYPE FIX)>
3638 <RESTL LIST4 1 = TEMP16 (TYPE LIST)>
3640 <NTHL TEMP16 1 = TEMP16 (TYPE FIX)>
3641 <SUB TEMP10 TEMP16 = LEN14 (TYPE FIX)>
3642 <DEAD TEMP10 TEMP16>
3646 <GVAL 'COPY-BUF = TEMP16>
3648 <GRTR? TEMP10 1024 - TAG19>
3649 <SET TEMP10 1024 (TYPE FIX)>
3651 <CHANNEL-OP 'DISK 'READ-BUFFER INCH5 TEMP16 TEMP10 = TEMP10>
3653 <GVAL 'COPY-BUF = TEMP16>
3654 <CHANNEL-OP 'DISK 'WRITE-BUFFER OUCH6 TEMP16 TEMP10>
3656 <SUB LEN14 TEMP10 = LEN14 (TYPE FIX)>
3658 <GRTR? LEN14 0 + AGAIN18 (TYPE FIX)>
3662 <CALL '
\1aCRLF 1 = TEMP16>
3665 <END
\1aCOPY-OLD-FCN>