2 <COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD">)>
6 <NEWTYPE LOCAL-NAME FIX>
16 <MANIFEST PRIM-LIST PRIM-FIX>
19 <GFCN
\1aNTHL!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY ANY ANY) L12 AOS13 NOT-DEAD?14 LEN-VAR15>
20 <OPT-DISPATCH 1 %<> OPT8 OPT9 OPT10 OPT11>
28 <TEMP LST16 (TEMP27 %<>) AMT17 VAL18 LOOP19:ATOM END20:ATOM (AHEAD23 %<>) AC24 TEMP50 NAC25 TEMP113>
31 <RESTL L12 1 = TEMP27 (TYPE LIST)>
32 <NTHL TEMP27 1 = AMT17>
34 <RESTL L12 1 = TEMP27 (TYPE LIST)>
35 <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
36 <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
37 <NTHL TEMP27 1 = VAL18>
41 <CALL '
\1aGENLBL 1 = LOOP19>
44 <CALL '
\1aGENLBL 1 = END20>
48 <CALL '
\1aEXTRAMEM 2 = TEMP27>
49 <TYPE? AOS13 <TYPE-CODE FALSE> - BOOL32>
50 <FRAME '
\1aNTH-PUT-LOOK-AHEAD>
57 <CALL '
\1aNTH-PUT-LOOK-AHEAD 5 = TEMP27>
58 <TYPE? TEMP27 <TYPE-CODE FALSE> - PHRASE187>
60 <TYPE? LEN-VAR15 <TYPE-CODE UNBOUND> + PHRASE36>
61 <TYPE? NOT-DEAD?14 <TYPE-CODE FALSE> + PHRASE36>
68 <CALL '
\1aIN-AC? 2 = TEMP27>
69 <TYPE? TEMP27 <TYPE-CODE FALSE> + BOOL41>
72 <CALL '
\1aNEXT-AC 1 = AC24>
73 <TYPE? AC24 <TYPE-CODE FALSE> - PHRASE39>
78 <CALL '
\1aIN-AC? 2 = AC24>
79 <TYPE? AC24 <TYPE-CODE FALSE> - PHRASE39>
80 <TYPE? AOS13 <TYPE-CODE FALSE> + BOOL48>
81 <TYPE? NOT-DEAD?14 <TYPE-CODE FALSE> + PHRASE46>
83 <EQUAL? LST16 VAL18 + PHRASE46>
84 <FRAME '
\1aLOOK-AHEAD>
85 <GEN-LVAL 'MIML = TEMP50>
86 <RESTL TEMP50 1 = STACK (TYPE LIST)>
90 <CALL '
\1aLOOK-AHEAD 3 = AHEAD23>
91 <TYPE? AHEAD23 <TYPE-CODE FALSE> + PHRASE46>
92 <GVAL 'AC-STAMP = TEMP50>
93 <ADD TEMP50 1 = TEMP50 (TYPE FIX)>
94 <SETG 'AC-STAMP TEMP50>
95 <PUTUV AHEAD23 4 TEMP50 (TYPE FIX)>
100 <CALL '
\1aNEXT-AC 1 = STACK>
101 <CALL '
\1aGET-AC 1 = TEMP50>
102 <GVAL 'AC-STAMP = TEMP27>
103 <PUTUV TEMP50 4 TEMP27 (TYPE FIX)>
110 <CALL '
\1aLOAD-AC 2 = TEMP27>
112 <CALL '
\1aNEXT-AC 1 = AC24>
114 <FRAME '
\1aWILL-DIE?>
116 <CALL '
\1aWILL-DIE? 1 = TEMP50>
117 <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE65>
119 <EQUAL? LST16 VAL18 + PHRASE65>
120 <EQUAL? AMT17 1 + PHRASE65>
121 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE63>
125 <CALL '
\1aFLUSH-AC 2>
130 <CALL '
\1aFLUSH-AC 1>
132 <EQUAL? AMT17 VAL18 - PHRASE68>
136 <CALL '
\1aIN-AC? 2 = TEMP50>
137 <TYPE? TEMP50 <TYPE-CODE FALSE> - BOOL70>
141 <CALL '
\1aIN-AC? 2 = TEMP50>
148 <CALL '
\1aFLUSH-AC 2>
150 <TYPE? AOS13 <TYPE-CODE FALSE> + BOOL77>
151 <TYPE? NOT-DEAD?14 <TYPE-CODE FALSE> + PHRASE80>
153 <EQUAL? VAL18 'STACK + PHRASE80>
161 <CALL '
\1aLOAD-AC 5 = NAC25>
162 <EQUAL? NAC25 TEMP27 - PHRASE80>
163 <EQUAL? LST16 VAL18 - PHRASE80>
166 <CALL '
\1aGET-AC 1 = TEMP50>
170 <EQUAL? AMT17 1 + PHRASE138>
171 <TYPE? AMT17 <TYPE-CODE ATOM> - BOOL100>
175 <CALL '
\1aIN-AC? 2 = AHEAD23>
176 <TYPE? AHEAD23 <TYPE-CODE FALSE> + BOOL88>
177 <FRAME '
\1aWILL-DIE?>
179 <CALL '
\1aWILL-DIE? 1 = TEMP50>
180 <TYPE? TEMP50 <TYPE-CODE FALSE> + BOOL91>
182 <FRAME '
\1aDEAD!-MIMOC>
183 <CONS AMT17 () = STACK>
185 <CALL '
\1aDEAD!-MIMOC 2 = TEMP50>
186 <TYPE? TEMP50 <TYPE-CODE FALSE> - BOOL90>
192 <CALL '
\1aNEXT-AC 1 = STACK>
193 <CALL '
\1aGET-AC 1 = TEMP50>
194 <NTHUV TEMP50 5 = TEMP50>
195 <TYPE? TEMP50 <TYPE-CODE FALSE> - BOOL88>
198 <FRAME '
\1aMUNGED-AC>
201 <CALL '
\1aMUNGED-AC 2>
205 <CALL '
\1aNEXT-AC 1 = AHEAD23>
207 <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE111>
213 <CALL '
\1aIN-AC? 2 = AHEAD23>
214 <TYPE? AHEAD23 <TYPE-CODE FALSE> + BOOL100>
215 <FRAME '
\1aWILL-DIE?>
217 <CALL '
\1aWILL-DIE? 1 = TEMP50>
218 <TYPE? TEMP50 <TYPE-CODE FALSE> + BOOL103>
220 <FRAME '
\1aDEAD!-MIMOC>
221 <CONS AMT17 () = STACK>
223 <CALL '
\1aDEAD!-MIMOC 2 = TEMP50>
224 <TYPE? TEMP50 <TYPE-CODE FALSE> - BOOL102>
229 <CALL '
\1aGET-AC 1 = TEMP50>
230 <NTHUV TEMP50 5 = TEMP50>
231 <TYPE? TEMP50 <TYPE-CODE FALSE> - BOOL100>
234 <FRAME '
\1aMUNGED-AC>
237 <CALL '
\1aMUNGED-AC 2 = TEMP50>
238 <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE111>
243 <SET AHEAD23 'O* (TYPE ATOM)>
245 <SET TEMP113 2 (TYPE FIX)>
249 <SCALL '
\1aOBJ-VAL 1 = TEMP50 + TAG112 TEMP113>
250 <LOOP (TEMP50 TYPE VALUE LENGTH) (TEMP113 VALUE)>
253 <EMPTY? TEMP50 + TAG112>
254 <NTH1 TEMP50 = STACK>
255 <REST1 TEMP50 = TEMP50>
256 <ADD TEMP113 1 = TEMP113 (TYPE FIX)>
259 <CALL '
\1aOCEMIT TEMP113>
263 <SET TEMP50 1 (TYPE FIX)>
264 <GVAL 'LOOPTAGS = TEMP113>
265 <TYPE TEMP113 = AMT17>
266 <AND AMT17 7 = AMT17>
267 <VEQUAL? AMT17 1 + TAG119>
269 <LOOP (TEMP113 TYPE VALUE LENGTH) (TEMP50 VALUE)>
272 <EMPTY? TEMP113 + TAG124>
273 <NTH1 TEMP113 = STACK>
274 <REST1 TEMP113 = TEMP113>
275 <ADD TEMP50 1 = TEMP50 (TYPE FIX)>
278 <LIST TEMP50 = TEMP113 (TYPE LIST)>
284 <VEQUAL? TEMP50 0 + TAG121>
286 <CONS AMT17 TEMP113 = TEMP113 (TYPE LIST)>
288 <SUB TEMP50 1 = TEMP50 (TYPE FIX)>
292 <SETG 'LOOPTAGS TEMP113>
303 <CALL '
\1aXJUMP 1 = STACK>
308 <CONS AC24 () = STACK>
315 <CALL '
\1aXJUMP 1 = STACK>
321 <EQUAL? LST16 VAL18 + PHRASE138>
323 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE136>
324 <FRAME '
\1aMUNGED-AC>
328 <CALL '
\1aMUNGED-AC 2>
331 <FRAME '
\1aMUNGED-AC>
333 <CALL '
\1aMUNGED-AC 1>
335 <TYPE? AOS13 <TYPE-CODE FALSE> + PHRASE141>
336 <EQUAL? VAL18 'STACK - PHRASE143>
341 <EQUAL? AOS13 'HRRZ - PHRASE146>
343 <SET TEMP113 1 (TYPE FIX)>
346 <SET TEMP113 2 (TYPE FIX)>
350 <CONS AC24 () = STACK>
356 <SET AMT17 2 (TYPE FIX)>
359 <SCALL '
\1aTYPE-WORD 1 = TEMP113 + TAG148 AMT17>
360 <LOOP (TEMP113 TYPE VALUE LENGTH) (AMT17 VALUE)>
363 <EMPTY? TEMP113 + TAG148>
364 <NTH1 TEMP113 = STACK>
365 <REST1 TEMP113 = TEMP113>
366 <ADD AMT17 1 = AMT17 (TYPE FIX)>
369 <CALL '
\1aOCEMIT AMT17>
376 <GVAL 'WINNING-VICTIM = TEMP27>
377 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE177>
378 <GVAL 'STACK-DEPTH = AMT17>
379 <ADD AMT17 2 = AMT17 (TYPE FIX)>
380 <SETG 'STACK-DEPTH AMT17>
384 <TYPE? NOT-DEAD?14 <TYPE-CODE FALSE> + PHRASE155>
390 <CALL '
\1aNEXT-AC 1 = STACK>
391 <EQUAL? AOS13 'HRRZ - PHRASE159>
393 <SET AMT17 1 (TYPE FIX)>
396 <SET AMT17 2 (TYPE FIX)>
400 <CONS AC24 () = STACK>
406 <CALL '
\1aGET-AC 1 = AMT17>
411 <TYPE? AOS13 <TYPE-CODE FORM> - PHRASE162>
412 <NTHL AOS13 1 = AMT17 (TYPE ATOM)>
413 <NTHR AMT17 3 = AMT17 (RECORD-TYPE ATOM)>
414 <IFCAN "STRING-EQUAL?">
415 <STRING-EQUAL? AMT17 "VEQUAL?" - PHRASE164>
416 <ENDIF "STRING-EQUAL?">
417 <IFCANNOT "STRING-EQUAL?">
418 <SET TEMP113 "VEQUAL?" (TYPE STRING)>
419 <LENUS AMT17 = LST16 (TYPE FIX)>
420 <VEQUAL? LST16 7 - PHRASE164>
421 <LOOP (AMT17 VALUE LENGTH) (TEMP113 VALUE LENGTH) (LST16 VALUE)>
423 <NTHUS AMT17 1 = TEMP27>
424 <NTHUS TEMP113 1 = VAL18>
425 <VEQUAL? TEMP27 VAL18 - PHRASE164>
427 <RESTUS AMT17 1 = AMT17 (TYPE STRING)>
428 <RESTUS TEMP113 1 = TEMP113 (TYPE STRING)>
429 <SUB LST16 1 = LST16 (TYPE FIX)>
430 <GRTR? LST16 0 + TAG168 (TYPE FIX)>
431 <ENDIF "STRING-EQUAL?">
432 <FRAME '
\1aVEQUAL?!-MIMOC>
433 <RESTL AOS13 1 = TEMP113 (TYPE LIST)>
435 <CHTYPE TEMP113 <TYPE-CODE LIST> = STACK>
441 <CALL '
\1aVEQUAL?!-MIMOC 4 = TEMP27>
445 <NTHL AOS13 1 = AMT17 (TYPE ATOM)>
446 <NTHR AMT17 3 = AMT17 (RECORD-TYPE ATOM)>
447 <IFCAN "STRING-EQUAL?">
448 <STRING-EQUAL? AMT17 "TYPE?" - PHRASE170>
449 <ENDIF "STRING-EQUAL?">
450 <IFCANNOT "STRING-EQUAL?">
451 <SET VAL18 "TYPE?" (TYPE STRING)>
452 <LENUS AMT17 = TEMP27 (TYPE FIX)>
453 <VEQUAL? TEMP27 5 - PHRASE170>
454 <LOOP (AMT17 VALUE LENGTH) (VAL18 VALUE LENGTH) (TEMP27 VALUE)>
456 <NTHUS AMT17 1 = LST16>
457 <NTHUS VAL18 1 = AHEAD23>
458 <VEQUAL? LST16 AHEAD23 - PHRASE170>
460 <RESTUS AMT17 1 = AMT17 (TYPE STRING)>
461 <RESTUS VAL18 1 = VAL18 (TYPE STRING)>
462 <SUB TEMP27 1 = TEMP27 (TYPE FIX)>
463 <GRTR? TEMP27 0 + TAG173 (TYPE FIX)>
464 <ENDIF "STRING-EQUAL?">
465 <FRAME '
\1aVEQUAL?!-MIMOC>
466 <RESTL AOS13 1 = AMT17 (TYPE LIST)>
467 <RESTL AMT17 1 = AMT17 (TYPE LIST)>
468 <RESTL AMT17 1 = VAL18 (TYPE LIST)>
470 <CHTYPE VAL18 <TYPE-CODE LIST> = STACK>
476 <RESTL AOS13 1 = AMT17 (TYPE LIST)>
478 <NTHL AMT17 1 = STACK>
480 <CALL '
\1aVEQUAL?!-MIMOC 5 = TEMP27>
484 <FRAME '
\1aEQUAL?!-MIMOC>
485 <RESTL AOS13 1 = AMT17 (TYPE LIST)>
487 <CHTYPE AMT17 <TYPE-CODE LIST> = STACK>
493 <CALL '
\1aEQUAL?!-MIMOC 4 = TEMP27>
499 <EQUAL? AOS13 'HRRZ - PHRASE180>
501 <SET AHEAD23 1 (TYPE FIX)>
504 <SET AHEAD23 2 (TYPE FIX)>
508 <CONS AC24 () = STACK>
510 <CALL '
\1aOCEMIT 3 = TEMP27>
515 <EQUAL? VAL18 'STACK - PHRASE182>
521 <CONS AC24 () = STACK>
527 <CONS AC24 () = STACK>
530 <GVAL 'WINNING-VICTIM = TEMP27>
531 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE187>
532 <GVAL 'STACK-DEPTH = AHEAD23>
533 <ADD AHEAD23 2 = AHEAD23 (TYPE FIX)>
534 <SETG 'STACK-DEPTH AHEAD23>
543 <CONS AC24 () = STACK>
545 <CALL '
\1aOCEMIT 4 = TEMP27>
549 <END
\1aNTHL!-MIMOC>
\r\r
551 <GFCN
\1aRESTL!-MIMOC ("VALUE" <OR FALSE FIX AC> LIST) L5>
552 <TEMP LST6 TEMP16 AMT7 VAL8 (TAC11 %<>) END12:ATOM LOOP13:ATOM LV14 AC9 NAC10 TEMP149>
555 <RESTL L5 1 = TEMP16 (TYPE LIST)>
556 <NTHL TEMP16 1 = AMT7>
558 <RESTL L5 1 = TEMP16 (TYPE LIST)>
560 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
561 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
562 <NTHL TEMP16 1 = VAL8>
566 <CALL '
\1aGENLBL 1 = END12>
569 <CALL '
\1aGENLBL 1 = LOOP13>
572 <GVAL 'LOCALS = STACK>
573 <CALL '
\1aLMEMQ 2 = TEMP16>
574 <TYPE? TEMP16 <TYPE-CODE FALSE> - BOOL21>
575 <GVAL 'ICALL-FLAG = TEMP16>
576 <TYPE? TEMP16 <TYPE-CODE FALSE> + BOOL21>
579 <GVAL 'ICALL-TEMPS = STACK>
580 <CALL '
\1aLMEMQ 2 = TEMP16>
585 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE24>
586 <NTHUV LV14 4 = TEMP16>
591 <EQUAL? AMT7 1 + BOOL27>
592 <EQUAL? AMT7 2 - PHRASE26>
597 <CALL '
\1aIN-AC? 2 = TAC11>
598 <TYPE? TAC11 <TYPE-CODE FALSE> + BOOL29>
601 <CALL '
\1aNEXT-AC 1 = AC9>
602 <TYPE? AC9 <TYPE-CODE FALSE> - PHRASE33>
607 <CALL '
\1aIN-AC? 2 = AC9>
613 <CALL '
\1aIN-AC? 2 = AC9>
614 <TYPE? AC9 <TYPE-CODE FALSE> + BOOL35>
619 <CALL '
\1aNEXT-AC 1 = AC9>
620 <TYPE? AC9 <TYPE-CODE FALSE> - PHRASE33>
625 <CALL '
\1aIN-AC? 2 = AC9>
626 <TYPE? AC9 <TYPE-CODE FALSE> - PHRASE33>
631 <CALL '
\1aLOAD-AC 2 = TAC11>
633 <CALL '
\1aNEXT-AC 1 = AC9>
635 <EQUAL? AMT7 VAL8 - PHRASE42>
639 <CALL '
\1aIN-AC? 2 = NAC10>
644 <CALL '
\1aFLUSH-AC 2>
646 <EQUAL? VAL8 LST6 + PHRASE47>
647 <FRAME '
\1aCLEAN-ACS>
649 <CALL '
\1aCLEAN-ACS 1>
651 <TYPE? TAC11 <TYPE-CODE FALSE> + PHRASE50>
652 <EQUAL? LST6 VAL8 + BOOL52>
653 <FRAME '
\1aWILL-DIE?>
655 <CALL '
\1aWILL-DIE? 1 = TEMP16>
656 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE50>
662 <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE54>
663 <EQUAL? LST6 VAL8 + BOOL56>
664 <FRAME '
\1aWILL-DIE?>
666 <CALL '
\1aWILL-DIE? 1 = TEMP16>
667 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE54>
674 <CALL '
\1aGETPROP 2 = TEMP16>
677 <CALL '
\1aGET-AC 1 = TAC11>
678 <TYPE? TAC11 <TYPE-CODE FALSE> + PHRASE54>
680 <NTHUV TAC11 1 = STACK (TYPE ATOM)>
681 <CALL '
\1aNEXT-AC 1 = TEMP16>
682 <EQUAL? TEMP16 AC9 - PHRASE54>
684 <NTHUV TAC11 1 = NAC10 (TYPE ATOM)>
685 <PUTUV TAC11 3 'TYPE (TYPE ATOM)>
688 <SET TAC11 %<> (TYPE FALSE)>
691 <CALL '
\1aFLUSH-AC 1>
694 <FRAME '
\1aASSIGN-AC>
698 <CALL '
\1aASSIGN-AC 3 = NAC10>
700 <EQUAL? AMT7 1 - PHRASE65>
701 <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE67>
706 <CALL '
\1aNEXT-AC 1 = STACK>
707 <CONS AC9 () = STACK>
715 <CALL '
\1aNEXT-AC 1 = STACK>
717 <SET AMT7 3 (TYPE FIX)>
720 <SCALL '
\1aOBJ-VAL 1 = TEMP16 + TAG71 AMT7>
721 <LOOP (TEMP16 TYPE VALUE LENGTH) (AMT7 VALUE)>
724 <EMPTY? TEMP16 + TAG71>
725 <NTH1 TEMP16 = STACK>
726 <REST1 TEMP16 = TEMP16>
727 <ADD AMT7 1 = AMT7 (TYPE FIX)>
730 <CALL '
\1aOCEMIT AMT7>
734 <EQUAL? AMT7 2 - PHRASE77>
735 <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE79>
740 <CALL '
\1aNEXT-AC 1 = STACK>
742 <CONS AC9 () = STACK>
750 <CALL '
\1aNEXT-AC 1 = STACK>
752 <SET TEMP16 3 (TYPE FIX)>
755 <SCALL '
\1aOBJ-VAL 1 = AMT7 + TAG83 TEMP16>
756 <LOOP (AMT7 TYPE VALUE LENGTH) (TEMP16 VALUE)>
759 <EMPTY? AMT7 + TAG83>
762 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
765 <CALL '
\1aOCEMIT TEMP16>
771 <CALL '
\1aNEXT-AC 1 = STACK>
774 <CALL '
\1aNEXT-AC 1 = TEMP16>
775 <CONS TEMP16 () = STACK>
780 <EQUAL? AMT7 3 - PHRASE91>
781 <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE93>
786 <CALL '
\1aNEXT-AC 1 = STACK>
788 <CONS AC9 () = STACK>
794 <CALL '
\1aNEXT-AC 1 = STACK>
797 <CALL '
\1aNEXT-AC 1 = TEMP16>
798 <CONS TEMP16 () = STACK>
807 <CALL '
\1aNEXT-AC 1 = STACK>
809 <SET AMT7 3 (TYPE FIX)>
812 <SCALL '
\1aOBJ-VAL 1 = TEMP16 + TAG100 AMT7>
813 <LOOP (TEMP16 TYPE VALUE LENGTH) (AMT7 VALUE)>
816 <EMPTY? TEMP16 + TAG100>
817 <NTH1 TEMP16 = STACK>
818 <REST1 TEMP16 = TEMP16>
819 <ADD AMT7 1 = AMT7 (TYPE FIX)>
822 <CALL '
\1aOCEMIT AMT7>
828 <CALL '
\1aNEXT-AC 1 = STACK>
832 <CALL '
\1aNEXT-AC 1 = AMT7>
833 <CONS AMT7 () = STACK>
838 <EQUAL? AMT7 4 - PHRASE108>
839 <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE110>
844 <CALL '
\1aNEXT-AC 1 = STACK>
846 <CONS AC9 () = STACK>
852 <CALL '
\1aNEXT-AC 1 = STACK>
856 <CALL '
\1aNEXT-AC 1 = AMT7>
857 <CONS AMT7 () = STACK>
866 <CALL '
\1aNEXT-AC 1 = STACK>
868 <SET TEMP16 3 (TYPE FIX)>
871 <SCALL '
\1aOBJ-VAL 1 = AMT7 + TAG117 TEMP16>
872 <LOOP (AMT7 TYPE VALUE LENGTH) (TEMP16 VALUE)>
875 <EMPTY? AMT7 + TAG117>
878 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
881 <CALL '
\1aOCEMIT TEMP16>
887 <CALL '
\1aNEXT-AC 1 = STACK>
891 <CALL '
\1aNEXT-AC 1 = TEMP16>
892 <CONS TEMP16 () = STACK>
899 <CALL '
\1aNEXT-AC 1 = STACK>
902 <CALL '
\1aNEXT-AC 1 = TEMP16>
903 <CONS TEMP16 () = STACK>
910 <CALL '
\1aNEXT-AC 1 = TEMP16>
911 <EQUAL? AC9 TEMP16 + PHRASE130>
917 <CALL '
\1aNEXT-AC 1 = STACK>
925 <EQUAL? AMT7 VAL8 + TAG135>
931 <CALL '
\1aSMASH-AC 4>
932 <EQUAL? AMT7 0 + PHRASE138>
933 <TYPE? AMT7 <TYPE-CODE ATOM> - PHRASE140>
940 <CALL '
\1aXJUMP 1 = STACK>
944 <SET AMT7 1 (TYPE FIX)>
945 <GVAL 'LOOPTAGS = TEMP16>
946 <TYPE TEMP16 = TEMP149>
947 <AND TEMP149 7 = TEMP149>
948 <VEQUAL? TEMP149 1 + TAG145>
950 <LOOP (TEMP16 TYPE VALUE LENGTH) (AMT7 VALUE)>
953 <EMPTY? TEMP16 + TAG150>
954 <NTH1 TEMP16 = STACK>
955 <REST1 TEMP16 = TEMP16>
956 <ADD AMT7 1 = AMT7 (TYPE FIX)>
959 <LIST AMT7 = TEMP16 (TYPE LIST)>
965 <VEQUAL? AMT7 0 + TAG147>
967 <CONS TEMP149 TEMP16 = TEMP16 (TYPE LIST)>
969 <SUB AMT7 1 = AMT7 (TYPE FIX)>
973 <SETG 'LOOPTAGS TEMP16>
982 <CALL '
\1aNEXT-AC 1 = STACK>
985 <CALL '
\1aNEXT-AC 1 = TEMP16>
986 <CONS TEMP16 () = STACK>
995 <CALL '
\1aXJUMP 1 = STACK>
1004 <CALL '
\1aGET-AC 1 = STACK>
1005 <PUSH %<OFFSET 2 AC>>
1011 <CALL '
\1aNEXT-AC 1 = TEMP16>
1012 <EQUAL? AC9 TEMP16 - PHRASE162>
1014 <EQUAL? VAL8 LST6 + PHRASE162>
1016 <EQUAL? VAL8 'STACK + PHRASE162>
1019 <CALL '
\1aGET-AC 1 = TEMP16>
1020 <PUTUV TEMP16 2 VAL8>
1021 <PUTUV TEMP16 3 'TYPE (TYPE ATOM)>
1026 <CALL '
\1aNEXT-AC 1 = STACK>
1027 <CALL '
\1aGET-AC 1 = TEMP16>
1028 <PUTUV TEMP16 2 VAL8>
1029 <PUTUV TEMP16 3 'VALUE (TYPE ATOM)>
1032 <TYPE? LV14 <TYPE-CODE FALSE> + PHRASE169>
1035 <CALL '
\1aGET-AC 1 = TEMP16>
1036 <PUTUV TEMP16 5 %<>>
1042 <CALL '
\1aGET-AC 1 = TEMP16>
1049 <CALL '
\1aNEXT-AC 1 = STACK>
1050 <CALL '
\1aGET-AC 1 = TEMP16>
1053 <EQUAL? VAL8 'STACK - PHRASE176>
1058 <SET TEMP149 2 (TYPE FIX)>
1061 <SCALL '
\1aTYPE-WORD 1 = TEMP16 + TAG177 TEMP149>
1062 <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP149 VALUE)>
1065 <EMPTY? TEMP16 + TAG177>
1066 <NTH1 TEMP16 = STACK>
1067 <REST1 TEMP16 = TEMP16>
1068 <ADD TEMP149 1 = TEMP149 (TYPE FIX)>
1071 <CALL '
\1aOCEMIT TEMP149>
1079 <CALL '
\1aNEXT-AC 1 = STACK>
1081 <GVAL 'WINNING-VICTIM = TEMP149>
1082 <TYPE? TEMP149 <TYPE-CODE FALSE> + PHRASE192>
1083 <GVAL 'STACK-DEPTH = TEMP16>
1084 <ADD TEMP16 2 = TEMP16 (TYPE FIX)>
1085 <SETG 'STACK-DEPTH TEMP16>
1089 <EQUAL? NAC10 TAC11 + PHRASE187>
1093 <CALL '
\1aGET-AC 1 = TEMP16>
1094 <PUTUV TEMP16 6 'LIST>
1097 <TYPE? LV14 <TYPE-CODE FALSE> + PHRASE190>
1102 <CALL '
\1aGET-AC 1 = TEMP16>
1103 <PUTUV TEMP16 5 %<>>
1110 <CALL '
\1aGET-AC 1 = TEMP16>
1112 <SET TEMP149 TEMP16>
1117 <END
\1aRESTL!-MIMOC>
1119 <GFCN
\1aEMPL?!-MIMOC ("VALUE" ANY LIST) L4>
1120 <TEMP LST5 TEMP17 FLAG6 TAG7:ATOM (JUMP8 'JUMPE) (SKIP9 'SKIPN) (AC-T12 %<>) (AC-T-2-15 %<>) AC10 NEW11>
1123 <RESTL L4 1 = TEMP17 (TYPE LIST)>
1124 <NTHL TEMP17 1 = FLAG6 (TYPE ATOM)>
1126 <RESTL L4 1 = TEMP17 (TYPE LIST)>
1127 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1128 <NTHL TEMP17 1 = TAG7 (TYPE ATOM)>
1132 <GVAL 'LOCALS = STACK>
1133 <CALL '
\1aLMEMQ 2 = TEMP17>
1134 <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL20>
1135 <GVAL 'ICALL-FLAG = TEMP17>
1136 <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL20>
1139 <GVAL 'ICALL-TEMPS = STACK>
1140 <CALL '
\1aLMEMQ 2 = TEMP17>
1142 <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE24>
1144 <FRAME '
\1aEXTRAMEM>
1148 <CALL '
\1aEXTRAMEM 2>
1150 <VEQUAL? FLAG6 '- - PHRASE27>
1152 <SET JUMP8 'JUMPN (TYPE ATOM)>
1153 <SET SKIP9 'SKIPE (TYPE ATOM)>
1158 <CALL '
\1aIN-AC? 2 = FLAG6>
1159 <TYPE? FLAG6 <TYPE-CODE FALSE> + BOOL31>
1162 <CALL '
\1aNEXT-AC 1 = AC10>
1163 <TYPE? AC10 <TYPE-CODE FALSE> + BOOL31>
1164 <FRAME '
\1aLABEL-UPDATE-ACS>
1170 <CALL '
\1aLABEL-UPDATE-ACS 5 = NEW11>
1171 <TYPE? NEW11 <TYPE-CODE FALSE> - BOOL30>
1176 <CALL '
\1aIN-AC? 2 = AC10>
1177 <TYPE? AC10 <TYPE-CODE FALSE> + PHRASE29>
1178 <FRAME '
\1aLABEL-UPDATE-ACS>
1183 <CALL '
\1aLABEL-UPDATE-ACS 4 = NEW11>
1184 <TYPE? NEW11 <TYPE-CODE FALSE> + PHRASE29>
1186 <TYPE? FLAG6 <TYPE-CODE FALSE> + PHRASE39>
1188 <NTH1 NEW11 = FLAG6>
1190 <CALL '
\1aGET-AC 1 = TEMP17>
1191 <NTHUV TEMP17 4 = AC-T-2-15 (TYPE FIX)>
1196 <CALL '
\1aNTH 2 = TEMP17>
1197 <EQUAL? TEMP17 AC10 + PHRASE46>
1204 <CALL '
\1aNTH 2 = AC10>
1206 <CALL '
\1aGET-AC 1 = TEMP17>
1207 <NTHUV TEMP17 4 = AC-T12 (TYPE FIX)>
1211 <NTH1 NEW11 = TEMP17>
1212 <EQUAL? TEMP17 AC10 + PHRASE46>
1218 <CALL '
\1aGET-AC 1 = TEMP17>
1219 <NTHUV TEMP17 4 = AC-T12 (TYPE FIX)>
1229 <CALL '
\1aXJUMP 1 = STACK>
1231 <TYPE? AC-T12 <TYPE-CODE FALSE> + PHRASE51>
1235 <CALL '
\1aGET-AC 1 = TEMP17>
1236 <PUTUV TEMP17 4 AC-T12 (TYPE FIX)>
1237 <DEAD TEMP17 AC-T12>
1239 <SET TEMP17 AC-T-2-15>
1240 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE57>
1244 <CALL '
\1aGET-AC 1 = TEMP17>
1245 <PUTUV TEMP17 4 AC-T-2-15 (TYPE FIX)>
1250 <FRAME '
\1aLABEL-PREF>
1254 <CALL '
\1aLABEL-PREF 3 = FLAG6>
1255 <TYPE? FLAG6 <TYPE-CODE FALSE> + BOOL61>
1257 <NTHUV FLAG6 1 = FLAG6 (TYPE ATOM)>
1259 <CALL '
\1aNEXT-AC 1 = AC10>
1260 <TYPE? AC10 <TYPE-CODE FALSE> - BOOL60>
1262 <FRAME '
\1aLABEL-PREF>
1266 <CALL '
\1aLABEL-PREF 3 = FLAG6>
1267 <TYPE? FLAG6 <TYPE-CODE FALSE> + PHRASE59>
1268 <NTHUV FLAG6 1 = AC10 (TYPE ATOM)>
1273 <CALL '
\1aGETPROP 2 = FLAG6>
1274 <TYPE? FLAG6 <TYPE-CODE FALSE> + PHRASE59>
1283 <CALL '
\1aGET-AC 1 = STACK>
1286 <CALL '
\1aGET-AC 1 = STACK>
1287 <CALL '
\1aLOAD-AC 6>
1291 <FRAME '
\1aASSIGN-AC>
1294 <CALL '
\1aASSIGN-AC 2 = FLAG6>
1296 <CALL '
\1aNEXT-AC 1 = AC10>
1300 <CALL '
\1aGET-AC 1 = TEMP17>
1301 <PUTUV TEMP17 5 %<>>
1305 <CALL '
\1aGET-AC 1 = TEMP17>
1306 <PUTUV TEMP17 2 LST5>
1310 <CALL '
\1aGET-AC 1 = TEMP17>
1311 <PUTUV TEMP17 3 'VALUE (TYPE ATOM)>
1313 <FRAME '
\1aMUNGED-AC>
1316 <CALL '
\1aMUNGED-AC 1>
1318 <FRAME '
\1aLABEL-UPDATE-ACS>
1321 <CALL '
\1aLABEL-UPDATE-ACS 2>
1327 <SET FLAG6 2 (TYPE FIX)>
1332 <SCALL '
\1aOBJ-LOC 2 = TEMP17 + TAG78 FLAG6>
1333 <LOOP (TEMP17 TYPE VALUE LENGTH) (FLAG6 VALUE)>
1336 <EMPTY? TEMP17 + TAG78>
1337 <NTH1 TEMP17 = STACK>
1338 <REST1 TEMP17 = TEMP17>
1339 <ADD FLAG6 1 = FLAG6 (TYPE FIX)>
1342 <CALL '
\1aOCEMIT FLAG6>
1349 <CALL '
\1aXJUMP 1 = STACK>
1350 <CALL '
\1aOCEMIT 2 = TEMP17>
1354 <END
\1aEMPL?!-MIMOC>
1357 <GFCN
\1aPUTREST!-MIMOC ("VALUE" ANY LIST) L5>
1358 <TEMP L16 TEMP10 L27 AC8 TEMP15>
1361 <RESTL L5 1 = TEMP10 (TYPE LIST)>
1363 <NTHL TEMP10 1 = L27>
1368 <CALL '
\1aIN-AC? 2 = AC8>
1369 <TYPE? AC8 <TYPE-CODE FALSE> + PHRASE12>
1370 <SETG 'FIRST-AC %<>>
1373 <CALL '
\1aGET-AC 1 = TEMP10>
1374 <GVAL 'AC-STAMP = TEMP15>
1375 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
1376 <SETG 'AC-STAMP TEMP15>
1377 <PUTUV TEMP10 4 TEMP15 (TYPE FIX)>
1378 <DEAD TEMP10 TEMP15>
1380 <EQUAL? L27 () - PHRASE17>
1381 <TYPE? AC8 <TYPE-CODE FALSE> + PHRASE19>
1385 <CONS AC8 () = STACK>
1387 <CALL '
\1aOCEMIT 3 = TEMP10>
1394 <SET TEMP10 2 (TYPE FIX)>
1398 <SCALL '
\1aOBJ-VAL 1 = TEMP15 + TAG22 TEMP10>
1399 <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP10 VALUE)>
1402 <EMPTY? TEMP15 + TAG22>
1403 <NTH1 TEMP15 = STACK>
1404 <REST1 TEMP15 = TEMP15>
1405 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
1408 <CALL '
\1aOCEMIT TEMP10 = TEMP10>
1415 <CALL '
\1aIN-AC? 2 = TEMP10>
1416 <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE35>
1417 <TYPE? L27 <TYPE-CODE ATOM> - PHRASE30>
1418 <FRAME '
\1aWILL-DIE?>
1420 <CALL '
\1aWILL-DIE? 1 = TEMP10>
1421 <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE30>
1428 <CALL '
\1aLOAD-AC 2 = STACK>
1429 <CALL '
\1aNEXT-AC 1 = TEMP10>
1432 <FRAME '
\1aSMASH-AC>
1437 <CALL '
\1aSMASH-AC 3>
1438 <SET TEMP10 'O* (TYPE ATOM)>
1440 <TYPE? AC8 <TYPE-CODE FALSE> + PHRASE38>
1445 <CONS AC8 () = STACK>
1447 <CALL '
\1aOCEMIT 3 = TEMP10>
1456 <SET TEMP15 3 (TYPE FIX)>
1460 <SCALL '
\1aOBJ-VAL 1 = TEMP10 + TAG41 TEMP15>
1461 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP15 VALUE)>
1464 <EMPTY? TEMP10 + TAG41>
1465 <NTH1 TEMP10 = STACK>
1466 <REST1 TEMP10 = TEMP10>
1467 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
1470 <CALL '
\1aOCEMIT TEMP15 = TEMP10>
1474 <END
\1aPUTREST!-MIMOC>
1476 <GFCN
\1aCONS!-MIMOC ("VALUE" ANY LIST) L5>
1477 <TEMP L16 TEMP9 L27 VAL8:ATOM>
1480 <RESTL L5 1 = TEMP9 (TYPE LIST)>
1481 <NTHL TEMP9 1 = L27>
1483 <RESTL L5 1 = TEMP9 (TYPE LIST)>
1485 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1486 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1487 <NTHL TEMP9 1 = VAL8 (TYPE ATOM)>
1489 <EQUAL? L16 VAL8 + BOOL12>
1490 <TYPE? L16 <TYPE-CODE ATOM> - PHRASE11>
1491 <FRAME '
\1aWILL-DIE?>
1493 <CALL '
\1aWILL-DIE? 1 = TEMP9>
1494 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE11>
1497 <FRAME '
\1aDEAD!-MIMOC>
1498 <CONS L16 () = STACK>
1500 <CALL '
\1aDEAD!-MIMOC 2>
1502 <EQUAL? L27 VAL8 + BOOL18>
1503 <TYPE? L27 <TYPE-CODE ATOM> - PHRASE17>
1504 <FRAME '
\1aWILL-DIE?>
1506 <CALL '
\1aWILL-DIE? 1 = TEMP9>
1507 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE17>
1510 <FRAME '
\1aDEAD!-MIMOC>
1511 <CONS L27 () = STACK>
1513 <CALL '
\1aDEAD!-MIMOC 2>
1515 <FRAME '
\1aUPDATE-ACS>
1516 <CALL '
\1aUPDATE-ACS 0>
1517 <FRAME '
\1aGET-INTO-ACS>
1526 <CALL '
\1aGET-INTO-ACS 6>
1531 <CALL '
\1aPUSHJ 2 = TEMP9>
1534 <END
\1aCONS!-MIMOC>
1536 <GFCN
\1aGET-INTO-ACS ("VALUE" ANY "TUPLE" TUPLE)>
1537 <MAKTUP PTRNS4:TUPLE (FIRSTS5:LIST ()) (LASTS6:LIST ()) (OTHERS7:LIST ()) P10 WIN11 CHANGE12 TEMP36 ONE41 TEMP49 AC13 = PTRNS4>
1540 <SET WIN11 'T (TYPE ATOM)>
1541 <SET CHANGE12 %<> (TYPE FALSE)>
1545 <EMPUV? P10 - PHRASE20>
1546 <VEQUAL? WIN11 0 - EXIT8>
1548 <EMPUV? P10 - PHRASE23>
1549 <VEQUAL? CHANGE12 0 - PHRASE25>
1550 <SET P10 'T (TYPE ATOM)>
1554 <SET TEMP36 FIRSTS5 (TYPE LIST)>
1558 <EMPL? TEMP36 + MAPAP34>
1559 <NTHL TEMP36 1 = ONE41>
1560 <VEQUAL? P10 0 - BOOL46>
1561 <RESTL ONE41 1 = WIN11 (TYPE LIST)>
1562 <NTHL WIN11 1 = WIN11 (TYPE ATOM)>
1563 <VEQUAL? WIN11 'BOTH - BOOL45>
1566 <VEQUAL? P10 0 + PHRASE43>
1567 <RESTL ONE41 1 = WIN11 (TYPE LIST)>
1568 <NTHL WIN11 1 = WIN11 (TYPE ATOM)>
1569 <VEQUAL? WIN11 'BOTH - PHRASE43>
1572 <NTHL ONE41 1 = WIN11 (TYPE ATOM)>
1573 <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
1574 <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1575 <NTHL TEMP49 1 = TEMP49 (TYPE ATOM)>
1576 <VEQUAL? WIN11 TEMP49 + PHRASE43>
1580 <NTHL ONE41 1 = STACK (TYPE ATOM)>
1581 <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
1582 <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1583 <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1586 <FRAME '
\1aFIXUP-ACS>
1588 <NTHL ONE41 1 = STACK (TYPE ATOM)>
1589 <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
1590 <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1591 <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1594 <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
1595 <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1597 <CALL '
\1aFIXUP-ACS 5>
1598 <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
1599 <NTHL TEMP49 1 = TEMP49 (TYPE ATOM)>
1600 <VEQUAL? TEMP49 'BOTH - PHRASE53>
1604 <FRAME '
\1aNEXT-AC-FUNNY>
1605 <NTHL ONE41 1 = STACK (TYPE ATOM)>
1606 <CALL '
\1aNEXT-AC-FUNNY 1 = STACK>
1607 <FRAME '
\1aNEXT-AC-FUNNY>
1608 <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
1609 <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1610 <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1612 <CALL '
\1aNEXT-AC-FUNNY 1 = STACK>
1615 <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
1617 <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1618 <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1619 <NTHL TEMP49 1 = TEMP49 (TYPE TUPLE)>
1620 <PUTUV TEMP49 2 %<>>
1624 <NTHL ONE41 1 = TEMP49 (TYPE ATOM)>
1625 <RESTL ONE41 1 = WIN11 (TYPE LIST)>
1626 <RESTL WIN11 1 = WIN11 (TYPE LIST)>
1627 <NTHL WIN11 1 = WIN11 (TYPE ATOM)>
1628 <VEQUAL? TEMP49 WIN11 - PHRASE57>
1630 <RESTL ONE41 1 = WIN11 (TYPE LIST)>
1632 <RESTL WIN11 1 = WIN11 (TYPE LIST)>
1633 <RESTL WIN11 1 = WIN11 (TYPE LIST)>
1634 <NTHL WIN11 1 = WIN11 (TYPE TUPLE)>
1638 <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
1641 <VEQUAL? P10 0 + PHRASE59>
1643 <SET P10 %<> (TYPE FALSE)>
1646 <SET FIRSTS5 () (TYPE LIST)>
1648 <SET WIN11 'T (TYPE ATOM)>
1652 <NTHUV P10 2 = TEMP36>
1653 <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE94>
1655 <NTHUV P10 1 = TEMP49>
1656 <TYPE? TEMP49 <TYPE-CODE ATOM> + PHRASE61>
1657 <NTHUV P10 3 = TEMP36>
1658 <CONS TEMP36 () = ONE41>
1660 <NTHUV P10 2 = TEMP36>
1661 <CONS TEMP36 ONE41 = ONE41>
1663 <CONS TEMP49 ONE41 = ONE41>
1665 <CONS ONE41 LASTS6 = LASTS6>
1672 <NTHUV P10 2 = TEMP36>
1674 <CALL '
\1aIN-AC? 2 = AC13>
1675 <TYPE? AC13 <TYPE-CODE FALSE> + PHRASE62>
1676 <NTHUV P10 3 = TEMP49>
1677 <EQUAL? AC13 TEMP49 - PHRASE65>
1678 <EQUAL? TEMP36 'VALUE + PHRASE94>
1683 <CALL '
\1aGETPROP 2 = TEMP36>
1684 <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE94>
1685 <NTHUV TEMP36 6 = ONE41>
1686 <TYPE? ONE41 <TYPE-CODE FALSE> + PHRASE94>
1688 <FRAME '
\1aLOAD-TYPE-IN-AC>
1691 <NTHUV TEMP36 6 = STACK (TYPE ATOM)>
1692 <CALL '
\1aLOAD-TYPE-IN-AC 2>
1693 <PUTUV TEMP36 6 %<>>
1697 <EQUAL? TEMP36 'BOTH - BOOL73>
1701 <CALL '
\1aAC-MEMQ 2 = ONE41>
1702 <VEQUAL? ONE41 0 - BOOL72>
1705 <FRAME '
\1aNEXT-AC-FUNNY>
1707 <CALL '
\1aNEXT-AC-FUNNY 1 = STACK>
1709 <CALL '
\1aAC-MEMQ 2 = ONE41>
1710 <VEQUAL? ONE41 0 - BOOL72>
1713 <EQUAL? TEMP36 'BOTH + PHRASE71>
1717 <CALL '
\1aAC-MEMQ 2 = ONE41>
1718 <VEQUAL? ONE41 0 + PHRASE71>
1721 <SET WIN11 %<> (TYPE FALSE)>
1722 <CONS P10 () = ONE41>
1723 <CONS TEMP49 ONE41 = ONE41>
1725 <CONS TEMP36 ONE41 = ONE41>
1727 <CONS AC13 ONE41 = ONE41>
1729 <CONS ONE41 FIRSTS5 = FIRSTS5>
1733 <SET WIN11 %<> (TYPE FALSE)>
1734 <SET CHANGE12 'T (TYPE ATOM)>
1738 <CALL '
\1aGETPROP 2 = ONE41>
1739 <TYPE? ONE41 <TYPE-CODE FALSE> + PHRASE86>
1743 <CALL '
\1aGET-AC 1 = ONE41>
1746 <EQUAL? TEMP36 'BOTH - PHRASE86>
1750 <CALL '
\1aNEXT-AC 1 = STACK>
1751 <CALL '
\1aGET-AC 1 = ONE41>
1755 <EQUAL? TEMP36 'BOTH - PHRASE90>
1777 <SET CHANGE12 'T (TYPE ATOM)>
1779 <NTHUV P10 3 = ONE41>
1780 <CONS ONE41 () = ONE41>
1781 <CONS TEMP36 ONE41 = ONE41>
1783 <CONS TEMP49 ONE41 = ONE41>
1785 <CONS ONE41 OTHERS7 = OTHERS7>
1788 <RESTUV P10 3 = P10 (TYPE VECTOR)>
1789 <CHTYPE P10 <TYPE-CODE VECTOR> = P10>
1792 <SET ONE41 OTHERS7 (TYPE LIST)>
1797 <EMPL? ONE41 + MAPAP99>
1798 <NTHL ONE41 1 = FIRSTS5>
1800 <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1801 <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1802 <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1805 <CALL '
\1aGETPROP 2 = TEMP49>
1806 <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE108>
1809 <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1810 <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1811 <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1813 <CALL '
\1aGET-AC 1 = TEMP49>
1814 <PUTUV TEMP49 6 %<>>
1816 <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1817 <NTHL TEMP49 1 = TEMP49 (TYPE ATOM)>
1818 <VEQUAL? TEMP49 'BOTH - PHRASE108>
1822 <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1823 <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1824 <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1826 <CALL '
\1aNEXT-AC 1 = STACK>
1827 <CALL '
\1aGET-AC 1 = TEMP49>
1828 <PUTUV TEMP49 6 %<>>
1831 <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1832 <NTHL TEMP49 1 = TEMP49 (TYPE ATOM)>
1833 <VEQUAL? TEMP49 'BOTH - PHRASE112>
1837 <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1838 <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1839 <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1841 <SET P10 2 (TYPE FIX)>
1843 <NTHL FIRSTS5 1 = STACK (TYPE ATOM)>
1846 <SCALL '
\1aOBJ-LOC 2 = TEMP49 + TAG113 P10>
1847 <LOOP (TEMP49 TYPE VALUE LENGTH) (P10 VALUE)>
1850 <EMPTY? TEMP49 + TAG113>
1851 <NTH1 TEMP49 = STACK>
1852 <REST1 TEMP49 = TEMP49>
1853 <ADD P10 1 = P10 (TYPE FIX)>
1856 <CALL '
\1aOCEMIT P10>
1860 <RESTL FIRSTS5 1 = P10 (TYPE LIST)>
1861 <NTHL P10 1 = P10 (TYPE ATOM)>
1862 <VEQUAL? P10 'VALUE - PHRASE118>
1866 <RESTL FIRSTS5 1 = P10 (TYPE LIST)>
1867 <RESTL P10 1 = P10 (TYPE LIST)>
1868 <NTHL P10 1 = STACK (TYPE ATOM)>
1870 <SET TEMP49 2 (TYPE FIX)>
1872 <NTHL FIRSTS5 1 = STACK (TYPE ATOM)>
1875 <SCALL '
\1aOBJ-LOC 2 = P10 + TAG119 TEMP49>
1876 <LOOP (P10 TYPE VALUE LENGTH) (TEMP49 VALUE)>
1879 <EMPTY? P10 + TAG119>
1882 <ADD TEMP49 1 = TEMP49 (TYPE FIX)>
1885 <CALL '
\1aOCEMIT TEMP49>
1891 <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1892 <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1893 <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1895 <SET P10 2 (TYPE FIX)>
1897 <NTHL FIRSTS5 1 = STACK (TYPE ATOM)>
1900 <SCALL '
\1aOBJ-LOC 2 = TEMP49 + TAG124 P10>
1901 <LOOP (TEMP49 TYPE VALUE LENGTH) (P10 VALUE)>
1904 <EMPTY? TEMP49 + TAG124>
1905 <NTH1 TEMP49 = STACK>
1906 <REST1 TEMP49 = TEMP49>
1907 <ADD P10 1 = P10 (TYPE FIX)>
1910 <CALL '
\1aOCEMIT P10>
1913 <RESTL ONE41 1 = ONE41 (TYPE LIST)>
1916 <SET P10 %<> (TYPE FALSE)>
1917 <SET ONE41 LASTS6 (TYPE LIST)>
1922 <EMPL? ONE41 + MAPAP132>
1923 <NTHL ONE41 1 = FIRSTS5>
1924 <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1925 <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1926 <NTHL TEMP49 1 = P10 (TYPE ATOM)>
1928 <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1929 <NTHL TEMP49 1 = WIN11 (TYPE ATOM)>
1931 <NTHL FIRSTS5 1 = CHANGE12>
1936 <CALL '
\1aGETPROP 2 = TEMP49>
1937 <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE140>
1939 <FRAME '
\1aMUNGED-AC>
1941 <VEQUAL? WIN11 'BOTH - TAG143>
1947 <CALL '
\1aMUNGED-AC 2>
1949 <VEQUAL? WIN11 'TYPE + PHRASE146>
1950 <FRAME '
\1aPRIMTYPE>
1952 <CALL '
\1aPRIMTYPE 1 = TEMP49>
1953 <SET TEMP36 [WORD FIX] (TYPE VECTOR)>
1954 <LOOP (TEMP49 VALUE) (TEMP36 LENGTH VALUE)>
1956 <NTHUV TEMP36 1 = AC13>
1957 <VEQUAL? AC13 TEMP49 + BOOL148>
1959 <RESTUV TEMP36 1 = TEMP36 (TYPE VECTOR)>
1960 <EMPUV? TEMP36 - TAG150>
1961 <FRAME '
\1aPRIMTYPE>
1963 <CALL '
\1aPRIMTYPE 1 = TEMP36>
1964 <VEQUAL? TEMP36 'LIST - PHRASE146>
1966 <EMPL? CHANGE12 - PHRASE146 (TYPE LIST)>
1968 <VEQUAL? WIN11 'BOTH - PHRASE158>
1973 <SET TEMP49 2 (TYPE FIX)>
1977 <CALL '
\1aTYPE 1 = STACK>
1979 <SCALL '
\1aTYPE-CODE 2 = TEMP36 + TAG159 TEMP49>
1980 <LOOP (TEMP36 TYPE VALUE LENGTH) (TEMP49 VALUE)>
1983 <EMPTY? TEMP36 + TAG159>
1984 <NTH1 TEMP36 = STACK>
1985 <REST1 TEMP36 = TEMP36>
1986 <ADD TEMP49 1 = TEMP49 (TYPE FIX)>
1989 <CALL '
\1aOCEMIT TEMP49>
1991 <FRAME '
\1aNEXT-AC-FUNNY>
1994 <CALL '
\1aNEXT-AC-FUNNY 1 = P10>
1996 <FRAME '
\1aPRIMTYPE>
1998 <CALL '
\1aPRIMTYPE 1 = TEMP49>
1999 <VEQUAL? TEMP49 'LIST - PHRASE166>
2001 <SET CHANGE12 0 (TYPE FIX)>
2004 <CHTYPE CHANGE12 <TYPE-CODE FIX> = CHANGE12>
2006 <LESS? CHANGE12 0 + PHRASE170 (TYPE FIX)>
2007 <GVAL 'MAX-IMMEDIATE = TEMP49>
2008 <GRTR? CHANGE12 TEMP49 + PHRASE170 (TYPE FIX)>
2016 <CALL '
\1aOCEMIT 3 = P10>
2019 <AND CHANGE12 #WORD *777777* = TEMP49>
2020 <VEQUAL? TEMP49 0 - PHRASE175 (TYPE FIX)>
2026 <LSH CHANGE12 -18 = STACK (TYPE FIX)>
2028 <CALL '
\1aOCEMIT 3 = P10>
2031 <LESS? CHANGE12 0 - PHRASE179 (TYPE FIX)>
2032 <GVAL 'MAX-IMMEDIATE = TEMP49>
2033 <SET TEMP36 CHANGE12>
2034 <LESS? TEMP36 0 - TAG183 (TYPE FIX)>
2035 <SUB 0 TEMP36 = TEMP36 (TYPE FIX)>
2037 <LESS? TEMP49 TEMP36 + PHRASE179 (TYPE FIX)>
2038 <DEAD TEMP49 TEMP36>
2043 <SUB 0 CHANGE12 = STACK (TYPE FIX)>
2045 <CALL '
\1aOCEMIT 3 = P10>
2052 <SET TEMP36 2 (TYPE FIX)>
2057 <SCALL '
\1aOBJ-LOC 2 = TEMP49 + TAG186 TEMP36>
2058 <LOOP (TEMP49 TYPE VALUE LENGTH) (TEMP36 VALUE)>
2061 <EMPTY? TEMP49 + TAG186>
2062 <NTH1 TEMP49 = STACK>
2063 <REST1 TEMP49 = TEMP49>
2064 <ADD TEMP36 1 = TEMP36 (TYPE FIX)>
2067 <CALL '
\1aOCEMIT TEMP36 = P10>
2071 <VEQUAL? WIN11 'BOTH - PHRASE190>
2076 <SET TEMP49 2 (TYPE FIX)>
2081 <SCALL '
\1aOBJ-LOC 2 = TEMP36 + TAG191 TEMP49>
2082 <LOOP (TEMP36 TYPE VALUE LENGTH) (TEMP49 VALUE)>
2085 <EMPTY? TEMP36 + TAG191>
2086 <NTH1 TEMP36 = STACK>
2087 <REST1 TEMP36 = TEMP36>
2088 <ADD TEMP49 1 = TEMP49 (TYPE FIX)>
2091 <CALL '
\1aOCEMIT TEMP49 = P10>
2095 <VEQUAL? WIN11 'VALUE - PHRASE195>
2101 <SET TEMP36 2 (TYPE FIX)>
2106 <SCALL '
\1aOBJ-LOC 2 = TEMP49 + TAG196 TEMP36>
2107 <LOOP (TEMP49 TYPE VALUE LENGTH) (TEMP36 VALUE)>
2110 <EMPTY? TEMP49 + TAG196>
2111 <NTH1 TEMP49 = STACK>
2112 <REST1 TEMP49 = TEMP49>
2113 <ADD TEMP36 1 = TEMP36 (TYPE FIX)>
2116 <CALL '
\1aOCEMIT TEMP36 = P10>
2124 <SET TEMP49 2 (TYPE FIX)>
2129 <SCALL '
\1aOBJ-LOC 2 = TEMP36 + TAG201 TEMP49>
2130 <LOOP (TEMP36 TYPE VALUE LENGTH) (TEMP49 VALUE)>
2133 <EMPTY? TEMP36 + TAG201>
2134 <NTH1 TEMP36 = STACK>
2135 <REST1 TEMP36 = TEMP36>
2136 <ADD TEMP49 1 = TEMP49 (TYPE FIX)>
2139 <CALL '
\1aOCEMIT TEMP49 = P10>
2142 <RESTL ONE41 1 = ONE41 (TYPE LIST)>
2147 <END
\1aGET-INTO-ACS>
2149 <GFCN
\1aAC-MEMQ ("VALUE" <OR ATOM !<FALSE>> ATOM <PRIMTYPE VECTOR>) AC5 P6>
2155 <EMPUV? P6 - PHRASE12>
2158 <NTHUV P6 2 = TEMP16>
2159 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE14>
2162 <NTHUV P6 1 = STACK>
2163 <NTHUV P6 2 = STACK>
2164 <CALL '
\1aIN-AC? 2 = TEMP16>
2165 <EQUAL? TEMP16 AC5 + BOOL20>
2167 <NTHUV P6 2 = TEMP16>
2168 <EQUAL? TEMP16 'BOTH - PHRASE14>
2171 <NTHUV P6 1 = STACK>
2173 <CALL '
\1aIN-AC? 2 = TEMP16>
2174 <EQUAL? TEMP16 AC5 + BOOL20>
2177 <NTHUV P6 1 = STACK>
2179 <CALL '
\1aIN-AC? 2 = TEMP16>
2180 <EQUAL? TEMP16 AC5 - PHRASE14>
2185 <RESTUV P6 3 = P6 (TYPE VECTOR)>
2186 <CHTYPE P6 <TYPE-CODE VECTOR> = P6>
2191 <GFCN
\1aNEXT-AC-FUNNY ("VALUE" ANY ATOM) AC4>
2196 <CALL '
\1aNEXT-AC 1 = TEMP6>
2197 <TYPE? TEMP6 <TYPE-CODE FALSE> - BOOL5>
2198 <VEQUAL? AC4 'O1* - BOOL8>
2201 <VEQUAL? AC4 'O* - BOOL9>
2206 <PUSH 'NEXT-AC-LOSSAGE!-ERRORS>
2207 <CALL '
\1aERROR 1 = TEMP6>
2211 <END
\1aNEXT-AC-FUNNY>
2213 <GFCN
\1aFIXUP-ACS ("VALUE" <OR FALSE !<LIST ATOM ATOM ATOM TUPLE>> LIST ANY ANY ANY ANY) L4 ACA5 ACB6 NOT-ME7 KIND8>
2214 <TEMP AC2B10 AC2A9 TEMP28 TEMP25:LIST LL30:LIST TAC31>
2216 <EQUAL? KIND8 'BOTH + TAG13>
2217 <SET AC2B10 %<> (TYPE FALSE)>
2220 <FRAME '
\1aNEXT-AC-FUNNY>
2222 <CALL '
\1aNEXT-AC-FUNNY 1 = AC2B10>
2224 <EQUAL? KIND8 'BOTH + TAG17>
2226 <SET AC2A9 %<> (TYPE FALSE)>
2229 <FRAME '
\1aNEXT-AC-FUNNY>
2231 <CALL '
\1aNEXT-AC-FUNNY 1 = AC2A9>
2233 <SET TEMP28 %<> (TYPE FALSE)>
2234 <SET TEMP25 L4 (TYPE LIST)>
2239 <EMPL? TEMP25 + MAPAP23>
2240 <NTHL TEMP25 1 = LL30>
2241 <EQUAL? LL30 NOT-ME7 - TAG35>
2242 <SET TEMP28 %<> (TYPE FALSE)>
2245 <NTHL LL30 1 = TAC31 (TYPE ATOM)>
2246 <EQUAL? ACB6 TAC31 - BOOL37>
2248 <TYPE? TAC31 <TYPE-CODE FALSE> - BOOL36>
2250 <EQUAL? ACA5 TAC31 - BOOL38>
2252 <TYPE? TAC31 <TYPE-CODE FALSE> - BOOL36>
2254 <EQUAL? AC2A9 TAC31 - BOOL39>
2256 <TYPE? TAC31 <TYPE-CODE FALSE> - BOOL36>
2258 <EQUAL? AC2B10 TAC31 + TAG41>
2260 <SET TEMP28 %<> (TYPE FALSE)>
2265 <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE33>
2272 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
2279 <GFCN
\1aPUTL!-MIMOC ("VALUE" ANY LIST) L4>
2280 <TEMP LST5 TEMP15 AMT6 VAL7 LOOP8:ATOM END9 (TAC10 %<>) PUT-TYP13 AC11 CNT-AC14 TEMP108>
2283 <RESTL L4 1 = TEMP15 (TYPE LIST)>
2284 <NTHL TEMP15 1 = AMT6>
2286 <RESTL L4 1 = TEMP15 (TYPE LIST)>
2287 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
2288 <NTHL TEMP15 1 = VAL7>
2292 <CALL '
\1aGENLBL 1 = LOOP8>
2295 <CALL '
\1aGENLBL 1 = END9>
2296 <FRAME '
\1aEXTRAMEM>
2300 <CALL '
\1aEXTRAMEM 2 = PUT-TYP13>
2304 <CALL '
\1aIN-AC? 2 = AC11>
2305 <TYPE? AC11 <TYPE-CODE FALSE> + BOOL22>
2310 <CALL '
\1aNEXT-AC 1 = AC11>
2311 <TYPE? AC11 <TYPE-CODE FALSE> - PHRASE20>
2316 <CALL '
\1aIN-AC? 2 = AC11>
2317 <TYPE? AC11 <TYPE-CODE FALSE> - PHRASE20>
2323 <CALL '
\1aLOAD-AC 2 = TAC10>
2325 <CALL '
\1aNEXT-AC 1 = AC11>
2328 <SETG 'FIRST-AC %<>>
2331 <CALL '
\1aGET-AC 1 = TEMP15>
2332 <GVAL 'AC-STAMP = LST5>
2333 <ADD LST5 1 = LST5 (TYPE FIX)>
2334 <SETG 'AC-STAMP LST5>
2335 <PUTUV TEMP15 4 LST5 (TYPE FIX)>
2338 <EQUAL? AMT6 1 + PHRASE63>
2339 <TYPE? AMT6 <TYPE-CODE FIX> - PHRASE32>
2340 <TYPE? TAC10 <TYPE-CODE FALSE> + PHRASE34>
2341 <FRAME '
\1aFLUSH-AC>
2344 <CALL '
\1aFLUSH-AC 2>
2347 <FRAME '
\1aFLUSH-AC>
2349 <CALL '
\1aFLUSH-AC 1>
2351 <SUB AMT6 1 = AMT6 (TYPE FIX)>
2352 <LESS? AMT6 3 - PHRASE39 (TYPE FIX)>
2359 <CONS AC11 () = STACK>
2361 <SUB AMT6 1 = AMT6 (TYPE FIX)>
2362 <VEQUAL? AMT6 0 - AGAIN41 (TYPE FIX)>
2365 <FRAME '
\1aSMASH-AC>
2369 <CALL '
\1aSMASH-AC 3>
2371 <SET END9 1 (TYPE FIX)>
2372 <GVAL 'LOOPTAGS = LST5>
2373 <TYPE LST5 = TEMP15>
2374 <AND TEMP15 7 = TEMP15>
2375 <VEQUAL? TEMP15 1 + TAG52>
2377 <LOOP (LST5 TYPE VALUE LENGTH) (END9 VALUE)>
2380 <EMPTY? LST5 + TAG57>
2383 <ADD END9 1 = END9 (TYPE FIX)>
2386 <LIST END9 = LST5 (TYPE LIST)>
2392 <VEQUAL? END9 0 + TAG54>
2394 <CONS TEMP15 LST5 = LST5 (TYPE LIST)>
2396 <SUB END9 1 = END9 (TYPE FIX)>
2399 <SETG 'LOOPTAGS LST5>
2407 <CONS AC11 () = STACK>
2415 <CALL '
\1aXJUMP 1 = STACK>
2419 <TYPE? TAC10 <TYPE-CODE FALSE> + PHRASE65>
2420 <FRAME '
\1aFLUSH-AC>
2423 <CALL '
\1aFLUSH-AC 2>
2426 <FRAME '
\1aFLUSH-AC>
2428 <CALL '
\1aFLUSH-AC 1>
2433 <CALL '
\1aIN-AC? 2 = CNT-AC14>
2434 <TYPE? CNT-AC14 <TYPE-CODE FALSE> + EXIT79>
2435 <FRAME '
\1aWILL-DIE?>
2437 <CALL '
\1aWILL-DIE? 1 = LST5>
2438 <TYPE? LST5 <TYPE-CODE FALSE> + BOOL74>
2440 <FRAME '
\1aDEAD!-MIMOC>
2441 <CONS AMT6 () = STACK>
2443 <CALL '
\1aDEAD!-MIMOC 2 = LST5>
2444 <TYPE? LST5 <TYPE-CODE FALSE> - BOOL73>
2450 <CALL '
\1aNEXT-AC 1 = STACK>
2451 <CALL '
\1aGET-AC 1 = LST5>
2452 <NTHUV LST5 5 = LST5>
2453 <TYPE? LST5 <TYPE-CODE FALSE> - EXIT79>
2456 <FRAME '
\1aMUNGED-AC>
2459 <CALL '
\1aMUNGED-AC 2>
2463 <CALL '
\1aNEXT-AC 1 = CNT-AC14>
2464 <TYPE? CNT-AC14 <TYPE-CODE FALSE> - PHRASE94>
2469 <CALL '
\1aIN-AC? 2 = CNT-AC14>
2470 <TYPE? CNT-AC14 <TYPE-CODE FALSE> + EXIT90>
2471 <FRAME '
\1aWILL-DIE?>
2473 <CALL '
\1aWILL-DIE? 1 = TEMP15>
2474 <TYPE? TEMP15 <TYPE-CODE FALSE> + BOOL86>
2476 <FRAME '
\1aDEAD!-MIMOC>
2477 <CONS AMT6 () = STACK>
2479 <CALL '
\1aDEAD!-MIMOC 2 = TEMP15>
2480 <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL85>
2485 <CALL '
\1aGET-AC 1 = TEMP15>
2486 <NTHUV TEMP15 5 = TEMP15>
2487 <TYPE? TEMP15 <TYPE-CODE FALSE> - EXIT90>
2490 <FRAME '
\1aMUNGED-AC>
2493 <CALL '
\1aMUNGED-AC 2 = LST5>
2494 <TYPE? LST5 <TYPE-CODE FALSE> - PHRASE94>
2499 <SET CNT-AC14 'O* (TYPE ATOM)>
2501 <SET TEMP15 2 (TYPE FIX)>
2504 <SCALL '
\1aOBJ-VAL 1 = LST5 + TAG95 TEMP15>
2505 <LOOP (LST5 TYPE VALUE LENGTH) (TEMP15 VALUE)>
2508 <EMPTY? LST5 + TAG95>
2511 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
2514 <CALL '
\1aOCEMIT TEMP15>
2522 <CALL '
\1aXJUMP 1 = STACK>
2525 <SET LST5 1 (TYPE FIX)>
2526 <GVAL 'LOOPTAGS = TEMP15>
2527 <TYPE TEMP15 = TEMP108>
2528 <AND TEMP108 7 = TEMP108>
2529 <VEQUAL? TEMP108 1 + TAG104>
2531 <LOOP (TEMP15 TYPE VALUE LENGTH) (LST5 VALUE)>
2534 <EMPTY? TEMP15 + TAG109>
2535 <NTH1 TEMP15 = STACK>
2536 <REST1 TEMP15 = TEMP15>
2537 <ADD LST5 1 = LST5 (TYPE FIX)>
2540 <LIST LST5 = TEMP15 (TYPE LIST)>
2546 <VEQUAL? LST5 0 + TAG106>
2548 <CONS TEMP108 TEMP15 = TEMP15 (TYPE LIST)>
2550 <SUB LST5 1 = LST5 (TYPE FIX)>
2553 <SETG 'LOOPTAGS TEMP15>
2561 <CONS AC11 () = STACK>
2570 <CALL '
\1aXJUMP 1 = STACK>
2585 <EQUAL? AMT6 1 - TAG119>
2589 <TYPE? TAC10 <TYPE-CODE FALSE> + PHRASE121>
2590 <FRAME '
\1aMUNGED-AC>
2594 <CALL '
\1aMUNGED-AC 2 = TEMP15>
2598 <FRAME '
\1aMUNGED-AC>
2601 <CALL '
\1aMUNGED-AC 1 = TEMP15>
2604 <END
\1aPUTL!-MIMOC>
\r\r
2606 <GFCN
\1aDO-PUT ("VALUE" ANY ANY ANY ANY FIX) PUT-TYP4 AC5 VAL6 OFFS7>
2609 <TYPE? PUT-TYP4 <TYPE-CODE FALSE> + PHRASE10>
2610 <FRAME '
\1aDECL-HACK>
2611 <TYPE? PUT-TYP4 <TYPE-CODE LIST> - PHRASE13>
2612 <RESTL PUT-TYP4 1 = TEMP14 (TYPE LIST)>
2614 <NTHL TEMP14 1 = TEMP14>
2617 <SET TEMP14 PUT-TYP4>
2622 <CALL '
\1aDECL-HACK 1 = PUT-TYP4>
2624 <TYPE? PUT-TYP4 <TYPE-CODE FALSE> + PHRASE17>
2625 <TYPE? VAL6 <TYPE-CODE ATOM> - BOOL19>
2629 <CALL '
\1aIN-AC? 2 = NAC8>
2630 <TYPE? NAC8 <TYPE-CODE FALSE> + PHRASE17>
2632 <TYPE? VAL6 <TYPE-CODE ATOM> - PHRASE22>
2637 <ADD OFFS7 1 = STACK (TYPE FIX)>
2639 <CONS AC5 () = STACK>
2641 <CALL '
\1aOCEMIT 4 = TEMP14>
2645 <FRAME '
\1aPRIMTYPE>
2647 <CALL '
\1aPRIMTYPE 1 = TEMP14>
2648 <VEQUAL? TEMP14 'LIST - BOOL26>
2650 <EMPTY? VAL6 + BOOL25>
2652 <FRAME '
\1aPRIMTYPE>
2654 <CALL '
\1aPRIMTYPE 1 = TEMP14>
2655 <VEQUAL? TEMP14 'FIX - PHRASE24>
2657 <VEQUAL? VAL6 0 - PHRASE24 (TYPE FIX)>
2661 <ADD OFFS7 1 = STACK (TYPE FIX)>
2663 <CONS AC5 () = STACK>
2665 <CALL '
\1aOCEMIT 3 = TEMP14>
2669 <FRAME '
\1aPRIMTYPE>
2671 <CALL '
\1aPRIMTYPE 1 = TEMP14>
2672 <VEQUAL? TEMP14 'FIX - PHRASE34>
2674 <VEQUAL? VAL6 -1 - PHRASE34 (TYPE FIX)>
2677 <ADD OFFS7 1 = STACK (TYPE FIX)>
2679 <CONS AC5 () = STACK>
2681 <CALL '
\1aOCEMIT 3 = TEMP14>
2685 <FRAME '
\1aFLUSH-AC>
2687 <CALL '
\1aFLUSH-AC 1>
2688 <FRAME '
\1aMUNGED-AC>
2690 <CALL '
\1aMUNGED-AC 1>
2691 <FRAME '
\1aGET-INTO-ACS>
2696 <CALL '
\1aGET-INTO-ACS 3>
2700 <ADD OFFS7 1 = STACK (TYPE FIX)>
2702 <CONS AC5 () = STACK>
2704 <CALL '
\1aOCEMIT 4 = TEMP14>
2708 <TYPE? PUT-TYP4 <TYPE-CODE FALSE> + PHRASE45>
2713 <CALL '
\1aIN-AC? 2 = NAC8>
2714 <TYPE? NAC8 <TYPE-CODE FALSE> - PHRASE52>
2715 <TYPE? VAL6 <TYPE-CODE ATOM> - BOOL49>
2716 <FRAME '
\1aWILL-DIE?>
2718 <CALL '
\1aWILL-DIE? 1 = TEMP14>
2719 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE48>
2722 <FRAME '
\1aGET-INTO-ACS>
2726 <SET NAC8 'O* (TYPE ATOM)>
2728 <CALL '
\1aGET-INTO-ACS 3>
2736 <CALL '
\1aLOAD-AC 2 = STACK>
2737 <CALL '
\1aNEXT-AC 1 = NAC8>
2743 <ADD OFFS7 1 = STACK (TYPE FIX)>
2745 <CONS AC5 () = STACK>
2747 <CALL '
\1aOCEMIT 4 = TEMP14>
2754 <CALL '
\1aIN-AC? 2 = NAC8>
2755 <TYPE? NAC8 <TYPE-CODE FALSE> - PHRASE63>
2756 <TYPE? VAL6 <TYPE-CODE ATOM> - BOOL60>
2757 <FRAME '
\1aWILL-DIE?>
2759 <CALL '
\1aWILL-DIE? 1 = TEMP14>
2760 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE59>
2763 <FRAME '
\1aGET-INTO-ACS>
2767 <SET NAC8 'O1* (TYPE ATOM)>
2769 <CALL '
\1aGET-INTO-ACS 3>
2776 <CALL '
\1aLOAD-AC 2 = NAC8>
2784 <CONS AC5 () = STACK>
2786 <CALL '
\1aOCEMIT 4 = TEMP14>
2791 <GFCN
\1aLENL!-MIMOC ("VALUE" ANY LIST) L4>
2792 <TEMP LST5 TEMP12 VAL6:ATOM END10:ATOM LOOP11:ATOM TAC9 TEMP21 AC8:ATOM NAC7:ATOM>
2795 <RESTL L4 1 = TEMP12 (TYPE LIST)>
2797 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
2798 <NTHL TEMP12 1 = VAL6 (TYPE ATOM)>
2802 <CALL '
\1aGENLBL 1 = END10>
2805 <CALL '
\1aGENLBL 1 = LOOP11>
2806 <FRAME '
\1aFLUSH-AC>
2808 <CALL '
\1aFLUSH-AC 1>
2809 <FRAME '
\1aMUNGED-AC>
2811 <CALL '
\1aMUNGED-AC 1>
2815 <CALL '
\1aIN-AC? 2 = TAC9>
2816 <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE18>
2817 <SETG 'FIRST-AC %<>>
2820 <CALL '
\1aGET-AC 1 = TEMP12>
2821 <GVAL 'AC-STAMP = TEMP21>
2822 <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
2823 <SETG 'AC-STAMP TEMP21>
2824 <PUTUV TEMP12 4 TEMP21 (TYPE FIX)>
2825 <DEAD TEMP12 TEMP21>
2837 <SET TEMP21 2 (TYPE FIX)>
2840 <SCALL '
\1aOBJ-VAL 1 = TEMP12 + TAG24 TEMP21>
2841 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP21 VALUE)>
2844 <EMPTY? TEMP12 + TAG24>
2845 <NTH1 TEMP12 = STACK>
2846 <REST1 TEMP12 = TEMP12>
2847 <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
2850 <CALL '
\1aOCEMIT TEMP21>
2854 <FRAME '
\1aASSIGN-AC>
2857 <CALL '
\1aASSIGN-AC 2 = AC8>
2859 <CALL '
\1aNEXT-AC 1 = NAC7>
2860 <VEQUAL? VAL6 'STACK - PHRASE31>
2861 <SET NAC7 'O* (TYPE ATOM)>
2864 <EQUAL? LST5 VAL6 - PHRASE32>
2865 <SET NAC7 'O* (TYPE ATOM)>
2868 <CALL '
\1aGET-AC 1 = TEMP21>
2869 <PUTUV TEMP21 6 'FIX>
2875 <CALL '
\1aGET-AC 1 = TEMP21>
2876 <PUTUV TEMP21 6 'FIX>
2885 <SET TEMP12 1 (TYPE FIX)>
2886 <GVAL 'LOOPTAGS = TEMP21>
2887 <TYPE TEMP21 = TAC9>
2889 <VEQUAL? TAC9 1 + TAG39>
2891 <LOOP (TEMP21 TYPE VALUE LENGTH) (TEMP12 VALUE)>
2894 <EMPTY? TEMP21 + TAG44>
2895 <NTH1 TEMP21 = STACK>
2896 <REST1 TEMP21 = TEMP21>
2897 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
2900 <LIST TEMP12 = TEMP21 (TYPE LIST)>
2906 <VEQUAL? TEMP12 0 + TAG41>
2908 <CONS TAC9 TEMP21 = TEMP21 (TYPE LIST)>
2910 <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
2913 <SETG 'LOOPTAGS TEMP21>
2929 <CALL '
\1aXJUMP 1 = STACK>
2935 <VEQUAL? VAL6 'STACK - PHRASE52>
2939 <SET TAC9 2 (TYPE FIX)>
2942 <SCALL '
\1aTYPE-WORD 1 = TEMP21 + TAG53 TAC9>
2943 <LOOP (TEMP21 TYPE VALUE LENGTH) (TAC9 VALUE)>
2946 <EMPTY? TEMP21 + TAG53>
2947 <NTH1 TEMP21 = STACK>
2948 <REST1 TEMP21 = TEMP21>
2949 <ADD TAC9 1 = TAC9 (TYPE FIX)>
2952 <CALL '
\1aOCEMIT TAC9>
2964 <GVAL 'WINNING-VICTIM = TAC9>
2965 <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE64>
2966 <GVAL 'STACK-DEPTH = TEMP21>
2967 <ADD TEMP21 2 = TEMP21 (TYPE FIX)>
2968 <SETG 'STACK-DEPTH TEMP21>
2972 <EQUAL? VAL6 LST5 - PHRASE61>
2979 <CALL '
\1aNEXT-AC 1 = STACK>
2981 <CALL '
\1aOCEMIT 3 = TAC9>
2988 <CONS NAC7 () = STACK>
2990 <CALL '
\1aOCEMIT 3 = TAC9>
2994 <END
\1aLENL!-MIMOC>
2998 <GFCN
\1aNTHU!-MIMOC ("VALUE" ANY LIST) L5>
2999 <TEMP L16 TEMP11 TEMP10 TEMP17>
3002 <FRAME '
\1aUPDATE-ACS>
3003 <CALL '
\1aUPDATE-ACS 0>
3004 <FRAME '
\1aSMASH-AC>
3008 <CALL '
\1aSMASH-AC 3>
3012 <SET TEMP11 2 (TYPE FIX)>
3016 <SCALL '
\1aOBJ-VAL 1 = TEMP10 + TAG9 TEMP11>
3017 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP11 VALUE)>
3020 <EMPTY? TEMP10 + TAG9>
3021 <NTH1 TEMP10 = STACK>
3022 <REST1 TEMP10 = TEMP10>
3023 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
3027 <CALL '
\1aOCEMIT TEMP11>
3032 <SET TEMP10 2 (TYPE FIX)>
3034 <RESTL L5 1 = TEMP17 (TYPE LIST)>
3035 <NTHL TEMP17 1 = STACK>
3037 <SCALL '
\1aOBJ-VAL 1 = TEMP11 + TAG15 TEMP10>
3038 <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3041 <EMPTY? TEMP11 + TAG15>
3042 <NTH1 TEMP11 = STACK>
3043 <REST1 TEMP11 = TEMP11>
3044 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3048 <CALL '
\1aOCEMIT TEMP10>
3052 <RESTL L5 1 = TEMP17 (TYPE LIST)>
3054 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
3055 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
3056 <NTHL TEMP17 1 = STACK>
3058 <CALL '
\1aPUSHJ 2 = TEMP17>
3061 <END
\1aNTHU!-MIMOC>
3063 <GFCN
\1aRESTU!-MIMOC ("VALUE" ANY LIST) L5>
3064 <TEMP TEMP10:FIX TEMP12 TEMP9>
3066 <FRAME '
\1aUPDATE-ACS>
3067 <CALL '
\1aUPDATE-ACS 0>
3068 <FRAME '
\1aSMASH-AC>
3072 <CALL '
\1aSMASH-AC 3>
3076 <SET TEMP10 2 (TYPE FIX)>
3078 <RESTL L5 1 = TEMP12 (TYPE LIST)>
3079 <NTHL TEMP12 1 = STACK>
3081 <SCALL '
\1aOBJ-VAL 1 = TEMP9 + TAG8 TEMP10>
3082 <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3085 <EMPTY? TEMP9 + TAG8>
3086 <NTH1 TEMP9 = STACK>
3087 <REST1 TEMP9 = TEMP9>
3088 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3092 <CALL '
\1aOCEMIT TEMP10>
3096 <RESTL L5 1 = TEMP12 (TYPE LIST)>
3098 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
3099 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
3100 <NTHL TEMP12 1 = STACK>
3102 <CALL '
\1aPUSHJ 2 = TEMP12>
3105 <END
\1aRESTU!-MIMOC>
3107 <GFCN
\1aBACKU!-MIMOC ("VALUE" ANY LIST) L5>
3108 <TEMP TEMP10:FIX TEMP12 TEMP9>
3110 <FRAME '
\1aUPDATE-ACS>
3111 <CALL '
\1aUPDATE-ACS 0>
3112 <FRAME '
\1aSMASH-AC>
3116 <CALL '
\1aSMASH-AC 3>
3120 <SET TEMP10 2 (TYPE FIX)>
3122 <RESTL L5 1 = TEMP12 (TYPE LIST)>
3123 <NTHL TEMP12 1 = STACK>
3125 <SCALL '
\1aOBJ-VAL 1 = TEMP9 + TAG8 TEMP10>
3126 <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3129 <EMPTY? TEMP9 + TAG8>
3130 <NTH1 TEMP9 = STACK>
3131 <REST1 TEMP9 = TEMP9>
3132 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3136 <CALL '
\1aOCEMIT TEMP10>
3140 <RESTL L5 1 = TEMP12 (TYPE LIST)>
3142 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
3143 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
3144 <NTHL TEMP12 1 = STACK>
3146 <CALL '
\1aPUSHJ 2 = TEMP12>
3149 <END
\1aBACKU!-MIMOC>
3151 <GFCN
\1aTOPU!-MIMOC ("VALUE" ANY LIST) L5>
3154 <FRAME '
\1aUPDATE-ACS>
3155 <CALL '
\1aUPDATE-ACS 0>
3156 <FRAME '
\1aSMASH-AC>
3160 <CALL '
\1aSMASH-AC 3>
3163 <RESTL L5 1 = TEMP9 (TYPE LIST)>
3165 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
3166 <NTHL TEMP9 1 = STACK>
3168 <CALL '
\1aPUSHJ 2 = TEMP9>
3171 <END
\1aTOPU!-MIMOC>
3172 <SETG TOPUV!-MIMOC ,TOPU!-MIMOC>
3174 <SETG TOPUS!-MIMOC ,TOPU!-MIMOC>
3176 <SETG TOPUB!-MIMOC ,TOPU!-MIMOC>
3179 <GFCN
\1aPUTU!-MIMOC ("VALUE" ANY LIST) L5>
3180 <TEMP TEMP9 TEMP11 TEMP13:LIST>
3182 <FRAME '
\1aUPDATE-ACS>
3183 <CALL '
\1aUPDATE-ACS 0>
3184 <FRAME '
\1aSMASH-AC>
3188 <CALL '
\1aSMASH-AC 3>
3189 <FRAME '
\1aSMASH-AC>
3191 <RESTL L5 1 = TEMP9 (TYPE LIST)>
3192 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
3193 <NTHL TEMP9 1 = STACK>
3196 <CALL '
\1aSMASH-AC 3>
3200 <SET TEMP11 2 (TYPE FIX)>
3202 <RESTL L5 1 = L5 (TYPE LIST)>
3205 <SCALL '
\1aOBJ-VAL 1 = TEMP9 + TAG10 TEMP11>
3206 <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP11 VALUE)>
3209 <EMPTY? TEMP9 + TAG10>
3210 <NTH1 TEMP9 = STACK>
3211 <REST1 TEMP9 = TEMP9>
3212 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
3216 <CALL '
\1aOCEMIT TEMP11>
3220 <CALL '
\1aPUSHJ 1 = TEMP11>
3223 <END
\1aPUTU!-MIMOC>
3225 <GFCN
\1aNTHUU!-MIMOC ("VALUE" ANY LIST) L5>
3228 <FRAME '
\1aNTHUV!-MIMOC>
3232 <CALL '
\1aNTHUV!-MIMOC 2 = TEMP7>
3235 <END
\1aNTHUU!-MIMOC>
3237 <GFCN
\1aNTHUV!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY ANY ANY ANY) L14 UV?15 AOS16 NOT-DEAD?17 LEN-VAR18>
3238 <OPT-DISPATCH 1 %<> OPT9 OPT10 OPT11 OPT12 OPT13>
3248 <TEMP V19 (TEMP28 %<>) AMT20 VAL23 NAC25 (AHEAD27 %<>) AC24 TEMP57 NUM26 TEMP156>
3251 <RESTL L14 1 = TEMP28 (TYPE LIST)>
3252 <NTHL TEMP28 1 = AMT20>
3254 <RESTL L14 1 = TEMP28 (TYPE LIST)>
3255 <RESTL TEMP28 1 = TEMP28 (TYPE LIST)>
3256 <RESTL TEMP28 1 = TEMP28 (TYPE LIST)>
3257 <NTHL TEMP28 1 = VAL23 (TYPE ATOM)>
3259 <TYPE? AOS16 <TYPE-CODE FALSE> - BOOL30>
3260 <FRAME '
\1aNTH-PUT-LOOK-AHEAD>
3263 <TYPE? UV?15 <TYPE-CODE FALSE> + PHRASE33>
3264 <SET TEMP28 "PUTUU" (TYPE STRING)>
3267 <SET TEMP28 "PUTUV" (TYPE STRING)>
3274 <CALL '
\1aNTH-PUT-LOOK-AHEAD 5 = TEMP28>
3275 <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE217>
3277 <TYPE? LEN-VAR18 <TYPE-CODE UNBOUND> + PHRASE37>
3278 <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE37>
3279 <SET VAL23 LEN-VAR18>
3285 <CALL '
\1aIN-AC? 2 = TEMP28>
3286 <TYPE? TEMP28 <TYPE-CODE FALSE> + BOOL42>
3290 <CALL '
\1aNEXT-AC 1 = AC24>
3291 <TYPE? AC24 <TYPE-CODE FALSE> - PHRASE40>
3296 <CALL '
\1aIN-AC? 2 = AC24>
3297 <TYPE? AC24 <TYPE-CODE FALSE> - PHRASE40>
3298 <EQUAL? AMT20 1 - BOOL46>
3299 <TYPE? AOS16 <TYPE-CODE FALSE> - BOOL48>
3300 <VEQUAL? VAL23 'STACK - PHRASE40>
3302 <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE40>
3303 <EQUAL? AOS16 'HRRZ + PHRASE40>
3305 <TYPE? AMT20 <TYPE-CODE FIX> - PHRASE40>
3306 <TYPE? AOS16 <TYPE-CODE FALSE> - PHRASE50>
3307 <EQUAL? V19 VAL23 + PHRASE50>
3308 <FRAME '
\1aLOOK-AHEAD>
3309 <GEN-LVAL 'MIML = TEMP28>
3310 <REST1 TEMP28 = STACK>
3314 <CALL '
\1aLOOK-AHEAD 3 = AHEAD27>
3315 <TYPE? AHEAD27 <TYPE-CODE FALSE> + PHRASE50>
3316 <GVAL 'AC-STAMP = TEMP28>
3317 <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
3318 <SETG 'AC-STAMP TEMP28>
3319 <PUTUV AHEAD27 4 TEMP28 (TYPE FIX)>
3324 <CALL '
\1aNEXT-AC 1 = STACK>
3325 <CALL '
\1aGET-AC 1 = TEMP28>
3326 <GVAL 'AC-STAMP = TEMP57>
3327 <PUTUV TEMP28 4 TEMP57 (TYPE FIX)>
3328 <DEAD TEMP28 TEMP57>
3334 <CALL '
\1aLOAD-AC 2 = TEMP28>
3337 <CALL '
\1aNEXT-AC 1 = AC24>
3340 <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE60>
3341 <SETG 'FIRST-AC %<>>
3344 <CALL '
\1aGET-AC 1 = TEMP28>
3345 <GVAL 'AC-STAMP = TEMP57>
3346 <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
3347 <SETG 'AC-STAMP TEMP57>
3348 <PUTUV TEMP28 4 TEMP57 (TYPE FIX)>
3349 <DEAD TEMP28 TEMP57>
3351 <TYPE? AMT20 <TYPE-CODE FIX> - PHRASE63>
3352 <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE65>
3353 <VEQUAL? VAL23 'STACK + PHRASE65>
3361 <CALL '
\1aLOAD-AC 5 = NAC25>
3363 <TYPE? UV?15 <TYPE-CODE FALSE> + PHRASE69>
3364 <SUB AMT20 1 = NUM26 (TYPE FIX)>
3368 <SUB AMT20 1 = TEMP57 (TYPE FIX)>
3370 <LSH TEMP57 1 = NUM26 (TYPE FIX)>
3373 <EQUAL? AOS16 'HRRZ - PHRASE72>
3376 <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + BOOL76>
3378 <VEQUAL? VAL23 'STACK - PHRASE75>
3380 <SET TEMP57 'O* (TYPE ATOM)>
3385 <CALL '
\1aGET-AC 1 = TEMP28>
3386 <PUTUV TEMP28 6 'FIX>
3391 <CALL '
\1aNEXT-AC 1 = TEMP57>
3395 <SET TEMP28 2 (TYPE FIX)>
3396 <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE81>
3397 <CONS AC24 () = TEMP57>
3399 <CONS TEMP57 () = TEMP57>
3400 <CONS NUM26 TEMP57 = TEMP57>
3405 <SET NUM26 1 (TYPE FIX)>
3409 <SCALL '
\1aOBJ-VAL 1 = TEMP57 + TAG84 NUM26>
3410 <TYPE TEMP57 = AMT20>
3411 <AND AMT20 7 = AMT20>
3412 <VEQUAL? AMT20 1 + TAG87>
3414 <LOOP (TEMP57 TYPE VALUE LENGTH) (NUM26 VALUE)>
3417 <EMPTY? TEMP57 + TAG92>
3418 <NTH1 TEMP57 = STACK>
3419 <REST1 TEMP57 = TEMP57>
3420 <ADD NUM26 1 = NUM26 (TYPE FIX)>
3423 <LIST NUM26 = TEMP57 (TYPE LIST)>
3431 <VEQUAL? NUM26 0 + TAG89>
3433 <CONS AMT20 TEMP57 = TEMP57 (TYPE LIST)>
3435 <SUB NUM26 1 = NUM26 (TYPE FIX)>
3439 <LOOP (TEMP57 VALUE) (TEMP28 VALUE)>
3442 <EMPL? TEMP57 + TAG73>
3443 <NTHL TEMP57 1 = STACK>
3444 <RESTL TEMP57 1 = TEMP57 (TYPE LIST)>
3445 <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
3448 <CALL '
\1aOCEMIT TEMP28>
3450 <VEQUAL? VAL23 'STACK + TAG98>
3457 <SET TEMP57 2 (TYPE FIX)>
3460 <SCALL '
\1aTYPE-WORD 1 = TEMP28 + TAG99 TEMP57>
3461 <LOOP (TEMP28 TYPE VALUE LENGTH) (TEMP57 VALUE)>
3464 <EMPTY? TEMP28 + TAG99>
3465 <NTH1 TEMP28 = STACK>
3466 <REST1 TEMP28 = TEMP28>
3467 <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
3470 <CALL '
\1aOCEMIT TEMP57>
3477 <GVAL 'WINNING-VICTIM = TEMP28>
3478 <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE215>
3479 <GVAL 'STACK-DEPTH = TEMP57>
3480 <ADD TEMP57 2 = TEMP57 (TYPE FIX)>
3481 <SETG 'STACK-DEPTH TEMP57>
3485 <TYPE? AOS16 <TYPE-CODE FORM> - PHRASE106>
3486 <NTHL AOS16 1 = TEMP57 (TYPE ATOM)>
3487 <NTHR TEMP57 3 = TEMP57 (RECORD-TYPE ATOM)>
3488 <IFCAN "STRING-EQUAL?">
3489 <STRING-EQUAL? TEMP57 "VEQUAL?" - PHRASE108>
3490 <ENDIF "STRING-EQUAL?">
3491 <IFCANNOT "STRING-EQUAL?">
3492 <SET TEMP28 "VEQUAL?" (TYPE STRING)>
3493 <LENUS TEMP57 = AMT20 (TYPE FIX)>
3494 <VEQUAL? AMT20 7 - PHRASE108>
3495 <LOOP (TEMP57 VALUE LENGTH) (TEMP28 VALUE LENGTH) (AMT20 VALUE)>
3497 <NTHUS TEMP57 1 = VAL23>
3498 <NTHUS TEMP28 1 = NAC25>
3499 <VEQUAL? VAL23 NAC25 - PHRASE108>
3501 <RESTUS TEMP57 1 = TEMP57 (TYPE STRING)>
3502 <RESTUS TEMP28 1 = TEMP28 (TYPE STRING)>
3503 <SUB AMT20 1 = AMT20 (TYPE FIX)>
3504 <GRTR? AMT20 0 + TAG111 (TYPE FIX)>
3505 <ENDIF "STRING-EQUAL?">
3506 <FRAME '
\1aVEQUAL?!-MIMOC>
3507 <RESTL AOS16 1 = TEMP28 (TYPE LIST)>
3509 <CHTYPE TEMP28 <TYPE-CODE LIST> = STACK>
3513 <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE114>
3515 <ADD NUM26 1 = TEMP57 (TYPE FIX)>
3519 <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE115>
3526 <SET VAL23 1 (TYPE FIX)>
3530 <SCALL '
\1aOBJ-VAL 1 = NAC25 + TAG117 VAL23>
3531 <TYPE NAC25 = TEMP28>
3532 <AND TEMP28 7 = TEMP28>
3533 <VEQUAL? TEMP28 1 + TAG119>
3535 <LOOP (NAC25 TYPE VALUE LENGTH) (VAL23 VALUE)>
3538 <EMPTY? NAC25 + TAG124>
3539 <NTH1 NAC25 = STACK>
3540 <REST1 NAC25 = NAC25>
3541 <ADD VAL23 1 = VAL23 (TYPE FIX)>
3544 <LIST VAL23 = TEMP57 (TYPE LIST)>
3552 <VEQUAL? VAL23 0 + TAG121>
3554 <CONS TEMP28 NAC25 = NAC25 (TYPE LIST)>
3556 <SUB VAL23 1 = VAL23 (TYPE FIX)>
3564 <CALL '
\1aVEQUAL?!-MIMOC 4 = TEMP28>
3568 <NTHL AOS16 1 = NAC25 (TYPE ATOM)>
3569 <NTHR NAC25 3 = NAC25 (RECORD-TYPE ATOM)>
3570 <IFCAN "STRING-EQUAL?">
3571 <STRING-EQUAL? NAC25 "TYPE?" - PHRASE126>
3572 <ENDIF "STRING-EQUAL?">
3573 <IFCANNOT "STRING-EQUAL?">
3574 <SET TEMP28 "TYPE?" (TYPE STRING)>
3575 <LENUS NAC25 = AMT20 (TYPE FIX)>
3576 <VEQUAL? AMT20 5 - PHRASE126>
3577 <LOOP (NAC25 VALUE LENGTH) (TEMP28 VALUE LENGTH) (AMT20 VALUE)>
3579 <NTHUS NAC25 1 = VAL23>
3580 <NTHUS TEMP28 1 = AHEAD27>
3581 <VEQUAL? VAL23 AHEAD27 - PHRASE126>
3583 <RESTUS NAC25 1 = NAC25 (TYPE STRING)>
3584 <RESTUS TEMP28 1 = TEMP28 (TYPE STRING)>
3585 <SUB AMT20 1 = AMT20 (TYPE FIX)>
3586 <GRTR? AMT20 0 + TAG130 (TYPE FIX)>
3587 <ENDIF "STRING-EQUAL?">
3588 <FRAME '
\1aVEQUAL?!-MIMOC>
3589 <RESTL AOS16 1 = NAC25 (TYPE LIST)>
3590 <RESTL NAC25 1 = NAC25 (TYPE LIST)>
3591 <RESTL NAC25 1 = TEMP28 (TYPE LIST)>
3593 <CHTYPE TEMP28 <TYPE-CODE LIST> = STACK>
3597 <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE133>
3599 <ADD NUM26 1 = NAC25 (TYPE FIX)>
3603 <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE134>
3610 <SET VAL23 1 (TYPE FIX)>
3614 <SCALL '
\1aOBJ-VAL 1 = AHEAD27 + TAG136 VAL23>
3615 <TYPE AHEAD27 = TEMP28>
3616 <AND TEMP28 7 = TEMP28>
3617 <VEQUAL? TEMP28 1 + TAG138>
3619 <LOOP (AHEAD27 TYPE VALUE LENGTH) (VAL23 VALUE)>
3622 <EMPTY? AHEAD27 + TAG143>
3623 <NTH1 AHEAD27 = STACK>
3624 <REST1 AHEAD27 = AHEAD27>
3625 <ADD VAL23 1 = VAL23 (TYPE FIX)>
3628 <LIST VAL23 = NAC25 (TYPE LIST)>
3636 <VEQUAL? VAL23 0 + TAG140>
3638 <CONS TEMP28 AHEAD27 = AHEAD27 (TYPE LIST)>
3640 <SUB VAL23 1 = VAL23 (TYPE FIX)>
3648 <RESTL AOS16 1 = AHEAD27 (TYPE LIST)>
3650 <NTHL AHEAD27 1 = STACK>
3652 <CALL '
\1aVEQUAL?!-MIMOC 5 = TEMP28>
3656 <FRAME '
\1aEQUAL?!-MIMOC>
3657 <RESTL AOS16 1 = AHEAD27 (TYPE LIST)>
3659 <CHTYPE AHEAD27 <TYPE-CODE LIST> = STACK>
3666 <CALL '
\1aEQUAL?!-MIMOC 4 = TEMP28>
3670 <TYPE? AOS16 <TYPE-CODE FALSE> + PHRASE147>
3674 <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE150>
3677 <CALL '
\1aNEXT-AC 1 = TEMP28>
3680 <SET TEMP28 'O* (TYPE ATOM)>
3684 <SET TEMP57 2 (TYPE FIX)>
3685 <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE155>
3687 <CONS AC24 () = TEMP156>
3689 <CONS TEMP156 () = TEMP28>
3691 <ADD NUM26 1 = TEMP156 (TYPE FIX)>
3693 <CONS TEMP156 TEMP28 = TEMP28>
3697 <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE157>
3698 <CONS AC24 () = TEMP156>
3700 <CONS TEMP156 () = TEMP28>
3702 <CONS NUM26 TEMP28 = TEMP28>
3707 <SET NUM26 1 (TYPE FIX)>
3711 <SCALL '
\1aOBJ-VAL 1 = TEMP156 + TAG159 NUM26>
3712 <TYPE TEMP156 = V19>
3714 <VEQUAL? V19 1 + TAG162>
3716 <LOOP (TEMP156 TYPE VALUE LENGTH) (NUM26 VALUE)>
3719 <EMPTY? TEMP156 + TAG167>
3720 <NTH1 TEMP156 = STACK>
3721 <REST1 TEMP156 = TEMP156>
3722 <ADD NUM26 1 = NUM26 (TYPE FIX)>
3725 <LIST NUM26 = TEMP28 (TYPE LIST)>
3733 <VEQUAL? NUM26 0 + TAG164>
3735 <CONS V19 TEMP156 = TEMP156 (TYPE LIST)>
3737 <SUB NUM26 1 = NUM26 (TYPE FIX)>
3740 <SET TEMP28 TEMP156>
3743 <LOOP (TEMP28 VALUE) (TEMP57 VALUE)>
3746 <EMPL? TEMP28 + TAG148>
3747 <NTHL TEMP28 1 = STACK>
3748 <RESTL TEMP28 1 = TEMP28 (TYPE LIST)>
3749 <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
3752 <CALL '
\1aOCEMIT TEMP57>
3754 <SET TEMP28 NOT-DEAD?17>
3756 <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE215>
3760 <CALL '
\1aGET-AC 1 = TEMP57>
3761 <PUTUV TEMP57 6 'FIX>
3765 <VEQUAL? VAL23 'STACK - PHRASE174>
3766 <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE174>
3771 <CONS AC24 () = STACK>
3776 <ADD NUM26 1 = STACK (TYPE FIX)>
3778 <CONS AC24 () = STACK>
3781 <GVAL 'WINNING-VICTIM = TEMP28>
3782 <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE215>
3783 <GVAL 'STACK-DEPTH = TEMP57>
3784 <ADD TEMP57 2 = TEMP57 (TYPE FIX)>
3785 <SETG 'STACK-DEPTH TEMP57>
3789 <VEQUAL? VAL23 'STACK - PHRASE180>
3794 <SET TEMP156 2 (TYPE FIX)>
3797 <SCALL '
\1aTYPE-WORD 1 = TEMP57 + TAG181 TEMP156>
3798 <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP156 VALUE)>
3801 <EMPTY? TEMP57 + TAG181>
3802 <NTH1 TEMP57 = STACK>
3803 <REST1 TEMP57 = TEMP57>
3804 <ADD TEMP156 1 = TEMP156 (TYPE FIX)>
3807 <CALL '
\1aOCEMIT TEMP156>
3809 <GVAL 'WINNING-VICTIM = TEMP156>
3810 <TYPE? TEMP156 <TYPE-CODE FALSE> + PHRASE186>
3812 <GVAL 'STACK-DEPTH = TEMP156>
3813 <ADD TEMP156 1 = TEMP156 (TYPE FIX)>
3814 <SETG 'STACK-DEPTH TEMP156>
3817 <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE188>
3823 <CONS AC24 () = STACK>
3832 <SET TEMP57 3 (TYPE FIX)>
3836 <SCALL '
\1aOBJ-VAL 1 = TEMP156 + TAG191 TEMP57>
3837 <LOOP (TEMP156 TYPE VALUE LENGTH) (TEMP57 VALUE)>
3840 <EMPTY? TEMP156 + TAG191>
3841 <NTH1 TEMP156 = STACK>
3842 <REST1 TEMP156 = TEMP156>
3843 <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
3846 <CALL '
\1aOCEMIT TEMP57>
3849 <GVAL 'WINNING-VICTIM = TEMP28>
3850 <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE215>
3851 <GVAL 'STACK-DEPTH = TEMP57>
3852 <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
3853 <SETG 'STACK-DEPTH TEMP57>
3857 <TYPE? AC24 <TYPE-CODE FALSE> - PHRASE197>
3858 <TYPE? UV?15 <TYPE-CODE FALSE> + PHRASE199>
3864 <CALL '
\1aNEXT-AC 1 = STACK>
3866 <SET TEMP156 3 (TYPE FIX)>
3870 <SCALL '
\1aOBJ-VAL 1 = TEMP57 + TAG200 TEMP156>
3871 <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP156 VALUE)>
3874 <EMPTY? TEMP57 + TAG200>
3875 <NTH1 TEMP57 = STACK>
3876 <REST1 TEMP57 = TEMP57>
3877 <ADD TEMP156 1 = TEMP156 (TYPE FIX)>
3880 <CALL '
\1aOCEMIT TEMP156>
3885 <CALL '
\1aGET-AC 1 = TEMP156>
3886 <PUTUV TEMP156 6 'FIX>
3895 <SET TEMP57 3 (TYPE FIX)>
3899 <SCALL '
\1aOBJ-VAL 1 = TEMP156 + TAG207 TEMP57>
3900 <LOOP (TEMP156 TYPE VALUE LENGTH) (TEMP57 VALUE)>
3903 <EMPTY? TEMP156 + TAG207>
3904 <NTH1 TEMP156 = STACK>
3905 <REST1 TEMP156 = TEMP156>
3906 <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
3909 <CALL '
\1aOCEMIT TEMP57 = TEMP28>
3914 <TYPE? UV?15 <TYPE-CODE FALSE> + PHRASE211>
3920 <CALL '
\1aNEXT-AC 1 = STACK>
3923 <CONS AC24 () = STACK>
3929 <CALL '
\1aGET-AC 1 = TEMP57>
3930 <PUTUV TEMP57 6 'FIX>
3940 <CONS AC24 () = STACK>
3942 <CALL '
\1aOCEMIT 4 = TEMP28>
3950 <CALL '
\1aIN-AC? 2 = NUM26>
3951 <TYPE? NUM26 <TYPE-CODE FALSE> + BOOL221>
3954 <CALL '
\1aGET-AC 1 = TEMP57>
3955 <NTHUV TEMP57 5 = TEMP57>
3956 <TYPE? TEMP57 <TYPE-CODE FALSE> + BOOL227>
3958 <FRAME '
\1aWILL-DIE?>
3960 <CALL '
\1aWILL-DIE? 1 = TEMP57>
3961 <TYPE? TEMP57 <TYPE-CODE FALSE> - BOOL227>
3964 <VEQUAL? AMT20 VAL23 - PHRASE219>
3965 <TYPE? NUM26 <TYPE-CODE FALSE> - BOOL227>
3966 <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE219>
3973 <CALL '
\1aLOAD-AC 5 = NAC25>
3975 <TYPE? NUM26 <TYPE-CODE FALSE> - PHRASE231>
3980 <CALL '
\1aNEXT-AC 1 = NUM26>
3982 <SET TEMP156 2 (TYPE FIX)>
3986 <SCALL '
\1aOBJ-VAL 1 = TEMP57 + TAG232 TEMP156>
3987 <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP156 VALUE)>
3990 <EMPTY? TEMP57 + TAG232>
3991 <NTH1 TEMP57 = STACK>
3992 <REST1 TEMP57 = TEMP57>
3993 <ADD TEMP156 1 = TEMP156 (TYPE FIX)>
3996 <CALL '
\1aOCEMIT TEMP156>
4000 <SET TEMP156 [A2* B2* C2*] (TYPE VECTOR)>
4001 <TYPE? NUM26 <TYPE-CODE ATOM> - PHRASE237>
4002 <LOOP (NUM26 VALUE) (TEMP156 LENGTH VALUE)>
4004 <NTHUV TEMP156 1 = TEMP57>
4005 <VEQUAL? TEMP57 NUM26 + TAG239>
4007 <RESTUV TEMP156 1 = TEMP156 (TYPE VECTOR)>
4008 <EMPUV? TEMP156 - TAG240>
4011 <VEQUAL? VAL23 'STACK + PHRASE237>
4015 <CALL '
\1aGETPROP 2 = NAC25>
4016 <FRAME '
\1aCLEAN-ACS>
4018 <CALL '
\1aCLEAN-ACS 1>
4021 <CALL '
\1aGET-AC 1 = TEMP156>
4022 <PUTUV TEMP156 6 %<>>
4023 <PUTUV TEMP156 5 'T>
4024 <PUTUV TEMP156 2 VAL23>
4025 <PUTUV TEMP156 3 'TYPE (TYPE ATOM)>
4029 <CALL '
\1aGET-AC 1 = TEMP156>
4030 <PUTUV TEMP156 6 %<>>
4031 <PUTUV TEMP156 5 'T>
4032 <PUTUV TEMP156 2 VAL23>
4033 <PUTUV TEMP156 3 'VALUE (TYPE ATOM)>
4037 <VEQUAL? AMT20 VAL23 + PHRASE248>
4039 <FRAME '
\1aMUNGED-AC>
4041 <CALL '
\1aMUNGED-AC 1>
4043 <FRAME '
\1aFLUSH-AC>
4045 <CALL '
\1aFLUSH-AC 1>
4046 <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE261>
4054 <CALL '
\1aLOAD-AC 5 = NAC25>
4057 <TYPE? NUM26 <TYPE-CODE FALSE> + PHRASE256>
4064 <SET NUM26 'T* (TYPE ATOM)>
4067 <FRAME '
\1aSMASH-AC>
4068 <SET NUM26 'T* (TYPE ATOM)>
4073 <CALL '
\1aSMASH-AC 3>
4075 <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE261>
4083 <CALL '
\1aLOAD-AC 5 = NAC25>
4085 <VEQUAL? VAL23 'STACK + PHRASE264>
4086 <TYPE? NAC25 <TYPE-CODE UNBOUND> + PHRASE264>
4089 <CALL '
\1aGET-AC 1 = TEMP156>
4090 <PUTUV TEMP156 6 %<>>
4093 <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE268>
4100 <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE271>
4112 <SET TEMP57 2 (TYPE FIX)>
4117 <SCALL '
\1aOBJ-LOC 2 = TEMP156 + TAG274 TEMP57>
4118 <LOOP (TEMP156 TYPE VALUE LENGTH) (TEMP57 VALUE)>
4121 <EMPTY? TEMP156 + TAG274>
4122 <NTH1 TEMP156 = STACK>
4123 <REST1 TEMP156 = TEMP156>
4124 <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
4127 <CALL '
\1aOCEMIT TEMP57>
4130 <EQUAL? AOS16 'HRRZ - PHRASE279>
4133 <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + BOOL283>
4135 <VEQUAL? VAL23 'STACK - PHRASE282>
4137 <SET TEMP57 'O* (TYPE ATOM)>
4142 <CALL '
\1aGET-AC 1 = TEMP156>
4143 <PUTUV TEMP156 6 'FIX>
4148 <CALL '
\1aNEXT-AC 1 = TEMP57>
4153 <CONS NUM26 () = STACK>
4156 <VEQUAL? VAL23 'STACK - PHRASE333>
4161 <SET TEMP156 2 (TYPE FIX)>
4164 <SCALL '
\1aTYPE-WORD 1 = TEMP57 + TAG289 TEMP156>
4165 <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP156 VALUE)>
4168 <EMPTY? TEMP57 + TAG289>
4169 <NTH1 TEMP57 = STACK>
4170 <REST1 TEMP57 = TEMP57>
4171 <ADD TEMP156 1 = TEMP156 (TYPE FIX)>
4174 <CALL '
\1aOCEMIT TEMP156>
4183 <TYPE? AOS16 <TYPE-CODE FORM> - PHRASE294>
4184 <NTHL AOS16 1 = TEMP156 (TYPE ATOM)>
4185 <NTHR TEMP156 3 = TEMP156 (RECORD-TYPE ATOM)>
4186 <IFCAN "STRING-EQUAL?">
4187 <STRING-EQUAL? TEMP156 "VEQUAL?" - PHRASE296>
4188 <ENDIF "STRING-EQUAL?">
4189 <IFCANNOT "STRING-EQUAL?">
4190 <SET TEMP57 "VEQUAL?" (TYPE STRING)>
4191 <LENUS TEMP156 = V19 (TYPE FIX)>
4192 <VEQUAL? V19 7 - PHRASE296>
4193 <LOOP (TEMP156 VALUE LENGTH) (TEMP57 VALUE LENGTH) (V19 VALUE)>
4195 <NTHUS TEMP156 1 = AMT20>
4196 <NTHUS TEMP57 1 = VAL23>
4197 <VEQUAL? AMT20 VAL23 - PHRASE296>
4199 <RESTUS TEMP156 1 = TEMP156 (TYPE STRING)>
4200 <RESTUS TEMP57 1 = TEMP57 (TYPE STRING)>
4201 <SUB V19 1 = V19 (TYPE FIX)>
4202 <GRTR? V19 0 + TAG299 (TYPE FIX)>
4203 <ENDIF "STRING-EQUAL?">
4204 <FRAME '
\1aVEQUAL?!-MIMOC>
4205 <RESTL AOS16 1 = TEMP57 (TYPE LIST)>
4207 <CHTYPE TEMP57 <TYPE-CODE LIST> = STACK>
4213 <CALL '
\1aVEQUAL?!-MIMOC 4>
4216 <NTHL AOS16 1 = TEMP156 (TYPE ATOM)>
4217 <NTHR TEMP156 3 = TEMP156 (RECORD-TYPE ATOM)>
4218 <IFCAN "STRING-EQUAL?">
4219 <STRING-EQUAL? TEMP156 "TYPE?" - PHRASE301>
4220 <ENDIF "STRING-EQUAL?">
4221 <IFCANNOT "STRING-EQUAL?">
4222 <SET VAL23 "TYPE?" (TYPE STRING)>
4223 <LENUS TEMP156 = AMT20 (TYPE FIX)>
4224 <VEQUAL? AMT20 5 - PHRASE301>
4225 <LOOP (TEMP156 VALUE LENGTH) (VAL23 VALUE LENGTH) (AMT20 VALUE)>
4227 <NTHUS TEMP156 1 = TEMP28>
4228 <NTHUS VAL23 1 = V19>
4229 <VEQUAL? TEMP28 V19 - PHRASE301>
4231 <RESTUS TEMP156 1 = TEMP156 (TYPE STRING)>
4232 <RESTUS VAL23 1 = VAL23 (TYPE STRING)>
4233 <SUB AMT20 1 = AMT20 (TYPE FIX)>
4234 <GRTR? AMT20 0 + TAG304 (TYPE FIX)>
4235 <ENDIF "STRING-EQUAL?">
4236 <FRAME '
\1aVEQUAL?!-MIMOC>
4237 <RESTL AOS16 1 = TEMP156 (TYPE LIST)>
4238 <RESTL TEMP156 1 = TEMP156 (TYPE LIST)>
4239 <RESTL TEMP156 1 = VAL23 (TYPE LIST)>
4241 <CHTYPE VAL23 <TYPE-CODE LIST> = STACK>
4247 <RESTL AOS16 1 = TEMP156 (TYPE LIST)>
4249 <NTHL TEMP156 1 = STACK>
4251 <CALL '
\1aVEQUAL?!-MIMOC 5>
4254 <FRAME '
\1aEQUAL?!-MIMOC>
4255 <RESTL AOS16 1 = TEMP156 (TYPE LIST)>
4257 <CHTYPE TEMP156 <TYPE-CODE LIST> = STACK>
4263 <CALL '
\1aEQUAL?!-MIMOC 4>
4266 <TYPE? AOS16 <TYPE-CODE FALSE> + PHRASE308>
4270 <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE311>
4274 <CALL '
\1aGET-AC 1 = V19>
4280 <CALL '
\1aNEXT-AC 1 = V19>
4283 <SET V19 'O* (TYPE ATOM)>
4288 <CONS NUM26 () = STACK>
4293 <VEQUAL? VAL23 'STACK - PHRASE315>
4294 <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE315>
4299 <CONS NUM26 () = STACK>
4305 <CONS NUM26 () = STACK>
4308 <GVAL 'WINNING-VICTIM = V19>
4309 <TYPE? V19 <TYPE-CODE FALSE> + PHRASE333>
4311 <GVAL 'STACK-DEPTH = V19>
4312 <ADD V19 2 = V19 (TYPE FIX)>
4313 <SETG 'STACK-DEPTH V19>
4317 <VEQUAL? VAL23 'STACK - PHRASE321>
4322 <SET TEMP28 2 (TYPE FIX)>
4325 <SCALL '
\1aTYPE-WORD 1 = V19 + TAG322 TEMP28>
4326 <LOOP (V19 TYPE VALUE LENGTH) (TEMP28 VALUE)>
4329 <EMPTY? V19 + TAG322>
4332 <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
4335 <CALL '
\1aOCEMIT TEMP28>
4341 <CONS NUM26 () = STACK>
4344 <GVAL 'WINNING-VICTIM = TEMP28>
4345 <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE333>
4347 <GVAL 'STACK-DEPTH = TEMP28>
4348 <ADD TEMP28 2 = TEMP28 (TYPE FIX)>
4349 <SETG 'STACK-DEPTH TEMP28>
4353 <TYPE? UV?15 <TYPE-CODE FALSE> + PHRASE329>
4359 <CALL '
\1aNEXT-AC 1 = STACK>
4361 <CONS NUM26 () = STACK>
4367 <CALL '
\1aGET-AC 1 = TEMP28>
4368 <PUTUV TEMP28 6 'FIX>
4377 <CONS NUM26 () = STACK>
4383 <CALL '
\1aGET-AC 1 = TEMP28>
4384 <PUTUV TEMP28 3 'DUMMY (TYPE ATOM)>
4388 <END
\1aNTHUV!-MIMOC>
4390 <GFCN
\1aPUTUU!-MIMOC ("VALUE" ANY LIST) L5>
4393 <FRAME '
\1aPUTUV!-MIMOC>
4397 <CALL '
\1aPUTUV!-MIMOC 2 = TEMP7>
4400 <END
\1aPUTUU!-MIMOC>
4402 <GFCN
\1aPUTUV!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY) L6 UV?7>
4403 <OPT-DISPATCH 1 %<> OPT4 OPT5>
4407 <TEMP V8 (TEMP16 %<>) AMT9 VAL11 PUT-TYP15 AC12 TEMP29 AMT-AC13>
4410 <RESTL L6 1 = TEMP16 (TYPE LIST)>
4411 <NTHL TEMP16 1 = AMT9>
4413 <RESTL L6 1 = TEMP16 (TYPE LIST)>
4414 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
4415 <NTHL TEMP16 1 = VAL11>
4417 <FRAME '
\1aEXTRAMEM>
4421 <CALL '
\1aEXTRAMEM 2 = PUT-TYP15>
4425 <CALL '
\1aIN-AC? 2 = TEMP16>
4426 <TYPE? TEMP16 <TYPE-CODE FALSE> + BOOL21>
4430 <CALL '
\1aNEXT-AC 1 = AC12>
4431 <TYPE? AC12 <TYPE-CODE FALSE> - PHRASE19>
4436 <CALL '
\1aIN-AC? 2 = AC12>
4437 <TYPE? AC12 <TYPE-CODE FALSE> - PHRASE19>
4438 <EQUAL? AMT9 1 + PHRASE19>
4439 <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE19>
4444 <CALL '
\1aLOAD-AC 2 = TEMP16>
4447 <CALL '
\1aNEXT-AC 1 = AC12>
4450 <TYPE? AC12 <TYPE-CODE FALSE> + PHRASE27>
4451 <SETG 'FIRST-AC %<>>
4454 <CALL '
\1aGET-AC 1 = TEMP16>
4455 <GVAL 'AC-STAMP = TEMP29>
4456 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
4457 <SETG 'AC-STAMP TEMP29>
4458 <PUTUV TEMP16 4 TEMP29 (TYPE FIX)>
4459 <DEAD TEMP16 TEMP29>
4461 <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE31>
4462 <TYPE? UV?7 <TYPE-CODE FALSE> + PHRASE31>
4463 <TYPE? AC12 <TYPE-CODE FALSE> + PHRASE34>
4470 <SUB AMT9 2 = STACK (TYPE FIX)>
4472 <CALL '
\1aDO-PUT 4 = TEMP16>
4476 <FRAME '
\1aPRIMTYPE>
4478 <CALL '
\1aPRIMTYPE 1 = TEMP29>
4479 <VEQUAL? TEMP29 'LIST - BOOL38>
4481 <EMPTY? VAL11 + BOOL37>
4483 <FRAME '
\1aPRIMTYPE>
4485 <CALL '
\1aPRIMTYPE 1 = TEMP29>
4486 <VEQUAL? TEMP29 'WORD - PHRASE36>
4488 <VEQUAL? VAL11 0 - PHRASE36 (TYPE FIX)>
4493 <SET TEMP16 2 (TYPE FIX)>
4497 <SCALL '
\1aOBJ-VAL 1 = TEMP29 + TAG44 TEMP16>
4498 <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP16 VALUE)>
4501 <EMPTY? TEMP29 + TAG44>
4502 <NTH1 TEMP29 = STACK>
4503 <REST1 TEMP29 = TEMP29>
4504 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
4507 <CALL '
\1aOCEMIT TEMP16 = TEMP16>
4511 <FRAME '
\1aPRIMTYPE>
4513 <CALL '
\1aPRIMTYPE 1 = TEMP16>
4514 <VEQUAL? TEMP16 'WORD - PHRASE49>
4516 <VEQUAL? VAL11 -1 - PHRASE49 (TYPE FIX)>
4520 <SET TEMP29 2 (TYPE FIX)>
4524 <SCALL '
\1aOBJ-VAL 1 = TEMP16 + TAG54 TEMP29>
4525 <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP29 VALUE)>
4528 <EMPTY? TEMP16 + TAG54>
4529 <NTH1 TEMP16 = STACK>
4530 <REST1 TEMP16 = TEMP16>
4531 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
4534 <CALL '
\1aOCEMIT TEMP29 = TEMP16>
4539 <TYPE? VAL11 <TYPE-CODE ATOM> - PHRASE58>
4545 <CALL '
\1aLOAD-AC 2 = STACK>
4546 <CALL '
\1aNEXT-AC 1 = TEMP16>
4552 <SET TEMP16 3 (TYPE FIX)>
4556 <SCALL '
\1aOBJ-VAL 1 = TEMP29 + TAG61 TEMP16>
4557 <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP16 VALUE)>
4560 <EMPTY? TEMP29 + TAG61>
4561 <NTH1 TEMP29 = STACK>
4562 <REST1 TEMP29 = TEMP29>
4563 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
4566 <CALL '
\1aOCEMIT TEMP16 = TEMP16>
4570 <FRAME '
\1aGET-INTO-ACS>
4575 <CALL '
\1aGET-INTO-ACS 3>
4580 <SET TEMP29 3 (TYPE FIX)>
4584 <SCALL '
\1aOBJ-VAL 1 = TEMP16 + TAG67 TEMP29>
4585 <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP29 VALUE)>
4588 <EMPTY? TEMP16 + TAG67>
4589 <NTH1 TEMP16 = STACK>
4590 <REST1 TEMP16 = TEMP16>
4591 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
4594 <CALL '
\1aOCEMIT TEMP29 = TEMP16>
4599 <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE71>
4600 <TYPE? AC12 <TYPE-CODE FALSE> + PHRASE73>
4608 <SUB AMT9 1 = TEMP29 (TYPE FIX)>
4610 <LSH TEMP29 1 = STACK (TYPE FIX)>
4612 <CALL '
\1aDO-PUT 4 = TEMP16>
4620 <CALL '
\1aLOAD-AC 2 = TEMP16>
4626 <SET TEMP16 3 (TYPE FIX)>
4630 <SCALL '
\1aOBJ-VAL 1 = TEMP29 + TAG77 TEMP16>
4631 <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP16 VALUE)>
4634 <EMPTY? TEMP29 + TAG77>
4635 <NTH1 TEMP29 = STACK>
4636 <REST1 TEMP29 = TEMP29>
4637 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
4640 <CALL '
\1aOCEMIT TEMP16 = TEMP16>
4647 <CALL '
\1aIN-AC? 2 = AMT-AC13>
4648 <TYPE? AMT-AC13 <TYPE-CODE FALSE> + PHRASE83>
4649 <FRAME '
\1aWILL-DIE?>
4651 <CALL '
\1aWILL-DIE? 1 = TEMP16>
4652 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE83>
4654 <SETG 'FIRST-AC %<>>
4655 <FRAME '
\1aDEAD!-MIMOC>
4656 <CONS AMT9 () = STACK>
4659 <CALL '
\1aDEAD!-MIMOC 2>
4662 <CALL '
\1aGET-AC 1 = TEMP16>
4663 <GVAL 'AC-STAMP = TEMP29>
4664 <PUTUV TEMP16 4 TEMP29 (TYPE FIX)>
4665 <DEAD TEMP16 TEMP29>
4670 <CALL '
\1aGETPROP 2 = TEMP16>
4673 <CALL '
\1aGET-AC 1 = TEMP16>
4674 <GVAL 'AC-STAMP = TEMP29>
4675 <PUTUV TEMP16 4 TEMP29 (TYPE FIX)>
4676 <DEAD TEMP16 TEMP29>
4679 <FRAME '
\1aGET-INTO-ACS>
4683 <SET AMT-AC13 'T* (TYPE ATOM)>
4685 <CALL '
\1aGET-INTO-ACS 3>
4687 <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE94>
4694 <TYPE? AC12 <TYPE-CODE FALSE> + PHRASE97>
4706 <SET TEMP29 2 (TYPE FIX)>
4710 <SCALL '
\1aOBJ-VAL 1 = TEMP16 + TAG100 TEMP29>
4711 <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP29 VALUE)>
4714 <EMPTY? TEMP16 + TAG100>
4715 <NTH1 TEMP16 = STACK>
4716 <REST1 TEMP16 = TEMP16>
4717 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
4720 <CALL '
\1aOCEMIT TEMP29>
4723 <TYPE? UV?7 <TYPE-CODE FALSE> + PHRASE105>
4746 <CALL '
\1aGET-AC 1 = TEMP29>
4747 <PUTUV TEMP29 3 'DUMMY (TYPE ATOM)>
4750 <END
\1aPUTUV!-MIMOC>
\r\r
4752 <GFCN
\1aRESTUU!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
4755 <FRAME '
\1aRESTUV!-MIMOC>
4759 <CALL '
\1aRESTUV!-MIMOC 2 = TEMP7>
4762 <END
\1aRESTUU!-MIMOC>
4764 <GFCN
\1aRESTUV!-MIMOC ("VALUE" <OR FALSE FIX> LIST "OPTIONAL" ANY) L6 UV?7>
4765 <OPT-DISPATCH 1 %<> OPT4 OPT5>
4769 <TEMP V8 TEMP14 AMT9 VAL10:ATOM AC11 NAC12 TEMP52>
4772 <RESTL L6 1 = TEMP14 (TYPE LIST)>
4773 <NTHL TEMP14 1 = AMT9>
4775 <RESTL L6 1 = TEMP14 (TYPE LIST)>
4776 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
4777 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
4778 <NTHL TEMP14 1 = VAL10 (TYPE ATOM)>
4780 <FRAME '
\1aEXTRAMEM>
4784 <CALL '
\1aEXTRAMEM 2>
4785 <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE17>
4786 <VEQUAL? AMT9 1 - PHRASE19 (TYPE FIX)>
4787 <VEQUAL? V8 VAL10 - PHRASE19>
4791 <CALL '
\1aIN-AC? 2 = AC11>
4797 <CALL '
\1aLOAD-AC 2 = AC11>
4799 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE27>
4800 <VEQUAL? V8 VAL10 + PHRASE29>
4801 <FRAME '
\1aWILL-DIE?>
4804 <CALL '
\1aWILL-DIE? 1 = TEMP14>
4805 <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE29>
4809 <CALL '
\1aGET-AC 1 = TEMP14>
4810 <NTHUV TEMP14 5 = TEMP14>
4811 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE29>
4813 <FRAME '
\1aCLEAN-ACS>
4815 <CALL '
\1aCLEAN-ACS 1>
4816 <FRAME '
\1aASSIGN-AC>
4820 <CALL '
\1aASSIGN-AC 3 = NAC12>
4829 <FRAME '
\1aCLEAN-ACS>
4831 <CALL '
\1aCLEAN-ACS 1>
4832 <VEQUAL? VAL10 'STACK + PHRASE39>
4833 <FRAME '
\1aALTER-AC>
4836 <CALL '
\1aALTER-AC 2>
4839 <FRAME '
\1aMUNGED-AC>
4842 <CALL '
\1aMUNGED-AC 2>
4851 <CALL '
\1aNEXT-AC 1 = STACK>
4852 <TYPE? UV?7 <TYPE-CODE FALSE> + PHRASE46>
4857 <LSH AMT9 1 = TEMP14 (TYPE FIX)>
4870 <FRAME '
\1aASSIGN-AC>
4874 <CALL '
\1aASSIGN-AC 3 = NAC12>
4878 <SET TEMP52 2 (TYPE FIX)>
4882 <SCALL '
\1aOBJ-LOC 2 = TEMP14 + TAG51 TEMP52>
4883 <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
4886 <EMPTY? TEMP14 + TAG51>
4887 <NTH1 TEMP14 = STACK>
4888 <REST1 TEMP14 = TEMP14>
4889 <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
4892 <CALL '
\1aOCEMIT TEMP52>
4894 <TYPE? UV?7 <TYPE-CODE FALSE> + PHRASE57>
4900 <CALL '
\1aNEXT-AC 1 = STACK>
4901 <SET TEMP14 2 (TYPE FIX)>
4905 <SCALL '
\1aOBJ-LOC 2 = TEMP52 + TAG58 TEMP14>
4906 <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
4909 <EMPTY? TEMP52 + TAG58>
4910 <NTH1 TEMP52 = STACK>
4911 <REST1 TEMP52 = TEMP52>
4912 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
4915 <CALL '
\1aOCEMIT TEMP14>
4923 <CALL '
\1aNEXT-AC 1 = STACK>
4930 <CALL '
\1aNEXT-AC 1 = STACK>
4931 <SET TEMP52 2 (TYPE FIX)>
4935 <SCALL '
\1aOBJ-LOC 2 = TEMP14 + TAG66 TEMP52>
4936 <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
4939 <EMPTY? TEMP14 + TAG66>
4940 <NTH1 TEMP14 = STACK>
4941 <REST1 TEMP14 = TEMP14>
4942 <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
4945 <CALL '
\1aOCEMIT TEMP52>
4950 <CALL '
\1aGET-AC 1 = TEMP52>
4951 <PUTUV TEMP52 5 %<>>
4956 <CALL '
\1aNEXT-AC 1 = STACK>
4957 <CALL '
\1aGET-AC 1 = TEMP52>
4958 <PUTUV TEMP52 5 %<>>
4962 <CALL '
\1aGET-AC 1 = TEMP52>
4968 <CALL '
\1aNEXT-AC 1 = STACK>
4969 <CALL '
\1aGET-AC 1 = TEMP52>
4974 <CALL '
\1aGET-AC 1 = TEMP52>
4975 <PUTUV TEMP52 3 'TYPE (TYPE ATOM)>
4980 <CALL '
\1aNEXT-AC 1 = STACK>
4981 <CALL '
\1aGET-AC 1 = TEMP52>
4982 <PUTUV TEMP52 3 'VALUE (TYPE ATOM)>
4986 <VEQUAL? V8 VAL10 - PHRASE80>
4991 <CALL '
\1aLOAD-AC 2 = NAC12>
4995 <CALL '
\1aIN-AC? 2 = AC11>
4996 <TYPE? AC11 <TYPE-CODE FALSE> + BOOL83>
4997 <FRAME '
\1aWILL-DIE?>
4999 <CALL '
\1aWILL-DIE? 1 = TEMP52>
5000 <TYPE? TEMP52 <TYPE-CODE FALSE> + BOOL86>
5002 <FRAME '
\1aDEAD!-MIMOC>
5003 <CONS AMT9 () = STACK>
5005 <CALL '
\1aDEAD!-MIMOC 2 = TEMP52>
5006 <TYPE? TEMP52 <TYPE-CODE FALSE> - PHRASE90>
5011 <CALL '
\1aGET-AC 1 = TEMP52>
5012 <NTHUV TEMP52 5 = TEMP52>
5013 <TYPE? TEMP52 <TYPE-CODE FALSE> + PHRASE90>
5016 <SET AC11 %<> (TYPE FALSE)>
5021 <SET TEMP14 2 (TYPE FIX)>
5022 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE93>
5023 <CONS AC11 () = TEMP52>
5028 <CALL '
\1aOBJ-VAL 1 = TEMP52>
5030 <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
5033 <EMPTY? TEMP52 + TAG91>
5034 <NTH1 TEMP52 = STACK>
5035 <REST1 TEMP52 = TEMP52>
5036 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
5039 <CALL '
\1aOCEMIT TEMP14>
5041 <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE99>
5042 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE99>
5050 <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE102>
5056 <CALL '
\1aNEXT-AC 1 = STACK>
5057 <SET TEMP52 2 (TYPE FIX)>
5058 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE106>
5059 <CONS AC11 () = TEMP14>
5064 <CALL '
\1aOBJ-VAL 1 = TEMP14>
5066 <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
5069 <EMPTY? TEMP14 + TAG103>
5070 <NTH1 TEMP14 = STACK>
5071 <REST1 TEMP14 = TEMP14>
5072 <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
5075 <CALL '
\1aOCEMIT TEMP52>
5082 <CALL '
\1aNEXT-AC 1 = STACK>
5083 <SET TEMP14 2 (TYPE FIX)>
5084 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE114>
5085 <CONS AC11 () = TEMP52>
5092 <CALL '
\1aOBJ-VAL 1 = TEMP52>
5094 <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
5097 <EMPTY? TEMP52 + TAG111>
5098 <NTH1 TEMP52 = STACK>
5099 <REST1 TEMP52 = TEMP52>
5100 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
5103 <CALL '
\1aOCEMIT TEMP14>
5107 <CALL '
\1aGET-AC 1 = TEMP14>
5113 <CALL '
\1aNEXT-AC 1 = STACK>
5114 <CALL '
\1aGET-AC 1 = TEMP14>
5119 <VEQUAL? VAL10 AMT9 - PHRASE122>
5123 <CALL '
\1aIN-AC? 2 = AC11>
5124 <SETG 'FIRST-AC %<>>
5129 <CALL '
\1aLOAD-AC 2 = NAC12>
5130 <FRAME '
\1aFLUSH-AC>
5133 <CALL '
\1aFLUSH-AC 2>
5134 <FRAME '
\1aMUNGED-AC>
5137 <CALL '
\1aMUNGED-AC 2>
5138 <FRAME '
\1aCLEAN-ACS>
5140 <CALL '
\1aCLEAN-ACS 1>
5144 <SET TEMP52 2 (TYPE FIX)>
5145 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE130>
5146 <CONS AC11 () = TEMP14>
5151 <CALL '
\1aOBJ-VAL 1 = TEMP14>
5153 <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
5156 <EMPTY? TEMP14 + TAG128>
5157 <NTH1 TEMP14 = STACK>
5158 <REST1 TEMP14 = TEMP14>
5159 <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
5162 <CALL '
\1aOCEMIT TEMP52>
5164 <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE136>
5165 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE136>
5173 <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE139>
5179 <CALL '
\1aNEXT-AC 1 = STACK>
5180 <SET TEMP14 2 (TYPE FIX)>
5181 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE143>
5182 <CONS AC11 () = TEMP52>
5187 <CALL '
\1aOBJ-VAL 1 = TEMP52>
5189 <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
5192 <EMPTY? TEMP52 + TAG140>
5193 <NTH1 TEMP52 = STACK>
5194 <REST1 TEMP52 = TEMP52>
5195 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
5198 <CALL '
\1aOCEMIT TEMP14>
5205 <CALL '
\1aNEXT-AC 1 = STACK>
5206 <SET TEMP52 2 (TYPE FIX)>
5207 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE151>
5208 <CONS AC11 () = TEMP14>
5215 <CALL '
\1aOBJ-VAL 1 = TEMP14>
5217 <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
5220 <EMPTY? TEMP14 + TAG148>
5221 <NTH1 TEMP14 = STACK>
5222 <REST1 TEMP14 = TEMP14>
5223 <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
5226 <CALL '
\1aOCEMIT TEMP52>
5228 <FRAME '
\1aALTER-AC>
5231 <CALL '
\1aALTER-AC 2>
5238 <CALL '
\1aLOAD-AC 2 = NAC12>
5239 <FRAME '
\1aFLUSH-AC>
5242 <CALL '
\1aFLUSH-AC 2>
5243 <FRAME '
\1aMUNGED-AC>
5246 <CALL '
\1aMUNGED-AC 2>
5250 <CALL '
\1aIN-AC? 2 = AC11>
5251 <TYPE? AC11 <TYPE-CODE FALSE> + BOOL162>
5252 <FRAME '
\1aWILL-DIE?>
5254 <CALL '
\1aWILL-DIE? 1 = TEMP52>
5255 <TYPE? TEMP52 <TYPE-CODE FALSE> + BOOL165>
5257 <FRAME '
\1aDEAD!-MIMOC>
5258 <CONS AMT9 () = STACK>
5260 <CALL '
\1aDEAD!-MIMOC 2 = TEMP52>
5261 <TYPE? TEMP52 <TYPE-CODE FALSE> - PHRASE169>
5266 <CALL '
\1aGET-AC 1 = TEMP52>
5267 <NTHUV TEMP52 5 = TEMP52>
5268 <TYPE? TEMP52 <TYPE-CODE FALSE> + PHRASE169>
5270 <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE169>
5272 <SET AC11 %<> (TYPE FALSE)>
5277 <SET TEMP14 2 (TYPE FIX)>
5278 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE172>
5279 <CONS AC11 () = TEMP52>
5284 <CALL '
\1aOBJ-VAL 1 = TEMP52>
5286 <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
5289 <EMPTY? TEMP52 + TAG170>
5290 <NTH1 TEMP52 = STACK>
5291 <REST1 TEMP52 = TEMP52>
5292 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
5295 <CALL '
\1aOCEMIT TEMP14>
5297 <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE178>
5298 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE178>
5306 <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE181>
5312 <CALL '
\1aNEXT-AC 1 = STACK>
5313 <SET TEMP52 2 (TYPE FIX)>
5314 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE185>
5315 <CONS AC11 () = TEMP14>
5320 <CALL '
\1aOBJ-VAL 1 = TEMP14>
5322 <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
5325 <EMPTY? TEMP14 + TAG182>
5326 <NTH1 TEMP14 = STACK>
5327 <REST1 TEMP14 = TEMP14>
5328 <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
5331 <CALL '
\1aOCEMIT TEMP52>
5338 <CALL '
\1aNEXT-AC 1 = STACK>
5339 <SET TEMP14 2 (TYPE FIX)>
5340 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE193>
5341 <CONS AC11 () = TEMP52>
5348 <CALL '
\1aOBJ-VAL 1 = TEMP52>
5350 <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
5353 <EMPTY? TEMP52 + TAG190>
5354 <NTH1 TEMP52 = STACK>
5355 <REST1 TEMP52 = TEMP52>
5356 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
5359 <CALL '
\1aOCEMIT TEMP14>
5361 <VEQUAL? VAL10 'STACK + PHRASE199>
5362 <FRAME '
\1aALTER-AC>
5365 <CALL '
\1aALTER-AC 2>
5367 <VEQUAL? VAL10 'STACK + TAG203>
5382 <CALL '
\1aNEXT-AC 1 = STACK>
5384 <GVAL 'WINNING-VICTIM = TEMP14>
5385 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE208>
5386 <GVAL 'STACK-DEPTH = TEMP52>
5387 <ADD TEMP52 2 = TEMP52 (TYPE FIX)>
5388 <SETG 'STACK-DEPTH TEMP52>
5394 <END
\1aRESTUV!-MIMOC>
\r\r
5396 <GFCN
\1aEMPUV?!-MIMOC ("VALUE" ANY LIST) L5>
5397 <TEMP V6 TEMP11 TAG7:ATOM (JUMP8 'JUMPE) (TRN9 'TRNN) AC10 TEMP24:FIX TEMP23>
5400 <RESTL L5 1 = TEMP11 (TYPE LIST)>
5401 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
5402 <NTHL TEMP11 1 = TAG7 (TYPE ATOM)>
5404 <RESTL L5 1 = TEMP11 (TYPE LIST)>
5406 <NTHL TEMP11 1 = TEMP11>
5407 <EQUAL? TEMP11 '- - PHRASE13>
5409 <SET JUMP8 'JUMPN (TYPE ATOM)>
5410 <SET TRN9 'TRNE (TYPE ATOM)>
5412 <FRAME '
\1aLABEL-UPDATE-ACS>
5415 <CALL '
\1aLABEL-UPDATE-ACS 2>
5419 <CALL '
\1aIN-AC? 2 = AC10>
5420 <TYPE? AC10 <TYPE-CODE FALSE> + PHRASE16>
5432 <CALL '
\1aXJUMP 1 = STACK>
5433 <CALL '
\1aOCEMIT 2 = TEMP11>
5440 <SET TEMP24 2 (TYPE FIX)>
5444 <SCALL '
\1aOBJ-TYP 1 = TEMP23 + TAG22 TEMP24>
5445 <LOOP (TEMP23 TYPE VALUE LENGTH) (TEMP24 VALUE)>
5448 <EMPTY? TEMP23 + TAG22>
5449 <NTH1 TEMP23 = STACK>
5450 <REST1 TEMP23 = TEMP23>
5451 <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
5455 <CALL '
\1aOCEMIT TEMP24>
5464 <CALL '
\1aXJUMP 1 = STACK>
5465 <CALL '
\1aOCEMIT 3 = TEMP11>
5468 <END
\1aEMPUV?!-MIMOC>
5470 <GFCN
\1aLENUV!-MIMOC ("VALUE" <OR FALSE FIX AC> LIST) L5>
5471 <TEMP V6 TEMP9 VAL7:ATOM TEMP13>
5474 <RESTL L5 1 = TEMP9 (TYPE LIST)>
5476 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
5477 <NTHL TEMP9 1 = VAL7 (TYPE ATOM)>
5479 <VEQUAL? VAL7 'STACK - PHRASE11>
5483 <SET TEMP13 2 (TYPE FIX)>
5486 <SCALL '
\1aTYPE-WORD 1 = TEMP9 + TAG12 TEMP13>
5487 <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP13 VALUE)>
5490 <EMPTY? TEMP9 + TAG12>
5491 <NTH1 TEMP9 = STACK>
5492 <REST1 TEMP9 = TEMP9>
5493 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
5496 <CALL '
\1aOCEMIT TEMP13>
5498 <GVAL 'WINNING-VICTIM = TEMP13>
5499 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE18>
5501 <GVAL 'STACK-DEPTH = TEMP13>
5502 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
5503 <SETG 'STACK-DEPTH TEMP13>
5509 <SET TEMP9 2 (TYPE FIX)>
5513 <SCALL '
\1aOBJ-TYP 1 = TEMP13 + TAG19 TEMP9>
5514 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP9 VALUE)>
5517 <EMPTY? TEMP13 + TAG19>
5518 <NTH1 TEMP13 = STACK>
5519 <REST1 TEMP13 = TEMP13>
5520 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
5523 <CALL '
\1aOCEMIT TEMP9>
5530 <GVAL 'WINNING-VICTIM = TEMP9>
5531 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE26>
5532 <GVAL 'STACK-DEPTH = TEMP13>
5533 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
5534 <SETG 'STACK-DEPTH TEMP13>
5538 <FRAME '
\1aASSIGN-AC>
5542 <CALL '
\1aASSIGN-AC 2 = VAL7>
5547 <CALL '
\1aNEXT-AC 1 = STACK>
5548 <SET TEMP9 2 (TYPE FIX)>
5552 <SCALL '
\1aOBJ-TYP 1 = TEMP13 + TAG28 TEMP9>
5553 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP9 VALUE)>
5556 <EMPTY? TEMP13 + TAG28>
5557 <NTH1 TEMP13 = STACK>
5558 <REST1 TEMP13 = TEMP13>
5559 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
5562 <CALL '
\1aOCEMIT TEMP9>
5567 <CALL '
\1aGET-AC 1 = TEMP9>
5568 <PUTUV TEMP9 6 'FIX>
5572 <END
\1aLENUV!-MIMOC>
5574 <GFCN
\1aNTHUB!-MIMOC ("VALUE" <OR AC FALSE> ANY) L5>
5577 <FRAME '
\1aNTHUS!-MIMOC>
5581 <CALL '
\1aNTHUS!-MIMOC 2 = TEMP7>
5584 <END
\1aNTHUB!-MIMOC>
5586 <GFCN
\1aNTHUS!-MIMOC ("VALUE" <OR FALSE AC> LIST "OPTIONAL" <OR ATOM FALSE>) L6 BYTES?7>
5587 <OPT-DISPATCH 1 %<> OPT4 OPT5>
5591 <TEMP V8 TEMP14 AMT9 VAL10:ATOM AC11 TEMP27 TEMP29>
5594 <RESTL L6 1 = TEMP14 (TYPE LIST)>
5595 <NTHL TEMP14 1 = AMT9>
5597 <RESTL L6 1 = TEMP14 (TYPE LIST)>
5598 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
5599 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
5600 <NTHL TEMP14 1 = VAL10 (TYPE ATOM)>
5606 <CALL '
\1aPUTPROP 2 = TEMP14>
5607 <SETG 'REMEMBER-STRING %<>>
5608 <SETG 'DIE-LATER %<>>
5609 <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE17>
5610 <VEQUAL? VAL10 V8 + PHRASE17>
5611 <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE17>
5612 <FRAME '
\1aSTRING-PUT-NTH-LOOK-AHEAD>
5618 <CALL '
\1aSTRING-PUT-NTH-LOOK-AHEAD 5 = TEMP14>
5620 <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG22>
5626 <CALL '
\1aIN-AC? 2 = AC11>
5627 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE24>
5630 <CALL '
\1aGET-AC 1 = TEMP27>
5631 <PUTUV TEMP27 3 'VALUE (TYPE ATOM)>
5633 <SET AMT9 1 (TYPE FIX)>
5634 <SETG 'FIRST-AC %<>>
5637 <CALL '
\1aGET-AC 1 = TEMP27>
5638 <GVAL 'AC-STAMP = TEMP29>
5639 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
5640 <SETG 'AC-STAMP TEMP29>
5641 <PUTUV TEMP27 4 TEMP29 (TYPE FIX)>
5642 <DEAD TEMP27 TEMP29>
5645 <EQUAL? AMT9 1 + PHRASE30>
5646 <EQUAL? AMT9 2 + PHRASE30>
5650 <CALL '
\1aLOAD-AC 2 = AC11>
5651 <FRAME '
\1aFLUSH-AC>
5653 <CALL '
\1aFLUSH-AC 1>
5654 <FRAME '
\1aMUNGED-AC>
5656 <CALL '
\1aMUNGED-AC 1>
5658 <GVAL 'ADJBP-HACK = TEMP27>
5659 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE37>
5661 <SET TEMP27 'MADJBP (TYPE ATOM)>
5664 <SET TEMP27 'ADJBP (TYPE ATOM)>
5669 <SET TEMP29 2 (TYPE FIX)>
5672 <SCALL '
\1aOBJ-VAL 1 = TEMP27 + TAG35 TEMP29>
5673 <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP29 VALUE)>
5676 <EMPTY? TEMP27 + TAG35>
5677 <NTH1 TEMP27 = STACK>
5678 <REST1 TEMP27 = TEMP27>
5679 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
5682 <CALL '
\1aOCEMIT TEMP29>
5689 <CALL '
\1aIN-AC? 2 = AC11>
5690 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE42>
5691 <FRAME '
\1aWILL-DIE?>
5693 <CALL '
\1aWILL-DIE? 1 = TEMP29>
5694 <TYPE? TEMP29 <TYPE-CODE FALSE> - BOOL45>
5698 <CALL '
\1aGET-AC 1 = TEMP29>
5699 <NTHUV TEMP29 5 = TEMP29>
5700 <TYPE? TEMP29 <TYPE-CODE FALSE> + BOOL45>
5702 <VEQUAL? V8 VAL10 + BOOL45>
5703 <GVAL 'DIE-LATER = TEMP29>
5704 <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE42>
5707 <FRAME '
\1aMUNGED-AC>
5709 <CALL '
\1aMUNGED-AC 1>
5710 <SETG 'FIRST-AC %<>>
5713 <CALL '
\1aGET-AC 1 = TEMP29>
5714 <GVAL 'AC-STAMP = TEMP27>
5715 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
5716 <SETG 'AC-STAMP TEMP27>
5717 <PUTUV TEMP29 4 TEMP27 (TYPE FIX)>
5718 <DEAD TEMP29 TEMP27>
5721 <GVAL 'REMEMBER-STRING = TEMP29>
5722 <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE50>
5724 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE52>
5725 <FRAME '
\1aFLUSH-AC>
5727 <CALL '
\1aFLUSH-AC 1>
5728 <SETG 'FIRST-AC %<>>
5731 <CALL '
\1aGET-AC 1 = TEMP29>
5732 <GVAL 'AC-STAMP = TEMP27>
5733 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
5734 <SETG 'AC-STAMP TEMP27>
5735 <PUTUV TEMP29 4 TEMP27 (TYPE FIX)>
5736 <DEAD TEMP29 TEMP27>
5739 <SETG 'FIRST-AC %<>>
5744 <CALL '
\1aLOAD-AC 2 = STACK>
5745 <CALL '
\1aNEXT-AC 1 = AC11>
5747 <FRAME '
\1aMUNGED-AC>
5749 <CALL '
\1aMUNGED-AC 1>
5752 <SET AC11 %<> (TYPE FALSE)>
5754 <VEQUAL? VAL10 'STACK - PHRASE61>
5755 <TYPE? BYTES?7 <TYPE-CODE FALSE> + PHRASE63>
5760 <SET TEMP27 2 (TYPE FIX)>
5763 <SCALL '
\1aTYPE-WORD 1 = TEMP29 + TAG64 TEMP27>
5764 <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP27 VALUE)>
5767 <EMPTY? TEMP29 + TAG64>
5768 <NTH1 TEMP29 = STACK>
5769 <REST1 TEMP29 = TEMP29>
5770 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
5773 <CALL '
\1aOCEMIT TEMP27>
5780 <SET TEMP29 2 (TYPE FIX)>
5783 <SCALL '
\1aTYPE-WORD 1 = TEMP27 + TAG69 TEMP29>
5784 <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP29 VALUE)>
5787 <EMPTY? TEMP27 + TAG69>
5788 <NTH1 TEMP27 = STACK>
5789 <REST1 TEMP27 = TEMP27>
5790 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
5793 <CALL '
\1aOCEMIT TEMP29>
5796 <GVAL 'WINNING-VICTIM = TEMP29>
5797 <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE74>
5799 <GVAL 'STACK-DEPTH = TEMP29>
5800 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
5801 <SETG 'STACK-DEPTH TEMP29>
5804 <TYPE? AC11 <TYPE-CODE FALSE> - PHRASE76>
5808 <SET TEMP27 2 (TYPE FIX)>
5811 <SCALL '
\1aOBJ-VAL 1 = TEMP29 + TAG77 TEMP27>
5812 <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP27 VALUE)>
5815 <EMPTY? TEMP29 + TAG77>
5816 <NTH1 TEMP29 = STACK>
5817 <REST1 TEMP29 = TEMP29>
5818 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
5821 <CALL '
\1aOCEMIT TEMP27>
5823 <SET AC11 'O* (TYPE ATOM)>
5836 <GVAL 'WINNING-VICTIM = TEMP27>
5837 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE84>
5839 <GVAL 'STACK-DEPTH = TEMP27>
5840 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
5841 <SETG 'STACK-DEPTH TEMP27>
5846 <CALL '
\1aGET-AC 1 = TEMP27>
5847 <PUTUV TEMP27 3 'DUMMY (TYPE ATOM)>
5851 <FRAME '
\1aASSIGN-AC>
5855 <CALL '
\1aASSIGN-AC 2 = TEMP14>
5856 <TYPE? AC11 <TYPE-CODE FALSE> - PHRASE89>
5861 <CALL '
\1aNEXT-AC 1 = AC11>
5863 <SET TEMP29 2 (TYPE FIX)>
5866 <SCALL '
\1aOBJ-VAL 1 = TEMP27 + TAG90 TEMP29>
5867 <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP29 VALUE)>
5870 <EMPTY? TEMP27 + TAG90>
5871 <NTH1 TEMP27 = STACK>
5872 <REST1 TEMP27 = TEMP27>
5873 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
5876 <CALL '
\1aOCEMIT TEMP29>
5882 <CALL '
\1aNEXT-AC 1 = STACK>
5887 <TYPE? BYTES?7 <TYPE-CODE FALSE> + PHRASE98>
5891 <CALL '
\1aGET-AC 1 = TEMP29>
5892 <PUTUV TEMP29 6 'FIX>
5898 <CALL '
\1aGET-AC 1 = TEMP29>
5899 <PUTUV TEMP29 6 'CHARACTER>
5902 <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG108>
5903 <EQUAL? AC11 TEMP14 - TAG107>
5909 <CALL '
\1aNEXT-AC 1 = TEMP29>
5910 <EQUAL? AC11 TEMP29 - TAG108>
5914 <GVAL 'REMEMBER-STRING = TEMP29>
5915 <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE111>
5920 <CALL '
\1aGET-AC 1 = TEMP29>
5923 <PUTUV TEMP29 3 'FUNNY-VALUE (TYPE ATOM)>
5924 <PUTUV TEMP29 5 %<>>
5931 <CALL '
\1aGET-AC 1 = TEMP29>
5932 <PUTUV TEMP29 3 'DUMMY (TYPE ATOM)>
5935 <END
\1aNTHUS!-MIMOC>
5937 <GFCN
\1aDNTH ("VALUE" ANY ATOM ATOM <OR ATOM FIX>) AC15 AC26 AMT7>
5940 <EQUAL? AMT7 1 + BOOL10>
5941 <EQUAL? AMT7 2 - PHRASE9>
5943 <EQUAL? AMT7 2 - PHRASE12>
5955 <CALL '
\1aOCEMIT 3 = TEMP15>
5965 <CALL '
\1aOCEMIT 3 = TEMP15>
5970 <GFCN
\1aPUTUS!-MIMOC ("VALUE" <OR FALSE AC> LIST "OPTIONAL" ANY) L6 BYTES?7>
5971 <OPT-DISPATCH 1 %<> OPT4 OPT5>
5975 <TEMP V8 TEMP15 AMT9 VAL10 (AC11 %<>) TEMP33 TAC14>
5978 <RESTL L6 1 = TEMP15 (TYPE LIST)>
5979 <NTHL TEMP15 1 = AMT9>
5981 <RESTL L6 1 = TEMP15 (TYPE LIST)>
5982 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
5983 <NTHL TEMP15 1 = VAL10>
5989 <CALL '
\1aPUTPROP 2 = TEMP15>
5990 <SETG 'REMEMBER-STRING %<>>
5991 <SETG 'DIE-LATER %<>>
5992 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE18>
5993 <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE18>
5994 <FRAME '
\1aSTRING-PUT-NTH-LOOK-AHEAD>
6001 <CALL '
\1aSTRING-PUT-NTH-LOOK-AHEAD 5 = TEMP15>
6003 <TYPE? TEMP15 <TYPE-CODE FALSE> + TAG23>
6010 <CALL '
\1aIN-AC? 2 = AC11>
6011 <TYPE? AC11 <TYPE-CODE FALSE> - BOOL26>
6012 <EQUAL? AMT9 1 + BOOL26>
6013 <EQUAL? AMT9 2 - PHRASE25>
6015 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE29>
6018 <CALL '
\1aGET-AC 1 = TEMP15>
6019 <PUTUV TEMP15 3 'VALUE (TYPE ATOM)>
6021 <SET AMT9 1 (TYPE FIX)>
6022 <SETG 'FIRST-AC %<>>
6025 <CALL '
\1aGET-AC 1 = TEMP15>
6026 <GVAL 'AC-STAMP = TEMP33>
6027 <ADD TEMP33 1 = TEMP33 (TYPE FIX)>
6028 <SETG 'AC-STAMP TEMP33>
6029 <PUTUV TEMP15 4 TEMP33 (TYPE FIX)>
6030 <DEAD TEMP15 TEMP33>
6036 <CALL '
\1aIN-AC? 2 = AC11>
6037 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE34>
6038 <FRAME '
\1aWILL-DIE?>
6040 <CALL '
\1aWILL-DIE? 1 = TEMP15>
6041 <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL37>
6043 <GVAL 'DIE-LATER = TEMP15>
6044 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE34>
6047 <SETG 'FIRST-AC %<>>
6050 <CALL '
\1aGET-AC 1 = TEMP15>
6051 <GVAL 'AC-STAMP = TEMP33>
6052 <ADD TEMP33 1 = TEMP33 (TYPE FIX)>
6053 <SETG 'AC-STAMP TEMP33>
6054 <PUTUV TEMP15 4 TEMP33 (TYPE FIX)>
6055 <DEAD TEMP15 TEMP33>
6056 <FRAME '
\1aFLUSH-AC>
6058 <CALL '
\1aFLUSH-AC 1>
6059 <FRAME '
\1aMUNGED-AC>
6061 <CALL '
\1aMUNGED-AC 1>
6064 <GVAL 'REMEMBER-STRING = TEMP15>
6065 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE42>
6067 <SETG 'FIRST-AC %<>>
6072 <CALL '
\1aLOAD-AC 2 = TAC14>
6074 <CALL '
\1aNEXT-AC 1 = AC11>
6075 <GVAL 'DIE-LATER = TEMP15>
6076 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE46>
6078 <FRAME '
\1aWILL-DIE?>
6080 <CALL '
\1aWILL-DIE? 1 = TEMP33>
6081 <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE46>
6083 <FRAME '
\1aFLUSH-AC>
6086 <CALL '
\1aFLUSH-AC 2>
6088 <FRAME '
\1aMUNGED-AC>
6092 <CALL '
\1aMUNGED-AC 2>
6097 <SET AC11 'O* (TYPE ATOM)>
6099 <SET TEMP33 2 (TYPE FIX)>
6102 <SCALL '
\1aOBJ-VAL 1 = TEMP15 + TAG52 TEMP33>
6103 <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP33 VALUE)>
6106 <EMPTY? TEMP15 + TAG52>
6107 <NTH1 TEMP15 = STACK>
6108 <REST1 TEMP15 = TEMP15>
6109 <ADD TEMP33 1 = TEMP33 (TYPE FIX)>
6112 <CALL '
\1aOCEMIT TEMP33>
6115 <EQUAL? AMT9 2 - PHRASE59>
6126 <CALL '
\1aIN-AC? 2 = TEMP15>
6127 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE68>
6128 <TYPE? VAL10 <TYPE-CODE ATOM> - PHRASE63>
6129 <FRAME '
\1aWILL-DIE?>
6131 <CALL '
\1aWILL-DIE? 1 = TEMP33>
6132 <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE63>
6139 <CALL '
\1aLOAD-AC 2 = STACK>
6140 <CALL '
\1aNEXT-AC 1 = TEMP15>
6143 <FRAME '
\1aGET-INTO-ACS>
6147 <SET TEMP15 'O1* (TYPE ATOM)>
6149 <CALL '
\1aGET-INTO-ACS 3>
6157 <GVAL 'REMEMBER-STRING = TEMP33>
6158 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE72>
6163 <CALL '
\1aGET-AC 1 = TEMP33>
6164 <PUTUV TEMP33 5 %<>>
6167 <PUTUV TEMP33 3 'FUNNY-VALUE (TYPE ATOM)>
6174 <CALL '
\1aGET-AC 1 = TEMP33>
6175 <PUTUV TEMP33 3 'DUMMY (TYPE ATOM)>
6182 <CALL '
\1aIN-AC? 2 = TAC14>
6183 <TYPE? TAC14 <TYPE-CODE FALSE> + BOOL80>
6186 <CALL '
\1aNEXT-AC 1 = AC11>
6187 <TYPE? AC11 <TYPE-CODE FALSE> - BOOL79>
6192 <CALL '
\1aIN-AC? 2 = AC11>
6193 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE78>
6195 <SETG 'FIRST-AC %<>>
6196 <FRAME '
\1aWILL-DIE?>
6198 <CALL '
\1aWILL-DIE? 1 = TEMP33>
6199 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE85>
6201 <FRAME '
\1aDEAD!-MIMOC>
6202 <CONS AMT9 () = STACK>
6205 <CALL '
\1aDEAD!-MIMOC 2>
6210 <CALL '
\1aGET-AC 1 = TEMP33>
6211 <NTHUV TEMP33 5 = TEMP33>
6212 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE88>
6220 <SET AC11 'O1* (TYPE ATOM)>
6222 <VEQUAL? AC11 'O1* + PHRASE102>
6223 <TYPE? TAC14 <TYPE-CODE FALSE> + PHRASE94>
6226 <CALL '
\1aGET-AC 1 = TEMP33>
6227 <GVAL 'AC-STAMP = TEMP15>
6228 <PUTUV TEMP33 4 TEMP15 (TYPE FIX)>
6229 <DEAD TEMP33 TEMP15>
6230 <FRAME '
\1aFLUSH-AC>
6233 <CALL '
\1aFLUSH-AC 2>
6236 <FRAME '
\1aFLUSH-AC>
6238 <CALL '
\1aFLUSH-AC 1>
6242 <CALL '
\1aGET-AC 1 = TEMP33>
6243 <GVAL 'AC-STAMP = TEMP15>
6244 <PUTUV TEMP33 4 TEMP15 (TYPE FIX)>
6245 <DEAD TEMP33 TEMP15>
6248 <GVAL 'REMEMBER-STRING = TEMP33>
6249 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE100>
6255 <CALL '
\1aLOAD-AC 2 = AC11>
6258 <FRAME '
\1aGET-INTO-ACS>
6262 <SET AC11 'O1* (TYPE ATOM)>
6264 <CALL '
\1aGET-INTO-ACS 3>
6267 <GVAL 'ADJBP-HACK = TEMP33>
6268 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE106>
6270 <SET TEMP33 'MADJBP (TYPE ATOM)>
6273 <SET TEMP33 'ADJBP (TYPE ATOM)>
6278 <SET TEMP15 2 (TYPE FIX)>
6281 <SCALL '
\1aOBJ-VAL 1 = TEMP33 + TAG104 TEMP15>
6282 <LOOP (TEMP33 TYPE VALUE LENGTH) (TEMP15 VALUE)>
6285 <EMPTY? TEMP33 + TAG104>
6286 <NTH1 TEMP33 = STACK>
6287 <REST1 TEMP33 = TEMP33>
6288 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
6291 <CALL '
\1aOCEMIT TEMP15>
6293 <TYPE? VAL10 <TYPE-CODE ATOM> - PHRASE112>
6294 <FRAME '
\1aWILL-DIE?>
6296 <CALL '
\1aWILL-DIE? 1 = TEMP15>
6297 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE112>
6304 <CALL '
\1aLOAD-AC 2 = STACK>
6305 <CALL '
\1aNEXT-AC 1 = TEMP15>
6308 <FRAME '
\1aGET-INTO-ACS>
6312 <SET TEMP15 'O* (TYPE ATOM)>
6314 <CALL '
\1aGET-INTO-ACS 3>
6322 <VEQUAL? AC11 'O1* - TAG122>
6325 <TYPE? TAC14 <TYPE-CODE FALSE> + PHRASE124>
6326 <FRAME '
\1aMUNGED-AC>
6330 <CALL '
\1aMUNGED-AC 2>
6333 <FRAME '
\1aMUNGED-AC>
6335 <CALL '
\1aMUNGED-AC 1>
6337 <GVAL 'REMEMBER-STRING = TEMP15>
6338 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE129>
6342 <CALL '
\1aGET-AC 1 = TEMP15>
6343 <PUTUV TEMP15 5 %<>>
6346 <PUTUV TEMP15 3 'FUNNY-VALUE (TYPE ATOM)>
6350 <END
\1aPUTUS!-MIMOC>
\r\r
6352 <GFCN
\1aPUTUB!-MIMOC ("VALUE" <OR AC FALSE> ANY) L5>
6355 <FRAME '
\1aPUTUS!-MIMOC>
6359 <CALL '
\1aPUTUS!-MIMOC 2 = TEMP7>
6362 <END
\1aPUTUB!-MIMOC>
6364 <GFCN
\1aRESTUS!-MIMOC ("VALUE" <OR FALSE FIX> LIST "OPTIONAL" <OR ATOM FALSE> ANY ANY ANY) L14 BYTES?15 OTH-VAL16 OP17 DEAD?18>
6365 <OPT-DISPATCH 1 %<> OPT9 OPT10 OPT11 OPT12 OPT13>
6375 <TEMP STR19:ATOM TEMP25 AMT20 VAL21:ATOM (OTH-AC23 %<>) NAC24 TEMP38>
6377 <NTHL L14 1 = STR19 (TYPE ATOM)>
6378 <RESTL L14 1 = TEMP25 (TYPE LIST)>
6379 <NTHL TEMP25 1 = AMT20>
6381 <RESTL L14 1 = TEMP25 (TYPE LIST)>
6382 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
6383 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
6384 <NTHL TEMP25 1 = VAL21 (TYPE ATOM)>
6389 <CALL '
\1aPUTPROP 2 = NAC24>
6390 <TYPE? NAC24 <TYPE-CODE FALSE> - PHRASE28>
6391 <EQUAL? AMT20 1 - PHRASE28>
6392 <VEQUAL? STR19 VAL21 + PHRASE28>
6393 <TYPE? OTH-VAL16 <TYPE-CODE FALSE> - PHRASE28>
6394 <FRAME '
\1aSTRING-REST-LOOK-AHEAD>
6400 <CALL '
\1aSTRING-REST-LOOK-AHEAD 4 = NAC24>
6403 <TYPE? OTH-VAL16 <TYPE-CODE FALSE> + PHRASE49>
6404 <EQUAL? OP17 'PUT - PHRASE49>
6408 <CALL '
\1aIN-AC? 2 = OTH-AC23>
6409 <TYPE? OTH-AC23 <TYPE-CODE FALSE> + PHRASE35>
6412 <CALL '
\1aGET-AC 1 = TEMP25>
6413 <GVAL 'AC-STAMP = TEMP38>
6414 <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
6415 <SETG 'AC-STAMP TEMP38>
6416 <PUTUV TEMP25 4 TEMP38 (TYPE FIX)>
6417 <DEAD TEMP25 TEMP38>
6422 <CALL '
\1aNEXT-AC 1 = OTH-AC23>
6424 <CALL '
\1aGET-AC 1 = TEMP25>
6425 <GVAL 'AC-STAMP = TEMP38>
6426 <PUTUV TEMP25 4 TEMP38 (TYPE FIX)>
6427 <DEAD TEMP25 TEMP38>
6433 <CALL '
\1aIN-AC? 2 = OTH-AC23>
6434 <TYPE? OTH-AC23 <TYPE-CODE FALSE> + PHRASE41>
6437 <CALL '
\1aGET-AC 1 = TEMP25>
6438 <GVAL 'AC-STAMP = TEMP38>
6439 <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
6440 <SETG 'AC-STAMP TEMP38>
6441 <PUTUV TEMP25 4 TEMP38 (TYPE FIX)>
6442 <DEAD TEMP25 TEMP38>
6445 <TYPE? OTH-VAL16 <TYPE-CODE ATOM> - PHRASE44>
6448 <SET OTH-AC23 'O* (TYPE ATOM)>
6450 <SET TEMP38 2 (TYPE FIX)>
6453 <SCALL '
\1aOBJ-VAL 1 = TEMP25 + TAG45 TEMP38>
6454 <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
6457 <EMPTY? TEMP25 + TAG45>
6458 <NTH1 TEMP25 = STACK>
6459 <REST1 TEMP25 = TEMP25>
6460 <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
6463 <CALL '
\1aOCEMIT TEMP38>
6469 <SET OTH-AC23 'O* (TYPE ATOM)>
6471 <CHTYPE OTH-VAL16 <TYPE-CODE FIX> = STACK>
6474 <TYPE? NAC24 <TYPE-CODE FALSE> + PHRASE52>
6475 <SET VAL21 'T (TYPE ATOM)>
6478 <EQUAL? AMT20 1 - PHRASE53>
6482 <CALL '
\1aIN-AC? 2 = TEMP38>
6483 <TYPE? TEMP38 <TYPE-CODE FALSE> - PHRASE53>
6485 <VEQUAL? STR19 VAL21 - PHRASE53>
6489 <CALL '
\1aIN-AC? 2 = NAC24>
6490 <TYPE? NAC24 <TYPE-CODE FALSE> + PHRASE57>
6493 <CALL '
\1aGET-AC 1 = TEMP38>
6494 <NTHUV TEMP38 5 = TEMP38>
6495 <TYPE? TEMP38 <TYPE-CODE FALSE> - PHRASE57>
6497 <FRAME '
\1aMUNGED-AC>
6500 <CALL '
\1aMUNGED-AC 1>
6505 <CALL '
\1aIN-AC? 2 = NAC24>
6506 <TYPE? NAC24 <TYPE-CODE FALSE> + PHRASE63>
6509 <CALL '
\1aGET-AC 1 = TEMP38>
6510 <NTHUV TEMP38 5 = TEMP38>
6511 <TYPE? TEMP38 <TYPE-CODE FALSE> - PHRASE63>
6513 <FRAME '
\1aMUNGED-AC>
6515 <CALL '
\1aMUNGED-AC 1>
6520 <SET TEMP25 2 (TYPE FIX)>
6523 <SCALL '
\1aOBJ-TYP 1 = TEMP38 + TAG68 TEMP25>
6524 <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
6527 <EMPTY? TEMP38 + TAG68>
6528 <NTH1 TEMP38 = STACK>
6529 <REST1 TEMP38 = TEMP38>
6530 <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
6533 <CALL '
\1aOCEMIT TEMP25>
6535 <TYPE? OTH-VAL16 <TYPE-CODE FALSE> + PHRASE73>
6536 <EQUAL? OP17 'PUT - PHRASE75>
6542 <SET TEMP38 2 (TYPE FIX)>
6546 <SCALL '
\1aOBJ-VAL 1 = TEMP25 + TAG76 TEMP38>
6547 <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
6550 <EMPTY? TEMP25 + TAG76>
6551 <NTH1 TEMP25 = STACK>
6552 <REST1 TEMP25 = TEMP25>
6553 <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
6556 <CALL '
\1aOCEMIT TEMP38>
6560 <EQUAL? OTH-VAL16 'STACK - PHRASE80>
6564 <SET TEMP25 2 (TYPE FIX)>
6568 <SCALL '
\1aOBJ-VAL 1 = TEMP38 + TAG81 TEMP25>
6569 <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
6572 <EMPTY? TEMP38 + TAG81>
6573 <NTH1 TEMP38 = STACK>
6574 <REST1 TEMP38 = TEMP38>
6575 <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
6578 <CALL '
\1aOCEMIT TEMP25>
6583 <SET TEMP38 2 (TYPE FIX)>
6585 <TYPE? BYTES?15 <TYPE-CODE FALSE> + PHRASE88>
6587 <SET AMT20 'FIX (TYPE ATOM)>
6590 <SET AMT20 'CHARACTER (TYPE ATOM)>
6594 <SCALL '
\1aTYPE-WORD 1 = TEMP25 + TAG85 TEMP38>
6595 <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
6598 <EMPTY? TEMP25 + TAG85>
6599 <NTH1 TEMP25 = STACK>
6600 <REST1 TEMP25 = TEMP25>
6601 <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
6604 <CALL '
\1aOCEMIT TEMP38>
6611 <GVAL 'WINNING-VICTIM = TEMP38>
6612 <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE264>
6614 <GVAL 'STACK-DEPTH = TEMP38>
6615 <ADD TEMP38 2 = TEMP38 (TYPE FIX)>
6616 <SETG 'STACK-DEPTH TEMP38>
6620 <FRAME '
\1aASSIGN-AC>
6624 <CALL '
\1aASSIGN-AC 2 = OTH-AC23>
6627 <CALL '
\1aGET-AC 1 = TEMP38>
6628 <TYPE? BYTES?15 <TYPE-CODE FALSE> + PHRASE100>
6630 <SET TEMP25 'FIX (TYPE ATOM)>
6633 <SET TEMP25 'CHARACTER (TYPE ATOM)>
6635 <PUTUV TEMP38 6 TEMP25>
6636 <DEAD TEMP38 TEMP25>
6642 <CALL '
\1aNEXT-AC 1 = STACK>
6643 <SET TEMP25 2 (TYPE FIX)>
6647 <SCALL '
\1aOBJ-VAL 1 = TEMP38 + TAG102 TEMP25>
6648 <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
6651 <EMPTY? TEMP38 + TAG102>
6652 <NTH1 TEMP38 = STACK>
6653 <REST1 TEMP38 = TEMP38>
6654 <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
6657 <CALL '
\1aOCEMIT TEMP25>
6664 <SET TEMP38 2 (TYPE FIX)>
6668 <SCALL '
\1aOBJ-VAL 1 = TEMP25 + TAG108 TEMP38>
6669 <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
6672 <EMPTY? TEMP25 + TAG108>
6673 <NTH1 TEMP25 = STACK>
6674 <REST1 TEMP25 = TEMP25>
6675 <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
6678 <CALL '
\1aOCEMIT TEMP38>
6682 <TYPE? AMT20 <TYPE-CODE FIX> - PHRASE112>
6683 <VEQUAL? AMT20 1 - PHRASE114 (TYPE FIX)>
6687 <CALL '
\1aLOAD-AC 2 = NAC24>
6688 <TYPE? OTH-VAL16 <TYPE-CODE FALSE> + BOOL120>
6689 <EQUAL? OP17 'PUT + BOOL120>
6690 <EQUAL? OTH-VAL16 'STACK - PHRASE129>
6692 <TYPE? DEAD?18 <TYPE-CODE UNBOUND> + BOOL124>
6693 <TYPE? DEAD?18 <TYPE-CODE FALSE> - PHRASE122>
6695 <TYPE? DEAD?18 <TYPE-CODE UNBOUND> - BOOL125>
6696 <FRAME '
\1aWILL-DIE?>
6698 <CALL '
\1aWILL-DIE? 1 = TEMP38>
6699 <TYPE? TEMP38 <TYPE-CODE FALSE> - PHRASE122>
6702 <VEQUAL? STR19 VAL21 + PHRASE122>
6703 <FRAME '
\1aFLUSH-AC>
6706 <CALL '
\1aFLUSH-AC 2>
6708 <FRAME '
\1aMUNGED-AC>
6711 <CALL '
\1aMUNGED-AC 2>
6717 <CALL '
\1aLOAD-AC 2 = NAC24>
6718 <FRAME '
\1aWILL-DIE?>
6720 <CALL '
\1aWILL-DIE? 1 = TEMP25>
6721 <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE132>
6723 <FRAME '
\1aFLUSH-AC>
6725 <CALL '
\1aFLUSH-AC 1>
6727 <FRAME '
\1aMUNGED-AC>
6729 <CALL '
\1aMUNGED-AC 1>
6736 <VEQUAL? AMT20 1 - PHRASE138 (TYPE FIX)>
6737 <TYPE? OTH-VAL16 <TYPE-CODE FALSE> + PHRASE142>
6738 <EQUAL? OP17 'PUT - PHRASE144>
6746 <CALL '
\1aNEXT-AC 1 = STACK>
6750 <EQUAL? OTH-VAL16 'STACK - PHRASE147>
6756 <CALL '
\1aNEXT-AC 1 = STACK>
6761 <SET AMT20 2 (TYPE FIX)>
6763 <TYPE? BYTES?15 <TYPE-CODE FALSE> + PHRASE153>
6765 <SET TEMP38 'FIX (TYPE ATOM)>
6768 <SET TEMP38 'CHARACTER (TYPE ATOM)>
6772 <SCALL '
\1aTYPE-WORD 1 = TEMP25 + TAG150 AMT20>
6773 <LOOP (TEMP25 TYPE VALUE LENGTH) (AMT20 VALUE)>
6776 <EMPTY? TEMP25 + TAG150>
6777 <NTH1 TEMP25 = STACK>
6778 <REST1 TEMP25 = TEMP25>
6779 <ADD AMT20 1 = AMT20 (TYPE FIX)>
6782 <CALL '
\1aOCEMIT AMT20>
6789 <GVAL 'WINNING-VICTIM = AMT20>
6790 <TYPE? AMT20 <TYPE-CODE FALSE> + PHRASE196>
6792 <GVAL 'STACK-DEPTH = AMT20>
6793 <ADD AMT20 2 = AMT20 (TYPE FIX)>
6794 <SETG 'STACK-DEPTH AMT20>
6798 <TYPE? DEAD?18 <TYPE-CODE UNBOUND> + BOOL165>
6799 <TYPE? DEAD?18 <TYPE-CODE FALSE> - PHRASE163>
6801 <TYPE? DEAD?18 <TYPE-CODE UNBOUND> - BOOL166>
6803 <FRAME '
\1aWILL-DIE?>
6805 <CALL '
\1aWILL-DIE? 1 = AMT20>
6806 <TYPE? AMT20 <TYPE-CODE FALSE> - PHRASE163>
6809 <VEQUAL? STR19 VAL21 + PHRASE163>
6811 <FRAME '
\1aFLUSH-AC>
6814 <CALL '
\1aFLUSH-AC 2>
6816 <FRAME '
\1aMUNGED-AC>
6819 <CALL '
\1aMUNGED-AC 2>
6820 <FRAME '
\1aASSIGN-AC>
6824 <CALL '
\1aASSIGN-AC 2 = OTH-AC23>
6827 <CALL '
\1aGET-AC 1 = TEMP25>
6828 <TYPE? BYTES?15 <TYPE-CODE FALSE> + PHRASE173>
6830 <SET TEMP38 'FIX (TYPE ATOM)>
6833 <SET TEMP38 'CHARACTER (TYPE ATOM)>
6835 <PUTUV TEMP25 6 TEMP38>
6836 <DEAD TEMP25 TEMP38>
6842 <CALL '
\1aNEXT-AC 1 = STACK>
6845 <CALL '
\1aNEXT-AC 1 = STACK>
6854 <CALL '
\1aNEXT-AC 1 = STACK>
6861 <CALL '
\1aIN-AC? 2 = TEMP25>
6864 <CALL '
\1aNEXT-AC 1 = TEMP38>
6865 <EQUAL? TEMP25 TEMP38 - PHRASE181>
6866 <DEAD TEMP25 TEMP38>
6870 <CALL '
\1aNEXT-AC 1 = STACK>
6871 <CALL '
\1aGET-AC 1 = TEMP38>
6872 <NTHUV TEMP38 5 = TEMP38>
6873 <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE181>
6875 <FRAME '
\1aSMASH-AC>
6880 <CALL '
\1aSMASH-AC 3>
6881 <FRAME '
\1aMUNGED-AC>
6883 <CALL '
\1aMUNGED-AC 1>
6888 <CALL '
\1aNEXT-AC 1 = STACK>
6893 <GVAL 'ADJBP-HACK = TEMP38>
6894 <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE193>
6896 <SET TEMP38 'MADJBP (TYPE ATOM)>
6899 <SET TEMP38 'ADJBP (TYPE ATOM)>
6905 <CALL '
\1aNEXT-AC 1 = STACK>
6910 <FRAME '
\1aFLUSH-AC>
6913 <CALL '
\1aNEXT-AC 1 = STACK>
6914 <CALL '
\1aFLUSH-AC 1>
6915 <FRAME '
\1aMUNGED-AC>
6918 <CALL '
\1aNEXT-AC 1 = STACK>
6919 <CALL '
\1aMUNGED-AC 1>
6924 <CALL '
\1aNEXT-AC 1 = STACK>
6929 <GVAL 'ADJBP-HACK = TEMP38>
6930 <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE205>
6932 <SET TEMP38 'MADJBP (TYPE ATOM)>
6935 <SET TEMP38 'ADJBP (TYPE ATOM)>
6941 <CALL '
\1aNEXT-AC 1 = STACK>
6942 <SET TEMP25 2 (TYPE FIX)>
6946 <SCALL '
\1aOBJ-VAL 1 = TEMP38 + TAG203 TEMP25>
6947 <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
6950 <EMPTY? TEMP38 + TAG203>
6951 <NTH1 TEMP38 = STACK>
6952 <REST1 TEMP38 = TEMP38>
6953 <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
6956 <CALL '
\1aOCEMIT TEMP25>
6959 <FRAME '
\1aCLEAN-ACS>
6961 <CALL '
\1aCLEAN-ACS 1>
6964 <CALL '
\1aGET-AC 1 = TEMP25>
6966 <PUTUV TEMP25 2 VAL21>
6967 <PUTUV TEMP25 3 'TYPE (TYPE ATOM)>
6972 <CALL '
\1aNEXT-AC 1 = STACK>
6973 <CALL '
\1aGET-AC 1 = TEMP25>
6975 <PUTUV TEMP25 2 VAL21>
6976 <PUTUV TEMP25 3 'VALUE (TYPE ATOM)>
6980 <VEQUAL? AMT20 VAL21 - PHRASE215>
6984 <CALL '
\1aIN-AC? 2 = OTH-AC23>
6985 <TYPE? OTH-AC23 <TYPE-CODE FALSE> - PHRASE218>
6989 <CALL '
\1aLOAD-AC 2 = OTH-AC23>
6994 <CALL '
\1aGETPROP 2 = NAC24>
6998 <SET TEMP38 2 (TYPE FIX)>
7001 <SCALL '
\1aOBJ-TYP 1 = TEMP25 + TAG221 TEMP38>
7002 <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
7005 <EMPTY? TEMP25 + TAG221>
7006 <NTH1 TEMP25 = STACK>
7007 <REST1 TEMP25 = TEMP25>
7008 <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
7011 <CALL '
\1aOCEMIT TEMP38>
7016 <SET TEMP25 2 (TYPE FIX)>
7020 <SCALL '
\1aOBJ-VAL 1 = TEMP38 + TAG225 TEMP25>
7021 <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
7024 <EMPTY? TEMP38 + TAG225>
7025 <NTH1 TEMP38 = STACK>
7026 <REST1 TEMP38 = TEMP38>
7027 <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
7030 <CALL '
\1aOCEMIT TEMP25>
7033 <GVAL 'ADJBP-HACK = TEMP25>
7034 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE231>
7036 <SET TEMP25 'MADJBP (TYPE ATOM)>
7039 <SET TEMP25 'ADJBP (TYPE ATOM)>
7044 <SET TEMP38 2 (TYPE FIX)>
7048 <SCALL '
\1aOBJ-VAL 1 = TEMP25 + TAG229 TEMP38>
7049 <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
7052 <EMPTY? TEMP25 + TAG229>
7053 <NTH1 TEMP25 = STACK>
7054 <REST1 TEMP25 = TEMP25>
7055 <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
7058 <CALL '
\1aOCEMIT TEMP38>
7062 <CALL '
\1aGET-AC 1 = TEMP38>
7064 <PUTUV TEMP38 2 VAL21>
7065 <PUTUV TEMP38 3 'TYPE (TYPE ATOM)>
7070 <CALL '
\1aGET-AC 1 = TEMP38>
7072 <PUTUV TEMP38 2 VAL21>
7076 <VEQUAL? VAL21 STR19 - PHRASE238>
7080 <CALL '
\1aLOAD-AC 2 = NAC24>
7084 <SET TEMP25 2 (TYPE FIX)>
7087 <SCALL '
\1aOBJ-VAL 1 = TEMP38 + TAG240 TEMP25>
7088 <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
7091 <EMPTY? TEMP38 + TAG240>
7092 <NTH1 TEMP38 = STACK>
7093 <REST1 TEMP38 = TEMP38>
7094 <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
7097 <CALL '
\1aOCEMIT TEMP25>
7099 <FRAME '
\1aFLUSH-AC>
7102 <CALL '
\1aNEXT-AC 1 = STACK>
7103 <CALL '
\1aFLUSH-AC 1>
7104 <FRAME '
\1aMUNGED-AC>
7107 <CALL '
\1aNEXT-AC 1 = STACK>
7108 <CALL '
\1aMUNGED-AC 1>
7113 <CALL '
\1aNEXT-AC 1 = STACK>
7114 <SET TEMP38 2 (TYPE FIX)>
7118 <SCALL '
\1aOBJ-VAL 1 = TEMP25 + TAG248 TEMP38>
7119 <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
7122 <EMPTY? TEMP25 + TAG248>
7123 <NTH1 TEMP25 = STACK>
7124 <REST1 TEMP25 = TEMP25>
7125 <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
7128 <CALL '
\1aOCEMIT TEMP38>
7131 <GVAL 'ADJBP-HACK = TEMP38>
7132 <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE255>
7134 <SET TEMP38 'MADJBP (TYPE ATOM)>
7137 <SET TEMP38 'ADJBP (TYPE ATOM)>
7143 <CALL '
\1aNEXT-AC 1 = STACK>
7144 <SET TEMP25 2 (TYPE FIX)>
7148 <SCALL '
\1aOBJ-VAL 1 = TEMP38 + TAG253 TEMP25>
7149 <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
7152 <EMPTY? TEMP38 + TAG253>
7153 <NTH1 TEMP38 = STACK>
7154 <REST1 TEMP38 = TEMP38>
7155 <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
7158 <CALL '
\1aOCEMIT TEMP25>
7162 <CALL '
\1aGET-AC 1 = TEMP25>
7164 <PUTUV TEMP25 2 VAL21>
7169 <CALL '
\1aNEXT-AC 1 = STACK>
7170 <CALL '
\1aGET-AC 1 = TEMP25>
7172 <PUTUV TEMP25 2 VAL21>
7173 <PUTUV TEMP25 3 'VALUE (TYPE ATOM)>
7174 <GVAL 'AC-STAMP = TEMP38>
7175 <PUTUV TEMP25 4 TEMP38 (TYPE FIX)>
7176 <DEAD TEMP25 TEMP38>
7179 <FRAME '
\1aASSIGN-AC>
7183 <CALL '
\1aASSIGN-AC 3 = NAC24>
7187 <CALL '
\1aIN-AC? 2 = TEMP25>
7188 <EQUAL? TEMP25 NAC24 + PHRASE267>
7193 <SET TEMP38 2 (TYPE FIX)>
7196 <SCALL '
\1aOBJ-TYP 1 = TEMP25 + TAG269 TEMP38>
7197 <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
7200 <EMPTY? TEMP25 + TAG269>
7201 <NTH1 TEMP25 = STACK>
7202 <REST1 TEMP25 = TEMP25>
7203 <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
7206 <CALL '
\1aOCEMIT TEMP38>
7212 <SET TEMP25 2 (TYPE FIX)>
7215 <SCALL '
\1aOBJ-VAL 1 = TEMP38 + TAG273 TEMP25>
7216 <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
7219 <EMPTY? TEMP38 + TAG273>
7220 <NTH1 TEMP38 = STACK>
7221 <REST1 TEMP38 = TEMP38>
7222 <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
7225 <CALL '
\1aOCEMIT TEMP25>
7231 <CALL '
\1aNEXT-AC 1 = STACK>
7232 <SET TEMP38 2 (TYPE FIX)>
7236 <SCALL '
\1aOBJ-VAL 1 = TEMP25 + TAG277 TEMP38>
7237 <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
7240 <EMPTY? TEMP25 + TAG277>
7241 <NTH1 TEMP25 = STACK>
7242 <REST1 TEMP25 = TEMP25>
7243 <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
7246 <CALL '
\1aOCEMIT TEMP38>
7249 <GVAL 'ADJBP-HACK = TEMP38>
7250 <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE284>
7252 <SET TEMP38 'MADJBP (TYPE ATOM)>
7255 <SET TEMP38 'ADJBP (TYPE ATOM)>
7261 <CALL '
\1aNEXT-AC 1 = STACK>
7262 <SET TEMP25 2 (TYPE FIX)>
7266 <SCALL '
\1aOBJ-VAL 1 = TEMP38 + TAG282 TEMP25>
7267 <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
7270 <EMPTY? TEMP38 + TAG282>
7271 <NTH1 TEMP38 = STACK>
7272 <REST1 TEMP38 = TEMP38>
7273 <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
7276 <CALL '
\1aOCEMIT TEMP25>
7279 <VEQUAL? VAL21 'STACK + TAG292>
7294 <CALL '
\1aNEXT-AC 1 = STACK>
7296 <GVAL 'WINNING-VICTIM = TEMP25>
7297 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE297>
7298 <GVAL 'STACK-DEPTH = TEMP38>
7299 <ADD TEMP38 2 = TEMP38 (TYPE FIX)>
7300 <SETG 'STACK-DEPTH TEMP38>
7306 <END
\1aRESTUS!-MIMOC>
\r\r
7308 <GFCN
\1aRESTUB!-MIMOC ("VALUE" <OR FALSE FIX> ANY) L5>
7311 <FRAME '
\1aRESTUS!-MIMOC>
7315 <CALL '
\1aRESTUS!-MIMOC 2 = TEMP7>
7318 <END
\1aRESTUB!-MIMOC>
7319 <SETG LENU!-MIMOC ,LENUV!-MIMOC>
7321 <SETG LENUS!-MIMOC ,LENUV!-MIMOC>
7323 <SETG LENUB!-MIMOC ,LENUV!-MIMOC>
7325 <SETG LENUU!-MIMOC ,LENUV!-MIMOC>
7327 <SETG EMPU?!-MIMOC ,EMPUV?!-MIMOC>
7329 <SETG EMPUU?!-MIMOC ,EMPUV?!-MIMOC>
7331 <SETG EMPUS?!-MIMOC ,EMPUV?!-MIMOC>
7333 <SETG EMPUB?!-MIMOC ,EMPUV?!-MIMOC>
7335 <SETG LENR!-MIMOC ,LENUV!-MIMOC>
7338 <GFCN
\1aEMPR?!-MIMOC ("VALUE" ATOM ANY) L5>
7342 <END
\1aEMPR?!-MIMOC>
7344 <GFCN
\1aGVAL!-MIMOC ("VALUE" ANY LIST) L5>
7345 <TEMP ATM6 TEMP12 VAL7:ATOM (XGL10 %<>) RATM11 TEMP20 TEMP21 TEMP22>
7348 <RESTL L5 1 = TEMP12 (TYPE LIST)>
7350 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
7351 <NTHL TEMP12 1 = VAL7 (TYPE ATOM)>
7354 <TYPE? ATM6 <TYPE-CODE FORM> - PHRASE14>
7355 <RESTL ATM6 1 = TEMP12 (TYPE LIST)>
7356 <NTHL TEMP12 1 = TEMP12 (TYPE ATOM)>
7357 <CHTYPE TEMP12 <TYPE-CODE XGLOC> = XGL10>
7359 <NTHL ATM6 1 = RATM11 (TYPE ATOM)>
7361 <GVAL 'GVAL-CAREFUL = TEMP12>
7362 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE16>
7364 <NTHR RATM11 3 = TEMP12 (RECORD-TYPE ATOM)>
7366 <IFCAN "STRING-EQUAL?">
7367 <STRING-EQUAL? TEMP12 "M$$BINDID" + PHRASE16>
7368 <ENDIF "STRING-EQUAL?">
7369 <IFCANNOT "STRING-EQUAL?">
7370 <SET RATM11 "M$$BINDID" (TYPE STRING)>
7371 <LENUS TEMP12 = TEMP20 (TYPE FIX)>
7372 <VEQUAL? TEMP20 9 - TAG18>
7373 <LOOP (TEMP12 VALUE LENGTH) (RATM11 VALUE LENGTH) (TEMP20 VALUE)>
7375 <NTHUS TEMP12 1 = TEMP21>
7376 <NTHUS RATM11 1 = TEMP22>
7377 <VEQUAL? TEMP21 TEMP22 - TAG18>
7378 <DEAD TEMP21 TEMP22>
7379 <RESTUS TEMP12 1 = TEMP12 (TYPE STRING)>
7380 <RESTUS RATM11 1 = RATM11 (TYPE STRING)>
7381 <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
7382 <GRTR? TEMP20 0 + TAG23 (TYPE FIX)>
7384 <ENDIF "STRING-EQUAL?">
7386 <VEQUAL? XGL10 0 + PHRASE25>
7387 <FRAME '
\1aSAVE-ACS>
7388 <CALL '
\1aSAVE-ACS 0>
7392 <SET TEMP12 2 (TYPE FIX)>
7395 <SCALL '
\1aOBJ-VAL 1 = RATM11 + TAG27 TEMP12>
7396 <LOOP (RATM11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
7399 <EMPTY? RATM11 + TAG27>
7400 <NTH1 RATM11 = STACK>
7401 <REST1 RATM11 = RATM11>
7402 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
7405 <CALL '
\1aOCEMIT TEMP12>
7409 <SET RATM11 1 (TYPE FIX)>
7412 <SCALL '
\1aOBJ-VAL 1 = TEMP12 + TAG31 RATM11>
7413 <LOOP (TEMP12 TYPE VALUE LENGTH) (RATM11 VALUE)>
7416 <EMPTY? TEMP12 + TAG31>
7417 <NTH1 TEMP12 = STACK>
7418 <REST1 TEMP12 = TEMP12>
7419 <ADD RATM11 1 = RATM11 (TYPE FIX)>
7422 <CALL '
\1aOCEMIT RATM11>
7428 <SET TEMP12 3 (TYPE FIX)>
7432 <SCALL '
\1aOBJ-VAL 1 = RATM11 + TAG35 TEMP12>
7433 <LOOP (RATM11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
7436 <EMPTY? RATM11 + TAG35>
7437 <NTH1 RATM11 = STACK>
7438 <REST1 RATM11 = RATM11>
7439 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
7442 <CALL '
\1aOCEMIT TEMP12>
7449 <CALL '
\1aIN-AC? 2 = TEMP22>
7450 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE39>
7451 <EQUAL? VAL7 ATM6 + BOOL43>
7452 <FRAME '
\1aWILL-DIE?>
7454 <CALL '
\1aWILL-DIE? 1 = TEMP12>
7455 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE42>
7458 <FRAME '
\1aDEAD!-MIMOC>
7459 <CONS ATM6 () = STACK>
7462 <CALL '
\1aDEAD!-MIMOC 2>
7464 <FRAME '
\1aSAVE-ACS>
7465 <CALL '
\1aSAVE-ACS 0>
7468 <CONS TEMP22 () = STACK>
7473 <CONS TEMP22 () = STACK>
7483 <CONS TEMP22 () = STACK>
7488 <FRAME '
\1aSAVE-ACS>
7489 <CALL '
\1aSAVE-ACS 0>
7494 <SET RATM11 3 (TYPE FIX)>
7497 <SCALL '
\1aOBJ-VAL 1 = TEMP12 + TAG53 RATM11>
7498 <LOOP (TEMP12 TYPE VALUE LENGTH) (RATM11 VALUE)>
7501 <EMPTY? TEMP12 + TAG53>
7502 <NTH1 TEMP12 = STACK>
7503 <REST1 TEMP12 = TEMP12>
7504 <ADD RATM11 1 = RATM11 (TYPE FIX)>
7507 <CALL '
\1aOCEMIT RATM11>
7515 <SET TEMP12 1 (TYPE FIX)>
7519 <SCALL '
\1aOBJ-VAL 1 = RATM11 + TAG58 TEMP12>
7520 <LOOP (RATM11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
7523 <EMPTY? RATM11 + TAG58>
7524 <NTH1 RATM11 = STACK>
7525 <REST1 RATM11 = RATM11>
7526 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
7529 <CALL '
\1aOCEMIT TEMP12>
7537 <FRAME '
\1aPUSHJ-VAL>
7540 <CALL '
\1aPUSHJ-VAL 1 = TEMP12>
7544 <VEQUAL? VAL7 'STACK - PHRASE64>
7545 <VEQUAL? XGL10 0 + PHRASE66>
7546 <GVAL 'BOOT-MODE = RATM11>
7547 <TYPE? RATM11 <TYPE-CODE FALSE> - PHRASE66>
7549 <FRAME '
\1aSMASH-AC>
7550 <SET TEMP22 'T* (TYPE ATOM)>
7554 <CALL '
\1aSMASH-AC 3>
7560 <CALL '
\1aIN-AC? 2 = TEMP22>
7561 <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE70>
7567 <CALL '
\1aLOAD-AC 2 = STACK>
7568 <CALL '
\1aNEXT-AC 1 = TEMP22>
7570 <GVAL 'BOOT-MODE = RATM11>
7571 <TYPE? RATM11 <TYPE-CODE FALSE> - BOOL75>
7573 <TYPE? XGL10 <TYPE-CODE FALSE> - PHRASE74>
7579 <CONS TEMP22 () = STACK>
7582 <FRAME '
\1aMUNGED-AC>
7584 <CALL '
\1aMUNGED-AC 1>
7597 <GVAL 'WINNING-VICTIM = TEMP12>
7598 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE95>
7599 <GVAL 'STACK-DEPTH = RATM11>
7600 <ADD RATM11 2 = RATM11 (TYPE FIX)>
7601 <SETG 'STACK-DEPTH RATM11>
7605 <GVAL 'BOOT-MODE = RATM11>
7606 <TYPE? RATM11 <TYPE-CODE FALSE> + PHRASE84>
7608 <FRAME '
\1aSMASH-AC>
7613 <CALL '
\1aSMASH-AC 3>
7614 <FRAME '
\1aASSIGN-AC>
7618 <CALL '
\1aASSIGN-AC 2 = VAL7>
7628 <CALL '
\1aGET-AC 1 = RATM11>
7629 <PUTUV RATM11 3 'DUMMY (TYPE ATOM)>
7633 <VEQUAL? XGL10 0 + PHRASE89>
7634 <FRAME '
\1aASSIGN-AC>
7638 <CALL '
\1aASSIGN-AC 2 = VAL7>
7644 <SET TEMP22 3 (TYPE FIX)>
7648 <SCALL '
\1aOBJ-VAL 1 = RATM11 + TAG91 TEMP22>
7649 <LOOP (RATM11 TYPE VALUE LENGTH) (TEMP22 VALUE)>
7652 <EMPTY? RATM11 + TAG91>
7653 <NTH1 RATM11 = STACK>
7654 <REST1 RATM11 = RATM11>
7655 <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
7658 <CALL '
\1aOCEMIT TEMP22 = TEMP12>
7666 <CALL '
\1aIN-AC? 2 = TEMP22>
7667 <TYPE? TEMP22 <TYPE-CODE FALSE> - BOOL96>
7673 <CALL '
\1aLOAD-AC 2 = STACK>
7674 <CALL '
\1aNEXT-AC 1 = TEMP22>
7676 <FRAME '
\1aASSIGN-AC>
7680 <CALL '
\1aASSIGN-AC 2 = VAL7>
7686 <CONS TEMP22 () = STACK>
7688 <CALL '
\1aOCEMIT 4 = TEMP12>
7692 <END
\1aGVAL!-MIMOC>
\r\r
7694 <GFCN
\1aSETG!-MIMOC ("VALUE" ANY LIST) L5>
7695 <TEMP ATM6:FORM TEMP9 AC8>
7697 <NTHL L5 1 = ATM6 (TYPE FORM)>
7698 <RESTL L5 1 = TEMP9 (TYPE LIST)>
7700 <NTHL TEMP9 1 = TEMP9>
7705 <CALL '
\1aLOAD-AC 2 = AC8>
7706 <GVAL 'BOOT-MODE = TEMP9>
7707 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE12>
7709 <FRAME '
\1aSMASH-AC>
7714 <CALL '
\1aSMASH-AC 3>
7724 <CALL '
\1aGET-AC 1 = TEMP9>
7725 <PUTUV TEMP9 3 'DUMMY (TYPE ATOM)>
7734 <SET AC8 3 (TYPE FIX)>
7736 <RESTL ATM6 1 = TEMP9 (TYPE LIST)>
7738 <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
7739 <CHTYPE TEMP9 <TYPE-CODE XGLOC> = STACK>
7741 <SCALL '
\1aOBJ-VAL 1 = TEMP9 + TAG17 AC8>
7742 <LOOP (TEMP9 TYPE VALUE LENGTH) (AC8 VALUE)>
7745 <EMPTY? TEMP9 + TAG17>
7746 <NTH1 TEMP9 = STACK>
7747 <REST1 TEMP9 = TEMP9>
7748 <ADD AC8 1 = AC8 (TYPE FIX)>
7751 <CALL '
\1aOCEMIT AC8 = TEMP9>
7755 <END
\1aSETG!-MIMOC>
7756 <GDECL (NTHR-TABLE PUTR-TABLE) <VECTOR [REST ATOM]>>
7758 <SETG NTHR-TABLE '[LBIND LBIND-NTH LBIND LBIND-NTH GBIND LBIND-NTH GBIND LBIND-NTH ATOM ATOM-NTH ATOM ATOM-NTH LVAL ATOM-NTH GVAL ATOM-NTH OBLIST ATOM-NTH OBLIST ATOM-NTH FRAME FRAME-NTH FRAME FRAME-NTH]>
7760 <SETG PUTR-TABLE '[LBIND LBIND-PUT LBIND LBIND-PUT GBIND LBIND-PUT GBIND LBIND-PUT ATOM ATOM-PUT ATOM ATOM-PUT LVAL ATOM-PUT GVAL ATOM-PUT OBLIST ATOM-PUT OBLIST ATOM-PUT FRAME FRAME-PUT FRAME FRAME-PUT]>
7763 <GFCN
\1aFRAME-PUT ("VALUE" ANY LIST) L5>
7764 <TEMP ARG16 TEMP11 ARG27 TEMP20>
7767 <RESTL L5 1 = TEMP11 (TYPE LIST)>
7768 <NTHL TEMP11 1 = ARG27>
7770 <RESTL L5 1 = TEMP11 (TYPE LIST)>
7771 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
7772 <NTHL TEMP11 1 = TEMP11>
7773 <EQUAL? ARG27 1 + PHRASE13>
7775 <FRAME '
\1aPUTR!-MIMOC>
7779 <CALL '
\1aPUTR!-MIMOC 2 = TEMP11>
7786 <CALL '
\1aIN-AC? 2 = ARG27>
7787 <TYPE? ARG27 <TYPE-CODE FALSE> - PHRASE23>
7788 <FRAME '
\1aWILL-DIE?>
7790 <CALL '
\1aWILL-DIE? 1 = TEMP20>
7791 <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE18>
7798 <CALL '
\1aLOAD-AC 2 = STACK>
7799 <CALL '
\1aNEXT-AC 1 = ARG27>
7802 <FRAME '
\1aSMASH-AC>
7807 <CALL '
\1aSMASH-AC 3 = ARG27>
7812 <CALL '
\1aIN-AC? 2 = ARG16>
7813 <TYPE? ARG16 <TYPE-CODE FALSE> - PHRASE31>
7814 <FRAME '
\1aWILL-DIE?>
7816 <CALL '
\1aWILL-DIE? 1 = TEMP20>
7817 <TYPE? TEMP20 <TYPE-CODE FALSE> - BOOL28>
7819 <TYPE? TEMP11 <TYPE-CODE ATOM> + PHRASE27>
7821 <FRAME '
\1aSMASH-AC>
7826 <CALL '
\1aSMASH-AC 3 = ARG16>
7829 <SETG 'FIRST-AC %<>>
7832 <CALL '
\1aGET-AC 1 = TEMP20>
7833 <GVAL 'AC-STAMP = ARG16>
7834 <ADD ARG16 1 = ARG16 (TYPE FIX)>
7835 <SETG 'AC-STAMP ARG16>
7836 <PUTUV TEMP20 4 ARG16 (TYPE FIX)>
7843 <CALL '
\1aLOAD-AC 2 = STACK>
7844 <CALL '
\1aNEXT-AC 1 = ARG16>
7851 <CONS ARG27 () = STACK>
7853 <EQUAL? ARG27 'T* + TAG39>
7859 <CALL '
\1aGET-AC 1 = TEMP20>
7860 <PUTUV TEMP20 3 'DUMMY (TYPE ATOM)>
7865 <GFCN
\1aFRAME-NTH ("VALUE" ANY LIST) L5>
7866 <TEMP ARG16 TEMP12 ARG27:FIX VAL8:ATOM XAC11>
7869 <RESTL L5 1 = TEMP12 (TYPE LIST)>
7870 <NTHL TEMP12 1 = ARG27 (TYPE FIX)>
7872 <RESTL L5 1 = TEMP12 (TYPE LIST)>
7873 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
7874 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
7875 <NTHL TEMP12 1 = VAL8 (TYPE ATOM)>
7877 <VEQUAL? ARG27 1 + PHRASE14 (TYPE FIX)>
7878 <VEQUAL? ARG27 5 + PHRASE14 (TYPE FIX)>
7879 <VEQUAL? ARG27 7 + PHRASE14 (TYPE FIX)>
7880 <FRAME '
\1aNTHR!-MIMOC>
7884 <CALL '
\1aNTHR!-MIMOC 2 = TEMP12>
7891 <CALL '
\1aIN-AC? 2 = XAC11>
7892 <TYPE? XAC11 <TYPE-CODE FALSE> + PHRASE21>
7893 <VEQUAL? XAC11 'O* + PHRASE21>
7896 <CALL '
\1aGET-AC 1 = ARG16>
7897 <GVAL 'AC-STAMP = TEMP12>
7898 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
7899 <SETG 'AC-STAMP TEMP12>
7900 <PUTUV ARG16 4 TEMP12 (TYPE FIX)>
7902 <SETG 'FIRST-AC %<>>
7907 <FRAME '
\1aWILL-DIE?>
7909 <CALL '
\1aWILL-DIE? 1 = TEMP12>
7910 <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE27>
7917 <CALL '
\1aLOAD-AC 2 = STACK>
7918 <CALL '
\1aNEXT-AC 1 = ARG16>
7921 <FRAME '
\1aSMASH-AC>
7926 <CALL '
\1aSMASH-AC 3 = ARG16>
7930 <FRAME '
\1aASSIGN-AC>
7934 <CALL '
\1aASSIGN-AC 3 = XAC11>
7935 <VEQUAL? ARG27 1 - PHRASE35 (TYPE FIX)>
7938 <CALL '
\1aGET-AC 1 = ARG16>
7939 <PUTUV ARG16 6 'MSUBR>
7945 <CALL '
\1aNEXT-AC 1 = STACK>
7947 <CONS TEMP12 () = STACK>
7951 <VEQUAL? ARG27 5 - PHRASE41 (TYPE FIX)>
7955 <CALL '
\1aGET-AC 1 = ARG16>
7956 <PUTUV ARG16 6 'FRAME>
7962 <CALL '
\1aNEXT-AC 1 = STACK>
7964 <CONS TEMP12 () = STACK>
7970 <CALL '
\1aNEXT-AC 1 = ARG16>
7971 <CONS ARG16 () = STACK>
7978 <CALL '
\1aNEXT-AC 1 = STACK>
7985 <CALL '
\1aGET-AC 1 = ARG16>
7986 <PUTUV ARG16 6 'LBIND>
7992 <CALL '
\1aNEXT-AC 1 = STACK>
7994 <CONS TEMP12 () = STACK>
8000 <CALL '
\1aNEXT-AC 1 = STACK>
8001 <CONS TEMP12 () = STACK>
8004 <VEQUAL? TEMP12 'T* - PHRASE56>
8008 <CALL '
\1aGET-AC 1 = ARG16>
8009 <PUTUV ARG16 3 'DUMMY (TYPE ATOM)>
8012 <VEQUAL? VAL8 'STACK + TAG60>
8019 <SET TEMP12 2 (TYPE FIX)>
8023 <CALL '
\1aGET-AC 1 = ARG16>
8024 <NTHUV ARG16 6 = STACK>
8026 <SCALL '
\1aTYPE-WORD 1 = ARG16 + TAG61 TEMP12>
8027 <LOOP (ARG16 TYPE VALUE LENGTH) (TEMP12 VALUE)>
8030 <EMPTY? ARG16 + TAG61>
8031 <NTH1 ARG16 = STACK>
8032 <REST1 ARG16 = ARG16>
8033 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
8036 <CALL '
\1aOCEMIT TEMP12>
8044 <CALL '
\1aNEXT-AC 1 = STACK>
8046 <GVAL 'WINNING-VICTIM = TEMP12>
8047 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE70>
8048 <GVAL 'STACK-DEPTH = TEMP12>
8049 <ADD TEMP12 2 = TEMP12 (TYPE FIX)>
8050 <SETG 'STACK-DEPTH TEMP12>
8054 <END
\1aFRAME-NTH>
\r\r
8056 <GFCN
\1aLBIND-NTH ("VALUE" ANY LIST) L5>
8057 <TEMP ARG16 TEMP13 ARG27:FIX VAL8:ATOM XAC11 TEMP26 AC9:ATOM>
8060 <RESTL L5 1 = TEMP13 (TYPE LIST)>
8061 <NTHL TEMP13 1 = ARG27 (TYPE FIX)>
8063 <RESTL L5 1 = TEMP13 (TYPE LIST)>
8064 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
8065 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
8066 <NTHL TEMP13 1 = VAL8 (TYPE ATOM)>
8068 <GRTR? ARG27 6 + BOOL16 (TYPE FIX)>
8069 <LESS? ARG27 1 - PHRASE15 (TYPE FIX)>
8071 <FRAME '
\1aMIMOCERR>
8072 <PUSH 'OUT-OF-BOUNDS!-ERRORS>
8077 <CALL '
\1aMIMOCERR 4 = TEMP13>
8084 <CALL '
\1aIN-AC? 2 = XAC11>
8085 <TYPE? XAC11 <TYPE-CODE FALSE> + PHRASE22>
8086 <VEQUAL? XAC11 'O* + PHRASE22>
8089 <CALL '
\1aGET-AC 1 = TEMP26>
8090 <GVAL 'AC-STAMP = TEMP13>
8091 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
8092 <SETG 'AC-STAMP TEMP13>
8093 <PUTUV TEMP26 4 TEMP13 (TYPE FIX)>
8094 <DEAD TEMP26 TEMP13>
8095 <SETG 'FIRST-AC %<>>
8098 <VEQUAL? ARG27 1 - PHRASE28 (TYPE FIX)>
8099 <VEQUAL? VAL8 'STACK + PHRASE28>
8100 <SET XAC11 %<> (TYPE FALSE)>
8103 <FRAME '
\1aWILL-DIE?>
8105 <CALL '
\1aWILL-DIE? 1 = TEMP26>
8106 <TYPE? TEMP26 <TYPE-CODE FALSE> - PHRASE32>
8112 <CALL '
\1aLOAD-AC 2 = STACK>
8113 <CALL '
\1aNEXT-AC 1 = XAC11>
8116 <FRAME '
\1aSMASH-AC>
8120 <CALL '
\1aSMASH-AC 3>
8121 <FRAME '
\1aFLUSH-AC>
8123 <CALL '
\1aFLUSH-AC 1>
8124 <FRAME '
\1aMUNGED-AC>
8126 <CALL '
\1aMUNGED-AC 1>
8127 <SET XAC11 'T* (TYPE ATOM)>
8129 <VEQUAL? VAL8 'STACK + PHRASE44>
8130 <FRAME '
\1aASSIGN-AC>
8134 <CALL '
\1aASSIGN-AC 3 = AC9>
8137 <CALL '
\1aNEXT-AC 1 = TEMP26>
8138 <EQUAL? TEMP26 XAC11 - PHRASE44>
8140 <EQUAL? VAL8 ARG16 - PHRASE44>
8143 <CALL '
\1aGET-AC 1 = TEMP26>
8144 <PUTUV TEMP26 6 %<>>
8147 <VEQUAL? ARG27 1 - PHRASE49 (TYPE FIX)>
8148 <VEQUAL? VAL8 'STACK - PHRASE53>
8153 <CONS XAC11 () = STACK>
8159 <CONS XAC11 () = STACK>
8162 <GVAL 'WINNING-VICTIM = TEMP13>
8163 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE60>
8164 <GVAL 'STACK-DEPTH = TEMP13>
8165 <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
8166 <SETG 'STACK-DEPTH TEMP13>
8170 <TYPE? XAC11 <TYPE-CODE FALSE> + PHRASE58>
8175 <CONS XAC11 () = STACK>
8177 <CALL '
\1aOCEMIT 3 = TEMP13>
8186 <SET TEMP26 3 (TYPE FIX)>
8190 <SCALL '
\1aOBJ-VAL 1 = TEMP13 + TAG61 TEMP26>
8191 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP26 VALUE)>
8194 <EMPTY? TEMP13 + TAG61>
8195 <NTH1 TEMP13 = STACK>
8196 <REST1 TEMP13 = TEMP13>
8197 <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
8200 <CALL '
\1aOCEMIT TEMP26 = TEMP13>
8206 <VEQUAL? ARG27 3 - PHRASE65 (TYPE FIX)>
8207 <VEQUAL? VAL8 'STACK - PHRASE67>
8213 <CONS XAC11 () = STACK>
8219 <CONS XAC11 () = STACK>
8222 <GVAL 'WINNING-VICTIM = TEMP13>
8223 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE72>
8224 <GVAL 'STACK-DEPTH = TEMP26>
8225 <ADD TEMP26 2 = TEMP26 (TYPE FIX)>
8226 <SETG 'STACK-DEPTH TEMP26>
8235 <CONS XAC11 () = STACK>
8237 <CALL '
\1aOCEMIT 4 = TEMP13>
8242 <SET TEMP26 [2 6] (TYPE VECTOR)>
8243 <LOOP (ARG27 VALUE) (TEMP26 LENGTH VALUE)>
8245 <NTHUV TEMP26 1 = TEMP13>
8246 <VEQUAL? TEMP13 ARG27 + TAG75>
8248 <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
8249 <EMPUV? TEMP26 - TAG76>
8252 <VEQUAL? VAL8 'STACK - PHRASE79>
8257 <SET TEMP13 2 (TYPE FIX)>
8259 <NTHUV [%<> ATOM %<> %<> %<> FIX] ARG27 = STACK>
8260 <SCALL '
\1aTYPE-WORD 1 = TEMP26 + TAG80 TEMP13>
8261 <LOOP (TEMP26 TYPE VALUE LENGTH) (TEMP13 VALUE)>
8264 <EMPTY? TEMP26 + TAG80>
8265 <NTH1 TEMP26 = STACK>
8266 <REST1 TEMP26 = TEMP26>
8267 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
8270 <CALL '
\1aOCEMIT TEMP13>
8275 <NTHUV [%<> 2 %<> %<> %<> 7] ARG27 = STACK>
8277 <CONS XAC11 () = STACK>
8280 <GVAL 'WINNING-VICTIM = TEMP13>
8281 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE87>
8282 <GVAL 'STACK-DEPTH = TEMP13>
8283 <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
8284 <SETG 'STACK-DEPTH TEMP13>
8290 <CALL '
\1aGET-AC 1 = TEMP13>
8291 <NTHUV [%<> ATOM %<> %<> %<> FIX] ARG27 = TEMP26>
8292 <PUTUV TEMP13 6 TEMP26>
8293 <DEAD TEMP13 TEMP26>
8299 <CALL '
\1aNEXT-AC 1 = STACK>
8300 <NTHUV [%<> 2 %<> %<> %<> 7] ARG27 = STACK>
8302 <CONS XAC11 () = STACK>
8304 <CALL '
\1aOCEMIT 4 = TEMP13>
8309 <VEQUAL? VAL8 'STACK - PHRASE93>
8310 <FRAME '
\1aASSIGN-AC>
8314 <CALL '
\1aASSIGN-AC 3 = AC9>
8316 <FRAME '
\1aEXTRAMEM>
8317 <PUSH 'BRANCH-FALSE>
8320 <CALL '
\1aEXTRAMEM 2 = ARG16>
8321 <TYPE? ARG16 <TYPE-CODE FALSE> + PHRASE96>
8322 <FRAME '
\1aLABEL-UPDATE-ACS>
8323 <RESTL ARG16 1 = TEMP13 (TYPE LIST)>
8324 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
8325 <NTHL TEMP13 1 = STACK (TYPE ATOM)>
8328 <CALL '
\1aLABEL-UPDATE-ACS 2>
8333 <SET TEMP26 2 (TYPE FIX)>
8336 <SCALL '
\1aTYPE-WORD 1 = TEMP13 + TAG99 TEMP26>
8337 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP26 VALUE)>
8340 <EMPTY? TEMP13 + TAG99>
8341 <NTH1 TEMP13 = STACK>
8342 <REST1 TEMP13 = TEMP13>
8343 <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
8346 <CALL '
\1aOCEMIT TEMP26>
8348 <TYPE? ARG16 <TYPE-CODE FALSE> + PHRASE104>
8350 <RESTL ARG16 1 = TEMP26 (TYPE LIST)>
8351 <NTHL TEMP26 1 = TEMP26 (TYPE ATOM)>
8352 <VEQUAL? TEMP26 '+ - PHRASE107>
8354 <SET TEMP26 'SKIPN (TYPE ATOM)>
8357 <SET TEMP26 'SKIPE (TYPE ATOM)>
8363 <CALL '
\1aNEXT-AC 1 = STACK>
8364 <NTHUV [%<> %<> %<> 5 6 %<>] ARG27 = STACK>
8366 <CONS XAC11 () = STACK>
8372 <RESTL ARG16 1 = TEMP26 (TYPE LIST)>
8374 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
8375 <NTHL TEMP26 1 = STACK (TYPE ATOM)>
8377 <CALL '
\1aXJUMP 1 = STACK>
8379 <SETG 'NEXT-FLUSH 1>
8386 <CALL '
\1aNEXT-AC 1 = STACK>
8387 <NTHUV [%<> %<> %<> 5 6 %<>] ARG27 = STACK>
8389 <CONS XAC11 () = STACK>
8395 <SET TEMP13 2 (TYPE FIX)>
8398 <SCALL '
\1aTYPE-WORD 1 = TEMP26 + TAG115 TEMP13>
8399 <LOOP (TEMP26 TYPE VALUE LENGTH) (TEMP13 VALUE)>
8402 <EMPTY? TEMP26 + TAG115>
8403 <NTH1 TEMP26 = STACK>
8404 <REST1 TEMP26 = TEMP26>
8405 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
8408 <CALL '
\1aOCEMIT TEMP13>
8411 <VEQUAL? VAL8 'STACK + TAG121>
8426 <CALL '
\1aNEXT-AC 1 = STACK>
8428 <GVAL 'WINNING-VICTIM = TEMP13>
8429 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE126>
8430 <GVAL 'STACK-DEPTH = TEMP13>
8431 <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
8432 <SETG 'STACK-DEPTH TEMP13>
8438 <GFCN
\1aLBIND-PUT ("VALUE" ANY LIST) L5>
8439 <TEMP ARG16 TEMP12 ARG27:FIX TEMP25 TEMP26>
8442 <RESTL L5 1 = TEMP12 (TYPE LIST)>
8443 <NTHL TEMP12 1 = ARG27 (TYPE FIX)>
8445 <RESTL L5 1 = TEMP12 (TYPE LIST)>
8447 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
8448 <NTHL TEMP12 1 = TEMP12>
8449 <GRTR? ARG27 6 + BOOL15 (TYPE FIX)>
8450 <LESS? ARG27 1 - PHRASE14 (TYPE FIX)>
8452 <FRAME '
\1aMIMOCERR>
8453 <PUSH 'OUT-OF-BOUNDS!-ERRORS>
8458 <CALL '
\1aMIMOCERR 4 = TEMP12>
8462 <SET TEMP25 [1 3] (TYPE VECTOR)>
8463 <LOOP (ARG27 VALUE) (TEMP25 LENGTH VALUE)>
8465 <NTHUV TEMP25 1 = TEMP26>
8466 <VEQUAL? TEMP26 ARG27 + TAG22>
8468 <RESTUV TEMP25 1 = TEMP25 (TYPE VECTOR)>
8469 <EMPUV? TEMP25 - TAG23>
8476 <CALL '
\1aLOAD-AC 2 = TEMP25>
8482 <CALL '
\1aIN-AC? 2 = TEMP25>
8483 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE28>
8486 <CALL '
\1aGET-AC 1 = TEMP26>
8487 <GVAL 'AC-STAMP = TEMP12>
8488 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
8489 <SETG 'AC-STAMP TEMP12>
8490 <PUTUV TEMP26 4 TEMP12 (TYPE FIX)>
8491 <DEAD TEMP26 TEMP12>
8492 <SETG 'FIRST-AC %<>>
8495 <TYPE? TEMP12 <TYPE-CODE ATOM> - BOOL33>
8496 <FRAME '
\1aWILL-DIE?>
8498 <CALL '
\1aWILL-DIE? 1 = TEMP26>
8499 <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE32>
8502 <FRAME '
\1aSMASH-AC>
8507 <CALL '
\1aSMASH-AC 3 = TEMP25>
8515 <CALL '
\1aLOAD-AC 2 = STACK>
8516 <CALL '
\1aNEXT-AC 1 = TEMP25>
8523 <CALL '
\1aIN-AC? 2 = TEMP25>
8524 <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE42>
8525 <EQUAL? ARG16 1 - PHRASE41>
8526 <SET TEMP25 %<> (TYPE FALSE)>
8529 <FRAME '
\1aSMASH-AC>
8533 <CALL '
\1aSMASH-AC 3>
8536 <CALL '
\1aGET-AC 1 = TEMP25>
8537 <PUTUV TEMP25 3 'DUMMY (TYPE ATOM)>
8539 <SET TEMP25 'T* (TYPE ATOM)>
8541 <VEQUAL? ARG27 1 - PHRASE46 (TYPE FIX)>
8542 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE50>
8547 <CONS TEMP25 () = STACK>
8549 <CALL '
\1aOCEMIT 3 = TEMP12>
8557 <SET TEMP26 2 (TYPE FIX)>
8561 <SCALL '
\1aOBJ-VAL 1 = TEMP25 + TAG53 TEMP26>
8562 <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP26 VALUE)>
8565 <EMPTY? TEMP25 + TAG53>
8566 <NTH1 TEMP25 = STACK>
8567 <REST1 TEMP25 = TEMP25>
8568 <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
8571 <CALL '
\1aDMOVEM TEMP26 = TEMP12>
8576 <VEQUAL? ARG27 3 - PHRASE57 (TYPE FIX)>
8582 <CONS TEMP25 () = STACK>
8584 <CALL '
\1aOCEMIT 4 = TEMP12>
8592 <NTHUV [%<> 2 %<> 5 6 7] ARG27 = STACK>
8594 <CONS TEMP25 () = STACK>
8596 <CALL '
\1aOCEMIT 4 = TEMP12>
8601 <GFCN
\1aATOM-NTH ("VALUE" ANY LIST) L4>
8602 <TEMP (ARG15 %<>) TEMP22 ARG26:FIX VAL7:ATOM (LAB12 %<>) (WD16 %<>) (AC-T118 %<>) (WD120 %<>) (AC-T221 %<>) XAC10 TEMP35 AC8 EX11 LBL14>
8605 <RESTL L4 1 = TEMP22 (TYPE LIST)>
8606 <NTHL TEMP22 1 = ARG26 (TYPE FIX)>
8608 <RESTL L4 1 = TEMP22 (TYPE LIST)>
8609 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
8610 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
8611 <NTHL TEMP22 1 = VAL7 (TYPE ATOM)>
8613 <GRTR? ARG26 5 + BOOL25 (TYPE FIX)>
8614 <LESS? ARG26 1 - PHRASE24 (TYPE FIX)>
8616 <FRAME '
\1aMIMOCERR>
8617 <PUSH 'OUT-OF-BOUNDS!-ERRORS>
8622 <CALL '
\1aMIMOCERR 4 = TEMP22>
8629 <CALL '
\1aIN-AC? 2 = XAC10>
8630 <TYPE? XAC10 <TYPE-CODE FALSE> + PHRASE31>
8631 <VEQUAL? XAC10 'O* + PHRASE31>
8634 <CALL '
\1aGET-AC 1 = TEMP35>
8635 <GVAL 'AC-STAMP = TEMP22>
8636 <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
8637 <SETG 'AC-STAMP TEMP22>
8638 <PUTUV TEMP35 4 TEMP22 (TYPE FIX)>
8639 <DEAD TEMP35 TEMP22>
8640 <SETG 'FIRST-AC %<>>
8645 <FRAME '
\1aWILL-DIE?>
8647 <CALL '
\1aWILL-DIE? 1 = TEMP22>
8648 <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE37>
8655 <CALL '
\1aLOAD-AC 2 = STACK>
8656 <CALL '
\1aNEXT-AC 1 = TEMP35>
8659 <FRAME '
\1aSMASH-AC>
8664 <CALL '
\1aSMASH-AC 3>
8665 <FRAME '
\1aFLUSH-AC>
8667 <CALL '
\1aFLUSH-AC 1>
8668 <FRAME '
\1aMUNGED-AC>
8670 <CALL '
\1aMUNGED-AC 1>
8671 <SET TEMP35 'T* (TYPE ATOM)>
8675 <VEQUAL? ARG26 3 - PHRASE46 (TYPE FIX)>
8676 <VEQUAL? VAL7 'STACK - PHRASE48>
8681 <CONS XAC10 () = STACK>
8683 <FRAME '
\1aSMASH-AC>
8685 <FRAME '
\1aTYPE-CODE>
8687 <CALL '
\1aTYPE-CODE 1 = STACK>
8689 <CALL '
\1aSMASH-AC 3>
8699 <CONS XAC10 () = STACK>
8702 <GVAL 'WINNING-VICTIM = TEMP22>
8703 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE56>
8704 <GVAL 'STACK-DEPTH = TEMP35>
8705 <ADD TEMP35 2 = TEMP35 (TYPE FIX)>
8706 <SETG 'STACK-DEPTH TEMP35>
8710 <FRAME '
\1aASSIGN-AC>
8715 <CALL '
\1aASSIGN-AC 3 = AC8>
8720 <CONS XAC10 () = STACK>
8727 <FRAME '
\1aTYPE-CODE>
8729 <CALL '
\1aTYPE-CODE 1 = STACK>
8730 <CALL '
\1aOCEMIT 3 = TEMP22>
8735 <FRAME '
\1aEXTRAMEM>
8736 <PUSH 'BRANCH-FALSE>
8738 <CALL '
\1aEXTRAMEM 2 = EX11>
8739 <TYPE? EX11 <TYPE-CODE FALSE> + PHRASE63>
8740 <RESTL EX11 1 = TEMP35 (TYPE LIST)>
8741 <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
8742 <NTHL TEMP35 1 = LAB12 (TYPE ATOM)>
8744 <FRAME '
\1aWILL-DIE?>
8746 <GEN-LVAL 'MIML = TEMP22>
8747 <REST1 TEMP22 = STACK>
8749 <CALL '
\1aWILL-DIE? 2 = WD120>
8751 <TYPE? TEMP35 <TYPE-CODE FALSE> + BOOL65>
8752 <FRAME '
\1aWILL-DIE?>
8754 <GVAL LAB12 = TEMP22>
8755 <NTHUV TEMP22 7 = STACK (TYPE LIST)>
8757 <CALL '
\1aWILL-DIE? 2 = TEMP35>
8762 <FRAME '
\1aEXTRAMEM>
8766 <CALL '
\1aEXTRAMEM 2 = ARG15>
8767 <TYPE? WD16 <TYPE-CODE FALSE> - PHRASE72>
8768 <FRAME '
\1aASSIGN-AC>
8772 <CALL '
\1aASSIGN-AC 3 = AC8>
8775 <SET AC8 %<> (TYPE FALSE)>
8777 <TYPE? WD16 <TYPE-CODE FALSE> - PHRASE76>
8778 <VEQUAL? ARG26 5 - PHRASE76 (TYPE FIX)>
8779 <TYPE? EX11 <TYPE-CODE FALSE> - PHRASE82>
8783 <FRAME '
\1aTYPE-CODE>
8785 <CALL '
\1aTYPE-CODE 1 = STACK>
8789 <TYPE? WD16 <TYPE-CODE FALSE> - PHRASE82>
8790 <TYPE? EX11 <TYPE-CODE FALSE> - PHRASE82>
8791 <TYPE? ARG15 <TYPE-CODE FALSE> - PHRASE82>
8795 <SET TEMP22 2 (TYPE FIX)>
8797 <NTHUV [GBIND LBIND %<> OBLIST] ARG26 = STACK>
8798 <SCALL '
\1aTYPE-WORD 1 = TEMP35 + TAG84 TEMP22>
8799 <LOOP (TEMP35 TYPE VALUE LENGTH) (TEMP22 VALUE)>
8802 <EMPTY? TEMP35 + TAG84>
8803 <NTH1 TEMP35 = STACK>
8804 <REST1 TEMP35 = TEMP35>
8805 <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
8808 <CALL '
\1aOCEMIT TEMP22>
8811 <TYPE? EX11 <TYPE-CODE FALSE> + PHRASE89>
8812 <TYPE? WD16 <TYPE-CODE FALSE> - BOOL91>
8813 <VEQUAL? ARG26 5 - BOOL91 (TYPE FIX)>
8814 <RESTL EX11 1 = TEMP22 (TYPE LIST)>
8815 <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
8816 <VEQUAL? TEMP22 '+ - PHRASE89>
8819 <FRAME '
\1aLABEL-UPDATE-ACS>
8824 <CALL '
\1aLABEL-UPDATE-ACS 4 = TEMP35>
8827 <CALL '
\1aGET-AC 1 = TEMP22>
8833 <CALL '
\1aNEXT-AC 1 = STACK>
8834 <CALL '
\1aGET-AC 1 = TEMP22>
8837 <NTH1 TEMP35 = TEMP22>
8838 <EQUAL? TEMP22 XAC10 + PHRASE97>
8841 <NTH1 TEMP35 = XAC10>
8844 <CALL '
\1aGET-AC 1 = TEMP22>
8845 <NTHUV TEMP22 4 = AC-T118 (TYPE FIX)>
8849 <RESTL EX11 1 = TEMP22 (TYPE LIST)>
8850 <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
8851 <VEQUAL? TEMP22 '+ - PHRASE101>
8853 <VEQUAL? ARG26 5 - PHRASE103 (TYPE FIX)>
8854 <SET TEMP22 'SKIPGE (TYPE ATOM)>
8857 <SET TEMP22 'SKIPN (TYPE ATOM)>
8860 <VEQUAL? ARG26 5 - PHRASE105 (TYPE FIX)>
8861 <SET TEMP22 'SKIPL (TYPE ATOM)>
8864 <SET TEMP22 'SKIPE (TYPE ATOM)>
8868 <TYPE? WD16 <TYPE-CODE FALSE> + PHRASE108>
8870 <SET TEMP22 'O* (TYPE ATOM)>
8875 <CALL '
\1aNEXT-AC 1 = TEMP22>
8879 <NTHUV [0 1 %<> 4 2] ARG26 = STACK>
8880 <CONS XAC10 () = STACK>
8882 <VEQUAL? ARG26 5 - PHRASE112 (TYPE FIX)>
8888 <CALL '
\1aXJUMP 1 = STACK>
8890 <TYPE? WD120 <TYPE-CODE FALSE> - PHRASE121>
8891 <RESTL EX11 1 = TEMP22 (TYPE LIST)>
8892 <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
8893 <VEQUAL? TEMP22 '+ - PHRASE121>
8900 <CALL '
\1aNEXT-AC 1 = STACK>
8909 <CALL '
\1aXJUMP 1 = STACK>
8912 <TYPE? AC-T118 <TYPE-CODE FALSE> + PHRASE125>
8916 <CALL '
\1aGET-AC 1 = TEMP22>
8917 <PUTUV TEMP22 4 AC-T118 (TYPE FIX)>
8918 <DEAD TEMP22 AC-T118>
8920 <TYPE? WD120 <TYPE-CODE FALSE> - PHRASE132>
8922 <RESTL EX11 1 = TEMP22 (TYPE LIST)>
8924 <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
8925 <VEQUAL? TEMP22 '+ - PHRASE130>
8929 <CALL '
\1aGET-AC 1 = TEMP22>
8930 <NTHUV [GBIND LBIND T OBLIST TYPE-C] ARG26 = TEMP35 (TYPE ATOM)>
8932 <PUTUV TEMP22 6 TEMP35>
8933 <DEAD TEMP22 TEMP35>
8938 <CALL '
\1aGET-AC 1 = TEMP22>
8939 <PUTUV TEMP22 6 'FALSE>
8942 <SETG 'NEXT-FLUSH 1>
8945 <VEQUAL? ARG26 5 - PHRASE134 (TYPE FIX)>
8950 <CALL '
\1aNEXT-AC 1 = STACK>
8952 <CONS XAC10 () = STACK>
8954 <TYPE? EX11 <TYPE-CODE FALSE> + PHRASE138>
8957 <CALL '
\1aGET-AC 1 = TEMP22>
8958 <PUTUV TEMP22 2 VAL7>
8963 <CALL '
\1aNEXT-AC 1 = STACK>
8964 <CALL '
\1aGET-AC 1 = TEMP22>
8965 <PUTUV TEMP22 2 VAL7>
8967 <TYPE? WD120 <TYPE-CODE FALSE> + PHRASE143>
8970 <CALL '
\1aGET-AC 1 = TEMP22>
8971 <PUTUV TEMP22 6 'TYPE-C>
8978 <FRAME '
\1aTYPE-CODE>
8980 <CALL '
\1aTYPE-CODE 1 = STACK>
8983 <FRAME '
\1aLABEL-UPDATE-ACS>
8989 <CALL '
\1aLABEL-UPDATE-ACS 5 = TEMP35>
8990 <NTH1 TEMP35 = TEMP22>
8991 <EQUAL? TEMP22 XAC10 + PHRASE150>
8994 <NTH1 TEMP35 = XAC10>
8996 <CALL '
\1aGET-AC 1 = TEMP22>
8997 <NTHUV TEMP22 4 = AC-T118 (TYPE FIX)>
9003 <CALL '
\1aNTH 2 = TEMP22>
9004 <EQUAL? TEMP22 AC8 + PHRASE153>
9011 <CALL '
\1aNTH 2 = AC8>
9013 <CALL '
\1aGET-AC 1 = TEMP22>
9014 <NTHUV TEMP22 4 = AC-T221 (TYPE FIX)>
9017 <SETG 'NEXT-FLUSH 1>
9019 <TYPE? ARG15 <TYPE-CODE FALSE> - PHRASE173>
9025 <CALL '
\1aNEXT-AC 1 = STACK>
9027 <TYPE? EX11 <TYPE-CODE FALSE> + PHRASE163>
9034 <CALL '
\1aGENLBL 1 = LBL14>
9039 <CALL '
\1aXJUMP 1 = STACK>
9041 <TYPE? WD120 <TYPE-CODE FALSE> - PHRASE167>
9047 <CALL '
\1aNEXT-AC 1 = STACK>
9053 <FRAME '
\1aTYPE-CODE>
9055 <CALL '
\1aTYPE-CODE 1 = STACK>
9058 <TYPE? EX11 <TYPE-CODE FALSE> - PHRASE173>
9065 <TYPE? AC-T118 <TYPE-CODE FALSE> + PHRASE176>
9069 <CALL '
\1aGET-AC 1 = TEMP22>
9070 <PUTUV TEMP22 4 AC-T118 (TYPE FIX)>
9071 <DEAD TEMP22 AC-T118>
9073 <TYPE? AC-T221 <TYPE-CODE FALSE> + PHRASE187>
9076 <CALL '
\1aGET-AC 1 = TEMP22>
9077 <PUTUV TEMP22 4 AC-T221 (TYPE FIX)>
9082 <CALL '
\1aNEXT-AC 1 = STACK>
9083 <CALL '
\1aGET-AC 1 = TEMP22>
9084 <PUTUV TEMP22 4 AC-T221 (TYPE FIX)>
9085 <DEAD TEMP22 AC-T221>
9088 <TYPE? ARG15 <TYPE-CODE FALSE> + PHRASE183>
9093 <CALL '
\1aNEXT-AC 1 = STACK>
9094 <NTHUV [0 1 %<> 4] ARG26 = STACK>
9096 <CONS XAC10 () = STACK>
9101 <CALL '
\1aGET-AC 1 = TEMP22>
9102 <RESTL ARG15 1 = TEMP35 (TYPE LIST)>
9104 <NTHL TEMP35 1 = TEMP35>
9105 <PUTUV TEMP22 6 TEMP35>
9106 <DEAD TEMP22 TEMP35>
9113 <CALL '
\1aNEXT-AC 1 = STACK>
9114 <NTHUV [0 1 %<> 4] ARG26 = STACK>
9116 <CONS XAC10 () = STACK>
9122 <FRAME '
\1aTYPE-CODE>
9124 <CALL '
\1aTYPE-CODE 1 = STACK>
9127 <VEQUAL? VAL7 'STACK + TAG194>
9142 <CALL '
\1aNEXT-AC 1 = STACK>
9144 <GVAL 'WINNING-VICTIM = TEMP22>
9145 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE199>
9146 <GVAL 'STACK-DEPTH = TEMP22>
9147 <ADD TEMP22 2 = TEMP22 (TYPE FIX)>
9148 <SETG 'STACK-DEPTH TEMP22>
9154 <GFCN
\1aEXTRAMEM ("VALUE" <OR FALSE <LIST ANY>> ATOM LIST) NAM5 LST6>
9155 <TEMP TEMP16 TEMP13:LIST ITM18 TEMP26>
9157 <SET TEMP16 %<> (TYPE FALSE)>
9158 <SET TEMP13 LST6 (TYPE LIST)>
9163 <EMPL? TEMP13 + MAPAP11>
9164 <NTHL TEMP13 1 = ITM18>
9165 <TYPE? ITM18 <TYPE-CODE LIST> + TAG22>
9166 <SET TEMP16 %<> (TYPE FALSE)>
9169 <EMPL? ITM18 + TAG25>
9170 <RESTL ITM18 1 = TEMP26 (TYPE LIST)>
9171 <EMPL? TEMP26 - TAG24>
9174 <SET TEMP16 %<> (TYPE FALSE)>
9177 <NTHL ITM18 1 = TEMP26>
9178 <EQUAL? TEMP26 NAM5 + TAG27>
9180 <SET TEMP16 %<> (TYPE FALSE)>
9186 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
9194 <GFCN
\1aATOM-PUT ("VALUE" ANY LIST) L5>
9195 <TEMP ARG16 TEMP12 ARG27:FIX AC111 TEMP25 NAC10>
9198 <RESTL L5 1 = TEMP12 (TYPE LIST)>
9199 <NTHL TEMP12 1 = ARG27 (TYPE FIX)>
9201 <RESTL L5 1 = TEMP12 (TYPE LIST)>
9203 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
9204 <NTHL TEMP12 1 = TEMP12>
9205 <GRTR? ARG27 5 + BOOL15 (TYPE FIX)>
9206 <LESS? ARG27 1 - PHRASE14 (TYPE FIX)>
9208 <FRAME '
\1aMIMOCERR>
9209 <PUSH 'OUT-OF-BOUNDS!-ERRORS>
9214 <CALL '
\1aMIMOCERR 4 = TEMP12>
9221 <CALL '
\1aIN-AC? 2 = AC111>
9222 <TYPE? AC111 <TYPE-CODE FALSE> + PHRASE21>
9225 <CALL '
\1aGET-AC 1 = ARG16>
9226 <GVAL 'AC-STAMP = TEMP25>
9227 <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
9228 <SETG 'AC-STAMP TEMP25>
9229 <PUTUV ARG16 4 TEMP25 (TYPE FIX)>
9231 <SETG 'FIRST-AC %<>>
9236 <FRAME '
\1aSMASH-AC>
9241 <CALL '
\1aSMASH-AC 3>
9242 <FRAME '
\1aFLUSH-AC>
9244 <CALL '
\1aFLUSH-AC 1>
9245 <FRAME '
\1aMUNGED-AC>
9247 <CALL '
\1aMUNGED-AC 1>
9248 <SET ARG16 'T* (TYPE ATOM)>
9252 <VEQUAL? ARG27 3 - PHRASE31 (TYPE FIX)>
9257 <CALL '
\1aLOAD-AC 2 = ARG16>
9262 <CONS NAC10 () = STACK>
9269 <CALL '
\1aNEXT-AC 1 = STACK>
9271 <CONS NAC10 () = STACK>
9273 <CALL '
\1aOCEMIT 4 = TEMP12>
9277 <VEQUAL? ARG27 5 - PHRASE36 (TYPE FIX)>
9278 <FRAME '
\1aPRIMTYPE>
9280 <CALL '
\1aPRIMTYPE 1 = ARG16>
9281 <VEQUAL? ARG16 'WORD + BOOL39>
9283 <FRAME '
\1aPRIMTYPE>
9285 <CALL '
\1aPRIMTYPE 1 = ARG16>
9286 <VEQUAL? ARG16 'FIX - PHRASE38>
9292 <CALL '
\1aIN-AC? 2 = ARG16>
9293 <TYPE? ARG16 <TYPE-CODE FALSE> - PHRASE44>
9294 <FRAME '
\1aSMASH-AC>
9299 <CALL '
\1aSMASH-AC 3 = ARG16>
9306 <CONS NAC10 () = STACK>
9308 <CALL '
\1aOCEMIT 4 = TEMP12>
9312 <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE47>
9317 <CONS NAC10 () = STACK>
9319 <CALL '
\1aOCEMIT 4 = TEMP12>
9326 <CALL '
\1aIN-AC? 2 = ARG16>
9327 <TYPE? ARG16 <TYPE-CODE FALSE> - PHRASE52>
9328 <FRAME '
\1aSMASH-AC>
9332 <CALL '
\1aSMASH-AC 3 = ARG16>
9339 <CONS NAC10 () = STACK>
9344 <CALL '
\1aIN-AC? 2 = AC111>
9345 <TYPE? AC111 <TYPE-CODE FALSE> + PHRASE56>
9346 <FRAME '
\1aLOAD-TYPE>
9348 <CONS AC111 () = STACK>
9350 <CALL '
\1aLOAD-TYPE 2>
9351 <FRAME '
\1aMUNGED-AC>
9353 <CALL '
\1aMUNGED-AC 1>
9356 <FRAME '
\1aSMASH-AC>
9361 <CALL '
\1aSMASH-AC 3>
9366 <FRAME '
\1aTYPE-CODE>
9368 <CALL '
\1aTYPE-CODE 1 = STACK>
9374 <CONS NAC10 () = STACK>
9376 <CALL '
\1aOCEMIT 4 = TEMP12>
9383 <CALL '
\1aIN-AC? 2 = ARG16>
9384 <TYPE? ARG16 <TYPE-CODE FALSE> - PHRASE72>
9385 <TYPE? TEMP12 <TYPE-CODE ATOM> - BOOL69>
9386 <FRAME '
\1aWILL-DIE?>
9388 <CALL '
\1aWILL-DIE? 1 = TEMP25>
9389 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE68>
9392 <FRAME '
\1aSMASH-AC>
9397 <CALL '
\1aSMASH-AC 3 = ARG16>
9400 <SETG 'FIRST-AC %<>>
9403 <CALL '
\1aGET-AC 1 = TEMP25>
9404 <GVAL 'AC-STAMP = ARG16>
9405 <ADD ARG16 1 = ARG16 (TYPE FIX)>
9406 <SETG 'AC-STAMP ARG16>
9407 <PUTUV TEMP25 4 ARG16 (TYPE FIX)>
9414 <CALL '
\1aLOAD-AC 2 = STACK>
9415 <CALL '
\1aNEXT-AC 1 = ARG16>
9421 <NTHUV [0 1 %<> 4] ARG27 = STACK>
9423 <CONS NAC10 () = STACK>
9425 <CALL '
\1aOCEMIT 4 = TEMP12>
9430 <GFCN
\1aNTHR!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY) L8 NOGP9>
9431 <OPT-DISPATCH 1 %<> OPT6 OPT7>
9435 <TEMP ARG110 TEMP14 ARG211 TEMP18:FIX T12 M13 TEMP24 TEMP29>
9437 <NTHL L8 1 = ARG110>
9438 <RESTL L8 1 = TEMP14 (TYPE LIST)>
9439 <NTHL TEMP14 1 = ARG211>
9441 <TYPE? NOGP9 <TYPE-CODE FALSE> - PHRASE16>
9443 <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE16>
9445 <SET TEMP18 5 (TYPE FIX)>
9446 <LOOP (TEMP14 VALUE) (TEMP18 VALUE)>
9448 <EMPL? TEMP14 + PHRASE16>
9449 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
9450 <SUB TEMP18 1 = TEMP18 (TYPE FIX)>
9451 <GRTR? TEMP18 0 + TAG19 (TYPE FIX)>
9452 <DEAD TEMP14 TEMP18>
9454 <TYPE? T12 <TYPE-CODE LIST> - PHRASE16>
9455 <NTHL T12 1 = TEMP14>
9456 <EQUAL? TEMP14 'RECORD-TYPE - PHRASE16>
9458 <RESTL T12 1 = TEMP14 (TYPE LIST)>
9460 <NTHL TEMP14 1 = TEMP14>
9461 <GVAL 'NTHR-TABLE = M13>
9462 <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG20>
9463 <EMPUV? M13 + TAG20>
9464 <LOOP (TEMP14 VALUE) (M13 LENGTH VALUE)>
9466 <NTHUV M13 1 = TEMP24>
9467 <VEQUAL? TEMP24 TEMP14 + TAG21>
9469 <RESTUV M13 1 = M13 (TYPE VECTOR)>
9470 <EMPUV? M13 - TAG22>
9473 <SET M13 %<> (TYPE FALSE)>
9475 <TYPE? M13 <TYPE-CODE FALSE> + PHRASE16>
9477 <NTHUV M13 2 = M13 (TYPE ATOM)>
9484 <FRAME '
\1aUPDATE-ACS>
9485 <CALL '
\1aUPDATE-ACS 0>
9489 <SET TEMP29 2 (TYPE FIX)>
9492 <SCALL '
\1aOBJ-VAL 1 = TEMP24 + TAG28 TEMP29>
9493 <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP29 VALUE)>
9496 <EMPTY? TEMP24 + TAG28>
9497 <NTH1 TEMP24 = STACK>
9498 <REST1 TEMP24 = TEMP24>
9499 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
9503 <CALL '
\1aOCEMIT TEMP29>
9508 <SET TEMP24 2 (TYPE FIX)>
9512 <SCALL '
\1aOBJ-VAL 1 = TEMP29 + TAG33 TEMP24>
9513 <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP24 VALUE)>
9516 <EMPTY? TEMP29 + TAG33>
9517 <NTH1 TEMP29 = STACK>
9518 <REST1 TEMP29 = TEMP29>
9519 <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
9523 <CALL '
\1aOCEMIT TEMP24>
9528 <SET TEMP29 2 (TYPE FIX)>
9532 <SCALL '
\1aOBJ-TYP 1 = TEMP24 + TAG37 TEMP29>
9533 <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP29 VALUE)>
9536 <EMPTY? TEMP24 + TAG37>
9537 <NTH1 TEMP24 = STACK>
9538 <REST1 TEMP24 = TEMP24>
9539 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
9543 <CALL '
\1aOCEMIT TEMP29>
9557 <RESTL L8 1 = TEMP29 (TYPE LIST)>
9559 <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
9560 <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
9561 <NTHL TEMP29 1 = STACK>
9563 <CALL '
\1aPUSHJ 2 = TEMP14>
9566 <END
\1aNTHR!-MIMOC>
9568 <GFCN
\1aPUTR!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY) L8 NOGP9>
9569 <OPT-DISPATCH 1 %<> OPT6 OPT7>
9573 <TEMP ARG110 TEMP14 ARG211 TEMP18:FIX T12 M13 TEMP24 TEMP30>
9575 <NTHL L8 1 = ARG110>
9576 <RESTL L8 1 = TEMP14 (TYPE LIST)>
9577 <NTHL TEMP14 1 = ARG211>
9579 <TYPE? NOGP9 <TYPE-CODE FALSE> - PHRASE16>
9581 <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE16>
9583 <SET TEMP18 4 (TYPE FIX)>
9584 <LOOP (TEMP14 VALUE) (TEMP18 VALUE)>
9586 <EMPL? TEMP14 + PHRASE16>
9587 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
9588 <SUB TEMP18 1 = TEMP18 (TYPE FIX)>
9589 <GRTR? TEMP18 0 + TAG19 (TYPE FIX)>
9590 <DEAD TEMP14 TEMP18>
9591 <RESTL L8 1 = TEMP14 (TYPE LIST)>
9592 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
9593 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
9594 <NTHL TEMP14 1 = T12>
9596 <TYPE? T12 <TYPE-CODE LIST> - PHRASE16>
9597 <NTHL T12 1 = TEMP14>
9598 <EQUAL? TEMP14 'RECORD-TYPE - PHRASE16>
9600 <RESTL T12 1 = TEMP14 (TYPE LIST)>
9602 <NTHL TEMP14 1 = TEMP14>
9603 <GVAL 'PUTR-TABLE = M13>
9604 <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG20>
9605 <EMPUV? M13 + TAG20>
9606 <LOOP (TEMP14 VALUE) (M13 LENGTH VALUE)>
9608 <NTHUV M13 1 = TEMP24>
9609 <VEQUAL? TEMP24 TEMP14 + TAG21>
9611 <RESTUV M13 1 = M13 (TYPE VECTOR)>
9612 <EMPUV? M13 - TAG22>
9615 <SET M13 %<> (TYPE FALSE)>
9617 <TYPE? M13 <TYPE-CODE FALSE> + PHRASE16>
9619 <NTHUV M13 2 = M13 (TYPE ATOM)>
9626 <FRAME '
\1aUPDATE-ACS>
9627 <CALL '
\1aUPDATE-ACS 0>
9628 <FRAME '
\1aSMASH-AC>
9630 <RESTL L8 1 = TEMP24 (TYPE LIST)>
9632 <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
9633 <NTHL TEMP24 1 = STACK>
9636 <CALL '
\1aSMASH-AC 3>
9640 <SET TEMP30 2 (TYPE FIX)>
9643 <SCALL '
\1aOBJ-VAL 1 = TEMP24 + TAG29 TEMP30>
9644 <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP30 VALUE)>
9647 <EMPTY? TEMP24 + TAG29>
9648 <NTH1 TEMP24 = STACK>
9649 <REST1 TEMP24 = TEMP24>
9650 <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
9654 <CALL '
\1aOCEMIT TEMP30>
9659 <SET TEMP24 2 (TYPE FIX)>
9663 <SCALL '
\1aOBJ-VAL 1 = TEMP30 + TAG34 TEMP24>
9664 <LOOP (TEMP30 TYPE VALUE LENGTH) (TEMP24 VALUE)>
9667 <EMPTY? TEMP30 + TAG34>
9668 <NTH1 TEMP30 = STACK>
9669 <REST1 TEMP30 = TEMP30>
9670 <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
9674 <CALL '
\1aOCEMIT TEMP24>
9679 <SET TEMP30 2 (TYPE FIX)>
9683 <SCALL '
\1aOBJ-TYP 1 = TEMP24 + TAG38 TEMP30>
9684 <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP30 VALUE)>
9687 <EMPTY? TEMP24 + TAG38>
9688 <NTH1 TEMP24 = STACK>
9689 <REST1 TEMP24 = TEMP24>
9690 <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
9694 <CALL '
\1aOCEMIT TEMP30>
9713 <CALL '
\1aPUSHJ 1 = TEMP14>
9716 <END
\1aPUTR!-MIMOC>
9718 <GFCN
\1aLIST!-MIMOC ("VALUE" ANY <LIST ANY ANY ANY>) L5>
9719 <TEMP TEMP10 TEMP13>
9721 <FRAME '
\1aUPDATE-ACS>
9722 <CALL '
\1aUPDATE-ACS 0>
9723 <NTHL L5 1 = TEMP10>
9724 <TYPE? TEMP10 <TYPE-CODE FIX> - PHRASE8>
9726 <NTHL L5 1 = TEMP10 (TYPE FIX)>
9727 <GRTR? TEMP10 262143 + PHRASE8 (TYPE FIX)>
9729 <GVAL 'WINNING-VICTIM = TEMP10>
9730 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE12>
9732 <GVAL 'STACK-DEPTH = TEMP10>
9733 <NTHL L5 1 = TEMP13 (TYPE FIX)>
9734 <LSH TEMP13 1 = TEMP13 (TYPE FIX)>
9735 <SUB TEMP10 TEMP13 = TEMP10 (TYPE FIX)>
9737 <SETG 'STACK-DEPTH TEMP10>
9743 <NTHL L5 1 = STACK (TYPE FIX)>
9750 <SET TEMP13 2 (TYPE FIX)>
9753 <SCALL '
\1aOBJ-VAL 1 = TEMP10 + TAG16 TEMP13>
9754 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP13 VALUE)>
9757 <EMPTY? TEMP10 + TAG16>
9758 <NTH1 TEMP10 = STACK>
9759 <REST1 TEMP10 = TEMP10>
9760 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
9764 <CALL '
\1aOCEMIT TEMP13>
9769 <RESTL L5 1 = TEMP13 (TYPE LIST)>
9771 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
9772 <NTHL TEMP13 1 = STACK>
9774 <CALL '
\1aPUSHJ 2 = TEMP13>
9777 <END
\1aLIST!-MIMOC>
9779 <GFCN
\1aUBLOCK!-MIMOC ("VALUE" ANY ANY) L5>
9782 <FRAME '
\1aDO-UBLOCK>
9788 <CALL '
\1aDO-UBLOCK 4 = TEMP7>
9791 <END
\1aUBLOCK!-MIMOC>
9793 <GFCN
\1aUUBLOCK!-MIMOC ("VALUE" ANY ANY) L5>
9796 <FRAME '
\1aDO-UBLOCK>
9802 <CALL '
\1aDO-UBLOCK 4 = TEMP7>
9805 <END
\1aUUBLOCK!-MIMOC>
9807 <GFCN
\1aSBLOCK!-MIMOC ("VALUE" ANY ANY) L5>
9810 <FRAME '
\1aDO-UBLOCK>
9816 <CALL '
\1aDO-UBLOCK 4 = TEMP7>
9819 <END
\1aSBLOCK!-MIMOC>
9821 <GFCN
\1aUSBLOCK!-MIMOC ("VALUE" ANY ANY) L5>
9824 <FRAME '
\1aDO-UBLOCK>
9830 <CALL '
\1aDO-UBLOCK 4 = TEMP7>
9833 <END
\1aUSBLOCK!-MIMOC>
9835 <GFCN
\1aDO-UBLOCK ("VALUE" ANY ANY LIST ANY ANY) NAM5 L6 STACK?7 INIT?8>
9836 <TEMP ATM9 TEMP20 TEMP22 NITMS10:FIX NWRDS11:FIX TEMP53>
9838 <FRAME '
\1aUPDATE-ACS>
9839 <CALL '
\1aUPDATE-ACS 0>
9841 <TYPE? ATM9 <TYPE-CODE FIX> - PHRASE14>
9842 <GRTR? ATM9 262143 + PHRASE14 (TYPE FIX)>
9850 <TYPE? ATM9 <TYPE-CODE ATOM> + BOOL18>
9851 <TYPE? ATM9 <TYPE-CODE FORM> - PHRASE17>
9852 <EMPL? ATM9 + PHRASE17 (TYPE FORM)>
9853 <NTHL ATM9 1 = TEMP20>
9854 <EQUAL? TEMP20 'QUOTE - PHRASE17>
9856 <RESTL ATM9 1 = ATM9 (TYPE LIST)>
9857 <NTHL ATM9 1 = ATM9>
9858 <TYPE? ATM9 <TYPE-CODE ATOM> - PHRASE17>
9863 <SET TEMP22 2 (TYPE FIX)>
9867 <SCALL '
\1aTYPE-CODE 2 = TEMP20 + TAG21 TEMP22>
9868 <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP22 VALUE)>
9871 <EMPTY? TEMP20 + TAG21>
9872 <NTH1 TEMP20 = STACK>
9873 <REST1 TEMP20 = TEMP20>
9874 <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
9878 <CALL '
\1aOCEMIT TEMP22>
9885 <SET TEMP20 2 (TYPE FIX)>
9888 <SCALL '
\1aOBJ-VAL 1 = TEMP22 + TAG27 TEMP20>
9889 <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP20 VALUE)>
9892 <EMPTY? TEMP22 + TAG27>
9893 <NTH1 TEMP22 = STACK>
9894 <REST1 TEMP22 = TEMP22>
9895 <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
9899 <CALL '
\1aOCEMIT TEMP20>
9902 <RESTL L6 1 = TEMP20 (TYPE LIST)>
9903 <NTHL TEMP20 1 = TEMP20>
9904 <TYPE? TEMP20 <TYPE-CODE FIX> - PHRASE32>
9906 <RESTL L6 1 = TEMP20 (TYPE LIST)>
9907 <NTHL TEMP20 1 = NITMS10 (TYPE FIX)>
9909 <GRTR? NITMS10 262143 + PHRASE32 (TYPE FIX)>
9910 <TYPE? ATM9 <TYPE-CODE ATOM> - PHRASE35>
9911 <NTHR ATM9 5 = ATM9 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
9912 <CHTYPE ATM9 <TYPE-CODE FIX> = ATM9>
9915 <VEQUAL? ATM9 4 - PHRASE37 (TYPE FIX)>
9916 <ADD NITMS10 3 = TEMP20 (TYPE FIX)>
9917 <DIV TEMP20 4 = NWRDS11 (TYPE FIX)>
9921 <VEQUAL? ATM9 5 - PHRASE38 (TYPE FIX)>
9922 <ADD NITMS10 4 = TEMP20 (TYPE FIX)>
9923 <DIV TEMP20 5 = NWRDS11 (TYPE FIX)>
9927 <VEQUAL? ATM9 6 - PHRASE39 (TYPE FIX)>
9929 <SET NWRDS11 NITMS10>
9932 <LSH NITMS10 1 = NWRDS11 (TYPE FIX)>
9934 <GVAL 'WINNING-VICTIM = TEMP20>
9935 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE48>
9937 <TYPE? STACK?7 <TYPE-CODE FALSE> - PHRASE44>
9938 <TYPE? INIT?8 <TYPE-CODE FALSE> + PHRASE44>
9939 <GVAL 'STACK-DEPTH = TEMP20>
9940 <LSH NITMS10 1 = TEMP22 (TYPE FIX)>
9941 <SUB TEMP20 TEMP22 = TEMP20 (TYPE FIX)>
9943 <SETG 'STACK-DEPTH TEMP20>
9947 <TYPE? STACK?7 <TYPE-CODE FALSE> + PHRASE46>
9948 <TYPE? INIT?8 <TYPE-CODE FALSE> - PHRASE46>
9950 <GVAL 'STACK-DEPTH = TEMP20>
9951 <ADD TEMP20 NWRDS11 = TEMP20 (TYPE FIX)>
9953 <ADD TEMP20 2 = TEMP20 (TYPE FIX)>
9954 <SETG 'STACK-DEPTH TEMP20>
9958 <TYPE? STACK?7 <TYPE-CODE FALSE> + PHRASE48>
9960 <SUB 0 NITMS10 = TEMP20 (TYPE FIX)>
9961 <GVAL 'STACK-DEPTH = TEMP22>
9962 <ADD TEMP20 TEMP22 = TEMP20 (TYPE FIX)>
9964 <ADD TEMP20 NWRDS11 = TEMP20 (TYPE FIX)>
9966 <ADD TEMP20 2 = TEMP20 (TYPE FIX)>
9967 <SETG 'STACK-DEPTH TEMP20>
9981 <SET TEMP22 2 (TYPE FIX)>
9983 <RESTL L6 1 = TEMP53 (TYPE LIST)>
9984 <NTHL TEMP53 1 = STACK>
9986 <SCALL '
\1aOBJ-VAL 1 = TEMP20 + TAG51 TEMP22>
9987 <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP22 VALUE)>
9990 <EMPTY? TEMP20 + TAG51>
9991 <NTH1 TEMP20 = STACK>
9992 <REST1 TEMP20 = TEMP20>
9993 <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
9997 <CALL '
\1aOCEMIT TEMP22>
10003 <RESTL L6 1 = TEMP53 (TYPE LIST)>
10005 <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
10006 <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
10007 <NTHL TEMP53 1 = STACK>
10009 <CALL '
\1aPUSHJ 2 = TEMP53>
10012 <END
\1aDO-UBLOCK>
\r\r
10013 #WORD *26743130756*
10014 <GFCN
\1aRECORD!-MIMOC ("VALUE" ANY LIST) L5>
10015 <TEMP TYP6 TEMP16 TEMP22 LL36:LIST CNT37:FIX SD40:FIX ITM38>
10018 <FRAME '
\1aUPDATE-ACS>
10019 <CALL '
\1aUPDATE-ACS 0>
10020 <TYPE? TYP6 <TYPE-CODE FORM> - PHRASE14>
10021 <EMPL? TYP6 + PHRASE14>
10022 <RESTL TYP6 1 = TEMP16 (TYPE LIST)>
10023 <EMPL? TEMP16 + PHRASE14>
10025 <NTHL TYP6 1 = TEMP16>
10026 <EQUAL? TEMP16 'QUOTE - PHRASE14>
10028 <RESTL TYP6 1 = TEMP16 (TYPE LIST)>
10029 <NTHL TEMP16 1 = TEMP16>
10030 <EQUAL? TEMP16 'ATOM + BOOL19>
10031 <EQUAL? TEMP16 'LBIND + BOOL19>
10032 <EQUAL? TEMP16 'GBIND - PHRASE18>
10034 <FRAME '
\1aEXPLICIT-MAKE-RECORD>
10039 <CALL '
\1aEXPLICIT-MAKE-RECORD 2>
10045 <SET TEMP22 2 (TYPE FIX)>
10046 <SFRAME 'TYPE-CODE>
10047 <RESTL TYP6 1 = TYP6 (TYPE LIST)>
10048 <NTHL TYP6 1 = STACK>
10051 <SCALL '
\1aTYPE-CODE 2 = TEMP16 + TAG21 TEMP22>
10052 <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP22 VALUE)>
10055 <EMPTY? TEMP16 + TAG21>
10056 <NTH1 TEMP16 = STACK>
10057 <REST1 TEMP16 = TEMP16>
10058 <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
10061 <CALL '
\1aOCEMIT TEMP22>
10065 <TYPE? TYP6 <TYPE-CODE FIX> - PHRASE27>
10066 <GRTR? TYP6 262143 + PHRASE27 (TYPE FIX)>
10072 <CALL '
\1aOCEMIT 3>
10078 <SET TEMP16 2 (TYPE FIX)>
10082 <SCALL '
\1aOBJ-VAL 1 = TEMP22 + TAG31 TEMP16>
10083 <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP16 VALUE)>
10086 <EMPTY? TEMP22 + TAG31>
10087 <NTH1 TEMP22 = STACK>
10088 <REST1 TEMP22 = TEMP22>
10089 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
10092 <CALL '
\1aOCEMIT TEMP16>
10095 <RESTL L5 1 = LL36 (TYPE LIST)>
10096 <SET CNT37 0 (TYPE FIX)>
10097 <GVAL 'WINNING-VICTIM = TEMP16>
10098 <SET TEMP22 TEMP16>
10099 <TYPE? TEMP22 <TYPE-CODE FALSE> + BOOL41>
10100 <GVAL 'STACK-DEPTH = TEMP22>
10107 <NTHL LL36 1 = ITM38>
10108 <EQUAL? ITM38 '= - PHRASE44>
10114 <CALL '
\1aOCEMIT 3>
10115 <SETG 'STACK-DEPTH SD40>
10122 <SET TYP6 2 (TYPE FIX)>
10125 <SCALL '
\1aOBJ-TYP 1 = TEMP22 + TAG47 TYP6>
10126 <LOOP (TEMP22 TYPE VALUE LENGTH) (TYP6 VALUE)>
10129 <EMPTY? TEMP22 + TAG47>
10130 <NTH1 TEMP22 = STACK>
10131 <REST1 TEMP22 = TEMP22>
10132 <ADD TYP6 1 = TYP6 (TYPE FIX)>
10135 <CALL '
\1aOCEMIT TYP6>
10137 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE52>
10138 <GVAL 'STACK-DEPTH = TYP6>
10139 <ADD TYP6 1 = TYP6 (TYPE FIX)>
10140 <SETG 'STACK-DEPTH TYP6>
10146 <SET TEMP22 2 (TYPE FIX)>
10150 <SCALL '
\1aOBJ-VAL 1 = TYP6 + TAG53 TEMP22>
10151 <LOOP (TYP6 TYPE VALUE LENGTH) (TEMP22 VALUE)>
10154 <EMPTY? TYP6 + TAG53>
10155 <NTH1 TYP6 = STACK>
10156 <REST1 TYP6 = TYP6>
10157 <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
10160 <CALL '
\1aOCEMIT TEMP22>
10162 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE58>
10163 <GVAL 'STACK-DEPTH = TEMP22>
10164 <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
10165 <SETG 'STACK-DEPTH TEMP22>
10168 <ADD CNT37 1 = CNT37 (TYPE FIX)>
10169 <RESTL LL36 1 = LL36 (TYPE LIST)>
10176 <LOOP (TEMP22 VALUE)>
10178 <RESTL TEMP22 1 = TYP6 (TYPE LIST)>
10179 <EMPL? TYP6 + TAG61>
10184 <NTHL TEMP22 1 = STACK>
10186 <CALL '
\1aPUSHJ 2 = TYP6>
10189 <END
\1aRECORD!-MIMOC>
10190 #WORD *31725115662*
10191 <GFCN
\1aEXPLICIT-MAKE-RECORD ("VALUE" ANY ANY ANY) TYP5 L6>
10192 <TEMP TEMP11 TEMP10>
10194 <EQUAL? TYP5 'ATOM - PHRASE8>
10198 <SET TEMP11 2 (TYPE FIX)>
10199 <SFRAME 'TYPE-CODE>
10202 <SCALL '
\1aTYPE-CODE 2 = TEMP10 + TAG9 TEMP11>
10203 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP11 VALUE)>
10206 <EMPTY? TEMP10 + TAG9>
10207 <NTH1 TEMP10 = STACK>
10208 <REST1 TEMP10 = TEMP10>
10209 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
10212 <CALL '
\1aOCEMIT TEMP11>
10218 <CALL '
\1aOCEMIT 3>
10223 <CALL '
\1aOCEMIT 3>
10227 <FRAME '
\1aPUT-ELEMENTS>
10235 <CALL '
\1aPUT-ELEMENTS 6 = TEMP11>
10239 <EQUAL? TYP5 'GBIND - PHRASE19>
10243 <SET TEMP11 2 (TYPE FIX)>
10244 <SFRAME 'TYPE-CODE>
10247 <SCALL '
\1aTYPE-CODE 2 = TEMP10 + TAG20 TEMP11>
10248 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP11 VALUE)>
10251 <EMPTY? TEMP10 + TAG20>
10252 <NTH1 TEMP10 = STACK>
10253 <REST1 TEMP10 = TEMP10>
10254 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
10257 <CALL '
\1aOCEMIT TEMP11>
10263 <CALL '
\1aOCEMIT 3>
10268 <CALL '
\1aOCEMIT 3>
10272 <FRAME '
\1aPUT-ELEMENTS>
10278 <CALL '
\1aPUT-ELEMENTS 4 = TEMP11>
10282 <EQUAL? TYP5 'LBIND + TAG30>
10289 <SET TEMP10 2 (TYPE FIX)>
10290 <SFRAME 'TYPE-CODE>
10293 <SCALL '
\1aTYPE-CODE 2 = TEMP11 + TAG31 TEMP10>
10294 <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP10 VALUE)>
10297 <EMPTY? TEMP11 + TAG31>
10298 <NTH1 TEMP11 = STACK>
10299 <REST1 TEMP11 = TEMP11>
10300 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
10303 <CALL '
\1aOCEMIT TEMP10>
10309 <CALL '
\1aOCEMIT 3>
10314 <CALL '
\1aOCEMIT 3>
10318 <FRAME '
\1aPUT-ELEMENTS>
10327 <CALL '
\1aPUT-ELEMENTS 7 = TEMP11>
10330 <END
\1aEXPLICIT-MAKE-RECORD>
10331 #WORD *22604025774*
10332 <GFCN
\1aPUT-ELEMENTS ("VALUE" ANY LIST "TUPLE" <TUPLE [REST <OR FIX <LIST FIX FIX>>]>) L5>
10333 <MAKTUP TUP6 TEMP11 VAL7 (B-USED8 %<>) (C-USED9 %<>) TEMP24:LIST OFFS26 TEMP35 TEMP57 = TUP6>
10336 <LOOP (VAL7 VALUE)>
10338 <RESTL VAL7 1 = TEMP11 (TYPE LIST)>
10339 <EMPL? TEMP11 + TAG12>
10344 <NTHL VAL7 1 = VAL7>
10345 <RESTL L5 1 = TEMP24 (TYPE LIST)>
10347 <CHTYPE TUP6 <TYPE-CODE VECTOR> = TEMP11>
10352 <EMPL? TEMP24 + MAPAP17>
10353 <EMPUV? TEMP11 + MAPAP17>
10354 <NTHL TEMP24 1 = TUP6>
10355 <NTHUV TEMP11 1 = OFFS26>
10356 <TYPE? TUP6 <TYPE-CODE ATOM> - PHRASE29>
10357 <EQUAL? TUP6 VAL7 + PHRASE31>
10358 <FRAME '
\1aWILL-DIE?>
10360 <CALL '
\1aWILL-DIE? 1 = TEMP35>
10361 <TYPE? TEMP35 <TYPE-CODE FALSE> - PHRASE31>
10363 <TYPE? B-USED8 <TYPE-CODE FALSE> - BOOL37>
10364 <SET B-USED8 'T (TYPE ATOM)>
10367 <TYPE? C-USED9 <TYPE-CODE FALSE> - PHRASE31>
10368 <SET C-USED9 'T (TYPE ATOM)>
10370 <TYPE? C-USED9 <TYPE-CODE FALSE> + PHRASE40>
10371 <FRAME '
\1aLOAD-AC>
10378 <SET TUP6 'C1* (TYPE ATOM)>
10380 <CALL '
\1aGET-AC 1 = STACK>
10383 <CALL '
\1aGET-AC 1 = STACK>
10384 <CALL '
\1aLOAD-AC 6>
10387 <FRAME '
\1aLOAD-AC>
10394 <SET TUP6 'B1* (TYPE ATOM)>
10396 <CALL '
\1aGET-AC 1 = STACK>
10399 <CALL '
\1aGET-AC 1 = STACK>
10400 <CALL '
\1aLOAD-AC 6>
10402 <TYPE? OFFS26 <TYPE-CODE FIX> - PHRASE49>
10403 <LESS? OFFS26 0 - PHRASE51 (TYPE FIX)>
10406 <FRAME '
\1aNEXT-AC>
10408 <CALL '
\1aNEXT-AC 1 = STACK>
10409 <SUB 0 OFFS26 = STACK (TYPE FIX)>
10411 <CALL '
\1aOCEMIT 4>
10416 <SET TEMP35 2 (TYPE FIX)>
10417 <SFRAME 'TYPE-WORD>
10419 <SCALL '
\1aTYPE-WORD 1 = TEMP57 + TAG56 TEMP35>
10420 <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP35 VALUE)>
10423 <EMPTY? TEMP57 + TAG56>
10424 <NTH1 TEMP57 = STACK>
10425 <REST1 TEMP57 = TEMP57>
10426 <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
10429 <CALL '
\1aOCEMIT TEMP35>
10433 <SUB 0 OFFS26 = STACK (TYPE FIX)>
10436 <CALL '
\1aOCEMIT 3>
10441 <FRAME '
\1aNEXT-AC>
10443 <CALL '
\1aNEXT-AC 1 = STACK>
10446 <CALL '
\1aOCEMIT 4>
10451 <SET TEMP57 2 (TYPE FIX)>
10452 <SFRAME 'TYPE-WORD>
10454 <SCALL '
\1aTYPE-WORD 1 = TEMP35 + TAG66 TEMP57>
10455 <LOOP (TEMP35 TYPE VALUE LENGTH) (TEMP57 VALUE)>
10458 <EMPTY? TEMP35 + TAG66>
10459 <NTH1 TEMP35 = STACK>
10460 <REST1 TEMP35 = TEMP35>
10461 <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
10464 <CALL '
\1aOCEMIT TEMP57>
10471 <CALL '
\1aOCEMIT 3>
10478 <NTHL OFFS26 1 = STACK>
10481 <CALL '
\1aOCEMIT 4>
10484 <TYPE? OFFS26 <TYPE-CODE FIX> - PHRASE73>
10488 <SET TEMP35 2 (TYPE FIX)>
10492 <SCALL '
\1aOBJ-TYP 1 = TEMP57 + TAG74 TEMP35>
10493 <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP35 VALUE)>
10496 <EMPTY? TEMP57 + TAG74>
10497 <NTH1 TEMP57 = STACK>
10498 <REST1 TEMP57 = TEMP57>
10499 <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
10502 <CALL '
\1aOCEMIT TEMP35>
10504 <LESS? OFFS26 0 - PHRASE79 (TYPE FIX)>
10508 <SUB 0 OFFS26 = STACK (TYPE FIX)>
10510 <CALL '
\1aOCEMIT 4>
10514 <SET TEMP57 2 (TYPE FIX)>
10515 <SFRAME 'TYPE-WORD>
10517 <SCALL '
\1aTYPE-WORD 1 = TEMP35 + TAG83 TEMP57>
10518 <LOOP (TEMP35 TYPE VALUE LENGTH) (TEMP57 VALUE)>
10521 <EMPTY? TEMP35 + TAG83>
10522 <NTH1 TEMP35 = STACK>
10523 <REST1 TEMP35 = TEMP35>
10524 <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
10527 <CALL '
\1aOCEMIT TEMP57>
10531 <SUB 0 OFFS26 = STACK (TYPE FIX)>
10534 <CALL '
\1aOCEMIT 3>
10542 <CALL '
\1aOCEMIT 4>
10546 <SET TEMP35 2 (TYPE FIX)>
10547 <SFRAME 'TYPE-WORD>
10549 <SCALL '
\1aTYPE-WORD 1 = TEMP57 + TAG90 TEMP35>
10550 <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP35 VALUE)>
10553 <EMPTY? TEMP57 + TAG90>
10554 <NTH1 TEMP57 = STACK>
10555 <REST1 TEMP57 = TEMP57>
10556 <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
10559 <CALL '
\1aOCEMIT TEMP35>
10566 <CALL '
\1aOCEMIT 3>
10572 <SET TEMP57 2 (TYPE FIX)>
10576 <SCALL '
\1aOBJ-TYP 1 = TEMP35 + TAG96 TEMP57>
10577 <LOOP (TEMP35 TYPE VALUE LENGTH) (TEMP57 VALUE)>
10580 <EMPTY? TEMP35 + TAG96>
10581 <NTH1 TEMP35 = STACK>
10582 <REST1 TEMP35 = TEMP35>
10583 <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
10586 <CALL '
\1aOCEMIT TEMP57>
10591 <NTHL OFFS26 1 = STACK>
10594 <CALL '
\1aOCEMIT 4>
10597 <TYPE? OFFS26 <TYPE-CODE FIX> - PHRASE101>
10598 <TYPE? TUP6 <TYPE-CODE FALSE> - PHRASE103>
10599 <LESS? OFFS26 0 - PHRASE105 (TYPE FIX)>
10602 <SUB 0 OFFS26 = STACK (TYPE FIX)>
10605 <CALL '
\1aOCEMIT 3>
10613 <CALL '
\1aOCEMIT 3>
10616 <FRAME '
\1aGET-INTO-ACS>
10621 <CALL '
\1aGET-INTO-ACS 3>
10622 <LESS? OFFS26 0 - PHRASE114 (TYPE FIX)>
10626 <SUB 0 OFFS26 = STACK (TYPE FIX)>
10629 <CALL '
\1aOCEMIT 4>
10638 <CALL '
\1aOCEMIT 4>
10644 <SET TEMP35 2 (TYPE FIX)>
10648 <SCALL '
\1aOBJ-TYP 1 = TEMP57 + TAG121 TEMP35>
10649 <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP35 VALUE)>
10652 <EMPTY? TEMP57 + TAG121>
10653 <NTH1 TEMP57 = STACK>
10654 <REST1 TEMP57 = TEMP57>
10655 <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
10658 <CALL '
\1aOCEMIT TEMP35>
10663 <NTHL OFFS26 1 = STACK>
10666 <CALL '
\1aOCEMIT 4>
10668 <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
10669 <RESTUV TEMP11 1 = TEMP11 (TYPE VECTOR)>
10672 <FRAME '
\1aPUSHJ-VAL>
10675 <CALL '
\1aPUSHJ-VAL 1 = TEMP11>
10678 <END
\1aPUT-ELEMENTS>
\r\r
10679 #WORD *37523704512*
10680 <GFCN
\1aNTH-PUT-LOOK-AHEAD ("VALUE" <OR ATOM FALSE> LIST STRING ANY ANY ANY) OL4 INS5 STRUC6 AMT7 VAL8>
10681 <TEMP (AC9 %<>) L10:LIST (DEAD?13 %<>) TEMP26 NXT11 TEMP32 TEMP33 TEMP34 TEMP35>
10683 <GEN-LVAL 'MIML = AC9>
10684 <RESTL AC9 1 = L10 (TYPE LIST)>
10686 <CHTYPE L10 <TYPE-CODE LIST> = L10>
10688 <SET TEMP26 4 (TYPE FIX)>
10689 <LOOP (AC9 VALUE) (TEMP26 VALUE)>
10691 <EMPL? AC9 + PHRASE24>
10692 <RESTL AC9 1 = AC9 (TYPE LIST)>
10693 <SUB TEMP26 1 = TEMP26 (TYPE FIX)>
10694 <GRTR? TEMP26 0 + TAG27 (TYPE FIX)>
10695 <NTHL L10 1 = NXT11>
10696 <TYPE? NXT11 <TYPE-CODE FORM> - PHRASE24>
10698 <SET TEMP26 5 (TYPE FIX)>
10699 <LOOP (AC9 VALUE) (TEMP26 VALUE)>
10701 <EMPL? AC9 + PHRASE24>
10702 <RESTL AC9 1 = AC9 (TYPE LIST)>
10703 <SUB TEMP26 1 = TEMP26 (TYPE FIX)>
10704 <GRTR? TEMP26 0 + TAG29 (TYPE FIX)>
10705 <NTHL NXT11 1 = AC9 (TYPE ATOM)>
10706 <NTHR AC9 3 = TEMP26 (RECORD-TYPE ATOM)>
10708 <IFCAN "STRING-EQUAL?">
10709 <STRING-EQUAL? TEMP26 "ADD" + BOOL30>
10710 <ENDIF "STRING-EQUAL?">
10711 <IFCANNOT "STRING-EQUAL?">
10713 <SET TEMP32 "ADD" (TYPE STRING)>
10714 <LENUS AC9 = TEMP33 (TYPE FIX)>
10715 <VEQUAL? TEMP33 3 - TAG31>
10716 <LOOP (AC9 VALUE LENGTH) (TEMP32 VALUE LENGTH) (TEMP33 VALUE)>
10718 <NTHUS AC9 1 = TEMP34>
10719 <NTHUS TEMP32 1 = TEMP35>
10720 <VEQUAL? TEMP34 TEMP35 - TAG31>
10721 <DEAD TEMP34 TEMP35>
10722 <RESTUS AC9 1 = AC9 (TYPE STRING)>
10723 <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
10724 <SUB TEMP33 1 = TEMP33 (TYPE FIX)>
10725 <GRTR? TEMP33 0 + TAG36 (TYPE FIX)>
10727 <ENDIF "STRING-EQUAL?">
10729 <IFCAN "STRING-EQUAL?">
10730 <STRING-EQUAL? TEMP26 "SUB" - PHRASE24>
10731 <ENDIF "STRING-EQUAL?">
10732 <IFCANNOT "STRING-EQUAL?">
10733 <SET TEMP32 TEMP26>
10734 <SET AC9 "SUB" (TYPE STRING)>
10735 <LENUS TEMP32 = TEMP35 (TYPE FIX)>
10736 <VEQUAL? TEMP35 3 - PHRASE24>
10737 <LOOP (TEMP32 VALUE LENGTH) (AC9 VALUE LENGTH) (TEMP35 VALUE)>
10739 <NTHUS TEMP32 1 = TEMP34>
10740 <NTHUS AC9 1 = TEMP33>
10741 <VEQUAL? TEMP34 TEMP33 - PHRASE24>
10742 <DEAD TEMP34 TEMP33>
10743 <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
10744 <RESTUS AC9 1 = AC9 (TYPE STRING)>
10745 <SUB TEMP35 1 = TEMP35 (TYPE FIX)>
10746 <GRTR? TEMP35 0 + TAG38 (TYPE FIX)>
10747 <ENDIF "STRING-EQUAL?">
10749 <RESTL NXT11 1 = AC9 (TYPE LIST)>
10751 <EQUAL? AC9 VAL8 - PHRASE24>
10753 <RESTL NXT11 1 = AC9 (TYPE LIST)>
10754 <RESTL AC9 1 = AC9 (TYPE LIST)>
10756 <EQUAL? AC9 1 - PHRASE24>
10758 <NTHL NXT11 5 = AC9>
10760 <EQUAL? AC9 VAL8 - PHRASE24>
10762 <RESTL L10 1 = AC9 (TYPE LIST)>
10763 <NTHL AC9 1 = NXT11>
10765 <TYPE? NXT11 <TYPE-CODE FORM> - PHRASE24>
10767 <SET TEMP32 4 (TYPE FIX)>
10768 <LOOP (AC9 VALUE) (TEMP32 VALUE)>
10770 <EMPL? AC9 + PHRASE24>
10771 <RESTL AC9 1 = AC9 (TYPE LIST)>
10772 <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
10773 <GRTR? TEMP32 0 + TAG39 (TYPE FIX)>
10774 <NTHL NXT11 1 = AC9 (TYPE ATOM)>
10775 <NTHR AC9 3 = AC9 (RECORD-TYPE ATOM)>
10776 <IFCAN "STRING-EQUAL?">
10777 <STRING-EQUAL? AC9 INS5 - PHRASE24>
10778 <ENDIF "STRING-EQUAL?">
10779 <IFCANNOT "STRING-EQUAL?">
10781 <LENUS AC9 = TEMP34 (TYPE FIX)>
10782 <LENUS TEMP33 = TEMP32 (TYPE FIX)>
10783 <VEQUAL? TEMP34 TEMP32 - PHRASE24>
10785 <LOOP (AC9 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP34 VALUE)>
10787 <NTHUS AC9 1 = TEMP32>
10788 <NTHUS TEMP33 1 = TEMP35>
10789 <VEQUAL? TEMP32 TEMP35 - PHRASE24>
10790 <DEAD TEMP32 TEMP35>
10791 <RESTUS AC9 1 = AC9 (TYPE STRING)>
10792 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
10793 <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
10794 <GRTR? TEMP34 0 + TAG42 (TYPE FIX)>
10795 <ENDIF "STRING-EQUAL?">
10796 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
10797 <NTHL TEMP33 1 = TEMP33>
10798 <EQUAL? TEMP33 STRUC6 - PHRASE24>
10799 <DEAD TEMP33 STRUC6>
10800 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
10801 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
10802 <NTHL TEMP33 1 = TEMP33>
10803 <EQUAL? TEMP33 AMT7 - PHRASE24>
10805 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
10807 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
10808 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
10809 <NTHL TEMP33 1 = TEMP33>
10810 <EQUAL? TEMP33 VAL8 - PHRASE24>
10812 <SETG 'NEXT-FLUSH 2>
10813 <RESTL L10 1 = TEMP33 (TYPE LIST)>
10815 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
10816 <NTHL TEMP33 1 = NXT11>
10818 <TYPE? NXT11 <TYPE-CODE FORM> - PHRASE44>
10819 <EMPL? NXT11 + PHRASE44>
10820 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
10821 <EMPL? TEMP33 + PHRASE44>
10823 <NTHL NXT11 1 = TEMP33 (TYPE ATOM)>
10824 <NTHR TEMP33 3 = TEMP33 (RECORD-TYPE ATOM)>
10825 <IFCAN "STRING-EQUAL?">
10826 <STRING-EQUAL? TEMP33 "DEAD" - PHRASE44>
10827 <ENDIF "STRING-EQUAL?">
10828 <IFCANNOT "STRING-EQUAL?">
10829 <SET AC9 "DEAD" (TYPE STRING)>
10830 <LENUS TEMP33 = TEMP35 (TYPE FIX)>
10831 <VEQUAL? TEMP35 4 - PHRASE44>
10832 <LOOP (TEMP33 VALUE LENGTH) (AC9 VALUE LENGTH) (TEMP35 VALUE)>
10834 <NTHUS TEMP33 1 = TEMP32>
10835 <NTHUS AC9 1 = TEMP34>
10836 <VEQUAL? TEMP32 TEMP34 - PHRASE44>
10837 <DEAD TEMP32 TEMP34>
10838 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
10839 <RESTUS AC9 1 = AC9 (TYPE STRING)>
10840 <SUB TEMP35 1 = TEMP35 (TYPE FIX)>
10841 <GRTR? TEMP35 0 + TAG47 (TYPE FIX)>
10842 <ENDIF "STRING-EQUAL?">
10843 <RESTL NXT11 1 = AC9 (TYPE LIST)>
10845 <CHTYPE AC9 <TYPE-CODE LIST> = AC9>
10846 <TYPE VAL8 = TEMP33>
10847 <EMPL? AC9 + PHRASE44>
10848 <LOOP (VAL8 VALUE) (TEMP33 VALUE) (AC9 VALUE)>
10850 <NTHL AC9 1 = TEMP34>
10851 <TYPE? TEMP34 TEMP33 - TAG50>
10852 <VEQUAL? TEMP34 VAL8 + TAG48>
10855 <RESTL AC9 1 = AC9 (TYPE LIST)>
10856 <EMPL? AC9 - TAG49>
10859 <SET DEAD?13 'T (TYPE ATOM)>
10861 <IFCAN "STRING-EQUAL?">
10862 <STRING-EQUAL? INS5 "PUTL" - PHRASE52>
10863 <ENDIF "STRING-EQUAL?">
10864 <IFCANNOT "STRING-EQUAL?">
10866 <SET TEMP33 "PUTL" (TYPE STRING)>
10867 <LENUS AC9 = TEMP34 (TYPE FIX)>
10868 <VEQUAL? TEMP34 4 - PHRASE52>
10869 <LOOP (AC9 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP34 VALUE)>
10871 <NTHUS AC9 1 = TEMP32>
10872 <NTHUS TEMP33 1 = NXT11>
10873 <VEQUAL? TEMP32 NXT11 - PHRASE52>
10874 <DEAD TEMP32 NXT11>
10875 <RESTUS AC9 1 = AC9 (TYPE STRING)>
10876 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
10877 <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
10878 <GRTR? TEMP34 0 + TAG54 (TYPE FIX)>
10879 <ENDIF "STRING-EQUAL?">
10880 <FRAME '
\1aNTHL!-MIMOC>
10883 <IFCAN "STRING-EQUAL?">
10884 <STRING-EQUAL? TEMP26 "ADD" - PHRASE57>
10885 <ENDIF "STRING-EQUAL?">
10886 <IFCANNOT "STRING-EQUAL?">
10887 <SET TEMP33 TEMP26>
10889 <SET AC9 "ADD" (TYPE STRING)>
10890 <LENUS TEMP33 = NXT11 (TYPE FIX)>
10891 <VEQUAL? NXT11 3 - PHRASE57>
10892 <LOOP (TEMP33 VALUE LENGTH) (AC9 VALUE LENGTH) (NXT11 VALUE)>
10894 <NTHUS TEMP33 1 = TEMP32>
10895 <NTHUS AC9 1 = TEMP34>
10896 <VEQUAL? TEMP32 TEMP34 - PHRASE57>
10897 <DEAD TEMP32 TEMP34>
10898 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
10899 <RESTUS AC9 1 = AC9 (TYPE STRING)>
10900 <SUB NXT11 1 = NXT11 (TYPE FIX)>
10901 <GRTR? NXT11 0 + TAG59 (TYPE FIX)>
10902 <ENDIF "STRING-EQUAL?">
10903 <SET AC9 'AOS (TYPE ATOM)>
10906 <SET AC9 'SOS (TYPE ATOM)>
10910 <VEQUAL? DEAD?13 0 - TAG61>
10912 <SET AC9 'T (TYPE ATOM)>
10915 <SET AC9 %<> (TYPE FALSE)>
10919 <CALL '
\1aNTHL!-MIMOC 3>
10922 <FRAME '
\1aNTHUV!-MIMOC>
10925 <IFCAN "STRING-EQUAL?">
10926 <STRING-EQUAL? INS5 "PUTUU" - TAG65>
10927 <ENDIF "STRING-EQUAL?">
10928 <IFCANNOT "STRING-EQUAL?">
10931 <SET TEMP33 "PUTUU" (TYPE STRING)>
10932 <LENUS AC9 = TEMP34 (TYPE FIX)>
10933 <VEQUAL? TEMP34 5 - TAG65>
10934 <LOOP (AC9 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP34 VALUE)>
10936 <NTHUS AC9 1 = TEMP32>
10937 <NTHUS TEMP33 1 = NXT11>
10938 <VEQUAL? TEMP32 NXT11 - TAG65>
10939 <DEAD TEMP32 NXT11>
10940 <RESTUS AC9 1 = AC9 (TYPE STRING)>
10941 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
10942 <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
10943 <GRTR? TEMP34 0 + TAG67 (TYPE FIX)>
10944 <ENDIF "STRING-EQUAL?">
10950 <IFCAN "STRING-EQUAL?">
10951 <STRING-EQUAL? TEMP26 "ADD" - PHRASE70>
10952 <ENDIF "STRING-EQUAL?">
10953 <IFCANNOT "STRING-EQUAL?">
10954 <SET TEMP33 TEMP26>
10956 <SET AC9 "ADD" (TYPE STRING)>
10957 <LENUS TEMP33 = NXT11 (TYPE FIX)>
10958 <VEQUAL? NXT11 3 - PHRASE70>
10959 <LOOP (TEMP33 VALUE LENGTH) (AC9 VALUE LENGTH) (NXT11 VALUE)>
10961 <NTHUS TEMP33 1 = TEMP32>
10962 <NTHUS AC9 1 = TEMP34>
10963 <VEQUAL? TEMP32 TEMP34 - PHRASE70>
10964 <DEAD TEMP32 TEMP34>
10965 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
10966 <RESTUS AC9 1 = AC9 (TYPE STRING)>
10967 <SUB NXT11 1 = NXT11 (TYPE FIX)>
10968 <GRTR? NXT11 0 + TAG72 (TYPE FIX)>
10969 <ENDIF "STRING-EQUAL?">
10970 <SET AC9 'AOS (TYPE ATOM)>
10973 <SET AC9 'SOS (TYPE ATOM)>
10977 <VEQUAL? DEAD?13 0 - TAG74>
10979 <SET AC9 'T (TYPE ATOM)>
10982 <SET AC9 %<> (TYPE FALSE)>
10986 <CALL '
\1aNTHUV!-MIMOC 4>
10990 <SET TEMP34 4 (TYPE FIX)>
10991 <LOOP (TEMP33 VALUE) (TEMP34 VALUE)>
10993 <EMPL? TEMP33 + PHRASE76>
10994 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
10995 <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
10996 <GRTR? TEMP34 0 + TAG78 (TYPE FIX)>
10997 <NTHL L10 1 = NXT11>
10998 <TYPE? NXT11 <TYPE-CODE FORM> - PHRASE76>
11000 <SET TEMP32 4 (TYPE FIX)>
11001 <LOOP (TEMP33 VALUE) (TEMP32 VALUE)>
11003 <EMPL? TEMP33 + PHRASE76>
11004 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11005 <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
11006 <GRTR? TEMP32 0 + TAG79 (TYPE FIX)>
11007 <NTHL NXT11 1 = TEMP33 (TYPE ATOM)>
11008 <NTHR TEMP33 3 = TEMP26 (RECORD-TYPE ATOM)>
11010 <LENUS TEMP26 = TEMP33 (TYPE FIX)>
11011 <VEQUAL? TEMP33 5 - BOOL81 (TYPE FIX)>
11016 <CALL '
\1aMEMBER 2 = TEMP33>
11017 <TYPE? TEMP33 <TYPE-CODE FALSE> + BOOL81>
11019 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11020 <NTHL TEMP33 1 = TEMP33>
11021 <EQUAL? TEMP33 VAL8 - BOOL81>
11023 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11024 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11025 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11026 <NTHL TEMP33 1 = TEMP33>
11027 <EQUAL? TEMP33 VAL8 + BOOL83>
11029 <FRAME '
\1aWILL-DIE?>
11032 <CALL '
\1aWILL-DIE? 2 = TEMP33>
11033 <TYPE? TEMP33 <TYPE-CODE FALSE> + BOOL81>
11036 <RESTL L10 1 = TEMP33 (TYPE LIST)>
11037 <NTHL TEMP33 1 = AC9>
11039 <TYPE? AC9 <TYPE-CODE FORM> - PHRASE86>
11041 <SET TEMP26 5 (TYPE FIX)>
11042 <LOOP (TEMP33 VALUE) (TEMP26 VALUE)>
11044 <EMPL? TEMP33 + PHRASE86>
11045 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11046 <SUB TEMP26 1 = TEMP26 (TYPE FIX)>
11047 <GRTR? TEMP26 0 + TAG89 (TYPE FIX)>
11049 <NTHL AC9 1 = TEMP33 (TYPE ATOM)>
11050 <NTHR TEMP33 3 = STACK (RECORD-TYPE ATOM)>
11052 <GVAL 'MIMOC-OBLIST = STACK>
11053 <CALL '
\1aLOOKUP 2 = TEMP33>
11054 <GVAL 'COMPARERS = DEAD?13>
11055 <TYPE? TEMP33 <TYPE-CODE ATOM> - PHRASE86>
11056 <EMPUV? DEAD?13 + PHRASE86>
11057 <LOOP (TEMP33 VALUE) (DEAD?13 LENGTH VALUE)>
11059 <NTHUV DEAD?13 1 = TEMP32>
11060 <VEQUAL? TEMP32 TEMP33 + TAG90>
11062 <RESTUV DEAD?13 1 = DEAD?13 (TYPE VECTOR)>
11063 <EMPUV? DEAD?13 - TAG91>
11066 <RESTL NXT11 1 = DEAD?13 (TYPE LIST)>
11067 <RESTL DEAD?13 1 = DEAD?13 (TYPE LIST)>
11068 <RESTL DEAD?13 1 = DEAD?13 (TYPE LIST)>
11069 <NTHL DEAD?13 1 = DEAD?13>
11070 <RESTL AC9 1 = TEMP33 (TYPE LIST)>
11071 <CHTYPE TEMP33 <TYPE-CODE LIST> = TEMP33>
11072 <TYPE DEAD?13 = TEMP32>
11073 <EMPL? TEMP33 + PHRASE86>
11074 <LOOP (DEAD?13 VALUE) (TEMP32 VALUE) (TEMP33 VALUE)>
11076 <NTHL TEMP33 1 = TEMP34>
11077 <TYPE? TEMP34 TEMP32 - TAG98>
11078 <VEQUAL? TEMP34 DEAD?13 + TAG96>
11081 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11082 <EMPL? TEMP33 - TAG97>
11085 <FRAME '
\1aWILL-DIE?>
11086 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11087 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11088 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11089 <NTHL TEMP33 1 = STACK>
11091 <RESTL L10 1 = STACK (TYPE LIST)>
11093 <CALL '
\1aWILL-DIE? 2 = TEMP33>
11094 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE86>
11096 <FRAME '
\1aWILL-DIE?>
11097 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11098 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11099 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11100 <NTHL TEMP33 1 = STACK>
11102 <SET TEMP34 %<> (TYPE FALSE)>
11103 <CHTYPE AC9 <TYPE-CODE LIST> = TEMP33>
11108 <EMPL? TEMP33 + MAPAP106>
11111 <EQUAL? AC9 '+ + BOOL113>
11112 <EQUAL? AC9 '- - PHRASE112>
11115 <RESTL L10 1 = AC9 (TYPE LIST)>
11117 <NTHL AC9 1 = TEMP34 (TYPE ATOM)>
11121 <RESTL L10 1 = AC9 (TYPE LIST)>
11123 <EMPL? AC9 + TAG117 (TYPE LIST)>
11125 <SET TEMP34 %<> (TYPE FALSE)>
11129 <PUSH 'HUH?!-ERRORS>
11130 <CALL '
\1aERROR 1 = TEMP34>
11132 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11135 <GVAL TEMP34 = TEMP33>
11137 <NTHUV TEMP33 7 = STACK (TYPE LIST)>
11139 <CALL '
\1aWILL-DIE? 2 = TEMP33>
11140 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE86>
11142 <IFCAN "STRING-EQUAL?">
11143 <STRING-EQUAL? INS5 "PUTL" - PHRASE120>
11144 <ENDIF "STRING-EQUAL?">
11145 <IFCANNOT "STRING-EQUAL?">
11148 <SET TEMP34 "PUTL" (TYPE STRING)>
11149 <LENUS TEMP33 = TEMP32 (TYPE FIX)>
11150 <VEQUAL? TEMP32 4 - PHRASE120>
11151 <LOOP (TEMP33 VALUE LENGTH) (TEMP34 VALUE LENGTH) (TEMP32 VALUE)>
11153 <NTHUS TEMP33 1 = AC9>
11154 <NTHUS TEMP34 1 = DEAD?13>
11155 <VEQUAL? AC9 DEAD?13 - PHRASE120>
11157 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11158 <RESTUS TEMP34 1 = TEMP34 (TYPE STRING)>
11159 <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
11160 <GRTR? TEMP32 0 + TAG122 (TYPE FIX)>
11161 <ENDIF "STRING-EQUAL?">
11162 <FRAME '
\1aNTHL!-MIMOC>
11167 <CALL '
\1aNTHL!-MIMOC 3>
11168 <SETG 'NEXT-FLUSH 1>
11171 <FRAME '
\1aNTHUV!-MIMOC>
11177 <CALL '
\1aNTHUV!-MIMOC 4>
11178 <SETG 'NEXT-FLUSH 1>
11182 <CALL '
\1aGET-AC 1 = TEMP34>
11183 <PUTUV TEMP34 3 'VALUE (TYPE ATOM)>
11184 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11186 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11187 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11188 <NTHL TEMP33 1 = TEMP33>
11189 <PUTUV TEMP34 2 TEMP33>
11190 <DEAD TEMP34 TEMP33>
11193 <IFCAN "STRING-EQUAL?">
11194 <STRING-EQUAL? INS5 "PUTL" - PHRASE129>
11195 <ENDIF "STRING-EQUAL?">
11196 <IFCANNOT "STRING-EQUAL?">
11199 <SET TEMP33 "PUTL" (TYPE STRING)>
11200 <LENUS TEMP34 = DEAD?13 (TYPE FIX)>
11201 <VEQUAL? DEAD?13 4 - PHRASE129>
11202 <LOOP (TEMP34 VALUE LENGTH) (TEMP33 VALUE LENGTH) (DEAD?13 VALUE)>
11204 <NTHUS TEMP34 1 = AC9>
11205 <NTHUS TEMP33 1 = TEMP32>
11206 <VEQUAL? AC9 TEMP32 - PHRASE129>
11208 <RESTUS TEMP34 1 = TEMP34 (TYPE STRING)>
11209 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11210 <SUB DEAD?13 1 = DEAD?13 (TYPE FIX)>
11211 <GRTR? DEAD?13 0 + TAG131 (TYPE FIX)>
11212 <ENDIF "STRING-EQUAL?">
11213 <FRAME '
\1aNTHL!-MIMOC>
11218 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11220 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11221 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11222 <NTHL TEMP33 1 = STACK>
11224 <CALL '
\1aNTHL!-MIMOC 4>
11225 <SETG 'NEXT-FLUSH 1>
11228 <FRAME '
\1aNTHUV!-MIMOC>
11234 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11236 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11237 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11238 <NTHL TEMP33 1 = STACK>
11240 <CALL '
\1aNTHUV!-MIMOC 5>
11241 <SETG 'NEXT-FLUSH 1>
11244 <LENUS TEMP26 = TEMP33 (TYPE FIX)>
11245 <VEQUAL? TEMP33 6 - PHRASE76 (TYPE FIX)>
11251 <CALL '
\1aMEMBER 2 = TEMP33>
11252 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE76>
11254 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11255 <NTHL TEMP33 1 = TEMP33>
11256 <EQUAL? TEMP33 VAL8 - PHRASE76>
11258 <FRAME '
\1aWILL-DIE?>
11261 <CALL '
\1aWILL-DIE? 2 = TEMP33>
11262 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE76>
11264 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11265 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11266 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11267 <NTHL TEMP33 1 = TEMP33>
11268 <EQUAL? TEMP33 'COMPERR + BOOL138>
11270 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11271 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11272 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11273 <NTHL TEMP33 1 = TEMP33>
11274 <RESTL L10 1 = TEMP34 (TYPE LIST)>
11275 <TYPE TEMP33 = TEMP32>
11276 <EMPL? TEMP34 + PHRASE76>
11277 <LOOP (TEMP33 VALUE) (TEMP32 VALUE) (TEMP34 VALUE)>
11279 <NTHL TEMP34 1 = AC9>
11280 <TYPE? AC9 TEMP32 - TAG143>
11281 <VEQUAL? AC9 TEMP33 + TAG141>
11284 <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
11285 <EMPL? TEMP34 - TAG142>
11290 <FRAME '
\1aWILL-DIE?>
11294 <CALL '
\1aWILL-DIE? 2 = TEMP34>
11295 <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE76>
11298 <IFCAN "STRING-EQUAL?">
11299 <STRING-EQUAL? INS5 "PUTL" - PHRASE148>
11300 <ENDIF "STRING-EQUAL?">
11301 <IFCANNOT "STRING-EQUAL?">
11304 <SET TEMP33 "PUTL" (TYPE STRING)>
11305 <LENUS TEMP32 = AC9 (TYPE FIX)>
11306 <VEQUAL? AC9 4 - PHRASE148>
11307 <LOOP (TEMP32 VALUE LENGTH) (TEMP33 VALUE LENGTH) (AC9 VALUE)>
11309 <NTHUS TEMP32 1 = DEAD?13>
11310 <NTHUS TEMP33 1 = TEMP34>
11311 <VEQUAL? DEAD?13 TEMP34 - PHRASE148>
11312 <DEAD DEAD?13 TEMP34>
11313 <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
11314 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11315 <SUB AC9 1 = AC9 (TYPE FIX)>
11316 <GRTR? AC9 0 + TAG151 (TYPE FIX)>
11317 <ENDIF "STRING-EQUAL?">
11318 <FRAME '
\1aNTHL!-MIMOC>
11323 <CALL '
\1aNTHL!-MIMOC 3>
11324 <SETG 'NEXT-FLUSH 1>
11327 <FRAME '
\1aNTHUV!-MIMOC>
11333 <CALL '
\1aNTHUV!-MIMOC 4>
11334 <SETG 'NEXT-FLUSH 1>
11336 <FRAME '
\1aLABEL-UPDATE-ACS>
11337 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11338 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11339 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11340 <NTHL TEMP33 1 = STACK>
11343 <CALL '
\1aLABEL-UPDATE-ACS 2>
11345 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11346 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11347 <NTHL TEMP33 1 = TEMP33>
11348 <EQUAL? TEMP33 '+ - PHRASE158>
11350 <SET TEMP33 'JUMPE (TYPE ATOM)>
11353 <SET TEMP33 'JUMPN (TYPE ATOM)>
11359 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11361 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11362 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11363 <NTHL TEMP33 1 = STACK>
11365 <CALL '
\1aXJUMP 1 = STACK>
11366 <CALL '
\1aOCEMIT 3>
11370 <SET TEMP32 4 (TYPE FIX)>
11371 <LOOP (TEMP33 VALUE) (TEMP32 VALUE)>
11373 <EMPL? TEMP33 + PHRASE161>
11374 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11375 <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
11376 <GRTR? TEMP32 0 + TAG163 (TYPE FIX)>
11377 <NTHL L10 1 = NXT11>
11378 <TYPE? NXT11 <TYPE-CODE FORM> - PHRASE161>
11380 <SET TEMP34 5 (TYPE FIX)>
11381 <LOOP (TEMP33 VALUE) (TEMP34 VALUE)>
11383 <EMPL? TEMP33 + PHRASE161>
11384 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11385 <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
11386 <GRTR? TEMP34 0 + TAG164 (TYPE FIX)>
11387 <NTHL NXT11 1 = TEMP33 (TYPE ATOM)>
11388 <NTHR TEMP33 3 = TEMP26 (RECORD-TYPE ATOM)>
11390 <IFCAN "STRING-EQUAL?">
11391 <STRING-EQUAL? TEMP26 "VEQUAL?" + BOOL165>
11392 <ENDIF "STRING-EQUAL?">
11393 <IFCANNOT "STRING-EQUAL?">
11394 <SET TEMP33 TEMP26>
11395 <SET DEAD?13 "VEQUAL?" (TYPE STRING)>
11396 <LENUS TEMP33 = AC9 (TYPE FIX)>
11397 <VEQUAL? AC9 7 - TAG166>
11398 <LOOP (TEMP33 VALUE LENGTH) (DEAD?13 VALUE LENGTH) (AC9 VALUE)>
11400 <NTHUS TEMP33 1 = TEMP32>
11401 <NTHUS DEAD?13 1 = TEMP34>
11402 <VEQUAL? TEMP32 TEMP34 - TAG166>
11403 <DEAD TEMP32 TEMP34>
11404 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11405 <RESTUS DEAD?13 1 = DEAD?13 (TYPE STRING)>
11406 <SUB AC9 1 = AC9 (TYPE FIX)>
11407 <GRTR? AC9 0 + TAG170 (TYPE FIX)>
11409 <ENDIF "STRING-EQUAL?">
11411 <IFCAN "STRING-EQUAL?">
11412 <STRING-EQUAL? TEMP26 "EQUAL?" - PHRASE161>
11413 <ENDIF "STRING-EQUAL?">
11414 <IFCANNOT "STRING-EQUAL?">
11415 <SET DEAD?13 TEMP26>
11416 <SET TEMP33 "EQUAL?" (TYPE STRING)>
11417 <LENUS DEAD?13 = TEMP34 (TYPE FIX)>
11418 <VEQUAL? TEMP34 6 - PHRASE161>
11419 <LOOP (DEAD?13 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP34 VALUE)>
11421 <NTHUS DEAD?13 1 = TEMP32>
11422 <NTHUS TEMP33 1 = AC9>
11423 <VEQUAL? TEMP32 AC9 - PHRASE161>
11425 <RESTUS DEAD?13 1 = DEAD?13 (TYPE STRING)>
11426 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11427 <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
11428 <GRTR? TEMP34 0 + TAG172 (TYPE FIX)>
11429 <ENDIF "STRING-EQUAL?">
11431 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11432 <NTHL TEMP33 1 = TEMP33>
11433 <EQUAL? TEMP33 VAL8 + BOOL173>
11435 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11436 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11437 <NTHL TEMP33 1 = TEMP33>
11438 <EQUAL? TEMP33 VAL8 - PHRASE161>
11441 <NTHL NXT11 1 = STACK (TYPE ATOM)>
11443 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11444 <NTHL TEMP33 1 = STACK>
11446 <SET DEAD?13 3 (TYPE FIX)>
11447 <RESTL NXT11 1 = AC9 (TYPE LIST)>
11449 <RESTL AC9 1 = AC9 (TYPE LIST)>
11450 <RESTL AC9 1 = TEMP33 (TYPE LIST)>
11452 <CHTYPE TEMP33 <TYPE-CODE LIST> = TEMP33>
11453 <LOOP (TEMP33 VALUE) (DEAD?13 VALUE)>
11456 <EMPL? TEMP33 + TAG175>
11457 <NTHL TEMP33 1 = STACK>
11458 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11459 <ADD DEAD?13 1 = DEAD?13 (TYPE FIX)>
11462 <CALL '
\1aFORM DEAD?13 = NXT11>
11465 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11466 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11467 <NTHL TEMP33 1 = DEAD?13>
11469 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11470 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11471 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11472 <NTHL TEMP33 1 = TEMP33>
11473 <GEN-SET 'DIR TEMP33>
11475 <IFCAN "STRING-EQUAL?">
11476 <STRING-EQUAL? TEMP26 "VEQUAL?" - PHRASE185>
11477 <ENDIF "STRING-EQUAL?">
11478 <IFCANNOT "STRING-EQUAL?">
11479 <SET TEMP33 TEMP26>
11480 <SET AC9 "VEQUAL?" (TYPE STRING)>
11481 <LENUS TEMP33 = TEMP32 (TYPE FIX)>
11482 <VEQUAL? TEMP32 7 - PHRASE185>
11483 <LOOP (TEMP33 VALUE LENGTH) (AC9 VALUE LENGTH) (TEMP32 VALUE)>
11485 <NTHUS TEMP33 1 = TEMP34>
11486 <NTHUS AC9 1 = TEMP35>
11487 <VEQUAL? TEMP34 TEMP35 - PHRASE185>
11488 <DEAD TEMP34 TEMP35>
11489 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11490 <RESTUS AC9 1 = AC9 (TYPE STRING)>
11491 <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
11492 <GRTR? TEMP32 0 + TAG188 (TYPE FIX)>
11493 <ENDIF "STRING-EQUAL?">
11497 <CALL '
\1aIN-AC? 2 = AC9>
11498 <TYPE? AC9 <TYPE-CODE FALSE> - BOOL195>
11505 <CALL '
\1aIN-AC? 2 = AC9>
11506 <TYPE? AC9 <TYPE-CODE FALSE> - BOOL195>
11509 <IFCAN "STRING-EQUAL?">
11510 <STRING-EQUAL? TEMP26 "VEQUAL?" - PHRASE161>
11511 <ENDIF "STRING-EQUAL?">
11512 <IFCANNOT "STRING-EQUAL?">
11515 <SET TEMP33 "VEQUAL?" (TYPE STRING)>
11516 <LENUS AC9 = TEMP35 (TYPE FIX)>
11517 <VEQUAL? TEMP35 7 - PHRASE161>
11518 <LOOP (AC9 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP35 VALUE)>
11520 <NTHUS AC9 1 = TEMP34>
11521 <NTHUS TEMP33 1 = TEMP32>
11522 <VEQUAL? TEMP34 TEMP32 - PHRASE161>
11523 <DEAD TEMP34 TEMP32>
11524 <RESTUS AC9 1 = AC9 (TYPE STRING)>
11525 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11526 <SUB TEMP35 1 = TEMP35 (TYPE FIX)>
11527 <GRTR? TEMP35 0 + TAG194 (TYPE FIX)>
11528 <ENDIF "STRING-EQUAL?">
11529 <FRAME '
\1aPRIMTYPE>
11531 <CALL '
\1aPRIMTYPE 1 = TEMP33>
11532 <VEQUAL? TEMP33 'FIX - BOOL196>
11534 <VEQUAL? DEAD?13 0 + BOOL195 (TYPE FIX)>
11536 <FRAME '
\1aPRIMTYPE>
11538 <CALL '
\1aPRIMTYPE 1 = TEMP33>
11539 <VEQUAL? TEMP33 'LIST - PHRASE161>
11541 <EMPL? DEAD?13 - PHRASE161 (TYPE LIST)>
11544 <FRAME '
\1aWILL-DIE?>
11547 <CALL '
\1aWILL-DIE? 2 = TEMP33>
11548 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE161>
11550 <FRAME '
\1aWILL-DIE?>
11552 <FRAME '
\1aFIND-LABEL>
11553 <NTHL NXT11 5 = STACK>
11554 <CALL '
\1aFIND-LABEL 1 = TEMP33>
11555 <NTHUV TEMP33 7 = STACK (TYPE LIST)>
11557 <CALL '
\1aWILL-DIE? 2 = TEMP33>
11558 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE161>
11560 <IFCAN "STRING-EQUAL?">
11561 <STRING-EQUAL? INS5 "PUTL" - PHRASE206>
11562 <ENDIF "STRING-EQUAL?">
11563 <IFCANNOT "STRING-EQUAL?">
11565 <SET AC9 "PUTL" (TYPE STRING)>
11566 <LENUS TEMP33 = TEMP32 (TYPE FIX)>
11567 <VEQUAL? TEMP32 4 - PHRASE206>
11568 <LOOP (TEMP33 VALUE LENGTH) (AC9 VALUE LENGTH) (TEMP32 VALUE)>
11570 <NTHUS TEMP33 1 = TEMP34>
11571 <NTHUS AC9 1 = DEAD?13>
11572 <VEQUAL? TEMP34 DEAD?13 - PHRASE206>
11573 <DEAD TEMP34 DEAD?13>
11574 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11575 <RESTUS AC9 1 = AC9 (TYPE STRING)>
11576 <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
11577 <GRTR? TEMP32 0 + TAG208 (TYPE FIX)>
11578 <ENDIF "STRING-EQUAL?">
11579 <FRAME '
\1aNTHL!-MIMOC>
11585 <CALL '
\1aNTHL!-MIMOC 3>
11586 <SETG 'NEXT-FLUSH 1>
11589 <FRAME '
\1aNTHUV!-MIMOC>
11592 <IFCAN "STRING-EQUAL?">
11593 <STRING-EQUAL? INS5 "PUTUU" - TAG212>
11594 <ENDIF "STRING-EQUAL?">
11595 <IFCANNOT "STRING-EQUAL?">
11598 <SET TEMP33 "PUTUU" (TYPE STRING)>
11599 <LENUS AC9 = DEAD?13 (TYPE FIX)>
11600 <VEQUAL? DEAD?13 5 - TAG212>
11601 <LOOP (AC9 VALUE LENGTH) (TEMP33 VALUE LENGTH) (DEAD?13 VALUE)>
11603 <NTHUS AC9 1 = TEMP34>
11604 <NTHUS TEMP33 1 = TEMP32>
11605 <VEQUAL? TEMP34 TEMP32 - TAG212>
11606 <DEAD TEMP34 TEMP32>
11607 <RESTUS AC9 1 = AC9 (TYPE STRING)>
11608 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11609 <SUB DEAD?13 1 = DEAD?13 (TYPE FIX)>
11610 <GRTR? DEAD?13 0 + TAG214 (TYPE FIX)>
11611 <ENDIF "STRING-EQUAL?">
11620 <CALL '
\1aNTHUV!-MIMOC 4>
11621 <SETG 'NEXT-FLUSH 1>
11625 <SET AC9 4 (TYPE FIX)>
11626 <LOOP (TEMP33 VALUE) (AC9 VALUE)>
11628 <EMPL? TEMP33 + TAG220>
11629 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11630 <SUB AC9 1 = AC9 (TYPE FIX)>
11631 <GRTR? AC9 0 + TAG219 (TYPE FIX)>
11636 <NTHL L10 1 = NXT11>
11637 <TYPE? NXT11 <TYPE-CODE FORM> + TAG221>
11641 <SET TEMP32 5 (TYPE FIX)>
11642 <LOOP (TEMP33 VALUE) (TEMP32 VALUE)>
11644 <EMPL? TEMP33 + TAG225>
11645 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11646 <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
11647 <GRTR? TEMP32 0 + TAG224 (TYPE FIX)>
11652 <NTHL NXT11 1 = TEMP33 (TYPE ATOM)>
11653 <NTHR TEMP33 3 = TEMP33 (RECORD-TYPE ATOM)>
11654 <IFCAN "STRING-EQUAL?">
11655 <STRING-EQUAL? TEMP33 "TYPE?" + TAG226>
11656 <ENDIF "STRING-EQUAL?">
11657 <IFCANNOT "STRING-EQUAL?">
11658 <SET TEMP34 "TYPE?" (TYPE STRING)>
11659 <LENUS TEMP33 = AC9 (TYPE FIX)>
11660 <VEQUAL? AC9 5 - TAG227>
11661 <LOOP (TEMP33 VALUE LENGTH) (TEMP34 VALUE LENGTH) (AC9 VALUE)>
11663 <NTHUS TEMP33 1 = DEAD?13>
11664 <NTHUS TEMP34 1 = TEMP32>
11665 <VEQUAL? DEAD?13 TEMP32 - TAG227>
11666 <DEAD DEAD?13 TEMP32>
11667 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11668 <RESTUS TEMP34 1 = TEMP34 (TYPE STRING)>
11669 <SUB AC9 1 = AC9 (TYPE FIX)>
11670 <GRTR? AC9 0 + TAG231 (TYPE FIX)>
11672 <ENDIF "STRING-EQUAL?">
11676 <RESTL NXT11 1 = TEMP34 (TYPE LIST)>
11677 <NTHL TEMP34 1 = TEMP34>
11678 <EQUAL? TEMP34 VAL8 + TAG232>
11682 <RESTL NXT11 1 = TEMP34 (TYPE LIST)>
11683 <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
11684 <NTHL TEMP34 1 = TEMP35>
11686 <TYPE? TEMP35 <TYPE-CODE FIX> + TAG233>
11689 <RESTL NXT11 1 = TEMP34 (TYPE LIST)>
11690 <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
11691 <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
11692 <NTHL TEMP34 1 = TEMP34>
11693 <EQUAL? TEMP34 '- + TAG235>
11697 <NTHL NXT11 5 = TEMP26>
11700 <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE216>
11701 <RESTL L10 1 = TEMP34 (TYPE LIST)>
11702 <NTHL TEMP34 1 = NXT11>
11704 <TYPE? NXT11 <TYPE-CODE FORM> + TAG236>
11708 <SET TEMP33 5 (TYPE FIX)>
11709 <LOOP (TEMP34 VALUE) (TEMP33 VALUE)>
11711 <EMPL? TEMP34 + TAG240>
11712 <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
11713 <SUB TEMP33 1 = TEMP33 (TYPE FIX)>
11714 <GRTR? TEMP33 0 + TAG239 (TYPE FIX)>
11719 <NTHL NXT11 1 = TEMP34 (TYPE ATOM)>
11720 <NTHR TEMP34 3 = TEMP34 (RECORD-TYPE ATOM)>
11721 <IFCAN "STRING-EQUAL?">
11722 <STRING-EQUAL? TEMP34 "VEQUAL?" + TAG241>
11723 <ENDIF "STRING-EQUAL?">
11724 <IFCANNOT "STRING-EQUAL?">
11725 <SET TEMP32 "VEQUAL?" (TYPE STRING)>
11726 <LENUS TEMP34 = DEAD?13 (TYPE FIX)>
11727 <VEQUAL? DEAD?13 7 - TAG242>
11728 <LOOP (TEMP34 VALUE LENGTH) (TEMP32 VALUE LENGTH) (DEAD?13 VALUE)>
11730 <NTHUS TEMP34 1 = AC9>
11731 <NTHUS TEMP32 1 = TEMP33>
11732 <VEQUAL? AC9 TEMP33 - TAG242>
11734 <RESTUS TEMP34 1 = TEMP34 (TYPE STRING)>
11735 <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
11736 <SUB DEAD?13 1 = DEAD?13 (TYPE FIX)>
11737 <GRTR? DEAD?13 0 + TAG245 (TYPE FIX)>
11739 <ENDIF "STRING-EQUAL?">
11743 <RESTL NXT11 1 = TEMP32 (TYPE LIST)>
11744 <NTHL TEMP32 1 = TEMP32>
11745 <EQUAL? TEMP32 VAL8 + BOOL246>
11747 <RESTL NXT11 1 = TEMP32 (TYPE LIST)>
11748 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
11749 <NTHL TEMP32 1 = TEMP32>
11750 <EQUAL? TEMP32 VAL8 + TAG248>
11755 <NTHL NXT11 1 = STACK (TYPE ATOM)>
11757 <RESTL NXT11 1 = TEMP32 (TYPE LIST)>
11758 <NTHL TEMP32 1 = STACK>
11760 <SET TEMP34 3 (TYPE FIX)>
11761 <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11763 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11764 <RESTL TEMP33 1 = TEMP32 (TYPE LIST)>
11766 <CHTYPE TEMP32 <TYPE-CODE LIST> = TEMP32>
11767 <LOOP (TEMP32 VALUE) (TEMP34 VALUE)>
11770 <EMPL? TEMP32 + TAG249>
11771 <NTHL TEMP32 1 = STACK>
11772 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
11773 <ADD TEMP34 1 = TEMP34 (TYPE FIX)>
11776 <CALL '
\1aFORM TEMP34 = NXT11>
11779 <RESTL NXT11 1 = TEMP32 (TYPE LIST)>
11780 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
11781 <NTHL TEMP32 1 = DEAD?13>
11783 <RESTL NXT11 1 = TEMP32 (TYPE LIST)>
11784 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
11785 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
11786 <NTHL TEMP32 1 = TEMP32>
11787 <EQUAL? TEMP32 '+ - TAG254>
11789 <SET AC9 'T (TYPE ATOM)>
11792 <SET AC9 %<> (TYPE FALSE)>
11794 <VEQUAL? AC9 0 + PHRASE216>
11795 <TYPE? DEAD?13 <TYPE-CODE ATOM> - BOOL257>
11799 <CALL '
\1aIN-AC? 2 = TEMP32>
11800 <TYPE? TEMP32 <TYPE-CODE FALSE> + BOOL257>
11802 <FRAME '
\1aWILL-DIE?>
11804 <RESTL L10 1 = STACK (TYPE LIST)>
11805 <CALL '
\1aWILL-DIE? 2 = TEMP32>
11806 <TYPE? TEMP32 <TYPE-CODE FALSE> + BOOL257>
11808 <FRAME '
\1aWILL-DIE?>
11811 <FRAME '
\1aFIND-LABEL>
11812 <NTHL NXT11 5 = STACK>
11813 <CALL '
\1aFIND-LABEL 1 = TEMP32>
11814 <NTHUV TEMP32 7 = STACK (TYPE LIST)>
11816 <CALL '
\1aWILL-DIE? 2 = TEMP32>
11817 <TYPE? TEMP32 <TYPE-CODE FALSE> - TAG271>
11820 <FRAME '
\1aPRIMTYPE>
11822 <CALL '
\1aPRIMTYPE 1 = TEMP32>
11823 <VEQUAL? TEMP32 'FIX - BOOL264>
11825 <VEQUAL? DEAD?13 0 + TAG271 (TYPE FIX)>
11827 <FRAME '
\1aPRIMTYPE>
11829 <CALL '
\1aPRIMTYPE 1 = TEMP32>
11830 <VEQUAL? TEMP32 'LIST + TAG269>
11834 <EMPL? DEAD?13 + TAG271 (TYPE LIST)>
11838 <RESTL L10 1 = TEMP32 (TYPE LIST)>
11839 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
11840 <NTHL TEMP32 1 = TEMP32>
11841 <EQUAL? TEMP32 TEMP26 + TAG281>
11843 <RESTL L10 1 = TEMP32 (TYPE LIST)>
11844 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
11845 <NTHL TEMP32 1 = TEMP32>
11846 <TYPE? TEMP32 <TYPE-CODE FORM> + TAG274>
11850 <RESTL L10 1 = TEMP32 (TYPE LIST)>
11851 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
11852 <NTHL TEMP32 1 = TEMP32 (TYPE FORM)>
11853 <NTHL TEMP32 1 = TEMP32 (TYPE ATOM)>
11854 <NTHR TEMP32 3 = TEMP32 (RECORD-TYPE ATOM)>
11855 <IFCAN "STRING-EQUAL?">
11856 <STRING-EQUAL? TEMP32 "DEAD" + TAG276>
11857 <ENDIF "STRING-EQUAL?">
11858 <IFCANNOT "STRING-EQUAL?">
11859 <SET TEMP33 "DEAD" (TYPE STRING)>
11860 <LENUS TEMP32 = AC9 (TYPE FIX)>
11861 <VEQUAL? AC9 4 - TAG277>
11862 <LOOP (TEMP32 VALUE LENGTH) (TEMP33 VALUE LENGTH) (AC9 VALUE)>
11864 <NTHUS TEMP32 1 = DEAD?13>
11865 <NTHUS TEMP33 1 = TEMP34>
11866 <VEQUAL? DEAD?13 TEMP34 - TAG277>
11867 <DEAD DEAD?13 TEMP34>
11868 <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
11869 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11870 <SUB AC9 1 = AC9 (TYPE FIX)>
11871 <GRTR? AC9 0 + TAG280 (TYPE FIX)>
11873 <ENDIF "STRING-EQUAL?">
11877 <RESTL L10 1 = TEMP33 (TYPE LIST)>
11879 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11880 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11881 <NTHL TEMP33 1 = TEMP33>
11882 <EQUAL? TEMP33 TEMP26 + TAG281>
11883 <DEAD TEMP33 TEMP26>
11886 <SETG 'NEXT-FLUSH 2>
11887 <CONS TEMP35 NXT11 = TEMP33>
11888 <DEAD TEMP35 NXT11>
11889 <CONS 'TYPE? TEMP33 = TEMP33>
11890 <CHTYPE TEMP33 <TYPE-CODE FORM> = NXT11>
11892 <IFCAN "STRING-EQUAL?">
11893 <STRING-EQUAL? INS5 "PUTL" - PHRASE283>
11894 <ENDIF "STRING-EQUAL?">
11895 <IFCANNOT "STRING-EQUAL?">
11897 <SET TEMP32 "PUTL" (TYPE STRING)>
11898 <LENUS TEMP33 = TEMP34 (TYPE FIX)>
11899 <VEQUAL? TEMP34 4 - PHRASE283>
11900 <LOOP (TEMP33 VALUE LENGTH) (TEMP32 VALUE LENGTH) (TEMP34 VALUE)>
11902 <NTHUS TEMP33 1 = DEAD?13>
11903 <NTHUS TEMP32 1 = AC9>
11904 <VEQUAL? DEAD?13 AC9 - PHRASE283>
11906 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11907 <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
11908 <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
11909 <GRTR? TEMP34 0 + TAG285 (TYPE FIX)>
11910 <ENDIF "STRING-EQUAL?">
11911 <FRAME '
\1aNTHL!-MIMOC>
11917 <CALL '
\1aNTHL!-MIMOC 3>
11920 <FRAME '
\1aNTHUV!-MIMOC>
11923 <IFCAN "STRING-EQUAL?">
11924 <STRING-EQUAL? INS5 "PUTUU" - TAG289>
11925 <ENDIF "STRING-EQUAL?">
11926 <IFCANNOT "STRING-EQUAL?">
11929 <SET TEMP33 "PUTUU" (TYPE STRING)>
11930 <LENUS TEMP32 = AC9 (TYPE FIX)>
11931 <VEQUAL? AC9 5 - TAG289>
11932 <LOOP (TEMP32 VALUE LENGTH) (TEMP33 VALUE LENGTH) (AC9 VALUE)>
11934 <NTHUS TEMP32 1 = DEAD?13>
11935 <NTHUS TEMP33 1 = TEMP34>
11936 <VEQUAL? DEAD?13 TEMP34 - TAG289>
11937 <DEAD DEAD?13 TEMP34>
11938 <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
11939 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11940 <SUB AC9 1 = AC9 (TYPE FIX)>
11941 <GRTR? AC9 0 + TAG291 (TYPE FIX)>
11942 <ENDIF "STRING-EQUAL?">
11951 <CALL '
\1aNTHUV!-MIMOC 4>
11953 <SET AC9 'T (TYPE ATOM)>
11957 <END
\1aNTH-PUT-LOOK-AHEAD>
11958 #WORD *22445107601*
11959 <GFCN
\1aSTRING-PUT-NTH-LOOK-AHEAD ("VALUE" <OR ATOM FALSE> ATOM ATOM ANY ANY FIX) STR4 PUT-OR-NTH5 VAL6 BYTES?7 AMT8>
11960 <TEMP (STACK-OK?9 'T) TEMP11 L10:LIST TEMP22 TEMP35 NM26:STRING TEMP36 TEMP37 TEMP38 TEMP39>
11962 <GEN-LVAL 'MIML = TEMP11>
11963 <RESTL TEMP11 1 = L10 (TYPE LIST)>
11965 <CHTYPE L10 <TYPE-CODE LIST> = L10>
11966 <SET TEMP22 %<> (TYPE FALSE)>
11967 <SET TEMP11 L10 (TYPE LIST)>
11972 <EMPL? TEMP11 + MAPAP18>
11974 <NTHL L10 1 = TEMP22>
11975 <TYPE? TEMP22 <TYPE-CODE ATOM> - PHRASE29>
11978 <NTHL TEMP22 1 = TEMP35 (TYPE ATOM)>
11979 <NTHR TEMP35 3 = NM26 (RECORD-TYPE ATOM)>
11981 <IFCAN "STRING-EQUAL?">
11982 <STRING-EQUAL? NM26 "CALL" + BOOL33>
11983 <ENDIF "STRING-EQUAL?">
11984 <IFCANNOT "STRING-EQUAL?">
11986 <SET TEMP36 "CALL" (TYPE STRING)>
11987 <LENUS TEMP35 = TEMP37 (TYPE FIX)>
11988 <VEQUAL? TEMP37 4 - TAG34>
11989 <LOOP (TEMP35 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
11991 <NTHUS TEMP35 1 = TEMP38>
11992 <NTHUS TEMP36 1 = TEMP39>
11993 <VEQUAL? TEMP38 TEMP39 - TAG34>
11994 <DEAD TEMP38 TEMP39>
11995 <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
11996 <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
11997 <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
11998 <GRTR? TEMP37 0 + TAG40 (TYPE FIX)>
12000 <ENDIF "STRING-EQUAL?">
12002 <IFCAN "STRING-EQUAL?">
12003 <STRING-EQUAL? NM26 "FRAME" + BOOL33>
12004 <ENDIF "STRING-EQUAL?">
12005 <IFCANNOT "STRING-EQUAL?">
12007 <SET TEMP35 "FRAME" (TYPE STRING)>
12008 <LENUS TEMP36 = TEMP39 (TYPE FIX)>
12009 <VEQUAL? TEMP39 5 - TAG41>
12010 <LOOP (TEMP36 VALUE LENGTH) (TEMP35 VALUE LENGTH) (TEMP39 VALUE)>
12012 <NTHUS TEMP36 1 = TEMP38>
12013 <NTHUS TEMP35 1 = TEMP37>
12014 <VEQUAL? TEMP38 TEMP37 - TAG41>
12015 <DEAD TEMP38 TEMP37>
12016 <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12017 <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12018 <SUB TEMP39 1 = TEMP39 (TYPE FIX)>
12019 <GRTR? TEMP39 0 + TAG43 (TYPE FIX)>
12021 <ENDIF "STRING-EQUAL?">
12023 <IFCAN "STRING-EQUAL?">
12024 <STRING-EQUAL? NM26 "SFRAME" + BOOL33>
12025 <ENDIF "STRING-EQUAL?">
12026 <IFCANNOT "STRING-EQUAL?">
12028 <SET TEMP36 "SFRAME" (TYPE STRING)>
12029 <LENUS TEMP35 = TEMP37 (TYPE FIX)>
12030 <VEQUAL? TEMP37 6 - TAG44>
12031 <LOOP (TEMP35 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
12033 <NTHUS TEMP35 1 = TEMP38>
12034 <NTHUS TEMP36 1 = TEMP39>
12035 <VEQUAL? TEMP38 TEMP39 - TAG44>
12036 <DEAD TEMP38 TEMP39>
12037 <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12038 <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12039 <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
12040 <GRTR? TEMP37 0 + TAG46 (TYPE FIX)>
12042 <ENDIF "STRING-EQUAL?">
12044 <IFCAN "STRING-EQUAL?">
12045 <STRING-EQUAL? NM26 "SCALL" + BOOL33>
12046 <ENDIF "STRING-EQUAL?">
12047 <IFCANNOT "STRING-EQUAL?">
12049 <SET TEMP35 "SCALL" (TYPE STRING)>
12050 <LENUS TEMP36 = TEMP39 (TYPE FIX)>
12051 <VEQUAL? TEMP39 5 - TAG47>
12052 <LOOP (TEMP36 VALUE LENGTH) (TEMP35 VALUE LENGTH) (TEMP39 VALUE)>
12054 <NTHUS TEMP36 1 = TEMP38>
12055 <NTHUS TEMP35 1 = TEMP37>
12056 <VEQUAL? TEMP38 TEMP37 - TAG47>
12057 <DEAD TEMP38 TEMP37>
12058 <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12059 <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12060 <SUB TEMP39 1 = TEMP39 (TYPE FIX)>
12061 <GRTR? TEMP39 0 + TAG49 (TYPE FIX)>
12063 <ENDIF "STRING-EQUAL?">
12065 <IFCAN "STRING-EQUAL?">
12066 <STRING-EQUAL? NM26 "ACALL" + BOOL33>
12067 <ENDIF "STRING-EQUAL?">
12068 <IFCANNOT "STRING-EQUAL?">
12070 <SET TEMP36 "ACALL" (TYPE STRING)>
12071 <LENUS TEMP35 = TEMP37 (TYPE FIX)>
12072 <VEQUAL? TEMP37 5 - TAG50>
12073 <LOOP (TEMP35 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
12075 <NTHUS TEMP35 1 = TEMP38>
12076 <NTHUS TEMP36 1 = TEMP39>
12077 <VEQUAL? TEMP38 TEMP39 - TAG50>
12078 <DEAD TEMP38 TEMP39>
12079 <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12080 <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12081 <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
12082 <GRTR? TEMP37 0 + TAG52 (TYPE FIX)>
12084 <ENDIF "STRING-EQUAL?">
12086 <IFCAN "STRING-EQUAL?">
12087 <STRING-EQUAL? NM26 "PUSH" + BOOL33>
12088 <ENDIF "STRING-EQUAL?">
12089 <IFCANNOT "STRING-EQUAL?">
12091 <SET TEMP35 "PUSH" (TYPE STRING)>
12092 <LENUS TEMP36 = TEMP39 (TYPE FIX)>
12093 <VEQUAL? TEMP39 4 - TAG53>
12094 <LOOP (TEMP36 VALUE LENGTH) (TEMP35 VALUE LENGTH) (TEMP39 VALUE)>
12096 <NTHUS TEMP36 1 = TEMP38>
12097 <NTHUS TEMP35 1 = TEMP37>
12098 <VEQUAL? TEMP38 TEMP37 - TAG53>
12099 <DEAD TEMP38 TEMP37>
12100 <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12101 <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12102 <SUB TEMP39 1 = TEMP39 (TYPE FIX)>
12103 <GRTR? TEMP39 0 + TAG55 (TYPE FIX)>
12105 <ENDIF "STRING-EQUAL?">
12107 <IFCAN "STRING-EQUAL?">
12108 <STRING-EQUAL? NM26 "ADJ" - PHRASE32>
12109 <ENDIF "STRING-EQUAL?">
12110 <IFCANNOT "STRING-EQUAL?">
12113 <SET TEMP36 "ADJ" (TYPE STRING)>
12114 <LENUS TEMP35 = TEMP37 (TYPE FIX)>
12115 <VEQUAL? TEMP37 3 - PHRASE32>
12116 <LOOP (TEMP35 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
12118 <NTHUS TEMP35 1 = TEMP38>
12119 <NTHUS TEMP36 1 = TEMP39>
12120 <VEQUAL? TEMP38 TEMP39 - PHRASE32>
12121 <DEAD TEMP38 TEMP39>
12122 <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12123 <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12124 <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
12125 <GRTR? TEMP37 0 + TAG57 (TYPE FIX)>
12126 <ENDIF "STRING-EQUAL?">
12128 <SET STACK-OK?9 %<> (TYPE FALSE)>
12130 <NTHL TEMP22 1 = TEMP36 (TYPE ATOM)>
12131 <NTHR TEMP36 3 = NM26 (RECORD-TYPE ATOM)>
12133 <IFCAN "STRING-EQUAL?">
12134 <STRING-EQUAL? NM26 "RESTUS" - BOOL62>
12135 <ENDIF "STRING-EQUAL?">
12136 <IFCANNOT "STRING-EQUAL?">
12138 <SET TEMP35 "RESTUS" (TYPE STRING)>
12139 <LENUS TEMP36 = TEMP39 (TYPE FIX)>
12140 <VEQUAL? TEMP39 6 - BOOL62>
12141 <LOOP (TEMP36 VALUE LENGTH) (TEMP35 VALUE LENGTH) (TEMP39 VALUE)>
12143 <NTHUS TEMP36 1 = TEMP38>
12144 <NTHUS TEMP35 1 = TEMP37>
12145 <VEQUAL? TEMP38 TEMP37 - BOOL62>
12146 <DEAD TEMP38 TEMP37>
12147 <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12148 <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12149 <SUB TEMP39 1 = TEMP39 (TYPE FIX)>
12150 <GRTR? TEMP39 0 + TAG64 (TYPE FIX)>
12151 <ENDIF "STRING-EQUAL?">
12152 <TYPE? BYTES?7 <TYPE-CODE FALSE> + BOOL61>
12154 <TYPE? BYTES?7 <TYPE-CODE FALSE> + PHRASE59>
12155 <IFCAN "STRING-EQUAL?">
12156 <STRING-EQUAL? NM26 "RESTUB" - PHRASE59>
12157 <ENDIF "STRING-EQUAL?">
12158 <IFCANNOT "STRING-EQUAL?">
12160 <SET TEMP36 "RESTUB" (TYPE STRING)>
12161 <LENUS TEMP35 = TEMP37 (TYPE FIX)>
12162 <VEQUAL? TEMP37 6 - PHRASE59>
12163 <LOOP (TEMP35 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
12165 <NTHUS TEMP35 1 = TEMP38>
12166 <NTHUS TEMP36 1 = TEMP39>
12167 <VEQUAL? TEMP38 TEMP39 - PHRASE59>
12168 <DEAD TEMP38 TEMP39>
12169 <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12170 <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12171 <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
12172 <GRTR? TEMP37 0 + TAG67 (TYPE FIX)>
12173 <ENDIF "STRING-EQUAL?">
12175 <VEQUAL? AMT8 1 - PHRASE59 (TYPE FIX)>
12176 <RESTL TEMP22 1 = TEMP36 (TYPE LIST)>
12177 <NTHL TEMP36 1 = TEMP36>
12178 <EQUAL? TEMP36 STR4 - PHRASE59>
12180 <RESTL TEMP22 1 = TEMP36 (TYPE LIST)>
12181 <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
12182 <NTHL TEMP36 1 = TEMP36>
12183 <EQUAL? TEMP36 1 - PHRASE59>
12185 <VEQUAL? STACK-OK?9 0 - PHRASE71>
12187 <SET TEMP36 TEMP22>
12188 <LOOP (TEMP36 VALUE)>
12190 <NTHL TEMP36 1 = TEMP35>
12191 <TYPE? TEMP35 <TYPE-CODE ATOM> - TAG75>
12192 <VEQUAL? TEMP35 'STACK + TAG73>
12195 <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
12196 <EMPL? TEMP36 - TAG74>
12201 <FRAME '
\1aRESTUS!-MIMOC>
12202 <RESTL TEMP22 1 = TEMP35 (TYPE LIST)>
12203 <CHTYPE TEMP35 <TYPE-CODE LIST> = STACK>
12211 <FRAME '
\1aWILL-DIE?>
12216 <CALL '
\1aWILL-DIE? 2 = STACK>
12217 <CALL '
\1aRESTUS!-MIMOC 5>
12218 <FRAME '
\1aPUTPROP>
12219 <RESTL TEMP22 1 = TEMP39 (TYPE LIST)>
12221 <CHTYPE TEMP39 <TYPE-CODE LIST> = STACK>
12225 <CALL '
\1aPUTPROP 3>
12228 <VEQUAL? PUT-OR-NTH5 'PUT - BOOL83>
12229 <TYPE? BYTES?7 <TYPE-CODE FALSE> + BOOL85>
12230 <SET TEMP35 "PUTUB" (TYPE STRING)>
12233 <SET TEMP35 "PUTUS" (TYPE STRING)>
12236 <TYPE? BYTES?7 <TYPE-CODE FALSE> + BOOL86>
12237 <SET TEMP35 "NTHUB" (TYPE STRING)>
12240 <SET TEMP35 "NTHUS" (TYPE STRING)>
12242 <IFCAN "STRING-EQUAL?">
12243 <STRING-EQUAL? NM26 TEMP35 - PHRASE79>
12244 <ENDIF "STRING-EQUAL?">
12245 <IFCANNOT "STRING-EQUAL?">
12248 <LENUS TEMP36 = TEMP37 (TYPE FIX)>
12249 <LENUS TEMP35 = TEMP38 (TYPE FIX)>
12250 <VEQUAL? TEMP37 TEMP38 - PHRASE79>
12252 <LOOP (TEMP36 VALUE LENGTH) (TEMP35 VALUE LENGTH) (TEMP37 VALUE)>
12254 <NTHUS TEMP36 1 = TEMP38>
12255 <NTHUS TEMP35 1 = TEMP39>
12256 <VEQUAL? TEMP38 TEMP39 - PHRASE79>
12257 <DEAD TEMP38 TEMP39>
12258 <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12259 <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12260 <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
12261 <GRTR? TEMP37 0 + TAG91 (TYPE FIX)>
12262 <ENDIF "STRING-EQUAL?">
12263 <RESTL TEMP22 1 = TEMP35 (TYPE LIST)>
12264 <NTHL TEMP35 1 = TEMP35>
12265 <EQUAL? TEMP35 STR4 - PHRASE79>
12267 <RESTL TEMP22 1 = TEMP35 (TYPE LIST)>
12268 <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
12269 <NTHL TEMP35 1 = TEMP35>
12270 <ADD AMT8 1 = TEMP36 (TYPE FIX)>
12271 <EQUAL? TEMP35 TEMP36 - PHRASE79>
12272 <DEAD TEMP35 TEMP36>
12273 <VEQUAL? STACK-OK?9 0 - PHRASE93>
12275 <SET TEMP36 TEMP22>
12277 <LOOP (TEMP36 VALUE)>
12279 <NTHL TEMP36 1 = TEMP35>
12280 <TYPE? TEMP35 <TYPE-CODE ATOM> - TAG97>
12281 <VEQUAL? TEMP35 'STACK + TAG95>
12284 <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
12285 <EMPL? TEMP36 - TAG96>
12290 <SETG 'REMEMBER-STRING 'T>
12291 <FRAME '
\1aWILL-DIE?>
12296 <CALL '
\1aWILL-DIE? 2 = TEMP35>
12297 <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE99>
12299 <SETG 'DIE-LATER 'T>
12303 <SET TEMP39 TEMP22>
12304 <LOOP (STR4 VALUE) (TEMP39 VALUE)>
12306 <NTHL TEMP39 1 = TEMP38>
12307 <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG105>
12308 <VEQUAL? TEMP38 STR4 + TAG119>
12311 <RESTL TEMP39 1 = TEMP39 (TYPE LIST)>
12312 <EMPL? TEMP39 - TAG104>
12313 <SET TEMP39 TEMP22>
12314 <LOOP (TEMP39 VALUE)>
12316 <NTHL TEMP39 1 = TEMP38>
12317 <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG108>
12318 <VEQUAL? TEMP38 '+ + TAG119>
12321 <RESTL TEMP39 1 = TEMP39 (TYPE LIST)>
12322 <EMPL? TEMP39 - TAG107>
12323 <SET TEMP39 TEMP22>
12324 <LOOP (TEMP39 VALUE)>
12326 <NTHL TEMP39 1 = TEMP38>
12327 <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG111>
12328 <VEQUAL? TEMP38 '- + TAG119>
12331 <RESTL TEMP39 1 = TEMP39 (TYPE LIST)>
12332 <EMPL? TEMP39 - TAG110>
12333 <SET TEMP35 TEMP22>
12334 <LOOP (TEMP35 VALUE)>
12336 <RESTL TEMP35 1 = TEMP39 (TYPE LIST)>
12337 <EMPL? TEMP39 + TAG114>
12338 <SET TEMP35 TEMP39>
12342 <NTHL TEMP35 1 = TEMP35>
12343 <TYPE? TEMP35 <TYPE-CODE LIST> - PHRASE101>
12344 <SET TEMP39 TEMP35>
12345 <EMPL? TEMP39 + TAG116>
12346 <LOOP (TEMP39 VALUE)>
12348 <NTHL TEMP39 1 = TEMP38>
12349 <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG118>
12350 <VEQUAL? TEMP38 '+ + TAG119>
12353 <RESTL TEMP39 1 = TEMP39 (TYPE LIST)>
12354 <EMPL? TEMP39 - TAG117>
12356 <SET TEMP39 TEMP35>
12358 <EMPL? TEMP39 + PHRASE101>
12359 <LOOP (TEMP39 VALUE)>
12361 <NTHL TEMP39 1 = TEMP38>
12362 <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG121>
12363 <VEQUAL? TEMP38 '- + TAG119>
12366 <RESTL TEMP39 1 = TEMP39 (TYPE LIST)>
12367 <EMPL? TEMP39 - TAG120>
12372 <CHTYPE TEMP22 <TYPE-CODE LIST> = TEMP22>
12373 <LOOP (TEMP22 VALUE)>
12375 <NTHL TEMP22 1 = TEMP38>
12376 <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG126>
12377 <VEQUAL? TEMP38 'STACK + TAG124>
12380 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
12381 <EMPL? TEMP22 - TAG125>
12382 <SET TEMP22 %<> (TYPE FALSE)>
12385 <SET STACK-OK?9 %<> (TYPE FALSE)>
12386 <SET TEMP22 STACK-OK?9>
12388 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
12393 <END
\1aSTRING-PUT-NTH-LOOK-AHEAD>
12395 <GFCN
\1aSTRING-REST-LOOK-AHEAD ("VALUE" <OR ATOM FALSE> ANY ATOM ANY ANY) RINS4 STR5 VAL6 BYTES?7>
12396 <TEMP TEMP10 L8:LIST (PUT?9 %<>) TEMP21 LL23:LIST TEMP36 NM25:STRING TEMP37 TEMP38 TEMP39 TEMP40>
12398 <GEN-LVAL 'MIML = TEMP10>
12399 <RESTL TEMP10 1 = L8 (TYPE LIST)>
12401 <CHTYPE L8 <TYPE-CODE LIST> = L8>
12402 <SET TEMP21 %<> (TYPE FALSE)>
12403 <SET TEMP10 L8 (TYPE LIST)>
12407 <EMPL? TEMP10 + MAPAP17>
12409 <NTHL LL23 1 = TEMP21>
12410 <TYPE? TEMP21 <TYPE-CODE ATOM> - PHRASE29>
12413 <NTHL TEMP21 1 = TEMP36 (TYPE ATOM)>
12414 <NTHR TEMP36 3 = NM25 (RECORD-TYPE ATOM)>
12416 <IFCAN "STRING-EQUAL?">
12417 <STRING-EQUAL? NM25 "NTHUS" + BOOL34>
12418 <ENDIF "STRING-EQUAL?">
12419 <IFCANNOT "STRING-EQUAL?">
12421 <SET TEMP37 "NTHUS" (TYPE STRING)>
12422 <LENUS TEMP36 = TEMP38 (TYPE FIX)>
12423 <VEQUAL? TEMP38 5 - TAG35>
12424 <LOOP (TEMP36 VALUE LENGTH) (TEMP37 VALUE LENGTH) (TEMP38 VALUE)>
12426 <NTHUS TEMP36 1 = TEMP39>
12427 <NTHUS TEMP37 1 = TEMP40>
12428 <VEQUAL? TEMP39 TEMP40 - TAG35>
12429 <DEAD TEMP39 TEMP40>
12430 <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12431 <RESTUS TEMP37 1 = TEMP37 (TYPE STRING)>
12432 <SUB TEMP38 1 = TEMP38 (TYPE FIX)>
12433 <GRTR? TEMP38 0 + TAG41 (TYPE FIX)>
12435 <ENDIF "STRING-EQUAL?">
12437 <IFCAN "STRING-EQUAL?">
12438 <STRING-EQUAL? NM25 "PUTUS" - PHRASE32>
12439 <ENDIF "STRING-EQUAL?">
12440 <IFCANNOT "STRING-EQUAL?">
12442 <SET TEMP36 "PUTUS" (TYPE STRING)>
12443 <LENUS TEMP37 = TEMP40 (TYPE FIX)>
12444 <VEQUAL? TEMP40 5 - PHRASE32>
12445 <LOOP (TEMP37 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP40 VALUE)>
12447 <NTHUS TEMP37 1 = TEMP39>
12448 <NTHUS TEMP36 1 = TEMP38>
12449 <VEQUAL? TEMP39 TEMP38 - PHRASE32>
12451 <RESTUS TEMP37 1 = TEMP37 (TYPE STRING)>
12452 <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12453 <SUB TEMP40 1 = TEMP40 (TYPE FIX)>
12454 <GRTR? TEMP40 0 + TAG44 (TYPE FIX)>
12455 <ENDIF "STRING-EQUAL?">
12456 <SET PUT?9 'T (TYPE ATOM)>
12458 <RESTL TEMP21 1 = TEMP36 (TYPE LIST)>
12459 <NTHL TEMP36 1 = TEMP36>
12460 <EQUAL? TEMP36 STR5 - PHRASE32>
12462 <RESTL TEMP21 1 = TEMP36 (TYPE LIST)>
12463 <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
12464 <NTHL TEMP36 1 = TEMP36>
12465 <EQUAL? TEMP36 1 - PHRASE32>
12467 <VEQUAL? PUT?9 0 + PHRASE48>
12468 <RESTL TEMP21 1 = TEMP38 (TYPE LIST)>
12469 <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
12470 <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
12471 <NTHL TEMP38 1 = TEMP36>
12475 <NTHL TEMP21 5 = TEMP36>
12477 <SET TEMP40 %<> (TYPE FALSE)>
12478 <SET TEMP38 L8 (TYPE LIST)>
12482 <EMPL? TEMP38 + MAPAP54>
12483 <NTHL TEMP38 1 = TEMP37>
12484 <VEQUAL? TEMP37 TEMP21 - PHRASE61>
12485 <SET TEMP36 'T (TYPE ATOM)>
12488 <RESTL TEMP37 1 = TEMP40 (TYPE LIST)>
12490 <CHTYPE TEMP40 <TYPE-CODE LIST> = TEMP40>
12491 <TYPE TEMP36 = TEMP39>
12492 <EMPL? TEMP40 + TAG65>
12493 <LOOP (TEMP36 VALUE) (TEMP39 VALUE) (TEMP40 VALUE)>
12495 <NTHL TEMP40 1 = TEMP37>
12496 <TYPE? TEMP37 TEMP39 - TAG68>
12497 <VEQUAL? TEMP37 TEMP36 + TAG66>
12500 <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
12501 <EMPL? TEMP40 - TAG67>
12503 <SET TEMP40 %<> (TYPE FALSE)>
12506 <SET TEMP36 %<> (TYPE FALSE)>
12509 <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
12512 <SET TEMP36 TEMP40>
12515 <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE32>
12517 <FRAME '
\1aRESTUS!-MIMOC>
12522 <NTHL TEMP21 5 = STACK>
12523 <IFCAN "STRING-EQUAL?">
12524 <STRING-EQUAL? NM25 "PUTUS" - PHRASE73>
12525 <ENDIF "STRING-EQUAL?">
12526 <IFCANNOT "STRING-EQUAL?">
12529 <SET TEMP38 "PUTUS" (TYPE STRING)>
12530 <LENUS TEMP36 = TEMP40 (TYPE FIX)>
12531 <VEQUAL? TEMP40 5 - PHRASE73>
12532 <LOOP (TEMP36 VALUE LENGTH) (TEMP38 VALUE LENGTH) (TEMP40 VALUE)>
12534 <NTHUS TEMP36 1 = TEMP39>
12535 <NTHUS TEMP38 1 = TEMP37>
12536 <VEQUAL? TEMP39 TEMP37 - PHRASE73>
12538 <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12539 <RESTUS TEMP38 1 = TEMP38 (TYPE STRING)>
12540 <SUB TEMP40 1 = TEMP40 (TYPE FIX)>
12541 <GRTR? TEMP40 0 + TAG74 (TYPE FIX)>
12542 <ENDIF "STRING-EQUAL?">
12543 <SET TEMP38 'PUT (TYPE ATOM)>
12546 <SET TEMP38 'NTH (TYPE ATOM)>
12550 <FRAME '
\1aWILL-DIE?>
12555 <CALL '
\1aWILL-DIE? 2 = STACK>
12556 <CALL '
\1aRESTUS!-MIMOC 5>
12557 <FRAME '
\1aPUTPROP>
12558 <RESTL TEMP21 1 = TEMP38 (TYPE LIST)>
12560 <CHTYPE TEMP38 <TYPE-CODE LIST> = STACK>
12564 <CALL '
\1aPUTPROP 3>
12567 <SET TEMP37 TEMP21>
12568 <LOOP (STR5 VALUE) (TEMP37 VALUE)>
12570 <NTHL TEMP37 1 = TEMP39>
12571 <TYPE? TEMP39 <TYPE-CODE ATOM> - TAG81>
12572 <VEQUAL? TEMP39 STR5 + TAG98>
12575 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
12576 <EMPL? TEMP37 - TAG80>
12577 <SET TEMP37 TEMP21>
12578 <LOOP (TEMP37 VALUE)>
12580 <NTHL TEMP37 1 = TEMP39>
12581 <TYPE? TEMP39 <TYPE-CODE ATOM> - TAG84>
12582 <VEQUAL? TEMP39 '+ + TAG98>
12585 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
12586 <EMPL? TEMP37 - TAG83>
12587 <SET TEMP37 TEMP21>
12588 <LOOP (TEMP37 VALUE)>
12590 <NTHL TEMP37 1 = TEMP39>
12591 <TYPE? TEMP39 <TYPE-CODE ATOM> - TAG87>
12592 <VEQUAL? TEMP39 '- + TAG98>
12595 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
12596 <EMPL? TEMP37 - TAG86>
12597 <LOOP (TEMP21 VALUE)>
12599 <RESTL TEMP21 1 = TEMP37 (TYPE LIST)>
12600 <EMPL? TEMP37 + TAG90>
12601 <SET TEMP21 TEMP37>
12605 <NTHL TEMP21 1 = TEMP21>
12606 <TYPE? TEMP21 <TYPE-CODE LIST> + TAG91>
12607 <SET TEMP21 %<> (TYPE FALSE)>
12610 <SET TEMP37 TEMP21>
12611 <EMPL? TEMP37 + TAG94>
12612 <LOOP (TEMP37 VALUE)>
12614 <NTHL TEMP37 1 = TEMP39>
12615 <TYPE? TEMP39 <TYPE-CODE ATOM> - TAG96>
12616 <VEQUAL? TEMP39 '+ + TAG98>
12619 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
12620 <EMPL? TEMP37 - TAG95>
12622 <EMPL? TEMP21 + TAG97>
12623 <LOOP (TEMP21 VALUE)>
12625 <NTHL TEMP21 1 = TEMP37>
12626 <TYPE? TEMP37 <TYPE-CODE ATOM> - TAG100>
12627 <VEQUAL? TEMP37 '- + TAG98>
12630 <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
12631 <EMPL? TEMP21 - TAG99>
12633 <SET TEMP21 %<> (TYPE FALSE)>
12638 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
12643 <END
\1aSTRING-REST-