2 <COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD">)>
20 <MANIFEST NUM-TEMPS NUM-L-TEMPS MARK-BIT FLEN LIST-LEN ATOM-LEN GBIND-LEN LBIND-LEN>
23 <GFCN
\1aCGC-RECORD!-MIMOC ("VALUE" ANY LIST) L5>
24 <TEMP VAR6 TEMP24 ALLOC-ATOM7:FORM END-ATOM8:FORM NEXT-ATOM9:FORM BOUNDS-ATOM10 RES11 BOUNDS-LAB16 IB-LAB17 F-LAB18 EXIT-LAB19 M-LAB20 F121 B122 HINT23 ENDADDR15 ALLOCADDR14 RLEN12:FIX STK?13 TEMP48>
27 <RESTL L5 1 = TEMP24 (TYPE LIST)>
28 <NTHL TEMP24 1 = ALLOC-ATOM7 (TYPE FORM)>
30 <RESTL L5 1 = TEMP24 (TYPE LIST)>
31 <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
32 <NTHL TEMP24 1 = END-ATOM8 (TYPE FORM)>
34 <RESTL L5 1 = TEMP24 (TYPE LIST)>
35 <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
36 <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
37 <NTHL TEMP24 1 = NEXT-ATOM9 (TYPE FORM)>
39 <NTHL L5 5 = BOUNDS-ATOM10>
43 <CALL '
\1aGENLBL 1 = BOUNDS-LAB16>
46 <CALL '
\1aGENLBL 1 = IB-LAB17>
49 <CALL '
\1aGENLBL 1 = F-LAB18>
52 <CALL '
\1aGENLBL 1 = EXIT-LAB19>
55 <CALL '
\1aGENLBL 1 = M-LAB20>
58 <CALL '
\1aGENLBL 1 = F121>
61 <CALL '
\1aGENLBL 1 = B122>
66 <CALL '
\1aEXTRAMEM 2 = HINT23>
68 <CALL '
\1aFLUSH-ACS 0>
70 <RESTL END-ATOM8 1 = TEMP24 (TYPE LIST)>
72 <NTHL TEMP24 1 = TEMP24 (TYPE ATOM)>
73 <CHTYPE TEMP24 <TYPE-CODE XGLOC> = STACK>
75 <CALL '
\1aOBJ-VAL 1 = ENDADDR15>
77 <RESTL ALLOC-ATOM7 1 = TEMP24 (TYPE LIST)>
79 <NTHL TEMP24 1 = TEMP24 (TYPE ATOM)>
80 <CHTYPE TEMP24 <TYPE-CODE XGLOC> = STACK>
82 <CALL '
\1aOBJ-VAL 1 = ALLOCADDR14>
83 <TYPE? HINT23 <TYPE-CODE FALSE> + PHRASE37>
84 <NTHL HINT23 1 = TEMP24>
85 <EQUAL? TEMP24 'RECORD-TYPE - PHRASE37>
87 <RESTL HINT23 1 = HINT23 (TYPE LIST)>
88 <NTHL HINT23 1 = HINT23>
90 <EQUAL? HINT23 'ATOM - PHRASE40>
91 <SET RLEN12 5 (TYPE FIX)>
92 <SET STK?13 %<> (TYPE FALSE)>
95 <EQUAL? HINT23 'GBIND - PHRASE41>
96 <SET RLEN12 5 (TYPE FIX)>
97 <SET STK?13 %<> (TYPE FALSE)>
100 <EQUAL? HINT23 'LBIND - PHRASE42>
101 <SET RLEN12 8 (TYPE FIX)>
102 <SET STK?13 'T (TYPE ATOM)>
106 <PUSH 'BAD-HINT-FOR-CGC-RECORD!-ERRORS>
109 <PUSH 'CGC-RECORD-GEN>
112 <VEQUAL? STK?13 0 + PHRASE46>
117 <SET TEMP48 2 (TYPE FIX)>
120 <SCALL '
\1aOBJ-VAL 1 = TEMP24 + TAG47 TEMP48>
121 <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP48 VALUE)>
124 <EMPTY? TEMP24 + TAG47>
125 <NTH1 TEMP24 = STACK>
126 <REST1 TEMP24 = TEMP24>
127 <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
131 <CALL '
\1aOCEMIT TEMP48>
137 <CALL '
\1aXJUMP 1 = STACK>
142 <FRAME '
\1aTYPE-CODE>
144 <CALL '
\1aTYPE-CODE 1 = STACK>
155 <CALL '
\1aXJUMP 1 = STACK>
161 <FRAME '
\1aFRAME!-MIMOC>
165 <CALL '
\1aNTH 2 = TEMP48>
166 <CONS TEMP48 () = TEMP48>
167 <CONS B122 TEMP48 = STACK>
169 <CALL '
\1aFRAME!-MIMOC 1>
173 <SET TEMP24 2 (TYPE FIX)>
176 <SCALL '
\1aOBJ-TYP 1 = TEMP48 + TAG62 TEMP24>
177 <LOOP (TEMP48 TYPE VALUE LENGTH) (TEMP24 VALUE)>
180 <EMPTY? TEMP48 + TAG62>
181 <NTH1 TEMP48 = STACK>
182 <REST1 TEMP48 = TEMP48>
183 <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
187 <CALL '
\1aOCEMIT TEMP24>
189 <GVAL 'WINNING-VICTIM = TEMP24>
190 <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE67>
192 <GVAL 'STACK-DEPTH = TEMP24>
193 <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
194 <SETG 'STACK-DEPTH TEMP24>
200 <SET TEMP48 2 (TYPE FIX)>
203 <SCALL '
\1aOBJ-VAL 1 = TEMP24 + TAG68 TEMP48>
204 <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP48 VALUE)>
207 <EMPTY? TEMP24 + TAG68>
208 <NTH1 TEMP24 = STACK>
209 <REST1 TEMP24 = TEMP24>
210 <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
214 <CALL '
\1aOCEMIT TEMP48>
216 <GVAL 'WINNING-VICTIM = TEMP48>
217 <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE73>
219 <GVAL 'STACK-DEPTH = TEMP48>
220 <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
221 <SETG 'STACK-DEPTH TEMP48>
224 <FRAME '
\1aCALL!-MIMOC>
225 <CONS B122 () = B122>
227 <CONS BOUNDS-ATOM10 B122 = STACK>
228 <DEAD B122 BOUNDS-ATOM10>
229 <CALL '
\1aCALL!-MIMOC 1>
235 <CALL '
\1aXJUMP 1 = STACK>
240 <FRAME '
\1aTYPE-CODE>
242 <CALL '
\1aTYPE-CODE 1 = STACK>
247 <SET TEMP24 2 (TYPE FIX)>
250 <SCALL '
\1aOBJ-VAL 1 = TEMP48 + TAG79 TEMP24>
251 <LOOP (TEMP48 TYPE VALUE LENGTH) (TEMP24 VALUE)>
254 <EMPTY? TEMP48 + TAG79>
255 <NTH1 TEMP48 = STACK>
256 <REST1 TEMP48 = TEMP48>
257 <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
261 <CALL '
\1aOCEMIT TEMP24>
267 <CALL '
\1aXJUMP 1 = STACK>
277 <SET TEMP48 2 (TYPE FIX)>
280 <SCALL '
\1aOBJ-VAL 1 = TEMP24 + TAG86 TEMP48>
281 <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP48 VALUE)>
284 <EMPTY? TEMP24 + TAG86>
285 <NTH1 TEMP24 = STACK>
286 <REST1 TEMP24 = TEMP24>
287 <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
291 <CALL '
\1aOCEMIT TEMP48>
308 <CALL '
\1aXJUMP 1 = STACK>
313 <SET TEMP24 2 (TYPE FIX)>
316 <SCALL '
\1aOBJ-TYP 1 = TEMP48 + TAG94 TEMP24>
317 <LOOP (TEMP48 TYPE VALUE LENGTH) (TEMP24 VALUE)>
320 <EMPTY? TEMP48 + TAG94>
321 <NTH1 TEMP48 = STACK>
322 <REST1 TEMP48 = TEMP48>
323 <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
327 <CALL '
\1aOCEMIT TEMP24>
332 <ADD RLEN12 1 = STACK (TYPE FIX)>
339 <CALL '
\1aXJUMP 1 = STACK>
355 <SET TEMP48 3 (TYPE FIX)>
356 <SET TEMP24 ALLOCADDR14>
357 <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP48 VALUE)>
360 <EMPTY? TEMP24 + TAG103>
361 <NTH1 TEMP24 = STACK>
362 <REST1 TEMP24 = TEMP24>
363 <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
367 <CALL '
\1aOCEMIT TEMP48>
377 <ADD RLEN12 2 = STACK (TYPE FIX)>
383 <SET TEMP24 3 (TYPE FIX)>
384 <LOOP (ENDADDR15 TYPE VALUE LENGTH) (TEMP24 VALUE)>
387 <EMPTY? ENDADDR15 + TAG108>
388 <NTH1 ENDADDR15 = STACK>
389 <REST1 ENDADDR15 = ENDADDR15>
390 <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
394 <CALL '
\1aOCEMIT TEMP24>
405 <CALL '
\1aXJUMP 1 = STACK>
407 <FRAME '
\1aFRAME!-MIMOC>
408 <RESTL NEXT-ATOM9 1 = TEMP24 (TYPE LIST)>
409 <NTHL TEMP24 1 = TEMP24 (TYPE ATOM)>
410 <CONS TEMP24 () = TEMP24>
411 <CONS F121 TEMP24 = STACK>
413 <CALL '
\1aFRAME!-MIMOC 1>
417 <SET ENDADDR15 2 (TYPE FIX)>
420 <SCALL '
\1aTYPE-WORD 1 = TEMP24 + TAG115 TEMP48>
421 <LOOP (TEMP24 TYPE VALUE LENGTH) (ENDADDR15 VALUE)>
424 <EMPTY? TEMP24 + TAG115>
425 <NTH1 TEMP24 = STACK>
426 <REST1 TEMP24 = TEMP24>
427 <ADD ENDADDR15 1 = ENDADDR15 (TYPE FIX)>
431 <CALL '
\1aOCEMIT ENDADDR15>
433 <GVAL 'WINNING-VICTIM = ENDADDR15>
434 <TYPE? ENDADDR15 <TYPE-CODE FALSE> + PHRASE120>
436 <GVAL 'STACK-DEPTH = ENDADDR15>
437 <ADD ENDADDR15 1 = ENDADDR15 (TYPE FIX)>
438 <SETG 'STACK-DEPTH ENDADDR15>
444 <SET TEMP24 2 (TYPE FIX)>
446 <ADD RLEN12 2 = STACK (TYPE FIX)>
447 <SCALL '
\1aOBJ-VAL 1 = ENDADDR15 + TAG121 TEMP24>
448 <LOOP (ENDADDR15 TYPE VALUE LENGTH) (TEMP24 VALUE)>
451 <EMPTY? ENDADDR15 + TAG121>
452 <NTH1 ENDADDR15 = STACK>
453 <REST1 ENDADDR15 = ENDADDR15>
454 <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
458 <CALL '
\1aOCEMIT TEMP24>
460 <GVAL 'WINNING-VICTIM = TEMP24>
461 <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE126>
463 <GVAL 'STACK-DEPTH = TEMP24>
464 <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
465 <SETG 'STACK-DEPTH TEMP24>
468 <FRAME '
\1aCALL!-MIMOC>
469 <CONS F121 () = F121>
471 <CONS NEXT-ATOM9 F121 = STACK>
472 <DEAD F121 NEXT-ATOM9>
473 <CALL '
\1aCALL!-MIMOC 1>
477 <SET ENDADDR15 2 (TYPE FIX)>
481 <SCALL '
\1aOBJ-VAL 1 = TEMP24 + TAG128 TEMP48>
482 <LOOP (TEMP24 TYPE VALUE LENGTH) (ENDADDR15 VALUE)>
485 <EMPTY? TEMP24 + TAG128>
486 <NTH1 TEMP24 = STACK>
487 <REST1 TEMP24 = TEMP24>
488 <ADD ENDADDR15 1 = ENDADDR15 (TYPE FIX)>
492 <CALL '
\1aOCEMIT ENDADDR15>
498 <SET TEMP24 3 (TYPE FIX)>
499 <SET ENDADDR15 ALLOCADDR14>
500 <LOOP (ENDADDR15 TYPE VALUE LENGTH) (TEMP24 VALUE)>
503 <EMPTY? ENDADDR15 + TAG132>
504 <NTH1 ENDADDR15 = STACK>
505 <REST1 ENDADDR15 = ENDADDR15>
506 <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
510 <CALL '
\1aOCEMIT TEMP24>
520 <ADD RLEN12 2 = STACK (TYPE FIX)>
529 <ADD RLEN12 1 = STACK (TYPE FIX)>
535 <SET ENDADDR15 2 (TYPE FIX)>
536 <LOOP (ALLOCADDR14 TYPE VALUE LENGTH) (ENDADDR15 VALUE)>
539 <EMPTY? ALLOCADDR14 + TAG139>
540 <NTH1 ALLOCADDR14 = STACK>
541 <REST1 ALLOCADDR14 = ALLOCADDR14>
542 <ADD ENDADDR15 1 = ENDADDR15 (TYPE FIX)>
546 <CALL '
\1aOCEMIT ENDADDR15>
580 <FRAME '
\1aTYPE-CODE>
582 <CALL '
\1aTYPE-CODE 1 = STACK>
588 <EQUAL? RES11 'STACK - PHRASE151>
589 <GVAL 'WINNING-VICTIM = ENDADDR15>
590 <TYPE? ENDADDR15 <TYPE-CODE FALSE> + PHRASE153>
592 <GVAL 'STACK-DEPTH = ENDADDR15>
593 <ADD ENDADDR15 2 = ENDADDR15 (TYPE FIX)>
594 <SETG 'STACK-DEPTH ENDADDR15>
606 <CALL '
\1aOCEMIT 3 = ENDADDR15>
618 <CALL '
\1aGET-AC 1 = STACK>
619 <CALL '
\1aLOAD-AC 5 = ENDADDR15>
622 <END
\1aCGC-RECORD!-MIMOC>
625 <GFCN
\1aCGC-BYTES!-MIMOC ("VALUE" ANY LIST) L5>
626 <TEMP VAR6 TEMP11 ALLOC-ATOM7 END-ATOM8 NEXT-ATOM9 RES10 TEMP14>
629 <RESTL L5 1 = TEMP11 (TYPE LIST)>
630 <NTHL TEMP11 1 = ALLOC-ATOM7>
632 <RESTL L5 1 = TEMP11 (TYPE LIST)>
633 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
634 <NTHL TEMP11 1 = END-ATOM8>
636 <RESTL L5 1 = TEMP11 (TYPE LIST)>
637 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
638 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
639 <NTHL TEMP11 1 = NEXT-ATOM9>
643 <FRAME '
\1aFLUSH-ACS>
644 <CALL '
\1aFLUSH-ACS 0>
648 <SET TEMP14 2 (TYPE FIX)>
651 <SCALL '
\1aOBJ-TYP 1 = TEMP11 + TAG13 TEMP14>
652 <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP14 VALUE)>
655 <EMPTY? TEMP11 + TAG13>
656 <NTH1 TEMP11 = STACK>
657 <REST1 TEMP11 = TEMP11>
658 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
662 <CALL '
\1aOCEMIT TEMP14>
684 <FRAME '
\1aCGC-UV-ST>
695 <CALL '
\1aCGC-UV-ST 5 = TEMP14>
698 <END
\1aCGC-BYTES!-MIMOC>
700 <SETG CGC-STRING!-MIMOC ,CGC-BYTES!-MIMOC>
703 <GFCN
\1aCGC-UVECTOR!-MIMOC ("VALUE" ANY LIST) L5>
704 <TEMP VAR6 TEMP11 ALLOC-ATOM7 END-ATOM8 NEXT-ATOM9 RES10 TEMP13>
707 <RESTL L5 1 = TEMP11 (TYPE LIST)>
708 <NTHL TEMP11 1 = ALLOC-ATOM7>
710 <RESTL L5 1 = TEMP11 (TYPE LIST)>
711 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
712 <NTHL TEMP11 1 = END-ATOM8>
714 <RESTL L5 1 = TEMP11 (TYPE LIST)>
715 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
716 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
717 <NTHL TEMP11 1 = NEXT-ATOM9>
724 <SET TEMP13 2 (TYPE FIX)>
727 <SCALL '
\1aOBJ-TYP 1 = TEMP11 + TAG12 TEMP13>
728 <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP13 VALUE)>
731 <EMPTY? TEMP11 + TAG12>
732 <NTH1 TEMP11 = STACK>
733 <REST1 TEMP11 = TEMP11>
734 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
738 <CALL '
\1aOCEMIT TEMP13>
756 <FRAME '
\1aCGC-UV-ST>
767 <CALL '
\1aCGC-UV-ST 5 = TEMP13>
770 <END
\1aCGC-UVECTOR!-MIMOC>
773 <GFCN
\1aCGC-UV-ST ("VALUE" ANY ATOM !<FORM ATOM ATOM> !<FORM ATOM ATOM> !<FORM ATOM ATOM> ATOM) VAR5 ALLOC-ATOM6 END-ATOM7 NEXT-ATOM8 RES9>
774 <TEMP M-LAB12 F-LAB13 F114 TEMP19 ENDADDR10 ALLOCADDR11 TEMP28 TEMP92:FIX>
778 <CALL '
\1aGENLBL 1 = M-LAB12>
781 <CALL '
\1aGENLBL 1 = F-LAB13>
784 <CALL '
\1aGENLBL 1 = F114>
786 <RESTL END-ATOM7 1 = TEMP19 (TYPE LIST)>
788 <NTHL TEMP19 1 = TEMP19 (TYPE ATOM)>
789 <CHTYPE TEMP19 <TYPE-CODE XGLOC> = STACK>
791 <CALL '
\1aOBJ-VAL 1 = ENDADDR10>
793 <RESTL ALLOC-ATOM6 1 = TEMP19 (TYPE LIST)>
795 <NTHL TEMP19 1 = TEMP19 (TYPE ATOM)>
796 <CHTYPE TEMP19 <TYPE-CODE XGLOC> = STACK>
798 <CALL '
\1aOBJ-VAL 1 = ALLOCADDR11>
814 <CALL '
\1aXJUMP 1 = STACK>
831 <SET TEMP28 2 (TYPE FIX)>
832 <SET TEMP19 ALLOCADDR11>
833 <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP28 VALUE)>
836 <EMPTY? TEMP19 + TAG27>
837 <NTH1 TEMP19 = STACK>
838 <REST1 TEMP19 = TEMP19>
839 <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
843 <CALL '
\1aOCEMIT TEMP28>
854 <SET TEMP19 2 (TYPE FIX)>
855 <LOOP (ENDADDR10 TYPE VALUE LENGTH) (TEMP19 VALUE)>
858 <EMPTY? ENDADDR10 + TAG32>
859 <NTH1 ENDADDR10 = STACK>
860 <REST1 ENDADDR10 = ENDADDR10>
861 <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
865 <CALL '
\1aOCEMIT TEMP19>
877 <CALL '
\1aXJUMP 1 = STACK>
900 <GVAL 'WINNING-VICTIM = TEMP19>
901 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE43>
903 <GVAL 'STACK-DEPTH = TEMP19>
904 <ADD TEMP19 3 = TEMP19 (TYPE FIX)>
905 <SETG 'STACK-DEPTH TEMP19>
908 <FRAME '
\1aFRAME!-MIMOC>
909 <RESTL NEXT-ATOM8 1 = TEMP19 (TYPE LIST)>
910 <NTHL TEMP19 1 = TEMP19 (TYPE ATOM)>
911 <CONS TEMP19 () = TEMP19>
912 <CONS F114 TEMP19 = STACK>
914 <CALL '
\1aFRAME!-MIMOC 1>
918 <SET ENDADDR10 2 (TYPE FIX)>
921 <SCALL '
\1aTYPE-WORD 1 = TEMP19 + TAG45 TEMP28>
922 <LOOP (TEMP19 TYPE VALUE LENGTH) (ENDADDR10 VALUE)>
925 <EMPTY? TEMP19 + TAG45>
926 <NTH1 TEMP19 = STACK>
927 <REST1 TEMP19 = TEMP19>
928 <ADD ENDADDR10 1 = ENDADDR10 (TYPE FIX)>
932 <CALL '
\1aOCEMIT ENDADDR10>
939 <GVAL 'WINNING-VICTIM = ENDADDR10>
940 <TYPE? ENDADDR10 <TYPE-CODE FALSE> + PHRASE51>
942 <GVAL 'STACK-DEPTH = ENDADDR10>
943 <ADD ENDADDR10 2 = ENDADDR10 (TYPE FIX)>
944 <SETG 'STACK-DEPTH ENDADDR10>
947 <FRAME '
\1aCALL!-MIMOC>
948 <CONS F114 () = F114>
950 <CONS NEXT-ATOM8 F114 = STACK>
951 <DEAD F114 NEXT-ATOM8>
952 <CALL '
\1aCALL!-MIMOC 1>
956 <SET TEMP19 2 (TYPE FIX)>
957 <LOOP (ALLOCADDR11 TYPE VALUE LENGTH) (TEMP19 VALUE)>
960 <EMPTY? ALLOCADDR11 + TAG53>
961 <NTH1 ALLOCADDR11 = STACK>
962 <REST1 ALLOCADDR11 = ALLOCADDR11>
963 <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
967 <CALL '
\1aOCEMIT TEMP19>
997 <GVAL 'WINNING-VICTIM = TEMP19>
998 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE62>
1000 <GVAL 'STACK-DEPTH = TEMP19>
1001 <SUB TEMP19 3 = TEMP19 (TYPE FIX)>
1002 <SETG 'STACK-DEPTH TEMP19>
1067 <SET ALLOCADDR11 2 (TYPE FIX)>
1070 <SCALL '
\1aOBJ-VAL 1 = TEMP19 + TAG74 TEMP28>
1071 <LOOP (TEMP19 TYPE VALUE LENGTH) (ALLOCADDR11 VALUE)>
1074 <EMPTY? TEMP19 + TAG74>
1075 <NTH1 TEMP19 = STACK>
1076 <REST1 TEMP19 = TEMP19>
1077 <ADD ALLOCADDR11 1 = ALLOCADDR11 (TYPE FIX)>
1081 <CALL '
\1aOCEMIT ALLOCADDR11>
1098 <VEQUAL? RES9 'STACK - PHRASE82>
1102 <SET TEMP19 2 (TYPE FIX)>
1106 <SCALL '
\1aOBJ-TYP 1 = ALLOCADDR11 + TAG83 TEMP19>
1107 <LOOP (ALLOCADDR11 TYPE VALUE LENGTH) (TEMP19 VALUE)>
1110 <EMPTY? ALLOCADDR11 + TAG83>
1111 <NTH1 ALLOCADDR11 = STACK>
1112 <REST1 ALLOCADDR11 = ALLOCADDR11>
1113 <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
1117 <CALL '
\1aOCEMIT TEMP19>
1124 <GVAL 'WINNING-VICTIM = TEMP19>
1125 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE90>
1126 <GVAL 'STACK-DEPTH = ALLOCADDR11>
1127 <ADD ALLOCADDR11 2 = ALLOCADDR11 (TYPE FIX)>
1128 <SETG 'STACK-DEPTH ALLOCADDR11>
1129 <RETURN ALLOCADDR11>
1135 <SET TEMP92 2 (TYPE FIX)>
1139 <SCALL '
\1aOBJ-TYP 1 = ALLOCADDR11 + TAG91 TEMP92>
1140 <LOOP (ALLOCADDR11 TYPE VALUE LENGTH) (TEMP92 VALUE)>
1143 <EMPTY? ALLOCADDR11 + TAG91>
1144 <NTH1 ALLOCADDR11 = STACK>
1145 <REST1 ALLOCADDR11 = ALLOCADDR11>
1146 <ADD TEMP92 1 = TEMP92 (TYPE FIX)>
1150 <CALL '
\1aOCEMIT TEMP92>
1160 <CALL '
\1aGET-AC 1 = STACK>
1161 <CALL '
\1aLOAD-AC 5 = TEMP19>
1168 <GFCN
\1aCGC-VECTOR!-MIMOC ("VALUE" ANY LIST) L5>
1169 <TEMP VAR6 TEMP22 ALLOC-ATOM7:FORM END-ATOM8:FORM NEXT-ATOM9:FORM MARK-ATOM10:FORM RES11 NF-LAB14 F-LAB15 F116 LOOP-LAB17 NM-LAB18 F219 DONE-LAB20 M-LAB21 ENDADDR12 ALLOCADDR13 TEMP35 TEMP143:FIX>
1172 <RESTL L5 1 = TEMP22 (TYPE LIST)>
1173 <NTHL TEMP22 1 = ALLOC-ATOM7 (TYPE FORM)>
1175 <RESTL L5 1 = TEMP22 (TYPE LIST)>
1176 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
1177 <NTHL TEMP22 1 = END-ATOM8 (TYPE FORM)>
1179 <RESTL L5 1 = TEMP22 (TYPE LIST)>
1180 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
1181 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
1182 <NTHL TEMP22 1 = NEXT-ATOM9 (TYPE FORM)>
1184 <NTHL L5 5 = MARK-ATOM10 (TYPE FORM)>
1189 <CALL '
\1aGENLBL 1 = NF-LAB14>
1192 <CALL '
\1aGENLBL 1 = F-LAB15>
1195 <CALL '
\1aGENLBL 1 = F116>
1198 <CALL '
\1aGENLBL 1 = LOOP-LAB17>
1201 <CALL '
\1aGENLBL 1 = NM-LAB18>
1204 <CALL '
\1aGENLBL 1 = F219>
1207 <CALL '
\1aGENLBL 1 = DONE-LAB20>
1210 <CALL '
\1aGENLBL 1 = M-LAB21>
1212 <RESTL END-ATOM8 1 = TEMP22 (TYPE LIST)>
1214 <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
1215 <CHTYPE TEMP22 <TYPE-CODE XGLOC> = STACK>
1217 <CALL '
\1aOBJ-VAL 1 = ENDADDR12>
1219 <RESTL ALLOC-ATOM7 1 = TEMP22 (TYPE LIST)>
1221 <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
1222 <CHTYPE TEMP22 <TYPE-CODE XGLOC> = STACK>
1224 <CALL '
\1aOBJ-VAL 1 = ALLOCADDR13>
1225 <FRAME '
\1aFLUSH-ACS>
1226 <CALL '
\1aFLUSH-ACS 0>
1230 <SET TEMP35 2 (TYPE FIX)>
1233 <SCALL '
\1aOBJ-TYP 1 = TEMP22 + TAG34 TEMP35>
1234 <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP35 VALUE)>
1237 <EMPTY? TEMP22 + TAG34>
1238 <NTH1 TEMP22 = STACK>
1239 <REST1 TEMP22 = TEMP22>
1240 <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
1244 <CALL '
\1aOCEMIT TEMP35>
1259 <SET TEMP22 2 (TYPE FIX)>
1262 <SCALL '
\1aOBJ-VAL 1 = TEMP35 + TAG41 TEMP22>
1263 <LOOP (TEMP35 TYPE VALUE LENGTH) (TEMP22 VALUE)>
1266 <EMPTY? TEMP35 + TAG41>
1267 <NTH1 TEMP35 = STACK>
1268 <REST1 TEMP35 = TEMP35>
1269 <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
1273 <CALL '
\1aOCEMIT TEMP22>
1294 <CALL '
\1aXJUMP 1 = STACK>
1301 <GVAL 'WINNING-VICTIM = TEMP22>
1302 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE52>
1304 <GVAL 'STACK-DEPTH = TEMP22>
1305 <ADD TEMP22 4 = TEMP22 (TYPE FIX)>
1306 <SETG 'STACK-DEPTH TEMP22>
1323 <SET TEMP35 2 (TYPE FIX)>
1324 <SET TEMP22 ALLOCADDR13>
1325 <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP35 VALUE)>
1328 <EMPTY? TEMP22 + TAG55>
1329 <NTH1 TEMP22 = STACK>
1330 <REST1 TEMP22 = TEMP22>
1331 <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
1335 <CALL '
\1aOCEMIT TEMP35>
1346 <SET TEMP22 2 (TYPE FIX)>
1347 <LOOP (ENDADDR12 TYPE VALUE LENGTH) (TEMP22 VALUE)>
1350 <EMPTY? ENDADDR12 + TAG59>
1351 <NTH1 ENDADDR12 = STACK>
1352 <REST1 ENDADDR12 = ENDADDR12>
1353 <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
1357 <CALL '
\1aOCEMIT TEMP22>
1386 <CALL '
\1aXJUMP 1 = STACK>
1388 <FRAME '
\1aFRAME!-MIMOC>
1389 <RESTL NEXT-ATOM9 1 = TEMP22 (TYPE LIST)>
1390 <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
1391 <CONS TEMP22 () = TEMP22>
1392 <CONS F116 TEMP22 = STACK>
1394 <CALL '
\1aFRAME!-MIMOC 1>
1398 <SET ENDADDR12 2 (TYPE FIX)>
1401 <SCALL '
\1aTYPE-WORD 1 = TEMP22 + TAG69 TEMP35>
1402 <LOOP (TEMP22 TYPE VALUE LENGTH) (ENDADDR12 VALUE)>
1405 <EMPTY? TEMP22 + TAG69>
1406 <NTH1 TEMP22 = STACK>
1407 <REST1 TEMP22 = TEMP22>
1408 <ADD ENDADDR12 1 = ENDADDR12 (TYPE FIX)>
1412 <CALL '
\1aOCEMIT ENDADDR12>
1425 <GVAL 'WINNING-VICTIM = ENDADDR12>
1426 <TYPE? ENDADDR12 <TYPE-CODE FALSE> + PHRASE76>
1428 <GVAL 'STACK-DEPTH = ENDADDR12>
1429 <ADD ENDADDR12 2 = ENDADDR12 (TYPE FIX)>
1430 <SETG 'STACK-DEPTH ENDADDR12>
1433 <FRAME '
\1aCALL!-MIMOC>
1434 <CONS F116 () = F116>
1435 <CONS 1 F116 = F116>
1436 <CONS NEXT-ATOM9 F116 = STACK>
1437 <DEAD F116 NEXT-ATOM9>
1438 <CALL '
\1aCALL!-MIMOC 1>
1442 <SET TEMP22 2 (TYPE FIX)>
1443 <LOOP (ALLOCADDR13 TYPE VALUE LENGTH) (TEMP22 VALUE)>
1446 <EMPTY? ALLOCADDR13 + TAG78>
1447 <NTH1 ALLOCADDR13 = STACK>
1448 <REST1 ALLOCADDR13 = ALLOCADDR13>
1449 <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
1453 <CALL '
\1aOCEMIT TEMP22>
1562 <CALL '
\1aXJUMP 1 = STACK>
1586 <CALL '
\1aXJUMP 1 = STACK>
1588 <FRAME '
\1aFRAME!-MIMOC>
1589 <RESTL MARK-ATOM10 1 = TEMP22 (TYPE LIST)>
1590 <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
1591 <CONS TEMP22 () = TEMP22>
1592 <CONS F219 TEMP22 = STACK>
1594 <CALL '
\1aFRAME!-MIMOC 1>
1605 <GVAL 'WINNING-VICTIM = TEMP22>
1606 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE112>
1608 <GVAL 'STACK-DEPTH = TEMP22>
1609 <ADD TEMP22 2 = TEMP22 (TYPE FIX)>
1610 <SETG 'STACK-DEPTH TEMP22>
1613 <FRAME '
\1aCALL!-MIMOC>
1614 <CONS F219 () = F219>
1615 <CONS 1 F219 = F219>
1616 <CONS MARK-ATOM10 F219 = STACK>
1617 <DEAD F219 MARK-ATOM10>
1618 <CALL '
\1aCALL!-MIMOC 1>
1652 <CALL '
\1aXJUMP 1 = STACK>
1675 <GVAL 'WINNING-VICTIM = TEMP22>
1676 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE126>
1678 <GVAL 'STACK-DEPTH = TEMP22>
1679 <SUB TEMP22 4 = TEMP22 (TYPE FIX)>
1680 <SETG 'STACK-DEPTH TEMP22>
1708 <EQUAL? RES11 'STACK - PHRASE133>
1712 <SET ALLOCADDR13 2 (TYPE FIX)>
1716 <SCALL '
\1aOBJ-TYP 1 = TEMP22 + TAG134 TEMP35>
1717 <LOOP (TEMP22 TYPE VALUE LENGTH) (ALLOCADDR13 VALUE)>
1720 <EMPTY? TEMP22 + TAG134>
1721 <NTH1 TEMP22 = STACK>
1722 <REST1 TEMP22 = TEMP22>
1723 <ADD ALLOCADDR13 1 = ALLOCADDR13 (TYPE FIX)>
1727 <CALL '
\1aOCEMIT ALLOCADDR13>
1734 <GVAL 'WINNING-VICTIM = ALLOCADDR13>
1735 <TYPE? ALLOCADDR13 <TYPE-CODE FALSE> + PHRASE141>
1736 <GVAL 'STACK-DEPTH = TEMP22>
1737 <ADD TEMP22 2 = TEMP22 (TYPE FIX)>
1738 <SETG 'STACK-DEPTH TEMP22>
1745 <SET TEMP143 2 (TYPE FIX)>
1749 <SCALL '
\1aOBJ-TYP 1 = TEMP22 + TAG142 TEMP143>
1750 <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP143 VALUE)>
1753 <EMPTY? TEMP22 + TAG142>
1754 <NTH1 TEMP22 = STACK>
1755 <REST1 TEMP22 = TEMP22>
1756 <ADD TEMP143 1 = TEMP143 (TYPE FIX)>
1760 <CALL '
\1aOCEMIT TEMP143>
1770 <CALL '
\1aGET-AC 1 = STACK>
1771 <CALL '
\1aLOAD-AC 5 = ALLOCADDR13>
1773 <RETURN ALLOCADDR13>
1775 <END
\1aCGC-VECTOR!-MIMOC>
1778 <GFCN
\1aCGC-LIST!-MIMOC ("VALUE" ANY LIST) L5>
1779 <TEMP VAR6 TEMP26 ALLOC-ATOM7:FORM END-ATOM8:FORM NEXT-ATOM9:FORM BOUNDS-ATOM10:FORM MARK-ATOM11:FORM LN12:FIX TEMP28 RES13 M-LAB16 DONE-LAB17 LOOP-LAB18 F-LAB19 NB-LAB20 MC-LAB21 F122 F223 F324 (UNDO-ABLE25 %<>) ENDADDR14 ALLOCADDR15>
1782 <RESTL L5 1 = TEMP26 (TYPE LIST)>
1783 <NTHL TEMP26 1 = ALLOC-ATOM7 (TYPE FORM)>
1785 <RESTL L5 1 = TEMP26 (TYPE LIST)>
1786 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1787 <NTHL TEMP26 1 = END-ATOM8 (TYPE FORM)>
1789 <RESTL L5 1 = TEMP26 (TYPE LIST)>
1790 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1791 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1792 <NTHL TEMP26 1 = NEXT-ATOM9 (TYPE FORM)>
1794 <NTHL L5 5 = BOUNDS-ATOM10 (TYPE FORM)>
1795 <NTHL L5 6 = MARK-ATOM11 (TYPE FORM)>
1796 <LENL L5 = LN12 (TYPE FIX)>
1799 <SUB TEMP26 1 = TEMP26 (TYPE FIX)>
1800 <GRTR? TEMP26 0 - RESTL29 (TYPE FIX)>
1801 <LOOP (TEMP28 VALUE) (TEMP26 VALUE)>
1804 <RESTL TEMP28 1 = TEMP28 (TYPE LIST)>
1805 <SUB TEMP26 1 = TEMP26 (TYPE FIX)>
1806 <GRTR? TEMP26 0 + RESTL27 (TYPE FIX)>
1809 <NTHL TEMP28 1 = RES13>
1813 <CALL '
\1aGENLBL 1 = M-LAB16>
1816 <CALL '
\1aGENLBL 1 = DONE-LAB17>
1819 <CALL '
\1aGENLBL 1 = LOOP-LAB18>
1822 <CALL '
\1aGENLBL 1 = F-LAB19>
1825 <CALL '
\1aGENLBL 1 = NB-LAB20>
1828 <CALL '
\1aGENLBL 1 = MC-LAB21>
1831 <CALL '
\1aGENLBL 1 = F122>
1834 <CALL '
\1aGENLBL 1 = F223>
1837 <CALL '
\1aGENLBL 1 = F324>
1838 <VEQUAL? LN12 9 - PHRASE40 (TYPE FIX)>
1840 <NTHL L5 7 = TEMP28>
1842 <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE40>
1844 <SET UNDO-ABLE25 'T (TYPE ATOM)>
1847 <RESTL END-ATOM8 1 = TEMP28 (TYPE LIST)>
1849 <NTHL TEMP28 1 = TEMP28 (TYPE ATOM)>
1850 <CHTYPE TEMP28 <TYPE-CODE XGLOC> = STACK>
1852 <CALL '
\1aOBJ-VAL 1 = ENDADDR14>
1854 <RESTL ALLOC-ATOM7 1 = TEMP28 (TYPE LIST)>
1856 <NTHL TEMP28 1 = TEMP28 (TYPE ATOM)>
1857 <CHTYPE TEMP28 <TYPE-CODE XGLOC> = STACK>
1859 <CALL '
\1aOBJ-VAL 1 = ALLOCADDR15>
1860 <FRAME '
\1aFLUSH-ACS>
1861 <CALL '
\1aFLUSH-ACS 0>
1867 <GVAL 'WINNING-VICTIM = TEMP28>
1868 <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE47>
1870 <GVAL 'STACK-DEPTH = TEMP28>
1871 <ADD TEMP28 2 = TEMP28 (TYPE FIX)>
1872 <SETG 'STACK-DEPTH TEMP28>
1878 <SET TEMP26 2 (TYPE FIX)>
1881 <SCALL '
\1aOBJ-VAL 1 = TEMP28 + TAG48 TEMP26>
1882 <LOOP (TEMP28 TYPE VALUE LENGTH) (TEMP26 VALUE)>
1885 <EMPTY? TEMP28 + TAG48>
1886 <NTH1 TEMP28 = STACK>
1887 <REST1 TEMP28 = TEMP28>
1888 <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
1892 <CALL '
\1aOCEMIT TEMP26>
1916 <CALL '
\1aXJUMP 1 = STACK>
1928 <SET TEMP28 3 (TYPE FIX)>
1929 <SET TEMP26 ALLOCADDR15>
1930 <LOOP (TEMP26 TYPE VALUE LENGTH) (TEMP28 VALUE)>
1933 <EMPTY? TEMP26 + TAG59>
1934 <NTH1 TEMP26 = STACK>
1935 <REST1 TEMP26 = TEMP26>
1936 <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
1940 <CALL '
\1aOCEMIT TEMP28>
1955 <SET TEMP26 2 (TYPE FIX)>
1956 <LOOP (ENDADDR14 TYPE VALUE LENGTH) (TEMP26 VALUE)>
1959 <EMPTY? ENDADDR14 + TAG64>
1960 <NTH1 ENDADDR14 = STACK>
1961 <REST1 ENDADDR14 = ENDADDR14>
1962 <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
1966 <CALL '
\1aOCEMIT TEMP26>
1978 <CALL '
\1aXJUMP 1 = STACK>
1986 <FRAME '
\1aFRAME!-MIMOC>
1987 <RESTL NEXT-ATOM9 1 = TEMP26 (TYPE LIST)>
1988 <NTHL TEMP26 1 = TEMP26 (TYPE ATOM)>
1989 <CONS TEMP26 () = TEMP26>
1990 <CONS F122 TEMP26 = STACK>
1992 <CALL '
\1aFRAME!-MIMOC 1>
1996 <SET ENDADDR14 2 (TYPE FIX)>
1999 <SCALL '
\1aTYPE-WORD 1 = TEMP26 + TAG72 TEMP28>
2000 <LOOP (TEMP26 TYPE VALUE LENGTH) (ENDADDR14 VALUE)>
2003 <EMPTY? TEMP26 + TAG72>
2004 <NTH1 TEMP26 = STACK>
2005 <REST1 TEMP26 = TEMP26>
2006 <ADD ENDADDR14 1 = ENDADDR14 (TYPE FIX)>
2010 <CALL '
\1aOCEMIT ENDADDR14>
2015 <SET TEMP26 2 (TYPE FIX)>
2018 <SCALL '
\1aOBJ-VAL 1 = ENDADDR14 + TAG76 TEMP26>
2019 <LOOP (ENDADDR14 TYPE VALUE LENGTH) (TEMP26 VALUE)>
2022 <EMPTY? ENDADDR14 + TAG76>
2023 <NTH1 ENDADDR14 = STACK>
2024 <REST1 ENDADDR14 = ENDADDR14>
2025 <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
2029 <CALL '
\1aOCEMIT TEMP26>
2031 <GVAL 'WINNING-VICTIM = TEMP26>
2032 <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE81>
2034 <GVAL 'STACK-DEPTH = TEMP26>
2035 <ADD TEMP26 2 = TEMP26 (TYPE FIX)>
2036 <SETG 'STACK-DEPTH TEMP26>
2039 <FRAME '
\1aCALL!-MIMOC>
2040 <CONS F122 () = F122>
2041 <CONS 1 F122 = F122>
2042 <CONS NEXT-ATOM9 F122 = STACK>
2043 <DEAD F122 NEXT-ATOM9>
2044 <CALL '
\1aCALL!-MIMOC 1>
2049 <SET ENDADDR14 3 (TYPE FIX)>
2050 <SET TEMP26 ALLOCADDR15>
2051 <LOOP (TEMP26 TYPE VALUE LENGTH) (ENDADDR14 VALUE)>
2054 <EMPTY? TEMP26 + TAG83>
2055 <NTH1 TEMP26 = STACK>
2056 <REST1 TEMP26 = TEMP26>
2057 <ADD ENDADDR14 1 = ENDADDR14 (TYPE FIX)>
2061 <CALL '
\1aOCEMIT ENDADDR14>
2093 <SET TEMP26 3 (TYPE FIX)>
2094 <LOOP (ALLOCADDR15 TYPE VALUE LENGTH) (TEMP26 VALUE)>
2097 <EMPTY? ALLOCADDR15 + TAG91>
2098 <NTH1 ALLOCADDR15 = STACK>
2099 <REST1 ALLOCADDR15 = ALLOCADDR15>
2100 <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
2104 <CALL '
\1aOCEMIT TEMP26>
2162 <CALL '
\1aXJUMP 1 = STACK>
2164 <FRAME '
\1aFRAME!-MIMOC>
2165 <RESTL MARK-ATOM11 1 = TEMP26 (TYPE LIST)>
2166 <NTHL TEMP26 1 = TEMP26 (TYPE ATOM)>
2167 <CONS TEMP26 () = TEMP26>
2168 <CONS F223 TEMP26 = STACK>
2170 <CALL '
\1aFRAME!-MIMOC 1>
2181 <GVAL 'WINNING-VICTIM = TEMP26>
2182 <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE110>
2184 <GVAL 'STACK-DEPTH = TEMP26>
2185 <ADD TEMP26 2 = TEMP26 (TYPE FIX)>
2186 <SETG 'STACK-DEPTH TEMP26>
2189 <FRAME '
\1aCALL!-MIMOC>
2190 <CONS F223 () = F223>
2191 <CONS 1 F223 = F223>
2192 <CONS MARK-ATOM11 F223 = STACK>
2193 <DEAD F223 MARK-ATOM11>
2194 <CALL '
\1aCALL!-MIMOC 1>
2210 <VEQUAL? UNDO-ABLE25 0 + PHRASE116>
2238 <CALL '
\1aXJUMP 1 = STACK>
2240 <FRAME '
\1aFRAME!-MIMOC>
2241 <RESTL BOUNDS-ATOM10 1 = TEMP26 (TYPE LIST)>
2242 <NTHL TEMP26 1 = TEMP26 (TYPE ATOM)>
2243 <CONS TEMP26 () = TEMP26>
2244 <CONS F324 TEMP26 = STACK>
2246 <CALL '
\1aFRAME!-MIMOC 1>
2250 <SET ALLOCADDR15 2 (TYPE FIX)>
2253 <SCALL '
\1aTYPE-WORD 1 = TEMP26 + TAG124 TEMP28>
2254 <LOOP (TEMP26 TYPE VALUE LENGTH) (ALLOCADDR15 VALUE)>
2257 <EMPTY? TEMP26 + TAG124>
2258 <NTH1 TEMP26 = STACK>
2259 <REST1 TEMP26 = TEMP26>
2260 <ADD ALLOCADDR15 1 = ALLOCADDR15 (TYPE FIX)>
2264 <CALL '
\1aOCEMIT ALLOCADDR15>
2271 <GVAL 'WINNING-VICTIM = ALLOCADDR15>
2272 <TYPE? ALLOCADDR15 <TYPE-CODE FALSE> + PHRASE130>
2274 <GVAL 'STACK-DEPTH = ALLOCADDR15>
2275 <ADD ALLOCADDR15 2 = ALLOCADDR15 (TYPE FIX)>
2276 <SETG 'STACK-DEPTH ALLOCADDR15>
2279 <FRAME '
\1aCALL!-MIMOC>
2280 <CONS F324 () = F324>
2281 <CONS 1 F324 = F324>
2282 <CONS BOUNDS-ATOM10 F324 = STACK>
2283 <DEAD F324 BOUNDS-ATOM10>
2284 <CALL '
\1aCALL!-MIMOC 1>
2297 <CALL '
\1aXJUMP 1 = STACK>
2303 <CALL '
\1aXJUMP 1 = STACK>
2318 <CALL '
\1aXJUMP 1 = STACK>
2339 <GVAL 'WINNING-VICTIM = ALLOCADDR15>
2340 <TYPE? ALLOCADDR15 <TYPE-CODE FALSE> + PHRASE146>
2342 <GVAL 'STACK-DEPTH = ALLOCADDR15>
2343 <SUB ALLOCADDR15 2 = ALLOCADDR15 (TYPE FIX)>
2344 <SETG 'STACK-DEPTH ALLOCADDR15>
2350 <SET TEMP26 2 (TYPE FIX)>
2354 <SCALL '
\1aOBJ-TYP 1 = ALLOCADDR15 + TAG147 TEMP26>
2355 <LOOP (ALLOCADDR15 TYPE VALUE LENGTH) (TEMP26 VALUE)>
2358 <EMPTY? ALLOCADDR15 + TAG147>
2359 <NTH1 ALLOCADDR15 = STACK>
2360 <REST1 ALLOCADDR15 = ALLOCADDR15>
2361 <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
2365 <CALL '
\1aOCEMIT TEMP26>
2372 <EQUAL? RES13 'STACK - PHRASE153>
2383 <GVAL 'WINNING-VICTIM = TEMP26>
2384 <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE158>
2385 <GVAL 'STACK-DEPTH = ALLOCADDR15>
2386 <ADD ALLOCADDR15 2 = ALLOCADDR15 (TYPE FIX)>
2387 <SETG 'STACK-DEPTH ALLOCADDR15>
2388 <RETURN ALLOCADDR15>
2399 <CALL '
\1aGET-AC 1 = STACK>
2400 <CALL '
\1aLOAD-AC 5 = TEMP26>
2404 <END
\1aCGC-LIST!-MIMOC>