8 <COND (<NOT <GASSIGNED? GVAL-CAREFUL>> <SETG GVAL-CAREFUL <>>)>
10 <COND (<NOT <GASSIGNED? ADJBP-HACK>> <SETG ADJBP-HACK <>>)>
128 <SETG TYPE-LENGTHS [LBIND 16 LBIND 16 GBIND 10 GBIND 10 ATOM 10 ATOM 10 OBLIST 10 OBLIST 10 LINK 10 LINK 10 LVAL 10 LVAL 10 GVAL 10 GVAL 10 FRAME 12 FRAME 12 T$SFRAME 12 SFRAME 12 T$PAGET 256 T$MINF 10 MSUBR 4 T$MSUBR 4]>
130 <SETG TYPE-WORDS [UNBOUND 0 T$UNBOUND 0 FIX 64 CHARACTER 128 FLOAT 192 LIST 257 FALSE 321 DECL 385 STRING 453 MCODE 518 T$MCODE 518 VECTOR 583 MSUBR 647 T$MSUBR 647 IMSUBR 2055 T$IMSUBR 2055 FRAME 706 FRAME 706 LBIND 770 LBIND 770 ATOM 834 ATOM 834 OBLIST 898 OBLIST 898 GBIND 962 GBIND 962 FORM 1025 T$TYPE-C 1088 TYPE-C 1088 I$TERMIN 1152 SEGMENT 1217 T$DEFER 1281 DEFER 1281 T$FUNCTION 1345 FUNCTION 1345 T$MACRO 1409 MACRO 1409 CHANNEL 1479 CHANNEL 1479 I$SDTABLE 2247 I$DISK-CHANNEL 2311 T$MUD-CHAN 2375 MUD-CHAN 2375 T$TYPE-ENTRY 1543 ADECL 1607 T$OFFSET 1671 OFFSET 1671 LVAL 1730 LVAL 1730 GVAL 1794 GVAL 1794 LINK 1858 LINK 1858 T$TUPLE 1927 TUPLE 1927 T$UVECTOR 1990 UVECTOR 1990 T$TAT 2183 TAT 2183 T$PAGET 1990 T$MINF 1990 T$WORD 2432 WORD 2432 T$PCODE 2502 PCODE 2502 T$ZONE 2567 ZONE 2567 T$GC-PARAMS 2630 GC-PARAMS 2630 T$AREA 2694 AREA 2694 T$SFRAME 2754 SFRAME 2754 T$BYTES 2820 BYTES 2820 T$TYPE-W 2880 TYPE-W 2880 T$BITS 3008 BITS 3008 T$KIND-ENTRY 3079 KIND-ENTRY 3079 T$SPLICE 3137 SPLICE 3137]>
132 <COND (<NOT <GASSIGNED? PEEP-ENABLED>> <SETG PEEP-ENABLED <>>)>
134 <COND (<NOT <GASSIGNED? LABEL-OBLIST>> <SETG LABEL-OBLIST <MOBLIST LB 0>>)>
136 <COND (<NOT <GASSIGNED? VICTIMS>> <SETG VICTIMS ()>)>
138 <COND (<NOT <GASSIGNED? SURVIVORS>> <SETG SURVIVORS ()>)>
142 <COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD"> <FLOAD "MSGLUE-PM.MUD">)>
144 <COND (<NOT <GASSIGNED? CONSTANT-TABLE>> <SETG CONSTANT-TABLE <IVECTOR ,CONSTANT-TABLE-LENGTH ()>>)>
146 <COND (<NOT <GASSIGNED? MV-TABLE>> <SETG MV-TABLE <IVECTOR ,MV-TABLE-LENGTH ()>>)>
148 <COND (<NOT <GASSIGNED? DEATH-TRQ>> <SETG DEATH-TRQ T>)>
150 <COND (<NOT <GASSIGNED? MIM-OBL>> <SETG MIM-OBL <LIST !.OBLIST>>)>
152 <COND (<NOT <GASSIGNED? NO-AC-FUNNYNESS>> <SETG NO-AC-FUNNYNESS <>>)>
154 <COND (<NOT <GASSIGNED? V1>> <SETG V1 <>>)>
156 <COND (<NOT <GASSIGNED? V2>> <SETG V2 <>>)>
158 <COND (<NOT <GASSIGNED? BOOT-MODE>> <SETG BOOT-MODE <>>)>
160 <COND (<NOT <GASSIGNED? INT-MODE>> <SETG INT-MODE <>>)>
162 <COND (<NOT <GASSIGNED? GC-MODE>> <SETG GC-MODE <>>)>
164 <COND (<NOT <GASSIGNED? GLUE-MODE>> <SETG GLUE-MODE <>>)>
166 <COND (<NOT <GASSIGNED? ACA-AC>> <SETG ACA-AC <>>)>
168 <COND (<NOT <GASSIGNED? NEXT-FLUSH>> <SETG NEXT-FLUSH 0>)>
170 <COND (<NOT <GASSIGNED? MAX-SPACE>> <SETG MAX-SPACE <>>)>
172 <COND (<NOT <GASSIGNED? SURVIVOR-MODE>> <SETG SURVIVOR-MODE <>>)>
174 <COND (<NOT <GASSIGNED? LIST-OF-FCNS>> <SETG LIST-OF-FCNS ()>)>
180 <MANIFEST CB-LENGTH BUFL>
184 <COND (<NOT <GASSIGNED? CODE-BUFFER>> <SETG CODE-BUFFER <IUVECTOR ,CB-LENGTH 0>> <SETG ONE-WD ![0!]>)>
186 <COND (<NOT <GASSIGNED? OUTPUT-BUFFER>> <SETG OUTPUT-BUFFER <ISTRING ,OUTPUT-LENGTH>>)>
188 <SETG CTLZ+1 <+ <SETG CTLZ 26> 1>>
190 <SETG MIM <==? <TYPEPRIM FIX> FIX>>
192 <COND (<GASSIGNED? CRLF-STRING!-INTERNAL> <SETG WORD-STRING <STRING ,CRLF-STRING!-INTERNAL "#WORD " <ASCII ,CTLZ>>>)>
194 <COND (,MIM <SETG PKG-OBL <CHTYPE PACKAGE OBLIST>>) (ELSE <SETG PKG-OBL <GETPROP PACKAGE OBLIST>>)>
196 <COND (<OR <NOT <ASSIGNED? READ-TABLE>> <L? <LENGTH .READ-TABLE> ,CTLZ+1>> <SETG READ-TABLE <SET READ-TABLE <IVECTOR ,CTLZ+1 <>>>>)>
198 <SETG FCN-OBL <MOBLIST FOO>>
200 <SETG FCN-OBL-L (,FCN-OBL)>
203 <GFCN
\1aTERMIN-PRINT ("VALUE" CHARACTER I$TERMIN) TERMIN5>
208 <GEN-LVAL 'OUTCHAN = STACK>
211 <CHTYPE TERMIN5 <TYPE-CODE FIX> = STACK>
213 <GEN-LVAL 'OUTCHAN = STACK>
217 <GEN-LVAL 'OUTCHAN = STACK>
218 <CALL '
\1aPRINC 2 = TEMP7>
221 <END
\1aTERMIN-PRINT>
222 <COND (<NOT <GASSIGNED? FOOSTR>> <SETG FOOSTR " ">)>
224 <GDECL (FOOSTR) STRING>
227 <GFCN
\1aCHR-PRINT ("VALUE" <OR FIX STRING> CHARACTER) CHR5>
230 <GRTR? CHR5 127 - PHRASE7 (TYPE FIX)>
233 <GEN-LVAL 'OUTCHAN = STACK>
236 <CHTYPE CHR5 <TYPE-CODE FIX> = STACK>
238 <GEN-LVAL 'OUTCHAN = STACK>
239 <CALL '
\1aPRIN1 2 = TEMP9>
245 <GEN-LVAL 'OUTCHAN = STACK>
247 <GVAL 'FOOSTR = TEMP9>
251 <GVAL 'FOOSTR = STACK>
252 <GEN-LVAL 'OUTCHAN = STACK>
253 <CALL '
\1aPRINC 2 = TEMP9>
257 <PRINTTYPE I$TERMIN ,TERMIN-PRINT>
260 <GFCN
\1aATOM-PRINT ("VALUE" STRING ATOM) ATM5>
261 <TEMP SPN6:STRING TEMP10 TEMP24>
263 <NTHR ATM5 3 = SPN6 (RECORD-TYPE ATOM)>
264 <LENUS SPN6 = TEMP10 (TYPE FIX)>
265 <LESS? TEMP10 2 + PHRASE8 (TYPE FIX)>
267 <NTHUS SPN6 1 = TEMP10 (TYPE CHARACTER)>
268 <VEQUAL? TEMP10 !\T - PHRASE8>
270 <NTHUS SPN6 2 = TEMP10 (TYPE CHARACTER)>
271 <VEQUAL? TEMP10 !\$ - PHRASE8>
274 <RESTUS SPN6 2 = STACK (TYPE STRING)>
276 <GEN-LVAL 'OUTCHAN = STACK>
278 <GVAL 'BOOT-MODE = TEMP10>
279 <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE32>
283 <GEN-LVAL 'OUTCHAN = STACK>
287 <NTHR ATM5 4 = TEMP10 (RECORD-TYPE ATOM)>
289 <CALL '
\1aROOT 0 = TEMP24>
290 <EQUAL? TEMP10 TEMP24 + BOOL21>
293 <NTHR ATM5 3 = STACK (RECORD-TYPE ATOM)>
295 <GVAL 'ROOT-ATOMS = STACK>
296 <CALL '
\1aMEMBER 2 = TEMP24>
297 <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE19>
300 <GVAL 'BOOT-MODE = TEMP24>
301 <TYPE? TEMP24 <TYPE-CODE FALSE> - PHRASE19>
306 <GEN-LVAL 'OUTCHAN = STACK>
310 <GEN-LVAL 'OUTCHAN = STACK>
317 <GEN-LVAL 'OUTCHAN = STACK>
322 <GEN-LVAL 'OUTCHAN = STACK>
323 <CALL '
\1aPRINC 2 = SPN6>
327 <COND (<NOT <GASSIGNED? ROOT-ATOMS>> <SETG ROOT-ATOMS ["M$$BINDID" "M$$INT-LEVEL"]>)>
329 <GDECL (ROOT-ATOMS) <VECTOR [REST STRING]>>
332 <GFCN
\1aT$UNBOUND-PRINT ("VALUE" CHARACTER T$UNBOUND) UNB5>
337 <GEN-LVAL 'OUTCHAN = STACK>
340 <CHTYPE UNB5 <TYPE-CODE FIX> = STACK>
342 <GEN-LVAL 'OUTCHAN = STACK>
346 <GEN-LVAL 'OUTCHAN = STACK>
347 <CALL '
\1aPRINC 2 = TEMP7>
350 <END
\1aT$UNBOUND-PRINT>
351 <PRINTTYPE T$UNBOUND ,T$UNBOUND-PRINT>
354 <GFCN
\1aXGLOC-PRINT ("VALUE" <OR ATOM STRING> XGLOC) X5>
357 <GVAL 'BOOT-MODE = TEMP8>
358 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
361 <CHTYPE X5 <TYPE-CODE ATOM> = STACK>
363 <GEN-LVAL 'OUTCHAN = STACK>
364 <CALL '
\1aPRIN1 2 = TEMP8>
370 <GEN-LVAL 'OUTCHAN = STACK>
373 <CHTYPE X5 <TYPE-CODE ATOM> = STACK>
375 <GEN-LVAL 'OUTCHAN = STACK>
379 <GEN-LVAL 'OUTCHAN = STACK>
380 <CALL '
\1aPRINC 2 = TEMP8>
384 <PRINTTYPE XGLOC ,XGLOC-PRINT>
389 <GFCN
\1aXTYPE-C-PRINT ("VALUE" STRING XTYPE-C) X5>
392 <CHTYPE X5 <TYPE-CODE ATOM> = ATM6>
396 <GEN-LVAL 'OUTCHAN = STACK>
400 <GEN-LVAL 'OUTCHAN = STACK>
404 <GEN-LVAL 'OUTCHAN = STACK>
409 <CALL '
\1aTYPEPRIM 1 = ATM6>
410 <VEQUAL? ATM6 'WORD - PHRASE20>
411 <SET ATM6 'FIX (TYPE ATOM)>
416 <GEN-LVAL 'OUTCHAN = STACK>
420 <GEN-LVAL 'OUTCHAN = STACK>
421 <CALL '
\1aPRINC 2 = ATM6>
424 <END
\1aXTYPE-C-PRINT>
426 <GFCN
\1aXTYPE-W-PRINT ("VALUE" STRING XTYPE-W) X5>
429 <CHTYPE X5 <TYPE-CODE ATOM> = ATM6>
433 <GEN-LVAL 'OUTCHAN = STACK>
437 <GEN-LVAL 'OUTCHAN = STACK>
441 <GEN-LVAL 'OUTCHAN = STACK>
446 <CALL '
\1aTYPEPRIM 1 = ATM6>
447 <VEQUAL? ATM6 'WORD - PHRASE20>
448 <SET ATM6 'FIX (TYPE ATOM)>
453 <GEN-LVAL 'OUTCHAN = STACK>
457 <GEN-LVAL 'OUTCHAN = STACK>
458 <CALL '
\1aPRINC 2 = ATM6>
461 <END
\1aXTYPE-W-PRINT>
462 <PRINTTYPE XTYPE-C ,XTYPE-C-PRINT>
464 <PRINTTYPE XTYPE-W ,XTYPE-W-PRINT>
466 <COND (<NOT <GASSIGNED? OPS>> <COND (<GASSIGNED? BLOAT> <BLOAT 100000 5000 100 1500>)> <FLOAD "<MIM.20C>OP.MUD">) (<GASSIGNED? BLOAT> <BLOAT 100000 5000 100 100>)>
468 <COND (<NOT <GASSIGNED? OPCODE>> <FLOAD "<MIM.20C>MIMOPS.MUD">)>
470 <GDECL (SURVIVORS INCHANS) LIST (OPT-LIST) <OR FALSE LIST> (THIS-GUY) <LIST ATOM <LIST [REST OBLIST]>>>
473 <GFCN
\1aPROCESS-IFSYS ("VALUE" ATOM LIST) L5>
474 <TEMP IFL9 LP12:LIST LL13:LIST ITM11 IFOBJ10 TEMP23 TEMP24 TEMP30 TEMP31>
476 <SET IFL9 () (TYPE LIST)>
478 <RESTL L5 1 = LL13 (TYPE LIST)>
483 <EMPL? LL13 - PHRASE16 (TYPE LIST)>
486 <NTHL LL13 1 = ITM11>
487 <TYPE? ITM11 <TYPE-CODE FORM> - PHRASE18>
488 <NTHL ITM11 1 = IFOBJ10>
489 <SET TEMP23 [IFSYS ENDIF IFCAN IFCANNOT] (TYPE VECTOR)>
490 <TYPE? IFOBJ10 <TYPE-CODE ATOM> - PHRASE18>
491 <LOOP (IFOBJ10 VALUE) (TEMP23 LENGTH VALUE)>
493 <NTHUV TEMP23 1 = TEMP24>
494 <VEQUAL? TEMP24 IFOBJ10 + TAG20>
496 <RESTUV TEMP23 1 = TEMP23 (TYPE VECTOR)>
497 <EMPUV? TEMP23 - TAG21>
500 <EQUAL? IFOBJ10 'IFSYS - PHRASE26>
501 <RESTL ITM11 1 = TEMP23 (TYPE LIST)>
502 <NTHL TEMP23 1 = TEMP23>
503 <TYPE? TEMP23 <TYPE-CODE STRING> - PHRASE28>
504 <IFCAN "STRING-EQUAL?">
505 <STRING-EQUAL? TEMP23 "TOPS20" - PHRASE28>
506 <ENDIF "STRING-EQUAL?">
507 <IFCANNOT "STRING-EQUAL?">
508 <SET TEMP24 "TOPS20" (TYPE STRING)>
509 <LENUS TEMP23 = IFOBJ10 (TYPE FIX)>
510 <VEQUAL? IFOBJ10 6 - PHRASE28>
511 <LOOP (TEMP23 VALUE LENGTH) (TEMP24 VALUE LENGTH) (IFOBJ10 VALUE)>
513 <NTHUS TEMP23 1 = TEMP30>
514 <NTHUS TEMP24 1 = TEMP31>
515 <VEQUAL? TEMP30 TEMP31 - PHRASE28>
517 <RESTUS TEMP23 1 = TEMP23 (TYPE STRING)>
518 <RESTUS TEMP24 1 = TEMP24 (TYPE STRING)>
519 <SUB IFOBJ10 1 = IFOBJ10 (TYPE FIX)>
520 <GRTR? IFOBJ10 0 + TAG32 (TYPE FIX)>
521 <ENDIF "STRING-EQUAL?">
522 <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
524 <NTHL TEMP24 1 = TEMP24>
525 <CONS TEMP24 IFL9 = IFL9>
527 <RESTL LL13 1 = LL13 (TYPE LIST)>
531 <FRAME '
\1aFLUSH-TO-ENDIF>
534 <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
536 <NTHL TEMP24 1 = STACK>
538 <CALL '
\1aFLUSH-TO-ENDIF 2 = LL13>
542 <EQUAL? IFOBJ10 'IFCAN + BOOL36>
543 <EQUAL? IFOBJ10 'IFCANNOT - PHRASE35>
545 <EQUAL? IFOBJ10 'IFCAN - PHRASE40>
548 <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
549 <NTHL TEMP24 1 = STACK (TYPE STRING)>
551 <GVAL 'MIMOC-OBLIST = STACK>
552 <CALL '
\1aLOOKUP 2 = TEMP24>
553 <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE38>
558 <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
559 <NTHL TEMP24 1 = STACK (TYPE STRING)>
561 <GVAL 'MIMOC-OBLIST = STACK>
562 <CALL '
\1aLOOKUP 2 = TEMP24>
563 <TYPE? TEMP24 <TYPE-CODE FALSE> - PHRASE38>
566 <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
568 <NTHL TEMP24 1 = TEMP24>
569 <CONS TEMP24 IFL9 = IFL9>
571 <RESTL LL13 1 = LL13 (TYPE LIST)>
575 <FRAME '
\1aFLUSH-TO-ENDIF>
578 <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
580 <NTHL TEMP24 1 = STACK>
582 <CALL '
\1aFLUSH-TO-ENDIF 2 = LL13>
586 <EMPL? IFL9 + BOOL49 (TYPE LIST)>
588 <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
589 <NTHL TEMP24 1 = STACK>
591 <NTHL IFL9 1 = STACK>
592 <CALL '
\1aN=? 2 = TEMP24>
593 <VEQUAL? TEMP24 0 + PHRASE48>
597 <PUSH 'UNBALANCED-IFSYS!-ERRORS>
598 <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
600 <NTHL TEMP24 1 = STACK>
606 <RESTL IFL9 1 = IFL9 (TYPE LIST)>
608 <RESTL LL13 1 = LL13 (TYPE LIST)>
614 <RESTL LP12 1 = LL13 (TYPE LIST)>
616 <END
\1aPROCESS-IFSYS>
618 <GFCN
\1aFLUSH-TO-ENDIF ("VALUE" <OR ATOM LIST> LIST ANY) L5 FLG6>
619 <TEMP (CT8:FIX 1) TEMP10>
624 <RESTL L5 1 = L5 (TYPE LIST)>
625 <EMPL? L5 - PHRASE15 (TYPE LIST)>
627 <PUSH 'EOF-BEFORE-ENDIF!-ERRORS>
632 <TYPE? TEMP10 <TYPE-CODE FORM> - AGAIN13>
633 <NTHL TEMP10 1 = TEMP10>
634 <EQUAL? TEMP10 'ENDIF - PHRASE20>
635 <SUB CT8 1 = CT8 (TYPE FIX)>
636 <VEQUAL? CT8 0 - AGAIN13 (TYPE FIX)>
637 <RESTL L5 1 = TEMP10 (TYPE LIST)>
642 <EQUAL? TEMP10 'IFSYS + BOOL26>
643 <EQUAL? TEMP10 'IFCAN + BOOL26>
644 <EQUAL? TEMP10 'IFCANNOT - AGAIN13>
647 <ADD CT8 1 = CT8 (TYPE FIX)>
649 <END
\1aFLUSH-TO-ENDIF>
651 <GFCN
\1aGET-NM1 ("VALUE" STRING STRING) STR5>
652 <TEMP (SEEN-OP6 %<>) TEMP13:STRING TEMP16 CH18>
654 <SET TEMP13 STR5 (TYPE STRING)>
656 <SET TEMP16 0 (TYPE FIX)>
660 <EMPUS? TEMP13 + MAPAP11>
661 <NTHUS TEMP13 1 = CH18>
662 <VEQUAL? CH18 !\< - PHRASE20>
663 <SET SEEN-OP6 'T (TYPE ATOM)>
667 <VEQUAL? CH18 !\> - PHRASE22>
668 <SET SEEN-OP6 %<> (TYPE FALSE)>
672 <VEQUAL? SEEN-OP6 0 - PHRASE23>
673 <VEQUAL? CH18 !\. + MAPAP11>
678 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
679 <RESTUS TEMP13 1 = TEMP13 (TYPE STRING)>
682 <UBLOCK <TYPE-CODE STRING> TEMP16 = TEMP16 (TYPE STRING)>
687 <GFCN
\1aFILE-MIMOC ("VALUE" ANY "TUPLE" <<PRIMTYPE VECTOR> [REST STRING]>)>
688 <MAKTUP FILES4 C5 OC6 TEMP3:LBIND TEMP16 EXPFLOAD8 (PREC10 %<>) REDO13:LIST ON14:STRING PRE-INDEX11:LIST TEMP57 L59 TEMP61 HASH-CODE81 NM78 NXT75 ACCESS-DATA79:LIST F-OR-G9 = FILES4>
690 <GETS 'BIND = TEMP3 (TYPE LBIND)>
691 <GEN-LVAL 'OUTCHAN = TEMP16>
692 <BBIND 'OUTCHAN 'ANY 'FIX TEMP16>
694 <GEN-ASSIGNED? 'EXPFLOAD + TAG20>
695 <SET TEMP16 %<> (TYPE FALSE)>
698 <GEN-LVAL 'EXPFLOAD = TEMP16>
700 <SET EXPFLOAD8 TEMP16>
702 <BBIND 'COMPILER-INPUT 'CHANNEL 'FIX>
703 <GEN-ASSIGNED? 'REDO + TAG26>
704 <SET TEMP16 %<> (TYPE FALSE)>
707 <GEN-LVAL 'REDO = TEMP16>
711 <GEN-ASSIGNED? 'PRECOMPILED + TAG32>
712 <SET TEMP16 %<> (TYPE FALSE)>
715 <GEN-LVAL 'PRECOMPILED = TEMP16>
719 <NTHUV FILES4 1 = STACK (TYPE STRING)>
720 <CALL '
\1aOPEN 2 = C5>
721 <TYPE? C5 <TYPE-CODE FALSE> + PHRASE38>
725 <NTHUV FILES4 1 = STACK (TYPE STRING)>
726 <CALL '
\1aGET-NM1 1 = STACK>
728 <UBLOCK <TYPE-CODE STRING> 2 = ON14 (TYPE STRING)>
730 <CALL '
\1aOPEN 2 = OC6>
731 <TYPE? OC6 <TYPE-CODE FALSE> + PHRASE38>
732 <TYPE? TEMP16 <TYPE-CODE FALSE> + BOOL48>
737 <CALL '
\1aOPEN 2 = PREC10>
738 <TYPE? PREC10 <TYPE-CODE FALSE> + PHRASE38>
739 <FRAME '
\1aBUILD-INDEX>
741 <GVAL 'FCN-OBL = STACK>
742 <CALL '
\1aBUILD-INDEX 2 = PRE-INDEX11>
743 <EMPL? REDO13 + BOOL48 (TYPE LIST)>
744 <SET TEMP57 %<> (TYPE FALSE)>
745 <SET TEMP16 REDO13 (TYPE LIST)>
749 <EMPL? TEMP16 + MAPAP53>
751 <NTHL L59 1 = TEMP61 (TYPE ATOM)>
752 <NTHR TEMP61 3 = TEMP57 (RECORD-TYPE ATOM)>
756 <GVAL 'FCN-OBL = STACK>
757 <CALL '
\1aLOOKUP 2 = TEMP61>
758 <TYPE? TEMP61 <TYPE-CODE FALSE> - BOOL62>
762 <GVAL 'FCN-OBL = STACK>
763 <CALL '
\1aINSERT 2 = TEMP61>
769 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
772 <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE38>
775 <NTHR 'COMPILER-INPUT 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
776 <PUTR TEMP16 1 C5 (RECORD-TYPE LBIND)>
778 <CONS C5 () = TEMP16>
779 <SETG 'INCHANS TEMP16>
781 <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
782 <CHTYPE FILES4 <TYPE-CODE VECTOR> = FILES4>
783 <UUBLOCK <TYPE-CODE STRING> 1024 = ON14 (TYPE STRING)>
787 <SET L59 () (TYPE LIST)>
788 <GETS 'BIND = TEMP57 (TYPE LBIND)>
789 <BBIND 'NAME 'ATOM 'FIX>
790 <BBIND 'END <OR FALSE ATOM> 'FIX %<>>
791 <SET HASH-CODE81 #UNBOUND 0 >
795 <FRAME '
\1aFINISH-FILE>
799 <CALL '
\1aFINISH-FILE 3 = TEMP61>
800 <TYPE? TEMP61 <TYPE-CODE FALSE> + PHRASE84>
801 <TYPE? TEMP61 <TYPE-CODE FORM> - PHRASE94>
802 <EMPL? TEMP61 + BOOL91>
803 <RESTL TEMP61 1 = TEMP16 (TYPE LIST)>
804 <EMPL? TEMP16 + BOOL91>
806 <RESTL TEMP61 1 = TEMP16 (TYPE LIST)>
807 <NTHL TEMP16 1 = TEMP16>
808 <TYPE? TEMP16 <TYPE-CODE ATOM> - BOOL91>
809 <NTHR TEMP16 3 = TEMP16 (RECORD-TYPE ATOM)>
812 <GVAL 'FCN-OBL = STACK>
813 <CALL '
\1aLOOKUP 2 = NM78>
814 <TYPE? NM78 <TYPE-CODE FALSE> - BOOL91>
818 <GVAL 'FCN-OBL = STACK>
819 <CALL '
\1aINSERT 2 = NM78>
824 <NTHR 'END 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
825 <PUTR TEMP16 1 'T (RECORD-TYPE LBIND)>
828 <NTHR 'END 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
829 <NTHR TEMP16 1 = TEMP16 (RECORD-TYPE LBIND)>
830 <TYPE? TEMP16 <TYPE-CODE FALSE> + BOOL97>
836 <GVAL 'INCHANS = TEMP16>
839 <TYPE? TEMP61 <TYPE-CODE WORD> - PHRASE101>
840 <SET HASH-CODE81 TEMP61>
844 <TYPE? PREC10 <TYPE-CODE FALSE> + PHRASE102>
846 <TYPE? NM78 <TYPE-CODE ATOM> - TAG104>
847 <EMPL? TEMP16 + TAG104>
848 <LOOP (NM78 VALUE) (TEMP16 VALUE)>
850 <NTHL TEMP16 1 = TEMP61>
851 <VEQUAL? TEMP61 NM78 + PHRASE102>
853 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
854 <EMPL? TEMP16 - TAG105>
856 <SET TEMP61 %<> (TYPE FALSE)>
857 <SET TEMP16 PRE-INDEX11 (TYPE LIST)>
861 <EMPL? TEMP16 + MAPAP111>
862 <NTHL TEMP16 1 = L59>
863 <NTHL L59 1 = TEMP61 (TYPE ATOM)>
864 <EQUAL? TEMP61 NM78 + TAG119>
866 <SET TEMP61 %<> (TYPE FALSE)>
869 <RESTL L59 1 = ACCESS-DATA79 (TYPE LIST)>
871 <EMPL? ACCESS-DATA79 + BOOL123>
872 <RESTL ACCESS-DATA79 1 = TEMP61 (TYPE LIST)>
873 <EMPL? TEMP61 + BOOL123>
874 <RESTL TEMP61 1 = TEMP61 (TYPE LIST)>
875 <EMPL? TEMP61 + BOOL123>
877 <TYPE? HASH-CODE81 <TYPE-CODE UNBOUND> + BOOL123>
878 <RESTL ACCESS-DATA79 1 = TEMP61 (TYPE LIST)>
879 <RESTL TEMP61 1 = TEMP61 (TYPE LIST)>
880 <NTHL TEMP61 1 = TEMP61>
881 <EQUAL? TEMP61 HASH-CODE81 - PHRASE122>
884 <SET TEMP61 'T (TYPE ATOM)>
887 <SET TEMP61 %<> (TYPE FALSE)>
890 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
893 <TYPE? TEMP61 <TYPE-CODE FALSE> + PHRASE102>
897 <NTHL ACCESS-DATA79 1 = STACK (TYPE FIX)>
902 <RESTL ACCESS-DATA79 1 = TEMP16 (TYPE LIST)>
903 <NTHL TEMP16 1 = TEMP16 (TYPE FIX)>
904 <NTHL ACCESS-DATA79 1 = TEMP61 (TYPE FIX)>
905 <SUB TEMP16 TEMP61 = TEMP16 (TYPE FIX)>
910 <LESS? TEMP16 1024 - PHRASE132 (TYPE FIX)>
911 <FRAME '
\1aREADSTRING>
915 <CALL '
\1aREADSTRING 3>
916 <FRAME '
\1aPRINTSTRING>
921 <CALL '
\1aPRINTSTRING 3>
924 <FRAME '
\1aREADSTRING>
928 <CALL '
\1aREADSTRING 3>
929 <FRAME '
\1aPRINTSTRING>
933 <CALL '
\1aPRINTSTRING 3>
934 <SUB TEMP16 1024 = TEMP16 (TYPE FIX)>
937 <FRAME '
\1aSKIP-MIMA>
940 <CALL '
\1aSKIP-MIMA 2>
944 <SET TEMP16 1 (TYPE FIX)>
949 <SCALL '
\1aREAD-LIST 3 = TEMP61 + TAG140 TEMP16>
952 <VEQUAL? L59 1 + TAG142>
954 <LOOP (TEMP61 TYPE VALUE LENGTH) (TEMP16 VALUE)>
957 <EMPTY? TEMP61 + TAG147>
958 <NTH1 TEMP61 = STACK>
959 <REST1 TEMP61 = TEMP61>
960 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
963 <LIST TEMP16 = TEMP16 (TYPE LIST)>
970 <VEQUAL? TEMP16 0 + TAG144>
972 <CONS L59 TEMP61 = TEMP61 (TYPE LIST)>
974 <SUB TEMP16 1 = TEMP16 (TYPE FIX)>
980 <NTHR 'END 2 = TEMP61 (RECORD-TYPE ATOM) (TYPE LBIND)>
981 <NTHR TEMP61 1 = TEMP61 (RECORD-TYPE LBIND)>
982 <TYPE? TEMP61 <TYPE-CODE FALSE> + PHRASE150>
988 <NTHL NXT75 1 = F-OR-G9>
989 <RESTL NXT75 1 = TEMP61 (TYPE LIST)>
990 <NTHL TEMP61 1 = TEMP61 (TYPE ATOM)>
991 <NTHR 'NAME 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
992 <PUTR L59 1 TEMP61 (RECORD-TYPE LBIND)>
994 <GVAL 'VERBOSE = TEMP61>
995 <TYPE? TEMP61 <TYPE-CODE FALSE> + PHRASE157>
997 <GVAL 'OUTCHAN = TEMP61>
998 <NTHR 'OUTCHAN 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
999 <NTHR L59 1 = L59 (RECORD-TYPE LBIND)>
1000 <EQUAL? TEMP61 L59 + BOOL158>
1004 <NTHR 'OUTCHAN 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
1005 <NTHR L59 1 = STACK (RECORD-TYPE LBIND)>
1010 <NTHR 'OUTCHAN 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
1011 <NTHR L59 1 = STACK (RECORD-TYPE LBIND)>
1015 <PUSH "Open coding: ">
1016 <NTHR 'OUTCHAN 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
1017 <NTHR L59 1 = STACK (RECORD-TYPE LBIND)>
1021 <NTHR 'NAME 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
1022 <NTHR L59 1 = STACK (RECORD-TYPE LBIND)>
1024 <NTHR 'OUTCHAN 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
1025 <NTHR L59 1 = STACK (RECORD-TYPE LBIND)>
1029 <FRAME '
\1aPROCESS-IFSYS>
1031 <CALL '
\1aPROCESS-IFSYS 1>
1032 <FRAME '
\1aCALL-ANA>
1034 <CALL '
\1aCALL-ANA 1>
1039 <FRAME '
\1aLOCATION-CHECK>
1040 <CALL '
\1aLOCATION-CHECK 0>
1041 <FRAME '
\1aFIXUP-ONE-GLUE>
1043 <RESTL L59 1 = STACK (TYPE LIST)>
1045 <GVAL 'LABELS = STACK>
1046 <CALL '
\1aFIXUP-ONE-GLUE 2>
1047 <FRAME '
\1aALLOCATE-CONSTANTS>
1048 <GVAL 'CONSTANT-VECTOR = STACK>
1049 <GVAL 'CODE-LENGTH = STACK>
1050 <CALL '
\1aALLOCATE-CONSTANTS 2>
1051 <FRAME '
\1aFIXUP-CONSTANTS>
1053 <RESTL L59 1 = STACK (TYPE LIST)>
1055 <CALL '
\1aFIXUP-CONSTANTS 1>
1056 <FRAME '
\1aWRITE-MSUBR>
1061 <CALL '
\1aWRITE-MSUBR 3>
1062 <GVAL 'LABELS = TEMP16>
1066 <EMPL? TEMP16 + MAPAP187>
1067 <NTHL TEMP16 1 = TEMP61>
1068 <FRAME '
\1aGUNASSIGN>
1070 <NTHUV TEMP61 1 = STACK (TYPE ATOM)>
1072 <CALL '
\1aREMOVE 1 = STACK>
1073 <CALL '
\1aGUNASSIGN 1>
1074 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1077 <NTHR 'END 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
1078 <NTHR TEMP16 1 = TEMP16 (RECORD-TYPE LBIND)>
1079 <TYPE? TEMP16 <TYPE-CODE FALSE> + AGAIN82>
1085 <EMPUV? FILES4 + EXIT67 (TYPE VECTOR)>
1092 <NTHUV FILES4 1 = STACK (TYPE STRING)>
1093 <CALL '
\1aOPEN 2 = C5>
1094 <TYPE? C5 <TYPE-CODE FALSE> + PHRASE203>
1095 <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
1096 <CONS C5 () = TEMP16>
1097 <SETG 'INCHANS TEMP16>
1115 <GVAL 'NULL = TEMP16>
1118 <TYPE? C5 <TYPE-CODE UNBOUND> + PHRASE210>
1119 <TYPE? C5 <TYPE-CODE FALSE> + PHRASE210>
1124 <TYPE? OC6 <TYPE-CODE UNBOUND> + PHRASE214>
1125 <TYPE? OC6 <TYPE-CODE FALSE> + PHRASE214>
1133 <CALL '
\1aDELFILE 1>
1137 <CALL '
\1aERROR 1 = TEMP16>
1143 <CALL '
\1aERROR 1 = TEMP16>
1149 <CALL '
\1aERROR 1 = TEMP16>
1156 <END
\1aFILE-MIMOC>
\r\r
1158 <GFCN
\1aFILE-GLUE ("VALUE" ANY "TUPLE" <<PRIMTYPE VECTOR> [REST STRING]>)>
1159 <MAKTUP FILES4 C5 OC6 (TC7 %<>) (LEN9:FIX 0) (FCN-COUNT10:FIX 0) (LOWERSTR12 %<>) TFILES13 TEMP3:LBIND EXPFLOAD16 OB23:STRING TEMP44 TEMP59 ON19 TON20:STRING TOC17 TN14:STRING ITM102 TEMP115 TEMP129 FCN-FOUND243:FIX MSUBR-ACCESS11:FIX = FILES4>
1161 <SET TFILES13 FILES4>
1162 <GETS 'BIND = TEMP3 (TYPE LBIND)>
1163 <GEN-LVAL 'OUTCHAN = C5>
1164 <BBIND 'OUTCHAN 'ANY 'FIX C5>
1166 <GEN-ASSIGNED? 'EXPFLOAD + TAG28>
1167 <SET C5 %<> (TYPE FALSE)>
1170 <GEN-LVAL 'EXPFLOAD = C5>
1174 <BBIND 'COMPILER-INPUT 'CHANNEL 'FIX>
1175 <GVAL 'OUTPUT-BUFFER = OB23>
1176 <GVAL 'SURVIVOR-MODE = C5>
1177 <TYPE? C5 <TYPE-CODE FALSE> + PHRASE50>
1179 <GEN-ASSIGNED? 'READ-TABLE - BOOL37>
1182 <GEN-LVAL 'READ-TABLE = STACK>
1183 <CALL '
\1aLENGTH 1 = STACK>
1184 <GVAL 'CTLZ+1 = STACK>
1185 <CALL '
\1aL? 2 = C5>
1186 <TYPE? C5 <TYPE-CODE FALSE> + PHRASE36>
1190 <UUBLOCK <TYPE-CODE VECTOR> C5 = TEMP44>
1193 <LOOP (C5 VALUE LENGTH)>
1195 <EMPUV? C5 + ISTRE46>
1200 <GEN-SET 'READ-TABLE TEMP44>
1201 <SETG 'READ-TABLE TEMP44>
1205 <GEN-LVAL 'READ-TABLE = STACK>
1206 <GVAL 'CTLZ+1 = STACK>
1207 <CALL '
\1aNTH 2 = C5>
1208 <TYPE? C5 <TYPE-CODE FALSE> - PHRASE50>
1211 <GEN-LVAL 'READ-TABLE = STACK>
1212 <GVAL 'CTLZ+1 = STACK>
1214 <GVAL 'CTLZ = STACK>
1215 <CALL '
\1aASCII 1 = STACK>
1220 <UBLOCK <TYPE-CODE VECTOR> 5 = STACK>
1223 <SETG 'GLUE-MODE 'T>
1225 <SETG 'PRE-NAMES ()>
1227 <SETG 'GLUE-LIST ()>
1229 <CONS 'FOO () = TEMP59>
1230 <CONS 'FOO TEMP59 = TEMP59>
1231 <CONS 'T TEMP59 = TEMP59>
1232 <SETG 'MVECTOR TEMP59>
1234 <GVAL 'MV-TABLE = C5>
1238 <EMPUV? C5 + MAPAP64>
1240 <PUTUV TEMP44 1 () (TYPE LIST)>
1242 <RESTUV C5 1 = C5 (TYPE VECTOR)>
1246 <SETG 'FREE-CONSTS ()>
1247 <SETG 'CONSTANT-VECTOR ()>
1248 <GVAL 'CONSTANT-TABLE = TEMP44>
1252 <EMPUV? TEMP44 + MAPAP76>
1254 <PUTUV C5 1 () (TYPE LIST)>
1256 <RESTUV TEMP44 1 = TEMP44 (TYPE VECTOR)>
1259 <SETG 'FINAL-LOCALS ()>
1260 <GVAL 'MVECTOR = TEMP59>
1261 <RESTL TEMP59 1 = TEMP59 (TYPE LIST)>
1262 <RESTL TEMP59 1 = TEMP44 (TYPE LIST)>
1268 <NTHUV FILES4 1 = STACK (TYPE STRING)>
1269 <CALL '
\1aOPEN 2 = C5>
1270 <TYPE? C5 <TYPE-CODE FALSE> + PHRASE83>
1274 <NTHUV FILES4 1 = STACK (TYPE STRING)>
1275 <CALL '
\1aGET-NM1 1 = STACK>
1277 <UBLOCK <TYPE-CODE STRING> 2 = ON19 (TYPE STRING)>
1279 <CALL '
\1aOPEN 2 = OC6>
1280 <TYPE? OC6 <TYPE-CODE FALSE> + PHRASE83>
1284 <NTHUV FILES4 1 = STACK (TYPE STRING)>
1285 <CALL '
\1aGET-NM1 1 = STACK>
1287 <UBLOCK <TYPE-CODE STRING> 2 = TON20 (TYPE STRING)>
1289 <CALL '
\1aOPEN 2 = TOC17>
1290 <TYPE? TOC17 <TYPE-CODE FALSE> + PHRASE83>
1291 <GVAL 'MAX-SPACE = TEMP44>
1292 <TYPE? TEMP44 <TYPE-CODE FALSE> + BOOL92>
1297 <NTHUV FILES4 1 = STACK (TYPE STRING)>
1298 <CALL '
\1aGET-NM1 1 = STACK>
1300 <UBLOCK <TYPE-CODE STRING> 2 = TN14 (TYPE STRING)>
1302 <CALL '
\1aOPEN 2 = TC7>
1303 <TYPE? TC7 <TYPE-CODE FALSE> + PHRASE83>
1305 <CONS C5 () = TEMP59>
1306 <SETG 'INCHANS TEMP59>
1308 <NTHR 'COMPILER-INPUT 2 = TEMP44 (RECORD-TYPE ATOM) (TYPE LBIND)>
1309 <PUTR TEMP44 1 C5 (RECORD-TYPE LBIND)>
1311 <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
1312 <CHTYPE FILES4 <TYPE-CODE VECTOR> = FILES4>
1319 <FRAME '
\1aFINISH-FILE>
1323 <CALL '
\1aFINISH-FILE 3 = ITM102>
1324 <VEQUAL? ITM102 0 + EXIT100>
1325 <GVAL 'INCHANS = TEMP44>
1326 <NTHL TEMP44 1 = C5>
1328 <ADD FCN-COUNT10 1 = FCN-COUNT10 (TYPE FIX)>
1329 <GVAL 'SURVIVOR-MODE = TEMP44>
1330 <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE112>
1332 <RESTL ITM102 1 = TEMP44 (TYPE LIST)>
1333 <NTHL TEMP44 1 = TEMP44 (TYPE ATOM)>
1334 <NTHR TEMP44 3 = ON19 (RECORD-TYPE ATOM)>
1336 <NTHUS ON19 1 = TEMP44 (TYPE CHARACTER)>
1338 <GVAL 'CTLZ = STACK>
1339 <CALL '
\1aASCII 1 = TEMP115>
1340 <EQUAL? TEMP44 TEMP115 - PHRASE112>
1342 <RESTUS ON19 1 = ON19 (TYPE STRING)>
1345 <GVAL 'FCN-OBL = STACK>
1346 <CALL '
\1aLOOKUP 2 = TEMP115>
1347 <TYPE? TEMP115 <TYPE-CODE FALSE> - BOOL116>
1351 <GVAL 'FCN-OBL = STACK>
1352 <CALL '
\1aINSERT 2 = TEMP115>
1356 <RESTL ITM102 1 = TEMP115 (TYPE LIST)>
1357 <PUTL TEMP115 1 ON19>
1359 <SET TEMP115 %<> (TYPE FALSE)>
1360 <GVAL 'LIST-OF-FCNS = TEMP129>
1364 <EMPTY? TEMP129 + MAPAP124>
1365 <NTH1 TEMP129 = TEMP59>
1366 <NTHL TEMP59 1 = TEMP44 (TYPE ATOM)>
1367 <VEQUAL? TEMP44 ON19 + TAG134>
1369 <SET TEMP115 %<> (TYPE FALSE)>
1373 <RESTL TEMP59 1 = TEMP44 (TYPE LIST)>
1375 <NTHL TEMP44 1 = STACK (TYPE LIST)>
1377 <GEN-LVAL 'OBLIST = STACK>
1378 <CALL '
\1a=? 2 = TEMP115>
1379 <VEQUAL? TEMP115 0 + PHRASE132>
1380 <SET TEMP115 'T (TYPE ATOM)>
1383 <REST1 TEMP129 = TEMP129>
1386 <TYPE? TEMP115 <TYPE-CODE FALSE> - PHRASE154>
1388 <CONS ON19 () = TEMP115>
1389 <SET TEMP44 0 (TYPE FIX)>
1390 <GEN-LVAL 'OBLIST = TEMP129>
1391 <LOOP (TEMP129 VALUE) (TEMP44 VALUE)>
1394 <EMPL? TEMP129 + TAG142>
1395 <NTHL TEMP129 1 = STACK>
1396 <RESTL TEMP129 1 = TEMP129 (TYPE LIST)>
1397 <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
1400 <LIST TEMP44 = TEMP44 (TYPE LIST)>
1401 <CONS TEMP44 () = TEMP44>
1402 <PUTREST TEMP115 TEMP44>
1406 <SET TEMP44 1 (TYPE FIX)>
1407 <GVAL 'LIST-OF-FCNS = TEMP115>
1408 <TYPE TEMP115 = TEMP129>
1409 <AND TEMP129 7 = TEMP129>
1410 <VEQUAL? TEMP129 1 + TAG147>
1412 <LOOP (TEMP115 TYPE VALUE LENGTH) (TEMP44 VALUE)>
1415 <EMPTY? TEMP115 + TAG152>
1416 <NTH1 TEMP115 = STACK>
1417 <REST1 TEMP115 = TEMP115>
1418 <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
1421 <LIST TEMP44 = TEMP129 (TYPE LIST)>
1427 <VEQUAL? TEMP44 0 + TAG149>
1429 <CONS TEMP129 TEMP115 = TEMP115 (TYPE LIST)>
1431 <SUB TEMP44 1 = TEMP44 (TYPE FIX)>
1434 <SET TEMP129 TEMP115>
1437 <SETG 'LIST-OF-FCNS TEMP129>
1441 <RESTL ITM102 1 = TEMP115 (TYPE LIST)>
1442 <NTHL TEMP115 1 = ON19 (TYPE ATOM)>
1445 <TYPE? LOWERSTR12 <TYPE-CODE FALSE> - MAPEX160>
1446 <NTHR ON19 3 = TEMP44 (RECORD-TYPE ATOM)>
1447 <SET TEMP115 0 (TYPE FIX)>
1451 <EMPUS? TEMP44 + MAPAP161>
1452 <NTHUS TEMP44 1 = TEMP59>
1453 <CHTYPE TEMP59 <TYPE-CODE FIX> = LOWERSTR12>
1454 <GRTR? LOWERSTR12 90 + PHRASE170 (TYPE FIX)>
1455 <LESS? LOWERSTR12 65 + PHRASE170 (TYPE FIX)>
1456 <ADD LOWERSTR12 32 = LOWERSTR12 (TYPE FIX)>
1457 <CHTYPE LOWERSTR12 <TYPE-CODE CHARACTER> = LOWERSTR12>
1460 <SET LOWERSTR12 TEMP59>
1465 <ADD TEMP115 1 = TEMP115 (TYPE FIX)>
1466 <RESTUS TEMP44 1 = TEMP44 (TYPE STRING)>
1469 <UBLOCK <TYPE-CODE STRING> TEMP115 = LOWERSTR12 (TYPE STRING)>
1472 <NTHL ITM102 1 = TEMP44>
1473 <EQUAL? TEMP44 'GFCN - PHRASE180>
1475 <GVAL 'PRE-NAMES = TEMP44>
1476 <EMPL? TEMP44 - PHRASE176 (TYPE LIST)>
1478 <GVAL 'MVECTOR = TEMP44>
1479 <RESTL TEMP44 1 = TEMP115 (TYPE LIST)>
1481 <PUTL TEMP115 1 ON19>
1484 <GVAL 'PRE-NAMES = TEMP44>
1485 <CONS ON19 TEMP44 = TEMP44>
1486 <SETG 'PRE-NAMES TEMP44>
1490 <RESTL ITM102 1 = TEMP44 (TYPE LIST)>
1491 <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
1492 <NTHL TEMP44 1 = STACK>
1494 <CALL '
\1aMEMBER 2 = TEMP44>
1495 <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE178>
1497 <GVAL 'PRE-OPTS = TEMP44>
1498 <CONS %<> TEMP44 = TEMP44>
1499 <CONS ON19 TEMP44 = TEMP44>
1501 <SETG 'PRE-OPTS TEMP44>
1507 <RESTL ITM102 1 = TEMP44 (TYPE LIST)>
1508 <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
1509 <NTHL TEMP44 1 = STACK>
1511 <CALL '
\1aMEMBER 2 = TEMP44>
1512 <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE180>
1516 <CALL '
\1aREAD 1 = TEMP44>
1517 <RESTL TEMP44 1 = TEMP115 (TYPE LIST)>
1518 <RESTL TEMP115 1 = TEMP115 (TYPE LIST)>
1519 <RESTL TEMP115 1 = TEMP129 (TYPE LIST)>
1521 <CHTYPE TEMP129 <TYPE-CODE LIST> = TEMP129>
1525 <EMPL? TEMP129 + MAPAP187>
1526 <SET TEMP59 TEMP129>
1528 <NTHL TEMP59 1 = TEMP115 (TYPE ATOM)>
1529 <NTHR TEMP115 3 = STACK (RECORD-TYPE ATOM)>
1531 <NTHR ON19 3 = STACK (RECORD-TYPE ATOM)>
1532 <UBLOCK <TYPE-CODE STRING> 2 = STACK (TYPE STRING)>
1533 <CALL '
\1aGENLBL 1 = TEMP115>
1534 <PUTL TEMP59 1 TEMP115>
1535 <DEAD TEMP59 TEMP115>
1536 <RESTL TEMP129 1 = TEMP129 (TYPE LIST)>
1539 <GVAL 'PRE-OPTS = TEMP129>
1540 <CONS TEMP44 TEMP129 = TEMP129>
1542 <CONS ON19 TEMP129 = TEMP129>
1544 <SETG 'PRE-OPTS TEMP129>
1547 <FRAME '
\1aREAD-LIST>
1550 <PUSH <ERROR EOF!-ERRORS>>
1551 <CALL '
\1aREAD-LIST 3 = TEMP44>
1552 <NTHL ITM102 1 = TEMP129>
1554 <EQUAL? TEMP129 'GFCN - AGAIN107>
1556 <SET TEMP129 TEMP44>
1561 <EMPTY? TEMP129 + AGAIN107>
1562 <NTH1 TEMP129 = TEMP44>
1563 <TYPE? TEMP44 <TYPE-CODE FORM> - PHRASE210>
1564 <NTHL TEMP44 1 = ITM102>
1565 <EQUAL? ITM102 'BIND + BOOL211>
1566 <EQUAL? ITM102 'BBIND + BOOL211>
1567 <EQUAL? ITM102 'TUPLE + BOOL213>
1568 <EQUAL? ITM102 'ADJ - BOOL212>
1570 <RESTL TEMP44 1 = ON19 (TYPE LIST)>
1571 <NTHL ON19 1 = ON19>
1572 <TYPE? ON19 <TYPE-CODE FIX> - BOOL211>
1575 <SET ON19 [CALL SCALL ACALL UBLOCK SBLOCK USBLOCK LIST] (TYPE VECTOR)>
1576 <TYPE? ITM102 <TYPE-CODE ATOM> - PHRASE210>
1577 <LOOP (ITM102 VALUE) (ON19 LENGTH VALUE)>
1579 <NTHUV ON19 1 = TEMP59>
1580 <VEQUAL? TEMP59 ITM102 + TAG216>
1582 <RESTUV ON19 1 = ON19 (TYPE VECTOR)>
1583 <EMPUV? ON19 - TAG217>
1586 <RESTL TEMP44 1 = ON19 (TYPE LIST)>
1588 <RESTL ON19 1 = ON19 (TYPE LIST)>
1589 <NTHL ON19 1 = ON19>
1590 <TYPE? ON19 <TYPE-CODE FIX> + PHRASE210>
1594 <GVAL 'PRE-NAMES = STACK>
1597 <CALL '
\1aPUTPROP 3>
1600 <REST1 TEMP129 = TEMP129>
1607 <EMPUV? FILES4 + EXIT98 (TYPE VECTOR)>
1610 <NTHUV FILES4 1 = STACK (TYPE STRING)>
1611 <CALL '
\1aOPEN 2 = C5>
1612 <TYPE? C5 <TYPE-CODE FALSE> + PHRASE226>
1613 <CONS C5 () = TEMP129>
1614 <SETG 'INCHANS TEMP129>
1616 <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
1625 <FRAME '
\1aDETERMINE-VICTIMS>
1626 <CALL '
\1aDETERMINE-VICTIMS 0>
1627 <SET FILES4 TFILES13>
1630 <GEN-LVAL 'READ-TABLE = STACK>
1631 <GVAL 'CTLZ+1 = STACK>
1636 <NTHUV FILES4 1 = STACK (TYPE STRING)>
1637 <CALL '
\1aOPEN 2 = C5>
1638 <TYPE? C5 <TYPE-CODE FALSE> + PHRASE234>
1639 <CONS C5 () = TEMP115>
1640 <SETG 'INCHANS TEMP115>
1642 <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
1643 <CHTYPE FILES4 <TYPE-CODE VECTOR> = FILES4>
1651 <GETS 'BIND = TEMP115 (TYPE LBIND)>
1652 <BBIND 'NAME 'ATOM 'FIX>
1653 <SET TFILES13 %<> (TYPE FALSE)>
1654 <BBIND 'END <OR FALSE ATOM> 'FIX %<>>
1655 <SET FCN-FOUND243 0 (TYPE FIX)>
1656 <SET TEMP44 'T (TYPE ATOM)>
1657 <SET TEMP59 () (TYPE LIST)>
1664 <FRAME '
\1aFINISH-FILE>
1668 <CALL '
\1aFINISH-FILE 3 = TFILES13>
1669 <TYPE? TFILES13 <TYPE-CODE FALSE> + PHRASE252>
1670 <GVAL 'INCHANS = ON19>
1673 <ADD FCN-FOUND243 1 = FCN-FOUND243 (TYPE FIX)>
1679 <EMPUV? FILES4 - PHRASE257>
1686 <NTHUV FILES4 1 = STACK (TYPE STRING)>
1687 <CALL '
\1aOPEN 2 = C5>
1688 <TYPE? C5 <TYPE-CODE FALSE> + PHRASE259>
1690 <SETG 'INCHANS ON19>
1692 <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
1693 <CHTYPE FILES4 <TYPE-CODE VECTOR> = FILES4>
1703 <SET TEMP59 1 (TYPE FIX)>
1708 <SCALL '
\1aREAD-LIST 3 = ON19 + TAG262 TEMP59>
1709 <TYPE ON19 = TEMP129>
1710 <AND TEMP129 7 = TEMP129>
1711 <VEQUAL? TEMP129 1 + TAG264>
1713 <LOOP (ON19 TYPE VALUE LENGTH) (TEMP59 VALUE)>
1716 <EMPTY? ON19 + TAG269>
1719 <ADD TEMP59 1 = TEMP59 (TYPE FIX)>
1722 <LIST TEMP59 = ITM102 (TYPE LIST)>
1730 <VEQUAL? TEMP59 0 + TAG266>
1732 <CONS TEMP129 ON19 = ON19 (TYPE LIST)>
1734 <SUB TEMP59 1 = TEMP59 (TYPE FIX)>
1740 <NTHR 'END 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
1741 <NTHR ON19 1 = ON19 (RECORD-TYPE LBIND)>
1742 <TYPE? ON19 <TYPE-CODE FALSE> + PHRASE272>
1748 <GVAL 'VERBOSE = ON19>
1749 <TYPE? ON19 <TYPE-CODE FALSE> + PHRASE277>
1751 <GVAL 'OUTCHAN = ON19>
1752 <NTHR 'OUTCHAN 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
1753 <NTHR TEMP129 1 = TEMP129 (RECORD-TYPE LBIND)>
1754 <EQUAL? ON19 TEMP129 + BOOL278>
1758 <NTHR 'OUTCHAN 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
1759 <NTHR TEMP129 1 = STACK (RECORD-TYPE LBIND)>
1764 <NTHR 'OUTCHAN 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
1765 <NTHR TEMP129 1 = STACK (RECORD-TYPE LBIND)>
1769 <PUSH "Open coding: ">
1770 <NTHR 'OUTCHAN 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
1771 <NTHR TEMP129 1 = STACK (RECORD-TYPE LBIND)>
1775 <RESTL TFILES13 1 = TEMP129 (TYPE LIST)>
1777 <NTHL TEMP129 1 = TEMP129 (TYPE ATOM)>
1778 <NTHR 'NAME 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
1779 <PUTR ON19 1 TEMP129 (RECORD-TYPE LBIND)>
1783 <NTHR 'OUTCHAN 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
1784 <NTHR TEMP129 1 = STACK (RECORD-TYPE LBIND)>
1789 <RESTL TFILES13 1 = TEMP129 (TYPE LIST)>
1791 <NTHL TEMP129 1 = TEMP129 (TYPE ATOM)>
1792 <NTHR 'NAME 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
1793 <PUTR ON19 1 TEMP129 (RECORD-TYPE LBIND)>
1796 <FRAME '
\1aPROCESS-IFSYS>
1798 <CALL '
\1aPROCESS-IFSYS 1>
1799 <FRAME '
\1aCALL-ANA>
1801 <CALL '
\1aCALL-ANA 1>
1805 <GVAL 'SURVIVOR-MODE = TEMP129>
1806 <TYPE? TEMP129 <TYPE-CODE FALSE> + TAG312>
1807 <FRAME '
\1aFIND-CALL>
1808 <NTHR 'NAME 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
1809 <NTHR ON19 1 = STACK (RECORD-TYPE LBIND)>
1811 <GVAL 'PRE-NAMES = STACK>
1812 <CALL '
\1aFIND-CALL 2 = TFILES13>
1813 <SET TEMP129 TFILES13>
1814 <TYPE? TEMP129 <TYPE-CODE FALSE> + TAG312>
1819 <CALL '
\1aGETPROP 2 = ON19>
1820 <TYPE? ON19 <TYPE-CODE FALSE> + TAG306>
1822 <SET TEMP129 %<> (TYPE FALSE)>
1825 <FRAME '
\1aFIND-OPT>
1826 <NTHR 'NAME 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
1827 <NTHR ON19 1 = STACK (RECORD-TYPE LBIND)>
1829 <GVAL 'PRE-OPTS = STACK>
1830 <CALL '
\1aFIND-OPT 2 = ON19>
1831 <TYPE? ON19 <TYPE-CODE FALSE> + TAG310>
1833 <SET TEMP129 %<> (TYPE FALSE)>
1836 <FRAME '
\1aSURVIVOR?>
1837 <NTHR 'NAME 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
1838 <NTHR ON19 1 = STACK (RECORD-TYPE LBIND)>
1840 <CALL '
\1aSURVIVOR? 1 = ON19>
1841 <VEQUAL? ON19 0 - TAG311>
1843 <SET TEMP129 'T (TYPE ATOM)>
1846 <SET TEMP129 %<> (TYPE FALSE)>
1851 <NTHR 'NAME 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
1852 <PUTR TEMP129 1 #UNBOUND 0 (RECORD-TYPE LBIND)>
1854 <FRAME '
\1aLOCATION-CHECK>
1855 <CALL '
\1aLOCATION-CHECK 0>
1856 <GVAL 'MAX-SPACE = TEMP129>
1857 <TYPE? TEMP129 <TYPE-CODE FALSE> + PHRASE320>
1859 <FRAME '
\1aPRINTTYPE>
1861 <GVAL 'PRINT = STACK>
1862 <CALL '
\1aPRINTTYPE 2>
1863 <FRAME '
\1aPRINTTYPE>
1864 <PUSH 'CONSTANT-LABEL>
1865 <GVAL 'PRINT = STACK>
1866 <CALL '
\1aPRINTTYPE 2>
1867 <FRAME '
\1aFIXUP-ONE-GLUE>
1868 <GVAL 'CODE = TEMP129>
1869 <RESTL TEMP129 1 = STACK (TYPE LIST)>
1871 <GVAL 'LABELS = STACK>
1872 <CALL '
\1aFIXUP-ONE-GLUE 2>
1873 <FRAME '
\1aFIXUP-CONSTANTS>
1874 <GVAL 'CODE = TEMP129>
1875 <RESTL TEMP129 1 = STACK (TYPE LIST)>
1878 <CALL '
\1aFIXUP-CONSTANTS 2>
1879 <FRAME '
\1aDUMP-CODE>
1880 <GVAL 'CODE = STACK>
1882 <CALL '
\1aDUMP-CODE 2>
1883 <FRAME '
\1aPRINTTYPE>
1885 <GVAL 'PLOCAL-NAME = STACK>
1886 <CALL '
\1aPRINTTYPE 2>
1887 <FRAME '
\1aPRINTTYPE>
1888 <PUSH 'CONSTANT-LABEL>
1889 <GVAL 'PCONST-LABEL = STACK>
1890 <CALL '
\1aPRINTTYPE 2>
1892 <GVAL 'LABELS = TFILES13>
1896 <EMPL? TFILES13 + MAPAP332>
1897 <NTHL TFILES13 1 = ITM102>
1898 <PUTUV ITM102 4 () (TYPE LIST)>
1899 <PUTUV ITM102 5 %<>>
1900 <PUTUV ITM102 8 () (TYPE LIST)>
1901 <PUTUV ITM102 7 () (TYPE LIST)>
1903 <NTHUV ITM102 1 = STACK (TYPE ATOM)>
1906 <RESTL TFILES13 1 = TFILES13 (TYPE LIST)>
1909 <GVAL 'GCALS = TFILES13>
1910 <CONS TFILES13 () = TEMP59>
1912 <GVAL 'GREFS = TFILES13>
1913 <CONS TFILES13 TEMP59 = TEMP59>
1915 <GVAL 'LABELS = ITM102>
1916 <CONS ITM102 TEMP59 = TEMP59>
1918 <GVAL 'MAX-SPACE = ITM102>
1919 <TYPE? ITM102 <TYPE-CODE FALSE> + PHRASE341>
1921 <SET ITM102 () (TYPE LIST)>
1924 <GVAL 'CODE = ITM102>
1926 <CONS ITM102 TEMP59 = TEMP59>
1928 <GVAL 'GLUE-PC = ITM102>
1929 <CONS ITM102 TEMP59 = TEMP59>
1931 <GVAL 'GLUE-DECL = ITM102>
1932 <CONS ITM102 TEMP59 = TEMP59>
1934 <GVAL 'GLUE-NAME = ITM102>
1935 <CONS ITM102 TEMP59 = TEMP59>
1937 <CONS TEMP59 () = ITM102>
1938 <GVAL 'GLUE-LIST = TFILES13>
1939 <PUTREST ITM102 TFILES13>
1941 <SETG 'GLUE-LIST ITM102>
1943 <VEQUAL? TEMP44 0 + PHRASE344>
1944 <SET TEMP44 %<> (TYPE FALSE)>
1947 <CALL '
\1aACCESS 1 = MSUBR-ACCESS11>
1949 <GVAL 'SURVIVOR-MODE = ITM102>
1950 <TYPE? ITM102 <TYPE-CODE FALSE> + BOOL348>
1952 <FRAME '
\1aSURVIVOR?>
1953 <NTHL TEMP59 1 = STACK>
1954 <CALL '
\1aSURVIVOR? 1 = ITM102>
1955 <VEQUAL? ITM102 0 + PHRASE347>
1958 <FRAME '
\1aPRINT-ENTRY>
1963 <CALL '
\1aPRINT-ENTRY 3>
1965 <GVAL 'GLUE-PC = ITM102>
1966 <GVAL 'CODE-LENGTH = TFILES13>
1967 <ADD ITM102 TFILES13 = ITM102 (TYPE FIX)>
1969 <SETG 'GLUE-PC ITM102>
1971 <VEQUAL? FCN-COUNT10 FCN-FOUND243 - AGAIN248 (TYPE FIX)>
1976 <FRAME '
\1aALLOCATE-CONSTANTS>
1977 <GVAL 'CONSTANT-VECTOR = STACK>
1978 <GVAL 'GLUE-PC = STACK>
1979 <CALL '
\1aALLOCATE-CONSTANTS 2>
1984 <FRAME '
\1aFILE-LENGTH>
1988 <CALL '
\1aOPEN 2 = TOC17>
1990 <CALL '
\1aFILE-LENGTH 1 = ITM102>
1991 <SUB ITM102 MSUBR-ACCESS11 = FCN-COUNT10 (TYPE FIX)>
1993 <UUBLOCK <TYPE-CODE STRING> 1024 = ON19 (TYPE STRING)>
1997 <LESS? MSUBR-ACCESS11 1024 - PHRASE361 (TYPE FIX)>
1998 <SUB 1024 MSUBR-ACCESS11 = TFILES13 (TYPE FIX)>
1999 <RESTUS ON19 TFILES13 = ON19 (TYPE STRING)>
2002 <EMPUS? ON19 + PHRASE363 (TYPE STRING)>
2003 <FRAME '
\1aREADSTRING>
2006 <CALL '
\1aREADSTRING 2>
2007 <FRAME '
\1aPRINTSTRING>
2010 <CALL '
\1aPRINTSTRING 2>
2012 <SUB MSUBR-ACCESS11 1024 = MSUBR-ACCESS11 (TYPE FIX)>
2013 <GRTR? MSUBR-ACCESS11 0 + AGAIN359 (TYPE FIX)>
2014 <TYPE? TC7 <TYPE-CODE FALSE> + PHRASE371>
2022 <CALL '
\1aOPEN 2 = TC7>
2023 <GVAL 'VERBOSE = TFILES13>
2024 <TYPE? TFILES13 <TYPE-CODE FALSE> + PHRASE375>
2028 Doing fixup and output
2030 <NTHR 'OUTCHAN 2 = TFILES13 (RECORD-TYPE ATOM) (TYPE LBIND)>
2031 <NTHR TFILES13 1 = STACK (RECORD-TYPE LBIND)>
2035 <FRAME '
\1aWRITE-MSUBR>
2039 <CALL '
\1aWRITE-MSUBR 2 = FILES4>
2040 <GVAL 'GLUE-LIST = LOWERSTR12>
2044 <EMPL? LOWERSTR12 + MAPAP384>
2045 <NTHL LOWERSTR12 1 = TEMP59>
2046 <FRAME '
\1aREAD-CODE>
2048 <CALL '
\1aREAD-CODE 1 = TFILES13>
2049 <NTHL TEMP59 7 = TEMP44>
2050 <CHTYPE TEMP44 <TYPE-CODE LIST> = TEMP44>
2054 <EMPL? TEMP44 + MAPAP397>
2055 <NTHL TEMP44 1 = ON19>
2056 <NTHL ON19 1 = ITM102 (TYPE FIX)>
2057 <NTHL ON19 1 = FCN-FOUND243 (TYPE FIX)>
2058 <NTHUU TFILES13 FCN-FOUND243 = FCN-FOUND243 (TYPE FIX)>
2060 <RESTL ON19 1 = TEMP115 (TYPE LIST)>
2061 <NTHL TEMP115 1 = STACK>
2063 <RESTL ON19 1 = TEMP115 (TYPE LIST)>
2065 <RESTL TEMP115 1 = TEMP115 (TYPE LIST)>
2066 <NTHL TEMP115 1 = STACK>
2068 <CALL '
\1aGFIND 2 = TEMP115>
2069 <OR FCN-FOUND243 TEMP115 = FCN-FOUND243>
2071 <PUTUU TFILES13 ITM102 FCN-FOUND243>
2072 <DEAD ITM102 FCN-FOUND243>
2073 <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
2076 <NTHL TEMP59 6 = ITM102>
2081 <EMPTY? ITM102 + MAPAP414>
2082 <NTH1 ITM102 = TEMP59>
2083 <NTHL TEMP59 1 = TEMP115 (TYPE FIX)>
2084 <NTHL TEMP59 1 = FCN-FOUND243 (TYPE FIX)>
2085 <NTHUU TFILES13 FCN-FOUND243 = FCN-FOUND243 (TYPE FIX)>
2086 <RESTL TEMP59 1 = TEMP44 (TYPE LIST)>
2088 <NTHL TEMP44 1 = TEMP44 (TYPE CONSTANT-BUCKET)>
2089 <NTHUV TEMP44 4 = TEMP44 (TYPE FIX)>
2090 <OR FCN-FOUND243 TEMP44 = FCN-FOUND243>
2092 <PUTUU TFILES13 TEMP115 FCN-FOUND243>
2093 <DEAD TEMP115 FCN-FOUND243>
2094 <REST1 ITM102 = ITM102>
2097 <SET ITM102 TFILES13 (TYPE UVECTOR)>
2101 <EMPUU? ITM102 + MAPAP424>
2102 <NTHUU ITM102 1 = FCN-FOUND243>
2103 <SET MSUBR-ACCESS11 4 (TYPE FIX)>
2107 <ROT FCN-FOUND243 9 = FCN-FOUND243 (TYPE FIX)>
2108 <SET TEMP59 FCN-FOUND243>
2109 <LSH TEMP59 -5 = TEMP44 (TYPE FIX)>
2110 <AND TEMP44 #WORD *17* = TEMP44>
2111 <ADD TEMP44 65 = TEMP44 (TYPE FIX)>
2112 <CHTYPE TEMP44 <TYPE-CODE CHARACTER> = TEMP44>
2113 <PUTUS OB23 1 TEMP44>
2115 <RESTUS OB23 1 = OB23 (TYPE STRING)>
2116 <EMPUS? OB23 - PHRASE436 (TYPE STRING)>
2117 <FRAME '
\1aCHANNEL-OP>
2119 <PUSH 'WRITE-BUFFER>
2120 <GVAL 'OUTPUT-BUFFER = OB23>
2122 <CALL '
\1aCHANNEL-OP 3>
2124 <AND TEMP59 #WORD *37* = TEMP44>
2126 <ADD TEMP44 65 = TEMP44 (TYPE FIX)>
2127 <CHTYPE TEMP44 <TYPE-CODE CHARACTER> = TEMP44>
2128 <PUTUS OB23 1 TEMP44>
2130 <RESTUS OB23 1 = OB23 (TYPE STRING)>
2131 <EMPUS? OB23 - PHRASE439 (TYPE STRING)>
2132 <FRAME '
\1aCHANNEL-OP>
2134 <PUSH 'WRITE-BUFFER>
2135 <GVAL 'OUTPUT-BUFFER = OB23>
2137 <CALL '
\1aCHANNEL-OP 3>
2139 <SUB MSUBR-ACCESS11 1 = MSUBR-ACCESS11 (TYPE FIX)>
2140 <VEQUAL? MSUBR-ACCESS11 0 - AGAIN430 (TYPE FIX)>
2141 <RESTUU ITM102 1 = ITM102 (TYPE UVECTOR)>
2144 <LENUU TFILES13 = FCN-FOUND243 (TYPE FIX)>
2146 <ADD FCN-FOUND243 LEN9 = LEN9 (TYPE FIX)>
2148 <RESTL LOWERSTR12 1 = LOWERSTR12 (TYPE LIST)>
2158 <CALL '
\1aDELFILE 1>
2159 <SETG 'MAX-SPACE %<>>
2160 <FRAME '
\1aWRITE-CODE>
2169 <CALL '
\1aWRITE-CODE 5>
2170 <GVAL 'INT-MODE = LOWERSTR12>
2171 <TYPE? LOWERSTR12 <TYPE-CODE FALSE> + BOOL448>
2173 <FRAME '
\1aPRINTTYPE>
2175 <GVAL 'PRINT = STACK>
2176 <CALL '
\1aPRINTTYPE 2>
2178 <UUBLOCK <TYPE-CODE STRING> 1024 = OB23 (TYPE STRING)>
2182 <LESS? FCN-COUNT10 1024 - PHRASE454 (TYPE FIX)>
2183 <SUB 1024 FCN-COUNT10 = FILES4 (TYPE FIX)>
2184 <RESTUS OB23 FILES4 = OB23 (TYPE STRING)>
2187 <FRAME '
\1aREADSTRING>
2190 <CALL '
\1aREADSTRING 2>
2191 <FRAME '
\1aPRINTSTRING>
2194 <CALL '
\1aPRINTSTRING 2>
2195 <SUB FCN-COUNT10 1024 = FCN-COUNT10 (TYPE FIX)>
2196 <LESS? FCN-COUNT10 0 - AGAIN452 (TYPE FIX)>
2197 <FRAME '
\1aFINISH-FILE>
2203 <CALL '
\1aFINISH-FILE 3>
2210 <GVAL 'VERBOSE = FILES4>
2211 <TYPE? FILES4 <TYPE-CODE FALSE> + PHRASE465>
2217 <NTHR 'OUTCHAN 2 = FILES4 (RECORD-TYPE ATOM) (TYPE LBIND)>
2218 <NTHR FILES4 1 = STACK (RECORD-TYPE LBIND)>
2222 <FRAME '
\1aGLUE-FIXUP>
2223 <CALL '
\1aGLUE-FIXUP 0>
2224 <GVAL 'VERBOSE = FILES4>
2225 <TYPE? FILES4 <TYPE-CODE FALSE> + PHRASE471>
2228 <PUSH "Writing MSUBR
2230 <NTHR 'OUTCHAN 2 = FILES4 (RECORD-TYPE ATOM) (TYPE LBIND)>
2231 <NTHR FILES4 1 = STACK (RECORD-TYPE LBIND)>
2235 <FRAME '
\1aWRITE-MSUBR>
2239 <CALL '
\1aWRITE-MSUBR 2>
2240 <UUBLOCK <TYPE-CODE STRING> 1024 = OB23 (TYPE STRING)>
2244 <LESS? FCN-COUNT10 1024 - PHRASE480 (TYPE FIX)>
2245 <SUB 1024 FCN-COUNT10 = ON19 (TYPE FIX)>
2246 <RESTUS OB23 ON19 = OB23 (TYPE STRING)>
2249 <FRAME '
\1aREADSTRING>
2252 <CALL '
\1aREADSTRING 2>
2253 <FRAME '
\1aPRINTSTRING>
2256 <CALL '
\1aPRINTSTRING 2>
2257 <SUB FCN-COUNT10 1024 = FCN-COUNT10 (TYPE FIX)>
2258 <LESS? FCN-COUNT10 0 - AGAIN478 (TYPE FIX)>
2259 <FRAME '
\1aFINISH-FILE>
2264 <CALL '
\1aFINISH-FILE 3>
2281 <CALL '
\1aDELFILE 1>
2285 <TYPE? C5 <TYPE-CODE UNBOUND> + PHRASE494>
2286 <TYPE? C5 <TYPE-CODE FALSE> + PHRASE494>
2291 <TYPE? OC6 <TYPE-CODE UNBOUND> + PHRASE498>
2292 <TYPE? OC6 <TYPE-CODE FALSE> + PHRASE498>
2300 <CALL '
\1aDELFILE 1>
2304 <CALL '
\1aERROR 1 = ON19>
2310 <CALL '
\1aERROR 1 = ON19>
2316 <CALL '
\1aERROR 1 = ON19>
2323 <END
\1aFILE-GLUE>
\r\r
2325 <GFCN
\1aDO-ACCESS ("VALUE" FORM "QUOTE" ANY) CH5>
2328 <NTHR 'M-HLEN 1 = TEMP8 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE7)>
2329 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
2330 <NTHR TEMP8 1 = TEMP8 (RECORD-TYPE GBIND)>
2331 <TYPE? TEMP8 <TYPE-CODE UNBOUND> + PHRASE7>
2337 <CALL '
\1aFORM 2 = TEMP8>
2345 <CALL '
\1aFORM 2 = TEMP8>
2348 <END
\1aDO-ACCESS><COND (<AND <GASSIGNED? DO-ACCESS> <NOT <TYPE? ,DO-ACCESS MACRO>>> <SETG DO-ACCESS <CHTYPE (,DO-ACCESS) MACRO>>)>
2351 <GFCN
\1aSURVIVOR? ("VALUE" <OR ATOM !<FALSE>> ANY) A5>
2352 <TEMP SP6:STRING VL7 TEMP14 TEMP15 TEMP36 TEMP37 TEMP38 TEMP39>
2354 <NTHR A5 3 = SP6 (RECORD-TYPE ATOM)>
2355 <GVAL 'VICTIMS = VL7>
2357 <EMPL? TEMP14 + TAG11>
2358 <LOOP (A5 VALUE) (TEMP14 VALUE)>
2360 <NTHL TEMP14 1 = TEMP15>
2361 <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG13>
2362 <VEQUAL? TEMP15 A5 + BOOL10>
2365 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
2366 <EMPL? TEMP14 - TAG12>
2371 <CALL '
\1aMEMBER 2 = TEMP14>
2372 <TYPE? TEMP14 <TYPE-CODE FALSE> - BOOL10>
2374 <SET TEMP14 %<> (TYPE FALSE)>
2375 <SET TEMP15 VL7 (TYPE LIST)>
2380 <EMPL? TEMP15 + MAPAP21>
2381 <NTHL TEMP15 1 = TEMP14>
2382 <TYPE? TEMP14 <TYPE-CODE LIST> + TAG31>
2383 <SET TEMP14 %<> (TYPE FALSE)>
2386 <NTHL TEMP14 1 = VL7>
2387 <TYPE? VL7 <TYPE-CODE STRING> - TAG34>
2388 <IFCAN "STRING-EQUAL?">
2389 <STRING-EQUAL? VL7 SP6 + TAG33>
2390 <ENDIF "STRING-EQUAL?">
2391 <IFCANNOT "STRING-EQUAL?">
2393 <LENUS VL7 = TEMP37 (TYPE FIX)>
2394 <LENUS TEMP36 = TEMP38 (TYPE FIX)>
2395 <VEQUAL? TEMP37 TEMP38 - TAG34>
2397 <LOOP (VL7 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
2399 <NTHUS VL7 1 = TEMP38>
2400 <NTHUS TEMP36 1 = TEMP39>
2401 <VEQUAL? TEMP38 TEMP39 - TAG34>
2402 <DEAD TEMP38 TEMP39>
2403 <RESTUS VL7 1 = VL7 (TYPE STRING)>
2404 <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
2405 <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
2406 <GRTR? TEMP37 0 + TAG40 (TYPE FIX)>
2408 <ENDIF "STRING-EQUAL?">
2410 <SET TEMP14 %<> (TYPE FALSE)>
2413 <NTHR A5 4 = TEMP36 (RECORD-TYPE ATOM)>
2414 <RESTL TEMP14 1 = VL7 (TYPE LIST)>
2417 <CHTYPE VL7 <TYPE-CODE LIST> = TEMP14>
2420 <EMPL? TEMP14 + TAG41>
2421 <LOOP (TEMP36 VALUE) (VL7 VALUE) (TEMP14 VALUE)>
2423 <NTHL TEMP14 1 = TEMP39>
2424 <TYPE? TEMP39 VL7 - TAG44>
2425 <VEQUAL? TEMP39 TEMP36 + TAG42>
2428 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
2429 <EMPL? TEMP14 - TAG43>
2431 <SET TEMP14 %<> (TYPE FALSE)>
2434 <SET TEMP14 'T (TYPE ATOM)>
2437 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
2440 <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG8>
2448 <GFCN
\1aCHTYPE-OBLIST ("VALUE" FORM "QUOTE" ANY) O5>
2451 <NTHR 'M-HLEN 1 = TEMP8 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE7)>
2452 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
2453 <NTHR TEMP8 1 = TEMP8 (RECORD-TYPE GBIND)>
2454 <TYPE? TEMP8 <TYPE-CODE UNBOUND> + PHRASE7>
2461 <CALL '
\1aFORM 3 = TEMP8>
2470 <CALL '
\1aFORM 3 = TEMP8>
2473 <END
\1aCHTYPE-OBLIST><COND (<AND <GASSIGNED? CHTYPE-OBLIST> <NOT <TYPE? ,CHTYPE-OBLIST MACRO>>> <SETG CHTYPE-OBLIST <CHTYPE (,CHTYPE-OBLIST) MACRO>>)>
2476 <GFCN
\1aDETERMINE-VICTIMS ("VALUE" !<FALSE>)>
2477 <TEMP (VL5:LIST ()) LOF6 TEMP13 A19 SP20 PP22 TEMP26 TEMP35 PN38 TEMP43 TEMP44 TEMP45 TEMP46>
2479 <GVAL 'LIST-OF-FCNS = LOF6>
2480 <SET TEMP13 LOF6 (TYPE LIST)>
2485 <EMPL? TEMP13 + MAPAP11>
2486 <NTHL TEMP13 1 = LOF6>
2487 <NTHL LOF6 1 = A19 (TYPE ATOM)>
2488 <NTHR A19 3 = SP20 (RECORD-TYPE ATOM)>
2489 <SET PP22 %<> (TYPE FALSE)>
2490 <GVAL 'PRE-NAMES = TEMP26>
2491 <EMPL? TEMP26 + PHRASE77 (TYPE LIST)>
2493 <SET TEMP35 %<> (TYPE FALSE)>
2494 <GVAL 'PRE-NAMES = TEMP26>
2498 <EMPL? TEMP26 + MAPAP31>
2500 <NTHL PN38 1 = TEMP35>
2501 <NTHR TEMP35 3 = TEMP35 (RECORD-TYPE ATOM)>
2502 <IFCAN "STRING-EQUAL?">
2503 <STRING-EQUAL? TEMP35 SP20 - PHRASE41>
2504 <ENDIF "STRING-EQUAL?">
2505 <IFCANNOT "STRING-EQUAL?">
2507 <LENUS TEMP35 = TEMP44 (TYPE FIX)>
2508 <LENUS TEMP43 = TEMP45 (TYPE FIX)>
2509 <VEQUAL? TEMP44 TEMP45 - PHRASE41>
2511 <LOOP (TEMP35 VALUE LENGTH) (TEMP43 VALUE LENGTH) (TEMP44 VALUE)>
2513 <NTHUS TEMP35 1 = TEMP45>
2514 <NTHUS TEMP43 1 = TEMP46>
2515 <VEQUAL? TEMP45 TEMP46 - PHRASE41>
2516 <DEAD TEMP45 TEMP46>
2517 <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
2518 <RESTUS TEMP43 1 = TEMP43 (TYPE STRING)>
2519 <SUB TEMP44 1 = TEMP44 (TYPE FIX)>
2520 <GRTR? TEMP44 0 + TAG47 (TYPE FIX)>
2521 <ENDIF "STRING-EQUAL?">
2524 <SET TEMP35 %<> (TYPE FALSE)>
2527 <SET TEMP35 'T (TYPE ATOM)>
2528 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
2531 <TYPE? TEMP35 <TYPE-CODE FALSE> - PHRASE77>
2533 <GVAL 'INT-MODE = TEMP35>
2534 <TYPE? TEMP35 <TYPE-CODE FALSE> + BOOL49>
2536 <LENUS SP20 = TEMP35 (TYPE FIX)>
2537 <LESS? TEMP35 2 + PHRASE77 (TYPE FIX)>
2539 <NTHUS SP20 1 = TEMP35 (TYPE CHARACTER)>
2540 <VEQUAL? TEMP35 !\I - PHRASE77>
2542 <NTHUS SP20 2 = TEMP35 (TYPE CHARACTER)>
2543 <VEQUAL? TEMP35 !\$ - PHRASE77>
2546 <NTHR A19 4 = TEMP43 (RECORD-TYPE ATOM)>
2547 <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL52>
2548 <CHTYPE TEMP43 <TYPE-CODE ATOM> = TEMP35>
2550 <NTHR TEMP35 4 = TEMP43 (RECORD-TYPE ATOM)>
2552 <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL52>
2553 <GVAL 'PKG-OBL = TEMP35>
2554 <EQUAL? TEMP35 TEMP43 + PHRASE77>
2557 <CALL '
\1aROOT 0 = TEMP35>
2558 <VEQUAL? TEMP43 TEMP35 + PHRASE77>
2561 <SET TEMP35 %<> (TYPE FALSE)>
2562 <GVAL 'SURVIVORS = TEMP46>
2566 <EMPL? TEMP46 + MAPAP59>
2567 <NTHL TEMP46 1 = TEMP35>
2568 <NTHR TEMP35 3 = TEMP45 (RECORD-TYPE ATOM)>
2569 <IFCAN "STRING-EQUAL?">
2570 <STRING-EQUAL? TEMP45 SP20 + TAG66>
2571 <ENDIF "STRING-EQUAL?">
2572 <IFCANNOT "STRING-EQUAL?">
2574 <LENUS TEMP45 = TEMP44 (TYPE FIX)>
2575 <LENUS TEMP43 = TEMP26 (TYPE FIX)>
2576 <VEQUAL? TEMP44 TEMP26 - TAG67>
2578 <LOOP (TEMP45 VALUE LENGTH) (TEMP43 VALUE LENGTH) (TEMP44 VALUE)>
2580 <NTHUS TEMP45 1 = TEMP26>
2581 <NTHUS TEMP43 1 = PN38>
2582 <VEQUAL? TEMP26 PN38 - TAG67>
2584 <RESTUS TEMP45 1 = TEMP45 (TYPE STRING)>
2585 <RESTUS TEMP43 1 = TEMP43 (TYPE STRING)>
2586 <SUB TEMP44 1 = TEMP44 (TYPE FIX)>
2587 <GRTR? TEMP44 0 + TAG72 (TYPE FIX)>
2589 <ENDIF "STRING-EQUAL?">
2591 <SET TEMP35 %<> (TYPE FALSE)>
2594 <NTHR TEMP35 4 = TEMP43 (RECORD-TYPE ATOM)>
2596 <RESTL LOF6 1 = TEMP45 (TYPE LIST)>
2597 <NTHL TEMP45 1 = TEMP35 (TYPE LIST)>
2599 <TYPE TEMP43 = TEMP45>
2600 <EMPL? TEMP35 + TAG73>
2601 <LOOP (TEMP43 VALUE) (TEMP45 VALUE) (TEMP35 VALUE)>
2603 <NTHL TEMP35 1 = PN38>
2604 <TYPE? PN38 TEMP45 - TAG76>
2605 <VEQUAL? PN38 TEMP43 + TAG74>
2608 <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
2609 <EMPL? TEMP35 - TAG75>
2611 <SET TEMP35 %<> (TYPE FALSE)>
2614 <SET TEMP35 'T (TYPE ATOM)>
2617 <RESTL TEMP46 1 = TEMP46 (TYPE LIST)>
2620 <TYPE? TEMP35 <TYPE-CODE FALSE> - PHRASE77>
2622 <SET TEMP43 %<> (TYPE FALSE)>
2623 <RESTL LOF6 1 = PN38 (TYPE LIST)>
2624 <NTHL PN38 1 = PN38 (TYPE LIST)>
2628 <EMPL? PN38 + MAPAP82>
2629 <NTHL PN38 1 = TEMP35>
2634 <CALL '
\1aLOOKUP 2 = TEMP43>
2635 <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE87>
2636 <SET TEMP43 'T (TYPE ATOM)>
2639 <RESTL PN38 1 = PN38 (TYPE LIST)>
2642 <TYPE? TEMP43 <TYPE-CODE FALSE> - PHRASE77>
2644 <RESTL LOF6 1 = TEMP43 (TYPE LIST)>
2645 <NTHL TEMP43 1 = TEMP43 (TYPE LIST)>
2646 <CONS TEMP43 () = TEMP43>
2647 <CONS SP20 TEMP43 = TEMP43>
2648 <CONS TEMP43 VL5 = VL5>
2651 <TYPE? PP22 <TYPE-CODE FALSE> + PHRASE110>
2652 <SET TEMP35 %<> (TYPE FALSE)>
2653 <RESTL LOF6 1 = TEMP26 (TYPE LIST)>
2654 <NTHL TEMP26 1 = TEMP26 (TYPE LIST)>
2658 <EMPL? TEMP26 + MAPAP96>
2659 <NTHL TEMP26 1 = TEMP35>
2664 <CALL '
\1aLOOKUP 2 = TEMP43>
2666 <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE105>
2669 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
2675 <TYPE? TEMP43 <TYPE-CODE FALSE> - BOOL91>
2679 <RESTL LOF6 1 = TEMP26 (TYPE LIST)>
2681 <NTHL TEMP26 1 = TEMP26 (TYPE LIST)>
2682 <NTHL TEMP26 1 = STACK (TYPE OBLIST)>
2684 <CALL '
\1aINSERT 2 = TEMP43>
2686 <PUTL PP22 1 TEMP43>
2688 <GVAL 'PRE-OPTS = SP20>
2689 <EMPL? SP20 + TAG111>
2690 <LOOP (A19 VALUE) (SP20 VALUE)>
2692 <NTHL SP20 1 = TEMP43>
2693 <TYPE? TEMP43 <TYPE-CODE ATOM> - TAG114>
2694 <VEQUAL? TEMP43 A19 + TAG112>
2697 <RESTL SP20 1 = SP20 (TYPE LIST)>
2698 <EMPL? SP20 - TAG113>
2700 <SET SP20 %<> (TYPE FALSE)>
2702 <VEQUAL? SP20 0 + PHRASE110>
2703 <NTHL PP22 1 = TEMP43>
2705 <PUTL SP20 1 TEMP43>
2708 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
2711 <SET LOF6 0 (TYPE FIX)>
2712 <GVAL 'VICTIMS = TEMP13>
2713 <LOOP (TEMP13 TYPE VALUE LENGTH) (LOF6 VALUE)>
2716 <EMPTY? TEMP13 + TAG115>
2717 <NTH1 TEMP13 = STACK>
2718 <REST1 TEMP13 = TEMP13>
2719 <ADD LOF6 1 = LOF6 (TYPE FIX)>
2726 <VEQUAL? LOF6 0 + TAG120>
2728 <CONS TEMP43 TEMP13 = TEMP13 (TYPE LIST)>
2730 <SUB LOF6 1 = LOF6 (TYPE FIX)>
2733 <SETG 'VICTIMS TEMP13>
2735 <SETG 'FIRST-PASS-SURVIVOR-GLUE %<>>
2737 <END
\1aDETERMINE-VICTIMS>
2738 <GDECL (GLUE-LIST) <LIST [REST LIST]>>
2741 <GFCN
\1aPRINT-ENTRY ("VALUE" MUD-CHAN LIST CHANNEL ANY) MSBASE5 OUTCHAN6 LOWERSTR7>
2744 <GVAL 'INT-MODE = TEMP10>
2745 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
2747 <FRAME '
\1aPRINTTYPE>
2749 <GVAL 'ATOM-PRINT = STACK>
2750 <CALL '
\1aPRINTTYPE 2>
2752 <NTHUV OUTCHAN6 6 = TEMP10 (TYPE MUD-CHAN)>
2753 <PUTUV TEMP10 1 100000000 (TYPE FIX)>
2760 <NTHL MSBASE5 1 = STACK>
2772 <GVAL 'INT-MODE = TEMP10>
2773 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE20>
2776 <PUSH "!-IMSUBR!- ">
2787 <NTHL MSBASE5 1 = STACK>
2795 <RESTL MSBASE5 1 = TEMP10 (TYPE LIST)>
2796 <NTHL TEMP10 1 = STACK>
2805 <RESTL MSBASE5 1 = TEMP10 (TYPE LIST)>
2807 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
2808 <NTHL TEMP10 1 = STACK>
2819 <GVAL 'INT-MODE = TEMP10>
2820 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE33>
2822 <FRAME '
\1aPRINTTYPE>
2824 <GVAL 'PRINT = STACK>
2825 <CALL '
\1aPRINTTYPE 2>
2827 <NTHUV OUTCHAN6 6 = TEMP10 (TYPE MUD-CHAN)>
2829 <PUTUV TEMP10 1 80 (TYPE FIX)>
2832 <END
\1aPRINT-ENTRY>
2834 <GFCN
\1aFINISH-FILE ("VALUE" <OR !<FALSE> WORD <FORM ANY>> CHANNEL <OR CHANNEL FALSE> <OR ATOM FALSE> "OPTIONAL" <VECTOR [REST ATOM]> <OR ATOM FALSE>) INCHAN10 OUTCHAN11 EXPFLOAD12 END?13 EVAL?14>
2835 <OPT-DISPATCH 3 %<> OPT7 OPT8 OPT9>
2841 <TEMP (IND15:LIST (1)) (WORD-OK?16 %<>) ITM22 TEMP27 TEMP32 TEMP38 TEMP39 TEMP40>
2843 <TYPE? END?13 <TYPE-CODE UNBOUND> - PHRASE18>
2844 <SET WORD-OK?16 'T (TYPE ATOM)>
2845 <SET END?13 [FCN GFCN] (TYPE VECTOR)>
2852 <CFRAME = STACK (TYPE FRAME)>
2853 <CALL '
\1aREAD 2 = ITM22>
2854 <CFRAME = TEMP27 (TYPE FRAME)>
2855 <EQUAL? TEMP27 ITM22 - TAG28>
2859 <EQUAL? ITM22 IND15 - PHRASE26>
2864 <GVAL 'INCHANS = TEMP32>
2865 <RESTL TEMP32 1 = TEMP27 (TYPE LIST)>
2867 <SETG 'INCHANS TEMP27>
2868 <EMPL? TEMP27 - PHRASE31 (TYPE LIST)>
2872 <GVAL 'INCHANS = TEMP32>
2873 <NTHL TEMP32 1 = INCHAN10 (TYPE CHANNEL)>
2877 <TYPE? ITM22 <TYPE-CODE STRING> + AGAIN24>
2878 <TYPE? ITM22 <TYPE-CODE CHARACTER> + AGAIN24>
2879 <TYPE? ITM22 <TYPE-CODE FIX> + AGAIN24>
2880 <TYPE? ITM22 <TYPE-CODE ATOM> - TAG37>
2881 <NTHR ITM22 3 = TEMP32 (RECORD-TYPE ATOM)>
2882 <IFCAN "STRING-EQUAL?">
2883 <STRING-EQUAL? TEMP32 "
\f" + AGAIN24>
2884 <ENDIF "STRING-EQUAL?">
2885 <IFCANNOT "STRING-EQUAL?">
2886 <SET TEMP27 "
\f" (TYPE STRING)>
2887 <LENUS TEMP32 = TEMP38 (TYPE FIX)>
2888 <VEQUAL? TEMP38 1 - TAG37>
2889 <LOOP (TEMP32 VALUE LENGTH) (TEMP27 VALUE LENGTH) (TEMP38 VALUE)>
2891 <NTHUS TEMP32 1 = TEMP39>
2892 <NTHUS TEMP27 1 = TEMP40>
2893 <VEQUAL? TEMP39 TEMP40 - TAG37>
2894 <DEAD TEMP39 TEMP40>
2895 <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
2896 <RESTUS TEMP27 1 = TEMP27 (TYPE STRING)>
2897 <SUB TEMP38 1 = TEMP38 (TYPE FIX)>
2898 <GRTR? TEMP38 0 + TAG41 (TYPE FIX)>
2900 <ENDIF "STRING-EQUAL?">
2902 <TYPE? ITM22 <TYPE-CODE FORM> - PHRASE43>
2903 <EMPL? ITM22 + PHRASE43 (TYPE FORM)>
2904 <NTHL ITM22 1 = TEMP27>
2906 <TYPE? TEMP27 <TYPE-CODE ATOM> - PHRASE43>
2907 <EMPUV? TEMP32 + PHRASE43>
2908 <LOOP (TEMP27 VALUE) (TEMP32 LENGTH VALUE)>
2910 <NTHUV TEMP32 1 = TEMP40>
2911 <VEQUAL? TEMP40 TEMP27 + TAG45>
2913 <RESTUV TEMP32 1 = TEMP32 (TYPE VECTOR)>
2914 <EMPUV? TEMP32 - TAG46>
2920 <VEQUAL? WORD-OK?16 0 + PHRASE48>
2921 <TYPE? ITM22 <TYPE-CODE WORD> - PHRASE48>
2922 <GVAL 'INT-MODE = TEMP32>
2923 <TYPE? TEMP32 <TYPE-CODE FALSE> - AGAIN24>
2925 <GVAL 'BOOT-MODE = TEMP32>
2926 <TYPE? TEMP32 <TYPE-CODE FALSE> - AGAIN24>
2928 <GVAL 'GLUE-MODE = TEMP32>
2929 <TYPE? TEMP32 <TYPE-CODE FALSE> - AGAIN24>
2931 <TYPE? OUTCHAN11 <TYPE-CODE FALSE> + PHRASE54>
2933 <GVAL 'WORD-STRING = STACK>
2936 <FRAME '
\1aPRIN-OCT>
2937 <CHTYPE ITM22 <TYPE-CODE FIX> = STACK>
2939 <CALL '
\1aPRIN-OCT 2>
2948 <TYPE? EXPFLOAD12 <TYPE-CODE FALSE> + PHRASE59>
2949 <TYPE? ITM22 <TYPE-CODE FORM> - PHRASE59>
2950 <EMPL? ITM22 + PHRASE59 (TYPE FORM)>
2951 <NTHL ITM22 1 = TEMP32>
2952 <EQUAL? TEMP32 'FLOAD - PHRASE62>
2956 <SET TEMP27 1 (TYPE FIX)>
2957 <RESTL ITM22 1 = TEMP32 (TYPE LIST)>
2958 <CHTYPE TEMP32 <TYPE-CODE LIST> = TEMP32>
2959 <LOOP (TEMP32 VALUE) (TEMP27 VALUE)>
2962 <EMPL? TEMP32 + TAG63>
2963 <NTHL TEMP32 1 = STACK>
2964 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
2965 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
2968 <CALL '
\1aOPEN TEMP27 = TEMP32>
2970 <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE59>
2973 <NTHL ITM22 1 = TEMP27>
2974 <EQUAL? TEMP27 'L-FLOAD - PHRASE59>
2977 <RESTL ITM22 1 = TEMP27 (TYPE LIST)>
2978 <NTHL TEMP27 1 = STACK (TYPE STRING)>
2980 <CALL '
\1aL-OPEN 1 = TEMP32>
2981 <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE59>
2983 <SET INCHAN10 TEMP32>
2984 <GVAL 'INCHANS = TEMP27>
2985 <CONS TEMP32 TEMP27 = TEMP27>
2987 <SETG 'INCHANS TEMP27>
2991 <TYPE? EVAL?14 <TYPE-CODE FALSE> + PHRASE83>
2992 <TYPE? ITM22 <TYPE-CODE FORM> - PHRASE77>
2993 <EMPL? ITM22 + PHRASE77 (TYPE FORM)>
2994 <NTHL ITM22 1 = TEMP32>
2995 <SET TEMP40 [INCLUDE-WHEN USE-WHEN] (TYPE VECTOR)>
2996 <TYPE? TEMP32 <TYPE-CODE ATOM> - PHRASE77>
2997 <LOOP (TEMP32 VALUE) (TEMP40 LENGTH VALUE)>
2999 <NTHUV TEMP40 1 = TEMP39>
3000 <VEQUAL? TEMP39 TEMP32 + TAG79>
3002 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
3003 <EMPUV? TEMP40 - TAG80>
3006 <RESTL ITM22 1 = TEMP40 (TYPE LIST)>
3007 <CHTYPE TEMP40 <TYPE-CODE LIST> = TEMP40>
3008 <EMPL? TEMP40 + PHRASE77 (TYPE LIST)>
3010 <RESTL ITM22 1 = TEMP40 (TYPE LIST)>
3011 <NTHL TEMP40 1 = TEMP27>
3013 <TYPE? TEMP27 <TYPE-CODE FORM> - PHRASE77>
3014 <EMPL? TEMP27 + PHRASE77 (TYPE FORM)>
3015 <NTHL TEMP27 1 = TEMP40>
3016 <EQUAL? TEMP40 'COMPILING? - PHRASE77>
3021 <PUTL TEMP27 1 'DEBUGGING?>
3029 <TYPE? OUTCHAN11 <TYPE-CODE FALSE> + AGAIN24>
3030 <GVAL 'INT-MODE = TEMP40>
3031 <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE88>
3033 <FRAME '
\1aPRINTTYPE>
3035 <GVAL 'ATOM-PRINT = STACK>
3036 <CALL '
\1aPRINTTYPE 2>
3038 <FRAME '
\1aPRINTTYPE>
3040 <GVAL 'CHR-PRINT = STACK>
3041 <CALL '
\1aPRINTTYPE 2>
3042 <NTHUV OUTCHAN11 6 = TEMP27 (TYPE MUD-CHAN)>
3043 <PUTUV TEMP27 1 100000 (TYPE FIX)>
3053 <NTHUV OUTCHAN11 6 = TEMP27 (TYPE MUD-CHAN)>
3054 <PUTUV TEMP27 1 80 (TYPE FIX)>
3056 <GVAL 'INT-MODE = TEMP39>
3057 <TYPE? TEMP39 <TYPE-CODE FALSE> + PHRASE100>
3059 <FRAME '
\1aPRINTTYPE>
3061 <GVAL 'PRINT = STACK>
3062 <CALL '
\1aPRINTTYPE 2>
3064 <FRAME '
\1aPRINTTYPE>
3066 <GVAL 'PRINT = STACK>
3067 <CALL '
\1aPRINTTYPE 2>
3069 <END
\1aFINISH-FILE>
3071 <GFCN
\1aPRIN-OCT ("VALUE" CHARACTER FIX ANY) X5 CH6>
3072 <TEMP TEMP16:CHARACTER>
3078 <VEQUAL? X5 0 - PHRASE9 (TYPE FIX)>
3095 <CALL '
\1aPRINC 2 = TEMP16>
3100 <GFCN
\1aPOCT ("VALUE" <OR CHARACTER FALSE> FIX ANY) X5 CH6>
3103 <VEQUAL? X5 0 - TAG10 (TYPE FIX)>
3107 <LSH X5 -3 = STACK (TYPE FIX)>
3111 <AND X5 #WORD *7* = TEMP9>
3113 <ADD TEMP9 48 = TEMP9 (TYPE FIX)>
3114 <CHTYPE TEMP9 <TYPE-CODE CHARACTER> = STACK>
3118 <CALL '
\1aPRINC 2 = TEMP9>
3122 <GDECL (SUBRIFIED-PKGS SUBRIFIED-MSUBRS) <LIST [REST ATOM]>>
3125 <GFCN
\1aSUBRIFY? ("VALUE" <OR FALSE SUBR-INFO> ANY) NAME4>
3126 <TEMP OBL5 TEMP14 MS6 OO7 CNT33:FIX>
3128 <NTHR NAME4 4 = OBL5 (RECORD-TYPE ATOM)>
3129 <NTHR NAME4 1 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG13)>
3130 <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG13>
3131 <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE GBIND)>
3132 <TYPE? TEMP14 <TYPE-CODE UNBOUND> - TAG12>
3138 <TYPE? MS6 <TYPE-CODE MSUBR> + TAG15>
3141 <TYPE? OBL5 <TYPE-CODE FALSE> + TAG21>
3142 <CHTYPE OBL5 <TYPE-CODE ATOM> = TEMP14>
3143 <NTHR TEMP14 4 = OO7 (RECORD-TYPE ATOM)>
3145 <EQUAL? OO7 #OBLIST PACKAGE + BOOL19>
3146 <CHTYPE OO7 <TYPE-CODE ATOM> = TEMP14>
3147 <NTHR TEMP14 4 = TEMP14 (RECORD-TYPE ATOM)>
3148 <EQUAL? TEMP14 #OBLIST PACKAGE - TAG21>
3152 <TYPE? OBL5 <TYPE-CODE FALSE> + TAG21>
3154 <CHTYPE OBL5 <TYPE-CODE ATOM> = TEMP14>
3156 <GVAL 'SUBRIFIED-PKGS = OO7>
3158 <LOOP (TEMP14 VALUE) (OO7 VALUE)>
3161 <VEQUAL? OBL5 TEMP14 + TAG27>
3163 <RESTL OO7 1 = OO7 (TYPE LIST)>
3166 <GVAL 'SUBRIFIED-MSUBRS = OBL5>
3167 <EMPL? OBL5 + TAG26>
3168 <LOOP (NAME4 VALUE) (OBL5 VALUE)>
3171 <VEQUAL? OO7 NAME4 + TAG27>
3173 <RESTL OBL5 1 = OBL5 (TYPE LIST)>
3174 <EMPL? OBL5 - TAG28>
3180 <NTHUV MS6 3 = TEMP14>
3182 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
3183 <RESTL TEMP14 1 = OO7 (TYPE LIST)>
3185 <CHTYPE OO7 <TYPE-CODE LIST> = OO7>
3186 <SET CNT33 0 (TYPE FIX)>
3190 <EMPL? OO7 - PHRASE37 (TYPE LIST)>
3196 <TYPE? MS6 <TYPE-CODE STRING> + PHRASE39>
3197 <ADD CNT33 1 = CNT33 (TYPE FIX)>
3200 <SET TEMP14 ["OPT" "OPTIONAL" "TUPLE"] (TYPE VECTOR)>
3201 <LOOP (MS6 VALUE) (TEMP14 LENGTH VALUE)>
3203 <NTHUV TEMP14 1 = OBL5>
3204 <VEQUAL? OBL5 MS6 + TAG41>
3206 <RESTUV TEMP14 1 = TEMP14 (TYPE VECTOR)>
3207 <EMPUV? TEMP14 - TAG42>
3213 <RESTL OO7 1 = OO7 (TYPE LIST)>
3216 <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP14>
3217 <CHTYPE TEMP14 <TYPE-CODE SUBR-INFO> = OBL5>
3223 <GFCN
\1aPRINT-SUBR-INFO ("VALUE" STRING SUBR-INFO) S4>
3227 <PUSH "%<SUBR-ENTRY ">
3228 <GEN-LVAL 'OUTCHAN = STACK>
3231 <NTHUV S4 1 = STACK>
3233 <GEN-LVAL 'OUTCHAN = STACK>
3237 <GEN-LVAL 'OUTCHAN = STACK>
3238 <CALL '
\1aPRINC 2 = TEMP6>
3241 <END
\1aPRINT-SUBR-INFO>
3242 <COND (<GASSIGNED? PRINT-SUBR-INFO> <PRINTTYPE SUBR-INFO ,PRINT-SUBR-INFO>)