2 <SETG LB-DOPE <+ <CHTYPE <LSH 18 16> FIX> 32 770>>
16 <MANIFEST LB-DOPE LB-OBJ LB-ATOM LB-DECL LB-PREV LB-LAST LB-BID>
19 <GFCN
\1aGEN-BBIND ("VALUE" ATOM ATOM ANY <OR ATOM FALSE> "OPTIONAL" ANY) ATM6 DECL7 FIXUP?8 INIT9>
20 <OPT-DISPATCH 3 %<> OPT4 OPT5>
24 <TEMP AC10 TEMP23 TEMP28>
29 <CALL '
\1aMA-IMM 1 = STACK>
31 <CALL '
\1aEMIT-PUSH 2>
32 <TYPE? INIT9 <TYPE-CODE UNBOUND> + PHRASE15>
42 <CALL '
\1aMA-IMM 1 = STACK>
44 <CALL '
\1aEMIT-PUSH 2>
49 <CALL '
\1aGET-AC 2 = AC10>
51 <FRAME '
\1aADDR-VALUE-MQUOTE>
54 <CALL '
\1aADDR-VALUE-MQUOTE 1 = STACK>
55 <NTHUV AC10 2 = TEMP23 (TYPE FIX)>
56 <OR TEMP23 #WORD *120* = TEMP23>
57 <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
58 <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
61 <CALL '
\1aEMIT-MOVE 3>
65 <GVAL 'AC-TP = TEMP23>
66 <NTHUV TEMP23 2 = TEMP23 (TYPE FIX)>
67 <OR TEMP23 #WORD *200* = TEMP23>
68 <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
69 <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = STACK>
72 <CALL '
\1aEMIT-MOVE 3>
78 <GVAL 'AC-PC = TEMP23>
79 <NTHUV TEMP23 2 = TEMP23 (TYPE FIX)>
80 <OR TEMP23 #WORD *220* = TEMP23>
81 <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
82 <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
83 <CONS TEMP23 () = TEMP23>
85 <GVAL 'SPSTO-LOC = STACK>
86 <CALL '
\1aLREV 1 = TEMP28>
87 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
88 <CONS TEMP28 () = TEMP28>
89 <PUTREST TEMP23 TEMP28>
91 <CHTYPE TEMP23 <TYPE-CODE LADDR> = STACK>
94 <CALL '
\1aEMIT-PUSH 2>
99 <CALL '
\1aMA-DISP 2 = STACK>
101 <CALL '
\1aEMIT-PUSH 2>
102 <FRAME '
\1aEMIT-PUSH>
103 <GVAL 'AC-PC = TEMP23>
104 <NTHUV TEMP23 2 = TEMP23 (TYPE FIX)>
105 <OR TEMP23 #WORD *220* = TEMP23>
106 <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
107 <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
108 <CONS TEMP23 () = TEMP23>
110 <GVAL 'BINDID-LOC = STACK>
111 <CALL '
\1aLREV 1 = TEMP28>
112 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
113 <CONS TEMP28 () = TEMP28>
114 <PUTREST TEMP23 TEMP28>
116 <CHTYPE TEMP23 <TYPE-CODE LADDR> = STACK>
119 <CALL '
\1aEMIT-PUSH 2>
123 <GVAL 'AC-TP = STACK>
125 <CALL '
\1aMA-DISP 2 = STACK>
126 <GVAL 'AC-PC = TEMP23>
127 <NTHUV TEMP23 2 = TEMP23 (TYPE FIX)>
128 <OR TEMP23 #WORD *220* = TEMP23>
129 <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
130 <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
131 <CONS TEMP23 () = TEMP23>
133 <GVAL 'SPSTO-LOC = STACK>
134 <CALL '
\1aLREV 1 = TEMP28>
135 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
136 <CONS TEMP28 () = TEMP28>
137 <PUTREST TEMP23 TEMP28>
139 <CHTYPE TEMP23 <TYPE-CODE LADDR> = STACK>
142 <TYPE? FIXUP?8 <TYPE-CODE FALSE> + PHRASE37>
147 <GVAL 'AC-TP = STACK>
149 <CALL '
\1aMA-DISP 2 = STACK>
150 <NTHUV AC10 2 = TEMP23 (TYPE FIX)>
152 <OR TEMP23 #WORD *340* = TEMP23>
153 <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
154 <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
155 <CONS TEMP23 () = TEMP23>
158 <CALL '
\1aLREV 1 = TEMP28>
159 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
160 <CONS TEMP28 () = TEMP28>
161 <PUTREST TEMP23 TEMP28>
163 <CHTYPE TEMP23 <TYPE-CODE LADDR> = STACK>
171 <GFCN
\1aGEN-ASSIGNED? ("VALUE" ATOM ANY ANY ANY) FROB4 DIR5 LABEL6>
175 <GVAL 'IASSQ!-MIMOP = STACK>
181 <CALL '
\1aCALL-RTE 5>
185 <NTHUV TEMP9 2 = TEMP9 (TYPE FIX)>
186 <OR TEMP9 #WORD *120* = TEMP9>
187 <LSH TEMP9 24 = TEMP9 (TYPE FIX)>
188 <CHTYPE TEMP9 <TYPE-CODE EFF-ADDR> = STACK>
191 <EQUAL? DIR5 '- - PHRASE11>
193 <FRAME '
\1aGEN-BRANCH>
197 <PUSH 'CONDITIONAL-BRANCH>
198 <CALL '
\1aGEN-BRANCH 3>
199 <RETURN 'CONDITIONAL-BRANCH>
201 <FRAME '
\1aGEN-BRANCH>
205 <PUSH 'CONDITIONAL-BRANCH>
206 <CALL '
\1aGEN-BRANCH 3>
207 <RETURN 'CONDITIONAL-BRANCH>
208 <END
\1aGEN-ASSIGNED?>
211 <GFCN
\1aGEN-LVAL ("VALUE" ATOM <OR ATOM VARTBL> ANY) ATM4 RES5>
215 <GVAL 'ILVAL!-MIMOP = STACK>
222 <CALL '
\1aCALL-RTE 5>
227 <GFCN
\1aGEN-SET ("VALUE" ATOM ANY ANY) ATM4 VAL5>
231 <GVAL 'ISET!-MIMOP = STACK>
239 <CALL '
\1aCALL-RTE 6>
244 <GFCN
\1aMOVSTK-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY ANY) AMT8 RES9 HINT10 TYP11>
245 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
256 <GVAL 'IMOVSTK!-MIMOP = STACK>
263 <CALL '
\1aCALL-RTE 5>
268 <GFCN
\1aGETSTK-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY ANY) UV8 RES9 HINT10 TYP11>
269 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
280 <GVAL 'IGETSTK!-MIMOP = STACK>
287 <CALL '
\1aCALL-RTE 5>
292 <GFCN
\1aGETTTY-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY ANY) FROB8 RES9 HINT10 TYP11>
293 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
304 <GVAL 'IGETTTY!-MIMOP = STACK>
311 <CALL '
\1aCALL-RTE 5>
316 <GFCN
\1aSAVTTY-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY ANY ANY) OLD8 NEW9 RES10 HINT11 TYP12>
317 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
328 <GVAL 'ISAVTTY!-MIMOP = STACK>
337 <CALL '
\1aCALL-RTE 6>
342 <GFCN
\1aSETZONE-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY ANY) ZONE8 RES9 HINT10 TYP11>
343 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
354 <GVAL 'ISETZONE!-MIMOP = STACK>
361 <CALL '
\1aCALL-RTE 5>
366 <GFCN
\1aLEGAL-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY ANY) OBJ8 RES9 HINT10 TYP11>
367 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
378 <GVAL 'ILEGAL?!-MIMOP = STACK>
385 <CALL '
\1aCALL-RTE 5>
390 <GFCN
\1aTEMPLATE-TABLE-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY) OFFS6 TBL7 HINT8>
391 <OPT-DISPATCH 2 %<> OPT4 OPT5>
398 <GVAL 'ITTABLE!-MIMOP = STACK>
406 <CALL '
\1aCALL-RTE 6>
408 <END
\1aTEMPLATE-TABLE-GEN>
411 <GFCN
\1aFATAL-GEN ("VALUE" ATOM "OPTIONAL" ANY ANY) STR7 HINT8>
412 <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6>
421 <GVAL 'IFATAL!-MIMOP = STACK>
427 <CALL '
\1aCALL-RTE 5>
432 <GFCN
\1aQUIT-GEN ("VALUE" ATOM "OPTIONAL" ANY ANY) ARG7 HINT8>
433 <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6>
442 <GVAL 'IQUIT!-MIMOP = STACK>
448 <CALL '
\1aCALL-RTE 5>
453 <GFCN
\1aCONS-GEN ("VALUE" ATOM ANY <OR VARTBL LIST> <OR VARTBL ATOM> "OPTIONAL" ANY) NEARG6 LARG7 RES8 HINT9>
454 <OPT-DISPATCH 3 %<> OPT4 OPT5>
461 <GVAL 'ICONS!-MIMOP = STACK>
470 <CALL '
\1aCALL-RTE 6>
475 <GFCN
\1aUBLOCK-GEN ("VALUE" ATOM ATOM <OR FIX VARTBL> ANY "OPTIONAL" ANY) TYPARG6 NUMARG7 RES8 HINT9>
476 <OPT-DISPATCH 3 %<> OPT4 OPT5>
486 <GVAL 'TYPE-WORDS = VEC10>
487 <EMPUV? VEC10 + TAG14>
488 <LOOP (TYPARG6 VALUE) (VEC10 LENGTH VALUE)>
490 <NTHUV VEC10 1 = TEMP18>
491 <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17>
492 <VEQUAL? TEMP18 TYPARG6 + TAG15>
495 <RESTUV VEC10 1 = VEC10 (TYPE VECTOR)>
496 <EMPUV? VEC10 - TAG16>
498 <SET VEC10 %<> (TYPE FALSE)>
500 <VEQUAL? VEC10 0 + PHRASE13>
501 <FRAME '
\1aLOAD-CONSTANT>
503 <NTHUV VEC10 2 = STACK>
505 <CALL '
\1aLOAD-CONSTANT 2>
508 <FRAME '
\1aEMIT-MOVE>
509 <FRAME '
\1aTYPE-CODE>
511 <CALL '
\1aTYPE-CODE 1 = STACK>
512 <GVAL 'AC-0 = TEMP18>
513 <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
514 <OR TEMP18 #WORD *120* = TEMP18>
515 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
516 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
519 <CALL '
\1aEMIT-MOVE 3>
522 <GVAL 'IBLOCK!-MIMOP = STACK>
530 <CALL '
\1aCALL-RTE 5>
535 <GFCN
\1aUUBLOCK-GEN ("VALUE" ATOM ATOM <OR FIX VARTBL> ANY "OPTIONAL" ANY) TYPARG6 NUMARG7 RES8 HINT9>
536 <OPT-DISPATCH 3 %<> OPT4 OPT5>
546 <GVAL 'TYPE-WORDS = VEC10>
547 <EMPUV? VEC10 + TAG14>
548 <LOOP (TYPARG6 VALUE) (VEC10 LENGTH VALUE)>
550 <NTHUV VEC10 1 = TEMP18>
551 <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17>
552 <VEQUAL? TEMP18 TYPARG6 + TAG15>
555 <RESTUV VEC10 1 = VEC10 (TYPE VECTOR)>
556 <EMPUV? VEC10 - TAG16>
558 <SET VEC10 %<> (TYPE FALSE)>
560 <VEQUAL? VEC10 0 + PHRASE13>
561 <FRAME '
\1aLOAD-CONSTANT>
563 <NTHUV VEC10 2 = STACK>
565 <CALL '
\1aLOAD-CONSTANT 2>
568 <FRAME '
\1aEMIT-MOVE>
569 <FRAME '
\1aTYPE-CODE>
571 <CALL '
\1aTYPE-CODE 1 = STACK>
572 <GVAL 'AC-0 = TEMP18>
573 <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
574 <OR TEMP18 #WORD *120* = TEMP18>
575 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
576 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
579 <CALL '
\1aEMIT-MOVE 3>
582 <GVAL 'UIBLOCK!-MIMOP = STACK>
590 <CALL '
\1aCALL-RTE 5>
595 <GFCN
\1aCHTYPE-GEN ("VALUE" ATOM ANY <OR ATOM FORM VARTBL> <OR ATOM VARTBL> "OPTIONAL" ANY) VAR6 TYP7 RES8 HINT9>
596 <OPT-DISPATCH 3 %<> OPT4 OPT5>
600 <TEMP TEMP20 LV13 CAC11>
602 <TYPE? VAR6 <TYPE-CODE VARTBL> - PHRASE15>
603 <EQUAL? RES8 VAR6 - PHRASE17>
604 <FRAME '
\1aVAR-COUNT-STORED?>
606 <CALL '
\1aVAR-COUNT-STORED? 1 = TEMP20>
607 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE17>
611 <TYPE? TYP7 <TYPE-CODE ATOM> - PHRASE23>
612 <FRAME '
\1aTYPE-CODE>
615 <CALL '
\1aTYPE-CODE 1 = TEMP20>
618 <TYPE? TYP7 <TYPE-CODE VARTBL> - PHRASE25>
619 <FRAME '
\1aVAR-VALUE-ADDRESS>
622 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP20>
625 <FRAME '
\1aVAR-TYPE-ADDRESS>
626 <RESTL TYP7 1 = TEMP20 (TYPE LIST)>
628 <NTHL TEMP20 1 = STACK>
630 <CALL '
\1aVAR-TYPE-ADDRESS 1 = TEMP20>
634 <FRAME '
\1aVAR-TYPE-ADDRESS>
637 <CALL '
\1aVAR-TYPE-ADDRESS 2 = STACK>
639 <FRAME '
\1aFIND-CACHE-VAR>
642 <CALL '
\1aFIND-CACHE-VAR 1 = LV13>
643 <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE89>
644 <NTHUV LV13 9 = TEMP20>
645 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE89>
651 <TYPE? TYP7 <TYPE-CODE ATOM> - BOOL37>
652 <FRAME '
\1aCOUNT-NEEDED?>
654 <CALL '
\1aCOUNT-NEEDED? 1 = TEMP20>
655 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE36>
658 <EQUAL? RES8 'STACK - PHRASE40>
659 <FRAME '
\1aEMIT-PUSH>
660 <FRAME '
\1aVAR-TYPE-ADDRESS>
663 <CALL '
\1aVAR-TYPE-ADDRESS 2 = STACK>
665 <CALL '
\1aEMIT-PUSH 2>
666 <TYPE? TYP7 <TYPE-CODE VARTBL> - PHRASE44>
669 <FRAME '
\1aVAR-VALUE-ADDRESS>
672 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
674 <GVAL 'AC-TP = STACK>
676 <CALL '
\1aMA-DISP 2 = STACK>
680 <TYPE? TYP7 <TYPE-CODE FORM> - PHRASE48>
683 <FRAME '
\1aVAR-TYPE-ADDRESS>
684 <RESTL TYP7 1 = TEMP20 (TYPE LIST)>
686 <NTHL TEMP20 1 = STACK>
688 <CALL '
\1aVAR-TYPE-ADDRESS 1 = STACK>
690 <GVAL 'AC-TP = STACK>
692 <CALL '
\1aMA-DISP 2 = STACK>
698 <FRAME '
\1aTYPE-CODE>
701 <CALL '
\1aTYPE-CODE 1 = STACK>
703 <GVAL 'AC-TP = STACK>
705 <CALL '
\1aMA-DISP 2 = STACK>
708 <FRAME '
\1aEMIT-PUSH>
709 <FRAME '
\1aVAR-VALUE-ADDRESS>
712 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
714 <CALL '
\1aEMIT-PUSH 2>
722 <CALL '
\1aLOAD-VAR 4 = LV13>
726 <TYPE? TYP7 <TYPE-CODE ATOM> - PHRASE62>
727 <FRAME '
\1aVAR-TYPE-WORD-IN-AC?>
729 <CALL '
\1aVAR-TYPE-WORD-IN-AC? 1 = TEMP20>
730 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE62>
738 <CALL '
\1aLOAD-VAR 4 = CAC11>
741 <FRAME '
\1aTYPE-CODE>
744 <CALL '
\1aTYPE-CODE 1 = STACK>
745 <NTHUV CAC11 2 = TEMP20 (TYPE FIX)>
746 <OR TEMP20 #WORD *120* = TEMP20>
747 <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
748 <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
751 <FRAME '
\1aDEST-PAIR>
758 <CALL '
\1aDEST-PAIR 3>
761 <TYPE? TYP7 <TYPE-CODE ATOM> - PHRASE69>
768 <CALL '
\1aLOAD-VAR 4 = CAC11>
769 <FRAME '
\1aDEST-COUNT-DECL>
778 <CALL '
\1aDEST-COUNT-DECL 4>
781 <TYPE? TYP7 <TYPE-CODE FORM> - PHRASE72>
788 <CALL '
\1aLOAD-VAR 4 = CAC11>
791 <FRAME '
\1aVAR-TYPE-ADDRESS>
792 <RESTL TYP7 1 = TEMP20 (TYPE LIST)>
794 <NTHL TEMP20 1 = STACK>
797 <CALL '
\1aVAR-TYPE-ADDRESS 2 = STACK>
798 <NTHUV CAC11 2 = TEMP20 (TYPE FIX)>
799 <OR TEMP20 #WORD *120* = TEMP20>
800 <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
801 <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
804 <FRAME '
\1aDEST-PAIR>
811 <CALL '
\1aDEST-PAIR 3>
820 <CALL '
\1aLOAD-VAR 4 = CAC11>
823 <FRAME '
\1aVAR-VALUE-ADDRESS>
826 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
827 <NTHUV CAC11 2 = TEMP20 (TYPE FIX)>
828 <OR TEMP20 #WORD *120* = TEMP20>
829 <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
830 <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
833 <FRAME '
\1aDEST-PAIR>
840 <CALL '
\1aDEST-PAIR 3>
843 <EQUAL? RES8 'STACK - PHRASE84>
844 <FRAME '
\1aEMIT-PUSH>
845 <FRAME '
\1aTYPE-WORD>
848 <CALL '
\1aTYPE-WORD 1 = STACK>
850 <CALL '
\1aEMIT-PUSH 2>
851 <FRAME '
\1aEMIT-PUSH>
852 <FRAME '
\1aVAR-VALUE-ADDRESS>
855 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
857 <CALL '
\1aEMIT-PUSH 2>
860 <FRAME '
\1aLOAD-VAR-APP>
864 <CALL '
\1aLOAD-VAR-APP 2 = LV13>
865 <FRAME '
\1aDEST-DECL>
872 <CALL '
\1aDEST-DECL 3>
876 <FRAME '
\1aCOUNT-NEEDED?>
879 <CALL '
\1aTYPE 1 = STACK>
880 <CALL '
\1aCOUNT-NEEDED? 1 = TEMP20>
881 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE92>
883 <EQUAL? RES8 'STACK - PHRASE96>
884 <FRAME '
\1aEMIT-PUSH>
885 <FRAME '
\1aADDR-TYPE-M>
888 <CALL '
\1aADD-MVEC 1 = STACK>
889 <CALL '
\1aADDR-TYPE-M 1 = STACK>
890 <CALL '
\1aEMIT-PUSH 1>
891 <TYPE? TYP7 <TYPE-CODE VARTBL> - PHRASE101>
894 <FRAME '
\1aVAR-VALUE-ADDRESS>
897 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
899 <GVAL 'AC-TP = STACK>
901 <CALL '
\1aMA-DISP 2 = STACK>
905 <TYPE? TYP7 <TYPE-CODE FORM> - PHRASE105>
908 <FRAME '
\1aVAR-TYPE-ADDRESS>
909 <RESTL TYP7 1 = TEMP20 (TYPE LIST)>
911 <NTHL TEMP20 1 = STACK>
913 <CALL '
\1aVAR-TYPE-ADDRESS 1 = STACK>
915 <GVAL 'AC-TP = STACK>
917 <CALL '
\1aMA-DISP 2 = STACK>
923 <FRAME '
\1aTYPE-CODE>
926 <CALL '
\1aTYPE-CODE 1 = STACK>
928 <GVAL 'AC-TP = STACK>
930 <CALL '
\1aMA-DISP 2 = STACK>
933 <FRAME '
\1aEMIT-PUSH>
934 <FRAME '
\1aADDR-VAL-M>
937 <CALL '
\1aADDR-VAL-M 1 = STACK>
939 <CALL '
\1aEMIT-PUSH 2>
947 <FRAME '
\1aCHTYPE-GEN>
953 <CALL '
\1aCHTYPE-GEN 3>
956 <EQUAL? RES8 'STACK - PHRASE120>
957 <TYPE? TYP7 <TYPE-CODE VARTBL> - PHRASE122>
958 <FRAME '
\1aEMIT-PUSH>
959 <FRAME '
\1aVAR-VALUE-ADDRESS>
962 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
964 <CALL '
\1aEMIT-PUSH 2>
967 <TYPE? TYP7 <TYPE-CODE FORM> - PHRASE125>
968 <FRAME '
\1aEMIT-PUSH>
969 <FRAME '
\1aVAR-TYPE-ADDRESS>
970 <RESTL TYP7 1 = TEMP20 (TYPE LIST)>
972 <NTHL TEMP20 1 = STACK>
975 <CALL '
\1aVAR-TYPE-ADDRESS 2 = STACK>
976 <CALL '
\1aEMIT-PUSH 1>
979 <FRAME '
\1aEMIT-PUSH>
980 <FRAME '
\1aTYPE-CODE>
983 <CALL '
\1aTYPE-CODE 1 = STACK>
985 <CALL '
\1aEMIT-PUSH 2>
987 <FRAME '
\1aEMIT-PUSH>
989 <FRAME '
\1aFIX-CONSTANT?>
992 <CALL '
\1aFIX-CONSTANT? 1 = STACK>
993 <CALL '
\1aMA-IMM 1 = STACK>
995 <CALL '
\1aEMIT-PUSH 2>
1002 <CALL '
\1aSET-GEN 2>
1003 <FRAME '
\1aCHTYPE-GEN>
1009 <CALL '
\1aCHTYPE-GEN 3>
1013 <SETG GVAL-CAREFUL <>>
1016 <GFCN
\1aGVAL-GEN ("VALUE" ATOM <OR ATOM VARTBL> <OR ATOM VARTBL> "OPTIONAL" <OR FALSE HINT>) ATM6 RES7 HINT8>
1017 <OPT-DISPATCH 2 %<> OPT4 OPT5>
1021 <TEMP TYP11 TEMP22 ATMADDR10 ATMOFF15 VAC9 TAC12 NLABEL14>
1023 <TYPE? HINT8 <TYPE-CODE FALSE> + PHRASE17>
1024 <FRAME '
\1aPARSE-HINT>
1028 <CALL '
\1aPARSE-HINT 2 = TYP11>
1031 <SET TYP11 %<> (TYPE FALSE)>
1033 <GVAL 'BOOT-MODE = TEMP22>
1034 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE21>
1036 <FRAME '
\1aADDR-VALUE-MQUOTE>
1038 <CALL '
\1aADDR-VALUE-MQUOTE 1 = ATMADDR10>
1041 <TYPE? ATM6 <TYPE-CODE VARTBL> + PHRASE24>
1042 <FRAME '
\1aMA-DEF-DISP>
1043 <GVAL 'AC-M = STACK>
1045 <FRAME '
\1aADD-MVEC>
1046 <CHTYPE ATM6 <TYPE-CODE XGLOC> = STACK>
1047 <CALL '
\1aADD-MVEC 1 = STACK>
1049 <CALL '
\1a+ 2 = ATMOFF15>
1051 <CALL '
\1aMA-DEF-DISP 2 = ATMADDR10>
1053 <GVAL 'BOOT-MODE = TEMP22>
1054 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE29>
1059 <CALL '
\1aGET-AC 2 = VAC9>
1062 <CALL '
\1aPROTECT 1>
1063 <FRAME '
\1aEMIT-MOVE>
1066 <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1067 <OR TEMP22 #WORD *120* = TEMP22>
1068 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1069 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1072 <CALL '
\1aEMIT-MOVE 3>
1073 <FRAME '
\1aEMIT-MOVE>
1074 <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1075 <OR TEMP22 #WORD *140* = TEMP22>
1076 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1077 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1079 <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1080 <OR TEMP22 #WORD *120* = TEMP22>
1081 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1082 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1085 <CALL '
\1aEMIT-MOVE 3>
1086 <EQUAL? RES7 'STACK - PHRASE35>
1087 <FRAME '
\1aEMIT-PUSH>
1088 <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1090 <OR TEMP22 #WORD *140* = TEMP22>
1091 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1092 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1095 <CALL '
\1aEMIT-PUSH 2>
1098 <TYPE? TYP11 <TYPE-CODE FALSE> + BOOL40>
1099 <FRAME '
\1aCOUNT-NEEDED?>
1101 <CALL '
\1aCOUNT-NEEDED? 1 = TEMP22>
1102 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE39>
1105 <SET TYP11 %<> (TYPE FALSE)>
1109 <CALL '
\1aGET-AC 2 = TAC12>
1112 <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1114 <OR TEMP22 #WORD *140* = TEMP22>
1115 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1116 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1118 <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
1119 <OR TEMP22 #WORD *120* = TEMP22>
1120 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1121 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1126 <CALL '
\1aNEXT-AC 1 = VAC9>
1134 <CALL '
\1aMA-DISP 2 = STACK>
1135 <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1136 <OR TEMP22 #WORD *120* = TEMP22>
1137 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1138 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1142 <TYPE? TYP11 <TYPE-CODE FALSE> - PHRASE49>
1143 <FRAME '
\1aDEST-PAIR>
1151 <CALL '
\1aDEST-PAIR 4>
1154 <FRAME '
\1aDEST-DECL>
1162 <CALL '
\1aDEST-DECL 4>
1165 <TYPE? ATM6 <TYPE-CODE VARTBL> - PHRASE52>
1166 <GVAL 'GVAL-CAREFUL = TEMP22>
1167 <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE52>
1169 <FRAME '
\1aVAR-VALUE-IN-AC?>
1171 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TAC12>
1172 <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE55>
1175 <CALL '
\1aPROTECT 1>
1176 <EQUAL? RES7 'STACK - PHRASE59>
1177 <FRAME '
\1aEMIT-PUSH>
1178 <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
1180 <OR TEMP22 #WORD *260* = TEMP22>
1181 <LSH TEMP22 8 = TEMP22 (TYPE FIX)>
1182 <OR TEMP22 #WORD *0* = TEMP22>
1183 <LSH TEMP22 16 = TEMP22 (TYPE FIX)>
1184 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1187 <CALL '
\1aEMIT-PUSH 2>
1193 <CALL '
\1aGET-AC 2 = VAC9>
1196 <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
1198 <OR TEMP22 #WORD *260* = TEMP22>
1199 <LSH TEMP22 8 = TEMP22 (TYPE FIX)>
1200 <OR TEMP22 #WORD *0* = TEMP22>
1201 <LSH TEMP22 16 = TEMP22 (TYPE FIX)>
1202 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1204 <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1205 <OR TEMP22 #WORD *120* = TEMP22>
1206 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1207 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1215 <CALL '
\1aGET-AC 2 = VAC9>
1223 <CALL '
\1aGEN-LOC 3 = STACK>
1224 <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1225 <OR TEMP22 #WORD *120* = TEMP22>
1226 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1227 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1230 <EQUAL? RES7 'STACK - PHRASE69>
1231 <FRAME '
\1aEMIT-PUSH>
1232 <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1233 <OR TEMP22 #WORD *140* = TEMP22>
1234 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1235 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1238 <CALL '
\1aEMIT-PUSH 2>
1243 <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1244 <OR TEMP22 #WORD *140* = TEMP22>
1245 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1246 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1248 <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1249 <OR TEMP22 #WORD *120* = TEMP22>
1250 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1251 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1255 <EQUAL? RES7 'STACK + PHRASE116>
1256 <FRAME '
\1aDEST-PAIR>
1259 <CALL '
\1aNEXT-AC 1 = STACK>
1265 <CALL '
\1aDEST-PAIR 4>
1268 <GVAL 'GVAL-CAREFUL = TEMP22>
1269 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE77>
1271 <EQUAL? ATM6 'M$$BINDID + PHRASE77>
1272 <FRAME '
\1aFLUSH-ALL-ACS>
1273 <CALL '
\1aFLUSH-ALL-ACS 0>
1275 <GVAL 'AC-0 = STACK>
1277 <CALL '
\1aGET-AC 2 = TAC12>
1279 <GVAL 'AC-1 = STACK>
1281 <CALL '
\1aGET-AC 2 = VAC9>
1282 <FRAME '
\1aMAKE-LABEL>
1283 <CALL '
\1aMAKE-LABEL 0 = TYP11>
1284 <FRAME '
\1aMAKE-LABEL>
1285 <CALL '
\1aMAKE-LABEL 0 = NLABEL14>
1286 <TYPE? ATM6 <TYPE-CODE VARTBL> - PHRASE85>
1293 <CALL '
\1aGEN-LOC 3 = STACK>
1294 <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1295 <OR TEMP22 #WORD *120* = TEMP22>
1296 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1297 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1300 <FRAME '
\1aGEN-BRANCH>
1304 <CALL '
\1aGEN-BRANCH 3>
1307 <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1309 <OR TEMP22 #WORD *140* = TEMP22>
1310 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1311 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1313 <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
1314 <OR TEMP22 #WORD *120* = TEMP22>
1315 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1316 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1325 <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
1326 <OR TEMP22 #WORD *120* = TEMP22>
1327 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1328 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1332 <FRAME '
\1aGEN-BRANCH>
1336 <CALL '
\1aGEN-BRANCH 3>
1337 <FRAME '
\1aEMIT-LABEL>
1341 <CALL '
\1aEMIT-LABEL 2>
1342 <TYPE? ATM6 <TYPE-CODE VARTBL> - PHRASE95>
1345 <FRAME '
\1aVAR-VALUE-ADDRESS>
1348 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
1355 <GVAL 'AC-M = STACK>
1358 <CALL '
\1aMA-DISP 2 = STACK>
1361 <FRAME '
\1aCALL-RTE>
1362 <GVAL 'IGVERR!-MIMOP = STACK>
1364 <EQUAL? RES7 'STACK - TAG104>
1365 <SET TEMP22 %<> (TYPE FALSE)>
1373 <CALL '
\1aCALL-RTE 4>
1374 <FRAME '
\1aEMIT-LABEL>
1378 <CALL '
\1aEMIT-LABEL 2>
1379 <EQUAL? RES7 'STACK - PHRASE107>
1380 <FRAME '
\1aEMIT-PUSH>
1381 <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
1383 <OR TEMP22 #WORD *120* = TEMP22>
1384 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1385 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1388 <CALL '
\1aEMIT-PUSH 2>
1391 <FRAME '
\1aDEST-PAIR>
1394 <CALL '
\1aNEXT-AC 1 = STACK>
1400 <CALL '
\1aDEST-PAIR 4>
1403 <EQUAL? RES7 'STACK - PHRASE114>
1404 <FRAME '
\1aEMIT-PUSH>
1408 <CALL '
\1aEMIT-PUSH 2>
1414 <CALL '
\1aGET-AC 2 = TAC12>
1419 <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
1420 <OR TEMP22 #WORD *120* = TEMP22>
1421 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1422 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1425 <FRAME '
\1aDEST-PAIR>
1428 <CALL '
\1aNEXT-AC 1 = STACK>
1434 <CALL '
\1aDEST-PAIR 4>
1440 <GFCN
\1aSETG-GEN ("VALUE" ATOM ATOM ANY "OPTIONAL" ANY) ATM6 VAL7 HINT8>
1441 <OPT-DISPATCH 2 %<> OPT4 OPT5>
1445 <TEMP (A111 %<>) (A212 %<>) (TWOM13 %<>) LV14 TEMP22>
1447 <TYPE? VAL7 <TYPE-CODE VARTBL> - PHRASE16>
1448 <FRAME '
\1aFIND-CACHE-VAR>
1450 <CALL '
\1aFIND-CACHE-VAR 1 = LV14>
1451 <TYPE? LV14 <TYPE-CODE FALSE> + PHRASE16>
1452 <NTHUV LV14 9 = A111>
1453 <NTHUV LV14 6 = A212>
1456 <SET LV14 %<> (TYPE FALSE)>
1458 <GVAL 'BOOT-MODE = TEMP22>
1459 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE21>
1461 <FRAME '
\1aADDR-VALUE-MQUOTE>
1464 <CALL '
\1aADDR-VALUE-MQUOTE 1 = LV14>
1467 <FRAME '
\1aFIX-CONSTANT?>
1469 <CALL '
\1aFIX-CONSTANT? 1 = TEMP22>
1470 <TYPE? TEMP22 <TYPE-CODE FALSE> - BOOL31>
1472 <TYPE? LV14 <TYPE-CODE FALSE> + PHRASE24>
1473 <NTHUV LV14 2 = TEMP22>
1474 <TYPE? TEMP22 <TYPE-CODE FALSE> + BOOL28>
1476 <NTHUV LV14 4 = TEMP22>
1477 <TYPE? TEMP22 <TYPE-CODE FALSE> + BOOL28>
1479 <NTHUV LV14 3 = LV14>
1480 <TYPE? LV14 <TYPE-CODE FALSE> - PHRASE24>
1483 <TYPE? A111 <TYPE-CODE FALSE> + BOOL31>
1486 <CALL '
\1aNEXT-AC 1 = TEMP22>
1487 <EQUAL? A212 TEMP22 + PHRASE24>
1490 <SET TWOM13 'T (TYPE ATOM)>
1491 <FRAME '
\1aADDR-VALUE-MQUOTE>
1492 <CHTYPE ATM6 <TYPE-CODE XGLOC> = STACK>
1494 <CALL '
\1aADDR-VALUE-MQUOTE 1 = LV14>
1497 <FRAME '
\1aMA-DEF-DISP>
1498 <GVAL 'AC-M = STACK>
1499 <FRAME '
\1aADD-MVEC>
1500 <CHTYPE ATM6 <TYPE-CODE XGLOC> = STACK>
1502 <CALL '
\1aADD-MVEC 1 = TEMP22>
1503 <ADD TEMP22 4 = STACK (TYPE FIX)>
1505 <CALL '
\1aMA-DEF-DISP 2 = LV14>
1507 <GVAL 'BOOT-MODE = TEMP22>
1508 <TYPE? TEMP22 <TYPE-CODE FALSE> - BOOL40>
1510 <VEQUAL? TWOM13 0 + PHRASE39>
1512 <TYPE? A111 <TYPE-CODE FALSE> + PHRASE42>
1516 <CALL '
\1aPROTECT 1>
1518 <TYPE? A212 <TYPE-CODE FALSE> + PHRASE45>
1522 <CALL '
\1aPROTECT 1>
1527 <CALL '
\1aGET-AC 2 = A111>
1532 <NTHUV A111 2 = TEMP22 (TYPE FIX)>
1533 <OR TEMP22 #WORD *120* = TEMP22>
1534 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1535 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1540 <CALL '
\1aPROTECT 1>
1541 <VEQUAL? TWOM13 0 - PHRASE51>
1545 <NTHUV A111 2 = TEMP22 (TYPE FIX)>
1546 <OR TEMP22 #WORD *140* = TEMP22>
1547 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1548 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1550 <NTHUV A111 2 = TEMP22 (TYPE FIX)>
1551 <OR TEMP22 #WORD *120* = TEMP22>
1552 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1553 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1557 <TYPE? VAL7 <TYPE-CODE VARTBL> + BOOL55>
1558 <FRAME '
\1aFIX-CONSTANT?>
1560 <CALL '
\1aFIX-CONSTANT? 1 = TEMP22>
1561 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE54>
1564 <FRAME '
\1aMOVE-TYPE>
1566 <NTHUV A111 2 = TEMP22 (TYPE FIX)>
1567 <OR TEMP22 #WORD *140* = TEMP22>
1568 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1569 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1574 <CALL '
\1aMA-DISP 2 = STACK>
1575 <CALL '
\1aMOVE-TYPE 3>
1576 <FRAME '
\1aMOVE-VALUE>
1583 <CALL '
\1aMA-DISP 2 = STACK>
1584 <CALL '
\1aMOVE-VALUE 2>
1587 <FRAME '
\1aEMIT-MOVE>
1588 <FRAME '
\1aADDR-TYPE-MQUOTE>
1591 <CALL '
\1aADDR-TYPE-MQUOTE 1 = STACK>
1592 <NTHUV A111 2 = TEMP22 (TYPE FIX)>
1594 <OR TEMP22 #WORD *140* = TEMP22>
1595 <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1596 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1599 <CALL '
\1aEMIT-MOVE 3>
1602 <TYPE? VAL7 <TYPE-CODE VARTBL> - PHRASE64>
1605 <FRAME '
\1aVAR-TYPE-ADDRESS>
1609 <CALL '
\1aVAR-TYPE-ADDRESS 2 = STACK>
1617 <FRAME '
\1aADDR-TYPE-MQUOTE>
1620 <CALL '
\1aADDR-TYPE-MQUOTE 1 = STACK>
1627 <SETG BE-COMPATIBLE T>
1630 <GFCN
\1aSET-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" <OR FALSE HINT>) VAR6 VAL7 HINT8>
1631 <OPT-DISPATCH 2 %<> OPT4 OPT5>
1637 <FRAME '
\1aDEAD-VAR>
1639 <CALL '
\1aDEAD-VAR 1>
1640 <TYPE? VAL7 <TYPE-CODE VARTBL> - PHRASE16>
1641 <FRAME '
\1aLOAD-VAR-APP>
1644 <FRAME '
\1aVARTBL-DECL>
1646 <CALL '
\1aVARTBL-DECL 1 = STACK>
1648 <CALL '
\1aLOAD-VAR-APP 4 = VAC9>
1649 <FRAME '
\1aLINK-VAR-TO-AC>
1655 <CALL '
\1aLINK-VAR-TO-AC 4>
1656 <FRAME '
\1aVARTBL-DECL>
1658 <CALL '
\1aVARTBL-DECL 1 = VAC9>
1659 <TYPE? VAC9 <TYPE-CODE FALSE> - BOOL22>
1660 <FRAME '
\1aVARTBL-DECL>
1662 <CALL '
\1aVARTBL-DECL 1 = VAC9>
1663 <TYPE? VAC9 <TYPE-CODE FALSE> + PHRASE21>
1665 <FRAME '
\1aINDICATE-CACHED-VARIABLE-DECL>
1668 <CALL '
\1aINDICATE-CACHED-VARIABLE-DECL 2>
1669 <FRAME '
\1aCOUNT-NEEDED?>
1672 <CALL '
\1aCOUNT-NEEDED? 1 = VAC9>
1673 <TYPE? VAC9 <TYPE-CODE FALSE> + PHRASE45>
1675 <FRAME '
\1aLOAD-VAR>
1683 <CALL '
\1aLOAD-VAR 6 = VAC9>
1684 <FRAME '
\1aLINK-VAR-TO-AC>
1690 <CALL '
\1aLINK-VAR-TO-AC 4>
1693 <FRAME '
\1aLOAD-VAR>
1701 <CALL '
\1aLOAD-VAR 6 = TAC10>
1702 <FRAME '
\1aLINK-VAR-TO-AC>
1708 <CALL '
\1aLINK-VAR-TO-AC 4>
1711 <FRAME '
\1aPRIMTYPE>
1713 <CALL '
\1aPRIMTYPE 1 = VAC9>
1714 <VEQUAL? VAC9 'FIX + PHRASE35>
1719 <CALL '
\1aGET-AC 2 = TAC10>
1722 <FRAME '
\1aADDR-TYPE-M>
1723 <FRAME '
\1aADD-MVEC>
1725 <CALL '
\1aADD-MVEC 1 = STACK>
1726 <CALL '
\1aADDR-TYPE-M 1 = STACK>
1727 <NTHUV TAC10 2 = VAC9 (TYPE FIX)>
1728 <OR VAC9 #WORD *120* = VAC9>
1729 <LSH VAC9 24 = VAC9 (TYPE FIX)>
1730 <CHTYPE VAC9 <TYPE-CODE EFF-ADDR> = STACK>
1733 <FRAME '
\1aDEST-PAIR>
1736 <CALL '
\1aNEXT-AC 1 = STACK>
1740 <CALL '
\1aDEST-PAIR 3>
1741 <FRAME '
\1aINDICATE-CACHED-VARIABLE-DECL>
1746 <CALL '
\1aTYPE 1 = STACK>
1747 <CALL '
\1aINDICATE-CACHED-VARIABLE-DECL 2>
1750 <FRAME '
\1aGEN-CONSTANT>
1754 <PUSH 'COUNT-IF-NECESSARY>
1755 <CALL '
\1aGEN-CONSTANT 4 = VAC9>
1756 <FRAME '
\1aLINK-VAR-TO-AC>
1762 <CALL '
\1aLINK-VAR-TO-AC 4>
1763 <GVAL 'CONSTANT-COUNT-AC = VAC9>
1764 <TYPE? VAC9 <TYPE-CODE FALSE> + BOOL48>
1766 <FRAME '
\1aLINK-VAR-TO-AC>
1768 <GVAL 'CONSTANT-COUNT-AC = STACK>
1771 <CALL '
\1aLINK-VAR-TO-AC 4>
1773 <FRAME '
\1aINDICATE-CACHED-VARIABLE-DECL>
1778 <CALL '
\1aTYPE 1 = STACK>
1779 <CALL '
\1aINDICATE-CACHED-VARIABLE-DECL 2>
1781 <FRAME '
\1aPROCESS-DESTINATION-HINT>
1786 <CALL '
\1aPROCESS-DESTINATION-HINT 2>
1791 <GFCN
\1aMRETURN-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY) TVAR6 FVAR7 RES8>
1792 <OPT-DISPATCH 2 %<> OPT4 OPT5>
1798 <FRAME '
\1aINDICATE-ALL-DEAD>
1799 <CALL '
\1aINDICATE-ALL-DEAD 0>
1800 <TYPE? TVAR6 <TYPE-CODE VARTBL> - PHRASE11>
1803 <TYPE? FVAR7 <TYPE-CODE VARTBL> - PHRASE13>
1808 <TYPE? TVAR6 <TYPE-CODE VARTBL> - PHRASE16>
1809 <FRAME '
\1aVAR-VALUE-ADDRESS>
1812 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP18>
1818 <CALL '
\1aMA-IMM 1 = TEMP18>
1822 <GVAL 'AC-1 = TEMP18>
1823 <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
1824 <OR TEMP18 #WORD *120* = TEMP18>
1825 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1826 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1830 <GVAL 'AC-1 = STACK>
1831 <CALL '
\1aPROTECT 1>
1832 <EQUAL? FVAR7 0 - PHRASE22>
1833 <GVAL 'MAKTUP-FLAG = TEMP18>
1834 <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE24>
1836 <GVAL 'ICALL-LEVEL = TEMP18>
1837 <VEQUAL? TEMP18 0 - PHRASE24 (TYPE FIX)>
1842 <GVAL 'AC-F = STACK>
1844 <CALL '
\1aMA-DISP 2 = STACK>
1845 <GVAL 'AC-2 = TEMP18>
1846 <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
1847 <OR TEMP18 #WORD *120* = TEMP18>
1848 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1849 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1856 <GVAL 'AC-F = TEMP18>
1857 <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
1858 <OR TEMP18 #WORD *120* = TEMP18>
1859 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1860 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1862 <GVAL 'AC-2 = TEMP18>
1863 <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
1864 <OR TEMP18 #WORD *120* = TEMP18>
1865 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1866 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1873 <FRAME '
\1aVAR-VALUE-ADDRESS>
1876 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
1877 <GVAL 'AC-2 = TEMP18>
1878 <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
1879 <OR TEMP18 #WORD *120* = TEMP18>
1880 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1881 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1886 <GVAL 'AC-2 = STACK>
1887 <CALL '
\1aPROTECT 1>
1888 <FRAME '
\1aCALL-RTE>
1889 <GVAL 'IMRETURN!-MIMOP = STACK>
1893 <CALL '
\1aCALL-RTE 4>
1894 <RETURN 'UNCONDITIONAL-BRANCH>
1895 <END
\1aMRETURN-GEN>
1898 <GFCN
\1aRETURN-GEN ("VALUE" ATOM ANY "OPTIONAL" <OR FALSE VARTBL> ANY) VAL7 FRM8 RES9>
1899 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
1907 <FRAME '
\1aINDICATE-ALL-DEAD>
1908 <CALL '
\1aINDICATE-ALL-DEAD 0>
1909 <TYPE? FRM8 <TYPE-CODE VARTBL> - PHRASE12>
1912 <TYPE? VAL7 <TYPE-CODE VARTBL> - PHRASE14>
1914 <FRAME '
\1aLOAD-VAR>
1918 <GVAL 'AC-1 = STACK>
1919 <CALL '
\1aLOAD-VAR 4>
1920 <FRAME '
\1aLOAD-VAR>
1925 <GVAL 'AC-0 = STACK>
1926 <CALL '
\1aLOAD-VAR 4>
1929 <FRAME '
\1aGEN-CONSTANT>
1932 <GVAL 'AC-1 = STACK>
1933 <GVAL 'AC-0 = STACK>
1935 <CALL '
\1aGEN-CONSTANT 4>
1938 <GVAL 'AC-1 = STACK>
1939 <CALL '
\1aPROTECT 1>
1941 <GVAL 'AC-0 = STACK>
1942 <CALL '
\1aPROTECT 1>
1943 <TYPE? FRM8 <TYPE-CODE FALSE> + PHRASE22>
1946 <FRAME '
\1aVAR-VALUE-ADDRESS>
1949 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
1950 <GVAL 'AC-F = TEMP25>
1951 <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
1952 <OR TEMP25 #WORD *120* = TEMP25>
1953 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1954 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1959 <GVAL 'MAKTUP-FLAG = TEMP25>
1960 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE26>
1962 <GVAL 'ICALL-LEVEL = TEMP25>
1963 <VEQUAL? TEMP25 0 - PHRASE26 (TYPE FIX)>
1968 <GVAL 'AC-F = STACK>
1970 <CALL '
\1aMA-DISP 2 = STACK>
1971 <GVAL 'AC-F = TEMP25>
1972 <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
1973 <OR TEMP25 #WORD *120* = TEMP25>
1974 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1975 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1979 <FRAME '
\1aCALL-RTE>
1980 <GVAL 'FINIS!-MIMOP = STACK>
1984 <CALL '
\1aCALL-RTE 4>
1985 <RETURN 'UNCONDITIONAL-BRANCH>
1989 <GFCN
\1aDISPATCH-GEN ("VALUE" ATOM ANY <PRIMTYPE WORD> "TUPLE" <TUPLE [REST ATOM]>) VAR4 BASE5>
1990 <MAKTUP LABELS6 CT7 AC25:AC = LABELS6>
1992 <LENUV LABELS6 = CT7 (TYPE FIX)>
1993 <FRAME '
\1aSTORE-ALL-ACS>
1994 <CALL '
\1aSTORE-ALL-ACS 0>
1997 <FRAME '
\1aVAR-VALUE-ADDRESS>
2000 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2004 <CALL '
\1aMA-IMM 1 = STACK>
2006 <SUB CT7 1 = STACK (TYPE FIX)>
2008 <CALL '
\1aMA-IMM 1 = STACK>
2010 <GVAL 'ALL-ACS = CT7>
2014 <EMPUV? CT7 + MAPAP17>
2015 <NTHUV CT7 1 = AC25>
2016 <FRAME '
\1aSTORE-AC>
2020 <CALL '
\1aSTORE-AC 2>
2021 <RESTUV CT7 1 = CT7 (TYPE VECTOR)>
2024 <CHTYPE LABELS6 <TYPE-CODE VECTOR> = CT7>
2029 <EMPUV? CT7 + MAPAP31>
2030 <NTHUV CT7 1 = LABELS6>
2031 <FRAME '
\1aEMIT-LABEL-WORD>
2034 <CALL '
\1aEMIT-LABEL-WORD 1 = LABELS6>
2035 <FRAME '
\1aSAVE-XREF-AC-INFO>
2038 <FRAME '
\1aSAVE-STATE>
2039 <CALL '
\1aSAVE-STATE 0 = STACK>
2040 <FRAME '
\1aSAVE-LOAD-STATE>
2041 <CALL '
\1aSAVE-LOAD-STATE 0 = STACK>
2042 <CALL '
\1aSAVE-XREF-AC-INFO 3>
2043 <RESTUV CT7 1 = CT7 (TYPE VECTOR)>
2046 <RETURN 'CONDITIONAL-BRANCH>
2047 <END
\1aDISPATCH-GEN>
2050 <GFCN
\1aOPDISP-GEN ("VALUE" ATOM FIX <OR FALSE FIX> "TUPLE" <TUPLE [REST ATOM]>) RNUM4 TRONUM5>
2051 <MAKTUP LABELS6 NARGS7:FIX TEMP10 = LABELS6>
2055 <GVAL 'AC-0 = STACK>
2056 <CALL '
\1aPROTECT 1>
2059 <GVAL 'AC-0 = TEMP10>
2060 <NTHUV TEMP10 2 = TEMP10 (TYPE FIX)>
2061 <OR TEMP10 #WORD *120* = TEMP10>
2062 <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2063 <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
2065 <AND RNUM4 #WORD *77* = TEMP10>
2066 <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2067 <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
2069 <TYPE? TRONUM5 <TYPE-CODE FALSE> + PHRASE12>
2070 <SUB TRONUM5 RNUM4 = TEMP10 (TYPE FIX)>
2071 <DEAD TRONUM5 RNUM4>
2074 <LENUV LABELS6 = TEMP10 (TYPE FIX)>
2075 <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
2077 <AND TEMP10 #WORD *77* = TEMP10>
2078 <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2079 <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
2082 <CHTYPE LABELS6 <TYPE-CODE VECTOR> = TEMP10>
2087 <EMPUV? TEMP10 + MAPAP19>
2088 <NTHUV TEMP10 1 = LABELS6>
2089 <FRAME '
\1aEMIT-LABEL-WORD>
2091 <CALL '
\1aEMIT-LABEL-WORD 1>
2092 <FRAME '
\1aADD-INTERNAL-ENTRY>
2096 <CALL '
\1aADD-INTERNAL-ENTRY 2>
2097 <ADD NARGS7 1 = NARGS7 (TYPE FIX)>
2098 <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
2105 <GFCN
\1aMAKTUP-GEN ("VALUE" ATOM "TUPLE" ANY)>
2106 <MAKTUP TEMPS4 TLEN6 ARGS7:LIST TVAR9 TEMPS24 TEMP32 TEMP36 = TEMPS4>
2108 <LENUV TEMPS4 = TLEN6 (TYPE FIX)>
2109 <GVAL 'ARGLIST-VARS = ARGS7>
2110 <NTHUV TEMPS4 TLEN6 = TLEN6>
2111 <FRAME '
\1aTEMP-PROCESS>
2113 <CALL '
\1aTEMP-PROCESS 1>
2115 <FRAME '
\1aFIND-VAR>
2117 <CALL '
\1aFIND-VAR 1 = TVAR9>
2120 <CALL '
\1aGEN-LOC 2>
2123 <CHTYPE TEMPS4 <TYPE-CODE VECTOR> = TEMPS4>
2124 <SET TVAR9 0 (TYPE FIX)>
2125 <FRAME '
\1aTEMP-PROCESS>
2129 <EMPUV? TEMPS4 + MAPAP17>
2130 <SET TEMPS24 TEMPS4>
2131 <NTHUV TEMPS24 1 = TEMPS24>
2132 <EQUAL? TEMPS24 '= + MAPAP17>
2133 <EQUAL? TLEN6 TEMPS24 + COND26>
2137 <CALL '
\1a=? 2 = TEMP32>
2138 <VEQUAL? TEMP32 0 - COND26>
2140 <TYPE? TLEN6 <TYPE-CODE ADECL> - PHRASE34>
2141 <TYPE? TEMPS24 <TYPE-CODE ADECL> - PHRASE34>
2142 <NTHUV TLEN6 1 = TEMP32>
2143 <NTHUV TEMPS24 1 = TEMP36>
2144 <EQUAL? TEMP32 TEMP36 - PHRASE29>
2145 <DEAD TEMP32 TEMP36>
2148 <TYPE? TLEN6 <TYPE-CODE ADECL> - PHRASE37>
2149 <TYPE? TEMPS24 <TYPE-CODE ATOM> - PHRASE37>
2150 <NTHUV TLEN6 1 = TEMP36>
2151 <EQUAL? TEMP36 TEMPS24 - PHRASE29>
2155 <TYPE? TLEN6 <TYPE-CODE ATOM> - PHRASE29>
2156 <TYPE? TEMPS24 <TYPE-CODE ADECL> - PHRASE29>
2157 <NTHUV TEMPS24 1 = TEMP36>
2158 <EQUAL? TEMP36 TLEN6 + COND26>
2163 <ADD TVAR9 1 = TVAR9 (TYPE FIX)>
2165 <RESTUV TEMPS4 1 = TEMPS4 (TYPE VECTOR)>
2168 <CALL '
\1aTEMP-PROCESS TVAR9>
2172 <GVAL 'AC-0 = TLEN6>
2173 <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
2175 <OR TVAR9 #WORD *120* = TVAR9>
2176 <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
2177 <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
2179 <GVAL 'AC-1 = TLEN6>
2180 <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
2182 <OR TVAR9 #WORD *120* = TVAR9>
2183 <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
2184 <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
2187 <EMPL? ARGS7 + PHRASE45 (TYPE LIST)>
2188 <FRAME '
\1aADD-CONSTANT-TO-AC>
2189 <LENL ARGS7 = TVAR9 (TYPE FIX)>
2190 <SUB 0 TVAR9 = STACK (TYPE FIX)>
2192 <GVAL 'AC-1 = STACK>
2193 <CALL '
\1aADD-CONSTANT-TO-AC 2>
2194 <FRAME '
\1aMAKE-LABEL>
2195 <CALL '
\1aMAKE-LABEL 0 = TEMPS24>
2196 <FRAME '
\1aGEN-BRANCH>
2200 <CALL '
\1aGEN-BRANCH 3>
2203 <GVAL 'AC-1 = TLEN6>
2204 <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
2206 <OR TVAR9 #WORD *120* = TVAR9>
2207 <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
2208 <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
2211 <FRAME '
\1aEMIT-LABEL>
2215 <CALL '
\1aEMIT-LABEL 2>
2217 <SETG 'MAKTUP-FLAG 'T>
2218 <FRAME '
\1aEMIT-PUSH>
2219 <FRAME '
\1aTYPE-CODE>
2221 <CALL '
\1aTYPE-CODE 1 = STACK>
2223 <CALL '
\1aEMIT-PUSH 2>
2224 <FRAME '
\1aEMIT-PUSH>
2225 <GVAL 'AC-1 = TLEN6>
2226 <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
2228 <OR TVAR9 #WORD *120* = TVAR9>
2229 <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
2230 <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
2233 <CALL '
\1aEMIT-PUSH 2>
2234 <FRAME '
\1aCLEAR-PUSH>
2235 <CALL '
\1aCLEAR-PUSH 0>
2236 <FRAME '
\1aEMIT-PUSH>
2237 <FRAME '
\1aTYPE-WORD>
2239 <CALL '
\1aTYPE-WORD 1 = STACK>
2241 <CALL '
\1aEMIT-PUSH 2>
2242 <FRAME '
\1aEMIT-PUSH>
2243 <GVAL 'AC-F = TLEN6>
2244 <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
2246 <OR TVAR9 #WORD *120* = TVAR9>
2247 <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
2248 <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
2251 <CALL '
\1aEMIT-PUSH 2>
2254 <GVAL 'AC-TP = TLEN6>
2255 <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
2257 <OR TVAR9 #WORD *120* = TVAR9>
2258 <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
2259 <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
2261 <GVAL 'AC-2 = TLEN6>
2262 <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
2264 <OR TVAR9 #WORD *120* = TVAR9>
2265 <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
2266 <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
2269 <SET TVAR9 ARGS7 (TYPE LIST)>
2273 <EMPL? TVAR9 + MAPAP63>
2274 <NTHL TVAR9 1 = TLEN6>
2275 <FRAME '
\1aEMIT-PUSH>
2276 <FRAME '
\1aADDR-VAR-TYPE>
2279 <CALL '
\1aADDR-VAR-TYPE 1 = STACK>
2281 <CALL '
\1aEMIT-PUSH 2>
2282 <RESTL TVAR9 1 = TVAR9 (TYPE LIST)>
2285 <FRAME '
\1aEMIT-PUSH>
2286 <FRAME '
\1aTYPE-CODE>
2288 <CALL '
\1aTYPE-CODE 1 = STACK>
2290 <CALL '
\1aEMIT-PUSH 2>
2291 <FRAME '
\1aEMIT-PUSH>
2292 <GVAL 'AC-1 = TLEN6>
2293 <NTHUV TLEN6 2 = TLEN6 (TYPE FIX)>
2294 <OR TLEN6 #WORD *120* = TLEN6>
2295 <LSH TLEN6 24 = TLEN6 (TYPE FIX)>
2296 <CHTYPE TLEN6 <TYPE-CODE EFF-ADDR> = STACK>
2299 <CALL '
\1aEMIT-PUSH 2>
2300 <FRAME '
\1aEMIT-PUSH>
2301 <GVAL 'AC-F = TLEN6>
2302 <NTHUV TLEN6 2 = TLEN6 (TYPE FIX)>
2303 <OR TLEN6 #WORD *120* = TLEN6>
2304 <LSH TLEN6 24 = TLEN6 (TYPE FIX)>
2305 <CHTYPE TLEN6 <TYPE-CODE EFF-ADDR> = STACK>
2308 <CALL '
\1aEMIT-PUSH 2>
2309 <EMPL? ARGS7 + BOOL73>
2313 <LENL ARGS7 = TLEN6 (TYPE FIX)>
2315 <LSH TLEN6 3 = STACK (TYPE FIX)>
2317 <CALL '
\1aMA-IMM 1 = STACK>
2319 <GVAL 'AC-TP = STACK>
2321 <CALL '
\1aMA-DISP 2 = STACK>
2326 <GVAL 'AC-2 = TLEN6>
2327 <NTHUV TLEN6 2 = TLEN6 (TYPE FIX)>
2328 <OR TLEN6 #WORD *120* = TLEN6>
2329 <LSH TLEN6 24 = TLEN6 (TYPE FIX)>
2330 <CHTYPE TLEN6 <TYPE-CODE EFF-ADDR> = STACK>
2332 <GVAL 'AC-F = TLEN6>
2333 <NTHUV TLEN6 2 = TLEN6 (TYPE FIX)>
2334 <OR TLEN6 #WORD *120* = TLEN6>
2335 <LSH TLEN6 24 = TLEN6 (TYPE FIX)>
2336 <CHTYPE TLEN6 <TYPE-CODE EFF-ADDR> = STACK>
2339 <FRAME '
\1aINDICATE-TEMP-PATCH>
2340 <FRAME '
\1aADD-PATCH>
2342 <CALL '
\1aADD-PATCH 1 = STACK>
2343 <CALL '
\1aINDICATE-TEMP-PATCH 1>
2347 <COND (<NOT <GASSIGNED? ICALL-LEVEL>> <SETG ICALL-LEVEL 0>)>
2350 <GFCN
\1aICALL-GEN ("VALUE" ATOM ATOM "OPTIONAL" <OR FALSE ATOM VARTBL>) LABEL6 RES7>
2351 <OPT-DISPATCH 1 %<> OPT4 OPT5>
2355 <TEMP TEMP12 TADDR9 TLAB10>
2357 <FRAME '
\1aFLUSH-ALL-ACS>
2358 <CALL '
\1aFLUSH-ALL-ACS 0>
2359 <GVAL 'ICALL-LEVEL = TEMP12>
2360 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
2361 <SETG 'ICALL-LEVEL TEMP12>
2363 <TYPE? RES7 <TYPE-CODE VARTBL> - PHRASE14>
2364 <FRAME '
\1aADDR-VAR-TYPE>
2366 <CALL '
\1aADDR-VAR-TYPE 1 = TADDR9>
2367 <FRAME '
\1aADDR-VAR-VALUE>
2369 <CALL '
\1aADDR-VAR-VALUE 1 = TEMP12>
2371 <GVAL 'ICALL-LABELS = TEMP12>
2372 <CONS LABEL6 TEMP12 = TEMP12>
2373 <SETG 'ICALL-LABELS TEMP12>
2375 <FRAME '
\1aNEW-MODEL>
2376 <FRAME '
\1aCREATE-MODEL>
2377 <CALL '
\1aCREATE-MODEL 0 = STACK>
2378 <CALL '
\1aNEW-MODEL 1>
2379 <FRAME '
\1aCALL-RTE>
2380 <GVAL 'INCALL!-MIMOP = STACK>
2384 <CALL '
\1aCALL-RTE 4>
2385 <FRAME '
\1aMAKE-LABEL>
2386 <CALL '
\1aMAKE-LABEL 0 = TLAB10>
2387 <FRAME '
\1aEMIT-BRANCH>
2394 <CALL '
\1aEMIT-BRANCH 6>
2395 <EQUAL? RES7 'STACK - PHRASE23>
2396 <FRAME '
\1aEMIT-PUSH>
2397 <GVAL 'AC-0 = TEMP12>
2398 <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
2399 <OR TEMP12 #WORD *120* = TEMP12>
2400 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2401 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2404 <CALL '
\1aEMIT-PUSH 2>
2407 <TYPE? RES7 <TYPE-CODE VARTBL> - PHRASE25>
2411 <GVAL 'AC-0 = TEMP12>
2412 <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
2413 <OR TEMP12 #WORD *120* = TEMP12>
2414 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2415 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2421 <FRAME '
\1aGEN-BRANCH>
2425 <PUSH 'UNCONDITIONAL-BRANCH>
2426 <CALL '
\1aGEN-BRANCH 3>
2427 <FRAME '
\1aEMIT-LABEL>
2431 <CALL '
\1aEMIT-LABEL 2>
2435 "Args are: LOCAL variable being set; FRAME where new val is coming from;
2436 variable in that frame for new value."
2439 <GFCN
\1aSETLR-GEN ("VALUE" ATOM <OR VARTBL ATOM> ANY VARTBL "OPTIONAL" ANY) LVAR6 FVAR7 NLVAR8 HINT9>
2440 <OPT-DISPATCH 3 %<> OPT4 OPT5>
2444 <TEMP SADDR12 (TYP13 %<>) FAC11 TEMP32 TAC10>
2446 <FRAME '
\1aADDR-VAR-OFFSET>
2448 <CALL '
\1aADDR-VAR-OFFSET 1 = SADDR12>
2449 <TYPE? HINT9 <TYPE-CODE FALSE> + BOOL16>
2450 <FRAME '
\1aPARSE-HINT>
2454 <CALL '
\1aPARSE-HINT 2 = TYP13>
2456 <FRAME '
\1aPROTECT-VAL>
2459 <CALL '
\1aPROTECT-VAL 1>
2460 <TYPE? LVAR6 <TYPE-CODE VARTBL> - PHRASE20>
2461 <EQUAL? LVAR6 FVAR7 + PHRASE20>
2462 <FRAME '
\1aDEAD-VAR>
2464 <CALL '
\1aDEAD-VAR 1>
2467 <FRAME '
\1aLOAD-VAR>
2473 <CALL '
\1aLOAD-VAR 4 = FAC11>
2475 <CALL '
\1aPROTECT 1>
2476 <EQUAL? LVAR6 'STACK - PHRASE26>
2477 <FRAME '
\1aEMIT-PUSH>
2483 <CALL '
\1aMA-DISP 2 = STACK>
2485 <CALL '
\1aEMIT-PUSH 2>
2488 <TYPE? TYP13 <TYPE-CODE FALSE> + PHRASE29>
2489 <FRAME '
\1aCOUNT-NEEDED?>
2491 <CALL '
\1aCOUNT-NEEDED? 1 = TEMP32>
2492 <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE29>
2497 <CALL '
\1aGET-AC 2 = TAC10>
2503 <ADD SADDR12 4 = STACK (TYPE FIX)>
2505 <CALL '
\1aMA-DISP 2 = STACK>
2506 <NTHUV TAC10 2 = TEMP32 (TYPE FIX)>
2507 <OR TEMP32 #WORD *120* = TEMP32>
2508 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
2509 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
2512 <FRAME '
\1aDEST-DECL>
2519 <CALL '
\1aDEST-DECL 3>
2525 <CALL '
\1aGET-AC 2 = TAC10>
2533 <CALL '
\1aMA-DISP 2 = STACK>
2534 <NTHUV TAC10 2 = TEMP32 (TYPE FIX)>
2535 <OR TEMP32 #WORD *120* = TEMP32>
2536 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
2537 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
2540 <FRAME '
\1aDEST-PAIR>
2543 <CALL '
\1aNEXT-AC 1 = STACK>
2548 <CALL '
\1aDEST-PAIR 3>
2552 "Args are: FRAME where new value is going; variable in that frame; value
2553 for variable (often local var, often not)"
2556 <GFCN
\1aSETRL-GEN ("VALUE" ATOM VARTBL VARTBL ANY "OPTIONAL" ANY) FVAR6 NLVAR7 LVAR8 HINT9>
2557 <OPT-DISPATCH 3 %<> OPT4 OPT5>
2561 <TEMP SADDR11:FIX (TYP15 %<>) FAC10 LV16 T117 T218 TEMP37>
2563 <FRAME '
\1aADDR-VAR-OFFSET>
2566 <CALL '
\1aADDR-VAR-OFFSET 1 = SADDR11>
2567 <FRAME '
\1aPROTECT-VAL>
2569 <CALL '
\1aPROTECT-VAL 1>
2571 <FRAME '
\1aLOAD-VAR>
2577 <CALL '
\1aLOAD-VAR 4 = FAC10>
2579 <CALL '
\1aPROTECT 1>
2580 <TYPE? HINT9 <TYPE-CODE FALSE> + BOOL23>
2581 <FRAME '
\1aPARSE-HINT>
2585 <CALL '
\1aPARSE-HINT 2 = TYP15>
2587 <TYPE? TYP15 <TYPE-CODE FALSE> - COND25>
2588 <TYPE? LVAR8 <TYPE-CODE VARTBL> - PHRASE26>
2589 <FRAME '
\1aVARTBL-DECL>
2591 <CALL '
\1aVARTBL-DECL 1 = TYP15>
2596 <CALL '
\1aTYPE 1 = TYP15>
2598 <TYPE? LVAR8 <TYPE-CODE VARTBL> - PHRASE30>
2599 <FRAME '
\1aFIND-CACHE-VAR>
2601 <CALL '
\1aFIND-CACHE-VAR 1 = LV16>
2602 <TYPE? LV16 <TYPE-CODE FALSE> + BOOL33>
2603 <NTHUV LV16 6 = T117>
2604 <TYPE? T117 <TYPE-CODE FALSE> + BOOL35>
2605 <NTHUV LV16 9 = T218>
2606 <TYPE? T218 <TYPE-CODE FALSE> + BOOL35>
2609 <CALL '
\1aNEXT-AC 1 = TEMP37>
2610 <EQUAL? T117 TEMP37 + BOOL33>
2613 <NTHUV LV16 2 = TEMP37>
2614 <TYPE? TEMP37 <TYPE-CODE FALSE> + PHRASE32>
2616 <NTHUV LV16 4 = TEMP37>
2617 <TYPE? TEMP37 <TYPE-CODE FALSE> + PHRASE32>
2619 <NTHUV LV16 3 = TEMP37>
2620 <TYPE? TEMP37 <TYPE-CODE FALSE> + PHRASE32>
2625 <TYPE? LV16 <TYPE-CODE FALSE> + PHRASE41>
2627 <TYPE? T117 <TYPE-CODE FALSE> + PHRASE41>
2629 <NTHUV T218 2 = TEMP37 (TYPE FIX)>
2631 <OR TEMP37 #WORD *120* = TEMP37>
2632 <LSH TEMP37 24 = TEMP37 (TYPE FIX)>
2633 <CHTYPE TEMP37 <TYPE-CODE EFF-ADDR> = TEMP37>
2636 <FRAME '
\1aADDR-VAR-TYPE-VALUE>
2639 <CALL '
\1aADDR-VAR-TYPE-VALUE 1 = TEMP37>
2648 <CALL '
\1aMA-DISP 2 = STACK>
2652 <TYPE? TYP15 <TYPE-CODE FALSE> + PHRASE46>
2655 <FRAME '
\1aVAR-VALUE-ADDRESS>
2657 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2660 <ADD SADDR11 4 = STACK (TYPE FIX)>
2661 <CALL '
\1aMA-DISP 2 = STACK>
2665 <FRAME '
\1aTYPE-CODE>
2668 <CALL '
\1aTYPE-CODE 2 = STACK>
2672 <CALL '
\1aMA-DISP 2 = STACK>
2674 <FRAME '
\1aCOUNT-NEEDED?>
2677 <CALL '
\1aCOUNT-NEEDED? 1 = TEMP37>
2678 <TYPE? TEMP37 <TYPE-CODE FALSE> + PHRASE66>
2680 <FRAME '
\1aVAR-COUNT-IN-AC?>
2682 <CALL '
\1aVAR-COUNT-IN-AC? 1 = TYP15>
2683 <TYPE? TYP15 <TYPE-CODE FALSE> + PHRASE57>
2686 <NTHUV TYP15 2 = TEMP37 (TYPE FIX)>
2688 <OR TEMP37 #WORD *120* = TEMP37>
2689 <LSH TEMP37 24 = TEMP37 (TYPE FIX)>
2690 <CHTYPE TEMP37 <TYPE-CODE EFF-ADDR> = STACK>
2695 <ADD SADDR11 2 = STACK (TYPE FIX)>
2697 <CALL '
\1aMA-DISP 2 = STACK>
2701 <FRAME '
\1aVAR-COUNT-STORED?>
2704 <CALL '
\1aVAR-COUNT-STORED? 1 = TYP15>
2705 <TYPE? TYP15 <TYPE-CODE FALSE> + PHRASE61>
2713 <ADD SADDR11 2 = STACK (TYPE FIX)>
2715 <CALL '
\1aMA-DISP 2 = STACK>
2720 <PUSH "COUNT NOT FOUND">
2727 <FRAME '
\1aVAR-TYPE-ADDRESS>
2730 <CALL '
\1aVAR-TYPE-ADDRESS 2 = STACK>
2734 <CALL '
\1aMA-DISP 2 = STACK>
2738 <FRAME '
\1aVAR-VALUE-ADDRESS>
2741 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2745 <ADD SADDR11 4 = STACK (TYPE FIX)>
2747 <CALL '
\1aMA-DISP 2 = STACK>
2754 <FRAME '
\1aADDR-TYPE-MQUOTE>
2757 <CALL '
\1aADDR-TYPE-MQUOTE 1 = STACK>
2763 <CALL '
\1aMA-DISP 2 = STACK>
2769 <GFCN
\1aFIXBIND-GEN ("VALUE" ATOM)>
2772 <FRAME '
\1aCALL-RTE>
2773 <GVAL 'IFIXBND!-MIMOP = STACK>
2777 <CALL '
\1aCALL-RTE 4>
2779 <END
\1aFIXBIND-GEN>
2782 <GFCN
\1aBIND-GEN ("VALUE" ANY <OR ATOM VARTBL> "OPTIONAL" ANY) RES6 HINT7>
2783 <OPT-DISPATCH 1 %<> OPT4 OPT5>
2789 <FRAME '
\1aCALL-RTE>
2790 <GVAL 'IBIND!-MIMOP = STACK>
2795 <CALL '
\1aCALL-RTE 4 = TEMP9>
2801 <GFCN
\1aCFRAME-GEN ("VALUE" ATOM <OR ATOM VARTBL> "OPTIONAL" ANY) RES6 HINT7>
2802 <OPT-DISPATCH 1 %<> OPT4 OPT5>
2806 <TEMP VAC8 TEMP14 TLAB9>
2811 <CALL '
\1aGET-AC 2 = VAC8>
2812 <GVAL 'MAKTUP-FLAG = TEMP14>
2813 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE12>
2815 <GVAL 'ICALL-LEVEL = TEMP14>
2816 <VEQUAL? TEMP14 0 - PHRASE12 (TYPE FIX)>
2821 <GVAL 'AC-F = STACK>
2823 <CALL '
\1aMA-DISP 2 = STACK>
2824 <NTHUV VAC8 2 = TEMP14 (TYPE FIX)>
2825 <OR TEMP14 #WORD *120* = TEMP14>
2826 <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
2827 <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
2834 <GVAL 'AC-F = TEMP14>
2835 <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
2836 <OR TEMP14 #WORD *120* = TEMP14>
2837 <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
2838 <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
2840 <NTHUV VAC8 2 = TEMP14 (TYPE FIX)>
2841 <OR TEMP14 #WORD *120* = TEMP14>
2842 <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
2843 <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
2852 <CALL '
\1aMA-DISP 2 = STACK>
2854 <FRAME '
\1aMAKE-LABEL>
2855 <CALL '
\1aMAKE-LABEL 0 = TLAB9>
2856 <FRAME '
\1aGEN-BRANCH>
2860 <CALL '
\1aGEN-BRANCH 3>
2861 <FRAME '
\1aEMIT-MOVE>
2865 <CALL '
\1aMA-DISP 2 = STACK>
2866 <NTHUV VAC8 2 = TEMP14 (TYPE FIX)>
2867 <OR TEMP14 #WORD *120* = TEMP14>
2868 <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
2869 <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
2872 <CALL '
\1aEMIT-MOVE 3>
2873 <FRAME '
\1aEMIT-LABEL>
2877 <CALL '
\1aEMIT-LABEL 2>
2878 <FRAME '
\1aDEST-DECL>
2884 <CALL '
\1aDEST-DECL 3>
2889 <GFCN
\1aUNBIND-GEN ("VALUE" ATOM VARTBL) VAR4>
2892 <FRAME '
\1aCALL-RTE>
2893 <GVAL 'IUNBIND!-MIMOP = STACK>
2899 <CALL '
\1aCALL-RTE 5>
2904 <GFCN
\1aGETS-GEN ("VALUE" ATOM ATOM ANY "OPTIONAL" ANY) CASE6 RES7 HINT8>
2905 <OPT-DISPATCH 2 %<> OPT4 OPT5>
2909 <TEMP TEMP14 TEMP28 TEMP29 TEMP30 TEMP31 TEMP52>
2912 <NTHR CASE6 3 = STACK (RECORD-TYPE ATOM)>
2913 <PUSH ["PURVEC" "DBVEC"]>
2914 <CALL '
\1aMEMBER 2 = TEMP14>
2915 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE12>
2917 <EQUAL? RES7 'STACK - PHRASE16>
2920 <FRAME '
\1aADDR-TYPE-M>
2921 <FRAME '
\1aADD-MVEC>
2923 <CALL '
\1aADD-MVEC 1 = STACK>
2924 <CALL '
\1aADDR-TYPE-M 1 = STACK>
2925 <GVAL 'AC-TP = TEMP14>
2926 <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
2927 <OR TEMP14 #WORD *200* = TEMP14>
2928 <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
2929 <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
2938 <CALL '
\1aSET-GEN 2>
2942 <NTHR CASE6 3 = STACK (RECORD-TYPE ATOM)>
2943 <PUSH ["BIND" "BINDID"]>
2944 <CALL '
\1aMEMBER 2 = TEMP14>
2945 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE22>
2947 <EQUAL? RES7 'STACK - PHRASE25>
2948 <NTHR CASE6 3 = TEMP14 (RECORD-TYPE ATOM)>
2950 <IFCAN "STRING-EQUAL?">
2951 <STRING-EQUAL? TEMP14 "BIND" - PHRASE27>
2952 <ENDIF "STRING-EQUAL?">
2953 <IFCANNOT "STRING-EQUAL?">
2954 <SET TEMP28 "BIND" (TYPE STRING)>
2955 <LENUS TEMP14 = TEMP29 (TYPE FIX)>
2956 <VEQUAL? TEMP29 4 - PHRASE27>
2957 <LOOP (TEMP14 VALUE LENGTH) (TEMP28 VALUE LENGTH) (TEMP29 VALUE)>
2959 <NTHUS TEMP14 1 = TEMP30>
2960 <NTHUS TEMP28 1 = TEMP31>
2961 <VEQUAL? TEMP30 TEMP31 - PHRASE27>
2962 <DEAD TEMP30 TEMP31>
2963 <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
2964 <RESTUS TEMP28 1 = TEMP28 (TYPE STRING)>
2965 <SUB TEMP29 1 = TEMP29 (TYPE FIX)>
2966 <GRTR? TEMP29 0 + TAG32 (TYPE FIX)>
2967 <ENDIF "STRING-EQUAL?">
2968 <FRAME '
\1aEMIT-PUSH>
2969 <FRAME '
\1aTYPE-WORD>
2971 <CALL '
\1aTYPE-WORD 1 = STACK>
2973 <CALL '
\1aEMIT-PUSH 2>
2974 <FRAME '
\1aEMIT-PUSH>
2975 <GVAL 'AC-PC = TEMP28>
2976 <NTHUV TEMP28 2 = TEMP28 (TYPE FIX)>
2977 <OR TEMP28 #WORD *220* = TEMP28>
2978 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
2979 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
2980 <CONS TEMP28 () = TEMP28>
2982 <GVAL 'SPSTO-LOC = STACK>
2983 <CALL '
\1aLREV 1 = TEMP14>
2984 <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = TEMP14>
2985 <CONS TEMP14 () = TEMP14>
2986 <PUTREST TEMP28 TEMP14>
2988 <CHTYPE TEMP28 <TYPE-CODE LADDR> = STACK>
2991 <CALL '
\1aEMIT-PUSH 2>
2994 <FRAME '
\1aEMIT-PUSH>
2995 <FRAME '
\1aTYPE-CODE>
2997 <CALL '
\1aTYPE-CODE 1 = STACK>
2999 <CALL '
\1aEMIT-PUSH 2>
3000 <FRAME '
\1aEMIT-PUSH>
3001 <GVAL 'AC-PC = TEMP28>
3002 <NTHUV TEMP28 2 = TEMP28 (TYPE FIX)>
3003 <OR TEMP28 #WORD *220* = TEMP28>
3004 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
3005 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
3006 <CONS TEMP28 () = TEMP28>
3008 <GVAL 'BINDID-LOC = STACK>
3009 <CALL '
\1aLREV 1 = TEMP14>
3010 <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = TEMP14>
3011 <CONS TEMP14 () = TEMP14>
3012 <PUTREST TEMP28 TEMP14>
3014 <CHTYPE TEMP28 <TYPE-CODE LADDR> = STACK>
3017 <CALL '
\1aEMIT-PUSH 2>
3020 <FRAME '
\1aVAR-VALUE-IN-AC?>
3022 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TEMP29>
3023 <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE44>
3024 <FRAME '
\1aSTORE-AC>
3027 <FRAME '
\1aFIND-CACHE-VAR>
3029 <CALL '
\1aFIND-CACHE-VAR 1 = STACK>
3030 <CALL '
\1aSTORE-AC 3>
3036 <CALL '
\1aGET-AC 2 = TEMP29>
3038 <NTHR CASE6 3 = TEMP28 (RECORD-TYPE ATOM)>
3040 <IFCAN "STRING-EQUAL?">
3041 <STRING-EQUAL? TEMP28 "BIND" - PHRASE51>
3042 <ENDIF "STRING-EQUAL?">
3043 <IFCANNOT "STRING-EQUAL?">
3044 <SET TEMP14 "BIND" (TYPE STRING)>
3045 <LENUS TEMP28 = TEMP31 (TYPE FIX)>
3046 <VEQUAL? TEMP31 4 - PHRASE51>
3047 <LOOP (TEMP28 VALUE LENGTH) (TEMP14 VALUE LENGTH) (TEMP31 VALUE)>
3049 <NTHUS TEMP28 1 = TEMP30>
3050 <NTHUS TEMP14 1 = TEMP52>
3051 <VEQUAL? TEMP30 TEMP52 - PHRASE51>
3052 <DEAD TEMP30 TEMP52>
3053 <RESTUS TEMP28 1 = TEMP28 (TYPE STRING)>
3054 <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
3055 <SUB TEMP31 1 = TEMP31 (TYPE FIX)>
3056 <GRTR? TEMP31 0 + TAG53 (TYPE FIX)>
3057 <ENDIF "STRING-EQUAL?">
3058 <FRAME '
\1aEMIT-MOVE>
3059 <GVAL 'AC-PC = TEMP14>
3060 <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
3061 <OR TEMP14 #WORD *220* = TEMP14>
3062 <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
3063 <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = TEMP14>
3064 <CONS TEMP14 () = TEMP14>
3066 <GVAL 'SPSTO-LOC = STACK>
3067 <CALL '
\1aLREV 1 = TEMP28>
3068 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
3069 <CONS TEMP28 () = TEMP28>
3070 <PUTREST TEMP14 TEMP28>
3072 <CHTYPE TEMP14 <TYPE-CODE LADDR> = STACK>
3074 <NTHUV TEMP29 2 = TEMP14 (TYPE FIX)>
3075 <OR TEMP14 #WORD *120* = TEMP14>
3076 <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
3077 <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
3080 <CALL '
\1aEMIT-MOVE 3>
3081 <FRAME '
\1aDEST-DECL>
3087 <CALL '
\1aDEST-DECL 3>
3090 <FRAME '
\1aEMIT-MOVE>
3091 <GVAL 'AC-PC = TEMP14>
3092 <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
3093 <OR TEMP14 #WORD *220* = TEMP14>
3094 <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
3095 <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = TEMP14>
3096 <CONS TEMP14 () = TEMP14>
3098 <GVAL 'BINDID-LOC = STACK>
3099 <CALL '
\1aLREV 1 = TEMP28>
3100 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
3101 <CONS TEMP28 () = TEMP28>
3102 <PUTREST TEMP14 TEMP28>
3104 <CHTYPE TEMP14 <TYPE-CODE LADDR> = STACK>
3106 <NTHUV TEMP29 2 = TEMP14 (TYPE FIX)>
3107 <OR TEMP14 #WORD *120* = TEMP14>
3108 <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
3109 <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
3112 <CALL '
\1aEMIT-MOVE 3>
3113 <FRAME '
\1aDEST-DECL>
3119 <CALL '
\1aDEST-DECL 3>
3122 <FRAME '
\1aFIND-CASE-ENTRY>
3125 <CALL '
\1aFIND-CASE-ENTRY 1 = TEMP14>
3126 <FRAME '
\1aCALL-RTE>
3127 <GVAL 'IGETS!-MIMOP = STACK>
3131 <NTHUV TEMP14 3 = STACK (TYPE ATOM)>
3132 <NTHUV TEMP14 2 = STACK (TYPE FIX)>
3134 <CALL '
\1aCALL-RTE 5>
3139 <GFCN
\1aSETS-GEN ("VALUE" ATOM ANY ANY) CASE4 VAL5>
3140 <TEMP TEMP10 TEMP19 TEMP20 TEMP21 TEMP22>
3143 <NTHR CASE4 3 = STACK (RECORD-TYPE ATOM)>
3144 <PUSH ["BIND" "BINDID"]>
3145 <CALL '
\1aMEMBER 2 = TEMP10>
3146 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE8>
3148 <FRAME '
\1aEMIT-MOVE>
3149 <TYPE? VAL5 <TYPE-CODE VARTBL> - PHRASE13>
3150 <FRAME '
\1aVAR-VALUE-ADDRESS>
3153 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP10>
3159 <CALL '
\1aMA-IMM 1 = TEMP10>
3163 <NTHR CASE4 3 = TEMP10 (RECORD-TYPE ATOM)>
3165 <IFCAN "STRING-EQUAL?">
3166 <STRING-EQUAL? TEMP10 "BIND" - PHRASE18>
3167 <ENDIF "STRING-EQUAL?">
3168 <IFCANNOT "STRING-EQUAL?">
3169 <SET TEMP19 "BIND" (TYPE STRING)>
3170 <LENUS TEMP10 = TEMP20 (TYPE FIX)>
3171 <VEQUAL? TEMP20 4 - PHRASE18>
3172 <LOOP (TEMP10 VALUE LENGTH) (TEMP19 VALUE LENGTH) (TEMP20 VALUE)>
3174 <NTHUS TEMP10 1 = TEMP21>
3175 <NTHUS TEMP19 1 = TEMP22>
3176 <VEQUAL? TEMP21 TEMP22 - PHRASE18>
3177 <DEAD TEMP21 TEMP22>
3178 <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
3179 <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
3180 <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
3181 <GRTR? TEMP20 0 + TAG23 (TYPE FIX)>
3182 <ENDIF "STRING-EQUAL?">
3183 <GVAL 'AC-PC = TEMP19>
3184 <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
3185 <OR TEMP19 #WORD *220* = TEMP19>
3186 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
3187 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = TEMP19>
3188 <CONS TEMP19 () = TEMP19>
3190 <GVAL 'SPSTO-LOC = STACK>
3191 <CALL '
\1aLREV 1 = TEMP10>
3192 <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = TEMP10>
3193 <CONS TEMP10 () = TEMP10>
3194 <PUTREST TEMP19 TEMP10>
3196 <CHTYPE TEMP19 <TYPE-CODE LADDR> = TEMP19>
3199 <GVAL 'AC-PC = TEMP10>
3200 <NTHUV TEMP10 2 = TEMP10 (TYPE FIX)>
3201 <OR TEMP10 #WORD *220* = TEMP10>
3202 <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
3203 <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = TEMP10>
3204 <CONS TEMP10 () = TEMP10>
3206 <GVAL 'BINDID-LOC = STACK>
3207 <CALL '
\1aLREV 1 = TEMP22>
3208 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = TEMP22>
3209 <CONS TEMP22 () = TEMP22>
3210 <PUTREST TEMP10 TEMP22>
3212 <CHTYPE TEMP10 <TYPE-CODE LADDR> = TEMP19>
3218 <CALL '
\1aEMIT-MOVE 3>
3222 <NTHR CASE4 3 = STACK (RECORD-TYPE ATOM)>
3225 <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3226 <CALL '
\1aMEMBER 2 = TEMP19>
3227 <TYPE? TEMP19 <TYPE-CODE FALSE> - PHRASE26>
3229 <FRAME '
\1aFIND-CASE-ENTRY>
3232 <CALL '
\1aFIND-CASE-ENTRY 1 = TEMP10>
3233 <FRAME '
\1aCALL-RTE>
3234 <GVAL 'ISETS!-MIMOP = STACK>
3240 <NTHUV TEMP10 2 = STACK (TYPE FIX)>
3242 <CALL '
\1aCALL-RTE 6>
3247 <NEWSTRUC CASE-ENTRY VECTOR CSENT-KIND ATOM CSENT-OFF FIX CSENT-VTYP ATOM>
3250 <GFCN
\1aCREATE-CASE-ENTRY ("VALUE" CASE-ENTRY ATOM FIX ATOM) KIND4 OFF5 VTYP6>
3259 <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP8 (TYPE VECTOR)>
3260 <CHTYPE TEMP8 <TYPE-CODE CASE-ENTRY> = TEMP8>
3263 <END
\1aCREATE-CASE-ENTRY>
3265 <GDECL (CASE-ENTRY-TABLE) <VECTOR [REST CASE-ENTRY]>>
3268 <GFCN
\1aFIND-CASE-ENTRY ("VALUE" <OR FALSE CASE-ENTRY> ANY) KIND4>
3269 <TEMP TEMP14 TEMP16:VECTOR CE17:CASE-ENTRY TEMP22:STRING TEMP24 TEMP25 TEMP26>
3271 <SET TEMP14 %<> (TYPE FALSE)>
3272 <GVAL 'CASE-ENTRY-TABLE = TEMP16>
3276 <EMPUV? TEMP16 + MAPAP9>
3277 <NTHUV TEMP16 1 = CE17>
3278 <NTHR KIND4 3 = TEMP22 (RECORD-TYPE ATOM)>
3279 <NTHUV CE17 1 = TEMP14 (TYPE ATOM)>
3280 <NTHR TEMP14 3 = TEMP14 (RECORD-TYPE ATOM)>
3281 <IFCAN "STRING-EQUAL?">
3282 <STRING-EQUAL? TEMP22 TEMP14 + TAG20>
3283 <ENDIF "STRING-EQUAL?">
3284 <IFCANNOT "STRING-EQUAL?">
3285 <LENUS TEMP22 = TEMP24 (TYPE FIX)>
3286 <LENUS TEMP14 = TEMP25 (TYPE FIX)>
3287 <VEQUAL? TEMP24 TEMP25 - TAG21>
3289 <LOOP (TEMP22 VALUE LENGTH) (TEMP14 VALUE LENGTH) (TEMP24 VALUE)>
3291 <NTHUS TEMP22 1 = TEMP25>
3292 <NTHUS TEMP14 1 = TEMP26>
3293 <VEQUAL? TEMP25 TEMP26 - TAG21>
3294 <DEAD TEMP25 TEMP26>
3295 <RESTUS TEMP22 1 = TEMP22 (TYPE STRING)>
3296 <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
3297 <SUB TEMP24 1 = TEMP24 (TYPE FIX)>
3298 <GRTR? TEMP24 0 + TAG27 (TYPE FIX)>
3301 <ENDIF "STRING-EQUAL?">
3303 <SET TEMP14 %<> (TYPE FALSE)>
3309 <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
3314 <END
\1aFIND-CASE-ENTRY>
3317 <GFCN
\1aRECORD-GEN ("VALUE" ATOM <OR ATOM FIX> "TUPLE" ANY) TYPARG4>
3318 <MAKTUP ARGS5:TUPLE TEMP12 TEMP13 = ARGS5>
3320 <TYPE? TYPARG4 <TYPE-CODE ATOM> - PHRASE7>
3321 <GVAL 'TYPE-WORDS = TEMP12>
3322 <EMPUV? TEMP12 + TAG8>
3323 <LOOP (TYPARG4 VALUE) (TEMP12 LENGTH VALUE)>
3325 <NTHUV TEMP12 1 = TEMP13>
3326 <TYPE? TEMP13 <TYPE-CODE ATOM> - TAG11>
3327 <VEQUAL? TEMP13 TYPARG4 + TAG9>
3330 <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
3331 <EMPUV? TEMP12 - TAG10>
3333 <SET TEMP12 %<> (TYPE FALSE)>
3335 <NTHUV TEMP12 2 = TYPARG4>
3338 <FRAME '
\1aCALL-STACK-FUNCTION>
3341 <GVAL 'BRECORD!-MIMOP = STACK>
3345 <CALL '
\1aCALL-STACK-FUNCTION 4>
3350 <GFCN
\1aLIST-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) LEN6 RES7 HINT8>
3351 <OPT-DISPATCH 2 %<> OPT4 OPT5>
3357 <FRAME '
\1aCALL-RTE>
3358 <GVAL 'BLIST!-MIMOP = STACK>
3365 <CALL '
\1aCALL-RTE 5>
3370 <GFCN
\1aRTUPLE-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY) TVAR6 FVAR7 RES8>
3371 <OPT-DISPATCH 2 %<> OPT4 OPT5>
3377 <FRAME '
\1aCALL-RTE>
3378 <GVAL 'IRTUPLE!-MIMOP = STACK>
3386 <CALL '
\1aCALL-RTE 6>
3387 <RETURN 'UNCONDITIONAL-BRANCH>
3391 <GFCN
\1aAGAIN-GEN ("VALUE" ATOM VARTBL "OPTIONAL" ANY) TVAR6 RES7>
3392 <OPT-DISPATCH 1 %<> OPT4 OPT5>
3398 <FRAME '
\1aCALL-RTE>
3399 <GVAL 'IAGAIN!-MIMOP = STACK>
3405 <CALL '
\1aCALL-RTE 5>
3406 <RETURN 'UNCONDITIONAL-BRANCH>
3410 <GFCN
\1aRETRY-GEN ("VALUE" ATOM VARTBL "OPTIONAL" ANY) TVAR6 RES7>
3411 <OPT-DISPATCH 1 %<> OPT4 OPT5>
3417 <FRAME '
\1aCALL-RTE>
3418 <GVAL 'IRETRY!-MIMOP = STACK>
3424 <CALL '
\1aCALL-RTE 5>
3425 <RETURN 'UNCONDITIONAL-BRANCH>
3429 <GFCN
\1aACTIVATION-GEN ("VALUE" ATOM "OPTIONAL" ANY) VAR6>
3430 <OPT-DISPATCH 0 %<> OPT4 OPT5>
3436 <FRAME '
\1aCALL-RTE>
3437 <GVAL 'IACTIVATION!-MIMOP = STACK>
3441 <CALL '
\1aCALL-RTE 4>
3443 <END
\1aACTIVATION-GEN>
3446 <GFCN
\1aTUPLE-GEN ("VALUE" ANY <OR FIX VARTBL> VARTBL "OPTIONAL" ANY) NUM6 DEST7 HINT8>
3447 <OPT-DISPATCH 2 %<> OPT4 OPT5>
3453 <FRAME '
\1aCALL-RTE>
3454 <GVAL 'ITUPLE!-MIMOP = STACK>
3461 <CALL '
\1aCALL-RTE 5 = TEMP10>
3467 <GFCN
\1aSBLOCK-GEN ("VALUE" ATOM ATOM <OR FIX VARTBL> ANY "OPTIONAL" ANY) TYPARG6 NUMARG7 RES8 HINT9>
3468 <OPT-DISPATCH 3 %<> OPT4 OPT5>
3475 <GVAL 'AC-0 = STACK>
3478 <GVAL 'TYPE-WORDS = VEC10>
3479 <EMPUV? VEC10 + TAG14>
3480 <LOOP (TYPARG6 VALUE) (VEC10 LENGTH VALUE)>
3482 <NTHUV VEC10 1 = TEMP18>
3483 <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17>
3484 <VEQUAL? TEMP18 TYPARG6 + TAG15>
3487 <RESTUV VEC10 1 = VEC10 (TYPE VECTOR)>
3488 <EMPUV? VEC10 - TAG16>
3490 <SET VEC10 %<> (TYPE FALSE)>
3492 <VEQUAL? VEC10 0 + PHRASE13>
3493 <FRAME '
\1aLOAD-CONSTANT>
3494 <GVAL 'AC-0 = STACK>
3495 <NTHUV VEC10 2 = STACK>
3497 <CALL '
\1aLOAD-CONSTANT 2>
3500 <FRAME '
\1aEMIT-MOVE>
3501 <FRAME '
\1aTYPE-CODE>
3503 <CALL '
\1aTYPE-CODE 1 = STACK>
3504 <GVAL 'AC-0 = TEMP18>
3505 <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
3506 <OR TEMP18 #WORD *120* = TEMP18>
3507 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
3508 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
3511 <CALL '
\1aEMIT-MOVE 3>
3513 <FRAME '
\1aCALL-RTE>
3514 <GVAL 'ISBLOCK!-MIMOP = STACK>
3522 <CALL '
\1aCALL-RTE 5>
3527 <GFCN
\1aUSBLOCK-GEN ("VALUE" ATOM ATOM <OR FIX VARTBL> ANY "OPTIONAL" ANY) TYPARG6 NUMARG7 RES8 HINT9>
3528 <OPT-DISPATCH 3 %<> OPT4 OPT5>
3535 <GVAL 'AC-0 = STACK>
3538 <GVAL 'TYPE-WORDS = VEC10>
3539 <EMPUV? VEC10 + TAG14>
3540 <LOOP (TYPARG6 VALUE) (VEC10 LENGTH VALUE)>
3542 <NTHUV VEC10 1 = TEMP18>
3543 <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17>
3544 <VEQUAL? TEMP18 TYPARG6 + TAG15>
3547 <RESTUV VEC10 1 = VEC10 (TYPE VECTOR)>
3548 <EMPUV? VEC10 - TAG16>
3550 <SET VEC10 %<> (TYPE FALSE)>
3552 <VEQUAL? VEC10 0 + PHRASE13>
3553 <FRAME '
\1aLOAD-CONSTANT>
3554 <GVAL 'AC-0 = STACK>
3555 <NTHUV VEC10 2 = STACK>
3557 <CALL '
\1aLOAD-CONSTANT 2>
3560 <FRAME '
\1aEMIT-MOVE>
3561 <FRAME '
\1aTYPE-CODE>
3563 <CALL '
\1aTYPE-CODE 1 = STACK>
3564 <GVAL 'AC-0 = TEMP18>
3565 <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
3566 <OR TEMP18 #WORD *120* = TEMP18>
3567 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
3568 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
3571 <CALL '
\1aEMIT-MOVE 3>
3573 <FRAME '
\1aCALL-RTE>
3574 <GVAL 'UISBLOCK!-MIMOP = STACK>
3582 <CALL '
\1aCALL-RTE 5>
3584 <END
\1aUSBLOCK-GEN>
3587 <GFCN
\1aINTGO-GEN ("VALUE" ATOM)>
3588 <TEMP LAB4 TEMP9 TEMP12>
3590 <FRAME '
\1aMAKE-LABEL>
3591 <CALL '
\1aMAKE-LABEL 0 = LAB4>
3592 <GVAL 'BOOT-MODE = TEMP9>
3593 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE7>
3595 <GVAL 'GC-MODE = TEMP9>
3596 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE7>
3598 <GVAL 'DONT-INTERRUPT? = TEMP9>
3599 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE7>
3603 <GVAL 'AC-PC = TEMP9>
3604 <NTHUV TEMP9 2 = TEMP9 (TYPE FIX)>
3605 <OR TEMP9 #WORD *220* = TEMP9>
3606 <LSH TEMP9 24 = TEMP9 (TYPE FIX)>
3607 <CHTYPE TEMP9 <TYPE-CODE EFF-ADDR> = TEMP9>
3608 <CONS TEMP9 () = TEMP9>
3610 <GVAL 'INTFLG-LOC = STACK>
3611 <CALL '
\1aLREV 1 = TEMP12>
3612 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = TEMP12>
3613 <CONS TEMP12 () = TEMP12>
3614 <PUTREST TEMP9 TEMP12>
3616 <CHTYPE TEMP9 <TYPE-CODE LADDR> = STACK>
3619 <FRAME '
\1aGEN-BRANCH>
3623 <CALL '
\1aGEN-BRANCH 3>
3624 <FRAME '
\1aCALL-RTE>
3625 <GVAL 'LCKINT!-MIMOP = STACK>
3629 <CALL '
\1aCALL-RTE 4>
3630 <FRAME '
\1aEMIT-LABEL>
3634 <CALL '
\1aEMIT-LABEL 2>
3640 <GFCN
\1aTYPE-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) VAL6 RES7 HINT8>
3641 <OPT-DISPATCH 2 %<> OPT4 OPT5>
3647 <FRAME '
\1aLOAD-VAR>
3653 <CALL '
\1aLOAD-VAR 4 = DAC9>
3654 <FRAME '
\1aDEST-DECL>
3660 <CALL '
\1aDEST-DECL 3 = DAC9>
3666 <GFCN
\1aNEWTYPE-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) VAL16 RES7 HINT8>
3667 <OPT-DISPATCH 2 %<> OPT4 OPT5>
3673 <FRAME '
\1aCALL-RTE>
3674 <GVAL 'INEWTYPE!-MIMOP = STACK>
3681 <CALL '
\1aCALL-RTE 5 = TEMP10>
3684 <END
\1aNEWTYPE-GEN>
3687 <GFCN
\1aTYPEW-GEN ("VALUE" ANY VARTBL VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) ARG16 ARG27 RES8 HINT9>
3688 <OPT-DISPATCH 3 %<> OPT4 OPT5>
3694 <FRAME '
\1aCALL-RTE>
3695 <GVAL 'ITYPEW!-MIMOP = STACK>
3704 <CALL '
\1aCALL-RTE 6 = TEMP11>
3710 <GFCN
\1aTYPEWC-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) ARG16 RES7 HINT8>
3711 <OPT-DISPATCH 2 %<> OPT4 OPT5>
3717 <FRAME '
\1aCALL-RTE>
3718 <GVAL 'ITYPEWC!-MIMOP = STACK>
3725 <CALL '
\1aCALL-RTE 5 = TEMP11>
3731 <GFCN
\1aOPEN-GEN ("VALUE" ATOM <OR VARTBL FIX> <OR VARTBL FIX> <OR STRING VARTBL> <OR ATOM VARTBL> "OPTIONAL" ANY) MODE6 BYTESZ7 NAME8 RES9 HINT10>
3732 <OPT-DISPATCH 4 %<> OPT4 OPT5>
3738 <FRAME '
\1aCALL-RTE>
3739 <GVAL 'IOPEN!-MIMOP = STACK>
3751 <CALL '
\1aCALL-RTE 7>
3756 <GFCN
\1aCLOSE-GEN ("VALUE" ATOM <OR FIX VARTBL> "OPTIONAL" ANY) CH6 RES7>
3757 <OPT-DISPATCH 1 %<> OPT4 OPT5>
3763 <FRAME '
\1aCALL-RTE>
3764 <GVAL 'ICLOSE!-MIMOP = STACK>
3770 <CALL '
\1aCALL-RTE 5>
3775 <GFCN
\1aRESET-GEN ("VALUE" ATOM <OR FIX VARTBL> "OPTIONAL" ANY) CH6 RES7>
3776 <OPT-DISPATCH 1 %<> OPT4 OPT5>
3782 <FRAME '
\1aCALL-RTE>
3783 <GVAL 'IRESET!-MIMOP = STACK>
3789 <CALL '
\1aCALL-RTE 5>
3794 <GFCN
\1aREAD-GEN ("VALUE" ANY <OR VARTBL FIX> VARTBL <OR VARTBL FIX> ANY "OPTIONAL" ANY) CHN6 STR7 NUMARGS8 GARB9 RES10>
3795 <OPT-DISPATCH 4 %<> OPT4 OPT5>
3801 <FRAME '
\1aCALL-RTE>
3802 <GVAL 'IREAD!-MIMOP = STACK>
3815 <CALL '
\1aCALL-RTE 8 = TEMP12>
3821 <GFCN
\1aPRINT-GEN ("VALUE" ANY <OR VARTBL FIX> VARTBL <OR VARTBL FIX>) CHN4 STR5 NUMARGS6>
3824 <FRAME '
\1aCALL-RTE>
3825 <GVAL 'IPRINT!-MIMOP = STACK>
3835 <CALL '
\1aCALL-RTE 7 = TEMP8>
3841 <GFCN
\1aRNTIME-GEN ("VALUE" ANY "OPTIONAL" ANY) RES6>
3842 <OPT-DISPATCH 0 %<> OPT4 OPT5>
3848 <FRAME '
\1aCALL-RTE>
3849 <GVAL 'IRNTIME!-MIMOP = STACK>
3854 <CALL '
\1aCALL-RTE 4 = TEMP8>
3860 <GFCN
\1aSAVE-GEN ("VALUE" ATOM <OR VARTBL FIX> "OPTIONAL" ANY ANY ANY) CHN8 ATMZN9 PURZN10 RES11>
3861 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
3871 <FRAME '
\1aCALL-RTE>
3872 <GVAL 'ISAVE!-MIMOP = STACK>
3883 <CALL '
\1aCALL-RTE 7>
3888 <GFCN
\1aRESTORE-GEN ("VALUE" ATOM <OR VARTBL FIX> "OPTIONAL" ANY) CHN6 RES7>
3889 <OPT-DISPATCH 1 %<> OPT4 OPT5>
3895 <FRAME '
\1aCALL-RTE>
3896 <GVAL 'IRESTORE!-MIMOP = STACK>
3903 <CALL '
\1aCALL-RTE 5>
3905 <END
\1aRESTORE-GEN>
3908 <GFCN
\1aCOMPERR-GEN ("VALUE" ATOM)>
3911 <FRAME '
\1aCALL-RTE>
3912 <GVAL 'ICOMPERR!-MIMOP = STACK>
3916 <CALL '
\1aCALL-RTE 4>
3918 <END
\1aCOMPERR-GEN>
3921 <GFCN
\1aUNWCNT-GEN ("VALUE" ATOM)>
3924 <FRAME '
\1aCALL-RTE>
3925 <GVAL 'IUNWCNT!-MIMOP = STACK>
3929 <CALL '
\1aCALL-RTE 4>
3934 <GFCN
\1aIRECORD-GEN ("VALUE" ATOM <OR VARTBL FIX> <OR VARTBL FIX> <OR VARTBL FIX> <OR ATOM VARTBL> "OPTIONAL" ANY) TYPEC6 NARGS7 NWORDS8 RES9 HINT10>
3935 <OPT-DISPATCH 4 %<> OPT4 OPT5>
3941 <FRAME '
\1aCALL-RTE>
3942 <GVAL 'BIREC!-MIMOP = STACK>
3954 <CALL '
\1aCALL-RTE 7>
3956 <END
\1aIRECORD-GEN>
3959 <GFCN
\1aADJ-GEN ("VALUE" ATOM <OR FIX VARTBL>) AMT4>
3962 <TYPE? AMT4 <TYPE-CODE FIX> - PHRASE8>
3963 <FRAME '
\1aADD-CONSTANT-TO-AC>
3964 <LSH AMT4 2 = STACK (TYPE FIX)>
3966 <GVAL 'AC-TP = STACK>
3967 <CALL '
\1aADD-CONSTANT-TO-AC 2>
3970 <FRAME '
\1aFIND-CACHE-VAR>
3972 <CALL '
\1aFIND-CACHE-VAR 1 = LVAR6>
3973 <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE10>
3974 <NTHUV LVAR6 6 = LVAR6>
3975 <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE10>
3980 <CALL '
\1aMA-IMM 1 = STACK>
3981 <NTHUV LVAR6 2 = TEMP15 (TYPE FIX)>
3983 <OR TEMP15 #WORD *120* = TEMP15>
3984 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
3985 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
3990 <CALL '
\1aGET-AC 2 = LVAR6>
3991 <NTHUV LVAR6 2 = TEMP15 (TYPE FIX)>
3992 <OR TEMP15 #WORD *120* = TEMP15>
3993 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
3994 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
3999 <NTHUV LVAR6 2 = TEMP15 (TYPE FIX)>
4001 <OR TEMP15 #WORD *120* = TEMP15>
4002 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
4003 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
4005 <GVAL 'AC-TP = TEMP15>
4006 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
4007 <OR TEMP15 #WORD *120* = TEMP15>
4008 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
4009 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
4018 <CALL '
\1aMA-IMM 1 = STACK>
4019 <FRAME '
\1aVAR-VALUE-ADDRESS>
4022 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
4026 <CALL '
\1aGET-AC 2 = LVAR6>
4027 <NTHUV LVAR6 2 = TEMP15 (TYPE FIX)>
4028 <OR TEMP15 #WORD *120* = TEMP15>
4029 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
4030 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
4035 <NTHUV LVAR6 2 = TEMP15 (TYPE FIX)>
4037 <OR TEMP15 #WORD *120* = TEMP15>
4038 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
4039 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
4041 <GVAL 'AC-TP = TEMP15>
4042 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
4043 <OR TEMP15 #WORD *120* = TEMP15>
4044 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
4045 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
4052 <GFCN
\1aNTHU-GEN ("VALUE" ATOM ANY ANY ANY "OPTIONAL" ANY) STRUC6 NUM7 RES8 HINT9>
4053 <OPT-DISPATCH 3 %<> OPT4 OPT5>
4059 <FRAME '
\1aCALL-RTE>
4060 <GVAL 'INTHU!-MIMOP = STACK>
4070 <CALL '
\1aCALL-RTE 6>
4075 <GFCN
\1aRESTU-GEN ("VALUE" ATOM ANY ANY ANY "OPTIONAL" ANY) STRUC6 NUM7 RES8 HINT9>
4076 <OPT-DISPATCH 3 %<> OPT4 OPT5>
4082 <FRAME '
\1aCALL-RTE>
4083 <GVAL 'IRESTU!-MIMOP = STACK>
4093 <CALL '
\1aCALL-RTE 6>
4098 <GFCN
\1aPUTU-GEN ("VALUE" ATOM ANY ANY ANY "OPTIONAL" ANY) STRUC6 NUM7 VAL8 HINT9>
4099 <OPT-DISPATCH 3 %<> OPT4 OPT5>
4105 <FRAME '
\1aCALL-RTE>
4106 <GVAL 'IPUTU!-MIMOP = STACK>
4116 <CALL '
\1aCALL-RTE 7>
4121 <GFCN
\1aATIC-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY) ARG7 RES8 HINT9>
4122 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
4130 <FRAME '
\1aCALL-RTE>
4131 <GVAL 'IATIC!-MIMOP = STACK>
4139 <CALL '
\1aCALL-RTE 5>
4144 <GFCN
\1aPFRAME-GEN ("VALUE" ATOM VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) FRM6 RES7 HINT8>
4145 <OPT-DISPATCH 2 %<> OPT4 OPT5>
4149 <TEMP TAC10 VAC9 TEMP17:FIX TLAB12 NPL11>
4152 <CALL '
\1aGET-AC 0 = TAC10>
4153 <FRAME '
\1aLOAD-VAR>
4159 <CALL '
\1aLOAD-VAR 4 = VAC9>
4165 <CALL '
\1aMA-DISP 2 = STACK>
4166 <NTHUV VAC9 2 = TEMP17 (TYPE FIX)>
4167 <OR TEMP17 #WORD *120* = TEMP17>
4168 <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
4169 <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
4172 <FRAME '
\1aMAKE-LABEL>
4173 <CALL '
\1aMAKE-LABEL 0 = TLAB12>
4174 <FRAME '
\1aEMIT-LABEL>
4177 <CALL '
\1aEMIT-LABEL 2>
4183 <CALL '
\1aMA-DISP 2 = STACK>
4185 <FRAME '
\1aMAKE-LABEL>
4186 <CALL '
\1aMAKE-LABEL 0 = NPL11>
4187 <FRAME '
\1aGEN-BRANCH>
4191 <CALL '
\1aGEN-BRANCH 3>
4197 <CALL '
\1aMA-DISP 2 = STACK>
4198 <NTHUV VAC9 2 = TEMP17 (TYPE FIX)>
4199 <OR TEMP17 #WORD *120* = TEMP17>
4200 <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
4201 <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
4204 <FRAME '
\1aGEN-BRANCH>
4208 <PUSH 'UNCONDITIONAL-BRANCH>
4209 <CALL '
\1aGEN-BRANCH 3>
4210 <FRAME '
\1aEMIT-LABEL>
4214 <CALL '
\1aEMIT-LABEL 2>
4217 <FRAME '
\1aTYPE-WORD>
4219 <CALL '
\1aTYPE-WORD 1 = STACK>
4220 <NTHUV TAC10 2 = TEMP17 (TYPE FIX)>
4221 <OR TEMP17 #WORD *120* = TEMP17>
4222 <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
4223 <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
4226 <FRAME '
\1aDEST-PAIR>
4233 <CALL '
\1aDEST-PAIR 3>
4238 <GFCN
\1aARGS-GEN ("VALUE" ANY VARTBL "OPTIONAL" ANY ANY) FRM7 RES8 HINT9>
4239 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
4247 <FRAME '
\1aCALL-RTE>
4248 <GVAL 'IARGS!-MIMOP = STACK>
4256 <CALL '
\1aCALL-RTE 5 = TEMP11>
4262 <GFCN
\1aVALUE-GEN ("VALUE" ATOM ANY <OR ATOM VARTBL> "OPTIONAL" ANY) VAL6 RES7 HINT8>
4263 <OPT-DISPATCH 2 %<> OPT4 OPT5>
4270 <CALL '
\1aGET-AC 0 = VAC9>
4271 <FRAME '
\1aMOVE-VALUE>
4275 <CALL '
\1aMOVE-VALUE 2>
4276 <FRAME '
\1aDEST-DECL>
4282 <CALL '
\1aDEST-DECL 3>
4286 <DEFINE OBJECT-GEN (TYP CNT VAL RES "AUX" TAC VAC (TDONE? <>)) <COND (<==? .RES STACK> <COND (<TYPE? .TYP VARTBL> <EMIT-PUSH <VAR-VALUE-ADDRESS .TYP> WORD>) (<EMIT-PUSH <MA-IMM .TYP> WORD>)> <COND (<TYPE? .CNT VARTBL> <EMIT-PUSH <VAR-VALUE-ADDRESS .CNT> WORD>) (<EMIT-PUSH <MA-IMM .CNT> WORD>)> <COND (<TYPE? .VAL VARTBL> <EMIT-PUSH <VAR-VALUE-ADDRESS .VAL> LONG>) (<EMIT-PUSH <MA-IMM .VAL> LONG>)>) (T <SET TAC <GET-AC DOUBLE T>> <COND (<NOT <TYPE? .CNT VARTBL>> <COND (<==? .CNT 0> <SET TDONE? T> <COND (<TYPE? .TYP VARTBL> <EMIT ,INST-MOVZWL <VAR-VALUE-ADDRESS .TYP> <MA-REG .TAC>>) (T <EMIT-MOVE <MA-IMM .TYP> <MA-REG .TAC> LONG>)>) (<NOT <TYPE? .TYP VARTBL>> <SET TDONE? T> <EMIT-MOVE <MA-IMM <ORB .TYP <LSH .CNT 16>>> <MA-REG .TAC> LONG>)>)> <COND (<NOT .TDONE?> <EMIT ,INST-MOVW <COND (<TYPE? .CNT VARTBL> <VAR-VALUE-ADDRESS .CNT>) (<MA-IMM .CNT>)> <MA-REG .TAC>> <EMIT ,INST-ASHL <MA-LIT 16> <MA-REG .TAC> <MA-REG .TAC>> <EMIT ,INST-MOVW <COND (<TYPE? .TYP VARTBL> <VAR-VALUE-ADDRESS .TYP>) (<MA-IMM .TYP>)> <MA-REG .TAC>>)> <EMIT ,INST-MOVL <COND (<TYPE? .VAL VARTBL> <VAR-VALUE-ADDRESS .VAL>) (<MA-IMM .VAL>)> <MA-REG <SET VAC <NEXT-AC .TAC>>>> <DEST-PAIR .VAC .TAC .RES T>)> NORMAL>
4289 <GFCN
\1aNTH1-GEN ("VALUE" ANY ANY ANY "OPTIONAL" ANY) VAL6 RES7 HINT8>
4290 <OPT-DISPATCH 2 %<> OPT4 OPT5>
4296 <FRAME '
\1aCALL-RTE>
4297 <GVAL 'CINTH!-MIMOP = STACK>
4305 <CALL '
\1aCALL-RTE 5 = TEMP10>
4311 <GFCN
\1aREST1-GEN ("VALUE" ANY ANY ANY "OPTIONAL" ANY) VAL6 RES7 HINT8>
4312 <OPT-DISPATCH 2 %<> OPT4 OPT5>
4318 <FRAME '
\1aCALL-RTE>
4319 <GVAL 'CIRST!-MIMOP = STACK>
4327 <CALL '
\1aCALL-RTE 5 = TEMP10>
4333 <GFCN
\1aEMPTY?-GEN ("VALUE" ANY VARTBL ATOM ATOM) VAR4 DIR5 LABEL6>
4336 <FRAME '
\1aCALL-RTE>
4337 <GVAL 'CIEMP!-MIMOP = STACK>
4343 <CALL '
\1aCALL-RTE 5>
4344 <VEQUAL? DIR5 '+ - PHRASE10>
4345 <FRAME '
\1aGEN-BRANCH>
4347 <FRAME '
\1aMAKE-LABEL>
4348 <CALL '
\1aMAKE-LABEL 0 = XLABEL7>
4350 <PUSH 'UNCONDITIONAL-BRANCH>
4353 <CALL '
\1aGEN-BRANCH 5>
4355 <FRAME '
\1aGEN-BRANCH>
4359 <PUSH 'UNCONDITIONAL-BRANCH>
4361 <VEQUAL? DIR5 '- - TAG14>
4367 <CALL '
\1aGEN-BRANCH 5>
4368 <VEQUAL? DIR5 '+ + TAG19>
4372 <FRAME '
\1aEMIT-LABEL>
4376 <CALL '
\1aEMIT-LABEL 2 = XLABEL7>
4382 <GFCN
\1aGASSIGNED?-GEN ("VALUE" ANY ANY ANY "OPTIONAL" ANY) VAL6 RES7 HINT8>
4383 <OPT-DISPATCH 2 %<> OPT4 OPT5>
4389 <FRAME '
\1aCALL-RTE>
4390 <GVAL 'CIGAS!-MIMOP = STACK>
4398 <CALL '
\1aCALL-RTE 5 = TEMP10>
4401 <END
\1aGASSIGNED?-GEN>
4404 <GFCN
\1aMONAD?-GEN ("VALUE" ANY VARTBL ATOM ATOM) VAR4 DIR5 LABEL6>
4407 <FRAME '
\1aCALL-RTE>
4408 <GVAL 'CIMON!-MIMOP = STACK>
4414 <CALL '
\1aCALL-RTE 5>
4415 <VEQUAL? DIR5 '+ - PHRASE10>
4416 <FRAME '
\1aGEN-BRANCH>
4418 <FRAME '
\1aMAKE-LABEL>
4419 <CALL '
\1aMAKE-LABEL 0 = XLABEL7>
4421 <PUSH 'UNCONDITIONAL-BRANCH>
4424 <CALL '
\1aGEN-BRANCH 5>
4426 <FRAME '
\1aGEN-BRANCH>
4430 <PUSH 'UNCONDITIONAL-BRANCH>
4432 <VEQUAL? DIR5 '- - TAG14>
4438 <CALL '
\1aGEN-BRANCH 5>
4439 <VEQUAL? DIR5 '+ + TAG19>
4443 <FRAME '
\1aEMIT-LABEL>
4447 <CALL '
\1aEMIT-LABEL 2 = XLABEL7>
4453 <GFCN
\1aFGVAL-GEN ("VALUE" ANY ANY ANY "OPTIONAL" ANY) VAL6 RES7 HINT8>
4454 <OPT-DISPATCH 2 %<> OPT4 OPT5>
4460 <FRAME '
\1aCALL-RTE>
4461 <GVAL 'CIGVL!-MIMOP = STACK>
4469 <CALL '
\1aCALL-RTE 5 = TEMP10>
4475 <GFCN
\1aACALL-GEN ("VALUE" ANY ANY ANY "OPTIONAL" ANY ANY) SBR7 NARG8 RES9 HINT10>
4476 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
4484 <FRAME '
\1aCALL-RTE>
4485 <GVAL 'IACALL!-MIMOP = STACK>
4495 <CALL '
\1aCALL-RTE 6 = TEMP12>
4501 <GFCN
\1aBIGSTACK-GEN ("VALUE" ANY ANY "OPTIONAL" ANY ANY) NUM7 RES8 HINT9>
4502 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
4510 <FRAME '
\1aCALL-RTE>
4511 <GVAL 'IBIGSTK!-MIMOP = STACK>
4519 <CALL '
\1aCALL-RTE 5 = TEMP11>
4522 <END
\1aBIGSTACK-GEN>
4525 <GFCN
\1aON-STACK?-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" ANY ANY ANY) OBJ8 RES9 HINT10 LABEL11 TAC12>
4526 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
4534 <TEMP TEMP20 TEMP22>
4536 <TYPE? LABEL11 <TYPE-CODE UNBOUND> - TAG13>
4537 <FRAME '
\1aMAKE-LABEL>
4538 <CALL '
\1aMAKE-LABEL 0 = LABEL11>
4543 <CALL '
\1aGET-AC 2 = TAC12>
4544 <FRAME '
\1aLOAD-CONSTANT>
4547 <CALL '
\1aLOAD-CONSTANT 2>
4548 <FRAME '
\1aDEST-DECL>
4553 <CALL '
\1aDEST-DECL 3>
4556 <GVAL 'AC-PC = TEMP20>
4557 <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
4558 <OR TEMP20 #WORD *220* = TEMP20>
4559 <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
4560 <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = TEMP20>
4561 <CONS TEMP20 () = TEMP20>
4563 <GVAL 'STKBOT-LOC = STACK>
4564 <CALL '
\1aLREV 1 = TEMP22>
4565 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = TEMP22>
4566 <CONS TEMP22 () = TEMP22>
4567 <PUTREST TEMP20 TEMP22>
4569 <CHTYPE TEMP20 <TYPE-CODE LADDR> = STACK>
4571 <FRAME '
\1aVAR-VALUE-ADDRESS>
4573 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
4575 <FRAME '
\1aGEN-BRANCH>
4579 <CALL '
\1aGEN-BRANCH 3>
4582 <GVAL 'AC-PC = TEMP20>
4583 <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
4584 <OR TEMP20 #WORD *220* = TEMP20>
4585 <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
4586 <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = TEMP20>
4587 <CONS TEMP20 () = TEMP20>
4589 <GVAL 'STKTOP-LOC = STACK>
4590 <CALL '
\1aLREV 1 = TEMP22>
4591 <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = TEMP22>
4592 <CONS TEMP22 () = TEMP22>
4593 <PUTREST TEMP20 TEMP22>
4595 <CHTYPE TEMP20 <TYPE-CODE LADDR> = STACK>
4597 <FRAME '
\1aVAR-VALUE-ADDRESS>
4599 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
4601 <FRAME '
\1aGEN-BRANCH>
4605 <CALL '
\1aGEN-BRANCH 3>
4606 <FRAME '
\1aLOAD-CONSTANT>
4609 <CALL '
\1aLOAD-CONSTANT 2>
4612 <GVAL 'AC-TP = TEMP20>
4613 <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
4614 <OR TEMP20 #WORD *120* = TEMP20>
4615 <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
4616 <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
4618 <FRAME '
\1aVAR-VALUE-ADDRESS>
4621 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
4623 <FRAME '
\1aGEN-BRANCH>
4627 <CALL '
\1aGEN-BRANCH 3>
4628 <FRAME '
\1aLOAD-CONSTANT>
4632 <CALL '
\1aLOAD-CONSTANT 2>
4633 <FRAME '
\1aEMIT-LABEL>
4637 <CALL '
\1aEMIT-LABEL 2>
4639 <END
\1aON-STACK?-GEN>