3 <GFCN
\1aNTH-LIST-GEN ("VALUE" ANY <OR VARTBL <PRIMTYPE LIST>> <OR FIX VARTBL> <OR ATOM VARTBL> "OPTIONAL" <OR FALSE HINT>) SVAR6 NUM7 RES8 HINT9>
4 <OPT-DISPATCH 3 %<> OPT4 OPT5>
10 <FRAME '
\1aNTH-LOOK-AHEAD>
16 <CALL '
\1aNTH-LOOK-AHEAD 5 = TEMP12>
17 <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE14>
18 <EQUAL? NUM7 1 - PHRASE16>
19 <FRAME '
\1aNTH-FIXOFFSET-GEN>
27 <CALL '
\1aNTH-FIXOFFSET-GEN 4>
30 <TYPE? NUM7 <TYPE-CODE FIX> - PHRASE18>
31 <FRAME '
\1aLIST-REST-CONSTANT-GEN>
34 <SUB NUM7 1 = STACK (TYPE FIX)>
36 <CALL '
\1aLIST-REST-CONSTANT-GEN 2 = TEMP12>
37 <FRAME '
\1aFINISH-NTH-FIXOFFSET-GEN>
45 <CALL '
\1aFINISH-NTH-FIXOFFSET-GEN 4>
48 <FRAME '
\1aLIST-REST-VAR-GEN>
54 <CALL '
\1aLIST-REST-VAR-GEN 3 = TEMP12>
55 <FRAME '
\1aFINISH-NTH-FIXOFFSET-GEN>
63 <CALL '
\1aFINISH-NTH-FIXOFFSET-GEN 4>
65 <FRAME '
\1aCLEAR-STATUS>
66 <CALL '
\1aCLEAR-STATUS 0>
67 <SET TEMP12 'NORMAL (TYPE ATOM)>
71 <END
\1aNTH-LIST-GEN>
\r\0\r\0
73 <GFCN
\1aREST-LIST-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE LIST>> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) SVAR6 NUM7 RES8 HINT9>
74 <OPT-DISPATCH 3 %<> OPT4 OPT5>
80 <EQUAL? RES8 'STACK - PHRASE12>
84 <CALL '
\1aTYPE-WORD 1 = STACK>
86 <CALL '
\1aEMIT-PUSH 2>
88 <TYPE? NUM7 <TYPE-CODE FIX> - PHRASE16>
89 <FRAME '
\1aLIST-REST-CONSTANT-GEN>
95 <CALL '
\1aLIST-REST-CONSTANT-GEN 3 = VAC10>
98 <FRAME '
\1aLIST-REST-VAR-GEN>
105 <CALL '
\1aLIST-REST-VAR-GEN 4 = VAC10>
110 <CALL '
\1aN=? 2 = TEMP23>
111 <VEQUAL? TEMP23 0 + PHRASE21>
113 <FRAME '
\1aDEST-DECL>
119 <CALL '
\1aDEST-DECL 3>
121 <FRAME '
\1aCLEAR-STATUS>
122 <CALL '
\1aCLEAR-STATUS 0>
124 <END
\1aREST-LIST-GEN>
126 <GFCN
\1aLIST-REST-CONSTANT-GEN ("VALUE" ANY VARTBL FIX "OPTIONAL" <OR FALSE VARTBL ATOM>) SVAR6 NUM7 RES8>
127 <OPT-DISPATCH 2 %<> OPT4 OPT5>
131 <TEMP VAC9 VAC113 TEMP28 CAC11 LABEL12>
133 <FRAME '
\1aVAR-VALUE-IN-AC?>
135 <CALL '
\1aVAR-VALUE-IN-AC? 1 = VAC9>
136 <TYPE? VAC9 <TYPE-CODE FALSE> - BOOL16>
142 <CALL '
\1aLOAD-VAR 4 = VAC9>
144 <TYPE? VAC9 <TYPE-CODE FALSE> + PHRASE35>
148 <TYPE? RES8 <TYPE-CODE VARTBL> - PHRASE21>
149 <FRAME '
\1aVAR-VALUE-IN-AC?>
151 <CALL '
\1aVAR-VALUE-IN-AC? 1 = VAC113>
152 <TYPE? VAC113 <TYPE-CODE FALSE> + PHRASE21>
155 <CALL '
\1aDEAD-VAR 1>
159 <CALL '
\1aSTORE-AC 2>
160 <FRAME '
\1aEMIT-MOVE>
164 <CALL '
\1aMA-DISP 2 = STACK>
165 <NTHUV VAC113 2 = TEMP28 (TYPE FIX)>
166 <OR TEMP28 #WORD *120* = TEMP28>
167 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
168 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
171 <CALL '
\1aEMIT-MOVE 3>
172 <FRAME '
\1aUNPROTECT>
175 <CALL '
\1aUNPROTECT 1>
178 <SUB NUM7 1 = NUM7 (TYPE FIX)>
181 <EQUAL? RES8 'STACK - BOOL31>
182 <VEQUAL? NUM7 1 + PHRASE35 (TYPE FIX)>
184 <FRAME '
\1aWILL-DIE?>
187 <CALL '
\1aWILL-DIE? 1 = TEMP28>
188 <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE35>
193 <CALL '
\1aGET-AC 2 = VAC113>
194 <FRAME '
\1aEMIT-MOVE>
198 <CALL '
\1aMA-DISP 2 = STACK>
199 <NTHUV VAC113 2 = TEMP28 (TYPE FIX)>
200 <OR TEMP28 #WORD *120* = TEMP28>
201 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
202 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
205 <CALL '
\1aEMIT-MOVE 3>
206 <FRAME '
\1aUNPROTECT>
209 <CALL '
\1aUNPROTECT 1>
212 <SUB NUM7 1 = NUM7 (TYPE FIX)>
220 <CALL '
\1aMA-DISP 2 = VAC113>
221 <VEQUAL? NUM7 0 + PHRASE65 (TYPE FIX)>
222 <VEQUAL? NUM7 1 - PHRASE45 (TYPE FIX)>
223 <EQUAL? RES8 'STACK - PHRASE49>
225 <FRAME '
\1aEMIT-PUSH>
229 <CALL '
\1aEMIT-PUSH 2>
233 <FRAME '
\1aEMIT-MOVE>
236 <NTHUV VAC9 2 = TEMP28 (TYPE FIX)>
237 <OR TEMP28 #WORD *120* = TEMP28>
238 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
239 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
242 <CALL '
\1aEMIT-MOVE 3>
250 <CALL '
\1aGET-AC 2 = CAC11>
253 <EQUAL? RES8 'STACK - PHRASE56>
254 <FRAME '
\1aLOAD-CONSTANT>
256 <SUB NUM7 2 = STACK (TYPE FIX)>
258 <CALL '
\1aLOAD-CONSTANT 2>
261 <FRAME '
\1aLOAD-CONSTANT>
263 <SUB NUM7 1 = STACK (TYPE FIX)>
265 <CALL '
\1aLOAD-CONSTANT 2>
267 <FRAME '
\1aMAKE-LABEL>
268 <CALL '
\1aMAKE-LABEL 0 = LABEL12>
269 <FRAME '
\1aEMIT-LABEL>
272 <CALL '
\1aEMIT-LABEL 2>
273 <FRAME '
\1aEMIT-MOVE>
275 <NTHUV VAC9 2 = TEMP28 (TYPE FIX)>
276 <OR TEMP28 #WORD *120* = TEMP28>
277 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
278 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
281 <CALL '
\1aEMIT-MOVE 3>
282 <FRAME '
\1aGEN-BRANCH>
287 <NTHUV CAC11 2 = TEMP28 (TYPE FIX)>
289 <OR TEMP28 #WORD *120* = TEMP28>
290 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
291 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
293 <CALL '
\1aGEN-BRANCH 4>
294 <EQUAL? RES8 'STACK - PHRASE65>
296 <FRAME '
\1aEMIT-PUSH>
300 <CALL '
\1aEMIT-PUSH 2>
304 <END
\1aLIST-REST-CONSTANT-GEN>
306 <GFCN
\1aLIST-REST-VAR-GEN ("VALUE" STRUCTURED <OR VARTBL <PRIMTYPE LIST>> VARTBL ATOM "OPTIONAL" <OR FALSE ATOM VARTBL>) SVAR6 NVAR7 OP8 RES9>
307 <OPT-DISPATCH 3 %<> OPT4 OPT5>
311 <TEMP (STATUS?10 %<>) VAC11 CAC12 TEMP28 SLABEL13 LADDR15>
313 <FRAME '
\1aPROTECT-VAL>
315 <CALL '
\1aPROTECT-VAL 1>
316 <TYPE? SVAR6 <TYPE-CODE LIST> - PHRASE18>
317 <FRAME '
\1aGEN-CONSTANT>
323 <CALL '
\1aGEN-CONSTANT 4 = VAC11>
332 <CALL '
\1aLOAD-VAR 4 = VAC11>
334 <FRAME '
\1aPROTECT-USE>
336 <CALL '
\1aPROTECT-USE 1>
337 <FRAME '
\1aVAR-VALUE-IN-AC?>
339 <CALL '
\1aVAR-VALUE-IN-AC? 1 = CAC12>
340 <TYPE? CAC12 <TYPE-CODE FALSE> + PHRASE24>
341 <FRAME '
\1aAVAILABLE?>
343 <CALL '
\1aAVAILABLE? 1 = TEMP28>
344 <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE24>
346 <FRAME '
\1aPROTECT-USE>
348 <CALL '
\1aPROTECT-USE 1>
349 <VEQUAL? OP8 'NTH + BOOL32>
350 <EQUAL? RES9 'STACK - PHRASE43>
354 <NTHUV CAC12 2 = TEMP28 (TYPE FIX)>
355 <OR TEMP28 #WORD *120* = TEMP28>
356 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
357 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
360 <SET STATUS?10 'T (TYPE ATOM)>
363 <FRAME '
\1aPROTECT-USE>
367 <CALL '
\1aGET-AC 2 = CAC12>
369 <CALL '
\1aPROTECT-USE 1>
370 <VEQUAL? OP8 'NTH + BOOL39>
371 <EQUAL? RES9 'STACK - PHRASE38>
377 <CALL '
\1aMA-IMM 1 = STACK>
378 <FRAME '
\1aVAR-VALUE-ADDRESS>
381 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
382 <NTHUV CAC12 2 = TEMP28 (TYPE FIX)>
383 <OR TEMP28 #WORD *120* = TEMP28>
384 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
385 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
388 <SET STATUS?10 'T (TYPE ATOM)>
393 <FRAME '
\1aVAR-VALUE-ADDRESS>
396 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
397 <NTHUV CAC12 2 = TEMP28 (TYPE FIX)>
398 <OR TEMP28 #WORD *120* = TEMP28>
399 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
400 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
403 <SET STATUS?10 'T (TYPE ATOM)>
405 <GVAL 'STATUS-AC = TEMP28>
406 <EQUAL? TEMP28 CAC12 - PHRASE47>
408 <SET STATUS?10 'T (TYPE ATOM)>
410 <VEQUAL? STATUS?10 0 - PHRASE49>
414 <NTHUV CAC12 2 = TEMP28 (TYPE FIX)>
415 <OR TEMP28 #WORD *120* = TEMP28>
416 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
417 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
421 <FRAME '
\1aMAKE-LABEL>
422 <CALL '
\1aMAKE-LABEL 0 = STATUS?10>
423 <FRAME '
\1aGEN-BRANCH>
427 <CALL '
\1aGEN-BRANCH 3>
428 <FRAME '
\1aMAKE-LABEL>
429 <CALL '
\1aMAKE-LABEL 0 = SLABEL13>
430 <FRAME '
\1aEMIT-LABEL>
433 <CALL '
\1aEMIT-LABEL 2>
437 <CALL '
\1aMA-DISP 2 = LADDR15>
438 <FRAME '
\1aEMIT-MOVE>
440 <NTHUV VAC11 2 = TEMP28 (TYPE FIX)>
441 <OR TEMP28 #WORD *120* = TEMP28>
442 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
443 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
446 <CALL '
\1aEMIT-MOVE 3>
447 <FRAME '
\1aGEN-BRANCH>
452 <NTHUV CAC12 2 = TEMP28 (TYPE FIX)>
454 <OR TEMP28 #WORD *120* = TEMP28>
455 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
456 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
458 <CALL '
\1aGEN-BRANCH 4>
459 <FRAME '
\1aEMIT-LABEL>
463 <CALL '
\1aEMIT-LABEL 2>
464 <VEQUAL? OP8 'REST - PHRASE60>
466 <EQUAL? RES9 'STACK - PHRASE60>
468 <FRAME '
\1aEMIT-PUSH>
472 <CALL '
\1aEMIT-PUSH 2>
476 <END
\1aLIST-REST-VAR-GEN>
478 <GFCN
\1aFINISH-NTH-FIXOFFSET-GEN ("VALUE" ANY AC FIX <OR VARTBL ATOM> <OR FALSE HINT> "OPTIONAL" <OR FALSE AC>) SVAC6 OFF7 RES8 HINT9 INDXAC10>
479 <OPT-DISPATCH 4 %<> OPT4 OPT5>
483 <TEMP (TYP11 %<>) TYPADDR13 RVAC12>
485 <SUB OFF7 1 = TYP11 (TYPE FIX)>
487 <LSH TYP11 3 = OFF7 (TYPE FIX)>
492 <CALL '
\1aMA-DISP 2 = TYPADDR13>
495 <ADD OFF7 2 = STACK (TYPE FIX)>
496 <CALL '
\1aMA-DISP 2 = TYP11>
500 <ADD OFF7 4 = STACK (TYPE FIX)>
502 <CALL '
\1aMA-DISP 2 = TYP11>
503 <TYPE? HINT9 <TYPE-CODE FALSE> + BOOL21>
504 <FRAME '
\1aPARSE-HINT>
508 <CALL '
\1aPARSE-HINT 2 = TYP11>
510 <EQUAL? RES8 'STACK - PHRASE24>
511 <GVAL 'GC-MODE = TYP11>
512 <TYPE? TYP11 <TYPE-CODE FALSE> - PHRASE24>
514 <TYPE? INDXAC10 <TYPE-CODE FALSE> + PHRASE27>
517 <NTHUV INDXAC10 2 = TYP11 (TYPE FIX)>
519 <OR TYP11 #WORD *100* = TYP11>
520 <LSH TYP11 24 = TYP11 (TYPE FIX)>
521 <CHTYPE TYP11 <TYPE-CODE EFF-ADDR> = STACK>
525 <GVAL 'AC-TP = TYP11>
526 <NTHUV TYP11 2 = TYP11 (TYPE FIX)>
527 <OR TYP11 #WORD *200* = TYP11>
528 <LSH TYP11 24 = TYP11 (TYPE FIX)>
529 <CHTYPE TYP11 <TYPE-CODE EFF-ADDR> = STACK>
531 <CALL '
\1aEMIT 4 = TYP11>
539 <GVAL 'AC-TP = TYP11>
540 <NTHUV TYP11 2 = TYP11 (TYPE FIX)>
541 <OR TYP11 #WORD *200* = TYP11>
542 <LSH TYP11 24 = TYP11 (TYPE FIX)>
543 <CHTYPE TYP11 <TYPE-CODE EFF-ADDR> = STACK>
545 <CALL '
\1aEMIT 3 = TYP11>
552 <CALL '
\1aGET-AC 2 = RVAC12>
553 <TYPE? INDXAC10 <TYPE-CODE FALSE> + PHRASE35>
556 <NTHUV INDXAC10 2 = TYP11 (TYPE FIX)>
558 <OR TYP11 #WORD *100* = TYP11>
559 <LSH TYP11 24 = TYP11 (TYPE FIX)>
560 <CHTYPE TYP11 <TYPE-CODE EFF-ADDR> = STACK>
564 <NTHUV RVAC12 2 = TYP11 (TYPE FIX)>
565 <OR TYP11 #WORD *120* = TYP11>
566 <LSH TYP11 24 = TYP11 (TYPE FIX)>
567 <CHTYPE TYP11 <TYPE-CODE EFF-ADDR> = STACK>
576 <NTHUV RVAC12 2 = TYP11 (TYPE FIX)>
577 <OR TYP11 #WORD *120* = TYP11>
578 <LSH TYP11 24 = TYP11 (TYPE FIX)>
579 <CHTYPE TYP11 <TYPE-CODE EFF-ADDR> = STACK>
583 <FRAME '
\1aDEST-PAIR>
586 <CALL '
\1aNEXT-AC 1 = STACK>
592 <CALL '
\1aDEST-PAIR 4 = TYP11>
595 <END
\1aFINISH-NTH-FIXOFFSET-GEN>
597 <GFCN
\1aFNTH-DET-VALUE-AC ("VALUE" ANY AC <OR FALSE ATOM>) SVAC4 TYP5>
600 <TYPE? TYP5 <TYPE-CODE FALSE> + PHRASE7>
601 <FRAME '
\1aSTRUCTURED-TYPE?>
604 <CALL '
\1aSTRUCTURED-TYPE? 1 = TEMP10>
605 <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE7>
607 <FRAME '
\1aFREE-VALUE-AC?>
609 <CALL '
\1aFREE-VALUE-AC? 1 = TEMP10>
610 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE7>
616 <CALL '
\1aGET-AC 2 = STACK>
617 <CALL '
\1aPROTECT 1 = TEMP10>
621 <FRAME '
\1aALL-DEAD?>
623 <CALL '
\1aALL-DEAD? 1 = TEMP10>
624 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE14>
633 <CALL '
\1aGET-AC 2 = STACK>
634 <CALL '
\1aPROTECT 1 = TEMP10>
637 <END
\1aFNTH-DET-VALUE-AC>
639 <GFCN
\1aNTH-FIXOFFSET-GEN ("VALUE" ANY VARTBL FIX ANY <OR FALSE HINT>) SVAR4 OFF5 RES6 HINT7>
649 <CALL '
\1aLOAD-VAR 4 = VAC8>
652 <FRAME '
\1aFINISH-NTH-FIXOFFSET-GEN>
661 <CALL '
\1aFINISH-NTH-FIXOFFSET-GEN 4 = VAC8>
664 <END
\1aNTH-FIXOFFSET-GEN>
666 <GFCN
\1aNTH-VECTOR-GEN ("VALUE" ANY <OR VARTBL <PRIMTYPE VECTOR>> <OR FIX VARTBL> <OR ATOM VARTBL> "OPTIONAL" <OR FALSE HINT>) SVAR6 OFF7 RES8 HINT9>
667 <OPT-DISPATCH 3 %<> OPT4 OPT5>
673 <FRAME '
\1aNTH-LOOK-AHEAD>
679 <CALL '
\1aNTH-LOOK-AHEAD 5 = TEMP11>
680 <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE13>
681 <TYPE? OFF7 <TYPE-CODE FIX> - PHRASE15>
682 <FRAME '
\1aNTH-FIXOFFSET-GEN>
691 <CALL '
\1aNTH-FIXOFFSET-GEN 4>
694 <FRAME '
\1aNTH-VECTOR-VAR-GEN>
703 <CALL '
\1aNTH-VECTOR-VAR-GEN 4>
705 <FRAME '
\1aCLEAR-STATUS>
706 <CALL '
\1aCLEAR-STATUS 0>
707 <SET TEMP11 'NORMAL (TYPE ATOM)>
711 <END
\1aNTH-VECTOR-GEN>
713 <GFCN
\1aNTH-VECTOR-VAR-GEN ("VALUE" ANY <OR VARTBL <PRIMTYPE VECTOR>> VARTBL <OR ATOM VARTBL> <OR FALSE HINT>) SVAR4 OFF5 RES6 HINT7>
714 <TEMP DAC9 VAC8 TEMP18>
722 <CALL '
\1aLOAD-VAR 4 = DAC9>
723 <FRAME '
\1aPROTECT-USE>
725 <CALL '
\1aPROTECT-USE 1>
726 <TYPE? SVAR4 <TYPE-CODE VARTBL> + PHRASE13>
727 <FRAME '
\1aPROTECT-USE>
731 <CALL '
\1aGET-AC 2 = VAC8>
733 <CALL '
\1aPROTECT-USE 1>
736 <FRAME '
\1aADDR-VALUE-MQUOTE>
739 <CALL '
\1aADDR-VALUE-MQUOTE 1 = STACK>
740 <NTHUV VAC8 2 = TEMP18 (TYPE FIX)>
741 <OR TEMP18 #WORD *120* = TEMP18>
742 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
743 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
748 <FRAME '
\1aPROTECT-USE>
755 <CALL '
\1aLOAD-VAR 4 = VAC8>
757 <CALL '
\1aPROTECT-USE 1>
759 <FRAME '
\1aFINISH-NTH-FIXOFFSET-GEN>
769 <CALL '
\1aFINISH-NTH-FIXOFFSET-GEN 5 = TEMP18>
772 <END
\1aNTH-VECTOR-VAR-GEN>
774 <GFCN
\1aREST-VECTOR-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE VECTOR>> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) SVAR6 NUM7 RES8 HINT9>
775 <OPT-DISPATCH 3 %<> OPT4 OPT5>
781 <TYPE? HINT9 <TYPE-CODE FALSE> + BOOL11>
782 <FRAME '
\1aPARSE-HINT>
786 <CALL '
\1aPARSE-HINT 2 = TYP10>
788 <FRAME '
\1aREST-BLOCK-GEN>
796 <TYPE? TYP10 <TYPE-CODE FALSE> - BOOL14>
797 <SET TYP10 'VECTOR (TYPE ATOM)>
801 <CALL '
\1aREST-BLOCK-GEN 5 = TYP10>
804 <END
\1aREST-VECTOR-GEN>
806 <GFCN
\1aREST-BYTE-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE BYTES>> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) SVAR6 NUM7 RES8 HINT9>
807 <OPT-DISPATCH 3 %<> OPT4 OPT5>
813 <FRAME '
\1aREST-BLOCK-GEN>
822 <CALL '
\1aREST-BLOCK-GEN 5 = TEMP11>
825 <END
\1aREST-BYTE-GEN>
827 <GFCN
\1aREST-STRING-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE STRING>> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) SVAR6 NUM7 RES8 HINT9>
828 <OPT-DISPATCH 3 %<> OPT4 OPT5>
834 <FRAME '
\1aREST-BLOCK-GEN>
843 <CALL '
\1aREST-BLOCK-GEN 5 = TEMP11>
846 <END
\1aREST-STRING-GEN>
848 <GFCN
\1aREST-UVECTOR-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE UVECTOR>> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) SVAR6 NUM7 RES8 HINT9>
849 <OPT-DISPATCH 3 %<> OPT4 OPT5>
855 <FRAME '
\1aREST-BLOCK-GEN>
864 <CALL '
\1aREST-BLOCK-GEN 5 = TEMP11>
867 <END
\1aREST-UVECTOR-GEN>
868 <MSETG TYP-MASK <PUTBITS -1 <BITS 6 16> 0>>
870 <MSETG PTYP-MASK <PUTBITS 0 <BITS 3 16> -1>>
873 <GFCN
\1aREST-BLOCK-GEN ("VALUE" ATOM ANY <OR FIX VARTBL> <OR VARTBL ATOM> FIX <OR ATOM FALSE> "OPTIONAL" ANY ANY ANY ANY) SVAR9 NUM10 RES11 SHFT12 TYP13 INS14 ELAC15 PUT?16 TYPE-ADDR17>
874 <OPT-DISPATCH 5 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
886 <EQUAL? SVAR9 RES11 - PHRASE19>
887 <TYPE? NUM10 <TYPE-CODE FIX> - PHRASE21>
888 <FRAME '
\1aFIX-R-B-G-SELF>
905 <CALL '
\1aFIX-R-B-G-SELF 8>
908 <FRAME '
\1aR-B-G-SELF>
917 <CALL '
\1aR-B-G-SELF 4>
920 <TYPE? SVAR9 <TYPE-CODE VARTBL> + PHRASE25>
932 <CALL '
\1aPRIMTYPE 1 = STACK>
936 <TYPE? NUM10 <TYPE-CODE FIX> - PHRASE28>
937 <FRAME '
\1aFIX-R-B-G-OTHER>
956 <CALL '
\1aFIX-R-B-G-OTHER 9>
972 <FRAME '
\1aCLEAR-STATUS>
973 <CALL '
\1aCLEAR-STATUS 0>
975 <END
\1aREST-BLOCK-GEN>
977 <GFCN
\1aFIX-R-B-G-SELF ("VALUE" ATOM VARTBL FIX FIX <OR ATOM FALSE> ANY ANY ANY ANY) SVAR4 NUM5 SHFT6 TYP7 INS8 ELAC9 PUT?10 TYPE-ADDR11>
978 <TEMP (VAC12 %<>) (TAC13 %<>) (CAC14 %<>) (COUNT-STORED?16 %<>) LV15 TEMP28>
980 <FRAME '
\1aFIND-CACHE-VAR>
982 <CALL '
\1aFIND-CACHE-VAR 1 = LV15>
983 <TYPE? LV15 <TYPE-CODE FALSE> + PHRASE30>
984 <NTHUV LV15 6 = VAC12>
985 <TYPE? VAC12 <TYPE-CODE FALSE> + PHRASE21>
990 <NTHUV LV15 9 = TAC13>
991 <TYPE? TAC13 <TYPE-CODE FALSE> - PHRASE24>
992 <NTHUV LV15 3 = TEMP28>
993 <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE30>
995 <NTHUV LV15 8 = CAC14>
997 <TYPE? CAC14 <TYPE-CODE FALSE> + PHRASE30>
1000 <CALL '
\1aPROTECT 1>
1005 <CALL '
\1aPROTECT 1>
1007 <FRAME '
\1aDEAD-VAR>
1009 <CALL '
\1aDEAD-VAR 1>
1010 <TYPE? VAC12 <TYPE-CODE FALSE> + PHRASE34>
1013 <CALL '
\1aMUNG-AC 1>
1015 <TYPE? TAC13 <TYPE-CODE FALSE> + PHRASE37>
1018 <CALL '
\1aMUNG-AC 1>
1021 <TYPE? CAC14 <TYPE-CODE FALSE> + PHRASE39>
1024 <CALL '
\1aMUNG-AC 1>
1026 <TYPE? INS8 <TYPE-CODE FALSE> + PHRASE44>
1027 <TYPE? VAC12 <TYPE-CODE FALSE> - PHRASE44>
1028 <FRAME '
\1aLOAD-VAR>
1033 <CALL '
\1aLOAD-VAR 4 = VAC12>
1035 <TYPE? TAC13 <TYPE-CODE FALSE> + PHRASE47>
1039 <SUB 0 NUM5 = TEMP28 (TYPE FIX)>
1040 <LSH TEMP28 16 = STACK (TYPE FIX)>
1042 <CALL '
\1aMA-IMM 1 = STACK>
1043 <NTHUV TAC13 2 = TEMP28 (TYPE FIX)>
1044 <OR TEMP28 #WORD *120* = TEMP28>
1045 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1046 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
1051 <TYPE? CAC14 <TYPE-CODE FALSE> + PHRASE50>
1052 <VEQUAL? NUM5 1 - PHRASE52 (TYPE FIX)>
1055 <NTHUV CAC14 2 = TEMP28 (TYPE FIX)>
1056 <OR TEMP28 #WORD *120* = TEMP28>
1057 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1058 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
1067 <CALL '
\1aMA-IMM 1 = STACK>
1068 <NTHUV CAC14 2 = TEMP28 (TYPE FIX)>
1069 <OR TEMP28 #WORD *120* = TEMP28>
1070 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1071 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
1076 <SET COUNT-STORED?16 'T (TYPE ATOM)>
1077 <VEQUAL? NUM5 1 - PHRASE61 (TYPE FIX)>
1080 <FRAME '
\1aVAR-COUNT-ADDRESS>
1082 <CALL '
\1aVAR-COUNT-ADDRESS 1 = STACK>
1090 <CALL '
\1aMA-IMM 1 = STACK>
1091 <FRAME '
\1aVAR-COUNT-ADDRESS>
1093 <CALL '
\1aVAR-COUNT-ADDRESS 1 = STACK>
1096 <FRAME '
\1aSHIFT-NUM>
1101 <CALL '
\1aSHIFT-NUM 2 = NUM5>
1102 <TYPE? INS8 <TYPE-CODE FALSE> + PHRASE72>
1103 <TYPE? INS8 <TYPE-CODE ATOM> + PHRASE96>
1104 <TYPE? PUT?10 <TYPE-CODE FALSE> + PHRASE74>
1106 <TYPE? TYPE-ADDR11 <TYPE-CODE FALSE> + PHRASE76>
1111 <NTHUV VAC12 2 = TEMP28 (TYPE FIX)>
1112 <OR TEMP28 #WORD *200* = TEMP28>
1113 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1114 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
1119 <TYPE? ELAC9 <TYPE-CODE AC> - PHRASE80>
1120 <NTHUV ELAC9 2 = TEMP28 (TYPE FIX)>
1122 <OR TEMP28 #WORD *120* = TEMP28>
1123 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1124 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
1132 <NTHUV VAC12 2 = TEMP28 (TYPE FIX)>
1133 <OR TEMP28 #WORD *200* = TEMP28>
1134 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1135 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
1143 <TYPE? ELAC9 <TYPE-CODE AC> - PHRASE84>
1144 <NTHUV ELAC9 2 = TEMP28 (TYPE FIX)>
1146 <OR TEMP28 #WORD *120* = TEMP28>
1147 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1148 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
1156 <NTHUV VAC12 2 = TEMP28 (TYPE FIX)>
1157 <OR TEMP28 #WORD *200* = TEMP28>
1158 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1159 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
1167 <NTHUV VAC12 2 = TEMP28 (TYPE FIX)>
1168 <OR TEMP28 #WORD *200* = TEMP28>
1169 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1170 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
1172 <TYPE? ELAC9 <TYPE-CODE AC> - PHRASE87>
1173 <NTHUV ELAC9 2 = TEMP28 (TYPE FIX)>
1175 <OR TEMP28 #WORD *120* = TEMP28>
1176 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1177 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
1188 <VEQUAL? NUM5 1 - PHRASE88 (TYPE FIX)>
1191 <TYPE? VAC12 <TYPE-CODE FALSE> + PHRASE93>
1192 <NTHUV VAC12 2 = TEMP28 (TYPE FIX)>
1193 <OR TEMP28 #WORD *120* = TEMP28>
1194 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1195 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
1198 <FRAME '
\1aVAR-VALUE-ADDRESS>
1200 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP28>
1212 <CALL '
\1aMA-IMM 1 = STACK>
1213 <TYPE? VAC12 <TYPE-CODE FALSE> + PHRASE100>
1214 <NTHUV VAC12 2 = TEMP28 (TYPE FIX)>
1215 <OR TEMP28 #WORD *120* = TEMP28>
1216 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1217 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
1220 <FRAME '
\1aVAR-VALUE-ADDRESS>
1222 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP28>
1228 <TYPE? VAC12 <TYPE-CODE FALSE> + PHRASE104>
1229 <FRAME '
\1aDEST-DECL>
1233 <CALL '
\1aDEST-DECL 3>
1235 <TYPE? TAC13 <TYPE-CODE FALSE> + PHRASE107>
1236 <TYPE? VAC12 <TYPE-CODE FALSE> + PHRASE109>
1237 <FRAME '
\1aDEST-PAIR>
1243 <CALL '
\1aDEST-PAIR 3>
1246 <FRAME '
\1aLINK-VAR-TO-AC>
1251 <CALL '
\1aLINK-VAR-TO-AC 3>
1254 <TYPE? CAC14 <TYPE-CODE FALSE> + PHRASE117>
1255 <TYPE? VAC12 <TYPE-CODE FALSE> + PHRASE115>
1256 <FRAME '
\1aDEST-COUNT-DECL>
1264 <CALL '
\1aDEST-COUNT-DECL 4>
1267 <FRAME '
\1aLINK-VAR-TO-AC>
1272 <CALL '
\1aLINK-VAR-TO-AC 3>
1273 <FRAME '
\1aINDICATE-CACHED-VARIABLE-DECL>
1277 <CALL '
\1aINDICATE-CACHED-VARIABLE-DECL 2>
1279 <FRAME '
\1aFIND-CACHE-VAR>
1282 <CALL '
\1aFIND-CACHE-VAR 1 = LV15>
1283 <TYPE? LV15 <TYPE-CODE FALSE> + PHRASE121>
1285 <PUTUV LV15 3 COUNT-STORED?16>
1286 <DEAD LV15 COUNT-STORED?16>
1289 <END
\1aFIX-R-B-G-SELF>
1291 <GFCN
\1aFIX-R-B-G-OTHER ("VALUE" ANY VARTBL FIX ANY FIX <OR ATOM FALSE> ANY ANY ANY ANY) SVAR4 NUM5 RES6 SHFT7 TYP8 INS9 ELAC10 PUT?11 TYPE-ADDR12>
1292 <TEMP (VAC13 %<>) (CAC14 %<>) (CN16 %<>) LV15 TEMP33>
1294 <TYPE? INS9 <TYPE-CODE FALSE> + PHRASE20>
1295 <FRAME '
\1aVAR-VALUE-IN-AC?>
1297 <CALL '
\1aVAR-VALUE-IN-AC? 1 = VAC13>
1298 <TYPE? VAC13 <TYPE-CODE FALSE> - PHRASE20>
1299 <FRAME '
\1aLOAD-VAR>
1304 <CALL '
\1aLOAD-VAR 4 = VAC13>
1306 <FRAME '
\1aFIND-CACHE-VAR>
1308 <CALL '
\1aFIND-CACHE-VAR 1 = LV15>
1309 <TYPE? LV15 <TYPE-CODE FALSE> + PHRASE25>
1310 <NTHUV LV15 9 = CAC14>
1311 <TYPE? CAC14 <TYPE-CODE FALSE> + PHRASE25>
1312 <TYPE? RES6 <TYPE-CODE VARTBL> - PHRASE28>
1315 <CALL '
\1aMUNG-AC 1>
1318 <CALL '
\1aPROTECT 1>
1322 <SUB 0 NUM5 = TEMP33 (TYPE FIX)>
1323 <LSH TEMP33 16 = STACK (TYPE FIX)>
1325 <CALL '
\1aMA-IMM 1 = STACK>
1326 <NTHUV CAC14 2 = TEMP33 (TYPE FIX)>
1327 <OR TEMP33 #WORD *120* = TEMP33>
1328 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1329 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1337 <SUB 0 NUM5 = TEMP33 (TYPE FIX)>
1338 <LSH TEMP33 16 = STACK (TYPE FIX)>
1340 <CALL '
\1aMA-IMM 1 = STACK>
1341 <NTHUV CAC14 2 = TEMP33 (TYPE FIX)>
1342 <OR TEMP33 #WORD *120* = TEMP33>
1343 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1344 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1346 <GVAL 'AC-TP = TEMP33>
1347 <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
1348 <OR TEMP33 #WORD *200* = TEMP33>
1349 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1350 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1355 <TYPE? LV15 <TYPE-CODE FALSE> + PHRASE37>
1356 <NTHUV LV15 8 = CAC14>
1357 <TYPE? CAC14 <TYPE-CODE FALSE> + PHRASE37>
1358 <NTHUV LV15 3 = TEMP33>
1359 <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE37>
1361 <TYPE? TYP8 <TYPE-CODE FALSE> + PHRASE37>
1362 <SET CN16 'T (TYPE ATOM)>
1363 <TYPE? RES6 <TYPE-CODE VARTBL> - PHRASE40>
1366 <CALL '
\1aMUNG-AC 1>
1369 <CALL '
\1aPROTECT 1>
1370 <VEQUAL? NUM5 1 - PHRASE44 (TYPE FIX)>
1373 <NTHUV CAC14 2 = TEMP33 (TYPE FIX)>
1374 <OR TEMP33 #WORD *120* = TEMP33>
1375 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1376 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1385 <CALL '
\1aMA-IMM 1 = STACK>
1386 <NTHUV CAC14 2 = TEMP33 (TYPE FIX)>
1387 <OR TEMP33 #WORD *120* = TEMP33>
1388 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1389 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1394 <FRAME '
\1aEMIT-PUSH>
1395 <FRAME '
\1aTYPE-CODE>
1397 <CALL '
\1aTYPE-CODE 1 = STACK>
1399 <CALL '
\1aEMIT-PUSH 2>
1404 <CALL '
\1aMA-IMM 1 = STACK>
1405 <NTHUV CAC14 2 = TEMP33 (TYPE FIX)>
1406 <OR TEMP33 #WORD *120* = TEMP33>
1407 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1408 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1410 <GVAL 'AC-TP = TEMP33>
1411 <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
1412 <OR TEMP33 #WORD *200* = TEMP33>
1413 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1414 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1419 <TYPE? CAC14 <TYPE-CODE FALSE> + PHRASE58>
1422 <CALL '
\1aMUNG-AC 1>
1423 <FRAME '
\1aFIND-CACHE-VAR>
1425 <CALL '
\1aFIND-CACHE-VAR 1 = LV15>
1427 <EQUAL? RES6 'STACK + PHRASE65>
1428 <TYPE? LV15 <TYPE-CODE FALSE> + PHRASE62>
1429 <NTHUV LV15 6 = TEMP33>
1430 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE62>
1435 <CALL '
\1aGET-AC 2 = CAC14>
1441 <CALL '
\1aGET-AC 2 = CAC14>
1444 <CALL '
\1aNEXT-AC 1 = VAC13>
1449 <SUB 0 NUM5 = TEMP33 (TYPE FIX)>
1450 <LSH TEMP33 16 = STACK (TYPE FIX)>
1452 <CALL '
\1aMA-IMM 1 = STACK>
1453 <FRAME '
\1aVAR-TYPE-ADDRESS>
1456 <CALL '
\1aVAR-TYPE-ADDRESS 2 = STACK>
1457 <EQUAL? RES6 'STACK - PHRASE72>
1458 <GVAL 'AC-TP = TEMP33>
1459 <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
1460 <OR TEMP33 #WORD *200* = TEMP33>
1461 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1462 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = TEMP33>
1465 <NTHUV CAC14 2 = TEMP33 (TYPE FIX)>
1466 <OR TEMP33 #WORD *120* = TEMP33>
1467 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1468 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = TEMP33>
1474 <FRAME '
\1aSHIFT-NUM>
1479 <CALL '
\1aSHIFT-NUM 2 = NUM5>
1480 <TYPE? INS9 <TYPE-CODE FALSE> + PHRASE77>
1481 <TYPE? INS9 <TYPE-CODE ATOM> + PHRASE127>
1482 <TYPE? PUT?11 <TYPE-CODE FALSE> + PHRASE81>
1484 <TYPE? TYPE-ADDR12 <TYPE-CODE FALSE> + PHRASE83>
1489 <NTHUV VAC13 2 = TEMP33 (TYPE FIX)>
1490 <OR TEMP33 #WORD *200* = TEMP33>
1491 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1492 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1497 <TYPE? ELAC10 <TYPE-CODE AC> - PHRASE87>
1498 <NTHUV ELAC10 2 = TEMP33 (TYPE FIX)>
1500 <OR TEMP33 #WORD *120* = TEMP33>
1501 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1502 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = TEMP33>
1510 <NTHUV VAC13 2 = TEMP33 (TYPE FIX)>
1511 <OR TEMP33 #WORD *200* = TEMP33>
1512 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1513 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1521 <TYPE? ELAC10 <TYPE-CODE AC> - PHRASE91>
1522 <NTHUV ELAC10 2 = TEMP33 (TYPE FIX)>
1524 <OR TEMP33 #WORD *120* = TEMP33>
1525 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1526 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = TEMP33>
1534 <NTHUV VAC13 2 = TEMP33 (TYPE FIX)>
1535 <OR TEMP33 #WORD *200* = TEMP33>
1536 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1537 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1545 <NTHUV VAC13 2 = TEMP33 (TYPE FIX)>
1546 <OR TEMP33 #WORD *200* = TEMP33>
1547 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1548 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1550 <TYPE? ELAC10 <TYPE-CODE AC> - PHRASE95>
1551 <NTHUV ELAC10 2 = TEMP33 (TYPE FIX)>
1553 <OR TEMP33 #WORD *120* = TEMP33>
1554 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1555 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = TEMP33>
1566 <EQUAL? RES6 'STACK - PHRASE96>
1567 <FRAME '
\1aVAR-VALUE-IN-AC?>
1569 <CALL '
\1aVAR-VALUE-IN-AC? 1 = VAC13>
1570 <TYPE? VAC13 <TYPE-CODE FALSE> + PHRASE98>
1577 <CALL '
\1aMA-DISP 2 = STACK>
1578 <GVAL 'AC-TP = TEMP33>
1579 <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
1580 <OR TEMP33 #WORD *200* = TEMP33>
1581 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1582 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1592 <CALL '
\1aMA-IMM 1 = STACK>
1593 <FRAME '
\1aVAR-VALUE-ADDRESS>
1596 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
1597 <GVAL 'AC-TP = TEMP33>
1598 <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
1599 <OR TEMP33 #WORD *200* = TEMP33>
1600 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1601 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1606 <TYPE? LV15 <TYPE-CODE FALSE> + PHRASE106>
1607 <NTHUV LV15 6 = VAC13>
1609 <TYPE? VAC13 <TYPE-CODE FALSE> + PHRASE106>
1612 <CALL '
\1aMUNG-AC 1>
1613 <VEQUAL? NUM5 1 - PHRASE110 (TYPE FIX)>
1616 <NTHUV VAC13 2 = TEMP33 (TYPE FIX)>
1617 <OR TEMP33 #WORD *120* = TEMP33>
1618 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1619 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1629 <CALL '
\1aMA-IMM 1 = STACK>
1630 <NTHUV VAC13 2 = TEMP33 (TYPE FIX)>
1631 <OR TEMP33 #WORD *120* = TEMP33>
1632 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1633 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1638 <FRAME '
\1aVAR-VALUE-IN-AC?>
1640 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TEMP33>
1641 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE119>
1646 <FRAME '
\1aVAR-VALUE-IN-AC?>
1649 <CALL '
\1aVAR-VALUE-IN-AC? 1 = STACK>
1652 <CALL '
\1aMA-DISP 2 = STACK>
1654 <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE125>
1658 <CALL '
\1aGET-AC 2 = VAC13>
1661 <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
1662 <OR TEMP33 #WORD *120* = TEMP33>
1663 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1664 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1674 <CALL '
\1aMA-IMM 1 = STACK>
1675 <FRAME '
\1aVAR-VALUE-ADDRESS>
1678 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
1680 <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE132>
1684 <CALL '
\1aGET-AC 2 = VAC13>
1687 <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
1688 <OR TEMP33 #WORD *120* = TEMP33>
1689 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1690 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1694 <EQUAL? RES6 'STACK - TAG136>
1697 <VEQUAL? CN16 0 - PHRASE138>
1699 <FRAME '
\1aDEST-PAIR>
1706 <CALL '
\1aDEST-PAIR 3 = TEMP33>
1710 <FRAME '
\1aDEST-COUNT-DECL>
1719 <CALL '
\1aDEST-COUNT-DECL 4 = TEMP33>
1722 <END
\1aFIX-R-B-G-OTHER>
1724 <GFCN
\1aR-B-G-SELF ("VALUE" <OR FALSE LINKVAR> VARTBL VARTBL FIX <OR ATOM FALSE>) SVAR4 NUM5 SHFT6 TYP7>
1725 <TEMP (VAC8 %<>) (TAC9 %<>) (CAC10 %<>) (NAC12 %<>) (COUNT-STORED?13 %<>) LV11 TEMP25>
1727 <FRAME '
\1aFIND-CACHE-VAR>
1729 <CALL '
\1aFIND-CACHE-VAR 1 = LV11>
1730 <TYPE? LV11 <TYPE-CODE FALSE> + PHRASE27>
1731 <NTHUV LV11 6 = VAC8>
1732 <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE18>
1735 <CALL '
\1aPROTECT 1>
1737 <NTHUV LV11 9 = TAC9>
1738 <TYPE? TAC9 <TYPE-CODE FALSE> - PHRASE21>
1739 <NTHUV LV11 3 = TEMP25>
1740 <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE27>
1742 <NTHUV LV11 8 = CAC10>
1744 <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE27>
1747 <CALL '
\1aPROTECT 1>
1752 <CALL '
\1aMUNG-AC 1>
1754 <FRAME '
\1aDEAD-VAR>
1756 <CALL '
\1aDEAD-VAR 1>
1757 <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE31>
1760 <CALL '
\1aMUNG-AC 1>
1762 <TYPE? TAC9 <TYPE-CODE FALSE> - PHRASE34>
1763 <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE34>
1766 <CALL '
\1aMUNG-AC 1>
1768 <VEQUAL? SHFT6 0 + PHRASE37 (TYPE FIX)>
1769 <FRAME '
\1aLOAD-VAR>
1774 <CALL '
\1aLOAD-VAR 4 = NAC12>
1776 <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE42>
1778 <SET TAC9 %<> (TYPE FALSE)>
1781 <FRAME '
\1aVAR-VALUE-ADDRESS>
1783 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
1784 <FRAME '
\1aVAR-COUNT-ADDRESS>
1786 <CALL '
\1aVAR-COUNT-ADDRESS 1 = STACK>
1788 <SET COUNT-STORED?13 'T (TYPE ATOM)>
1791 <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE46>
1794 <FRAME '
\1aVAR-VALUE-ADDRESS>
1796 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
1797 <NTHUV CAC10 2 = TEMP25 (TYPE FIX)>
1798 <OR TEMP25 #WORD *120* = TEMP25>
1799 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1800 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1805 <SET COUNT-STORED?13 'T (TYPE ATOM)>
1808 <FRAME '
\1aVAR-VALUE-ADDRESS>
1810 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
1811 <FRAME '
\1aVAR-COUNT-ADDRESS>
1813 <CALL '
\1aVAR-COUNT-ADDRESS 1 = STACK>
1816 <TYPE? VAC8 <TYPE-CODE FALSE> - PHRASE54>
1817 <VEQUAL? SHFT6 0 + PHRASE54 (TYPE FIX)>
1818 <FRAME '
\1aLOAD-VAR>
1823 <CALL '
\1aLOAD-VAR 4 = VAC8>
1825 <VEQUAL? SHFT6 0 - PHRASE60 (TYPE FIX)>
1828 <FRAME '
\1aVAR-VALUE-ADDRESS>
1831 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
1832 <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE66>
1833 <NTHUV VAC8 2 = TEMP25 (TYPE FIX)>
1834 <OR TEMP25 #WORD *120* = TEMP25>
1835 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1836 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
1839 <FRAME '
\1aVAR-VALUE-ADDRESS>
1841 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP25>
1848 <VEQUAL? SHFT6 2 - PHRASE69 (TYPE FIX)>
1852 <NTHUV NAC12 2 = TEMP25 (TYPE FIX)>
1854 <OR TEMP25 #WORD *100* = TEMP25>
1855 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1856 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1858 <NTHUV VAC8 2 = TEMP25 (TYPE FIX)>
1859 <OR TEMP25 #WORD *140* = TEMP25>
1860 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1861 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1863 <NTHUV VAC8 2 = TEMP25 (TYPE FIX)>
1864 <OR TEMP25 #WORD *120* = TEMP25>
1865 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1866 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1873 <NTHUV NAC12 2 = TEMP25 (TYPE FIX)>
1875 <OR TEMP25 #WORD *100* = TEMP25>
1876 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1877 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1879 <NTHUV VAC8 2 = TEMP25 (TYPE FIX)>
1880 <OR TEMP25 #WORD *140* = TEMP25>
1881 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1882 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1884 <NTHUV VAC8 2 = TEMP25 (TYPE FIX)>
1885 <OR TEMP25 #WORD *120* = TEMP25>
1886 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1887 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1891 <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE74>
1892 <FRAME '
\1aDEST-DECL>
1896 <CALL '
\1aDEST-DECL 3>
1898 <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE81>
1899 <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE79>
1900 <FRAME '
\1aDEST-COUNT-DECL>
1908 <CALL '
\1aDEST-COUNT-DECL 4>
1911 <FRAME '
\1aLINK-VAR-TO-AC>
1917 <CALL '
\1aLINK-VAR-TO-AC 4>
1918 <FRAME '
\1aINDICATE-CACHED-VARIABLE-DECL>
1922 <CALL '
\1aINDICATE-CACHED-VARIABLE-DECL 2>
1924 <FRAME '
\1aFIND-CACHE-VAR>
1927 <CALL '
\1aFIND-CACHE-VAR 1 = LV11>
1929 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE85>
1931 <PUTUV LV11 3 COUNT-STORED?13>
1932 <DEAD COUNT-STORED?13>
1938 <END
\1aR-B-G-SELF>
\r\0\r\0
1940 <GFCN
\1aR-B-G ("VALUE" ANY VARTBL VARTBL ANY FIX <OR ATOM FALSE>) SVAR4 NUM5 RES6 SHFT7 TYP8>
1941 <TEMP (VAC9 %<>) (CAC10 %<>) (CN12 %<>) (NAC13 %<>) (FORCE-CHTYPE?14 %<>) LV11 TEMP31>
1943 <FRAME '
\1aFIND-CACHE-VAR>
1945 <CALL '
\1aFIND-CACHE-VAR 1 = LV11>
1946 <VEQUAL? SHFT7 0 + PHRASE17 (TYPE FIX)>
1948 <FRAME '
\1aLOAD-VAR>
1953 <CALL '
\1aLOAD-VAR 4 = NAC13>
1955 <CALL '
\1aPROTECT 1>
1957 <TYPE? LV11 <TYPE-CODE FALSE> + PHRASE23>
1958 <NTHUV LV11 9 = CAC10>
1959 <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE23>
1960 <TYPE? RES6 <TYPE-CODE VARTBL> - PHRASE26>
1961 <TYPE? TYP8 <TYPE-CODE FALSE> + PHRASE28>
1962 <FRAME '
\1aVARTBL-DECL>
1964 <CALL '
\1aVARTBL-DECL 1 = TEMP31>
1965 <EQUAL? TEMP31 TYP8 + PHRASE28>
1967 <SET FORCE-CHTYPE?14 'T (TYPE ATOM)>
1972 <CALL '
\1aMUNG-AC 1>
1973 <SET CAC10 %<> (TYPE FALSE)>
1976 <FRAME '
\1aVAR-VALUE-ADDRESS>
1978 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
1979 <FRAME '
\1aVAR-COUNT-ADDRESS>
1981 <CALL '
\1aVAR-COUNT-ADDRESS 1 = STACK>
1982 <FRAME '
\1aVAR-COUNT-ADDRESS>
1985 <CALL '
\1aVAR-COUNT-ADDRESS 2 = STACK>
1989 <FRAME '
\1aEMIT-PUSH>
1990 <NTHUV CAC10 2 = TEMP31 (TYPE FIX)>
1991 <OR TEMP31 #WORD *120* = TEMP31>
1992 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
1993 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
1996 <CALL '
\1aEMIT-PUSH 2>
1999 <FRAME '
\1aVAR-VALUE-ADDRESS>
2001 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2003 <GVAL 'AC-TP = STACK>
2005 <CALL '
\1aMA-DISP 2 = STACK>
2009 <TYPE? LV11 <TYPE-CODE FALSE> + PHRASE42>
2010 <NTHUV LV11 8 = CAC10>
2011 <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE42>
2012 <TYPE? TYP8 <TYPE-CODE FALSE> + PHRASE42>
2013 <SET CN12 'T (TYPE ATOM)>
2014 <TYPE? RES6 <TYPE-CODE VARTBL> - PHRASE45>
2017 <CALL '
\1aMUNG-AC 1>
2020 <CALL '
\1aPROTECT 1>
2023 <FRAME '
\1aVAR-VALUE-ADDRESS>
2025 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2026 <NTHUV CAC10 2 = TEMP31 (TYPE FIX)>
2027 <OR TEMP31 #WORD *120* = TEMP31>
2028 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2029 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2034 <FRAME '
\1aEMIT-PUSH>
2035 <FRAME '
\1aTYPE-CODE>
2037 <CALL '
\1aTYPE-CODE 1 = STACK>
2039 <CALL '
\1aEMIT-PUSH 2>
2042 <FRAME '
\1aVARTBL-VALUE-ADDRESS>
2044 <CALL '
\1aVARTBL-VALUE-ADDRESS 1 = STACK>
2045 <NTHUV CAC10 2 = TEMP31 (TYPE FIX)>
2046 <OR TEMP31 #WORD *120* = TEMP31>
2047 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2048 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2050 <GVAL 'AC-TP = TEMP31>
2051 <NTHUV TEMP31 2 = TEMP31 (TYPE FIX)>
2052 <OR TEMP31 #WORD *200* = TEMP31>
2053 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2054 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2059 <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE57>
2062 <CALL '
\1aMUNG-AC 1>
2063 <FRAME '
\1aFIND-CACHE-VAR>
2065 <CALL '
\1aFIND-CACHE-VAR 1 = LV11>
2067 <EQUAL? RES6 'STACK + PHRASE61>
2071 <CALL '
\1aGET-AC 2 = CAC10>
2074 <CALL '
\1aPROTECT 1>
2077 <NTHUV CAC10 2 = TEMP31 (TYPE FIX)>
2078 <OR TEMP31 #WORD *120* = TEMP31>
2079 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2080 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2084 <EQUAL? RES6 'STACK - PHRASE66>
2085 <TYPE? TYP8 <TYPE-CODE FALSE> + PHRASE68>
2086 <FRAME '
\1aEMIT-PUSH>
2087 <FRAME '
\1aTYPE-CODE>
2089 <CALL '
\1aTYPE-CODE 1 = STACK>
2091 <CALL '
\1aEMIT-PUSH 2>
2096 <GVAL 'AC-TP = TEMP31>
2097 <NTHUV TEMP31 2 = TEMP31 (TYPE FIX)>
2098 <OR TEMP31 #WORD *200* = TEMP31>
2099 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2100 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2106 <FRAME '
\1aVAR-VALUE-ADDRESS>
2108 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2109 <FRAME '
\1aVAR-COUNT-ADDRESS>
2111 <CALL '
\1aVAR-COUNT-ADDRESS 1 = STACK>
2112 <GVAL 'AC-TP = TEMP31>
2113 <NTHUV TEMP31 2 = TEMP31 (TYPE FIX)>
2114 <OR TEMP31 #WORD *200* = TEMP31>
2115 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2116 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2123 <FRAME '
\1aVAR-VALUE-ADDRESS>
2125 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2126 <FRAME '
\1aVAR-COUNT-ADDRESS>
2128 <CALL '
\1aVAR-COUNT-ADDRESS 1 = STACK>
2129 <NTHUV CAC10 2 = TEMP31 (TYPE FIX)>
2130 <OR TEMP31 #WORD *120* = TEMP31>
2131 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2132 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2135 <TYPE? TYP8 <TYPE-CODE FALSE> - PHRASE81>
2140 <CALL '
\1aMA-IMM 1 = STACK>
2141 <NTHUV CAC10 2 = TEMP31 (TYPE FIX)>
2142 <OR TEMP31 #WORD *120* = TEMP31>
2143 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2144 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2146 <NTHUV CAC10 2 = TEMP31 (TYPE FIX)>
2147 <OR TEMP31 #WORD *120* = TEMP31>
2148 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2149 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2154 <SET CN12 'T (TYPE ATOM)>
2156 <VEQUAL? SHFT7 0 - PHRASE86 (TYPE FIX)>
2157 <EQUAL? RES6 'STACK + PHRASE90>
2158 <TYPE? LV11 <TYPE-CODE FALSE> + PHRASE90>
2159 <NTHUV LV11 6 = VAC9>
2161 <TYPE? VAC9 <TYPE-CODE FALSE> + PHRASE90>
2164 <CALL '
\1aMUNG-AC 1>
2167 <FRAME '
\1aVAR-VALUE-ADDRESS>
2170 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2171 <NTHUV VAC9 2 = TEMP31 (TYPE FIX)>
2172 <OR TEMP31 #WORD *120* = TEMP31>
2173 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2174 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2179 <EQUAL? RES6 'STACK + PHRASE95>
2182 <FRAME '
\1aVAR-VALUE-ADDRESS>
2185 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2186 <FRAME '
\1aVAR-VALUE-ADDRESS>
2188 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2192 <CALL '
\1aGET-AC 2 = VAC9>
2193 <NTHUV VAC9 2 = TEMP31 (TYPE FIX)>
2194 <OR TEMP31 #WORD *120* = TEMP31>
2195 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2196 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2203 <FRAME '
\1aVAR-VALUE-ADDRESS>
2206 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2207 <FRAME '
\1aVAR-VALUE-ADDRESS>
2209 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2210 <GVAL 'AC-TP = TEMP31>
2211 <NTHUV TEMP31 2 = TEMP31 (TYPE FIX)>
2212 <OR TEMP31 #WORD *200* = TEMP31>
2213 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2214 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2219 <FRAME '
\1aLOAD-VAR>
2222 <EQUAL? RES6 'STACK + TAG106>
2229 <CALL '
\1aLOAD-VAR 4 = VAC9>
2230 <VEQUAL? SHFT7 2 - PHRASE109 (TYPE FIX)>
2233 <NTHUV NAC13 2 = TEMP31 (TYPE FIX)>
2235 <OR TEMP31 #WORD *100* = TEMP31>
2236 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2237 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2239 <NTHUV VAC9 2 = TEMP31 (TYPE FIX)>
2240 <OR TEMP31 #WORD *140* = TEMP31>
2241 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2242 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2244 <EQUAL? RES6 'STACK - PHRASE112>
2245 <GVAL 'AC-TP = TEMP31>
2246 <NTHUV TEMP31 2 = TEMP31 (TYPE FIX)>
2247 <OR TEMP31 #WORD *200* = TEMP31>
2248 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2249 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = TEMP31>
2252 <NTHUV VAC9 2 = NAC13 (TYPE FIX)>
2253 <OR NAC13 #WORD *120* = NAC13>
2254 <LSH NAC13 24 = NAC13 (TYPE FIX)>
2255 <CHTYPE NAC13 <TYPE-CODE EFF-ADDR> = TEMP31>
2265 <NTHUV NAC13 2 = NAC13 (TYPE FIX)>
2266 <OR NAC13 #WORD *100* = NAC13>
2267 <LSH NAC13 24 = NAC13 (TYPE FIX)>
2268 <CHTYPE NAC13 <TYPE-CODE EFF-ADDR> = STACK>
2270 <NTHUV VAC9 2 = NAC13 (TYPE FIX)>
2271 <OR NAC13 #WORD *140* = NAC13>
2272 <LSH NAC13 24 = NAC13 (TYPE FIX)>
2273 <CHTYPE NAC13 <TYPE-CODE EFF-ADDR> = STACK>
2275 <EQUAL? RES6 'STACK - PHRASE118>
2276 <GVAL 'AC-TP = NAC13>
2277 <NTHUV NAC13 2 = NAC13 (TYPE FIX)>
2278 <OR NAC13 #WORD *200* = NAC13>
2279 <LSH NAC13 24 = NAC13 (TYPE FIX)>
2280 <CHTYPE NAC13 <TYPE-CODE EFF-ADDR> = NAC13>
2283 <NTHUV VAC9 2 = TEMP31 (TYPE FIX)>
2284 <OR TEMP31 #WORD *120* = TEMP31>
2285 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2286 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = NAC13>
2293 <TYPE? TYP8 <TYPE-CODE FALSE> + BOOL122>
2294 <VEQUAL? FORCE-CHTYPE?14 0 - BOOL122>
2295 <DEAD FORCE-CHTYPE?14>
2296 <FRAME '
\1aVARTBL-DECL>
2299 <CALL '
\1aVARTBL-DECL 1 = NAC13>
2300 <EQUAL? TYP8 NAC13 + PHRASE121>
2302 <VEQUAL? CN12 0 - PHRASE121>
2304 <FRAME '
\1aDO-TYPE-CHANGE>
2305 <EQUAL? RES6 'STACK - PHRASE127>
2307 <GVAL 'AC-TP = STACK>
2309 <CALL '
\1aMA-DISP 2 = NAC13>
2312 <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE129>
2313 <NTHUV CAC10 2 = TEMP31 (TYPE FIX)>
2314 <OR TEMP31 #WORD *120* = TEMP31>
2315 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2316 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = NAC13>
2320 <FRAME '
\1aVAR-TYPE-ADDRESS>
2322 <CALL '
\1aVAR-TYPE-ADDRESS 1 = NAC13>
2326 <EQUAL? RES6 'STACK - PHRASE133>
2328 <GVAL 'AC-TP = STACK>
2330 <CALL '
\1aMA-DISP 2 = NAC13>
2333 <NTHUV VAC9 2 = TEMP31 (TYPE FIX)>
2334 <OR TEMP31 #WORD *120* = TEMP31>
2335 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2336 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = NAC13>
2345 <CALL '
\1aDO-TYPE-CHANGE 4>
2346 <EQUAL? RES6 'STACK - TAG138>
2349 <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE140>
2350 <FRAME '
\1aDEST-PAIR>
2357 <CALL '
\1aDEST-PAIR 3 = NAC13>
2361 <FRAME '
\1aDEAD-VAR>
2363 <CALL '
\1aDEAD-VAR 1>
2364 <FRAME '
\1aLINK-VAR-TO-AC>
2370 <CALL '
\1aLINK-VAR-TO-AC 4>
2371 <FRAME '
\1aFIND-CACHE-VAR>
2374 <CALL '
\1aFIND-CACHE-VAR 1 = LV11>
2383 <EQUAL? RES6 'STACK - TAG147>
2386 <VEQUAL? CN12 0 - PHRASE149>
2388 <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE151>
2389 <FRAME '
\1aDEST-PAIR>
2396 <CALL '
\1aDEST-PAIR 3 = NAC13>
2400 <FRAME '
\1aDEAD-VAR>
2402 <CALL '
\1aDEAD-VAR 1>
2403 <FRAME '
\1aLINK-VAR-TO-AC>
2409 <CALL '
\1aLINK-VAR-TO-AC 4>
2410 <FRAME '
\1aFIND-CACHE-VAR>
2413 <CALL '
\1aFIND-CACHE-VAR 1 = LV11>
2422 <FRAME '
\1aDEST-COUNT-DECL>
2431 <CALL '
\1aDEST-COUNT-DECL 4 = NAC13>
2436 <GFCN
\1aR-B-G-Q ("VALUE" ANY ANY VARTBL ANY FIX ATOM) SVAR4 NUM5 RES6 SHFT7 TYP8>
2437 <TEMP TEMP21 CAC11 VAC10 NAC9>
2439 <EQUAL? RES6 'STACK - PHRASE13>
2440 <FRAME '
\1aEMIT-PUSH>
2441 <FRAME '
\1aTYPE-CODE>
2442 <FRAME '
\1aPRIMTYPE>
2444 <CALL '
\1aPRIMTYPE 1 = STACK>
2445 <CALL '
\1aTYPE-CODE 1 = STACK>
2447 <CALL '
\1aEMIT-PUSH 2>
2450 <FRAME '
\1aVAR-VALUE-ADDRESS>
2452 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2456 <CALL '
\1aLENGTH 1 = STACK>
2457 <CALL '
\1aMA-IMM 1 = STACK>
2458 <GVAL 'AC-TP = TEMP21>
2459 <NTHUV TEMP21 2 = TEMP21 (TYPE FIX)>
2460 <OR TEMP21 #WORD *200* = TEMP21>
2461 <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2462 <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
2469 <FRAME '
\1aVAR-VALUE-ADDRESS>
2471 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2475 <CALL '
\1aLENGTH 1 = STACK>
2476 <CALL '
\1aMA-IMM 1 = STACK>
2480 <CALL '
\1aGET-AC 2 = CAC11>
2481 <NTHUV CAC11 2 = TEMP21 (TYPE FIX)>
2482 <OR TEMP21 #WORD *120* = TEMP21>
2483 <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2484 <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
2488 <TYPE? CAC11 <TYPE-CODE FALSE> + PHRASE29>
2491 <CALL '
\1aNEXT-AC 1 = VAC10>
2493 <VEQUAL? SHFT7 0 - PHRASE32 (TYPE FIX)>
2496 <FRAME '
\1aVAR-VALUE-ADDRESS>
2499 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2500 <FRAME '
\1aADDR-VALUE-M>
2501 <FRAME '
\1aADD-MVEC>
2503 <CALL '
\1aADD-MVEC 1 = STACK>
2504 <CALL '
\1aADDR-VALUE-M 1 = STACK>
2505 <EQUAL? RES6 'STACK - PHRASE40>
2506 <GVAL 'AC-TP = TEMP21>
2507 <NTHUV TEMP21 2 = TEMP21 (TYPE FIX)>
2508 <OR TEMP21 #WORD *200* = TEMP21>
2509 <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2510 <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
2522 <FRAME '
\1aADDR-VALUE-M>
2523 <FRAME '
\1aADD-MVEC>
2525 <CALL '
\1aADD-MVEC 1 = STACK>
2526 <CALL '
\1aADDR-VALUE-M 1 = STACK>
2528 <TYPE? TEMP21 <TYPE-CODE FALSE> - PHRASE47>
2532 <CALL '
\1aGET-AC 2 = VAC10>
2538 <FRAME '
\1aLOAD-VAR>
2544 <CALL '
\1aLOAD-VAR 4 = NAC9>
2546 <VEQUAL? SHFT7 2 - PHRASE52 (TYPE FIX)>
2548 <SET TEMP21 222 (TYPE FIX)>
2551 <SET TEMP21 126 (TYPE FIX)>
2555 <NTHUV NAC9 2 = TEMP21 (TYPE FIX)>
2557 <OR TEMP21 #WORD *100* = TEMP21>
2558 <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2559 <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
2561 <NTHUV VAC10 2 = TEMP21 (TYPE FIX)>
2562 <OR TEMP21 #WORD *140* = TEMP21>
2563 <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2564 <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
2566 <EQUAL? RES6 'STACK - PHRASE55>
2567 <GVAL 'AC-TP = TEMP21>
2568 <NTHUV TEMP21 2 = TEMP21 (TYPE FIX)>
2569 <OR TEMP21 #WORD *200* = TEMP21>
2570 <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2571 <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
2574 <NTHUV VAC10 2 = TEMP21 (TYPE FIX)>
2575 <OR TEMP21 #WORD *120* = TEMP21>
2576 <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2577 <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
2583 <EQUAL? RES6 'STACK - TAG60>
2586 <FRAME '
\1aDEST-COUNT-DECL>
2593 <FRAME '
\1aPRIMTYPE>
2596 <CALL '
\1aPRIMTYPE 1 = STACK>
2597 <CALL '
\1aDEST-COUNT-DECL 4 = TEMP21>
2602 <GFCN
\1aDO-TYPE-CHANGE ("VALUE" ANY ANY ANY ANY ANY) TADDR4 VADDR5 TYP6 SHFT7>
2605 <TYPE? TYP6 <TYPE-CODE FALSE> + PHRASE10>
2608 <FRAME '
\1aTYPE-CODE>
2611 <CALL '
\1aTYPE-CODE 1 = STACK>
2614 <CALL '
\1aEMIT 3 = TEMP13>
2618 <FRAME '
\1aEMIT-MOVE>
2619 <FRAME '
\1aTYPE-CODE>
2621 <CALL '
\1aTYPE-CODE 1 = STACK>
2624 <CALL '
\1aEMIT-MOVE 3>
2625 <FRAME '
\1aGEN-COMP-INST>
2628 <GVAL 'AC-TP = TEMP13>
2629 <NTHUV TEMP13 2 = TEMP13 (TYPE FIX)>
2630 <OR TEMP13 #WORD *120* = TEMP13>
2631 <LSH TEMP13 24 = TEMP13 (TYPE FIX)>
2632 <CHTYPE TEMP13 <TYPE-CODE EFF-ADDR> = STACK>
2635 <CALL '
\1aGEN-COMP-INST 3>
2636 <FRAME '
\1aMAKE-LABEL>
2637 <CALL '
\1aMAKE-LABEL 0 = TEMP13>
2638 <FRAME '
\1aGEN-BRANCH>
2642 <CALL '
\1aGEN-BRANCH 3>
2643 <FRAME '
\1aEMIT-MOVE>
2644 <FRAME '
\1aTYPE-CODE>
2646 <CALL '
\1aTYPE-CODE 1 = STACK>
2650 <CALL '
\1aEMIT-MOVE 3>
2651 <FRAME '
\1aEMIT-LABEL>
2655 <CALL '
\1aEMIT-LABEL 2 = TEMP13>
2658 <END
\1aDO-TYPE-CHANGE>
2660 <GFCN
\1aSHIFT-NUM ("VALUE" FIX FIX FIX) NUM4 SHFT5>
2663 <VEQUAL? SHFT5 0 - PHRASE7 (TYPE FIX)>
2667 <VEQUAL? SHFT5 2 - PHRASE11 (TYPE FIX)>
2669 <LSH NUM4 2 = TEMP10 (TYPE FIX)>
2674 <LSH NUM4 3 = TEMP10 (TYPE FIX)>
2680 <GFCN
\1aLIST-LENGTH-GEN ("VALUE" ATOM VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) SVAR6 RES7 HINT8>
2681 <OPT-DISPATCH 2 %<> OPT4 OPT5>
2685 <TEMP VAC9 CAC10 TEMP18 SLABEL11 ELABEL12>
2687 <FRAME '
\1aVAR-VALUE-IN-AC?>
2689 <CALL '
\1aVAR-VALUE-IN-AC? 1 = VAC9>
2690 <TYPE? VAC9 <TYPE-CODE FALSE> + BOOL13>
2694 <CALL '
\1aPROTECT 1>
2699 <CALL '
\1aGET-AC 2 = CAC10>
2702 <NTHUV CAC10 2 = TEMP18 (TYPE FIX)>
2703 <OR TEMP18 #WORD *120* = TEMP18>
2704 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2705 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
2710 <CALL '
\1aPROTECT 1>
2711 <FRAME '
\1aLOAD-VAR>
2717 <CALL '
\1aLOAD-VAR 4 = VAC9>
2718 <FRAME '
\1aPROTECT-USE>
2720 <CALL '
\1aPROTECT-USE 1>
2721 <FRAME '
\1aMAKE-LABEL>
2722 <CALL '
\1aMAKE-LABEL 0 = SLABEL11>
2723 <FRAME '
\1aMAKE-LABEL>
2724 <CALL '
\1aMAKE-LABEL 0 = ELABEL12>
2725 <GVAL 'STATUS-AC = TEMP18>
2726 <EQUAL? TEMP18 VAC9 + PHRASE25>
2730 <NTHUV VAC9 2 = TEMP18 (TYPE FIX)>
2731 <OR TEMP18 #WORD *120* = TEMP18>
2732 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2733 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
2737 <FRAME '
\1aGEN-BRANCH>
2741 <CALL '
\1aGEN-BRANCH 3>
2742 <FRAME '
\1aEMIT-LABEL>
2745 <CALL '
\1aEMIT-LABEL 2>
2748 <NTHUV CAC10 2 = TEMP18 (TYPE FIX)>
2749 <OR TEMP18 #WORD *120* = TEMP18>
2750 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2751 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
2754 <FRAME '
\1aEMIT-MOVE>
2758 <CALL '
\1aMA-DISP 2 = STACK>
2759 <NTHUV VAC9 2 = TEMP18 (TYPE FIX)>
2761 <OR TEMP18 #WORD *120* = TEMP18>
2762 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2763 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
2766 <CALL '
\1aEMIT-MOVE 3>
2767 <FRAME '
\1aGEN-BRANCH>
2772 <CALL '
\1aGEN-BRANCH 3>
2773 <FRAME '
\1aEMIT-LABEL>
2777 <CALL '
\1aEMIT-LABEL 2>
2778 <FRAME '
\1aDEST-DECL>
2784 <CALL '
\1aDEST-DECL 3>
2785 <FRAME '
\1aCLEAR-STATUS>
2786 <CALL '
\1aCLEAR-STATUS 0>
2788 <END
\1aLIST-LENGTH-GEN>
2790 <GFCN
\1aBLOCK-LENGTH-GEN ("VALUE" ATOM ANY <OR ATOM VARTBL> "OPTIONAL" ANY ANY) SVAR7 RES8 HINT9 HINT210>
2791 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
2799 <TYPE? SVAR7 <TYPE-CODE VARTBL> + PHRASE15>
2800 <EQUAL? RES8 'STACK - PHRASE17>
2801 <FRAME '
\1aPUSH-CONSTANT>
2805 <CALL '
\1aLENGTH 1 = STACK>
2806 <CALL '
\1aPUSH-CONSTANT 1>
2812 <CALL '
\1aGET-AC 2 = VAC11>
2813 <EMPTY? SVAR7 - PHRASE23>
2816 <NTHUV VAC11 2 = TEMP25 (TYPE FIX)>
2817 <OR TEMP25 #WORD *120* = TEMP25>
2818 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
2819 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
2830 <CALL '
\1aLENGTH 1 = STACK>
2831 <CALL '
\1aMA-IMM 1 = STACK>
2832 <NTHUV VAC11 2 = TEMP25 (TYPE FIX)>
2833 <OR TEMP25 #WORD *120* = TEMP25>
2834 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
2835 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
2839 <FRAME '
\1aDEST-DECL>
2845 <CALL '
\1aDEST-DECL 3>
2848 <EQUAL? RES8 'STACK - PHRASE31>
2849 <FRAME '
\1aEMIT-PUSH>
2850 <FRAME '
\1aTYPE-CODE>
2852 <CALL '
\1aTYPE-CODE 1 = STACK>
2854 <CALL '
\1aEMIT-PUSH 2>
2855 <FRAME '
\1aFIND-CACHE-VAR>
2857 <CALL '
\1aFIND-CACHE-VAR 1 = VAC11>
2858 <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE35>
2859 <NTHUV VAC11 3 = TEMP25>
2861 <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE35>
2863 <FRAME '
\1aLOAD-VAR>
2869 <CALL '
\1aLOAD-VAR 4 = VAC11>
2870 <FRAME '
\1aEMIT-PUSH>
2871 <NTHUV VAC11 2 = TEMP25 (TYPE FIX)>
2873 <OR TEMP25 #WORD *120* = TEMP25>
2874 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
2875 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
2878 <CALL '
\1aEMIT-PUSH 2>
2883 <FRAME '
\1aADDR-VAR-COUNT>
2886 <CALL '
\1aADDR-VAR-COUNT 1 = STACK>
2887 <GVAL 'AC-TP = TEMP25>
2888 <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
2889 <OR TEMP25 #WORD *200* = TEMP25>
2890 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
2891 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
2896 <FRAME '
\1aFIND-CACHE-VAR>
2898 <CALL '
\1aFIND-CACHE-VAR 1 = VAC11>
2899 <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE45>
2900 <NTHUV VAC11 3 = TEMP25>
2902 <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE45>
2905 <FRAME '
\1aLOAD-VAR>
2911 <CALL '
\1aLOAD-VAR 4 = VAC11>
2913 <CALL '
\1aPROTECT 1>
2919 <CALL '
\1aGET-AC 2 = VAC11>
2922 <FRAME '
\1aADDR-VAR-COUNT>
2925 <CALL '
\1aADDR-VAR-COUNT 1 = STACK>
2926 <NTHUV VAC11 2 = TEMP25 (TYPE FIX)>
2927 <OR TEMP25 #WORD *120* = TEMP25>
2928 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
2929 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
2933 <FRAME '
\1aDEST-DECL>
2939 <CALL '
\1aDEST-DECL 3>
2941 <END
\1aBLOCK-LENGTH-GEN>
2943 <GFCN
\1aLIST-EMP-GEN ("VALUE" ATOM VARTBL ATOM ATOM "OPTIONAL" ANY) SVAR6 DIR7 LABEL8 HINT9>
2944 <OPT-DISPATCH 3 %<> OPT4 OPT5>
2950 <FRAME '
\1aVAR-VALUE-IN-AC?>
2952 <CALL '
\1aVAR-VALUE-IN-AC? 1 = VAC12>
2953 <TYPE? VAC12 <TYPE-CODE FALSE> + BOOL16>
2954 <GVAL 'STATUS-AC = TEMP18>
2955 <EQUAL? TEMP18 VAC12 + PHRASE15>
2960 <FRAME '
\1aVAR-VALUE-ADDRESS>
2963 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2966 <VEQUAL? DIR7 '+ - PHRASE22>
2968 <SET VAC12 7 (TYPE FIX)>
2971 <SET VAC12 6 (TYPE FIX)>
2973 <FRAME '
\1aGEN-BRANCH>
2975 <GVAL 'BRANCHES = STACK>
2976 <ADD VAC12 1 = STACK (TYPE FIX)>
2978 <CALL '
\1aNTH 2 = STACK>
2983 <CALL '
\1aGEN-BRANCH 4>
2984 <FRAME '
\1aCLEAR-STATUS>
2985 <CALL '
\1aCLEAR-STATUS 0>
2987 <END
\1aLIST-EMP-GEN>
2989 <GFCN
\1aBLOCK-EMP-GEN ("VALUE" ATOM ANY ATOM ATOM "OPTIONAL" ANY) SVAR6 DIR7 LABEL8 HINT9>
2990 <OPT-DISPATCH 3 %<> OPT4 OPT5>
2996 <TYPE? SVAR6 <TYPE-CODE VARTBL> - PHRASE11>
2997 <FRAME '
\1aZERO-COUNT-TEST-GEN>
3004 <CALL '
\1aZERO-COUNT-TEST-GEN 3>
3005 <FRAME '
\1aCLEAR-STATUS>
3006 <CALL '
\1aCLEAR-STATUS 0>
3009 <TYPE? SVAR6 <TYPE-CODE ATOM> + BOOL15>
3010 <EMPTY? SVAR6 + PHRASE14>
3013 <VEQUAL? DIR7 '- - PHRASE19>
3015 <FRAME '
\1aGEN-BRANCH>
3016 <GVAL 'INST-BBR = STACK>
3020 <CALL '
\1aGEN-BRANCH 3>
3023 <VEQUAL? DIR7 '+ - PHRASE19>
3025 <FRAME '
\1aGEN-BRANCH>
3026 <GVAL 'INST-BBR = STACK>
3030 <CALL '
\1aGEN-BRANCH 3>
3033 <END
\1aBLOCK-EMP-GEN>
3035 <GFCN
\1aZERO-COUNT-TEST-GEN ("VALUE" ANY VARTBL ATOM ATOM) VAR4 DIR5 LABEL6>
3036 <TEMP (USE-CMP11 %<>) LVAR10 TEMP16>
3038 <FRAME '
\1aFIND-CACHE-VAR>
3040 <CALL '
\1aFIND-CACHE-VAR 1 = LVAR10>
3041 <TYPE? LVAR10 <TYPE-CODE FALSE> + BOOL14>
3042 <NTHUV LVAR10 3 = TEMP16>
3043 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE13>
3046 <FRAME '
\1aVAR-COUNT-ADDRESS>
3048 <CALL '
\1aVAR-COUNT-ADDRESS 1 = LVAR10>
3051 <NTHUV LVAR10 8 = TEMP16>
3052 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE18>
3053 <NTHUV TEMP16 2 = TEMP16 (TYPE FIX)>
3054 <OR TEMP16 #WORD *120* = TEMP16>
3055 <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
3056 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = LVAR10>
3060 <NTHUV LVAR10 9 = TEMP16>
3062 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE19>
3063 <NTHUV TEMP16 2 = TEMP16 (TYPE FIX)>
3064 <OR TEMP16 #WORD *120* = TEMP16>
3065 <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
3066 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = LVAR10>
3068 <SET USE-CMP11 'T (TYPE ATOM)>
3071 <FRAME '
\1aVAR-COUNT-ADDRESS>
3073 <CALL '
\1aVAR-COUNT-ADDRESS 1 = LVAR10>
3079 <CALL '
\1aSTATUS? 2 = TEMP16>
3080 <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE23>
3082 <VEQUAL? USE-CMP11 0 + PHRASE26>
3090 <CALL '
\1aMA-IMM 1 = STACK>
3101 <SET USE-CMP11 %<> (TYPE FALSE)>
3103 <VEQUAL? DIR5 '+ - PHRASE33>
3105 <FRAME '
\1aGEN-BRANCH>
3110 <CALL '
\1aGEN-BRANCH 3 = TEMP16>
3114 <FRAME '
\1aGEN-BRANCH>
3119 <CALL '
\1aGEN-BRANCH 3 = TEMP16>
3122 <END
\1aZERO-COUNT-TEST-GEN>
3124 <GFCN
\1aPUTREST-GEN ("VALUE" ATOM VARTBL <OR <PRIMTYPE LIST> VARTBL>) VAL14 VAL25>
3128 <FRAME '
\1aLOAD-VAR>
3134 <CALL '
\1aLOAD-VAR 4 = VAC6>
3136 <CALL '
\1aPROTECT 1>
3141 <CALL '
\1aMA-DISP 2 = VAC6>
3142 <TYPE? VAL25 <TYPE-CODE LIST> - PHRASE13>
3143 <EMPL? VAL25 - PHRASE15 (TYPE LIST)>
3151 <FRAME '
\1aADD-MVEC>
3154 <CALL '
\1aADD-MVEC 1 = OFF7>
3157 <FRAME '
\1aADDR-VALUE-M>
3160 <CALL '
\1aADDR-VALUE-M 1 = STACK>
3168 <FRAME '
\1aVAR-VALUE-ADDRESS>
3171 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
3176 <FRAME '
\1aCLEAR-STATUS>
3177 <CALL '
\1aCLEAR-STATUS 0>
3179 <END
\1aPUTREST-GEN>
3181 <GFCN
\1aPUT-LIST-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL> ANY "OPTIONAL" ANY) VAR6 OFF7 VAL8 HINT9>
3182 <OPT-DISPATCH 3 %<> OPT4 OPT5>
3188 <TYPE? HINT9 <TYPE-CODE FALSE> + PHRASE12>
3189 <FRAME '
\1aPARSE-HINT>
3193 <CALL '
\1aPARSE-HINT 2 = HINT9>
3195 <FRAME '
\1aPROTECT-VAL>
3197 <CALL '
\1aPROTECT-VAL 1>
3198 <EQUAL? OFF7 1 - PHRASE16>
3199 <FRAME '
\1aSLOT-CLOBBER>
3208 <CALL '
\1aSLOT-CLOBBER 5>
3211 <TYPE? OFF7 <TYPE-CODE FIX> - PHRASE18>
3212 <FRAME '
\1aLIST-REST-CONSTANT-GEN>
3215 <SUB OFF7 1 = STACK (TYPE FIX)>
3217 <CALL '
\1aLIST-REST-CONSTANT-GEN 2 = VAC10>
3218 <FRAME '
\1aFINISH-SLOT-CLOBBER>
3227 <CALL '
\1aFINISH-SLOT-CLOBBER 5>
3230 <FRAME '
\1aLIST-REST-VAR-GEN>
3236 <CALL '
\1aLIST-REST-VAR-GEN 3 = VAC10>
3237 <FRAME '
\1aFINISH-SLOT-CLOBBER>
3246 <CALL '
\1aFINISH-SLOT-CLOBBER 5>
3248 <FRAME '
\1aCLEAR-STATUS>
3249 <CALL '
\1aCLEAR-STATUS 0>
3251 <END
\1aPUT-LIST-GEN>
3253 <GFCN
\1aSLOT-CLOBBER ("VALUE" ANY VARTBL FIX ANY BOOLEAN ANY) VAR4 OFF5 VAL6 UVC7 HINT8>
3257 <FRAME '
\1aLOAD-VAR>
3263 <CALL '
\1aLOAD-VAR 4 = VAC9>
3265 <CALL '
\1aPROTECT 1>
3266 <FRAME '
\1aFINISH-SLOT-CLOBBER>
3277 <CALL '
\1aFINISH-SLOT-CLOBBER 5 = VAC9>
3280 <END
\1aSLOT-CLOBBER>
3281 <DEFINE FINISH-SLOT-CLOBBER (VAC OFF VAL UVC HINT "OPT" (INDXAC <>) "AUX" DTADDR DVADDR DCADDR ROFF (KLUDGE <TUPLE <COND (.INDXAC <MA-INDX .INDXAC>) (ELSE <>)>>) LAC GAC DCL FX? LVAR (DONE? <>)) #DECL ((VAC) AC (OFF) FIX (VAL) ANY (UVC) BOOLEAN (INDXAC) <OR AC FALSE> (KLUDGE) <PRIMTYPE VECTOR> (LAC GAC) <OR AC FALSE> (LVAR) <OR FALSE LINKVAR>) <COND (.INDXAC <PROTECT .INDXAC>) (ELSE <SET KLUDGE <REST .KLUDGE>>)> <COND (.UVC <SET ROFF <* <- .OFF 1> 4>>) (ELSE <SET ROFF <* <- .OFF 1> 8>>)> <PROTECT .VAC> <COND (<NOT <TYPE? .VAL VARTBL>> <COND (<SET FX? <FIX-CONSTANT? .VAL>> <COND (.UVC <COND (<0? .FX?> <EMIT ,INST-CLRL !.KLUDGE <MA-DISP .VAC .ROFF>>) (<AND <L? .FX? 0> <G? .FX? -64>> <EMIT ,INST-MNEGL <MA-IMM <- .FX?>> !.KLUDGE <MA-DISP .VAC .ROFF>>) (<EMPTY? .KLUDGE> <EMIT-MOVE <MA-IMM .FX?> <MA-DISP .VAC .ROFF> LONG>) (ELSE <EMIT ,INST-MOVL <MA-IMM .FX?> !.KLUDGE <MA-DISP .VAC .ROFF>>)>) (ELSE <COND (.INDXAC <COND (<OR <AVAILABLE? .INDXAC> <NOT <SET LAC <FREE-AC?>>>> <MUNG-AC .INDXAC> <EMIT ,INST-ASHL <MA-IMM 1> <MA-REG .INDXAC> <MA-REG .INDXAC>>) (ELSE <EMIT ,INST-ASHL <MA-IMM 1> <MA-REG .INDXAC> <MA-REG <SET INDXAC .LAC>>>)> <PUT .KLUDGE 1 <MA-INDX .INDXAC>>)> <COND (<NOT .HINT> <EMIT-MOVE <TYPE-WORD <TYPE .VAL>> <MA-DISP .VAC .ROFF> LONG .KLUDGE>)> <COND (<0? .FX?> <EMIT ,INST-CLRL !.KLUDGE <MA-DISP .VAC <+ .ROFF 4>>>) (<AND <L? .FX? 0> <G? .FX? -64>> <EMIT ,INST-MNEGL <MA-IMM <- .FX?>> !.KLUDGE <MA-DISP .VAC <+ .ROFF 4>>>) (ELSE <EMIT-MOVE <MA-IMM .FX?> <MA-DISP .VAC <+ .ROFF 4>> LONG .KLUDGE>)>)>) (.UVC <EMIT ,INST-MOVL <ADDR-VALUE-MQUOTE .VAL> !.KLUDGE <MA-DISP .VAC .ROFF>>) (ELSE <EMIT ,INST-MOVQ <ADDR-TYPE-MQUOTE .VAL> !.KLUDGE <MA-DISP .VAC .ROFF>>)>) (.UVC <EMIT ,INST-MOVL <VAR-VALUE-ADDRESS .VAL> !.KLUDGE <MA-DISP .VAC .ROFF>>) (ELSE <SET LVAR <FIND-CACHE-VAR .VAL>> <COND (<AND .LVAR <SET LAC <LINKVAR-TYPE-WORD-AC .LVAR>> <SET GAC <LINKVAR-VALUE-AC .LVAR>> <==? .GAC <NEXT-AC .LAC>>> <SET DONE? T> <EMIT ,INST-MOVQ <MA-REG .LAC> !.KLUDGE <MA-DISP .VAC .ROFF>>) (<OR <NOT .LVAR> <AND <LINKVAR-VALUE-STORED .LVAR> <LINKVAR-TYPE-STORED .LVAR> <OR <AND .HINT <NOT <COUNT-NEEDED? .HINT>>> <AND <SET DCL <VARTBL-DECL .VAL>> <NOT <COUNT-NEEDED? .DCL>>> <LINKVAR-COUNT-STORED .LVAR>>>> <SET DONE? T> <EMIT ,INST-MOVQ <ADDR-VAR-TYPE-VALUE .VAL> !.KLUDGE <MA-DISP .VAC .ROFF>>) (ELSE <COND (.INDXAC <COND (<OR <AVAILABLE? .INDXAC> <NOT <SET LAC <FREE-AC?>>>> <MUNG-AC .INDXAC> <EMIT ,INST-ASHL <MA-IMM 1> <MA-REG .INDXAC> <MA-REG .INDXAC>>) (ELSE <EMIT ,INST-ASHL <MA-IMM 1> <MA-REG .INDXAC> <MA-REG <SET INDXAC .LAC>>>)> <PUT .KLUDGE 1 <MA-INDX .INDXAC>>)> <COND (<AND .HINT <NOT <COUNT-NEEDED? .HINT>>>) (<OR <NOT .LVAR> <AND <LINKVAR-TYPE-STORED .LVAR> <OR <AND <SET DCL <VARTBL-DECL .VAL>> <NOT <COUNT-NEEDED? .DCL>>> <LINKVAR-COUNT-STORED .LVAR>>> <LINKVAR-TYPE-WORD-AC .LVAR>> <EMIT ,INST-MOVL <VAR-TYPE-ADDRESS .VAL TYPEWORD> !.KLUDGE <MA-DISP .VAC .ROFF>>) (ELSE <COND (<SET DCL <VARTBL-DECL .VAL>> <COND (<NOT <COUNT-NEEDED? .DCL>> <COND (<NOT .HINT> <STORE-TYPE .DCL <MA-DISP .VAC .ROFF> !.KLUDGE>)>) (<LINKVAR-COUNT-STORED .LVAR> <STORE-TYPE .DCL <ADDR-VAR-TYPE .VAL>> <PUT .LVAR ,LINKVAR-TYPE-STORED T> <EMIT ,INST-MOVL <ADDR-VAR-TYPE .VAL> !.KLUDGE <MA-DISP .VAC .ROFF>>) (ELSE <STORE-TYPE .DCL <ADDR-VAR-TYPE .VAL>> <EMIT ,INST-MOVW <MA-REG <LINKVAR-COUNT-AC .LVAR>> <ADDR-VAR-COUNT .VAL>> <LINKVAR-COUNT-STORED .LVAR T> <LINKVAR-TYPE-STORED .LVAR T> <EMIT ,INST-MOVL <ADDR-VAR-TYPE .VAL> !.KLUDGE <MA-DISP .VAC .ROFF>>)>) (ELSE <COND (<LINKVAR-TYPE-STORED .LVAR> <EMIT ,INST-MOVW <MA-REG <LINKVAR-COUNT-AC .LVAR>> <ADDR-VAR-COUNT .VAL>> <LINKVAR-COUNT-STORED .LVAR T>) (ELSE <EMIT ,INST-MOVW <MA-REG <LINKVAR-TYPE-AC .LVAR>> <ADDR-VAR-TYPE .VAL>> <LINKVAR-TYPE-STORED .LVAR T>)> <EMIT ,INST-MOVL <ADDR-VAR-TYPE .VAL> !.KLUDGE <MA-DISP .VAC .ROFF>>)>)> <COND (<NOT .DONE?> <EMIT ,INST-MOVL <VAR-VALUE-ADDRESS .VAL> !.KLUDGE <MA-DISP .VAC <+ .ROFF 4>>>)>)>)> .VAC>
3284 <GFCN
\1aPUT-VEC-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL> ANY "OPTIONAL" ANY ANY) VAR7 OFF8 VAL9 HINT10 UVC11>
3285 <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
3293 <TYPE? HINT10 <TYPE-CODE FALSE> + BOOL12>
3294 <FRAME '
\1aPARSE-HINT>
3298 <CALL '
\1aPARSE-HINT 2 = HINT10>
3300 <FRAME '
\1aPROTECT-VAL>
3302 <CALL '
\1aPROTECT-VAL 1>
3303 <TYPE? OFF8 <TYPE-CODE FIX> - PHRASE16>
3304 <FRAME '
\1aSLOT-CLOBBER>
3315 <CALL '
\1aSLOT-CLOBBER 5>
3318 <FRAME '
\1aVAR-SLOT-CLOBBER>
3329 <CALL '
\1aVAR-SLOT-CLOBBER 5>
3331 <FRAME '
\1aCLEAR-STATUS>
3332 <CALL '
\1aCLEAR-STATUS 0>
3334 <END
\1aPUT-VEC-GEN>
3336 <GFCN
\1aPROTECT-VAL ("VALUE" ANY ANY) VAL4>
3339 <TYPE? VAL4 <TYPE-CODE VARTBL> + TAG10>
3342 <FRAME '
\1aFIND-CACHE-VAR>
3345 <CALL '
\1aFIND-CACHE-VAR 1 = LV5>
3347 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE24>
3348 <NTHUV LV5 6 = TEMP8>
3349 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE14>
3352 <NTHUV LV5 6 = STACK (TYPE AC)>
3353 <CALL '
\1aPROTECT 1>
3355 <NTHUV LV5 9 = TEMP8>
3356 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE18>
3359 <NTHUV LV5 9 = STACK (TYPE AC)>
3360 <CALL '
\1aPROTECT 1>
3362 <NTHUV LV5 7 = TEMP8>
3363 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE21>
3366 <NTHUV LV5 7 = STACK (TYPE AC)>
3367 <CALL '
\1aPROTECT 1>
3369 <NTHUV LV5 8 = TEMP8>
3370 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE24>
3372 <NTHUV LV5 8 = STACK (TYPE AC)>
3374 <CALL '
\1aPROTECT 1 = TEMP8>
3378 <END
\1aPROTECT-VAL>
3380 <GFCN
\1aVAR-SLOT-CLOBBER ("VALUE" AC VARTBL VARTBL ANY BOOLEAN ANY) VAR4 OFF5 VAL6 UVC7 HINT8>
3383 <FRAME '
\1aPROTECT-VAL>
3385 <CALL '
\1aPROTECT-VAL 1>
3386 <FRAME '
\1aPROTECT-USE>
3387 <FRAME '
\1aLOAD-VAR>
3393 <CALL '
\1aLOAD-VAR 4 = NAC10>
3395 <CALL '
\1aPROTECT-USE 1>
3396 <FRAME '
\1aPROTECT-USE>
3397 <FRAME '
\1aLOAD-VAR>
3403 <CALL '
\1aLOAD-VAR 4 = VAC9>
3405 <CALL '
\1aPROTECT-USE 1>
3406 <FRAME '
\1aFINISH-SLOT-CLOBBER>
3417 <CALL '
\1aFINISH-SLOT-CLOBBER 6>
3420 <END
\1aVAR-SLOT-CLOBBER>
3422 <GFCN
\1aNTH-STRING-GEN ("VALUE" ANY ANY ANY ANY "OPTIONAL" ANY) S6 N7 R8 H9>
3423 <OPT-DISPATCH 3 %<> OPT4 OPT5>
3429 <FRAME '
\1aNTH-LOOK-AHEAD>
3430 <PUSH 'NTHUS!-MIMOP>
3436 <CALL '
\1aNTH-LOOK-AHEAD 5 = TEMP11>
3437 <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE13>
3438 <FRAME '
\1aNTH-STRING-GEN-1>
3446 <CALL '
\1aNTH-STRING-GEN-1 4 = TEMP11>
3450 <END
\1aNTH-STRING-GEN>
3452 <GFCN
\1aNTH-BYTE-GEN ("VALUE" ANY ANY ANY ANY "OPTIONAL" ANY) S6 N7 R8 H9>
3453 <OPT-DISPATCH 3 %<> OPT4 OPT5>
3459 <FRAME '
\1aNTH-LOOK-AHEAD>
3460 <PUSH 'NTHUB!-MIMOP>
3466 <CALL '
\1aNTH-LOOK-AHEAD 5 = TEMP11>
3467 <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE13>
3468 <FRAME '
\1aNTH-STRING-GEN-1>
3476 <CALL '
\1aNTH-STRING-GEN-1 4 = TEMP11>
3480 <END
\1aNTH-BYTE-GEN>
3482 <GFCN
\1aNTH-STRING-GEN-1 ("VALUE" ATOM <OR VARTBL STRING BYTES> <OR VARTBL FIX> ANY ANY) SVAR4 NUM5 RES6 TYP7>
3483 <TEMP VAC8 RVAC9 TEMP25>
3485 <TYPE? SVAR4 <TYPE-CODE VARTBL> - PHRASE13>
3486 <FRAME '
\1aLOAD-VAR>
3492 <CALL '
\1aLOAD-VAR 4 = VAC8>
3498 <CALL '
\1aGET-AC 2 = VAC8>
3499 <FRAME '
\1aMOVE-VALUE>
3503 <CALL '
\1aMOVE-VALUE 2>
3505 <FRAME '
\1aPROTECT-USE>
3507 <CALL '
\1aPROTECT-USE 1>
3511 <CALL '
\1aGET-AC 2 = RVAC9>
3514 <CALL '
\1aPROTECT 1>
3515 <TYPE? NUM5 <TYPE-CODE FIX> - PHRASE22>
3521 <SUB NUM5 1 = STACK (TYPE FIX)>
3523 <CALL '
\1aMA-DISP 2 = STACK>
3524 <NTHUV RVAC9 2 = TEMP25 (TYPE FIX)>
3525 <OR TEMP25 #WORD *120* = TEMP25>
3526 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3527 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
3532 <FRAME '
\1aPROTECT-USE>
3533 <FRAME '
\1aLOAD-VAR>
3539 <CALL '
\1aLOAD-VAR 4 = TEMP25>
3541 <CALL '
\1aPROTECT-USE 1>
3544 <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
3545 <OR TEMP25 #WORD *100* = TEMP25>
3546 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3547 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
3553 <CALL '
\1aMA-DISP 2 = STACK>
3554 <NTHUV RVAC9 2 = TEMP25 (TYPE FIX)>
3555 <OR TEMP25 #WORD *120* = TEMP25>
3556 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3557 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
3561 <FRAME '
\1aDEST-DECL>
3568 <CALL '
\1aDEST-DECL 3>
3570 <END
\1aNTH-STRING-GEN-1>
3572 <GFCN
\1aPUT-STRING-GEN ("VALUE" ATOM VARTBL <OR VARTBL FIX> <OR VARTBL CHARACTER FIX> "OPTIONAL" ANY) SVAR6 NUM7 VAL8 INS9>
3573 <OPT-DISPATCH 3 %<> OPT4 OPT5>
3575 <PUSH 'PUTUS!-MIMOP>
3577 <TEMP VAC10 CADDR11 NAC14>
3579 <FRAME '
\1aPROTECT-VAL>
3581 <CALL '
\1aPROTECT-VAL 1>
3582 <FRAME '
\1aLOAD-VAR>
3588 <CALL '
\1aLOAD-VAR 4 = VAC10>
3589 <FRAME '
\1aPROTECT-USE>
3591 <CALL '
\1aPROTECT-USE 1>
3592 <TYPE? VAL8 <TYPE-CODE CHARACTER> - PHRASE19>
3594 <CHTYPE VAL8 <TYPE-CODE FIX> = STACK>
3596 <CALL '
\1aMA-IMM 1 = CADDR11>
3599 <TYPE? VAL8 <TYPE-CODE FIX> - PHRASE21>
3603 <CALL '
\1aMA-IMM 1 = CADDR11>
3606 <FRAME '
\1aVAR-VALUE-IN-AC?>
3608 <CALL '
\1aVAR-VALUE-IN-AC? 1 = CADDR11>
3609 <TYPE? CADDR11 <TYPE-CODE FALSE> + PHRASE25>
3610 <FRAME '
\1aPROTECT-USE>
3612 <CALL '
\1aPROTECT-USE 1>
3613 <NTHUV CADDR11 2 = CADDR11 (TYPE FIX)>
3614 <OR CADDR11 #WORD *120* = CADDR11>
3615 <LSH CADDR11 24 = CADDR11 (TYPE FIX)>
3616 <CHTYPE CADDR11 <TYPE-CODE EFF-ADDR> = CADDR11>
3619 <FRAME '
\1aADDR-VAR-CHAR-VALUE>
3622 <CALL '
\1aADDR-VAR-CHAR-VALUE 1 = CADDR11>
3624 <TYPE? NUM7 <TYPE-CODE FIX> - PHRASE32>
3628 <SUB NUM7 1 = STACK (TYPE FIX)>
3630 <CALL '
\1aMA-DISP 2 = VAC10>
3640 <FRAME '
\1aPROTECT-USE>
3641 <FRAME '
\1aLOAD-VAR>
3647 <CALL '
\1aLOAD-VAR 4 = NAC14>
3649 <CALL '
\1aPROTECT-USE 1>
3654 <CALL '
\1aMA-DISP 2 = VAC10>
3659 <NTHUV NAC14 2 = CADDR11 (TYPE FIX)>
3661 <OR CADDR11 #WORD *100* = CADDR11>
3662 <LSH CADDR11 24 = CADDR11 (TYPE FIX)>
3663 <CHTYPE CADDR11 <TYPE-CODE EFF-ADDR> = STACK>
3669 <END
\1aPUT-STRING-GEN>
3671 <GFCN
\1aPUT-BYTE-GEN ("VALUE" ATOM ANY ANY ANY) SVAR4 OFF5 VAL6>
3674 <FRAME '
\1aPUT-STRING-GEN>
3681 <PUSH 'PUTUB!-MIMOP>
3682 <CALL '
\1aPUT-STRING-GEN 4 = TEMP8>
3685 <END
\1aPUT-BYTE-GEN>
3687 <GFCN
\1aNTH-UVECTOR-GEN ("VALUE" ANY <OR VARTBL UVECTOR> <OR VARTBL FIX> <OR VARTBL ATOM> "OPTIONAL" <OR FALSE HINT>) UVAR6 NUM7 RES8 HINT9>
3688 <OPT-DISPATCH 3 %<> OPT4 OPT5>
3692 <TEMP (NAC15 %<>) TYP10 VAL16 VAC11 TAC12 RVAC14>
3694 <TYPE? UVAR6 <TYPE-CODE UVECTOR> - PHRASE19>
3695 <SET TYP10 'FIX (TYPE ATOM)>
3698 <TYPE? HINT9 <TYPE-CODE FALSE> + PHRASE20>
3699 <FRAME '
\1aPARSE-HINT>
3703 <CALL '
\1aPARSE-HINT 2 = TYP10>
3706 <SET TYP10 'FIX (TYPE ATOM)>
3708 <FRAME '
\1aNTH-LOOK-AHEAD>
3709 <PUSH 'NTHUU!-MIMOP>
3714 <CALL '
\1aNTH-LOOK-AHEAD 5 = VAL16>
3715 <TYPE? VAL16 <TYPE-CODE FALSE> + PHRASE24>
3719 <TYPE? NUM7 <TYPE-CODE FIX> - PHRASE28>
3720 <TYPE? UVAR6 <TYPE-CODE VARTBL> - PHRASE30>
3721 <FRAME '
\1aLOAD-VAR>
3726 <CALL '
\1aLOAD-VAR 4 = VAC11>
3732 <CALL '
\1aGET-AC 2 = VAC11>
3733 <FRAME '
\1aMOVE-VALUE>
3736 <CALL '
\1aMOVE-VALUE 2>
3738 <FRAME '
\1aPROTECT-USE>
3740 <CALL '
\1aPROTECT-USE 1>
3742 <TYPE? TYP10 <TYPE-CODE FALSE> - COND44>
3745 <FRAME '
\1aPROTECT-USE>
3746 <FRAME '
\1aLOAD-VAR>
3751 <CALL '
\1aLOAD-VAR 4 = TAC12>
3753 <CALL '
\1aPROTECT-USE 1>
3754 <FRAME '
\1aEMIT-SHIFT>
3759 <CALL '
\1aEMIT-SHIFT 4>
3760 <FRAME '
\1aADD-TO-AC>
3762 <FRAME '
\1aVAR-VALUE-ADDRESS>
3764 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
3765 <CALL '
\1aADD-TO-AC 2>
3766 <EQUAL? RES8 'STACK - PHRASE45>
3767 <FRAME '
\1aEMIT-PUSH>
3771 <CALL '
\1aMA-DISP 2 = STACK>
3773 <CALL '
\1aEMIT-PUSH 2>
3774 <FRAME '
\1aCLEAR-PUSH>
3776 <CALL '
\1aCLEAR-PUSH 1>
3779 <FRAME '
\1aMOVE-TO-AC>
3784 <CALL '
\1aMA-DISP 2 = STACK>
3786 <CALL '
\1aMOVE-TO-AC 3>
3788 <TYPE? RES8 <TYPE-CODE VARTBL> - PHRASE52>
3793 <CALL '
\1aGET-AC 2 = RVAC14>
3795 <CALL '
\1aPROTECT 1>
3797 <TYPE? NUM7 <TYPE-CODE FIX> - PHRASE56>
3801 <SUB NUM7 1 = VAL16 (TYPE FIX)>
3803 <LSH VAL16 2 = STACK (TYPE FIX)>
3805 <CALL '
\1aMA-DISP 2 = VAC11>
3808 <FRAME '
\1aLOAD-VAR>
3814 <CALL '
\1aLOAD-VAR 4 = NAC15>
3815 <FRAME '
\1aPROTECT-USE>
3817 <CALL '
\1aPROTECT-USE 1>
3818 <TYPE? UVAR6 <TYPE-CODE VARTBL> - PHRASE63>
3819 <FRAME '
\1aLOAD-VAR>
3825 <CALL '
\1aLOAD-VAR 4 = VAC11>
3831 <CALL '
\1aGET-AC 2 = VAC11>
3832 <FRAME '
\1aMOVE-VALUE>
3835 <NTHUV VAC11 2 = VAL16 (TYPE FIX)>
3836 <OR VAL16 #WORD *120* = VAL16>
3837 <LSH VAL16 24 = VAL16 (TYPE FIX)>
3838 <CHTYPE VAL16 <TYPE-CODE EFF-ADDR> = STACK>
3840 <CALL '
\1aMOVE-VALUE 2>
3842 <FRAME '
\1aPROTECT-USE>
3844 <CALL '
\1aPROTECT-USE 1>
3849 <CALL '
\1aMA-DISP 2 = VAC11>
3851 <EQUAL? RES8 'STACK - PHRASE71>
3852 <TYPE? TYP10 <TYPE-CODE FALSE> + PHRASE73>
3853 <FRAME '
\1aEMIT-PUSH>
3854 <FRAME '
\1aTYPE-WORD>
3857 <CALL '
\1aTYPE-WORD 1 = STACK>
3859 <CALL '
\1aEMIT-PUSH 2>
3861 <TYPE? NAC15 <TYPE-CODE FALSE> + PHRASE77>
3864 <NTHUV NAC15 2 = VAL16 (TYPE FIX)>
3866 <OR VAL16 #WORD *100* = VAL16>
3867 <LSH VAL16 24 = VAL16 (TYPE FIX)>
3868 <CHTYPE VAL16 <TYPE-CODE EFF-ADDR> = STACK>
3872 <GVAL 'AC-TP = VAL16>
3873 <NTHUV VAL16 2 = VAL16 (TYPE FIX)>
3874 <OR VAL16 #WORD *200* = VAL16>
3875 <LSH VAL16 24 = VAL16 (TYPE FIX)>
3876 <CHTYPE VAL16 <TYPE-CODE EFF-ADDR> = STACK>
3885 <GVAL 'AC-TP = VAL16>
3886 <NTHUV VAL16 2 = VAL16 (TYPE FIX)>
3887 <OR VAL16 #WORD *200* = VAL16>
3888 <LSH VAL16 24 = VAL16 (TYPE FIX)>
3889 <CHTYPE VAL16 <TYPE-CODE EFF-ADDR> = STACK>
3894 <TYPE? NAC15 <TYPE-CODE FALSE> + PHRASE83>
3897 <NTHUV NAC15 2 = VAL16 (TYPE FIX)>
3899 <OR VAL16 #WORD *100* = VAL16>
3900 <LSH VAL16 24 = VAL16 (TYPE FIX)>
3901 <CHTYPE VAL16 <TYPE-CODE EFF-ADDR> = STACK>
3905 <NTHUV RVAC14 2 = VAL16 (TYPE FIX)>
3906 <OR VAL16 #WORD *120* = VAL16>
3907 <LSH VAL16 24 = VAL16 (TYPE FIX)>
3908 <CHTYPE VAL16 <TYPE-CODE EFF-ADDR> = STACK>
3917 <NTHUV RVAC14 2 = VAL16 (TYPE FIX)>
3918 <OR VAL16 #WORD *120* = VAL16>
3919 <LSH VAL16 24 = VAL16 (TYPE FIX)>
3920 <CHTYPE VAL16 <TYPE-CODE EFF-ADDR> = STACK>
3924 <TYPE? TYP10 <TYPE-CODE FALSE> + PHRASE88>
3925 <FRAME '
\1aDEST-DECL>
3932 <CALL '
\1aDEST-DECL 3>
3935 <FRAME '
\1aDEST-TYPE-VALUE>
3942 <CALL '
\1aDEST-TYPE-VALUE 3>
3945 <END
\1aNTH-UVECTOR-GEN>
3947 <GFCN
\1aPUT-UVECTOR-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL> ANY "OPTIONAL" ANY) VAR6 OFF7 VAL8 HINT9>
3948 <OPT-DISPATCH 3 %<> OPT4 OPT5>
3954 <FRAME '
\1aPUT-VEC-GEN>
3964 <CALL '
\1aPUT-VEC-GEN 5 = TEMP11>
3967 <END
\1aPUT-UVECTOR-GEN>
3969 <GFCN
\1aBACKU-GEN ("VALUE" ATOM ANY ANY ANY "OPTIONAL" ANY) STR6 NUM7 RES8 HINT9>
3970 <OPT-DISPATCH 3 %<> OPT4 OPT5>
3976 <FRAME '
\1aCALL-RTE>
3977 <GVAL 'IBACKU!-MIMOP = STACK>
3987 <CALL '
\1aCALL-RTE 6>
3991 <GFCN
\1aTOPU-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY) STR6 RES7 HINT8>
3992 <OPT-DISPATCH 2 %<> OPT4 OPT5>
3998 <FRAME '
\1aCALL-RTE>
3999 <GVAL 'ITOPU!-MIMOP = STACK>
4007 <CALL '
\1aCALL-RTE 5>
4010 <SETG SAVES <IVECTOR 3 <>>>
4013 <GFCN
\1aMOVE-WORDS-GEN ("VALUE" ANY ANY ANY ANY "TUPLE" ANY) FROM4 TO5 CT6>
4014 <MAKTUP HINTS7 (TYPE8 %<>) TEMP16:VECTOR = HINTS7>
4016 <CHTYPE HINTS7 <TYPE-CODE VECTOR> = TEMP16>
4020 <EMPUV? TEMP16 + MAPAP14>
4021 <NTHUV TEMP16 1 = TYPE8>
4022 <FRAME '
\1aPARSE-HINT>
4026 <CALL '
\1aPARSE-HINT 2 = TYPE8>
4027 <TYPE? TYPE8 <TYPE-CODE FALSE> - MAPAP14>
4028 <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
4031 <TYPE? TYPE8 <TYPE-CODE FALSE> + PHRASE27>
4032 <EQUAL? TYPE8 'VECTOR - PHRASE29>
4034 <SET HINTS7 3 (TYPE FIX)>
4037 <SET HINTS7 2 (TYPE FIX)>
4048 <CALL '
\1aDO-BLT 4 = TYPE8>
4053 <PUSH 'BAD-HINT!-ERRORS>
4056 <PUSH 'MOVE-WORDS-GEN>
4057 <CALL '
\1aERROR 3 = TYPE8>
4060 <END
\1aMOVE-WORDS-GEN>
4062 <GFCN
\1aMOVE-STRING-GEN ("VALUE" ATOM ANY ANY ANY "OPTIONAL" ANY) FROM6 TO7 CT8 HINT9>
4063 <OPT-DISPATCH 3 %<> OPT4 OPT5>
4077 <CALL '
\1aDO-BLT 4 = TEMP11>
4080 <END
\1aMOVE-STRING-GEN>
4082 <GFCN
\1aDO-BLT ("VALUE" ATOM ANY ANY ANY ANY) FROM4 TO5 CT6 SHIFT7>
4083 <TEMP SAVES8 TAC9 TEMP33 TEMP45 TEMP46>
4085 <GVAL 'SAVES = SAVES8>
4086 <TYPE? FROM4 <TYPE-CODE VARTBL> - PHRASE11>
4087 <FRAME '
\1aVAR-VALUE-IN-AC?>
4089 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TAC9>
4090 <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE11>
4091 <FRAME '
\1aSTORE-AC>
4093 <CALL '
\1aSTORE-AC 1>
4096 <CALL '
\1aPROTECT 1>
4097 <PUTUV SAVES8 1 TAC9>
4101 <PUTUV SAVES8 1 %<>>
4103 <TYPE? TO5 <TYPE-CODE VARTBL> - PHRASE17>
4104 <FRAME '
\1aVAR-VALUE-IN-AC?>
4106 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TAC9>
4107 <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE17>
4108 <FRAME '
\1aSTORE-AC>
4110 <CALL '
\1aSTORE-AC 1>
4113 <CALL '
\1aPROTECT 1>
4114 <PUTUV SAVES8 2 TAC9>
4118 <PUTUV SAVES8 2 %<>>
4120 <SET TAC9 %<> (TYPE FALSE)>
4121 <TYPE? CT6 <TYPE-CODE VARTBL> + PHRASE23>
4122 <LSH CT6 SHIFT7 = CT6 (TYPE FIX)>
4126 <GRTR? SHIFT7 0 - PHRASE26>
4127 <FRAME '
\1aLOAD-VAR>
4132 <CALL '
\1aLOAD-VAR 4 = TAC9>
4135 <CALL '
\1aPROTECT 1>
4141 <CALL '
\1aMA-IMM 1 = STACK>
4142 <NTHUV TAC9 2 = TEMP33 (TYPE FIX)>
4143 <OR TEMP33 #WORD *120* = TEMP33>
4144 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
4145 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
4147 <NTHUV TAC9 2 = TEMP33 (TYPE FIX)>
4148 <OR TEMP33 #WORD *120* = TEMP33>
4149 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
4150 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
4153 <PUTUV SAVES8 3 TAC9>
4157 <FRAME '
\1aVAR-VALUE-IN-AC?>
4159 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TAC9>
4160 <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE34>
4161 <FRAME '
\1aSTORE-AC>
4163 <CALL '
\1aSTORE-AC 1>
4166 <CALL '
\1aPROTECT 1>
4167 <PUTUV SAVES8 3 TAC9>
4171 <PUTUV SAVES8 3 %<>>
4173 <GVAL 'AC-0 = TEMP33>
4175 <TYPE TEMP33 = TEMP45>
4176 <LOOP (TEMP33 VALUE) (TEMP45 VALUE) (TAC9 LENGTH VALUE)>
4178 <NTHUV TAC9 1 = TEMP46>
4179 <TYPE? TEMP46 TEMP45 - TAG43>
4180 <VEQUAL? TEMP46 TEMP33 + PHRASE40>
4183 <RESTUV TAC9 1 = TAC9 (TYPE VECTOR)>
4184 <EMPUV? TAC9 - TAG42>
4186 <GVAL 'AC-0 = STACK>
4187 <CALL '
\1aMUNG-AC 1>
4191 <TYPE TAC9 = TEMP33>
4192 <EMPUV? TEMP45 + TAG50>
4193 <LOOP (TAC9 VALUE) (TEMP33 VALUE) (TEMP45 LENGTH VALUE)>
4195 <NTHUV TEMP45 1 = TEMP46>
4196 <TYPE? TEMP46 TEMP33 - TAG52>
4197 <VEQUAL? TEMP46 TAC9 + PHRASE49>
4200 <RESTUV TEMP45 1 = TEMP45 (TYPE VECTOR)>
4201 <EMPUV? TEMP45 - TAG51>
4204 <GVAL 'AC-1 = STACK>
4205 <CALL '
\1aMUNG-AC 1>
4207 <GVAL 'AC-2 = TEMP45>
4209 <TYPE TEMP45 = TAC9>
4210 <EMPUV? TEMP33 + TAG56>
4211 <LOOP (TEMP45 VALUE) (TAC9 VALUE) (TEMP33 LENGTH VALUE)>
4213 <NTHUV TEMP33 1 = TEMP46>
4214 <TYPE? TEMP46 TAC9 - TAG58>
4215 <VEQUAL? TEMP46 TEMP45 + PHRASE55>
4218 <RESTUV TEMP33 1 = TEMP33 (TYPE VECTOR)>
4219 <EMPUV? TEMP33 - TAG57>
4222 <GVAL 'AC-2 = STACK>
4223 <CALL '
\1aMUNG-AC 1>
4225 <GVAL 'AC-3 = TEMP33>
4227 <TYPE TEMP33 = TEMP45>
4228 <EMPUV? TAC9 + TAG62>
4229 <LOOP (TEMP33 VALUE) (TEMP45 VALUE) (TAC9 LENGTH VALUE)>
4231 <NTHUV TAC9 1 = TEMP46>
4232 <TYPE? TEMP46 TEMP45 - TAG64>
4233 <VEQUAL? TEMP46 TEMP33 + PHRASE61>
4236 <RESTUV TAC9 1 = TAC9 (TYPE VECTOR)>
4237 <EMPUV? TAC9 - TAG63>
4240 <GVAL 'AC-3 = STACK>
4241 <CALL '
\1aMUNG-AC 1>
4245 <TYPE TAC9 = TEMP33>
4246 <EMPUV? TEMP45 + TAG68>
4247 <LOOP (TAC9 VALUE) (TEMP33 VALUE) (TEMP45 LENGTH VALUE)>
4249 <NTHUV TEMP45 1 = TEMP46>
4250 <TYPE? TEMP46 TEMP33 - TAG70>
4251 <VEQUAL? TEMP46 TAC9 + PHRASE67>
4254 <RESTUV TEMP45 1 = TEMP45 (TYPE VECTOR)>
4255 <EMPUV? TEMP45 - TAG69>
4258 <GVAL 'AC-4 = STACK>
4259 <CALL '
\1aMUNG-AC 1>
4261 <GVAL 'AC-5 = TEMP45>
4263 <TYPE TEMP45 = TAC9>
4264 <EMPUV? TEMP33 + TAG74>
4265 <LOOP (TEMP45 VALUE) (TAC9 VALUE) (TEMP33 LENGTH VALUE)>
4267 <NTHUV TEMP33 1 = TEMP46>
4268 <TYPE? TEMP46 TAC9 - TAG76>
4269 <VEQUAL? TEMP46 TEMP45 + PHRASE73>
4272 <RESTUV TEMP33 1 = TEMP33 (TYPE VECTOR)>
4273 <EMPUV? TEMP33 - TAG75>
4276 <GVAL 'AC-5 = STACK>
4277 <CALL '
\1aMUNG-AC 1>
4281 <TYPE? CT6 <TYPE-CODE VARTBL> - PHRASE80>
4282 <NTHUV SAVES8 3 = TEMP33>
4283 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE82>
4285 <NTHUV SAVES8 3 = TEMP33 (TYPE AC)>
4286 <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
4287 <OR TEMP33 #WORD *120* = TEMP33>
4288 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
4289 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = TEMP33>
4292 <FRAME '
\1aVAR-VALUE-ADDRESS>
4295 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP33>
4301 <CALL '
\1aMA-IMM 1 = TEMP33>
4305 <TYPE? FROM4 <TYPE-CODE VARTBL> - PHRASE87>
4306 <NTHUV SAVES8 1 = TEMP33>
4307 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE89>
4309 <NTHUV SAVES8 1 = TEMP33 (TYPE AC)>
4310 <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
4311 <OR TEMP33 #WORD *140* = TEMP33>
4312 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
4313 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = TEMP33>
4321 <CALL '
\1aGEN-LOC 3 = TEMP33>
4324 <FRAME '
\1aMA-DEF-DISP>
4325 <GVAL 'AC-M = STACK>
4326 <FRAME '
\1aADD-MVEC>
4329 <CALL '
\1aADD-MVEC 1 = TAC9>
4330 <ADD TAC9 4 = STACK (TYPE FIX)>
4332 <CALL '
\1aMA-DEF-DISP 2 = TEMP33>
4336 <TYPE? TO5 <TYPE-CODE VARTBL> - PHRASE96>
4337 <NTHUV SAVES8 2 = TEMP33>
4338 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE98>
4340 <NTHUV SAVES8 2 = TEMP33 (TYPE AC)>
4341 <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
4342 <OR TEMP33 #WORD *140* = TEMP33>
4343 <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
4344 <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = TEMP33>
4352 <CALL '
\1aGEN-LOC 3 = TEMP33>
4355 <FRAME '
\1aMA-DEF-DISP>
4356 <GVAL 'AC-M = STACK>
4357 <FRAME '
\1aADD-MVEC>
4360 <CALL '
\1aADD-MVEC 1 = TAC9>
4361 <ADD TAC9 4 = STACK (TYPE FIX)>
4363 <CALL '
\1aMA-DEF-DISP 2 = TEMP33>
4368 <SET TEMP33 SAVES8 (TYPE VECTOR)>
4373 <EMPUV? TEMP33 + MAPAP108>
4374 <NTHUV TEMP33 1 = TAC9>
4375 <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE113>
4376 <NTHUV TAC9 2 = SAVES8 (TYPE FIX)>
4377 <GRTR? SAVES8 5 + PHRASE113 (TYPE FIX)>
4382 <CALL '
\1aMUNG-AC 1>
4384 <RESTUV TEMP33 1 = TEMP33 (TYPE VECTOR)>
4390 <GFCN
\1aSTRING-EQUAL?-GEN ("VALUE" ATOM ANY ANY ATOM ATOM) STR14 STR25 DIR6 LABEL7>
4391 <TEMP SAVES9:VECTOR TEMP20 LV11 TEMP88 TEMP89 TEMP90>
4393 <GVAL 'SAVES = SAVES9>
4394 <TYPE? STR14 <TYPE-CODE VARTBL> + PHRASE13>
4395 <TYPE? STR25 <TYPE-CODE VARTBL> + PHRASE13>
4396 <VEQUAL? DIR6 '- - PHRASE16>
4402 <CALL '
\1aN=? 2 = TEMP20>
4403 <VEQUAL? TEMP20 0 + PHRASE22>
4405 <FRAME '
\1aUCBRANCH-GEN>
4410 <CALL '
\1aUCBRANCH-GEN 2>
4411 <RETURN 'UNCONDITIONAL-BRANCH>
4418 <CALL '
\1a=? 2 = TEMP20>
4419 <VEQUAL? TEMP20 0 + PHRASE22>
4421 <FRAME '
\1aUCBRANCH-GEN>
4426 <CALL '
\1aUCBRANCH-GEN 2>
4428 <RETURN 'UNCONDITIONAL-BRANCH>
4430 <TYPE? STR14 <TYPE-CODE VARTBL> - PHRASE27>
4431 <FRAME '
\1aVAR-TYPE-WORD-IN-AC?>
4433 <CALL '
\1aVAR-TYPE-WORD-IN-AC? 1 = TEMP20>
4434 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE27>
4435 <FRAME '
\1aSTORE-AC>
4438 <FRAME '
\1aFIND-CACHE-VAR>
4440 <CALL '
\1aFIND-CACHE-VAR 1 = LV11>
4443 <CALL '
\1aSTORE-AC 3>
4444 <FRAME '
\1aSTORE-AC>
4448 <CALL '
\1aSTORE-AC 2>
4450 <TYPE? STR25 <TYPE-CODE VARTBL> - PHRASE34>
4451 <FRAME '
\1aVAR-TYPE-WORD-IN-AC?>
4453 <CALL '
\1aVAR-TYPE-WORD-IN-AC? 1 = TEMP20>
4454 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE34>
4455 <FRAME '
\1aSTORE-AC>
4458 <FRAME '
\1aFIND-CACHE-VAR>
4460 <CALL '
\1aFIND-CACHE-VAR 1 = LV11>
4463 <CALL '
\1aSTORE-AC 3>
4464 <FRAME '
\1aSTORE-AC>
4468 <CALL '
\1aSTORE-AC 2>
4472 <TYPE? STR14 <TYPE-CODE VARTBL> - PHRASE42>
4473 <FRAME '
\1aVAR-COUNT-ADDRESS>
4475 <CALL '
\1aVAR-COUNT-ADDRESS 1 = TEMP20>
4481 <CALL '
\1aLENGTH 1 = STACK>
4482 <CALL '
\1aMA-IMM 1 = TEMP20>
4486 <TYPE? STR25 <TYPE-CODE VARTBL> - PHRASE49>
4487 <FRAME '
\1aVAR-COUNT-ADDRESS>
4489 <CALL '
\1aVAR-COUNT-ADDRESS 1 = TEMP20>
4495 <CALL '
\1aLENGTH 1 = STACK>
4496 <CALL '
\1aMA-IMM 1 = TEMP20>
4501 <FRAME '
\1aMAKE-LABEL>
4502 <CALL '
\1aMAKE-LABEL 0 = LV11>
4503 <VEQUAL? DIR6 '- - PHRASE56>
4504 <FRAME '
\1aGEN-BRANCH>
4511 <CALL '
\1aGEN-BRANCH 6>
4514 <FRAME '
\1aGEN-BRANCH>
4521 <CALL '
\1aGEN-BRANCH 6>
4523 <PUTUV SAVES9 1 %<>>
4524 <TYPE? STR14 <TYPE-CODE VARTBL> - PHRASE63>
4525 <FRAME '
\1aVAR-COUNT-IN-AC?>
4527 <CALL '
\1aVAR-COUNT-IN-AC? 1 = TEMP20>
4528 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE63>
4531 <CALL '
\1aPROTECT 1>
4532 <PUTUV SAVES9 1 TEMP20>
4535 <NTHUV SAVES9 1 = TEMP20>
4536 <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE70>
4538 <TYPE? STR25 <TYPE-CODE VARTBL> - PHRASE70>
4539 <FRAME '
\1aVAR-COUNT-IN-AC?>
4541 <CALL '
\1aVAR-COUNT-IN-AC? 1 = TEMP20>
4542 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE70>
4545 <CALL '
\1aPROTECT 1>
4546 <PUTUV SAVES9 1 TEMP20>
4549 <TYPE? STR14 <TYPE-CODE VARTBL> - PHRASE74>
4550 <FRAME '
\1aVAR-VALUE-IN-AC?>
4552 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TEMP20>
4553 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE74>
4556 <CALL '
\1aPROTECT 1>
4557 <PUTUV SAVES9 2 TEMP20>
4561 <PUTUV SAVES9 2 %<>>
4563 <TYPE? STR25 <TYPE-CODE VARTBL> - PHRASE79>
4564 <FRAME '
\1aVAR-VALUE-IN-AC?>
4566 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TEMP20>
4567 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE79>
4570 <CALL '
\1aPROTECT 1>
4571 <PUTUV SAVES9 3 TEMP20>
4575 <PUTUV SAVES9 3 %<>>
4577 <GVAL 'AC-0 = TEMP20>
4579 <TYPE TEMP20 = TEMP89>
4580 <LOOP (TEMP20 VALUE) (TEMP89 VALUE) (TEMP88 LENGTH VALUE)>
4582 <NTHUV TEMP88 1 = TEMP90>
4583 <TYPE? TEMP90 TEMP89 - TAG87>
4584 <VEQUAL? TEMP90 TEMP20 + PHRASE84>
4587 <RESTUV TEMP88 1 = TEMP88 (TYPE VECTOR)>
4588 <EMPUV? TEMP88 - TAG86>
4590 <GVAL 'AC-0 = STACK>
4591 <CALL '
\1aMUNG-AC 1>
4594 <FRAME '
\1aSTORE-AC>
4595 <GVAL 'AC-0 = STACK>
4596 <CALL '
\1aSTORE-AC 1>
4598 <GVAL 'AC-1 = TEMP88>
4600 <TYPE TEMP88 = TEMP20>
4601 <EMPUV? TEMP89 + TAG95>
4602 <LOOP (TEMP88 VALUE) (TEMP20 VALUE) (TEMP89 LENGTH VALUE)>
4604 <NTHUV TEMP89 1 = TEMP90>
4605 <TYPE? TEMP90 TEMP20 - TAG97>
4606 <VEQUAL? TEMP90 TEMP88 + PHRASE94>
4609 <RESTUV TEMP89 1 = TEMP89 (TYPE VECTOR)>
4610 <EMPUV? TEMP89 - TAG96>
4613 <GVAL 'AC-1 = STACK>
4614 <CALL '
\1aMUNG-AC 1>
4617 <FRAME '
\1aSTORE-AC>
4618 <GVAL 'AC-1 = STACK>
4619 <CALL '
\1aSTORE-AC 1>
4621 <GVAL 'AC-2 = TEMP89>
4623 <TYPE TEMP89 = TEMP88>
4624 <EMPUV? TEMP20 + TAG102>
4625 <LOOP (TEMP89 VALUE) (TEMP88 VALUE) (TEMP20 LENGTH VALUE)>
4627 <NTHUV TEMP20 1 = TEMP90>
4628 <TYPE? TEMP90 TEMP88 - TAG104>
4629 <VEQUAL? TEMP90 TEMP89 + PHRASE101>
4632 <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
4633 <EMPUV? TEMP20 - TAG103>
4636 <GVAL 'AC-2 = STACK>
4637 <CALL '
\1aMUNG-AC 1>
4640 <FRAME '
\1aSTORE-AC>
4641 <GVAL 'AC-2 = STACK>
4642 <CALL '
\1aSTORE-AC 1>
4644 <GVAL 'AC-3 = TEMP20>
4646 <TYPE TEMP20 = TEMP89>
4647 <EMPUV? TEMP88 + TAG109>
4648 <LOOP (TEMP20 VALUE) (TEMP89 VALUE) (TEMP88 LENGTH VALUE)>
4650 <NTHUV TEMP88 1 = TEMP90>
4651 <TYPE? TEMP90 TEMP89 - TAG111>
4652 <VEQUAL? TEMP90 TEMP20 + PHRASE108>
4655 <RESTUV TEMP88 1 = TEMP88 (TYPE VECTOR)>
4656 <EMPUV? TEMP88 - TAG110>
4659 <GVAL 'AC-3 = STACK>
4660 <CALL '
\1aMUNG-AC 1>
4663 <FRAME '
\1aSTORE-AC>
4664 <GVAL 'AC-3 = STACK>
4665 <CALL '
\1aSTORE-AC 1>
4669 <NTHUV SAVES9 1 = TEMP88>
4670 <TYPE? TEMP88 <TYPE-CODE FALSE> + PHRASE116>
4672 <NTHUV SAVES9 1 = TEMP88 (TYPE AC)>
4673 <NTHUV TEMP88 2 = TEMP88 (TYPE FIX)>
4674 <OR TEMP88 #WORD *120* = TEMP88>
4675 <LSH TEMP88 24 = TEMP88 (TYPE FIX)>
4676 <CHTYPE TEMP88 <TYPE-CODE EFF-ADDR> = TEMP88>
4679 <TYPE? STR14 <TYPE-CODE VARTBL> + PHRASE117>
4683 <CALL '
\1aLENGTH 1 = STACK>
4684 <CALL '
\1aMA-IMM 1 = TEMP88>
4687 <TYPE? STR25 <TYPE-CODE VARTBL> + PHRASE120>
4691 <CALL '
\1aLENGTH 1 = STACK>
4692 <CALL '
\1aMA-IMM 1 = TEMP88>
4695 <FRAME '
\1aVAR-COUNT-ADDRESS>
4697 <CALL '
\1aVAR-COUNT-ADDRESS 1 = TEMP88>
4701 <NTHUV SAVES9 2 = TEMP88>
4702 <TYPE? TEMP88 <TYPE-CODE FALSE> + PHRASE126>
4704 <NTHUV SAVES9 2 = TEMP88 (TYPE AC)>
4705 <NTHUV TEMP88 2 = TEMP88 (TYPE FIX)>
4706 <OR TEMP88 #WORD *140* = TEMP88>
4707 <LSH TEMP88 24 = TEMP88 (TYPE FIX)>
4708 <CHTYPE TEMP88 <TYPE-CODE EFF-ADDR> = TEMP88>
4711 <TYPE? STR14 <TYPE-CODE VARTBL> - PHRASE127>
4717 <CALL '
\1aGEN-LOC 3 = TEMP88>
4720 <FRAME '
\1aMA-DEF-DISP>
4721 <GVAL 'AC-M = STACK>
4722 <FRAME '
\1aADD-MVEC>
4725 <CALL '
\1aADD-MVEC 1 = TEMP89>
4726 <ADD TEMP89 4 = STACK (TYPE FIX)>
4728 <CALL '
\1aMA-DEF-DISP 2 = TEMP88>
4732 <NTHUV SAVES9 3 = TEMP88>
4733 <TYPE? TEMP88 <TYPE-CODE FALSE> + PHRASE133>
4735 <NTHUV SAVES9 3 = TEMP88 (TYPE AC)>
4737 <NTHUV TEMP88 2 = TEMP88 (TYPE FIX)>
4738 <OR TEMP88 #WORD *140* = TEMP88>
4739 <LSH TEMP88 24 = TEMP88 (TYPE FIX)>
4740 <CHTYPE TEMP88 <TYPE-CODE EFF-ADDR> = TEMP88>
4743 <TYPE? STR25 <TYPE-CODE VARTBL> - PHRASE134>
4749 <CALL '
\1aGEN-LOC 3 = TEMP88>
4752 <FRAME '
\1aMA-DEF-DISP>
4753 <GVAL 'AC-M = STACK>
4754 <FRAME '
\1aADD-MVEC>
4757 <CALL '
\1aADD-MVEC 1 = TEMP89>
4758 <ADD TEMP89 4 = STACK (TYPE FIX)>
4760 <CALL '
\1aMA-DEF-DISP 2 = TEMP88>
4766 <GVAL 'AC-0 = STACK>
4767 <CALL '
\1aMUNG-AC 1>
4769 <GVAL 'AC-1 = STACK>
4770 <CALL '
\1aMUNG-AC 1>
4772 <GVAL 'AC-2 = STACK>
4773 <CALL '
\1aMUNG-AC 1>
4775 <GVAL 'AC-3 = STACK>
4776 <CALL '
\1aMUNG-AC 1>
4777 <VEQUAL? DIR6 '- - PHRASE144>
4779 <FRAME '
\1aGEN-BRANCH>
4784 <CALL '
\1aGEN-BRANCH 3>
4787 <FRAME '
\1aGEN-BRANCH>
4792 <CALL '
\1aGEN-BRANCH 3>
4794 <FRAME '
\1aEMIT-LABEL>
4798 <CALL '
\1aEMIT-LABEL 2>
4799 <RETURN 'CONDITIONAL-BRANCH>
4800 <END
\1aSTRING-EQUAL?-GEN>
4802 <GFCN
\1aSTRCOMP-GEN ("VALUE" ATOM ANY ANY ANY) STR14 STR25 RES6>
4803 <TEMP TEMP19 TEMP20 TEMP21 TEMP22 TEMP23 TEMP24>
4805 <TYPE? STR14 <TYPE-CODE VARTBL> + PHRASE13>
4806 <TYPE? STR25 <TYPE-CODE VARTBL> + PHRASE13>
4807 <TYPE? RES6 <TYPE-CODE ATOM> - PHRASE16>
4808 <FRAME '
\1aPUSH-CONSTANT>
4810 <STRCOMP STR14 STR25 = STACK>
4812 <IFCANNOT "STRCOMP">
4817 <LENUS TEMP19 = TEMP21 (TYPE FIX)>
4818 <LENUS TEMP20 = TEMP22 (TYPE FIX)>
4819 <LOOP (TEMP19 VALUE LENGTH) (TEMP20 VALUE LENGTH) (TEMP21 VALUE) (TEMP22 VALUE)>
4821 <NTHUS TEMP19 1 = TEMP23>
4822 <NTHUS TEMP20 1 = TEMP24>
4823 <VEQUAL? TEMP23 TEMP24 - TAG18>
4824 <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
4825 <RESTUS TEMP20 1 = TEMP20 (TYPE STRING)>
4826 <SUB TEMP22 1 = TEMP22 (TYPE FIX)>
4827 <GRTR? TEMP22 0 - TAG26 (TYPE FIX)>
4828 <SUB TEMP21 1 = TEMP21 (TYPE FIX)>
4829 <GRTR? TEMP21 0 + TAG25 (TYPE FIX)>
4833 <SUB TEMP21 1 = TEMP21 (TYPE FIX)>
4834 <VEQUAL TEMP21 0 - TAG28>
4842 <GRTR? TEMP23 TEMP24 - TAG28>
4843 <DEAD TEMP23 TEMP24>
4847 <CALL '
\1aPUSH-CONSTANT 1>
4854 <STRCOMP STR14 STR25 = STACK>
4856 <IFCANNOT "STRCOMP">
4861 <LENUS TEMP20 = TEMP24 (TYPE FIX)>
4862 <LENUS TEMP19 = TEMP23 (TYPE FIX)>
4863 <LOOP (TEMP20 VALUE LENGTH) (TEMP19 VALUE LENGTH) (TEMP24 VALUE) (TEMP23 VALUE)>
4865 <NTHUS TEMP20 1 = TEMP21>
4866 <NTHUS TEMP19 1 = TEMP22>
4867 <VEQUAL? TEMP21 TEMP22 - TAG31>
4868 <RESTUS TEMP20 1 = TEMP20 (TYPE STRING)>
4869 <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
4870 <SUB TEMP23 1 = TEMP23 (TYPE FIX)>
4871 <GRTR? TEMP23 0 - TAG35 (TYPE FIX)>
4872 <SUB TEMP24 1 = TEMP24 (TYPE FIX)>
4873 <GRTR? TEMP24 0 + TAG34 (TYPE FIX)>
4877 <SUB TEMP24 1 = TEMP24 (TYPE FIX)>
4878 <VEQUAL TEMP24 0 - TAG37>
4886 <GRTR? TEMP21 TEMP22 - TAG37>
4887 <DEAD TEMP21 TEMP22>
4891 <CALL '
\1aSET-GEN 2>
4895 <GVAL 'AC-4 = STACK>
4899 <GVAL 'AC-3 = STACK>
4903 <GVAL 'AC-0 = STACK>
4904 <CALL '
\1aMUNG-AC 1>
4906 <GVAL 'AC-1 = STACK>
4907 <CALL '
\1aMUNG-AC 1>
4909 <GVAL 'AC-2 = STACK>
4910 <CALL '
\1aMUNG-AC 1>
4911 <FRAME '
\1aEMIT-MOVE>
4914 <CALL '
\1aMA-IMM 1 = STACK>
4915 <GVAL 'AC-4 = TEMP19>
4916 <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
4917 <OR TEMP19 #WORD *120* = TEMP19>
4918 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
4919 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
4922 <CALL '
\1aEMIT-MOVE 3>
4923 <TYPE? STR14 <TYPE-CODE VARTBL> + PHRASE47>
4927 <CALL '
\1aLENGTH 1 = STACK>
4928 <CALL '
\1aMA-IMM 1 = TEMP19>
4931 <FRAME '
\1aVAR-COUNT-IN-AC?>
4933 <CALL '
\1aVAR-COUNT-IN-AC? 1 = TEMP19>
4934 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE50>
4935 <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
4936 <OR TEMP19 #WORD *120* = TEMP19>
4937 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
4938 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = TEMP19>
4941 <FRAME '
\1aVAR-TYPE-WORD-IN-AC?>
4943 <CALL '
\1aVAR-TYPE-WORD-IN-AC? 1 = TEMP19>
4944 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE54>
4945 <FRAME '
\1aSTORE-AC>
4948 <FRAME '
\1aFIND-CACHE-VAR>
4950 <CALL '
\1aFIND-CACHE-VAR 1 = TEMP20>
4953 <CALL '
\1aSTORE-AC 3>
4954 <FRAME '
\1aSTORE-AC>
4958 <CALL '
\1aSTORE-AC 2>
4960 <FRAME '
\1aVAR-COUNT-ADDRESS>
4962 <CALL '
\1aVAR-COUNT-ADDRESS 1 = TEMP19>
4964 <FRAME '
\1aEMIT-MOVE>
4967 <GVAL 'AC-3 = TEMP19>
4968 <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
4969 <OR TEMP19 #WORD *120* = TEMP19>
4970 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
4971 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
4974 <CALL '
\1aEMIT-MOVE 3>
4977 <GVAL 'AC-3 = TEMP19>
4978 <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
4979 <OR TEMP19 #WORD *120* = TEMP19>
4980 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
4981 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
4983 <TYPE? STR25 <TYPE-CODE VARTBL> + PHRASE63>
4987 <CALL '
\1aLENGTH 1 = STACK>
4988 <CALL '
\1aMA-IMM 1 = TEMP19>
4991 <FRAME '
\1aVAR-COUNT-IN-AC?>
4993 <CALL '
\1aVAR-COUNT-IN-AC? 1 = TEMP19>
4994 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE66>
4995 <NTHUV TEMP19 2 = TEMP20 (TYPE FIX)>
4997 <OR TEMP20 #WORD *120* = TEMP20>
4998 <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
4999 <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = TEMP19>
5003 <FRAME '
\1aVAR-TYPE-WORD-IN-AC?>
5005 <CALL '
\1aVAR-TYPE-WORD-IN-AC? 1 = TEMP19>
5006 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE70>
5007 <FRAME '
\1aSTORE-AC>
5010 <FRAME '
\1aFIND-CACHE-VAR>
5012 <CALL '
\1aFIND-CACHE-VAR 1 = STACK>
5013 <CALL '
\1aSTORE-AC 3>
5014 <FRAME '
\1aSTORE-AC>
5018 <CALL '
\1aSTORE-AC 2>
5020 <FRAME '
\1aVAR-COUNT-ADDRESS>
5022 <CALL '
\1aVAR-COUNT-ADDRESS 1 = TEMP19>
5027 <FRAME '
\1aMAKE-LABEL>
5028 <CALL '
\1aMAKE-LABEL 0 = TEMP20>
5029 <FRAME '
\1aMAKE-LABEL>
5030 <CALL '
\1aMAKE-LABEL 0 = TEMP21>
5031 <FRAME '
\1aGEN-BRANCH>
5038 <CALL '
\1aGEN-BRANCH 6>
5039 <FRAME '
\1aGEN-BRANCH>
5046 <CALL '
\1aGEN-BRANCH 6>
5047 <FRAME '
\1aEMIT-MOVE>
5050 <CALL '
\1aMA-IMM 1 = STACK>
5051 <GVAL 'AC-4 = TEMP19>
5052 <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5053 <OR TEMP19 #WORD *120* = TEMP19>
5054 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5055 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
5058 <CALL '
\1aEMIT-MOVE 3>
5059 <FRAME '
\1aEMIT-MOVE>
5060 <TYPE? STR25 <TYPE-CODE VARTBL> - PHRASE84>
5061 <FRAME '
\1aVAR-COUNT-ADDRESS>
5063 <CALL '
\1aVAR-COUNT-ADDRESS 1 = TEMP19>
5069 <CALL '
\1aLENGTH 1 = STACK>
5070 <CALL '
\1aMA-IMM 1 = TEMP19>
5074 <GVAL 'AC-3 = TEMP19>
5075 <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5076 <OR TEMP19 #WORD *120* = TEMP19>
5077 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5078 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
5081 <CALL '
\1aEMIT-MOVE 3>
5082 <FRAME '
\1aGEN-BRANCH>
5085 <PUSH 'UNCONDITIONAL-BRANCH>
5089 <CALL '
\1aGEN-BRANCH 6>
5090 <FRAME '
\1aEMIT-LABEL>
5094 <CALL '
\1aEMIT-LABEL 2>
5095 <FRAME '
\1aEMIT-MOVE>
5098 <CALL '
\1aMA-IMM 1 = STACK>
5099 <GVAL 'AC-4 = TEMP19>
5100 <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5101 <OR TEMP19 #WORD *120* = TEMP19>
5102 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5103 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
5106 <CALL '
\1aEMIT-MOVE 3>
5107 <FRAME '
\1aEMIT-LABEL>
5111 <CALL '
\1aEMIT-LABEL 2>
5114 <GVAL 'AC-3 = TEMP19>
5115 <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5116 <OR TEMP19 #WORD *120* = TEMP19>
5117 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5118 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
5120 <TYPE? STR14 <TYPE-CODE VARTBL> - PHRASE96>
5121 <FRAME '
\1aVAR-VALUE-IN-AC?>
5123 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TEMP19>
5124 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE98>
5125 <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5126 <OR TEMP19 #WORD *140* = TEMP19>
5127 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5128 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = TEMP19>
5136 <CALL '
\1aGEN-LOC 3 = TEMP19>
5139 <FRAME '
\1aMA-DEF-DISP>
5140 <GVAL 'AC-M = STACK>
5141 <FRAME '
\1aADD-MVEC>
5144 <CALL '
\1aADD-MVEC 1 = TEMP20>
5145 <ADD TEMP20 4 = STACK (TYPE FIX)>
5147 <CALL '
\1aMA-DEF-DISP 2 = TEMP19>
5151 <TYPE? STR25 <TYPE-CODE VARTBL> - PHRASE105>
5152 <FRAME '
\1aVAR-VALUE-IN-AC?>
5154 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TEMP19>
5155 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE107>
5156 <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5157 <OR TEMP19 #WORD *140* = TEMP19>
5158 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5159 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = TEMP19>
5167 <CALL '
\1aGEN-LOC 3 = TEMP19>
5170 <FRAME '
\1aMA-DEF-DISP>
5171 <GVAL 'AC-M = STACK>
5172 <FRAME '
\1aADD-MVEC>
5175 <CALL '
\1aADD-MVEC 1 = TEMP20>
5176 <ADD TEMP20 4 = STACK (TYPE FIX)>
5178 <CALL '
\1aMA-DEF-DISP 2 = TEMP19>
5183 <FRAME '
\1aMAKE-LABEL>
5184 <CALL '
\1aMAKE-LABEL 0 = TEMP20>
5185 <FRAME '
\1aMAKE-LABEL>
5186 <CALL '
\1aMAKE-LABEL 0 = TEMP21>
5187 <FRAME '
\1aGEN-BRANCH>
5194 <CALL '
\1aGEN-BRANCH 6>
5195 <FRAME '
\1aGEN-BRANCH>
5202 <CALL '
\1aGEN-BRANCH 6>
5203 <FRAME '
\1aEMIT-MOVE>
5206 <CALL '
\1aMA-IMM 1 = STACK>
5207 <GVAL 'AC-4 = TEMP19>
5208 <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5209 <OR TEMP19 #WORD *120* = TEMP19>
5210 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5211 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
5214 <CALL '
\1aEMIT-MOVE 3>
5215 <FRAME '
\1aGEN-BRANCH>
5218 <PUSH 'UNCONDITIONAL-BRANCH>
5222 <CALL '
\1aGEN-BRANCH 6>
5223 <FRAME '
\1aEMIT-LABEL>
5227 <CALL '
\1aEMIT-LABEL 2>
5228 <FRAME '
\1aEMIT-MOVE>
5231 <CALL '
\1aMA-IMM 1 = STACK>
5232 <GVAL 'AC-4 = TEMP19>
5233 <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5234 <OR TEMP19 #WORD *120* = TEMP19>
5235 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5236 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
5239 <CALL '
\1aEMIT-MOVE 3>
5240 <FRAME '
\1aEMIT-LABEL>
5244 <CALL '
\1aEMIT-LABEL 2>
5245 <EQUAL? RES6 'STACK - PHRASE125>
5246 <FRAME '
\1aEMIT-PUSH>
5247 <FRAME '
\1aTYPE-WORD>
5249 <CALL '
\1aTYPE-WORD 1 = STACK>
5251 <CALL '
\1aEMIT-PUSH 2>
5252 <FRAME '
\1aEMIT-PUSH>
5253 <GVAL 'AC-4 = TEMP19>
5254 <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5255 <OR TEMP19 #WORD *120* = TEMP19>
5256 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5257 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
5260 <CALL '
\1aEMIT-PUSH 2>
5263 <FRAME '
\1aDEST-DECL>
5264 <GVAL 'AC-4 = STACK>
5268 <CALL '
\1aDEST-DECL 3>
5270 <END
\1aSTRCOMP-GEN>
\r\0\7f