3 <GFCN
\1aPUTR-GEN ("VALUE" ATOM ANY <OR FIX VARTBL> ANY "OPTIONAL" ANY ANY) VAR7 NUM8 VAL9 HINT10 PHINT11>
4 <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
10 <TEMP RD12 TEMP42 VAC14 TCOFF16 ANYCOFF19 ETYP13:ATOM>
12 <TYPE? VAR7 <TYPE-CODE VARTBL> + PHRASE26>
15 <CALL '
\1aTYPE 1 = HINT10>
17 <TYPE? PHINT11 <TYPE-CODE FALSE> + PHRASE29>
18 <FRAME '
\1aPARSE-HINT>
22 <CALL '
\1aPARSE-HINT 2 = PHINT11>
24 <TYPE? NUM8 <TYPE-CODE VARTBL> + BOOL33>
25 <TYPE? HINT10 <TYPE-CODE FALSE> - PHRASE32>
28 <GVAL 'IPUTR!-MIMOP = STACK>
41 <FRAME '
\1aGET-RELE-DESCRIPTOR>
44 <CALL '
\1aGET-RELE-DESCRIPTOR 2 = RD12>
45 <TYPE? RD12 <TYPE-CODE FALSE> - BOOL36>
47 <PUSH "RECORD TYPE NOT FOUND">
53 <GVAL 'MAKTUP-FLAG = TEMP42>
54 <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE40>
56 <VEQUAL? NUM8 2 - PHRASE40 (TYPE FIX)>
58 <EQUAL? VAL9 'UNWIND + BOOL43>
59 <EQUAL? VAL9 'T$UNWIND - PHRASE40>
61 <TYPE? HINT10 <TYPE-CODE FALSE> + PHRASE40>
62 <FRAME '
\1aPARSE-HINT>
65 <CALL '
\1aPARSE-HINT 2 = TEMP42>
66 <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE40>
67 <EQUAL? TEMP42 'LBIND + BOOL46>
68 <EQUAL? TEMP42 'LBIND - PHRASE40>
74 <CALL '
\1aTYPE-WORD 1 = STACK>
76 <CALL '
\1aEMIT-PUSH 2>
79 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
80 <OR TEMP42 #WORD *120* = TEMP42>
81 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
82 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
85 <CALL '
\1aEMIT-PUSH 2>
87 <FRAME '
\1aGET-RSTACK?>
90 <CALL '
\1aGET-RSTACK? 1 = TEMP42>
91 <FRAME '
\1aPROTECT-VAL>
93 <CALL '
\1aPROTECT-VAL 1>
94 <TYPE? VAR7 <TYPE-CODE VARTBL> - PHRASE53>
100 <CALL '
\1aLOAD-VAR 4 = VAC14>
106 <CALL '
\1aGET-AC 2 = VAC14>
107 <FRAME '
\1aMOVE-VALUE>
110 <CALL '
\1aMOVE-VALUE 2>
117 <NTHUV RD12 2 = STACK (TYPE FIX)>
118 <CALL '
\1aMA-DISP 2 = TCOFF16>
121 <NTHUV RD12 2 = TEMP42 (TYPE FIX)>
122 <ADD TEMP42 2 = STACK (TYPE FIX)>
124 <CALL '
\1aMA-DISP 2 = ANYCOFF19>
128 <NTHUV RD12 1 = STACK (TYPE FIX)>
129 <CALL '
\1aMA-DISP 2 = VAC14>
130 <NTHUV RD12 3 = ETYP13 (TYPE ATOM)>
131 <VEQUAL? ETYP13 'ANY - PHRASE63>
132 <FRAME '
\1aFIX-CONSTANT?>
134 <CALL '
\1aFIX-CONSTANT? 1 = TEMP42>
135 <TYPE? TEMP42 <TYPE-CODE FALSE> - BOOL73>
137 <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE65>
138 <FRAME '
\1aFIND-CACHE-VAR>
140 <CALL '
\1aFIND-CACHE-VAR 1 = RD12>
141 <TYPE? RD12 <TYPE-CODE FALSE> + PHRASE65>
142 <NTHUV RD12 2 = TEMP42>
143 <TYPE? TEMP42 <TYPE-CODE FALSE> + BOOL70>
145 <NTHUV RD12 4 = TEMP42>
146 <TYPE? TEMP42 <TYPE-CODE FALSE> + BOOL70>
148 <NTHUV RD12 3 = TEMP42>
149 <TYPE? TEMP42 <TYPE-CODE FALSE> - PHRASE65>
152 <NTHUV RD12 9 = TEMP42>
153 <TYPE? TEMP42 <TYPE-CODE FALSE> + BOOL73>
154 <NTHUV RD12 6 = RD12>
158 <CALL '
\1aNEXT-AC 1 = TEMP42>
159 <EQUAL? RD12 TEMP42 + PHRASE65>
162 <FRAME '
\1aMOVE-VALUE>
166 <CALL '
\1aMOVE-VALUE 2>
167 <FRAME '
\1aMOVE-TYPE>
174 <CALL '
\1aMOVE-TYPE 3>
177 <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE79>
180 <FRAME '
\1aVAR-TYPE-ADDRESS>
184 <CALL '
\1aVAR-TYPE-ADDRESS 2 = STACK>
192 <FRAME '
\1aADDR-TYPE-MQUOTE>
195 <CALL '
\1aADDR-TYPE-MQUOTE 1 = STACK>
201 <VEQUAL? ETYP13 'SMALL-INT + BOOL86>
202 <VEQUAL? ETYP13 'SMALL-POS-INT - PHRASE85>
204 <TYPE? VAL9 <TYPE-CODE FIX> - PHRASE88>
205 <FRAME '
\1aEMIT-MOVE>
209 <CALL '
\1aMA-IMM 1 = STACK>
213 <CALL '
\1aEMIT-MOVE 3>
216 <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE91>
217 <FRAME '
\1aVAR-VALUE-IN-AC?>
219 <CALL '
\1aVAR-VALUE-IN-AC? 1 = RD12>
220 <TYPE? RD12 <TYPE-CODE FALSE> + PHRASE93>
221 <FRAME '
\1aEMIT-MOVE>
222 <NTHUV RD12 2 = TEMP42 (TYPE FIX)>
224 <OR TEMP42 #WORD *120* = TEMP42>
225 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
226 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
231 <CALL '
\1aEMIT-MOVE 3>
236 <NTHUV VAL9 2 = TEMP42 (TYPE FIX)>
238 <ADD TEMP42 2 = STACK (TYPE FIX)>
240 <CALL '
\1aMA-DISP 2 = RD12>
241 <FRAME '
\1aEMIT-MOVE>
247 <CALL '
\1aEMIT-MOVE 3>
251 <PUSH "BAD ARGUMENT">
256 <VEQUAL? ETYP13 'TYPE-C + BOOL101>
257 <VEQUAL? ETYP13 'VWORD1 - PHRASE100>
259 <NTHUV RD12 5 = TEMP42>
261 <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE103>
263 <EQUAL? VAL9 %<> + BOOL106>
264 <TYPE? VAL9 <TYPE-CODE VARTBL> - BOOL107>
265 <FRAME '
\1aVARTBL-DECL>
267 <CALL '
\1aVARTBL-DECL 1 = TEMP42>
268 <EQUAL? TEMP42 'FALSE + BOOL106>
271 <EQUAL? PHINT11 'FALSE - PHRASE105>
273 <VEQUAL? ETYP13 'TYPE-C - PHRASE110>
279 <CALL '
\1aMA-IMM 1 = STACK>
292 <TYPE? VAL9 <TYPE-CODE VARTBL> - BOOL116>
293 <FRAME '
\1aVARTBL-DECL>
295 <CALL '
\1aVARTBL-DECL 1 = TEMP42>
296 <TYPE? TEMP42 <TYPE-CODE FALSE> - BOOL116>
298 <TYPE? PHINT11 <TYPE-CODE FALSE> + PHRASE115>
301 <VEQUAL? ETYP13 'TYPE-C - PHRASE119>
305 <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE122>
306 <FRAME '
\1aVAR-VALUE-ADDRESS>
309 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP42>
315 <CALL '
\1aMA-IMM 1 = TEMP42>
324 <FRAME '
\1aMOVE-VALUE>
329 <CALL '
\1aMOVE-VALUE 2>
338 <VEQUAL? ETYP13 'TYPE-C - TAG130>
348 <FRAME '
\1aMOVE-VALUE>
353 <CALL '
\1aMOVE-VALUE 2>
356 <VEQUAL? ETYP13 'COUNTVWORD - PHRASE134>
357 <NTHUV RD12 5 = TEMP42>
358 <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE136>
360 <EQUAL? VAL9 %<> + BOOL138>
361 <FRAME '
\1aVARTBL-DECL>
364 <CALL '
\1aVARTBL-DECL 1 = TEMP42>
365 <EQUAL? TEMP42 'FALSE + BOOL138>
367 <EQUAL? PHINT11 'FALSE - PHRASE136>
381 <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE142>
382 <NTHUV RD12 5 = TEMP42>
384 <TYPE? TEMP42 <TYPE-CODE FALSE> + BOOL145>
386 <TYPE? PHINT11 <TYPE-CODE FALSE> - BOOL145>
388 <FRAME '
\1aVARTBL-DECL>
390 <CALL '
\1aVARTBL-DECL 1 = TEMP42>
391 <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE144>
394 <FRAME '
\1aMOVE-VALUE>
398 <CALL '
\1aMOVE-VALUE 2>
399 <FRAME '
\1aCOUNT-STORE-REC>
404 <CALL '
\1aCOUNT-STORE-REC 2>
417 <FRAME '
\1aMOVE-VALUE>
421 <CALL '
\1aMOVE-VALUE 2>
422 <FRAME '
\1aEMIT-MOVE>
427 <CALL '
\1aLENGTH 1 = STACK>
428 <CALL '
\1aMA-IMM 1 = STACK>
432 <CALL '
\1aEMIT-MOVE 3>
435 <VEQUAL? ETYP13 'BYTE - PHRASE156>
436 <TYPE? VAL9 <TYPE-CODE FIX> - PHRASE158>
437 <FRAME '
\1aEMIT-MOVE>
441 <CALL '
\1aMA-IMM 1 = STACK>
445 <CALL '
\1aEMIT-MOVE 3>
448 <FRAME '
\1aEMIT-MOVE>
449 <FRAME '
\1aVAR-VALUE-ADDRESS>
452 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
456 <CALL '
\1aEMIT-MOVE 3>
459 <VEQUAL? ETYP13 'BOOLEAN - PHRASE164>
461 <FRAME '
\1aTEST-BOOL>
464 <NTHUV RD12 4 = STACK (TYPE FIX)>
468 <CALL '
\1aTEST-BOOL 3>
470 <FRAME '
\1aCLEAR-STATUS>
471 <CALL '
\1aCLEAR-STATUS 0>
476 <GFCN
\1aTESTSET ("VALUE" ANY VARTBL EFF-ADDR <OR FIX FALSE EFF-ADDR> "OPTIONAL" ANY) VAR6 VADDR7 TCADDR8 HW9>
477 <OPT-DISPATCH 3 %<> OPT4 OPT5>
481 <TEMP FLAB11 TEMP17 ELAB10>
483 <FRAME '
\1aMAKE-LABEL>
484 <CALL '
\1aMAKE-LABEL 0 = FLAB11>
485 <FRAME '
\1aTYPE-TST-GEN>
490 <CALL '
\1aTYPE-TST-GEN 4>
492 <TYPE? HW9 <TYPE-CODE FALSE> + PHRASE16>
493 <SET TEMP17 180 (TYPE FIX)>
496 <SET TEMP17 212 (TYPE FIX)>
502 <TYPE? TCADDR8 <TYPE-CODE EFF-ADDR> - BOOL19>
508 <FRAME '
\1aMAKE-LABEL>
509 <CALL '
\1aMAKE-LABEL 0 = ELAB10>
510 <FRAME '
\1aGEN-BRANCH>
514 <CALL '
\1aGEN-BRANCH 3>
515 <FRAME '
\1aEMIT-LABEL>
519 <CALL '
\1aEMIT-LABEL 2>
520 <FRAME '
\1aEMIT-MOVE>
521 <FRAME '
\1aVAR-VALUE-ADDRESS>
523 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
526 <TYPE? HW9 <TYPE-CODE FALSE> + PHRASE27>
528 <SET TEMP17 'WORD (TYPE ATOM)>
531 <SET TEMP17 'LONG (TYPE ATOM)>
535 <CALL '
\1aEMIT-MOVE 3>
536 <TYPE? TCADDR8 <TYPE-CODE EFF-ADDR> - PHRASE30>
537 <FRAME '
\1aCOUNT-STORE-REC>
542 <CALL '
\1aCOUNT-STORE-REC 2>
544 <FRAME '
\1aEMIT-LABEL>
548 <CALL '
\1aEMIT-LABEL 2 = TEMP17>
554 <GFCN
\1aTEST-BOOL ("VALUE" ANY EFF-ADDR FIX VARTBL) VCADDR4 BITNO5 VAL6>
557 <FRAME '
\1aMAKE-LABEL>
558 <CALL '
\1aMAKE-LABEL 0 = FLAB7>
559 <FRAME '
\1aTYPE-TST-GEN>
566 <CALL '
\1aTYPE-TST-GEN 4>
571 <LSH 1 BITNO5 = STACK (TYPE FIX)>
572 <CALL '
\1aMA-IMM 1 = STACK>
574 <FRAME '
\1aMAKE-LABEL>
575 <CALL '
\1aMAKE-LABEL 0 = FLAB7>
576 <FRAME '
\1aGEN-BRANCH>
580 <CALL '
\1aGEN-BRANCH 3>
582 <GVAL 'INST-BISL = STACK>
586 <LSH 1 BITNO5 = STACK (TYPE FIX)>
588 <CALL '
\1aMA-IMM 1 = STACK>
590 <FRAME '
\1aEMIT-LABEL>
594 <CALL '
\1aEMIT-LABEL 2 = FLAB7>
600 <GFCN
\1aNTH-RECORD-GEN ("VALUE" ATOM ANY <OR VARTBL FIX> <OR ATOM VARTBL> "OPTIONAL" ANY <OR FALSE HINT>) VAR7 OFF8 RES9 HINT110 HINT211>
601 <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
607 <TEMP (BRANCH?13 %<>) RD12 STACK?23 NTYP20 VAC14 TCOFF16 TEMP51 VOFF18 ETYP22:ATOM>
609 <TYPE? VAR7 <TYPE-CODE VARTBL> + PHRASE26>
612 <CALL '
\1aTYPE 1 = HINT110>
614 <TYPE? HINT110 <TYPE-CODE FALSE> + BOOL30>
615 <TYPE? OFF8 <TYPE-CODE VARTBL> - PHRASE29>
618 <GVAL 'INTHR!-MIMOP = STACK>
627 <CALL '
\1aCALL-RTE 6>
630 <FRAME '
\1aGET-RELE-DESCRIPTOR>
633 <CALL '
\1aGET-RELE-DESCRIPTOR 2 = RD12>
634 <TYPE? RD12 <TYPE-CODE FALSE> - BOOL33>
636 <PUSH "RECORD TYPE NOT FOUND">
640 <PUSH 'NTH-RECORD-GEN>
643 <FRAME '
\1aGET-RSTACK?>
646 <CALL '
\1aGET-RSTACK? 1 = STACK?23>
647 <NTHUV RD12 7 = STACK?23>
649 <TYPE? NTYP20 <TYPE-CODE FALSE> + BOOL37>
650 <FRAME '
\1aPARSE-HINT>
653 <CALL '
\1aPARSE-HINT 2 = NTYP20>
655 <EQUAL? RES9 'STACK + PHRASE40>
656 <FRAME '
\1aGET-RELE-BRANCH?>
659 <CALL '
\1aGET-RELE-BRANCH? 1 = BRANCH?13>
661 <TYPE? VAR7 <TYPE-CODE VARTBL> - PHRASE43>
667 <CALL '
\1aLOAD-VAR 4 = VAC14>
673 <CALL '
\1aGET-AC 2 = VAC14>
674 <FRAME '
\1aMOVE-VALUE>
677 <CALL '
\1aMOVE-VALUE 2>
684 <NTHUV RD12 2 = STACK (TYPE FIX)>
685 <CALL '
\1aMA-DISP 2 = TCOFF16>
688 <NTHUV RD12 2 = TEMP51 (TYPE FIX)>
689 <ADD TEMP51 2 = STACK (TYPE FIX)>
691 <CALL '
\1aMA-DISP 2 = TEMP51>
694 <NTHUV RD12 1 = STACK (TYPE FIX)>
695 <CALL '
\1aMA-DISP 2 = VOFF18>
696 <EQUAL? VAR7 RES9 - PHRASE54>
700 <CALL '
\1aDEAD-VAR 1>
702 <NTHUV RD12 3 = ETYP22 (TYPE ATOM)>
703 <VEQUAL? ETYP22 'ANY - PHRASE57>
713 <CALL '
\1aRANY-OFF 4>
716 <VEQUAL? ETYP22 'VWORD1 + BOOL61>
717 <VEQUAL? ETYP22 'COUNTVWORD - PHRASE59>
719 <TYPE? BRANCH?13 <TYPE-CODE FALSE> + PHRASE59>
720 <FRAME '
\1aBRANCH-VALUE>
724 <NTHUV RD12 6 = STACK>
725 <CALL '
\1aBRANCH-VALUE 3 = BRANCH?13>
735 <NTHUV RD12 6 = STACK>
737 <NTHUV RD12 6 = TEMP51>
738 <TYPE? TEMP51 <TYPE-CODE FALSE> + PHRASE65>
739 <SET TEMP51 BRANCH?13>
743 <NTHUV RD12 6 = TEMP51>
745 <TYPE? TEMP51 <TYPE-CODE FALSE> + PHRASE67>
750 <CALL '
\1aNEXT-AC 1 = TEMP51>
753 <SET TEMP51 BRANCH?13>
761 <VEQUAL? ETYP22 'TYPE-C - PHRASE70>
762 <TYPE? BRANCH?13 <TYPE-CODE FALSE> + PHRASE70>
763 <FRAME '
\1aBRANCH-HW>
767 <CALL '
\1aBRANCH-HW 2 = BRANCH?13>
777 <NTHUV RD12 6 = STACK>
786 <VEQUAL? ETYP22 'VWORD1 + BOOL75>
787 <VEQUAL? ETYP22 'TYPE-C - PHRASE74>
789 <NTHUV RD12 5 = TEMP51>
790 <TYPE? TEMP51 <TYPE-CODE FALSE> + PHRASE77>
801 <NTHUV RD12 6 = STACK>
805 <VEQUAL? ETYP22 'TYPE-C - TAG79>
812 <CALL '
\1aTEST-NTH 7>
824 <NTHUV RD12 6 = STACK>
826 <VEQUAL? ETYP22 'TYPE-C - TAG82>
836 <VEQUAL? ETYP22 'COUNTVWORD - PHRASE84>
837 <NTHUV RD12 5 = TEMP51>
839 <TYPE? TEMP51 <TYPE-CODE FALSE> + PHRASE86>
854 <CALL '
\1aTEST-NTH 6>
871 <VEQUAL? ETYP22 'SMALL-FR-OFFSET - PHRASE89>
876 <CALL '
\1aGET-AC 2 = BRANCH?13>
883 <NTHUV BRANCH?13 2 = TEMP51 (TYPE FIX)>
884 <OR TEMP51 #WORD *120* = TEMP51>
885 <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
886 <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
891 <NTHUV VAC14 2 = TEMP51 (TYPE FIX)>
893 <OR TEMP51 #WORD *120* = TEMP51>
894 <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
895 <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
897 <NTHUV BRANCH?13 2 = TEMP51 (TYPE FIX)>
898 <OR TEMP51 #WORD *120* = TEMP51>
899 <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
900 <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
903 <FRAME '
\1aDEST-DECL>
909 <CALL '
\1aDEST-DECL 3>
912 <VEQUAL? ETYP22 'SMALL-INT + BOOL96>
913 <VEQUAL? ETYP22 'SMALL-POS-INT - PHRASE95>
919 <CALL '
\1aGET-AC 2 = BRANCH?13>
922 <VEQUAL? ETYP22 'SMALL-INT - PHRASE100>
928 <NTHUV BRANCH?13 2 = TEMP51 (TYPE FIX)>
929 <OR TEMP51 #WORD *120* = TEMP51>
930 <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
931 <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
940 <NTHUV BRANCH?13 2 = TEMP51 (TYPE FIX)>
941 <OR TEMP51 #WORD *120* = TEMP51>
942 <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
943 <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
947 <FRAME '
\1aDEST-DECL>
953 <CALL '
\1aDEST-DECL 3>
956 <VEQUAL? ETYP22 'BYTE - PHRASE105>
961 <CALL '
\1aGET-AC 2 = BRANCH?13>
968 <NTHUV BRANCH?13 2 = TEMP51 (TYPE FIX)>
969 <OR TEMP51 #WORD *120* = TEMP51>
970 <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
971 <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
974 <FRAME '
\1aDEST-DECL>
980 <CALL '
\1aDEST-DECL 3>
983 <VEQUAL? ETYP22 'BOOLEAN - COND111>
985 <TYPE? BRANCH?13 <TYPE-CODE FALSE> + PHRASE112>
986 <FRAME '
\1aBOOL-NTH-BRANCH>
989 <NTHUV RD12 4 = STACK (TYPE FIX)>
993 <CALL '
\1aBOOL-NTH-BRANCH 3>
999 <NTHUV RD12 4 = STACK (TYPE FIX)>
1003 <CALL '
\1aBOOL-NTH 3>
1006 <END
\1aNTH-RECORD-GEN>
1009 <GFCN
\1aBRANCH-VALUE ("VALUE" ANY EFF-ADDR <LIST ATOM ATOM> ANY) VADDR4 BRANCH?5 TWO?6>
1013 <TYPE? TWO?6 <TYPE-CODE FALSE> + PHRASE10>
1014 <SET TEMP11 'DOUBLE (TYPE ATOM)>
1017 <SET TEMP11 'PREF-VAL (TYPE ATOM)>
1022 <CALL '
\1aGET-AC 2 = AC7>
1027 <TYPE? TWO?6 <TYPE-CODE FALSE> + PHRASE15>
1031 <CALL '
\1aNEXT-AC 1 = TEMP11>
1036 <NTHUV TEMP11 2 = TEMP11 (TYPE FIX)>
1037 <OR TEMP11 #WORD *120* = TEMP11>
1038 <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1039 <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1042 <NTHL BRANCH?5 1 = TEMP11 (TYPE ATOM)>
1043 <VEQUAL? TEMP11 '- - PHRASE19>
1045 <FRAME '
\1aGEN-BRANCH>
1047 <RESTL BRANCH?5 1 = TEMP11 (TYPE LIST)>
1049 <NTHL TEMP11 1 = STACK (TYPE ATOM)>
1052 <CALL '
\1aGEN-BRANCH 3>
1056 <FRAME '
\1aGEN-BRANCH>
1058 <RESTL BRANCH?5 1 = TEMP11 (TYPE LIST)>
1060 <NTHL TEMP11 1 = STACK (TYPE ATOM)>
1063 <CALL '
\1aGEN-BRANCH 3>
1066 <END
\1aBRANCH-VALUE>
1069 <GFCN
\1aBRANCH-HW ("VALUE" STRUCTURED EFF-ADDR <LIST ATOM ATOM>) VADDR4 BRANCH?5>
1075 <CALL '
\1aGET-AC 2 = AC6>
1080 <NTHUV AC6 2 = TEMP9 (TYPE FIX)>
1081 <OR TEMP9 #WORD *120* = TEMP9>
1082 <LSH TEMP9 24 = TEMP9 (TYPE FIX)>
1083 <CHTYPE TEMP9 <TYPE-CODE EFF-ADDR> = STACK>
1086 <NTHL BRANCH?5 1 = TEMP9 (TYPE ATOM)>
1087 <VEQUAL? TEMP9 '- - PHRASE11>
1089 <FRAME '
\1aGEN-BRANCH>
1091 <RESTL BRANCH?5 1 = TEMP9 (TYPE LIST)>
1093 <NTHL TEMP9 1 = STACK (TYPE ATOM)>
1096 <CALL '
\1aGEN-BRANCH 3>
1100 <FRAME '
\1aGEN-BRANCH>
1102 <RESTL BRANCH?5 1 = TEMP9 (TYPE LIST)>
1104 <NTHL TEMP9 1 = STACK (TYPE ATOM)>
1107 <CALL '
\1aGEN-BRANCH 3>
1113 <GFCN
\1aRANY-OFF ("VALUE" ANY <OR ATOM VARTBL> ANY ANY AC) RES4 TCOFF5 VOFF6 VAC7>
1116 <EQUAL? RES4 'STACK - PHRASE10>
1117 <FRAME '
\1aEMIT-PUSH>
1121 <CALL '
\1aEMIT-PUSH 2 = TEMP12>
1125 <GVAL 'AC-0 = TEMP12>
1126 <EQUAL? TEMP12 VAC7 + PHRASE15>
1130 <CALL '
\1aPREV-AC 1 = TAC8>
1131 <NTHUV TAC8 4 = TEMP12>
1132 <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE15>
1134 <FRAME '
\1aALL-DEAD?>
1136 <CALL '
\1aALL-DEAD? 1 = TEMP12>
1137 <TYPE? TEMP12 <TYPE-CODE FALSE> - BOOL19>
1139 <FRAME '
\1aALL-STORED?>
1141 <CALL '
\1aALL-STORED? 1 = TEMP12>
1142 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE15>
1147 <CALL '
\1aMUNG-AC 1>
1156 <NTHUV TAC8 2 = TEMP12 (TYPE FIX)>
1157 <OR TEMP12 #WORD *120* = TEMP12>
1158 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
1159 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
1168 <CALL '
\1aGET-AC 2 = TAC8>
1170 <CALL '
\1aPROTECT 1>
1175 <NTHUV TAC8 2 = TEMP12 (TYPE FIX)>
1176 <OR TEMP12 #WORD *120* = TEMP12>
1177 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
1178 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
1183 <CALL '
\1aNEXT-AC 1 = VAC7>
1185 <FRAME '
\1aDEST-PAIR>
1192 <CALL '
\1aDEST-PAIR 3 = TEMP12>
1198 <GFCN
\1aTEST-NTH ("VALUE" ANY EFF-ADDR ATOM AC <OR ATOM VARTBL> <OR EFF-ADDR FALSE FIX> <OR FALSE ATOM> "OPTIONAL" ANY) VADDR6 TYP7 VAC8 RES9 CADDR10 HTYP11 HW12>
1199 <OPT-DISPATCH 6 %<> OPT4 OPT5>
1203 <TEMP (TYPV18 %<>) TEMP26 RTAC16 RVAC15 ELAB14 FLAB13>
1205 <GVAL 'TYPE-WORDS = TEMP26>
1206 <EMPUV? TEMP26 + TAG22>
1207 <LOOP (TYP7 VALUE) (TEMP26 LENGTH VALUE)>
1209 <NTHUV TEMP26 1 = TYPV18>
1210 <TYPE? TYPV18 <TYPE-CODE ATOM> - TAG25>
1211 <VEQUAL? TYPV18 TYP7 + TAG23>
1214 <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1215 <EMPUV? TEMP26 - TAG24>
1217 <SET TYPV18 %<> (TYPE FALSE)>
1223 <VEQUAL? TYPV18 0 + PHRASE20>
1224 <NTHUV TYPV18 2 = TYPV18>
1226 <TYPE? RES9 <TYPE-CODE VARTBL> - PHRASE30>
1227 <TYPE? HTYP11 <TYPE-CODE FALSE> + BOOL33>
1228 <TYPE? CADDR10 <TYPE-CODE FALSE> + PHRASE32>
1233 <CALL '
\1aGET-AC 2 = RTAC16>
1236 <CALL '
\1aNEXT-AC 1 = RVAC15>
1239 <CALL '
\1aPROTECT 1>
1242 <FRAME '
\1aFIND-APP-AC>
1246 <CALL '
\1aFIND-APP-AC 2 = RVAC15>
1250 <CALL '
\1aPROTECT 1>
1252 <FRAME '
\1aMAKE-LABEL>
1253 <CALL '
\1aMAKE-LABEL 0 = ELAB14>
1254 <FRAME '
\1aMAKE-LABEL>
1255 <CALL '
\1aMAKE-LABEL 0 = FLAB13>
1256 <TYPE? HTYP11 <TYPE-CODE FALSE> - PHRASE43>
1258 <TYPE? HW12 <TYPE-CODE FALSE> + PHRASE46>
1259 <SET TEMP26 181 (TYPE FIX)>
1262 <SET TEMP26 213 (TYPE FIX)>
1268 <FRAME '
\1aGEN-BRANCH>
1269 <TYPE? HW12 <TYPE-CODE FALSE> + PHRASE50>
1270 <SET TEMP26 24 (TYPE FIX)>
1273 <SET TEMP26 18 (TYPE FIX)>
1279 <CALL '
\1aGEN-BRANCH 3>
1280 <EQUAL? RES9 'STACK - PHRASE53>
1281 <FRAME '
\1aEMIT-PUSH>
1282 <FRAME '
\1aTYPE-WORD>
1284 <CALL '
\1aTYPE-WORD 1 = STACK>
1286 <CALL '
\1aEMIT-PUSH 2>
1287 <FRAME '
\1aCLEAR-PUSH>
1288 <CALL '
\1aCLEAR-PUSH 0>
1291 <FRAME '
\1aMOVE-TYPE>
1294 <CALL '
\1aMOVE-TYPE 2>
1295 <FRAME '
\1aMOVE-VALUE>
1298 <CALL '
\1aMOVE-VALUE 2>
1300 <FRAME '
\1aGEN-BRANCH>
1304 <CALL '
\1aGEN-BRANCH 3>
1305 <FRAME '
\1aEMIT-LABEL>
1309 <CALL '
\1aEMIT-LABEL 2>
1311 <EQUAL? RES9 'STACK - PHRASE63>
1312 <TYPE? CADDR10 <TYPE-CODE FALSE> + PHRASE65>
1313 <TYPE? CADDR10 <TYPE-CODE FIX> - PHRASE67>
1314 <TYPE? TYPV18 <TYPE-CODE FALSE> + PHRASE69>
1315 <LSH CADDR10 16 = TEMP26 (TYPE FIX)>
1316 <OR TYPV18 TEMP26 = TYPV18>
1318 <FRAME '
\1aEMIT-PUSH>
1322 <CALL '
\1aMA-IMM 1 = STACK>
1324 <CALL '
\1aEMIT-PUSH 2>
1327 <FRAME '
\1aEMIT-PUSH>
1328 <FRAME '
\1aTYPE-CODE>
1330 <CALL '
\1aTYPE-CODE 1 = STACK>
1332 <CALL '
\1aEMIT-PUSH 2>
1333 <FRAME '
\1aEMIT-PUSH>
1336 <CALL '
\1aMA-IMM 1 = STACK>
1338 <CALL '
\1aEMIT-PUSH 2>
1341 <FRAME '
\1aEMIT-PUSH>
1342 <FRAME '
\1aTYPE-CODE>
1344 <CALL '
\1aTYPE-CODE 1 = STACK>
1346 <CALL '
\1aEMIT-PUSH 2>
1347 <FRAME '
\1aEMIT-PUSH>
1350 <CALL '
\1aEMIT-PUSH 2>
1353 <FRAME '
\1aEMIT-PUSH>
1354 <FRAME '
\1aTYPE-WORD>
1356 <CALL '
\1aTYPE-WORD 1 = STACK>
1358 <CALL '
\1aEMIT-PUSH 2>
1360 <TYPE? HW12 <TYPE-CODE FALSE> + PHRASE84>
1366 <GVAL 'AC-TP = TEMP26>
1367 <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
1368 <OR TEMP26 #WORD *200* = TEMP26>
1369 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1370 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1375 <FRAME '
\1aEMIT-PUSH>
1379 <CALL '
\1aEMIT-PUSH 2>
1382 <TYPE? HTYP11 <TYPE-CODE FALSE> - PHRASE90>
1383 <TYPE? CADDR10 <TYPE-CODE FIX> - PHRASE92>
1384 <TYPE? TYPV18 <TYPE-CODE FIX> - PHRASE92>
1385 <LSH CADDR10 16 = TEMP26 (TYPE FIX)>
1386 <OR TYPV18 TEMP26 = TYPV18>
1388 <FRAME '
\1aLOAD-CONSTANT>
1392 <CALL '
\1aLOAD-CONSTANT 2>
1395 <TYPE? CADDR10 <TYPE-CODE FALSE> + PHRASE97>
1396 <TYPE? CADDR10 <TYPE-CODE FIX> - PHRASE99>
1397 <FRAME '
\1aLOAD-CONSTANT>
1400 <LSH CADDR10 16 = STACK (TYPE FIX)>
1401 <CALL '
\1aMA-IMM 1 = STACK>
1402 <CALL '
\1aLOAD-CONSTANT 2>
1405 <FRAME '
\1aTYPE-CODE>
1407 <CALL '
\1aTYPE-CODE 1 = STACK>
1408 <NTHUV RTAC16 2 = TEMP26 (TYPE FIX)>
1409 <OR TEMP26 #WORD *120* = TEMP26>
1410 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1411 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1419 <NTHUV RTAC16 2 = TEMP26 (TYPE FIX)>
1420 <OR TEMP26 #WORD *120* = TEMP26>
1421 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1422 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1429 <FRAME '
\1aTYPE-WORD>
1431 <CALL '
\1aTYPE-WORD 1 = STACK>
1432 <NTHUV RTAC16 2 = TEMP26 (TYPE FIX)>
1433 <OR TEMP26 #WORD *120* = TEMP26>
1434 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1435 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1444 <TYPE? CADDR10 <TYPE-CODE FIX> - PHRASE112>
1445 <FRAME '
\1aLOAD-CONSTANT>
1448 <CALL '
\1aLOAD-CONSTANT 2>
1451 <TYPE? CADDR10 <TYPE-CODE FALSE> + PHRASE114>
1452 <FRAME '
\1aMOVE-TO-AC>
1456 <CALL '
\1aMOVE-TO-AC 3>
1458 <TYPE? HW12 <TYPE-CODE FALSE> + PHRASE117>
1464 <NTHUV RVAC15 2 = TEMP26 (TYPE FIX)>
1465 <OR TEMP26 #WORD *120* = TEMP26>
1466 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1467 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1472 <FRAME '
\1aEMIT-MOVE>
1475 <NTHUV RVAC15 2 = TEMP26 (TYPE FIX)>
1476 <OR TEMP26 #WORD *120* = TEMP26>
1477 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1478 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1481 <CALL '
\1aEMIT-MOVE 3>
1483 <TYPE? HTYP11 <TYPE-CODE FALSE> - PHRASE122>
1485 <FRAME '
\1aEMIT-LABEL>
1489 <CALL '
\1aEMIT-LABEL 2>
1490 <TYPE? RES9 <TYPE-CODE VARTBL> + TAG125>
1493 <FRAME '
\1aDEST-PAIR>
1500 <CALL '
\1aDEST-PAIR 3 = TEMP26>
1504 <TYPE? RES9 <TYPE-CODE VARTBL> + TAG129>
1507 <TYPE? CADDR10 <TYPE-CODE FALSE> + PHRASE132>
1509 <FRAME '
\1aDEST-COUNT-DECL>
1518 <CALL '
\1aDEST-COUNT-DECL 4 = TEMP26>
1522 <FRAME '
\1aDEST-DECL>
1529 <CALL '
\1aDEST-DECL 3 = TEMP26>
1535 <GFCN
\1aFIND-APP-AC ("VALUE" ANY AC <OR FALSE ATOM> "OPTIONAL" ANY) VAC6 TYP7 RES8>
1536 <OPT-DISPATCH 2 %<> OPT4 OPT5>
1542 <TYPE? TYP7 <TYPE-CODE FALSE> + BOOL11>
1543 <FRAME '
\1aSTRUCTURED-TYPE?>
1546 <CALL '
\1aSTRUCTURED-TYPE? 1 = TEMP13>
1547 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE10>
1550 <FRAME '
\1aFREE-VALUE-AC?>
1552 <CALL '
\1aFREE-VALUE-AC? 1 = TEMP13>
1553 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE15>
1558 <CALL '
\1aGET-AC 2 = TEMP13>
1564 <CALL '
\1aMUNG-AC 1>
1571 <CALL '
\1aGET-AC 2 = TEMP13>
1574 <END
\1aFIND-APP-AC>
1577 <GFCN
\1aGEN-NTH ("VALUE" ANY EFF-ADDR ATOM AC <OR ATOM VARTBL> <OR EFF-ADDR FALSE FIX> "OPTIONAL" ANY ANY ANY) VADDR8 TYP9 VAC10 RES11 CADDR12 HW13 RTAC14 RVAC15>
1578 <OPT-DISPATCH 5 %<> OPT4 OPT5 OPT6 OPT7>
1586 <TEMP (NO-LOAD17 %<>) TEMP26>
1588 <EQUAL? RES11 'STACK - PHRASE19>
1589 <TYPE? CADDR12 <TYPE-CODE FIX> - PHRASE21>
1590 <GVAL 'TYPE-WORDS = TEMP26>
1591 <EMPUV? TEMP26 + PHRASE21>
1592 <LOOP (TYP9 VALUE) (TEMP26 LENGTH VALUE)>
1594 <NTHUV TEMP26 1 = NO-LOAD17>
1595 <TYPE? NO-LOAD17 <TYPE-CODE ATOM> - TAG25>
1596 <VEQUAL? NO-LOAD17 TYP9 + TAG23>
1599 <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1600 <EMPUV? TEMP26 - TAG24>
1603 <FRAME '
\1aTYPE-CODE>
1607 <CALL '
\1aTYPE-CODE 2 = TEMP26>
1608 <LSH CADDR12 16 = NO-LOAD17 (TYPE FIX)>
1610 <OR TEMP26 NO-LOAD17 = NO-LOAD17>
1612 <FRAME '
\1aEMIT-PUSH>
1616 <CALL '
\1aMA-IMM 1 = STACK>
1618 <CALL '
\1aEMIT-PUSH 2>
1621 <TYPE? CADDR12 <TYPE-CODE FALSE> + PHRASE31>
1622 <FRAME '
\1aEMIT-PUSH>
1623 <FRAME '
\1aTYPE-CODE>
1626 <CALL '
\1aTYPE-CODE 1 = STACK>
1628 <CALL '
\1aEMIT-PUSH 2>
1629 <FRAME '
\1aEMIT-PUSH>
1633 <CALL '
\1aEMIT-PUSH 2>
1636 <FRAME '
\1aEMIT-PUSH>
1637 <FRAME '
\1aTYPE-WORD>
1640 <CALL '
\1aTYPE-WORD 1 = STACK>
1642 <CALL '
\1aEMIT-PUSH 2>
1644 <TYPE? HW13 <TYPE-CODE FALSE> + PHRASE38>
1650 <GVAL 'AC-TP = NO-LOAD17>
1651 <NTHUV NO-LOAD17 2 = NO-LOAD17 (TYPE FIX)>
1652 <OR NO-LOAD17 #WORD *200* = NO-LOAD17>
1653 <LSH NO-LOAD17 24 = NO-LOAD17 (TYPE FIX)>
1654 <CHTYPE NO-LOAD17 <TYPE-CODE EFF-ADDR> = STACK>
1656 <CALL '
\1aEMIT 3 = NO-LOAD17>
1660 <FRAME '
\1aEMIT-PUSH>
1664 <CALL '
\1aEMIT-PUSH 2 = NO-LOAD17>
1668 <TYPE? RTAC14 <TYPE-CODE FALSE> - PHRASE44>
1669 <TYPE? CADDR12 <TYPE-CODE FALSE> + PHRASE44>
1673 <CALL '
\1aGET-AC 2 = RTAC14>
1677 <CALL '
\1aNEXT-AC 1 = RVAC15>
1679 <CALL '
\1aPROTECT 1>
1682 <TYPE? RVAC15 <TYPE-CODE FALSE> - PHRASE49>
1684 <FRAME '
\1aFIND-APP-AC>
1688 <CALL '
\1aFIND-APP-AC 2 = RVAC15>
1690 <CALL '
\1aPROTECT 1>
1693 <SET NO-LOAD17 'T (TYPE ATOM)>
1695 <TYPE? CADDR12 <TYPE-CODE FALSE> + PHRASE54>
1696 <TYPE? CADDR12 <TYPE-CODE FIX> - PHRASE56>
1697 <FRAME '
\1aLOAD-CONSTANT>
1701 <CALL '
\1aLOAD-CONSTANT 2>
1708 <NTHUV RTAC14 2 = TEMP26 (TYPE FIX)>
1709 <OR TEMP26 #WORD *120* = TEMP26>
1710 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1711 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1715 <VEQUAL? NO-LOAD17 0 - PHRASE61>
1717 <FRAME '
\1aEMIT-MOVE>
1719 <NTHUV RVAC15 2 = TEMP26 (TYPE FIX)>
1720 <OR TEMP26 #WORD *120* = TEMP26>
1721 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1722 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1725 <CALL '
\1aEMIT-MOVE 3>
1727 <FRAME '
\1aDEST-COUNT-DECL>
1735 <CALL '
\1aDEST-COUNT-DECL 4>
1738 <VEQUAL? NO-LOAD17 0 - PHRASE64>
1740 <TYPE? HW13 <TYPE-CODE FALSE> + PHRASE66>
1745 <NTHUV RVAC15 2 = TEMP26 (TYPE FIX)>
1746 <OR TEMP26 #WORD *120* = TEMP26>
1747 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1748 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1753 <FRAME '
\1aEMIT-MOVE>
1755 <NTHUV RVAC15 2 = TEMP26 (TYPE FIX)>
1756 <OR TEMP26 #WORD *120* = TEMP26>
1757 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1758 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1761 <CALL '
\1aEMIT-MOVE 3>
1763 <FRAME '
\1aDEST-DECL>
1769 <CALL '
\1aDEST-DECL 3>
1772 <FRAME '
\1aDEST-DECL>
1778 <CALL '
\1aDEST-DECL 3>
1785 <CALL '
\1aLOAD-AC 2 = NO-LOAD17>
1791 <GFCN
\1aBOOL-NTH ("VALUE" ANY EFF-ADDR FIX <OR ATOM VARTBL>) VADDR4 BNO5 RES6>
1792 <TEMP ELAB7 FLAB8 RTAC10 RVAC9>
1794 <FRAME '
\1aMAKE-LABEL>
1795 <CALL '
\1aMAKE-LABEL 0 = ELAB7>
1796 <FRAME '
\1aMAKE-LABEL>
1797 <CALL '
\1aMAKE-LABEL 0 = FLAB8>
1798 <TYPE? RES6 <TYPE-CODE VARTBL> - PHRASE14>
1801 <CALL '
\1aGET-AC 1 = RTAC10>
1804 <CALL '
\1aGET-AC 1 = RVAC9>
1805 <FRAME '
\1aDEST-PAIR>
1809 <CALL '
\1aDEST-PAIR 3>
1811 <FRAME '
\1aGEN-BRANCH>
1816 <CALL '
\1aMA-IMM 1 = STACK>
1821 <CALL '
\1aGEN-BRANCH 5>
1822 <EQUAL? RES6 'STACK - PHRASE21>
1823 <FRAME '
\1aEMIT-PUSH>
1824 <FRAME '
\1aADDR-TYPE-MQUOTE>
1826 <CALL '
\1aADDR-TYPE-MQUOTE 1 = STACK>
1828 <CALL '
\1aEMIT-PUSH 2>
1829 <FRAME '
\1aEMIT-PUSH>
1830 <FRAME '
\1aADDR-VALUE-MQUOTE>
1832 <CALL '
\1aADDR-VALUE-MQUOTE 1 = STACK>
1834 <CALL '
\1aEMIT-PUSH 2>
1837 <FRAME '
\1aMOVE-TYPE>
1840 <CALL '
\1aMOVE-TYPE 2>
1841 <FRAME '
\1aMOVE-VALUE>
1844 <CALL '
\1aMOVE-VALUE 2>
1846 <FRAME '
\1aGEN-BRANCH>
1850 <CALL '
\1aGEN-BRANCH 3>
1851 <FRAME '
\1aEMIT-LABEL>
1855 <CALL '
\1aEMIT-LABEL 2>
1856 <EQUAL? RES6 'STACK - PHRASE32>
1858 <FRAME '
\1aEMIT-PUSH>
1859 <FRAME '
\1aTYPE-WORD>
1861 <CALL '
\1aTYPE-WORD 1 = STACK>
1863 <CALL '
\1aEMIT-PUSH 2>
1864 <FRAME '
\1aCLEAR-PUSH>
1865 <CALL '
\1aCLEAR-PUSH 0>
1868 <FRAME '
\1aMOVE-TYPE>
1872 <CALL '
\1aMOVE-TYPE 2>
1873 <FRAME '
\1aMOVE-VALUE>
1877 <CALL '
\1aMOVE-VALUE 2>
1879 <FRAME '
\1aEMIT-LABEL>
1883 <CALL '
\1aEMIT-LABEL 2 = ELAB7>
1889 <GFCN
\1aBOOL-NTH-BRANCH ("VALUE" ANY EFF-ADDR FIX <LIST ATOM ATOM>) VADDR4 BNO5 BRANCH6>
1893 <GVAL 'INST-BTST = STACK>
1894 <PUSH 'NO-SIZE-WORD>
1896 <FRAME '
\1aEXTWORD-DATA>
1898 <CALL '
\1aEXTWORD-DATA 1 = STACK>
1900 <NTHL BRANCH6 1 = TEMP11 (TYPE ATOM)>
1901 <VEQUAL? TEMP11 '- - PHRASE10>
1903 <FRAME '
\1aGEN-BRANCH>
1908 <CALL '
\1aMA-IMM 1 = STACK>
1911 <RESTL BRANCH6 1 = TEMP11 (TYPE LIST)>
1913 <NTHL TEMP11 1 = STACK (TYPE ATOM)>
1916 <CALL '
\1aGEN-BRANCH 5 = TEMP11>
1920 <FRAME '
\1aGEN-BRANCH>
1925 <CALL '
\1aMA-IMM 1 = STACK>
1928 <RESTL BRANCH6 1 = TEMP11 (TYPE LIST)>
1930 <NTHL TEMP11 1 = STACK (TYPE ATOM)>
1933 <CALL '
\1aGEN-BRANCH 5 = TEMP11>
1936 <END
\1aBOOL-NTH-BRANCH>
1939 <GFCN
\1aCOUNT-STORE-REC ("VALUE" ANY VARTBL ANY) VAL4 TCADDR5>
1940 <TEMP LV6 TEMP12 TEMP18:FIX>
1942 <FRAME '
\1aFIND-CACHE-VAR>
1944 <CALL '
\1aFIND-CACHE-VAR 1 = LV6>
1945 <TYPE? LV6 <TYPE-CODE FALSE> + BOOL11>
1946 <NTHUV LV6 3 = TEMP12>
1947 <TYPE? TEMP12 <TYPE-CODE FALSE> - BOOL11>
1949 <NTHUV LV6 8 = TEMP12>
1950 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
1953 <FRAME '
\1aEMIT-MOVE>
1954 <FRAME '
\1aVAR-COUNT-ADDRESS>
1957 <CALL '
\1aVAR-COUNT-ADDRESS 1 = STACK>
1961 <CALL '
\1aEMIT-MOVE 3 = TEMP12>
1967 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE15>
1970 <GVAL 'AC-PC = TEMP12>
1971 <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
1972 <OR TEMP12 #WORD *200* = TEMP12>
1973 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
1974 <LSH 16 16 = TEMP18 (TYPE FIX)>
1975 <OR TEMP12 TEMP18 = TEMP12>
1977 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
1979 <NTHUV LV6 2 = TEMP18 (TYPE FIX)>
1981 <OR TEMP18 #WORD *120* = TEMP18>
1982 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1983 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1988 <CALL '
\1aGET-AC 2 = LV6>
1989 <NTHUV LV6 2 = TEMP18 (TYPE FIX)>
1990 <OR TEMP18 #WORD *120* = TEMP18>
1991 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1992 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1995 <FRAME '
\1aEMIT-MOVE>
1996 <NTHUV LV6 2 = TEMP18 (TYPE FIX)>
1998 <OR TEMP18 #WORD *120* = TEMP18>
1999 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2000 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
2005 <CALL '
\1aEMIT-MOVE 3 = TEMP12>
2009 <END
\1aCOUNT-STORE-REC>