2 <COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD"> <FLOAD "MSGLUE-PM.MUD">)>
5 <GFCN
\1aGLUE-FIXUP ("VALUE" ANY)>
6 <TEMP TEMP13 TEMP15 FROB16:LIST TEMP19:LIST>
8 <SET TEMP13 %<> (TYPE FALSE)>
9 <GVAL 'GLUE-LIST = TEMP15>
13 <EMPTY? TEMP15 + MAPAP8>
14 <NTH1 TEMP15 = FROB16>
15 <NTHL FROB16 5 = TEMP13 (TYPE LIST)>
16 <FRAME '
\1aFIXUP-ONE-GLUE>
17 <RESTL FROB16 1 = TEMP19 (TYPE LIST)>
18 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
19 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
20 <NTHL TEMP19 1 = STACK (TYPE LIST)>
24 <CALL '
\1aFIXUP-ONE-GLUE 2>
25 <FRAME '
\1aFIXUP-CONSTANTS>
26 <RESTL FROB16 1 = TEMP19 (TYPE LIST)>
28 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
29 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
30 <NTHL TEMP19 1 = STACK (TYPE LIST)>
32 <CALL '
\1aFIXUP-CONSTANTS 1 = TEMP13>
33 <REST1 TEMP15 = TEMP15>
40 <GFCN
\1aFIXUP-ONE-GLUE ("VALUE" <OR FALSE <LIST <OR INST <LIST FIX ATOM ANY>>>> LIST LIST) CODE4 LBL5>
41 <TEMP (N6:FIX 0) TEMP16 TEMP13:LIST LST18:LIST INS19 ITM20 CONST21:CONSTANT FC23:CONSTANT-BUCKET>
43 <SET TEMP16 %<> (TYPE FALSE)>
44 <SET TEMP13 CODE4 (TYPE LIST)>
49 <EMPL? TEMP13 + MAPAP11>
51 <NTHL LST18 1 = INS19>
52 <TYPE? INS19 <TYPE-CODE ATOM> + PHRASE25>
53 <ADD N6 1 = N6 (TYPE FIX)>
55 <TYPE? INS19 <TYPE-CODE INST> + TAG28>
56 <SET TEMP16 %<> (TYPE FALSE)>
59 <NTHUV INS19 1 = ITM20>
60 <TYPE? ITM20 <TYPE-CODE GFRM> + TAG32>
61 <TYPE? ITM20 <TYPE-CODE SGFRM> + TAG32>
62 <TYPE? ITM20 <TYPE-CODE SBFRM> - PHRASE31>
64 <CHTYPE ITM20 <TYPE-CODE ATOM> = ITM20>
65 <VEQUAL? ITM20 'COMPERR - PHRASE34>
69 <CALL '
\1a+ 2 = TEMP16>
70 <CHTYPE TEMP16 <TYPE-CODE CONSTANT> = CONST21>
74 <VEQUAL? ITM20 'UNWCONT + BOOL38>
75 <VEQUAL? ITM20 'IOERR - PHRASE37>
78 <GVAL 'SETZ-IND = STACK>
82 <CALL '
\1aOPCODE 1 = STACK>
83 <CALL '
\1a+ 2 = TEMP16>
84 <CHTYPE TEMP16 <TYPE-CODE CONSTANT> = CONST21>
88 <FRAME '
\1aFIND-LABEL>
90 <CALL '
\1aFIND-LABEL 1 = TEMP16>
91 <TYPE? TEMP16 <TYPE-CODE FALSE> - BOOL43>
92 <FRAME '
\1aLONG-FIND-LABEL>
95 <CALL '
\1aLONG-FIND-LABEL 2 = TEMP16>
97 <TYPE? TEMP16 <TYPE-CODE FALSE> + BOOL42>
98 <NTHUV TEMP16 2 = TEMP16>
99 <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE41>
102 <PUSH 'BAD-FRM-LABEL!-ERRORS>
105 <CALL '
\1aMIMOCERR 2>
111 <NTHUV INS19 1 = TEMP16>
112 <TYPE? TEMP16 <TYPE-CODE GFRM> - PHRASE50>
114 <GVAL 'SETZ-R = TEMP16>
117 <NTHUV INS19 1 = ITM20>
118 <TYPE? ITM20 <TYPE-CODE SBFRM> - PHRASE51>
120 <GVAL 'SETZQ-R = TEMP16>
123 <GVAL 'SETZX-R = TEMP16>
127 <CALL '
\1a+ 2 = TEMP16>
128 <CHTYPE TEMP16 <TYPE-CODE CONSTANT> = CONST21>
131 <GVAL 'FREE-CONSTS = TEMP16>
132 <NTHL TEMP16 1 = FC23 (TYPE CONSTANT-BUCKET)>
134 <PUTUV FC23 1 CONST21>
135 <GVAL 'FREE-CONSTS = ITM20>
136 <RESTL ITM20 1 = TEMP16 (TYPE LIST)>
138 <SETG 'FREE-CONSTS TEMP16>
142 <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP16>
143 <CHTYPE TEMP16 <TYPE-CODE REF> = ITM20>
145 <NTHUV INS19 1 = TEMP16>
147 <TYPE? TEMP16 <TYPE-CODE SBFRM> - PHRASE56>
153 <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP16>
154 <CHTYPE TEMP16 <TYPE-CODE INST> = TEMP16>
161 <UBLOCK <TYPE-CODE VECTOR> 3 = ITM20>
162 <CHTYPE ITM20 <TYPE-CODE INST> = TEMP16>
165 <PUTL LST18 1 TEMP16>
171 <TYPE? ITM20 <TYPE-CODE GCAL> + TAG61>
172 <SET TEMP16 %<> (TYPE FALSE)>
175 <GVAL 'MAX-SPACE = TEMP16>
176 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE64>
181 <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP16>
182 <CHTYPE TEMP16 <TYPE-CODE INST> = TEMP16>
183 <PUTL LST18 1 TEMP16>
185 <NTHUV INS19 3 = TEMP16>
187 <CONS TEMP16 () = TEMP16>
188 <CHTYPE ITM20 <TYPE-CODE ATOM> = ITM20>
189 <CONS ITM20 TEMP16 = TEMP16>
191 <CONS N6 TEMP16 = STACK>
193 <SET ITM20 1 (TYPE FIX)>
194 <GVAL 'GCALS = TEMP16>
195 <TYPE TEMP16 = INS19>
196 <AND INS19 7 = INS19>
197 <VEQUAL? INS19 1 + TAG68>
199 <LOOP (TEMP16 TYPE VALUE LENGTH) (ITM20 VALUE)>
202 <EMPTY? TEMP16 + TAG73>
203 <NTH1 TEMP16 = STACK>
204 <REST1 TEMP16 = TEMP16>
205 <ADD ITM20 1 = ITM20 (TYPE FIX)>
208 <LIST ITM20 = TEMP16 (TYPE LIST)>
214 <VEQUAL? ITM20 0 + TAG70>
216 <CONS INS19 TEMP16 = TEMP16 (TYPE LIST)>
218 <SUB ITM20 1 = ITM20 (TYPE FIX)>
227 <CHTYPE ITM20 <TYPE-CODE ATOM> = STACK>
229 <NTHUV INS19 3 = STACK>
231 <CALL '
\1aGFIND 2 = STACK>
233 <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP16>
234 <CHTYPE TEMP16 <TYPE-CODE INST> = TEMP16>
235 <PUTL LST18 1 TEMP16>
240 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
245 <END
\1aFIXUP-ONE-GLUE>
247 <GFCN
\1aFIND-CALL ("VALUE" <OR !<FALSE> <LIST [REST ATOM]>> ATOM <LIST [REST ATOM]>) ATM4 LIST5>
253 <EMPL? LIST5 - PHRASE11 (TYPE LIST)>
256 <FRAME '
\1aSAME-NAME?>
258 <NTHL LIST5 1 = STACK (TYPE ATOM)>
259 <CALL '
\1aSAME-NAME? 2 = TEMP6>
260 <TYPE? TEMP6 <TYPE-CODE FALSE> + PHRASE13>
265 <RESTL LIST5 1 = LIST5 (TYPE LIST)>
269 <GFCN
\1aFIND-OPT ("VALUE" <OR !<FALSE> <LIST [REST <PRIMTYPE LIST> ATOM]>> ATOM <LIST [REST ATOM <PRIMTYPE LIST>]>) ATM4 LIST5>
275 <EMPL? LIST5 - PHRASE11 (TYPE LIST)>
278 <FRAME '
\1aSAME-NAME?>
280 <NTHL LIST5 1 = STACK (TYPE ATOM)>
281 <CALL '
\1aSAME-NAME? 2 = TEMP6>
282 <TYPE? TEMP6 <TYPE-CODE FALSE> + PHRASE13>
284 <RESTL LIST5 1 = TEMP6 (TYPE LIST)>
289 <RESTL LIST5 1 = LIST5 (TYPE LIST)>
290 <RESTL LIST5 1 = LIST5 (TYPE LIST)>
294 <GFCN
\1aSAME-NAME? ("VALUE" <OR ATOM FALSE> ATOM ATOM) X4 Y5>
295 <TEMP TEMP10 S16:STRING S27:STRING TEMP19 TEMP20 TEMP21 TEMP22>
297 <GVAL 'INT-MODE = TEMP10>
298 <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE9>
300 <VEQUAL? X4 Y5 - TAG11>
306 <NTHR X4 3 = S16 (RECORD-TYPE ATOM)>
307 <NTHR Y5 3 = S27 (RECORD-TYPE ATOM)>
308 <VEQUAL? X4 Y5 - TAG15>
312 <LENUS S16 = TEMP10 (TYPE FIX)>
313 <GRTR? TEMP10 2 - TAG18 (TYPE FIX)>
315 <NTHUS S16 1 = TEMP10 (TYPE CHARACTER)>
316 <VEQUAL? TEMP10 !\T - TAG18>
318 <NTHUS S16 2 = TEMP10 (TYPE CHARACTER)>
319 <VEQUAL? TEMP10 !\$ - TAG18>
321 <RESTUS S16 2 = TEMP10 (TYPE STRING)>
322 <IFCAN "STRING-EQUAL?">
323 <STRING-EQUAL? TEMP10 S27 - TAG18>
324 <ENDIF "STRING-EQUAL?">
325 <IFCANNOT "STRING-EQUAL?">
327 <LENUS TEMP10 = TEMP20 (TYPE FIX)>
328 <LENUS TEMP19 = TEMP21 (TYPE FIX)>
329 <VEQUAL? TEMP20 TEMP21 - TAG18>
331 <LOOP (TEMP10 VALUE LENGTH) (TEMP19 VALUE LENGTH) (TEMP20 VALUE)>
333 <NTHUS TEMP10 1 = TEMP21>
334 <NTHUS TEMP19 1 = TEMP22>
335 <VEQUAL? TEMP21 TEMP22 - TAG18>
337 <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
338 <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
339 <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
340 <GRTR? TEMP20 0 + TAG23 (TYPE FIX)>
341 <ENDIF "STRING-EQUAL?">
344 <LENUS S27 = TEMP19 (TYPE FIX)>
345 <GRTR? TEMP19 2 + TAG25 (TYPE FIX)>
349 <NTHUS S27 1 = TEMP19 (TYPE CHARACTER)>
350 <VEQUAL? TEMP19 !\T + TAG26>
354 <NTHUS S27 2 = TEMP19 (TYPE CHARACTER)>
355 <VEQUAL? TEMP19 !\$ + TAG27>
359 <RESTUS S27 2 = TEMP19 (TYPE STRING)>
361 <IFCAN "STRING-EQUAL?">
362 <STRING-EQUAL? TEMP19 S16 - TAG28>
363 <ENDIF "STRING-EQUAL?">
364 <IFCANNOT "STRING-EQUAL?">
367 <LENUS TEMP19 = TEMP22 (TYPE FIX)>
368 <LENUS TEMP10 = TEMP21 (TYPE FIX)>
369 <VEQUAL? TEMP22 TEMP21 - TAG28>
371 <LOOP (TEMP19 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP22 VALUE)>
373 <NTHUS TEMP19 1 = TEMP21>
374 <NTHUS TEMP10 1 = TEMP20>
375 <VEQUAL? TEMP21 TEMP20 - TAG28>
377 <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
378 <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
379 <SUB TEMP22 1 = TEMP22 (TYPE FIX)>
380 <GRTR? TEMP22 0 + TAG30 (TYPE FIX)>
381 <ENDIF "STRING-EQUAL?">
387 <GFCN
\1aGFIND ("VALUE" ANY ATOM <OR ATOM FALSE>) NAM4 LBL?5>
388 <TEMP TEMP17 TEMP19 L20:LIST>
390 <SET TEMP17 %<> (TYPE FALSE)>
391 <GVAL 'GLUE-LIST = TEMP19>
395 <EMPTY? TEMP19 + MAPAP12>
397 <FRAME '
\1aSAME-NAME?>
398 <NTHL L20 1 = STACK (TYPE ATOM)>
400 <CALL '
\1aSAME-NAME? 2 = TEMP17>
401 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE34>
402 <TYPE? LBL?5 <TYPE-CODE FALSE> + PHRASE26>
403 <FRAME '
\1aFIND-LABEL>
405 <CALL '
\1aFIND-LABEL 1 = TEMP17>
406 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE28>
407 <NTHUV TEMP17 2 = TEMP17>
408 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE28>
412 <PUSH 'BAD-OPT-LABEL!-ERRORS>
414 <CALL '
\1aMIMOCERR 2 = TEMP17>
417 <RESTL L20 1 = L20 (TYPE LIST)>
418 <RESTL L20 1 = L20 (TYPE LIST)>
419 <NTHL L20 1 = TEMP17 (TYPE FIX)>
423 <REST1 TEMP19 = TEMP19>
427 <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE37>
429 <PUSH 'CANT-FIND-GL-ENTRY!-ERRORS>
432 <CALL '
\1aMIMOCERR 2 = TEMP17>
438 <GFCN
\1aCALL-ANA ("VALUE" <OR FALSE LIST> LIST) L4>
439 <TEMP (ANA-L5:LIST ()) TEMP15 TEMP12:LIST ONE18:ATOM TEMP37 IT21 TEMP48 TEM20>
441 <SET TEMP15 %<> (TYPE FALSE)>
442 <SET TEMP12 L4 (TYPE LIST)>
447 <EMPL? TEMP12 + MAPAP10>
448 <NTHL TEMP12 1 = TEMP15>
449 <TYPE? TEMP15 <TYPE-CODE FORM> + TAG26>
450 <SET TEMP15 %<> (TYPE FALSE)>
453 <EMPL? TEMP15 - TAG28 (TYPE FORM)>
454 <SET TEMP15 %<> (TYPE FALSE)>
457 <NTHL TEMP15 1 = ONE18 (TYPE ATOM)>
458 <VEQUAL? ONE18 'FRAME + BOOL31>
459 <VEQUAL? ONE18 'SFRAME - PHRASE30>
461 <CONS TEMP15 ANA-L5 = ANA-L5>
466 <VEQUAL? ONE18 'CALL + BOOL33>
467 <VEQUAL? ONE18 'SCALL - PHRASE32>
469 <RESTL TEMP15 1 = TEMP37 (TYPE LIST)>
470 <NTHL TEMP37 1 = IT21>
472 <TYPE? IT21 <TYPE-CODE FORM> - PHRASE53>
473 <EMPL? IT21 + PHRASE53>
474 <RESTL IT21 1 = TEMP37 (TYPE LIST)>
475 <EMPL? TEMP37 + PHRASE53>
476 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
477 <EMPL? TEMP37 - PHRASE53>
479 <NTHL IT21 1 = TEMP37>
480 <EQUAL? TEMP37 'QUOTE - PHRASE53>
482 <RESTL IT21 1 = TEMP37 (TYPE LIST)>
484 <NTHL TEMP37 1 = IT21>
486 <GVAL 'GLUE-MODE = TEMP37>
487 <TYPE? TEMP37 <TYPE-CODE FALSE> + BOOL42>
489 <FRAME '
\1aFIND-CALL>
491 <GVAL 'PRE-NAMES = STACK>
492 <CALL '
\1aFIND-CALL 2 = TEMP37>
493 <TYPE? TEMP37 <TYPE-CODE FALSE> - BOOL41>
498 <CALL '
\1aSUBRIFY? 1 = TEMP37>
499 <TYPE? TEMP37 <TYPE-CODE FALSE> + PHRASE53>
502 <SET TEMP37 [GVAL GASSIGNED?] (TYPE VECTOR)>
503 <TYPE? IT21 <TYPE-CODE ATOM> - TAG45>
504 <LOOP (IT21 VALUE) (TEMP37 LENGTH VALUE)>
506 <NTHUV TEMP37 1 = TEMP48>
507 <VEQUAL? TEMP48 IT21 + PHRASE53>
509 <RESTUV TEMP37 1 = TEMP37 (TYPE VECTOR)>
510 <EMPUV? TEMP37 - TAG46>
512 <NTHL ANA-L5 1 = TEM20>
513 <TYPE? TEM20 <TYPE-CODE FORM> - BOOL51>
514 <EMPL? TEM20 + BOOL51>
515 <RESTL TEM20 1 = TEMP37 (TYPE LIST)>
516 <EMPL? TEMP37 + BOOL51>
518 <RESTL TEM20 1 = TEMP37 (TYPE LIST)>
519 <NTHL TEMP37 1 = TEMP48>
521 <TYPE? TEMP48 <TYPE-CODE FORM> - BOOL51>
522 <EMPL? TEMP48 + BOOL51>
523 <RESTL TEMP48 1 = TEMP37 (TYPE LIST)>
524 <EMPL? TEMP37 + BOOL51>
525 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
526 <EMPL? TEMP37 - BOOL51>
528 <NTHL TEMP48 1 = TEMP37>
529 <EQUAL? TEMP37 'QUOTE - BOOL51>
531 <RESTL TEMP48 1 = TEMP37 (TYPE LIST)>
533 <NTHL TEMP37 1 = TEMP37>
534 <EQUAL? TEMP37 IT21 + PHRASE50>
538 <PUSH 'BAD-FRAME-CALL-MATCH!-ERRORS>
543 <CALL '
\1aMIMOCERR 3>
548 <CALL '
\1aGENLBL 1 = ONE18>
549 <CONS ONE18 () = TEMP37>
550 <CONS IT21 () = TEMP48>
552 <PUTREST TEMP37 TEMP48>
554 <PUTREST TEM20 TEMP37>
558 <LOOP (TEMP37 VALUE)>
560 <RESTL TEMP37 1 = TEMP48 (TYPE LIST)>
561 <EMPL? TEMP48 + TAG56>
566 <CONS ONE18 () = TEMP48>
568 <PUTREST TEMP37 TEMP48>
571 <RESTL ANA-L5 1 = ANA-L5 (TYPE LIST)>
575 <VEQUAL? ONE18 'ACALL + TAG58>
577 <SET TEMP15 %<> (TYPE FALSE)>
580 <RESTL ANA-L5 1 = ANA-L5 (TYPE LIST)>
583 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
590 <FCN
\1aMIMOC ("VALUE" ANY <LIST [REST <OR ATOM FORM>]> "OPTIONAL" ANY) L6 WINNER7>
591 <OPT-DISPATCH 1 %<> OPT4 OPT5>
595 <TEMP TEMP3:LBIND TEMP13 LSEQ23:FIX OLD-LOCS24:LIST TEMP38 TEMP41 TEMP43 TEMP44 ITM42 OPT?52 OP47 ATM126 DC127 TEMP134 TEMP135 TEMP136 TEMP137 TEMP138 NAME8:ATOM>
597 <GETS 'BIND = TEMP3 (TYPE LBIND)>
598 <GEN-LVAL 'OBLIST = TEMP13>
599 <BBIND 'OBLIST 'ANY 'FIX TEMP13>
601 <GEN-LVAL 'OUTCHAN = TEMP13>
602 <BBIND 'OUTCHAN 'ANY 'FIX TEMP13>
604 <CFRAME = TEMP13 (TYPE FRAME)>
605 <BBIND 'MACT 'ANY 'FIX TEMP13>
608 <GVAL 'NO-AC-FUNNYNESS = TEMP13>
609 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE19>
616 <SETG 'LAST-UNCON %<>>
617 <SETG 'NEXT-LOOP %<>>
618 <SETG 'VISIT-COUNT 0>
623 <CALL '
\1aPRE-HACK 1>
624 <GVAL 'LBLSEQ = LSEQ23>
625 <SET OLD-LOCS24 () (TYPE LIST)>
629 <FRAME '
\1aFLUSH-ACS>
630 <CALL '
\1aFLUSH-ACS 0>
631 <SETG 'STACK-DEPTH 0>
633 <TYPE? WINNER7 <TYPE-CODE FALSE> + PHRASE28>
634 <SETG 'WINNING-VICTIM 2>
637 <SETG 'WINNING-VICTIM %<>>
639 <SET TEMP13 L6 (TYPE LIST)>
643 <EMPL? TEMP13 + MAPAP34>
644 <GETS 'BIND = TEMP38 (TYPE LBIND)>
646 <BBIND 'MIML 'LIST 'FIX TEMP41>
648 <NTHR 'MIML 2 = TEMP44 (RECORD-TYPE ATOM) (TYPE LBIND)>
649 <NTHR TEMP44 1 = TEMP43 (RECORD-TYPE LBIND)>
651 <NTHL TEMP43 1 = ITM42>
653 <SET OPT?52 %<> (TYPE FALSE)>
654 <GVAL 'ACA-AC = TEMP43>
655 <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE54>
657 <GVAL 'ACA-ITEM = TEMP43>
658 <GVAL 'ACA-AC = TEMP44>
659 <PUTUV TEMP44 2 TEMP43>
661 <GVAL 'ACA-BOTH = TEMP44>
662 <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE56>
664 <GVAL 'ACA-ITEM = TEMP44>
665 <GVAL 'ACA-BOTH = TEMP43>
666 <PUTUV TEMP43 2 TEMP44>
672 <TYPE? ITM42 <TYPE-CODE ATOM> - PHRASE58>
673 <GVAL 'ICALL-TAGS = TEMP44>
674 <EMPL? TEMP44 + PHRASE60>
675 <LOOP (ITM42 VALUE) (TEMP44 VALUE)>
677 <NTHL TEMP44 1 = TEMP43>
678 <TYPE? TEMP43 <TYPE-CODE ATOM> - TAG64>
679 <VEQUAL? TEMP43 ITM42 + TAG62>
682 <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
683 <EMPL? TEMP44 - TAG63>
686 <FRAME '
\1aPUSHJ-VAL>
687 <RESTL TEMP44 1 = TEMP43 (TYPE LIST)>
688 <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
689 <NTHL TEMP43 1 = STACK>
691 <CALL '
\1aPUSHJ-VAL 1>
692 <SETG 'LAST-UNCON %<>>
694 <RESTL TEMP44 1 = TEMP43 (TYPE LIST)>
696 <NTHL TEMP43 1 = STACK (TYPE ATOM)>
699 <NTHR 'MIML 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
700 <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
703 <GVAL 'ICALL-FLAG = TEMP43>
704 <SUB TEMP43 1 = TEMP43 (TYPE FIX)>
705 <SETG 'ICALL-FLAG TEMP43>
706 <VEQUAL? TEMP43 0 - PHRASE70 (TYPE FIX)>
708 <SETG 'ICALL-FLAG %<>>
710 <GVAL 'PASS1 = TEMP43>
711 <TYPE? TEMP43 <TYPE-CODE FALSE> - PHRASE74>
713 <FRAME '
\1aFIXUP-LOCALS>
714 <GVAL 'ALL-ICALL-TEMPS = TEMP44>
715 <NTHL TEMP44 1 = TEMP44>
716 <RESTL TEMP44 1 = TEMP43 (TYPE LIST)>
718 <CHTYPE TEMP43 <TYPE-CODE LIST> = STACK>
720 <CALL '
\1aFIXUP-LOCALS 1>
722 <GVAL 'ALL-ICALL-TEMPS = TEMP44>
723 <NTHL TEMP44 1 = TEMP44>
726 <GVAL 'ALL-ICALL-TEMPS = TEMP43>
727 <RESTL TEMP43 1 = TEMP44 (TYPE LIST)>
729 <SETG 'ALL-ICALL-TEMPS TEMP44>
731 <GVAL 'ALL-TEMP-CC = TEMP43>
732 <NTHL TEMP43 1 = TEMP43 (TYPE LIST)>
733 <SETG 'TEMP-CC TEMP43>
735 <GVAL 'ALL-TEMP-CC = TEMP44>
736 <RESTL TEMP44 1 = TEMP43 (TYPE LIST)>
738 <SETG 'ALL-TEMP-CC TEMP43>
741 <GVAL 'PASS1 = TEMP43>
742 <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE78>
748 <NTHR 'MIML 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
749 <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
751 <CALL '
\1aLABEL 3 = TEMP43>
752 <FRAME '
\1aSAVE-LABEL-STATE>
755 <CALL '
\1aSAVE-LABEL-STATE 1>
758 <GVAL 'NO-AC-FUNNYNESS = TEMP43>
759 <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE83>
762 <CALL '
\1aSAVE-ACS 0>
767 <NTHR 'MIML 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
768 <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
773 <FRAME '
\1aFIND-LABEL>
775 <CALL '
\1aFIND-LABEL 1 = TEMP43>
776 <FRAME '
\1aESTABLISH-LABEL-STATE>
779 <CALL '
\1aESTABLISH-LABEL-STATE 1>
784 <NTHR 'MIML 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
785 <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
789 <SETG 'NEXT-LOOP %<>>
790 <SETG 'LAST-UNCON %<>>
793 <LENL ITM42 = TEMP41 (TYPE FIX)>
794 <VEQUAL? TEMP41 0 - PHRASE96 (TYPE FIX)>
796 <PUSH 'BAD-SYNTAX!-ERRORS>
799 <CALL '
\1aMIMOCERR 2>
802 <NTHL ITM42 1 = OP47>
803 <TYPE? OP47 <TYPE-CODE ATOM> + PHRASE100>
805 <PUSH 'BAD-SYNTAX!-ERRORS>
808 <CALL '
\1aMIMOCERR 2>
811 <SET TEMP43 [FCN GFCN] (TYPE VECTOR)>
812 <LOOP (OP47 VALUE) (TEMP43 LENGTH VALUE)>
814 <NTHUV TEMP43 1 = TEMP44>
815 <VEQUAL? TEMP44 OP47 + TAG103>
817 <RESTUV TEMP43 1 = TEMP43 (TYPE VECTOR)>
818 <EMPUV? TEMP43 - TAG104>
822 <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL106>
824 <GVAL 'PASS1 = TEMP43>
825 <TYPE? TEMP43 <TYPE-CODE FALSE> - BOOL106>
829 <NTHR 'OUTCHAN 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
830 <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
834 <FRAME '
\1aFLUSH-ACS>
835 <CALL '
\1aFLUSH-ACS 0>
836 <LESS? TEMP41 3 - PHRASE112 (TYPE FIX)>
839 <PUSH 'BAD-SYNTAX!-ERRORS>
842 <CALL '
\1aMIMOCERR 2>
845 <RESTL ITM42 1 = TEMP43 (TYPE LIST)>
846 <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
847 <NTHL TEMP43 1 = TEMP43>
848 <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
849 <RESTL TEMP43 1 = TEMP41 (TYPE LIST)>
851 <CHTYPE TEMP41 <TYPE-CODE LIST> = TEMP41>
852 <SET TEMP43 () (TYPE LIST)>
853 <SET TEMP44 () (TYPE LIST)>
854 <RESTL ITM42 1 = OP47 (TYPE LIST)>
855 <RESTL OP47 1 = OP47 (TYPE LIST)>
856 <RESTL OP47 1 = OP47 (TYPE LIST)>
857 <CHTYPE OP47 <TYPE-CODE LIST> = OP47>
861 <EMPL? OP47 + MAPAP119>
862 <NTHL OP47 1 = ATM126>
866 <NTHL TEMP41 1 = DC127>
867 <TYPE? DC127 <TYPE-CODE STRING> - PHRASE131>
868 <IFCAN "STRING-EQUAL?">
869 <STRING-EQUAL? DC127 "OPTIONAL" - PHRASE133>
870 <ENDIF "STRING-EQUAL?">
871 <IFCANNOT "STRING-EQUAL?">
873 <SET TEMP135 "OPTIONAL" (TYPE STRING)>
874 <LENUS TEMP134 = TEMP136 (TYPE FIX)>
875 <VEQUAL? TEMP136 8 - PHRASE133>
876 <LOOP (TEMP134 VALUE LENGTH) (TEMP135 VALUE LENGTH) (TEMP136 VALUE)>
878 <NTHUS TEMP134 1 = TEMP137>
879 <NTHUS TEMP135 1 = TEMP138>
880 <VEQUAL? TEMP137 TEMP138 - PHRASE133>
881 <DEAD TEMP137 TEMP138>
882 <RESTUS TEMP134 1 = TEMP134 (TYPE STRING)>
883 <RESTUS TEMP135 1 = TEMP135 (TYPE STRING)>
884 <SUB TEMP136 1 = TEMP136 (TYPE FIX)>
885 <GRTR? TEMP136 0 + TAG139 (TYPE FIX)>
886 <ENDIF "STRING-EQUAL?">
887 <SET OPT?52 'T (TYPE ATOM)>
890 <VEQUAL? DC127 "TUPLE" - PHRASE140>
892 <SET OPT?52 %<> (TYPE FALSE)>
894 <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
897 <GVAL 'WINNING-VICTIM = TEMP135>
898 <TYPE? TEMP135 <TYPE-CODE FALSE> + PHRASE142>
900 <GVAL 'WINNING-VICTIM = TEMP135>
901 <ADD TEMP135 2 = TEMP135 (TYPE FIX)>
902 <SETG 'WINNING-VICTIM TEMP135>
905 <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
908 <VEQUAL? OPT?52 0 + PHRASE145>
909 <SET TEMP135 'OARG (TYPE ATOM)>
912 <SET TEMP135 'ARG (TYPE ATOM)>
916 <GVAL 'LBLSEQ = TEMP135>
917 <ADD TEMP135 1 = TEMP135 (TYPE FIX)>
918 <SETG 'LBLSEQ TEMP135>
919 <CHTYPE TEMP135 <TYPE-CODE LOCAL-NAME> = STACK>
921 <FRAME '
\1aDECL-HACK>
924 <CALL '
\1aDECL-HACK 1 = STACK>
927 <UBLOCK <TYPE-CODE VECTOR> 6 = TEMP135>
928 <CHTYPE TEMP135 <TYPE-CODE LOCAL> = TEMP135>
929 <CONS TEMP135 () = TEMP135 (TYPE LIST)>
930 <EMPL? TEMP43 - TAG148>
931 <SET TEMP43 TEMP135 (TYPE LIST)>
934 <PUTREST TEMP44 TEMP135>
937 <SET TEMP44 TEMP135 (TYPE LIST)>
939 <RESTL OP47 1 = OP47 (TYPE LIST)>
942 <CONS 'T TEMP43 = OP47>
946 <SETG 'ALL-TEMP-CC ()>
947 <SETG 'TYPED-LOCALS ()>
948 <LENL ITM42 = OP47 (TYPE FIX)>
949 <SUB OP47 3 = OP47 (TYPE FIX)>
952 <RESTL ITM42 1 = OP47 (TYPE LIST)>
953 <NTHL OP47 1 = NAME8 (TYPE ATOM)>
961 <GVAL 'GLUE-MODE = OP47>
962 <TYPE? OP47 <TYPE-CODE FALSE> - PHRASE151>
964 <SETG 'CONSTANT-VECTOR ()>
965 <SETG 'FREE-CONSTS ()>
966 <GVAL 'CONSTANT-TABLE = TEMP137>
970 <EMPUV? TEMP137 + MAPAP156>
972 <PUTUV TEMP41 1 () (TYPE LIST)>
974 <RESTUV TEMP137 1 = TEMP137 (TYPE VECTOR)>
977 <RESTL ITM42 1 = TEMP137 (TYPE LIST)>
979 <RESTL TEMP137 1 = TEMP137 (TYPE LIST)>
980 <NTHL TEMP137 1 = TEMP137>
981 <CONS TEMP137 () = TEMP137>
982 <CONS NAME8 TEMP137 = TEMP137>
983 <CONS 'T TEMP137 = TEMP137>
984 <SETG 'MVECTOR TEMP137>
986 <GVAL 'MV-TABLE = TEMP43>
990 <EMPUV? TEMP43 + MAPAP164>
992 <PUTUV TEMP41 1 () (TYPE LIST)>
994 <RESTUV TEMP43 1 = TEMP43 (TYPE VECTOR)>
998 <SETG 'FINAL-LOCALS ()>
999 <GVAL 'MVECTOR = TEMP43>
1000 <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
1001 <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
1006 <SETG 'GLUE-NAME NAME8>
1007 <RESTL ITM42 1 = TEMP43 (TYPE LIST)>
1009 <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
1010 <NTHL TEMP43 1 = TEMP43>
1011 <SETG 'GLUE-DECL TEMP43>
1016 <SETG 'ICALL-FLAG %<>>
1017 <SETG 'ICALL-TAGS ()>
1019 <SETG 'LOCATIONS ()>
1020 <SETG 'OPT-LIST %<>>
1023 <VEQUAL? OP47 'TEMP - PHRASE171>
1025 <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL172>
1027 <GVAL 'PASS1 = TEMP43>
1028 <TYPE? TEMP43 <TYPE-CODE FALSE> - BOOL172>
1032 <NTHR 'OUTCHAN 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
1033 <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
1035 <CALL '
\1aPRINT 2 = TEMP43>
1036 <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL172>
1039 <NTHR 'OUTCHAN 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
1040 <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
1044 <FRAME '
\1aSORT-TEMPS>
1047 <CALL '
\1aSORT-TEMPS 1 = ITM42>
1048 <FRAME '
\1aTEMP-INIT>
1049 <RESTL ITM42 1 = TEMP43 (TYPE LIST)>
1050 <CHTYPE TEMP43 <TYPE-CODE LIST> = STACK>
1054 <CALL '
\1aTEMP-INIT 3>
1055 <GVAL 'WINNING-VICTIM = TEMP43>
1056 <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE207>
1058 <LENL ITM42 = TEMP43 (TYPE FIX)>
1060 <LSH TEMP43 1 = TEMP43 (TYPE FIX)>
1061 <GVAL 'WINNING-VICTIM = TEMP138>
1062 <ADD TEMP43 TEMP138 = TEMP43 (TYPE FIX)>
1064 <ADD TEMP43 -2 = TEMP43 (TYPE FIX)>
1065 <SETG 'WINNING-VICTIM TEMP43>
1069 <VEQUAL? OP47 'OPT-DISPATCH - PHRASE183>
1070 <FRAME '
\1aOPT-INIT>
1071 <RESTL ITM42 1 = TEMP43 (TYPE LIST)>
1073 <CHTYPE TEMP43 <TYPE-CODE LIST> = STACK>
1075 <CALL '
\1aOPT-INIT 1>
1078 <VEQUAL? OP47 'MAKTUP - PHRASE185>
1079 <GVAL 'V1 = TEMP138>
1080 <TYPE? TEMP138 <TYPE-CODE FALSE> + BOOL186>
1082 <GVAL 'PASS1 = TEMP138>
1083 <TYPE? TEMP138 <TYPE-CODE FALSE> - BOOL186>
1087 <NTHR 'OUTCHAN 2 = TEMP138 (RECORD-TYPE ATOM) (TYPE LBIND)>
1088 <NTHR TEMP138 1 = STACK (RECORD-TYPE LBIND)>
1090 <CALL '
\1aPRINT 2 = TEMP138>
1091 <TYPE? TEMP138 <TYPE-CODE FALSE> + BOOL186>
1094 <NTHR 'OUTCHAN 2 = TEMP138 (RECORD-TYPE ATOM) (TYPE LBIND)>
1095 <NTHR TEMP138 1 = STACK (RECORD-TYPE LBIND)>
1099 <FRAME '
\1aSORT-TEMPS>
1102 <CALL '
\1aSORT-TEMPS 1 = ITM42>
1103 <FRAME '
\1aTEMP-INIT>
1104 <RESTL ITM42 1 = TEMP138 (TYPE LIST)>
1106 <CHTYPE TEMP138 <TYPE-CODE LIST> = STACK>
1110 <CALL '
\1aTEMP-INIT 3>
1113 <GVAL 'NEXT-FLUSH = TEMP43>
1114 <GRTR? TEMP43 0 - PHRASE195 (TYPE FIX)>
1117 <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE200>
1119 <GVAL 'PASS1 = TEMP43>
1120 <TYPE? TEMP43 <TYPE-CODE FALSE> - PHRASE200>
1125 <NTHR 'OUTCHAN 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
1126 <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
1130 <VEQUAL? OP47 'DEAD + PHRASE207>
1132 <GVAL 'NEXT-FLUSH = TEMP43>
1133 <SUB TEMP43 1 = TEMP43 (TYPE FIX)>
1134 <SETG 'NEXT-FLUSH TEMP43>
1138 <VEQUAL? OP47 'DEAD + PHRASE209>
1140 <SETG 'NEXT-LOOP %<>>
1141 <SETG 'LAST-UNCON %<>>
1146 <NTHR 'OBLIST 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
1147 <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
1152 <CALL '
\1aGET-AC 1 = TEMP43>
1153 <PUTUV TEMP43 4 %<CHTYPE <MIN> FIX> (TYPE FIX)>
1159 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
1162 <GVAL 'PASS1 = TEMP13>
1163 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE215>
1165 <SETG 'LBLSEQ LSEQ23>
1166 <GVAL 'LOCALS = OLD-LOCS24>
1167 <FRAME '
\1aMERGE-LABEL-STATES>
1168 <CALL '
\1aMERGE-LABEL-STATES 0>
1169 <GVAL 'CHANGED = TEMP13>
1170 <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE218>
1175 <NTHR 'LOOP-DEBUG 1 = TEMP13 (RECORD-TYPE ATOM) (BRANCH-FALSE + AGAIN25)>
1176 <TYPE? TEMP13 <TYPE-CODE FALSE> + AGAIN25>
1177 <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE GBIND)>
1178 <TYPE? TEMP13 <TYPE-CODE UNBOUND> + AGAIN25>
1180 <GVAL 'LOOP-DEBUG = TEMP13>
1181 <EQUAL? TEMP13 1 - PHRASE221>
1185 <NTHR 'OUTCHAN 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
1186 <NTHR TEMP13 1 = STACK (RECORD-TYPE LBIND)>
1190 <GVAL 'CHANGED = STACK>
1191 <NTHR 'OUTCHAN 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
1192 <NTHR TEMP13 1 = STACK (RECORD-TYPE LBIND)>
1196 <NTHR 'OUTCHAN 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
1197 <NTHR TEMP13 1 = STACK (RECORD-TYPE LBIND)>
1203 <GVAL 'CHANGED = STACK>
1207 <FRAME '
\1aFIXUP-LOCALS>
1208 <GVAL 'LOCALS = TEMP38>
1209 <RESTL TEMP38 1 = STACK (TYPE LIST)>
1211 <CALL '
\1aFIXUP-LOCALS 1>
1212 <GVAL 'PEEP-ENABLED = TEMP38>
1213 <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE235>
1216 <GVAL 'CODE = STACK>
1217 <SET TEMP13 1 (TYPE FIX)>
1218 <GVAL 'CODE = TEMP38>
1219 <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
1220 <LOOP (TEMP38 VALUE) (TEMP13 VALUE)>
1223 <EMPL? TEMP38 + TAG236>
1224 <NTHL TEMP38 1 = STACK>
1225 <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
1226 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
1229 <CALL '
\1aPPOLE TEMP13 = TEMP38>
1234 <FRAME '
\1aFIXUP-REFS>
1235 <CALL '
\1aFIXUP-REFS 0>
1236 <GVAL 'OPT-LIST = TEMP38>
1237 <TYPE? TEMP38 <TYPE-CODE FALSE> + MAPAP268>
1238 <GVAL 'GLUE-MODE = TEMP13>
1239 <TYPE? TEMP13 <TYPE-CODE FALSE> + MAPAP250>
1241 <FRAME '
\1aFIND-OPT>
1243 <GVAL 'PRE-OPTS = STACK>
1244 <CALL '
\1aFIND-OPT 2 = TEMP38>
1245 <TYPE? TEMP38 <TYPE-CODE FALSE> + MAPAP250>
1246 <NTHL TEMP38 1 = TEMP13>
1247 <TYPE? TEMP13 <TYPE-CODE FALSE> + MAPAP250>
1249 <NTHL TEMP38 1 = TEMP13>
1251 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
1252 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
1253 <RESTL TEMP13 1 = OLD-LOCS24 (TYPE LIST)>
1255 <CHTYPE OLD-LOCS24 <TYPE-CODE LIST> = OLD-LOCS24>
1257 <GVAL 'OPT-LIST = STACK>
1259 <CALL '
\1aREST 2 = TEMP13>
1263 <EMPL? OLD-LOCS24 + MAPAP250>
1264 <EMPTY? TEMP13 + MAPAP250>
1265 <NTHL OLD-LOCS24 1 = TEMP43>
1266 <NTH1 TEMP13 = TEMP38>
1267 <GVAL TEMP38 = TEMP38>
1268 <NTHR TEMP43 1 = TEMP44 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG262)>
1269 <TYPE? TEMP44 <TYPE-CODE FALSE> + TAG262>
1270 <PUTR TEMP44 1 TEMP38 (RECORD-TYPE GBIND)>
1271 <DEAD TEMP44 TEMP38>
1281 <RESTL OLD-LOCS24 1 = OLD-LOCS24 (TYPE LIST)>
1282 <REST1 TEMP13 = TEMP13>
1285 <SET TEMP38 %<> (TYPE FALSE)>
1286 <GVAL 'CODE = TEMP44>
1287 <GVAL 'OPT-OFFSET = TEMP13>
1288 <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
1289 <GRTR? TEMP13 0 - RESTL273 (TYPE FIX)>
1290 <LOOP (TEMP44 VALUE) (TEMP13 VALUE)>
1293 <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
1294 <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
1295 <GRTR? TEMP13 0 + RESTL272 (TYPE FIX)>
1298 <GVAL 'OPT-LIST = STACK>
1300 <CALL '
\1aREST 2 = TEMP13>
1304 <EMPL? TEMP44 + MAPAP268>
1305 <EMPTY? TEMP13 + MAPAP268>
1306 <SET OLD-LOCS24 TEMP44>
1308 <NTHL OLD-LOCS24 1 = TEMP38>
1309 <TYPE? TEMP38 <TYPE-CODE INST> - PHRASE280>
1310 <LENUV TEMP38 = TEMP43 (TYPE FIX)>
1311 <VEQUAL? TEMP43 2 - PHRASE280 (TYPE FIX)>
1313 <NTHUV TEMP38 1 = TEMP43>
1314 <EQUAL? TEMP43 'DISPATCH - PHRASE280>
1317 <FRAME '
\1aFIND-LABEL>
1318 <NTHUV TEMP38 2 = STACK>
1320 <CALL '
\1aFIND-LABEL 1 = TEMP43>
1321 <NTHUV TEMP43 2 = TEMP38>
1325 <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP43>
1326 <CHTYPE TEMP43 <TYPE-CODE INST> = TEMP43>
1327 <PUTL OLD-LOCS24 1 TEMP43>
1328 <DEAD OLD-LOCS24 TEMP43>
1329 <PUTL TEMP41 1 TEMP38>
1335 <SET TEMP38 'T (TYPE ATOM)>
1338 <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
1339 <REST1 TEMP13 = TEMP13>
1349 <GFCN
\1aDECL-HACK ("VALUE" <OR ATOM FALSE> ANY) TYP4>
1350 <TEMP TY8 TEMP16 TEMP30 TEMP28:VECTOR>
1352 <SET TY8 %<> (TYPE FALSE)>
1356 <TYPE? TYP4 <TYPE-CODE FORM> + TAG12>
1357 <TYPE? TYP4 <TYPE-CODE SEGMENT> - PHRASE36>
1359 <EMPL? TYP4 + PHRASE14>
1360 <RESTL TYP4 1 = TEMP16 (TYPE LIST)>
1361 <EMPL? TEMP16 + PHRASE14>
1362 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1363 <EMPL? TEMP16 - PHRASE14>
1365 <NTHL TYP4 1 = TEMP16>
1366 <EQUAL? TEMP16 'QUOTE - PHRASE14>
1369 <RESTL TYP4 1 = TEMP16 (TYPE LIST)>
1371 <NTHL TEMP16 1 = STACK>
1373 <CALL '
\1aTYPE 1 = TYP4>
1376 <NTHL TYP4 1 = TEMP16>
1377 <EQUAL? TEMP16 'OR - PHRASE18>
1379 <FRAME '
\1aDECL-HACK>
1382 <RESTL TY8 1 = TEMP16 (TYPE LIST)>
1383 <NTHL TEMP16 1 = STACK>
1385 <CALL '
\1aDECL-HACK 1 = TYP4>
1386 <RESTL TY8 1 = TEMP16 (TYPE LIST)>
1387 <RESTL TEMP16 1 = TEMP30 (TYPE LIST)>
1389 <CHTYPE TEMP30 <TYPE-CODE LIST> = TEMP30>
1393 <EMPL? TEMP30 + PHRASE36>
1394 <NTHL TEMP30 1 = TEMP16>
1395 <FRAME '
\1aDECL-HACK>
1398 <CALL '
\1aDECL-HACK 1 = TEMP16>
1399 <EQUAL? TYP4 TEMP16 + PHRASE34>
1401 <SET TYP4 %<> (TYPE FALSE)>
1404 <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
1411 <TYPE? TYP4 <TYPE-CODE ATOM> + TAG39>
1414 <NTHR TYP4 5 = TEMP30 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG45)>
1415 <TYPE? TEMP30 <TYPE-CODE FALSE> + TAG45>
1417 <FRAME '
\1aTYPEPRIM>
1419 <CALL '
\1aTYPEPRIM 1 = TEMP30>
1420 <SET TEMP28 [WORD FIX LIST] (TYPE VECTOR)>
1421 <TYPE? TEMP30 <TYPE-CODE ATOM> - TAG45>
1422 <LOOP (TEMP30 VALUE) (TEMP28 LENGTH VALUE)>
1424 <NTHUV TEMP28 1 = TEMP16>
1425 <VEQUAL? TEMP16 TEMP30 + TAG49>
1427 <RESTUV TEMP28 1 = TEMP28 (TYPE VECTOR)>
1428 <EMPUV? TEMP28 - TAG46>
1430 <GVAL 'TYPE-LENGTHS = TEMP28>
1431 <EMPUV? TEMP28 + PHRASE42>
1432 <LOOP (TYP4 VALUE) (TEMP28 LENGTH VALUE)>
1434 <NTHUV TEMP28 1 = TEMP30>
1435 <TYPE? TEMP30 <TYPE-CODE ATOM> - TAG51>
1436 <VEQUAL? TEMP30 TYP4 + TAG49>
1439 <RESTUV TEMP28 1 = TEMP28 (TYPE VECTOR)>
1440 <EMPUV? TEMP28 - TAG50>
1450 <CALL '
\1aGETPROP 2 = TYP4>
1452 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE52>
1456 <CALL '
\1aN=? 2 = TEMP16>
1457 <VEQUAL? TEMP16 0 - AGAIN9>
1463 <GFCN
\1aSORT-TEMPS ("VALUE" FORM <PRIMTYPE LIST>) TEMPL4>
1464 <TEMP (ALIST5:LIST ()) (NON-ALIST6:LIST ()) TEMP18 L19:LIST TEMP20>
1466 <RESTL TEMPL4 1 = TEMP18 (TYPE LIST)>
1467 <CHTYPE TEMP18 <TYPE-CODE LIST> = TEMP18>
1471 <EMPL? TEMP18 + MAPAP11>
1473 <NTHL L19 1 = TEMP20>
1474 <EQUAL? TEMP20 '= - PHRASE22>
1475 <EMPL? ALIST5 - PHRASE24 (TYPE LIST)>
1481 <LOOP (TEMP18 VALUE)>
1483 <RESTL TEMP18 1 = TEMP20 (TYPE LIST)>
1484 <EMPL? TEMP20 + TAG29>
1489 <PUTREST TEMP18 L19>
1493 <TYPE? TEMP20 <TYPE-CODE ATOM> - PHRASE30>
1494 <CONS TEMP20 ALIST5 = ALIST5>
1498 <CONS TEMP20 NON-ALIST6 = NON-ALIST6>
1501 <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
1504 <EMPL? NON-ALIST6 + PHRASE33 (TYPE LIST)>
1505 <SET TEMP18 NON-ALIST6>
1506 <LOOP (TEMP18 VALUE)>
1508 <RESTL TEMP18 1 = TEMP20 (TYPE LIST)>
1509 <EMPL? TEMP20 + TAG35>
1514 <PUTREST TEMP18 ALIST5>
1515 <DEAD TEMP18 ALIST5>
1518 <SET NON-ALIST6 ALIST5>
1521 <NTHL TEMPL4 1 = TEMP20>
1523 <CONS TEMP20 NON-ALIST6 = TEMP18>
1524 <DEAD TEMP20 NON-ALIST6>
1525 <CHTYPE TEMP18 <TYPE-CODE FORM> = TEMP18>
1530 <GFCN
\1aOPT-INIT ("VALUE" FIX <LIST FIX <OR FIX FALSE> [REST ATOM]>) OPT4>
1531 <TEMP (OFF5:FIX 1) TEMP10 TEMP15>
1533 <RESTL OPT4 1 = TEMP10 (TYPE LIST)>
1534 <NTHL TEMP10 1 = TEMP10>
1535 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
1536 <ADD OFF5 3 = OFF5 (TYPE FIX)>
1547 <LOOP (TEMP10 VALUE)>
1549 <RESTL TEMP10 1 = TEMP15 (TYPE LIST)>
1550 <EMPL? TEMP15 + TAG16>
1555 <NTHL TEMP10 1 = STACK>
1557 <CALL '
\1aXJUMP 1 = STACK>
1562 <NTHL OPT4 1 = TEMP10 (TYPE FIX)>
1563 <SUB 5 TEMP10 = TEMP15 (TYPE FIX)>
1565 <GVAL 'GLUE-MODE = TEMP10>
1566 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE20>
1568 <GVAL 'GLUE-PC = TEMP10>
1571 <SET TEMP10 0 (TYPE FIX)>
1573 <ADD TEMP15 TEMP10 = STACK (TYPE FIX)>
1574 <DEAD TEMP15 TEMP10>
1592 <NTHL OPT4 1 = TEMP15 (TYPE FIX)>
1593 <SUB 2 TEMP15 = TEMP10 (TYPE FIX)>
1595 <GVAL 'GLUE-MODE = TEMP15>
1596 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE27>
1598 <GVAL 'GLUE-PC = TEMP15>
1601 <SET TEMP15 0 (TYPE FIX)>
1603 <ADD TEMP10 TEMP15 = STACK (TYPE FIX)>
1604 <DEAD TEMP10 TEMP15>
1613 <SETG 'OPT-LIST OPT4>
1614 <RESTL OPT4 1 = TEMP10 (TYPE LIST)>
1616 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
1620 <EMPL? TEMP10 + MAPAP34>
1621 <NTHL TEMP10 1 = TEMP15>
1627 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
1630 <SETG 'OPT-OFFSET OFF5>
1635 <GFCN
\1aTEMP-INIT ("VALUE" <OR FALSE AC> LIST "OPTIONAL" <OR FALSE ATOM> ANY) LST7 TUP8 OLD9>
1636 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
1642 <TEMP (STK10 'TP*) (CNT11 0) TEMP21 TEMP26 TEMP27 VAR40 LCL44>
1645 <TYPE? TUP8 <TYPE-CODE FALSE> + PHRASE14>
1655 <GVAL 'NRARGS = STACK>
1660 <LENL LST7 = STK10 (TYPE FIX)>
1661 <SUB STK10 2 = STACK (TYPE FIX)>
1667 <LOOP (STK10 VALUE)>
1669 <RESTL STK10 1 = TEMP21 (TYPE LIST)>
1670 <EMPL? TEMP21 + TAG22>
1675 <NTHL STK10 1 = STACK>
1681 <GVAL 'NRARGS = TEMP21>
1682 <LSH TEMP21 1 = TEMP21 (TYPE FIX)>
1683 <ADD TEMP21 1 = STACK (TYPE FIX)>
1687 <SET STK10 'B1* (TYPE ATOM)>
1689 <GVAL 'ICALL-FLAG = TEMP21>
1690 <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE25>
1692 <GVAL 'ALL-TEMP-CC = TEMP21>
1693 <GVAL 'TEMP-CC = TEMP26>
1694 <CONS TEMP26 TEMP21 = TEMP26>
1696 <SETG 'ALL-TEMP-CC TEMP26>
1698 <GVAL 'ALL-ICALL-TEMPS = TEMP26>
1699 <GVAL 'ICALL-TEMPS = TEMP21>
1700 <GVAL 'ICALL-TEMPS = TEMP27>
1701 <LENL TEMP27 = TEMP27 (TYPE FIX)>
1702 <SUB TEMP27 1 = TEMP27 (TYPE FIX)>
1703 <GRTR? TEMP27 0 - RESTL29 (TYPE FIX)>
1704 <LOOP (TEMP21 VALUE) (TEMP27 VALUE)>
1707 <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
1708 <SUB TEMP27 1 = TEMP27 (TYPE FIX)>
1709 <GRTR? TEMP27 0 + RESTL28 (TYPE FIX)>
1711 <CONS TEMP21 TEMP26 = TEMP26>
1713 <SETG 'ALL-ICALL-TEMPS TEMP26>
1717 <CONS 'T () = TEMP26>
1718 <SETG 'ICALL-TEMPS TEMP26>
1719 <CONS TEMP26 () = TEMP26>
1720 <SETG 'ALL-ICALL-TEMPS TEMP26>
1723 <SETG 'TEMP-CC CNT11>
1725 <SET TEMP26 LST7 (TYPE LIST)>
1730 <EMPL? TEMP26 + MAPAP35>
1731 <NTHL TEMP26 1 = CNT11>
1732 <SET TEMP21 #T$UNBOUND 0>
1733 <SET TEMP27 #LOSE 0 (TYPE LOSE)>
1734 <EQUAL? CNT11 '= + MAPAP35>
1735 <TYPE? CNT11 <TYPE-CODE ADECL> - PHRASE49>
1736 <NTHUV CNT11 1 = VAR40 (TYPE ATOM)>
1737 <NTHUV CNT11 2 = TEMP21 (TYPE ATOM)>
1741 <TYPE? CNT11 <TYPE-CODE LIST> - PHRASE50>
1742 <NTHL CNT11 1 = TEMP27>
1743 <TYPE? TEMP27 <TYPE-CODE ADECL> - PHRASE52>
1744 <NTHUV TEMP27 1 = VAR40 (TYPE ATOM)>
1745 <NTHUV TEMP27 2 = TEMP21 (TYPE ATOM)>
1752 <RESTL CNT11 1 = CNT11 (TYPE LIST)>
1753 <NTHL CNT11 1 = TEMP27>
1763 <CALL '
\1aLMEMQ 2 = LCL44>
1767 <TYPE? CNT11 <TYPE-CODE FALSE> + PHRASE58>
1768 <NTHUV LCL44 2 = CNT11>
1773 <GVAL 'LBLSEQ = CNT11>
1774 <ADD CNT11 1 = CNT11 (TYPE FIX)>
1775 <SETG 'LBLSEQ CNT11>
1776 <CHTYPE CNT11 <TYPE-CODE LOCAL-NAME> = STACK>
1778 <TYPE? TEMP21 <TYPE-CODE UNBOUND> + PHRASE60>
1779 <FRAME '
\1aDECL-HACK>
1782 <CALL '
\1aDECL-HACK 1 = TEMP21>
1786 <SET CNT11 %<> (TYPE FALSE)>
1792 <UBLOCK <TYPE-CODE VECTOR> 6 = CNT11>
1793 <CHTYPE CNT11 <TYPE-CODE LOCAL> = LCL44>
1795 <TYPE? TEMP27 <TYPE-CODE LOSE> + PHRASE64>
1796 <PUTUV LCL44 2 'TEMP>
1798 <GVAL 'ICALL-FLAG = CNT11>
1799 <TYPE? CNT11 <TYPE-CODE FALSE> + PHRASE66>
1801 <GVAL 'ICALL-TEMPS = CNT11>
1802 <GVAL 'ICALL-TEMPS = VAR40>
1803 <LENL VAR40 = VAR40 (TYPE FIX)>
1804 <SUB VAR40 1 = VAR40 (TYPE FIX)>
1805 <GRTR? VAR40 0 - RESTL69 (TYPE FIX)>
1806 <LOOP (CNT11 VALUE) (VAR40 VALUE)>
1809 <RESTL CNT11 1 = CNT11 (TYPE LIST)>
1810 <SUB VAR40 1 = VAR40 (TYPE FIX)>
1811 <GRTR? VAR40 0 + RESTL68 (TYPE FIX)>
1813 <CONS LCL44 () = VAR40>
1814 <PUTREST CNT11 VAR40>
1818 <GVAL 'LOCALS = CNT11>
1819 <GVAL 'LOCALS = VAR40>
1820 <LENL VAR40 = VAR40 (TYPE FIX)>
1821 <SUB VAR40 1 = VAR40 (TYPE FIX)>
1822 <GRTR? VAR40 0 - RESTL72 (TYPE FIX)>
1823 <LOOP (CNT11 VALUE) (VAR40 VALUE)>
1826 <RESTL CNT11 1 = CNT11 (TYPE LIST)>
1827 <SUB VAR40 1 = VAR40 (TYPE FIX)>
1828 <GRTR? VAR40 0 + RESTL71 (TYPE FIX)>
1830 <CONS LCL44 () = VAR40>
1831 <PUTREST CNT11 VAR40>
1834 <TYPE? TEMP21 <TYPE-CODE UNBOUND> + PHRASE74>
1835 <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE74>
1839 <SET VAR40 2 (TYPE FIX)>
1843 <SCALL '
\1aTYPE-WORD 1 = CNT11 + TAG76 VAR40>
1844 <LOOP (CNT11 TYPE VALUE LENGTH) (VAR40 VALUE)>
1847 <EMPTY? CNT11 + TAG76>
1848 <NTH1 CNT11 = STACK>
1849 <REST1 CNT11 = CNT11>
1850 <ADD VAR40 1 = VAR40 (TYPE FIX)>
1853 <CALL '
\1aOCEMIT VAR40>
1855 <GVAL 'TYPED-LOCALS = VAR40>
1856 <CONS LCL44 VAR40 = VAR40>
1858 <SETG 'TYPED-LOCALS VAR40>
1860 <TYPE? TEMP27 <TYPE-CODE LOSE> - PHRASE86>
1861 <SET TEMP27 0 (TYPE FIX)>
1864 <TYPE? TEMP27 <TYPE-CODE LOSE> - PHRASE81>
1868 <SET CNT11 2 (TYPE FIX)>
1871 <SCALL '
\1aOBJ-VAL 1 = VAR40 + TAG82 CNT11>
1872 <LOOP (VAR40 TYPE VALUE LENGTH) (CNT11 VALUE)>
1875 <EMPTY? VAR40 + TAG82>
1876 <NTH1 VAR40 = STACK>
1877 <REST1 VAR40 = VAR40>
1878 <ADD CNT11 1 = CNT11 (TYPE FIX)>
1881 <CALL '
\1aOCEMIT CNT11>
1883 <SET TEMP27 0 (TYPE FIX)>
1889 <SET VAR40 2 (TYPE FIX)>
1893 <SCALL '
\1aOBJ-LOC 2 = CNT11 + TAG87 VAR40>
1894 <LOOP (CNT11 TYPE VALUE LENGTH) (VAR40 VALUE)>
1897 <EMPTY? CNT11 + TAG87>
1898 <NTH1 CNT11 = STACK>
1899 <REST1 CNT11 = CNT11>
1900 <ADD VAR40 1 = VAR40 (TYPE FIX)>
1903 <CALL '
\1aOCEMIT VAR40>
1909 <SET CNT11 2 (TYPE FIX)>
1913 <SCALL '
\1aOBJ-VAL 1 = VAR40 + TAG91 CNT11>
1914 <LOOP (VAR40 TYPE VALUE LENGTH) (CNT11 VALUE)>
1917 <EMPTY? VAR40 + TAG91>
1918 <NTH1 VAR40 = STACK>
1919 <REST1 VAR40 = VAR40>
1920 <ADD CNT11 1 = CNT11 (TYPE FIX)>
1923 <CALL '
\1aOCEMIT CNT11>
1925 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1928 <VEQUAL? STK10 'B1* + TAG97>
1934 <CALL '
\1aGET-AC 1 = STK10>
1935 <PUTUV STK10 4 0 (TYPE FIX)>
1940 <GFCN
\1aPRE-HACK ("VALUE" ATOM LIST) L4>
1941 <TEMP FIX-LABS10 FIRST11 WIN9 LR5 TEMP20 TEMP19:LIST LL24:LIST FRM25 TEMP40 TEMP53 M26 LBL30:ATOM>
1943 <SETG 'THE-BIG-LABELS ()>
1944 <SET FIX-LABS10 %<> (TYPE FALSE)>
1945 <SET FIRST11 'T (TYPE ATOM)>
1949 <SET WIN9 %<> (TYPE FALSE)>
1950 <SET LR5 () (TYPE LIST)>
1951 <SET TEMP20 () (TYPE LIST)>
1952 <SET TEMP19 L4 (TYPE LIST)>
1956 <EMPL? TEMP19 + MAPAP17>
1958 <NTHL LL24 1 = FRM25>
1959 <TYPE? FRM25 <TYPE-CODE ATOM> + PHRASE113>
1960 <VEQUAL? FIRST11 0 + PHRASE35>
1961 <FRAME '
\1aREMOVE-FUNNY-DEADS>
1963 <CALL '
\1aREMOVE-FUNNY-DEADS 1>
1965 <NTHL FRM25 1 = TEMP40>
1966 <EQUAL? TEMP40 'OPT-DISPATCH + BOOL39>
1968 <NTHL FRM25 1 = TEMP40>
1969 <EQUAL? TEMP40 'DISPATCH - PHRASE38>
1972 <VEQUAL? FIX-LABS10 0 + MAPAP47>
1973 <RESTL FRM25 1 = TEMP40 (TYPE LIST)>
1974 <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
1975 <RESTL TEMP40 1 = TEMP53 (TYPE LIST)>
1977 <CHTYPE TEMP53 <TYPE-CODE LIST> = TEMP53>
1981 <EMPL? TEMP53 + MAPAP47>
1984 <NTHL LL24 1 = STACK>
1985 <CALL '
\1aFIX-LAB 1 = TEMP40>
1986 <PUTL LL24 1 TEMP40>
1988 <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
1991 <RESTL FRM25 1 = TEMP53 (TYPE LIST)>
1993 <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
1994 <RESTL TEMP53 1 = LL24 (TYPE LIST)>
1996 <CHTYPE LL24 <TYPE-CODE LIST> = LL24>
2000 <EMPL? LL24 + PHRASE113>
2001 <NTHL LL24 1 = TEMP53>
2002 <CONS TEMP53 () = TEMP53 (TYPE LIST)>
2004 <SET LR5 TEMP53 (TYPE LIST)>
2007 <PUTREST TEMP20 TEMP53>
2010 <SET TEMP20 TEMP53 (TYPE LIST)>
2012 <RESTL LL24 1 = LL24 (TYPE LIST)>
2016 <CHTYPE M26 <TYPE-CODE LIST> = M26>
2019 <NTHL M26 1 = TEMP53>
2020 <TYPE? TEMP53 <TYPE-CODE ATOM> - TAG68>
2021 <VEQUAL? TEMP53 '+ + BOOL64>
2024 <RESTL M26 1 = M26 (TYPE LIST)>
2026 <CHTYPE FRM25 <TYPE-CODE LIST> = TEMP53>
2027 <LOOP (TEMP53 VALUE)>
2029 <NTHL TEMP53 1 = TEMP40>
2030 <TYPE? TEMP40 <TYPE-CODE ATOM> - TAG72>
2031 <VEQUAL? TEMP40 '- + TAG69>
2034 <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
2035 <EMPL? TEMP53 - TAG71>
2042 <NTHL FRM25 1 = TEMP53>
2043 <EQUAL? TEMP53 'NTHR - PHRASE102>
2046 <LOOP (TEMP40 VALUE)>
2048 <RESTL TEMP40 1 = TEMP53 (TYPE LIST)>
2049 <EMPL? TEMP53 + TAG75>
2054 <NTHL TEMP40 1 = TEMP40>
2055 <TYPE? TEMP40 <TYPE-CODE LIST> - PHRASE102>
2056 <NTHL TEMP40 1 = TEMP53>
2057 <EQUAL? TEMP53 'BRANCH-FALSE - PHRASE102>
2059 <RESTL TEMP40 1 = M26 (TYPE LIST)>
2062 <RESTL M26 1 = TEMP53 (TYPE LIST)>
2063 <NTHL TEMP53 1 = LBL30 (TYPE ATOM)>
2065 <VEQUAL? LBL30 'COMPERR + BOOL78>
2066 <VEQUAL? LBL30 'UNWCONT + BOOL78>
2067 <VEQUAL? LBL30 'IOERR - PHRASE77>
2069 <CONS LBL30 () = TEMP53 (TYPE LIST)>
2072 <SET LR5 TEMP53 (TYPE LIST)>
2075 <PUTREST TEMP20 TEMP53>
2078 <SET TEMP20 TEMP53 (TYPE LIST)>
2082 <VEQUAL? FIX-LABS10 0 + PHRASE82>
2085 <CALL '
\1aFIX-LAB 1 = TEMP53>
2086 <RESTL M26 1 = TEMP40 (TYPE LIST)>
2088 <PUTL TEMP40 1 TEMP53>
2089 <DEAD TEMP40 TEMP53>
2090 <CONS LBL30 () = TEMP53 (TYPE LIST)>
2093 <SET LR5 TEMP53 (TYPE LIST)>
2096 <PUTREST TEMP20 TEMP53>
2099 <SET TEMP20 TEMP53 (TYPE LIST)>
2104 <EMPL? TEMP40 + TAG88>
2105 <LOOP (LBL30 VALUE) (TEMP40 VALUE)>
2107 <NTHL TEMP40 1 = TEMP53>
2108 <TYPE? TEMP53 <TYPE-CODE ATOM> - TAG90>
2109 <VEQUAL? TEMP53 LBL30 + PHRASE91>
2112 <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
2113 <EMPL? TEMP40 - TAG89>
2115 <SET TEMP40 %<> (TYPE FALSE)>
2116 <FRAME '
\1aMIMOCERR>
2117 <PUSH 'BAD-LABEL!-ERRORS>
2119 <CALL '
\1aMIMOCERR 2>
2124 <CALL '
\1aNEXTINS 1 = TEMP40>
2125 <NTHL TEMP40 1 = TEMP53>
2126 <EQUAL? TEMP53 'JUMP - PHRASE94>
2128 <RESTL TEMP40 1 = TEMP53 (TYPE LIST)>
2130 <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
2131 <NTHL TEMP53 1 = TEMP53>
2132 <RESTL M26 1 = TEMP40 (TYPE LIST)>
2133 <PUTL TEMP40 1 TEMP53>
2134 <DEAD TEMP40 TEMP53>
2135 <RESTL M26 1 = TEMP53 (TYPE LIST)>
2137 <NTHL TEMP53 1 = TEMP53>
2138 <CONS TEMP53 () = TEMP53 (TYPE LIST)>
2140 <SET LR5 TEMP53 (TYPE LIST)>
2143 <PUTREST TEMP20 TEMP53>
2146 <SET TEMP20 TEMP53 (TYPE LIST)>
2150 <NTHL FRM25 1 = TEMP53>
2152 <EQUAL? TEMP53 'JUMP - PHRASE99>
2154 <NTHL TEMP40 1 = TEMP53>
2155 <EQUAL? TEMP53 'RETURN - PHRASE99>
2157 <PUTL LL24 1 TEMP40>
2161 <CONS LBL30 () = TEMP53 (TYPE LIST)>
2163 <EMPL? LR5 - TAG104>
2164 <SET LR5 TEMP53 (TYPE LIST)>
2167 <PUTREST TEMP20 TEMP53>
2170 <SET TEMP20 TEMP53 (TYPE LIST)>
2174 <NTHL FRM25 1 = TEMP53>
2175 <EQUAL? TEMP53 'ICALL - PHRASE113>
2177 <VEQUAL? FIX-LABS10 0 + PHRASE108>
2179 <RESTL FRM25 1 = TEMP53 (TYPE LIST)>
2180 <NTHL TEMP53 1 = STACK>
2182 <CALL '
\1aFIX-LAB 1 = TEMP53>
2183 <RESTL FRM25 1 = TEMP40 (TYPE LIST)>
2184 <PUTL TEMP40 1 TEMP53>
2185 <DEAD TEMP40 TEMP53>
2187 <RESTL FRM25 1 = TEMP53 (TYPE LIST)>
2189 <NTHL TEMP53 1 = TEMP53>
2190 <CONS TEMP53 () = TEMP53 (TYPE LIST)>
2191 <EMPL? LR5 - TAG111>
2192 <SET LR5 TEMP53 (TYPE LIST)>
2195 <PUTREST TEMP20 TEMP53>
2198 <SET TEMP20 TEMP53 (TYPE LIST)>
2201 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
2204 <SET FIRST11 %<> (TYPE FALSE)>
2207 <SET TEMP20 %<> (TYPE FALSE)>
2211 <EMPL? TEMP19 + EXIT115 (TYPE LIST)>
2212 <NTHL TEMP19 1 = FRM25>
2213 <TYPE? FRM25 <TYPE-CODE ATOM> - PHRASE123>
2214 <VEQUAL? FIX-LABS10 0 + PHRASE125>
2218 <CALL '
\1aFIX-LAB 1 = FRM25>
2219 <PUTL TEMP19 1 FRM25>
2220 <FRAME '
\1aMAKE-LABEL>
2227 <CALL '
\1aMAKE-LABEL 4>
2232 <EMPL? TEMP53 + TAG129>
2233 <LOOP (FRM25 VALUE) (TEMP53 VALUE)>
2235 <NTHL TEMP53 1 = TEMP40>
2236 <TYPE? TEMP40 <TYPE-CODE ATOM> - TAG131>
2237 <VEQUAL? TEMP40 FRM25 + PHRASE128>
2240 <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
2241 <EMPL? TEMP53 - TAG130>
2243 <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
2245 <PUTREST LL24 TEMP53>
2248 <SET WIN9 'T (TYPE ATOM)>
2254 <VEQUAL? FIX-LABS10 0 + PHRASE133>
2255 <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE133>
2256 <NTHL FRM25 1 = TEMP53>
2257 <EQUAL? TEMP53 'ACTIVATION - PHRASE133>
2261 <CALL '
\1aGENLBL 1 = FRM25>
2262 <CONS FRM25 () = TEMP53>
2263 <GVAL 'THE-BIG-LABELS = TEMP40 (TYPE LIST)>
2264 <PUTREST TEMP53 TEMP40>
2266 <SETG 'THE-BIG-LABELS TEMP53>
2268 <FRAME '
\1aMAKE-LABEL>
2274 <CALL '
\1aMAKE-LABEL 4>
2278 <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE137>
2279 <NTHL FRM25 1 = TEMP53>
2280 <EQUAL? TEMP53 'LOOP - PHRASE137>
2282 <SET TEMP20 'T (TYPE ATOM)>
2285 <RESTL LL24 1 = TEMP19 (TYPE LIST)>
2288 <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE139>
2289 <NTHL FRM25 1 = TEMP53>
2291 <EQUAL? TEMP53 'JUMP - PHRASE139>
2293 <NTHL LL24 1 = FRM25>
2294 <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE139>
2295 <NTHL FRM25 1 = TEMP53>
2297 <EQUAL? TEMP53 'JUMP - PHRASE139>
2299 <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
2300 <PUTREST LL24 TEMP53>
2302 <SET WIN9 'T (TYPE ATOM)>
2305 <NTHL TEMP19 1 = FRM25>
2306 <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE141>
2307 <NTHL FRM25 1 = TEMP53>
2308 <EQUAL? TEMP53 'JUMP - PHRASE141>
2310 <EMPL? TEMP19 + PHRASE141>
2311 <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
2312 <EMPL? TEMP53 + PHRASE141>
2314 <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
2315 <NTHL TEMP53 1 = TEMP53>
2316 <RESTL FRM25 1 = TEMP40 (TYPE LIST)>
2317 <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
2318 <NTHL TEMP40 1 = TEMP40>
2319 <EQUAL? TEMP53 TEMP40 - PHRASE141>
2320 <DEAD TEMP53 TEMP40>
2321 <RESTL TEMP19 1 = TEMP40 (TYPE LIST)>
2322 <PUTREST LL24 TEMP40>
2324 <SET WIN9 'T (TYPE ATOM)>
2327 <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE143>
2328 <NTHL FRM25 1 = TEMP40>
2329 <EQUAL? TEMP40 'JUMP - PHRASE143>
2331 <EMPL? TEMP19 + PHRASE143>
2332 <RESTL TEMP19 1 = TEMP40 (TYPE LIST)>
2333 <EMPL? TEMP40 + PHRASE143>
2335 <RESTL TEMP19 1 = TEMP40 (TYPE LIST)>
2336 <NTHL TEMP40 1 = TEMP40>
2337 <TYPE? TEMP40 <TYPE-CODE ATOM> + PHRASE143>
2339 <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
2340 <RESTL TEMP53 1 = TEMP40 (TYPE LIST)>
2342 <PUTREST TEMP19 TEMP40>
2344 <SET WIN9 'T (TYPE ATOM)>
2347 <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE145>
2348 <NTHL FRM25 1 = TEMP40>
2349 <EQUAL? TEMP40 'RETURN + BOOL147>
2351 <NTHL FRM25 1 = TEMP40>
2352 <EQUAL? TEMP40 'RTUPLE + BOOL147>
2354 <NTHL FRM25 1 = TEMP40>
2355 <EQUAL? TEMP40 'AGAIN + BOOL147>
2357 <NTHL FRM25 1 = TEMP40>
2358 <EQUAL? TEMP40 'RETRY + BOOL147>
2360 <NTHL FRM25 1 = TEMP40>
2362 <EQUAL? TEMP40 'MRETURN - PHRASE145>
2365 <RESTL TEMP19 1 = LL24 (TYPE LIST)>
2369 <EMPL? LL24 + BOOL153 (TYPE LIST)>
2370 <NTHL LL24 1 = FRM25>
2371 <TYPE? FRM25 <TYPE-CODE ATOM> - PHRASE152>
2373 <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
2374 <VEQUAL? TEMP53 LL24 + EXIT148>
2376 <SET WIN9 'T (TYPE ATOM)>
2377 <PUTREST TEMP19 LL24>
2381 <NTH1 FRM25 = TEMP53>
2383 <EQUAL? TEMP53 'DEAD - PHRASE157>
2385 <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
2386 <VEQUAL? TEMP53 LL24 + PHRASE159>
2388 <SET WIN9 'T (TYPE ATOM)>
2389 <PUTREST TEMP19 LL24>
2394 <RESTL LL24 1 = LL24 (TYPE LIST)>
2402 <SET TEMP20 %<> (TYPE FALSE)>
2403 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
2406 <VEQUAL? FIX-LABS10 0 + PHRASE162>
2409 <VEQUAL? WIN9 0 - AGAIN12>
2411 <SET FIX-LABS10 'T (TYPE ATOM)>
2415 <GFCN
\1aREMOVE-FUNNY-DEADS ("VALUE" ATOM FORM) FRM4>
2416 <TEMP N5 L9 TEMP15:FIX TEMP23>
2418 <LENL FRM4 = N5 (TYPE FIX)>
2424 <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
2425 <GRTR? TEMP15 0 - RESTL18 (TYPE FIX)>
2426 <LOOP (L9 VALUE) (TEMP15 VALUE)>
2429 <RESTL L9 1 = L9 (TYPE LIST)>
2430 <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
2431 <GRTR? TEMP15 0 + RESTL16 (TYPE FIX)>
2434 <TYPE? L9 <TYPE-CODE LIST> - PHRASE13>
2435 <EMPL? L9 + PHRASE13 (TYPE LIST)>
2437 <EQUAL? L9 'DEAD-FALL + BOOL19>
2438 <EQUAL? L9 'DEAD-JUMP - PHRASE13>
2441 <SUB N5 2 = TEMP15 (TYPE FIX)>
2443 <GRTR? TEMP15 0 - RESTL21 (TYPE FIX)>
2444 <LOOP (L9 VALUE) (TEMP15 VALUE)>
2447 <RESTL L9 1 = L9 (TYPE LIST)>
2448 <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
2449 <GRTR? TEMP15 0 + RESTL20 (TYPE FIX)>
2451 <CHTYPE L9 <TYPE-CODE LIST> = L9>
2454 <GRTR? TEMP15 0 - RESTL24 (TYPE FIX)>
2455 <LOOP (TEMP23 VALUE) (TEMP15 VALUE)>
2458 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
2459 <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
2460 <GRTR? TEMP15 0 + RESTL22 (TYPE FIX)>
2462 <CHTYPE TEMP23 <TYPE-CODE LIST> = TEMP23>
2465 <SUB N5 1 = N5 (TYPE FIX)>
2468 <SUB N5 1 = N5 (TYPE FIX)>
2470 <GRTR? N5 1 + AGAIN11 (TYPE FIX)>
2472 <END
\1aREMOVE-FUNNY-DEADS>
2475 <GFCN
\1aFIX-LAB ("VALUE" ANY ANY) X4>
2478 <NTHR X4 3 = X4 (RECORD-TYPE ATOM)>
2481 <GVAL 'LABEL-OBLIST = STACK>
2482 <CALL '
\1aLOOKUP 2 = TEMP6>
2483 <TYPE? TEMP6 <TYPE-CODE FALSE> - BOOL5>
2487 <GVAL 'LABEL-OBLIST = STACK>
2488 <CALL '
\1aINSERT 2 = TEMP6>
2494 <GFCN
\1aFIXUP-REFS ("VALUE" ANY)>
2495 <TEMP TEMP12 C4:LIST (PC5 0) OFF9 C26 TEMP34 R27 TG8 NPC63:FIX>
2497 <GVAL 'CODE = TEMP12>
2498 <RESTL TEMP12 1 = C4 (TYPE LIST)>
2500 <GVAL 'GLUE-MODE = TEMP12>
2501 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE14>
2503 <GVAL 'GLUE-PC = TEMP12>
2506 <SET TEMP12 0 (TYPE FIX)>
2510 <GVAL 'WINNING-VICTIM = TEMP12>
2511 <SET TEMP12 C4 (TYPE LIST)>
2515 <EMPL? TEMP12 + MAPAP20>
2516 <NTHL TEMP12 1 = C26>
2517 <TYPE? C26 <TYPE-CODE INST> - PHRASE39>
2518 <LENUV C26 = TEMP34 (TYPE FIX)>
2519 <NTHUV C26 TEMP34 = R27>
2521 <TYPE? R27 <TYPE-CODE REF> - PHRASE33>
2524 <TYPE? C26 <TYPE-CODE ATOM> - PHRASE39>
2525 <FRAME '
\1aFIND-LABEL>
2528 <CALL '
\1aFIND-LABEL 1 = C26>
2529 <TYPE? C26 <TYPE-CODE FALSE> + PHRASE39>
2534 <TYPE? R27 <TYPE-CODE FORM> + TAG40>
2535 <TYPE? R27 <TYPE-CODE GVAL> - PHRASE39>
2537 <LENUV C26 = TEMP34 (TYPE FIX)>
2541 <CALL '
\1aEVAL 1 = R27>
2542 <PUTUV C26 TEMP34 R27>
2543 <DEAD C26 TEMP34 R27>
2545 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
2551 <EMPL? C4 - PHRASE46 (TYPE LIST)>
2552 <SETG 'CODE-LENGTH PC5>
2556 <NTHL C4 1 = TEMP12>
2557 <TYPE? TEMP12 <TYPE-CODE ATOM> - PHRASE47>
2558 <FRAME '
\1aFIND-LABEL>
2561 <CALL '
\1aFIND-LABEL 1 = TEMP12>
2562 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE47>
2563 <ADD PC5 OFF9 = C26 (TYPE FIX)>
2564 <PUTUV TEMP12 2 C26>
2568 <ADD PC5 1 = PC5 (TYPE FIX)>
2570 <RESTL C4 1 = C4 (TYPE LIST)>
2573 <SET TEMP34 %<> (TYPE FALSE)>
2575 <RESTL C26 1 = C4 (TYPE LIST)>
2580 <EMPL? C4 + MAPAP55>
2582 <NTHL PC5 1 = TEMP34>
2583 <SET R27 %<> (TYPE FALSE)>
2584 <TYPE? TEMP34 <TYPE-CODE INST> + TAG68>
2585 <SET TEMP34 %<> (TYPE FALSE)>
2588 <NTHUV TEMP34 2 = OFF9>
2589 <TYPE? OFF9 <TYPE-CODE REF> + BOOL70>
2590 <LENUV TEMP34 = C26 (TYPE FIX)>
2591 <GRTR? C26 2 + TAG72 (TYPE FIX)>
2593 <SET TEMP34 %<> (TYPE FALSE)>
2596 <NTHUV TEMP34 3 = OFF9>
2597 <TYPE? OFF9 <TYPE-CODE REF> + TAG73>
2598 <SET TEMP34 %<> (TYPE FALSE)>
2601 <SET R27 'T (TYPE ATOM)>
2603 <NTHUV OFF9 1 = TG8>
2604 <SET TEMP12 %<> (TYPE FALSE)>
2605 <TYPE? TG8 <TYPE-CODE ATOM> - PHRASE83>
2606 <GVAL 'CODE = TEMP12>
2607 <RESTL TEMP12 1 = C26 (TYPE LIST)>
2610 <LOOP (TG8 VALUE) (C26 VALUE)>
2612 <NTHL C26 1 = TEMP12>
2613 <TYPE? TEMP12 <TYPE-CODE ATOM> - TAG80>
2614 <VEQUAL? TEMP12 TG8 + TAG78>
2617 <RESTL C26 1 = C26 (TYPE LIST)>
2620 <SET TEMP12 %<> (TYPE FALSE)>
2626 <VEQUAL? TEMP12 0 + PHRASE83>
2627 <FRAME '
\1aFIND-LABEL>
2628 <NTHUV OFF9 1 = STACK>
2629 <CALL '
\1aFIND-LABEL 1 = C26>
2630 <NTHUV C26 2 = NPC63 (TYPE FIX)>
2633 <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE86>
2635 <EQUAL? TG8 'COMPERR - PHRASE88>
2636 <VEQUAL? R27 0 + PHRASE90>
2638 <PUTUV TEMP34 3 106>
2641 <PUTUV TEMP34 2 106>
2644 <EQUAL? TG8 'UNWCONT + BOOL93>
2645 <EQUAL? TG8 'IOERR - PHRASE92>
2647 <VEQUAL? R27 0 + PHRASE95>
2649 <NTHUV TEMP34 1 = STACK>
2650 <NTHUV TEMP34 2 = STACK>
2656 <CALL '
\1aOPCODE 1 = STACK>
2657 <UBLOCK <TYPE-CODE VECTOR> 4 = C26>
2658 <CHTYPE C26 <TYPE-CODE INST> = C26>
2670 <CALL '
\1aOPCODE 1 = STACK>
2671 <UBLOCK <TYPE-CODE VECTOR> 3 = C26>
2672 <CHTYPE C26 <TYPE-CODE INST> = C26>
2679 <TYPE? TG8 <TYPE-CODE CONSTANT-BUCKET> - TAG102>
2681 <SET TEMP34 %<> (TYPE FALSE)>
2684 <FRAME '
\1aMIMOCERR>
2685 <PUSH 'UNKNOWN-LABEL!-ERRORS>
2686 <NTHUV OFF9 1 = STACK>
2688 <CALL '
\1aMIMOCERR 2 = TEMP34>
2691 <VEQUAL? R27 0 + PHRASE105>
2693 <NTHUV TEMP34 1 = STACK>
2694 <NTHUV TEMP34 2 = STACK>
2698 <UBLOCK <TYPE-CODE VECTOR> 4 = C26>
2699 <CHTYPE C26 <TYPE-CODE INST> = C26>
2709 <UBLOCK <TYPE-CODE VECTOR> 3 = C26>
2710 <CHTYPE C26 <TYPE-CODE INST> = C26>
2716 <RESTL C4 1 = C4 (TYPE LIST)>
2723 <GFCN
\1aWRITE-MSUBR ("VALUE" ANY ANY "OPTIONAL" ANY ANY) OC7 LOWERSTR8 F-OR-G9>
2724 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
2730 <TEMP MVECTOR11:LIST TEMP3:LBIND OB13:STRING TEMP15 TEMP27 CHR30 ICHR31 C72:LIST TEMP73>
2732 <GVAL 'MVECTOR = MVECTOR11>
2733 <GETS 'BIND = TEMP3 (TYPE LBIND)>
2734 <BBIND 'OUTCHAN 'CHANNEL 'FIX OC7>
2735 <GVAL 'OUTPUT-BUFFER = OB13>
2736 <GVAL 'INT-MODE = TEMP15>
2737 <TYPE? TEMP15 <TYPE-CODE FALSE> + BOOL14>
2739 <FRAME '
\1aPRINTTYPE>
2741 <GVAL 'ATOM-PRINT = STACK>
2742 <CALL '
\1aPRINTTYPE 2>
2744 <TYPE? LOWERSTR8 <TYPE-CODE FALSE> - MAPEX22>
2745 <RESTL MVECTOR11 1 = TEMP15 (TYPE LIST)>
2746 <NTHL TEMP15 1 = TEMP15 (TYPE ATOM)>
2747 <NTHR TEMP15 3 = TEMP15 (RECORD-TYPE ATOM)>
2748 <SET TEMP27 0 (TYPE FIX)>
2752 <EMPUS? TEMP15 + MAPAP23>
2753 <NTHUS TEMP15 1 = CHR30>
2754 <CHTYPE CHR30 <TYPE-CODE FIX> = ICHR31>
2755 <GRTR? ICHR31 90 + PHRASE33 (TYPE FIX)>
2756 <LESS? ICHR31 65 + PHRASE33 (TYPE FIX)>
2757 <ADD ICHR31 32 = ICHR31 (TYPE FIX)>
2758 <CHTYPE ICHR31 <TYPE-CODE CHARACTER> = ICHR31>
2766 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
2767 <RESTUS TEMP15 1 = TEMP15 (TYPE STRING)>
2770 <UBLOCK <TYPE-CODE STRING> TEMP27 = LOWERSTR8 (TYPE STRING)>
2777 <GVAL 'GLUE-MODE = TEMP15>
2778 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE39>
2780 <FRAME '
\1aLREVERSE>
2781 <GVAL 'GLUE-LIST = STACK>
2782 <CALL '
\1aLREVERSE 1 = TEMP15>
2783 <SETG 'GLUE-LIST TEMP15>
2789 <GVAL 'BOOT-MODE = TEMP15>
2790 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE43>
2796 <GVAL 'GLUE-MODE = TEMP15>
2797 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE46>
2808 <GVAL 'BOOT-MODE = TEMP15>
2809 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE54>
2811 <GVAL 'INT-MODE = TEMP15>
2812 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE52>
2815 <PUSH "!-IMSUBR!- ">
2827 <NTHR 'OUTCHAN 2 = TEMP15 (RECORD-TYPE ATOM) (TYPE LBIND)>
2828 <NTHR TEMP15 1 = STACK (RECORD-TYPE LBIND)>
2836 <GVAL 'GLUE-MODE = TEMP15>
2837 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE61>
2839 <GVAL 'MAX-SPACE = TEMP15>
2840 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE61>
2842 <SET ICHR31 () (TYPE LIST)>
2843 <SET TEMP27 () (TYPE LIST)>
2844 <GVAL 'GLUE-LIST = TEMP15>
2848 <EMPTY? TEMP15 + MAPAP67>
2849 <NTH1 TEMP15 = CHR30>
2850 <RESTL CHR30 1 = TEMP73 (TYPE LIST)>
2851 <RESTL TEMP73 1 = TEMP73 (TYPE LIST)>
2852 <RESTL TEMP73 1 = TEMP73 (TYPE LIST)>
2853 <NTHL TEMP73 1 = TEMP73 (TYPE LIST)>
2854 <RESTL TEMP73 1 = C72 (TYPE LIST)>
2856 <RESTL CHR30 1 = TEMP73 (TYPE LIST)>
2858 <RESTL TEMP73 1 = TEMP73 (TYPE LIST)>
2859 <RESTL TEMP73 1 = TEMP73 (TYPE LIST)>
2860 <PUTL TEMP73 1 () (TYPE LIST)>
2866 <NTHL C72 1 = TEMP73>
2867 <CONS TEMP73 () = TEMP73 (TYPE LIST)>
2868 <EMPL? ICHR31 - TAG80>
2869 <SET ICHR31 TEMP73 (TYPE LIST)>
2872 <PUTREST TEMP27 TEMP73>
2875 <SET TEMP27 TEMP73 (TYPE LIST)>
2877 <RESTL C72 1 = C72 (TYPE LIST)>
2880 <REST1 TEMP15 = TEMP15>
2885 <GVAL 'CODE = TEMP15>
2886 <CONS 'T TEMP15 = TEMP15>
2890 <GVAL 'BOOT-MODE = TEMP15>
2891 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE112>
2893 <GVAL 'GLUE-MODE = TEMP73>
2894 <TYPE? TEMP73 <TYPE-CODE FALSE> + PHRASE87>
2896 <GVAL 'GLUE-PC = TEMP73>
2899 <GVAL 'CODE-LENGTH = TEMP73>
2901 <GVAL 'CONSTANT-VECTOR = TEMP15>
2902 <LENL TEMP15 = TEMP15 (TYPE FIX)>
2903 <ADD TEMP73 TEMP15 = TEMP27 (TYPE FIX)>
2904 <DEAD TEMP73 TEMP15>
2905 <LSH TEMP27 -16 = CHR30 (TYPE FIX)>
2906 <LSH CHR30 -5 = TEMP15 (TYPE FIX)>
2907 <AND TEMP15 #WORD *7* = TEMP15>
2908 <ADD TEMP15 65 = TEMP15 (TYPE FIX)>
2909 <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = TEMP15>
2910 <PUTUS OB13 1 TEMP15>
2912 <RESTUS OB13 1 = OB13 (TYPE STRING)>
2913 <EMPUS? OB13 - PHRASE92 (TYPE STRING)>
2914 <FRAME '
\1aCHANNEL-OP>
2916 <PUSH 'WRITE-BUFFER>
2917 <GVAL 'OUTPUT-BUFFER = OB13>
2919 <CALL '
\1aCHANNEL-OP 3>
2921 <AND CHR30 #WORD *37* = TEMP15>
2923 <ADD TEMP15 65 = TEMP15 (TYPE FIX)>
2924 <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = TEMP15>
2925 <PUTUS OB13 1 TEMP15>
2927 <RESTUS OB13 1 = OB13 (TYPE STRING)>
2928 <EMPUS? OB13 - PHRASE95 (TYPE STRING)>
2929 <FRAME '
\1aCHANNEL-OP>
2931 <PUSH 'WRITE-BUFFER>
2932 <GVAL 'OUTPUT-BUFFER = OB13>
2934 <CALL '
\1aCHANNEL-OP 3>
2936 <LSH TEMP27 -13 = TEMP73 (TYPE FIX)>
2937 <AND TEMP73 #WORD *7* = TEMP73>
2938 <ADD TEMP73 65 = TEMP73 (TYPE FIX)>
2939 <CHTYPE TEMP73 <TYPE-CODE CHARACTER> = TEMP73>
2940 <PUTUS OB13 1 TEMP73>
2942 <RESTUS OB13 1 = OB13 (TYPE STRING)>
2943 <EMPUS? OB13 - PHRASE100 (TYPE STRING)>
2944 <FRAME '
\1aCHANNEL-OP>
2946 <PUSH 'WRITE-BUFFER>
2947 <GVAL 'OUTPUT-BUFFER = OB13>
2949 <CALL '
\1aCHANNEL-OP 3>
2951 <LSH TEMP27 -8 = TEMP73 (TYPE FIX)>
2952 <AND TEMP73 #WORD *37* = TEMP73>
2953 <ADD TEMP73 65 = TEMP73 (TYPE FIX)>
2954 <CHTYPE TEMP73 <TYPE-CODE CHARACTER> = TEMP73>
2955 <PUTUS OB13 1 TEMP73>
2957 <RESTUS OB13 1 = OB13 (TYPE STRING)>
2958 <EMPUS? OB13 - PHRASE103 (TYPE STRING)>
2959 <FRAME '
\1aCHANNEL-OP>
2961 <PUSH 'WRITE-BUFFER>
2962 <GVAL 'OUTPUT-BUFFER = OB13>
2964 <CALL '
\1aCHANNEL-OP 3>
2966 <LSH TEMP27 -5 = TEMP15 (TYPE FIX)>
2967 <AND TEMP15 #WORD *7* = TEMP15>
2968 <ADD TEMP15 65 = TEMP15 (TYPE FIX)>
2969 <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = TEMP15>
2970 <PUTUS OB13 1 TEMP15>
2972 <RESTUS OB13 1 = OB13 (TYPE STRING)>
2973 <EMPUS? OB13 - PHRASE109 (TYPE STRING)>
2974 <FRAME '
\1aCHANNEL-OP>
2976 <PUSH 'WRITE-BUFFER>
2977 <GVAL 'OUTPUT-BUFFER = OB13>
2979 <CALL '
\1aCHANNEL-OP 3>
2981 <AND TEMP27 #WORD *37* = TEMP15>
2983 <ADD TEMP15 65 = TEMP15 (TYPE FIX)>
2984 <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = TEMP15>
2985 <PUTUS OB13 1 TEMP15>
2987 <RESTUS OB13 1 = OB13 (TYPE STRING)>
2988 <EMPUS? OB13 - PHRASE112 (TYPE STRING)>
2989 <FRAME '
\1aCHANNEL-OP>
2991 <PUSH 'WRITE-BUFFER>
2992 <GVAL 'OUTPUT-BUFFER = OB13>
2994 <CALL '
\1aCHANNEL-OP 3>
2996 <GVAL 'MAX-SPACE = TEMP15>
2997 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE115>
2999 <FRAME '
\1aWRITE-CODE>
3002 <GVAL 'CODE = TEMP15>
3003 <RESTL TEMP15 1 = STACK (TYPE LIST)>
3007 <CALL '
\1aWRITE-CODE 4>
3010 <FRAME '
\1aCHANNEL-OP>
3012 <PUSH 'WRITE-BUFFER>
3013 <GVAL 'OUTPUT-BUFFER = STACK>
3014 <LENUS OB13 = TEMP15 (TYPE FIX)>
3016 <SUB 1024 TEMP15 = STACK (TYPE FIX)>
3018 <CALL '
\1aCHANNEL-OP 4>
3020 <GVAL 'GLUE-MODE = TEMP15>
3021 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE120>
3023 <EQUAL? F-OR-G9 'GFCN - PHRASE122>
3026 <GVAL 'CODE-LENGTH = STACK>
3032 <GVAL 'CODE-LENGTH = TEMP15>
3033 <SUB 0 TEMP15 = STACK (TYPE FIX)>
3041 <GVAL 'BOOT-MODE = TEMP15>
3042 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE128>
3048 <GVAL 'GLUE-MODE = TEMP15>
3049 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE131>
3057 <RESTL MVECTOR11 1 = TEMP15 (TYPE LIST)>
3058 <NTHL TEMP15 1 = STACK>
3075 <GVAL 'BOOT-MODE = TEMP15>
3076 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE142>
3078 <GVAL 'INT-MODE = TEMP15>
3079 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE140>
3082 <PUSH "!-IMSUBR!- ">
3097 <RESTL MVECTOR11 1 = TEMP15 (TYPE LIST)>
3098 <NTHL TEMP15 1 = STACK>
3107 <RESTL MVECTOR11 1 = TEMP15 (TYPE LIST)>
3109 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
3110 <NTHL TEMP15 1 = STACK>
3118 <GVAL 'BOOT-MODE = TEMP15>
3119 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE150>
3132 <GVAL 'INT-MODE = TEMP15>
3133 <TYPE? TEMP15 <TYPE-CODE FALSE> + BOOL153>
3135 <GVAL 'MAX-SPACE = TEMP15>
3136 <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL153>
3138 <FRAME '
\1aPRINTTYPE>
3140 <GVAL 'PRINT = STACK>
3141 <CALL '
\1aPRINTTYPE 2>
3143 <GVAL 'MAX-SPACE = TEMP15>
3144 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE156>
3145 <SET TEMP15 LOWERSTR8>
3153 <END
\1aWRITE-MSUBR>
3155 <GFCN
\1aWRITE-CODE ("VALUE" ANY ANY ANY LIST STRING "OPTIONAL" FIX) OC6 LOWERSTR7 CODE8 OB9 LEN10>
3156 <OPT-DISPATCH 4 %<> OPT4 OPT5>
3160 <TEMP MVECTOR11:LIST TEMP3:LBIND TEMP20 WRD25 I31 RBYT35 TEMP37 TEMP89>
3162 <GVAL 'MVECTOR = MVECTOR11>
3163 <GETS 'BIND = TEMP3 (TYPE LBIND)>
3164 <BBIND 'OUTCHAN 'CHANNEL 'FIX OC6>
3165 <SET TEMP20 CODE8 (TYPE LIST)>
3170 <EMPL? TEMP20 + MAPAP18>
3171 <NTHL TEMP20 1 = WRD25>
3175 <CALL '
\1aASS-INS 1 = WRD25>
3176 <TYPE? WRD25 <TYPE-CODE FALSE> + EXIT29>
3177 <ADD LEN10 4 = LEN10 (TYPE FIX)>
3178 <SET I31 4 (TYPE FIX)>
3182 <ROT WRD25 9 = WRD25 (TYPE FIX)>
3184 <LSH RBYT35 -5 = TEMP37 (TYPE FIX)>
3185 <AND TEMP37 #WORD *17* = TEMP37>
3186 <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
3187 <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
3188 <PUTUS OB9 1 TEMP37>
3190 <RESTUS OB9 1 = OB9 (TYPE STRING)>
3191 <EMPUS? OB9 - PHRASE39 (TYPE STRING)>
3192 <FRAME '
\1aCHANNEL-OP>
3194 <PUSH 'WRITE-BUFFER>
3195 <GVAL 'OUTPUT-BUFFER = OB9>
3197 <CALL '
\1aCHANNEL-OP 3>
3199 <AND RBYT35 #WORD *37* = TEMP37>
3201 <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
3202 <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
3203 <PUTUS OB9 1 TEMP37>
3205 <RESTUS OB9 1 = OB9 (TYPE STRING)>
3206 <EMPUS? OB9 - PHRASE42 (TYPE STRING)>
3207 <FRAME '
\1aCHANNEL-OP>
3209 <PUSH 'WRITE-BUFFER>
3210 <GVAL 'OUTPUT-BUFFER = OB9>
3212 <CALL '
\1aCHANNEL-OP 3>
3214 <SUB I31 1 = I31 (TYPE FIX)>
3215 <VEQUAL? I31 0 - AGAIN32 (TYPE FIX)>
3217 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
3220 <GVAL 'MAX-SPACE = TEMP20>
3221 <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE49>
3223 <GVAL 'CONSTANT-VECTOR = TEMP20>
3227 <EMPL? TEMP20 + MAPAP54>
3228 <NTHL TEMP20 1 = WRD25>
3229 <NTHUV WRD25 1 = WRD25>
3230 <TYPE? WRD25 <TYPE-CODE CONSTANT> - PHRASE61>
3231 <SET I31 4 (TYPE FIX)>
3235 <ROT WRD25 9 = WRD25 (TYPE FIX)>
3237 <LSH RBYT35 -5 = TEMP37 (TYPE FIX)>
3238 <AND TEMP37 #WORD *17* = TEMP37>
3239 <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
3240 <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
3241 <PUTUS OB9 1 TEMP37>
3243 <RESTUS OB9 1 = OB9 (TYPE STRING)>
3244 <EMPUS? OB9 - PHRASE72 (TYPE STRING)>
3245 <FRAME '
\1aCHANNEL-OP>
3247 <PUSH 'WRITE-BUFFER>
3248 <GVAL 'OUTPUT-BUFFER = OB9>
3250 <CALL '
\1aCHANNEL-OP 3>
3252 <AND RBYT35 #WORD *37* = TEMP37>
3254 <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
3255 <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
3256 <PUTUS OB9 1 TEMP37>
3258 <RESTUS OB9 1 = OB9 (TYPE STRING)>
3259 <EMPUS? OB9 - PHRASE75 (TYPE STRING)>
3260 <FRAME '
\1aCHANNEL-OP>
3262 <PUSH 'WRITE-BUFFER>
3263 <GVAL 'OUTPUT-BUFFER = OB9>
3265 <CALL '
\1aCHANNEL-OP 3>
3267 <SUB I31 1 = I31 (TYPE FIX)>
3268 <VEQUAL? I31 0 - AGAIN65 (TYPE FIX)>
3269 <ADD LEN10 4 = LEN10 (TYPE FIX)>
3272 <TYPE? WRD25 <TYPE-CODE CONST-W-LOCAL> - PHRASE81>
3273 <NTHL WRD25 1 = TEMP37>
3274 <GVAL 'FINAL-LOCALS = I31>
3275 <TYPE TEMP37 = RBYT35>
3276 <EMPL? I31 + PHRASE83>
3277 <LOOP (TEMP37 VALUE) (RBYT35 VALUE) (I31 VALUE)>
3279 <NTHL I31 1 = TEMP89>
3280 <TYPE? TEMP89 RBYT35 - TAG87>
3281 <VEQUAL? TEMP89 TEMP37 + TAG85>
3284 <RESTL I31 1 = I31 (TYPE LIST)>
3288 <RESTL WRD25 1 = RBYT35 (TYPE LIST)>
3289 <NTHL RBYT35 1 = RBYT35>
3290 <AND RBYT35 #WORD *777777000000* = RBYT35>
3291 <RESTL WRD25 1 = TEMP37 (TYPE LIST)>
3293 <NTHL TEMP37 1 = TEMP37>
3294 <RESTL I31 1 = TEMP89 (TYPE LIST)>
3296 <NTHL TEMP89 1 = TEMP89 (TYPE FIX)>
3297 <ADD TEMP37 TEMP89 = TEMP37 (TYPE FIX)>
3299 <AND TEMP37 #WORD *777777* = TEMP37>
3300 <OR RBYT35 TEMP37 = WRD25>
3301 <DEAD RBYT35 TEMP37>
3305 <PUSH "**** WARNING unknown local: ">
3306 <GVAL 'OUTCHAN = STACK>
3309 <NTHL WRD25 1 = STACK>
3311 <GVAL 'OUTCHAN = STACK>
3315 <GVAL 'OUTCHAN = STACK>
3318 <GEN-LVAL 'NAME = STACK>
3319 <GVAL 'OUTCHAN = STACK>
3322 <GVAL 'OUTCHAN = STACK>
3324 <SET WRD25 0 (TYPE FIX)>
3326 <SET I31 4 (TYPE FIX)>
3330 <ROT WRD25 9 = WRD25 (TYPE FIX)>
3332 <LSH RBYT35 -5 = TEMP37 (TYPE FIX)>
3333 <AND TEMP37 #WORD *17* = TEMP37>
3334 <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
3335 <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
3336 <PUTUS OB9 1 TEMP37>
3338 <RESTUS OB9 1 = OB9 (TYPE STRING)>
3339 <EMPUS? OB9 - PHRASE106 (TYPE STRING)>
3340 <FRAME '
\1aCHANNEL-OP>
3342 <PUSH 'WRITE-BUFFER>
3343 <GVAL 'OUTPUT-BUFFER = OB9>
3345 <CALL '
\1aCHANNEL-OP 3>
3347 <AND RBYT35 #WORD *37* = TEMP37>
3349 <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
3350 <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
3351 <PUTUS OB9 1 TEMP37>
3353 <RESTUS OB9 1 = OB9 (TYPE STRING)>
3354 <EMPUS? OB9 - PHRASE109 (TYPE STRING)>
3355 <FRAME '
\1aCHANNEL-OP>
3357 <PUSH 'WRITE-BUFFER>
3358 <GVAL 'OUTPUT-BUFFER = OB9>
3360 <CALL '
\1aCHANNEL-OP 3>
3362 <SUB I31 1 = I31 (TYPE FIX)>
3363 <VEQUAL? I31 0 - AGAIN100 (TYPE FIX)>
3364 <ADD LEN10 4 = LEN10 (TYPE FIX)>
3366 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
3369 <FRAME '
\1aCHANNEL-OP>
3372 <PUSH 'WRITE-BUFFER>
3373 <GVAL 'OUTPUT-BUFFER = STACK>
3374 <LENUS OB9 = TEMP20 (TYPE FIX)>
3376 <SUB 1024 TEMP20 = STACK (TYPE FIX)>
3378 <CALL '
\1aCHANNEL-OP 4>
3381 <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
3382 <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
3388 <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
3389 <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
3392 <GVAL 'BOOT-MODE = TEMP20>
3393 <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE129>
3395 <GVAL 'INT-MODE = TEMP20>
3396 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE125>
3399 <PUSH "!-IMSUBR!- ">
3400 <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
3401 <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
3408 <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
3409 <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
3413 <RESTL MVECTOR11 1 = TEMP20 (TYPE LIST)>
3414 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
3415 <RESTL TEMP20 1 = WRD25 (TYPE LIST)>
3420 <EMPL? WRD25 + MAPAP137>
3421 <NTHL WRD25 1 = TEMP37>
3424 <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
3425 <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
3428 <TYPE? TEMP37 <TYPE-CODE CHARACTER> - PHRASE149>
3429 <FRAME '
\1aPRINTTYPE>
3431 <GVAL 'CHR-PRINT = STACK>
3432 <CALL '
\1aPRINTTYPE 2>
3436 <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
3437 <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
3440 <FRAME '
\1aPRINTTYPE>
3442 <GVAL 'PRINT = STACK>
3443 <CALL '
\1aPRINTTYPE 2>
3446 <TYPE? TEMP37 <TYPE-CODE CONST-W-LOCAL> - PHRASE155>
3447 <NTHL TEMP37 1 = TEMP20>
3448 <GVAL 'FINAL-LOCALS = I31>
3449 <TYPE TEMP20 = RBYT35>
3450 <EMPL? I31 + TAG156>
3451 <LOOP (TEMP20 VALUE) (RBYT35 VALUE) (I31 VALUE)>
3453 <NTHL I31 1 = TEMP89>
3454 <TYPE? TEMP89 RBYT35 - TAG159>
3455 <VEQUAL? TEMP89 TEMP20 + TAG157>
3458 <RESTL I31 1 = I31 (TYPE LIST)>
3459 <EMPL? I31 - TAG158>
3461 <SET I31 %<> (TYPE FALSE)>
3463 <RESTL I31 1 = I31 (TYPE LIST)>
3465 <RESTL TEMP37 1 = RBYT35 (TYPE LIST)>
3467 <NTHL RBYT35 1 = RBYT35>
3468 <ADD I31 RBYT35 = TEMP37 (TYPE FIX)>
3473 <NTHR 'OUTCHAN 2 = RBYT35 (RECORD-TYPE ATOM) (TYPE LBIND)>
3474 <NTHR RBYT35 1 = STACK (RECORD-TYPE LBIND)>
3482 <NTHR 'OUTCHAN 2 = RBYT35 (RECORD-TYPE ATOM) (TYPE LBIND)>
3483 <NTHR RBYT35 1 = STACK (RECORD-TYPE LBIND)>
3487 <RESTL WRD25 1 = WRD25 (TYPE LIST)>
3490 <GVAL 'GLUE-MODE = WRD25>
3491 <TYPE? WRD25 <TYPE-CODE FALSE> + PHRASE171>
3494 <NTHR 'OUTCHAN 2 = WRD25 (RECORD-TYPE ATOM) (TYPE LBIND)>
3495 <NTHR WRD25 1 = STACK (RECORD-TYPE LBIND)>
3502 <NTHR 'OUTCHAN 2 = WRD25 (RECORD-TYPE ATOM) (TYPE LBIND)>
3503 <NTHR WRD25 1 = STACK (RECORD-TYPE LBIND)>
3506 <GVAL 'BOOT-MODE = WRD25>
3507 <TYPE? WRD25 <TYPE-CODE FALSE> - PHRASE179>
3511 <NTHR 'OUTCHAN 2 = WRD25 (RECORD-TYPE ATOM) (TYPE LBIND)>
3512 <NTHR WRD25 1 = STACK (RECORD-TYPE LBIND)>
3517 <NTHR 'OUTCHAN 2 = WRD25 (RECORD-TYPE ATOM) (TYPE LBIND)>
3518 <NTHR WRD25 1 = STACK (RECORD-TYPE LBIND)>
3521 <GVAL 'VERBOSE = WRD25>
3522 <TYPE? WRD25 <TYPE-CODE FALSE> + PHRASE187>
3524 <GETS 'BIND = WRD25 (TYPE LBIND)>
3526 <TYPE? TEMP37 <TYPE-CODE FALSE> - PHRASE194>
3528 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE191>
3530 <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
3531 <NTHR TEMP37 1 = TEMP37 (RECORD-TYPE LBIND)>
3534 <GVAL 'OUTCHAN = TEMP37>
3536 <BBIND 'OUTCHAN 'CHANNEL 'FIX TEMP37>
3540 <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
3541 <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
3545 <DIV LEN10 4 = STACK (TYPE FIX)>
3547 <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
3548 <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
3552 <PUSH " / Vector: ">
3553 <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
3554 <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
3558 <LENL MVECTOR11 = TEMP37 (TYPE FIX)>
3560 <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
3561 <LSH TEMP37 1 = STACK (TYPE FIX)>
3563 <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
3564 <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
3569 <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
3570 <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
3577 <GVAL 'NULL = WRD25>
3588 <END
\1aWRITE-CODE>
\r\r
3590 <GFCN
\1aASS-INS ("VALUE" <OR FALSE FIX> <OR CONST-W-LOCAL CONSTANT FIX WORD INST ATOM>) WRD4>
3591 <TEMP (AC?6 %<>) (ADR7:FIX 0) (IDX8:FIX 0) (INS9:FIX 0) (IND10:FIX 0) TEMP25:VECTOR FROB30 M5 TEMP39 TEMP79>
3593 <TYPE? WRD4 <TYPE-CODE ATOM> - PHRASE14>
3596 <TYPE? WRD4 <TYPE-CODE INST> + TAG17>
3599 <CHTYPE WRD4 <TYPE-CODE VECTOR> = TEMP25>
3604 <EMPUV? TEMP25 + MAPAP23>
3605 <NTHUV TEMP25 1 = FROB30>
3606 <EQUAL? FROB30 '@ - PHRASE32>
3607 <SET IND10 16 (TYPE FIX)>
3610 <TYPE? FROB30 <TYPE-CODE ATOM> - PHRASE33>
3612 <EMPUV? M5 + PHRASE33>
3613 <LOOP (FROB30 VALUE) (M5 LENGTH VALUE)>
3615 <NTHUV M5 1 = TEMP39>
3616 <TYPE? TEMP39 <TYPE-CODE ATOM> - TAG38>
3617 <VEQUAL? TEMP39 FROB30 + TAG36>
3620 <RESTUV M5 1 = M5 (TYPE VECTOR)>
3624 <TYPE? AC?6 <TYPE-CODE FALSE> - BOOL42>
3625 <VEQUAL? IND10 0 + PHRASE41 (TYPE FIX)>
3627 <NTHUV M5 2 = TEMP39 (TYPE FIX)>
3629 <ADD TEMP39 ADR7 = ADR7 (TYPE FIX)>
3633 <NTHUV M5 2 = AC?6 (TYPE FIX)>
3637 <TYPE? FROB30 <TYPE-CODE LOCAL-NAME> - PHRASE46>
3638 <GVAL 'FINAL-LOCALS = M5>
3639 <EMPL? M5 + PHRASE48>
3640 <LOOP (FROB30 VALUE) (M5 VALUE)>
3642 <NTHL M5 1 = TEMP39>
3643 <TYPE? TEMP39 <TYPE-CODE LOCAL-NAME> - TAG52>
3644 <VEQUAL? TEMP39 FROB30 + TAG50>
3647 <RESTL M5 1 = M5 (TYPE LIST)>
3651 <RESTL M5 1 = TEMP39 (TYPE LIST)>
3653 <NTHL TEMP39 1 = TEMP39>
3654 <ADD TEMP39 ADR7 = ADR7 (TYPE FIX)>
3658 <SET ADR7 0 (TYPE FIX)>
3660 <PUSH "**** WARNING unknown local: ">
3661 <GVAL 'OUTCHAN = STACK>
3666 <GVAL 'OUTCHAN = STACK>
3670 <GVAL 'OUTCHAN = STACK>
3673 <GEN-LVAL 'NAME = STACK>
3674 <GVAL 'OUTCHAN = STACK>
3677 <GVAL 'OUTCHAN = STACK>
3681 <TYPE? FROB30 <TYPE-CODE ATOM> - PHRASE61>
3683 <NTHR FROB30 3 = STACK (RECORD-TYPE ATOM)>
3685 <CALL '
\1aLOOKUP 2 = M5>
3686 <TYPE? M5 <TYPE-CODE FALSE> - PHRASE66>
3688 <NTHR FROB30 3 = STACK (RECORD-TYPE ATOM)>
3689 <GVAL 'JSYS-OBLIST = STACK>
3690 <CALL '
\1aLOOKUP 2 = M5>
3691 <TYPE? M5 <TYPE-CODE FALSE> - PHRASE66>
3697 <NTHR FROB30 1 = M5 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE68)>
3698 <TYPE? M5 <TYPE-CODE FALSE> + PHRASE68>
3699 <NTHR M5 1 = M5 (RECORD-TYPE GBIND)>
3700 <TYPE? M5 <TYPE-CODE UNBOUND> + PHRASE68>
3703 <TYPE? M5 <TYPE-CODE JSYS> - PHRASE68>
3706 <LSH M5 -27 = INS9 (TYPE FIX)>
3710 <AND M5 #WORD *777777* = ADR7>
3714 <NTHR FROB30 1 = M5 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE70)>
3715 <TYPE? M5 <TYPE-CODE FALSE> + PHRASE70>
3716 <NTHR M5 1 = M5 (RECORD-TYPE GBIND)>
3717 <TYPE? M5 <TYPE-CODE UNBOUND> + PHRASE70>
3719 <GVAL FROB30 = INS9>
3723 <FRAME '
\1aMIMOCERR>
3724 <PUSH 'BAD-OPCODE!-ERRORS>
3727 <CALL '
\1aMIMOCERR 2>
3730 <TYPE? FROB30 <TYPE-CODE LIST> - PHRASE73>
3731 <NTHL FROB30 1 = FROB30>
3733 <TYPE FROB30 = TEMP39>
3735 <LOOP (FROB30 VALUE) (TEMP39 VALUE) (M5 LENGTH VALUE)>
3737 <NTHUV M5 1 = TEMP79>
3738 <TYPE? TEMP79 TEMP39 - TAG77>
3739 <VEQUAL? TEMP79 FROB30 + TAG75>
3742 <RESTUV M5 1 = M5 (TYPE VECTOR)>
3745 <SET M5 %<> (TYPE FALSE)>
3747 <CHTYPE M5 <TYPE-CODE VECTOR> = M5>
3748 <NTHUV M5 2 = IDX8 (TYPE FIX)>
3752 <FRAME '
\1aPRIMTYPE>
3754 <CALL '
\1aPRIMTYPE 1 = M5>
3755 <SET TEMP39 [WORD FIX] (TYPE VECTOR)>
3756 <LOOP (M5 VALUE) (TEMP39 LENGTH VALUE)>
3758 <NTHUV TEMP39 1 = TEMP79>
3759 <VEQUAL? TEMP79 M5 + TAG81>
3761 <RESTUV TEMP39 1 = TEMP39 (TYPE VECTOR)>
3762 <EMPUV? TEMP39 - TAG82>
3765 <ADD FROB30 ADR7 = ADR7 (TYPE FIX)>
3769 <FRAME '
\1aMIMOCERR>
3770 <PUSH 'BAD-THING-IN-CODE!-ERRORS>
3773 <CALL '
\1aMIMOCERR 2>
3775 <RESTUV TEMP25 1 = TEMP25 (TYPE VECTOR)>
3778 <TYPE? AC?6 <TYPE-CODE FALSE> - PHRASE87>
3779 <SET AC?6 0 (TYPE FIX)>
3781 <LSH INS9 27 = INS9 (TYPE FIX)>
3782 <LSH AC?6 5 = AC?6 (TYPE FIX)>
3783 <ADD AC?6 IND10 = AC?6 (TYPE FIX)>
3785 <ADD AC?6 IDX8 = AC?6 (TYPE FIX)>
3787 <LSH AC?6 18 = AC?6 (TYPE FIX)>
3788 <OR INS9 AC?6 = INS9>
3790 <AND ADR7 #WORD *777777* = AC?6>
3792 <OR INS9 AC?6 = AC?6>
3798 <GFCN
\1aDUMP-CODE ("VALUE" ANY LIST CHANNEL) CODE4 TC5>
3799 <TEMP CB6 TCB7 TEMP8 WRD19>
3801 <GVAL 'CODE-BUFFER = CB6>
3803 <GVAL 'CODE-LENGTH = TEMP8>
3806 <RESTUU CB6 1 = CB6 (TYPE UVECTOR)>
3807 <SET TEMP8 CODE4 (TYPE LIST)>
3812 <EMPL? TEMP8 + MAPAP13>
3813 <NTHL TEMP8 1 = WRD19>
3817 <CALL '
\1aASS-INS 1 = WRD19>
3818 <TYPE? WRD19 <TYPE-CODE FALSE> + PHRASE24>
3821 <RESTUU CB6 1 = CB6 (TYPE UVECTOR)>
3822 <EMPUU? CB6 - PHRASE24 (TYPE UVECTOR)>
3829 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
3832 <VEQUAL? CB6 TCB7 - TAG28>
3840 <GVAL 'CB-LENGTH = TCB7>
3841 <LENUU CB6 = CB6 (TYPE FIX)>
3842 <SUB TCB7 CB6 = STACK (TYPE FIX)>
3844 <CALL '
\1aPRINTB 3 = TEMP8>
3849 <GFCN
\1aREAD-CODE ("VALUE" <UVECTOR FIX> ANY) TC4>
3850 <TEMP FB5:UVECTOR TEMP8>
3852 <GVAL 'ONE-WD = FB5>
3858 <NTHUU FB5 1 = TEMP8 (TYPE FIX)>
3860 <UUBLOCK <TYPE-CODE UVECTOR> TEMP8 = FB5>
3863 <LOOP (TEMP8 VALUE LENGTH)>
3865 <EMPUU? TEMP8 + ISTRE10>
3867 <RESTUU TEMP8 1 = TEMP8>
3878 <GFCN
\1aNOPE ("VALUE" ANY LIST) L4>
3881 <FRAME '
\1aMIMOCERR>
3882 <PUSH 'CANT-OPEN-COMPILE!-ERRORS>
3885 <CALL '
\1aMIMOCERR 2 = TEMP6>
3890 <GFCN
\1aMIMOCERR ("VALUE" ANY "TUPLE" ANY)>
3891 <MAKTUP T4:TUPLE TEMP6 X20 = T4>
3896 <GEN-LVAL 'OUTCHAN = STACK>
3898 <CHTYPE T4 <TYPE-CODE VECTOR> = TEMP6>
3902 <EMPUV? TEMP6 + MAPAP13>
3903 <NTHUV TEMP6 1 = X20>
3907 <GEN-LVAL 'OUTCHAN = STACK>
3911 <GEN-LVAL 'OUTCHAN = STACK>
3913 <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
3917 <SET X20 0 (TYPE FIX)>
3920 <LOOP (TEMP6 VALUE LENGTH) (X20 VALUE)>
3923 <EMPUV? TEMP6 + TAG29>
3924 <NTHUV TEMP6 1 = STACK>
3925 <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
3926 <ADD X20 1 = X20 (TYPE FIX)>
3929 <CALL '
\1aERROR X20>
3933 <GEN-LVAL 'MACT = STACK>
3934 <CALL '
\1aRETURN 2 = TEMP6>
3939 <GFCN
\1aDOC ("VALUE" ATOM "TUPLE" ANY)>
3940 <MAKTUP NAM4 TEMP7:LBIND TEMP12 TEMP16 = NAM4>
3942 <GETS 'BIND = TEMP7 (TYPE LBIND)>
3946 <NTHUV NAM4 1 = STACK>
3947 <CALL '
\1aGET-NM1 1 = STACK>
3949 <UBLOCK <TYPE-CODE STRING> 2 = STACK (TYPE STRING)>
3950 <CALL '
\1aOPEN 2 = TEMP12>
3951 <BBIND 'OUTCHAN 'CHANNEL 'FIX TEMP12>
3953 <NTHR 'OUTCHAN 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
3954 <NTHR TEMP16 1 = TEMP12 (RECORD-TYPE LBIND)>
3957 <NTHR 'OUTCHAN 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
3958 <NTHR TEMP16 1 = TEMP12 (RECORD-TYPE LBIND)>
3962 <GVAL 'GLUE-MODE = TEMP12>
3963 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE22>
3965 <FRAME '
\1aFILE-GLUE>
3966 <SET TEMP16 0 (TYPE FIX)>
3969 <LOOP (TEMP12 VALUE LENGTH) (TEMP16 VALUE)>
3972 <EMPUV? TEMP12 + TAG23>
3973 <NTHUV TEMP12 1 = STACK>
3974 <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
3975 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3978 <CALL '
\1aFILE-GLUE TEMP16>
3982 <FRAME '
\1aFILE-MIMOC>
3983 <SET TEMP12 0 (TYPE FIX)>
3986 <LOOP (TEMP16 VALUE LENGTH) (TEMP12 VALUE)>
3989 <EMPUV? TEMP16 + TAG27>
3990 <NTHUV TEMP16 1 = STACK>
3991 <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
3992 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
3995 <CALL '
\1aFILE-MIMOC TEMP12>
3999 <NTHR 'OUTCHAN 2 = TEMP12 (RECORD-TYPE ATOM) (TYPE LBIND)>
4000 <NTHR TEMP12 1 = STACK (RECORD-TYPE LBIND)>
4003 <SET NAM4 'T (TYPE ATOM)>