2 <COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD">)>
6 <NEWTYPE LOCAL-NAME FIX>
16 <MANIFEST PRIM-LIST PRIM-FIX>
19 <GFCN
\1aTYPE!-MIMOC ("VALUE" ANY LIST) L5>
20 <TEMP ARG6 TEMP11 TEMP13>
23 <RESTL L5 1 = TEMP11 (TYPE LIST)>
24 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
25 <NTHL TEMP11 1 = TEMP11>
26 <EQUAL? TEMP11 'STACK - PHRASE10>
31 <SET TEMP13 2 (TYPE FIX)>
34 <SCALL '
\1aTYPE-WORD 1 = TEMP11 + TAG12 TEMP13>
35 <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP13 VALUE)>
38 <EMPTY? TEMP11 + TAG12>
40 <REST1 TEMP11 = TEMP11>
41 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
44 <CALL '
\1aOCEMIT TEMP13>
51 <CALL '
\1aOBJ-TYP 1 = STACK>
52 <CALL '
\1aLOAD-TYPE 2>
58 <GVAL 'WINNING-VICTIM = TEMP13>
59 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE21>
61 <GVAL 'STACK-DEPTH = TEMP13>
62 <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
63 <SETG 'STACK-DEPTH TEMP13>
68 <CALL '
\1aMUNGED-AC 1 = TEMP13>
73 <RESTL L5 1 = TEMP11 (TYPE LIST)>
75 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
76 <NTHL TEMP11 1 = STACK>
79 <CALL '
\1aASSIGN-AC 2 = TEMP13>
82 <CALL '
\1aGET-AC 1 = TEMP11>
89 <CALL '
\1aNEXT-AC 1 = STACK>
93 <CALL '
\1aOBJ-TYP 1 = STACK>
94 <CALL '
\1aLOAD-TYPE 2 = TEMP13>
99 <GFCN
\1aTYPE?!-MIMOC ("VALUE" ANY LIST) L5>
100 <TEMP ARG6 TEMP12 TYP7 (CAM8 'CAMN) (CAI9 'CAIN) (JMP10 'JUMPE)>
103 <RESTL L5 1 = TEMP12 (TYPE LIST)>
104 <NTHL TEMP12 1 = TYP7>
106 <RESTL L5 1 = TEMP12 (TYPE LIST)>
107 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
108 <NTHL TEMP12 1 = TEMP12>
109 <EQUAL? TEMP12 '- - PHRASE14>
111 <SET CAM8 'CAME (TYPE ATOM)>
112 <SET CAI9 'CAIE (TYPE ATOM)>
113 <SET JMP10 'JUMPN (TYPE ATOM)>
118 <CALL '
\1aIN-AC? 2 = TEMP12>
119 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE16>
120 <FRAME '
\1aLOAD-TYPE>
122 <CONS TEMP12 () = STACK>
124 <CALL '
\1aLOAD-TYPE 2>
125 <FRAME '
\1aMUNGED-AC>
127 <CALL '
\1aMUNGED-AC 1>
135 <CALL '
\1aSMASH-AC 3 = TEMP12>
137 <FRAME '
\1aLABEL-UPDATE-ACS>
138 <RESTL L5 1 = TEMP12 (TYPE LIST)>
139 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
140 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
141 <NTHL TEMP12 1 = STACK>
144 <CALL '
\1aLABEL-UPDATE-ACS 2>
145 <GVAL 'GC-MODE = TEMP12>
146 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE24>
154 <TYPE? TYP7 <TYPE-CODE FIX> - PHRASE27>
155 <VEQUAL? TYP7 0 - PHRASE29 (TYPE FIX)>
161 <RESTL L5 1 = TEMP12 (TYPE LIST)>
162 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
163 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
164 <NTHL TEMP12 1 = STACK>
166 <CALL '
\1aXJUMP 1 = STACK>
182 <SET ARG6 2 (TYPE FIX)>
185 <SCALL '
\1aOBJ-VAL 1 = TEMP12 + TAG37 ARG6>
186 <LOOP (TEMP12 TYPE VALUE LENGTH) (ARG6 VALUE)>
189 <EMPTY? TEMP12 + TAG37>
190 <NTH1 TEMP12 = STACK>
191 <REST1 TEMP12 = TEMP12>
192 <ADD ARG6 1 = ARG6 (TYPE FIX)>
195 <CALL '
\1aOCEMIT ARG6>
198 <EQUAL? TYP7 0 - TAG44>
205 <RESTL L5 1 = TEMP12 (TYPE LIST)>
207 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
208 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
209 <NTHL TEMP12 1 = STACK>
211 <CALL '
\1aXJUMP 1 = STACK>
212 <CALL '
\1aOCEMIT 2 = ARG6>
215 <END
\1aTYPE?!-MIMOC>
217 <GFCN
\1aCHTYPE!-MIMOC ("VALUE" <OR FALSE FIX AC> LIST) L4>
218 <TEMP ARG15 TEMP14 ARG26 VAL7:ATOM LV13 TEMP25 TEMP26 AC8:ATOM>
221 <RESTL L4 1 = TEMP14 (TYPE LIST)>
222 <NTHL TEMP14 1 = ARG26>
224 <RESTL L4 1 = TEMP14 (TYPE LIST)>
225 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
226 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
227 <NTHL TEMP14 1 = VAL7 (TYPE ATOM)>
231 <GVAL 'LOCALS = STACK>
232 <CALL '
\1aLMEMQ 2 = TEMP14>
233 <TYPE? TEMP14 <TYPE-CODE FALSE> - BOOL17>
234 <GVAL 'ICALL-FLAG = TEMP14>
235 <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL17>
238 <GVAL 'ICALL-TEMPS = STACK>
239 <CALL '
\1aLMEMQ 2 = TEMP14>
243 <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE20>
244 <GVAL 'TYPED-LOCALS = TEMP14>
246 <EMPL? TEMP14 + PHRASE20>
247 <LOOP (LV13 VALUE) (TEMP25 VALUE) (TEMP14 VALUE)>
249 <NTHL TEMP14 1 = TEMP26>
250 <TYPE? TEMP26 TEMP25 - TAG24>
251 <VEQUAL? TEMP26 LV13 + TAG22>
254 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
255 <EMPL? TEMP14 - TAG23>
258 <NTHUV LV13 4 = LV13>
259 <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE20>
262 <CALL '
\1aTYPEPRIM 1 = TEMP14>
263 <SET TEMP25 [WORD FIX LIST] (TYPE VECTOR)>
264 <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG28>
265 <LOOP (TEMP14 VALUE) (TEMP25 LENGTH VALUE)>
267 <NTHUV TEMP25 1 = TEMP26>
268 <VEQUAL? TEMP26 TEMP14 + TAG32>
270 <RESTUV TEMP25 1 = TEMP25 (TYPE VECTOR)>
271 <EMPUV? TEMP25 - TAG29>
273 <GVAL 'TYPE-LENGTHS = TEMP25>
274 <EMPUV? TEMP25 + PHRASE20>
275 <LOOP (LV13 VALUE) (TEMP25 LENGTH VALUE)>
277 <NTHUV TEMP25 1 = TEMP14>
278 <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG34>
279 <VEQUAL? TEMP14 LV13 + TAG32>
282 <RESTUV TEMP25 1 = TEMP25 (TYPE VECTOR)>
283 <EMPUV? TEMP25 - TAG33>
289 <CALL '
\1aLOAD-AC 2 = AC8>
290 <EQUAL? VAL7 ARG15 + PHRASE41>
291 <FRAME '
\1aWILL-DIE?>
294 <CALL '
\1aWILL-DIE? 1 = TEMP25>
295 <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE41>
299 <CALL '
\1aGET-AC 1 = TEMP25>
300 <NTHUV TEMP25 5 = TEMP25>
301 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE41>
303 <FRAME '
\1aUPDATE-AC>
306 <CALL '
\1aGET-AC 1 = STACK>
307 <CALL '
\1aUPDATE-AC 1>
308 <FRAME '
\1aUPDATE-AC>
312 <CALL '
\1aNEXT-AC 1 = STACK>
313 <CALL '
\1aGET-AC 1 = STACK>
314 <CALL '
\1aUPDATE-AC 1>
316 <FRAME '
\1aCLEAN-ACS>
318 <CALL '
\1aCLEAN-ACS 1>
322 <CALL '
\1aNEXT-AC 1 = STACK>
323 <CALL '
\1aGET-AC 1 = TEMP25>
325 <PUTUV TEMP25 2 VAL7>
326 <PUTUV TEMP25 3 'VALUE (TYPE ATOM)>
331 <CALL '
\1aGET-AC 1 = TEMP25>
333 <PUTUV TEMP25 2 VAL7>
335 <PUTUV TEMP25 3 'TYPE (TYPE ATOM)>
336 <PUTUV TEMP25 6 LV13>
341 <TYPE? ARG26 <TYPE-CODE FIX> - PHRASE52>
343 <RESTL L4 1 = STACK (TYPE LIST)>
346 <CALL '
\1aGETPROP 2 = LV13>
347 <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE54>
348 <AND ARG26 #WORD *7* = TEMP14>
349 <VEQUAL? TEMP14 0 + TAG62 (TYPE FIX)>
350 <VEQUAL? TEMP14 1 + TAG62 (TYPE FIX)>
352 <RESTL LV13 1 = TEMP14 (TYPE LIST)>
353 <NTHL TEMP14 1 = TEMP14 (TYPE ATOM)>
354 <GVAL 'TYPE-LENGTHS = TEMP26>
355 <EMPUV? TEMP26 + PHRASE54>
356 <LOOP (TEMP14 VALUE) (TEMP26 LENGTH VALUE)>
358 <NTHUV TEMP26 1 = TEMP25>
359 <TYPE? TEMP25 <TYPE-CODE ATOM> - TAG64>
360 <VEQUAL? TEMP25 TEMP14 + TAG62>
363 <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
364 <EMPUV? TEMP26 - TAG63>
367 <VEQUAL? VAL7 'STACK - PHRASE67>
371 <SET TEMP14 2 (TYPE FIX)>
373 <RESTL LV13 1 = TEMP25 (TYPE LIST)>
375 <NTHL TEMP25 1 = STACK (TYPE ATOM)>
377 <SCALL '
\1aTYPE-WORD 1 = TEMP26 + TAG68 TEMP14>
378 <LOOP (TEMP26 TYPE VALUE LENGTH) (TEMP14 VALUE)>
381 <EMPTY? TEMP26 + TAG68>
382 <NTH1 TEMP26 = STACK>
383 <REST1 TEMP26 = TEMP26>
384 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
387 <CALL '
\1aOCEMIT TEMP14>
389 <GVAL 'WINNING-VICTIM = TEMP14>
390 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE73>
392 <GVAL 'STACK-DEPTH = TEMP14>
393 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
394 <SETG 'STACK-DEPTH TEMP14>
400 <SET TEMP26 2 (TYPE FIX)>
404 <SCALL '
\1aOBJ-VAL 1 = TEMP14 + TAG74 TEMP26>
405 <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP26 VALUE)>
408 <EMPTY? TEMP14 + TAG74>
409 <NTH1 TEMP14 = STACK>
410 <REST1 TEMP14 = TEMP14>
411 <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
414 <CALL '
\1aOCEMIT TEMP26>
416 <GVAL 'WINNING-VICTIM = TEMP25>
417 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE180>
418 <GVAL 'STACK-DEPTH = TEMP26>
419 <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
420 <SETG 'STACK-DEPTH TEMP26>
427 <CALL '
\1aLOAD-AC 2 = AC8>
428 <FRAME '
\1aWILL-DIE?>
430 <CALL '
\1aWILL-DIE? 1 = TEMP26>
431 <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE83>
435 <CALL '
\1aGET-AC 1 = TEMP26>
441 <CALL '
\1aNEXT-AC 1 = STACK>
442 <CALL '
\1aGET-AC 1 = TEMP26>
447 <CALL '
\1aGET-AC 1 = TEMP26>
451 <EQUAL? ARG15 VAL7 + PHRASE90>
453 <FRAME '
\1aCLEAN-ACS>
455 <CALL '
\1aCLEAN-ACS 1>
460 <CALL '
\1aALTER-AC 2>
464 <CALL '
\1aGET-AC 1 = TEMP26>
465 <RESTL LV13 1 = TEMP14 (TYPE LIST)>
467 <NTHL TEMP14 1 = TEMP14 (TYPE ATOM)>
468 <PUTUV TEMP26 6 TEMP14>
473 <CALL '
\1aGET-AC 1 = TEMP26>
481 <CALL '
\1aLOAD-AC 2 = AC8>
482 <FRAME '
\1aWILL-DIE?>
484 <CALL '
\1aWILL-DIE? 1 = TEMP26>
485 <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE98>
489 <CALL '
\1aGET-AC 1 = TEMP26>
495 <CALL '
\1aNEXT-AC 1 = STACK>
496 <CALL '
\1aGET-AC 1 = TEMP26>
501 <CALL '
\1aGET-AC 1 = TEMP26>
505 <EQUAL? ARG15 VAL7 + PHRASE105>
507 <FRAME '
\1aCLEAN-ACS>
509 <CALL '
\1aCLEAN-ACS 1>
513 <CALL '
\1aALTER-AC 2>
517 <CALL '
\1aGET-AC 1 = TEMP26>
528 <CALL '
\1aGET-AC 1 = TEMP26>
531 <VEQUAL? VAL7 'STACK + TAG113>
546 <CALL '
\1aNEXT-AC 1 = STACK>
548 <GVAL 'WINNING-VICTIM = TEMP25>
549 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE180>
550 <GVAL 'STACK-DEPTH = TEMP26>
551 <ADD TEMP26 2 = TEMP26 (TYPE FIX)>
552 <SETG 'STACK-DEPTH TEMP26>
559 <CALL '
\1aLOAD-AC 2 = AC8>
562 <CALL '
\1aGET-AC 1 = TEMP26>
563 <NTHUV TEMP26 6 = LV13>
565 <EQUAL? ARG15 VAL7 + PHRASE123>
566 <FRAME '
\1aWILL-DIE?>
568 <CALL '
\1aWILL-DIE? 1 = TEMP26>
569 <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE125>
573 <CALL '
\1aGET-AC 1 = TEMP26>
579 <CALL '
\1aNEXT-AC 1 = STACK>
580 <CALL '
\1aGET-AC 1 = TEMP26>
587 <CALL '
\1aFLUSH-AC 2>
588 <FRAME '
\1aMUNGED-AC>
591 <CALL '
\1aMUNGED-AC 2>
595 <CALL '
\1aGET-AC 1 = TEMP26>
598 <TYPE? ARG26 <TYPE-CODE FORM> - PHRASE134>
599 <EMPL? ARG26 + PHRASE134>
600 <RESTL ARG26 1 = TEMP26 (TYPE LIST)>
601 <EMPL? TEMP26 + PHRASE134>
602 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
603 <EMPL? TEMP26 - PHRASE134>
605 <NTHL ARG26 1 = TEMP26>
606 <EQUAL? TEMP26 'TYPE - PHRASE134>
608 <RESTL ARG26 1 = TEMP26 (TYPE LIST)>
609 <NTHL TEMP26 1 = TEMP26>
610 <TYPE? TEMP26 <TYPE-CODE ATOM> - PHRASE134>
612 <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE137>
613 <GVAL 'TYPE-LENGTHS = TEMP26>
614 <EMPUV? TEMP26 + PHRASE137>
615 <LOOP (LV13 VALUE) (TEMP26 LENGTH VALUE)>
617 <NTHUV TEMP26 1 = TEMP14>
618 <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG141>
619 <VEQUAL? TEMP14 LV13 + TAG139>
622 <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
623 <EMPUV? TEMP26 - TAG140>
626 <FRAME '
\1aLOAD-TYPE-IN-AC>
630 <CALL '
\1aLOAD-TYPE-IN-AC 2>
635 <SET TEMP14 2 (TYPE FIX)>
637 <RESTL ARG26 1 = TEMP25 (TYPE LIST)>
639 <NTHL TEMP25 1 = STACK>
641 <SCALL '
\1aOBJ-TYP 1 = TEMP26 + TAG143 TEMP14>
642 <LOOP (TEMP26 TYPE VALUE LENGTH) (TEMP14 VALUE)>
645 <EMPTY? TEMP26 + TAG143>
646 <NTH1 TEMP26 = STACK>
647 <REST1 TEMP26 = TEMP26>
648 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
651 <CALL '
\1aOCEMIT TEMP14>
655 <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE147>
656 <GVAL 'TYPE-LENGTHS = TEMP14>
657 <EMPUV? TEMP14 + PHRASE149>
658 <LOOP (LV13 VALUE) (TEMP14 LENGTH VALUE)>
660 <NTHUV TEMP14 1 = TEMP26>
661 <TYPE? TEMP26 <TYPE-CODE ATOM> - TAG152>
662 <VEQUAL? TEMP26 LV13 + TAG150>
665 <RESTUV TEMP14 1 = TEMP14 (TYPE VECTOR)>
666 <EMPUV? TEMP14 - TAG151>
672 <SET TEMP26 2 (TYPE FIX)>
674 <CHTYPE ARG26 <TYPE-CODE XTYPE-W> = STACK>
676 <SCALL '
\1aOBJ-VAL 1 = TEMP14 + TAG153 TEMP26>
677 <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP26 VALUE)>
680 <EMPTY? TEMP14 + TAG153>
681 <NTH1 TEMP14 = STACK>
682 <REST1 TEMP14 = TEMP14>
683 <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
686 <CALL '
\1aOCEMIT TEMP26>
693 <SET TEMP14 2 (TYPE FIX)>
697 <SCALL '
\1aOBJ-VAL 1 = TEMP26 + TAG158 TEMP14>
698 <LOOP (TEMP26 TYPE VALUE LENGTH) (TEMP14 VALUE)>
701 <EMPTY? TEMP26 + TAG158>
702 <NTH1 TEMP26 = STACK>
703 <REST1 TEMP26 = TEMP26>
704 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
707 <CALL '
\1aOCEMIT TEMP14>
714 <SET TEMP26 2 (TYPE FIX)>
718 <SCALL '
\1aOBJ-VAL 1 = TEMP14 + TAG163 TEMP26>
719 <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP26 VALUE)>
722 <EMPTY? TEMP14 + TAG163>
723 <NTH1 TEMP14 = STACK>
724 <REST1 TEMP14 = TEMP14>
725 <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
728 <CALL '
\1aOCEMIT TEMP26>
731 <VEQUAL? VAL7 'STACK + PHRASE168>
732 <EQUAL? VAL7 ARG15 + PHRASE168>
734 <FRAME '
\1aCLEAN-ACS>
736 <CALL '
\1aCLEAN-ACS 1>
740 <CALL '
\1aALTER-AC 2>
744 <CALL '
\1aGET-AC 1 = TEMP26>
747 <VEQUAL? VAL7 'STACK + TAG175>
762 <CALL '
\1aNEXT-AC 1 = STACK>
764 <GVAL 'WINNING-VICTIM = TEMP25>
765 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE180>
766 <GVAL 'STACK-DEPTH = TEMP26>
767 <ADD TEMP26 2 = TEMP26 (TYPE FIX)>
768 <SETG 'STACK-DEPTH TEMP26>
774 <END
\1aCHTYPE!-MIMOC>
776 <GFCN
\1aNEWTYPE!-MIMOC ("VALUE" ANY LIST) L5>
779 <FRAME '
\1aUPDATE-ACS>
780 <CALL '
\1aUPDATE-ACS 0>
784 <SET TEMP9 2 (TYPE FIX)>
787 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
788 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
791 <EMPTY? TEMP8 + TAG7>
793 <REST1 TEMP8 = TEMP8>
794 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
797 <CALL '
\1aOCEMIT TEMP9>
801 <RESTL L5 1 = TEMP9 (TYPE LIST)>
803 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
804 <NTHL TEMP9 1 = STACK>
806 <CALL '
\1aPUSHJ 2 = TEMP9>
809 <END
\1aNEWTYPE!-MIMOC>
811 <GFCN
\1aVALUE!-MIMOC ("VALUE" ANY LIST) L5>
812 <TEMP IT6 TEMP9 VAL7:ATOM TEMP13>
815 <RESTL L5 1 = TEMP9 (TYPE LIST)>
816 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
817 <NTHL TEMP9 1 = VAL7 (TYPE ATOM)>
819 <VEQUAL? VAL7 'STACK - PHRASE11>
823 <SET TEMP13 2 (TYPE FIX)>
826 <SCALL '
\1aTYPE-WORD 1 = TEMP9 + TAG12 TEMP13>
827 <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP13 VALUE)>
830 <EMPTY? TEMP9 + TAG12>
832 <REST1 TEMP9 = TEMP9>
833 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
836 <CALL '
\1aOCEMIT TEMP13>
841 <SET TEMP9 2 (TYPE FIX)>
845 <SCALL '
\1aOBJ-VAL 1 = TEMP13 + TAG17 TEMP9>
846 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP9 VALUE)>
849 <EMPTY? TEMP13 + TAG17>
850 <NTH1 TEMP13 = STACK>
851 <REST1 TEMP13 = TEMP13>
852 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
855 <CALL '
\1aOCEMIT TEMP9>
857 <GVAL 'WINNING-VICTIM = TEMP9>
858 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE37>
859 <GVAL 'STACK-DEPTH = TEMP13>
860 <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
861 <SETG 'STACK-DEPTH TEMP13>
865 <EQUAL? IT6 VAL7 + BOOL25>
866 <FRAME '
\1aWILL-DIE?>
868 <CALL '
\1aWILL-DIE? 1 = TEMP13>
869 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE23>
875 <CALL '
\1aIN-AC? 2 = TEMP9>
876 <TYPE? TEMP9 <TYPE-CODE FALSE> - BOOL27>
880 <CALL '
\1aIN-AC? 2 = TEMP9>
881 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE23>
886 <CALL '
\1aGETPROP 2 = TEMP9>
887 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE23>
889 <EQUAL? IT6 VAL7 + PHRASE33>
891 <FRAME '
\1aCLEAN-ACS>
893 <CALL '
\1aCLEAN-ACS 1>
899 <CALL '
\1aALTER-AC 2>
903 <CALL '
\1aGET-AC 1 = TEMP13>
904 <PUTUV TEMP13 6 'FIX>
908 <FRAME '
\1aASSIGN-AC>
912 <CALL '
\1aASSIGN-AC 2 = TEMP9>
915 <CALL '
\1aGET-AC 1 = TEMP13>
916 <PUTUV TEMP13 6 'FIX>
923 <CALL '
\1aNEXT-AC 1 = STACK>
924 <SET IT6 2 (TYPE FIX)>
928 <SCALL '
\1aOBJ-VAL 1 = TEMP13 + TAG40 IT6>
929 <LOOP (TEMP13 TYPE VALUE LENGTH) (IT6 VALUE)>
932 <EMPTY? TEMP13 + TAG40>
933 <NTH1 TEMP13 = STACK>
934 <REST1 TEMP13 = TEMP13>
935 <ADD IT6 1 = IT6 (TYPE FIX)>
938 <CALL '
\1aOCEMIT IT6 = TEMP9>
943 <END
\1aVALUE!-MIMOC>
945 <GFCN
\1aON-STACK?!-MIMOC ("VALUE" <OR FALSE FIX AC> LIST) L5>
946 <TEMP IT6 TEMP10 VAL7:ATOM TEMP14 AC8>
949 <RESTL L5 1 = TEMP10 (TYPE LIST)>
951 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
952 <NTHL TEMP10 1 = VAL7 (TYPE ATOM)>
954 <VEQUAL? VAL7 'STACK - PHRASE12>
958 <SET TEMP14 2 (TYPE FIX)>
961 <SCALL '
\1aTYPE-WORD 1 = TEMP10 + TAG13 TEMP14>
962 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP14 VALUE)>
965 <EMPTY? TEMP10 + TAG13>
966 <NTH1 TEMP10 = STACK>
967 <REST1 TEMP10 = TEMP10>
968 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
971 <CALL '
\1aOCEMIT TEMP14>
973 <GVAL 'WINNING-VICTIM = TEMP14>
974 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE19>
976 <GVAL 'STACK-DEPTH = TEMP14>
977 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
978 <SETG 'STACK-DEPTH TEMP14>
981 <FRAME '
\1aWILL-DIE?>
983 <CALL '
\1aWILL-DIE? 1 = TEMP14>
984 <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL21>
989 <CALL '
\1aIN-AC? 2 = AC8>
990 <TYPE? AC8 <TYPE-CODE FALSE> - PHRASE24>
994 <SET AC8 'O1* (TYPE ATOM)>
996 <SET TEMP10 2 (TYPE FIX)>
1000 <SCALL '
\1aOBJ-VAL 1 = TEMP14 + TAG25 TEMP10>
1001 <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP10 VALUE)>
1004 <EMPTY? TEMP14 + TAG25>
1005 <NTH1 TEMP14 = STACK>
1006 <REST1 TEMP14 = TEMP14>
1007 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
1010 <CALL '
\1aOCEMIT TEMP10>
1013 <FRAME '
\1aDO-ON-STACK>
1017 <CALL '
\1aDO-ON-STACK 2>
1023 <GVAL 'WINNING-VICTIM = TEMP10>
1024 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE43>
1025 <GVAL 'STACK-DEPTH = TEMP14>
1026 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
1027 <SETG 'STACK-DEPTH TEMP14>
1031 <EQUAL? IT6 VAL7 - PHRASE33>
1035 <CALL '
\1aIN-AC? 2 = AC8>
1036 <TYPE? AC8 <TYPE-CODE FALSE> + PHRASE33>
1037 <FRAME '
\1aCLEAN-ACS>
1040 <CALL '
\1aCLEAN-ACS 1>
1043 <CALL '
\1aGET-AC 1 = TEMP14>
1044 <GVAL 'AC-STAMP = TEMP10>
1045 <PUTUV TEMP14 4 TEMP10 (TYPE FIX)>
1046 <DEAD TEMP14 TEMP10>
1047 <SETG 'FIRST-AC %<>>
1048 <FRAME '
\1aDO-ON-STACK>
1052 <FRAME '
\1aASSIGN-AC>
1056 <CALL '
\1aASSIGN-AC 2 = AC8>
1058 <CALL '
\1aNEXT-AC 1 = STACK>
1059 <CALL '
\1aDO-ON-STACK 2>
1063 <CALL '
\1aGET-AC 1 = TEMP14>
1064 <PUTUV TEMP14 6 'FIX>
1071 <CALL '
\1aIN-AC? 2 = AC8>
1072 <TYPE? AC8 <TYPE-CODE FALSE> + PHRASE45>
1073 <FRAME '
\1aWILL-DIE?>
1075 <CALL '
\1aWILL-DIE? 1 = TEMP14>
1076 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE45>
1078 <SETG 'FIRST-AC %<>>
1081 <CALL '
\1aGET-AC 1 = TEMP14>
1082 <GVAL 'AC-STAMP = TEMP10>
1083 <PUTUV TEMP14 4 TEMP10 (TYPE FIX)>
1084 <DEAD TEMP14 TEMP10>
1089 <SET AC8 'O1* (TYPE ATOM)>
1091 <SET TEMP10 2 (TYPE FIX)>
1095 <SCALL '
\1aOBJ-VAL 1 = TEMP14 + TAG51 TEMP10>
1096 <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP10 VALUE)>
1099 <EMPTY? TEMP14 + TAG51>
1100 <NTH1 TEMP14 = STACK>
1101 <REST1 TEMP14 = TEMP14>
1102 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
1105 <CALL '
\1aOCEMIT TEMP10>
1108 <FRAME '
\1aDO-ON-STACK>
1112 <FRAME '
\1aASSIGN-AC>
1116 <CALL '
\1aASSIGN-AC 2 = AC8>
1118 <CALL '
\1aNEXT-AC 1 = STACK>
1119 <CALL '
\1aDO-ON-STACK 2>
1123 <CALL '
\1aGET-AC 1 = TEMP10>
1124 <PUTUV TEMP10 6 'FIX>
1128 <END
\1aON-STACK?!-MIMOC>
1130 <GFCN
\1aDO-ON-STACK ("VALUE" ANY ANY ANY) ARG5 DEST6>
1131 <TEMP LBL7 TEMP13 TEMP12>
1135 <CALL '
\1aGENLBL 1 = LBL7>
1149 <SET TEMP13 2 (TYPE FIX)>
1152 <SCALL '
\1aOBJ-VAL 1 = TEMP12 + TAG11 TEMP13>
1153 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP13 VALUE)>
1156 <EMPTY? TEMP12 + TAG11>
1157 <NTH1 TEMP12 = STACK>
1158 <REST1 TEMP12 = TEMP12>
1159 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
1162 <CALL '
\1aOCEMIT TEMP13>
1168 <CALL '
\1aXJUMP 1 = STACK>
1196 <CALL '
\1aLABEL 1 = TEMP13>
1199 <END
\1aDO-ON-STACK>
1201 <GFCN
\1aOBJECT!-MIMOC ("VALUE" ANY <LIST [5 <OR ATOM FIX>]>) L5>
1202 <TEMP TY6 TEMP14 CNT7 VAL8 (V-DONE9 %<>) (AC11 %<>) (TAC12 %<>) (CAC13 %<>) TEMP23>
1205 <RESTL L5 1 = TEMP14 (TYPE LIST)>
1206 <NTHL TEMP14 1 = CNT7>
1208 <RESTL L5 1 = TEMP14 (TYPE LIST)>
1209 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
1210 <NTHL TEMP14 1 = VAL8>
1212 <NTHL L5 5 = TEMP14>
1214 <EQUAL? TEMP14 'STACK - PHRASE16>
1215 <TYPE? TY6 <TYPE-CODE FIX> - PHRASE18>
1216 <TYPE? CNT7 <TYPE-CODE FIX> - PHRASE18>
1220 <SET CAC13 2 (TYPE FIX)>
1222 <LSH TY6 18 = TEMP23 (TYPE FIX)>
1224 <OR TEMP23 CNT7 = STACK>
1226 <SCALL '
\1aOBJ-VAL 1 = TEMP14 + TAG20 CAC13>
1227 <LOOP (TEMP14 TYPE VALUE LENGTH) (CAC13 VALUE)>
1230 <EMPTY? TEMP14 + TAG20>
1231 <NTH1 TEMP14 = STACK>
1232 <REST1 TEMP14 = TEMP14>
1233 <ADD CAC13 1 = CAC13 (TYPE FIX)>
1236 <CALL '
\1aOCEMIT CAC13>
1240 <FRAME '
\1aSMASH-AC>
1245 <CALL '
\1aSMASH-AC 3>
1246 <TYPE? TY6 <TYPE-CODE FIX> - PHRASE29>
1258 <SET TEMP14 2 (TYPE FIX)>
1262 <SCALL '
\1aOBJ-VAL 1 = CAC13 + TAG32 TEMP14>
1263 <LOOP (CAC13 TYPE VALUE LENGTH) (TEMP14 VALUE)>
1266 <EMPTY? CAC13 + TAG32>
1267 <NTH1 CAC13 = STACK>
1268 <REST1 CAC13 = CAC13>
1269 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
1272 <CALL '
\1aOCEMIT TEMP14>
1281 <GVAL 'WINNING-VICTIM = TEMP14>
1282 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE38>
1284 <GVAL 'STACK-DEPTH = TEMP23>
1285 <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
1286 <SETG 'STACK-DEPTH TEMP23>
1292 <SET TEMP14 2 (TYPE FIX)>
1296 <SCALL '
\1aOBJ-VAL 1 = TEMP23 + TAG39 TEMP14>
1297 <LOOP (TEMP23 TYPE VALUE LENGTH) (TEMP14 VALUE)>
1300 <EMPTY? TEMP23 + TAG39>
1301 <NTH1 TEMP23 = STACK>
1302 <REST1 TEMP23 = TEMP23>
1303 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
1306 <CALL '
\1aOCEMIT TEMP14>
1308 <GVAL 'WINNING-VICTIM = TEMP14>
1309 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE175>
1310 <GVAL 'STACK-DEPTH = TEMP23>
1311 <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
1312 <SETG 'STACK-DEPTH TEMP23>
1316 <TYPE? TY6 <TYPE-CODE ATOM> - PHRASE47>
1317 <EQUAL? TEMP14 TY6 + BOOL49>
1318 <FRAME '
\1aWILL-DIE?>
1320 <CALL '
\1aWILL-DIE? 1 = TEMP23>
1321 <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE47>
1327 <CALL '
\1aIN-AC? 2 = TAC12>
1328 <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE52>
1329 <FRAME '
\1aMUNGED-AC>
1332 <CALL '
\1aMUNGED-AC 2>
1336 <CALL '
\1aNEXT-AC 1 = TAC12>
1342 <CALL '
\1aIN-AC? 2 = TAC12>
1343 <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE56>
1344 <FRAME '
\1aMUNGED-AC>
1346 <CALL '
\1aMUNGED-AC 1>
1348 <FRAME '
\1aDEAD!-MIMOC>
1349 <CONS TY6 () = STACK>
1351 <CALL '
\1aDEAD!-MIMOC 2>
1353 <TYPE? CNT7 <TYPE-CODE ATOM> - PHRASE61>
1354 <EQUAL? TEMP14 CNT7 + BOOL63>
1355 <FRAME '
\1aWILL-DIE?>
1357 <CALL '
\1aWILL-DIE? 1 = TEMP23>
1358 <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE61>
1364 <CALL '
\1aIN-AC? 2 = CAC13>
1365 <TYPE? CAC13 <TYPE-CODE FALSE> + PHRASE66>
1366 <FRAME '
\1aMUNGED-AC>
1369 <CALL '
\1aMUNGED-AC 2>
1373 <CALL '
\1aNEXT-AC 1 = CAC13>
1379 <CALL '
\1aIN-AC? 2 = CAC13>
1380 <TYPE? CAC13 <TYPE-CODE FALSE> + PHRASE70>
1381 <FRAME '
\1aMUNGED-AC>
1383 <CALL '
\1aMUNGED-AC 1>
1385 <FRAME '
\1aDEAD!-MIMOC>
1386 <CONS CNT7 () = STACK>
1388 <CALL '
\1aDEAD!-MIMOC 2>
1390 <TYPE? VAL8 <TYPE-CODE ATOM> - PHRASE84>
1391 <EQUAL? TEMP14 VAL8 + BOOL77>
1392 <FRAME '
\1aWILL-DIE?>
1394 <CALL '
\1aWILL-DIE? 1 = TEMP23>
1395 <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE84>
1398 <FRAME '
\1aDEAD!-MIMOC>
1399 <CONS VAL8 () = STACK>
1401 <CALL '
\1aDEAD!-MIMOC 2>
1405 <CALL '
\1aIN-AC? 2 = AC11>
1406 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE81>
1407 <SET V-DONE9 'T (TYPE ATOM)>
1408 <FRAME '
\1aMUNGED-AC>
1410 <CALL '
\1aMUNGED-AC 1>
1416 <CALL '
\1aIN-AC? 2 = AC11>
1417 <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE84>
1422 <CALL '
\1aGETPROP 2 = AC11>
1423 <FRAME '
\1aMUNGED-AC>
1425 <CALL '
\1aMUNGED-AC 1>
1426 <SET V-DONE9 'T (TYPE ATOM)>
1428 <TYPE? AC11 <TYPE-CODE FALSE> - PHRASE89>
1429 <FRAME '
\1aASSIGN-AC>
1432 <CALL '
\1aASSIGN-AC 2 = AC11>
1434 <TYPE? TY6 <TYPE-CODE FIX> - PHRASE92>
1435 <TYPE? CNT7 <TYPE-CODE FIX> - PHRASE92>
1436 <VEQUAL? CNT7 0 - PHRASE95 (TYPE FIX)>
1448 <SET CAC13 2 (TYPE FIX)>
1450 <LSH TY6 18 = TY6 (TYPE FIX)>
1451 <OR TY6 CNT7 = STACK>
1453 <SCALL '
\1aOBJ-VAL 1 = TEMP23 + TAG100 CAC13>
1454 <LOOP (TEMP23 TYPE VALUE LENGTH) (CAC13 VALUE)>
1457 <EMPTY? TEMP23 + TAG100>
1458 <NTH1 TEMP23 = STACK>
1459 <REST1 TEMP23 = TEMP23>
1460 <ADD CAC13 1 = CAC13 (TYPE FIX)>
1463 <CALL '
\1aOCEMIT CAC13>
1467 <TYPE? TY6 <TYPE-CODE FIX> - PHRASE105>
1468 <VEQUAL? TY6 0 - PHRASE107 (TYPE FIX)>
1469 <TYPE? CAC13 <TYPE-CODE FALSE> + PHRASE111>
1481 <SET TEMP23 2 (TYPE FIX)>
1485 <SCALL '
\1aOBJ-VAL 1 = CAC13 + TAG114 TEMP23>
1486 <LOOP (CAC13 TYPE VALUE LENGTH) (TEMP23 VALUE)>
1489 <EMPTY? CAC13 + TAG114>
1490 <NTH1 CAC13 = STACK>
1491 <REST1 CAC13 = CAC13>
1492 <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
1495 <CALL '
\1aOCEMIT TEMP23>
1505 <TYPE? CAC13 <TYPE-CODE FALSE> + PHRASE121>
1517 <SET CAC13 2 (TYPE FIX)>
1521 <SCALL '
\1aOBJ-VAL 1 = TEMP23 + TAG124 CAC13>
1522 <LOOP (TEMP23 TYPE VALUE LENGTH) (CAC13 VALUE)>
1525 <EMPTY? TEMP23 + TAG124>
1526 <NTH1 TEMP23 = STACK>
1527 <REST1 TEMP23 = TEMP23>
1528 <ADD CAC13 1 = CAC13 (TYPE FIX)>
1531 <CALL '
\1aOCEMIT CAC13>
1535 <TYPE? CNT7 <TYPE-CODE FIX> - PHRASE128>
1536 <VEQUAL? CNT7 0 - PHRASE130 (TYPE FIX)>
1537 <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE134>
1549 <SET TEMP23 2 (TYPE FIX)>
1553 <SCALL '
\1aOBJ-VAL 1 = CAC13 + TAG137 TEMP23>
1554 <LOOP (CAC13 TYPE VALUE LENGTH) (TEMP23 VALUE)>
1557 <EMPTY? CAC13 + TAG137>
1558 <NTH1 CAC13 = STACK>
1559 <REST1 CAC13 = CAC13>
1560 <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
1563 <CALL '
\1aOCEMIT TEMP23>
1573 <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE144>
1585 <SET CAC13 2 (TYPE FIX)>
1589 <SCALL '
\1aOBJ-VAL 1 = TEMP23 + TAG147 CAC13>
1590 <LOOP (TEMP23 TYPE VALUE LENGTH) (CAC13 VALUE)>
1593 <EMPTY? TEMP23 + TAG147>
1594 <NTH1 TEMP23 = STACK>
1595 <REST1 TEMP23 = TEMP23>
1596 <ADD CAC13 1 = CAC13 (TYPE FIX)>
1599 <CALL '
\1aOCEMIT CAC13>
1603 <TYPE? CAC13 <TYPE-CODE FALSE> + PHRASE153>
1615 <SET TEMP23 2 (TYPE FIX)>
1619 <SCALL '
\1aOBJ-VAL 1 = CAC13 + TAG156 TEMP23>
1620 <LOOP (CAC13 TYPE VALUE LENGTH) (TEMP23 VALUE)>
1623 <EMPTY? CAC13 + TAG156>
1624 <NTH1 CAC13 = STACK>
1625 <REST1 CAC13 = CAC13>
1626 <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
1629 <CALL '
\1aOCEMIT TEMP23>
1632 <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE161>
1644 <SET CAC13 2 (TYPE FIX)>
1648 <SCALL '
\1aOBJ-VAL 1 = TEMP23 + TAG164 CAC13>
1649 <LOOP (TEMP23 TYPE VALUE LENGTH) (CAC13 VALUE)>
1652 <EMPTY? TEMP23 + TAG164>
1653 <NTH1 TEMP23 = STACK>
1654 <REST1 TEMP23 = TEMP23>
1655 <ADD CAC13 1 = CAC13 (TYPE FIX)>
1658 <CALL '
\1aOCEMIT CAC13>
1661 <TYPE? V-DONE9 <TYPE-CODE FALSE> - PHRASE169>
1668 <CALL '
\1aNEXT-AC 1 = STACK>
1669 <SET TEMP23 2 (TYPE FIX)>
1673 <SCALL '
\1aOBJ-VAL 1 = CAC13 + TAG170 TEMP23>
1674 <LOOP (CAC13 TYPE VALUE LENGTH) (TEMP23 VALUE)>
1677 <EMPTY? CAC13 + TAG170>
1678 <NTH1 CAC13 = STACK>
1679 <REST1 CAC13 = CAC13>
1680 <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
1683 <CALL '
\1aOCEMIT TEMP23 = TEMP14>
1688 <FRAME '
\1aALTER-AC>
1693 <CALL '
\1aALTER-AC 2 = TEMP14>
1697 <END
\1aOBJECT!-MIMOC>
1699 <GFCN
\1aOPEN!-MIMOC ("VALUE" ANY LIST) L5>
1700 <TEMP TEMP9 TEMP8 TEMP15:LIST>
1702 <FRAME '
\1aUPDATE-ACS>
1703 <CALL '
\1aUPDATE-ACS 0>
1707 <SET TEMP9 2 (TYPE FIX)>
1710 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
1711 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
1714 <EMPTY? TEMP8 + TAG7>
1715 <NTH1 TEMP8 = STACK>
1716 <REST1 TEMP8 = TEMP8>
1717 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
1720 <CALL '
\1aOCEMIT TEMP9>
1725 <SET TEMP8 2 (TYPE FIX)>
1727 <RESTL L5 1 = TEMP15 (TYPE LIST)>
1728 <NTHL TEMP15 1 = STACK>
1730 <SCALL '
\1aOBJ-VAL 1 = TEMP9 + TAG13 TEMP8>
1731 <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP8 VALUE)>
1734 <EMPTY? TEMP9 + TAG13>
1735 <NTH1 TEMP9 = STACK>
1736 <REST1 TEMP9 = TEMP9>
1737 <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
1740 <CALL '
\1aOCEMIT TEMP8>
1745 <SET TEMP9 2 (TYPE FIX)>
1747 <RESTL L5 1 = TEMP15 (TYPE LIST)>
1748 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
1749 <NTHL TEMP15 1 = STACK>
1751 <SCALL '
\1aOBJ-TYP 1 = TEMP8 + TAG18 TEMP9>
1752 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
1755 <EMPTY? TEMP8 + TAG18>
1756 <NTH1 TEMP8 = STACK>
1757 <REST1 TEMP8 = TEMP8>
1758 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
1761 <CALL '
\1aOCEMIT TEMP9>
1767 <CALL '
\1aPUSHJ 2 = TEMP9>
1770 <END
\1aOPEN!-MIMOC>
1772 <GFCN
\1aCLOSE!-MIMOC ("VALUE" ANY LIST) L5>
1775 <FRAME '
\1aUPDATE-ACS>
1776 <CALL '
\1aUPDATE-ACS 0>
1780 <SET TEMP9 2 (TYPE FIX)>
1783 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
1784 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
1787 <EMPTY? TEMP8 + TAG7>
1788 <NTH1 TEMP8 = STACK>
1789 <REST1 TEMP8 = TEMP8>
1790 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
1793 <CALL '
\1aOCEMIT TEMP9>
1798 <RESTL L5 1 = TEMP8 (TYPE LIST)>
1799 <EMPL? TEMP8 + TAG17>
1800 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
1801 <EMPL? TEMP8 - TAG16>
1804 <SET TEMP9 %<> (TYPE FALSE)>
1807 <RESTL L5 1 = TEMP8 (TYPE LIST)>
1809 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
1810 <NTHL TEMP8 1 = TEMP9>
1815 <CALL '
\1aPUSHJ 2 = TEMP9>
1818 <END
\1aCLOSE!-MIMOC>
1820 <GFCN
\1aRESET!-MIMOC ("VALUE" ANY LIST) L5>
1823 <FRAME '
\1aUPDATE-ACS>
1824 <CALL '
\1aUPDATE-ACS 0>
1828 <SET TEMP9 2 (TYPE FIX)>
1832 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
1833 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
1836 <EMPTY? TEMP8 + TAG7>
1837 <NTH1 TEMP8 = STACK>
1838 <REST1 TEMP8 = TEMP8>
1839 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
1842 <CALL '
\1aOCEMIT TEMP9>
1846 <CALL '
\1aPUSHJ 1 = TEMP9>
1849 <END
\1aRESET!-MIMOC>
1851 <GFCN
\1aREAD!-MIMOC ("VALUE" ANY LIST) L5>
1852 <TEMP LL6 TEMP14 TL7>
1854 <LENL L5 = LL6 (TYPE FIX)>
1859 <NTHL LL6 1 = TEMP14>
1860 <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG12>
1861 <VEQUAL? TEMP14 '= + TAG10>
1864 <RESTL LL6 1 = LL6 (TYPE LIST)>
1867 <SET TL7 %<> (TYPE FALSE)>
1873 <LENL L5 = LL6 (TYPE FIX)>
1874 <LENL TL7 = TEMP14 (TYPE FIX)>
1875 <SUB LL6 TEMP14 = LL6 (TYPE FIX)>
1877 <FRAME '
\1aUPDATE-ACS>
1878 <CALL '
\1aUPDATE-ACS 0>
1879 <FRAME '
\1aSMASH-AC>
1883 <CALL '
\1aSMASH-AC 3>
1884 <FRAME '
\1aSMASH-AC>
1886 <RESTL L5 1 = TEMP14 (TYPE LIST)>
1887 <NTHL TEMP14 1 = STACK>
1890 <CALL '
\1aSMASH-AC 3>
1891 <FRAME '
\1aSMASH-AC>
1893 <RESTL L5 1 = TEMP14 (TYPE LIST)>
1894 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
1895 <NTHL TEMP14 1 = STACK>
1898 <CALL '
\1aSMASH-AC 3>
1899 <FRAME '
\1aSMASH-AC>
1901 <RESTL L5 1 = TEMP14 (TYPE LIST)>
1902 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
1903 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
1904 <NTHL TEMP14 1 = STACK>
1907 <CALL '
\1aSMASH-AC 3>
1908 <LESS? LL6 5 + PHRASE22 (TYPE FIX)>
1909 <FRAME '
\1aSMASH-AC>
1913 <CALL '
\1aSMASH-AC 3>
1916 <FRAME '
\1aSMASH-AC>
1920 <CALL '
\1aSMASH-AC 3>
1922 <LESS? LL6 6 + PHRASE26 (TYPE FIX)>
1924 <FRAME '
\1aSMASH-AC>
1929 <CALL '
\1aSMASH-AC 3>
1932 <FRAME '
\1aSMASH-AC>
1936 <CALL '
\1aSMASH-AC 3>
1941 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE31>
1942 <RESTL TL7 1 = LL6 (TYPE LIST)>
1944 <NTHL LL6 1 = TEMP14>
1949 <CALL '
\1aPUSHJ 2 = TEMP14>
1952 <END
\1aREAD!-MIMOC>
1954 <GFCN
\1aPRINT!-MIMOC ("VALUE" ANY LIST) L5>
1957 <FRAME '
\1aUPDATE-ACS>
1958 <CALL '
\1aUPDATE-ACS 0>
1959 <FRAME '
\1aSMASH-AC>
1963 <CALL '
\1aSMASH-AC 3>
1964 <FRAME '
\1aSMASH-AC>
1966 <RESTL L5 1 = TEMP9 (TYPE LIST)>
1967 <NTHL TEMP9 1 = STACK>
1970 <CALL '
\1aSMASH-AC 3>
1971 <FRAME '
\1aSMASH-AC>
1973 <RESTL L5 1 = TEMP9 (TYPE LIST)>
1975 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1976 <NTHL TEMP9 1 = STACK>
1979 <CALL '
\1aSMASH-AC 3>
1982 <CALL '
\1aPUSHJ 1 = TEMP9>
1985 <END
\1aPRINT!-MIMOC>
1987 <GFCN
\1aSET!-MIMOC ("VALUE" ANY LIST) L5>
1988 <TEMP ARG16:ATOM TEMP18 VT8 STK?9 MIML17 ITM12 TEMP46 TEMP56>
1990 <NTHL L5 1 = ARG16 (TYPE ATOM)>
1991 <RESTL L5 1 = TEMP18 (TYPE LIST)>
1993 <NTHL TEMP18 1 = TEMP18>
1994 <FRAME '
\1aVAR-TYPED?>
1996 <CALL '
\1aVAR-TYPED? 1 = VT8>
1997 <FRAME '
\1aVAR-STACKED?>
1999 <CALL '
\1aVAR-STACKED? 1 = STK?9>
2000 <GEN-LVAL 'MIML = MIML17>
2001 <TYPE? TEMP18 <TYPE-CODE ATOM> - PHRASE24>
2002 <FRAME '
\1aWILL-DIE?>
2004 <CALL '
\1aWILL-DIE? 1 = ITM12>
2005 <TYPE? ITM12 <TYPE-CODE FALSE> + PHRASE24>
2007 <FRAME '
\1aCLEAN-ACS>
2009 <CALL '
\1aCLEAN-ACS 1>
2010 <FRAME '
\1aDEAD!-MIMOC>
2011 <CONS TEMP18 () = STACK>
2013 <CALL '
\1aDEAD!-MIMOC 2>
2014 <RESTL MIML17 1 = STK?9 (TYPE LIST)>
2015 <NTHL STK?9 1 = STK?9>
2016 <TYPE? STK?9 <TYPE-CODE FORM> - PHRASE30>
2018 <RESTL MIML17 1 = STK?9 (TYPE LIST)>
2019 <NTHL STK?9 1 = STK?9 (TYPE FORM)>
2020 <EMPL? STK?9 + PHRASE30 (TYPE FORM)>
2022 <RESTL MIML17 1 = STK?9 (TYPE LIST)>
2024 <NTHL STK?9 1 = STK?9 (TYPE FORM)>
2025 <NTHL STK?9 1 = STK?9>
2026 <EQUAL? STK?9 'RETURN - PHRASE30>
2028 <FRAME '
\1aGET-INTO-ACS>
2032 <SET ITM12 'A1* (TYPE ATOM)>
2034 <CALL '
\1aGET-INTO-ACS 3>
2040 <CALL '
\1aIN-AC? 2 = MIML17>
2041 <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE34>
2046 <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE36>
2050 <CALL '
\1aIN-AC? 2 = MIML17>
2051 <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE36>
2059 <CALL '
\1aGETPROP 2 = ITM12>
2061 <CALL '
\1aGET-AC 1 = STK?9>
2070 <CALL '
\1aLOAD-AC 2 = ITM12>
2074 <CALL '
\1aGET-AC 1 = STK?9>
2075 <TYPE? VT8 <TYPE-CODE FALSE> - TAG44>
2077 <SET TEMP46 'T (TYPE ATOM)>
2080 <SET TEMP46 %<> (TYPE FALSE)>
2082 <PUTUV STK?9 5 TEMP46>
2084 <PUTUV STK?9 2 ARG16>
2085 <PUTUV STK?9 3 'TYPE (TYPE ATOM)>
2091 <CALL '
\1aNEXT-AC 1 = STACK>
2092 <CALL '
\1aGET-AC 1 = STK?9>
2094 <PUTUV STK?9 2 ARG16>
2096 <PUTUV STK?9 3 'VALUE (TYPE ATOM)>
2100 <TYPE? TEMP18 <TYPE-CODE ATOM> + PHRASE49>
2101 <RESTL MIML17 1 = ITM12 (TYPE LIST)>
2103 <EMPL? ITM12 + PHRASE49 (TYPE LIST)>
2104 <NTHL ITM12 1 = ITM12>
2105 <TYPE? ITM12 <TYPE-CODE FORM> - PHRASE49>
2106 <NTHL ITM12 1 = TEMP46>
2108 <EQUAL? TEMP46 'RETURN - PHRASE49>
2110 <FRAME '
\1aCLEAN-ACS>
2112 <CALL '
\1aCLEAN-ACS 1>
2113 <FRAME '
\1aGET-INTO-ACS>
2117 <SET ITM12 'A1* (TYPE ATOM)>
2119 <CALL '
\1aGET-INTO-ACS 3>
2122 <CALL '
\1aGET-AC 1 = TEMP46>
2123 <TYPE? VT8 <TYPE-CODE FALSE> - TAG54>
2125 <SET TEMP56 'T (TYPE ATOM)>
2128 <SET TEMP56 %<> (TYPE FALSE)>
2130 <PUTUV TEMP46 5 TEMP56>
2132 <PUTUV TEMP46 2 ARG16>
2133 <PUTUV TEMP46 3 'TYPE (TYPE ATOM)>
2139 <CALL '
\1aNEXT-AC 1 = STACK>
2140 <CALL '
\1aGET-AC 1 = TEMP46>
2142 <PUTUV TEMP46 2 ARG16>
2144 <PUTUV TEMP46 3 'VALUE (TYPE ATOM)>
2148 <TYPE? TEMP18 <TYPE-CODE ATOM> - PHRASE61>
2152 <CALL '
\1aIN-AC? 2 = TEMP46>
2153 <TYPE? TEMP46 <TYPE-CODE FALSE> - BOOL63>
2157 <CALL '
\1aIN-AC? 2 = TEMP46>
2161 <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE61>
2164 <CALL '
\1aGET-AC 1 = TEMP46>
2165 <NTHUV TEMP46 5 = TEMP46>
2166 <TYPE? TEMP46 <TYPE-CODE FALSE> + PHRASE61>
2171 <CALL '
\1aGET-AC 1 = TEMP46>
2172 <GVAL 'AC-STAMP = TEMP56>
2173 <PUTUV TEMP46 4 TEMP56 (TYPE FIX)>
2174 <DEAD TEMP46 TEMP56>
2176 <FRAME '
\1aASSIGN-AC>
2179 <CALL '
\1aASSIGN-AC 2 = ITM12>
2182 <CALL '
\1aGET-AC 1 = TEMP46>
2183 <PUTUV TEMP46 6 %<>>
2188 <CALL '
\1aIN-AC? 2 = MIML17>
2189 <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE71>
2192 <CALL '
\1aGET-AC 1 = TEMP46>
2193 <NTHUV TEMP46 6 = TEMP46>
2194 <TYPE? TEMP46 <TYPE-CODE FALSE> - PHRASE71>
2202 <CALL '
\1aOCEMIT 3 = STK?9>
2206 <FRAME '
\1aPRIMTYPE>
2208 <CALL '
\1aPRIMTYPE 1 = TEMP46>
2209 <SET TEMP56 [WORD FIX] (TYPE VECTOR)>
2210 <LOOP (TEMP46 VALUE) (TEMP56 LENGTH VALUE)>
2212 <NTHUV TEMP56 1 = MIML17>
2213 <VEQUAL? MIML17 TEMP46 + TAG78>
2215 <RESTUV TEMP56 1 = TEMP56 (TYPE VECTOR)>
2216 <EMPUV? TEMP56 - TAG79>
2221 <CALL '
\1aTYPE 1 = TEMP56>
2222 <GVAL 'TYPE-WORDS = TEMP46>
2223 <EMPUV? TEMP46 + PHRASE76>
2224 <LOOP (TEMP56 VALUE) (TEMP46 LENGTH VALUE)>
2226 <NTHUV TEMP46 1 = MIML17>
2227 <TYPE? MIML17 <TYPE-CODE ATOM> - TAG85>
2228 <VEQUAL? MIML17 TEMP56 + TAG83>
2231 <RESTUV TEMP46 1 = TEMP46 (TYPE VECTOR)>
2232 <EMPUV? TEMP46 - TAG84>
2235 <VEQUAL? TEMP18 0 - PHRASE88 (TYPE FIX)>
2236 <TYPE? STK?9 <TYPE-CODE FALSE> + PHRASE92>
2238 <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE92>
2244 <CALL '
\1aNEXT-AC 1 = STACK>
2245 <SET TEMP56 2 (TYPE FIX)>
2249 <SCALL '
\1aOBJ-VAL 2 = TEMP46 + TAG94 TEMP56>
2250 <LOOP (TEMP46 TYPE VALUE LENGTH) (TEMP56 VALUE)>
2253 <EMPTY? TEMP46 + TAG94>
2254 <NTH1 TEMP46 = STACK>
2255 <REST1 TEMP46 = TEMP46>
2256 <ADD TEMP56 1 = TEMP56 (TYPE FIX)>
2259 <CALL '
\1aOCEMIT TEMP56>
2264 <CALL '
\1aNEXT-AC 1 = STACK>
2265 <CALL '
\1aGET-AC 1 = TEMP56>
2266 <PUTUV TEMP56 5 %<>>
2274 <CALL '
\1aNEXT-AC 1 = STACK>
2279 <VEQUAL? TEMP18 -1 - PHRASE104 (TYPE FIX)>
2280 <TYPE? STK?9 <TYPE-CODE FALSE> + PHRASE108>
2282 <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE108>
2288 <CALL '
\1aNEXT-AC 1 = STACK>
2289 <SET TEMP46 2 (TYPE FIX)>
2293 <SCALL '
\1aOBJ-VAL 2 = TEMP56 + TAG110 TEMP46>
2294 <LOOP (TEMP56 TYPE VALUE LENGTH) (TEMP46 VALUE)>
2297 <EMPTY? TEMP56 + TAG110>
2298 <NTH1 TEMP56 = STACK>
2299 <REST1 TEMP56 = TEMP56>
2300 <ADD TEMP46 1 = TEMP46 (TYPE FIX)>
2303 <CALL '
\1aOCEMIT TEMP46>
2308 <CALL '
\1aNEXT-AC 1 = STACK>
2309 <CALL '
\1aGET-AC 1 = TEMP46>
2310 <PUTUV TEMP46 5 %<>>
2318 <CALL '
\1aNEXT-AC 1 = STACK>
2323 <AND TEMP18 #WORD *777777* = TEMP46>
2324 <VEQUAL? TEMP46 0 - PHRASE120 (TYPE FIX)>
2330 <CALL '
\1aNEXT-AC 1 = STACK>
2331 <LSH TEMP18 -18 = STACK (TYPE FIX)>
2335 <CHTYPE TEMP18 <TYPE-CODE FIX> = VT8>
2337 <LESS? TEMP46 0 - TAG126 (TYPE FIX)>
2338 <SUB 0 TEMP46 = TEMP46 (TYPE FIX)>
2340 <GVAL 'MAX-IMMEDIATE = TEMP56>
2341 <GRTR? TEMP46 TEMP56 + PHRASE125 (TYPE FIX)>
2342 <DEAD TEMP46 TEMP56>
2343 <LESS? VT8 0 + PHRASE128 (TYPE FIX)>
2348 <CALL '
\1aNEXT-AC 1 = STACK>
2358 <CALL '
\1aNEXT-AC 1 = STACK>
2361 <LESS? TEMP46 0 - TAG136 (TYPE FIX)>
2362 <SUB 0 TEMP46 = TEMP46 (TYPE FIX)>
2373 <CALL '
\1aNEXT-AC 1 = STACK>
2374 <SET TEMP56 2 (TYPE FIX)>
2378 <SCALL '
\1aOBJ-VAL 1 = TEMP46 + TAG138 TEMP56>
2379 <LOOP (TEMP46 TYPE VALUE LENGTH) (TEMP56 VALUE)>
2382 <EMPTY? TEMP46 + TAG138>
2383 <NTH1 TEMP46 = STACK>
2384 <REST1 TEMP46 = TEMP46>
2385 <ADD TEMP56 1 = TEMP56 (TYPE FIX)>
2388 <CALL '
\1aOCEMIT TEMP56>
2393 <CALL '
\1aGET-AC 1 = TEMP56>
2397 <CALL '
\1aTYPE 1 = TEMP46>
2398 <PUTUV TEMP56 6 TEMP46>
2399 <DEAD TEMP56 TEMP46>
2400 <FRAME '
\1aVAR-TYPED?>
2403 <CALL '
\1aVAR-TYPED? 1 = TEMP56>
2404 <TYPE? TEMP56 <TYPE-CODE FALSE> + PHRASE146>
2409 <CALL '
\1aGET-AC 1 = TEMP56>
2410 <PUTUV TEMP56 5 %<>>
2417 <CALL '
\1aGET-AC 1 = TEMP56>
2422 <FRAME '
\1aPRIMTYPE>
2424 <CALL '
\1aPRIMTYPE 1 = TEMP56>
2425 <VEQUAL? TEMP56 'LIST - PHRASE151>
2427 <EMPL? TEMP18 - PHRASE151 (TYPE LIST)>
2430 <CALL '
\1aTYPE 1 = TEMP56>
2431 <GVAL 'TYPE-WORDS = TEMP46>
2432 <EMPUV? TEMP46 + PHRASE151>
2433 <LOOP (TEMP56 VALUE) (TEMP46 LENGTH VALUE)>
2435 <NTHUV TEMP46 1 = MIML17>
2436 <TYPE? MIML17 <TYPE-CODE ATOM> - TAG156>
2437 <VEQUAL? MIML17 TEMP56 + TAG154>
2440 <RESTUV TEMP46 1 = TEMP46 (TYPE VECTOR)>
2441 <EMPUV? TEMP46 - TAG155>
2444 <TYPE? STK?9 <TYPE-CODE FALSE> + PHRASE159>
2446 <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE159>
2452 <CALL '
\1aNEXT-AC 1 = STACK>
2453 <SET TEMP56 2 (TYPE FIX)>
2457 <SCALL '
\1aOBJ-VAL 2 = TEMP46 + TAG161 TEMP56>
2458 <LOOP (TEMP46 TYPE VALUE LENGTH) (TEMP56 VALUE)>
2461 <EMPTY? TEMP46 + TAG161>
2462 <NTH1 TEMP46 = STACK>
2463 <REST1 TEMP46 = TEMP46>
2464 <ADD TEMP56 1 = TEMP56 (TYPE FIX)>
2467 <CALL '
\1aOCEMIT TEMP56>
2472 <CALL '
\1aNEXT-AC 1 = STACK>
2473 <CALL '
\1aGET-AC 1 = TEMP56>
2474 <PUTUV TEMP56 5 %<>>
2482 <CALL '
\1aNEXT-AC 1 = STACK>
2488 <CALL '
\1aGET-AC 1 = TEMP56>
2492 <CALL '
\1aTYPE 1 = TEMP46>
2493 <PUTUV TEMP56 6 TEMP46>
2494 <DEAD TEMP56 TEMP46>
2495 <FRAME '
\1aVAR-TYPED?>
2498 <CALL '
\1aVAR-TYPED? 1 = STK?9>
2499 <TYPE? STK?9 <TYPE-CODE FALSE> + PHRASE215>
2503 <CALL '
\1aGET-AC 1 = TEMP56>
2504 <PUTUV TEMP56 5 %<>>
2508 <FRAME '
\1aVAR-TYPED?>
2511 <CALL '
\1aVAR-TYPED? 1 = VT8>
2512 <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE177>
2516 <CALL '
\1aIN-AC? 2 = MIML17>
2517 <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE177>
2522 <CALL '
\1aNEXT-AC 1 = STACK>
2529 <CALL '
\1aGET-AC 1 = TEMP56>
2530 <PUTUV TEMP56 5 %<>>
2531 <PUTUV TEMP56 6 VT8>
2539 <CALL '
\1aIN-AC? 2 = MIML17>
2540 <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE184>
2541 <FRAME '
\1aVAR-TYPED?>
2543 <CALL '
\1aVAR-TYPED? 1 = TEMP56>
2544 <TYPE? TEMP56 <TYPE-CODE FALSE> - BOOL189>
2548 <CALL '
\1aIN-AC? 2 = VT8>
2550 <TYPE? TEMP56 <TYPE-CODE FALSE> + BOOL189>
2554 <CALL '
\1aGET-AC 1 = TEMP46>
2555 <NTHUV TEMP46 6 = TEMP56>
2560 <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE184>
2565 <CALL '
\1aNEXT-AC 1 = STACK>
2572 <CALL '
\1aGET-AC 1 = TEMP56>
2573 <PUTUV TEMP56 6 VT8>
2581 <CALL '
\1aIN-AC? 2 = MIML17>
2582 <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE195>
2585 <CALL '
\1aGET-AC 1 = TEMP56>
2586 <NTHUV TEMP56 5 = TEMP56>
2587 <TYPE? TEMP56 <TYPE-CODE FALSE> + PHRASE195>
2592 <SET TEMP46 2 (TYPE FIX)>
2596 <SCALL '
\1aOBJ-TYP 1 = TEMP56 + TAG199 TEMP46>
2597 <LOOP (TEMP56 TYPE VALUE LENGTH) (TEMP46 VALUE)>
2600 <EMPTY? TEMP56 + TAG199>
2601 <NTH1 TEMP56 = STACK>
2602 <REST1 TEMP56 = TEMP56>
2603 <ADD TEMP46 1 = TEMP46 (TYPE FIX)>
2606 <CALL '
\1aOCEMIT TEMP46>
2613 <CALL '
\1aNEXT-AC 1 = STACK>
2616 <CALL '
\1aOCEMIT 3 = STK?9>
2623 <CALL '
\1aIN-AC? 2 = MIML17>
2624 <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE205>
2627 <CALL '
\1aGET-AC 1 = TEMP46>
2628 <NTHUV TEMP46 5 = TEMP46>
2629 <TYPE? TEMP46 <TYPE-CODE FALSE> + PHRASE205>
2642 <CALL '
\1aNEXT-AC 1 = STACK>
2643 <SET TEMP56 2 (TYPE FIX)>
2647 <SCALL '
\1aOBJ-VAL 1 = TEMP46 + TAG210 TEMP56>
2648 <LOOP (TEMP46 TYPE VALUE LENGTH) (TEMP56 VALUE)>
2651 <EMPTY? TEMP46 + TAG210>
2652 <NTH1 TEMP46 = STACK>
2653 <REST1 TEMP46 = TEMP46>
2654 <ADD TEMP56 1 = TEMP56 (TYPE FIX)>
2657 <CALL '
\1aOCEMIT TEMP56 = STK?9>
2666 <SET TEMP46 2 (TYPE FIX)>
2671 <SCALL '
\1aOBJ-LOC 2 = TEMP56 + TAG216 TEMP46>
2672 <LOOP (TEMP56 TYPE VALUE LENGTH) (TEMP46 VALUE)>
2675 <EMPTY? TEMP56 + TAG216>
2676 <NTH1 TEMP56 = STACK>
2677 <REST1 TEMP56 = TEMP56>
2678 <ADD TEMP46 1 = TEMP46 (TYPE FIX)>
2681 <CALL '
\1aOCEMIT TEMP46 = STK?9>
2688 <GFCN
\1aVAR-TYPED? ("VALUE" <OR ATOM FALSE> ATOM) ARG15>
2689 <TEMP LV6 TEMP8 TEMP20 TEMP21>
2693 <GVAL 'LOCALS = STACK>
2694 <CALL '
\1aLMEMQ 2 = LV6>
2695 <TYPE? LV6 <TYPE-CODE FALSE> - BOOL11>
2696 <GVAL 'ICALL-FLAG = LV6>
2697 <TYPE? LV6 <TYPE-CODE FALSE> + BOOL11>
2701 <GVAL 'ICALL-TEMPS = STACK>
2702 <CALL '
\1aLMEMQ 2 = LV6>
2705 <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
2706 <NTHUV LV6 2 = TEMP8>
2707 <EQUAL? TEMP8 'OARG - TAG13>
2713 <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
2714 <FRAME '
\1aTYPEPRIM>
2716 <CALL '
\1aTYPEPRIM 1 = TEMP8>
2717 <SET TEMP20 [WORD FIX LIST] (TYPE VECTOR)>
2718 <TYPE? TEMP8 <TYPE-CODE ATOM> - TAG16>
2719 <LOOP (TEMP8 VALUE) (TEMP20 LENGTH VALUE)>
2721 <NTHUV TEMP20 1 = TEMP21>
2722 <VEQUAL? TEMP21 TEMP8 + TAG23>
2724 <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
2725 <EMPUV? TEMP20 - TAG17>
2727 <GVAL 'TYPE-LENGTHS = TEMP8>
2728 <EMPUV? TEMP8 + TAG22>
2729 <LOOP (LV6 VALUE) (TEMP8 LENGTH VALUE)>
2731 <NTHUV TEMP8 1 = TEMP20>
2732 <TYPE? TEMP20 <TYPE-CODE ATOM> - TAG25>
2733 <VEQUAL? TEMP20 LV6 + TAG23>
2736 <RESTUV TEMP8 1 = TEMP8 (TYPE VECTOR)>
2737 <EMPUV? TEMP8 - TAG24>
2748 <GFCN
\1aVAR-STACKED? ("VALUE" <OR ATOM FALSE> ATOM) ARG15>
2753 <GVAL 'LOCALS = STACK>
2754 <CALL '
\1aLMEMQ 2 = LV6>
2755 <TYPE? LV6 <TYPE-CODE FALSE> - BOOL11>
2756 <GVAL 'ICALL-FLAG = LV6>
2757 <TYPE? LV6 <TYPE-CODE FALSE> + BOOL11>
2761 <GVAL 'ICALL-TEMPS = STACK>
2762 <CALL '
\1aLMEMQ 2 = LV6>
2765 <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
2766 <NTHUV LV6 2 = TEMP8>
2771 <END
\1aVAR-STACKED?>
2772 <SETG SIMPLE-DEATH <>>
2774 <NEWTYPE DEAD-VAR ATOM>
2777 <GFCN
\1aWILL-DIE? ("VALUE" <OR ATOM FALSE <LIST ANY>> ANY "OPTIONAL" LIST FIX) ARG10 MIML11 VISIT12>
2778 <OPT-DISPATCH 1 %<> OPT7 OPT8 OPT9>
2784 <TEMP TEMP17 TEMP35 ITM26 TEMP44 XP69:LIST X70>
2786 <TYPE? MIML11 <TYPE-CODE UNBOUND> - TAG15>
2787 <GEN-LVAL 'MIML = MIML11>
2789 <TYPE? VISIT12 <TYPE-CODE UNBOUND> - TAG20>
2790 <GVAL 'VISIT-COUNT = TEMP17>
2791 <ADD TEMP17 1 = TEMP17 (TYPE FIX)>
2792 <SETG 'VISIT-COUNT TEMP17>
2793 <SET VISIT12 TEMP17>
2796 <GVAL 'SIMPLE-DEATH = TEMP17>
2800 <TYPE? ARG10 <TYPE-CODE ATOM> + PHRASE32>
2803 <EMPL? MIML11 + TAG34>
2804 <RESTL MIML11 1 = TEMP35 (TYPE LIST)>
2805 <EMPL? TEMP35 - PHRASE33>
2810 <RESTL MIML11 1 = TEMP35 (TYPE LIST)>
2811 <NTHL TEMP35 1 = TEMP35>
2812 <TYPE? TEMP35 <TYPE-CODE FORM> - PHRASE36>
2813 <NTHL TEMP35 1 = ITM26>
2814 <EQUAL? ITM26 'DEAD - BOOL38>
2815 <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
2816 <CHTYPE TEMP35 <TYPE-CODE LIST> = TEMP35>
2817 <EMPL? TEMP35 + TAG41>
2818 <LOOP (ARG10 VALUE) (TEMP35 VALUE)>
2820 <NTHL TEMP35 1 = TEMP44>
2821 <TYPE? TEMP44 <TYPE-CODE ATOM> - TAG43>
2822 <VEQUAL? TEMP44 ARG10 + BOOL37>
2825 <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
2826 <EMPL? TEMP35 - TAG42>
2828 <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL45>
2831 <RESTL MIML11 1 = MIML11 (TYPE LIST)>
2834 <EQUAL? ITM26 'RETURN - BOOL47>
2835 <RESTL TEMP35 1 = TEMP44 (TYPE LIST)>
2837 <NTHL TEMP44 1 = TEMP44>
2838 <EQUAL? TEMP44 ARG10 + TAG48>
2844 <EQUAL? ITM26 'DISPATCH - BOOL50>
2847 <EQUAL? ITM26 'END - TAG51>
2850 <EQUAL? ITM26 'SET - BOOL52>
2851 <RESTL TEMP35 1 = TEMP44 (TYPE LIST)>
2852 <NTHL TEMP44 1 = TEMP44>
2853 <EQUAL? TEMP44 ARG10 - TAG54>
2857 <RESTL TEMP35 1 = TEMP44 (TYPE LIST)>
2859 <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
2860 <NTHL TEMP44 1 = TEMP44>
2861 <EQUAL? TEMP44 ARG10 + BOOL56>
2863 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE55>
2867 <RESTL MIML11 1 = MIML11 (TYPE LIST)>
2870 <EQUAL? ITM26 'ICALL + MAPAP63>
2871 <CHTYPE TEMP35 <TYPE-CODE LIST> = TEMP44>
2875 <EMPL? TEMP44 + MAPAP63>
2878 <EQUAL? X70 '= - PHRASE76>
2879 <RESTL XP69 1 = XP69 (TYPE LIST)>
2882 <EQUAL? X70 ARG10 - MAPAP63>
2886 <EQUAL? X70 ARG10 - PHRASE77>
2890 <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
2893 <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL78>
2896 <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
2897 <CHTYPE TEMP35 <TYPE-CODE LIST> = TEMP35>
2902 <NTHL X70 1 = TEMP44>
2903 <TYPE? TEMP44 <TYPE-CODE ATOM> - TAG84>
2904 <VEQUAL? TEMP44 '+ + TAG82>
2907 <RESTL X70 1 = X70 (TYPE LIST)>
2910 <SET X70 %<> (TYPE FALSE)>
2912 <VEQUAL? X70 0 - BOOL80>
2914 <EMPL? TEMP44 + TAG85>
2915 <LOOP (TEMP44 VALUE)>
2917 <NTHL TEMP44 1 = X70>
2918 <TYPE? X70 <TYPE-CODE ATOM> - TAG88>
2919 <VEQUAL? X70 '- + TAG86>
2922 <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
2923 <EMPL? TEMP44 - TAG87>
2925 <SET X70 %<> (TYPE FALSE)>
2931 <VEQUAL? X70 0 - BOOL80>
2932 <EQUAL? ITM26 'NTHR - BOOL90>
2935 <LOOP (ITM26 VALUE)>
2937 <RESTL ITM26 1 = TEMP44 (TYPE LIST)>
2938 <EMPL? TEMP44 + TAG92>
2943 <NTHL ITM26 1 = ITM26>
2944 <TYPE? ITM26 <TYPE-CODE LIST> - BOOL90>
2945 <NTHL ITM26 1 = TEMP44>
2946 <EQUAL? TEMP44 'BRANCH-FALSE - BOOL90>
2948 <RESTL ITM26 1 = X70 (TYPE LIST)>
2951 <EQUAL? ITM26 'ICALL - PHRASE113>
2952 <RESTL MIML11 1 = TEMP35 (TYPE LIST)>
2953 <NTHL TEMP35 1 = X70 (TYPE FORM)>
2956 <FRAME '
\1aFIND-LABEL>
2957 <RESTL X70 1 = TEMP35 (TYPE LIST)>
2958 <NTHL TEMP35 1 = TEMP44>
2961 <CALL '
\1aFIND-LABEL 1 = TEMP35>
2962 <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE107>
2963 <FRAME '
\1aLAB-WILL-DIE>
2968 <EQUAL? ITM26 'ICALL + TAG102>
2969 <SET TEMP35 %<> (TYPE FALSE)>
2972 <EMPL? X70 + TAG104>
2973 <RESTL X70 1 = XP69 (TYPE LIST)>
2974 <EMPL? XP69 - TAG103>
2977 <SET TEMP35 %<> (TYPE FALSE)>
2980 <RESTL X70 1 = XP69 (TYPE LIST)>
2982 <RESTL XP69 1 = XP69 (TYPE LIST)>
2983 <RESTL XP69 1 = XP69 (TYPE LIST)>
2984 <NTHL XP69 1 = TEMP35>
2989 <CALL '
\1aLAB-WILL-DIE 4 = TEMP35>
2990 <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE107>
2992 <RESTL MIML11 1 = MIML11 (TYPE LIST)>
2993 <EQUAL? ITM26 'JUMP - AGAIN30>
2997 <EQUAL? TEMP44 'COMPERR + BOOL109>
2998 <EQUAL? TEMP44 'IOERR + BOOL109>
2999 <EQUAL? TEMP44 'UNWCNT - PHRASE108>
3002 <EQUAL? ITM26 'JUMP - PHRASE113>
3007 <GVAL 'THE-BIG-LABELS = XP69>
3008 <EMPL? XP69 + MAPAP120 (TYPE LIST)>
3010 <EQUAL? ITM26 'CALL + BOOL115>
3011 <EQUAL? ITM26 'ACALL + BOOL115>
3012 <EQUAL? ITM26 'SCALL - MAPAP120>
3015 <GVAL 'THE-BIG-LABELS = XP69>
3019 <EMPL? XP69 + MAPAP120>
3020 <NTHL XP69 1 = TEMP35>
3021 <FRAME '
\1aLAB-WILL-DIE>
3022 <FRAME '
\1aFIND-LABEL>
3025 <CALL '
\1aFIND-LABEL 1 = STACK>
3029 <CALL '
\1aLAB-WILL-DIE 4 = TEMP35>
3030 <TYPE? TEMP35 <TYPE-CODE FALSE> - PHRASE130>
3034 <RESTL XP69 1 = XP69 (TYPE LIST)>
3037 <RESTL MIML11 1 = MIML11 (TYPE LIST)>
3043 <RESTL MIML11 1 = MIML11 (TYPE LIST)>
3047 <GFCN
\1aLAB-WILL-DIE ("VALUE" <OR ATOM FALSE LAB> LAB ATOM FIX <OR ATOM FALSE>) LB5 ARG6 VISIT7 ICALL-VAR8>
3048 <TEMP TEMP9 TEMP32:LIST TEMP36:ATOM>
3050 <EQUAL? ICALL-VAR8 ARG6 - PHRASE14>
3054 <NTHR 'DO-LOOPS 1 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL18)>
3055 <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL18>
3056 <NTHR TEMP9 1 = TEMP9 (RECORD-TYPE GBIND)>
3057 <TYPE? TEMP9 <TYPE-CODE UNBOUND> + BOOL18>
3059 <GVAL 'DO-LOOPS = TEMP9>
3060 <TYPE? TEMP9 <TYPE-CODE FALSE> - TAG20>
3063 <NTHUV LB5 3 = TEMP9>
3064 <TYPE? TEMP9 <TYPE-CODE FALSE> + TAG20>
3066 <SET TEMP9 %<> (TYPE FALSE)>
3069 <SET TEMP9 %<> (TYPE FALSE)>
3070 <NTHUV LB5 8 = TEMP32 (TYPE LIST)>
3074 <EMPL? TEMP32 + MAPAP26>
3075 <NTHL TEMP32 1 = TEMP9>
3076 <CHTYPE TEMP9 <TYPE-CODE ATOM> = TEMP36>
3077 <VEQUAL? TEMP36 ARG6 - PHRASE39>
3079 <TYPE? TEMP9 <TYPE-CODE ATOM> - PHRASE38>
3083 <SET TEMP9 'T (TYPE ATOM)>
3086 <SET TEMP9 %<> (TYPE FALSE)>
3087 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
3091 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE45>
3092 <NTHUV LB5 6 = TEMP9 (TYPE FIX)>
3093 <VEQUAL? VISIT7 TEMP9 - TAG40 (TYPE FIX)>
3095 <SET TEMP9 'T (TYPE ATOM)>
3098 <PUTUV LB5 6 VISIT7 (TYPE FIX)>
3099 <FRAME '
\1aWILL-DIE?>
3101 <NTHUV LB5 7 = STACK (TYPE LIST)>
3104 <CALL '
\1aWILL-DIE? 3 = TEMP9>
3105 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE43>
3107 <NTHUV LB5 8 = TEMP32 (TYPE LIST)>
3108 <CHTYPE ARG6 <TYPE-CODE DEAD-VAR> = TEMP9>
3110 <CONS TEMP9 TEMP32 = TEMP32>
3112 <PUTUV LB5 8 TEMP32 (TYPE LIST)>
3118 <NTHUV LB5 8 = TEMP32 (TYPE LIST)>
3119 <CONS ARG6 TEMP32 = TEMP32>
3121 <PUTUV LB5 8 TEMP32 (TYPE LIST)>
3123 <SET TEMP9 %<> (TYPE FALSE)>
3127 <END
\1aLAB-WILL-DIE>
3128 <NEWTYPE T$UNBOUND FIX>
3131 <GFCN
\1aPUSH!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L4>
3132 <TEMP ARG5 TEMP12 TEMP11>
3136 <TYPE? ARG5 <TYPE-CODE T$UNBOUND> - PHRASE9>
3140 <SET TEMP12 2 (TYPE FIX)>
3143 <SCALL '
\1aOBJ-VAL 1 = TEMP11 + TAG10 TEMP12>
3144 <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
3147 <EMPTY? TEMP11 + TAG10>
3148 <NTH1 TEMP11 = STACK>
3149 <REST1 TEMP11 = TEMP11>
3150 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
3153 <CALL '
\1aOCEMIT TEMP12>
3158 <SET TEMP11 2 (TYPE FIX)>
3161 <SCALL '
\1aOBJ-VAL 1 = TEMP12 + TAG16 TEMP11>
3162 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP11 VALUE)>
3165 <EMPTY? TEMP12 + TAG16>
3166 <NTH1 TEMP12 = STACK>
3167 <REST1 TEMP12 = TEMP12>
3168 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
3171 <CALL '
\1aOCEMIT TEMP11>
3173 <GVAL 'WINNING-VICTIM = TEMP11>
3174 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE45>
3175 <GVAL 'STACK-DEPTH = TEMP12>
3176 <ADD TEMP12 2 = TEMP12 (TYPE FIX)>
3177 <SETG 'STACK-DEPTH TEMP12>
3181 <TYPE? ARG5 <TYPE-CODE ATOM> - PHRASE24>
3185 <CALL '
\1aIN-AC? 2 = TEMP12>
3186 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE24>
3190 <CALL '
\1aGET-AC 1 = TEMP12>
3191 <NTHUV TEMP12 6 = TEMP12>
3192 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE24>
3196 <SET TEMP11 2 (TYPE FIX)>
3200 <SCALL '
\1aTYPE-WORD 1 = TEMP12 + TAG28 TEMP11>
3201 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP11 VALUE)>
3204 <EMPTY? TEMP12 + TAG28>
3205 <NTH1 TEMP12 = STACK>
3206 <REST1 TEMP12 = TEMP12>
3207 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
3210 <CALL '
\1aOCEMIT TEMP11>
3217 <SET TEMP12 2 (TYPE FIX)>
3220 <SCALL '
\1aOBJ-TYP 1 = TEMP11 + TAG34 TEMP12>
3221 <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
3224 <EMPTY? TEMP11 + TAG34>
3225 <NTH1 TEMP11 = STACK>
3226 <REST1 TEMP11 = TEMP11>
3227 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
3230 <CALL '
\1aOCEMIT TEMP12>
3233 <GVAL 'WINNING-VICTIM = TEMP12>
3234 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE39>
3236 <GVAL 'STACK-DEPTH = TEMP12>
3237 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
3238 <SETG 'STACK-DEPTH TEMP12>
3244 <SET TEMP11 2 (TYPE FIX)>
3248 <SCALL '
\1aOBJ-VAL 1 = TEMP12 + TAG40 TEMP11>
3249 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP11 VALUE)>
3252 <EMPTY? TEMP12 + TAG40>
3253 <NTH1 TEMP12 = STACK>
3254 <REST1 TEMP12 = TEMP12>
3255 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
3258 <CALL '
\1aOCEMIT TEMP11>
3260 <GVAL 'WINNING-VICTIM = TEMP11>
3261 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE45>
3262 <GVAL 'STACK-DEPTH = TEMP11>
3263 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
3264 <SETG 'STACK-DEPTH TEMP11>
3268 <END
\1aPUSH!-MIMOC>
3270 <GFCN
\1aPOP!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L4>
3273 <FRAME '
\1aASSIGN-AC>
3274 <RESTL L4 1 = TEMP7 (TYPE LIST)>
3276 <NTHL TEMP7 1 = STACK>
3279 <CALL '
\1aASSIGN-AC 2 = TEMP7>
3292 <GVAL 'WINNING-VICTIM = TEMP7>
3293 <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE11>
3294 <GVAL 'STACK-DEPTH = TEMP7>
3295 <SUB TEMP7 2 = TEMP7 (TYPE FIX)>
3296 <SETG 'STACK-DEPTH TEMP7>
3302 <GFCN
\1aADJ!-MIMOC ("VALUE" ANY LIST) L5>
3307 <TYPE? ARG6 <TYPE-CODE FIX> - PHRASE8>
3313 <GVAL 'WINNING-VICTIM = TEMP12>
3314 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE14>
3315 <GVAL 'STACK-DEPTH = TEMP12>
3316 <ADD TEMP12 ARG6 = TEMP12 (TYPE FIX)>
3318 <SETG 'STACK-DEPTH TEMP12>
3322 <FRAME '
\1aSMASH-AC>
3327 <CALL '
\1aSMASH-AC 3>
3332 <CALL '
\1aOCEMIT 3 = TEMP12>
3338 <GFCN
\1aGETS!-MIMOC ("VALUE" ANY LIST) L4>
3339 <TEMP ARG15 TEMP10 VAL6:ATOM TEMP16 TEMP9>
3341 <NTHL L4 1 = ARG15 (TYPE FORM)>
3342 <RESTL L4 1 = TEMP10 (TYPE LIST)>
3344 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
3345 <NTHL TEMP10 1 = VAL6 (TYPE ATOM)>
3347 <RESTL ARG15 1 = TEMP10 (TYPE LIST)>
3349 <NTHL TEMP10 1 = ARG15 (TYPE ATOM)>
3351 <VEQUAL? ARG15 'ARGS - PHRASE12>
3352 <VEQUAL? VAL6 'STACK - PHRASE14>
3356 <SET TEMP16 2 (TYPE FIX)>
3359 <SCALL '
\1aTYPE-WORD 1 = TEMP10 + TAG15 TEMP16>
3360 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
3363 <EMPTY? TEMP10 + TAG15>
3364 <NTH1 TEMP10 = STACK>
3365 <REST1 TEMP10 = TEMP10>
3366 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3369 <CALL '
\1aOCEMIT TEMP16>
3377 <FRAME '
\1aMUNGED-AC>
3379 <CALL '
\1aMUNGED-AC 1>
3385 <GVAL 'WINNING-VICTIM = TEMP16>
3386 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE25>
3387 <GVAL 'STACK-DEPTH = TEMP10>
3388 <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
3389 <SETG 'STACK-DEPTH TEMP10>
3393 <FRAME '
\1aASSIGN-AC>
3398 <CALL '
\1aASSIGN-AC 3 = VAL6>
3401 <CALL '
\1aGET-AC 1 = TEMP10>
3402 <PUTUV TEMP10 6 'FIX>
3409 <CALL '
\1aNEXT-AC 1 = STACK>
3412 <CALL '
\1aOCEMIT 4 = TEMP16>
3417 <VEQUAL? ARG15 'OBLIST - PHRASE30>
3418 <VEQUAL? VAL6 'STACK - PHRASE32>
3419 <FRAME '
\1aFLUSH-AC>
3421 <CALL '
\1aFLUSH-AC 1>
3422 <FRAME '
\1aMUNGED-AC>
3424 <CALL '
\1aMUNGED-AC 1>
3441 <GVAL 'WINNING-VICTIM = TEMP16>
3442 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE40>
3443 <GVAL 'STACK-DEPTH = TEMP10>
3444 <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
3445 <SETG 'STACK-DEPTH TEMP10>
3449 <FRAME '
\1aASSIGN-AC>
3454 <CALL '
\1aASSIGN-AC 3 = VAL6>
3461 <CALL '
\1aOCEMIT 4 = TEMP16>
3466 <VEQUAL? ARG15 'BIND - PHRASE43>
3467 <VEQUAL? VAL6 'STACK - PHRASE45>
3471 <SET TEMP16 2 (TYPE FIX)>
3474 <SCALL '
\1aTYPE-WORD 1 = TEMP10 + TAG46 TEMP16>
3475 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
3478 <EMPTY? TEMP10 + TAG46>
3479 <NTH1 TEMP10 = STACK>
3480 <REST1 TEMP10 = TEMP10>
3481 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3484 <CALL '
\1aOCEMIT TEMP16>
3491 <GVAL 'WINNING-VICTIM = TEMP16>
3492 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE54>
3493 <GVAL 'STACK-DEPTH = TEMP16>
3494 <ADD TEMP16 2 = TEMP16 (TYPE FIX)>
3495 <SETG 'STACK-DEPTH TEMP16>
3499 <FRAME '
\1aASSIGN-AC>
3504 <CALL '
\1aASSIGN-AC 3 = VAL6>
3507 <CALL '
\1aGET-AC 1 = TEMP16>
3508 <PUTUV TEMP16 6 'LBIND>
3515 <CALL '
\1aNEXT-AC 1 = STACK>
3517 <CALL '
\1aOCEMIT 3 = TEMP16>
3522 <VEQUAL? ARG15 'PAGPTR - PHRASE59>
3523 <VEQUAL? VAL6 'STACK - PHRASE61>
3524 <FRAME '
\1aFLUSH-AC>
3526 <CALL '
\1aFLUSH-AC 1>
3527 <FRAME '
\1aMUNGED-AC>
3529 <CALL '
\1aMUNGED-AC 1>
3546 <GVAL 'WINNING-VICTIM = TEMP16>
3547 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE68>
3549 <GVAL 'STACK-DEPTH = TEMP16>
3550 <ADD TEMP16 2 = TEMP16 (TYPE FIX)>
3551 <SETG 'STACK-DEPTH TEMP16>
3562 <CALL '
\1aOCEMIT 3 = TEMP16>
3566 <FRAME '
\1aASSIGN-AC>
3571 <CALL '
\1aASSIGN-AC 3 = VAL6>
3583 <CALL '
\1aNEXT-AC 1 = STACK>
3590 <CALL '
\1aOCEMIT 3 = TEMP16>
3594 <VEQUAL? ARG15 'MINF - PHRASE77>
3595 <VEQUAL? VAL6 'STACK - PHRASE79>
3599 <SET TEMP10 2 (TYPE FIX)>
3602 <SCALL '
\1aTYPE-WORD 1 = TEMP16 + TAG80 TEMP10>
3603 <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3606 <EMPTY? TEMP16 + TAG80>
3607 <NTH1 TEMP16 = STACK>
3608 <REST1 TEMP16 = TEMP16>
3609 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3612 <CALL '
\1aOCEMIT TEMP10>
3620 <GVAL 'WINNING-VICTIM = TEMP10>
3621 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE86>
3623 <GVAL 'STACK-DEPTH = TEMP10>
3624 <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
3625 <SETG 'STACK-DEPTH TEMP10>
3636 <CALL '
\1aOCEMIT 3 = TEMP16>
3640 <FRAME '
\1aASSIGN-AC>
3645 <CALL '
\1aASSIGN-AC 3 = VAL6>
3649 <SET TEMP16 2 (TYPE FIX)>
3652 <SCALL '
\1aTYPE-WORD 1 = TEMP10 + TAG91 TEMP16>
3653 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
3656 <EMPTY? TEMP10 + TAG91>
3657 <NTH1 TEMP10 = STACK>
3658 <REST1 TEMP10 = TEMP10>
3659 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3662 <CALL '
\1aOCEMIT TEMP16>
3668 <CALL '
\1aNEXT-AC 1 = STACK>
3677 <CALL '
\1aOCEMIT 3 = TEMP16>
3681 <SET TEMP9 [ICALL ECALL NCALL UWATM MAPPER PURVEC DBVEC TBIND] (TYPE VECTOR)>
3682 <LOOP (ARG15 VALUE) (TEMP9 LENGTH VALUE)>
3684 <NTHUV TEMP9 1 = TEMP16>
3685 <VEQUAL? TEMP16 ARG15 + TAG100>
3687 <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
3688 <EMPUV? TEMP9 - TAG101>
3689 <SET TEMP9 %<> (TYPE FALSE)>
3691 <VEQUAL? TEMP9 0 + PHRASE98>
3692 <LENUV TEMP9 = TEMP9 (TYPE FIX)>
3693 <VEQUAL? VAL6 'STACK - PHRASE104>
3694 <VEQUAL? ARG15 'TBIND - PHRASE106>
3698 <SET TEMP10 2 (TYPE FIX)>
3701 <SCALL '
\1aTYPE-WORD 1 = TEMP16 + TAG107 TEMP10>
3702 <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3705 <EMPTY? TEMP16 + TAG107>
3706 <NTH1 TEMP16 = STACK>
3707 <REST1 TEMP16 = TEMP16>
3708 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3711 <CALL '
\1aOCEMIT TEMP10>
3715 <SET TEMP10 [PURVEC DBVEC] (TYPE VECTOR)>
3716 <LOOP (ARG15 VALUE) (TEMP10 LENGTH VALUE)>
3718 <NTHUV TEMP10 1 = TEMP16>
3719 <VEQUAL? TEMP16 ARG15 + TAG112>
3721 <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
3722 <EMPUV? TEMP10 - TAG113>
3728 <SET TEMP16 2 (TYPE FIX)>
3731 <SCALL '
\1aTYPE-WORD 1 = TEMP10 + TAG115 TEMP16>
3732 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
3735 <EMPTY? TEMP10 + TAG115>
3736 <NTH1 TEMP10 = STACK>
3737 <REST1 TEMP10 = TEMP10>
3738 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3741 <CALL '
\1aOCEMIT TEMP16>
3748 <SET TEMP10 2 (TYPE FIX)>
3751 <SCALL '
\1aTYPE-WORD 1 = TEMP16 + TAG119 TEMP10>
3752 <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3755 <EMPTY? TEMP16 + TAG119>
3756 <NTH1 TEMP16 = STACK>
3757 <REST1 TEMP16 = TEMP16>
3758 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3761 <CALL '
\1aOCEMIT TEMP10>
3768 <NTHUU ![94 98 97 96 102 105 104 103!] TEMP9 = STACK (TYPE FIX)>
3771 <GVAL 'WINNING-VICTIM = TEMP10>
3772 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE125>
3774 <GVAL 'STACK-DEPTH = TEMP10>
3775 <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
3776 <SETG 'STACK-DEPTH TEMP10>
3787 <CALL '
\1aOCEMIT 3 = TEMP16>
3791 <FRAME '
\1aASSIGN-AC>
3796 <CALL '
\1aASSIGN-AC 3 = VAL6>
3797 <VEQUAL? ARG15 'TBIND - PHRASE131>
3801 <SET TEMP16 2 (TYPE FIX)>
3804 <SCALL '
\1aTYPE-WORD 1 = TEMP10 + TAG132 TEMP16>
3805 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
3808 <EMPTY? TEMP10 + TAG132>
3809 <NTH1 TEMP10 = STACK>
3810 <REST1 TEMP10 = TEMP10>
3811 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3814 <CALL '
\1aOCEMIT TEMP16>
3818 <SET TEMP16 [PURVEC DBVEC] (TYPE VECTOR)>
3819 <LOOP (ARG15 VALUE) (TEMP16 LENGTH VALUE)>
3821 <NTHUV TEMP16 1 = TEMP10>
3822 <VEQUAL? TEMP10 ARG15 + TAG137>
3824 <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
3825 <EMPUV? TEMP16 - TAG138>
3831 <SET TEMP10 2 (TYPE FIX)>
3834 <SCALL '
\1aTYPE-WORD 1 = TEMP16 + TAG140 TEMP10>
3835 <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3838 <EMPTY? TEMP16 + TAG140>
3839 <NTH1 TEMP16 = STACK>
3840 <REST1 TEMP16 = TEMP16>
3841 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3844 <CALL '
\1aOCEMIT TEMP10>
3851 <SET TEMP16 2 (TYPE FIX)>
3854 <SCALL '
\1aTYPE-WORD 1 = TEMP10 + TAG144 TEMP16>
3855 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
3858 <EMPTY? TEMP10 + TAG144>
3859 <NTH1 TEMP10 = STACK>
3860 <REST1 TEMP10 = TEMP10>
3861 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3864 <CALL '
\1aOCEMIT TEMP16>
3871 <CALL '
\1aNEXT-AC 1 = STACK>
3873 <NTHUU ![94 98 97 96 102 105 104 103!] TEMP9 = STACK (TYPE FIX)>
3881 <CALL '
\1aOCEMIT 3 = TEMP16>
3885 <SET TEMP16 [ENVIR ARGV] (TYPE VECTOR)>
3886 <LOOP (ARG15 VALUE) (TEMP16 LENGTH VALUE)>
3888 <NTHUV TEMP16 1 = TEMP10>
3889 <VEQUAL? TEMP10 ARG15 + TAG152>
3891 <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
3892 <EMPUV? TEMP16 - TAG153>
3895 <VEQUAL? VAL6 'STACK - PHRASE156>
3899 <SET TEMP10 2 (TYPE FIX)>
3902 <SCALL '
\1aTYPE-WORD 1 = TEMP16 + TAG157 TEMP10>
3903 <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3906 <EMPTY? TEMP16 + TAG157>
3907 <NTH1 TEMP16 = STACK>
3908 <REST1 TEMP16 = TEMP16>
3909 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3912 <CALL '
\1aOCEMIT TEMP10>
3917 <SET TEMP16 2 (TYPE FIX)>
3920 <SCALL '
\1aOBJ-VAL 1 = TEMP10 + TAG161 TEMP16>
3921 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
3924 <EMPTY? TEMP10 + TAG161>
3925 <NTH1 TEMP10 = STACK>
3926 <REST1 TEMP10 = TEMP10>
3927 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3930 <CALL '
\1aOCEMIT TEMP16>
3932 <GVAL 'WINNING-VICTIM = TEMP16>
3933 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE167>
3934 <GVAL 'STACK-DEPTH = TEMP16>
3935 <ADD TEMP16 2 = TEMP16 (TYPE FIX)>
3936 <SETG 'STACK-DEPTH TEMP16>
3940 <FRAME '
\1aASSIGN-AC>
3945 <CALL '
\1aASSIGN-AC 3 = VAL6>
3949 <SET TEMP10 2 (TYPE FIX)>
3952 <SCALL '
\1aTYPE-WORD 1 = TEMP16 + TAG169 TEMP10>
3953 <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3956 <EMPTY? TEMP16 + TAG169>
3957 <NTH1 TEMP16 = STACK>
3958 <REST1 TEMP16 = TEMP16>
3959 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3962 <CALL '
\1aOCEMIT TEMP10>
3969 <CALL '
\1aNEXT-AC 1 = STACK>
3971 <CALL '
\1aOCEMIT 3 = TEMP16>
3976 <VEQUAL? ARG15 'BINDID + BOOL176>
3977 <VEQUAL? ARG15 'INGC - PHRASE175>
3979 <VEQUAL? VAL6 'STACK - PHRASE178>
3983 <SET TEMP16 2 (TYPE FIX)>
3986 <SCALL '
\1aTYPE-WORD 1 = TEMP10 + TAG179 TEMP16>
3987 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
3990 <EMPTY? TEMP10 + TAG179>
3991 <NTH1 TEMP10 = STACK>
3992 <REST1 TEMP10 = TEMP10>
3993 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3996 <CALL '
\1aOCEMIT TEMP16>
4002 <VEQUAL? ARG15 'BINDID - PHRASE185>
4004 <SET TEMP16 95 (TYPE FIX)>
4007 <SET TEMP16 113 (TYPE FIX)>
4012 <GVAL 'WINNING-VICTIM = TEMP16>
4013 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE189>
4014 <GVAL 'STACK-DEPTH = TEMP16>
4015 <ADD TEMP16 2 = TEMP16 (TYPE FIX)>
4016 <SETG 'STACK-DEPTH TEMP16>
4020 <FRAME '
\1aASSIGN-AC>
4025 <CALL '
\1aASSIGN-AC 3 = VAL6>
4029 <SET TEMP10 2 (TYPE FIX)>
4033 <SCALL '
\1aTYPE-CODE 2 = TEMP16 + TAG191 TEMP10>
4034 <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
4037 <EMPTY? TEMP16 + TAG191>
4038 <NTH1 TEMP16 = STACK>
4039 <REST1 TEMP16 = TEMP16>
4040 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
4043 <CALL '
\1aOCEMIT TEMP10>
4050 <CALL '
\1aNEXT-AC 1 = STACK>
4052 <VEQUAL? ARG15 'BINDID - PHRASE198>
4054 <SET TEMP10 95 (TYPE FIX)>
4057 <SET TEMP10 113 (TYPE FIX)>
4061 <CALL '
\1aOCEMIT 4 = TEMP16>
4066 <FRAME '
\1aMIMOCERR>
4067 <PUSH 'UNKNOWN-SPECIAL-VARIABLE!-ERRORS>
4070 <CALL '
\1aMIMOCERR 2 = TEMP16>
4073 <END
\1aGETS!-MIMOC>
4075 <GFCN
\1aATIC!-MIMOC ("VALUE" ANY LIST) L5>
4078 <FRAME '
\1aUPDATE-ACS>
4079 <CALL '
\1aUPDATE-ACS 0>
4083 <SET TEMP9 2 (TYPE FIX)>
4086 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
4087 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
4090 <EMPTY? TEMP8 + TAG7>
4091 <NTH1 TEMP8 = STACK>
4092 <REST1 TEMP8 = TEMP8>
4093 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
4096 <CALL '
\1aOCEMIT TEMP9>
4100 <RESTL L5 1 = TEMP9 (TYPE LIST)>
4102 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
4103 <NTHL TEMP9 1 = STACK>
4105 <CALL '
\1aPUSHJ 2 = TEMP9>
4108 <END
\1aATIC!-MIMOC>
4110 <GFCN
\1aSETS!-MIMOC ("VALUE" ANY LIST) L4>
4111 <TEMP ARG5 VAR6:ATOM VAL7 TEMP15>
4113 <NTHL L4 1 = ARG5 (TYPE FORM)>
4114 <RESTL ARG5 1 = ARG5 (TYPE LIST)>
4115 <NTHL ARG5 1 = VAR6 (TYPE ATOM)>
4117 <RESTL L4 1 = ARG5 (TYPE LIST)>
4118 <NTHL ARG5 1 = VAL7>
4123 <NTHL ARG5 1 = TEMP15>
4124 <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG14>
4125 <VEQUAL? TEMP15 '= + TAG12>
4128 <RESTL ARG5 1 = ARG5 (TYPE LIST)>
4129 <EMPL? ARG5 - TAG13>
4133 <PUSH 'CANT-ASSIGN-RESULT-OF-SETS!-ERRORS>
4138 <VEQUAL? VAR6 'BIND - PHRASE18>
4142 <SET TEMP15 2 (TYPE FIX)>
4146 <SCALL '
\1aOBJ-VAL 1 = ARG5 + TAG19 TEMP15>
4147 <LOOP (ARG5 TYPE VALUE LENGTH) (TEMP15 VALUE)>
4150 <EMPTY? ARG5 + TAG19>
4153 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
4156 <CALL '
\1aOCEMIT TEMP15 = TEMP15>
4160 <VEQUAL? VAR6 'ICALL - PHRASE23>
4164 <CALL '
\1aIN-AC? 2 = ARG5>
4165 <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE25>
4166 <FRAME '
\1aGET-INTO-ACS>
4170 <SET ARG5 'O1* (TYPE ATOM)>
4172 <CALL '
\1aGET-INTO-ACS 3>
4180 <CALL '
\1aOCEMIT 4 = TEMP15>
4184 <VEQUAL? VAR6 'INGC - PHRASE29>
4188 <CALL '
\1aIN-AC? 2 = ARG5>
4189 <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE31>
4190 <FRAME '
\1aGET-INTO-ACS>
4194 <SET ARG5 'O1* (TYPE ATOM)>
4196 <CALL '
\1aGET-INTO-ACS 3>
4204 <CALL '
\1aOCEMIT 4 = TEMP15>
4208 <VEQUAL? VAR6 'ECALL - PHRASE35>
4212 <CALL '
\1aIN-AC? 2 = ARG5>
4213 <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE37>
4214 <FRAME '
\1aGET-INTO-ACS>
4218 <SET ARG5 'O1* (TYPE ATOM)>
4220 <CALL '
\1aGET-INTO-ACS 3>
4228 <CALL '
\1aOCEMIT 4 = TEMP15>
4232 <VEQUAL? VAR6 'NCALL - PHRASE41>
4236 <CALL '
\1aIN-AC? 2 = ARG5>
4237 <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE43>
4238 <FRAME '
\1aGET-INTO-ACS>
4242 <SET ARG5 'O1* (TYPE ATOM)>
4244 <CALL '
\1aGET-INTO-ACS 3>
4252 <CALL '
\1aOCEMIT 4 = TEMP15>
4256 <VEQUAL? VAR6 'RUNINT - PHRASE47>
4257 <FRAME '
\1aUPDATE-ACS>
4258 <CALL '
\1aUPDATE-ACS 0>
4262 <SET TEMP15 2 (TYPE FIX)>
4266 <SCALL '
\1aOBJ-VAL 1 = ARG5 + TAG49 TEMP15>
4267 <LOOP (ARG5 TYPE VALUE LENGTH) (TEMP15 VALUE)>
4270 <EMPTY? ARG5 + TAG49>
4273 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
4276 <CALL '
\1aOCEMIT TEMP15>
4280 <CALL '
\1aPUSHJ 1 = TEMP15>
4284 <VEQUAL? VAR6 'UWATM - PHRASE55>
4288 <SET ARG5 2 (TYPE FIX)>
4292 <SCALL '
\1aOBJ-VAL 1 = TEMP15 + TAG56 ARG5>
4293 <LOOP (TEMP15 TYPE VALUE LENGTH) (ARG5 VALUE)>
4296 <EMPTY? TEMP15 + TAG56>
4297 <NTH1 TEMP15 = STACK>
4298 <REST1 TEMP15 = TEMP15>
4299 <ADD ARG5 1 = ARG5 (TYPE FIX)>
4302 <CALL '
\1aOCEMIT ARG5>
4306 <CALL '
\1aPUSHJ 1 = TEMP15>
4310 <VEQUAL? VAR6 'PAGPTR - PHRASE61>
4314 <CALL '
\1aIN-AC? 2 = ARG5>
4315 <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE63>
4316 <FRAME '
\1aGET-INTO-ACS>
4320 <SET ARG5 'O1* (TYPE ATOM)>
4322 <CALL '
\1aGET-INTO-ACS 3>
4330 <CALL '
\1aOCEMIT 4 = TEMP15>
4334 <VEQUAL? VAR6 'MINF - PHRASE67>
4338 <CALL '
\1aIN-AC? 2 = ARG5>
4339 <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE69>
4340 <FRAME '
\1aGET-INTO-ACS>
4344 <SET ARG5 'O1* (TYPE ATOM)>
4346 <CALL '
\1aGET-INTO-ACS 3>
4354 <CALL '
\1aOCEMIT 4 = TEMP15>
4358 <VEQUAL? VAR6 'MAPPER - PHRASE73>
4362 <CALL '
\1aIN-AC? 2 = ARG5>
4363 <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE75>
4364 <FRAME '
\1aGET-INTO-ACS>
4368 <SET ARG5 'O1* (TYPE ATOM)>
4370 <CALL '
\1aGET-INTO-ACS 3>
4378 <CALL '
\1aOCEMIT 4 = TEMP15>
4382 <VEQUAL? VAR6 'PURVEC - PHRASE79>
4386 <CALL '
\1aIN-AC? 2 = ARG5>
4387 <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE81>
4388 <FRAME '
\1aGET-INTO-ACS>
4392 <SET ARG5 'O1* (TYPE ATOM)>
4394 <CALL '
\1aGET-INTO-ACS 3>
4402 <CALL '
\1aOCEMIT 4 = TEMP15>
4406 <VEQUAL? VAR6 'DBVEC - PHRASE85>
4410 <CALL '
\1aIN-AC? 2 = ARG5>
4411 <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE87>
4412 <FRAME '
\1aGET-INTO-ACS>
4416 <SET ARG5 'O1* (TYPE ATOM)>
4418 <CALL '
\1aGET-INTO-ACS 3>
4426 <CALL '
\1aOCEMIT 4 = TEMP15>
4430 <VEQUAL? VAR6 'OBLIST - PHRASE91>
4434 <CALL '
\1aIN-AC? 2 = ARG5>
4435 <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE93>
4436 <FRAME '
\1aGET-INTO-ACS>
4440 <SET ARG5 'O1* (TYPE ATOM)>
4442 <CALL '
\1aGET-INTO-ACS 3>
4450 <CALL '
\1aOCEMIT 4 = TEMP15>
4454 <VEQUAL? VAR6 'TBIND - PHRASE97>
4458 <CALL '
\1aIN-AC? 2 = ARG5>
4459 <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE99>
4460 <FRAME '
\1aGET-INTO-ACS>
4464 <SET ARG5 'O1* (TYPE ATOM)>
4466 <CALL '
\1aGET-INTO-ACS 3>
4474 <CALL '
\1aOCEMIT 4 = TEMP15>
4478 <VEQUAL? VAR6 'BINDID - PHRASE103>
4482 <CALL '
\1aIN-AC? 2 = ARG5>
4483 <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE105>
4484 <FRAME '
\1aGET-INTO-ACS>
4488 <SET ARG5 'O1* (TYPE ATOM)>
4490 <CALL '
\1aGET-INTO-ACS 3>
4498 <CALL '
\1aOCEMIT 4 = TEMP15>
4502 <FRAME '
\1aMIMOCERR>
4503 <PUSH 'UNKNOWN-SPECIAL-VARIABLE!-ERRORS>
4506 <CALL '
\1aMIMOCERR 2 = TEMP15>
4509 <END
\1aSETS!-MIMOC>
4511 <GFCN
\1aJUMP!-MIMOC ("VALUE" ANY LIST) L5>
4514 <FRAME '
\1aLABEL-UPDATE-ACS>
4515 <RESTL L5 1 = TEMP7 (TYPE LIST)>
4516 <NTHL TEMP7 1 = STACK>
4519 <CALL '
\1aLABEL-UPDATE-ACS 2>
4520 <SETG 'LAST-UNCON 'T>
4524 <RESTL L5 1 = TEMP7 (TYPE LIST)>
4526 <NTHL TEMP7 1 = STACK>
4528 <CALL '
\1aXJUMP 1 = STACK>
4529 <CALL '
\1aOCEMIT 2 = TEMP7>
4532 <END
\1aJUMP!-MIMOC>
4537 <NEWTYPE SGFRM ATOM>
4539 <SETG GLUE-FRAME 100>
4542 <GFCN
\1aSFRAME!-MIMOC ("VALUE" <OR FALSE FIX> ANY) L5>
4545 <FRAME '
\1aFRAME!-MIMOC>
4549 <CALL '
\1aFRAME!-MIMOC 2 = TEMP7>
4552 <END
\1aSFRAME!-MIMOC>
4554 <GFCN
\1aFRAME!-MIMOC ("VALUE" <OR FALSE FIX> LIST "OPTIONAL" ANY) L6 SEG7>
4555 <OPT-DISPATCH 1 %<> OPT4 OPT5>
4561 <GVAL 'GLUE-MODE = TEMP14>
4562 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE12>
4564 <EMPL? L6 + PHRASE12 (TYPE LIST)>
4565 <NTHL L6 1 = TEMP14>
4566 <TYPE? TEMP14 <TYPE-CODE FORM> + PHRASE12>
4568 <GVAL 'SURVIVOR-MODE = TEMP14>
4569 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE16>
4571 <FRAME '
\1aFIND-CALL>
4572 <RESTL L6 1 = TEMP14 (TYPE LIST)>
4573 <NTHL TEMP14 1 = NM9>
4576 <GVAL 'PRE-NAMES = STACK>
4577 <CALL '
\1aFIND-CALL 2 = TEMP14>
4578 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE16>
4583 <CALL '
\1aGETPROP 2 = TEMP14>
4584 <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE16>
4586 <FRAME '
\1aFIND-OPT>
4588 <GVAL 'PRE-OPTS = STACK>
4589 <CALL '
\1aFIND-OPT 2 = TEMP14>
4590 <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE16>
4592 <FRAME '
\1aSURVIVOR?>
4595 <CALL '
\1aSURVIVOR? 1 = TEMP14>
4596 <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE16>
4601 <SET NM9 2 (TYPE FIX)>
4604 <SCALL '
\1aTYPE-WORD 1 = TEMP14 + TAG22 NM9>
4605 <LOOP (TEMP14 TYPE VALUE LENGTH) (NM9 VALUE)>
4608 <EMPTY? TEMP14 + TAG22>
4609 <NTH1 TEMP14 = STACK>
4610 <REST1 TEMP14 = TEMP14>
4611 <ADD NM9 1 = NM9 (TYPE FIX)>
4614 <CALL '
\1aOCEMIT NM9>
4616 <TYPE? SEG7 <TYPE-CODE FALSE> + PHRASE28>
4621 <CHTYPE NM9 <TYPE-CODE SGFRM> = STACK>
4630 <CHTYPE NM9 <TYPE-CODE GFRM> = STACK>
4636 <TYPE? NM9 <TYPE-CODE FALSE> - PHRASE33>
4638 <FRAME '
\1aCONST-ADD-FRM>
4639 <CALL '
\1aCONST-ADD-FRM 0>
4641 <GVAL 'WINNING-VICTIM = NM9>
4642 <TYPE? NM9 <TYPE-CODE FALSE> + PHRASE53>
4643 <GVAL 'STACK-DEPTH = TEMP14>
4644 <ADD TEMP14 2 = TEMP14 (TYPE FIX)>
4645 <SETG 'STACK-DEPTH TEMP14>
4649 <FRAME '
\1aFLUSH-AC>
4651 <CALL '
\1aFLUSH-AC 1>
4652 <FRAME '
\1aMUNGED-AC>
4654 <CALL '
\1aMUNGED-AC 1>
4671 <TYPE? SEG7 <TYPE-CODE FALSE> + PHRASE44>
4674 <NTHL L6 1 = TEMP14>
4676 <CHTYPE TEMP14 <TYPE-CODE SGFRM> = STACK>
4683 <NTHL L6 1 = TEMP14>
4685 <CHTYPE TEMP14 <TYPE-CODE GFRM> = STACK>
4690 <GVAL 'PASS1 = TEMP14>
4691 <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE49>
4693 <FRAME '
\1aCONST-ADD-FRM>
4694 <CALL '
\1aCONST-ADD-FRM 0>
4701 <GVAL 'WINNING-VICTIM = NM9>
4702 <TYPE? NM9 <TYPE-CODE FALSE> + PHRASE76>
4703 <GVAL 'STACK-DEPTH = TEMP14>
4704 <ADD TEMP14 3 = TEMP14 (TYPE FIX)>
4705 <SETG 'STACK-DEPTH TEMP14>
4712 <EMPL? L6 + PHRASE54 (TYPE LIST)>
4714 <TYPE? NM9 <TYPE-CODE FORM> + PHRASE54>
4715 <FRAME '
\1aSUBRIFY?>
4716 <RESTL L6 1 = TEMP14 (TYPE LIST)>
4718 <NTHL TEMP14 1 = STACK>
4720 <CALL '
\1aSUBRIFY? 1 = TEMP14>
4721 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE54>
4723 <FRAME '
\1aFLUSH-AC>
4725 <CALL '
\1aFLUSH-AC 1>
4726 <FRAME '
\1aMUNGED-AC>
4728 <CALL '
\1aMUNGED-AC 1>
4730 <CHTYPE NM9 <TYPE-CODE SBFRM> = STACK>
4734 <GVAL 'PASS1 = TEMP14>
4735 <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE61>
4737 <FRAME '
\1aCONST-ADD-FRM>
4738 <CALL '
\1aCONST-ADD-FRM 0>
4746 <CALL '
\1aOPCODE 1 = TEMP14>
4747 <TYPE? TEMP14 <TYPE-CODE FIX> - TAG65>
4748 <SUB 0 TEMP14 = STACK (TYPE FIX)>
4752 <SUBF 0.0 TEMP14 = STACK (TYPE FLOAT)>
4756 <GVAL 'WINNING-VICTIM = NM9>
4757 <TYPE? NM9 <TYPE-CODE FALSE> + PHRASE76>
4758 <GVAL 'STACK-DEPTH = TEMP14>
4759 <ADD TEMP14 7 = TEMP14 (TYPE FIX)>
4760 <SETG 'STACK-DEPTH TEMP14>
4764 <FRAME '
\1aUPDATE-ACS>
4765 <CALL '
\1aUPDATE-ACS 0>
4767 <TYPE? SEG7 <TYPE-CODE FALSE> + PHRASE73>
4769 <SET TEMP14 'SFRAME (TYPE ATOM)>
4772 <SET TEMP14 'FRAME (TYPE ATOM)>
4777 <GVAL 'WINNING-VICTIM = NM9>
4778 <TYPE? NM9 <TYPE-CODE FALSE> + PHRASE76>
4779 <GVAL 'STACK-DEPTH = TEMP14>
4780 <ADD TEMP14 7 = TEMP14 (TYPE FIX)>
4781 <SETG 'STACK-DEPTH TEMP14>
4787 <END
\1aFRAME!-MIMOC>
4789 <GFCN
\1aVFRAME!-MIMOC ("VALUE" ANY LIST) L5>
4792 <FRAME '
\1aUPDATE-ACS>
4793 <CALL '
\1aUPDATE-ACS 0>
4796 <RESTL L5 1 = TEMP8 (TYPE LIST)>
4798 <NTHL TEMP8 1 = STACK>
4800 <CALL '
\1aPUSHJ 2 = TEMP8>
4803 <END
\1aVFRAME!-MIMOC>
4805 <GFCN
\1aCFRAME!-MIMOC ("VALUE" ANY LIST) L5>
4808 <RESTL L5 1 = TEMP8 (TYPE LIST)>
4810 <NTHL TEMP8 1 = VAL6 (TYPE ATOM)>
4812 <VEQUAL? VAL6 'STACK - PHRASE10>
4816 <SET VAL6 2 (TYPE FIX)>
4819 <SCALL '
\1aTYPE-WORD 1 = TEMP8 + TAG11 VAL6>
4820 <LOOP (TEMP8 TYPE VALUE LENGTH) (VAL6 VALUE)>
4823 <EMPTY? TEMP8 + TAG11>
4824 <NTH1 TEMP8 = STACK>
4825 <REST1 TEMP8 = TEMP8>
4826 <ADD VAL6 1 = VAL6 (TYPE FIX)>
4829 <CALL '
\1aOCEMIT VAL6>
4842 <GVAL 'WINNING-VICTIM = VAL6>
4843 <TYPE? VAL6 <TYPE-CODE FALSE> + PHRASE20>
4844 <GVAL 'STACK-DEPTH = TEMP8>
4845 <ADD TEMP8 2 = TEMP8 (TYPE FIX)>
4846 <SETG 'STACK-DEPTH TEMP8>
4850 <FRAME '
\1aASSIGN-AC>
4854 <CALL '
\1aASSIGN-AC 2 = VAL6>
4857 <CALL '
\1aGET-AC 1 = TEMP8>
4858 <PUTUV TEMP8 6 'FRAME>
4865 <CALL '
\1aNEXT-AC 1 = STACK>
4868 <CALL '
\1aOCEMIT 4 = VAL6>
4872 <END
\1aCFRAME!-MIMOC>
4874 <GFCN
\1aPFRAME!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L4>
4875 <TEMP TEMP10 VAL5:ATOM AC6:ATOM NAC7:ATOM>
4877 <RESTL L4 1 = TEMP10 (TYPE LIST)>
4878 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
4879 <NTHL TEMP10 1 = VAL5 (TYPE ATOM)>
4885 <CALL '
\1aLOAD-AC 2 = AC6>
4886 <FRAME '
\1aASSIGN-AC>
4890 <CALL '
\1aASSIGN-AC 3 = NAC7>
4893 <CALL '
\1aGET-AC 1 = TEMP10>
4894 <PUTUV TEMP10 6 'FRAME>
4900 <CALL '
\1aNEXT-AC 1 = TEMP10>
4903 <CONS AC6 () = STACK>
4908 <CONS TEMP10 () = STACK>
4915 <CALL '
\1aGENLBL 1 = AC6>
4917 <CALL '
\1aXJUMP 1 = STACK>
4923 <CONS TEMP10 () = STACK>
4939 <VEQUAL? VAL5 'STACK + TAG26>
4955 <GVAL 'WINNING-VICTIM = TEMP10>
4956 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE30>
4957 <GVAL 'STACK-DEPTH = TEMP10>
4958 <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
4959 <SETG 'STACK-DEPTH TEMP10>
4963 <END
\1aPFRAME!-MIMOC>
4965 <GFCN
\1aRFRAME!-MIMOC ("VALUE" ANY LIST) L5>
4968 <FRAME '
\1aRETURN!-MIMOC>
4970 <RESTL L5 1 = TEMP7 (TYPE LIST)>
4972 <NTHL TEMP7 1 = STACK>
4974 <CALL '
\1aRETURN!-MIMOC 2 = TEMP7>
4977 <END
\1aRFRAME!-MIMOC>
4979 <GFCN
\1aRTUPLE!-MIMOC ("VALUE" ANY LIST) L5>
4982 <FRAME '
\1aUPDATE-ACS>
4983 <CALL '
\1aUPDATE-ACS 0>
4987 <SET TEMP9 2 (TYPE FIX)>
4990 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
4991 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
4994 <EMPTY? TEMP8 + TAG7>
4995 <NTH1 TEMP8 = STACK>
4996 <REST1 TEMP8 = TEMP8>
4997 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
5000 <CALL '
\1aOCEMIT TEMP9>
5005 <SET TEMP8 2 (TYPE FIX)>
5007 <RESTL L5 1 = TEMP9 (TYPE LIST)>
5009 <NTHL TEMP9 1 = STACK>
5011 <SCALL '
\1aOBJ-VAL 1 = TEMP9 + TAG13 TEMP8>
5012 <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP8 VALUE)>
5015 <EMPTY? TEMP9 + TAG13>
5016 <NTH1 TEMP9 = STACK>
5017 <REST1 TEMP9 = TEMP9>
5018 <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
5021 <CALL '
\1aOCEMIT TEMP8>
5028 <CALL '
\1aOPCODE 1 = STACK>
5029 <CALL '
\1aOCEMIT 3 = TEMP8>
5032 <END
\1aRTUPLE!-MIMOC>
5034 <GFCN
\1aMRETURN!-MIMOC ("VALUE" ANY LIST) L5>
5037 <FRAME '
\1aUPDATE-ACS>
5038 <CALL '
\1aUPDATE-ACS 0>
5042 <SET TEMP9 2 (TYPE FIX)>
5045 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
5046 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
5049 <EMPTY? TEMP8 + TAG7>
5050 <NTH1 TEMP8 = STACK>
5051 <REST1 TEMP8 = TEMP8>
5052 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
5055 <CALL '
\1aOCEMIT TEMP9>
5057 <RESTL L5 1 = TEMP9 (TYPE LIST)>
5058 <NTHL TEMP9 1 = TEMP9>
5059 <EQUAL? TEMP9 0 - PHRASE14>
5071 <SET TEMP8 2 (TYPE FIX)>
5073 <RESTL L5 1 = TEMP9 (TYPE LIST)>
5075 <NTHL TEMP9 1 = STACK>
5077 <SCALL '
\1aOBJ-VAL 1 = TEMP9 + TAG17 TEMP8>
5078 <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP8 VALUE)>
5081 <EMPTY? TEMP9 + TAG17>
5082 <NTH1 TEMP9 = STACK>
5083 <REST1 TEMP9 = TEMP9>
5084 <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
5087 <CALL '
\1aOCEMIT TEMP8>
5095 <CALL '
\1aOPCODE 1 = STACK>
5096 <CALL '
\1aOCEMIT 3 = TEMP8>
5099 <END
\1aMRETURN!-MIMOC>
5101 <GFCN
\1aICALL!-MIMOC ("VALUE" LIST LIST) L5>
5102 <TEMP END6 TEMP10 TEMP22>
5106 <CALL '
\1aGENLBL 1 = END6>
5107 <GVAL 'ICALL-FLAG = TEMP10>
5108 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
5110 <GVAL 'ICALL-FLAG = TEMP10>
5111 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
5112 <SETG 'ICALL-FLAG TEMP10>
5116 <SETG 'ICALL-FLAG 1>
5118 <FRAME '
\1aUPDATE-ACS>
5119 <CALL '
\1aUPDATE-ACS 0>
5120 <FRAME '
\1aFLUSH-ACS>
5121 <CALL '
\1aFLUSH-ACS 0>
5128 <CALL '
\1aOPCODE 1 = TEMP10>
5129 <TYPE? TEMP10 <TYPE-CODE FIX> - TAG16>
5130 <SUB 0 TEMP10 = STACK (TYPE FIX)>
5134 <SUBF 0.0 TEMP10 = STACK (TYPE FLOAT)>
5142 <CALL '
\1aXJUMP 1 = STACK>
5144 <GVAL 'ICALL-TAGS = TEMP10>
5145 <EMPL? L5 + PHRASE21>
5146 <RESTL L5 1 = TEMP22 (TYPE LIST)>
5147 <EMPL? TEMP22 + PHRASE21>
5148 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
5149 <EMPL? TEMP22 + PHRASE21>
5151 <RESTL L5 1 = TEMP22 (TYPE LIST)>
5152 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
5153 <NTHL TEMP22 1 = TEMP22>
5156 <SET TEMP22 %<> (TYPE FALSE)>
5158 <CONS TEMP22 TEMP10 = TEMP10>
5160 <CONS END6 TEMP10 = TEMP10>
5162 <NTHL L5 1 = TEMP22>
5164 <CONS TEMP22 TEMP10 = TEMP10>
5166 <SETG 'ICALL-TAGS TEMP10>
5169 <END
\1aICALL!-MIMOC>
5171 <GFCN
\1aSCALL!-MIMOC ("VALUE" ANY ANY) L5>
5174 <FRAME '
\1aCALL!-MIMOC>
5178 <CALL '
\1aCALL!-MIMOC 2 = TEMP7>
5181 <END
\1aSCALL!-MIMOC>
5183 <GFCN
\1aCALL!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY) L8 SEG9>
5184 <OPT-DISPATCH 1 %<> OPT6 OPT7>
5188 <TEMP ARG110 TEMP20 ARG211 TAG16 XTAG18 (SBYFINF19 %<>) TEMP25 COUNT17 PN14 OP-INF15>
5190 <NTHL L8 1 = ARG110>
5191 <RESTL L8 1 = TEMP20 (TYPE LIST)>
5192 <NTHL TEMP20 1 = ARG211>
5196 <CALL '
\1aGENLBL 1 = XTAG18>
5197 <TYPE? SEG9 <TYPE-CODE FALSE> + PHRASE23>
5199 <SET TEMP25 6 (TYPE FIX)>
5200 <LOOP (TEMP20 VALUE) (TEMP25 VALUE)>
5202 <EMPL? TEMP20 + PHRASE23>
5203 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
5204 <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
5205 <GRTR? TEMP25 0 + TAG26 (TYPE FIX)>
5207 <NTHL L8 7 = COUNT17>
5209 <TYPE? ARG110 <TYPE-CODE FORM> - PHRASE28>
5210 <GVAL 'GLUE-MODE = TEMP20>
5211 <TYPE? TEMP20 <TYPE-CODE FALSE> + BOOL31>
5213 <FRAME '
\1aFIND-CALL>
5214 <RESTL ARG110 1 = TEMP20 (TYPE LIST)>
5215 <NTHL TEMP20 1 = STACK (TYPE ATOM)>
5217 <GVAL 'PRE-NAMES = STACK>
5218 <CALL '
\1aFIND-CALL 2 = PN14>
5219 <TYPE? PN14 <TYPE-CODE FALSE> - BOOL30>
5221 <FRAME '
\1aSUBRIFY?>
5222 <RESTL ARG110 1 = TEMP20 (TYPE LIST)>
5223 <NTHL TEMP20 1 = STACK (TYPE ATOM)>
5225 <CALL '
\1aSUBRIFY? 1 = SBYFINF19>
5226 <TYPE? SBYFINF19 <TYPE-CODE FALSE> + PHRASE28>
5228 <TYPE? SBYFINF19 <TYPE-CODE FALSE> + PHRASE35>
5229 <TYPE? ARG211 <TYPE-CODE FIX> + PHRASE37>
5233 <SET TEMP25 2 (TYPE FIX)>
5236 <SCALL '
\1aOBJ-VAL 1 = TEMP20 + TAG38 TEMP25>
5237 <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP25 VALUE)>
5240 <EMPTY? TEMP20 + TAG38>
5241 <NTH1 TEMP20 = STACK>
5242 <REST1 TEMP20 = TEMP20>
5243 <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
5246 <CALL '
\1aOCEMIT TEMP25>
5253 <CALL '
\1aNTH 2 = TEMP25>
5254 <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE56>
5263 <FRAME '
\1aFIND-OPT>
5264 <RESTL ARG110 1 = TEMP25 (TYPE LIST)>
5265 <NTHL TEMP25 1 = STACK (TYPE ATOM)>
5267 <GVAL 'PRE-OPTS = STACK>
5268 <CALL '
\1aFIND-OPT 2 = OP-INF15>
5269 <VEQUAL? OP-INF15 0 + PHRASE46>
5270 <TYPE? ARG211 <TYPE-CODE FIX> + PHRASE49>
5274 <SET TEMP20 2 (TYPE FIX)>
5277 <SCALL '
\1aOBJ-VAL 1 = TEMP25 + TAG50 TEMP20>
5278 <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP20 VALUE)>
5281 <EMPTY? TEMP25 + TAG50>
5282 <NTH1 TEMP25 = STACK>
5283 <REST1 TEMP25 = TEMP25>
5284 <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
5287 <CALL '
\1aOCEMIT TEMP20>
5291 <NTHL OP-INF15 1 = TEMP20>
5292 <VEQUAL? TEMP20 0 - PHRASE56>
5301 <TYPE? ARG211 <TYPE-CODE ATOM> - PHRASE56>
5305 <CALL '
\1aIN-AC? 2 = TEMP20>
5306 <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE56>
5311 <SET TEMP25 2 (TYPE FIX)>
5314 <SCALL '
\1aOBJ-VAL 1 = TEMP20 + TAG59 TEMP25>
5315 <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP25 VALUE)>
5318 <EMPTY? TEMP20 + TAG59>
5319 <NTH1 TEMP20 = STACK>
5320 <REST1 TEMP20 = TEMP20>
5321 <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
5324 <CALL '
\1aOCEMIT TEMP25>
5327 <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE64>
5328 <GVAL 'SURVIVOR-MODE = TEMP25>
5329 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE64>
5335 <CALL '
\1aGETPROP 2 = TEMP25>
5336 <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE64>
5338 <TYPE? OP-INF15 <TYPE-CODE FALSE> - PHRASE64>
5339 <FRAME '
\1aSURVIVOR?>
5340 <RESTL ARG110 1 = TEMP25 (TYPE LIST)>
5341 <NTHL TEMP25 1 = STACK (TYPE ATOM)>
5343 <CALL '
\1aSURVIVOR? 1 = TEMP25>
5344 <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE64>
5346 <FRAME '
\1aUPDATE-ACS>
5347 <CALL '
\1aUPDATE-ACS 0>
5348 <GVAL 'WINNING-VICTIM = TEMP25>
5349 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE96>
5351 <GVAL 'STACK-DEPTH = TEMP25>
5352 <LSH ARG211 1 = TEMP20 (TYPE FIX)>
5353 <ADD TEMP20 2 = TEMP20 (TYPE FIX)>
5354 <SUB TEMP25 TEMP20 = TEMP25 (TYPE FIX)>
5356 <SETG 'STACK-DEPTH TEMP25>
5360 <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE71>
5361 <FRAME '
\1aUPDATE-ACS>
5362 <CALL '
\1aUPDATE-ACS 0>
5366 <LSH ARG211 1 = TEMP25 (TYPE FIX)>
5367 <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
5368 <SUB 0 TEMP25 = STACK (TYPE FIX)>
5370 <CONS 'TP* () = STACK>
5372 <GVAL 'WINNING-VICTIM = TEMP25>
5373 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE96>
5375 <GVAL 'STACK-DEPTH = TEMP25>
5376 <LSH ARG211 1 = TEMP20 (TYPE FIX)>
5377 <ADD TEMP20 3 = TEMP20 (TYPE FIX)>
5378 <SUB TEMP25 TEMP20 = TEMP25 (TYPE FIX)>
5380 <SETG 'STACK-DEPTH TEMP25>
5384 <FRAME '
\1aWILL-DIE?>
5386 <CALL '
\1aWILL-DIE? 1 = TEMP25>
5387 <TYPE? TEMP25 <TYPE-CODE FALSE> - BOOL80>
5390 <SET TEMP25 4 (TYPE FIX)>
5391 <LOOP (TEMP20 VALUE) (TEMP25 VALUE)>
5393 <EMPL? TEMP20 + TAG87>
5394 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
5395 <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
5396 <GRTR? TEMP25 0 + TAG86 (TYPE FIX)>
5399 <SET TEMP25 %<> (TYPE FALSE)>
5402 <RESTL L8 1 = TEMP20 (TYPE LIST)>
5403 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
5404 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
5405 <NTHL TEMP20 1 = TEMP25>
5408 <EQUAL? TEMP25 ARG211 - PHRASE78>
5411 <FRAME '
\1aDEAD!-MIMOC>
5412 <CONS ARG211 () = STACK>
5414 <CALL '
\1aDEAD!-MIMOC 2>
5416 <FRAME '
\1aUPDATE-ACS>
5417 <CALL '
\1aUPDATE-ACS 0>
5427 <CALL '
\1aIN-AC? 2 = TEMP20>
5428 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE92>
5453 <TYPE? SBYFINF19 <TYPE-CODE FALSE> + PHRASE100>
5457 <SET TEMP20 2 (TYPE FIX)>
5461 <SCALL '
\1aOBJ-TYP 1 = TEMP25 + TAG101 TEMP20>
5462 <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP20 VALUE)>
5465 <EMPTY? TEMP25 + TAG101>
5466 <NTH1 TEMP25 = STACK>
5467 <REST1 TEMP25 = TEMP25>
5468 <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
5471 <CALL '
\1aOCEMIT TEMP20>
5499 <RESTL ARG110 1 = TEMP20 (TYPE LIST)>
5501 <NTHL TEMP20 1 = TEMP20 (TYPE ATOM)>
5502 <CHTYPE TEMP20 <TYPE-CODE GCAL> = STACK>
5505 <SET TEMP20 OP-INF15>
5506 <VEQUAL? TEMP20 0 + PHRASE112>
5507 <NTHL OP-INF15 1 = TEMP20>
5508 <VEQUAL? TEMP20 0 + PHRASE112>
5509 <TYPE? ARG211 <TYPE-CODE FIX> + TAG114>
5510 <SET TEMP20 %<> (TYPE FALSE)>
5513 <NTHL OP-INF15 1 = TEMP25 (TYPE FORM)>
5514 <NTHL OP-INF15 1 = ARG110 (TYPE FORM)>
5516 <RESTL ARG110 1 = ARG110 (TYPE LIST)>
5517 <NTHL ARG110 1 = ARG110 (TYPE FIX)>
5518 <SUB ARG211 ARG110 = TEMP20 (TYPE FIX)>
5519 <DEAD ARG211 ARG110>
5520 <SUB TEMP20 -4 = TEMP20 (TYPE FIX)>
5521 <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
5522 <GRTR? TEMP20 0 - RESTL119 (TYPE FIX)>
5523 <LOOP (TEMP25 VALUE) (TEMP20 VALUE)>
5526 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
5527 <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
5528 <GRTR? TEMP20 0 + RESTL118 (TYPE FIX)>
5530 <NTHL TEMP25 1 = TEMP20>
5539 <LOOP (TEMP20 VALUE)>
5541 <RESTL TEMP20 1 = TEMP25 (TYPE LIST)>
5542 <EMPL? TEMP25 + TAG122>
5547 <NTHL TEMP20 1 = STACK>
5551 <FRAME '
\1aFLUSH-ACS>
5552 <CALL '
\1aFLUSH-ACS 0>
5553 <TYPE? SEG9 <TYPE-CODE FALSE> + PHRASE125>
5555 <TYPE? TAG16 <TYPE-CODE UNBOUND> + PHRASE125>
5557 <GEN-LVAL 'MIML = STACK>
5559 <CALL '
\1aNTH 2 = TEMP20>
5560 <EQUAL? TEMP20 TAG16 + PHRASE128>
5566 <CALL '
\1aXJUMP 1 = STACK>
5576 <FRAME '
\1aWILL-DIE?>
5578 <CALL '
\1aWILL-DIE? 1 = TEMP20>
5579 <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE137>
5581 <FRAME '
\1aCLEAN-ACS>
5583 <CALL '
\1aCLEAN-ACS 1>
5587 <SET ARG110 2 (TYPE FIX)>
5590 <SCALL '
\1aOBJ-VAL 1 = TEMP20 + TAG140 ARG110>
5591 <LOOP (TEMP20 TYPE VALUE LENGTH) (ARG110 VALUE)>
5594 <EMPTY? TEMP20 + TAG140>
5595 <NTH1 TEMP20 = STACK>
5596 <REST1 TEMP20 = TEMP20>
5597 <ADD ARG110 1 = ARG110 (TYPE FIX)>
5600 <CALL '
\1aOCEMIT ARG110>
5604 <CALL '
\1aGET-AC 1 = TEMP20>
5605 <PUTUV TEMP20 2 COUNT17>
5606 <PUTUV TEMP20 3 'TYPE (TYPE ATOM)>
5607 <PUTUV TEMP20 5 %<>>
5608 <GVAL 'AC-STAMP = ARG110>
5609 <ADD ARG110 1 = ARG110 (TYPE FIX)>
5610 <SETG 'AC-STAMP ARG110>
5611 <PUTUV TEMP20 4 ARG110 (TYPE FIX)>
5612 <DEAD TEMP20 ARG110>
5615 <CALL '
\1aGET-AC 1 = TEMP20>
5616 <PUTUV TEMP20 2 COUNT17>
5618 <PUTUV TEMP20 3 'VALUE (TYPE ATOM)>
5619 <PUTUV TEMP20 5 %<>>
5620 <GVAL 'AC-STAMP = ARG110>
5621 <PUTUV TEMP20 4 ARG110 (TYPE FIX)>
5622 <DEAD TEMP20 ARG110>
5625 <GEN-LVAL 'MIML = STACK>
5627 <CALL '
\1aNTH 2 = SBYFINF19>
5628 <EQUAL? SBYFINF19 TAG16 - TAG148>
5632 <FRAME '
\1aLABEL-UPDATE-ACS>
5635 <CALL '
\1aLABEL-UPDATE-ACS 2>
5641 <CALL '
\1aXJUMP 1 = STACK>
5649 <CALL '
\1aGET-AC 1 = TEMP20>
5650 <FRAME '
\1aCLEAN-ACS>
5651 <RESTL L8 1 = SBYFINF19 (TYPE LIST)>
5652 <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5653 <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5654 <NTHL SBYFINF19 1 = STACK>
5656 <CALL '
\1aCLEAN-ACS 1>
5657 <RESTL L8 1 = SBYFINF19 (TYPE LIST)>
5658 <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5659 <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5660 <NTHL SBYFINF19 1 = SBYFINF19>
5661 <PUTUV TEMP20 2 SBYFINF19>
5663 <PUTUV TEMP20 3 'TYPE (TYPE ATOM)>
5665 <GVAL 'AC-STAMP = SBYFINF19>
5666 <ADD SBYFINF19 1 = SBYFINF19 (TYPE FIX)>
5667 <SETG 'AC-STAMP SBYFINF19>
5668 <PUTUV TEMP20 4 SBYFINF19 (TYPE FIX)>
5669 <DEAD TEMP20 SBYFINF19>
5672 <CALL '
\1aGET-AC 1 = TEMP20>
5673 <RESTL L8 1 = SBYFINF19 (TYPE LIST)>
5675 <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5676 <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5677 <NTHL SBYFINF19 1 = SBYFINF19>
5678 <PUTUV TEMP20 2 SBYFINF19>
5680 <PUTUV TEMP20 3 'VALUE (TYPE ATOM)>
5682 <GVAL 'AC-STAMP = SBYFINF19>
5683 <PUTUV TEMP20 4 SBYFINF19 (TYPE FIX)>
5689 <SET TEMP25 4 (TYPE FIX)>
5690 <LOOP (SBYFINF19 VALUE) (TEMP25 VALUE)>
5692 <EMPL? SBYFINF19 + TAG166>
5693 <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5694 <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
5695 <GRTR? TEMP25 0 + TAG165 (TYPE FIX)>
5700 <FRAME '
\1aPUSHJ-VAL>
5701 <RESTL L8 1 = SBYFINF19 (TYPE LIST)>
5703 <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5704 <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5705 <NTHL SBYFINF19 1 = STACK>
5707 <CALL '
\1aPUSHJ-VAL 1 = ARG110>
5714 <SET PN14 2 (TYPE FIX)>
5717 <SCALL '
\1aOBJ-VAL 1 = SBYFINF19 + TAG169 PN14>
5718 <LOOP (SBYFINF19 TYPE VALUE LENGTH) (PN14 VALUE)>
5721 <EMPTY? SBYFINF19 + TAG169>
5722 <NTH1 SBYFINF19 = STACK>
5723 <REST1 SBYFINF19 = SBYFINF19>
5724 <ADD PN14 1 = PN14 (TYPE FIX)>
5727 <CALL '
\1aOCEMIT PN14>
5729 <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE175>
5740 <SET SBYFINF19 2 (TYPE FIX)>
5743 <SCALL '
\1aOBJ-VAL 1 = PN14 + TAG178 SBYFINF19>
5744 <LOOP (PN14 TYPE VALUE LENGTH) (SBYFINF19 VALUE)>
5747 <EMPTY? PN14 + TAG178>
5750 <ADD SBYFINF19 1 = SBYFINF19 (TYPE FIX)>
5753 <CALL '
\1aOCEMIT SBYFINF19>
5756 <TYPE? ARG110 <TYPE-CODE ATOM> - PHRASE183>
5757 <FRAME '
\1aWILL-DIE?>
5759 <CALL '
\1aWILL-DIE? 1 = SBYFINF19>
5760 <TYPE? SBYFINF19 <TYPE-CODE FALSE> - BOOL185>
5763 <SET TEMP25 4 (TYPE FIX)>
5764 <LOOP (PN14 VALUE) (TEMP25 VALUE)>
5766 <EMPL? PN14 + TAG192>
5767 <RESTL PN14 1 = PN14 (TYPE LIST)>
5768 <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
5769 <GRTR? TEMP25 0 + TAG191 (TYPE FIX)>
5772 <SET SBYFINF19 %<> (TYPE FALSE)>
5775 <RESTL L8 1 = PN14 (TYPE LIST)>
5776 <RESTL PN14 1 = PN14 (TYPE LIST)>
5777 <RESTL PN14 1 = PN14 (TYPE LIST)>
5778 <NTHL PN14 1 = SBYFINF19>
5781 <EQUAL? SBYFINF19 ARG110 - PHRASE183>
5784 <FRAME '
\1aDEAD!-MIMOC>
5785 <CONS ARG110 () = STACK>
5787 <CALL '
\1aDEAD!-MIMOC 1>
5789 <TYPE? ARG211 <TYPE-CODE ATOM> - PHRASE195>
5790 <FRAME '
\1aWILL-DIE?>
5792 <CALL '
\1aWILL-DIE? 1 = SBYFINF19>
5793 <TYPE? SBYFINF19 <TYPE-CODE FALSE> - BOOL197>
5796 <SET TEMP25 4 (TYPE FIX)>
5797 <LOOP (PN14 VALUE) (TEMP25 VALUE)>
5799 <EMPL? PN14 + TAG204>
5800 <RESTL PN14 1 = PN14 (TYPE LIST)>
5801 <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
5802 <GRTR? TEMP25 0 + TAG203 (TYPE FIX)>
5805 <SET SBYFINF19 %<> (TYPE FALSE)>
5808 <RESTL L8 1 = PN14 (TYPE LIST)>
5809 <RESTL PN14 1 = PN14 (TYPE LIST)>
5810 <RESTL PN14 1 = PN14 (TYPE LIST)>
5811 <NTHL PN14 1 = SBYFINF19>
5814 <EQUAL? SBYFINF19 ARG211 - PHRASE195>
5817 <FRAME '
\1aDEAD!-MIMOC>
5818 <CONS ARG211 () = STACK>
5819 <CALL '
\1aDEAD!-MIMOC 1>
5821 <FRAME '
\1aUPDATE-ACS>
5822 <CALL '
\1aUPDATE-ACS 0>
5823 <GVAL 'WINNING-VICTIM = SBYFINF19>
5824 <TYPE? SBYFINF19 <TYPE-CODE FALSE> + PHRASE208>
5826 <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE208>
5827 <GVAL 'STACK-DEPTH = SBYFINF19>
5828 <LSH ARG211 1 = PN14 (TYPE FIX)>
5830 <SUB SBYFINF19 PN14 = SBYFINF19 (TYPE FIX)>
5832 <SUB SBYFINF19 7 = SBYFINF19 (TYPE FIX)>
5833 <SETG 'STACK-DEPTH SBYFINF19>
5836 <TYPE? SEG9 <TYPE-CODE FALSE> + PHRASE211>
5837 <TYPE? TAG16 <TYPE-CODE UNBOUND> + PHRASE211>
5842 <GEN-LVAL 'MIML = STACK>
5844 <CALL '
\1aNTH 2 = PN14>
5845 <EQUAL? PN14 TAG16 + PHRASE215>
5851 <CALL '
\1aXJUMP 1 = STACK>
5861 <FRAME '
\1aWILL-DIE?>
5863 <CALL '
\1aWILL-DIE? 1 = PN14>
5864 <TYPE? PN14 <TYPE-CODE FALSE> - PHRASE224>
5868 <CALL '
\1aGET-AC 1 = TEMP20>
5869 <FRAME '
\1aCLEAN-ACS>
5871 <CALL '
\1aCLEAN-ACS 1>
5875 <SET ARG110 2 (TYPE FIX)>
5878 <SCALL '
\1aOBJ-VAL 1 = PN14 + TAG228 ARG110>
5879 <LOOP (PN14 TYPE VALUE LENGTH) (ARG110 VALUE)>
5882 <EMPTY? PN14 + TAG228>
5885 <ADD ARG110 1 = ARG110 (TYPE FIX)>
5888 <CALL '
\1aOCEMIT ARG110>
5890 <PUTUV TEMP20 2 COUNT17>
5891 <PUTUV TEMP20 3 'TYPE (TYPE ATOM)>
5892 <PUTUV TEMP20 5 %<>>
5893 <GVAL 'AC-STAMP = ARG110>
5894 <ADD ARG110 1 = ARG110 (TYPE FIX)>
5895 <SETG 'AC-STAMP ARG110>
5896 <PUTUV TEMP20 4 ARG110 (TYPE FIX)>
5897 <DEAD TEMP20 ARG110>
5900 <CALL '
\1aGET-AC 1 = TEMP20>
5901 <PUTUV TEMP20 2 COUNT17>
5903 <PUTUV TEMP20 3 'VALUE (TYPE ATOM)>
5904 <PUTUV TEMP20 5 %<>>
5905 <GVAL 'AC-STAMP = ARG110>
5906 <PUTUV TEMP20 4 ARG110 (TYPE FIX)>
5907 <DEAD TEMP20 ARG110>
5910 <GEN-LVAL 'MIML = STACK>
5912 <CALL '
\1aNTH 2 = PN14>
5913 <EQUAL? PN14 TAG16 - TAG236>
5917 <FRAME '
\1aLABEL-UPDATE-ACS>
5920 <CALL '
\1aLABEL-UPDATE-ACS 2>
5926 <CALL '
\1aXJUMP 1 = STACK>
5934 <CALL '
\1aGET-AC 1 = TEMP20>
5935 <FRAME '
\1aCLEAN-ACS>
5936 <RESTL L8 1 = PN14 (TYPE LIST)>
5937 <RESTL PN14 1 = PN14 (TYPE LIST)>
5938 <RESTL PN14 1 = PN14 (TYPE LIST)>
5939 <NTHL PN14 1 = STACK>
5941 <CALL '
\1aCLEAN-ACS 1>
5942 <RESTL L8 1 = PN14 (TYPE LIST)>
5943 <RESTL PN14 1 = PN14 (TYPE LIST)>
5944 <RESTL PN14 1 = PN14 (TYPE LIST)>
5945 <NTHL PN14 1 = PN14>
5946 <PUTUV TEMP20 2 PN14>
5948 <PUTUV TEMP20 3 'TYPE (TYPE ATOM)>
5950 <GVAL 'AC-STAMP = PN14>
5951 <ADD PN14 1 = PN14 (TYPE FIX)>
5952 <SETG 'AC-STAMP PN14>
5953 <PUTUV TEMP20 4 PN14 (TYPE FIX)>
5957 <CALL '
\1aGET-AC 1 = TEMP20>
5958 <RESTL L8 1 = PN14 (TYPE LIST)>
5960 <RESTL PN14 1 = PN14 (TYPE LIST)>
5961 <RESTL PN14 1 = PN14 (TYPE LIST)>
5962 <NTHL PN14 1 = PN14>
5963 <PUTUV TEMP20 2 PN14>
5965 <PUTUV TEMP20 3 'VALUE (TYPE ATOM)>
5967 <GVAL 'AC-STAMP = PN14>
5968 <PUTUV TEMP20 4 PN14 (TYPE FIX)>
5974 <SET TEMP25 4 (TYPE FIX)>
5975 <LOOP (PN14 VALUE) (TEMP25 VALUE)>
5977 <EMPL? PN14 + TAG252>
5978 <RESTL PN14 1 = PN14 (TYPE LIST)>
5979 <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
5980 <GRTR? TEMP25 0 + TAG251 (TYPE FIX)>
5990 <RESTL L8 1 = PN14 (TYPE LIST)>
5992 <RESTL PN14 1 = PN14 (TYPE LIST)>
5993 <RESTL PN14 1 = PN14 (TYPE LIST)>
5994 <NTHL PN14 1 = STACK>
6000 <TYPE? ARG110 <TYPE-CODE FALSE> + PHRASE257>
6005 <CALL '
\1aOCEMIT 3 = ARG110>
6009 <END
\1aCALL!-MIMOC>
\r\r
6011 <GFCN
\1aACALL!-MIMOC ("VALUE" ANY LIST) L5>
6012 <TEMP ARG16 TEMP10 ARG27 (VAL9 %<>) TEMP13:FIX>
6015 <RESTL L5 1 = TEMP10 (TYPE LIST)>
6016 <NTHL TEMP10 1 = ARG27>
6019 <SET TEMP13 4 (TYPE FIX)>
6020 <LOOP (TEMP10 VALUE) (TEMP13 VALUE)>
6022 <EMPL? TEMP10 + PHRASE12>
6023 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
6024 <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
6025 <GRTR? TEMP13 0 + TAG14 (TYPE FIX)>
6026 <RESTL L5 1 = TEMP10 (TYPE LIST)>
6028 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
6029 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
6030 <NTHL TEMP10 1 = VAL9>
6033 <EQUAL? ARG16 VAL9 + BOOL17>
6034 <FRAME '
\1aWILL-DIE?>
6036 <CALL '
\1aWILL-DIE? 1 = TEMP10>
6037 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE16>
6040 <FRAME '
\1aDEAD!-MIMOC>
6041 <CONS ARG16 () = STACK>
6043 <CALL '
\1aDEAD!-MIMOC 2>
6045 <EQUAL? ARG27 VAL9 + BOOL22>
6046 <FRAME '
\1aWILL-DIE?>
6048 <CALL '
\1aWILL-DIE? 1 = TEMP10>
6049 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE21>
6052 <FRAME '
\1aDEAD!-MIMOC>
6053 <CONS ARG27 () = STACK>
6055 <CALL '
\1aDEAD!-MIMOC 2>
6057 <FRAME '
\1aUPDATE-ACS>
6058 <CALL '
\1aUPDATE-ACS 0>
6059 <FRAME '
\1aGET-INTO-ACS>
6067 <CALL '
\1aGET-INTO-ACS 6>
6068 <TYPE? ARG27 <TYPE-CODE FIX> - PHRASE28>
6069 <GVAL 'WINNING-VICTIM = TEMP10>
6070 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE28>
6072 <GVAL 'STACK-DEPTH = TEMP10>
6073 <LSH ARG27 1 = TEMP13 (TYPE FIX)>
6075 <SUB TEMP10 TEMP13 = TEMP10 (TYPE FIX)>
6077 <SUB TEMP10 7 = TEMP10 (TYPE FIX)>
6078 <SETG 'STACK-DEPTH TEMP10>
6081 <TYPE? VAL9 <TYPE-CODE FALSE> - PHRASE32>
6084 <CALL '
\1aPUSHJ 1 = TEMP10>
6092 <CALL '
\1aPUSHJ 2 = TEMP10>
6095 <END
\1aACALL!-MIMOC>
6097 <GFCN
\1aSETLR!-MIMOC ("VALUE" ANY LIST) L5>
6098 <TEMP AC6:ATOM TEMP11:FIX TEMP13>
6100 <FRAME '
\1aASSIGN-AC>
6103 <CALL '
\1aASSIGN-AC 2 = AC6>
6107 <SET TEMP11 2 (TYPE FIX)>
6109 <RESTL L5 1 = TEMP13 (TYPE LIST)>
6110 <NTHL TEMP13 1 = STACK>
6112 <SCALL '
\1aOBJ-VAL 1 = TEMP13 + TAG9 TEMP11>
6113 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP11 VALUE)>
6116 <EMPTY? TEMP13 + TAG9>
6117 <NTH1 TEMP13 = STACK>
6118 <REST1 TEMP13 = TEMP13>
6119 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
6122 <CALL '
\1aOCEMIT TEMP11>
6125 <RESTL L5 1 = TEMP13 (TYPE LIST)>
6126 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
6127 <NTHL TEMP13 1 = STACK>
6129 <GVAL 'LOCALS = STACK>
6130 <CALL '
\1aLMEMQ 2 = TEMP13>
6131 <TYPE? TEMP13 <TYPE-CODE FALSE> - BOOL16>
6133 <RESTL L5 1 = TEMP13 (TYPE LIST)>
6135 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
6136 <NTHL TEMP13 1 = STACK>
6138 <GVAL 'ICALL-TEMPS = STACK>
6139 <CALL '
\1aLMEMQ 2 = TEMP13>
6145 <NTHUV TEMP13 3 = STACK (TYPE LOCAL-NAME)>
6148 <CALL '
\1aOCEMIT 4 = TEMP13>
6151 <END
\1aSETLR!-MIMOC>
6153 <GFCN
\1aSETRL!-MIMOC ("VALUE" ANY LIST) L5>
6154 <TEMP TEMP9 AC6:ATOM TEMP11>
6157 <RESTL L5 1 = TEMP9 (TYPE LIST)>
6158 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
6159 <NTHL TEMP9 1 = STACK>
6162 <CALL '
\1aLOAD-AC 2 = AC6>
6166 <SET TEMP11 2 (TYPE FIX)>
6169 <SCALL '
\1aOBJ-VAL 1 = TEMP9 + TAG10 TEMP11>
6170 <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP11 VALUE)>
6173 <EMPTY? TEMP9 + TAG10>
6174 <NTH1 TEMP9 = STACK>
6175 <REST1 TEMP9 = TEMP9>
6176 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
6179 <CALL '
\1aOCEMIT TEMP11>
6182 <RESTL L5 1 = TEMP11 (TYPE LIST)>
6183 <NTHL TEMP11 1 = STACK>
6185 <GVAL 'LOCALS = STACK>
6186 <CALL '
\1aLMEMQ 2 = TEMP9>
6187 <TYPE? TEMP9 <TYPE-CODE FALSE> - BOOL17>
6189 <RESTL L5 1 = TEMP11 (TYPE LIST)>
6191 <NTHL TEMP11 1 = STACK>
6193 <GVAL 'ICALL-TEMPS = STACK>
6194 <CALL '
\1aLMEMQ 2 = TEMP9>
6195 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE21>
6197 <NTHUV TEMP9 2 = TEMP11>
6198 <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE21>
6200 <PUTUV TEMP9 2 'TEMP>
6206 <NTHUV TEMP9 3 = STACK (TYPE LOCAL-NAME)>
6209 <CALL '
\1aOCEMIT 4 = TEMP11>
6212 <END
\1aSETRL!-MIMOC>
6214 <GFCN
\1aRETURN!-MIMOC ("VALUE" ANY LIST "OPTIONAL" <OR FALSE ATOM>) L8 FRM9>
6215 <OPT-DISPATCH 1 %<> OPT6 OPT7>
6219 <TEMP TEMP19 TEMP21>
6221 <TYPE? FRM9 <TYPE-CODE FALSE> + PHRASE12>
6222 <FRAME '
\1aGET-INTO-ACS>
6230 <CALL '
\1aGET-INTO-ACS 6>
6233 <FRAME '
\1aGET-INTO-ACS>
6238 <CALL '
\1aGET-INTO-ACS 3>
6242 <CALL '
\1aGET-AC 1 = TEMP19>
6243 <NTHUV TEMP19 6 = TEMP19>
6244 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE17>
6248 <SET TEMP21 2 (TYPE FIX)>
6253 <SCALL '
\1aTYPE-CODE 2 = TEMP19 + TAG20 TEMP21>
6254 <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP21 VALUE)>
6257 <EMPTY? TEMP19 + TAG20>
6258 <NTH1 TEMP19 = STACK>
6259 <REST1 TEMP19 = TEMP19>
6260 <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
6263 <CALL '
\1aXEMIT TEMP21>
6266 <TYPE? FRM9 <TYPE-CODE FALSE> + PHRASE26>
6289 <CALL '
\1aOPCODE 1 = STACK>
6293 <GVAL 'WINNING-VICTIM = TEMP21>
6294 <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE32>
6300 <PUSH <- 2 ,WINNING-VICTIM>>
6305 <PUSH ,WINNING-VICTIM>
6319 <CALL '
\1aOPCODE 1 = STACK>
6322 <SETG 'LAST-UNCON 'T>
6323 <FRAME '
\1aFLUSH-ACS>
6324 <CALL '
\1aFLUSH-ACS 0 = TEMP21>
6327 <END
\1aRETURN!-MIMOC>
6329 <GFCN
\1aBIND!-MIMOC ("VALUE" ANY LIST) L5>
6332 <FRAME '
\1aUPDATE-ACS>
6333 <CALL '
\1aUPDATE-ACS 0>
6334 <GVAL 'WINNING-VICTIM = TEMP9>
6335 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
6337 <GVAL 'STACK-DEPTH = TEMP9>
6338 <ADD TEMP9 9 = TEMP9 (TYPE FIX)>
6339 <SETG 'STACK-DEPTH TEMP9>
6344 <RESTL L5 1 = TEMP9 (TYPE LIST)>
6346 <NTHL TEMP9 1 = STACK>
6348 <CALL '
\1aPUSHJ 2 = TEMP9>
6351 <END
\1aBIND!-MIMOC>
6353 <GFCN
\1aACTIVATION!-MIMOC ("VALUE" ANY LIST) L5>
6356 <FRAME '
\1aUPDATE-ACS>
6357 <CALL '
\1aUPDATE-ACS 0>
6360 <CALL '
\1aPUSHJ 1 = TEMP8>
6363 <END
\1aACTIVATION!-MIMOC>
6365 <GFCN
\1aAGAIN!-MIMOC ("VALUE" ANY LIST) L5>
6368 <FRAME '
\1aUPDATE-ACS>
6369 <CALL '
\1aUPDATE-ACS 0>
6373 <SET TEMP9 2 (TYPE FIX)>
6377 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
6378 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
6381 <EMPTY? TEMP8 + TAG7>
6382 <NTH1 TEMP8 = STACK>
6383 <REST1 TEMP8 = TEMP8>
6384 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
6387 <CALL '
\1aOCEMIT TEMP9>
6394 <CALL '
\1aOPCODE 1 = STACK>
6396 <FRAME '
\1aFLUSH-ACS>
6397 <CALL '
\1aFLUSH-ACS 0 = TEMP9>
6400 <END
\1aAGAIN!-MIMOC>
6402 <GFCN
\1aRETRY!-MIMOC ("VALUE" ANY LIST) L5>
6405 <FRAME '
\1aUPDATE-ACS>
6406 <CALL '
\1aUPDATE-ACS 0>
6410 <SET TEMP9 2 (TYPE FIX)>
6414 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
6415 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
6418 <EMPTY? TEMP8 + TAG7>
6419 <NTH1 TEMP8 = STACK>
6420 <REST1 TEMP8 = TEMP8>
6421 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
6424 <CALL '
\1aOCEMIT TEMP9>
6431 <CALL '
\1aOPCODE 1 = STACK>
6433 <FRAME '
\1aFLUSH-ACS>
6434 <CALL '
\1aFLUSH-ACS 0 = TEMP9>
6437 <END
\1aRETRY!-MIMOC>
6439 <GFCN
\1aFIXBIND!-MIMOC ("VALUE" ANY LIST) L5>
6442 <FRAME '
\1aUPDATE-ACS>
6443 <CALL '
\1aUPDATE-ACS 0>
6446 <CALL '
\1aPUSHJ 1 = TEMP8>
6449 <END
\1aFIXBIND!-MIMOC>
6451 <GFCN
\1aUNBIND!-MIMOC ("VALUE" ANY LIST) L5>
6454 <FRAME '
\1aUPDATE-ACS>
6455 <CALL '
\1aUPDATE-ACS 0>
6459 <SET TEMP9 2 (TYPE FIX)>
6463 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
6464 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
6467 <EMPTY? TEMP8 + TAG7>
6468 <NTH1 TEMP8 = STACK>
6469 <REST1 TEMP8 = TEMP8>
6470 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
6473 <CALL '
\1aOCEMIT TEMP9>
6477 <CALL '
\1aPUSHJ 1 = TEMP9>
6480 <END
\1aUNBIND!-MIMOC>
6482 <GFCN
\1aARGS!-MIMOC ("VALUE" ANY LIST) L5>
6485 <FRAME '
\1aUPDATE-ACS>
6486 <CALL '
\1aUPDATE-ACS 0>
6490 <SET TEMP9 2 (TYPE FIX)>
6493 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
6494 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
6497 <EMPTY? TEMP8 + TAG7>
6498 <NTH1 TEMP8 = STACK>
6499 <REST1 TEMP8 = TEMP8>
6500 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
6503 <CALL '
\1aOCEMIT TEMP9>
6507 <RESTL L5 1 = TEMP9 (TYPE LIST)>
6509 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
6510 <NTHL TEMP9 1 = STACK>
6512 <CALL '
\1aPUSHJ 2 = TEMP9>
6515 <END
\1aARGS!-MIMOC>
6517 <GFCN
\1aTUPLE!-MIMOC ("VALUE" ANY LIST) L5>
6520 <FRAME '
\1aUPDATE-ACS>
6521 <CALL '
\1aUPDATE-ACS 0>
6525 <SET TEMP9 2 (TYPE FIX)>
6528 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
6529 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
6532 <EMPTY? TEMP8 + TAG7>
6533 <NTH1 TEMP8 = STACK>
6534 <REST1 TEMP8 = TEMP8>
6535 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
6538 <CALL '
\1aOCEMIT TEMP9>
6542 <RESTL L5 1 = TEMP9 (TYPE LIST)>
6544 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
6545 <NTHL TEMP9 1 = STACK>
6547 <CALL '
\1aPUSHJ 2 = TEMP9>
6550 <END
\1aTUPLE!-MIMOC>
6552 <GFCN
\1aARGNUM!-MIMOC ("VALUE" ANY LIST) L5>
6555 <FRAME '
\1aUPDATE-ACS>
6556 <CALL '
\1aUPDATE-ACS 0>
6565 <CALL '
\1aPUSHJ 1 = TEMP9>
6568 <END
\1aARGNUM!-MIMOC>
6570 <GFCN
\1aEQUAL?!-MIMOC ("VALUE" <OR FALSE AC> LIST "OPTIONAL" ANY ANY ANY) L12 ADDR113 ADDR214 OFF15>
6571 <OPT-DISPATCH 1 %<> OPT8 OPT9 OPT10 OPT11>
6579 <TEMP ARG116 TEMP25 ARG217 (AC118 %<>) (AC219 %<>) (AC-T120 %<>) (AC-T221 %<>) (TY123 %<>) (TY224 %<>)>
6581 <NTHL L12 1 = ARG116>
6582 <RESTL L12 1 = TEMP25 (TYPE LIST)>
6583 <NTHL TEMP25 1 = ARG217>
6585 <TYPE? ADDR113 <TYPE-CODE FALSE> - PHRASE27>
6589 <CALL '
\1aIN-AC? 2 = AC118>
6590 <TYPE? AC118 <TYPE-CODE FALSE> + PHRASE27>
6593 <CALL '
\1aGET-AC 1 = TEMP25>
6594 <NTHUV TEMP25 6 = TY123>
6596 <TYPE? TY123 <TYPE-CODE FALSE> - PHRASE27>
6600 <CALL '
\1aIN-AC? 2 = AC219>
6601 <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE44>
6604 <CALL '
\1aGET-AC 1 = TEMP25>
6605 <NTHUV TEMP25 6 = TY224>
6609 <TYPE? ADDR214 <TYPE-CODE FALSE> - PHRASE34>
6613 <CALL '
\1aIN-AC? 2 = AC219>
6614 <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE34>
6617 <CALL '
\1aGET-AC 1 = TEMP25>
6618 <NTHUV TEMP25 6 = TY224>
6620 <TYPE? TY224 <TYPE-CODE FALSE> - PHRASE34>
6627 <SET ADDR214 ADDR113>
6629 <RESTL L12 1 = TEMP25 (TYPE LIST)>
6630 <NTHL TEMP25 1 = ARG116>
6632 <SET TY123 %<> (TYPE FALSE)>
6638 <CALL '
\1aIN-AC? 2 = AC219>
6641 <TYPE? AC118 <TYPE-CODE FALSE> + PHRASE39>
6645 <CALL '
\1aIN-AC? 2 = AC219>
6646 <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE44>
6649 <CALL '
\1aGET-AC 1 = TEMP25>
6650 <NTHUV TEMP25 6 = TY224>
6654 <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE43>
6661 <SET ADDR214 ADDR113>
6663 <RESTL L12 1 = TEMP25 (TYPE LIST)>
6664 <NTHL TEMP25 1 = ARG116>
6666 <SET TY123 %<> (TYPE FALSE)>
6669 <SET AC219 %<> (TYPE FALSE)>
6676 <CALL '
\1aLOAD-AC 2 = AC118>
6678 <FRAME '
\1aLABEL-UPDATE-ACS>
6679 <RESTL L12 1 = TEMP25 (TYPE LIST)>
6680 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
6681 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
6682 <NTHL TEMP25 1 = STACK>
6688 <CALL '
\1aLABEL-UPDATE-ACS 5 = ARG116>
6689 <NTHL ARG116 1 = TEMP25>
6690 <EQUAL? TEMP25 AC118 + PHRASE48>
6693 <NTHL ARG116 1 = AC118>
6695 <CALL '
\1aGET-AC 1 = TEMP25>
6696 <NTHUV TEMP25 4 = AC-T120 (TYPE FIX)>
6699 <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE51>
6700 <RESTL ARG116 1 = TEMP25 (TYPE LIST)>
6701 <NTHL TEMP25 1 = TEMP25>
6702 <EQUAL? TEMP25 AC219 + PHRASE51>
6705 <RESTL ARG116 1 = TEMP25 (TYPE LIST)>
6707 <NTHL TEMP25 1 = AC219>
6710 <CALL '
\1aGET-AC 1 = TEMP25>
6711 <NTHUV TEMP25 4 = AC-T221 (TYPE FIX)>
6717 <SET ARG116 2 (TYPE FIX)>
6718 <TYPE? ADDR214 <TYPE-CODE FALSE> + PHRASE57>
6719 <CONS ADDR214 () = TY123>
6720 <CONS TY123 () = TEMP25>
6722 <CONS OFF15 TEMP25 = TEMP25>
6725 <TYPE? TY224 <TYPE-CODE FALSE> + PHRASE59>
6726 <FRAME '
\1aTYPE-WORD>
6729 <CALL '
\1aTYPE-WORD 1 = TEMP25>
6732 <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE61>
6733 <CONS AC219 () = TEMP25>
6738 <CALL '
\1aOBJ-TYP 1 = TEMP25>
6740 <LOOP (TEMP25 TYPE VALUE LENGTH) (ARG116 VALUE)>
6743 <EMPTY? TEMP25 + TAG54>
6744 <NTH1 TEMP25 = STACK>
6745 <REST1 TEMP25 = TEMP25>
6746 <ADD ARG116 1 = ARG116 (TYPE FIX)>
6749 <CALL '
\1aOCEMIT ARG116>
6755 <CALL '
\1aNEXT-AC 1 = STACK>
6756 <SET TEMP25 2 (TYPE FIX)>
6757 <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE69>
6760 <CALL '
\1aNEXT-AC 1 = TY123>
6761 <CONS TY123 () = ARG116>
6765 <TYPE? ADDR214 <TYPE-CODE FALSE> + PHRASE71>
6766 <CONS ADDR214 () = TY123>
6768 <CONS TY123 () = ARG116>
6774 <CALL '
\1a+ 2 = TY123>
6775 <CONS TY123 ARG116 = ARG116>
6782 <CALL '
\1aOBJ-VAL 1 = ARG116>
6784 <LOOP (ARG116 TYPE VALUE LENGTH) (TEMP25 VALUE)>
6787 <EMPTY? ARG116 + TAG66>
6788 <NTH1 ARG116 = STACK>
6789 <REST1 ARG116 = ARG116>
6790 <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
6793 <CALL '
\1aOCEMIT TEMP25>
6795 <RESTL L12 1 = TEMP25 (TYPE LIST)>
6796 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
6797 <NTHL TEMP25 1 = TEMP25>
6798 <EQUAL? TEMP25 '+ - PHRASE78>
6809 <RESTL L12 1 = TEMP25 (TYPE LIST)>
6811 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
6812 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
6813 <NTHL TEMP25 1 = STACK>
6815 <CALL '
\1aXJUMP 1 = STACK>
6817 <TYPE? AC-T120 <TYPE-CODE FALSE> + PHRASE83>
6820 <CALL '
\1aGET-AC 1 = TEMP25>
6821 <PUTUV TEMP25 4 AC-T120 (TYPE FIX)>
6827 <CALL '
\1aNEXT-AC 1 = STACK>
6828 <CALL '
\1aGET-AC 1 = TEMP25>
6829 <PUTUV TEMP25 4 AC-T120 (TYPE FIX)>
6830 <DEAD TEMP25 AC-T120>
6832 <SET TEMP25 AC-T221>
6833 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE88>
6836 <CALL '
\1aGET-AC 1 = ARG116>
6837 <PUTUV ARG116 4 AC-T221 (TYPE FIX)>
6843 <CALL '
\1aNEXT-AC 1 = STACK>
6844 <CALL '
\1aGET-AC 1 = ARG116>
6845 <PUTUV ARG116 4 AC-T221 (TYPE FIX)>
6852 <END
\1aEQUAL?!-MIMOC>
6854 <GFCN
\1aVEQUAL?!-MIMOC ("VALUE" <OR FALSE AC> LIST "OPTIONAL" ANY ANY ANY ANY ATOM ATOM ATOM ATOM ATOM ATOM ANY ANY ATOM ATOM) L19 ADDR120 ADDR221 OFF22 TY23 CAI24 CAM25 JUMP26 CAIX27 CAMX28 JUMPX29 SOJ30 SOJX31 SKIP32 SKIPX33>
6855 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7 OPT8 OPT9 OPT10 OPT11 OPT12 OPT13 OPT14 OPT15 OPT16 OPT17 OPT18>
6885 <TEMP ARG134 TEMP48 ARG235 TAG36:ATOM (AC-T139 %<>) (AC-T240 %<>) DIR43 (KL45 %<>) (SWAPPED?47 %<>) TEMP62 AC137 AC241>
6887 <NTHL L19 1 = ARG134>
6888 <RESTL L19 1 = TEMP48 (TYPE LIST)>
6889 <NTHL TEMP48 1 = ARG235>
6891 <RESTL L19 1 = TEMP48 (TYPE LIST)>
6892 <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
6893 <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
6894 <NTHL TEMP48 1 = TAG36 (TYPE ATOM)>
6896 <RESTL L19 1 = TEMP48 (TYPE LIST)>
6898 <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
6899 <NTHL TEMP48 1 = DIR43>
6901 <TYPE? ARG235 <TYPE-CODE FLOAT> + TAG51>
6902 <TYPE? ARG235 <TYPE-CODE WORD> + TAG51>
6903 <TYPE? ARG235 <TYPE-CODE LOSE> + TAG51>
6904 <TYPE? ARG235 <TYPE-CODE CHARACTER> - PHRASE50>
6906 <CHTYPE ARG235 <TYPE-CODE FIX> = ARG235>
6909 <FRAME '
\1aPRIMTYPE>
6911 <CALL '
\1aPRIMTYPE 1 = TEMP48>
6912 <VEQUAL? TEMP48 'LIST - PHRASE52>
6914 <EMPTY? ARG235 - PHRASE52>
6915 <SET ARG235 0 (TYPE FIX)>
6917 <SET TEMP48 ADDR120>
6918 <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE77>
6922 <CALL '
\1aIN-AC? 2 = TEMP48>
6923 <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE77>
6924 <EQUAL? ARG235 0 - PHRASE57>
6925 <SET TEMP48 'X* (TYPE ATOM)>
6928 <TYPE? ARG235 <TYPE-CODE ATOM> - PHRASE58>
6932 <CALL '
\1aIN-AC? 2 = TEMP62>
6933 <TYPE? TEMP62 <TYPE-CODE FALSE> - BOOL60>
6935 <TYPE? ARG134 <TYPE-CODE ATOM> + PHRASE58>
6937 <VEQUAL? CAI24 'CAIGE - PHRASE64>
6938 <SET KL45 'T (TYPE ATOM)>
6939 <EQUAL? DIR43 '+ - PHRASE66>
6940 <SET CAI24 'CAILE (TYPE ATOM)>
6941 <SET CAM25 'CAMLE (TYPE ATOM)>
6944 <SET CAI24 'CAIG (TYPE ATOM)>
6945 <SET CAM25 'CAMG (TYPE ATOM)>
6948 <VEQUAL? CAI24 'CAILE - PHRASE71>
6949 <SET KL45 'T (TYPE ATOM)>
6950 <EQUAL? DIR43 '+ - PHRASE70>
6951 <SET CAI24 'CAIGE (TYPE ATOM)>
6952 <SET CAM25 'CAMGE (TYPE ATOM)>
6955 <SET CAI24 'CAIL (TYPE ATOM)>
6956 <SET CAM25 'CAML (TYPE ATOM)>
6958 <SET SWAPPED?47 'T (TYPE ATOM)>
6968 <CALL '
\1aIN-AC? 2 = TEMP48>
6969 <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE77>
6974 <CALL '
\1aLOAD-AC 2 = STACK>
6975 <CALL '
\1aNEXT-AC 1 = TEMP48>
6982 <CALL '
\1aLOAD-AC 2 = STACK>
6983 <CALL '
\1aNEXT-AC 1 = TEMP48>
6989 <TYPE? AC241 <TYPE-CODE FALSE> - PHRASE86>
6990 <TYPE? ARG235 <TYPE-CODE ATOM> - BOOL81>
6994 <CALL '
\1aIN-AC? 2 = AC241>
6995 <TYPE? AC241 <TYPE-CODE FALSE> - PHRASE86>
6997 <TYPE? ADDR120 <TYPE-CODE FALSE> + PHRASE83>
6999 <TYPE? ARG235 <TYPE-CODE ATOM> - PHRASE83>
7003 <CALL '
\1aLOAD-AC 2 = AC241>
7006 <SET AC241 'X* (TYPE ATOM)>
7008 <EQUAL? ARG235 1 - PHRASE88>
7011 <CALL '
\1aGET-AC 1 = TEMP48>
7012 <NTHUV TEMP48 5 = TEMP48>
7013 <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE88>
7018 <CALL '
\1aIN-AC? 2 = TEMP48>
7019 <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE92>
7020 <FRAME '
\1aMUNGED-AC>
7024 <CALL '
\1aMUNGED-AC 2>
7027 <FRAME '
\1aMUNGED-AC>
7029 <CALL '
\1aMUNGED-AC 1>
7032 <SET SOJ30 %<> (TYPE FALSE)>
7034 <FRAME '
\1aLABEL-UPDATE-ACS>
7038 <VEQUAL? AC137 'X* - TAG102>
7039 <SET TEMP48 %<> (TYPE FALSE)>
7042 <VEQUAL? AC137 'O* - TAG103>
7043 <SET TEMP48 %<> (TYPE FALSE)>
7050 <EQUAL? AC241 'X* - TAG107>
7051 <SET TEMP48 %<> (TYPE FALSE)>
7054 <EQUAL? AC241 'O* - TAG108>
7055 <SET TEMP48 %<> (TYPE FALSE)>
7062 <CALL '
\1aLABEL-UPDATE-ACS 5 = TEMP62>
7063 <VEQUAL? AC137 'X* + PHRASE110>
7064 <VEQUAL? AC137 'O* + PHRASE110>
7065 <NTH1 TEMP62 = TEMP48>
7066 <EQUAL? TEMP48 AC137 + PHRASE110>
7069 <NTH1 TEMP62 = AC137>
7071 <CALL '
\1aGET-AC 1 = TEMP48>
7072 <NTHUV TEMP48 4 = AC-T139 (TYPE FIX)>
7075 <EQUAL? AC241 'X* + PHRASE114>
7076 <EQUAL? AC241 'O* + PHRASE114>
7080 <CALL '
\1aNTH 2 = TEMP48>
7081 <EQUAL? TEMP48 AC241 + PHRASE114>
7088 <CALL '
\1aNTH 2 = AC241>
7090 <CALL '
\1aGET-AC 1 = TEMP48>
7091 <NTHUV TEMP48 4 = AC-T240 (TYPE FIX)>
7094 <VEQUAL? KL45 0 - PHRASE120>
7096 <EQUAL? DIR43 '- - PHRASE120>
7100 <SET JUMP26 JUMPX29>
7102 <TYPE? SOJ30 <TYPE-CODE FALSE> + PHRASE123>
7106 <SET SKIP32 SKIPX33>
7108 <TYPE? OFF22 <TYPE-CODE FALSE> + PHRASE125>
7109 <TYPE? TY23 <TYPE-CODE FALSE> + PHRASE125>
7111 <GVAL 'ACS = TEMP48>
7112 <EMPUV? TEMP48 + TAG128>
7113 <LOOP (AC137 VALUE) (TEMP48 LENGTH VALUE)>
7115 <NTHUV TEMP48 1 = TEMP62>
7116 <TYPE? TEMP62 <TYPE-CODE ATOM> - TAG131>
7117 <VEQUAL? TEMP62 AC137 + TAG129>
7120 <RESTUV TEMP48 1 = TEMP48 (TYPE VECTOR)>
7121 <EMPUV? TEMP48 - TAG130>
7123 <SET TEMP48 %<> (TYPE FALSE)>
7125 <NTHUV TEMP48 2 = TEMP48>
7126 <LSH TEMP48 18 = TEMP48 (TYPE FIX)>
7127 <OR TEMP48 #WORD *222000000000* = STACK>
7132 <CALL '
\1a- 2 = STACK>
7133 <CALL '
\1a+ 2 = TEMP48>
7134 <FRAME '
\1aCONST-LOC>
7137 <CALL '
\1aCONST-LOC 2>
7141 <SET TEMP62 2 (TYPE FIX)>
7145 <SCALL '
\1aOBJ-VAL 1 = TEMP48 + TAG134 TEMP62>
7146 <LOOP (TEMP48 TYPE VALUE LENGTH) (TEMP62 VALUE)>
7149 <EMPTY? TEMP48 + TAG134>
7150 <NTH1 TEMP48 = STACK>
7151 <REST1 TEMP48 = TEMP48>
7152 <ADD TEMP62 1 = TEMP62 (TYPE FIX)>
7155 <CALL '
\1aOCEMIT TEMP62>
7166 <SET SKIP32 SKIPX33>
7169 <EQUAL? ARG235 0 - PHRASE140>
7170 <TYPE? OFF22 <TYPE-CODE FALSE> + PHRASE142>
7171 <TYPE? OFF22 <TYPE-CODE FIX> - PHRASE144>
7178 <CONS AC137 () = STACK>
7186 <SET TEMP48 2 (TYPE FIX)>
7189 <LOOP (TEMP62 TYPE VALUE LENGTH) (TEMP48 VALUE)>
7192 <EMPTY? TEMP62 + TAG147>
7193 <NTH1 TEMP62 = STACK>
7194 <REST1 TEMP62 = TEMP62>
7195 <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
7198 <CALL '
\1aOCEMIT TEMP48>
7201 <TYPE? TY23 <TYPE-CODE FALSE> + PHRASE151>
7214 <CALL '
\1aXJUMP 1 = STACK>
7218 <VEQUAL? AC137 'X* - PHRASE155>
7222 <SET TEMP62 1 (TYPE FIX)>
7226 <SCALL '
\1aOBJ-VAL 1 = TEMP48 + TAG156 TEMP62>
7227 <LOOP (TEMP48 TYPE VALUE LENGTH) (TEMP62 VALUE)>
7230 <EMPTY? TEMP48 + TAG156>
7231 <NTH1 TEMP48 = STACK>
7232 <REST1 TEMP48 = TEMP48>
7233 <ADD TEMP62 1 = TEMP62 (TYPE FIX)>
7236 <CALL '
\1aOCEMIT TEMP62>
7243 <CALL '
\1aXJUMP 1 = STACK>
7254 <CALL '
\1aXJUMP 1 = STACK>
7258 <EQUAL? ARG235 1 - PHRASE165>
7261 <CALL '
\1aGET-AC 1 = TEMP62>
7262 <NTHUV TEMP62 5 = TEMP62>
7263 <TYPE? TEMP62 <TYPE-CODE FALSE> - PHRASE165>
7265 <TYPE? SOJ30 <TYPE-CODE FALSE> + PHRASE165>
7273 <CALL '
\1aXJUMP 1 = STACK>
7277 <TYPE? ARG235 <TYPE-CODE FIX> - PHRASE170>
7278 <LESS? ARG235 0 + PHRASE170 (TYPE FIX)>
7279 <GVAL 'MAX-IMMEDIATE = TEMP62>
7280 <GRTR? ARG235 TEMP62 + PHRASE170 (TYPE FIX)>
7294 <CALL '
\1aXJUMP 1 = STACK>
7298 <TYPE? OFF22 <TYPE-CODE FALSE> + PHRASE177>
7299 <VEQUAL? SWAPPED?47 0 + PHRASE179>
7301 <TYPE? OFF22 <TYPE-CODE FIX> - PHRASE181>
7308 <CONS AC241 () = STACK>
7316 <SET TEMP48 2 (TYPE FIX)>
7319 <LOOP (TEMP62 TYPE VALUE LENGTH) (TEMP48 VALUE)>
7322 <EMPTY? TEMP62 + TAG184>
7323 <NTH1 TEMP62 = STACK>
7324 <REST1 TEMP62 = TEMP62>
7325 <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
7328 <CALL '
\1aOCEMIT TEMP48>
7332 <TYPE? OFF22 <TYPE-CODE FIX> - PHRASE187>
7339 <CONS AC137 () = STACK>
7347 <SET TEMP62 2 (TYPE FIX)>
7350 <LOOP (TEMP48 TYPE VALUE LENGTH) (TEMP62 VALUE)>
7353 <EMPTY? TEMP48 + TAG190>
7354 <NTH1 TEMP48 = STACK>
7355 <REST1 TEMP48 = TEMP48>
7356 <ADD TEMP62 1 = TEMP62 (TYPE FIX)>
7359 <CALL '
\1aOCEMIT TEMP62>
7362 <TYPE? TY23 <TYPE-CODE FALSE> + PHRASE194>
7375 <CALL '
\1aXJUMP 1 = STACK>
7379 <EQUAL? AC241 'X* - PHRASE200>
7384 <SET TEMP48 2 (TYPE FIX)>
7388 <SCALL '
\1aOBJ-VAL 1 = TEMP62 + TAG201 TEMP48>
7389 <LOOP (TEMP62 TYPE VALUE LENGTH) (TEMP48 VALUE)>
7392 <EMPTY? TEMP62 + TAG201>
7393 <NTH1 TEMP62 = STACK>
7394 <REST1 TEMP62 = TEMP62>
7395 <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
7398 <CALL '
\1aOCEMIT TEMP48>
7414 <CALL '
\1aXJUMP 1 = STACK>
7417 <TYPE? AC-T139 <TYPE-CODE FALSE> + PHRASE210>
7421 <CALL '
\1aGET-AC 1 = TEMP48>
7422 <PUTUV TEMP48 4 AC-T139 (TYPE FIX)>
7423 <DEAD TEMP48 AC-T139>
7425 <SET TEMP48 AC-T240>
7426 <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE213>
7430 <CALL '
\1aGET-AC 1 = TEMP62>
7431 <PUTUV TEMP62 4 AC-T240 (TYPE FIX)>
7438 <END
\1aVEQUAL?!-MIMOC>
7440 <GFCN
\1aLESS?!-MIMOC ("VALUE" <OR FALSE AC> LIST) L5>
7443 <FRAME '
\1aVEQUAL?!-MIMOC>
7460 <CALL '
\1aVEQUAL?!-MIMOC 15 = TEMP7>
7463 <END
\1aLESS?!-MIMOC>
7465 <GFCN
\1aGRTR?!-MIMOC ("VALUE" <OR FALSE AC> LIST) L5>
7468 <FRAME '
\1aVEQUAL?!-MIMOC>
7485 <CALL '
\1aVEQUAL?!-MIMOC 15 = TEMP7>
7488 <END
\1aGRTR?!-MIMOC>
7489 <SETG COMPARERS [VEQUAL!-MIMOC LESS?!-MIMOC GRTR?!-MIMOC]>
7492 <GFCN
\1aMUL!-MIMOC ("VALUE" ANY LIST) L5>
7495 <FRAME '
\1aARITH!-MIMOC>
7502 <CALL '
\1aARITH!-MIMOC 5 = TEMP7>
7507 <GFCN
\1aMULF!-MIMOC ("VALUE" ANY LIST) L4>
7510 <FRAME '
\1aARITH!-MIMOC>
7518 <CALL '
\1aARITH!-MIMOC 6 = TEMP6>
7521 <END
\1aMULF!-MIMOC>
7523 <GFCN
\1aSUB!-MIMOC ("VALUE" ANY LIST) L5>
7526 <FRAME '
\1aARITH!-MIMOC>
7533 <CALL '
\1aARITH!-MIMOC 5 = TEMP7>
7538 <GFCN
\1aSUBF!-MIMOC ("VALUE" ANY LIST) L4>
7541 <FRAME '
\1aARITH!-MIMOC>
7549 <CALL '
\1aARITH!-MIMOC 6 = TEMP6>
7552 <END
\1aSUBF!-MIMOC>
7554 <GFCN
\1aDIV!-MIMOC ("VALUE" ANY LIST) L5>
7557 <FRAME '
\1aARITH!-MIMOC>
7564 <CALL '
\1aARITH!-MIMOC 5 = TEMP7>
7569 <GFCN
\1aDIVF!-MIMOC ("VALUE" ANY LIST) L4>
7572 <FRAME '
\1aARITH!-MIMOC>
7580 <CALL '
\1aARITH!-MIMOC 6 = TEMP6>
7583 <END
\1aDIVF!-MIMOC>
7585 <GFCN
\1aADD!-MIMOC ("VALUE" ANY LIST) L5>
7588 <FRAME '
\1aARITH!-MIMOC>
7591 <CALL '
\1aARITH!-MIMOC 1 = TEMP7>
7596 <GFCN
\1aADDF!-MIMOC ("VALUE" ANY LIST) L4>
7599 <FRAME '
\1aARITH!-MIMOC>
7607 <CALL '
\1aARITH!-MIMOC 6 = TEMP6>
7610 <END
\1aADDF!-MIMOC>
7612 <GFCN
\1aMOD!-MIMOC ("VALUE" ANY LIST) L5>
7615 <FRAME '
\1aARITH!-MIMOC>
7622 <CALL '
\1aARITH!-MIMOC 5 = TEMP7>
7627 <GFCN
\1aXOR!-MIMOC ("VALUE" ANY LIST) L5>
7630 <FRAME '
\1aARITH!-MIMOC>
7637 <CALL '
\1aARITH!-MIMOC 5 = TEMP7>
7642 <GFCN
\1aEQV!-MIMOC ("VALUE" ANY LIST) L5>
7645 <FRAME '
\1aARITH!-MIMOC>
7652 <CALL '
\1aARITH!-MIMOC 5 = TEMP7>
7657 <GFCN
\1aOR!-MIMOC ("VALUE" ANY LIST) L5>
7660 <FRAME '
\1aARITH!-MIMOC>
7667 <CALL '
\1aARITH!-MIMOC 5 = TEMP7>
7672 <GFCN
\1aARITH!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ATOM ATOM <OR ATOM LIST FALSE> ANY ANY) L10 NORM11 IMMED12 HACK13 BO14 RESTYP15>
7673 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7 OPT8 OPT9>
7685 <TEMP ARG118 TEMP25 ARG219 VAL20:ATOM TEM22 (IMM-OK23 %<>) (NEG-FIRST24 %<>) OAC17 TEMP54 HACK221:ATOM>
7687 <NTHL L10 1 = ARG118>
7688 <RESTL L10 1 = TEMP25 (TYPE LIST)>
7689 <NTHL TEMP25 1 = ARG219>
7691 <RESTL L10 1 = TEMP25 (TYPE LIST)>
7693 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
7694 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
7695 <NTHL TEMP25 1 = VAL20 (TYPE ATOM)>
7698 <EQUAL? ARG118 1 - PHRASE27>
7699 <VEQUAL? NORM11 'ADD - PHRASE27>
7702 <SET ARG219 1 (TYPE FIX)>
7704 <EQUAL? ARG219 VAL20 - BOOL33>
7708 <CALL '
\1aIN-AC? 2 = TEMP25>
7709 <TYPE? TEMP25 <TYPE-CODE FALSE> + BOOL41>
7711 <FRAME '
\1aWILL-DIE?>
7713 <CALL '
\1aWILL-DIE? 1 = TEMP25>
7714 <TYPE? TEMP25 <TYPE-CODE FALSE> + BOOL41>
7720 <CALL '
\1aIN-AC? 2 = TEMP25>
7721 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE30>
7725 <CALL '
\1aIN-AC? 2 = OAC17>
7726 <TYPE? OAC17 <TYPE-CODE FALSE> + BOOL41>
7727 <EQUAL? ARG118 VAL20 + PHRASE30>
7731 <CALL '
\1aGET-AC 1 = OAC17>
7732 <NTHUV OAC17 5 = OAC17>
7733 <TYPE? OAC17 <TYPE-CODE FALSE> + BOOL44>
7735 <FRAME '
\1aWILL-DIE?>
7737 <CALL '
\1aWILL-DIE? 1 = OAC17>
7738 <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE30>
7744 <CALL '
\1aGET-AC 1 = OAC17>
7745 <NTHUV OAC17 5 = OAC17>
7746 <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE30>
7748 <FRAME '
\1aWILL-DIE?>
7750 <CALL '
\1aWILL-DIE? 1 = OAC17>
7751 <TYPE? OAC17 <TYPE-CODE FALSE> - PHRASE30>
7754 <EQUAL? ARG118 0 + PHRASE30>
7755 <EQUAL? ARG118 0.0 + PHRASE30>
7756 <SET OAC17 [ADD MUL IOR XOR AND EQV] (TYPE VECTOR)>
7757 <LOOP (NORM11 VALUE) (OAC17 LENGTH VALUE)>
7759 <NTHUV OAC17 1 = TEMP54>
7760 <VEQUAL? TEMP54 NORM11 + BOOL50>
7762 <RESTUV OAC17 1 = OAC17 (TYPE VECTOR)>
7763 <EMPUV? OAC17 - TAG52>
7764 <VEQUAL? NORM11 'SUB - BOOL55>
7765 <SET NEG-FIRST24 'T (TYPE ATOM)>
7766 <SET IMMED12 'ADDI (TYPE ATOM)>
7767 <SET NORM11 'ADD (TYPE ATOM)>
7768 <SET BO14 'ADDB (TYPE ATOM)>
7771 <VEQUAL? NORM11 'FSBR - PHRASE30>
7772 <SET NEG-FIRST24 'T (TYPE ATOM)>
7773 <SET IMMED12 'FADRI (TYPE ATOM)>
7774 <SET NORM11 'FADR (TYPE ATOM)>
7775 <SET BO14 'FADRB (TYPE ATOM)>
7783 <FRAME '
\1aPRIMTYPE>
7785 <CALL '
\1aPRIMTYPE 1 = OAC17>
7786 <VEQUAL? OAC17 'WORD + BOOL59>
7788 <FRAME '
\1aPRIMTYPE>
7790 <CALL '
\1aPRIMTYPE 1 = OAC17>
7791 <VEQUAL? OAC17 'FIX - PHRASE70>
7794 <VEQUAL? NORM11 'ADD + BOOL62>
7795 <VEQUAL? NORM11 'SUB - PHRASE70>
7797 <LESS? ARG219 0 - PHRASE70 (TYPE FIX)>
7798 <GVAL 'MAX-IMMEDIATE = OAC17>
7799 <CHTYPE ARG219 <TYPE-CODE FIX> = TEMP54>
7800 <LESS? TEMP54 0 - TAG65 (TYPE FIX)>
7801 <SUB 0 TEMP54 = TEMP54 (TYPE FIX)>
7803 <GRTR? OAC17 TEMP54 - PHRASE70 (TYPE FIX)>
7805 <TYPE? ARG219 <TYPE-CODE FIX> - TAG66>
7806 <SUB 0 ARG219 = ARG219 (TYPE FIX)>
7809 <SUBF 0.0 ARG219 = ARG219 (TYPE FLOAT)>
7811 <VEQUAL? NORM11 'ADD - PHRASE69>
7813 <SET NORM11 'SUB (TYPE ATOM)>
7814 <SET IMMED12 'SUBI (TYPE ATOM)>
7817 <SET NORM11 'ADD (TYPE ATOM)>
7818 <SET IMMED12 'ADDI (TYPE ATOM)>
7820 <FRAME '
\1aPRIMTYPE>
7822 <CALL '
\1aPRIMTYPE 1 = OAC17>
7823 <VEQUAL? OAC17 'WORD + BOOL74>
7825 <FRAME '
\1aPRIMTYPE>
7827 <CALL '
\1aPRIMTYPE 1 = OAC17>
7828 <VEQUAL? OAC17 'FIX - PHRASE72>
7831 <CHTYPE ARG219 <TYPE-CODE FIX> = ARG219>
7832 <GVAL 'MAX-IMMEDIATE = OAC17>
7833 <GRTR? ARG219 OAC17 + BOOL78 (TYPE FIX)>
7835 <LESS? ARG219 0 - PHRASE101 (TYPE FIX)>
7837 <AND ARG219 #WORD *777777* = OAC17>
7838 <VEQUAL? OAC17 0 - BOOL91 (TYPE FIX)>
7840 <VEQUAL? NORM11 'IOR + BOOL86>
7841 <VEQUAL? NORM11 'XOR - BOOL85>
7843 <LSH ARG219 -18 = ARG219 (TYPE FIX)>
7844 <SET IMMED12 HACK13>
7845 <VEQUAL? HACK13 'TLO - PHRASE101>
7846 <VEQUAL? ARG219 262143 - PHRASE101 (TYPE FIX)>
7847 <SET IMMED12 'HRLI (TYPE ATOM)>
7848 <SET HACK13 'HRROS (TYPE ATOM)>
7849 <SET HACK221 'HRRO (TYPE ATOM)>
7852 <SET OAC17 [FADR FSBR FDVR FMPR] (TYPE VECTOR)>
7853 <LOOP (NORM11 VALUE) (OAC17 LENGTH VALUE)>
7855 <NTHUV OAC17 1 = TEMP54>
7856 <VEQUAL? TEMP54 NORM11 + TAG92>
7858 <RESTUV OAC17 1 = OAC17 (TYPE VECTOR)>
7859 <EMPUV? OAC17 - TAG93>
7862 <LSH ARG219 -18 = ARG219 (TYPE FIX)>
7865 <VEQUAL? NORM11 'AND + BOOL96>
7866 <VEQUAL? NORM11 'EQV - PHRASE72>
7868 <AND ARG219 #WORD *777777* = OAC17>
7869 <VEQUAL? OAC17 262143 - BOOL98 (TYPE FIX)>
7871 <XOR ARG219 #WORD *777777777777* = OAC17>
7873 <LSH OAC17 -18 = ARG219 (TYPE FIX)>
7875 <NTHL HACK13 1 = IMMED12 (TYPE ATOM)>
7878 <LSH ARG219 -18 = OAC17 (TYPE FIX)>
7879 <AND OAC17 #WORD *777777* = OAC17>
7880 <VEQUAL? OAC17 262143 - PHRASE72 (TYPE FIX)>
7882 <XOR ARG219 #WORD *777777777777* = OAC17>
7884 <AND OAC17 #WORD *777777* = ARG219>
7886 <RESTL HACK13 1 = OAC17 (TYPE LIST)>
7887 <NTHL OAC17 1 = IMMED12 (TYPE ATOM)>
7889 <VEQUAL? ARG219 262143 - PHRASE101 (TYPE FIX)>
7890 <VEQUAL? IMMED12 'TRZ - PHRASE101>
7891 <SET HACK13 'HLLZS (TYPE ATOM)>
7892 <SET HACK221 'HLLZ (TYPE ATOM)>
7894 <SET IMM-OK23 'T (TYPE ATOM)>
7895 <EQUAL? ARG118 VAL20 + BOOL112>
7896 <FRAME '
\1aWILL-DIE?>
7898 <CALL '
\1aWILL-DIE? 1 = OAC17>
7899 <TYPE? OAC17 <TYPE-CODE FALSE> + BOOL105>
7901 <VEQUAL? VAL20 'STACK + BOOL105>
7902 <FRAME '
\1aDEAD!-MIMOC>
7903 <CONS ARG118 () = STACK>
7905 <CALL '
\1aDEAD!-MIMOC 2>
7911 <CALL '
\1aIN-AC? 2 = TEMP54>
7912 <TYPE? TEMP54 <TYPE-CODE FALSE> - PHRASE72>
7914 <VEQUAL? HACK13 'HRROS + BOOL112>
7915 <VEQUAL? HACK13 'HLLZS + BOOL112>
7916 <VEQUAL? IMMED12 'ANDI - PHRASE72>
7917 <VEQUAL? ARG219 262143 - PHRASE72 (TYPE FIX)>
7922 <CALL '
\1aIN-AC? 2 = TEMP25>
7923 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE115>
7924 <VEQUAL? VAL20 'STACK + PHRASE135>
7925 <EQUAL? ARG118 VAL20 + PHRASE135>
7926 <FRAME '
\1aCLEAN-ACS>
7928 <CALL '
\1aCLEAN-ACS 1>
7931 <CALL '
\1aGET-AC 1 = TEMP54>
7932 <PUTUV TEMP54 2 VAL20>
7933 <PUTUV TEMP54 3 'VALUE (TYPE ATOM)>
7939 <CALL '
\1aGETPROP 2 = OAC17>
7942 <CALL '
\1aGET-AC 1 = IMM-OK23>
7943 <NTHUV IMM-OK23 2 = OAC17>
7944 <EQUAL? OAC17 ARG118 + BOOL131>
7946 <FRAME '
\1aVAR-TYPED?>
7948 <CALL '
\1aVAR-TYPED? 1 = TEM22>
7949 <TYPE? TEM22 <TYPE-CODE FALSE> + PHRASE135>
7951 <PUTUV IMM-OK23 6 RESTYP15>
7953 <PUTUV IMM-OK23 2 VAL20>
7955 <PUTUV IMM-OK23 3 'TYPE (TYPE ATOM)>
7956 <PUTUV IMM-OK23 5 'T>
7957 <NTHUV IMM-OK23 6 = OAC17>
7958 <TYPE? OAC17 <TYPE-CODE FALSE> + BOOL137>
7960 <NTHUV IMM-OK23 6 = OAC17 (TYPE ATOM)>
7961 <EQUAL? OAC17 RESTYP15 - BOOL139>
7964 <NTHUV IMM-OK23 6 = OAC17>
7965 <TYPE? OAC17 <TYPE-CODE FALSE> - PHRASE135>
7967 <FRAME '
\1aVAR-TYPED?>
7970 <CALL '
\1aVAR-TYPED? 1 = TEM22>
7971 <TYPE? TEM22 <TYPE-CODE FALSE> + BOOL139>
7972 <EQUAL? TEM22 RESTYP15 + PHRASE135>
7975 <PUTUV IMM-OK23 6 RESTYP15>
7976 <DEAD IMM-OK23 RESTYP15>
7978 <VEQUAL? NEG-FIRST24 0 + PHRASE142>
7986 <VEQUAL? NORM11 'IDIV + BOOL147>
7987 <VEQUAL? NORM11 'FDVR - PHRASE145>
7993 <CALL '
\1aNEXT-AC 1 = STACK>
7994 <CALL '
\1aGET-AC 1 = OAC17>
7995 <NTHUV OAC17 6 = OAC17>
7996 <TYPE? OAC17 <TYPE-CODE FALSE> - PHRASE145>
7998 <FRAME '
\1aFLUSH-AC>
8001 <CALL '
\1aNEXT-AC 1 = STACK>
8002 <CALL '
\1aFLUSH-AC 1>
8003 <FRAME '
\1aMUNGED-AC>
8006 <CALL '
\1aNEXT-AC 1 = STACK>
8007 <CALL '
\1aMUNGED-AC 1>
8017 <CALL '
\1aGET-AC 1 = OAC17>
8020 <VEQUAL? HACK13 'MOD + TAG158>
8027 <CALL '
\1aNEXT-AC 1 = STACK>
8028 <CALL '
\1aGET-AC 1 = IMM-OK23>
8029 <NTHUV IMM-OK23 6 = ARG118>
8030 <PUTUV IMM-OK23 6 %<>>
8036 <CALL '
\1aNEXT-AC 1 = STACK>
8045 <PUTUV IMM-OK23 6 ARG118>
8050 <VEQUAL? ARG219 1 - PHRASE171 (TYPE FIX)>
8051 <SET TEM22 [ADD SUB] (TYPE VECTOR)>
8052 <LOOP (NORM11 VALUE) (TEM22 LENGTH VALUE)>
8054 <NTHUV TEM22 1 = TEMP54>
8055 <VEQUAL? TEMP54 NORM11 + TAG175>
8057 <RESTUV TEM22 1 = TEM22 (TYPE VECTOR)>
8058 <EMPUV? TEM22 - TAG176>
8061 <FRAME '
\1aASSIGN-AC>
8064 <CALL '
\1aASSIGN-AC 2 = TEMP25>
8068 <CALL '
\1aNEXT-AC 1 = STACK>
8069 <CALL '
\1aGET-AC 1 = TEM22>
8070 <EQUAL? ARG118 VAL20 + TAG183>
8071 <SET TEMP54 'T (TYPE ATOM)>
8074 <SET TEMP54 %<> (TYPE FALSE)>
8076 <PUTUV TEM22 5 TEMP54>
8080 <CALL '
\1aGET-AC 1 = TEM22>
8081 <EQUAL? ARG118 VAL20 + TAG186>
8082 <SET TEMP54 'T (TYPE ATOM)>
8085 <SET TEMP54 %<> (TYPE FALSE)>
8087 <PUTUV TEM22 5 TEMP54>
8094 <CALL '
\1aNEXT-AC 1 = STACK>
8095 <SET TEMP54 2 (TYPE FIX)>
8099 <SCALL '
\1aOBJ-VAL 1 = TEM22 + TAG188 TEMP54>
8100 <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8103 <EMPTY? TEM22 + TAG188>
8104 <NTH1 TEM22 = STACK>
8105 <REST1 TEM22 = TEM22>
8106 <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8109 <CALL '
\1aOCEMIT TEMP54>
8114 <CALL '
\1aNEXT-AC 1 = STACK>
8115 <CALL '
\1aGET-AC 1 = TEMP54>
8116 <PUTUV TEMP54 2 VAL20>
8121 <CALL '
\1aNEXT-AC 1 = STACK>
8122 <CALL '
\1aGET-AC 1 = TEMP54>
8123 <PUTUV TEMP54 3 'VALUE (TYPE ATOM)>
8128 <CALL '
\1aGET-AC 1 = TEMP54>
8129 <PUTUV TEMP54 6 'FIX>
8133 <VEQUAL? HACK13 'HRROS + BOOL199>
8134 <VEQUAL? HACK13 'HLLZS + BOOL199>
8135 <VEQUAL? IMMED12 'ANDI - PHRASE198>
8136 <VEQUAL? ARG219 262143 - PHRASE198 (TYPE FIX)>
8137 <SET HACK13 'HRRZS (TYPE ATOM)>
8138 <SET HACK221 'HRRZ (TYPE ATOM)>
8140 <VEQUAL? VAL20 'STACK + PHRASE202>
8141 <FRAME '
\1aASSIGN-AC>
8144 <CALL '
\1aASSIGN-AC 2 = TEMP25>
8148 <CALL '
\1aNEXT-AC 1 = STACK>
8149 <CALL '
\1aGET-AC 1 = TEMP54>
8150 <EQUAL? VAL20 ARG118 + TAG206>
8151 <SET TEM22 'T (TYPE ATOM)>
8154 <SET TEM22 %<> (TYPE FALSE)>
8156 <PUTUV TEMP54 5 TEM22>
8160 <CALL '
\1aGET-AC 1 = TEMP54>
8161 <EQUAL? VAL20 ARG118 + TAG209>
8162 <SET TEM22 'T (TYPE ATOM)>
8165 <SET TEM22 %<> (TYPE FALSE)>
8167 <PUTUV TEMP54 5 TEM22>
8170 <EQUAL? VAL20 ARG118 - PHRASE213>
8175 <SET TEMP54 HACK221>
8182 <CALL '
\1aNEXT-AC 1 = STACK>
8183 <SET TEM22 2 (TYPE FIX)>
8187 <SCALL '
\1aOBJ-VAL 1 = TEMP54 + TAG211 TEM22>
8188 <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8191 <EMPTY? TEMP54 + TAG211>
8192 <NTH1 TEMP54 = STACK>
8193 <REST1 TEMP54 = TEMP54>
8194 <ADD TEM22 1 = TEM22 (TYPE FIX)>
8197 <CALL '
\1aOCEMIT TEM22>
8202 <CALL '
\1aNEXT-AC 1 = STACK>
8203 <CALL '
\1aGET-AC 1 = TEM22>
8204 <PUTUV TEM22 2 VAL20>
8209 <CALL '
\1aNEXT-AC 1 = STACK>
8210 <CALL '
\1aGET-AC 1 = TEM22>
8211 <PUTUV TEM22 3 'VALUE (TYPE ATOM)>
8216 <CALL '
\1aGET-AC 1 = TEM22>
8217 <PUTUV TEM22 6 'FIX>
8225 <SET TEMP54 2 (TYPE FIX)>
8229 <SCALL '
\1aOBJ-VAL 1 = TEM22 + TAG225 TEMP54>
8230 <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8233 <EMPTY? TEM22 + TAG225>
8234 <NTH1 TEM22 = STACK>
8235 <REST1 TEM22 = TEM22>
8236 <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8239 <CALL '
\1aOCEMIT TEMP54>
8244 <SET TEM22 2 (TYPE FIX)>
8248 <SCALL '
\1aTYPE-WORD 1 = TEMP54 + TAG229 TEM22>
8249 <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8252 <EMPTY? TEMP54 + TAG229>
8253 <NTH1 TEMP54 = STACK>
8254 <REST1 TEMP54 = TEMP54>
8255 <ADD TEM22 1 = TEM22 (TYPE FIX)>
8258 <CALL '
\1aOCEMIT TEM22>
8265 <GVAL 'WINNING-VICTIM = OAC17>
8266 <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE254>
8267 <GVAL 'STACK-DEPTH = TEM22>
8268 <ADD TEM22 2 = TEM22 (TYPE FIX)>
8269 <SETG 'STACK-DEPTH TEM22>
8273 <VEQUAL? HACK13 'MOD - PHRASE236>
8275 <FRAME '
\1aASSIGN-AC>
8279 <CALL '
\1aASSIGN-AC 3 = TEMP25>
8283 <SET TEMP54 2 (TYPE FIX)>
8287 <SCALL '
\1aOBJ-VAL 1 = TEM22 + TAG238 TEMP54>
8288 <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8291 <EMPTY? TEM22 + TAG238>
8292 <NTH1 TEM22 = STACK>
8293 <REST1 TEM22 = TEM22>
8294 <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8297 <CALL '
\1aOCEMIT TEMP54>
8309 <CALL '
\1aNEXT-AC 1 = STACK>
8315 <CALL '
\1aNEXT-AC 1 = STACK>
8321 <CALL '
\1aGET-AC 1 = TEMP54>
8322 <PUTUV TEMP54 6 'FIX>
8327 <CALL '
\1aNEXT-AC 1 = STACK>
8328 <CALL '
\1aGET-AC 1 = TEMP54>
8329 <PUTUV TEMP54 2 VAL20>
8334 <CALL '
\1aNEXT-AC 1 = STACK>
8335 <CALL '
\1aGET-AC 1 = TEMP54>
8336 <PUTUV TEMP54 3 'VALUE (TYPE ATOM)>
8342 <CALL '
\1aNEXT-AC 1 = STACK>
8343 <CALL '
\1aGET-AC 1 = TEMP54>
8348 <VEQUAL? NEG-FIRST24 0 + PHRASE256>
8350 <FRAME '
\1aASSIGN-AC>
8353 <CALL '
\1aASSIGN-AC 2 = TEMP25>
8358 <CALL '
\1aNEXT-AC 1 = STACK>
8359 <SET TEM22 2 (TYPE FIX)>
8362 <SCALL '
\1aOBJ-VAL 1 = TEMP54 + TAG258 TEM22>
8363 <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8366 <EMPTY? TEMP54 + TAG258>
8367 <NTH1 TEMP54 = STACK>
8368 <REST1 TEMP54 = TEMP54>
8369 <ADD TEM22 1 = TEM22 (TYPE FIX)>
8372 <CALL '
\1aOCEMIT TEM22>
8376 <CALL '
\1aGET-AC 1 = TEM22>
8377 <PUTUV TEM22 6 RESTYP15>
8385 <CALL '
\1aLOAD-AC 3 = TEMP25>
8387 <EQUAL? ARG118 VAL20 + PHRASE267>
8388 <FRAME '
\1aDEAD!-MIMOC>
8389 <CONS ARG118 () = STACK>
8391 <CALL '
\1aDEAD!-MIMOC 2>
8394 <CALL '
\1aGET-AC 1 = TEM22>
8395 <NTHUV TEM22 6 = TEMP54>
8396 <TYPE? TEMP54 <TYPE-CODE FALSE> + BOOL277>
8398 <NTHUV TEM22 6 = TEMP54 (TYPE ATOM)>
8399 <EQUAL? TEMP54 RESTYP15 - BOOL279>
8402 <NTHUV TEM22 6 = TEMP54>
8403 <TYPE? TEMP54 <TYPE-CODE FALSE> - PHRASE275>
8405 <FRAME '
\1aVAR-TYPED?>
8408 <CALL '
\1aVAR-TYPED? 1 = ARG118>
8409 <TYPE? ARG118 <TYPE-CODE FALSE> + BOOL279>
8410 <EQUAL? ARG118 RESTYP15 + PHRASE275>
8413 <PUTUV TEM22 6 RESTYP15>
8414 <DEAD TEM22 RESTYP15>
8416 <FRAME '
\1aCLEAN-ACS>
8418 <CALL '
\1aCLEAN-ACS 1>
8419 <FRAME '
\1aALTER-AC>
8423 <CALL '
\1aALTER-AC 2>
8428 <CALL '
\1aNEXT-AC 1 = TEMP25>
8429 <VEQUAL? NORM11 'IDIV + BOOL286>
8430 <VEQUAL? NORM11 'FDVR - PHRASE285>
8433 <FRAME '
\1aFLUSH-AC>
8436 <CALL '
\1aNEXT-AC 1 = STACK>
8437 <CALL '
\1aFLUSH-AC 1>
8438 <FRAME '
\1aMUNGED-AC>
8441 <CALL '
\1aNEXT-AC 1 = STACK>
8442 <CALL '
\1aMUNGED-AC 1>
8451 <CALL '
\1aOCEMIT 3 = OAC17>
8456 <EQUAL? ARG118 0 + BOOL294>
8457 <EQUAL? ARG118 0.0 - PHRASE292>
8459 <VEQUAL? NORM11 'SUB + BOOL295>
8460 <VEQUAL? NORM11 'FSBR - PHRASE292>
8465 <CALL '
\1aIN-AC? 2 = TEMP25>
8466 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE297>
8467 <EQUAL? ARG219 VAL20 - PHRASE300>
8471 <CALL '
\1aGET-AC 1 = TEMP54>
8479 <CALL '
\1aOCEMIT 3 = OAC17>
8483 <VEQUAL? VAL20 'STACK - PHRASE303>
8493 <SET TEM22 2 (TYPE FIX)>
8497 <SCALL '
\1aTYPE-WORD 1 = TEMP54 + TAG305 TEM22>
8498 <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8501 <EMPTY? TEMP54 + TAG305>
8502 <NTH1 TEMP54 = STACK>
8503 <REST1 TEMP54 = TEMP54>
8504 <ADD TEM22 1 = TEM22 (TYPE FIX)>
8507 <CALL '
\1aOCEMIT TEM22>
8514 <GVAL 'WINNING-VICTIM = OAC17>
8515 <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE556>
8516 <GVAL 'STACK-DEPTH = TEM22>
8517 <ADD TEM22 2 = TEM22 (TYPE FIX)>
8518 <SETG 'STACK-DEPTH TEM22>
8524 <FRAME '
\1aASSIGN-AC>
8528 <CALL '
\1aASSIGN-AC 3 = TEMP25>
8531 <CALL '
\1aGET-AC 1 = TEM22>
8532 <PUTUV TEM22 6 RESTYP15>
8533 <DEAD TEM22 RESTYP15>
8537 <CALL '
\1aNEXT-AC 1 = STACK>
8538 <CALL '
\1aGET-AC 1 = TEM22>
8539 <PUTUV TEM22 2 VAL20>
8546 <CALL '
\1aNEXT-AC 1 = STACK>
8549 <CALL '
\1aOCEMIT 3 = OAC17>
8553 <EQUAL? ARG219 VAL20 - PHRASE320>
8557 <SET TEMP54 2 (TYPE FIX)>
8561 <SCALL '
\1aOBJ-VAL 1 = TEM22 + TAG321 TEMP54>
8562 <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8565 <EMPTY? TEM22 + TAG321>
8566 <NTH1 TEM22 = STACK>
8567 <REST1 TEM22 = TEM22>
8568 <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8571 <CALL '
\1aOCEMIT TEMP54 = OAC17>
8576 <VEQUAL? VAL20 'STACK - PHRASE325>
8580 <SET TEM22 2 (TYPE FIX)>
8584 <SCALL '
\1aOBJ-VAL 1 = TEMP54 + TAG326 TEM22>
8585 <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8588 <EMPTY? TEMP54 + TAG326>
8589 <NTH1 TEMP54 = STACK>
8590 <REST1 TEMP54 = TEMP54>
8591 <ADD TEM22 1 = TEM22 (TYPE FIX)>
8594 <CALL '
\1aOCEMIT TEM22>
8599 <SET TEMP54 2 (TYPE FIX)>
8603 <SCALL '
\1aTYPE-WORD 1 = TEM22 + TAG330 TEMP54>
8604 <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8607 <EMPTY? TEM22 + TAG330>
8608 <NTH1 TEM22 = STACK>
8609 <REST1 TEM22 = TEM22>
8610 <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8613 <CALL '
\1aOCEMIT TEMP54>
8620 <GVAL 'WINNING-VICTIM = OAC17>
8621 <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE337>
8622 <GVAL 'STACK-DEPTH = TEMP54>
8623 <ADD TEMP54 2 = TEMP54 (TYPE FIX)>
8624 <SETG 'STACK-DEPTH TEMP54>
8628 <FRAME '
\1aASSIGN-AC>
8633 <CALL '
\1aASSIGN-AC 3 = TEMP25>
8636 <CALL '
\1aGET-AC 1 = TEMP54>
8637 <PUTUV TEMP54 6 RESTYP15>
8638 <DEAD TEMP54 RESTYP15>
8644 <CALL '
\1aNEXT-AC 1 = STACK>
8645 <SET TEM22 2 (TYPE FIX)>
8649 <SCALL '
\1aOBJ-VAL 1 = TEMP54 + TAG340 TEM22>
8650 <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8653 <EMPTY? TEMP54 + TAG340>
8654 <NTH1 TEMP54 = STACK>
8655 <REST1 TEMP54 = TEMP54>
8656 <ADD TEM22 1 = TEM22 (TYPE FIX)>
8659 <CALL '
\1aOCEMIT TEM22 = OAC17>
8665 <VEQUAL? HACK13 'MOD - PHRASE345>
8666 <EQUAL? ARG118 VAL20 - PHRASE345>
8667 <FRAME '
\1aASSIGN-AC>
8671 <CALL '
\1aASSIGN-AC 3 = TEMP25>
8675 <SET TEMP54 2 (TYPE FIX)>
8678 <SCALL '
\1aOBJ-VAL 1 = TEM22 + TAG348 TEMP54>
8679 <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8682 <EMPTY? TEM22 + TAG348>
8683 <NTH1 TEM22 = STACK>
8684 <REST1 TEM22 = TEM22>
8685 <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8688 <CALL '
\1aOCEMIT TEMP54>
8693 <SET TEM22 2 (TYPE FIX)>
8696 <SCALL '
\1aOBJ-VAL 1 = TEMP54 + TAG352 TEM22>
8697 <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8700 <EMPTY? TEMP54 + TAG352>
8701 <NTH1 TEMP54 = STACK>
8702 <REST1 TEMP54 = TEMP54>
8703 <ADD TEM22 1 = TEM22 (TYPE FIX)>
8706 <CALL '
\1aOCEMIT TEM22>
8713 <CALL '
\1aNEXT-AC 1 = STACK>
8719 <CALL '
\1aNEXT-AC 1 = STACK>
8720 <SET TEMP54 2 (TYPE FIX)>
8724 <SCALL '
\1aOBJ-VAL 1 = TEM22 + TAG358 TEMP54>
8725 <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8728 <EMPTY? TEM22 + TAG358>
8729 <NTH1 TEM22 = STACK>
8730 <REST1 TEM22 = TEM22>
8731 <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8734 <CALL '
\1aOCEMIT TEMP54>
8738 <CALL '
\1aGET-AC 1 = TEMP54>
8739 <PUTUV TEMP54 6 'FIX>
8744 <CALL '
\1aNEXT-AC 1 = STACK>
8745 <CALL '
\1aGET-AC 1 = TEMP54>
8746 <PUTUV TEMP54 2 ARG118>
8747 <DEAD TEMP54 ARG118>
8751 <CALL '
\1aNEXT-AC 1 = STACK>
8752 <CALL '
\1aGET-AC 1 = TEMP54>
8753 <PUTUV TEMP54 3 'VALUE (TYPE ATOM)>
8759 <CALL '
\1aNEXT-AC 1 = STACK>
8760 <CALL '
\1aGET-AC 1 = TEMP54>
8765 <EQUAL? ARG118 VAL20 - PHRASE370>
8771 <CALL '
\1aLOAD-AC 2 = STACK>
8772 <CALL '
\1aNEXT-AC 1 = TEMP25>
8773 <VEQUAL? NEG-FIRST24 0 + PHRASE374>
8781 <VEQUAL? NORM11 'IDIV + BOOL378>
8782 <VEQUAL? NORM11 'FDVR - PHRASE377>
8784 <FRAME '
\1aFLUSH-AC>
8787 <CALL '
\1aNEXT-AC 1 = STACK>
8788 <CALL '
\1aFLUSH-AC 1>
8789 <FRAME '
\1aMUNGED-AC>
8792 <CALL '
\1aNEXT-AC 1 = STACK>
8793 <CALL '
\1aMUNGED-AC 1>
8799 <SET TEM22 2 (TYPE FIX)>
8803 <SCALL '
\1aOBJ-VAL 1 = TEMP54 + TAG383 TEM22>
8804 <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8807 <EMPTY? TEMP54 + TAG383>
8808 <NTH1 TEMP54 = STACK>
8809 <REST1 TEMP54 = TEMP54>
8810 <ADD TEM22 1 = TEM22 (TYPE FIX)>
8813 <CALL '
\1aOCEMIT TEM22>
8818 <CALL '
\1aGET-AC 1 = TEM22>
8823 <VEQUAL? HACK13 'MOD - PHRASE388>
8825 <EQUAL? ARG219 VAL20 - PHRASE390>
8826 <FRAME '
\1aSMASH-AC>
8830 <CALL '
\1aSMASH-AC 3>
8832 <FRAME '
\1aCLEAN-ACS>
8834 <CALL '
\1aCLEAN-ACS 1>
8835 <FRAME '
\1aASSIGN-AC>
8839 <CALL '
\1aASSIGN-AC 3 = TEMP25>
8843 <SET TEMP54 2 (TYPE FIX)>
8846 <SCALL '
\1aOBJ-VAL 1 = TEM22 + TAG394 TEMP54>
8847 <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8850 <EMPTY? TEM22 + TAG394>
8851 <NTH1 TEM22 = STACK>
8852 <REST1 TEM22 = TEM22>
8853 <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8856 <CALL '
\1aOCEMIT TEMP54>
8858 <TYPE? ARG219 <TYPE-CODE FIX> - PHRASE399>
8869 <CALL '
\1aNEXT-AC 1 = STACK>
8875 <CALL '
\1aNEXT-AC 1 = STACK>
8884 <SET TEM22 2 (TYPE FIX)>
8887 <SCALL '
\1aOBJ-VAL 1 = TEMP54 + TAG406 TEM22>
8888 <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8891 <EMPTY? TEMP54 + TAG406>
8892 <NTH1 TEMP54 = STACK>
8893 <REST1 TEMP54 = TEMP54>
8894 <ADD TEM22 1 = TEM22 (TYPE FIX)>
8897 <CALL '
\1aOCEMIT TEM22>
8904 <CALL '
\1aNEXT-AC 1 = STACK>
8910 <CALL '
\1aNEXT-AC 1 = STACK>
8911 <SET TEMP54 2 (TYPE FIX)>
8915 <SCALL '
\1aOBJ-VAL 1 = TEM22 + TAG412 TEMP54>
8916 <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8919 <EMPTY? TEM22 + TAG412>
8920 <NTH1 TEM22 = STACK>
8921 <REST1 TEM22 = TEM22>
8922 <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8925 <CALL '
\1aOCEMIT TEMP54>
8928 <VEQUAL? VAL20 'STACK - PHRASE418>
8933 <SET TEM22 2 (TYPE FIX)>
8936 <SCALL '
\1aTYPE-WORD 1 = TEMP54 + TAG419 TEM22>
8937 <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8940 <EMPTY? TEMP54 + TAG419>
8941 <NTH1 TEMP54 = STACK>
8942 <REST1 TEMP54 = TEMP54>
8943 <ADD TEM22 1 = TEM22 (TYPE FIX)>
8946 <CALL '
\1aOCEMIT TEM22>
8953 <CALL '
\1aNEXT-AC 1 = STACK>
8955 <GVAL 'WINNING-VICTIM = TEM22>
8956 <TYPE? TEM22 <TYPE-CODE FALSE> + PHRASE426>
8958 <GVAL 'STACK-DEPTH = TEM22>
8959 <ADD TEM22 2 = TEM22 (TYPE FIX)>
8960 <SETG 'STACK-DEPTH TEM22>
8963 <FRAME '
\1aMUNGED-AC>
8967 <CALL '
\1aMUNGED-AC 2 = OAC17>
8973 <CALL '
\1aGET-AC 1 = TEM22>
8974 <PUTUV TEM22 6 'FIX>
8979 <CALL '
\1aNEXT-AC 1 = STACK>
8980 <CALL '
\1aGET-AC 1 = TEM22>
8981 <PUTUV TEM22 2 ARG118>
8986 <CALL '
\1aNEXT-AC 1 = STACK>
8987 <CALL '
\1aGET-AC 1 = TEM22>
8988 <PUTUV TEM22 3 'VALUE (TYPE ATOM)>
8994 <CALL '
\1aNEXT-AC 1 = STACK>
8995 <CALL '
\1aGET-AC 1 = TEM22>
9000 <SET TEM22 %<> (TYPE FALSE)>
9001 <EQUAL? ARG219 VAL20 - BOOL446>
9005 <CALL '
\1aIN-AC? 2 = TEM22>
9006 <TYPE? TEM22 <TYPE-CODE FALSE> + BOOL440>
9007 <FRAME '
\1aMUNGED-AC>
9010 <CALL '
\1aMUNGED-AC 2>
9014 <CALL '
\1aNEXT-AC 1 = TEM22>
9020 <CALL '
\1aIN-AC? 2 = TEM22>
9021 <TYPE? TEM22 <TYPE-CODE FALSE> + BOOL446>
9022 <FRAME '
\1aMUNGED-AC>
9024 <CALL '
\1aMUNGED-AC 1>
9029 <CALL '
\1aIN-AC? 2 = TEMP25>
9030 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE450>
9031 <FRAME '
\1aWILL-DIE?>
9033 <CALL '
\1aWILL-DIE? 1 = TEMP54>
9034 <TYPE? TEMP54 <TYPE-CODE FALSE> + PHRASE453>
9036 <FRAME '
\1aDEAD!-MIMOC>
9037 <CONS ARG118 () = STACK>
9040 <CALL '
\1aDEAD!-MIMOC 2>
9046 <CALL '
\1aNEXT-AC 1 = STACK>
9047 <CALL '
\1aGET-AC 1 = TEMP54>
9048 <NTHUV TEMP54 5 = TEMP54>
9049 <TYPE? TEMP54 <TYPE-CODE FALSE> + PHRASE456>
9051 <FRAME '
\1aREALLY-FREE-AC-PAIR>
9052 <CALL '
\1aREALLY-FREE-AC-PAIR 0 = OAC17>
9053 <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE456>
9056 <CALL '
\1aNEXT-AC 1 = TEMP54>
9057 <EQUAL? TEMP54 TEM22 + PHRASE456>
9059 <VEQUAL? NEG-FIRST24 0 + PHRASE463>
9064 <CALL '
\1aNEXT-AC 1 = STACK>
9068 <CALL '
\1aNEXT-AC 1 = STACK>
9070 <SET NEG-FIRST24 %<> (TYPE FALSE)>
9077 <CALL '
\1aNEXT-AC 1 = STACK>
9081 <CALL '
\1aNEXT-AC 1 = STACK>
9088 <CALL '
\1aGET-AC 1 = TEMP54>
9089 <PUTUV TEMP54 6 RESTYP15>
9094 <CALL '
\1aGET-AC 1 = OAC17>
9095 <NTHUV OAC17 6 = ARG118>
9097 <FRAME '
\1aFLUSH-AC>
9100 <CALL '
\1aFLUSH-AC 2>
9101 <FRAME '
\1aMUNGED-AC>
9104 <CALL '
\1aMUNGED-AC 2>
9107 <CALL '
\1aGET-AC 1 = OAC17>
9108 <PUTUV OAC17 6 ARG118>
9110 <VEQUAL? NEG-FIRST24 0 + PHRASE502>
9117 <CALL '
\1aNEXT-AC 1 = STACK>
9121 <FRAME '
\1aASSIGN-AC>
9125 <CALL '
\1aASSIGN-AC 3 = TEMP25>
9128 <CALL '
\1aNEXT-AC 1 = OAC17>
9129 <EQUAL? TEM22 OAC17 - PHRASE487>
9137 <SET TEM22 'T* (TYPE ATOM)>
9141 <CALL '
\1aGET-AC 1 = OAC17>
9142 <PUTUV OAC17 6 RESTYP15>
9144 <TYPE? ARG118 <TYPE-CODE ATOM> - PHRASE492>
9146 <VEQUAL? NEG-FIRST24 0 + PHRASE495>
9148 <SET OAC17 'MOVN (TYPE ATOM)>
9151 <SET OAC17 'MOVE (TYPE ATOM)>
9157 <CALL '
\1aNEXT-AC 1 = STACK>
9158 <SET NEG-FIRST24 2 (TYPE FIX)>
9162 <SCALL '
\1aOBJ-VAL 1 = OAC17 + TAG493 NEG-FIRST24>
9163 <LOOP (OAC17 TYPE VALUE LENGTH) (NEG-FIRST24 VALUE)>
9166 <EMPTY? OAC17 + TAG493>
9167 <NTH1 OAC17 = STACK>
9168 <REST1 OAC17 = OAC17>
9169 <ADD NEG-FIRST24 1 = NEG-FIRST24 (TYPE FIX)>
9172 <CALL '
\1aOCEMIT NEG-FIRST24>
9185 <CALL '
\1aNEXT-AC 1 = STACK>
9186 <CALL '
\1aGET-AC 1 = STACK>
9187 <CALL '
\1aLOAD-AC 5>
9189 <VEQUAL? NORM11 'IDIV + BOOL509>
9190 <VEQUAL? NORM11 'FDVR - PHRASE507>
9195 <CALL '
\1aNEXT-AC 1 = STACK>
9196 <CALL '
\1aNEXT-AC 1 = NEG-FIRST24>
9197 <EQUAL? NEG-FIRST24 'T* + PHRASE507>
9199 <FRAME '
\1aFLUSH-AC>
9203 <CALL '
\1aNEXT-AC 1 = STACK>
9204 <CALL '
\1aNEXT-AC 1 = STACK>
9205 <CALL '
\1aFLUSH-AC 1>
9206 <FRAME '
\1aMUNGED-AC>
9210 <CALL '
\1aNEXT-AC 1 = STACK>
9211 <CALL '
\1aNEXT-AC 1 = STACK>
9212 <CALL '
\1aMUNGED-AC 1>
9214 <VEQUAL? IMM-OK23 0 + PHRASE519>
9221 <CALL '
\1aNEXT-AC 1 = STACK>
9226 <TYPE? TEM22 <TYPE-CODE FALSE> + PHRASE522>
9232 <CALL '
\1aNEXT-AC 1 = STACK>
9237 <TYPE? BO14 <TYPE-CODE FALSE> + PHRASE525>
9238 <EQUAL? ARG219 VAL20 - PHRASE525>
9243 <CALL '
\1aNEXT-AC 1 = STACK>
9244 <SET OAC17 2 (TYPE FIX)>
9247 <SCALL '
\1aOBJ-VAL 1 = NEG-FIRST24 + TAG527 OAC17>
9248 <LOOP (NEG-FIRST24 TYPE VALUE LENGTH) (OAC17 VALUE)>
9251 <EMPTY? NEG-FIRST24 + TAG527>
9252 <NTH1 NEG-FIRST24 = STACK>
9253 <REST1 NEG-FIRST24 = NEG-FIRST24>
9254 <ADD OAC17 1 = OAC17 (TYPE FIX)>
9257 <CALL '
\1aOCEMIT OAC17>
9266 <CALL '
\1aNEXT-AC 1 = STACK>
9267 <SET NEG-FIRST24 2 (TYPE FIX)>
9270 <SCALL '
\1aOBJ-VAL 1 = OAC17 + TAG533 NEG-FIRST24>
9271 <LOOP (OAC17 TYPE VALUE LENGTH) (NEG-FIRST24 VALUE)>
9274 <EMPTY? OAC17 + TAG533>
9275 <NTH1 OAC17 = STACK>
9276 <REST1 OAC17 = OAC17>
9277 <ADD NEG-FIRST24 1 = NEG-FIRST24 (TYPE FIX)>
9280 <CALL '
\1aOCEMIT NEG-FIRST24>
9283 <FRAME '
\1aCLEAN-ACS>
9285 <CALL '
\1aCLEAN-ACS 1>
9288 <CALL '
\1aGET-AC 1 = NEG-FIRST24>
9289 <PUTUV NEG-FIRST24 2 VAL20>
9290 <PUTUV NEG-FIRST24 3 'TYPE (TYPE ATOM)>
9294 <CALL '
\1aGET-AC 1 = NEG-FIRST24>
9295 <PUTUV NEG-FIRST24 5 'T>
9301 <CALL '
\1aNEXT-AC 1 = TEMP25>
9303 <CALL '
\1aGET-AC 1 = NEG-FIRST24>
9304 <PUTUV NEG-FIRST24 2 VAL20>
9305 <PUTUV NEG-FIRST24 3 'VALUE (TYPE ATOM)>
9309 <CALL '
\1aGET-AC 1 = NEG-FIRST24>
9310 <TYPE? BO14 <TYPE-CODE FALSE> + TAG544>
9312 <EQUAL? ARG219 VAL20 - TAG544>
9314 <TYPE? TEM22 <TYPE-CODE FALSE> - TAG544>
9316 <SET OAC17 %<> (TYPE FALSE)>
9319 <SET OAC17 'T (TYPE ATOM)>
9321 <PUTUV NEG-FIRST24 5 OAC17>
9322 <DEAD NEG-FIRST24 OAC17>
9323 <VEQUAL? VAL20 'STACK + TAG549>
9330 <SET OAC17 2 (TYPE FIX)>
9334 <SCALL '
\1aTYPE-WORD 1 = NEG-FIRST24 + TAG550 OAC17>
9335 <LOOP (NEG-FIRST24 TYPE VALUE LENGTH) (OAC17 VALUE)>
9338 <EMPTY? NEG-FIRST24 + TAG550>
9339 <NTH1 NEG-FIRST24 = STACK>
9340 <REST1 NEG-FIRST24 = NEG-FIRST24>
9341 <ADD OAC17 1 = OAC17 (TYPE FIX)>
9344 <CALL '
\1aOCEMIT OAC17>
9352 <GVAL 'WINNING-VICTIM = OAC17>
9353 <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE556>
9354 <GVAL 'STACK-DEPTH = OAC17>
9355 <ADD OAC17 2 = OAC17 (TYPE FIX)>
9356 <SETG 'STACK-DEPTH OAC17>
9360 <END
\1aARITH!-MIMOC>
\r\r
9362 <GFCN
\1aAND!-MIMOC ("VALUE" ANY LIST) L4>
9363 <TEMP ARG15 TEMP18 ARG26 VAL7:ATOM (CONST13 %<>) MIML17 NEXTLINE8 TEMP41 TEMP42 TEMP43 TEMP44 TRN12:LIST>
9366 <RESTL L4 1 = TEMP18 (TYPE LIST)>
9367 <NTHL TEMP18 1 = ARG26>
9369 <RESTL L4 1 = TEMP18 (TYPE LIST)>
9370 <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
9371 <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
9372 <NTHL TEMP18 1 = VAL7 (TYPE ATOM)>
9374 <GEN-LVAL 'MIML = MIML17>
9375 <EMPL? MIML17 + PHRASE22>
9376 <RESTL MIML17 1 = TEMP18 (TYPE LIST)>
9377 <EMPL? TEMP18 + PHRASE22>
9378 <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
9379 <EMPL? TEMP18 + PHRASE22>
9381 <FRAME '
\1aPRIMTYPE>
9383 <CALL '
\1aPRIMTYPE 1 = TEMP18>
9384 <VEQUAL? TEMP18 'FIX - BOOL26>
9386 <TYPE? ARG26 <TYPE-CODE ATOM> - BOOL26>
9388 <TYPE? TEMP18 <TYPE-CODE FALSE> + BOOL26>
9391 <CHTYPE TEMP18 <TYPE-CODE FIX> = ARG26>
9395 <TYPE? ARG15 <TYPE-CODE ATOM> - BOOL28>
9396 <FRAME '
\1aPRIMTYPE>
9398 <CALL '
\1aPRIMTYPE 1 = TEMP18>
9399 <VEQUAL? TEMP18 'FIX - BOOL28>
9401 <CHTYPE ARG26 <TYPE-CODE FIX> = ARG26>
9404 <TYPE? ARG15 <TYPE-CODE ATOM> - PHRASE22>
9405 <TYPE? ARG26 <TYPE-CODE ATOM> - PHRASE22>
9406 <FRAME '
\1aWILL-DIE?>
9408 <CALL '
\1aWILL-DIE? 1 = TEMP18>
9409 <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE22>
9411 <FRAME '
\1aWILL-DIE?>
9413 <CALL '
\1aWILL-DIE? 1 = TEMP18>
9414 <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE22>
9416 <VEQUAL? ARG15 VAL7 + PHRASE22>
9417 <VEQUAL? ARG26 VAL7 + PHRASE22>
9421 <CALL '
\1aIN-AC? 2 = TEMP18>
9422 <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE36>
9427 <CALL '
\1aIN-AC? 2 = TEMP18>
9428 <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE36>
9437 <RESTL MIML17 1 = TEMP18 (TYPE LIST)>
9438 <NTHL TEMP18 1 = NEXTLINE8>
9440 <TYPE? NEXTLINE8 <TYPE-CODE FORM> - PHRASE22>
9441 <NTHL NEXTLINE8 1 = TEMP18 (TYPE ATOM)>
9442 <NTHR TEMP18 3 = TEMP18 (RECORD-TYPE ATOM)>
9443 <IFCAN "STRING-EQUAL?">
9444 <STRING-EQUAL? TEMP18 "VEQUAL?" - PHRASE22>
9445 <ENDIF "STRING-EQUAL?">
9446 <IFCANNOT "STRING-EQUAL?">
9447 <SET TEMP41 "VEQUAL?" (TYPE STRING)>
9448 <LENUS TEMP18 = TEMP42 (TYPE FIX)>
9449 <VEQUAL? TEMP42 7 - PHRASE22>
9450 <LOOP (TEMP18 VALUE LENGTH) (TEMP41 VALUE LENGTH) (TEMP42 VALUE)>
9452 <NTHUS TEMP18 1 = TEMP43>
9453 <NTHUS TEMP41 1 = TEMP44>
9454 <VEQUAL? TEMP43 TEMP44 - PHRASE22>
9455 <DEAD TEMP43 TEMP44>
9456 <RESTUS TEMP18 1 = TEMP18 (TYPE STRING)>
9457 <RESTUS TEMP41 1 = TEMP41 (TYPE STRING)>
9458 <SUB TEMP42 1 = TEMP42 (TYPE FIX)>
9459 <GRTR? TEMP42 0 + TAG45 (TYPE FIX)>
9460 <ENDIF "STRING-EQUAL?">
9461 <RESTL NEXTLINE8 1 = TEMP41 (TYPE LIST)>
9462 <NTHL TEMP41 1 = TEMP41>
9463 <EQUAL? TEMP41 VAL7 - BOOL47>
9465 <RESTL NEXTLINE8 1 = TEMP41 (TYPE LIST)>
9466 <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
9467 <NTHL TEMP41 1 = TEMP41>
9468 <EQUAL? TEMP41 0 + BOOL46>
9471 <RESTL NEXTLINE8 1 = TEMP41 (TYPE LIST)>
9472 <NTHL TEMP41 1 = TEMP41>
9473 <EQUAL? TEMP41 0 - PHRASE22>
9475 <RESTL NEXTLINE8 1 = TEMP41 (TYPE LIST)>
9476 <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
9477 <NTHL TEMP41 1 = TEMP41>
9478 <EQUAL? TEMP41 VAL7 - PHRASE22>
9481 <FRAME '
\1aWILL-DIE?>
9483 <RESTL MIML17 1 = STACK (TYPE LIST)>
9485 <CALL '
\1aWILL-DIE? 2 = TEMP41>
9486 <TYPE? TEMP41 <TYPE-CODE FALSE> + PHRASE22>
9488 <FRAME '
\1aWILL-DIE?>
9491 <FRAME '
\1aFIND-LABEL>
9492 <NTHL NEXTLINE8 5 = STACK>
9493 <CALL '
\1aFIND-LABEL 1 = TEMP41>
9494 <NTHUV TEMP41 7 = STACK (TYPE LIST)>
9496 <CALL '
\1aWILL-DIE? 2 = TEMP41>
9497 <TYPE? TEMP41 <TYPE-CODE FALSE> + PHRASE22>
9499 <RESTL NEXTLINE8 1 = TEMP41 (TYPE LIST)>
9500 <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
9501 <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
9502 <NTHL TEMP41 1 = VAL7 (TYPE ATOM)>
9504 <NTHL NEXTLINE8 5 = MIML17 (TYPE ATOM)>
9509 <CALL '
\1aIN-AC? 2 = TEMP18>
9510 <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE53>
9514 <CALL '
\1aNEXT-AC 1 = NEXTLINE8>
9520 <CALL '
\1aIN-AC? 2 = NEXTLINE8>
9521 <TYPE? NEXTLINE8 <TYPE-CODE FALSE> - PHRASE57>
9527 <CALL '
\1aLOAD-AC 2 = TEMP18>
9530 <CALL '
\1aNEXT-AC 1 = NEXTLINE8>
9532 <FRAME '
\1aLABEL-UPDATE-ACS>
9535 <CALL '
\1aLABEL-UPDATE-ACS 2>
9536 <TYPE? ARG26 <TYPE-CODE ATOM> - PHRASE62>
9537 <SET CONST13 'T (TYPE ATOM)>
9543 <CALL '
\1aL=? 2 = TEMP41>
9544 <TYPE? TEMP41 <TYPE-CODE FALSE> + PHRASE63>
9546 <SET TRN12 (TRNN TRNE) (TYPE LIST)>
9549 <AND ARG26 #WORD *777777* = TEMP41>
9550 <VEQUAL? TEMP41 0 - PHRASE65 (TYPE FIX)>
9552 <LSH ARG26 -18 = ARG26 (TYPE FIX)>
9553 <SET TRN12 (TLNN TLNE) (TYPE LIST)>
9556 <SET CONST13 'T (TYPE ATOM)>
9558 <VEQUAL? VAL7 '- - PHRASE70>
9560 <VEQUAL? CONST13 0 + PHRASE72>
9566 <SET TEMP18 2 (TYPE FIX)>
9570 <SCALL '
\1aOBJ-VAL 1 = TEMP41 + TAG73 TEMP18>
9571 <LOOP (TEMP41 TYPE VALUE LENGTH) (TEMP18 VALUE)>
9574 <EMPTY? TEMP41 + TAG73>
9575 <NTH1 TEMP41 = STACK>
9576 <REST1 TEMP41 = TEMP41>
9577 <ADD TEMP18 1 = TEMP18 (TYPE FIX)>
9580 <CALL '
\1aOCEMIT TEMP18>
9585 <RESTL TRN12 1 = TEMP18 (TYPE LIST)>
9587 <NTHL TEMP18 1 = STACK>
9596 <TYPE? ARG26 <TYPE-CODE FIX> - PHRASE79>
9597 <SUB 0 ARG26 = TEMP18 (TYPE FIX)>
9598 <AND ARG26 TEMP18 = TEMP41>
9600 <VEQUAL? ARG26 TEMP41 - PHRASE79 (TYPE FIX)>
9602 <VEQUAL? CONST13 0 + PHRASE82>
9608 <SET TEMP18 2 (TYPE FIX)>
9612 <SCALL '
\1aOBJ-VAL 1 = TEMP41 + TAG83 TEMP18>
9613 <LOOP (TEMP41 TYPE VALUE LENGTH) (TEMP18 VALUE)>
9616 <EMPTY? TEMP41 + TAG83>
9617 <NTH1 TEMP41 = STACK>
9618 <REST1 TEMP41 = TEMP41>
9619 <ADD TEMP18 1 = TEMP18 (TYPE FIX)>
9622 <CALL '
\1aOCEMIT TEMP18>
9627 <NTHL TRN12 1 = STACK>
9636 <VEQUAL? CONST13 0 + PHRASE89>
9642 <SET TEMP41 2 (TYPE FIX)>
9646 <SCALL '
\1aOBJ-VAL 1 = TEMP18 + TAG90 TEMP41>
9647 <LOOP (TEMP18 TYPE VALUE LENGTH) (TEMP41 VALUE)>
9650 <EMPTY? TEMP18 + TAG90>
9651 <NTH1 TEMP18 = STACK>
9652 <REST1 TEMP18 = TEMP18>
9653 <ADD TEMP41 1 = TEMP41 (TYPE FIX)>
9656 <CALL '
\1aOCEMIT TEMP41>
9666 <RESTL TRN12 1 = TEMP41 (TYPE LIST)>
9668 <NTHL TEMP41 1 = STACK>
9686 <CALL '
\1aXJUMP 1 = STACK>
9688 <SETG 'NEXT-FLUSH 1>
9691 <FRAME '
\1aARITH!-MIMOC>
9698 <CALL '
\1aARITH!-MIMOC 5 = TEMP41>
9703 <GFCN
\1aFLOAT!-MIMOC ("VALUE" ANY LIST) L5>
9706 <RESTL L5 1 = TEMP8 (TYPE LIST)>
9707 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
9708 <NTHL TEMP8 1 = TEMP8 (TYPE ATOM)>
9709 <VEQUAL? TEMP8 'STACK - PHRASE10>
9714 <SET TEMP12 2 (TYPE FIX)>
9717 <SCALL '
\1aTYPE-WORD 1 = TEMP8 + TAG11 TEMP12>
9718 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP12 VALUE)>
9721 <EMPTY? TEMP8 + TAG11>
9722 <NTH1 TEMP8 = STACK>
9723 <REST1 TEMP8 = TEMP8>
9724 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
9727 <CALL '
\1aOCEMIT TEMP12>
9729 <GVAL 'WINNING-VICTIM = TEMP12>
9730 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE17>
9732 <GVAL 'STACK-DEPTH = TEMP12>
9733 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
9734 <SETG 'STACK-DEPTH TEMP12>
9740 <SET TEMP8 2 (TYPE FIX)>
9744 <SCALL '
\1aOBJ-VAL 1 = TEMP12 + TAG18 TEMP8>
9745 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP8 VALUE)>
9748 <EMPTY? TEMP12 + TAG18>
9749 <NTH1 TEMP12 = STACK>
9750 <REST1 TEMP12 = TEMP12>
9751 <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
9754 <CALL '
\1aOCEMIT TEMP8>
9761 <GVAL 'WINNING-VICTIM = TEMP8>
9762 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE25>
9763 <GVAL 'STACK-DEPTH = TEMP12>
9764 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
9765 <SETG 'STACK-DEPTH TEMP12>
9769 <FRAME '
\1aASSIGN-AC>
9770 <RESTL L5 1 = TEMP12 (TYPE LIST)>
9771 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
9772 <NTHL TEMP12 1 = STACK (TYPE ATOM)>
9775 <CALL '
\1aASSIGN-AC 2 = TEMP8>
9778 <CALL '
\1aGET-AC 1 = TEMP12>
9779 <PUTUV TEMP12 6 'FLOAT>
9786 <CALL '
\1aNEXT-AC 1 = STACK>
9787 <SET TEMP8 2 (TYPE FIX)>
9791 <SCALL '
\1aOBJ-VAL 1 = TEMP12 + TAG28 TEMP8>
9792 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP8 VALUE)>
9795 <EMPTY? TEMP12 + TAG28>
9796 <NTH1 TEMP12 = STACK>
9797 <REST1 TEMP12 = TEMP12>
9798 <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
9801 <CALL '
\1aOCEMIT TEMP8 = TEMP8>
9805 <END
\1aFLOAT!-MIMOC>
9807 <GFCN
\1aFIX!-MIMOC ("VALUE" ANY LIST) L5>
9810 <RESTL L5 1 = TEMP8 (TYPE LIST)>
9811 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
9812 <NTHL TEMP8 1 = TEMP8 (TYPE ATOM)>
9813 <VEQUAL? TEMP8 'STACK - PHRASE10>
9818 <SET TEMP12 2 (TYPE FIX)>
9821 <SCALL '
\1aTYPE-WORD 1 = TEMP8 + TAG11 TEMP12>
9822 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP12 VALUE)>
9825 <EMPTY? TEMP8 + TAG11>
9826 <NTH1 TEMP8 = STACK>
9827 <REST1 TEMP8 = TEMP8>
9828 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
9831 <CALL '
\1aOCEMIT TEMP12>
9833 <GVAL 'WINNING-VICTIM = TEMP12>
9834 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE17>
9836 <GVAL 'STACK-DEPTH = TEMP12>
9837 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
9838 <SETG 'STACK-DEPTH TEMP12>
9844 <SET TEMP8 2 (TYPE FIX)>
9848 <SCALL '
\1aOBJ-VAL 1 = TEMP12 + TAG18 TEMP8>
9849 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP8 VALUE)>
9852 <EMPTY? TEMP12 + TAG18>
9853 <NTH1 TEMP12 = STACK>
9854 <REST1 TEMP12 = TEMP12>
9855 <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
9858 <CALL '
\1aOCEMIT TEMP8>
9865 <GVAL 'WINNING-VICTIM = TEMP8>
9866 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE25>
9867 <GVAL 'STACK-DEPTH = TEMP12>
9868 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
9869 <SETG 'STACK-DEPTH TEMP12>
9873 <FRAME '
\1aASSIGN-AC>
9874 <RESTL L5 1 = TEMP12 (TYPE LIST)>
9875 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
9876 <NTHL TEMP12 1 = STACK (TYPE ATOM)>
9879 <CALL '
\1aASSIGN-AC 2 = TEMP8>
9882 <CALL '
\1aGET-AC 1 = TEMP12>
9883 <PUTUV TEMP12 6 'FIX>
9890 <CALL '
\1aNEXT-AC 1 = STACK>
9891 <SET TEMP8 2 (TYPE FIX)>
9895 <SCALL '
\1aOBJ-VAL 1 = TEMP12 + TAG28 TEMP8>
9896 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP8 VALUE)>
9899 <EMPTY? TEMP12 + TAG28>
9900 <NTH1 TEMP12 = STACK>
9901 <REST1 TEMP12 = TEMP12>
9902 <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
9905 <CALL '
\1aOCEMIT TEMP8 = TEMP8>
9911 <GFCN
\1aLSH!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ATOM) L6 INS7>
9912 <OPT-DISPATCH 1 %<> OPT4 OPT5>
9916 <TEMP (AC9 %<>) ARG10 TEMP16 AMT11 VAL12:ATOM TAC8 TEMP34 TEMP46 TEMP66:FIX>
9919 <RESTL L6 1 = TEMP16 (TYPE LIST)>
9920 <NTHL TEMP16 1 = AMT11>
9922 <RESTL L6 1 = TEMP16 (TYPE LIST)>
9924 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
9925 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
9926 <NTHL TEMP16 1 = VAL12 (TYPE ATOM)>
9928 <VEQUAL? INS7 'LSH - PHRASE18>
9929 <EQUAL? AMT11 18 + BOOL20>
9930 <EQUAL? AMT11 -18 - PHRASE18>
9932 <FRAME '
\1aDO-HWRD-INS>
9939 <CALL '
\1aDO-HWRD-INS 3 = TEMP16>
9943 <TYPE? ARG10 <TYPE-CODE ATOM> - PHRASE24>
9948 <CALL '
\1aLOAD-AC 2 = TAC8>
9950 <CALL '
\1aNEXT-AC 1 = AC9>
9955 <CALL '
\1aIN-AC? 2 = TEMP16>
9956 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE44>
9957 <SETG 'FIRST-AC %<>>
9958 <EQUAL? AMT11 VAL12 + BOOL32>
9959 <FRAME '
\1aWILL-DIE?>
9961 <CALL '
\1aWILL-DIE? 1 = TEMP34>
9962 <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE40>
9965 <TYPE? AC9 <TYPE-CODE FALSE> - BOOL37>
9966 <FRAME '
\1aREALLY-FREE-AC-PAIR>
9967 <CALL '
\1aREALLY-FREE-AC-PAIR 0 = TEMP34>
9968 <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE36>
9971 <FRAME '
\1aMUNGED-AC>
9974 <CALL '
\1aMUNGED-AC 2>
9979 <SET TEMP34 'T* (TYPE ATOM)>
9985 <CALL '
\1aNEXT-AC 1 = STACK>
9987 <SET TEMP16 'T* (TYPE ATOM)>
9989 <EQUAL? TEMP16 'T* + PHRASE44>
9992 <CALL '
\1aGET-AC 1 = TEMP34>
9993 <GVAL 'AC-STAMP = TEMP46>
9994 <PUTUV TEMP34 4 TEMP46 (TYPE FIX)>
9995 <DEAD TEMP34 TEMP46>
9999 <CALL '
\1aNEXT-AC 1 = STACK>
10000 <CALL '
\1aGET-AC 1 = TEMP34>
10001 <GVAL 'AC-STAMP = TEMP46>
10002 <PUTUV TEMP34 4 TEMP46 (TYPE FIX)>
10003 <DEAD TEMP34 TEMP46>
10004 <FRAME '
\1aNEXT-AC>
10007 <CALL '
\1aNEXT-AC 1 = TEMP16>
10009 <EQUAL? ARG10 VAL12 + PHRASE51>
10010 <TYPE? ARG10 <TYPE-CODE ATOM> - PHRASE51>
10011 <FRAME '
\1aWILL-DIE?>
10013 <CALL '
\1aWILL-DIE? 1 = TEMP34>
10014 <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE51>
10018 <CALL '
\1aGET-AC 1 = TEMP34>
10019 <NTHUV TEMP34 5 = TEMP34>
10020 <TYPE? TEMP34 <TYPE-CODE FALSE> - BOOL54>
10022 <FRAME '
\1aFLUSH-AC>
10025 <CALL '
\1aFLUSH-AC 2>
10026 <FRAME '
\1aMUNGED-AC>
10029 <CALL '
\1aMUNGED-AC 2>
10032 <FRAME '
\1aASSIGN-AC>
10036 <CALL '
\1aASSIGN-AC 3 = TEMP34>
10039 <CALL '
\1aGET-AC 1 = TEMP46>
10040 <PUTUV TEMP46 6 'FIX>
10044 <FRAME '
\1aNEXT-AC>
10047 <CALL '
\1aNEXT-AC 1 = TEMP34>
10050 <CALL '
\1aOCEMIT 3>
10053 <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE64>
10056 <CALL '
\1aGET-AC 1 = TEMP46>
10057 <GVAL 'AC-STAMP = TEMP66>
10058 <PUTUV TEMP46 4 TEMP66 (TYPE FIX)>
10059 <DEAD TEMP46 TEMP66>
10063 <CALL '
\1aGET-AC 1 = TEMP46>
10064 <GVAL 'AC-STAMP = TEMP66>
10065 <PUTUV TEMP46 4 TEMP66 (TYPE FIX)>
10066 <DEAD TEMP46 TEMP66>
10070 <FRAME '
\1aASSIGN-AC>
10074 <CALL '
\1aASSIGN-AC 3 = TEMP34>
10076 <CALL '
\1aGET-AC 1 = TEMP46>
10077 <PUTUV TEMP46 6 'FIX>
10079 <FRAME '
\1aNEXT-AC>
10082 <CALL '
\1aNEXT-AC 1 = TEMP34>
10084 <TYPE? AMT11 <TYPE-CODE FIX> - PHRASE73>
10085 <TYPE? ARG10 <TYPE-CODE ATOM> + PHRASE75>
10086 <FRAME '
\1aLOAD-NUM-INTO-AC>
10090 <CALL '
\1aLOAD-NUM-INTO-AC 2>
10098 <CALL '
\1aOCEMIT 3>
10101 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE78>
10102 <EQUAL? TEMP16 TEMP34 - PHRASE80>
10108 <CALL '
\1aOCEMIT 3>
10109 <SET TEMP16 'T* (TYPE ATOM)>
10111 <TYPE? ARG10 <TYPE-CODE ATOM> + PHRASE83>
10112 <FRAME '
\1aLOAD-NUM-INTO-AC>
10116 <CALL '
\1aLOAD-NUM-INTO-AC 2>
10122 <CONS TEMP16 () = STACK>
10124 <CALL '
\1aOCEMIT 3>
10127 <FRAME '
\1aWILL-DIE?>
10129 <CALL '
\1aWILL-DIE? 1 = TEMP46>
10130 <TYPE? TEMP46 <TYPE-CODE FALSE> + PHRASE86>
10132 <FRAME '
\1aGET-INTO-ACS>
10137 <CALL '
\1aGET-INTO-ACS 3>
10138 <TYPE? ARG10 <TYPE-CODE ATOM> + PHRASE90>
10139 <FRAME '
\1aLOAD-NUM-INTO-AC>
10143 <CALL '
\1aLOAD-NUM-INTO-AC 2>
10150 <CALL '
\1aOCEMIT 3>
10155 <CALL '
\1aGET-AC 1 = TEMP46>
10156 <GVAL 'AC-STAMP = TEMP66>
10157 <PUTUV TEMP46 4 TEMP66 (TYPE FIX)>
10158 <DEAD TEMP46 TEMP66>
10160 <FRAME '
\1aGETPROP>
10163 <CALL '
\1aGETPROP 2 = TEMP46>
10166 <CALL '
\1aGET-AC 1 = TEMP46>
10167 <GVAL 'AC-STAMP = TEMP66>
10168 <PUTUV TEMP46 4 TEMP66 (TYPE FIX)>
10169 <DEAD TEMP46 TEMP66>
10170 <TYPE? ARG10 <TYPE-CODE ATOM> + PHRASE98>
10171 <FRAME '
\1aLOAD-NUM-INTO-AC>
10175 <CALL '
\1aLOAD-NUM-INTO-AC 2>
10177 <FRAME '
\1aLOAD-AC>
10181 <CALL '
\1aLOAD-AC 2 = TEMP16>
10186 <FRAME '
\1aNEXT-AC>
10189 <CALL '
\1aNEXT-AC 1 = TEMP46>
10190 <CONS TEMP46 () = STACK>
10192 <CALL '
\1aOCEMIT 3>
10194 <EQUAL? TEMP34 AC9 - PHRASE104>
10195 <FRAME '
\1aCLEAN-ACS>
10197 <CALL '
\1aCLEAN-ACS 1>
10201 <CALL '
\1aGET-AC 1 = TEMP46>
10202 <PUTUV TEMP46 5 'T>
10203 <PUTUV TEMP46 6 'FIX>
10204 <PUTUV TEMP46 2 VAL12>
10205 <PUTUV TEMP46 3 'TYPE (TYPE ATOM)>
10210 <CALL '
\1aGET-AC 1 = TEMP46>
10211 <PUTUV TEMP46 5 'T>
10212 <PUTUV TEMP46 6 %<>>
10213 <PUTUV TEMP46 2 VAL12>
10214 <PUTUV TEMP46 3 'VALUE (TYPE ATOM)>
10217 <VEQUAL? VAL12 'STACK + TAG110>
10224 <SET TEMP66 2 (TYPE FIX)>
10225 <SFRAME 'TYPE-WORD>
10227 <SCALL '
\1aTYPE-WORD 1 = TEMP46 + TAG111 TEMP66>
10228 <LOOP (TEMP46 TYPE VALUE LENGTH) (TEMP66 VALUE)>
10231 <EMPTY? TEMP46 + TAG111>
10232 <NTH1 TEMP46 = STACK>
10233 <REST1 TEMP46 = TEMP46>
10234 <ADD TEMP66 1 = TEMP66 (TYPE FIX)>
10237 <CALL '
\1aOCEMIT TEMP66>
10244 <CALL '
\1aOCEMIT 3>
10245 <GVAL 'WINNING-VICTIM = TEMP16>
10246 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE117>
10247 <GVAL 'STACK-DEPTH = TEMP66>
10248 <ADD TEMP66 2 = TEMP66 (TYPE FIX)>
10249 <SETG 'STACK-DEPTH TEMP66>
10250 <SET TEMP16 TEMP66>
10255 <END
\1aLSH!-MIMOC>
10257 <GFCN
\1aLOAD-NUM-INTO-AC ("VALUE" ANY FIX ATOM) V5 AC6>
10258 <TEMP TEMP12 TEMP19:FIX>
10260 <LESS? V5 0 + PHRASE8 (TYPE FIX)>
10261 <GVAL 'MAX-IMMEDIATE = TEMP12>
10262 <GRTR? V5 TEMP12 + PHRASE8 (TYPE FIX)>
10270 <CALL '
\1aOCEMIT 3 = TEMP12>
10274 <LESS? V5 0 - PHRASE14 (TYPE FIX)>
10275 <GVAL 'MAX-IMMEDIATE = TEMP12>
10277 <LESS? TEMP19 0 - TAG20 (TYPE FIX)>
10278 <SUB 0 TEMP19 = TEMP19 (TYPE FIX)>
10280 <LESS? TEMP12 TEMP19 + PHRASE14 (TYPE FIX)>
10281 <DEAD TEMP12 TEMP19>
10286 <SUB 0 V5 = STACK (TYPE FIX)>
10288 <CALL '
\1aOCEMIT 3 = TEMP12>
10292 <AND V5 #WORD *777777* = TEMP12>
10293 <VEQUAL? TEMP12 0 - PHRASE22 (TYPE FIX)>
10299 <LSH V5 -18 = STACK (TYPE FIX)>
10301 <CALL '
\1aOCEMIT 3 = TEMP12>
10309 <SET TEMP19 2 (TYPE FIX)>
10314 <SCALL '
\1aOBJ-LOC 2 = TEMP12 + TAG27 TEMP19>
10315 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP19 VALUE)>
10318 <EMPTY? TEMP12 + TAG27>
10319 <NTH1 TEMP12 = STACK>
10320 <REST1 TEMP12 = TEMP12>
10321 <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
10324 <CALL '
\1aOCEMIT TEMP19 = TEMP12>
10328 <END
\1aLOAD-NUM-INTO-AC>
10329 #WORD *11232500555*
10330 <GFCN
\1aDO-HWRD-INS ("VALUE" ANY ANY ANY FIX) SRC5 VAL6 AMT7>
10331 <TEMP TEMP13 TEMP12>
10333 <EQUAL? VAL6 'STACK - PHRASE10>
10337 <SET TEMP13 2 (TYPE FIX)>
10338 <SFRAME 'TYPE-WORD>
10340 <SCALL '
\1aTYPE-WORD 1 = TEMP12 + TAG11 TEMP13>
10341 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP13 VALUE)>
10344 <EMPTY? TEMP12 + TAG11>
10345 <NTH1 TEMP12 = STACK>
10346 <REST1 TEMP12 = TEMP12>
10347 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
10350 <CALL '
\1aOCEMIT TEMP13>
10352 <GVAL 'WINNING-VICTIM = TEMP13>
10353 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE18>
10355 <GVAL 'STACK-DEPTH = TEMP13>
10356 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
10357 <SETG 'STACK-DEPTH TEMP13>
10361 <VEQUAL? AMT7 18 - PHRASE21 (TYPE FIX)>
10363 <SET TEMP13 'HRLZ (TYPE ATOM)>
10366 <SET TEMP13 'HLRZ (TYPE ATOM)>
10371 <SET TEMP12 2 (TYPE FIX)>
10375 <SCALL '
\1aOBJ-VAL 1 = TEMP13 + TAG19 TEMP12>
10376 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP12 VALUE)>
10379 <EMPTY? TEMP13 + TAG19>
10380 <NTH1 TEMP13 = STACK>
10381 <REST1 TEMP13 = TEMP13>
10382 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
10385 <CALL '
\1aOCEMIT TEMP12>
10391 <CALL '
\1aOCEMIT 3>
10392 <GVAL 'WINNING-VICTIM = TEMP12>
10393 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE60>
10394 <GVAL 'STACK-DEPTH = TEMP13>
10395 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
10396 <SETG 'STACK-DEPTH TEMP13>
10400 <EQUAL? SRC5 VAL6 - PHRASE29>
10404 <CALL '
\1aIN-AC? 2 = TEMP12>
10405 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE31>
10406 <VEQUAL? AMT7 18 - PHRASE34 (TYPE FIX)>
10412 <CALL '
\1aOCEMIT 3>
10419 <CALL '
\1aOCEMIT 3>
10424 <CALL '
\1aGET-AC 1 = TEMP13>
10425 <PUTUV TEMP13 5 'T>
10429 <VEQUAL? AMT7 18 - PHRASE39 (TYPE FIX)>
10433 <SET TEMP12 1 (TYPE FIX)>
10437 <SCALL '
\1aOBJ-VAL 1 = TEMP13 + TAG40 TEMP12>
10438 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP12 VALUE)>
10441 <EMPTY? TEMP13 + TAG40>
10442 <NTH1 TEMP13 = STACK>
10443 <REST1 TEMP13 = TEMP13>
10444 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
10447 <CALL '
\1aOCEMIT TEMP12 = TEMP12>
10453 <SET TEMP13 1 (TYPE FIX)>
10457 <SCALL '
\1aOBJ-VAL 1 = TEMP12 + TAG46 TEMP13>
10458 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP13 VALUE)>
10461 <EMPTY? TEMP12 + TAG46>
10462 <NTH1 TEMP12 = STACK>
10463 <REST1 TEMP12 = TEMP12>
10464 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
10467 <CALL '
\1aOCEMIT TEMP13 = TEMP12>
10472 <FRAME '
\1aASSIGN-AC>
10476 <CALL '
\1aASSIGN-AC 2 = TEMP12>
10479 <CALL '
\1aGET-AC 1 = TEMP13>
10480 <PUTUV TEMP13 6 'FIX>
10482 <VEQUAL? AMT7 18 - PHRASE54 (TYPE FIX)>
10486 <FRAME '
\1aNEXT-AC>
10489 <CALL '
\1aNEXT-AC 1 = STACK>
10490 <SET TEMP12 2 (TYPE FIX)>
10494 <SCALL '
\1aOBJ-VAL 1 = TEMP13 + TAG55 TEMP12>
10495 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP12 VALUE)>
10498 <EMPTY? TEMP13 + TAG55>
10499 <NTH1 TEMP13 = STACK>
10500 <REST1 TEMP13 = TEMP13>
10501 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
10504 <CALL '
\1aOCEMIT TEMP12 = TEMP12>
10510 <FRAME '
\1aNEXT-AC>
10513 <CALL '
\1aNEXT-AC 1 = STACK>
10514 <SET TEMP13 2 (TYPE FIX)>
10518 <SCALL '
\1aOBJ-VAL 1 = TEMP12 + TAG61 TEMP13>
10519 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP13 VALUE)>
10522 <EMPTY? TEMP12 + TAG61>
10523 <NTH1 TEMP12 = STACK>
10524 <REST1 TEMP12 = TEMP12>
10525 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
10528 <CALL '
\1aOCEMIT TEMP13 = TEMP12>
10533 <END
\1aDO-HWRD-INS>
10534 #WORD *36452445350*
10535 <GFCN
\1aROT!-MIMOC ("VALUE" ANY LIST) L5>
10538 <FRAME '
\1aLSH!-MIMOC>
10542 <CALL '
\1aLSH!-MIMOC 2 = TEMP7>
10545 <END
\1aROT!-MIMOC>
10547 <GFCN
\1aRANDOM!-MIMOC ("VALUE" ANY LIST) L5>
10550 <FRAME '
\1aUPDATE-ACS>
10551 <CALL '
\1aUPDATE-ACS 0>
10555 <SET TEMP9 2 (TYPE FIX)>
10557 <NTHL L5 1 = STACK>
10558 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
10559 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
10562 <EMPTY? TEMP8 + TAG7>
10563 <NTH1 TEMP8 = STACK>
10564 <REST1 TEMP8 = TEMP8>
10565 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
10568 <CALL '
\1aOCEMIT TEMP9>
10572 <RESTL L5 1 = TEMP9 (TYPE LIST)>
10574 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
10575 <NTHL TEMP9 1 = STACK>
10577 <CALL '
\1aPUSHJ 2 = TEMP9>
10580 <END
\1aRANDOM!-MIMOC>
10581 #WORD *37320446651*
10582 <GFCN
\1aTEMPLATE-TABLE!-MIMOC ("VALUE" ANY LIST) L5>
10585 <FRAME '
\1aUPDATE-ACS>
10586 <CALL '
\1aUPDATE-ACS 0>
10590 <SET TEMP9 2 (TYPE FIX)>
10592 <NTHL L5 1 = STACK>
10593 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
10594 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
10597 <EMPTY? TEMP8 + TAG7>
10598 <NTH1 TEMP8 = STACK>
10599 <REST1 TEMP8 = TEMP8>
10600 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
10603 <CALL '
\1aOCEMIT TEMP9>
10605 <FRAME '
\1aSMASH-AC>
10607 <RESTL L5 1 = TEMP9 (TYPE LIST)>
10609 <NTHL TEMP9 1 = STACK>
10612 <CALL '
\1aSMASH-AC 3>
10614 <PUSH 'TEMPLATE-TABLE>
10615 <CALL '
\1aPUSHJ 1 = TEMP9>
10618 <END
\1aTEMPLATE-TABLE!-MIMOC>
10619 #WORD *12515122526*
10620 <GFCN
\1aIRECORD!-MIMOC ("VALUE" ANY LIST) L5>
10621 <TEMP TEMP9 TEMP8 TEMP15:LIST>
10623 <FRAME '
\1aUPDATE-ACS>
10624 <CALL '
\1aUPDATE-ACS 0>
10628 <SET TEMP9 2 (TYPE FIX)>
10630 <NTHL L5 1 = STACK>
10631 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
10632 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
10635 <EMPTY? TEMP8 + TAG7>
10636 <NTH1 TEMP8 = STACK>
10637 <REST1 TEMP8 = TEMP8>
10638 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
10641 <CALL '
\1aOCEMIT TEMP9>
10646 <SET TEMP8 2 (TYPE FIX)>
10648 <RESTL L5 1 = TEMP15 (TYPE LIST)>
10649 <NTHL TEMP15 1 = STACK>
10651 <SCALL '
\1aOBJ-VAL 1 = TEMP9 + TAG13 TEMP8>
10652 <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP8 VALUE)>
10655 <EMPTY? TEMP9 + TAG13>
10656 <NTH1 TEMP9 = STACK>
10657 <REST1 TEMP9 = TEMP9>
10658 <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
10661 <CALL '
\1aOCEMIT TEMP8>
10666 <SET TEMP9 2 (TYPE FIX)>
10668 <RESTL L5 1 = TEMP15 (TYPE LIST)>
10669 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
10670 <NTHL TEMP15 1 = STACK>
10672 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG18 TEMP9>
10673 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
10676 <EMPTY? TEMP8 + TAG18>
10677 <NTH1 TEMP8 = STACK>
10678 <REST1 TEMP8 = TEMP8>
10679 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
10682 <CALL '
\1aOCEMIT TEMP9>
10686 <NTHL L5 5 = STACK>
10688 <CALL '
\1aPUSHJ 2 = TEMP9>
10691 <END
\1aIRECORD!-MIMOC>
10693 <GFCN
\1aMARKL!-MIMOC ("VALUE" ANY LIST) L5>
10694 <TEMP AC6:ATOM TEMP13>
10696 <FRAME '
\1aLOAD-AC>
10697 <NTHL L5 1 = STACK>
10699 <CALL '
\1aLOAD-AC 2 = AC6>
10700 <FRAME '
\1aMUNGED-AC>
10702 <CALL '
\1aMUNGED-AC 1>
10707 <CALL '
\1aOCEMIT 3>
10709 <RESTL L5 1 = TEMP13 (TYPE LIST)>
10711 <NTHL TEMP13 1 = TEMP13>
10712 <EQUAL? TEMP13 0 - PHRASE12>
10714 <SET TEMP13 'ANDCAM (TYPE ATOM)>
10717 <SET TEMP13 'IORM (TYPE ATOM)>
10723 <FRAME '
\1aNEXT-AC>
10726 <CALL '
\1aNEXT-AC 1 = TEMP13>
10727 <CONS TEMP13 () = STACK>
10729 <CALL '
\1aOCEMIT 4 = TEMP13>
10732 <END
\1aMARKL!-MIMOC>
10734 <GFCN
\1aMARK-JOIN ("VALUE" ANY ANY) NUM5>
10737 <FRAME '
\1aMUNGED-AC>
10739 <CALL '
\1aMUNGED-AC 1>
10744 <CALL '
\1aOCEMIT 3>
10745 <TYPE? NUM5 <TYPE-CODE FIX> - PHRASE10>
10747 <VEQUAL? NUM5 0 - PHRASE13 (TYPE FIX)>
10749 <SET TEMP16 'ANDCAM (TYPE ATOM)>
10752 <SET TEMP16 'IORM (TYPE ATOM)>
10758 <CALL '
\1aOCEMIT 3 = TEMP16>
10766 <CALL '
\1aOCEMIT 3>
10770 <CALL '
\1aIN-AC? 2 = TEMP16>
10771 <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE22>
10772 <FRAME '
\1aSMASH-AC>
10777 <CALL '
\1aSMASH-AC 3>
10778 <SET TEMP16 'O* (TYPE ATOM)>
10786 <CALL '
\1aOCEMIT 4 = TEMP16>
10791 <GFCN
\1aMARKR!-MIMOC ("VALUE" ANY LIST) L5>
10792 <TEMP END7:ATOM AC6>
10796 <CALL '
\1aGENLBL 1 = END7>
10797 <FRAME '
\1aFLUSH-AC>
10799 <CALL '
\1aFLUSH-AC 1>
10800 <FRAME '
\1aMUNGED-AC>
10802 <CALL '
\1aMUNGED-AC 1>
10803 <FRAME '
\1aLOAD-AC>
10804 <NTHL L5 1 = STACK>
10806 <CALL '
\1aLOAD-AC 2 = AC6>
10811 <CALL '
\1aOCEMIT 3>
10814 <FRAME '
\1aNEXT-AC>
10816 <CALL '
\1aNEXT-AC 1 = STACK>
10818 <CALL '
\1aOCEMIT 3>
10823 <CALL '
\1aXJUMP 1 = STACK>
10824 <CALL '
\1aOCEMIT 2>
10829 <CALL '
\1aOCEMIT 3>
10834 <CALL '
\1aOCEMIT 3>
10838 <FRAME '
\1aNEXT-AC>
10841 <CALL '
\1aNEXT-AC 1 = STACK>
10842 <CALL '
\1aOCEMIT 3>
10843 <FRAME '
\1aMARK-JOIN>
10844 <RESTL L5 1 = AC6 (TYPE LIST)>
10846 <NTHL AC6 1 = STACK>
10848 <CALL '
\1aMARK-JOIN 1>
10852 <CALL '
\1aLABEL 1 = AC6>
10855 <END
\1aMARKR!-MIMOC>
10856 #WORD *15270052231*
10857 <GFCN
\1aMARKU!-MIMOC ("VALUE" ANY LIST) L5>
10860 <FRAME '
\1aMARK!-MIMOC>
10862 <NTHL L5 1 = STACK>
10863 <RESTL L5 1 = TEMP7 (TYPE LIST)>
10865 <NTHL TEMP7 1 = STACK (TYPE FIX)>
10867 <CALL '
\1aMARK!-MIMOC 3 = TEMP7>
10870 <END
\1aMARKU!-MIMOC>
10871 #WORD *13434226770*
10872 <GFCN
\1aMARKUS!-MIMOC ("VALUE" ANY LIST) L5>
10875 <FRAME '
\1aFLUSH-AC>
10877 <CALL '
\1aFLUSH-AC 1>
10878 <FRAME '
\1aMUNGED-AC>
10880 <CALL '
\1aMUNGED-AC 1>
10881 <FRAME '
\1aLOAD-AC>
10882 <NTHL L5 1 = STACK>
10884 <CALL '
\1aLOAD-AC 2 = AC6>
10889 <CONS AC6 () = STACK>
10890 <CALL '
\1aOCEMIT 4>
10894 <FRAME '
\1aNEXT-AC>
10897 <CALL '
\1aNEXT-AC 1 = STACK>
10898 <CALL '
\1aOCEMIT 3>
10903 <CALL '
\1aOCEMIT 3>
10904 <FRAME '
\1aMARK-JOIN>
10905 <RESTL L5 1 = AC6 (TYPE LIST)>
10907 <NTHL AC6 1 = STACK>
10909 <CALL '
\1aMARK-JOIN 1 = AC6>
10912 <END
\1aMARKUS!-MIMOC>
10913 #WORD *13474226770*
10914 <GFCN
\1aMARKUB!-MIMOC ("VALUE" ANY LIST) L5>
10917 <FRAME '
\1aFLUSH-AC>
10919 <CALL '
\1aFLUSH-AC 1>
10920 <FRAME '
\1aMUNGED-AC>
10922 <CALL '
\1aMUNGED-AC 1>
10923 <FRAME '
\1aLOAD-AC>
10924 <NTHL L5 1 = STACK>
10926 <CALL '
\1aLOAD-AC 2 = AC6>
10931 <CONS AC6 () = STACK>
10932 <CALL '
\1aOCEMIT 4>
10936 <FRAME '
\1aNEXT-AC>
10939 <CALL '
\1aNEXT-AC 1 = STACK>
10940 <CALL '
\1aOCEMIT 3>
10945 <CALL '
\1aOCEMIT 3>
10946 <FRAME '
\1aMARK-JOIN>
10947 <RESTL L5 1 = AC6 (TYPE LIST)>
10949 <NTHL AC6 1 = STACK>
10951 <CALL '
\1aMARK-JOIN 1 = AC6>
10954 <END
\1aMARKUB!-MIMOC>
10956 <GFCN
\1aMARKUV!-MIMOC ("VALUE" ANY LIST) L5>
10959 <FRAME '
\1aFLUSH-AC>
10961 <CALL '
\1aFLUSH-AC 1>
10962 <FRAME '
\1aMUNGED-AC>
10964 <CALL '
\1aMUNGED-AC 1>
10965 <FRAME '
\1aLOAD-AC>
10966 <NTHL L5 1 = STACK>
10968 <CALL '
\1aLOAD-AC 2 = AC6>
10973 <CALL '
\1aOCEMIT 3>
10978 <CALL '
\1aOCEMIT 3>
10982 <FRAME '
\1aNEXT-AC>
10985 <CALL '
\1aNEXT-AC 1 = STACK>
10986 <CALL '
\1aOCEMIT 3>
10987 <FRAME '
\1aMARK-JOIN>
10988 <RESTL L5 1 = AC6 (TYPE LIST)>
10990 <NTHL AC6 1 = STACK>
10992 <CALL '
\1aMARK-JOIN 1 = AC6>
10995 <END
\1aMARKUV!-MIMOC>
10996 #WORD *14657004411*
10997 <GFCN
\1aMARKUU!-MIMOC ("VALUE" ANY LIST) L5>
11000 <FRAME '
\1aFLUSH-AC>
11002 <CALL '
\1aFLUSH-AC 1>
11003 <FRAME '
\1aMUNGED-AC>
11005 <CALL '
\1aMUNGED-AC 1>
11006 <FRAME '
\1aLOAD-AC>
11007 <NTHL L5 1 = STACK>
11009 <CALL '
\1aLOAD-AC 2 = AC6>
11014 <CALL '
\1aOCEMIT 3>
11018 <FRAME '
\1aNEXT-AC>
11021 <CALL '
\1aNEXT-AC 1 = STACK>
11022 <CALL '
\1aOCEMIT 3>
11023 <FRAME '
\1aMARK-JOIN>
11024 <RESTL L5 1 = AC6 (TYPE LIST)>
11026 <NTHL AC6 1 = STACK>
11028 <CALL '
\1aMARK-JOIN 1 = AC6>
11031 <END
\1aMARKUU!-MIMOC>
11032 #WORD *16730724417*
11033 <GFCN
\1aMARK!-MIMOC ("VALUE" ANY ATOM ANY FIX) NAM5 OBJ6 VAL7>
11036 <FRAME '
\1aUPDATE-ACS>
11037 <CALL '
\1aUPDATE-ACS 0>
11038 <FRAME '
\1aSMASH-AC>
11043 <CALL '
\1aSMASH-AC 3>
11044 <VEQUAL? VAL7 0 - PHRASE11 (TYPE FIX)>
11050 <CALL '
\1aOCEMIT 3>
11057 <CALL '
\1aOCEMIT 3>
11062 <CALL '
\1aPUSHJ 1 = TEMP18>
11065 <END
\1aMARK!-MIMOC>
11067 <GFCN
\1aMARKL?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
11068 <TEMP AC6:ATOM TEMP10 NAC7:ATOM TEMP14 TEMP22>
11070 <FRAME '
\1aLOAD-AC>
11071 <NTHL L5 1 = STACK>
11073 <CALL '
\1aLOAD-AC 2 = AC6>
11074 <FRAME '
\1aASSIGN-AC>
11075 <RESTL L5 1 = TEMP10 (TYPE LIST)>
11076 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
11077 <NTHL TEMP10 1 = STACK>
11081 <CALL '
\1aASSIGN-AC 3 = NAC7>
11084 <CALL '
\1aGET-AC 1 = TEMP10>
11085 <PUTUV TEMP10 6 'FIX>
11089 <FRAME '
\1aNEXT-AC>
11091 <CALL '
\1aNEXT-AC 1 = STACK>
11092 <SET TEMP14 2 (TYPE FIX)>
11096 <GVAL 'ACS = TEMP10>
11097 <EMPUV? TEMP10 + TAG17>
11098 <LOOP (AC6 VALUE) (TEMP10 LENGTH VALUE)>
11100 <NTHUV TEMP10 1 = TEMP22>
11101 <TYPE? TEMP22 <TYPE-CODE ATOM> - TAG20>
11102 <VEQUAL? TEMP22 AC6 + TAG18>
11105 <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
11106 <EMPUV? TEMP10 - TAG19>
11108 <SET TEMP10 %<> (TYPE FALSE)>
11110 <NTHUV TEMP10 2 = STACK>
11112 <CALL '
\1a+ 2 = TEMP10>
11113 <LSH TEMP10 18 = TEMP10 (TYPE FIX)>
11114 <OR TEMP10 #WORD *1* = STACK>
11116 <SCALL '
\1aOBJ-VAL 1 = TEMP10 + TAG12 TEMP14>
11117 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP14 VALUE)>
11120 <EMPTY? TEMP10 + TAG12>
11121 <NTH1 TEMP10 = STACK>
11122 <REST1 TEMP10 = TEMP10>
11123 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
11126 <CALL '
\1aOCEMIT TEMP14>
11128 <FRAME '
\1aCOND-PUSH>
11129 <RESTL L5 1 = TEMP14 (TYPE LIST)>
11131 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
11132 <NTHL TEMP14 1 = STACK (TYPE ATOM)>
11136 <CALL '
\1aCOND-PUSH 2 = TEMP14>
11139 <END
\1aMARKL?!-MIMOC>
11140 #WORD *20642213161*
11141 <GFCN
\1aMARKR?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
11142 <TEMP END8:ATOM (REL10 %<>) TEMP14 TEMP15 AC6:ATOM NAC7:ATOM TEMP27>
11146 <CALL '
\1aGENLBL 1 = END8>
11148 <SET TEMP15 4 (TYPE FIX)>
11149 <LOOP (TEMP14 VALUE) (TEMP15 VALUE)>
11151 <EMPL? TEMP14 + PHRASE13>
11152 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
11153 <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
11154 <GRTR? TEMP15 0 + TAG16 (TYPE FIX)>
11155 <EMPL? TEMP14 - PHRASE13>
11157 <RESTL L5 1 = TEMP14 (TYPE LIST)>
11158 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
11159 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
11160 <NTHL TEMP14 1 = TEMP15>
11162 <SET REL10 'T (TYPE ATOM)>
11165 <RESTL L5 1 = TEMP14 (TYPE LIST)>
11166 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
11167 <NTHL TEMP14 1 = TEMP15>
11170 <FRAME '
\1aFLUSH-AC>
11172 <CALL '
\1aFLUSH-AC 1>
11173 <FRAME '
\1aMUNGED-AC>
11175 <CALL '
\1aMUNGED-AC 1>
11176 <FRAME '
\1aLOAD-AC>
11177 <NTHL L5 1 = STACK>
11180 <CALL '
\1aLOAD-AC 2 = AC6>
11181 <FRAME '
\1aASSIGN-AC>
11185 <CALL '
\1aASSIGN-AC 3 = NAC7>
11188 <FRAME '
\1aNEXT-AC>
11190 <CALL '
\1aNEXT-AC 1 = STACK>
11192 <CALL '
\1aOCEMIT 3>
11193 <VEQUAL? REL10 0 + PHRASE25>
11197 <SET TEMP27 2 (TYPE FIX)>
11198 <SFRAME 'TYPE-WORD>
11200 <SCALL '
\1aTYPE-WORD 1 = TEMP14 + TAG26 TEMP27>
11201 <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP27 VALUE)>
11204 <EMPTY? TEMP14 + TAG26>
11205 <NTH1 TEMP14 = STACK>
11206 <REST1 TEMP14 = TEMP14>
11207 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
11210 <CALL '
\1aOCEMIT TEMP27>
11217 <CALL '
\1aOCEMIT 3>
11220 <FRAME '
\1aNEXT-AC>
11222 <CALL '
\1aNEXT-AC 1 = STACK>
11224 <CALL '
\1aOCEMIT 3>
11229 <CALL '
\1aXJUMP 1 = STACK>
11230 <CALL '
\1aOCEMIT 2>
11235 <CALL '
\1aOCEMIT 3>
11240 <CALL '
\1aOCEMIT 3>
11241 <FRAME '
\1aMARK?-JOIN>
11249 <CALL '
\1aMARK?-JOIN 5>
11254 <FRAME '
\1aCOND-PUSH>
11259 <CALL '
\1aCOND-PUSH 2 = TEMP27>
11262 <END
\1aMARKR?!-MIMOC>
11263 #WORD *20400154607*
11264 <GFCN
\1aMARKU?!-MIMOC ("VALUE" ANY LIST) L5>
11267 <FRAME '
\1aUPDATE-ACS>
11268 <CALL '
\1aUPDATE-ACS 0>
11269 <FRAME '
\1aSMASH-AC>
11271 <NTHL L5 1 = STACK>
11273 <CALL '
\1aSMASH-AC 3>
11276 <RESTL L5 1 = TEMP9 (TYPE LIST)>
11278 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
11279 <NTHL TEMP9 1 = STACK>
11281 <CALL '
\1aPUSHJ 2 = TEMP9>
11284 <END
\1aMARKU?!-MIMOC>
11286 <GFCN
\1aMARKUS?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
11287 <TEMP (REL9 %<>) TEMP12 TEMP13 NAC7:ATOM>
11290 <SET TEMP13 4 (TYPE FIX)>
11291 <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
11293 <EMPL? TEMP12 + PHRASE11>
11294 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11295 <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
11296 <GRTR? TEMP13 0 + TAG14 (TYPE FIX)>
11297 <EMPL? TEMP12 - PHRASE11>
11299 <RESTL L5 1 = TEMP12 (TYPE LIST)>
11300 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11301 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11302 <NTHL TEMP12 1 = TEMP12>
11303 <SET REL9 'T (TYPE ATOM)>
11306 <RESTL L5 1 = TEMP12 (TYPE LIST)>
11307 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11308 <NTHL TEMP12 1 = TEMP12>
11310 <FRAME '
\1aFLUSH-AC>
11312 <CALL '
\1aFLUSH-AC 1>
11313 <FRAME '
\1aMUNGED-AC>
11315 <CALL '
\1aMUNGED-AC 1>
11316 <FRAME '
\1aLOAD-AC>
11317 <NTHL L5 1 = STACK>
11320 <CALL '
\1aLOAD-AC 2 = TEMP13>
11321 <FRAME '
\1aASSIGN-AC>
11325 <CALL '
\1aASSIGN-AC 3 = NAC7>
11330 <CONS TEMP13 () = STACK>
11331 <CALL '
\1aOCEMIT 4>
11332 <FRAME '
\1aMARK?-JOIN>
11339 <CALL '
\1aMARK?-JOIN 4>
11340 <FRAME '
\1aCOND-PUSH>
11345 <CALL '
\1aCOND-PUSH 2 = TEMP12>
11348 <END
\1aMARKUS?!-MIMOC>
11350 <GFCN
\1aMARKUB?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
11351 <TEMP (REL9 %<>) TEMP12 TEMP13 NAC7:ATOM>
11354 <SET TEMP13 4 (TYPE FIX)>
11355 <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
11357 <EMPL? TEMP12 + PHRASE11>
11358 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11359 <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
11360 <GRTR? TEMP13 0 + TAG14 (TYPE FIX)>
11361 <EMPL? TEMP12 - PHRASE11>
11363 <RESTL L5 1 = TEMP12 (TYPE LIST)>
11364 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11365 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11366 <NTHL TEMP12 1 = TEMP12>
11367 <SET REL9 'T (TYPE ATOM)>
11370 <RESTL L5 1 = TEMP12 (TYPE LIST)>
11371 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11372 <NTHL TEMP12 1 = TEMP12>
11374 <FRAME '
\1aFLUSH-AC>
11376 <CALL '
\1aFLUSH-AC 1>
11377 <FRAME '
\1aMUNGED-AC>
11379 <CALL '
\1aMUNGED-AC 1>
11380 <FRAME '
\1aLOAD-AC>
11381 <NTHL L5 1 = STACK>
11384 <CALL '
\1aLOAD-AC 2 = TEMP13>
11385 <FRAME '
\1aASSIGN-AC>
11389 <CALL '
\1aASSIGN-AC 3 = NAC7>
11394 <CONS TEMP13 () = STACK>
11395 <CALL '
\1aOCEMIT 4>
11396 <FRAME '
\1aMARK?-JOIN>
11403 <CALL '
\1aMARK?-JOIN 4>
11404 <FRAME '
\1aCOND-PUSH>
11409 <CALL '
\1aCOND-PUSH 2 = TEMP12>
11412 <END
\1aMARKUB?!-MIMOC>
11413 #WORD *37111412674*
11414 <GFCN
\1aMARKUU?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
11415 <TEMP (REL9 %<>) TEMP12 TEMP13 NAC7:ATOM>
11418 <SET TEMP13 4 (TYPE FIX)>
11419 <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
11421 <EMPL? TEMP12 + PHRASE11>
11422 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11423 <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
11424 <GRTR? TEMP13 0 + TAG14 (TYPE FIX)>
11425 <EMPL? TEMP12 - PHRASE11>
11427 <RESTL L5 1 = TEMP12 (TYPE LIST)>
11428 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11429 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11430 <NTHL TEMP12 1 = TEMP12>
11431 <SET REL9 'T (TYPE ATOM)>
11434 <RESTL L5 1 = TEMP12 (TYPE LIST)>
11435 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11436 <NTHL TEMP12 1 = TEMP12>
11438 <FRAME '
\1aFLUSH-AC>
11440 <CALL '
\1aFLUSH-AC 1>
11441 <FRAME '
\1aMUNGED-AC>
11443 <CALL '
\1aMUNGED-AC 1>
11444 <FRAME '
\1aLOAD-AC>
11445 <NTHL L5 1 = STACK>
11448 <CALL '
\1aLOAD-AC 2 = TEMP13>
11449 <FRAME '
\1aASSIGN-AC>
11453 <CALL '
\1aASSIGN-AC 3 = NAC7>
11458 <CALL '
\1aOCEMIT 3>
11459 <FRAME '
\1aMARK?-JOIN>
11465 <CALL '
\1aMARK?-JOIN 3>
11466 <FRAME '
\1aCOND-PUSH>
11471 <CALL '
\1aCOND-PUSH 2 = TEMP12>
11474 <END
\1aMARKUU?!-MIMOC>
11476 <GFCN
\1aMARKUV?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
11477 <TEMP (REL9 %<>) TEMP12 TEMP13 NAC7:ATOM>
11480 <SET TEMP13 4 (TYPE FIX)>
11481 <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
11483 <EMPL? TEMP12 + PHRASE11>
11484 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11485 <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
11486 <GRTR? TEMP13 0 + TAG14 (TYPE FIX)>
11487 <EMPL? TEMP12 - PHRASE11>
11489 <RESTL L5 1 = TEMP12 (TYPE LIST)>
11490 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11491 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11492 <NTHL TEMP12 1 = TEMP12>
11493 <SET REL9 'T (TYPE ATOM)>
11496 <RESTL L5 1 = TEMP12 (TYPE LIST)>
11497 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11498 <NTHL TEMP12 1 = TEMP12>
11500 <FRAME '
\1aFLUSH-AC>
11502 <CALL '
\1aFLUSH-AC 1>
11503 <FRAME '
\1aMUNGED-AC>
11505 <CALL '
\1aMUNGED-AC 1>
11506 <FRAME '
\1aLOAD-AC>
11507 <NTHL L5 1 = STACK>
11510 <CALL '
\1aLOAD-AC 2 = TEMP13>
11511 <FRAME '
\1aASSIGN-AC>
11515 <CALL '
\1aASSIGN-AC 3 = NAC7>
11520 <CALL '
\1aOCEMIT 3>
11525 <CALL '
\1aOCEMIT 3>
11526 <FRAME '
\1aMARK?-JOIN>
11532 <CALL '
\1aMARK?-JOIN 3>
11533 <FRAME '
\1aCOND-PUSH>
11538 <CALL '
\1aCOND-PUSH 2 = TEMP12>
11541 <END
\1aMARKUV?!-MIMOC>
11543 <GFCN
\1aCOND-PUSH ("VALUE" <OR FALSE FIX> ATOM ATOM) ITM5 AC6>
11546 <VEQUAL? ITM5 'STACK + TAG10>
11554 <CALL '
\1aOCEMIT 3>
11558 <FRAME '
\1aNEXT-AC>
11561 <CALL '
\1aNEXT-AC 1 = STACK>
11562 <CALL '
\1aOCEMIT 3>
11563 <GVAL 'WINNING-VICTIM = TEMP9>
11564 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE15>
11565 <GVAL 'STACK-DEPTH = TEMP9>
11566 <ADD TEMP9 2 = TEMP9 (TYPE FIX)>
11567 <SETG 'STACK-DEPTH TEMP9>
11572 #WORD *13564444547*
11573 <GFCN
\1aMARK?-JOIN ("VALUE" ANY ATOM ATOM ANY "OPTIONAL" ANY ANY) AC10 NAC11 REL12 DIV13 NO-LOAD-TYPE14>
11574 <OPT-DISPATCH 3 %<> OPT7 OPT8 OPT9>
11580 <TEMP L115 L216:ATOM TEMP30 TEMP33>
11584 <CALL '
\1aGENLBL 1 = L115>
11587 <CALL '
\1aGENLBL 1 = L216>
11588 <TYPE? DIV13 <TYPE-CODE FALSE> + PHRASE20>
11593 <FRAME '
\1aNEXT-AC>
11595 <CALL '
\1aNEXT-AC 1 = STACK>
11596 <CALL '
\1aOCEMIT 3>
11601 <CALL '
\1aOCEMIT 3>
11607 <FRAME '
\1aNEXT-AC>
11609 <CALL '
\1aNEXT-AC 1 = STACK>
11610 <CALL '
\1aOCEMIT 3>
11612 <TYPE? REL12 <TYPE-CODE FALSE> - PHRASE28>
11615 <CALL '
\1aGET-AC 1 = TEMP30>
11616 <PUTUV TEMP30 6 'FIX>
11621 <FRAME '
\1aNEXT-AC>
11623 <CALL '
\1aNEXT-AC 1 = STACK>
11624 <SET TEMP33 2 (TYPE FIX)>
11626 <PUSH -32193642496>
11627 <SCALL '
\1aOBJ-VAL 1 = TEMP30 + TAG31 TEMP33>
11628 <LOOP (TEMP30 TYPE VALUE LENGTH) (TEMP33 VALUE)>
11631 <EMPTY? TEMP30 + TAG31>
11632 <NTH1 TEMP30 = STACK>
11633 <REST1 TEMP30 = TEMP30>
11634 <ADD TEMP33 1 = TEMP33 (TYPE FIX)>
11637 <CALL '
\1aOCEMIT TEMP33>
11641 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE38>
11644 <FRAME '
\1aNEXT-AC>
11646 <CALL '
\1aNEXT-AC 1 = STACK>
11649 <CALL '
\1aXJUMP 1 = STACK>
11650 <CALL '
\1aOCEMIT 3>
11656 <CALL '
\1aOCEMIT 3>
11659 <FRAME '
\1aNEXT-AC>
11661 <CALL '
\1aNEXT-AC 1 = STACK>
11664 <CALL '
\1aOCEMIT 4>
11669 <CALL '
\1aXJUMP 1 = STACK>
11670 <CALL '
\1aOCEMIT 2>
11675 <TYPE? NO-LOAD-TYPE14 <TYPE-CODE FALSE> - PHRASE49>
11676 <DEAD NO-LOAD-TYPE14>
11680 <SET L115 2 (TYPE FIX)>
11681 <SFRAME 'TYPE-WORD>
11683 <SCALL '
\1aTYPE-WORD 1 = TEMP30 + TAG50 L115>
11684 <LOOP (TEMP30 TYPE VALUE LENGTH) (L115 VALUE)>
11687 <EMPTY? TEMP30 + TAG50>
11688 <NTH1 TEMP30 = STACK>
11689 <REST1 TEMP30 = TEMP30>
11690 <ADD L115 1 = L115 (TYPE FIX)>
11693 <CALL '
\1aOCEMIT L115>
11698 <FRAME '
\1aNEXT-AC>
11701 <CALL '
\1aNEXT-AC 1 = STACK>
11703 <CALL '
\1aOCEMIT 3>
11707 <CALL '
\1aLABEL 1 = TEMP33>
11711 <END
\1aMARK?-JOIN>
\r\r
11712 <SETG LDB-PAREN-T -32193642496>
11714 <MANIFEST LDB-PAREN-T>
11716 #WORD *30530055614*
11717 <GFCN
\1aSWNEXT!-MIMOC ("VALUE" ANY LIST) L4>
11720 <FRAME '
\1aUPDATE-ACS>
11721 <CALL '
\1aUPDATE-ACS 0>
11725 <SET TEMP8 2 (TYPE FIX)>
11727 <NTHL L4 1 = STACK>
11728 <SCALL '
\1aOBJ-TYP 1 = TEMP7 + TAG6 TEMP8>
11729 <LOOP (TEMP7 TYPE VALUE LENGTH) (TEMP8 VALUE)>
11732 <EMPTY? TEMP7 + TAG6>
11733 <NTH1 TEMP7 = STACK>
11734 <REST1 TEMP7 = TEMP7>
11735 <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
11738 <CALL '
\1aOCEMIT TEMP8>
11743 <SET TEMP7 2 (TYPE FIX)>
11745 <RESTL L4 1 = TEMP8 (TYPE LIST)>
11746 <NTHL TEMP8 1 = STACK>
11748 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG12 TEMP7>
11749 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP7 VALUE)>
11752 <EMPTY? TEMP8 + TAG12>
11753 <NTH1 TEMP8 = STACK>
11754 <REST1 TEMP8 = TEMP8>
11755 <ADD TEMP7 1 = TEMP7 (TYPE FIX)>
11758 <CALL '
\1aOCEMIT TEMP7>
11762 <RESTL L4 1 = TEMP8 (TYPE LIST)>
11764 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
11765 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
11766 <NTHL TEMP8 1 = STACK>
11768 <CALL '
\1aPUSHJ 2 = TEMP8>
11771 <END
\1aSWNEXT!-MIMOC>
11773 <GFCN
\1aNEXTS!-MIMOC ("VALUE" ANY LIST) L5>
11776 <FRAME '
\1aUPDATE-ACS>
11777 <CALL '
\1aUPDATE-ACS 0>
11781 <SET TEMP9 2 (TYPE FIX)>
11783 <NTHL L5 1 = STACK>
11784 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
11785 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
11788 <EMPTY? TEMP8 + TAG7>
11789 <NTH1 TEMP8 = STACK>
11790 <REST1 TEMP8 = TEMP8>
11791 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
11794 <CALL '
\1aOCEMIT TEMP9>
11798 <RESTL L5 1 = TEMP9 (TYPE LIST)>
11800 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
11801 <NTHL TEMP9 1 = STACK>
11803 <CALL '
\1aPUSHJ 2 = TEMP9>
11806 <END
\1aNEXTS!-MIMOC>
11807 #WORD *31000655344*
11808 <GFCN
\1aCONTENTS!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
11809 <TEMP TEMP9 AC6:ATOM>
11811 <FRAME '
\1aSMASH-AC>
11813 <NTHL L5 1 = STACK>
11815 <CALL '
\1aSMASH-AC 3>
11816 <FRAME '
\1aASSIGN-AC>
11817 <RESTL L5 1 = TEMP9 (TYPE LIST)>
11818 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
11819 <NTHL TEMP9 1 = STACK>
11823 <CALL '
\1aASSIGN-AC 3 = AC6>
11828 <CALL '
\1aOCEMIT 3>
11833 <CALL '
\1aOCEMIT 3>
11836 <FRAME '
\1aNEXT-AC>
11838 <CALL '
\1aNEXT-AC 1 = STACK>
11841 <CALL '
\1aOCEMIT 4>
11842 <RESTL L5 1 = TEMP9 (TYPE LIST)>
11844 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
11845 <NTHL TEMP9 1 = TEMP9>
11846 <EQUAL? TEMP9 'STACK + TAG16>
11854 <CALL '
\1aOCEMIT 3>
11858 <FRAME '
\1aNEXT-AC>
11861 <CALL '
\1aNEXT-AC 1 = STACK>
11862 <CALL '
\1aOCEMIT 3>
11863 <GVAL 'WINNING-VICTIM = TEMP9>
11864 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE22>
11865 <GVAL 'STACK-DEPTH = TEMP9>
11866 <ADD TEMP9 2 = TEMP9 (TYPE FIX)>
11867 <SETG 'STACK-DEPTH TEMP9>
11871 <END
\1aCONTENTS!-MIMOC>
11873 <GFCN
\1aPUTS!-MIMOC ("VALUE" ANY LIST) L5>
11876 <FRAME '
\1aLOAD-AC>
11877 <RESTL L5 1 = TEMP8 (TYPE LIST)>
11878 <NTHL TEMP8 1 = STACK>
11881 <CALL '
\1aLOAD-AC 2 = TEMP8>
11882 <FRAME '
\1aSMASH-AC>
11884 <NTHL L5 1 = STACK>
11887 <CALL '
\1aSMASH-AC 3>
11888 <FRAME '
\1aFLUSH-AC>
11890 <CALL '
\1aFLUSH-AC 1>
11891 <FRAME '
\1aMUNGED-AC>
11893 <CALL '
\1aMUNGED-AC 1>
11898 <CALL '
\1aOCEMIT 3>
11903 <CALL '
\1aOCEMIT 3>
11909 <CALL '
\1aOCEMIT 3 = TEMP8>
11912 <END
\1aPUTS!-MIMOC>
11913 #WORD *37551102046*
11914 <GFCN
\1aALLOCL!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
11915 <TEMP TEMP8 AC6:ATOM TEMP10>
11917 <FRAME '
\1aASSIGN-AC>
11918 <RESTL L5 1 = TEMP8 (TYPE LIST)>
11919 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
11920 <NTHL TEMP8 1 = STACK>
11924 <CALL '
\1aASSIGN-AC 3 = AC6>
11928 <SET TEMP10 2 (TYPE FIX)>
11929 <SFRAME 'TYPE-WORD>
11931 <SCALL '
\1aTYPE-WORD 1 = TEMP8 + TAG9 TEMP10>
11932 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP10 VALUE)>
11935 <EMPTY? TEMP8 + TAG9>
11936 <NTH1 TEMP8 = STACK>
11937 <REST1 TEMP8 = TEMP8>
11938 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
11941 <CALL '
\1aOCEMIT TEMP10>
11945 <FRAME '
\1aNEXT-AC>
11947 <CALL '
\1aNEXT-AC 1 = STACK>
11948 <SET TEMP8 2 (TYPE FIX)>
11950 <NTHL L5 1 = STACK>
11951 <SCALL '
\1aOBJ-VAL 1 = TEMP10 + TAG14 TEMP8>
11952 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP8 VALUE)>
11955 <EMPTY? TEMP10 + TAG14>
11956 <NTH1 TEMP10 = STACK>
11957 <REST1 TEMP10 = TEMP10>
11958 <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
11961 <CALL '
\1aOCEMIT TEMP8>
11963 <RESTL L5 1 = TEMP10 (TYPE LIST)>
11965 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
11966 <NTHL TEMP10 1 = TEMP10>
11967 <EQUAL? TEMP10 'STACK + TAG21>
11975 <CALL '
\1aOCEMIT 3>
11979 <FRAME '
\1aNEXT-AC>
11982 <CALL '
\1aNEXT-AC 1 = STACK>
11983 <CALL '
\1aOCEMIT 3>
11984 <GVAL 'WINNING-VICTIM = TEMP8>
11985 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE26>
11986 <GVAL 'STACK-DEPTH = TEMP10>
11987 <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
11988 <SETG 'STACK-DEPTH TEMP10>
11994 <END
\1aALLOCL!-MIMOC>
11995 #WORD *23430623677*
11996 <GFCN
\1aALLOCUV!-MIMOC ("VALUE" ANY LIST) L5>
11999 <FRAME '
\1aALLOC-JOIN>
12000 <NTHL L5 1 = STACK>
12001 <RESTL L5 1 = TEMP7 (TYPE LIST)>
12002 <NTHL TEMP7 1 = STACK>
12004 <RESTL L5 1 = TEMP7 (TYPE LIST)>
12006 <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
12007 <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
12008 <NTHL TEMP7 1 = STACK>
12011 <CALL '
\1aALLOC-JOIN 4 = TEMP7>
12014 <END
\1aALLOCUV!-MIMOC>
12015 #WORD *20660462017*
12016 <GFCN
\1aALLOCUU!-MIMOC ("VALUE" ANY LIST) L5>
12019 <FRAME '
\1aALLOC-JOIN>
12020 <NTHL L5 1 = STACK>
12021 <RESTL L5 1 = TEMP7 (TYPE LIST)>
12022 <NTHL TEMP7 1 = STACK>
12024 <RESTL L5 1 = TEMP7 (TYPE LIST)>
12026 <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
12027 <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
12028 <NTHL TEMP7 1 = STACK>
12031 <CALL '
\1aALLOC-JOIN 4 = TEMP7>
12034 <END
\1aALLOCUU!-MIMOC>
12035 #WORD *32542612610*
12036 <GFCN
\1aALLOCUS!-MIMOC ("VALUE" <OR FALSE FIX> LIST "OPTIONAL" ANY) L8 BYTES?9>
12037 <OPT-DISPATCH 1 %<> OPT6 OPT7>
12041 <TEMP TEMP12 AC10 TEMP15 TEMP24>
12043 <FRAME '
\1aASSIGN-AC>
12044 <RESTL L8 1 = TEMP12 (TYPE LIST)>
12045 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
12046 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
12047 <NTHL TEMP12 1 = STACK>
12051 <CALL '
\1aASSIGN-AC 3 = AC10>
12054 <FRAME '
\1aNEXT-AC>
12056 <CALL '
\1aNEXT-AC 1 = STACK>
12057 <SET TEMP15 2 (TYPE FIX)>
12059 <NTHL L8 1 = STACK>
12060 <SCALL '
\1aOBJ-VAL 1 = TEMP12 + TAG13 TEMP15>
12061 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP15 VALUE)>
12064 <EMPTY? TEMP12 + TAG13>
12065 <NTH1 TEMP12 = STACK>
12066 <REST1 TEMP12 = TEMP12>
12067 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
12070 <CALL '
\1aOCEMIT TEMP15>
12074 <FRAME '
\1aNEXT-AC>
12076 <CALL '
\1aNEXT-AC 1 = STACK>
12077 <SET TEMP12 2 (TYPE FIX)>
12079 <TYPE? BYTES?9 <TYPE-CODE FALSE> + PHRASE23>
12081 <SET TEMP24 -17179869185 (TYPE FIX)>
12084 <SET TEMP24 -10737418241 (TYPE FIX)>
12088 <SCALL '
\1aOBJ-VAL 1 = TEMP15 + TAG19 TEMP12>
12089 <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP12 VALUE)>
12092 <EMPTY? TEMP15 + TAG19>
12093 <NTH1 TEMP15 = STACK>
12094 <REST1 TEMP15 = TEMP15>
12095 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
12098 <CALL '
\1aOCEMIT TEMP12>
12103 <SET TEMP15 2 (TYPE FIX)>
12105 <RESTL L8 1 = TEMP24 (TYPE LIST)>
12106 <NTHL TEMP24 1 = STACK>
12108 <SCALL '
\1aOBJ-TYP 1 = TEMP12 + TAG28 TEMP15>
12109 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP15 VALUE)>
12112 <EMPTY? TEMP12 + TAG28>
12113 <NTH1 TEMP12 = STACK>
12114 <REST1 TEMP12 = TEMP12>
12115 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
12118 <CALL '
\1aOCEMIT TEMP15>
12120 <RESTL L8 1 = TEMP12 (TYPE LIST)>
12122 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
12123 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
12124 <NTHL TEMP12 1 = TEMP12>
12125 <EQUAL? TEMP12 'STACK + TAG34>
12133 <CALL '
\1aOCEMIT 3>
12137 <FRAME '
\1aNEXT-AC>
12140 <CALL '
\1aNEXT-AC 1 = STACK>
12141 <CALL '
\1aOCEMIT 3>
12142 <GVAL 'WINNING-VICTIM = TEMP15>
12143 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE39>
12144 <GVAL 'STACK-DEPTH = TEMP12>
12145 <ADD TEMP12 2 = TEMP12 (TYPE FIX)>
12146 <SETG 'STACK-DEPTH TEMP12>
12147 <SET TEMP15 TEMP12>
12152 <END
\1aALLOCUS!-MIMOC>
12153 #WORD *12642005423*
12154 <GFCN
\1aALLOCUB!-MIMOC ("VALUE" <OR FALSE FIX> ANY) L5>
12157 <FRAME '
\1aALLOCUS!-MIMOC>
12161 <CALL '
\1aALLOCUS!-MIMOC 2 = TEMP7>
12164 <END
\1aALLOCUB!-MIMOC>
12165 #WORD *22760620037*
12166 <GFCN
\1aALLOCR!-MIMOC ("VALUE" ANY LIST) L5>
12169 <FRAME '
\1aALLOC-JOIN>
12170 <NTHL L5 1 = STACK>
12171 <RESTL L5 1 = TEMP7 (TYPE LIST)>
12172 <NTHL TEMP7 1 = STACK>
12174 <RESTL L5 1 = TEMP7 (TYPE LIST)>
12176 <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
12177 <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
12178 <NTHL TEMP7 1 = STACK>
12181 <CALL '
\1aALLOC-JOIN 4 = TEMP7>
12184 <END
\1aALLOCR!-MIMOC>
12185 #WORD *11267037532*
12186 <GFCN
\1aALLOC-JOIN ("VALUE" ANY ANY ANY ANY ANY) WHERE5 OLD6 NEW7 TYP8>
12187 <TEMP TEMP14 TEMP13 TEMP29>
12189 <EQUAL? NEW7 'STACK - PHRASE11>
12193 <SET TEMP14 2 (TYPE FIX)>
12197 <SCALL '
\1aOBJ-TYP 1 = TEMP13 + TAG12 TEMP14>
12198 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP14 VALUE)>
12201 <EMPTY? TEMP13 + TAG12>
12202 <NTH1 TEMP13 = STACK>
12203 <REST1 TEMP13 = TEMP13>
12204 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
12207 <CALL '
\1aOCEMIT TEMP14>
12209 <GVAL 'WINNING-VICTIM = TEMP14>
12210 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE19>
12212 <GVAL 'STACK-DEPTH = TEMP14>
12213 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
12214 <SETG 'STACK-DEPTH TEMP14>
12220 <SET TEMP13 2 (TYPE FIX)>
12224 <SCALL '
\1aOBJ-VAL 1 = TEMP14 + TAG20 TEMP13>
12225 <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP13 VALUE)>
12228 <EMPTY? TEMP14 + TAG20>
12229 <NTH1 TEMP14 = STACK>
12230 <REST1 TEMP14 = TEMP14>
12231 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
12234 <CALL '
\1aOCEMIT TEMP13>
12236 <GVAL 'WINNING-VICTIM = TEMP13>
12237 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE26>
12238 <GVAL 'STACK-DEPTH = TEMP14>
12239 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
12240 <SETG 'STACK-DEPTH TEMP14>
12244 <FRAME '
\1aASSIGN-AC>
12249 <CALL '
\1aASSIGN-AC 3 = TEMP13>
12253 <SET TEMP29 2 (TYPE FIX)>
12257 <SCALL '
\1aOBJ-TYP 1 = TEMP14 + TAG28 TEMP29>
12258 <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP29 VALUE)>
12261 <EMPTY? TEMP14 + TAG28>
12262 <NTH1 TEMP14 = STACK>
12263 <REST1 TEMP14 = TEMP14>
12264 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
12267 <CALL '
\1aOCEMIT TEMP29>
12271 <FRAME '
\1aNEXT-AC>
12274 <CALL '
\1aNEXT-AC 1 = STACK>
12275 <SET TEMP14 2 (TYPE FIX)>
12279 <SCALL '
\1aOBJ-VAL 1 = TEMP29 + TAG33 TEMP14>
12280 <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP14 VALUE)>
12283 <EMPTY? TEMP29 + TAG33>
12284 <NTH1 TEMP29 = STACK>
12285 <REST1 TEMP29 = TEMP29>
12286 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
12289 <CALL '
\1aOCEMIT TEMP14 = TEMP13>
12294 <END
\1aALLOC-JOIN>
12295 #WORD *16761317722*
12296 <GFCN
\1aBLT!-MIMOC ("VALUE" ANY LIST) L5>
12297 <TEMP TEMP10 TEMP9 TEMP16:LIST>
12299 <FRAME '
\1aFLUSH-AC>
12301 <CALL '
\1aFLUSH-AC 1>
12302 <FRAME '
\1aMUNGED-AC>
12304 <CALL '
\1aMUNGED-AC 1>
12308 <SET TEMP10 2 (TYPE FIX)>
12310 <NTHL L5 1 = STACK>
12311 <SCALL '
\1aOBJ-VAL 1 = TEMP9 + TAG8 TEMP10>
12312 <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP10 VALUE)>
12315 <EMPTY? TEMP9 + TAG8>
12316 <NTH1 TEMP9 = STACK>
12317 <REST1 TEMP9 = TEMP9>
12318 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
12321 <CALL '
\1aOCEMIT TEMP10>
12326 <SET TEMP9 2 (TYPE FIX)>
12328 <RESTL L5 1 = TEMP16 (TYPE LIST)>
12329 <NTHL TEMP16 1 = STACK>
12331 <SCALL '
\1aOBJ-VAL 1 = TEMP10 + TAG14 TEMP9>
12332 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP9 VALUE)>
12335 <EMPTY? TEMP10 + TAG14>
12336 <NTH1 TEMP10 = STACK>
12337 <REST1 TEMP10 = TEMP10>
12338 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
12341 <CALL '
\1aOCEMIT TEMP9>
12346 <SET TEMP10 2 (TYPE FIX)>
12348 <RESTL L5 1 = TEMP16 (TYPE LIST)>
12350 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
12351 <NTHL TEMP16 1 = STACK>
12353 <SCALL '
\1aOBJ-VAL 1 = TEMP9 + TAG19 TEMP10>
12354 <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP10 VALUE)>
12357 <EMPTY? TEMP9 + TAG19>
12358 <NTH1 TEMP9 = STACK>
12359 <REST1 TEMP9 = TEMP9>
12360 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
12363 <CALL '
\1aOCEMIT TEMP10>
12368 <SET TEMP9 2 (TYPE FIX)>
12371 <SCALL '
\1aOBJ-VAL 1 = TEMP10 + TAG23 TEMP9>
12372 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP9 VALUE)>
12375 <EMPTY? TEMP10 + TAG23>
12376 <NTH1 TEMP10 = STACK>
12377 <REST1 TEMP10 = TEMP10>
12378 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
12381 <CALL '
\1aOCEMIT TEMP9 = TEMP9>
12384 <END
\1aBLT!-MIMOC>
12386 <GFCN
\1aRELL!-MIMOC ("VALUE" ANY LIST) L5>
12389 <FRAME '
\1aUPDATE-ACS>
12390 <CALL '
\1aUPDATE-ACS 0>
12391 <FRAME '
\1aSMASH-AC>
12393 <NTHL L5 1 = STACK>
12396 <CALL '
\1aSMASH-AC 3>
12399 <CALL '
\1aPUSHJ 1 = TEMP9>
12402 <END
\1aRELL!-MIMOC>
12404 <GFCN
\1aRELU!-MIMOC ("VALUE" ANY LIST) L5>
12407 <FRAME '
\1aUPDATE-ACS>
12408 <CALL '
\1aUPDATE-ACS 0>
12409 <FRAME '
\1aSMASH-AC>
12411 <NTHL L5 1 = STACK>
12414 <CALL '
\1aSMASH-AC 3>
12417 <CALL '
\1aPUSHJ 1 = TEMP9>
12420 <END
\1aRELU!-MIMOC>
12422 <GFCN
\1aRELR!-MIMOC ("VALUE" ANY LIST) L5>
12425 <FRAME '
\1aUPDATE-ACS>
12426 <CALL '
\1aUPDATE-ACS 0>
12427 <FRAME '
\1aSMASH-AC>
12429 <NTHL L5 1 = STACK>
12432 <CALL '
\1aSMASH-AC 3>
12435 <CALL '
\1aPUSHJ 1 = TEMP9>
12438 <END
\1aRELR!-MIMOC>
12440 <GFCN
\1aLOOP!-MIMOC ("VALUE" <OR ATOM FALSE> LIST) L4>
12441 <TEMP TEMP10 LFS8 TEMP19 TEMP28 TEMP40 LL52 TEMP61 ACS73:VECTOR A174:AC TEMP88 A275:AC ACS2105:ACSTATE>
12444 <GEN-LVAL 'MIML = STACK>
12446 <CALL '
\1aNTH 2 = TEMP10>
12447 <TYPE? TEMP10 <TYPE-CODE ATOM> + TAG16>
12450 <GVAL TEMP10 = TEMP10>
12451 <NTHUV TEMP10 5 = LFS8>
12453 <SETG 'NEXT-LOOP 'T>
12454 <GEN-LVAL 'MIML = TEMP19>
12455 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
12456 <NTHL TEMP19 1 = STACK>
12458 <SET TEMP10 1 (TYPE FIX)>
12459 <GVAL 'LOOPTAGS = TEMP19>
12460 <TYPE TEMP19 = TEMP28>
12461 <AND TEMP28 7 = TEMP28>
12462 <VEQUAL? TEMP28 1 + TAG24>
12464 <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP10 VALUE)>
12467 <EMPTY? TEMP19 + TAG29>
12468 <NTH1 TEMP19 = STACK>
12469 <REST1 TEMP19 = TEMP19>
12470 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
12473 <LIST TEMP10 = TEMP19 (TYPE LIST)>
12479 <VEQUAL? TEMP10 0 + TAG26>
12481 <CONS TEMP28 TEMP19 = TEMP19 (TYPE LIST)>
12483 <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
12486 <SETG 'LOOPTAGS TEMP19>
12488 <NTHR 'DO-LOOPS 1 = TEMP19 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG35)>
12489 <TYPE? TEMP19 <TYPE-CODE FALSE> + TAG35>
12490 <NTHR TEMP19 1 = TEMP19 (RECORD-TYPE GBIND)>
12491 <TYPE? TEMP19 <TYPE-CODE UNBOUND> - TAG34>
12496 <GVAL 'DO-LOOPS = TEMP10>
12497 <TYPE? TEMP10 <TYPE-CODE FALSE> + MAPAP47>
12498 <SET TEMP28 () (TYPE LIST)>
12499 <SET TEMP10 () (TYPE LIST)>
12500 <SET TEMP19 L4 (TYPE LIST)>
12504 <EMPL? TEMP19 + MAP36>
12505 <NTHL TEMP19 1 = TEMP40>
12506 <NTH1 TEMP40 = TEMP40>
12507 <CONS TEMP40 () = TEMP40 (TYPE LIST)>
12508 <EMPL? TEMP28 - TAG41>
12509 <SET TEMP28 TEMP40 (TYPE LIST)>
12512 <PUTREST TEMP10 TEMP40>
12515 <SET TEMP10 TEMP40 (TYPE LIST)>
12517 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
12520 <SET TEMP10 %<> (TYPE FALSE)>
12521 <SET TEMP19 L4 (TYPE LIST)>
12526 <EMPL? TEMP19 + MAPAP47>
12527 <NTHL TEMP19 1 = LL52>
12528 <NTHL LL52 1 = TEMP10>
12529 <RESTL LL52 1 = LL52 (TYPE LIST)>
12531 <EMPL? TEMP40 + PHRASE56>
12532 <LOOP (TEMP40 VALUE)>
12534 <NTHL TEMP40 1 = TEMP61>
12535 <TYPE? TEMP61 <TYPE-CODE ATOM> - TAG59>
12536 <VEQUAL? TEMP61 'VALUE + TAG57>
12539 <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
12540 <EMPL? TEMP40 - TAG58>
12543 <RESTL LL52 1 = TEMP40 (TYPE LIST)>
12545 <EMPL? TEMP40 + PHRASE63 (TYPE LIST)>
12547 <SET LL52 'BOTH (TYPE ATOM)>
12550 <SET LL52 'VALUE (TYPE ATOM)>
12553 <SET LL52 'TYPE (TYPE ATOM)>
12558 <CALL '
\1aIN-AC? 2 = TEMP40>
12559 <TYPE? TEMP40 <TYPE-CODE FALSE> + TAG69>
12561 <SET TEMP10 %<> (TYPE FALSE)>
12564 <TYPE? LFS8 <TYPE-CODE FALSE> - PHRASE71>
12565 <GVAL 'AC-TABLE = TEMP61>
12566 <RESTUV TEMP61 1 = ACS73 (TYPE VECTOR)>
12571 <NTHUV ACS73 1 = A174 (TYPE AC)>
12572 <NTHUV A174 1 = TEMP61 (TYPE ATOM)>
12573 <VEQUAL? TEMP61 'X* - PHRASE79>
12575 <SET TEMP10 'T (TYPE ATOM)>
12578 <VEQUAL? LL52 'VALUE + TAG85>
12579 <NTHUV A174 2 = TEMP40>
12580 <TYPE? TEMP40 <TYPE-CODE FALSE> + TAG85>
12581 <TYPE? TEMP40 <TYPE-CODE LOSE> + TAG85>
12582 <NTHUV A174 5 = TEMP61>
12583 <TYPE? TEMP61 <TYPE-CODE FALSE> - PHRASE81>
12585 <SET TEMP61 TEMP28>
12586 <EMPL? TEMP61 + TAG85>
12587 <LOOP (TEMP40 VALUE) (TEMP61 VALUE)>
12589 <NTHL TEMP61 1 = TEMP88>
12590 <TYPE? TEMP88 <TYPE-CODE ATOM> - TAG87>
12591 <VEQUAL? TEMP88 TEMP40 + PHRASE81>
12594 <RESTL TEMP61 1 = TEMP61 (TYPE LIST)>
12595 <EMPL? TEMP61 - TAG86>
12597 <VEQUAL? LL52 'TYPE + TAG91>
12598 <NTHUV ACS73 2 = A275 (TYPE AC)>
12599 <NTHUV A275 2 = TEMP40>
12600 <TYPE? TEMP40 <TYPE-CODE FALSE> + TAG91>
12601 <TYPE? TEMP40 <TYPE-CODE LOSE> + TAG91>
12602 <NTHUV A275 5 = TEMP61>
12603 <TYPE? TEMP61 <TYPE-CODE FALSE> - PHRASE81>
12605 <SET TEMP61 TEMP28>
12606 <EMPL? TEMP61 + TAG91>
12607 <LOOP (TEMP40 VALUE) (TEMP61 VALUE)>
12609 <NTHL TEMP61 1 = TEMP88>
12610 <TYPE? TEMP88 <TYPE-CODE ATOM> - TAG93>
12611 <VEQUAL? TEMP88 TEMP40 + PHRASE81>
12614 <RESTL TEMP61 1 = TEMP61 (TYPE LIST)>
12615 <EMPL? TEMP61 - TAG92>
12617 <VEQUAL? LL52 'VALUE - PHRASE95>
12618 <FRAME '
\1aLOAD-AC>
12625 <CALL '
\1aLOAD-AC 5>
12628 <VEQUAL? LL52 'TYPE - PHRASE97>
12630 <FRAME '
\1aLOAD-AC>
12638 <CALL '
\1aLOAD-AC 5>
12641 <FRAME '
\1aLOAD-AC>
12650 <CALL '
\1aLOAD-AC 6>
12652 <SET TEMP10 'T (TYPE ATOM)>
12655 <RESTUV ACS73 2 = ACS73 (TYPE VECTOR)>
12658 <CHTYPE LFS8 <TYPE-CODE VECTOR> = ACS73>
12662 <EMPUV? ACS73 - PHRASE109 (TYPE VECTOR)>
12663 <SET TEMP10 'T (TYPE ATOM)>
12666 <SET TEMP40 %<> (TYPE FALSE)>
12667 <NTHUV ACS73 1 = LL52 (TYPE ACSTATE)>
12668 <NTHUV LL52 2 = TEMP88 (TYPE LOCAL)>
12669 <NTHUV TEMP88 1 = TEMP88 (TYPE ATOM)>
12670 <EQUAL? TEMP88 TEMP10 - TAG113>
12672 <SET TEMP40 'T (TYPE ATOM)>
12675 <NTHUV ACS73 2 = ACS2105 (TYPE ACSTATE)>
12676 <NTHUV ACS2105 2 = TEMP88 (TYPE LOCAL)>
12677 <NTHUV TEMP88 1 = TEMP88 (TYPE ATOM)>
12678 <EQUAL? TEMP88 TEMP10 - PHRASE111>
12681 <VEQUAL? TEMP40 0 + PHRASE115>
12683 <FRAME '
\1aLOAD-AC>
12686 <NTHUV ACS73 2 = ACS2105 (TYPE ACSTATE)>
12688 <NTHUV ACS2105 2 = TEMP88 (TYPE LOCAL)>
12689 <NTHUV TEMP88 1 = TEMP88 (TYPE ATOM)>
12690 <EQUAL? TEMP88 TEMP10 - PHRASE118>
12691 <DEAD TEMP88 TEMP10>
12692 <NTHUV ACS2105 3 = TEMP10>
12693 <TYPE? TEMP10 <TYPE-CODE FALSE> - TAG121>
12695 <SET TEMP88 'T (TYPE ATOM)>
12698 <NTHUV LL52 3 = TEMP10>
12699 <TYPE? TEMP10 <TYPE-CODE FALSE> - TAG122>
12701 <SET TEMP88 'T (TYPE ATOM)>
12704 <SET TEMP88 %<> (TYPE FALSE)>
12707 <NTHUV LL52 3 = TEMP10>
12708 <TYPE? TEMP10 <TYPE-CODE FALSE> - TAG125>
12710 <SET TEMP88 'T (TYPE ATOM)>
12713 <SET TEMP88 %<> (TYPE FALSE)>
12718 <NTHUV LL52 1 = STACK (TYPE AC)>
12720 <NTHUV ACS2105 1 = STACK (TYPE AC)>
12721 <CALL '
\1aLOAD-AC 6>
12724 <FRAME '
\1aLOAD-AC>
12728 <NTHUV ACS2105 3 = TEMP88>
12729 <TYPE? TEMP88 <TYPE-CODE FALSE> - TAG129>
12731 <SET TEMP88 'T (TYPE ATOM)>
12734 <SET TEMP88 %<> (TYPE FALSE)>
12739 <NTHUV ACS2105 1 = STACK (TYPE AC)>
12740 <CALL '
\1aLOAD-AC 5>
12742 <SET TEMP10 'T (TYPE ATOM)>
12745 <RESTUV ACS73 2 = ACS73 (TYPE VECTOR)>
12748 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
12753 <END
\1aLOOP!-MIMOC>
12755 <GFCN
\1aINTGO!-MIMOC ("VALUE" ATOM ANY) L5>
12759 <END
\1aINTGO!-MIMOC>
12760 #WORD *14173600417*
12761 <GFCN
\1aSAVE!-MIMOC ("VALUE" ANY LIST) L5>
12764 <FRAME '
\1aUPDATE-ACS>
12765 <CALL '
\1aUPDATE-ACS 0>
12766 <FRAME '
\1aSMASH-AC>
12768 <NTHL L5 1 = STACK>
12770 <CALL '
\1aSMASH-AC 3>
12771 <FRAME '
\1aSMASH-AC>
12773 <RESTL L5 1 = TEMP9 (TYPE LIST)>
12774 <NTHL TEMP9 1 = STACK>
12777 <CALL '
\1aSMASH-AC 3>
12778 <FRAME '
\1aSMASH-AC>
12780 <RESTL L5 1 = TEMP9 (TYPE LIST)>
12781 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
12782 <NTHL TEMP9 1 = STACK>
12785 <CALL '
\1aSMASH-AC 3>
12788 <NTHL L5 5 = STACK>
12790 <CALL '
\1aPUSHJ 2 = TEMP9>
12793 <END
\1aSAVE!-MIMOC>
12795 <GFCN
\1aRESTORE!-MIMOC ("VALUE" ANY LIST) L5>
12798 <FRAME '
\1aSMASH-AC>
12800 <NTHL L5 1 = STACK>
12802 <CALL '
\1aSMASH-AC 3>
12805 <RESTL L5 1 = TEMP8 (TYPE LIST)>
12807 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
12808 <NTHL TEMP8 1 = STACK>
12810 <CALL '
\1aPUSHJ 2 = TEMP8>
12813 <END
\1aRESTORE!-MIMOC>
12814 #WORD *24677170745*
12815 <GFCN
\1aQUIT!-MIMOC ("VALUE" ANY ANY) L4>
12818 <FRAME '
\1aUPDATE-ACS>
12819 <CALL '
\1aUPDATE-ACS 0>
12820 <EMPTY? L4 + PHRASE7>
12821 <FRAME '
\1aSMASH-AC>
12826 <CALL '
\1aSMASH-AC 3>
12827 <FRAME '
\1aSMASH-AC>
12831 <CALL '
\1aSMASH-AC 3>
12835 <CALL '
\1aPUSHJ 1 = TEMP11>
12838 <END
\1aQUIT!-MIMOC>
12839 #WORD *21450120207*
12840 <GFCN
\1aSETSIZ!-MIMOC ("VALUE" ANY LIST) L5>
12843 <FRAME '
\1aUPDATE-ACS>
12844 <CALL '
\1aUPDATE-ACS 0>
12845 <FRAME '
\1aSMASH-AC>
12847 <NTHL L5 1 = STACK>
12849 <CALL '
\1aSMASH-AC 3>
12852 <RESTL L5 1 = TEMP9 (TYPE LIST)>
12854 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
12855 <NTHL TEMP9 1 = STACK>
12857 <CALL '
\1aPUSHJ 2 = TEMP9>
12860 <END
\1aSETSIZ!-MIMOC>
12861 #WORD *22212040166*
12862 <GFCN
\1aRNTIME!-MIMOC ("VALUE" ANY LIST) L5>
12865 <FRAME '
\1aUPDATE-ACS>
12866 <CALL '
\1aUPDATE-ACS 0>
12867 <EMPL? L5 - PHRASE8 (TYPE LIST)>
12870 <CALL '
\1aPUSHJ 1 = TEMP10>
12876 <RESTL L5 1 = TEMP10 (TYPE LIST)>
12878 <NTHL TEMP10 1 = STACK>
12880 <CALL '
\1aPUSHJ 2 = TEMP10>
12883 <END
\1aRNTIME!-MIMOC>
12884 "Instructions for seedup of NTH,REST,EMPTY? and MONAD? of unknown type"
12886 #WORD *16233203647*
12887 <GFCN
\1aNTH1!-MIMOC ("VALUE" ANY ANY) L5>
12890 <FRAME '
\1aNEW-FUNNY-CALL>
12893 <CALL '
\1aNEW-FUNNY-CALL 2>
12894 <FRAME '
\1aALTER-AC>
12896 <RESTL L5 1 = TEMP8 (TYPE LIST)>
12897 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
12898 <NTHL TEMP8 1 = STACK>
12900 <CALL '
\1aALTER-AC 2>
12901 <FRAME '
\1aPUSHJ-VAL>
12902 <RESTL L5 1 = TEMP8 (TYPE LIST)>
12904 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
12905 <NTHL TEMP8 1 = STACK>
12907 <CALL '
\1aPUSHJ-VAL 1 = TEMP8>
12910 <END
\1aNTH1!-MIMOC>
12911 #WORD *16233203747*
12912 <GFCN
\1aREST1!-MIMOC ("VALUE" ANY ANY) L5>
12915 <FRAME '
\1aNEW-FUNNY-CALL>
12918 <CALL '
\1aNEW-FUNNY-CALL 2>
12919 <FRAME '
\1aALTER-AC>
12921 <RESTL L5 1 = TEMP8 (TYPE LIST)>
12922 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
12923 <NTHL TEMP8 1 = STACK>
12925 <CALL '
\1aALTER-AC 2>
12926 <FRAME '
\1aPUSHJ-VAL>
12927 <RESTL L5 1 = TEMP8 (TYPE LIST)>
12929 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
12930 <NTHL TEMP8 1 = STACK>
12932 <CALL '
\1aPUSHJ-VAL 1 = TEMP8>
12935 <END
\1aREST1!-MIMOC>
12936 #WORD *10702137651*
12937 <GFCN
\1aEMPTY?!-MIMOC ("VALUE" ANY ANY) L5>
12940 <FRAME '
\1aFUNNY-PRED>
12944 <CALL '
\1aFUNNY-PRED 2 = TEMP7>
12947 <END
\1aEMPTY?!-MIMOC>
12948 #WORD *10702137771*
12949 <GFCN
\1aMONAD?!-MIMOC ("VALUE" ANY ANY) L5>
12952 <FRAME '
\1aFUNNY-PRED>
12956 <CALL '
\1aFUNNY-PRED 2 = TEMP7>
12959 <END
\1aMONAD?!-MIMOC>
12960 #WORD *13164171562*
12961 <GFCN
\1aFUNNY-PRED ("VALUE" ANY ANY LIST) LOC5 L6>
12964 <RESTL L6 1 = TEMP9 (TYPE LIST)>
12965 <NTHL TEMP9 1 = FLAG7>
12967 <RESTL L6 1 = TEMP9 (TYPE LIST)>
12968 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
12969 <NTHL TEMP9 1 = TEMP9>
12970 <FRAME '
\1aNEW-FUNNY-CALL>
12976 <CALL '
\1aNEW-FUNNY-CALL 3>
12977 <EQUAL? FLAG7 '+ - PHRASE12>
12983 <CALL '
\1aOCEMIT 3>
12990 <CALL '
\1aXJUMP 1 = STACK>
12991 <CALL '
\1aOCEMIT 2 = TEMP9>
12994 <END
\1aFUNNY-PRED>
12996 <GFCN
\1aNEW-FUNNY-CALL ("VALUE" ANY ANY LIST "OPTIONAL" ANY) LOC6 L7 TAG8>
12997 <OPT-DISPATCH 2 %<> OPT4 OPT5>
13004 <NTHL L7 1 = STACK>
13006 <CALL '
\1aIN-AC? 2 = AC9>
13007 <EQUAL? AC9 'A1* + PHRASE20>
13008 <FRAME '
\1aFLUSH-AC>
13011 <CALL '
\1aFLUSH-AC 2>
13012 <FRAME '
\1aMUNGED-AC>
13015 <CALL '
\1aMUNGED-AC 2>
13016 <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE16>
13021 <CALL '
\1aOCEMIT 3>
13022 <FRAME '
\1aMUNGED-AC>
13026 <CALL '
\1aMUNGED-AC 2>
13027 <FRAME '
\1aALTER-AC>
13029 <NTHL L7 1 = STACK>
13030 <CALL '
\1aALTER-AC 2>
13033 <FRAME '
\1aSMASH-AC>
13035 <NTHL L7 1 = STACK>
13037 <CALL '
\1aSMASH-AC 3>
13039 <TYPE? TAG8 <TYPE-CODE FALSE> + PHRASE23>
13040 <FRAME '
\1aLABEL-UPDATE-ACS>
13044 <CALL '
\1aLABEL-UPDATE-ACS 2>
13048 <RESTL L7 1 = TEMP29 (TYPE LIST)>
13049 <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
13050 <NTHL TEMP29 1 = TEMP29>
13051 <EQUAL? AC9 TEMP29 + PHRASE32>
13053 <FRAME '
\1aCLEAN-ACS>
13054 <RESTL L7 1 = TEMP29 (TYPE LIST)>
13055 <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
13056 <NTHL TEMP29 1 = STACK>
13058 <CALL '
\1aCLEAN-ACS 1>
13059 <FRAME '
\1aWILL-DIE?>
13060 <NTHL L7 1 = STACK>
13062 <CALL '
\1aWILL-DIE? 1 = TEMP29>
13063 <TYPE? TEMP29 <TYPE-CODE FALSE> - PHRASE32>
13065 <FRAME '
\1aFLUSH-AC>
13068 <CALL '
\1aFLUSH-AC 2>
13070 <FRAME '
\1aMUNGED-AC>
13073 <CALL '
\1aMUNGED-AC 2>
13081 <CALL '
\1aOCEMIT 4 = TEMP29>
13084 <END
\1aNEW-FUNNY-CALL>
13085 #WORD *31320264040*
13086 <GFCN
\1aLEGAL?!-MIMOC ("VALUE" ANY LIST) L5>
13089 <FRAME '
\1aFLUSH-AC>
13092 <CALL '
\1aFLUSH-AC 2>
13093 <FRAME '
\1aSMASH-AC>
13095 <NTHL L5 1 = STACK>
13097 <CALL '
\1aSMASH-AC 3>
13100 <RESTL L5 1 = TEMP9 (TYPE LIST)>
13102 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
13103 <NTHL TEMP9 1 = STACK>
13105 <CALL '
\1aPUSHJ 2 = TEMP9>
13108 <END
\1aLEGAL?!-MIMOC>
13110 <GFCN
\1aSETZONE!-MIMOC ("VALUE" ANY LIST) L5>
13111 <TEMP TEMP9 TEMP10:FIX>
13113 <FRAME '
\1aSMASH-AC>
13115 <NTHL L5 1 = STACK>
13117 <CALL '
\1aSMASH-AC 3>
13119 <SET TEMP10 3 (TYPE FIX)>
13120 <LOOP (TEMP9 VALUE) (TEMP10 VALUE)>
13122 <EMPL? TEMP9 + PHRASE8>
13123 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
13124 <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
13125 <GRTR? TEMP10 0 + TAG11 (TYPE FIX)>
13126 <EMPL? TEMP9 - PHRASE8>
13130 <RESTL L5 1 = TEMP9 (TYPE LIST)>
13132 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
13133 <NTHL TEMP9 1 = STACK>
13135 <CALL '
\1aPUSHJ 2 = TEMP9>
13141 <CALL '
\1aPUSHJ 1 = TEMP9>
13144 <END
\1aSETZONE!-MIMOC>
13145 #WORD *34030413472*
13146 <GFCN
\1aTYPEW!-MIMOC ("VALUE" ANY LIST) L5>
13152 <SET TEMP8 2 (TYPE FIX)>
13154 <NTHL L5 1 = STACK>
13155 <SCALL '
\1aOBJ-VAL 1 = TEMP7 + TAG6 TEMP8>
13156 <LOOP (TEMP7 TYPE VALUE LENGTH) (TEMP8 VALUE)>
13159 <EMPTY? TEMP7 + TAG6>
13160 <NTH1 TEMP7 = STACK>
13161 <REST1 TEMP7 = TEMP7>
13162 <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
13165 <CALL '
\1aOCEMIT TEMP8>
13170 <SET TEMP7 2 (TYPE FIX)>
13172 <RESTL L5 1 = TEMP8 (TYPE LIST)>
13173 <NTHL TEMP8 1 = STACK>
13175 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG12 TEMP7>
13176 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP7 VALUE)>
13179 <EMPTY? TEMP8 + TAG12>
13180 <NTH1 TEMP8 = STACK>
13181 <REST1 TEMP8 = TEMP8>
13182 <ADD TEMP7 1 = TEMP7 (TYPE FIX)>
13185 <CALL '
\1aOCEMIT TEMP7>
13189 <RESTL L5 1 = TEMP8 (TYPE LIST)>
13191 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
13192 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
13193 <NTHL TEMP8 1 = STACK>
13195 <CALL '
\1aPUSHJ 2 = TEMP8>
13198 <END
\1aTYPEW!-MIMOC>
13200 <GFCN
\1aTYPEWC!-MIMOC ("VALUE" AC LIST) L5>
13201 <TEMP TEMP8 AC6 TEMP11>
13203 <FRAME '
\1aASSIGN-AC>
13204 <RESTL L5 1 = TEMP8 (TYPE LIST)>
13205 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
13206 <NTHL TEMP8 1 = STACK>
13209 <CALL '
\1aASSIGN-AC 2 = AC6>
13212 <FRAME '
\1aNEXT-AC>
13214 <CALL '
\1aNEXT-AC 1 = STACK>
13215 <SET TEMP11 2 (TYPE FIX)>
13217 <NTHL L5 1 = STACK>
13219 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG9 TEMP11>
13220 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP11 VALUE)>
13223 <EMPTY? TEMP8 + TAG9>
13224 <NTH1 TEMP8 = STACK>
13225 <REST1 TEMP8 = TEMP8>
13226 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
13229 <CALL '
\1aOCEMIT TEMP11>
13234 <CALL '
\1aGET-AC 1 = TEMP11>
13235 <PUTUV TEMP11 6 'TYPE-C>
13238 <END
\1aTYPEWC!-MIMOC>
13239 #WORD *11571711125*
13240 <GFCN
\1aFATAL!-MIMOC ("VALUE" ANY LIST) L4>
13243 <FRAME '
\1aSMASH-AC>
13245 <NTHL L4 1 = STACK>
13247 <CALL '
\1aSMASH-AC 3>
13248 <RESTL L4 1 = TEMP8 (TYPE LIST)>
13249 <EMPL? TEMP8 - PHRASE7 (TYPE LIST)>
13253 <CALL '
\1aPUSHJ 1 = TEMP8>
13259 <RESTL L4 1 = TEMP8 (TYPE LIST)>
13261 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
13262 <NTHL TEMP8 1 = STACK>
13264 <CALL '
\1aPUSHJ 2 = TEMP8>
13267 <END
\1aFATAL!-MIMOC>
13268 #WORD *31414210660*
13269 <GFCN
\1aGETBITS!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L4>
13270 <TEMP WD5 TEMP19 WL6 SHL7 DST8 TAC?9 AC?12 (OL13 %<>) (W15:FIX 0) (SH16:FIX 0) (IX17 %<>) TEMP29 BP11 TEMP36 TEMP44>
13273 <RESTL L4 1 = TEMP19 (TYPE LIST)>
13274 <NTHL TEMP19 1 = WL6>
13276 <RESTL L4 1 = TEMP19 (TYPE LIST)>
13277 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
13278 <NTHL TEMP19 1 = SHL7>
13285 <CALL '
\1aIN-AC? 2 = TAC?9>
13289 <CALL '
\1aIN-AC? 2 = AC?12>
13290 <TYPE? WL6 <TYPE-CODE FIX> - PHRASE23>
13293 <TYPE? SHL7 <TYPE-CODE FIX> - PHRASE25>
13296 <TYPE? WD5 <TYPE-CODE ATOM> - PHRASE27>
13297 <FRAME '
\1aOBJ-LOC>
13300 <CALL '
\1aOBJ-LOC 2 = OL13>
13302 <LSH SH16 30 = TEMP19 (TYPE FIX)>
13303 <LSH W15 24 = TEMP29 (TYPE FIX)>
13304 <OR TEMP19 TEMP29 = BP11>
13305 <DEAD TEMP19 TEMP29>
13306 <TYPE? AC?12 <TYPE-CODE FALSE> + PHRASE31>
13307 <GVAL 'ACS = TEMP29>
13308 <TYPE AC?12 = TEMP19>
13309 <EMPUV? TEMP29 + TAG32>
13310 <LOOP (AC?12 VALUE) (TEMP19 VALUE) (TEMP29 LENGTH VALUE)>
13312 <NTHUV TEMP29 1 = TEMP36>
13313 <TYPE? TEMP36 TEMP19 - TAG35>
13314 <VEQUAL? TEMP36 AC?12 + TAG33>
13317 <RESTUV TEMP29 1 = TEMP29 (TYPE VECTOR)>
13318 <EMPUV? TEMP29 - TAG34>
13320 <SET TEMP29 %<> (TYPE FALSE)>
13322 <NTHUV TEMP29 2 = TEMP36>
13325 <TYPE? AC?12 <TYPE-CODE FALSE> + PHRASE38>
13326 <OR BP11 TEMP36 = TEMP29>
13328 <CHTYPE TEMP29 <TYPE-CODE CONSTANT> = BP11>
13332 <TYPE? OL13 <TYPE-CODE FALSE> + PHRASE39>
13333 <RESTL OL13 1 = TEMP29 (TYPE LIST)>
13334 <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
13335 <NTHL TEMP29 1 = TEMP29>
13336 <NTHL TEMP29 1 = TEMP29>
13337 <GVAL 'ACS = TEMP19>
13338 <TYPE TEMP29 = TEMP36>
13339 <EMPUV? TEMP19 + TAG40>
13340 <LOOP (TEMP29 VALUE) (TEMP36 VALUE) (TEMP19 LENGTH VALUE)>
13342 <NTHUV TEMP19 1 = TEMP44>
13343 <TYPE? TEMP44 TEMP36 - TAG43>
13344 <VEQUAL? TEMP44 TEMP29 + TAG41>
13347 <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
13348 <EMPUV? TEMP19 - TAG42>
13350 <SET TEMP19 %<> (TYPE FALSE)>
13352 <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
13353 <LSH TEMP19 18 = TEMP19 (TYPE FIX)>
13354 <NTHL OL13 1 = TEMP36>
13355 <ADD TEMP19 TEMP36 = TEMP19 (TYPE FIX)>
13357 <ADD TEMP19 BP11 = TEMP19 (TYPE FIX)>
13359 <CONS TEMP19 () = TEMP19>
13360 <RESTL OL13 1 = TEMP36 (TYPE LIST)>
13362 <NTHL TEMP36 1 = TEMP36>
13363 <CONS TEMP36 TEMP19 = TEMP19>
13365 <CHTYPE TEMP19 <TYPE-CODE CONST-W-LOCAL> = BP11>
13368 <TYPE? WL6 <TYPE-CODE FIX> - PHRASE46>
13369 <TYPE? SHL7 <TYPE-CODE FIX> - PHRASE46>
13370 <FRAME '
\1aASSIGN-AC>
13374 <CALL '
\1aASSIGN-AC 3 = OL13>
13375 <FRAME '
\1aCONST-LOC>
13378 <CALL '
\1aCONST-LOC 2>
13381 <FRAME '
\1aNEXT-AC>
13383 <CALL '
\1aNEXT-AC 1 = STACK>
13384 <SET TEMP36 2 (TYPE FIX)>
13388 <SCALL '
\1aOBJ-VAL 1 = TEMP19 + TAG50 TEMP36>
13389 <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP36 VALUE)>
13392 <EMPTY? TEMP19 + TAG50>
13393 <NTH1 TEMP19 = STACK>
13394 <REST1 TEMP19 = TEMP19>
13395 <ADD TEMP36 1 = TEMP36 (TYPE FIX)>
13398 <CALL '
\1aOCEMIT TEMP36>
13402 <CALL '
\1aGET-AC 1 = TEMP36>
13403 <PUTUV TEMP36 6 'FIX>
13407 <TYPE? WL6 <TYPE-CODE FIX> - PHRASE56>
13408 <TYPE? AC?12 <TYPE-CODE FALSE> + BOOL61>
13409 <EQUAL? DST8 WD5 + PHRASE58>
13410 <FRAME '
\1aWILL-DIE?>
13412 <CALL '
\1aWILL-DIE? 1 = TEMP36>
13413 <TYPE? TEMP36 <TYPE-CODE FALSE> + BOOL61>
13415 <FRAME '
\1aDEAD!-MIMOC>
13416 <CONS WD5 () = STACK>
13419 <CALL '
\1aDEAD!-MIMOC 2>
13422 <FRAME '
\1aASSIGN-AC>
13423 <EQUAL? SHL7 DST8 - PHRASE68>
13427 <CALL '
\1aIN-AC? 2 = TEMP29>
13428 <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE68>
13439 <CALL '
\1aASSIGN-AC 3 = OL13>
13442 <CALL '
\1aGET-AC 1 = TEMP29>
13443 <PUTUV TEMP29 6 'FIX>
13445 <FRAME '
\1aNEXT-AC>
13448 <CALL '
\1aNEXT-AC 1 = OL13>
13452 <SET TEMP44 2 (TYPE FIX)>
13456 <SCALL '
\1aOBJ-VAL 1 = TEMP29 + TAG74 TEMP44>
13457 <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP44 VALUE)>
13460 <EMPTY? TEMP29 + TAG74>
13461 <NTH1 TEMP29 = STACK>
13462 <REST1 TEMP29 = TEMP29>
13463 <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
13466 <CALL '
\1aOCEMIT TEMP44>
13470 <TYPE? TAC?9 <TYPE-CODE FALSE> + PHRASE78>
13473 <CALL '
\1aGET-AC 1 = TEMP44>
13474 <PUTUV TEMP44 6 'FIX>
13478 <FRAME '
\1aALTER-AC>
13482 <CALL '
\1aALTER-AC 2>
13485 <FRAME '
\1aASSIGN-AC>
13489 <CALL '
\1aASSIGN-AC 3 = OL13>
13492 <CALL '
\1aGET-AC 1 = TEMP44>
13493 <PUTUV TEMP44 6 'FIX>
13497 <FRAME '
\1aNEXT-AC>
13500 <CALL '
\1aNEXT-AC 1 = OL13>
13504 <CALL '
\1aOCEMIT 3>
13506 <FRAME '
\1aFLUSH-AC>
13508 <CALL '
\1aFLUSH-AC 1>
13509 <FRAME '
\1aMUNGED-AC>
13511 <CALL '
\1aMUNGED-AC 1>
13515 <SET TEMP29 2 (TYPE FIX)>
13518 <SCALL '
\1aOBJ-VAL 1 = TEMP44 + TAG88 TEMP29>
13519 <LOOP (TEMP44 TYPE VALUE LENGTH) (TEMP29 VALUE)>
13522 <EMPTY? TEMP44 + TAG88>
13523 <NTH1 TEMP44 = STACK>
13524 <REST1 TEMP44 = TEMP44>
13525 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
13528 <CALL '
\1aOCEMIT TEMP29>
13534 <CALL '
\1aOCEMIT 3>
13535 <LSH -1 W15 = TEMP29 (TYPE FIX)>
13537 <XOR TEMP29 #WORD *777777777777* = W15>
13539 <GRTR? W15 262143 + PHRASE94 (TYPE FIX)>
13545 <CALL '
\1aOCEMIT 3>
13551 <XOR W15 #WORD *777777777777* = TEMP29>
13553 <LSH TEMP29 -18 = STACK (TYPE FIX)>
13555 <CALL '
\1aOCEMIT 3>
13557 <EQUAL? DST8 SHL7 - PHRASE172>
13559 <FRAME '
\1aCLEAN-ACS>
13561 <CALL '
\1aCLEAN-ACS 1>
13562 <FRAME '
\1aALTER-AC>
13563 <FRAME '
\1aGETPROP>
13566 <CALL '
\1aGETPROP 2 = TEMP29>
13570 <CALL '
\1aALTER-AC 2>
13571 <SETG 'ACA-ITEM %<>>
13572 <SETG 'ACA-BOTH %<>>
13575 <FRAME '
\1aGETPROP>
13578 <CALL '
\1aGETPROP 2 = TEMP29>
13581 <CALL '
\1aGET-AC 1 = TEMP29>
13582 <PUTUV TEMP29 6 'FIX>
13586 <TYPE? SHL7 <TYPE-CODE FIX> - PHRASE105>
13587 <TYPE? TAC?9 <TYPE-CODE FALSE> + PHRASE107>
13588 <EQUAL? WD5 DST8 + BOOL109>
13589 <FRAME '
\1aWILL-DIE?>
13591 <CALL '
\1aWILL-DIE? 1 = TEMP29>
13592 <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE107>
13595 <SET OL13 'O* (TYPE ATOM)>
13598 <EQUAL? WL6 DST8 - PHRASE122>
13602 <CALL '
\1aIN-AC? 2 = OL13>
13603 <TYPE? OL13 <TYPE-CODE FALSE> + PHRASE115>
13604 <FRAME '
\1aNEXT-AC>
13606 <CALL '
\1aNEXT-AC 1 = IX17>
13607 <FRAME '
\1aMUNGED-AC>
13610 <CALL '
\1aMUNGED-AC 2>
13613 <CALL '
\1aGET-AC 1 = TEMP29>
13614 <GVAL 'AC-STAMP = TEMP44>
13615 <PUTUV TEMP29 4 TEMP44 (TYPE FIX)>
13616 <DEAD TEMP29 TEMP44>
13618 <FRAME '
\1aNEXT-AC>
13621 <CALL '
\1aNEXT-AC 1 = STACK>
13622 <CALL '
\1aGET-AC 1 = TEMP29>
13623 <GVAL 'AC-STAMP = TEMP44>
13624 <PUTUV TEMP29 4 TEMP44 (TYPE FIX)>
13625 <DEAD TEMP29 TEMP44>
13631 <CALL '
\1aIN-AC? 2 = OL13>
13632 <TYPE? OL13 <TYPE-CODE FALSE> + PHRASE122>
13636 <CALL '
\1aGET-AC 1 = TEMP29>
13637 <GVAL 'AC-STAMP = TEMP44>
13638 <PUTUV TEMP29 4 TEMP44 (TYPE FIX)>
13639 <DEAD TEMP29 TEMP44>
13640 <FRAME '
\1aMUNGED-AC>
13643 <CALL '
\1aMUNGED-AC 1>
13646 <FRAME '
\1aASSIGN-AC>
13650 <CALL '
\1aASSIGN-AC 3 = OL13>
13652 <CALL '
\1aGET-AC 1 = TEMP29>
13653 <PUTUV TEMP29 6 'FIX>
13655 <FRAME '
\1aNEXT-AC>
13658 <CALL '
\1aNEXT-AC 1 = OL13>
13660 <LSH -1 SH16 = W15 (TYPE FIX)>
13661 <AND W15 #WORD *777777* = TEMP29>
13662 <VEQUAL? TEMP29 0 - PHRASE130 (TYPE FIX)>
13667 <LSH W15 -18 = STACK (TYPE FIX)>
13669 <CALL '
\1aOCEMIT 3>
13675 <AND W15 #WORD *777777* = STACK>
13677 <CALL '
\1aOCEMIT 3>
13682 <SET TEMP44 2 (TYPE FIX)>
13683 <TYPE? IX17 <TYPE-CODE FALSE> + PHRASE138>
13684 <CONS IX17 () = TEMP29>
13686 <CONS TEMP29 () = TEMP29>
13689 <EQUAL? WL6 DST8 + PHRASE140>
13693 <CALL '
\1aIN-AC? 2 = IX17>
13694 <TYPE? IX17 <TYPE-CODE FALSE> + PHRASE140>
13695 <CONS IX17 () = TEMP29>
13697 <CONS TEMP29 () = TEMP29>
13701 <SET W15 1 (TYPE FIX)>
13705 <SCALL '
\1aOBJ-VAL 1 = TEMP29 + TAG144 W15>
13706 <TYPE TEMP29 = TEMP19>
13707 <AND TEMP19 7 = TEMP19>
13708 <VEQUAL? TEMP19 1 + TAG147>
13710 <LOOP (TEMP29 TYPE VALUE LENGTH) (W15 VALUE)>
13713 <EMPTY? TEMP29 + TAG152>
13714 <NTH1 TEMP29 = STACK>
13715 <REST1 TEMP29 = TEMP29>
13716 <ADD W15 1 = W15 (TYPE FIX)>
13719 <LIST W15 = TEMP29 (TYPE LIST)>
13727 <VEQUAL? W15 0 + TAG149>
13729 <CONS TEMP19 TEMP29 = TEMP29 (TYPE LIST)>
13731 <SUB W15 1 = W15 (TYPE FIX)>
13734 <LOOP (TEMP29 VALUE) (TEMP44 VALUE)>
13737 <EMPL? TEMP29 + TAG136>
13738 <NTHL TEMP29 1 = STACK>
13739 <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
13740 <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
13743 <CALL '
\1aOCEMIT TEMP44>
13745 <EQUAL? OL13 'O* - PHRASE157>
13750 <CALL '
\1aOCEMIT 3>
13754 <SUB 0 SH16 = STACK (TYPE FIX)>
13756 <CALL '
\1aOCEMIT 3>
13757 <FRAME '
\1aCLEAN-ACS>
13759 <CALL '
\1aCLEAN-ACS 1>
13763 <CALL '
\1aGET-AC 1 = TEMP44>
13764 <PUTUV TEMP44 6 'FIX>
13765 <PUTUV TEMP44 3 'TYPE (TYPE ATOM)>
13766 <PUTUV TEMP44 2 DST8>
13767 <PUTUV TEMP44 5 'T>
13773 <CALL '
\1aGET-AC 1 = TEMP44>
13774 <PUTUV TEMP44 5 'T>
13775 <PUTUV TEMP44 2 DST8>
13776 <PUTUV TEMP44 6 %<>>
13777 <PUTUV TEMP44 3 'VALUE (TYPE ATOM)>
13784 <SET TEMP29 2 (TYPE FIX)>
13785 <TYPE? AC?12 <TYPE-CODE FALSE> + PHRASE166>
13786 <CONS AC?12 () = TEMP44>
13790 <FRAME '
\1aOBJ-VAL>
13793 <CALL '
\1aOBJ-VAL 1 = TEMP44>
13795 <LOOP (TEMP44 TYPE VALUE LENGTH) (TEMP29 VALUE)>
13798 <EMPTY? TEMP44 + TAG164>
13799 <NTH1 TEMP44 = STACK>
13800 <REST1 TEMP44 = TEMP44>
13801 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
13804 <CALL '
\1aOCEMIT TEMP29>
13809 <SUB 0 SH16 = STACK (TYPE FIX)>
13811 <CALL '
\1aOCEMIT 3>
13814 <TYPE? AC?12 <TYPE-CODE FALSE> + PHRASE174>
13820 <CALL '
\1aOCEMIT 3>
13823 <FRAME '
\1aCONST-LOC>
13826 <CALL '
\1aCONST-LOC 2>
13830 <SET TEMP44 2 (TYPE FIX)>
13834 <SCALL '
\1aOBJ-VAL 1 = TEMP29 + TAG178 TEMP44>
13835 <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP44 VALUE)>
13838 <EMPTY? TEMP29 + TAG178>
13839 <NTH1 TEMP29 = STACK>
13840 <REST1 TEMP29 = TEMP29>
13841 <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
13844 <CALL '
\1aOCEMIT TEMP44>
13852 <CALL '
\1aIN-AC? 2 = TEMP44>
13853 <TYPE? TEMP44 <TYPE-CODE FALSE> - PHRASE185>
13854 <FRAME '
\1aNEXT-AC>
13855 <FRAME '
\1aLOAD-AC>
13859 <CALL '
\1aLOAD-AC 2 = STACK>
13860 <CALL '
\1aNEXT-AC 1 = TEMP44>
13864 <SET TEMP29 2 (TYPE FIX)>
13866 <SET BP11 #CONSTANT 32312918016 (TYPE CONSTANT)>
13868 <SCALL '
\1aOBJ-VAL 1 = TEMP44 + TAG182 TEMP29>
13869 <LOOP (TEMP44 TYPE VALUE LENGTH) (TEMP29 VALUE)>
13872 <EMPTY? TEMP44 + TAG182>
13873 <NTH1 TEMP44 = STACK>
13874 <REST1 TEMP44 = TEMP44>
13875 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
13878 <CALL '
\1aOCEMIT TEMP29>
13880 <FRAME '
\1aCONST-LOC>
13884 <CALL '
\1aCONST-LOC 2>
13890 <CALL '
\1aIN-AC? 2 = TEMP29>
13891 <TYPE? TEMP29 <TYPE-CODE FALSE> - PHRASE195>
13892 <FRAME '
\1aNEXT-AC>
13893 <FRAME '
\1aLOAD-AC>
13897 <CALL '
\1aLOAD-AC 2 = STACK>
13898 <CALL '
\1aNEXT-AC 1 = TEMP29>
13902 <SET TEMP44 2 (TYPE FIX)>
13904 <SET BP11 #CONSTANT 25870467072 (TYPE CONSTANT)>
13906 <SCALL '
\1aOBJ-VAL 1 = TEMP29 + TAG192 TEMP44>
13907 <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP44 VALUE)>
13910 <EMPTY? TEMP29 + TAG192>
13911 <NTH1 TEMP29 = STACK>
13912 <REST1 TEMP29 = TEMP29>
13913 <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
13916 <CALL '
\1aOCEMIT TEMP44>
13918 <FRAME '
\1aCONST-LOC>
13922 <CALL '
\1aCONST-LOC 2>
13923 <FRAME '
\1aASSIGN-AC>
13927 <CALL '
\1aASSIGN-AC 3 = OL13>
13930 <FRAME '
\1aNEXT-AC>
13932 <CALL '
\1aNEXT-AC 1 = STACK>
13934 <CALL '
\1aOCEMIT 3>
13937 <CALL '
\1aGET-AC 1 = TEMP44>
13938 <PUTUV TEMP44 6 'FIX>
13941 <EQUAL? DST8 'STACK + TAG208>
13948 <SET TEMP19 2 (TYPE FIX)>
13949 <SFRAME 'TYPE-WORD>
13951 <SCALL '
\1aTYPE-WORD 1 = TEMP29 + TAG209 TEMP19>
13952 <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP19 VALUE)>
13955 <EMPTY? TEMP29 + TAG209>
13956 <NTH1 TEMP29 = STACK>
13957 <REST1 TEMP29 = TEMP29>
13958 <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
13961 <CALL '
\1aOCEMIT TEMP19>
13966 <FRAME '
\1aNEXT-AC>
13969 <CALL '
\1aNEXT-AC 1 = STACK>
13970 <CALL '
\1aOCEMIT 3>
13971 <GVAL 'WINNING-VICTIM = TEMP44>
13972 <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE216>
13973 <GVAL 'STACK-DEPTH = TEMP19>
13974 <ADD TEMP19 2 = TEMP19 (TYPE FIX)>
13975 <SETG 'STACK-DEPTH TEMP19>
13976 <SET TEMP44 TEMP19>
13981 <END
\1aGETBITS!-MIMOC>
\r\r
13982 #WORD *36703572621*
13983 <GFCN
\1aPUTBITS!-MIMOC ("VALUE" ANY LIST) L5>
13984 <TEMP TEMP15 WL6 SHL7 NEW8 OLD9 DST13 (FLIP14 %<>) AC?10 TEMP54 NAC12>
13986 <RESTL L5 1 = TEMP15 (TYPE LIST)>
13987 <NTHL TEMP15 1 = WL6>
13989 <RESTL L5 1 = TEMP15 (TYPE LIST)>
13990 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
13991 <NTHL TEMP15 1 = SHL7>
13993 <RESTL L5 1 = TEMP15 (TYPE LIST)>
13994 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
13995 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
13996 <NTHL TEMP15 1 = NEW8>
13999 <NTHL L5 6 = DST13>
14000 <EQUAL? WL6 18 - PHRASE17>
14002 <EQUAL? SHL7 0 + BOOL19>
14003 <EQUAL? SHL7 18 - PHRASE17>
14005 <EQUAL? OLD9 0 + BOOL24>
14006 <EQUAL? OLD9 -1 + BOOL24>
14007 <EQUAL? SHL7 0 - PHRASE21>
14011 <CALL '
\1aIN-AC? 2 = TEMP15>
14012 <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL25>
14017 <CALL '
\1aIN-AC? 2 = TEMP15>
14018 <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL24>
14021 <EQUAL? NEW8 DST13 - PHRASE21>
14023 <SET FLIP14 'T (TYPE ATOM)>
14026 <RESTL L5 1 = TEMP15 (TYPE LIST)>
14028 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
14029 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
14030 <NTHL TEMP15 1 = OLD9>
14036 <CALL '
\1aIN-AC? 2 = WL6>
14037 <TYPE? WL6 <TYPE-CODE FALSE> + BOOL31>
14038 <FRAME '
\1aNEXT-AC>
14040 <CALL '
\1aNEXT-AC 1 = AC?10>
14041 <TYPE? AC?10 <TYPE-CODE FALSE> - BOOL30>
14046 <CALL '
\1aIN-AC? 2 = AC?10>
14047 <TYPE? AC?10 <TYPE-CODE FALSE> + BOOL34>
14048 <FRAME '
\1aGETPROP>
14051 <CALL '
\1aGETPROP 2 = WL6>
14052 <TYPE? WL6 <TYPE-CODE FALSE> - BOOL30>
14054 <EQUAL? OLD9 DST13 + PHRASE29>
14055 <EQUAL? NEW8 0 + PHRASE29>
14056 <EQUAL? NEW8 -1 + PHRASE29>
14057 <FRAME '
\1aNEXT-AC>
14058 <FRAME '
\1aLOAD-AC>
14061 <CALL '
\1aLOAD-AC 2 = WL6>
14063 <CALL '
\1aNEXT-AC 1 = AC?10>
14064 <TYPE? AC?10 <TYPE-CODE FALSE> + PHRASE29>
14066 <EQUAL? OLD9 DST13 + PHRASE50>
14067 <FRAME '
\1aWILL-DIE?>
14069 <CALL '
\1aWILL-DIE? 1 = TEMP15>
14070 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE43>
14072 <FRAME '
\1aDEAD!-MIMOC>
14073 <CONS OLD9 () = STACK>
14075 <CALL '
\1aDEAD!-MIMOC 2>
14077 <TYPE? WL6 <TYPE-CODE FALSE> + PHRASE47>
14078 <FRAME '
\1aFLUSH-AC>
14081 <CALL '
\1aFLUSH-AC 2>
14082 <FRAME '
\1aMUNGED-AC>
14085 <CALL '
\1aMUNGED-AC 2>
14088 <FRAME '
\1aFLUSH-AC>
14090 <CALL '
\1aFLUSH-AC 1>
14091 <FRAME '
\1aMUNGED-AC>
14093 <CALL '
\1aMUNGED-AC 1>
14095 <SETG 'FIRST-AC %<>>
14098 <CALL '
\1aGET-AC 1 = TEMP15>
14099 <GVAL 'AC-STAMP = TEMP54>
14100 <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
14101 <SETG 'AC-STAMP TEMP54>
14102 <PUTUV TEMP15 4 TEMP54 (TYPE FIX)>
14103 <DEAD TEMP15 TEMP54>
14106 <CALL '
\1aGET-AC 1 = TEMP15>
14107 <GVAL 'AC-STAMP = TEMP54>
14108 <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
14109 <SETG 'AC-STAMP TEMP54>
14110 <PUTUV TEMP15 4 TEMP54 (TYPE FIX)>
14112 <PUTUV TEMP15 5 'T>
14115 <TYPE? AC?10 <TYPE-CODE FALSE> - PHRASE66>
14119 <CALL '
\1aIN-AC? 2 = NAC12>
14120 <TYPE? NAC12 <TYPE-CODE FALSE> - PHRASE66>
14121 <EQUAL? NEW8 0 + PHRASE66>
14122 <EQUAL? NEW8 -1 + PHRASE66>
14123 <TYPE? NEW8 <TYPE-CODE ATOM> - PHRASE61>
14124 <FRAME '
\1aWILL-DIE?>
14126 <CALL '
\1aWILL-DIE? 1 = TEMP15>
14127 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE61>
14129 <FRAME '
\1aNEXT-AC>
14130 <FRAME '
\1aLOAD-AC>
14133 <CALL '
\1aLOAD-AC 2 = STACK>
14134 <CALL '
\1aNEXT-AC 1 = NAC12>
14137 <FRAME '
\1aGET-INTO-ACS>
14140 <SET NAC12 'T* (TYPE ATOM)>
14142 <CALL '
\1aGET-INTO-ACS 3>
14144 <VEQUAL? FLIP14 0 + PHRASE69>
14145 <EQUAL? SHL7 0 + PHRASE69>
14146 <EQUAL? DST13 'STACK - PHRASE72>
14147 <TYPE? AC?10 <TYPE-CODE FALSE> + PHRASE74>
14149 <EQUAL? NEW8 0 - PHRASE77>
14151 <SET TEMP15 'HRLZ (TYPE ATOM)>
14154 <SET TEMP15 'HRLO (TYPE ATOM)>
14161 <CALL '
\1aOCEMIT 3>
14165 <EQUAL? NEW8 0 - PHRASE82>
14167 <SET TEMP15 'HRLZ (TYPE ATOM)>
14170 <SET TEMP15 'HRLO (TYPE ATOM)>
14175 <SET TEMP54 2 (TYPE FIX)>
14178 <SCALL '
\1aOBJ-VAL 1 = TEMP15 + TAG80 TEMP54>
14179 <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP54 VALUE)>
14182 <EMPTY? TEMP15 + TAG80>
14183 <NTH1 TEMP15 = STACK>
14184 <REST1 TEMP15 = TEMP15>
14185 <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
14188 <CALL '
\1aOCEMIT TEMP54>
14194 <SET TEMP15 2 (TYPE FIX)>
14195 <SFRAME 'TYPE-WORD>
14197 <SCALL '
\1aTYPE-WORD 1 = TEMP54 + TAG87 TEMP15>
14198 <LOOP (TEMP54 TYPE VALUE LENGTH) (TEMP15 VALUE)>
14201 <EMPTY? TEMP54 + TAG87>
14202 <NTH1 TEMP54 = STACK>
14203 <REST1 TEMP54 = TEMP54>
14204 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
14207 <CALL '
\1aOCEMIT TEMP15>
14213 <CALL '
\1aOCEMIT 3>
14214 <GVAL 'WINNING-VICTIM = TEMP15>
14215 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE245>
14217 <GVAL 'STACK-DEPTH = TEMP15>
14218 <ADD TEMP15 2 = TEMP15 (TYPE FIX)>
14219 <SETG 'STACK-DEPTH TEMP15>
14223 <TYPE? AC?10 <TYPE-CODE FALSE> + PHRASE94>
14224 <EQUAL? NEW8 0 - PHRASE96>
14231 <CALL '
\1aOCEMIT 3>
14239 <CALL '
\1aOCEMIT 3>
14241 <EQUAL? DST13 OLD9 + PHRASE245>
14242 <FRAME '
\1aCLEAN-ACS>
14244 <CALL '
\1aCLEAN-ACS 1>
14245 <FRAME '
\1aALTER-AC>
14248 <CALL '
\1aALTER-AC 2>
14251 <CALL '
\1aGET-AC 1 = TEMP15>
14252 <PUTUV TEMP15 6 'FIX>
14256 <EQUAL? DST13 OLD9 + PHRASE105>
14257 <FRAME '
\1aASSIGN-AC>
14260 <CALL '
\1aASSIGN-AC 2 = AC?10>
14261 <EQUAL? NEW8 0 - PHRASE108>
14265 <FRAME '
\1aNEXT-AC>
14267 <CALL '
\1aNEXT-AC 1 = STACK>
14268 <SET TEMP54 2 (TYPE FIX)>
14271 <SCALL '
\1aOBJ-VAL 1 = TEMP15 + TAG109 TEMP54>
14272 <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP54 VALUE)>
14275 <EMPTY? TEMP15 + TAG109>
14276 <NTH1 TEMP15 = STACK>
14277 <REST1 TEMP15 = TEMP15>
14278 <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
14281 <CALL '
\1aOCEMIT TEMP54>
14287 <FRAME '
\1aNEXT-AC>
14289 <CALL '
\1aNEXT-AC 1 = STACK>
14290 <SET TEMP15 2 (TYPE FIX)>
14293 <SCALL '
\1aOBJ-VAL 1 = TEMP54 + TAG115 TEMP15>
14294 <LOOP (TEMP54 TYPE VALUE LENGTH) (TEMP15 VALUE)>
14297 <EMPTY? TEMP54 + TAG115>
14298 <NTH1 TEMP54 = STACK>
14299 <REST1 TEMP54 = TEMP54>
14300 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
14303 <CALL '
\1aOCEMIT TEMP15>
14309 <CALL '
\1aGET-AC 1 = TEMP15>
14310 <PUTUV TEMP15 6 'FIX>
14314 <EQUAL? NEW8 0 - PHRASE121>
14319 <SET TEMP54 2 (TYPE FIX)>
14322 <SCALL '
\1aOBJ-VAL 1 = TEMP15 + TAG122 TEMP54>
14323 <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP54 VALUE)>
14326 <EMPTY? TEMP15 + TAG122>
14327 <NTH1 TEMP15 = STACK>
14328 <REST1 TEMP15 = TEMP15>
14329 <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
14332 <CALL '
\1aOCEMIT TEMP54>
14339 <SET TEMP15 2 (TYPE FIX)>
14342 <SCALL '
\1aOBJ-VAL 1 = TEMP54 + TAG127 TEMP15>
14343 <LOOP (TEMP54 TYPE VALUE LENGTH) (TEMP15 VALUE)>
14346 <EMPTY? TEMP54 + TAG127>
14347 <NTH1 TEMP54 = STACK>
14348 <REST1 TEMP54 = TEMP54>
14349 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
14352 <CALL '
\1aOCEMIT TEMP15>
14356 <TYPE? AC?10 <TYPE-CODE FALSE> + PHRASE131>
14358 <TYPE? NEW8 <TYPE-CODE ATOM> - PHRASE134>
14359 <EQUAL? SHL7 0 - PHRASE136>
14361 <VEQUAL? FLIP14 0 + PHRASE138>
14362 <SET TEMP15 'HLL (TYPE ATOM)>
14365 <SET TEMP15 'HRR (TYPE ATOM)>
14368 <SET TEMP15 'HRL (TYPE ATOM)>
14371 <EQUAL? SHL7 0 - PHRASE141>
14373 <VEQUAL? FLIP14 0 + PHRASE143>
14374 <SET TEMP15 'HRLI (TYPE ATOM)>
14377 <SET TEMP15 'HRRI (TYPE ATOM)>
14380 <SET TEMP15 'HRLI (TYPE ATOM)>
14385 <SET TEMP54 2 (TYPE FIX)>
14386 <TYPE? NEW8 <TYPE-CODE ATOM> - PHRASE147>
14387 <FRAME '
\1aOBJ-VAL>
14390 <CALL '
\1aOBJ-VAL 1 = TEMP15>
14393 <VEQUAL? FLIP14 0 + PHRASE149>
14395 <LSH NEW8 -18 = NEW8 (TYPE FIX)>
14396 <CONS NEW8 () = TEMP15>
14400 <AND NEW8 #WORD *777777* = NEW8>
14401 <CONS NEW8 () = TEMP15>
14404 <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP54 VALUE)>
14407 <EMPTY? TEMP15 + TAG132>
14408 <NTH1 TEMP15 = STACK>
14409 <REST1 TEMP15 = TEMP15>
14410 <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
14413 <CALL '
\1aOCEMIT TEMP54>
14415 <EQUAL? DST13 'STACK - PHRASE155>
14419 <SET TEMP15 2 (TYPE FIX)>
14420 <SFRAME 'TYPE-WORD>
14422 <SCALL '
\1aTYPE-WORD 1 = TEMP54 + TAG156 TEMP15>
14423 <LOOP (TEMP54 TYPE VALUE LENGTH) (TEMP15 VALUE)>
14426 <EMPTY? TEMP54 + TAG156>
14427 <NTH1 TEMP54 = STACK>
14428 <REST1 TEMP54 = TEMP54>
14429 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
14432 <CALL '
\1aOCEMIT TEMP15>
14439 <CALL '
\1aOCEMIT 3>
14440 <GVAL 'WINNING-VICTIM = TEMP15>
14441 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE245>
14443 <GVAL 'STACK-DEPTH = NEW8>
14444 <ADD NEW8 2 = NEW8 (TYPE FIX)>
14445 <SETG 'STACK-DEPTH NEW8>
14449 <EQUAL? DST13 OLD9 + PHRASE245>
14450 <FRAME '
\1aCLEAN-ACS>
14452 <CALL '
\1aCLEAN-ACS 1>
14453 <FRAME '
\1aALTER-AC>
14456 <CALL '
\1aALTER-AC 2>
14459 <CALL '
\1aGET-AC 1 = NEW8>
14460 <PUTUV NEW8 6 'FIX>
14464 <TYPE? NAC12 <TYPE-CODE FALSE> - PHRASE167>
14465 <EQUAL? DST13 OLD9 - PHRASE169>
14467 <EQUAL? NEW8 -1 - PHRASE172>
14469 <EQUAL? SHL7 0 - PHRASE174>
14471 <VEQUAL? FLIP14 0 + PHRASE176>
14473 <SET NEW8 'HRROS (TYPE ATOM)>
14476 <SET NEW8 'HLLOS (TYPE ATOM)>
14479 <VEQUAL? FLIP14 0 + PHRASE178>
14481 <SET NEW8 'HRLOS (TYPE ATOM)>
14484 <SET NEW8 'HRROS (TYPE ATOM)>
14487 <EQUAL? SHL7 0 - PHRASE180>
14489 <VEQUAL? FLIP14 0 + PHRASE182>
14491 <SET NEW8 'HRRZS (TYPE ATOM)>
14494 <SET NEW8 'HLLZS (TYPE ATOM)>
14497 <VEQUAL? FLIP14 0 + PHRASE184>
14499 <SET NEW8 'HRLZS (TYPE ATOM)>
14502 <SET NEW8 'HRRZS (TYPE ATOM)>
14507 <SET TEMP15 2 (TYPE FIX)>
14510 <SCALL '
\1aOBJ-VAL 1 = NEW8 + TAG170 TEMP15>
14511 <LOOP (NEW8 TYPE VALUE LENGTH) (TEMP15 VALUE)>
14514 <EMPTY? NEW8 + TAG170>
14515 <NTH1 NEW8 = STACK>
14516 <REST1 NEW8 = NEW8>
14517 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
14520 <CALL '
\1aOCEMIT TEMP15>
14524 <EQUAL? DST13 'STACK + PHRASE191>
14525 <FRAME '
\1aASSIGN-AC>
14528 <CALL '
\1aASSIGN-AC 2 = NAC12>
14531 <EQUAL? NEW8 -1 - PHRASE195>
14533 <EQUAL? SHL7 0 - PHRASE197>
14535 <VEQUAL? FLIP14 0 + PHRASE199>
14537 <SET TEMP15 'HRRO (TYPE ATOM)>
14540 <SET TEMP15 'HLLO (TYPE ATOM)>
14543 <VEQUAL? FLIP14 0 + PHRASE201>
14545 <SET TEMP15 'HRLO (TYPE ATOM)>
14548 <SET TEMP15 'HRRO (TYPE ATOM)>
14551 <EQUAL? SHL7 0 - PHRASE203>
14553 <VEQUAL? FLIP14 0 + PHRASE205>
14555 <SET TEMP15 'HRRZ (TYPE ATOM)>
14558 <SET TEMP15 'HLLZ (TYPE ATOM)>
14561 <VEQUAL? FLIP14 0 + PHRASE207>
14563 <SET TEMP15 'HRLZ (TYPE ATOM)>
14566 <SET TEMP15 'HRRZ (TYPE ATOM)>
14570 <EQUAL? DST13 'STACK - PHRASE210>
14571 <SET TEMP15 'O* (TYPE ATOM)>
14574 <FRAME '
\1aNEXT-AC>
14576 <CALL '
\1aNEXT-AC 1 = TEMP15>
14580 <SET NEW8 2 (TYPE FIX)>
14583 <SCALL '
\1aOBJ-VAL 1 = TEMP15 + TAG193 NEW8>
14584 <LOOP (TEMP15 TYPE VALUE LENGTH) (NEW8 VALUE)>
14587 <EMPTY? TEMP15 + TAG193>
14588 <NTH1 TEMP15 = STACK>
14589 <REST1 TEMP15 = TEMP15>
14590 <ADD NEW8 1 = NEW8 (TYPE FIX)>
14593 <CALL '
\1aOCEMIT NEW8>
14595 <EQUAL? DST13 'STACK - PHRASE217>
14599 <SET TEMP15 2 (TYPE FIX)>
14600 <SFRAME 'TYPE-WORD>
14602 <SCALL '
\1aTYPE-WORD 1 = NEW8 + TAG218 TEMP15>
14603 <LOOP (NEW8 TYPE VALUE LENGTH) (TEMP15 VALUE)>
14606 <EMPTY? NEW8 + TAG218>
14607 <NTH1 NEW8 = STACK>
14608 <REST1 NEW8 = NEW8>
14609 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
14612 <CALL '
\1aOCEMIT TEMP15>
14618 <CALL '
\1aOCEMIT 3>
14619 <GVAL 'WINNING-VICTIM = TEMP15>
14620 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE245>
14622 <GVAL 'STACK-DEPTH = TEMP15>
14623 <ADD TEMP15 2 = TEMP15 (TYPE FIX)>
14624 <SETG 'STACK-DEPTH TEMP15>
14631 <CALL '
\1aGET-AC 1 = TEMP15>
14632 <PUTUV TEMP15 6 'FIX>
14636 <EQUAL? DST13 'STACK - PHRASE227>
14640 <SET NEW8 2 (TYPE FIX)>
14641 <SFRAME 'TYPE-WORD>
14643 <SCALL '
\1aTYPE-WORD 1 = TEMP15 + TAG228 NEW8>
14644 <LOOP (TEMP15 TYPE VALUE LENGTH) (NEW8 VALUE)>
14647 <EMPTY? TEMP15 + TAG228>
14648 <NTH1 TEMP15 = STACK>
14649 <REST1 TEMP15 = TEMP15>
14650 <ADD NEW8 1 = NEW8 (TYPE FIX)>
14653 <CALL '
\1aOCEMIT NEW8>
14658 <SET TEMP15 2 (TYPE FIX)>
14661 <SCALL '
\1aOBJ-VAL 1 = NEW8 + TAG232 TEMP15>
14662 <LOOP (NEW8 TYPE VALUE LENGTH) (TEMP15 VALUE)>
14665 <EMPTY? NEW8 + TAG232>
14666 <NTH1 NEW8 = STACK>
14667 <REST1 NEW8 = NEW8>
14668 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
14671 <CALL '
\1aOCEMIT TEMP15>
14674 <EQUAL? SHL7 0 - PHRASE238>
14676 <VEQUAL? FLIP14 0 + PHRASE240>
14678 <SET TEMP15 'HLLM (TYPE ATOM)>
14681 <SET TEMP15 'HRRM (TYPE ATOM)>
14684 <SET TEMP15 'HRLM (TYPE ATOM)>
14691 <CALL '
\1aOCEMIT 3>
14692 <GVAL 'WINNING-VICTIM = TEMP15>
14693 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE245>
14695 <GVAL 'STACK-DEPTH = TEMP15>
14696 <ADD TEMP15 2 = TEMP15 (TYPE FIX)>
14697 <SETG 'STACK-DEPTH TEMP15>
14702 <EQUAL? SHL7 0 - PHRASE248>
14704 <VEQUAL? FLIP14 0 + PHRASE250>
14706 <SET TEMP15 'HLLM (TYPE ATOM)>
14709 <SET TEMP15 'HRRM (TYPE ATOM)>
14712 <SET TEMP15 'HRLM (TYPE ATOM)>
14718 <SET NEW8 2 (TYPE FIX)>
14721 <SCALL '
\1aOBJ-VAL 1 = TEMP15 + TAG246 NEW8>
14722 <LOOP (TEMP15 TYPE VALUE LENGTH) (NEW8 VALUE)>
14725 <EMPTY? TEMP15 + TAG246>
14726 <NTH1 TEMP15 = STACK>
14727 <REST1 TEMP15 = TEMP15>
14728 <ADD NEW8 1 = NEW8 (TYPE FIX)>
14731 <CALL '
\1aOCEMIT NEW8>
14735 <TYPE? NEW8 <TYPE-CODE FALSE> + PHRASE263>
14736 <EQUAL? OLD9 DST13 - TAG259>
14740 <EQUAL? DST13 'STACK - TAG260>
14743 <FRAME '
\1aCLEAN-ACS>
14745 <CALL '
\1aCLEAN-ACS 1>
14746 <FRAME '
\1aALTER-AC>
14751 <CALL '
\1aALTER-AC 2 = NEW8>
14755 <FRAME '
\1aRPUTBITS>
14758 <CALL '
\1aRPUTBITS 1 = NEW8>
14762 <END
\1aPUTBITS!-MIMOC>
14763 #WORD *37762402155*
14764 <GFCN
\1aRPUTBITS ("VALUE" <OR FALSE FIX AC> LIST) L4>
14765 <TEMP WD5 TEMP22 WL6 SHL7 NEW8 DST9 (TAC?10 %<>) (AC?11 %<>) (OL14 %<>) (AC15 %<>) (W16 0) (SH17 0) (VT19 %<>) (WAS-TYPED20 %<>) (DST-IN-O1-21 %<>) TEMP38 TEMP89>
14768 <RESTL L4 1 = TEMP22 (TYPE LIST)>
14769 <NTHL TEMP22 1 = WL6>
14771 <RESTL L4 1 = TEMP22 (TYPE LIST)>
14772 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
14773 <NTHL TEMP22 1 = SHL7>
14775 <RESTL L4 1 = TEMP22 (TYPE LIST)>
14776 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
14777 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
14778 <NTHL TEMP22 1 = NEW8>
14782 <TYPE? WL6 <TYPE-CODE FIX> - PHRASE24>
14785 <TYPE? SHL7 <TYPE-CODE FIX> - PHRASE26>
14788 <TYPE? WD5 <TYPE-CODE ATOM> - PHRASE28>
14789 <FRAME '
\1aOBJ-LOC>
14792 <CALL '
\1aOBJ-LOC 2 = OL14>
14796 <CALL '
\1aIN-AC? 2 = TAC?10>
14800 <CALL '
\1aIN-AC? 2 = AC?11>
14801 <FRAME '
\1aVAR-TYPED?>
14803 <CALL '
\1aVAR-TYPED? 1 = VT19>
14806 <FRAME '
\1aPRIMTYPE>
14808 <CALL '
\1aPRIMTYPE 1 = TEMP22>
14809 <VEQUAL? TEMP22 'FIX + PHRASE33>
14811 <FRAME '
\1aMIMOCERR>
14812 <PUSH 'BAD-ARG-TO-PUTBITS>
14814 <CALL '
\1aMIMOCERR 2>
14817 <EQUAL? DST9 'STACK - PHRASE36>
14821 <SET TEMP38 2 (TYPE FIX)>
14822 <SFRAME 'TYPE-WORD>
14824 <SCALL '
\1aTYPE-WORD 1 = TEMP22 + TAG37 TEMP38>
14825 <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP38 VALUE)>
14828 <EMPTY? TEMP22 + TAG37>
14829 <NTH1 TEMP22 = STACK>
14830 <REST1 TEMP22 = TEMP22>
14831 <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
14834 <CALL '
\1aOCEMIT TEMP38>
14839 <SET TEMP22 2 (TYPE FIX)>
14841 <CHTYPE WD5 <TYPE-CODE CONSTANT> = STACK>
14842 <SCALL '
\1aOBJ-VAL 1 = TEMP38 + TAG42 TEMP22>
14843 <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP22 VALUE)>
14846 <EMPTY? TEMP38 + TAG42>
14847 <NTH1 TEMP38 = STACK>
14848 <REST1 TEMP38 = TEMP38>
14849 <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
14852 <CALL '
\1aOCEMIT TEMP22>
14854 <FRAME '
\1aCONST-LOC>
14855 <CHTYPE WD5 <TYPE-CODE CONSTANT> = STACK>
14857 <CALL '
\1aCONST-LOC 2>
14858 <GVAL 'WINNING-VICTIM = TEMP22>
14859 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE49>
14861 <GVAL 'STACK-DEPTH = TEMP22>
14862 <ADD TEMP22 2 = TEMP22 (TYPE FIX)>
14863 <SETG 'STACK-DEPTH TEMP22>
14867 <EQUAL? DST9 NEW8 + BOOL52>
14868 <EQUAL? DST9 'SHL + BOOL52>
14869 <EQUAL? DST9 WL6 - PHRASE51>
14871 <SET DST-IN-O1-21 'T (TYPE ATOM)>
14875 <SET TEMP38 2 (TYPE FIX)>
14878 <SCALL '
\1aOBJ-VAL 1 = TEMP22 + TAG53 TEMP38>
14879 <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP38 VALUE)>
14882 <EMPTY? TEMP22 + TAG53>
14883 <NTH1 TEMP22 = STACK>
14884 <REST1 TEMP22 = TEMP22>
14885 <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
14888 <CALL '
\1aOCEMIT TEMP38>
14891 <FRAME '
\1aNEXT-AC>
14892 <FRAME '
\1aASSIGN-AC>
14895 <CALL '
\1aASSIGN-AC 2 = TAC?10>
14897 <CALL '
\1aNEXT-AC 1 = AC?11>
14898 <FRAME '
\1aLOAD-AC>
14906 <CALL '
\1aGET-AC 1 = STACK>
14907 <CALL '
\1aLOAD-AC 5>
14908 <FRAME '
\1aCLEAN-ACS>
14910 <CALL '
\1aCLEAN-ACS 1>
14911 <FRAME '
\1aALTER-AC>
14914 <CALL '
\1aALTER-AC 2>
14917 <LSH SH17 30 = TEMP38 (TYPE FIX)>
14919 <LSH W16 24 = TEMP22 (TYPE FIX)>
14921 <OR TEMP38 TEMP22 = W16>
14922 <DEAD TEMP38 TEMP22>
14923 <TYPE? WD5 <TYPE-CODE ATOM> - PHRASE71>
14924 <EQUAL? WD5 DST9 - BOOL66>
14925 <TYPE? VT19 <TYPE-CODE FALSE> - PHRASE71>
14926 <TYPE? AC?11 <TYPE-CODE FALSE> - PHRASE71>
14928 <FRAME '
\1aLOAD-AC>
14931 <CALL '
\1aLOAD-AC 2 = TAC?10>
14932 <FRAME '
\1aNEXT-AC>
14934 <CALL '
\1aNEXT-AC 1 = AC?11>
14935 <EQUAL? WD5 DST9 + PHRASE71>
14936 <FRAME '
\1aWILL-DIE?>
14938 <CALL '
\1aWILL-DIE? 1 = TEMP22>
14939 <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE71>
14941 <FRAME '
\1aFLUSH-AC>
14944 <CALL '
\1aFLUSH-AC 2>
14946 <EQUAL? WD5 DST9 + PHRASE81>
14947 <TYPE? TAC?10 <TYPE-CODE FALSE> + PHRASE78>
14950 <CALL '
\1aGET-AC 1 = TEMP22>
14951 <NTHUV TEMP22 6 = WAS-TYPED20>
14953 <FRAME '
\1aMUNGED-AC>
14956 <CALL '
\1aMUNGED-AC 2>
14959 <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE81>
14960 <FRAME '
\1aMUNGED-AC>
14962 <CALL '
\1aMUNGED-AC 1>
14964 <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE84>
14965 <GVAL 'ACS = TEMP22>
14966 <TYPE AC?11 = TEMP38>
14967 <EMPUV? TEMP22 + TAG85>
14968 <LOOP (AC?11 VALUE) (TEMP38 VALUE) (TEMP22 LENGTH VALUE)>
14970 <NTHUV TEMP22 1 = TEMP89>
14971 <TYPE? TEMP89 TEMP38 - TAG88>
14972 <VEQUAL? TEMP89 AC?11 + TAG86>
14975 <RESTUV TEMP22 1 = TEMP22 (TYPE VECTOR)>
14976 <EMPUV? TEMP22 - TAG87>
14978 <SET TEMP22 %<> (TYPE FALSE)>
14980 <NTHUV TEMP22 2 = TEMP89>
14983 <TYPE? WD5 <TYPE-CODE FIX> - PHRASE91>
14984 <EQUAL? DST9 'STACK - PHRASE91>
14985 <GVAL 'TP* = TEMP22>
14986 <LSH TEMP22 18 = TEMP22 (TYPE FIX)>
14987 <OR W16 TEMP22 = TEMP38>
14989 <CHTYPE TEMP38 <TYPE-CODE CONSTANT> = W16>
14993 <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE93>
14994 <OR W16 TEMP89 = TEMP38>
14996 <CHTYPE TEMP38 <TYPE-CODE CONSTANT> = W16>
15000 <TYPE? OL14 <TYPE-CODE FALSE> + PHRASE94>
15001 <RESTL OL14 1 = TEMP38 (TYPE LIST)>
15002 <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
15003 <NTHL TEMP38 1 = TEMP38>
15004 <NTHL TEMP38 1 = TEMP38>
15005 <GVAL 'ACS = TEMP22>
15006 <TYPE TEMP38 = TEMP89>
15007 <EMPUV? TEMP22 + TAG95>
15008 <LOOP (TEMP38 VALUE) (TEMP89 VALUE) (TEMP22 LENGTH VALUE)>
15010 <NTHUV TEMP22 1 = SH17>
15011 <TYPE? SH17 TEMP89 - TAG98>
15012 <VEQUAL? SH17 TEMP38 + TAG96>
15015 <RESTUV TEMP22 1 = TEMP22 (TYPE VECTOR)>
15016 <EMPUV? TEMP22 - TAG97>
15018 <SET TEMP22 %<> (TYPE FALSE)>
15020 <NTHUV TEMP22 2 = TEMP22 (TYPE FIX)>
15021 <LSH TEMP22 18 = TEMP22 (TYPE FIX)>
15022 <NTHL OL14 1 = TEMP89>
15023 <ADD TEMP22 TEMP89 = TEMP22 (TYPE FIX)>
15025 <ADD TEMP22 W16 = TEMP22 (TYPE FIX)>
15027 <CONS TEMP22 () = TEMP22>
15028 <RESTL OL14 1 = TEMP89 (TYPE LIST)>
15030 <NTHL TEMP89 1 = TEMP89>
15031 <CONS TEMP89 TEMP22 = TEMP22>
15033 <CHTYPE TEMP22 <TYPE-CODE CONST-W-LOCAL> = W16>
15036 <TYPE? WL6 <TYPE-CODE FIX> - PHRASE101>
15037 <TYPE? SHL7 <TYPE-CODE FIX> - PHRASE101>
15038 <TYPE? NEW8 <TYPE-CODE ATOM> - BOOL105>
15039 <FRAME '
\1aWILL-DIE?>
15041 <CALL '
\1aWILL-DIE? 1 = TEMP22>
15042 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE104>
15047 <CALL '
\1aIN-AC? 2 = AC15>
15048 <TYPE? AC15 <TYPE-CODE FALSE> - PHRASE104>
15050 <FRAME '
\1aGET-INTO-ACS>
15054 <SET AC15 'T* (TYPE ATOM)>
15056 <CALL '
\1aGET-INTO-ACS 3>
15059 <VEQUAL? DST-IN-O1-21 0 + PHRASE110>
15060 <DEAD DST-IN-O1-21>
15061 <EQUAL? NEW8 DST9 - PHRASE110>
15062 <SET AC15 'O1* (TYPE ATOM)>
15065 <TYPE? AC15 <TYPE-CODE FALSE> - PHRASE112>
15066 <FRAME '
\1aNEXT-AC>
15067 <FRAME '
\1aLOAD-AC>
15071 <CALL '
\1aLOAD-AC 2 = STACK>
15072 <CALL '
\1aNEXT-AC 1 = AC15>
15074 <FRAME '
\1aCONST-LOC>
15077 <CALL '
\1aCONST-LOC 2>
15082 <SET TEMP89 2 (TYPE FIX)>
15086 <SCALL '
\1aOBJ-VAL 1 = TEMP22 + TAG116 TEMP89>
15087 <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP89 VALUE)>
15090 <EMPTY? TEMP22 + TAG116>
15091 <NTH1 TEMP22 = STACK>
15092 <REST1 TEMP22 = TEMP22>
15093 <ADD TEMP89 1 = TEMP89 (TYPE FIX)>
15096 <CALL '
\1aOCEMIT TEMP89>
15100 <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE122>
15105 <CALL '
\1aOCEMIT 3>
15108 <FRAME '
\1aCONST-LOC>
15111 <CALL '
\1aCONST-LOC 2>
15115 <SET TEMP22 2 (TYPE FIX)>
15119 <SCALL '
\1aOBJ-VAL 1 = TEMP89 + TAG126 TEMP22>
15120 <LOOP (TEMP89 TYPE VALUE LENGTH) (TEMP22 VALUE)>
15123 <EMPTY? TEMP89 + TAG126>
15124 <NTH1 TEMP89 = STACK>
15125 <REST1 TEMP89 = TEMP89>
15126 <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
15129 <CALL '
\1aOCEMIT TEMP22>
15132 <TYPE? SHL7 <TYPE-CODE FIX> + PHRASE131>
15138 <CALL '
\1aIN-AC? 2 = TEMP22>
15139 <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE137>
15140 <EQUAL? SHL7 DST9 - PHRASE135>
15141 <VEQUAL? DST-IN-O1-21 0 + PHRASE135>
15142 <SET TEMP22 'O1* (TYPE ATOM)>
15145 <FRAME '
\1aNEXT-AC>
15146 <FRAME '
\1aLOAD-AC>
15150 <CALL '
\1aLOAD-AC 2 = STACK>
15151 <CALL '
\1aNEXT-AC 1 = TEMP22>
15155 <SET TEMP89 2 (TYPE FIX)>
15157 <SET W16 #CONSTANT 32312918016 (TYPE CONSTANT)>
15159 <SCALL '
\1aOBJ-VAL 1 = TEMP22 + TAG132 TEMP89>
15160 <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP89 VALUE)>
15163 <EMPTY? TEMP22 + TAG132>
15164 <NTH1 TEMP22 = STACK>
15165 <REST1 TEMP22 = TEMP22>
15166 <ADD TEMP89 1 = TEMP89 (TYPE FIX)>
15169 <CALL '
\1aOCEMIT TEMP89>
15171 <FRAME '
\1aCONST-LOC>
15175 <CALL '
\1aCONST-LOC 2>
15177 <TYPE? WL6 <TYPE-CODE FIX> + PHRASE145>
15183 <CALL '
\1aIN-AC? 2 = TEMP89>
15184 <TYPE? TEMP89 <TYPE-CODE FALSE> - PHRASE151>
15185 <EQUAL? WL6 DST9 - PHRASE149>
15186 <VEQUAL? DST-IN-O1-21 0 + PHRASE149>
15187 <SET TEMP89 'O1* (TYPE ATOM)>
15190 <FRAME '
\1aNEXT-AC>
15191 <FRAME '
\1aLOAD-AC>
15195 <CALL '
\1aLOAD-AC 2 = STACK>
15196 <CALL '
\1aNEXT-AC 1 = TEMP89>
15200 <SET TEMP22 2 (TYPE FIX)>
15202 <SET W16 #CONSTANT 25870467072 (TYPE CONSTANT)>
15204 <SCALL '
\1aOBJ-VAL 1 = TEMP89 + TAG146 TEMP22>
15205 <LOOP (TEMP89 TYPE VALUE LENGTH) (TEMP22 VALUE)>
15208 <EMPTY? TEMP89 + TAG146>
15209 <NTH1 TEMP89 = STACK>
15210 <REST1 TEMP89 = TEMP89>
15211 <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
15214 <CALL '
\1aOCEMIT TEMP22>
15216 <FRAME '
\1aCONST-LOC>
15220 <CALL '
\1aCONST-LOC 2>
15222 <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE162>
15225 <CALL '
\1aGET-AC 1 = TEMP22>
15226 <GVAL 'AC-STAMP = TEMP89>
15227 <ADD TEMP89 1 = TEMP89 (TYPE FIX)>
15228 <SETG 'AC-STAMP TEMP89>
15229 <PUTUV TEMP22 4 TEMP89 (TYPE FIX)>
15230 <DEAD TEMP22 TEMP89>
15231 <TYPE? TAC?10 <TYPE-CODE FALSE> + PHRASE162>
15234 <CALL '
\1aGET-AC 1 = TEMP22>
15235 <GVAL 'AC-STAMP = TEMP89>
15236 <PUTUV TEMP22 4 TEMP89 (TYPE FIX)>
15237 <DEAD TEMP22 TEMP89>
15239 <EQUAL? NEW8 DST9 - PHRASE165>
15240 <VEQUAL? DST-IN-O1-21 0 + PHRASE165>
15241 <DEAD DST-IN-O1-21>
15246 <CALL '
\1aOCEMIT 3>
15249 <FRAME '
\1aLOAD-AC>
15253 <CALL '
\1aLOAD-AC 2 = AC15>
15256 <FRAME '
\1aNEXT-AC>
15259 <CALL '
\1aNEXT-AC 1 = STACK>
15261 <CALL '
\1aOCEMIT 3>
15263 <EQUAL? DST9 'STACK - PHRASE173>
15264 <TYPE? WD5 <TYPE-CODE ATOM> + TAG176>
15271 <SET TEMP38 2 (TYPE FIX)>
15272 <SFRAME 'TYPE-WORD>
15274 <SCALL '
\1aTYPE-WORD 1 = TEMP89 + TAG178 TEMP38>
15275 <LOOP (TEMP89 TYPE VALUE LENGTH) (TEMP38 VALUE)>
15278 <EMPTY? TEMP89 + TAG178>
15279 <NTH1 TEMP89 = STACK>
15280 <REST1 TEMP89 = TEMP89>
15281 <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
15284 <CALL '
\1aOCEMIT TEMP38>
15291 <CALL '
\1aOCEMIT 3>
15292 <GVAL 'WINNING-VICTIM = TEMP22>
15293 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE199>
15294 <GVAL 'STACK-DEPTH = TEMP38>
15295 <ADD TEMP38 2 = TEMP38 (TYPE FIX)>
15296 <SETG 'STACK-DEPTH TEMP38>
15300 <EQUAL? WD5 DST9 + PHRASE185>
15302 <FRAME '
\1aCLEAN-ACS>
15304 <CALL '
\1aCLEAN-ACS 1>
15307 <CALL '
\1aGET-AC 1 = TEMP38>
15308 <PUTUV TEMP38 3 'TYPE (TYPE ATOM)>
15309 <PUTUV TEMP38 2 DST9>
15310 <PUTUV TEMP38 5 'T>
15312 <TYPE? WAS-TYPED20 <TYPE-CODE FALSE> + PHRASE189>
15317 <CALL '
\1aGET-AC 1 = TEMP38>
15318 <PUTUV TEMP38 6 'FIX>
15326 <CALL '
\1aGET-AC 1 = TEMP38>
15327 <PUTUV TEMP38 5 'T>
15328 <PUTUV TEMP38 2 DST9>
15330 <PUTUV TEMP38 6 %<>>
15331 <PUTUV TEMP38 3 'VALUE (TYPE ATOM)>
15336 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE199>
15337 <TYPE? TAC?10 <TYPE-CODE FALSE> - PHRASE194>
15338 <FRAME '
\1aGETPROP>
15341 <CALL '
\1aGETPROP 2 = TAC?10>
15344 <CALL '
\1aGET-AC 1 = TEMP38>
15345 <PUTUV TEMP38 3 'TYPE (TYPE ATOM)>
15346 <PUTUV TEMP38 2 DST9>
15348 <PUTUV TEMP38 5 'T>
15354 <CALL '
\1aGET-AC 1 = TEMP38>
15355 <PUTUV TEMP38 5 'T>
15357 <TYPE? VT19 <TYPE-CODE FALSE> + TAG200>
15364 <CALL '
\1aGET-AC 1 = TEMP38>
15365 <PUTUV TEMP38 6 'FIX>
15366 <SET TEMP22 TEMP38>
15374 <GFCN
\1aDISPATCH!-MIMOC ("VALUE" ANY LIST) L4>
15375 <TEMP VAR5 TEMP18 (DF9 %<>) DLBL10 LL12:LIST TEMP22:FIX TEMP3:LBIND TEMP31 TEMP29 TEMP34 TEMP33 LBL35 LBX37 DELBL7>
15378 <RESTL L4 1 = TEMP18 (TYPE LIST)>
15379 <NTHL TEMP18 1 = TEMP18 (TYPE FIX)>
15382 <CALL '
\1aGENLBL 1 = DLBL10>
15383 <GEN-LVAL 'MIML = LL12>
15384 <LENL L4 = TEMP22 (TYPE FIX)>
15385 <SUB TEMP22 2 = TEMP22 (TYPE FIX)>
15386 <GETS 'BIND = TEMP3 (TYPE LBIND)>
15387 <BBIND 'DISP-L 'LIST 'FIX ()>
15388 <SET TEMP31 () (TYPE LIST)>
15389 <SET TEMP29 () (TYPE LIST)>
15390 <RESTL L4 1 = TEMP34 (TYPE LIST)>
15392 <RESTL TEMP34 1 = TEMP33 (TYPE LIST)>
15397 <EMPL? TEMP33 + MAPAP27>
15398 <NTHL TEMP33 1 = LBL35>
15399 <FRAME '
\1aFIND-LABEL>
15401 <CALL '
\1aFIND-LABEL 1 = TEMP34>
15402 <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE39>
15403 <NTHUV TEMP34 3 = TEMP34>
15404 <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE39>
15406 <FRAME '
\1aFIND-LABEL>
15409 <CALL '
\1aGENLBL 1 = LBX37>
15411 <CALL '
\1aFIND-LABEL 1 = TEMP34>
15412 <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE43>
15414 <FRAME '
\1aMAKE-LABEL>
15418 <CALL '
\1aMAKE-LABEL 3>
15420 <CONS LBX37 () = TEMP34>
15422 <CONS LBL35 TEMP34 = TEMP34>
15426 <CONS LBL35 () = TEMP34>
15427 <CONS LBL35 TEMP34 = TEMP34>
15430 <CONS TEMP34 () = TEMP34 (TYPE LIST)>
15431 <EMPL? TEMP31 - TAG48>
15432 <SET TEMP31 TEMP34 (TYPE LIST)>
15435 <PUTREST TEMP29 TEMP34>
15438 <SET TEMP29 TEMP34 (TYPE LIST)>
15440 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
15443 <SET TEMP29 () (TYPE LIST)>
15444 <SET TEMP34 () (TYPE LIST)>
15445 <SET TEMP33 TEMP31 (TYPE LIST)>
15449 <EMPL? TEMP33 + MAPAP54>
15450 <NTHL TEMP33 1 = LBL35>
15451 <RESTL LBL35 1 = LBL35 (TYPE LIST)>
15452 <NTHL LBL35 1 = LBL35>
15453 <CONS LBL35 () = LBL35 (TYPE LIST)>
15454 <EMPL? TEMP29 - TAG61>
15455 <SET TEMP29 LBL35 (TYPE LIST)>
15458 <PUTREST TEMP34 LBL35>
15461 <SET TEMP34 LBL35 (TYPE LIST)>
15463 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
15466 <NTHR 'DISP-L 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
15467 <PUTR TEMP33 1 TEMP29 (RECORD-TYPE LBIND)>
15468 <DEAD TEMP33 TEMP29>
15472 <RESTL LL12 1 = LL12 (TYPE LIST)>
15473 <EMPL? LL12 + EXIT65 (TYPE LIST)>
15474 <NTHL LL12 1 = TEMP29>
15475 <TYPE? TEMP29 <TYPE-CODE FORM> - PHRASE69>
15476 <EMPL? TEMP29 + EXIT65 (TYPE FORM)>
15477 <NTHL TEMP29 1 = LBL35>
15478 <EQUAL? LBL35 'DEAD - EXIT65>
15481 <TYPE? TEMP29 <TYPE-CODE ATOM> - AGAIN67>
15482 <SET DELBL7 TEMP29>
15484 <SET DF9 'T (TYPE ATOM)>
15489 <CALL '
\1aIN-AC? 2 = TEMP29>
15490 <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE75>
15491 <FRAME '
\1aNEXT-AC>
15494 <CALL '
\1aNEXT-AC 1 = TEMP29>
15500 <CALL '
\1aIN-AC? 2 = TEMP29>
15501 <TYPE? TEMP29 <TYPE-CODE FALSE> - PHRASE79>
15502 <FRAME '
\1aNEXT-AC>
15503 <FRAME '
\1aLOAD-AC>
15507 <CALL '
\1aLOAD-AC 2 = TEMP29>
15510 <CALL '
\1aNEXT-AC 1 = TEMP29>
15512 <VEQUAL? DF9 0 - PHRASE86>
15515 <CALL '
\1aGENLBL 1 = DELBL7>
15516 <FRAME '
\1aFIND-LABEL>
15518 <CALL '
\1aFIND-LABEL 1 = LBL35>
15519 <TYPE? LBL35 <TYPE-CODE FALSE> - PHRASE86>
15521 <FRAME '
\1aMAKE-LABEL>
15525 <CALL '
\1aMAKE-LABEL 3>
15527 <FRAME '
\1aLABEL-UPDATE-ACS>
15530 <CALL '
\1aLABEL-UPDATE-ACS 2>
15531 <LESS? TEMP18 0 + PHRASE91 (TYPE FIX)>
15532 <GRTR? TEMP18 1 + PHRASE91 (TYPE FIX)>
15534 <VEQUAL? TEMP18 0 - PHRASE99 (TYPE FIX)>
15535 <SET LBL35 'JUMPL (TYPE ATOM)>
15538 <SET LBL35 'JUMPLE (TYPE ATOM)>
15545 <CALL '
\1aXJUMP 1 = STACK>
15546 <CALL '
\1aOCEMIT 3>
15550 <ADD TEMP22 TEMP18 = LBL35 (TYPE FIX)>
15552 <ADD LBL35 -1 = STACK (TYPE FIX)>
15554 <CALL '
\1aOCEMIT 3>
15560 <CALL '
\1aXJUMP 1 = STACK>
15561 <CALL '
\1aOCEMIT 3>
15564 <GRTR? TEMP18 0 - PHRASE109 (TYPE FIX)>
15569 <CALL '
\1aOCEMIT 3>
15575 <SET VAR5 2 (TYPE FIX)>
15578 <SCALL '
\1aOBJ-VAL 1 = LBL35 + TAG114 VAR5>
15579 <LOOP (LBL35 TYPE VALUE LENGTH) (VAR5 VALUE)>
15582 <EMPTY? LBL35 + TAG114>
15583 <NTH1 LBL35 = STACK>
15584 <REST1 LBL35 = LBL35>
15585 <ADD VAR5 1 = VAR5 (TYPE FIX)>
15588 <CALL '
\1aOCEMIT VAR5>
15591 <ADD TEMP22 TEMP18 = VAR5 (TYPE FIX)>
15593 <ADD VAR5 -1 = TEMP22 (TYPE FIX)>
15595 <GRTR? TEMP22 0 - PHRASE120 (TYPE FIX)>
15601 <CALL '
\1aOCEMIT 3>
15607 <SET LBL35 2 (TYPE FIX)>
15611 <SCALL '
\1aOBJ-CAL 1 = VAR5 + TAG125 LBL35>
15612 <LOOP (VAR5 TYPE VALUE LENGTH) (LBL35 VALUE)>
15615 <EMPTY? VAR5 + TAG125>
15616 <NTH1 VAR5 = STACK>
15617 <REST1 VAR5 = VAR5>
15618 <ADD LBL35 1 = LBL35 (TYPE FIX)>
15621 <CALL '
\1aOCEMIT LBL35>
15629 <CALL '
\1aXJUMP 1 = STACK>
15630 <CALL '
\1aOCEMIT 3>
15637 <CALL '
\1aXJUMP 1 = STACK>
15638 <CALL '
\1aOCEMIT 3>
15644 <CALL '
\1aOCEMIT 3>
15645 <SET LBL35 TEMP31 (TYPE LIST)>
15649 <EMPL? LBL35 + MAPAP138>
15650 <NTHL LBL35 1 = VAR5>
15651 <FRAME '
\1aLABEL-UPDATE-ACS>
15656 <CALL '
\1aNTH 2 = STACK>
15658 <CALL '
\1aLABEL-UPDATE-ACS 2>
15659 <RESTL LBL35 1 = LBL35 (TYPE LIST)>
15662 <SETG 'LAST-UNCON 'T>
15666 <SUB 0 TEMP18 = STACK (TYPE FIX)>
15669 <CALL '
\1aOCEMIT 4>
15674 <SET LBL35 TEMP31 (TYPE LIST)>
15678 <EMPL? LBL35 + MAPAP152>
15679 <NTHL LBL35 1 = VAR5>
15688 <CALL '
\1aNTH 2 = STACK>
15689 <CALL '
\1aXJUMP 1 = STACK>
15690 <CALL '
\1aOCEMIT 3>
15691 <RESTL LBL35 1 = LBL35 (TYPE LIST)>
15694 <SET LBL35 TEMP31 (TYPE LIST)>
15699 <EMPL? LBL35 + MAPAP164>
15700 <NTHL LBL35 1 = VAR5>
15701 <NTH1 VAR5 = TEMP18>
15705 <CALL '
\1aNTH 2 = DLBL10>
15706 <EQUAL? TEMP18 DLBL10 + PHRASE170>
15707 <DEAD TEMP18 DLBL10>
15712 <CALL '
\1aNTH 2 = STACK>
15714 <FRAME '
\1aJUMP!-MIMOC>
15715 <NTH1 VAR5 = STACK>
15717 <CALL '
\1aJUMP!-MIMOC 1>
15719 <RESTL LBL35 1 = LBL35 (TYPE LIST)>
15722 <VEQUAL? DF9 0 + TAG179>
15724 <SET LBL35 %<> (TYPE FALSE)>
15727 <GVAL 'PASS1 = VAR5>
15728 <TYPE? VAR5 <TYPE-CODE FALSE> + PHRASE181>
15733 <CALL '
\1aLABEL 1 = VAR5>
15736 <FRAME '
\1aSAVE-LABEL-STATE>
15737 <GEN-LVAL 'LB = STACK>
15738 <CALL '
\1aSAVE-LABEL-STATE 1 = LBL35>
15741 <GVAL 'NO-AC-FUNNYNESS = VAR5>
15742 <TYPE? VAR5 <TYPE-CODE FALSE> + PHRASE188>
15744 <FRAME '
\1aSAVE-ACS>
15745 <CALL '
\1aSAVE-ACS 0>
15749 <CALL '
\1aLABEL 1 = LBL35>
15750 <GEN-SET 'LB LBL35>
15753 <FRAME '
\1aFIND-LABEL>
15755 <CALL '
\1aFIND-LABEL 1 = VAR5>
15758 <FRAME '
\1aESTABLISH-LABEL-STATE>
15759 <GEN-LVAL 'LB = STACK>
15760 <CALL '
\1aESTABLISH-LABEL-STATE 1>
15764 <CALL '
\1aLABEL 1 = LBL35>
15771 <END
\1aDISPATCH!-MIMOC>
15772 #WORD *33047003450*
15773 <GFCN
\1aCHANNEL-OP!-MIMOC ("VALUE" ANY LIST) L4>
15774 <TEMP CTYP5:FORM TEMP13 OPER6:FORM (EQSN7 %<>) RES8 (GC9 %<>) (NUM10:FIX 2) OC12 TEMP32 TEMP33>
15776 <NTHL L4 1 = CTYP5 (TYPE FORM)>
15777 <RESTL L4 1 = TEMP13 (TYPE LIST)>
15778 <NTHL TEMP13 1 = OPER6 (TYPE FORM)>
15780 <FRAME '
\1aGETPROP>
15781 <RESTL CTYP5 1 = TEMP13 (TYPE LIST)>
15782 <NTHL TEMP13 1 = STACK (TYPE ATOM)>
15784 <PUSH 'OC-INDICATOR>
15785 <CALL '
\1aGETPROP 2 = OC12>
15786 <TYPE? OC12 <TYPE-CODE FALSE> + PHRASE18>
15788 <RESTL OPER6 1 = TEMP13 (TYPE LIST)>
15789 <NTHL TEMP13 1 = STACK (TYPE ATOM)>
15791 <RESTL L4 1 = TEMP13 (TYPE LIST)>
15792 <RESTL TEMP13 1 = STACK (TYPE LIST)>
15794 <ACALL OC12 2 = OC12>
15795 <TYPE? OC12 <TYPE-CODE FALSE> + PHRASE18>
15799 <FRAME '
\1aCT-QUERY>
15800 <RESTL CTYP5 1 = TEMP13 (TYPE LIST)>
15801 <NTHL TEMP13 1 = STACK (TYPE ATOM)>
15803 <RESTL OPER6 1 = TEMP13 (TYPE LIST)>
15804 <NTHL TEMP13 1 = STACK (TYPE ATOM)>
15806 <CALL '
\1aCT-QUERY 2 = OC12>
15807 <TYPE? OC12 <TYPE-CODE FALSE> + PHRASE25>
15808 <GVAL 'GLUE-MODE = TEMP13>
15809 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE27>
15811 <GVAL 'PRE-NAMES = TEMP13>
15812 <TYPE OC12 = TEMP32>
15813 <EMPL? TEMP13 + PHRASE27>
15814 <LOOP (OC12 VALUE) (TEMP32 VALUE) (TEMP13 VALUE)>
15816 <NTHL TEMP13 1 = TEMP33>
15817 <TYPE? TEMP33 TEMP32 - TAG31>
15818 <VEQUAL? TEMP33 OC12 + TAG29>
15821 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
15822 <EMPL? TEMP13 - TAG30>
15825 <FRAME '
\1aFRAME!-MIMOC>
15828 <CALL '
\1aGENLBL 1 = GC9>
15829 <CONS GC9 () = TEMP13>
15830 <CONS OC12 () = TEMP32>
15831 <PUTREST TEMP13 TEMP32>
15835 <CALL '
\1aFRAME!-MIMOC 1>
15840 <CALL '
\1aFORM 2 = OC12>
15843 <FRAME '
\1aSUBRIFY?>
15845 <CALL '
\1aSUBRIFY? 1 = TEMP13>
15846 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE37>
15848 <FRAME '
\1aFRAME!-MIMOC>
15851 <CALL '
\1aGENLBL 1 = GC9>
15852 <CONS GC9 () = TEMP13>
15853 <CONS OC12 () = TEMP32>
15854 <PUTREST TEMP13 TEMP32>
15858 <CALL '
\1aFRAME!-MIMOC 1>
15863 <CALL '
\1aFORM 2 = OC12>
15870 <CALL '
\1aFORM 2 = OC12>
15871 <FRAME '
\1aFRAME!-MIMOC>
15872 <CONS OC12 () = STACK>
15873 <CALL '
\1aFRAME!-MIMOC 1>
15876 <FRAME '
\1aFRAME!-MIMOC>
15878 <CALL '
\1aFRAME!-MIMOC 1>
15880 <FRAME '
\1aPUSH!-MIMOC>
15881 <RESTL L4 1 = TEMP13 (TYPE LIST)>
15882 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
15883 <NTHL TEMP13 1 = TEMP13>
15884 <CONS TEMP13 () = STACK>
15886 <CALL '
\1aPUSH!-MIMOC 1>
15887 <FRAME '
\1aPUSH!-MIMOC>
15888 <CONS OPER6 () = STACK>
15889 <CALL '
\1aPUSH!-MIMOC 1>
15890 <RESTL L4 1 = TEMP13 (TYPE LIST)>
15892 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
15893 <RESTL TEMP13 1 = TEMP33 (TYPE LIST)>
15898 <EMPL? TEMP33 + MAPAP53>
15899 <NTHL TEMP33 1 = TEMP13>
15900 <VEQUAL? EQSN7 0 + PHRASE61>
15905 <EQUAL? TEMP13 '= - PHRASE62>
15906 <SET EQSN7 'T (TYPE ATOM)>
15909 <FRAME '
\1aPUSH!-MIMOC>
15910 <CONS TEMP13 () = STACK>
15912 <CALL '
\1aPUSH!-MIMOC 1>
15913 <ADD NUM10 1 = NUM10 (TYPE FIX)>
15915 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
15918 <TYPE? OC12 <TYPE-CODE FALSE> + PHRASE66>
15919 <FRAME '
\1aCALL!-MIMOC>
15920 <TYPE? GC9 <TYPE-CODE FALSE> + PHRASE69>
15921 <CONS GC9 () = TEMP33>
15925 <SET TEMP33 () (TYPE LIST)>
15927 <VEQUAL? EQSN7 0 + PHRASE74>
15929 <CONS RES8 () = EQSN7>
15931 <CONS '= EQSN7 = EQSN7>
15934 <SET EQSN7 () (TYPE LIST)>
15936 <SET TEMP32 TEMP33>
15937 <EMPL? EQSN7 + TAG72>
15938 <NTHL EQSN7 1 = TEMP13>
15939 <CONS TEMP13 TEMP33 = TEMP13>
15940 <SET TEMP32 TEMP13>
15941 <RESTL EQSN7 1 = EQSN7 (TYPE LIST)>
15942 <EMPL? EQSN7 + TAG72>
15943 <LOOP (EQSN7 VALUE) (TEMP13 VALUE) (TEMP33 VALUE)>
15945 <NTHL EQSN7 1 = RES8>
15946 <CONS RES8 TEMP33 = RES8>
15947 <PUTREST TEMP13 RES8>
15951 <RESTL EQSN7 1 = EQSN7 (TYPE LIST)>
15952 <EMPL? EQSN7 - TAG71>
15954 <CONS NUM10 TEMP32 = EQSN7>
15955 <DEAD NUM10 TEMP32>
15956 <CONS OC12 EQSN7 = STACK>
15958 <CALL '
\1aCALL!-MIMOC 1 = TEMP13>
15965 <SET TEMP32 2 (TYPE FIX)>
15967 <CONS OPER6 () = TEMP13>
15969 <CONS CTYP5 TEMP13 = TEMP13>
15971 <CHTYPE TEMP13 <TYPE-CODE CHANNEL-ROUTINE> = STACK>
15973 <SCALL '
\1aOBJ-VAL 1 = EQSN7 + TAG78 TEMP32>
15974 <LOOP (EQSN7 TYPE VALUE LENGTH) (TEMP32 VALUE)>
15977 <EMPTY? EQSN7 + TAG78>
15978 <NTH1 EQSN7 = STACK>
15979 <REST1 EQSN7 = EQSN7>
15980 <ADD TEMP32 1 = TEMP32 (TYPE FIX)>
15983 <CALL '
\1aOCEMIT TEMP32>
15989 <CONS 'O1* () = STACK>
15990 <CALL '
\1aOCEMIT 4>
15995 <CALL '
\1aOCEMIT 3>
15996 <GVAL 'WINNING-VICTIM = TEMP32>
15997 <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE85>
15999 <GVAL 'STACK-DEPTH = TEMP32>
16000 <LSH NUM10 1 = EQSN7 (TYPE FIX)>
16002 <SUB TEMP32 EQSN7 = TEMP32 (TYPE FIX)>
16004 <SUB TEMP32 7 = TEMP32 (TYPE FIX)>
16005 <SETG 'STACK-DEPTH TEMP32>
16008 <FRAME '
\1aUPDATE-ACS>
16009 <CALL '
\1aUPDATE-ACS 0>
16010 <TYPE? RES8 <TYPE-CODE UNBOUND> + PHRASE88>
16015 <CALL '
\1aPUSHJ 2 = TEMP13>
16021 <CALL '
\1aPUSHJ 1 = TEMP13>
16024 <END
\1aCHANNEL-OP!-MIMOC>
16025 #WORD *11642375366*
16026 <GFCN
\1aCHANNEL-ROUTINE-PRINT ("VALUE" STRING CHANNEL-ROUTINE) L5>
16030 <PUSH "%<CHANNEL-OPERATION ">
16031 <GEN-LVAL 'OUTCHAN = STACK>
16034 <NTHL L5 1 = STACK>
16035 <GEN-LVAL 'OUTCHAN = STACK>
16039 <GEN-LVAL 'OUTCHAN = STACK>
16042 <RESTL L5 1 = TEMP7 (TYPE LIST)>
16044 <NTHL TEMP7 1 = STACK>
16046 <GEN-LVAL 'OUTCHAN = STACK>
16050 <GEN-LVAL 'OUTCHAN = STACK>
16051 <CALL '
\1aPRINC 2 = TEMP7>
16054 <END
\1aCHANNEL-ROUTINE-PRINT>
16055 <PRINTTYPE CHANNEL-ROUTINE ,CHANNEL-ROUTINE-PRINT>
16057 <SETG BIND-DW 210239488>
16059 #WORD *21127657654*
16060 <GFCN
\1aBBIND!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
16061 <TEMP ATM6 TEMP11 DCL7 FXB8 TEMP13 VAL9>
16064 <RESTL L5 1 = TEMP11 (TYPE LIST)>
16065 <NTHL TEMP11 1 = DCL7>
16067 <RESTL L5 1 = TEMP11 (TYPE LIST)>
16068 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
16069 <NTHL TEMP11 1 = FXB8>
16074 <SET TEMP13 2 (TYPE FIX)>
16076 <GVAL 'BIND-DW = STACK>
16077 <SCALL '
\1aOBJ-VAL 1 = TEMP11 + TAG12 TEMP13>
16078 <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP13 VALUE)>
16081 <EMPTY? TEMP11 + TAG12>
16082 <NTH1 TEMP11 = STACK>
16083 <REST1 TEMP11 = TEMP11>
16084 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
16087 <CALL '
\1aOCEMIT TEMP13>
16089 <GVAL 'WINNING-VICTIM = TEMP13>
16090 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE18>
16092 <GVAL 'STACK-DEPTH = TEMP13>
16093 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
16094 <SETG 'STACK-DEPTH TEMP13>
16098 <SET TEMP11 4 (TYPE FIX)>
16099 <LOOP (TEMP13 VALUE) (TEMP11 VALUE)>
16101 <EMPL? TEMP13 + PHRASE20>
16102 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
16103 <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
16104 <GRTR? TEMP11 0 + TAG21 (TYPE FIX)>
16105 <EMPL? TEMP13 - PHRASE20>
16110 <SET TEMP11 2 (TYPE FIX)>
16112 <RESTL L5 1 = TEMP13 (TYPE LIST)>
16114 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
16115 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
16116 <NTHL TEMP13 1 = VAL9>
16119 <SCALL '
\1aOBJ-TYP 1 = TEMP13 + TAG22 TEMP11>
16120 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP11 VALUE)>
16123 <EMPTY? TEMP13 + TAG22>
16124 <NTH1 TEMP13 = STACK>
16125 <REST1 TEMP13 = TEMP13>
16126 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
16129 <CALL '
\1aOCEMIT TEMP11>
16131 <GVAL 'WINNING-VICTIM = TEMP11>
16132 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE29>
16134 <GVAL 'STACK-DEPTH = TEMP11>
16135 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
16136 <SETG 'STACK-DEPTH TEMP11>
16142 <SET TEMP13 2 (TYPE FIX)>
16146 <SCALL '
\1aOBJ-VAL 1 = TEMP11 + TAG30 TEMP13>
16147 <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP13 VALUE)>
16150 <EMPTY? TEMP11 + TAG30>
16151 <NTH1 TEMP11 = STACK>
16152 <REST1 TEMP11 = TEMP11>
16153 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
16156 <CALL '
\1aOCEMIT TEMP13>
16158 <GVAL 'WINNING-VICTIM = TEMP13>
16159 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE46>
16161 <GVAL 'STACK-DEPTH = TEMP13>
16162 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
16163 <SETG 'STACK-DEPTH TEMP13>
16170 <SET TEMP11 2 (TYPE FIX)>
16173 <SCALL '
\1aOBJ-VAL 1 = TEMP13 + TAG37 TEMP11>
16174 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP11 VALUE)>
16177 <EMPTY? TEMP13 + TAG37>
16178 <NTH1 TEMP13 = STACK>
16179 <REST1 TEMP13 = TEMP13>
16180 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
16183 <CALL '
\1aOCEMIT TEMP11>
16188 <SET TEMP13 2 (TYPE FIX)>
16191 <SCALL '
\1aOBJ-VAL 1 = TEMP11 + TAG41 TEMP13>
16192 <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP13 VALUE)>
16195 <EMPTY? TEMP11 + TAG41>
16196 <NTH1 TEMP11 = STACK>
16197 <REST1 TEMP11 = TEMP11>
16198 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
16201 <CALL '
\1aOCEMIT TEMP13>
16203 <GVAL 'WINNING-VICTIM = TEMP13>
16204 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE46>
16206 <GVAL 'STACK-DEPTH = TEMP13>
16207 <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
16208 <SETG 'STACK-DEPTH TEMP13>
16214 <CALL '
\1aIN-AC? 2 = VAL9>
16215 <TYPE? VAL9 <TYPE-CODE FALSE> - PHRASE52>
16216 <TYPE? ATM6 <TYPE-CODE ATOM> - PHRASE49>
16217 <FRAME '
\1aNEXT-AC>
16218 <FRAME '
\1aLOAD-AC>
16222 <CALL '
\1aLOAD-AC 2 = STACK>
16223 <CALL '
\1aNEXT-AC 1 = VAL9>
16228 <SET VAL9 'O1* (TYPE ATOM)>
16230 <SET TEMP11 2 (TYPE FIX)>
16234 <SCALL '
\1aOBJ-VAL 1 = TEMP13 + TAG53 TEMP11>
16235 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP11 VALUE)>
16238 <EMPTY? TEMP13 + TAG53>
16239 <NTH1 TEMP13 = STACK>
16240 <REST1 TEMP13 = TEMP13>
16241 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
16244 <CALL '
\1aOCEMIT TEMP11>
16251 <CALL '
\1aOCEMIT 3>
16255 <SET TEMP13 2 (TYPE FIX)>
16258 <SCALL '
\1aOBJ-TYP 1 = TEMP11 + TAG58 TEMP13>
16259 <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP13 VALUE)>
16262 <EMPTY? TEMP11 + TAG58>
16263 <NTH1 TEMP11 = STACK>
16264 <REST1 TEMP11 = TEMP11>
16265 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
16268 <CALL '
\1aOCEMIT TEMP13>
16273 <SET TEMP11 2 (TYPE FIX)>
16277 <SCALL '
\1aOBJ-VAL 1 = TEMP13 + TAG62 TEMP11>
16278 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP11 VALUE)>
16281 <EMPTY? TEMP13 + TAG62>
16282 <NTH1 TEMP13 = STACK>
16283 <REST1 TEMP13 = TEMP13>
16284 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
16287 <CALL '
\1aOCEMIT TEMP11>
16293 <CALL '
\1aOCEMIT 3>
16298 <CONS VAL9 () = STACK>
16299 <CALL '
\1aOCEMIT 4>
16305 <CALL '
\1aOCEMIT 4>
16311 <CALL '
\1aOCEMIT 4>
16312 <TYPE? FXB8 <TYPE-CODE FALSE> + PHRASE71>
16318 <CONS VAL9 () = STACK>
16320 <CALL '
\1aOCEMIT 4>
16322 <GVAL 'WINNING-VICTIM = TEMP11>
16323 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE74>
16324 <GVAL 'STACK-DEPTH = TEMP13>
16325 <ADD TEMP13 6 = TEMP13 (TYPE FIX)>
16326 <SETG 'STACK-DEPTH TEMP13>
16327 <SET TEMP11 TEMP13>
16332 <END
\1aBBIND!-MIMOC>
16333 #WORD *12015637535*
16334 <GFCN
\1aGEN-LVAL!-MIMOC ("VALUE" ANY LIST) L5>
16335 <TEMP ATM6 TEMP8 VAL7 TEMP10>
16338 <RESTL L5 1 = TEMP8 (TYPE LIST)>
16340 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
16341 <NTHL TEMP8 1 = VAL7>
16346 <SET TEMP10 2 (TYPE FIX)>
16350 <SCALL '
\1aOBJ-VAL 1 = TEMP8 + TAG9 TEMP10>
16351 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP10 VALUE)>
16354 <EMPTY? TEMP8 + TAG9>
16355 <NTH1 TEMP8 = STACK>
16356 <REST1 TEMP8 = TEMP8>
16357 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
16360 <CALL '
\1aOCEMIT TEMP10>
16362 <FRAME '
\1aSAVE-ACS>
16363 <CALL '
\1aSAVE-ACS 0>
16368 <CALL '
\1aPUSHJ 2 = TEMP10>
16371 <END
\1aGEN-LVAL!-MIMOC>
16373 <GFCN
\1aGEN-ASSIGNED?!-MIMOC ("VALUE" ANY LIST) L5>
16374 <TEMP ATM6 TEMP9 DIR7 TG8 TEMP11>
16377 <RESTL L5 1 = TEMP9 (TYPE LIST)>
16378 <NTHL TEMP9 1 = DIR7>
16380 <RESTL L5 1 = TEMP9 (TYPE LIST)>
16382 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
16383 <NTHL TEMP9 1 = TG8>
16388 <SET TEMP11 2 (TYPE FIX)>
16392 <SCALL '
\1aOBJ-VAL 1 = TEMP9 + TAG10 TEMP11>
16393 <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP11 VALUE)>
16396 <EMPTY? TEMP9 + TAG10>
16397 <NTH1 TEMP9 = STACK>
16398 <REST1 TEMP9 = TEMP9>
16399 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
16402 <CALL '
\1aOCEMIT TEMP11>
16404 <FRAME '
\1aLABEL-UPDATE-ACS>
16407 <CALL '
\1aLABEL-UPDATE-ACS 2>
16414 <CALL '
\1aOPCODE 1 = TEMP11>
16415 <TYPE? TEMP11 <TYPE-CODE FIX> - TAG18>
16416 <SUB 0 TEMP11 = STACK (TYPE FIX)>
16420 <SUBF 0.0 TEMP11 = STACK (TYPE FLOAT)>
16423 <CALL '
\1aOCEMIT 4>
16424 <EQUAL? DIR7 '+ - PHRASE21>
16430 <CALL '
\1aOCEMIT 3>
16437 <CALL '
\1aXJUMP 1 = STACK>
16438 <CALL '
\1aOCEMIT 2 = TEMP11>
16441 <END
\1aGEN-ASSIGNED?!-MIMOC>
16442 #WORD *33763704407*
16443 <GFCN
\1aGEN-SET!-MIMOC ("VALUE" ANY LIST) L5>
16444 <TEMP ATM6 TEMP8 NVAL7>
16447 <RESTL L5 1 = TEMP8 (TYPE LIST)>
16449 <NTHL TEMP8 1 = NVAL7>
16451 <FRAME '
\1aWILL-DIE?>
16453 <CALL '
\1aWILL-DIE? 1 = TEMP8>
16454 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE10>
16456 <FRAME '
\1aDEAD!-MIMOC>
16457 <CONS NVAL7 () = STACK>
16459 <CALL '
\1aDEAD!-MIMOC 2>
16461 <TYPE? ATM6 <TYPE-CODE ATOM> - PHRASE14>
16462 <FRAME '
\1aWILL-DIE?>
16464 <CALL '
\1aWILL-DIE? 1 = TEMP8>
16465 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE14>
16467 <FRAME '
\1aDEAD!-MIMOC>
16468 <CONS ATM6 () = STACK>
16470 <CALL '
\1aDEAD!-MIMOC 2>
16472 <FRAME '
\1aUPDATE-ACS>
16473 <CALL '
\1aUPDATE-ACS 0>
16474 <FRAME '
\1aGET-INTO-ACS>
16483 <CALL '
\1aGET-INTO-ACS 6>
16486 <CALL '
\1aPUSHJ 1 = TEMP8>
16489 <END
\1aGEN-SET!-MI