4 <COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD">)>
10 <SETG SETZ-R <CHTYPE <ORB -0 <LSH ,AC-R 18>> FIX>>
12 <SETG SETZX-R <CHTYPE <ORB -25769803776 <LSH ,AC-R 18>> FIX>>
14 <SETG SETZQ-R <CHTYPE <ORB -17179869184 <LSH ,AC-R 18>> FIX>>
16 <SETG SETZ-IND -34355544064>
20 <SETG ACS [O* 0 A1* 1 A2* 2 B1* 3 B2* 4 C1* 5 C2* 6 T* 7 O1* 8 O2* 9 R* 10 M* 11 SP* 12 F* 13 TP* 14 P* 15]>
22 <REPEAT ((A ,ACS)) <SETG <1 .A> <2 .A>> <COND (<EMPTY? <SET A <REST .A 2>>> <RETURN>)>>
24 <SETG ACNAMS [A1 A2 B1 B2 C1 C2 T O1 O2 R M SP F TP P]>
26 <GDECL (ACNAMS) <VECTOR [REST ATOM]>>
29 <GFCN
\1aNEXTINS ("VALUE" <OR FALSE FORM> LIST) L5>
30 <TEMP TEMP15 TEMP12:LIST ITM17>
32 <SET TEMP15 %<> (TYPE FALSE)>
38 <TYPE? ITM17 <TYPE-CODE FORM> + TAG20>
39 <SET TEMP15 %<> (TYPE FALSE)>
45 <RESTL L5 1 = L5 (TYPE LIST)>
54 <SETG AC-TABLE '[#AC [O* %<> DUMMY 0 %<> %<>] #AC [A1* %<> DUMMY 0 %<> %<>] #AC [A2* %<> DUMMY 0 %<> %<>] #AC [B1* %<> DUMMY 0 %<> %<>] #AC [B2* %<> DUMMY 0 %<> %<>] #AC [C1* %<> DUMMY 0 %<> %<>] #AC [C2* %<> DUMMY 0 %<> %<>] #AC [X* %<> DUMMY 0 %<> %<>] #AC [T* %<> DUMMY %<CHTYPE <MIN> FIX> %<> %<>]]>
56 <MAPR <> <FUNCTION (TBL "AUX" (AC <1 .TBL>)) #DECL ((TBL) <VECTOR [REST AC]> (AC) AC) <COND (<1? <LENGTH .TBL>> <PUTPROP <AC-NAME .AC> AC .AC> <MAPLEAVE>) (T <PUTPROP <AC-NAME .AC> NEXTAC <COND (<==? <AC-NAME <2 .TBL>> X*> T*) (ELSE <AC-NAME <2 .TBL>>)>> <PUTPROP <COND (<==? <AC-NAME <2 .TBL>> X*> T*) (ELSE <AC-NAME <2 .TBL>>)> AC-PAIR <AC-NAME .AC>> <PUTPROP <COND (<==? <AC-NAME <2 .TBL>> X*> <3 .TBL>) (ELSE <2 .TBL>)> AC-PAIR .AC> <PUTPROP .AC NEXTAC <COND (<==? <AC-NAME <2 .TBL>> X*> T*) (ELSE <AC-NAME <2 .TBL>>)>> <PUTPROP <AC-NAME .AC> AC .AC>)>> ,AC-TABLE>
58 <SETG AC-PAIR-TABLE [<2 ,AC-TABLE> <3 ,AC-TABLE> <4 ,AC-TABLE> <5 ,AC-TABLE> <6 ,AC-TABLE> <7 ,AC-TABLE>]>
60 <SETG NULL-STATES <MAPF ,VECTOR <FUNCTION (AC) <CHTYPE [.AC <> <> <> DUMMY] ACSTATE>> ,AC-PAIR-TABLE>>
63 <GFCN
\1aNEXT-AC ("VALUE" ANY <OR ATOM AC>) AC5>
66 <EQUAL? AC5 'STACK - PHRASE7>
73 <CALL '
\1aGETPROP 2 = TEMP8>
78 <GFCN
\1aGET-AC ("VALUE" AC ATOM) AC5>
85 <CALL '
\1aGETPROP 2 = TEMP7>
90 <GFCN
\1aIS-AC? ("VALUE" ANY ATOM) AC5>
97 <CALL '
\1aGETPROP 2 = TEMP7>
102 <GFCN
\1aPA ("VALUE" ANY)>
106 <GVAL 'AC-TABLE = STACK>
107 <CALL '
\1aPPRINT 1 = TEMP6>
112 <GFCN
\1aASSIGN-AC ("VALUE" <OR ATOM FALSE> ANY ATOM "OPTIONAL" <OR ATOM FALSE>) ITM8 TYP9 AC-FORCE10>
113 <OPT-DISPATCH 2 %<> OPT6 OPT7>
119 <EQUAL? ITM8 'STACK - PHRASE12>
120 <TYPE? AC-FORCE10 <TYPE-CODE FALSE> - PHRASE12>
131 <CALL '
\1aLOAD-AC 4 = TEMP14>
136 <GFCN
\1aIN-AC? ("VALUE" <OR ATOM FALSE> ANY ATOM) ITM5 TYP6>
137 <TEMP BOTH7 TEMP24 TEMP26:VECTOR AC28 TEMP35>
139 <VEQUAL? TYP6 'BOTH - TAG8>
140 <SET BOTH7 'T (TYPE ATOM)>
143 <SET BOTH7 %<> (TYPE FALSE)>
145 <TYPE? ITM5 <TYPE-CODE ATOM> + TAG13>
148 <SET TEMP24 %<> (TYPE FALSE)>
149 <GVAL 'AC-TABLE = TEMP26>
153 <EMPUV? TEMP26 + MAPAP19>
155 <NTHUV TEMP24 1 = AC28 (TYPE AC)>
156 <VEQUAL? TYP6 'FREE - PHRASE31>
159 <NTHUV AC28 2 = TEMP35>
160 <EQUAL? TEMP35 ITM5 + TAG34>
162 <SET TEMP24 %<> (TYPE FALSE)>
165 <VEQUAL? BOTH7 0 + PHRASE37>
166 <NTHUV AC28 3 = TEMP35 (TYPE ATOM)>
167 <VEQUAL? TEMP35 'TYPE + TAG41>
169 <SET TEMP24 %<> (TYPE FALSE)>
172 <NTHUV TEMP24 2 = TEMP24 (TYPE AC)>
173 <NTHUV TEMP24 3 = TEMP35 (TYPE ATOM)>
174 <VEQUAL? TEMP35 'VALUE + TAG42>
176 <SET TEMP24 %<> (TYPE FALSE)>
179 <NTHUV TEMP24 2 = TEMP35>
180 <EQUAL? TEMP35 ITM5 + TAG43>
182 <SET TEMP24 %<> (TYPE FALSE)>
185 <GVAL 'AC-STAMP = TEMP35>
186 <PUTUV AC28 4 TEMP35 (TYPE FIX)>
188 <GVAL 'AC-STAMP = TEMP35>
189 <PUTUV TEMP24 4 TEMP35 (TYPE FIX)>
191 <NTHUV AC28 1 = BOTH7 (TYPE ATOM)>
196 <NTHUV AC28 3 = TEMP35 (TYPE ATOM)>
197 <VEQUAL? TEMP35 TYP6 + TAG45>
199 <SET TEMP24 %<> (TYPE FALSE)>
202 <GVAL 'AC-STAMP = TEMP35>
203 <PUTUV AC28 4 TEMP35 (TYPE FIX)>
205 <NTHUV AC28 1 = BOTH7 (TYPE ATOM)>
210 <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
217 <GFCN
\1aSMASH-AC ("VALUE" <OR ATOM FALSE> ATOM ANY ATOM "OPTIONAL" <OR FALSE ATOM>) NAM8 ITM9 TYP10 AC?11>
218 <OPT-DISPATCH 3 %<> OPT6 OPT7>
224 <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE15>
229 <CALL '
\1aIN-AC? 2 = AC12>
230 <TYPE? AC12 <TYPE-CODE FALSE> + PHRASE15>
231 <VEQUAL? TYP10 'BOTH - PHRASE19>
234 <CALL '
\1aGET-AC 1 = RAC13>
235 <VEQUAL? NAM8 AC12 + PHRASE22>
245 <CALL '
\1aFLUSH-AC 2>
246 <FRAME '
\1aMUNGED-AC>
250 <CALL '
\1aMUNGED-AC 2>
252 <TYPE? ITM9 <TYPE-CODE ATOM> - PHRASE27>
254 <PUTUV RAC13 3 'TYPE (TYPE ATOM)>
259 <CALL '
\1aNEXT-AC 1 = STACK>
260 <CALL '
\1aGET-AC 1 = RAC13>
263 <PUTUV RAC13 3 'VALUE (TYPE ATOM)>
268 <PUTUV RAC13 3 'DUMMY (TYPE ATOM)>
273 <CALL '
\1aNEXT-AC 1 = STACK>
274 <CALL '
\1aGET-AC 1 = AC12>
275 <PUTUV AC12 3 'DUMMY (TYPE ATOM)>
280 <VEQUAL? NAM8 AC12 + PHRASE41>
283 <CALL '
\1aGET-AC 1 = RAC13>
292 <CALL '
\1aFLUSH-AC 1>
293 <FRAME '
\1aMUNGED-AC>
296 <CALL '
\1aMUNGED-AC 1>
297 <TYPE? ITM9 <TYPE-CODE ATOM> - PHRASE40>
300 <PUTUV RAC13 3 TYP10 (TYPE ATOM)>
305 <PUTUV RAC13 3 'DUMMY (TYPE ATOM)>
319 <CALL '
\1aGET-AC 1 = STACK>
320 <VEQUAL? TYP10 'BOTH + TAG48>
322 <SET AC12 %<> (TYPE FALSE)>
329 <CALL '
\1aNEXT-AC 1 = STACK>
330 <CALL '
\1aGET-AC 1 = AC12>
334 <CALL '
\1aLOAD-AC 6 = AC12>
339 <GFCN
\1aCLEAN-ACS ("VALUE" <OR FALSE AC> ANY) ITM5>
340 <TEMP TEMP15 TEMP17:VECTOR AC18:AC>
342 <SET TEMP15 %<> (TYPE FALSE)>
343 <GVAL 'AC-TABLE = TEMP17>
347 <EMPUV? TEMP17 + MAPAP10>
348 <NTHUV TEMP17 1 = AC18>
349 <NTHUV AC18 2 = TEMP15>
350 <EQUAL? TEMP15 ITM5 + TAG21>
352 <SET TEMP15 %<> (TYPE FALSE)>
356 <PUTUV AC18 3 'DUMMY (TYPE ATOM)>
360 <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
367 <GFCN
\1aLOAD-TYPE ("VALUE" <OR FALSE LIST STRING> ATOM LIST) AC4 L5>
368 <TEMP (OFF7:FIX 0) TEMP10 TEMP11>
371 <RESTL L5 1 = TEMP10 (TYPE LIST)>
372 <EMPL? TEMP10 - PHRASE9>
374 <NTHL L5 1 = TEMP10 (TYPE ATOM)>
376 <GVAL TEMP10 = TEMP11>
378 <OR TEMP11 #WORD *222000000000* = TEMP11>
379 <CHTYPE TEMP11 <TYPE-CODE CONSTANT> = TEMP10>
384 <SET TEMP10 3 (TYPE FIX)>
385 <LOOP (TEMP11 VALUE) (TEMP10 VALUE)>
387 <EMPL? TEMP11 + PHRASE14>
388 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
389 <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
390 <GRTR? TEMP10 0 + TAG15 (TYPE FIX)>
391 <EMPL? TEMP11 - PHRASE14>
393 <NTHL L5 1 = OFF7 (TYPE FIX)>
394 <RESTL L5 1 = L5 (TYPE LIST)>
396 <RESTL L5 1 = TEMP11 (TYPE LIST)>
397 <NTHL TEMP11 1 = TEMP11>
398 <NTH1 TEMP11 = TEMP11>
399 <GVAL TEMP11 = TEMP10>
401 <LSH TEMP10 18 = TEMP10 (TYPE FIX)>
402 <OR TEMP10 #WORD *222000000000* = TEMP10>
403 <AND OFF7 #WORD *777777* = TEMP11>
405 <ADD TEMP10 TEMP11 = TEMP10 (TYPE FIX)>
407 <CONS TEMP10 () = TEMP10>
410 <CONS TEMP11 TEMP10 = TEMP10>
412 <CHTYPE TEMP10 <TYPE-CODE CONST-W-LOCAL> = TEMP10>
414 <FRAME '
\1aCONST-ADD>
416 <CALL '
\1aCONST-ADD 1>
421 <SET TEMP11 2 (TYPE FIX)>
425 <SCALL '
\1aOBJ-VAL 1 = TEMP10 + TAG18 TEMP11>
426 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP11 VALUE)>
429 <EMPTY? TEMP10 + TAG18>
430 <NTH1 TEMP10 = STACK>
431 <REST1 TEMP10 = TEMP10>
432 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
435 <CALL '
\1aOCEMIT TEMP11 = TEMP11>
440 <GFCN
\1aLOAD-AC ("VALUE" <OR ATOM FALSE> ANY ATOM "OPTIONAL" <OR FALSE ATOM> <OR FALSE ATOM> <OR AC FALSE> <OR AC FALSE>) ITM14 TYP15 UPDATE16 ASSIGN17 LAC18 NAC19>
441 <OPT-DISPATCH 2 %<> OPT9 OPT10 OPT11 OPT12 OPT13>
451 <TEMP BOTH20 (LOW21 %<CHTYPE <MIN> FIX>) FIRST-AC24 TEMP32 AC22 ACT93:VECTOR>
453 <VEQUAL? TYP15 'BOTH - TAG30>
454 <SET BOTH20 'T (TYPE ATOM)>
457 <SET BOTH20 %<> (TYPE FALSE)>
459 <GVAL 'FIRST-AC = FIRST-AC24>
461 <GVAL 'AC-STAMP = TEMP32>
462 <ADD TEMP32 1 = TEMP32 (TYPE FIX)>
463 <SETG 'AC-STAMP TEMP32>
465 <TYPE? LAC18 <TYPE-CODE FALSE> - PHRASE34>
466 <TYPE? ITM14 <TYPE-CODE ATOM> - PHRASE34>
470 <CALL '
\1aIN-AC? 2 = AC22>
471 <TYPE? AC22 <TYPE-CODE FALSE> + BOOL37>
472 <VEQUAL? AC22 'X* - BOOL58>
474 <TYPE? AC22 <TYPE-CODE FALSE> - PHRASE34>
476 <VEQUAL? TYP15 'BOTH - PHRASE34>
480 <CALL '
\1aIN-AC? 2 = AC22>
481 <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE51>
482 <VEQUAL? AC22 'A1* + BOOL45>
483 <VEQUAL? AC22 'B1* + BOOL45>
484 <VEQUAL? AC22 'B1* - BOOL44>
494 <CALL '
\1aNEXT-AC 1 = STACK>
495 <CALL '
\1aGET-AC 1 = STACK>
496 <CALL '
\1aLOAD-AC 5 = TEMP32>
497 <TYPE? TEMP32 <TYPE-CODE FALSE> + BOOL44>
501 <CALL '
\1aGET-AC 1 = TEMP32>
502 <PUTUV TEMP32 3 'TYPE (TYPE ATOM)>
503 <PUTUV TEMP32 2 ITM14>
509 <CALL '
\1aGET-AC 1 = TEMP32>
510 <NTHUV TEMP32 5 = TEMP32>
511 <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE51>
513 <FRAME '
\1aUPDATE-AC>
516 <CALL '
\1aGET-AC 1 = STACK>
517 <CALL '
\1aUPDATE-AC 1>
521 <CALL '
\1aGET-AC 1 = TEMP32>
528 <CALL '
\1aIN-AC? 2 = AC22>
529 <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE34>
530 <VEQUAL? AC22 'A2* + BOOL60>
531 <VEQUAL? AC22 'B2* + BOOL60>
532 <VEQUAL? AC22 'C2* - BOOL59>
544 <CALL '
\1aGETPROP 2 = TEMP32>
547 <CALL '
\1aGET-AC 1 = STACK>
548 <CALL '
\1aLOAD-AC 5 = AC22>
549 <TYPE? AC22 <TYPE-CODE FALSE> + BOOL59>
553 <CALL '
\1aNEXT-AC 1 = STACK>
554 <CALL '
\1aGET-AC 1 = TEMP32>
555 <PUTUV TEMP32 3 'VALUE (TYPE ATOM)>
556 <PUTUV TEMP32 2 ITM14>
562 <CALL '
\1aGET-AC 1 = TEMP32>
563 <NTHUV TEMP32 5 = TEMP32>
564 <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE34>
566 <FRAME '
\1aUPDATE-AC>
569 <CALL '
\1aGET-AC 1 = STACK>
570 <CALL '
\1aUPDATE-AC 1>
574 <CALL '
\1aGET-AC 1 = TEMP32>
579 <TYPE? ASSIGN17 <TYPE-CODE FALSE> + PHRASE76>
583 <CALL '
\1aGET-AC 1 = LAC18>
584 <PUTUV LAC18 5 UPDATE16>
587 <SETG 'ACA-ITEM ITM14>
589 <SETG 'ACA-BOTH BOTH20>
590 <VEQUAL? BOTH20 0 + PHRASE76>
595 <CALL '
\1aNEXT-AC 1 = STACK>
596 <CALL '
\1aGET-AC 1 = NAC19>
597 <PUTUV NAC19 5 UPDATE16>
599 <SETG 'ACA-BOTH NAC19>
605 <FRAME '
\1aCLEAN-ACS>
607 <CALL '
\1aCLEAN-ACS 1>
608 <TYPE? LAC18 <TYPE-CODE FALSE> - EXIT92>
609 <TYPE? ITM14 <TYPE-CODE ATOM> - BOOL88>
610 <FRAME '
\1aLOOK-AHEAD>
611 <GEN-LVAL 'MIML = TEMP32>
612 <REST1 TEMP32 = STACK>
616 <CALL '
\1aLOOK-AHEAD 3 = LAC18>
617 <TYPE? LAC18 <TYPE-CODE FALSE> + BOOL88>
618 <TYPE? FIRST-AC24 <TYPE-CODE FALSE> - EXIT92>
619 <NTHUV LAC18 2 = TEMP32>
620 <TYPE? TEMP32 <TYPE-CODE ATOM> + BOOL88>
622 <VEQUAL? TYP15 'BOTH - EXIT92>
626 <CALL '
\1aNEXT-AC 1 = STACK>
627 <CALL '
\1aGET-AC 1 = TEMP32>
628 <NTHUV TEMP32 2 = TEMP32>
629 <TYPE? TEMP32 <TYPE-CODE ATOM> - EXIT92>
632 <GVAL 'AC-TABLE = TEMP32>
633 <RESTUV TEMP32 1 = ACT93 (TYPE VECTOR)>
638 <EMPUV? ACT93 + EXIT92 (TYPE VECTOR)>
639 <VEQUAL? BOTH20 0 + PHRASE97>
640 <LENUV ACT93 = TEMP32 (TYPE FIX)>
641 <VEQUAL? TEMP32 1 + EXIT92 (TYPE FIX)>
644 <VEQUAL? BOTH20 0 + PHRASE102>
645 <NTHUV ACT93 2 = TEMP32 (TYPE AC)>
646 <NTHUV TEMP32 1 = TEMP32 (TYPE ATOM)>
647 <VEQUAL? TEMP32 'X* + PHRASE135>
649 <NTHUV ACT93 1 = TEMP32 (TYPE AC)>
650 <NTHUV TEMP32 1 = TEMP32 (TYPE ATOM)>
651 <VEQUAL? TEMP32 'X* + PHRASE135>
653 <NTHUV ACT93 1 = AC22 (TYPE AC)>
654 <NTHUV AC22 4 = TEMP32 (TYPE FIX)>
656 <NTHUV ACT93 2 = AC22 (TYPE AC)>
657 <NTHUV AC22 4 = AC22 (TYPE FIX)>
658 <LESS? TEMP32 AC22 - TAG107>
659 <SET TEMP32 AC22 (TYPE FIX)>
662 <TYPE? FIRST-AC24 <TYPE-CODE FALSE> + PHRASE109>
663 <TYPE? LAC18 <TYPE-CODE FALSE> + BOOL113>
664 <NTHUV LAC18 2 = AC22>
665 <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE109>
667 <NTHUV ACT93 1 = AC22 (TYPE AC)>
668 <NTHUV AC22 2 = AC22>
669 <TYPE? AC22 <TYPE-CODE FALSE> + BOOL113>
671 <NTHUV LAC18 5 = AC22>
672 <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE109>
674 <NTHUV ACT93 1 = AC22 (TYPE AC)>
675 <NTHUV AC22 5 = AC22>
676 <TYPE? AC22 <TYPE-CODE FALSE> - PHRASE109>
681 <GRTR? AC22 LOW21 - TAG115>
682 <SET AC22 LOW21 (TYPE FIX)>
687 <NTHUV ACT93 1 = LAC18 (TYPE AC)>
688 <NTHUV ACT93 2 = NAC19 (TYPE AC)>
691 <GRTR? TEMP32 LOW21 + PHRASE135 (TYPE FIX)>
692 <VEQUAL? LOW21 TEMP32 - BOOL122 (TYPE FIX)>
693 <TYPE? LAC18 <TYPE-CODE FALSE> + BOOL122>
694 <NTHUV LAC18 2 = AC22>
695 <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE135>
697 <NTHUV ACT93 1 = AC22 (TYPE AC)>
698 <NTHUV AC22 2 = AC22>
699 <TYPE? AC22 <TYPE-CODE FALSE> + BOOL122>
701 <NTHUV LAC18 5 = AC22>
702 <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE135>
704 <NTHUV ACT93 1 = AC22 (TYPE AC)>
705 <NTHUV AC22 5 = AC22>
706 <TYPE? AC22 <TYPE-CODE FALSE> - PHRASE135>
711 <NTHUV ACT93 1 = LAC18 (TYPE AC)>
712 <NTHUV ACT93 2 = NAC19 (TYPE AC)>
715 <NTHUV ACT93 1 = AC22 (TYPE AC)>
716 <NTHUV AC22 1 = AC22 (TYPE ATOM)>
717 <VEQUAL? AC22 'X* + PHRASE135>
719 <NTHUV ACT93 1 = AC22 (TYPE AC)>
720 <NTHUV AC22 1 = AC22 (TYPE ATOM)>
721 <VEQUAL? AC22 'T* + PHRASE135>
723 <NTHUV ACT93 1 = AC22 (TYPE AC)>
724 <NTHUV AC22 4 = TEMP32 (TYPE FIX)>
726 <TYPE? FIRST-AC24 <TYPE-CODE FALSE> + PHRASE127>
727 <TYPE? LAC18 <TYPE-CODE FALSE> + BOOL131>
728 <NTHUV LAC18 2 = AC22>
729 <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE127>
731 <NTHUV ACT93 1 = AC22 (TYPE AC)>
732 <NTHUV AC22 2 = AC22>
733 <TYPE? AC22 <TYPE-CODE FALSE> + BOOL131>
735 <NTHUV LAC18 5 = AC22>
736 <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE127>
738 <NTHUV ACT93 1 = AC22 (TYPE AC)>
739 <NTHUV AC22 5 = AC22>
740 <TYPE? AC22 <TYPE-CODE FALSE> - PHRASE127>
743 <NTHUV ACT93 1 = LAC18 (TYPE AC)>
748 <GRTR? TEMP32 LOW21 + PHRASE135 (TYPE FIX)>
749 <VEQUAL? LOW21 TEMP32 - BOOL138 (TYPE FIX)>
750 <TYPE? LAC18 <TYPE-CODE FALSE> + BOOL138>
751 <NTHUV LAC18 2 = AC22>
752 <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE135>
754 <NTHUV ACT93 1 = AC22 (TYPE AC)>
755 <NTHUV AC22 2 = AC22>
756 <TYPE? AC22 <TYPE-CODE FALSE> + BOOL138>
758 <NTHUV LAC18 5 = AC22>
759 <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE135>
761 <NTHUV ACT93 1 = AC22 (TYPE AC)>
762 <NTHUV AC22 5 = AC22>
763 <TYPE? AC22 <TYPE-CODE FALSE> - PHRASE135>
768 <NTHUV ACT93 1 = LAC18 (TYPE AC)>
770 <VEQUAL? BOTH20 0 + PHRASE141>
771 <RESTUV ACT93 2 = ACT93 (TYPE VECTOR)>
774 <RESTUV ACT93 1 = ACT93 (TYPE VECTOR)>
777 <VEQUAL? BOTH20 0 + PHRASE144>
778 <TYPE? NAC19 <TYPE-CODE FALSE> - PHRASE144>
782 <CALL '
\1aNEXT-AC 1 = STACK>
783 <CALL '
\1aGET-AC 1 = NAC19>
785 <NTHUV LAC18 5 = AC22>
786 <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE149>
788 <FRAME '
\1aUPDATE-AC>
790 <CALL '
\1aUPDATE-AC 1>
792 <TYPE? ASSIGN17 <TYPE-CODE FALSE> + PHRASE152>
794 <SETG 'ACA-ITEM ITM14>
795 <SETG 'ACA-BOTH BOTH20>
796 <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
797 <PUTUV AC22 2 #LOSE 0>
801 <TYPE? ITM14 <TYPE-CODE ATOM> - PHRASE153>
802 <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
807 <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
811 <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
812 <TYPE? BOTH20 <TYPE-CODE FALSE> + PHRASE156>
813 <SET FIRST-AC24 'TYPE (TYPE ATOM)>
816 <SET FIRST-AC24 TYP15>
818 <PUTUV AC22 3 FIRST-AC24 (TYPE ATOM)>
819 <DEAD AC22 FIRST-AC24>
822 <CALL '
\1aGET-AC 1 = AC22>
823 <EQUAL? LAC18 AC22 + BOOL158>
825 <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
826 <GVAL 'AC-STAMP = FIRST-AC24>
827 <PUTUV AC22 4 FIRST-AC24 (TYPE FIX)>
828 <DEAD AC22 FIRST-AC24>
830 <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
833 <TYPE? BOTH20 <TYPE-CODE FALSE> + PHRASE161>
834 <NTHUV NAC19 5 = AC22>
835 <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE163>
837 <FRAME '
\1aUPDATE-AC>
839 <CALL '
\1aUPDATE-AC 1>
841 <TYPE? ASSIGN17 <TYPE-CODE FALSE> + PHRASE166>
842 <SETG 'ACA-BOTH NAC19>
843 <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
844 <PUTUV AC22 2 #LOSE 0>
848 <TYPE? ITM14 <TYPE-CODE ATOM> - PHRASE167>
849 <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
854 <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
858 <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
859 <PUTUV AC22 3 'VALUE (TYPE ATOM)>
861 <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
862 <GVAL 'AC-STAMP = FIRST-AC24>
863 <PUTUV AC22 4 FIRST-AC24 (TYPE FIX)>
864 <DEAD AC22 FIRST-AC24>
865 <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
866 <PUTUV AC22 5 UPDATE16>
868 <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
872 <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
873 <PUTUV AC22 5 UPDATE16>
875 <TYPE? ASSIGN17 <TYPE-CODE FALSE> - PHRASE245>
877 <TYPE? ITM14 <TYPE-CODE ATOM> - PHRASE170>
880 <GVAL 'LOCALS = STACK>
881 <CALL '
\1aLMEMQ 2 = FIRST-AC24>
882 <VEQUAL? FIRST-AC24 0 - BOOL173>
883 <GVAL 'ICALL-FLAG = AC22>
884 <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE172>
888 <GVAL 'ICALL-TEMPS = STACK>
889 <CALL '
\1aLMEMQ 2 = FIRST-AC24>
890 <VEQUAL? FIRST-AC24 0 + PHRASE172>
892 <NTHUV FIRST-AC24 3 = ITM14 (TYPE LOCAL-NAME)>
894 <GVAL 'WINNING-VICTIM = AC22>
895 <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE178>
897 <SET LOW21 (TP*) (TYPE LIST)>
900 <SET LOW21 (F*) (TYPE LIST)>
902 <TYPE? BOTH20 <TYPE-CODE FALSE> + PHRASE181>
907 <GVAL 'STACK-DEPTH = AC22>
908 <SUB 0 AC22 = STACK (TYPE FIX)>
917 <VEQUAL? TYP15 'VALUE - PHRASE183>
921 <GVAL 'STACK-DEPTH = AC22>
922 <SUB 1 AC22 = STACK (TYPE FIX)>
931 <VEQUAL? TYP15 'LENGTH - PHRASE185>
935 <GVAL 'STACK-DEPTH = AC22>
936 <SUB 0 AC22 = STACK (TYPE FIX)>
945 <VEQUAL? TYP15 'TYPECODE - PHRASE187>
947 <FRAME '
\1aLOAD-TYPE>
948 <NTHUV LAC18 1 = STACK (TYPE ATOM)>
949 <CONS LOW21 () = AC22>
951 <CONS ITM14 AC22 = AC22>
953 <GVAL 'STACK-DEPTH = FIRST-AC24>
954 <SUB 0 FIRST-AC24 = FIRST-AC24 (TYPE FIX)>
955 <CONS FIRST-AC24 AC22 = STACK>
956 <DEAD FIRST-AC24 AC22>
957 <CALL '
\1aLOAD-TYPE 2>
963 <GVAL 'STACK-DEPTH = AC22>
964 <SUB 0 AC22 = STACK (TYPE FIX)>
974 <PUSH 'UNKNOWN-LOCAL!-ERRORS>
977 <CALL '
\1aMIMOCERR 2>
982 <CALL '
\1aPRIMTYPE 1 = LOW21>
983 <VEQUAL? LOW21 'WORD + BOOL197>
984 <VEQUAL? LOW21 'FIX - BOOL196>
987 <GVAL 'MAX-IMMEDIATE = AC22>
988 <CHTYPE ITM14 <TYPE-CODE FIX> = FIRST-AC24>
989 <LESS? FIRST-AC24 0 - TAG200 (TYPE FIX)>
990 <SUB 0 FIRST-AC24 = FIRST-AC24 (TYPE FIX)>
992 <GRTR? AC22 FIRST-AC24 + BOOL195 (TYPE FIX)>
993 <DEAD AC22 FIRST-AC24>
994 <AND ITM14 #WORD *777777* = AC22>
995 <VEQUAL? AC22 0 + BOOL195 (TYPE FIX)>
1000 <CALL '
\1aPRIMTYPE 1 = AC22>
1001 <VEQUAL? AC22 'LIST - PHRASE193>
1003 <EMPL? ITM14 - PHRASE193 (TYPE LIST)>
1005 <VEQUAL? TYP15 'FREE + TAG208>
1006 <VEQUAL? TYP15 'VALUE + TAG208>
1007 <VEQUAL? TYP15 'BOTH - PHRASE193>
1010 <CALL '
\1aTYPE 1 = AC22>
1011 <GVAL 'TYPE-WORDS = FIRST-AC24>
1012 <EMPUV? FIRST-AC24 + PHRASE193>
1013 <LOOP (AC22 VALUE) (FIRST-AC24 LENGTH VALUE)>
1015 <NTHUV FIRST-AC24 1 = TEMP32>
1016 <TYPE? TEMP32 <TYPE-CODE ATOM> - TAG210>
1017 <VEQUAL? TEMP32 AC22 + TAG208>
1020 <RESTUV FIRST-AC24 1 = FIRST-AC24 (TYPE VECTOR)>
1021 <EMPUV? FIRST-AC24 - TAG209>
1024 <VEQUAL? TYP15 'BOTH - PHRASE214>
1026 <FRAME '
\1aLOAD-TYPE-IN-AC>
1027 <NTHUV LAC18 1 = STACK (TYPE ATOM)>
1030 <CALL '
\1aTYPE 1 = STACK>
1031 <CALL '
\1aLOAD-TYPE-IN-AC 2>
1038 <FRAME '
\1aPRIMTYPE>
1040 <CALL '
\1aPRIMTYPE 1 = FIRST-AC24>
1041 <VEQUAL? FIRST-AC24 'LIST - PHRASE218>
1051 <AND ITM14 #WORD *777777* = FIRST-AC24>
1052 <VEQUAL? FIRST-AC24 0 - PHRASE221 (TYPE FIX)>
1058 <LSH ITM14 -18 = STACK (TYPE FIX)>
1063 <CHTYPE ITM14 <TYPE-CODE FIX> = ITM14>
1064 <LESS? ITM14 0 - PHRASE227 (TYPE FIX)>
1069 <SET FIRST-AC24 ITM14>
1071 <LESS? FIRST-AC24 0 - TAG231 (TYPE FIX)>
1072 <SUB 0 FIRST-AC24 = FIRST-AC24 (TYPE FIX)>
1091 <CALL '
\1aMVADD 1 = TEMP32>
1092 <ADD TEMP32 1 = FIRST-AC24 (TYPE FIX)>
1094 <LSH FIRST-AC24 1 = TEMP32 (TYPE FIX)>
1096 <TYPE? BOTH20 <TYPE-CODE FALSE> + PHRASE237>
1107 <VEQUAL? TYP15 'VALUE - PHRASE239>
1118 <VEQUAL? TYP15 'LENGTH - PHRASE241>
1128 <VEQUAL? TYP15 'TYPECODE - PHRASE243>
1130 <FRAME '
\1aLOAD-TYPE>
1131 <NTHUV LAC18 1 = STACK (TYPE ATOM)>
1132 <CONS (M*) () = FIRST-AC24>
1133 <CONS TEMP32 FIRST-AC24 = STACK>
1134 <DEAD TEMP32 FIRST-AC24>
1135 <CALL '
\1aLOAD-TYPE 2>
1146 <NTHUV LAC18 1 = TEMP32 (TYPE ATOM)>
1152 <GFCN
\1aLABEL-PREF ("VALUE" <OR AC FALSE> ATOM ATOM ATOM) LBL5 VAR6 TYP7>
1153 <TEMP LB8 TEMP13 L9 ACS31>
1155 <FRAME '
\1aFIND-LABEL>
1157 <CALL '
\1aFIND-LABEL 1 = LB8>
1159 <TYPE? TEMP13 <TYPE-CODE FALSE> + MAPEX23>
1160 <VEQUAL? LBL5 'COMPERR - TAG15>
1165 <TYPE? L9 <TYPE-CODE FALSE> - BOOL16>
1166 <NTHUV LB8 4 = L9 (TYPE LIST)>
1167 <EMPL? L9 - TAG18 (TYPE LIST)>
1171 <NTHUV LB8 4 = L9 (TYPE LIST)>
1173 <NTHL L9 1 = L9 (TYPE LABSTATE)>
1175 <SET TEMP13 %<> (TYPE FALSE)>
1179 <EMPTY? L9 + MAPAP24>
1182 <NTHUV ACS31 2 = TEMP13>
1183 <TYPE? TEMP13 <TYPE-CODE FALSE> + BOOL39>
1185 <NTHUV ACS31 2 = TEMP13 (TYPE LOCAL)>
1186 <NTHUV TEMP13 1 = TEMP13 (TYPE ATOM)>
1187 <VEQUAL? TEMP13 VAR6 - BOOL39>
1189 <NTHUV ACS31 5 = TEMP13 (TYPE ATOM)>
1190 <VEQUAL? TEMP13 TYP7 + TAG45>
1192 <VEQUAL? TYP7 'BOTH - BOOL39>
1193 <NTHUV ACS31 5 = TEMP13 (TYPE ATOM)>
1194 <VEQUAL? TEMP13 'TYPE + TAG45>
1197 <VEQUAL? TYP7 'BOTH + TAG41>
1198 <SET TEMP13 %<> (TYPE FALSE)>
1201 <REST1 LB8 = TEMP13>
1202 <EMPTY? TEMP13 - TAG42>
1204 <SET TEMP13 %<> (TYPE FALSE)>
1211 <CALL '
\1aNTH 2 = LB8>
1212 <NTHUV LB8 2 = TEMP13>
1213 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE34>
1214 <NTHUV LB8 2 = TEMP13 (TYPE LOCAL)>
1215 <NTHUV TEMP13 1 = TEMP13 (TYPE ATOM)>
1216 <VEQUAL? TEMP13 VAR6 + TAG44>
1218 <SET TEMP13 %<> (TYPE FALSE)>
1221 <NTHUV LB8 5 = TEMP13 (TYPE ATOM)>
1223 <VEQUAL? TEMP13 'VALUE + TAG45>
1225 <SET TEMP13 %<> (TYPE FALSE)>
1228 <NTHUV ACS31 1 = TEMP13 (TYPE AC)>
1241 <GFCN
\1aLOOK-AHEAD ("VALUE" <OR AC FALSE> LIST ATOM ATOM) L5 ITM6 TYP7>
1242 <TEMP TEMP10 X15 Y16 TEMP54>
1244 <VEQUAL? ITM6 'STACK - TAG11>
1250 <EMPL? L5 - PHRASE19 (TYPE LIST)>
1253 <NTHL L5 1 = TEMP10>
1254 <TYPE? TEMP10 <TYPE-CODE ATOM> - PHRASE25>
1255 <FRAME '
\1aLABEL-PREF>
1262 <CALL '
\1aLABEL-PREF 3 = X15>
1263 <TYPE? X15 <TYPE-CODE FALSE> + PHRASE24>
1269 <TYPE? TEMP10 <TYPE-CODE FORM> - PHRASE83>
1270 <EMPL? TEMP10 + PHRASE83 (TYPE FORM)>
1272 <NTHL TEMP10 1 = X15>
1275 <CALL '
\1aGETPROP 2 = Y16>
1276 <TYPE? Y16 <TYPE-CODE FALSE> + PHRASE29>
1277 <FRAME '
\1aSPECIAL-PREF>
1284 <CALL '
\1aSPECIAL-PREF 4>
1287 <EQUAL? X15 'CONS - PHRASE47>
1288 <RESTL TEMP10 1 = Y16 (TYPE LIST)>
1290 <EQUAL? Y16 ITM6 - PHRASE34>
1292 <VEQUAL? TYP7 'VALUE - PHRASE37>
1296 <CALL '
\1aGET-AC 1 = TEMP10>
1302 <CALL '
\1aGET-AC 1 = TEMP10>
1306 <RESTL TEMP10 1 = Y16 (TYPE LIST)>
1308 <RESTL Y16 1 = Y16 (TYPE LIST)>
1310 <EQUAL? Y16 ITM6 - PHRASE41>
1312 <VEQUAL? TYP7 'VALUE - PHRASE43>
1316 <CALL '
\1aGET-AC 1 = TEMP10>
1322 <CALL '
\1aGET-AC 1 = TEMP10>
1329 <CHTYPE Y16 <TYPE-CODE LIST> = Y16>
1332 <NTHL Y16 1 = TEMP54>
1333 <TYPE? TEMP54 <TYPE-CODE ATOM> - TAG53>
1334 <VEQUAL? TEMP54 '+ + TAG56>
1337 <RESTL Y16 1 = Y16 (TYPE LIST)>
1340 <CHTYPE Y16 <TYPE-CODE LIST> = Y16>
1343 <NTHL Y16 1 = TEMP54>
1344 <TYPE? TEMP54 <TYPE-CODE ATOM> - TAG58>
1345 <VEQUAL? TEMP54 '- + TAG56>
1348 <RESTL Y16 1 = Y16 (TYPE LIST)>
1350 <SET Y16 %<> (TYPE FALSE)>
1352 <TYPE? Y16 <TYPE-CODE FALSE> + PHRASE48>
1353 <FRAME '
\1aLABEL-PREF>
1354 <RESTL Y16 1 = Y16 (TYPE LIST)>
1355 <NTHL Y16 1 = STACK (TYPE ATOM)>
1359 <CALL '
\1aLABEL-PREF 3 = Y16>
1360 <TYPE? Y16 <TYPE-CODE FALSE> + PHRASE83>
1364 <EQUAL? X15 'SET - PHRASE62>
1365 <RESTL TEMP10 1 = Y16 (TYPE LIST)>
1367 <EQUAL? Y16 ITM6 - PHRASE62>
1371 <CHTYPE TEMP10 <TYPE-CODE LIST> = Y16>
1374 <NTHL Y16 1 = TEMP54>
1375 <TYPE? TEMP54 <TYPE-CODE ATOM> - TAG69>
1376 <VEQUAL? TEMP54 '= + TAG67>
1379 <RESTL Y16 1 = Y16 (TYPE LIST)>
1381 <SET Y16 %<> (TYPE FALSE)>
1385 <TYPE? Y16 <TYPE-CODE FALSE> + PHRASE64>
1386 <RESTL Y16 1 = Y16 (TYPE LIST)>
1388 <EQUAL? Y16 ITM6 - PHRASE64>
1392 <EQUAL? X15 'DEAD - PHRASE71>
1393 <RESTL TEMP10 1 = Y16 (TYPE LIST)>
1394 <CHTYPE Y16 <TYPE-CODE LIST> = Y16>
1395 <EMPL? Y16 + PHRASE71>
1396 <LOOP (ITM6 VALUE) (Y16 VALUE)>
1398 <NTHL Y16 1 = TEMP54>
1399 <TYPE? TEMP54 <TYPE-CODE ATOM> - TAG75>
1400 <VEQUAL? TEMP54 ITM6 + TAG73>
1403 <RESTL Y16 1 = Y16 (TYPE LIST)>
1409 <EQUAL? X15 'RETURN - PHRASE81>
1410 <RESTL TEMP10 1 = Y16 (TYPE LIST)>
1413 <EQUAL? Y16 ITM6 - PHRASE81>
1415 <VEQUAL? TYP7 'VALUE - PHRASE79>
1419 <CALL '
\1aGET-AC 1 = TEMP10>
1425 <CALL '
\1aGET-AC 1 = TEMP10>
1429 <EQUAL? X15 'RETURN - PHRASE83>
1433 <RESTL L5 1 = L5 (TYPE LIST)>
1437 <GFCN
\1aUPDATE-AC ("VALUE" <OR FALSE FIX> AC "OPTIONAL" ANY) AC8 SAVE-TIME9>
1438 <OPT-DISPATCH 1 %<> OPT6 OPT7>
1442 <TEMP ITM10 TYP11:ATOM T115:FIX T216 ACSTMP17:FIX LCL14 TEMP27 NAC12 TEMP42>
1444 <NTHUV AC8 2 = ITM10>
1445 <NTHUV AC8 3 = TYP11 (TYPE ATOM)>
1446 <NTHUV AC8 4 = T115 (TYPE FIX)>
1447 <GVAL 'AC-STAMP = ACSTMP17>
1448 <TYPE? ITM10 <TYPE-CODE ATOM> - PHRASE88>
1449 <VEQUAL? ITM10 'STACK + PHRASE88>
1452 <GVAL 'LOCALS = STACK>
1453 <CALL '
\1aLMEMQ 2 = LCL14>
1454 <VEQUAL? LCL14 0 + PHRASE22>
1455 <TYPE? LCL14 <TYPE-CODE LOCAL> - PHRASE34>
1456 <NTHUV LCL14 2 = TEMP27>
1457 <TYPE? TEMP27 <TYPE-CODE FALSE> - PHRASE34>
1459 <PUTUV LCL14 2 'TEMP>
1462 <GVAL 'ICALL-FLAG = TEMP27>
1463 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE28>
1467 <GVAL 'ICALL-TEMPS = STACK>
1468 <CALL '
\1aLMEMQ 2 = LCL14>
1469 <VEQUAL? LCL14 0 + PHRASE28>
1470 <TYPE? LCL14 <TYPE-CODE LOCAL> - PHRASE34>
1471 <NTHUV LCL14 2 = TEMP27>
1472 <TYPE? TEMP27 <TYPE-CODE FALSE> - PHRASE34>
1474 <PUTUV LCL14 2 'TEMP>
1477 <FRAME '
\1aMIMOCERR>
1478 <PUSH 'UNKNOWN-LOCAL!-ERRORS>
1481 <CALL '
\1aMIMOCERR 2>
1483 <NTHUV LCL14 3 = ITM10 (TYPE LOCAL-NAME)>
1484 <VEQUAL? TYP11 'TYPE - BOOL39>
1488 <CALL '
\1aNEXT-AC 1 = STACK>
1489 <CALL '
\1aGET-AC 1 = NAC12>
1490 <NTHUV NAC12 3 = TEMP27 (TYPE ATOM)>
1491 <VEQUAL? TEMP27 'VALUE - BOOL39>
1493 <NTHUV NAC12 2 = TEMP27>
1494 <NTHUV LCL14 1 = TEMP42 (TYPE ATOM)>
1495 <EQUAL? TEMP27 TEMP42 - BOOL39>
1496 <DEAD TEMP27 TEMP42>
1497 <NTHUV NAC12 5 = TEMP42>
1498 <TYPE? TEMP42 <TYPE-CODE FALSE> + BOOL39>
1503 <VEQUAL? TYP11 'VALUE - PHRASE37>
1507 <CALL '
\1aGETPROP 2 = NAC12>
1508 <NTHUV NAC12 3 = TEMP42 (TYPE ATOM)>
1509 <VEQUAL? TEMP42 'TYPE - PHRASE37>
1511 <NTHUV NAC12 2 = TEMP42>
1512 <NTHUV LCL14 1 = TEMP27 (TYPE ATOM)>
1513 <EQUAL? TEMP42 TEMP27 - PHRASE37>
1515 <NTHUV NAC12 4 = T216 (TYPE FIX)>
1516 <NTHUV NAC12 5 = TEMP27>
1517 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE37>
1520 <NTHUV NAC12 4 = T115 (TYPE FIX)>
1526 <CALL '
\1aNEXT-AC 1 = STACK>
1527 <CALL '
\1aGET-AC 1 = NAC12>
1529 <FRAME '
\1aHACK-LAST-ACS>
1532 <CALL '
\1aHACK-LAST-ACS 2>
1533 <FRAME '
\1aHACK-LAST-ACS>
1536 <CALL '
\1aHACK-LAST-ACS 2>
1537 <NTHUV NAC12 4 = T216 (TYPE FIX)>
1538 <GVAL 'TYPED-LOCALS = TEMP27>
1539 <EMPL? TEMP27 + PHRASE50>
1540 <LOOP (LCL14 VALUE) (TEMP27 VALUE)>
1542 <NTHL TEMP27 1 = TEMP42>
1543 <TYPE? TEMP42 <TYPE-CODE LOCAL> - TAG54>
1544 <VEQUAL? TEMP42 LCL14 + TAG52>
1547 <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
1548 <EMPL? TEMP27 - TAG53>
1551 <NTHUV LCL14 2 = TEMP27>
1553 <EQUAL? TEMP27 'OARG + PHRASE50>
1557 <NTHUV NAC12 1 = STACK (TYPE ATOM)>
1558 <GVAL 'STACK-DEPTH = TEMP27>
1559 <SUB 1 TEMP27 = STACK (TYPE FIX)>
1563 <GVAL 'WINNING-VICTIM = TEMP27>
1564 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE57>
1566 <SET TEMP27 (TP*) (TYPE LIST)>
1569 <SET TEMP27 (F*) (TYPE LIST)>
1578 <NTHUV AC8 1 = STACK (TYPE ATOM)>
1579 <GVAL 'STACK-DEPTH = TEMP27>
1580 <SUB 0 TEMP27 = STACK (TYPE FIX)>
1584 <GVAL 'WINNING-VICTIM = TEMP27>
1585 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE62>
1587 <SET TEMP27 (TP*) (TYPE LIST)>
1590 <SET TEMP27 (F*) (TYPE LIST)>
1596 <TYPE? SAVE-TIME9 <TYPE-CODE FALSE> + PHRASE65>
1597 <PUTUV AC8 4 T115 (TYPE FIX)>
1599 <PUTUV NAC12 4 T216 (TYPE FIX)>
1606 <VEQUAL? TYP11 'TYPE - PHRASE66>
1607 <FRAME '
\1aHACK-LAST-ACS>
1610 <CALL '
\1aHACK-LAST-ACS 2>
1611 <GVAL 'TYPED-LOCALS = TEMP27>
1612 <EMPL? TEMP27 + TAG70>
1613 <LOOP (LCL14 VALUE) (TEMP27 VALUE)>
1615 <NTHL TEMP27 1 = TEMP42>
1616 <TYPE? TEMP42 <TYPE-CODE LOCAL> - TAG72>
1617 <VEQUAL? TEMP42 LCL14 + PHRASE88>
1620 <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
1621 <EMPL? TEMP27 - TAG71>
1625 <NTHUV AC8 1 = STACK (TYPE ATOM)>
1626 <GVAL 'STACK-DEPTH = TEMP27>
1627 <SUB 0 TEMP27 = STACK (TYPE FIX)>
1631 <GVAL 'WINNING-VICTIM = TEMP27>
1632 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE75>
1634 <SET TEMP27 (TP*) (TYPE LIST)>
1637 <SET TEMP27 (F*) (TYPE LIST)>
1642 <TYPE? SAVE-TIME9 <TYPE-CODE FALSE> + PHRASE88>
1643 <PUTUV AC8 4 T115 (TYPE FIX)>
1647 <VEQUAL? TYP11 'VALUE - PHRASE88>
1649 <FRAME '
\1aHACK-LAST-ACS>
1653 <CALL '
\1aHACK-LAST-ACS 2>
1656 <NTHUV AC8 1 = STACK (TYPE ATOM)>
1657 <GVAL 'STACK-DEPTH = TEMP27>
1658 <SUB 1 TEMP27 = STACK (TYPE FIX)>
1662 <GVAL 'WINNING-VICTIM = TEMP27>
1663 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE83>
1665 <SET TEMP27 (TP*) (TYPE LIST)>
1668 <SET TEMP27 (F*) (TYPE LIST)>
1673 <TYPE? SAVE-TIME9 <TYPE-CODE FALSE> + PHRASE88>
1674 <PUTUV AC8 4 T115 (TYPE FIX)>
1676 <TYPE? T216 <TYPE-CODE UNBOUND> + PHRASE88>
1677 <PUTUV NAC12 4 T216 (TYPE FIX)>
1680 <SET TEMP27 SAVE-TIME9>
1682 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE90>
1683 <SETG 'AC-STAMP ACSTMP17>
1684 <SET TEMP27 ACSTMP17>
1689 <END
\1aUPDATE-AC>
\r\r
1691 <GFCN
\1aHACK-LAST-ACS ("VALUE" <OR FALSE LOCAL> LOCAL ATOM) LCL5 TYP6>
1694 <VEQUAL? TYP6 'TYPE - PHRASE9>
1695 <NTHUV LCL5 5 = ACS7>
1696 <TYPE? ACS7 <TYPE-CODE FALSE> + PHRASE9>
1697 <NTHUV ACS7 3 = TEMP11>
1698 <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE9>
1700 <PUTUV ACS7 3 'HACKED>
1706 <VEQUAL? TYP6 'VALUE + TAG14>
1710 <NTHUV LCL5 6 = ACS7>
1712 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE12>
1713 <NTHUV ACS7 3 = TEMP11>
1714 <TYPE? TEMP11 <TYPE-CODE FALSE> + TAG16>
1718 <PUTUV ACS7 3 'HACKED>
1726 <END
\1aHACK-LAST-ACS>
1728 <GFCN
\1aUPDATE-ACS ("VALUE" <OR FALSE <LIST ANY>>)>
1731 <FRAME '
\1aLABEL-UPDATE-ACS>
1734 <CALL '
\1aLABEL-UPDATE-ACS 2 = TEMP6>
1739 <GFCN
\1aLABEL-UPDATE-ACS ("VALUE" <OR FALSE <LIST ANY>> <OR ATOM FALSE> ANY "OPTIONAL" ANY ANY ANY) TAG12 UNCND13 NO-TY14 A115 A216>
1740 <OPT-DISPATCH 2 %<> OPT8 OPT9 OPT10 OPT11>
1748 <TEMP TEMP20 MIML19 TEMP39 NXT17>
1750 <GEN-LVAL 'MIML = MIML19>
1751 <TYPE? TAG12 <TYPE-CODE FALSE> + BOOL24>
1752 <FRAME '
\1aFIND-LABEL>
1754 <CALL '
\1aFIND-LABEL 1 = TEMP20>
1756 <EQUAL? TAG12 'COMPERR + BOOL28>
1757 <EQUAL? TAG12 'UNWCONT - PHRASE27>
1760 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE82>
1761 <TYPE? A216 <TYPE-CODE FALSE> + PHRASE33>
1762 <CONS A216 () = TEMP20>
1764 <CONS A115 TEMP20 = TEMP20>
1769 <CONS A115 () = TEMP20>
1774 <TYPE? TAG12 <TYPE-CODE FALSE> + PHRASE49>
1775 <NTHUV TEMP20 3 = TEMP39>
1776 <TYPE? TEMP39 <TYPE-CODE FALSE> - PHRASE49>
1778 <TYPE? UNCND13 <TYPE-CODE FALSE> - PHRASE49>
1782 <EMPL? MIML19 + PHRASE49 (TYPE LIST)>
1783 <RESTL MIML19 1 = TEMP39 (TYPE LIST)>
1784 <NTHL TEMP39 1 = NXT17>
1786 <TYPE? NXT17 <TYPE-CODE FORM> - PHRASE45>
1787 <NTHL NXT17 1 = TEMP39>
1788 <EQUAL? TEMP39 'DEAD - PHRASE45>
1790 <FRAME '
\1aDEAD!-MIMOC>
1791 <RESTL NXT17 1 = TEMP39 (TYPE LIST)>
1793 <CHTYPE TEMP39 <TYPE-CODE LIST> = STACK>
1797 <CALL '
\1aDEAD!-MIMOC 3>
1798 <RESTL MIML19 1 = MIML19 (TYPE LIST)>
1801 <TYPE? NXT17 <TYPE-CODE ATOM> - PHRASE49>
1803 <RESTL MIML19 1 = MIML19 (TYPE LIST)>
1806 <TYPE? TAG12 <TYPE-CODE FALSE> + BOOL52>
1808 <GVAL 'NO-AC-FUNNYNESS = TEMP39>
1809 <TYPE? TEMP39 <TYPE-CODE FALSE> + PHRASE51>
1812 <GVAL 'AC-TABLE = TEMP39>
1816 <EMPUV? TEMP39 + MAPAP58>
1817 <NTHUV TEMP39 1 = MIML19>
1818 <NTHUV MIML19 5 = TEMP20>
1819 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE67>
1821 <FRAME '
\1aUPDATE-AC>
1823 <CALL '
\1aUPDATE-AC 1>
1824 <PUTUV MIML19 5 %<>>
1827 <RESTUV TEMP39 1 = TEMP39 (TYPE VECTOR)>
1831 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE82>
1832 <TYPE? A216 <TYPE-CODE FALSE> + PHRASE73>
1833 <CONS A216 () = TEMP20>
1835 <CONS A115 TEMP20 = TEMP20>
1840 <CONS A115 () = TEMP20>
1845 <GVAL 'PASS1 = TEMP39>
1846 <TYPE? TEMP39 <TYPE-CODE FALSE> + PHRASE75>
1848 <FRAME '
\1aSAVE-BRANCH-STATE>
1853 <CALL '
\1aSAVE-BRANCH-STATE 2>
1855 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE82>
1856 <TYPE? A216 <TYPE-CODE FALSE> + PHRASE80>
1857 <CONS A216 () = TEMP20>
1859 <CONS A115 TEMP20 = TEMP20>
1864 <CONS A115 () = TEMP20>
1869 <GVAL 'NO-AC-FUNNYNESS = TEMP39>
1870 <TYPE? TEMP39 <TYPE-CODE FALSE> + TAG83>
1874 <FRAME '
\1aESTABLISH-BRANCH-STATE>
1883 <CALL '
\1aESTABLISH-BRANCH-STATE 4 = TEMP20>
1887 <END
\1aLABEL-UPDATE-ACS>
1889 <GFCN
\1aFLUSH-AC ("VALUE" <OR FALSE FIX> ATOM "OPTIONAL" <OR ATOM FALSE>) AC8 BOTH9>
1890 <OPT-DISPATCH 1 %<> OPT6 OPT7>
1894 <TEMP RAC10:AC TEMP14>
1898 <CALL '
\1aGET-AC 1 = RAC10>
1899 <NTHUV RAC10 5 = TEMP14>
1900 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE12>
1902 <FRAME '
\1aUPDATE-AC>
1905 <CALL '
\1aUPDATE-AC 1>
1909 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE17>
1914 <CALL '
\1aNEXT-AC 1 = STACK>
1915 <CALL '
\1aGET-AC 1 = RAC10>
1916 <NTHUV RAC10 5 = TEMP14>
1917 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE17>
1918 <FRAME '
\1aUPDATE-AC>
1921 <CALL '
\1aUPDATE-AC 1 = TEMP14>
1927 <GFCN
\1aALTER-AC ("VALUE" AC ATOM ATOM) AC5 WHAT6>
1928 <TEMP RAC7:AC TEMP11>
1932 <CALL '
\1aGET-AC 1 = RAC7>
1933 <NTHUV RAC7 5 = TEMP11>
1934 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE9>
1936 <FRAME '
\1aUPDATE-AC>
1938 <CALL '
\1aUPDATE-AC 1>
1940 <PUTUV RAC7 2 WHAT6>
1941 <PUTUV RAC7 3 'TYPE (TYPE ATOM)>
1948 <CALL '
\1aNEXT-AC 1 = STACK>
1949 <CALL '
\1aGET-AC 1 = RAC7>
1950 <NTHUV RAC7 5 = TEMP11>
1951 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE14>
1953 <FRAME '
\1aUPDATE-AC>
1955 <CALL '
\1aUPDATE-AC 1>
1957 <PUTUV RAC7 2 WHAT6>
1959 <PUTUV RAC7 3 'VALUE (TYPE ATOM)>
1965 <GFCN
\1aFLUSH-ACS ("VALUE" <OR ATOM FALSE AC>)>
1966 <TEMP TEMP14 TEMP16:VECTOR TEMP20:ATOM>
1968 <SET TEMP14 %<> (TYPE FALSE)>
1969 <GVAL 'AC-TABLE = TEMP16>
1973 <EMPUV? TEMP16 + MAPAP9>
1974 <NTHUV TEMP16 1 = TEMP14>
1975 <PUTUV TEMP14 2 %<>>
1976 <PUTUV TEMP14 3 'DUMMY (TYPE ATOM)>
1977 <PUTUV TEMP14 5 %<>>
1978 <PUTUV TEMP14 6 %<>>
1979 <NTHUV TEMP14 1 = TEMP20 (TYPE ATOM)>
1980 <VEQUAL? TEMP20 'T* - TAG19>
1982 <SET TEMP14 'T (TYPE ATOM)>
1985 <PUTUV TEMP14 4 0 (TYPE FIX)>
1987 <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
1994 <GFCN
\1aREALLY-FREE-AC-PAIR ("VALUE" <OR ATOM FALSE>)>
1995 <TEMP OAC5:ATOM TEMP12>
1998 <SET OAC5 'A1* (TYPE ATOM)>
2000 <CALL '
\1aGET-AC 1 = TEMP12>
2001 <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
2002 <VEQUAL? TEMP12 'DUMMY - BOOL10>
2006 <CALL '
\1aGET-AC 1 = TEMP12>
2007 <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
2008 <VEQUAL? TEMP12 'DUMMY + TAG20>
2012 <SET OAC5 'B1* (TYPE ATOM)>
2014 <CALL '
\1aGET-AC 1 = TEMP12>
2015 <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
2016 <VEQUAL? TEMP12 'DUMMY - BOOL14>
2020 <CALL '
\1aGET-AC 1 = TEMP12>
2021 <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
2022 <VEQUAL? TEMP12 'DUMMY + TAG20>
2026 <SET OAC5 'C1* (TYPE ATOM)>
2028 <CALL '
\1aGET-AC 1 = TEMP12>
2029 <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
2030 <VEQUAL? TEMP12 'DUMMY + TAG18>
2036 <CALL '
\1aGET-AC 1 = TEMP12>
2037 <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
2038 <VEQUAL? TEMP12 'DUMMY + TAG20>
2044 <END
\1aREALLY-FREE-AC-PAIR>
2046 <GFCN
\1aMUNGED-AC ("VALUE" <OR FALSE AC> ATOM "OPTIONAL" <OR ATOM FALSE>) NAM8 NXT?9>
2047 <OPT-DISPATCH 1 %<> OPT6 OPT7>
2055 <CALL '
\1aGET-AC 1 = AC10>
2057 <PUTUV AC10 3 'DUMMY (TYPE ATOM)>
2063 <TYPE? AC10 <TYPE-CODE FALSE> + PHRASE13>
2068 <CALL '
\1aNEXT-AC 1 = STACK>
2069 <CALL '
\1aGET-AC 1 = AC10>
2071 <PUTUV AC10 3 'DUMMY (TYPE ATOM)>
2079 <GFCN
\1aSAVE-ACS ("VALUE" <OR AC ATOM FALSE>)>
2082 <FRAME '
\1aUPDATE-ACS>
2083 <CALL '
\1aUPDATE-ACS 0>
2084 <FRAME '
\1aFLUSH-ACS>
2085 <CALL '
\1aFLUSH-ACS 0 = TEMP7>
2090 <GFCN
\1aMVADD ("VALUE" FIX ANY) ITM4>
2091 <TEMP ITM13 TEMP18 BK8:LIST IDX7:FIX HC6:FIX MVB35:MBUCK>
2097 <TYPE? ITM13 <TYPE-CODE FORM> - PHRASE10>
2098 <EMPL? ITM13 + PHRASE10>
2099 <RESTL ITM13 1 = TEMP18 (TYPE LIST)>
2100 <EMPL? TEMP18 + PHRASE10>
2101 <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
2102 <EMPL? TEMP18 - PHRASE10>
2104 <NTHL ITM13 1 = TEMP18>
2105 <EQUAL? TEMP18 'QUOTE - PHRASE10>
2107 <RESTL ITM13 1 = TEMP18 (TYPE LIST)>
2109 <NTHL TEMP18 1 = ITM13>
2111 <TYPE? ITM13 <TYPE-CODE ATOM> - AGAIN14>
2116 <CALL '
\1aNTH 2 = ITM4>
2118 <GVAL 'MV-TABLE = TEMP18>
2121 <CALL '
\1aHASH 1 = HC6>
2122 <MOD HC6 391 = ITM13 (TYPE FIX)>
2123 <ADD ITM13 1 = IDX7 (TYPE FIX)>
2125 <NTHUV TEMP18 IDX7 = BK8 (TYPE LIST)>
2127 <SET TEMP18 BK8 (TYPE LIST)>
2131 <EMPL? TEMP18 + MAPAP30>
2132 <NTHL TEMP18 1 = MVB35>
2133 <NTHUV MVB35 2 = ITM13 (TYPE FIX)>
2134 <VEQUAL? HC6 ITM13 - PHRASE37 (TYPE FIX)>
2137 <NTHUV MVB35 1 = STACK>
2139 <CALL '
\1a=? 2 = ITM13>
2140 <VEQUAL? ITM13 0 + PHRASE37>
2142 <GEN-SET 'FMV MVB35>
2146 <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
2149 <GVAL 'MV-TABLE = TEMP18>
2153 <GVAL 'MV-COUNT = ITM13>
2154 <ADD ITM13 1 = ITM13 (TYPE FIX)>
2155 <SETG 'MV-COUNT ITM13>
2158 <UBLOCK <TYPE-CODE VECTOR> 3 = ITM13>
2159 <CHTYPE ITM13 <TYPE-CODE MBUCK> = ITM13>
2160 <GEN-SET 'FMV ITM13>
2161 <CONS ITM13 () = ITM13>
2164 <PUTUV TEMP18 IDX7 ITM13 (TYPE LIST)>
2165 <DEAD TEMP18 IDX7 ITM13>
2167 <CONS ITM4 () = ITM13>
2169 <PUTREST TEMP18 ITM13>
2174 <GEN-LVAL 'FMV = ITM13>
2175 <NTHUV ITM13 3 = ITM13 (TYPE FIX)>
2181 <GFCN
\1aPOS ("VALUE" ANY ANY LIST) ITM5 LST6>
2182 <TEMP TEMP11 M7 TEMP19 TEMP25 TEMP26>
2184 <TYPE? ITM5 <TYPE-CODE FORM> - PHRASE9>
2185 <EMPL? ITM5 + PHRASE9>
2186 <RESTL ITM5 1 = TEMP11 (TYPE LIST)>
2187 <EMPL? TEMP11 + PHRASE9>
2189 <NTHL ITM5 1 = TEMP11>
2190 <EQUAL? TEMP11 'QUOTE - PHRASE9>
2192 <RESTL ITM5 1 = TEMP11 (TYPE LIST)>
2193 <NTHL TEMP11 1 = TEMP11>
2194 <TYPE? TEMP11 <TYPE-CODE ATOM> - PHRASE9>
2196 <RESTL ITM5 1 = ITM5 (TYPE LIST)>
2197 <NTHL ITM5 1 = ITM5 (TYPE ATOM)>
2199 <GVAL 'ICALL-FLAG = TEMP11>
2200 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE13>
2202 <GVAL 'LOCALS = TEMP11>
2203 <VEQUAL? TEMP11 LST6 - PHRASE13>
2205 <GVAL 'ICALL-TEMPS = M7>
2206 <TYPE ITM5 = TEMP11>
2208 <LOOP (ITM5 VALUE) (TEMP11 VALUE) (M7 VALUE)>
2210 <NTHL M7 1 = TEMP19>
2211 <TYPE? TEMP19 TEMP11 - TAG18>
2212 <VEQUAL? TEMP19 ITM5 + TAG16>
2215 <RESTL M7 1 = M7 (TYPE LIST)>
2219 <SET M7 %<> (TYPE FALSE)>
2221 <TYPE? M7 <TYPE-CODE FALSE> + PHRASE13>
2222 <RESTL M7 1 = M7 (TYPE LIST)>
2227 <RESTL LST6 1 = TEMP19 (TYPE LIST)>
2228 <TYPE ITM5 = TEMP25>
2229 <EMPL? TEMP19 + TAG21>
2230 <LOOP (ITM5 VALUE) (TEMP25 VALUE) (TEMP19 VALUE)>
2232 <NTHL TEMP19 1 = TEMP26>
2233 <TYPE? TEMP26 TEMP25 - TAG24>
2234 <VEQUAL? TEMP26 ITM5 + TAG22>
2237 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
2238 <EMPL? TEMP19 - TAG23>
2240 <DEAD ITM5 TEMP19 TEMP25>
2241 <SET M7 %<> (TYPE FALSE)>
2248 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE20>
2249 <LENL LST6 = TEMP19 (TYPE FIX)>
2251 <LENL M7 = M7 (TYPE FIX)>
2252 <SUB TEMP19 M7 = TEMP11 (TYPE FIX)>
2259 <GFCN
\1aLMEMQ ("VALUE" <OR ATOM !<FALSE> LOCAL> ATOM LIST) ATM5 LST6>
2260 <TEMP TEMP8 TEMP16:ATOM>
2265 <EMPL? LST6 - PHRASE13 (TYPE LIST)>
2268 <NTHL LST6 1 = TEMP8>
2269 <TYPE? TEMP8 <TYPE-CODE LOCAL> - PHRASE14>
2270 <NTHUV TEMP8 1 = TEMP16 (TYPE ATOM)>
2271 <VEQUAL? TEMP16 ATM5 - PHRASE14>
2273 <NTHL LST6 1 = TEMP8 (TYPE LOCAL)>
2278 <EQUAL? TEMP8 ATM5 - PHRASE17>
2283 <RESTL LST6 1 = LST6 (TYPE LIST)>
2287 <GFCN
\1aL-N-LMEMQ ("VALUE" <OR !<FALSE> LOCAL LOCAL-NAME> LOCAL-NAME LIST) LN5 LST6>
2288 <TEMP TEMP8 TEMP16:LOCAL-NAME>
2293 <EMPL? LST6 - PHRASE13 (TYPE LIST)>
2296 <NTHL LST6 1 = TEMP8>
2297 <TYPE? TEMP8 <TYPE-CODE LOCAL> - PHRASE14>
2298 <NTHUV TEMP8 3 = TEMP16 (TYPE LOCAL-NAME)>
2299 <VEQUAL? TEMP16 LN5 - PHRASE14>
2301 <NTHL LST6 1 = TEMP8 (TYPE LOCAL)>
2306 <EQUAL? TEMP8 LN5 - PHRASE17>
2311 <RESTL LST6 1 = LST6 (TYPE LIST)>
2315 <GFCN
\1aLLOOKUP ("VALUE" ANY ATOM) ATM5>
2318 <GVAL 'ICALL-TEMPS = M6>
2320 <LOOP (ATM5 VALUE) (M6 VALUE)>
2322 <NTHL M6 1 = TEMP14>
2323 <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG13>
2324 <VEQUAL? TEMP14 ATM5 + TAG11>
2327 <RESTL M6 1 = M6 (TYPE LIST)>
2331 <SET M6 %<> (TYPE FALSE)>
2333 <TYPE? M6 <TYPE-CODE FALSE> + PHRASE9>
2334 <RESTL M6 1 = M6 (TYPE LIST)>
2336 <LSH M6 1 = M6 (TYPE FIX)>
2342 <GVAL 'LOCALS = STACK>
2343 <CALL '
\1aPOS 2 = P7>
2344 <TYPE? P7 <TYPE-CODE FALSE> + PHRASE15>
2345 <LSH P7 1 = P7 (TYPE FIX)>
2349 <FRAME '
\1aMIMOCERR>
2350 <PUSH 'UNKNOWN-LOCAL!-ERRORS>
2353 <CALL '
\1aMIMOCERR 2 = TEMP14>
2358 <GFCN
\1aFIXUP-LOCALS ("VALUE" <OR ATOM FALSE> LIST) L5>
2359 <TEMP C6:LIST (CFLG7 %<>) (CNT8:FIX 0) (LNUM9:FIX 0) (TUP10 %<>) (FL11:LIST ()) TEMP16 ITM27 LU28 TEMP34>
2361 <GVAL 'TEMP-CC = C6>
2362 <RESTL C6 1 = TEMP16 (TYPE LIST)>
2363 <NTHL TEMP16 1 = TEMP16>
2364 <TYPE? TEMP16 <TYPE-CODE INST> - PHRASE14>
2365 <NTHUV TEMP16 1 = TEMP16>
2366 <EQUAL? TEMP16 'MOVE - PHRASE14>
2368 <EMPL? L5 + PHRASE14 (TYPE LIST)>
2369 <RESTL C6 1 = TEMP16 (TYPE LIST)>
2370 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2371 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2372 <NTHL TEMP16 1 = TUP10>
2374 <RESTL C6 5 = C6 (TYPE LIST)>
2376 <SET TEMP16 L5 (TYPE LIST)>
2381 <EMPL? TEMP16 + MAPAP21>
2382 <NTHL TEMP16 1 = ITM27>
2383 <VEQUAL? CFLG7 0 - PHRASE30>
2384 <SET CFLG7 'T (TYPE ATOM)>
2386 <NTHUV ITM27 2 = LU28>
2387 <TYPE? LU28 <TYPE-CODE FALSE> + PHRASE32>
2388 <NTHUV ITM27 3 = ITM27 (TYPE LOCAL-NAME)>
2389 <CONS ITM27 () = ITM27>
2390 <ADD LNUM9 2 = LNUM9 (TYPE FIX)>
2391 <CONS LNUM9 () = TEMP34>
2392 <PUTREST ITM27 TEMP34>
2393 <PUTREST TEMP34 FL11>
2397 <VEQUAL? LU28 'ARG + PHRASE42>
2398 <VEQUAL? LU28 'OARG + PHRASE42>
2400 <RESTL C6 1 = C6 (TYPE LIST)>
2401 <RESTL C6 1 = C6 (TYPE LIST)>
2404 <GVAL 'WINNING-VICTIM = ITM27>
2405 <TYPE? ITM27 <TYPE-CODE FALSE> + PHRASE40>
2407 <GVAL 'WINNING-VICTIM = ITM27>
2408 <SUB ITM27 2 = ITM27 (TYPE FIX)>
2409 <SETG 'WINNING-VICTIM ITM27>
2412 <ADD CNT8 1 = CNT8 (TYPE FIX)>
2413 <RESTL C6 1 = TEMP34 (TYPE LIST)>
2414 <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
2415 <RESTL TEMP34 1 = ITM27 (TYPE LIST)>
2419 <TYPE? TUP10 <TYPE-CODE FALSE> + PHRASE42>
2420 <NTHUV TUP10 3 = ITM27>
2421 <SUB ITM27 1 = ITM27 (TYPE FIX)>
2422 <PUTUV TUP10 3 ITM27>
2425 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2428 <GVAL 'WINNING-VICTIM = CFLG7>
2429 <TYPE? CFLG7 <TYPE-CODE FALSE> + EXIT45>
2431 <GVAL 'WINNING-VICTIM = LNUM9>
2436 <EMPL? C6 + EXIT45 (TYPE LIST)>
2437 <RESTL C6 1 = CFLG7 (TYPE LIST)>
2438 <NTHL CFLG7 1 = CFLG7 (TYPE FIX)>
2439 <SUB CFLG7 LNUM9 = CFLG7 (TYPE FIX)>
2440 <SUB CFLG7 -1 = CFLG7 (TYPE FIX)>
2441 <RESTL C6 1 = TEMP34 (TYPE LIST)>
2442 <PUTL TEMP34 1 CFLG7 (TYPE FIX)>
2444 <RESTL C6 1 = C6 (TYPE LIST)>
2445 <RESTL C6 1 = C6 (TYPE LIST)>
2448 <EMPL? FL11 + PHRASE52 (TYPE LIST)>
2450 <LOOP (CFLG7 VALUE)>
2452 <RESTL CFLG7 1 = TEMP34 (TYPE LIST)>
2453 <EMPL? TEMP34 + TAG54>
2458 <GVAL 'FINAL-LOCALS = TEMP34>
2459 <PUTREST CFLG7 TEMP34>
2461 <SETG 'FINAL-LOCALS FL11>
2465 <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE56>
2466 <GRTR? CNT8 0 + TAG58 (TYPE FIX)>
2470 <GEN-LVAL 'OUTCHAN = STACK>
2475 <GEN-LVAL 'OUTCHAN = STACK>
2478 <PUSH " flushed temporaries.">
2479 <GEN-LVAL 'OUTCHAN = STACK>
2482 <GEN-LVAL 'OUTCHAN = STACK>
2483 <CALL '
\1aCRLF 1 = TEMP34>
2487 <END
\1aFIXUP-LOCALS>
2489 <GFCN
\1aOCEMIT ("VALUE" <OR FALSE LIST STRING> "TUPLE" TUPLE)>
2490 <MAKTUP T5:TUPLE (LABEL6 %<>) TEMP10 Y38 X39 AC40 TEMP49 AC142 TEMP57 = T5>
2492 <LENUV T5 = TEMP10 (TYPE FIX)>
2493 <VEQUAL? TEMP10 1 - PHRASE8 (TYPE FIX)>
2495 <NTHUV T5 1 = TEMP10>
2496 <TYPE? TEMP10 <TYPE-CODE ATOM> - PHRASE8>
2499 <TYPE? TEMP10 <TYPE-CODE FALSE> + BOOL13>
2501 <GVAL 'PASS1 = TEMP10>
2502 <TYPE? TEMP10 <TYPE-CODE FALSE> - BOOL13>
2504 <FRAME '
\1aINDENT-TO>
2506 <CALL '
\1aINDENT-TO 1>
2508 <SET LABEL6 'T (TYPE ATOM)>
2512 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE15>
2514 <GVAL 'PASS1 = TEMP10>
2515 <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE15>
2518 <GEN-LVAL 'OUTCHAN = STACK>
2519 <CALL '
\1aM-HPOS 1 = TEMP10>
2520 <GRTR? TEMP10 45 - PHRASE18 (TYPE FIX)>
2523 <GEN-LVAL 'OUTCHAN = STACK>
2526 <FRAME '
\1aINDENT-TO>
2528 <CALL '
\1aINDENT-TO 1>
2530 <CHTYPE T5 <TYPE-CODE VECTOR> = TEMP10>
2534 <EMPUV? TEMP10 + MAPAP31>
2537 <TYPE? X39 <TYPE-CODE LIST> - PHRASE54>
2539 <NTHL X39 1 = STACK (TYPE ATOM)>
2540 <CALL '
\1aIS-AC? 1 = AC40>
2541 <TYPE? AC40 <TYPE-CODE FALSE> + PHRASE54>
2544 <CALL '
\1aGET-AC 1 = TEMP49>
2545 <VEQUAL? AC40 TEMP49 + BOOL47>
2547 <GVAL 'AC-STAMP = TEMP49>
2548 <ADD TEMP49 1 = TEMP49 (TYPE FIX)>
2549 <SETG 'AC-STAMP TEMP49>
2550 <PUTUV AC40 4 TEMP49 (TYPE FIX)>
2553 <NTHUV AC40 6 = TEMP49>
2554 <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE51>
2555 <FRAME '
\1aLOAD-TYPE-IN-AC>
2556 <NTHUV AC40 1 = STACK (TYPE ATOM)>
2559 <CALL '
\1aLOAD-TYPE-IN-AC 2>
2565 <CALL '
\1aGETPROP 2 = AC142>
2566 <TYPE? AC142 <TYPE-CODE FALSE> + PHRASE54>
2567 <NTHUV AC142 2 = TEMP49>
2568 <NTHUV AC40 2 = TEMP57>
2570 <EQUAL? TEMP49 TEMP57 - PHRASE54>
2571 <DEAD TEMP49 TEMP57>
2572 <GVAL 'AC-STAMP = TEMP57>
2573 <PUTUV AC142 4 TEMP57 (TYPE FIX)>
2576 <SET AC40 %<> (TYPE FALSE)>
2577 <TYPE? X39 <TYPE-CODE ATOM> - PHRASE59>
2580 <CALL '
\1aIS-AC? 1 = AC40>
2581 <TYPE? AC40 <TYPE-CODE FALSE> + PHRASE59>
2582 <NTHUV AC40 6 = TEMP49>
2583 <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE59>
2584 <FRAME '
\1aLOAD-TYPE-IN-AC>
2585 <NTHUV AC40 1 = STACK (TYPE ATOM)>
2588 <CALL '
\1aLOAD-TYPE-IN-AC 2>
2592 <TYPE? X39 <TYPE-CODE AC> - PHRASE65>
2594 <NTHUV AC40 1 = TEMP57 (TYPE ATOM)>
2595 <PUTUV Y38 1 TEMP57>
2597 <NTHUV X39 6 = TEMP49>
2598 <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE65>
2599 <FRAME '
\1aLOAD-TYPE-IN-AC>
2600 <NTHUV AC40 1 = STACK (TYPE ATOM)>
2603 <CALL '
\1aLOAD-TYPE-IN-AC 2>
2607 <TYPE? AC40 <TYPE-CODE FALSE> + PHRASE70>
2608 <GVAL 'AC-STAMP = TEMP57>
2609 <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
2610 <SETG 'AC-STAMP TEMP57>
2611 <PUTUV AC40 4 TEMP57 (TYPE FIX)>
2616 <CALL '
\1aGETPROP 2 = AC142>
2617 <TYPE? AC142 <TYPE-CODE FALSE> + PHRASE70>
2618 <NTHUV AC40 2 = TEMP57>
2620 <NTHUV AC142 2 = TEMP49>
2621 <EQUAL? TEMP57 TEMP49 - PHRASE70>
2623 <GVAL 'AC-STAMP = TEMP49>
2624 <PUTUV AC142 4 TEMP49 (TYPE FIX)>
2627 <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
2631 <TYPE? TEMP10 <TYPE-CODE FALSE> + MAPAP80>
2633 <GVAL 'PASS1 = TEMP10>
2634 <TYPE? TEMP10 <TYPE-CODE FALSE> - MAPAP80>
2636 <CHTYPE T5 <TYPE-CODE VECTOR> = TEMP10>
2640 <EMPUV? TEMP10 + MAPAP80>
2641 <NTHUV TEMP10 1 = X39>
2642 <TYPE? X39 <TYPE-CODE ATOM> - PHRASE85>
2646 <GEN-LVAL 'OUTCHAN = STACK>
2650 <TYPE? X39 <TYPE-CODE REF> - PHRASE89>
2653 <GEN-LVAL 'OUTCHAN = STACK>
2655 <NTHUV X39 1 = AC40>
2656 <TYPE? AC40 <TYPE-CODE ATOM> - PHRASE95>
2659 <NTHUV X39 1 = STACK (TYPE ATOM)>
2661 <GEN-LVAL 'OUTCHAN = STACK>
2666 <NTHUV X39 1 = STACK>
2668 <GEN-LVAL 'OUTCHAN = STACK>
2673 <GEN-LVAL 'OUTCHAN = STACK>
2677 <TYPE? X39 <TYPE-CODE LIST> - PHRASE109>
2680 <GEN-LVAL 'OUTCHAN = STACK>
2683 <TYPE? AC40 <TYPE-CODE ATOM> - PHRASE115>
2686 <NTHL X39 1 = STACK (TYPE ATOM)>
2688 <GEN-LVAL 'OUTCHAN = STACK>
2693 <NTHL X39 1 = STACK>
2695 <GEN-LVAL 'OUTCHAN = STACK>
2700 <GEN-LVAL 'OUTCHAN = STACK>
2707 <GEN-LVAL 'OUTCHAN = STACK>
2712 <GEN-LVAL 'OUTCHAN = STACK>
2714 <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
2717 <VEQUAL? LABEL6 0 + PHRASE139>
2720 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE145>
2721 <GVAL 'PASS1 = TEMP49>
2722 <TYPE? TEMP49 <TYPE-CODE FALSE> + TAG141>
2728 <GEN-LVAL 'OUTCHAN = STACK>
2729 <CALL '
\1aPRINC 2 = TEMP10>
2733 <GVAL 'PASS1 = LABEL6>
2734 <TYPE? LABEL6 <TYPE-CODE FALSE> + TAG146>
2739 <TYPE? LABEL6 <TYPE-CODE FALSE> + BOOL147>
2742 <GEN-LVAL 'OUTCHAN = STACK>
2746 <SET Y38 0 (TYPE FIX)>
2749 <LOOP (TEMP10 VALUE LENGTH) (Y38 VALUE)>
2752 <EMPUV? TEMP10 + TAG152>
2753 <NTHUV TEMP10 1 = STACK>
2754 <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
2755 <ADD Y38 1 = Y38 (TYPE FIX)>
2758 <UBLOCK <TYPE-CODE VECTOR> Y38 = TEMP10>
2760 <CHTYPE TEMP10 <TYPE-CODE INST> = TEMP10>
2761 <CONS TEMP10 () = TEMP10>
2762 <PUTREST LABEL6 TEMP10>
2770 <GFCN
\1aXEMIT ("VALUE" <OR FALSE STRING> "TUPLE" <TUPLE ATOM ATOM <OR FIX XTYPE-C REF>>)>
2771 <MAKTUP T5:TUPLE TEMP11 TEMP10 COD7 M6 TEMP22:FIX TEMP24:FIX TEMP25:FIX TEMP21 ITM47 TEMP51 TEMP56 TEMP61 TEMP67 TEMP71 TEMP76 TEMP81 TEMP87 TEMP91 TEMP96 TEMP100 = T5>
2773 <GVAL 'PASS1 = TEMP11>
2774 <TYPE? TEMP11 <TYPE-CODE FALSE> + TAG12>
2779 <TYPE? COD7 <TYPE-CODE FIX> - PHRASE14>
2780 <SET M6 [834 10 898 10 706 12 770 16 962 10] (TYPE VECTOR)>
2781 <LOOP (COD7 VALUE) (M6 LENGTH VALUE)>
2783 <NTHUV M6 1 = TEMP11>
2784 <VEQUAL? TEMP11 COD7 + TAG17>
2786 <RESTUV M6 1 = M6 (TYPE VECTOR)>
2789 <SET M6 %<> (TYPE FALSE)>
2791 <TYPE? M6 <TYPE-CODE FALSE> + PHRASE14>
2794 <NTHUV T5 2 = STACK (TYPE ATOM)>
2795 <SET TEMP22 2 (TYPE FIX)>
2797 <LSH COD7 18 = COD7 (TYPE FIX)>
2798 <NTHUV M6 2 = M6 (TYPE FIX)>
2799 <OR COD7 M6 = STACK>
2801 <SCALL '
\1aOBJ-VAL 1 = TEMP21 + TAG20 TEMP22>
2802 <LOOP (TEMP21 TYPE VALUE LENGTH) (TEMP22 VALUE)>
2805 <EMPTY? TEMP21 + TAG20>
2806 <NTH1 TEMP21 = STACK>
2807 <REST1 TEMP21 = TEMP21>
2808 <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
2812 <UBLOCK <TYPE-CODE VECTOR> TEMP22 = TEMP21>
2814 <CHTYPE TEMP21 <TYPE-CODE INST> = TEMP21>
2815 <CONS TEMP21 () = TEMP21>
2816 <PUTREST TEMP11 TEMP21>
2823 <SET TEMP25 0 (TYPE FIX)>
2825 <LOOP (TEMP11 VALUE LENGTH) (TEMP25 VALUE)>
2828 <EMPUV? TEMP11 + TAG29>
2829 <NTHUV TEMP11 1 = STACK>
2830 <RESTUV TEMP11 1 = TEMP11 (TYPE VECTOR)>
2831 <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
2835 <UBLOCK <TYPE-CODE VECTOR> TEMP25 = TEMP11>
2837 <CHTYPE TEMP11 <TYPE-CODE INST> = TEMP11>
2838 <CONS TEMP11 () = TEMP11>
2839 <PUTREST TEMP21 TEMP11>
2845 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE33>
2846 <FRAME '
\1aINDENT-TO>
2848 <CALL '
\1aINDENT-TO 1>
2851 <GEN-LVAL 'OUTCHAN = STACK>
2853 <CHTYPE T5 <TYPE-CODE VECTOR> = TEMP21>
2858 <EMPUV? TEMP21 + MAPAP42>
2859 <NTHUV TEMP21 1 = ITM47>
2860 <TYPE? ITM47 <TYPE-CODE ATOM> - PHRASE49>
2864 <GEN-LVAL 'OUTCHAN = STACK>
2868 <TYPE? ITM47 <TYPE-CODE REF> - PHRASE54>
2871 <GEN-LVAL 'OUTCHAN = STACK>
2873 <NTHUV ITM47 1 = TEMP61>
2874 <TYPE? TEMP61 <TYPE-CODE ATOM> - PHRASE60>
2877 <NTHUV ITM47 1 = STACK (TYPE ATOM)>
2879 <GEN-LVAL 'OUTCHAN = STACK>
2884 <NTHUV ITM47 1 = STACK>
2886 <GEN-LVAL 'OUTCHAN = STACK>
2891 <GEN-LVAL 'OUTCHAN = STACK>
2895 <TYPE? ITM47 <TYPE-CODE LIST> - PHRASE74>
2898 <GEN-LVAL 'OUTCHAN = STACK>
2900 <NTHL ITM47 1 = TEMP81>
2901 <TYPE? TEMP81 <TYPE-CODE ATOM> - PHRASE80>
2904 <NTHL ITM47 1 = STACK (TYPE ATOM)>
2906 <GEN-LVAL 'OUTCHAN = STACK>
2911 <NTHL ITM47 1 = STACK>
2913 <GEN-LVAL 'OUTCHAN = STACK>
2918 <GEN-LVAL 'OUTCHAN = STACK>
2925 <GEN-LVAL 'OUTCHAN = STACK>
2930 <GEN-LVAL 'OUTCHAN = STACK>
2932 <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
2937 <GEN-LVAL 'OUTCHAN = STACK>
2939 <FRAME '
\1aINDENT-TO>
2941 <CALL '
\1aINDENT-TO 1 = TEMP10>
2947 <GFCN
\1aCONST-LOC ("VALUE" ANY ANY ANY "OPTIONAL" ANY) ITM8 TYP9 NEWV10>
2948 <OPT-DISPATCH 2 %<> OPT6 OPT7>
2954 <EQUAL? TYP9 'TYPE - PHRASE12>
2956 <FRAME '
\1aTYPE-WORD>
2959 <CALL '
\1aTYPE 1 = STACK>
2960 <CALL '
\1aTYPE-WORD 1 = TEMP15>
2964 <TYPE? ITM8 <TYPE-CODE CONST-W-LOCAL> - PHRASE18>
2965 <FRAME '
\1aCONST-ADD>
2967 <CALL '
\1aCONST-ADD 1 = TEMP15>
2971 <FRAME '
\1aCONST-ADD>
2972 <CHTYPE ITM8 <TYPE-CODE CONSTANT> = ITM8>
2975 <CALL '
\1aCONST-ADD 1 = TEMP15>
2980 <GFCN
\1aCONST-ADD ("VALUE" <LIST REF> <OR CONSTANT CONST-W-LOCAL>) ITM5>
2981 <TEMP TEMP12 LS7:FIX HC8:FIX TEMP16 BUCK9:LIST INDX10:FIX CB27:CONSTANT-BUCKET TEM28 TEMP42 FCB11:CONSTANT-BUCKET>
2983 <GVAL 'CONSTSEQ = TEMP12>
2984 <ADD TEMP12 1 = LS7 (TYPE FIX)>
2986 <TYPE? ITM5 <TYPE-CODE CONSTANT> - PHRASE14>
2987 <CHTYPE ITM5 <TYPE-CODE FIX> = HC8>
2990 <NTHL ITM5 1 = TEMP12>
2991 <RESTL ITM5 1 = TEMP16 (TYPE LIST)>
2992 <NTHL TEMP16 1 = TEMP16>
2993 <XOR TEMP12 TEMP16 = HC8>
2994 <DEAD TEMP12 TEMP16>
2996 <GVAL 'CONSTANT-TABLE = TEMP16>
2997 <XOR HC8 #WORD *202622072311* = HC8>
2998 <MOD HC8 1001 = TEMP12 (TYPE FIX)>
2999 <ADD TEMP12 1 = INDX10 (TYPE FIX)>
3001 <NTHUV TEMP16 INDX10 = BUCK9 (TYPE LIST)>
3003 <SET TEMP12 %<> (TYPE FALSE)>
3004 <SET TEMP16 BUCK9 (TYPE LIST)>
3008 <EMPL? TEMP16 + MAPAP22>
3009 <NTHL TEMP16 1 = CB27>
3010 <NTHUV CB27 2 = TEMP12 (TYPE FIX)>
3011 <VEQUAL? HC8 TEMP12 + TAG33 (TYPE FIX)>
3013 <SET TEMP12 %<> (TYPE FALSE)>
3016 <TYPE? ITM5 <TYPE-CODE CONSTANT> - BOOL35>
3017 <NTHUV CB27 1 = TEMP12>
3018 <EQUAL? TEMP12 ITM5 + TAG43>
3021 <TYPE? ITM5 <TYPE-CODE CONST-W-LOCAL> + TAG37>
3022 <SET TEMP12 %<> (TYPE FALSE)>
3025 <NTHUV CB27 1 = TEM28>
3026 <TYPE? TEM28 <TYPE-CODE CONST-W-LOCAL> + TAG39>
3027 <SET TEMP12 %<> (TYPE FALSE)>
3030 <NTHL TEM28 1 = TEMP12>
3031 <NTHL ITM5 1 = TEMP42>
3032 <EQUAL? TEMP12 TEMP42 + TAG41>
3033 <DEAD TEMP12 TEMP42>
3034 <SET TEMP12 %<> (TYPE FALSE)>
3037 <RESTL TEM28 1 = TEMP42 (TYPE LIST)>
3039 <NTHL TEMP42 1 = TEMP42>
3040 <RESTL ITM5 1 = TEMP12 (TYPE LIST)>
3041 <NTHL TEMP12 1 = TEMP12>
3042 <EQUAL? TEMP42 TEMP12 + TAG43>
3044 <SET TEMP12 %<> (TYPE FALSE)>
3049 <SET TEMP12 'T (TYPE ATOM)>
3052 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
3055 <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE44>
3061 <SETG 'CONSTSEQ LS7>
3062 <CHTYPE LS7 <TYPE-CODE CONSTANT-LABEL> = STACK>
3065 <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP12>
3066 <CHTYPE TEMP12 <TYPE-CODE CONSTANT-BUCKET> = FCB11>
3068 <GVAL 'CONSTANT-VECTOR = TEMP12>
3069 <CONS FCB11 TEMP12 = TEMP12>
3070 <SETG 'CONSTANT-VECTOR TEMP12>
3072 <CONS FCB11 BUCK9 = TEMP12>
3074 <GVAL 'CONSTANT-TABLE = TEMP16>
3075 <PUTUV TEMP16 INDX10 TEMP12 (TYPE LIST)>
3076 <DEAD TEMP16 INDX10 TEMP12>
3080 <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP16>
3081 <CHTYPE TEMP16 <TYPE-CODE REF> = TEMP16>
3082 <CONS TEMP16 () = TEMP16>
3087 <GFCN
\1aCONST-ADD-FRM ("VALUE" <LIST [REST CONSTANT-BUCKET]>)>
3088 <TEMP TEMP7 CB5:CONSTANT-BUCKET TEMP8:LIST>
3092 <GVAL 'CONSTSEQ = TEMP7>
3093 <ADD TEMP7 1 = TEMP7 (TYPE FIX)>
3094 <SETG 'CONSTSEQ TEMP7>
3095 <CHTYPE TEMP7 <TYPE-CODE CONSTANT-LABEL> = STACK>
3098 <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP7>
3099 <CHTYPE TEMP7 <TYPE-CODE CONSTANT-BUCKET> = CB5>
3101 <CONS CB5 () = TEMP7>
3102 <GVAL 'CONSTANT-VECTOR = TEMP8>
3103 <PUTREST TEMP7 TEMP8>
3105 <SETG 'CONSTANT-VECTOR TEMP7>
3107 <GVAL 'FREE-CONSTS = TEMP8>
3108 <CONS CB5 TEMP8 = TEMP8>
3110 <SETG 'FREE-CONSTS TEMP8>
3113 <END
\1aCONST-ADD-FRM>
3115 <GFCN
\1aOBJ-LOC ("VALUE" <LIST FIX <OR LOCAL-NAME !<LIST ATOM>>> ANY FIX) ITM5 OFF6>
3118 <TYPE? ITM5 <TYPE-CODE ATOM> - PHRASE11>
3121 <GVAL 'LOCALS = STACK>
3122 <CALL '
\1aLMEMQ 2 = LCL9>
3123 <VEQUAL? LCL9 0 - BOOL14>
3124 <GVAL 'ICALL-FLAG = LCL9>
3125 <TYPE? LCL9 <TYPE-CODE FALSE> + BOOL14>
3129 <GVAL 'ICALL-TEMPS = STACK>
3130 <CALL '
\1aLMEMQ 2 = LCL9>
3132 <GVAL 'WINNING-VICTIM = TEMP18>
3133 <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE17>
3135 <SET TEMP18 (TP*) (TYPE LIST)>
3138 <SET TEMP18 (F*) (TYPE LIST)>
3140 <CONS TEMP18 () = TEMP18>
3141 <NTHUV LCL9 3 = LCL9 (TYPE LOCAL-NAME)>
3142 <CONS LCL9 TEMP18 = TEMP18>
3144 <GVAL 'STACK-DEPTH = LCL9>
3145 <SUB OFF6 LCL9 = LCL9 (TYPE FIX)>
3147 <CONS LCL9 TEMP18 = TEMP18>
3155 <CALL '
\1aMVADD 1 = LCL9>
3156 <ADD LCL9 1 = LCL9 (TYPE FIX)>
3157 <LSH LCL9 1 = LCL9 (TYPE FIX)>
3158 <CONS (M*) () = TEMP18>
3159 <ADD OFF6 LCL9 = LCL9 (TYPE FIX)>
3161 <CONS LCL9 TEMP18 = TEMP18>
3167 <GFCN
\1aALLOCATE-CONSTANTS ("VALUE" <OR FALSE FIX> LIST FIX) CV5 START6>
3168 <TEMP TEMP16 TEMP13:LIST>
3170 <SET TEMP16 %<> (TYPE FALSE)>
3171 <SET TEMP13 CV5 (TYPE LIST)>
3176 <EMPL? TEMP13 + MAPAP11>
3177 <NTHL TEMP13 1 = TEMP16>
3178 <PUTUV TEMP16 4 START6 (TYPE FIX)>
3180 <ADD START6 1 = START6 (TYPE FIX)>
3182 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
3187 <END
\1aALLOCATE-CONSTANTS>
3189 <GFCN
\1aFIXUP-CONSTANTS ("VALUE" ANY LIST) C5>
3190 <TEMP (N6:FIX 0) TEMP16 TEMP13:LIST CP18:LIST TEMP27 X21 TEMP35:FIX>
3192 <SET TEMP16 %<> (TYPE FALSE)>
3193 <SET TEMP13 C5 (TYPE LIST)>
3198 <EMPL? TEMP13 + MAPAP11>
3200 <NTHL CP18 1 = TEMP16>
3201 <TYPE? TEMP16 <TYPE-CODE INST> + TAG25>
3202 <SET TEMP16 %<> (TYPE FALSE)>
3205 <ADD N6 1 = N6 (TYPE FIX)>
3206 <LENUV TEMP16 = TEMP27 (TYPE FIX)>
3207 <NTHUV TEMP16 TEMP27 = TEMP27>
3208 <TYPE? TEMP27 <TYPE-CODE REF> + TAG28>
3209 <SET TEMP16 %<> (TYPE FALSE)>
3212 <NTHUV TEMP27 1 = X21>
3214 <TYPE? X21 <TYPE-CODE CONSTANT-BUCKET> + PHRASE31>
3215 <FRAME '
\1aMIMOCERR>
3216 <PUSH 'BAD-REF-IN-CODE!-ERRORS>
3219 <CALL '
\1aMIMOCERR 2 = TEMP16>
3222 <GVAL 'MAX-SPACE = TEMP27>
3223 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE33>
3225 <CONS X21 () = TEMP27>
3227 <CONS N6 TEMP27 = STACK>
3229 <SET TEMP35 1 (TYPE FIX)>
3230 <GVAL 'GREFS = TEMP27>
3233 <VEQUAL? X21 1 + TAG37>
3235 <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP35 VALUE)>
3238 <EMPTY? TEMP27 + TAG42>
3239 <NTH1 TEMP27 = STACK>
3240 <REST1 TEMP27 = TEMP27>
3241 <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
3244 <LIST TEMP35 = TEMP27 (TYPE LIST)>
3250 <VEQUAL? TEMP35 0 + TAG39>
3252 <CONS X21 TEMP27 = TEMP27 (TYPE LIST)>
3254 <SUB TEMP35 1 = TEMP35 (TYPE FIX)>
3258 <SETG 'GREFS TEMP27>
3260 <NTHUV TEMP16 1 = STACK>
3261 <NTHUV TEMP16 2 = STACK>
3265 <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP27>
3266 <CHTYPE TEMP27 <TYPE-CODE INST> = TEMP27>
3267 <PUTL CP18 1 TEMP27>
3273 <NTHUV TEMP16 1 = STACK>
3274 <NTHUV TEMP16 2 = STACK>
3276 <NTHUV X21 4 = STACK (TYPE FIX)>
3279 <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP27>
3280 <CHTYPE TEMP27 <TYPE-CODE INST> = TEMP27>
3281 <PUTL CP18 1 TEMP27>
3286 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
3291 <END
\1aFIXUP-CONSTANTS>
3293 <GFCN
\1aOBJ-VAL ("VALUE" ANY ANY "OPTIONAL" <OR FALSE ATOM>) ITM8 AC?9>
3294 <OPT-DISPATCH 1 %<> OPT6 OPT7>
3298 <TEMP AC10 TEMP15 TEMP18:ATOM>
3300 <TYPE? AC?9 <TYPE-CODE FALSE> + PHRASE12>
3305 <CALL '
\1aIN-AC? 2 = AC10>
3306 <TYPE? AC10 <TYPE-CODE FALSE> + PHRASE12>
3307 <CONS AC10 () = AC10>
3311 <FRAME '
\1aPRIMTYPE>
3313 <CALL '
\1aPRIMTYPE 1 = TEMP18>
3314 <VEQUAL? TEMP18 'FIX - PHRASE16>
3316 <FRAME '
\1aCONST-LOC>
3317 <CHTYPE ITM8 <TYPE-CODE CONSTANT> = STACK>
3319 <CALL '
\1aCONST-LOC 2 = TEMP15>
3323 <TYPE? ITM8 <TYPE-CODE CONST-W-LOCAL> - PHRASE20>
3324 <FRAME '
\1aCONST-LOC>
3327 <CALL '
\1aCONST-LOC 2 = TEMP15>
3335 <CALL '
\1aOBJ-LOC 2 = TEMP15>
3340 <GFCN
\1aOBJ-TYP ("VALUE" ANY ANY) ITM5>
3341 <TEMP AC6 TEMP10 TEMP14:ATOM TEMP19:VECTOR TEMP20>
3346 <CALL '
\1aIN-AC? 2 = AC6>
3347 <TYPE? AC6 <TYPE-CODE FALSE> + PHRASE8>
3352 <FRAME '
\1aPRIMTYPE>
3354 <CALL '
\1aPRIMTYPE 1 = TEMP14>
3355 <VEQUAL? TEMP14 'FIX - PHRASE11>
3359 <CALL '
\1aTYPE 1 = TEMP14>
3360 <GVAL 'TYPE-WORDS = TEMP19>
3361 <EMPUV? TEMP19 + PHRASE11>
3362 <LOOP (TEMP14 VALUE) (TEMP19 LENGTH VALUE)>
3364 <NTHUV TEMP19 1 = TEMP20>
3365 <TYPE? TEMP20 <TYPE-CODE ATOM> - TAG17>
3366 <VEQUAL? TEMP20 TEMP14 + TAG15>
3369 <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
3370 <EMPUV? TEMP19 - TAG16>
3371 <DEAD TEMP14 TEMP19>
3374 <FRAME '
\1aCONST-LOC>
3377 <CALL '
\1aCONST-LOC 2 = TEMP10>
3385 <CALL '
\1aOBJ-LOC 2 = TEMP10>
3390 <GFCN
\1aXJUMP ("VALUE" REF ANY) TAG5>
3391 <TEMP TEMP10 TEMP11 X6>
3393 <NTHR TAG5 4 = TEMP10 (RECORD-TYPE ATOM)>
3394 <GVAL 'LABEL-OBLIST = TEMP11>
3395 <EQUAL? TEMP10 TEMP11 + PHRASE8>
3396 <DEAD TEMP11 TEMP10>
3398 <NTHR TAG5 3 = STACK (RECORD-TYPE ATOM)>
3399 <GVAL 'LABEL-OBLIST = STACK>
3400 <CALL '
\1aLOOKUP 2 = X6>
3401 <TYPE? X6 <TYPE-CODE FALSE> + PHRASE8>
3407 <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP11>
3408 <CHTYPE TEMP11 <TYPE-CODE REF> = TEMP11>
3413 <GFCN
\1aDEAD!-MIMOC ("VALUE" <OR FALSE AC> <LIST [REST ATOM]> "OPTIONAL" <OR FALSE ATOM> ANY) LCLS10 PRED?11 NO-TY12>
3414 <OPT-DISPATCH 1 %<> OPT7 OPT8 OPT9>
3420 <TEMP TEMP15 TEMP26:VECTOR AC27:AC ITM28 TEMP37>
3422 <GVAL 'DEATH-TRQ = TEMP15>
3423 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE14>
3425 <SET NO-TY12 'T (TYPE ATOM)>
3427 <SET TEMP15 %<> (TYPE FALSE)>
3428 <GVAL 'AC-TABLE = TEMP26>
3432 <EMPUV? TEMP26 + MAPAP20>
3433 <NTHUV TEMP26 1 = AC27>
3434 <NTHUV AC27 2 = ITM28>
3436 <TYPE? ITM28 <TYPE-CODE ATOM> - TAG33>
3437 <EMPL? TEMP15 + TAG33>
3438 <LOOP (ITM28 VALUE) (TEMP15 VALUE)>
3440 <NTHL TEMP15 1 = TEMP37>
3441 <VEQUAL? TEMP37 ITM28 + TAG34>
3443 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
3444 <EMPL? TEMP15 - TAG35>
3446 <SET TEMP15 %<> (TYPE FALSE)>
3450 <NTHUV AC27 2 = STACK (TYPE ATOM)>
3451 <GVAL 'LOCALS = STACK>
3452 <CALL '
\1aLMEMQ 2 = TEMP37>
3453 <VEQUAL? TEMP37 0 - BOOL40>
3454 <GVAL 'ICALL-FLAG = TEMP37>
3455 <TYPE? TEMP37 <TYPE-CODE FALSE> + BOOL40>
3457 <NTHUV AC27 2 = STACK (TYPE ATOM)>
3458 <GVAL 'ICALL-TEMPS = STACK>
3459 <CALL '
\1aLMEMQ 2 = TEMP37>
3461 <PUTUV TEMP37 5 %<>>
3462 <PUTUV TEMP37 6 %<>>
3464 <NTHUV AC27 6 = TEMP15>
3465 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE45>
3466 <TYPE? NO-TY12 <TYPE-CODE FALSE> - PHRASE45>
3467 <FRAME '
\1aLOAD-TYPE-IN-AC>
3468 <NTHUV AC27 1 = STACK (TYPE ATOM)>
3471 <CALL '
\1aLOAD-TYPE-IN-AC 2>
3475 <TYPE? PRED?11 <TYPE-CODE FALSE> + TAG49>
3476 <SET TEMP15 %<> (TYPE FALSE)>
3479 <PUTUV AC27 3 'DUMMY (TYPE ATOM)>
3481 <PUTUV AC27 4 0 (TYPE FIX)>
3485 <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
3490 <END
\1aDEAD!-MIMOC>
3491 <COND (<NOT <GASSIGNED? LBLSEQ>> <SETG CONSTSEQ <SETG LBLSEQ 0>>)>
3494 <GFCN
\1aGENLBL ("VALUE" ANY STRING) STR5>
3500 <GVAL 'LBLSEQ = TEMP8>
3501 <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
3502 <SETG 'LBLSEQ TEMP8>
3505 <CALL '
\1aUNPARSE 1 = STACK>
3506 <UBLOCK <TYPE-CODE STRING> 2 = STR5 (TYPE STRING)>
3509 <GVAL 'LABEL-OBLIST = STACK>
3510 <CALL '
\1aLOOKUP 2 = TEMP8>
3511 <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL9>
3515 <GVAL 'LABEL-OBLIST = STACK>
3516 <CALL '
\1aINSERT 2 = TEMP8>
3522 <GFCN
\1aLABEL ("VALUE" ANY ATOM "OPTIONAL" <OR FALSE FIX> ANY) NAM10 IND11 CP12>
3523 <OPT-DISPATCH 1 %<> OPT7 OPT8 OPT9>
3529 <TEMP (LB13 %<>) TEMP17 TEMP24:LIST>
3531 <FRAME '
\1aFIND-LABEL>
3533 <CALL '
\1aFIND-LABEL 1 = LB13>
3534 <GVAL 'PASS1 = TEMP17>
3535 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE16>
3537 <TYPE? LB13 <TYPE-CODE FALSE> - PHRASE19>
3538 <FRAME '
\1aMAKE-LABEL>
3545 <CALL '
\1aMAKE-LABEL 3 = LB13>
3548 <TYPE? IND11 <TYPE-CODE FALSE> + PHRASE21>
3549 <PUTUV LB13 2 IND11>
3552 <GVAL 'NEXT-LOOP = TEMP17>
3553 <PUTUV LB13 3 TEMP17>
3559 <CONS NAM10 () = TEMP24>
3560 <PUTREST TEMP17 TEMP24>
3572 <GFCN
\1aMAKE-LABEL ("VALUE" LAB ANY ANY ANY "OPTIONAL" ANY) NAM8 IND9 CP10 NL11>
3573 <OPT-DISPATCH 3 %<> OPT6 OPT7>
3577 <TEMP TEMP14 LB12:LAB TEMP15:LIST>
3590 <UBLOCK <TYPE-CODE VECTOR> 8 = TEMP14>
3591 <CHTYPE TEMP14 <TYPE-CODE LAB> = LB12>
3593 <CONS LB12 () = TEMP14>
3594 <GVAL 'LABELS = TEMP15>
3595 <PUTREST TEMP14 TEMP15>
3597 <SETG 'LABELS TEMP14>
3599 <NTHR NAM8 1 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG16)>
3600 <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG16>
3601 <PUTR TEMP14 1 LB12 (RECORD-TYPE GBIND)>
3610 <CALL '
\1aSETG 2 = LB12>
3615 <GFCN
\1aLONG-FIND-LABEL ("VALUE" <OR FALSE LAB> ANY <LIST [REST LAB]>) NAM5 LBLS6>
3616 <TEMP TEMP16 TEMP13:LIST TEMP22:ATOM>
3618 <SET TEMP16 %<> (TYPE FALSE)>
3619 <SET TEMP13 LBLS6 (TYPE LIST)>
3624 <EMPL? TEMP13 + MAPAP11>
3625 <NTHL TEMP13 1 = TEMP16>
3626 <NTHUV TEMP16 1 = TEMP22 (TYPE ATOM)>
3627 <EQUAL? TEMP22 NAM5 + TAG21>
3629 <SET TEMP16 %<> (TYPE FALSE)>
3635 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
3640 <END
\1aLONG-FIND-LABEL>
3642 <GFCN
\1aFIND-LABEL ("VALUE" ANY ANY) NAM5>
3645 <NTHR NAM5 1 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG10)>
3646 <TYPE? TEMP11 <TYPE-CODE FALSE> + TAG10>
3647 <NTHR TEMP11 1 = TEMP11 (RECORD-TYPE GBIND)>
3648 <TYPE? TEMP11 <TYPE-CODE UNBOUND> - TAG9>
3658 <GFCN
\1aTYPE-CODE ("VALUE" ANY ATOM "OPTIONAL" ANY) TYP8 LS9>
3659 <OPT-DISPATCH 1 %<> OPT6 OPT7>
3663 <TEMP L10 TEMP17 TEMP22>
3665 <GVAL 'TYPE-WORDS = L10>
3666 <EMPUV? L10 + TAG13>
3667 <LOOP (TYP8 VALUE) (L10 LENGTH VALUE)>
3669 <NTHUV L10 1 = TEMP17>
3670 <TYPE? TEMP17 <TYPE-CODE ATOM> - TAG16>
3671 <VEQUAL? TEMP17 TYP8 + TAG14>
3674 <RESTUV L10 1 = L10 (TYPE VECTOR)>
3675 <EMPUV? L10 - TAG15>
3678 <SET L10 %<> (TYPE FALSE)>
3680 <TYPE? L10 <TYPE-CODE FALSE> + PHRASE12>
3681 <TYPE? LS9 <TYPE-CODE FALSE> + PHRASE19>
3683 <NTHUV L10 2 = TEMP17>
3684 <CONS TEMP17 () = TEMP17>
3692 <NTHR TYP8 5 = TEMP22 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE21)>
3693 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE21>
3695 <TYPE? LS9 <TYPE-CODE FALSE> + PHRASE24>
3698 <CHTYPE TYP8 <TYPE-CODE XTYPE-C> = STACK>
3700 <CALL '
\1aOBJ-LOC 2 = TEMP22>
3701 <CONS '@ TEMP22 = TEMP22>
3705 <CHTYPE TYP8 <TYPE-CODE XTYPE-C> = TEMP17>
3709 <FRAME '
\1aMIMOCERR>
3710 <PUSH 'UNDEFINED-TYPE!-ERRORS>
3713 <CALL '
\1aMIMOCERR 2 = TEMP17>
3718 <GFCN
\1aTYPE-WORD ("VALUE" ANY ATOM) TYP5>
3719 <TEMP L6 TEMP15 VAL7:CONSTANT M8 TEMP22>
3721 <GVAL 'TYPE-WORDS = L6>
3723 <LOOP (TYP5 VALUE) (L6 LENGTH VALUE)>
3725 <NTHUV L6 1 = TEMP15>
3726 <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG14>
3727 <VEQUAL? TEMP15 TYP5 + TAG12>
3730 <RESTUV L6 1 = L6 (TYPE VECTOR)>
3734 <SET L6 %<> (TYPE FALSE)>
3736 <TYPE? L6 <TYPE-CODE FALSE> + PHRASE10>
3737 <NTHUV L6 2 = L6 (TYPE FIX)>
3738 <LSH L6 18 = L6 (TYPE FIX)>
3739 <CHTYPE L6 <TYPE-CODE CONSTANT> = L6>
3740 <GVAL 'TYPE-LENGTHS = M8>
3742 <LOOP (TYP5 VALUE) (M8 LENGTH VALUE)>
3744 <NTHUV M8 1 = TEMP15>
3745 <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG21>
3746 <VEQUAL? TEMP15 TYP5 + TAG19>
3749 <RESTUV M8 1 = M8 (TYPE VECTOR)>
3753 <SET M8 %<> (TYPE FALSE)>
3755 <TYPE? M8 <TYPE-CODE FALSE> + PHRASE17>
3756 <NTHUV M8 2 = M8 (TYPE FIX)>
3759 <CHTYPE L6 <TYPE-CODE CONSTANT> = L6>
3761 <FRAME '
\1aCONST-ADD>
3763 <CALL '
\1aCONST-ADD 1>
3764 <FRAME '
\1aCONST-LOC>
3768 <CALL '
\1aCONST-LOC 2 = TEMP22>
3772 <NTHR TYP5 5 = TEMP15 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE25)>
3773 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE25>
3776 <CHTYPE TYP5 <TYPE-CODE XTYPE-W> = STACK>
3778 <CALL '
\1aOBJ-LOC 2 = TEMP22>
3782 <FRAME '
\1aMIMOCERR>
3783 <PUSH 'CANT-TYPE-WORD!-ERRORS>
3786 <CALL '
\1aMIMOCERR 2 = TEMP22>
3791 <GFCN
\1aPUSHJ ("VALUE" <OR AC FALSE FIX> ATOM "OPTIONAL" <OR ATOM FALSE> ANY ANY) NAM12 VAL13 TAG14 TYP15>
3792 <OPT-DISPATCH 1 %<> OPT8 OPT9 OPT10 OPT11>
3800 <TEMP OC17:FIX TEMP35 TEMP34>
3805 <CALL '
\1aOPCODE 1 = OC17>
3806 <FRAME '
\1aFLUSH-ACS>
3807 <CALL '
\1aFLUSH-ACS 0>
3808 <GRTR? OC17 0 - PHRASE21 (TYPE FIX)>
3822 <SUB 0 OC17 = STACK (TYPE FIX)>
3826 <TYPE? TAG14 <TYPE-CODE FALSE> + PHRASE28>
3832 <CALL '
\1aXJUMP 1 = STACK>
3835 <TYPE? TYP15 <TYPE-CODE FALSE> + PHRASE32>
3839 <SET TEMP35 2 (TYPE FIX)>
3844 <SCALL '
\1aTYPE-CODE 2 = TEMP34 + TAG33 TEMP35>
3845 <LOOP (TEMP34 TYPE VALUE LENGTH) (TEMP35 VALUE)>
3848 <EMPTY? TEMP34 + TAG33>
3849 <NTH1 TEMP34 = STACK>
3850 <REST1 TEMP34 = TEMP34>
3851 <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
3855 <CALL '
\1aOCEMIT TEMP35>
3858 <FRAME '
\1aPUSHJ-VAL>
3861 <CALL '
\1aPUSHJ-VAL 1 = TEMP35>
3866 <GFCN
\1aPUSHJ-VAL ("VALUE" <OR FALSE FIX AC> <OR FALSE ATOM>) VAL5>
3867 <TEMP TEMP13 AC6:AC>
3869 <EQUAL? VAL5 'STACK - PHRASE8>
3880 <GVAL 'WINNING-VICTIM = TEMP13>
3881 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE15>
3882 <GVAL 'STACK-DEPTH = TEMP13>
3883 <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
3884 <SETG 'STACK-DEPTH TEMP13>
3889 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE15>
3892 <CALL '
\1aGET-AC 1 = AC6>
3894 <PUTUV AC6 3 'TYPE (TYPE ATOM)>
3896 <GVAL 'AC-STAMP = TEMP13>
3897 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
3898 <SETG 'AC-STAMP TEMP13>
3899 <PUTUV AC6 4 TEMP13 (TYPE FIX)>
3903 <CALL '
\1aGET-AC 1 = AC6>
3906 <PUTUV AC6 3 'VALUE (TYPE ATOM)>
3908 <GVAL 'AC-STAMP = TEMP13>
3909 <PUTUV AC6 4 TEMP13 (TYPE FIX)>
3917 <SETG MIMOC-OBLIST <MOBLIST MIMOC 51>>
3919 <SETG EVALABLES '[TYPE-CODE TYPE-WORD]>
3921 <GDECL (EVALABLES) VECTOR>
3924 <GFCN
\1aOC ("VALUE" ANY FORM ANY) FRM5 OBLIST6>
3925 <TEMP TEMP4:LBIND (EVF8 %<>) TEMP10 TEMP20:LIST L25:LIST ITM26 TEMP33 TEMP34 TEMP35 TEMP36 TEMP23 ATM7 TEMP21 L54:LIST>
3927 <GETS 'BIND = TEMP4 (TYPE LBIND)>
3928 <BBIND 'OBLIST 'ANY %<> OBLIST6>
3931 <GVAL 'PASS1 = TEMP10>
3932 <TYPE? TEMP10 <TYPE-CODE FALSE> - BOOL9>
3935 <TYPE? TEMP10 <TYPE-CODE FALSE> + BOOL9>
3939 <GEN-LVAL 'OUTCHAN = STACK>
3942 <CHTYPE FRM5 <TYPE-CODE LIST> = TEMP20>
3946 <EMPL? TEMP20 + MAPAP18>
3948 <NTHL L25 1 = ITM26>
3949 <TYPE? ITM26 <TYPE-CODE FORM> - PHRASE28>
3950 <EMPL? ITM26 + PHRASE28 (TYPE FORM)>
3951 <NTHL ITM26 1 = TEMP33>
3952 <GVAL 'EVALABLES = TEMP34>
3953 <TYPE TEMP33 = TEMP35>
3954 <EMPUV? TEMP34 + PHRASE28>
3955 <LOOP (TEMP33 VALUE) (TEMP35 VALUE) (TEMP34 LENGTH VALUE)>
3957 <NTHUV TEMP34 1 = TEMP36>
3958 <TYPE? TEMP36 TEMP35 - TAG32>
3959 <VEQUAL? TEMP36 TEMP33 + TAG30>
3962 <RESTUV TEMP34 1 = TEMP34 (TYPE VECTOR)>
3963 <EMPUV? TEMP34 - TAG31>
3964 <DEAD ITM26 L25 TEMP33 TEMP34 TEMP35>
3969 <CALL '
\1aEVAL 1 = TEMP34>
3978 <CALL '
\1aPUTPROP 3>
3979 <SET EVF8 'T (TYPE ATOM)>
3981 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
3986 <NTHL FRM5 1 = TEMP23 (TYPE ATOM)>
3987 <NTHR TEMP23 3 = STACK (RECORD-TYPE ATOM)>
3989 <GVAL 'MIMOC-OBLIST = STACK>
3990 <CALL '
\1aLOOKUP 2 = ATM7>
3991 <TYPE? ATM7 <TYPE-CODE FALSE> + PHRASE40>
3994 <RESTL FRM5 1 = TEMP20 (TYPE LIST)>
3995 <CHTYPE TEMP20 <TYPE-CODE LIST> = STACK>
4001 <VEQUAL? TEMP23 0 + PHRASE56>
4002 <GVAL 'PASS1 = TEMP21>
4003 <TYPE? TEMP21 <TYPE-CODE FALSE> + TAG46>
4005 <SET TEMP23 %<> (TYPE FALSE)>
4008 <SET TEMP33 %<> (TYPE FALSE)>
4009 <CHTYPE FRM5 <TYPE-CODE LIST> = TEMP21>
4014 <EMPL? TEMP21 + MAPAP51>
4018 <CALL '
\1aPUTPROP 2 = TEMP33>
4019 <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
4027 <FRAME '
\1aMIMOCERR>
4028 <PUSH 'CANT-OPEN-COMPILE!-ERRORS>
4031 <CALL '
\1aMIMOCERR 2 = TEMP23>
4040 <GFCN
\1aLOCATION!-MIMOC ("VALUE" <OR FALSE LIST STRING> LIST) L5>
4041 <TEMP TEMP8 NAC6:ATOM TEMP20:FIX TEMP26>
4043 <FRAME '
\1aASSIGN-AC>
4044 <RESTL L5 1 = TEMP8 (TYPE LIST)>
4045 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
4046 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
4047 <NTHL TEMP8 1 = STACK>
4050 <CALL '
\1aASSIGN-AC 2 = NAC6>
4053 <CALL '
\1aGET-AC 1 = TEMP8>
4054 <PUTUV TEMP8 6 'FIX>
4056 <GVAL 'GLUE-MODE = TEMP8>
4057 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE11>
4063 <CALL '
\1aNEXT-AC 1 = STACK>
4072 <CALL '
\1aNEXT-AC 1 = STACK>
4077 <GVAL 'PASS1 = TEMP8>
4078 <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE18>
4081 <NTH1 TEMP8 = STACK>
4083 <RESTL L5 1 = TEMP8 (TYPE LIST)>
4085 <NTHL TEMP8 1 = STACK>
4087 <SET TEMP20 2 (TYPE FIX)>
4088 <GVAL 'LOCATIONS = TEMP8>
4089 <TYPE TEMP8 = TEMP26>
4090 <AND TEMP26 7 = TEMP26>
4091 <VEQUAL? TEMP26 1 + TAG22>
4093 <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP20 VALUE)>
4096 <EMPTY? TEMP8 + TAG27>
4097 <NTH1 TEMP8 = STACK>
4098 <REST1 TEMP8 = TEMP8>
4099 <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
4102 <LIST TEMP20 = TEMP8 (TYPE LIST)>
4108 <VEQUAL? TEMP20 0 + TAG24>
4110 <CONS TEMP26 TEMP8 = TEMP8 (TYPE LIST)>
4112 <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
4116 <SETG 'LOCATIONS TEMP8>
4119 <GVAL 'GLUE-MODE = TEMP26>
4120 <TYPE? TEMP26 <TYPE-CODE FALSE> + TAG31>
4129 <CALL '
\1aNEXT-AC 1 = STACK>
4131 <CALL '
\1aOCEMIT 3 = TEMP8>
4134 <END
\1aLOCATION!-MIMOC>
4136 <GFCN
\1aLOCATION-CHECK ("VALUE" ATOM)>
4137 <TEMP O8 TEMP13:INST TEMP15>
4139 <GVAL 'LOCATIONS = O8>
4143 <EMPL? O8 - PHRASE11 (TYPE LIST)>
4146 <NTHL O8 1 = TEMP13 (TYPE INST)>
4147 <FRAME '
\1aFIND-LABEL>
4148 <RESTL O8 1 = TEMP15 (TYPE LIST)>
4149 <NTHL TEMP15 1 = STACK (TYPE ATOM)>
4151 <CALL '
\1aFIND-LABEL 1 = TEMP15>
4152 <NTHUV TEMP15 2 = TEMP15>
4153 <PUTUV TEMP13 3 TEMP15>
4154 <DEAD TEMP13 TEMP15>
4155 <RESTL O8 1 = O8 (TYPE LIST)>
4156 <RESTL O8 1 = O8 (TYPE LIST)>
4158 <END
\1aLOCATION-CHECK>
4160 <GFCN
\1aLOAD-TYPE-IN-AC ("VALUE" <OR FALSE STRING> ANY ANY) ACNAM5 TYP6>
4161 <TEMP TEMP12 TEMP13 TEMP14>
4163 <GVAL 'TYPE-LENGTHS = TEMP12>
4164 <TYPE TYP6 = TEMP13>
4165 <EMPUV? TEMP12 + PHRASE8>
4166 <LOOP (TYP6 VALUE) (TEMP13 VALUE) (TEMP12 LENGTH VALUE)>
4168 <NTHUV TEMP12 1 = TEMP14>
4169 <TYPE? TEMP14 TEMP13 - TAG11>
4170 <VEQUAL? TEMP14 TYP6 + TAG9>
4173 <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
4174 <EMPUV? TEMP12 - TAG10>
4175 <DEAD TEMP12 TEMP13>
4182 <SET TEMP13 2 (TYPE FIX)>
4186 <SCALL '
\1aTYPE-WORD 1 = TEMP12 + TAG15 TEMP13>
4187 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP13 VALUE)>
4190 <EMPTY? TEMP12 + TAG15>
4191 <NTH1 TEMP12 = STACK>
4192 <REST1 TEMP12 = TEMP12>
4193 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
4197 <CALL '
\1aXEMIT TEMP13 = TEMP13>
4205 <SET TEMP14 2 (TYPE FIX)>
4210 <SCALL '
\1aTYPE-CODE 2 = TEMP12 + TAG20 TEMP14>
4211 <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP14 VALUE)>
4214 <EMPTY? TEMP12 + TAG20>
4215 <NTH1 TEMP12 = STACK>
4216 <REST1 TEMP12 = TEMP12>
4217 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
4221 <CALL '
\1aXEMIT TEMP14 = TEMP14>
4224 <END
\1aLOAD-TYPE-IN-AC>
4226 <GFCN
\1aSAVE-BRANCH-STATE ("VALUE" <OR AC ATOM FALSE> LAB ANY) LB5 UNCND6>
4227 <TEMP LS8:LIST LOOP?9 TEMP22 TEMP23:VECTOR TEMP20 AC24:AC NULL-STATE25 TEMP31 LCL26>
4229 <NTHUV LB5 4 = LS8 (TYPE LIST)>
4230 <NTHUV LB5 3 = LOOP?9>
4231 <GVAL 'AC-PAIR-TABLE = TEMP22>
4232 <GVAL 'NULL-STATES = TEMP23>
4233 <SET TEMP20 0 (TYPE FIX)>
4237 <EMPUV? TEMP22 + MAPAP14>
4238 <EMPUV? TEMP23 + MAPAP14>
4239 <NTHUV TEMP22 1 = AC24>
4240 <NTHUV TEMP23 1 = NULL-STATE25>
4241 <NTHUV AC24 2 = TEMP31>
4242 <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE29>
4244 <NTHUV AC24 2 = TEMP31>
4245 <TYPE? TEMP31 <TYPE-CODE LOSE> + PHRASE29>
4248 <NTHUV AC24 2 = STACK (TYPE ATOM)>
4249 <GVAL 'LOCALS = STACK>
4250 <CALL '
\1aLMEMQ 2 = LCL26>
4251 <VEQUAL? LCL26 0 - PHRASE36>
4252 <GVAL 'ICALL-FLAG = TEMP31>
4253 <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE36>
4256 <NTHUV AC24 2 = STACK (TYPE ATOM)>
4257 <GVAL 'ICALL-TEMPS = STACK>
4258 <CALL '
\1aLMEMQ 2 = LCL26>
4261 <SET LCL26 %<> (TYPE FALSE)>
4263 <NTHUV AC24 5 = TEMP31>
4264 <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE38>
4266 <TYPE? LOOP?9 <TYPE-CODE FALSE> - PHRASE38>
4267 <TYPE? UNCND6 <TYPE-CODE FALSE> - BOOL40>
4268 <FRAME '
\1aWILL-DIE?>
4269 <NTHUV AC24 2 = STACK>
4270 <CALL '
\1aWILL-DIE? 1 = TEMP31>
4271 <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE38>
4274 <FRAME '
\1aWILL-DIE?>
4275 <NTHUV AC24 2 = STACK>
4276 <NTHUV LB5 7 = STACK (TYPE LIST)>
4277 <CALL '
\1aWILL-DIE? 2 = TEMP31>
4278 <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE38>
4280 <SET LCL26 %<> (TYPE FALSE)>
4284 <TYPE? LCL26 <TYPE-CODE FALSE> + PHRASE44>
4285 <NTHUV AC24 3 = TEMP31 (TYPE ATOM)>
4286 <VEQUAL? TEMP31 'TYPE - PHRASE46>
4288 <NTHUV LCL26 5 = NULL-STATE25>
4289 <TYPE? NULL-STATE25 <TYPE-CODE FALSE> + PHRASE46>
4290 <NTHUV NULL-STATE25 3 = TEMP31>
4291 <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE46>
4293 <NTHUV NULL-STATE25 1 = TEMP31 (TYPE AC)>
4294 <VEQUAL? TEMP31 AC24 - BOOL48>
4296 <NTHUV AC24 5 = TEMP31>
4297 <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE46>
4300 <PUTUV NULL-STATE25 3 'HACKED>
4303 <NTHUV AC24 3 = TEMP31 (TYPE ATOM)>
4304 <VEQUAL? TEMP31 'VALUE - PHRASE50>
4306 <NTHUV LCL26 6 = NULL-STATE25>
4307 <TYPE? NULL-STATE25 <TYPE-CODE FALSE> + PHRASE50>
4308 <NTHUV NULL-STATE25 3 = TEMP31>
4309 <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE50>
4311 <NTHUV NULL-STATE25 1 = TEMP31 (TYPE AC)>
4312 <VEQUAL? TEMP31 AC24 - BOOL52>
4314 <NTHUV AC24 5 = TEMP31>
4315 <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE50>
4318 <PUTUV NULL-STATE25 3 'HACKED>
4323 <NTHUV AC24 5 = TEMP31>
4324 <TYPE? TEMP31 <TYPE-CODE FALSE> - TAG54>
4326 <SET TEMP31 'T (TYPE ATOM)>
4329 <SET TEMP31 %<> (TYPE FALSE)>
4333 <NTHUV AC24 6 = STACK>
4334 <NTHUV AC24 3 = STACK (TYPE ATOM)>
4335 <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP31>
4336 <CHTYPE TEMP31 <TYPE-CODE ACSTATE> = NULL-STATE25>
4338 <NTHUV AC24 3 = TEMP31 (TYPE ATOM)>
4340 <VEQUAL? TEMP31 'TYPE - PHRASE57>
4342 <PUTUV LCL26 5 NULL-STATE25>
4346 <PUTUV LCL26 6 NULL-STATE25>
4349 <SET TEMP31 NULL-STATE25>
4353 <SET TEMP31 NULL-STATE25>
4358 <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
4359 <RESTUV TEMP22 1 = TEMP22 (TYPE VECTOR)>
4360 <RESTUV TEMP23 1 = TEMP23 (TYPE VECTOR)>
4363 <UBLOCK <TYPE-CODE VECTOR> TEMP20 = TEMP20 (TYPE VECTOR)>
4364 <CHTYPE TEMP20 <TYPE-CODE LABSTATE> = TEMP22>
4366 <EMPL? LS8 - PHRASE61 (TYPE LIST)>
4367 <CONS TEMP22 () = LOOP?9>
4368 <PUTUV LB5 4 LOOP?9 (TYPE LIST)>
4374 <LOOP (LOOP?9 VALUE)>
4376 <RESTL LOOP?9 1 = TEMP20 (TYPE LIST)>
4377 <EMPL? TEMP20 + TAG64>
4382 <CONS TEMP22 () = TEMP20>
4383 <PUTREST LOOP?9 TEMP20>
4384 <DEAD LOOP?9 TEMP20>
4386 <NTHUV LB5 3 = TEMP20>
4387 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE66>
4389 <NTHUV LB5 5 = TEMP20>
4390 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE68>
4392 <FRAME '
\1aMERGE-TWO-FORCE>
4394 <NTHUV LB5 5 = STACK (TYPE LABSTATE)>
4396 <CALL '
\1aMERGE-TWO-FORCE 2>
4398 <FRAME '
\1aLOGICAL-ESTABLISH>
4401 <CALL '
\1aLOGICAL-ESTABLISH 1>
4404 <NTHUV LB5 5 = TEMP20>
4405 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE73>
4407 <FRAME '
\1aMERGE-TWO>
4409 <NTHUV LB5 5 = STACK (TYPE LABSTATE)>
4411 <CALL '
\1aMERGE-TWO 2>
4413 <FRAME '
\1aESTABLISH-UPDATE>
4416 <CALL '
\1aESTABLISH-UPDATE 1>
4418 <TYPE? UNCND6 <TYPE-CODE FALSE> + PHRASE77>
4420 <FRAME '
\1aFLUSH-ACS>
4421 <CALL '
\1aFLUSH-ACS 0 = TEMP20>
4425 <FRAME '
\1aMUNGED-AC>
4427 <CALL '
\1aMUNGED-AC 1>
4428 <FRAME '
\1aMUNGED-AC>
4430 <CALL '
\1aMUNGED-AC 1 = TEMP20>
4433 <END
\1aSAVE-BRANCH-STATE>
4435 <GFCN
\1aSAVE-LABEL-STATE ("VALUE" <OR ATOM FALSE> ANY) LB5>
4436 <TEMP TEMP9 TEMP21 TEMP22:VECTOR AC23:AC NULL-STATE24:ACSTATE ITM26 LCL25 TEMP34>
4438 <GVAL 'LAST-UNCON = TEMP9>
4439 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE8>
4441 <GVAL 'AC-PAIR-TABLE = TEMP21>
4442 <GVAL 'NULL-STATES = TEMP22>
4443 <SET TEMP9 0 (TYPE FIX)>
4447 <EMPUV? TEMP21 + MAPAP14>
4448 <EMPUV? TEMP22 + MAPAP14>
4449 <NTHUV TEMP21 1 = AC23>
4450 <NTHUV TEMP22 1 = NULL-STATE24>
4451 <NTHUV AC23 2 = ITM26>
4452 <TYPE? ITM26 <TYPE-CODE FALSE> + PHRASE29>
4453 <TYPE? ITM26 <TYPE-CODE LOSE> + PHRASE29>
4456 <GVAL 'LOCALS = STACK>
4457 <CALL '
\1aLMEMQ 2 = LCL25>
4458 <VEQUAL? LCL25 0 - PHRASE36>
4459 <GVAL 'ICALL-FLAG = TEMP34>
4460 <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE36>
4465 <GVAL 'ICALL-TEMPS = STACK>
4466 <CALL '
\1aLMEMQ 2 = LCL25>
4469 <SET LCL25 %<> (TYPE FALSE)>
4471 <TYPE? LCL25 <TYPE-CODE FALSE> + PHRASE38>
4472 <NTHUV AC23 3 = TEMP34 (TYPE ATOM)>
4473 <VEQUAL? TEMP34 'TYPE - PHRASE40>
4475 <NTHUV LCL25 5 = ITM26>
4476 <TYPE? ITM26 <TYPE-CODE FALSE> + PHRASE40>
4477 <NTHUV ITM26 3 = TEMP34>
4478 <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE40>
4480 <NTHUV ITM26 1 = TEMP34 (TYPE AC)>
4481 <VEQUAL? TEMP34 AC23 - BOOL42>
4483 <NTHUV AC23 5 = TEMP34>
4484 <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE40>
4487 <PUTUV ITM26 3 'HACKED>
4490 <NTHUV AC23 3 = TEMP34 (TYPE ATOM)>
4491 <VEQUAL? TEMP34 'VALUE - PHRASE44>
4493 <NTHUV LCL25 6 = ITM26>
4494 <TYPE? ITM26 <TYPE-CODE FALSE> + PHRASE44>
4495 <NTHUV ITM26 3 = TEMP34>
4496 <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE44>
4498 <NTHUV ITM26 1 = TEMP34 (TYPE AC)>
4499 <VEQUAL? TEMP34 AC23 - BOOL46>
4501 <NTHUV AC23 5 = TEMP34>
4502 <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE44>
4505 <PUTUV ITM26 3 'HACKED>
4510 <NTHUV AC23 5 = TEMP34>
4511 <TYPE? TEMP34 <TYPE-CODE FALSE> - TAG48>
4513 <SET TEMP34 'T (TYPE ATOM)>
4516 <SET TEMP34 %<> (TYPE FALSE)>
4520 <NTHUV AC23 6 = STACK>
4521 <NTHUV AC23 3 = STACK (TYPE ATOM)>
4522 <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP34>
4523 <CHTYPE TEMP34 <TYPE-CODE ACSTATE> = ITM26>
4525 <NTHUV AC23 3 = TEMP34 (TYPE ATOM)>
4527 <VEQUAL? TEMP34 'TYPE - PHRASE51>
4529 <PUTUV LCL25 5 ITM26>
4533 <PUTUV LCL25 6 ITM26>
4540 <SET TEMP34 NULL-STATE24>
4545 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
4546 <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
4547 <RESTUV TEMP22 1 = TEMP22 (TYPE VECTOR)>
4550 <UBLOCK <TYPE-CODE VECTOR> TEMP9 = TEMP9 (TYPE VECTOR)>
4551 <CHTYPE TEMP9 <TYPE-CODE LABSTATE> = TEMP21>
4553 <NTHUV LB5 4 = TEMP9 (TYPE LIST)>
4554 <CONS TEMP21 TEMP9 = TEMP9>
4555 <PUTUV LB5 4 TEMP9 (TYPE LIST)>
4557 <NTHUV LB5 3 = TEMP9>
4558 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE55>
4560 <FRAME '
\1aKILL-DEAD-ACS>
4562 <CALL '
\1aKILL-DEAD-ACS 1>
4564 <NTHUV LB5 5 = TEMP9>
4565 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE58>
4567 <PUTUV LB5 5 TEMP21>
4570 <FRAME '
\1aMERGE-TWO>
4571 <NTHUV LB5 4 = TEMP9 (TYPE LIST)>
4572 <NTHL TEMP9 1 = STACK (TYPE LABSTATE)>
4574 <NTHUV LB5 5 = STACK (TYPE LABSTATE)>
4575 <CALL '
\1aMERGE-TWO 2>
4576 <FRAME '
\1aESTABLISH-LABEL-STATE>
4578 <NTHUV LB5 4 = TEMP9 (TYPE LIST)>
4580 <NTHL TEMP9 1 = STACK (TYPE LABSTATE)>
4582 <CALL '
\1aESTABLISH-LABEL-STATE 2>
4585 <NTHUV LB5 3 = TEMP9>
4586 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE63>
4588 <FRAME '
\1aKILL-DEAD-ACS>
4590 <CALL '
\1aKILL-DEAD-ACS 1>
4592 <NTHUV LB5 5 = TEMP9>
4593 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE66>
4595 <NTHUV LB5 4 = TEMP9 (TYPE LIST)>
4596 <EMPL? TEMP9 + PHRASE66 (TYPE LIST)>
4598 <NTHUV LB5 4 = TEMP9 (TYPE LIST)>
4599 <NTHL TEMP9 1 = TEMP9 (TYPE LABSTATE)>
4603 <NTHUV LB5 5 = TEMP9>
4604 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE69>
4605 <FRAME '
\1aESTABLISH-LABEL-STATE>
4608 <CALL '
\1aESTABLISH-LABEL-STATE 1 = TEMP9>
4612 <END
\1aSAVE-LABEL-STATE>
4614 <GFCN
\1aKILL-DEAD-ACS ("VALUE" <OR ACSTATE FALSE> LAB) LB5>
4615 <TEMP TEMP8 TEMP15:LIST>
4617 <NTHUV LB5 5 = TEMP8>
4618 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
4620 <FRAME '
\1aKILL-ONE-STATE>
4621 <NTHUV LB5 5 = STACK (TYPE LABSTATE)>
4622 <CALL '
\1aKILL-ONE-STATE 1>
4624 <SET TEMP8 %<> (TYPE FALSE)>
4625 <NTHUV LB5 4 = TEMP15 (TYPE LIST)>
4630 <EMPL? TEMP15 + MAP10>
4631 <FRAME '
\1aKILL-ONE-STATE>
4632 <NTHL TEMP15 1 = STACK>
4633 <CALL '
\1aKILL-ONE-STATE 1 = TEMP8>
4634 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
4639 <END
\1aKILL-DEAD-ACS>
4641 <GFCN
\1aKILL-ONE-STATE ("VALUE" <OR FALSE ACSTATE> LABSTATE) LSTATE5>
4642 <TEMP TEMP15 TEMP12:VECTOR ACST17:ACSTATE LCL18:LOCAL>
4644 <SET TEMP15 %<> (TYPE FALSE)>
4645 <CHTYPE LSTATE5 <TYPE-CODE VECTOR> = TEMP12>
4650 <EMPUV? TEMP12 + MAPAP10>
4651 <NTHUV TEMP12 1 = ACST17>
4652 <NTHUV ACST17 2 = TEMP15>
4653 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE20>
4654 <FRAME '
\1aWILL-DIE?>
4655 <NTHUV ACST17 2 = LCL18 (TYPE LOCAL)>
4656 <NTHUV LCL18 1 = STACK (TYPE ATOM)>
4657 <CALL '
\1aWILL-DIE? 1 = TEMP15>
4658 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE20>
4662 <NTHUV ACST17 2 = TEMP15>
4663 <CONS TEMP15 () = TEMP15>
4664 <CHTYPE TEMP15 <TYPE-CODE FALSE> = TEMP15>
4665 <PUTUV ACST17 2 TEMP15>
4667 <PUTUV ACST17 3 'DEAD>
4671 <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
4676 <END
\1aKILL-ONE-STATE>
4678 <GFCN
\1aESTABLISH-BRANCH-STATE ("VALUE" <OR FALSE <LIST ATOM>> LAB ANY "OPTIONAL" ANY ANY LABSTATE) LB8 UNCND9 AC-P110 AC-P211 LS12>
4679 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
4687 <TEMP LOOP?13 (MOVES-TO14:LIST ()) (MOVES-FROM16:LIST ()) TEMP25 STAT30 AC32 LCL233 NEW-AC?34 TEMP57 TEMP65 PF147:LIST TEMP165 AT1151:FIX AT2152:FIX AF153:AC P-TO?154 P-FROM155:AC>
4689 <TYPE? LS12 <TYPE-CODE UNBOUND> - TAG17>
4690 <NTHUV LB8 5 = LS12 (TYPE LABSTATE)>
4692 <NTHUV LB8 3 = LOOP?13>
4693 <CHTYPE LS12 <TYPE-CODE VECTOR> = TEMP25>
4697 <EMPUV? TEMP25 + MAPAP23>
4698 <NTHUV TEMP25 1 = STAT30>
4699 <NTHUV STAT30 1 = AC32 (TYPE AC)>
4700 <NTHUV AC32 2 = LCL233>
4701 <TYPE? LCL233 <TYPE-CODE LOSE> - PHRASE36>
4702 <SET LCL233 %<> (TYPE FALSE)>
4704 <NTHUV AC32 5 = NEW-AC?34>
4705 <TYPE? NEW-AC?34 <TYPE-CODE FALSE> + PHRASE38>
4707 <TYPE? LOOP?13 <TYPE-CODE FALSE> - PHRASE38>
4708 <TYPE? LCL233 <TYPE-CODE FALSE> + PHRASE38>
4709 <TYPE? UNCND9 <TYPE-CODE FALSE> - BOOL41>
4710 <FRAME '
\1aWILL-DIE?>
4712 <CALL '
\1aWILL-DIE? 1 = NEW-AC?34>
4713 <TYPE? NEW-AC?34 <TYPE-CODE FALSE> + PHRASE38>
4716 <FRAME '
\1aWILL-DIE?>
4718 <NTHUV LB8 7 = STACK (TYPE LIST)>
4719 <CALL '
\1aWILL-DIE? 2 = NEW-AC?34>
4720 <TYPE? NEW-AC?34 <TYPE-CODE FALSE> + PHRASE38>
4722 <GEN-ASSIGNED? 'DISP-L - PHRASE45>
4723 <GEN-LVAL 'DISP-L = TEMP57>
4724 <EMPTY? TEMP57 + PHRASE38>
4728 <EMPTY? TEMP57 + PHRASE45>
4729 <NTH1 TEMP57 = NEW-AC?34>
4730 <FRAME '
\1aWILL-DIE?>
4732 <FRAME '
\1aFIND-LABEL>
4735 <CALL '
\1aFIND-LABEL 1 = TEMP65>
4736 <NTHUV TEMP65 7 = STACK (TYPE LIST)>
4738 <CALL '
\1aWILL-DIE? 2 = TEMP65>
4739 <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE38>
4741 <REST1 TEMP57 = TEMP57>
4744 <SET LCL233 %<> (TYPE FALSE)>
4748 <NTHUV STAT30 2 = TEMP57>
4749 <TYPE? TEMP57 <TYPE-CODE FALSE> + BOOL71>
4750 <NTHUV TEMP57 1 = TEMP65 (TYPE ATOM)>
4751 <VEQUAL? TEMP65 LCL233 + BOOL70>
4754 <TYPE? TEMP57 <TYPE-CODE FALSE> - PHRASE69>
4755 <TYPE? LOOP?13 <TYPE-CODE FALSE> - PHRASE69>
4757 <NTHUV AC32 5 = TEMP65>
4758 <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE90>
4760 <TYPE? TEMP57 <TYPE-CODE FALSE> - BOOL77>
4761 <EMPL? TEMP57 + BOOL79 (TYPE FALSE)>
4763 <NTHUV STAT30 3 = TEMP65>
4765 <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE90>
4767 <TYPE? TEMP57 <TYPE-CODE FALSE> - BOOL79>
4768 <EMPL? TEMP57 + PHRASE90 (TYPE FALSE)>
4769 <NTHL TEMP57 1 = TEMP65 (TYPE LOCAL)>
4771 <NTHUV TEMP65 1 = TEMP65 (TYPE ATOM)>
4772 <VEQUAL? TEMP65 LCL233 + PHRASE90>
4775 <FRAME '
\1aUPDATE-AC>
4778 <CALL '
\1aUPDATE-AC 2>
4782 <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE82>
4783 <TYPE? LOOP?13 <TYPE-CODE FALSE> + PHRASE82>
4784 <TYPE? LCL233 <TYPE-CODE FALSE> + BOOL84>
4785 <NTHUV TEMP57 1 = TEMP65 (TYPE ATOM)>
4786 <VEQUAL? TEMP65 LCL233 + PHRASE82>
4791 <NTHUV STAT30 5 = STACK (TYPE ATOM)>
4792 <CALL '
\1aFIND-AC 2 = NEW-AC?34>
4793 <TYPE? NEW-AC?34 <TYPE-CODE FALSE> + PHRASE82>
4794 <NTHUV STAT30 4 = TEMP65>
4795 <TYPE? TEMP65 <TYPE-CODE FALSE> + BOOL88>
4797 <NTHUV STAT30 3 = TEMP65>
4798 <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE90>
4800 <NTHUV TEMP57 4 = TEMP65>
4802 <TYPE? TEMP65 <TYPE-CODE FALSE> - PHRASE90>
4804 <NTHUV STAT30 4 = TEMP57 (TYPE ATOM)>
4806 <NTHUV NEW-AC?34 6 = TEMP65>
4807 <VEQUAL? TEMP57 TEMP65 + PHRASE90>
4808 <DEAD TEMP57 TEMP65>
4810 <CONS AC32 MOVES-TO14 = MOVES-TO14>
4811 <CONS NEW-AC?34 MOVES-FROM16 = MOVES-FROM16>
4815 <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE90>
4817 <TYPE? LOOP?13 <TYPE-CODE FALSE> + PHRASE90>
4819 <PUSH 'AC-SCREW-UP!-ERRORS>
4822 <TYPE? LOOP?13 <TYPE-CODE FALSE> + PHRASE94>
4823 <TYPE? LCL233 <TYPE-CODE FALSE> + PHRASE94>
4824 <FRAME '
\1aFIND-LOCAL>
4827 <NTHUV AC32 3 = STACK (TYPE ATOM)>
4830 <CALL '
\1aFIND-LOCAL 4 = TEMP65>
4831 <TYPE? TEMP65 <TYPE-CODE FALSE> - PHRASE94>
4833 <NTHUV AC32 5 = TEMP65>
4834 <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE94>
4836 <FRAME '
\1aUPDATE-AC>
4839 <CALL '
\1aUPDATE-AC 2>
4843 <RESTUV TEMP25 1 = TEMP25 (TYPE VECTOR)>
4846 <TYPE? AC-P110 <TYPE-CODE FALSE> + PHRASE113>
4850 <CALL '
\1aGET-AC 1 = AC-P110>
4851 <SET TEMP25 MOVES-TO14>
4852 <EMPL? TEMP25 + PHRASE113>
4853 <LOOP (AC-P110 VALUE) (TEMP25 VALUE)>
4855 <NTHL TEMP25 1 = AC32>
4856 <TYPE? AC32 <TYPE-CODE AC> - TAG104>
4857 <VEQUAL? AC32 AC-P110 + TAG102>
4860 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
4861 <EMPL? TEMP25 - TAG103>
4864 <SET AC32 MOVES-FROM16>
4865 <EMPL? AC32 + PHRASE106>
4866 <LOOP (AC-P110 VALUE) (AC32 VALUE)>
4868 <NTHL AC32 1 = TEMP25>
4869 <TYPE? TEMP25 <TYPE-CODE AC> - TAG110>
4870 <VEQUAL? TEMP25 AC-P110 + TAG108>
4873 <RESTL AC32 1 = AC32 (TYPE LIST)>
4874 <EMPL? AC32 - TAG109>
4877 <LENL MOVES-FROM16 = LCL233 (TYPE FIX)>
4878 <LENL AC32 = TEMP25 (TYPE FIX)>
4880 <SUB LCL233 TEMP25 = LCL233 (TYPE FIX)>
4882 <SUB LCL233 -1 = LCL233 (TYPE FIX)>
4883 <SET TEMP25 MOVES-TO14>
4884 <SUB LCL233 1 = LCL233 (TYPE FIX)>
4885 <GRTR? LCL233 0 - RESTL112 (TYPE FIX)>
4886 <LOOP (TEMP25 VALUE) (LCL233 VALUE)>
4889 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
4890 <SUB LCL233 1 = LCL233 (TYPE FIX)>
4891 <GRTR? LCL233 0 + RESTL111 (TYPE FIX)>
4893 <NTHL TEMP25 1 = AC-P110>
4897 <CONS AC-P110 MOVES-FROM16 = MOVES-FROM16>
4899 <FRAME '
\1aFIND-FREE-TO>
4902 <CALL '
\1aFIND-FREE-TO 2 = AC-P110>
4903 <CONS AC-P110 () = TEMP25>
4904 <PUTREST TEMP25 MOVES-TO14>
4906 <SET MOVES-TO14 TEMP25>
4909 <TYPE? AC-P211 <TYPE-CODE FALSE> + PHRASE130>
4913 <CALL '
\1aGET-AC 1 = AC-P211>
4914 <SET TEMP25 MOVES-TO14>
4915 <EMPL? TEMP25 + PHRASE130>
4916 <LOOP (AC-P211 VALUE) (TEMP25 VALUE)>
4918 <NTHL TEMP25 1 = LCL233>
4919 <TYPE? LCL233 <TYPE-CODE AC> - TAG121>
4920 <VEQUAL? LCL233 AC-P211 + TAG119>
4923 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
4924 <EMPL? TEMP25 - TAG120>
4927 <SET TEMP25 MOVES-FROM16>
4928 <EMPL? TEMP25 + PHRASE123>
4929 <LOOP (AC-P211 VALUE) (TEMP25 VALUE)>
4931 <NTHL TEMP25 1 = LCL233>
4932 <TYPE? LCL233 <TYPE-CODE AC> - TAG127>
4933 <VEQUAL? LCL233 AC-P211 + TAG125>
4936 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
4937 <EMPL? TEMP25 - TAG126>
4942 <LENL MOVES-FROM16 = TEMP25 (TYPE FIX)>
4943 <LENL AC32 = LCL233 (TYPE FIX)>
4945 <SUB TEMP25 LCL233 = TEMP25 (TYPE FIX)>
4947 <SUB TEMP25 -1 = TEMP25 (TYPE FIX)>
4948 <SET LCL233 MOVES-TO14>
4949 <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
4950 <GRTR? TEMP25 0 - RESTL129 (TYPE FIX)>
4951 <LOOP (LCL233 VALUE) (TEMP25 VALUE)>
4954 <RESTL LCL233 1 = LCL233 (TYPE LIST)>
4955 <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
4956 <GRTR? TEMP25 0 + RESTL128 (TYPE FIX)>
4958 <NTHL LCL233 1 = AC-P211>
4962 <CONS AC-P211 MOVES-FROM16 = MOVES-FROM16>
4964 <FRAME '
\1aFIND-FREE-TO>
4967 <CALL '
\1aFIND-FREE-TO 2 = AC-P211>
4968 <CONS AC-P211 () = LCL233>
4969 <PUTREST LCL233 MOVES-TO14>
4971 <SET MOVES-TO14 LCL233>
4974 <EMPL? MOVES-FROM16 + EXIT134 (TYPE LIST)>
4975 <SET LCL233 'T (TYPE ATOM)>
4979 <SET NEW-AC?34 %<> (TYPE FALSE)>
4980 <SET TEMP25 MOVES-TO14 (TYPE LIST)>
4981 <SET AC32 MOVES-FROM16 (TYPE LIST)>
4985 <EMPL? TEMP25 + MAPAP142>
4986 <EMPL? AC32 + MAPAP142>
4989 <NTHL STAT30 1 = TEMP57>
4990 <NTHL PF147 1 = TEMP65>
4991 <VEQUAL? TEMP65 TEMP57 - PHRASE157>
4999 <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE161>
5000 <SET LCL233 %<> (TYPE FALSE)>
5001 <SET TEMP65 MOVES-FROM16>
5002 <EMPL? TEMP65 + TAG162>
5003 <LOOP (TEMP57 VALUE) (TEMP65 VALUE)>
5005 <NTHL TEMP65 1 = TEMP165>
5006 <TYPE? TEMP165 <TYPE-CODE AC> - TAG164>
5007 <VEQUAL? TEMP165 TEMP57 + PHRASE161>
5010 <RESTL TEMP65 1 = TEMP65 (TYPE LIST)>
5011 <EMPL? TEMP65 - TAG163>
5013 <NTHUV TEMP57 4 = AT1151 (TYPE FIX)>
5014 <NTHL PF147 1 = AF153 (TYPE AC)>
5015 <NTHUV AF153 4 = AT2152 (TYPE FIX)>
5016 <SET NEW-AC?34 'T (TYPE ATOM)>
5017 <RESTL STAT30 1 = TEMP65 (TYPE LIST)>
5018 <EMPL? TEMP65 + PHRASE167 (TYPE LIST)>
5020 <RESTL STAT30 1 = TEMP65 (TYPE LIST)>
5021 <NTHL TEMP65 1 = P-TO?154>
5023 <TYPE? P-TO?154 <TYPE-CODE FALSE> + PHRASE167>
5025 <NTHUV P-TO?154 1 = STACK (TYPE ATOM)>
5026 <CALL '
\1aNEXT-AC 1 = TEMP65>
5027 <NTHUV TEMP57 1 = TEMP165 (TYPE ATOM)>
5028 <EQUAL? TEMP65 TEMP165 - PHRASE167>
5029 <DEAD TEMP65 TEMP165>
5030 <RESTL PF147 1 = TEMP165 (TYPE LIST)>
5031 <NTHL TEMP165 1 = P-FROM155 (TYPE AC)>
5034 <NTHUV P-FROM155 1 = STACK (TYPE ATOM)>
5035 <CALL '
\1aNEXT-AC 1 = TEMP165>
5036 <NTHUV AF153 1 = TEMP65 (TYPE ATOM)>
5037 <EQUAL? TEMP165 TEMP65 - PHRASE167>
5038 <DEAD TEMP165 TEMP65>
5039 <SET TEMP65 MOVES-FROM16>
5040 <EMPL? TEMP65 + TAG171>
5041 <LOOP (P-TO?154 VALUE) (TEMP65 VALUE)>
5043 <NTHL TEMP65 1 = TEMP165>
5044 <TYPE? TEMP165 <TYPE-CODE AC> - TAG173>
5045 <VEQUAL? TEMP165 P-TO?154 + PHRASE167>
5048 <RESTL TEMP65 1 = TEMP65 (TYPE LIST)>
5049 <EMPL? TEMP65 - TAG172>
5051 <NTHUV P-TO?154 4 = TEMP65 (TYPE FIX)>
5052 <NTHUV P-FROM155 4 = TEMP165 (TYPE FIX)>
5055 <NTHUV P-TO?154 1 = STACK (TYPE ATOM)>
5056 <NTHUV P-FROM155 1 = STACK (TYPE ATOM)>
5058 <PUTUV P-TO?154 4 TEMP65 (TYPE FIX)>
5059 <DEAD P-TO?154 TEMP65>
5060 <PUTUV P-FROM155 4 TEMP165 (TYPE FIX)>
5061 <DEAD P-FROM155 TEMP165>
5062 <RESTL STAT30 1 = TEMP65 (TYPE LIST)>
5065 <RESTL PF147 1 = TEMP65 (TYPE LIST)>
5070 <NTHUV AF153 6 = TEMP65>
5071 <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE175>
5073 <FRAME '
\1aLOAD-TYPE-IN-AC>
5074 <NTHUV TEMP57 1 = STACK (TYPE ATOM)>
5075 <NTHUV AF153 6 = STACK (TYPE ATOM)>
5076 <CALL '
\1aLOAD-TYPE-IN-AC 2>
5081 <NTHUV TEMP57 1 = STACK (TYPE ATOM)>
5082 <NTHUV AF153 1 = STACK (TYPE ATOM)>
5085 <PUTUV TEMP57 4 AT1151 (TYPE FIX)>
5086 <DEAD TEMP57 AT1151>
5087 <PUTUV AF153 4 AT2152 (TYPE FIX)>
5094 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
5095 <RESTL AC32 1 = AC32 (TYPE LIST)>
5098 <VEQUAL? LCL233 0 - EXIT134>
5100 <VEQUAL? NEW-AC?34 0 - MAPAP187>
5102 <SET AC32 MOVES-TO14 (TYPE LIST)>
5103 <SET TEMP25 MOVES-FROM16 (TYPE LIST)>
5107 <EMPL? AC32 + MAPAP187>
5108 <EMPL? TEMP25 + MAPAP187>
5111 <NTHL STAT30 1 = LCL233>
5112 <NTHL PF147 1 = NEW-AC?34>
5113 <TYPE? LCL233 <TYPE-CODE FALSE> + PHRASE199>
5114 <TYPE? NEW-AC?34 <TYPE-CODE FALSE> + PHRASE199>
5115 <NTHUV LCL233 4 = AT1151 (TYPE FIX)>
5116 <NTHUV NEW-AC?34 4 = AT2152 (TYPE FIX)>
5119 <NTHUV LCL233 1 = STACK (TYPE ATOM)>
5120 <NTHUV NEW-AC?34 1 = STACK (TYPE ATOM)>
5122 <PUTUV LCL233 4 AT1151 (TYPE FIX)>
5124 <PUTUV NEW-AC?34 4 AT2152 (TYPE FIX)>
5130 <SET TEMP25 MOVES-FROM16>
5131 <EMPL? TEMP25 + TAG204>
5132 <LOOP (LCL233 VALUE) (TEMP25 VALUE)>
5134 <NTHL TEMP25 1 = TEMP165>
5135 <TYPE? TEMP165 <TYPE-CODE AC> - TAG207>
5136 <VEQUAL? TEMP165 LCL233 + TAG205>
5139 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
5140 <EMPL? TEMP25 - TAG206>
5142 <SET TEMP25 %<> (TYPE FALSE)>
5145 <PUTL TEMP25 1 NEW-AC?34>
5147 <SET AC32 MOVES-FROM16>
5148 <EMPL? AC32 + MAPAP187>
5149 <LOOP (NEW-AC?34 VALUE) (AC32 VALUE)>
5151 <NTHL AC32 1 = TEMP165>
5152 <TYPE? TEMP165 <TYPE-CODE AC> - TAG214>
5153 <VEQUAL? TEMP165 NEW-AC?34 + TAG212>
5156 <RESTL AC32 1 = AC32 (TYPE LIST)>
5157 <EMPL? AC32 - TAG213>
5160 <EQUAL? TEMP25 AC32 + MAPAP187>
5162 <PUTL AC32 1 LCL233>
5166 <RESTL AC32 1 = AC32 (TYPE LIST)>
5167 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
5170 <SET LCL233 'T (TYPE ATOM)>
5173 <TYPE? UNCND9 <TYPE-CODE FALSE> + PHRASE216>
5175 <FRAME '
\1aFLUSH-ACS>
5176 <CALL '
\1aFLUSH-ACS 0>
5179 <TYPE? LOOP?13 <TYPE-CODE FALSE> + PHRASE218>
5181 <FRAME '
\1aLOGICAL-ESTABLISH>
5184 <CALL '
\1aLOGICAL-ESTABLISH 1>
5186 <SET TEMP25 AC-P110>
5187 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE224>
5188 <TYPE? AC-P211 <TYPE-CODE FALSE> + PHRASE223>
5189 <NTHUV AC-P211 1 = LOOP?13 (TYPE ATOM)>
5191 <CONS LOOP?13 () = TEMP25>
5193 <NTHUV AC-P110 1 = LOOP?13 (TYPE ATOM)>
5195 <CONS LOOP?13 TEMP25 = TEMP25>
5200 <NTHUV AC-P110 1 = LOOP?13 (TYPE ATOM)>
5202 <CONS LOOP?13 () = TEMP25>
5207 <END
\1aESTABLISH-BRANCH-STATE>
\r\r
5209 <GFCN
\1aFIND-FREE-TO ("VALUE" <OR AC FALSE> <LIST [REST AC]> <LIST [REST AC]>) L15 L26>
5210 <TEMP (BEST7 %<>) TEMP19:VECTOR AC20:AC TEMP26:LIST TEMP27>
5212 <GVAL 'AC-PAIR-TABLE = TEMP19>
5216 <EMPUV? TEMP19 + MAPAP12>
5217 <NTHUV TEMP19 1 = AC20>
5219 <EMPL? TEMP26 + TAG23>
5220 <LOOP (AC20 VALUE) (TEMP26 VALUE)>
5222 <NTHL TEMP26 1 = TEMP27>
5223 <VEQUAL? TEMP27 AC20 + PHRASE33>
5225 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
5226 <EMPL? TEMP26 - TAG24>
5230 <EMPL? TEMP26 + PHRASE29>
5231 <LOOP (AC20 VALUE) (TEMP26 VALUE)>
5233 <NTHL TEMP26 1 = TEMP27>
5234 <VEQUAL? TEMP27 AC20 + TAG30>
5236 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
5237 <EMPL? TEMP26 - TAG31>
5243 <TYPE? BEST7 <TYPE-CODE FALSE> - PHRASE33>
5247 <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
5250 <DEAD L15 L26 TEMP19>
5253 <END
\1aFIND-FREE-TO>
5255 <GFCN
\1aLOGICAL-ESTABLISH ("VALUE" <OR FALSE AC> LABSTATE) LS4>
5256 <TEMP TEMP14 TEMP11:VECTOR STAT16:ACSTATE TEMP20>
5258 <SET TEMP14 %<> (TYPE FALSE)>
5259 <CHTYPE LS4 <TYPE-CODE VECTOR> = TEMP11>
5263 <EMPUV? TEMP11 + MAPAP9>
5264 <NTHUV TEMP11 1 = STAT16>
5265 <NTHUV STAT16 1 = TEMP14 (TYPE AC)>
5266 <NTHUV STAT16 2 = TEMP20>
5267 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE19>
5269 <NTHUV STAT16 2 = TEMP20 (TYPE LOCAL)>
5270 <NTHUV TEMP20 1 = TEMP20 (TYPE ATOM)>
5271 <PUTUV TEMP14 2 TEMP20>
5273 <NTHUV STAT16 5 = TEMP20 (TYPE ATOM)>
5274 <PUTUV TEMP14 3 TEMP20 (TYPE ATOM)>
5276 <NTHUV STAT16 3 = TEMP20>
5277 <TYPE? TEMP20 <TYPE-CODE FALSE> - TAG21>
5279 <SET TEMP20 'T (TYPE ATOM)>
5282 <SET TEMP20 %<> (TYPE FALSE)>
5284 <PUTUV TEMP14 5 TEMP20>
5286 <NTHUV STAT16 4 = TEMP20>
5288 <PUTUV TEMP14 6 TEMP20>
5292 <FRAME '
\1aFIND-LOCAL>
5293 <NTHUV TEMP14 2 = STACK>
5294 <NTHUV TEMP14 3 = STACK (TYPE ATOM)>
5296 <CALL '
\1aFIND-LOCAL 3 = TEMP20>
5297 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE23>
5299 <PUTUV TEMP14 6 %<>>
5300 <PUTUV TEMP14 3 'DUMMY (TYPE ATOM)>
5301 <PUTUV TEMP14 2 %<>>
5302 <PUTUV TEMP14 4 0 (TYPE FIX)>
5305 <NTHUV TEMP14 3 = TEMP20 (TYPE ATOM)>
5306 <VEQUAL? TEMP20 'TYPE + TAG27>
5308 <NTHUV TEMP14 3 = TEMP20 (TYPE ATOM)>
5309 <VEQUAL? TEMP20 'VALUE + TAG27>
5311 <SET TEMP14 %<> (TYPE FALSE)>
5314 <PUTUV TEMP14 5 %<>>
5316 <RESTUV TEMP11 1 = TEMP11 (TYPE VECTOR)>
5321 <END
\1aLOGICAL-ESTABLISH>
5323 <GFCN
\1aESTABLISH-UPDATE ("VALUE" <OR FALSE AC> LABSTATE) LS5>
5324 <TEMP TEMP15 TEMP12:VECTOR STAT17:ACSTATE TEMP23>
5326 <SET TEMP15 %<> (TYPE FALSE)>
5327 <CHTYPE LS5 <TYPE-CODE VECTOR> = TEMP12>
5332 <EMPUV? TEMP12 + MAPAP10>
5333 <NTHUV TEMP12 1 = STAT17>
5334 <NTHUV STAT17 1 = TEMP15 (TYPE AC)>
5335 <NTHUV STAT17 2 = TEMP23>
5336 <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL22>
5338 <NTHUV STAT17 3 = TEMP23>
5339 <TYPE? TEMP23 <TYPE-CODE FALSE> - TAG24>
5342 <NTHUV STAT17 2 = TEMP23>
5344 <TYPE? TEMP23 <TYPE-CODE FALSE> + TAG24>
5346 <SET TEMP15 %<> (TYPE FALSE)>
5349 <PUTUV TEMP15 5 %<>>
5351 <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
5356 <END
\1aESTABLISH-UPDATE>
5358 <GFCN
\1aFIND-LOCAL ("VALUE" <OR ATOM FALSE> ANY ANY LABSTATE "OPTIONAL" ANY) ATM8 COD9 LS10 STORE-CHECK11>
5359 <OPT-DISPATCH 3 %<> OPT6 OPT7>
5363 <TEMP TEMP21 TEMP18:VECTOR STAT23:ACSTATE>
5365 <SET TEMP21 %<> (TYPE FALSE)>
5366 <CHTYPE LS10 <TYPE-CODE VECTOR> = TEMP18>
5371 <EMPUV? TEMP18 + MAPAP16>
5372 <NTHUV TEMP18 1 = STAT23>
5373 <NTHUV STAT23 2 = TEMP21>
5374 <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE25>
5375 <NTHUV STAT23 2 = TEMP21 (TYPE LOCAL)>
5376 <NTHUV TEMP21 1 = TEMP21 (TYPE ATOM)>
5377 <EQUAL? TEMP21 ATM8 + TAG27>
5379 <SET TEMP21 %<> (TYPE FALSE)>
5382 <NTHUV STAT23 5 = TEMP21 (TYPE ATOM)>
5383 <EQUAL? TEMP21 COD9 + TAG29>
5385 <SET TEMP21 %<> (TYPE FALSE)>
5388 <TYPE? STORE-CHECK11 <TYPE-CODE FALSE> + TAG31>
5389 <NTHUV STAT23 3 = TEMP21>
5391 <TYPE? TEMP21 <TYPE-CODE FALSE> + TAG31>
5393 <SET TEMP21 %<> (TYPE FALSE)>
5398 <RESTUV TEMP18 1 = TEMP18 (TYPE VECTOR)>
5405 <GFCN
\1aFIND-AC ("VALUE" <OR AC FALSE> LOCAL ANY) LCL5 COD6>
5406 <TEMP ATM7:ATOM TEMP17 TEMP19:VECTOR AC20:AC>
5408 <NTHUV LCL5 1 = ATM7 (TYPE ATOM)>
5410 <SET TEMP17 %<> (TYPE FALSE)>
5411 <GVAL 'AC-PAIR-TABLE = TEMP19>
5415 <EMPUV? TEMP19 + MAPAP12>
5416 <NTHUV TEMP19 1 = AC20>
5417 <NTHUV AC20 2 = TEMP17>
5418 <EQUAL? TEMP17 ATM7 + TAG24>
5420 <SET TEMP17 %<> (TYPE FALSE)>
5423 <NTHUV AC20 3 = TEMP17 (TYPE ATOM)>
5424 <EQUAL? TEMP17 COD6 + TAG26>
5426 <SET TEMP17 %<> (TYPE FALSE)>
5432 <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
5439 <GFCN
\1aESTABLISH-LABEL-STATE ("VALUE" ATOM LAB "OPTIONAL" <OR FALSE LABSTATE>) LB8 LS9>
5440 <OPT-DISPATCH 1 %<> OPT6 OPT7>
5444 <TEMP TEMP20:VECTOR STAT25:ACSTATE AC26:AC TEMP31 ACL27 TEMP33>
5446 <TYPE? LS9 <TYPE-CODE UNBOUND> - TAG10>
5450 <TYPE? LS9 <TYPE-CODE FALSE> + PHRASE13>
5451 <CHTYPE LS9 <TYPE-CODE VECTOR> = TEMP20>
5456 <EMPUV? TEMP20 + MAPAP18>
5457 <NTHUV TEMP20 1 = STAT25>
5458 <NTHUV STAT25 1 = AC26 (TYPE AC)>
5459 <GVAL 'LAST-UNCON = TEMP31>
5460 <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE29>
5462 <NTHUV STAT25 2 = ACL27>
5463 <TYPE? ACL27 <TYPE-CODE FALSE> - BOOL32>
5464 <EMPL? ACL27 + BOOL32 (TYPE FALSE)>
5465 <NTHL ACL27 1 = TEMP31 (TYPE LOCAL)>
5466 <NTHUV TEMP31 1 = TEMP31 (TYPE ATOM)>
5467 <NTHUV AC26 2 = TEMP33>
5468 <EQUAL? TEMP31 TEMP33 + PHRASE29>
5469 <DEAD TEMP31 TEMP33>
5471 <TYPE? ACL27 <TYPE-CODE FALSE> + BOOL36>
5472 <NTHUV STAT25 3 = TEMP33>
5473 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE29>
5475 <NTHUV STAT25 4 = TEMP33>
5476 <TYPE? TEMP33 <TYPE-CODE FALSE> + BOOL36>
5478 <NTHUV ACL27 4 = TEMP33>
5480 <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE29>
5483 <NTHUV AC26 5 = TEMP33>
5484 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE29>
5486 <FRAME '
\1aUPDATE-AC>
5489 <CALL '
\1aUPDATE-AC 2>
5491 <NTHUV STAT25 2 = TEMP33>
5492 <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE39>
5496 <PUTUV AC26 3 'DUMMY (TYPE ATOM)>
5500 <NTHUV STAT25 5 = TEMP33 (TYPE ATOM)>
5501 <PUTUV AC26 3 TEMP33 (TYPE ATOM)>
5503 <NTHUV STAT25 2 = TEMP33 (TYPE LOCAL)>
5504 <NTHUV TEMP33 1 = TEMP33 (TYPE ATOM)>
5505 <PUTUV AC26 2 TEMP33>
5507 <NTHUV STAT25 3 = TEMP33>
5508 <TYPE? TEMP33 <TYPE-CODE FALSE> - TAG41>
5510 <SET TEMP33 'T (TYPE ATOM)>
5513 <SET TEMP33 %<> (TYPE FALSE)>
5515 <PUTUV AC26 5 TEMP33>
5517 <NTHUV STAT25 4 = TEMP33>
5519 <PUTUV AC26 6 TEMP33>
5522 <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
5525 <FRAME '
\1aFLUSH-AC>
5527 <CALL '
\1aFLUSH-AC 1>
5528 <FRAME '
\1aMUNGED-AC>
5530 <CALL '
\1aMUNGED-AC 1>
5531 <FRAME '
\1aFLUSH-AC>
5533 <CALL '
\1aFLUSH-AC 1>
5534 <FRAME '
\1aMUNGED-AC>
5536 <CALL '
\1aMUNGED-AC 1>
5539 <FRAME '
\1aFLUSH-ACS>
5540 <CALL '
\1aFLUSH-ACS 0>
5542 <END
\1aESTABLISH-LABEL-STATE>
5544 <GFCN
\1aPLS ("VALUE" <OR ATOM FALSE> ANY) LAB5>
5545 <TEMP (N6:FIX 0) TEMP11 TEMP55:LIST>
5547 <TYPE? LAB5 <TYPE-CODE ATOM> - PHRASE8>
5548 <FRAME '
\1aFIND-LABEL>
5551 <CALL '
\1aFIND-LABEL 1 = LAB5>
5554 <GEN-LVAL 'OUTCHAN = STACK>
5557 <PUSH "States for label: ">
5558 <GEN-LVAL 'OUTCHAN = STACK>
5561 <NTHUV LAB5 1 = STACK (TYPE ATOM)>
5562 <GEN-LVAL 'OUTCHAN = STACK>
5564 <NTHUV LAB5 3 = TEMP11>
5565 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE23>
5569 <GEN-LVAL 'OUTCHAN = STACK>
5573 <GEN-LVAL 'OUTCHAN = STACK>
5576 <GEN-LVAL 'OUTCHAN = STACK>
5578 <NTHUV LAB5 5 = TEMP11>
5579 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE37>
5582 <PUSH "Current final state">
5583 <GEN-LVAL 'OUTCHAN = STACK>
5586 <GEN-LVAL 'OUTCHAN = STACK>
5589 <GEN-LVAL 'OUTCHAN = STACK>
5592 <NTHUV LAB5 5 = STACK (TYPE LABSTATE)>
5595 <NTHUV LAB5 4 = TEMP55 (TYPE LIST)>
5596 <EMPL? TEMP55 - TAG54 (TYPE LIST)>
5600 <SET TEMP11 %<> (TYPE FALSE)>
5601 <NTHUV LAB5 4 = TEMP55 (TYPE LIST)>
5606 <EMPL? TEMP55 + MAPAP60>
5607 <NTHL TEMP55 1 = TEMP11>
5610 <GEN-LVAL 'OUTCHAN = STACK>
5613 <ADD N6 1 = N6 (TYPE FIX)>
5615 <GEN-LVAL 'OUTCHAN = STACK>
5618 <GEN-LVAL 'OUTCHAN = STACK>
5621 <GEN-LVAL 'OUTCHAN = STACK>
5626 <CALL '
\1aPSTATE 1 = TEMP11>
5627 <RESTL TEMP55 1 = TEMP55 (TYPE LIST)>
5634 <GFCN
\1aPSTATE ("VALUE" <OR ATOM FALSE> LABSTATE) LS5>
5635 <TEMP TEMP15 TEMP12:VECTOR ACS17:ACSTATE>
5637 <SET TEMP15 %<> (TYPE FALSE)>
5638 <CHTYPE LS5 <TYPE-CODE VECTOR> = TEMP12>
5643 <EMPUV? TEMP12 + MAPAP10>
5644 <NTHUV TEMP12 1 = ACS17>
5645 <NTHUV ACS17 2 = TEMP15>
5646 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE19>
5649 <NTHUV ACS17 1 = TEMP15 (TYPE AC)>
5650 <NTHUV TEMP15 1 = STACK (TYPE ATOM)>
5652 <GEN-LVAL 'OUTCHAN = STACK>
5656 <GEN-LVAL 'OUTCHAN = STACK>
5659 <NTHUV ACS17 2 = TEMP15 (TYPE LOCAL)>
5660 <NTHUV TEMP15 1 = STACK (TYPE ATOM)>
5662 <GEN-LVAL 'OUTCHAN = STACK>
5665 <NTHUV ACS17 3 = TEMP15>
5666 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE34>
5668 <SET TEMP15 " stored " (TYPE STRING)>
5671 <SET TEMP15 " not stored " (TYPE STRING)>
5675 <GEN-LVAL 'OUTCHAN = STACK>
5677 <NTHUV ACS17 4 = TEMP15>
5678 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE40>
5682 <GEN-LVAL 'OUTCHAN = STACK>
5685 <NTHUV ACS17 4 = STACK>
5687 <GEN-LVAL 'OUTCHAN = STACK>
5691 <GEN-LVAL 'OUTCHAN = STACK>
5692 <CALL '
\1aCRLF 1 = TEMP15>
5695 <NTHUV ACS17 3 = TEMP15>
5696 <EQUAL? TEMP15 'DEAD + TAG54>
5698 <SET TEMP15 %<> (TYPE FALSE)>
5702 <NTHUV ACS17 1 = TEMP15 (TYPE AC)>
5703 <NTHUV TEMP15 1 = STACK (TYPE ATOM)>
5705 <GEN-LVAL 'OUTCHAN = STACK>
5709 <GEN-LVAL 'OUTCHAN = STACK>
5712 <NTHUV ACS17 2 = TEMP15>
5714 <NTH1 TEMP15 = TEMP15>
5715 <NTHUV TEMP15 1 = STACK (TYPE ATOM)>
5717 <GEN-LVAL 'OUTCHAN = STACK>
5721 <GEN-LVAL 'OUTCHAN = STACK>
5724 <GEN-LVAL 'OUTCHAN = STACK>
5725 <CALL '
\1aCRLF 1 = TEMP15>
5727 <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
5734 <GFCN
\1aMERGE-LABEL-STATES ("VALUE" <OR FALSE LAB>)>
5735 <TEMP TEMP14 TEMP16:LIST LS18 TEM19>
5737 <SET TEMP14 %<> (TYPE FALSE)>
5738 <GVAL 'LABELS = TEMP16>
5742 <EMPL? TEMP16 + MAPAP9>
5743 <NTHL TEMP16 1 = TEMP14>
5744 <NTHUV TEMP14 4 = LS18 (TYPE LIST)>
5745 <NTHUV TEMP14 5 = TEM19>
5746 <TYPE? TEM19 <TYPE-CODE FALSE> - PHRASE21>
5747 <EMPL? LS18 + PHRASE21 (TYPE LIST)>
5748 <NTHL LS18 1 = TEM19 (TYPE LABSTATE)>
5749 <RESTL LS18 1 = LS18 (TYPE LIST)>
5751 <EMPL? LS18 + PHRASE23 (TYPE LIST)>
5752 <FRAME '
\1aMERGE-ONE-SET>
5759 <CALL '
\1aMERGE-ONE-SET 3 = TEMP14>
5762 <PUTUV TEMP14 4 () (TYPE LIST)>
5763 <PUTUV TEMP14 5 TEM19>
5766 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
5771 <END
\1aMERGE-LABEL-STATES>
5773 <GFCN
\1aMERGE-ONE-SET ("VALUE" LAB LABSTATE <LIST LABSTATE [REST LABSTATE]> LAB) FIRST5 RESTP6 LAB7>
5774 <TEMP TEMP14:LIST NEXT19:LABSTATE TEMP23>
5776 <SET TEMP14 RESTP6 (TYPE LIST)>
5781 <EMPL? TEMP14 + MAPAP12>
5782 <NTHL TEMP14 1 = NEXT19>
5783 <NTHUV LAB7 3 = TEMP23>
5784 <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE22>
5786 <FRAME '
\1aMERGE-TWO-FORCE>
5790 <CALL '
\1aMERGE-TWO-FORCE 2 = TEMP23>
5793 <FRAME '
\1aMERGE-TWO>
5797 <CALL '
\1aMERGE-TWO 2 = TEMP23>
5799 <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE28>
5800 <SETG 'CHANGED TEMP23>
5803 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
5806 <PUTUV LAB7 5 FIRST5>
5808 <PUTUV LAB7 4 () (TYPE LIST)>
5811 <END
\1aMERGE-ONE-SET>
5813 <GFCN
\1aMERGE-TWO ("VALUE" <OR ATOM FALSE> LABSTATE LABSTATE) ONE5 TWO6>
5814 <TEMP (CHANGED7 %<>) TEMP14:VECTOR TEMP15:VECTOR TEMP21:VECTOR AP122:VECTOR AP223:VECTOR NSP24 ACST125 ACST226 LD28 TEMP33>
5816 <CHTYPE ONE5 <TYPE-CODE VECTOR> = TEMP14>
5818 <CHTYPE TWO6 <TYPE-CODE VECTOR> = TEMP15>
5820 <GVAL 'NULL-STATES = TEMP21>
5824 <EMPUV? TEMP14 + MAPAP12>
5825 <EMPUV? TEMP15 + MAPAP12>
5826 <EMPUV? TEMP21 + MAPAP12>
5830 <NTHUV AP122 1 = ACST125 (TYPE ACSTATE)>
5831 <NTHUV AP223 1 = ACST226 (TYPE ACSTATE)>
5832 <NTHUV NSP24 1 = NSP24 (TYPE ACSTATE)>
5833 <SET LD28 %<> (TYPE FALSE)>
5834 <NTHUV ACST125 2 = LD28>
5835 <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE30>
5837 <NTHUV ACST226 2 = LD28>
5838 <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE30>
5840 <NTHUV ACST125 2 = LD28 (TYPE LOCAL)>
5841 <NTHUV LD28 1 = LD28 (TYPE ATOM)>
5842 <NTHUV ACST226 2 = TEMP33 (TYPE LOCAL)>
5843 <NTHUV TEMP33 1 = TEMP33 (TYPE ATOM)>
5844 <VEQUAL? LD28 TEMP33 - PHRASE30>
5846 <NTHUV ACST125 5 = TEMP33 (TYPE ATOM)>
5847 <NTHUV ACST226 5 = LD28 (TYPE ATOM)>
5848 <VEQUAL? TEMP33 LD28 - PHRASE30>
5850 <NTHUV ACST125 4 = LD28>
5851 <NTHUV ACST226 4 = TEMP33>
5852 <EQUAL? LD28 TEMP33 + BOOL34>
5854 <NTHUV ACST125 2 = TEMP33 (TYPE LOCAL)>
5855 <NTHUV TEMP33 4 = LD28>
5857 <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE30>
5858 <PUTUV ACST125 3 'T>
5859 <PUTUV ACST125 4 LD28>
5860 <PUTUV ACST226 3 'T>
5861 <PUTUV ACST226 4 LD28>
5863 <NTHUV ACST125 2 = TEMP33 (TYPE LOCAL)>
5864 <NTHUV TEMP33 1 = CHANGED7 (TYPE ATOM)>
5867 <NTHUV ACST226 3 = TEMP33>
5868 <TYPE? TEMP33 <TYPE-CODE FALSE> - TAG38>
5870 <SET TEMP33 'T (TYPE ATOM)>
5873 <SET TEMP33 %<> (TYPE FALSE)>
5875 <NTHUV ACST125 3 = LD28>
5876 <TYPE? LD28 <TYPE-CODE FALSE> - TAG40>
5878 <SET LD28 'T (TYPE ATOM)>
5881 <SET LD28 %<> (TYPE FALSE)>
5883 <EQUAL? TEMP33 LD28 + PHRASE52>
5885 <NTHUV ACST125 2 = LD28 (TYPE LOCAL)>
5886 <NTHUV LD28 1 = CHANGED7 (TYPE ATOM)>
5888 <NTHUV ACST125 4 = LD28>
5889 <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE43>
5891 <NTHUV ACST125 2 = LD28 (TYPE LOCAL)>
5892 <NTHUV LD28 4 = LD28>
5893 <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE43>
5895 <PUTUV ACST125 3 'T>
5899 <NTHUV ACST125 3 = LD28>
5900 <EQUAL? LD28 'HACKED + BOOL46>
5902 <NTHUV ACST226 3 = LD28>
5904 <EQUAL? LD28 'HACKED - PHRASE45>
5907 <PUTUV ACST125 3 'HACKED>
5911 <PUTUV ACST125 3 %<>>
5915 <VEQUAL? ACST125 NSP24 - PHRASE50>
5917 <PUTUV AP122 1 ACST226>
5919 <SET ACST226 ACST125>
5921 <PUTUV AP223 1 ACST226>
5923 <NTHUV AP122 1 = ACST125 (TYPE ACSTATE)>
5926 <NTHUV ACST125 2 = LD28>
5927 <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE52>
5929 <NTHUV ACST226 2 = LD28>
5930 <TYPE? LD28 <TYPE-CODE FALSE> - BOOL54>
5932 <NTHUV ACST226 2 = LD28 (TYPE FALSE)>
5933 <EMPL? LD28 + BOOL54 (TYPE FALSE)>
5935 <NTHUV ACST125 2 = LD28 (TYPE LOCAL)>
5936 <NTHUV LD28 1 = LD28 (TYPE ATOM)>
5937 <NTHUV ACST226 2 = TEMP33 (TYPE FALSE)>
5939 <NTHL TEMP33 1 = TEMP33 (TYPE LOCAL)>
5940 <NTHUV TEMP33 1 = TEMP33 (TYPE ATOM)>
5941 <VEQUAL? LD28 TEMP33 + PHRASE52>
5944 <NTHUV ACST125 2 = TEMP33 (TYPE LOCAL)>
5945 <NTHUV TEMP33 1 = CHANGED7 (TYPE ATOM)>
5947 <NTHUV ACST125 2 = TEMP33 (TYPE LOCAL)>
5950 <PUTUV ACST125 2 %<>>
5951 <PUTUV ACST125 3 %<>>
5954 <RESTUV TEMP14 1 = TEMP14 (TYPE VECTOR)>
5955 <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
5956 <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
5963 <GFCN
\1aMERGE-TWO-FORCE ("VALUE" ANY LABSTATE LABSTATE) ONE5 TWO6>
5964 <TEMP (CHANGED7 %<>) (WINNERS8:FIX 0) TEMP15:VECTOR ACST120:ACSTATE TEMP23 TEMP32 ACST234:ACSTATE LCL35 TEMP41>
5966 <CHTYPE ONE5 <TYPE-CODE VECTOR> = TEMP15>
5971 <EMPUV? TEMP15 + MAPAP13>
5972 <NTHUV TEMP15 1 = ACST120>
5973 <NTHUV ACST120 2 = TEMP23>
5974 <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL22>
5976 <ADD WINNERS8 1 = WINNERS8 (TYPE FIX)>
5977 <SET TEMP32 %<> (TYPE FALSE)>
5978 <CHTYPE TWO6 <TYPE-CODE VECTOR> = TEMP23>
5982 <EMPUV? TEMP23 + MAPAP28>
5983 <NTHUV TEMP23 1 = ACST234>
5984 <NTHUV ACST234 2 = LCL35>
5986 <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE37>
5987 <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
5988 <NTHUV TEMP32 1 = TEMP32 (TYPE ATOM)>
5989 <NTHUV ACST234 2 = TEMP41 (TYPE LOCAL)>
5990 <NTHUV TEMP41 1 = TEMP41 (TYPE ATOM)>
5991 <VEQUAL? TEMP32 TEMP41 + TAG39>
5992 <DEAD TEMP32 TEMP41>
5993 <SET TEMP32 %<> (TYPE FALSE)>
5996 <NTHUV ACST120 5 = TEMP41 (TYPE ATOM)>
5997 <NTHUV ACST234 5 = TEMP32 (TYPE ATOM)>
5998 <VEQUAL? TEMP41 TEMP32 + TAG42>
6000 <SET TEMP32 %<> (TYPE FALSE)>
6003 <NTHUV ACST120 4 = TEMP32>
6004 <TYPE? TEMP32 <TYPE-CODE FALSE> - BOOL44>
6006 <NTHUV ACST234 4 = TEMP32>
6007 <TYPE? TEMP32 <TYPE-CODE FALSE> + BOOL43>
6010 <NTHUV ACST120 4 = TEMP32>
6011 <NTHUV ACST234 4 = TEMP41>
6012 <EQUAL? TEMP32 TEMP41 - BOOL45>
6013 <DEAD TEMP32 TEMP41>
6014 <NTHUV ACST120 3 = TEMP41>
6015 <TYPE? TEMP41 <TYPE-CODE FALSE> - TAG47>
6017 <SET TEMP41 'T (TYPE ATOM)>
6020 <SET TEMP41 %<> (TYPE FALSE)>
6022 <NTHUV ACST234 3 = TEMP32>
6023 <TYPE? TEMP32 <TYPE-CODE FALSE> - TAG49>
6025 <SET TEMP32 'T (TYPE ATOM)>
6028 <SET TEMP32 %<> (TYPE FALSE)>
6030 <EQUAL? TEMP41 TEMP32 + BOOL43>
6032 <NTHUV LCL35 4 = TEMP32>
6034 <TYPE? TEMP32 <TYPE-CODE FALSE> + BOOL51>
6036 <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
6037 <NTHUV TEMP32 1 = CHANGED7 (TYPE ATOM)>
6039 <PUTUV ACST120 3 'T>
6040 <PUTUV ACST234 3 'T>
6043 <NTHUV ACST120 3 = TEMP32>
6044 <EQUAL? TEMP32 'HACKED + BOOL53>
6046 <NTHUV ACST234 3 = TEMP32>
6047 <EQUAL? TEMP32 'HACKED - BOOL52>
6050 <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
6051 <NTHUV TEMP32 1 = CHANGED7 (TYPE ATOM)>
6053 <PUTUV ACST120 3 'HACKED>
6054 <PUTUV ACST234 3 'HACKED>
6057 <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
6058 <NTHUV TEMP32 1 = CHANGED7 (TYPE ATOM)>
6060 <PUTUV ACST120 3 %<>>
6061 <PUTUV ACST234 3 %<>>
6064 <NTHUV LCL35 4 = TEMP32>
6065 <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE37>
6066 <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
6067 <NTHUV TEMP32 1 = CHANGED7 (TYPE ATOM)>
6069 <NTHUV LCL35 4 = TEMP32 (TYPE ATOM)>
6070 <PUTUV ACST120 4 TEMP32>
6072 <PUTUV ACST120 3 'T>
6073 <NTHUV LCL35 4 = TEMP32>
6075 <PUTUV ACST234 4 TEMP32>
6077 <PUTUV ACST234 3 'T>
6079 <NTHUV ACST120 3 = TEMP32>
6080 <TYPE? TEMP32 <TYPE-CODE FALSE> - TAG58>
6082 <SET TEMP32 'T (TYPE ATOM)>
6085 <SET TEMP32 %<> (TYPE FALSE)>
6087 <NTHUV ACST234 3 = TEMP41>
6088 <TYPE? TEMP41 <TYPE-CODE FALSE> - TAG60>
6090 <SET TEMP41 'T (TYPE ATOM)>
6093 <SET TEMP41 %<> (TYPE FALSE)>
6095 <EQUAL? TEMP32 TEMP41 + PHRASE65>
6096 <DEAD TEMP32 TEMP41>
6097 <NTHUV ACST120 2 = TEMP41 (TYPE LOCAL)>
6098 <NTHUV TEMP41 1 = CHANGED7 (TYPE ATOM)>
6100 <NTHUV ACST120 3 = TEMP41>
6101 <EQUAL? TEMP41 'HACKED + BOOL64>
6103 <NTHUV ACST234 3 = TEMP41>
6104 <EQUAL? TEMP41 'HACKED - PHRASE63>
6107 <PUTUV ACST120 3 'HACKED>
6108 <PUTUV ACST234 3 'HACKED>
6112 <PUTUV ACST120 3 %<>>
6113 <PUTUV ACST234 3 %<>>
6116 <SET TEMP32 'T (TYPE ATOM)>
6119 <RESTUV TEMP23 1 = TEMP23 (TYPE VECTOR)>
6122 <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE66>
6125 <NTHUV ACST120 2 = TEMP23>
6126 <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE68>
6128 <NTHUV ACST120 2 = TEMP23 (TYPE LOCAL)>
6129 <NTHUV TEMP23 1 = CHANGED7 (TYPE ATOM)>
6131 <NTHUV ACST120 2 = TEMP23 (TYPE LOCAL)>
6135 <PUTUV ACST120 2 %<>>
6136 <PUTUV ACST120 3 %<>>
6139 <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
6142 <CHTYPE TWO6 <TYPE-CODE VECTOR> = TEMP15>
6147 <EMPUV? TEMP15 + MAPAP73>
6148 <NTHUV TEMP15 1 = ACST120>
6149 <NTHUV ACST120 2 = TEMP32>
6150 <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE80>
6152 <SUB WINNERS8 1 = WINNERS8 (TYPE FIX)>
6153 <LESS? WINNERS8 0 - PHRASE80 (TYPE FIX)>
6154 <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
6156 <NTHUV TEMP32 1 = CHANGED7 (TYPE ATOM)>
6161 <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
6166 <END
\1aMERGE-TWO-FORCE>
6168 <GFCN
\1aPLOCAL-NAME ("VALUE" <OR ATOM FIX> LOCAL-NAME) LN5>
6171 <FRAME '
\1aL-N-LMEMQ>
6173 <GVAL 'LOCALS = STACK>
6174 <CALL '
\1aL-N-LMEMQ 2 = LCL6>
6175 <TYPE? LCL6 <TYPE-CODE FALSE> - BOOL9>
6176 <GVAL 'ICALL-FLAG = TEMP10>
6177 <TYPE? TEMP10 <TYPE-CODE FALSE> + BOOL9>
6179 <FRAME '
\1aL-N-LMEMQ>
6181 <GVAL 'ICALL-TEMPS = STACK>
6182 <CALL '
\1aL-N-LMEMQ 2 = LCL6>
6184 <TYPE? LCL6 <TYPE-CODE FALSE> + PHRASE13>
6186 <NTHUV LCL6 1 = STACK (TYPE ATOM)>
6188 <GEN-LVAL 'OUTCHAN = STACK>
6189 <CALL '
\1aPRINC 2 = LCL6>
6195 <GEN-LVAL 'OUTCHAN = STACK>
6198 <CHTYPE LN5 <TYPE-CODE FIX> = STACK>
6200 <GEN-LVAL 'OUTCHAN = STACK>
6201 <CALL '
\1aPRIN1 2 = LCL6>
6204 <END
\1aPLOCAL-NAME>
6206 <GFCN
\1aPCONST-LABEL ("VALUE" <OR FIX LIST> CONSTANT-LABEL) CL5>
6207 <TEMP TEM6 TEMP13 TEMP19 TEMP22 TEMP27 TEMP31>
6209 <GVAL 'CONSTANT-VECTOR = TEM6>
6211 <LOOP (CL5 VALUE) (TEM6 VALUE)>
6213 <NTHL TEM6 1 = TEMP13>
6214 <TYPE? TEMP13 <TYPE-CODE CONSTANT-LABEL> - TAG12>
6215 <VEQUAL? TEMP13 CL5 + TAG10>
6218 <RESTL TEM6 1 = TEM6 (TYPE LIST)>
6219 <EMPL? TEM6 - TAG11>
6222 <SET TEM6 %<> (TYPE FALSE)>
6224 <TYPE? TEM6 <TYPE-CODE FALSE> + PHRASE8>
6225 <RESTL TEM6 1 = TEM6 (TYPE LIST)>
6226 <NTHL TEM6 1 = TEM6>
6227 <TYPE? TEM6 <TYPE-CODE CONSTANT> - PHRASE15>
6229 <CHTYPE TEM6 <TYPE-CODE FIX> = STACK>
6230 <GEN-LVAL 'OUTCHAN = STACK>
6231 <CALL '
\1aPRIN1 2 = TEMP19>
6236 <CHTYPE TEM6 <TYPE-CODE LIST> = STACK>
6238 <GEN-LVAL 'OUTCHAN = STACK>
6239 <CALL '
\1aPRIN1 2 = TEMP19>
6245 <GEN-LVAL 'OUTCHAN = STACK>
6248 <CHTYPE CL5 <TYPE-CODE FIX> = STACK>
6250 <GEN-LVAL 'OUTCHAN = STACK>
6251 <CALL '
\1aPRIN1 2 = TEMP19>
6254 <END
\1aPCONST-LABEL>
6256 <GFCN
\1aPCONST-BUCK ("VALUE" <OR FIX LIST> CONSTANT-BUCKET) CB5>
6259 <NTHUV CB5 1 = TEM6>
6261 <TYPE? TEM6 <TYPE-CODE CONSTANT> - PHRASE8>
6263 <CHTYPE TEM6 <TYPE-CODE FIX> = STACK>
6265 <GEN-LVAL 'OUTCHAN = STACK>
6266 <CALL '
\1aPRIN1 2 = TEM6>
6271 <CHTYPE TEM6 <TYPE-CODE LIST> = STACK>
6273 <GEN-LVAL 'OUTCHAN = STACK>
6274 <CALL '
\1aPRIN1 2 = TEM6>
6277 <END
\1aPCONST-BUCK>
6278 <COND (<GASSIGNED? PCONST-BUCK> <PRINTTYPE CONSTANT-BUCKET ,PCONST-BUCK>)>
6280 <COND (<GASSIGNED? PLOCAL-NAME> <PRINTTYPE LOCAL-NAME ,PLOCAL-NAME>)>
6282 <COND (<GASSIGNED? PCONST-LABEL> <PRINTTYPE CONSTANT-LABEL ,PCONST-LABEL