3 <GFCN
\1aGETBITS-GEN ("VALUE" ATOM ANY ANY ANY ANY "OPTIONAL" ANY) FROM8 WIDTH9 SHIFT10 DEST11 HINT12>
4 <OPT-DISPATCH 4 %<> OPT6 OPT7>
10 <EQUAL? DEST11 'STACK - PHRASE15>
14 <CALL '
\1aTYPE-WORD 1 = STACK>
16 <CALL '
\1aEMIT-PUSH 2>
18 <TYPE? FROM8 <TYPE-CODE VARTBL> + PHRASE19>
19 <TYPE? WIDTH9 <TYPE-CODE VARTBL> + PHRASE19>
20 <TYPE? SHIFT10 <TYPE-CODE VARTBL> + PHRASE19>
23 <GETBITS FROM8 WIDTH9 SHIFT10 = STACK>
24 <DEAD FROM8 WIDTH9 SHIFT10>
25 <CALL '
\1aMA-IMM 1 = STACK>
26 <EQUAL? DEST11 'STACK - PHRASE24>
27 <GVAL 'AC-TP = TEMP25>
28 <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
29 <OR TEMP25 128 = TEMP25>
30 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
31 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
34 <FRAME '
\1aVAR-VALUE-ADDRESS>
37 <CALL '
\1aVAR-VALUE-ADDRESS 2 = TEMP25>
42 <CALL '
\1aEMIT-MOVE 3>
45 <TYPE? WIDTH9 <TYPE-CODE FIX> - PHRASE28>
46 <TYPE? SHIFT10 <TYPE-CODE FIX> - PHRASE28>
47 <AND SHIFT10 7 = TEMP25>
48 <VEQUAL? TEMP25 0 - PHRASE28 (TYPE FIX)>
50 <VEQUAL? WIDTH9 8 + BOOL32 (TYPE FIX)>
51 <VEQUAL? WIDTH9 16 - PHRASE28 (TYPE FIX)>
53 <VEQUAL? SHIFT10 0 + BOOL33 (TYPE FIX)>
54 <FRAME '
\1aVAR-VALUE-IN-AC?>
56 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TEMP25>
57 <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE28>
61 <VEQUAL? WIDTH9 8 - PHRASE39 (TYPE FIX)>
63 <SET TEMP25 154 (TYPE FIX)>
66 <SET TEMP25 60 (TYPE FIX)>
70 <VEQUAL? SHIFT10 0 - PHRASE42 (TYPE FIX)>
71 <FRAME '
\1aVAR-VALUE-ADDRESS>
74 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP25>
80 <DIV SHIFT10 8 = TEMP25 (TYPE FIX)>
82 <ADD TEMP25 4 = STACK (TYPE FIX)>
84 <CALL '
\1aGEN-LOC 2 = TEMP25>
88 <EQUAL? DEST11 'STACK - PHRASE50>
89 <GVAL 'AC-TP = TEMP25>
90 <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
91 <OR TEMP25 128 = TEMP25>
92 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
93 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
96 <FRAME '
\1aVAR-VALUE-ADDRESS>
99 <CALL '
\1aVAR-VALUE-ADDRESS 2 = TEMP25>
108 <TYPE? SHIFT10 <TYPE-CODE VARTBL> - PHRASE55>
109 <FRAME '
\1aVAR-VALUE-ADDRESS>
112 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP25>
115 <AND SHIFT10 63 = TEMP25>
117 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
118 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
122 <TYPE? WIDTH9 <TYPE-CODE VARTBL> - PHRASE58>
123 <FRAME '
\1aVAR-VALUE-ADDRESS>
126 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP25>
129 <AND WIDTH9 63 = TEMP25>
131 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
132 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
136 <TYPE? FROM8 <TYPE-CODE VARTBL> - PHRASE61>
137 <FRAME '
\1aVAR-VALUE-ADDRESS>
140 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP25>
146 <CALL '
\1aMA-IMM 1 = TEMP25>
150 <EQUAL? DEST11 'STACK - PHRASE65>
151 <GVAL 'AC-TP = TEMP25>
152 <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
153 <OR TEMP25 128 = TEMP25>
154 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
155 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
158 <FRAME '
\1aVAR-VALUE-ADDRESS>
161 <CALL '
\1aVAR-VALUE-ADDRESS 2 = TEMP25>
167 <EQUAL? DEST11 'STACK + PHRASE73>
168 <FRAME '
\1aVAR-VALUE-IN-AC?>
170 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TEMP25>
171 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE70>
172 <FRAME '
\1aDEST-DECL>
178 <CALL '
\1aDEST-DECL 3>
181 <FRAME '
\1aVARTBL-DECL>
183 <CALL '
\1aVARTBL-DECL 1 = TEMP25>
184 <EQUAL? TEMP25 'FIX + PHRASE73>
186 <FRAME '
\1aINDICATE-VAR-TEMP-DECL>
189 <CALL '
\1aINDICATE-VAR-TEMP-DECL 2>
190 <FRAME '
\1aEMIT-MOVE>
191 <FRAME '
\1aTYPE-CODE>
193 <CALL '
\1aTYPE-CODE 1 = STACK>
194 <FRAME '
\1aVAR-TYPE-ADDRESS>
197 <CALL '
\1aVAR-TYPE-ADDRESS 1 = STACK>
199 <CALL '
\1aEMIT-MOVE 3>
204 <GFCN
\1aPUTBITS-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY "OPTIONAL" ANY) TO8 WIDTH9 SHIFT10 FROM11 DEST12 HINT13>
205 <OPT-DISPATCH 5 %<> OPT6 OPT7>
209 <TEMP (TAC18 %<>) (ZERO?19 %<>) TEMP31 FROMOP17 RD14>
211 <TYPE? TO8 <TYPE-CODE VARTBL> + PHRASE21>
212 <TYPE? WIDTH9 <TYPE-CODE VARTBL> + PHRASE21>
213 <TYPE? SHIFT10 <TYPE-CODE VARTBL> + PHRASE21>
214 <TYPE? FROM11 <TYPE-CODE VARTBL> + PHRASE21>
215 <EQUAL? DEST12 'STACK - PHRASE24>
216 <FRAME '
\1aEMIT-PUSH>
217 <FRAME '
\1aTYPE-WORD>
219 <CALL '
\1aTYPE-WORD 1 = STACK>
221 <CALL '
\1aEMIT-PUSH 2>
223 <FRAME '
\1aEMIT-MOVE>
225 <PUTBITS TO8 WIDTH9 SHIFT10 FROM11 = STACK>
226 <DEAD TO8 WIDTH9 SHIFT10 FROM11>
227 <CALL '
\1aMA-IMM 1 = STACK>
228 <EQUAL? DEST12 'STACK - PHRASE30>
229 <GVAL 'AC-TP = TEMP31>
230 <NTHUV TEMP31 2 = TEMP31 (TYPE FIX)>
231 <OR TEMP31 128 = TEMP31>
232 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
233 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = TEMP31>
236 <FRAME '
\1aVAR-VALUE-ADDRESS>
240 <CALL '
\1aVAR-VALUE-ADDRESS 2 = TEMP31>
245 <CALL '
\1aEMIT-MOVE 3>
248 <EQUAL? DEST12 'STACK - PHRASE35>
249 <FRAME '
\1aEMIT-PUSH>
250 <FRAME '
\1aTYPE-WORD>
252 <CALL '
\1aTYPE-WORD 1 = STACK>
254 <CALL '
\1aEMIT-PUSH 2>
255 <FRAME '
\1aEMIT-PUSH>
256 <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE40>
257 <FRAME '
\1aVAR-VALUE-ADDRESS>
259 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP31>
264 <CALL '
\1aMA-IMM 1 = TEMP31>
269 <CALL '
\1aEMIT-PUSH 2>
271 <TYPE? WIDTH9 <TYPE-CODE FIX> - PHRASE44>
272 <VEQUAL? WIDTH9 8 + BOOL46 (TYPE FIX)>
273 <VEQUAL? WIDTH9 16 - PHRASE44 (TYPE FIX)>
275 <TYPE? SHIFT10 <TYPE-CODE FIX> - PHRASE44>
276 <AND SHIFT10 7 = TEMP31>
277 <VEQUAL? TEMP31 0 - PHRASE44 (TYPE FIX)>
279 <VEQUAL? SHIFT10 0 + BOOL49 (TYPE FIX)>
280 <EQUAL? DEST12 'STACK + BOOL49>
281 <FRAME '
\1aVAR-VALUE-IN-AC?>
283 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TEMP31>
284 <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE44>
286 <EQUAL? FROM11 DEST12 + PHRASE44>
288 <EQUAL? TO8 0 - PHRASE55>
289 <VEQUAL? SHIFT10 0 - PHRASE55 (TYPE FIX)>
290 <SET ZERO?19 'T (TYPE ATOM)>
293 <EQUAL? FROM11 DEST12 - PHRASE59>
297 <CALL '
\1aGET-AC 2 = TAC18>
298 <FRAME '
\1aEMIT-MOVE>
299 <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE63>
300 <FRAME '
\1aVAR-VALUE-ADDRESS>
303 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP31>
309 <CALL '
\1aMA-IMM 1 = TEMP31>
313 <NTHUV TAC18 2 = TEMP31 (TYPE FIX)>
314 <OR TEMP31 80 = TEMP31>
315 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
316 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
319 <CALL '
\1aEMIT-MOVE 3>
322 <EQUAL? DEST12 'STACK + PHRASE67>
323 <EQUAL? TO8 DEST12 + PHRASE67>
324 <FRAME '
\1aEMIT-MOVE>
325 <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE71>
326 <FRAME '
\1aVAR-VALUE-ADDRESS>
329 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP31>
335 <CALL '
\1aMA-IMM 1 = TEMP31>
339 <FRAME '
\1aVAR-VALUE-ADDRESS>
342 <CALL '
\1aVAR-VALUE-ADDRESS 2 = STACK>
344 <CALL '
\1aEMIT-MOVE 3>
347 <TYPE? ZERO?19 <TYPE-CODE FALSE> + PHRASE78>
349 <VEQUAL? WIDTH9 8 - PHRASE80 (TYPE FIX)>
351 <SET TEMP31 154 (TYPE FIX)>
354 <SET TEMP31 60 (TYPE FIX)>
357 <VEQUAL? WIDTH9 8 - PHRASE82 (TYPE FIX)>
359 <SET TEMP31 144 (TYPE FIX)>
362 <SET TEMP31 176 (TYPE FIX)>
366 <TYPE? FROM11 <TYPE-CODE VARTBL> - PHRASE84>
367 <FRAME '
\1aVAR-VALUE-ADDRESS>
370 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP31>
376 <CALL '
\1aMA-IMM 1 = TEMP31>
380 <EQUAL? DEST12 'STACK - PHRASE89>
382 <GVAL 'AC-TP = STACK>
383 <DIV SHIFT10 8 = TEMP31 (TYPE FIX)>
385 <SUB -4 TEMP31 = STACK (TYPE FIX)>
387 <CALL '
\1aMA-DISP 2 = TEMP31>
390 <TYPE? TAC18 <TYPE-CODE FALSE> + PHRASE91>
391 <NTHUV TAC18 2 = ZERO?19 (TYPE FIX)>
392 <OR ZERO?19 80 = ZERO?19>
393 <LSH ZERO?19 24 = ZERO?19 (TYPE FIX)>
394 <CHTYPE ZERO?19 <TYPE-CODE EFF-ADDR> = TEMP31>
398 <FRAME '
\1aVAR-VALUE-IN-AC?>
400 <CALL '
\1aVAR-VALUE-IN-AC? 1 = ZERO?19>
401 <TYPE? ZERO?19 <TYPE-CODE FALSE> + PHRASE93>
403 <FRAME '
\1aVAR-VALUE-ADDRESS>
406 <CALL '
\1aVAR-VALUE-ADDRESS 2 = TEMP31>
411 <DIV SHIFT10 8 = ZERO?19 (TYPE FIX)>
413 <ADD ZERO?19 4 = STACK (TYPE FIX)>
415 <CALL '
\1aGEN-LOC 2 = TEMP31>
420 <TYPE? TAC18 <TYPE-CODE FALSE> + PHRASE99>
421 <FRAME '
\1aDEST-DECL>
427 <CALL '
\1aDEST-DECL 3>
430 <FRAME '
\1aVARTBL-DECL>
432 <CALL '
\1aVARTBL-DECL 1 = TEMP31>
433 <EQUAL? TEMP31 'FIX + PHRASE107>
435 <FRAME '
\1aINDICATE-VAR-TEMP-DECL>
438 <CALL '
\1aINDICATE-VAR-TEMP-DECL 2>
439 <FRAME '
\1aEMIT-MOVE>
440 <FRAME '
\1aTYPE-CODE>
442 <CALL '
\1aTYPE-CODE 1 = STACK>
443 <FRAME '
\1aVAR-TYPE-ADDRESS>
446 <CALL '
\1aVAR-TYPE-ADDRESS 1 = STACK>
448 <CALL '
\1aEMIT-MOVE 3>
451 <TYPE? WIDTH9 <TYPE-CODE VARTBL> - PHRASE109>
452 <FRAME '
\1aVAR-VALUE-ADDRESS>
455 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TAC18>
458 <AND WIDTH9 63 = TEMP31>
460 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
461 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = TAC18>
464 <TYPE? SHIFT10 <TYPE-CODE VARTBL> - PHRASE112>
465 <FRAME '
\1aVAR-VALUE-ADDRESS>
468 <CALL '
\1aVAR-VALUE-ADDRESS 1 = ZERO?19>
471 <AND SHIFT10 63 = TEMP31>
473 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
474 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = ZERO?19>
477 <TYPE? FROM11 <TYPE-CODE VARTBL> - PHRASE115>
478 <FRAME '
\1aVAR-VALUE-ADDRESS>
480 <CALL '
\1aVAR-VALUE-ADDRESS 1 = FROMOP17>
481 <FRAME '
\1aVAR-VALUE-IN-AC?>
484 <CALL '
\1aVAR-VALUE-IN-AC? 1 = RD14>
485 <TYPE? RD14 <TYPE-CODE FALSE> + PHRASE121>
495 <CALL '
\1aMA-IMM 1 = FROMOP17>
497 <EQUAL? DEST12 'STACK - PHRASE124>
498 <GVAL 'AC-TP = TEMP31>
499 <NTHUV TEMP31 2 = TEMP31 (TYPE FIX)>
500 <OR TEMP31 160 = TEMP31>
501 <LSH TEMP31 8 = TEMP31 (TYPE FIX)>
502 <OR TEMP31 252 = TEMP31>
503 <LSH TEMP31 16 = TEMP31 (TYPE FIX)>
504 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = RD14>
508 <EQUAL? DEST12 TO8 - PHRASE125>
509 <FRAME '
\1aVAR-VALUE-ADDRESS>
512 <CALL '
\1aVAR-VALUE-ADDRESS 1 = RD14>
515 <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE127>
516 <FRAME '
\1aVAR-VALUE-IN-AC?>
518 <CALL '
\1aVAR-VALUE-IN-AC? 1 = RD14>
519 <TYPE? RD14 <TYPE-CODE FALSE> + PHRASE127>
523 <FRAME '
\1aDEST-DECL>
528 <CALL '
\1aDEST-DECL 3>
529 <NTHUV RD14 2 = TEMP31 (TYPE FIX)>
531 <OR TEMP31 80 = TEMP31>
532 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
533 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = RD14>
540 <CALL '
\1aGET-AC 2 = RD14>
541 <TYPE? RD14 <TYPE-CODE FALSE> + PHRASE132>
542 <FRAME '
\1aDEST-DECL>
547 <CALL '
\1aDEST-DECL 3>
550 <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE137>
551 <FRAME '
\1aVAR-VALUE-ADDRESS>
554 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP31>
560 <CALL '
\1aMA-IMM 1 = TEMP31>
564 <NTHUV RD14 2 = TEMP31 (TYPE FIX)>
566 <OR TEMP31 80 = TEMP31>
567 <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
568 <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = RD14>
586 <END
\1aPUTBITS-GEN>
\r\0\r\0
588 <GFCN
\1aARITH-GEN ("VALUE" ATOM FIX FIX <OR FIX FLOAT VARTBL> <OR FIX FLOAT VARTBL> <OR ATOM VARTBL> <OR ATOM FALSE> ANY ANY) OP-2-ARG5 OP-3-ARG6 OP17 OP28 DEST9 COMMUTE10 MUD11 TYP12>
589 <TEMP (USE-314 %<>) (VAC15 %<>) TMP13 TEMP40>
591 <TYPE? OP17 <TYPE-CODE FIX> + TAG19>
592 <TYPE? OP17 <TYPE-CODE FLOAT> - PHRASE17>
594 <TYPE? OP28 <TYPE-CODE FIX> + TAG20>
595 <TYPE? OP28 <TYPE-CODE FLOAT> - PHRASE17>
600 <CALL '
\1aGET-AC 2 = VAC15>
601 <FRAME '
\1aLOAD-CONSTANT>
608 <ACALL MUD11 2 = STACK>
610 <CALL '
\1aLOAD-CONSTANT 2>
614 <TYPE? TMP13 <TYPE-CODE FIX> + TAG28>
615 <TYPE? TMP13 <TYPE-CODE FLOAT> - PHRASE26>
617 <TYPE? COMMUTE10 <TYPE-CODE FALSE> + PHRASE26>
622 <EQUAL? DEST9 'STACK - PHRASE30>
623 <SET USE-314 'T (TYPE ATOM)>
624 <FRAME '
\1aEMIT-PUSH>
625 <FRAME '
\1aTYPE-WORD>
627 <CALL '
\1aTYPE-WORD 1 = STACK>
629 <CALL '
\1aEMIT-PUSH 2>
632 <TYPE? OP17 <TYPE-CODE FIX> + TAG34>
633 <TYPE? OP17 <TYPE-CODE FLOAT> - PHRASE33>
635 <SET USE-314 'T (TYPE ATOM)>
638 <FRAME '
\1aVAR-VALUE-IN-AC?>
640 <CALL '
\1aVAR-VALUE-IN-AC? 1 = VAC15>
641 <TYPE? VAC15 <TYPE-CODE FALSE> + BOOL44>
642 <FRAME '
\1aAVAILABLE?>
644 <CALL '
\1aAVAILABLE? 1 = TEMP40>
645 <TYPE? TEMP40 <TYPE-CODE FALSE> + BOOL38>
652 <EQUAL? OP17 DEST9 - BOOL44>
653 <NTHUV VAC15 8 = TEMP40 (TYPE VECTOR)>
654 <LENUV TEMP40 = TEMP40 (TYPE FIX)>
655 <VEQUAL? TEMP40 1 + PHRASE58 (TYPE FIX)>
658 <TYPE? OP28 <TYPE-CODE VARTBL> - PHRASE48>
659 <FRAME '
\1aVAR-VALUE-IN-AC?>
661 <CALL '
\1aVAR-VALUE-IN-AC? 1 = VAC15>
662 <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE48>
663 <FRAME '
\1aAVAILABLE?>
665 <CALL '
\1aAVAILABLE? 1 = TEMP40>
666 <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE48>
671 <TYPE? COMMUTE10 <TYPE-CODE FALSE> + PHRASE54>
679 <SET USE-314 'T (TYPE ATOM)>
682 <SET VAC15 %<> (TYPE FALSE)>
683 <EQUAL? OP17 DEST9 + PHRASE58>
684 <SET USE-314 'T (TYPE ATOM)>
686 <TYPE? OP28 <TYPE-CODE FIX> - PHRASE67>
687 <LESS? OP28 0 - PHRASE67 (TYPE FIX)>
688 <GRTR? OP28 -64 - PHRASE67 (TYPE FIX)>
689 <VEQUAL? OP-2-ARG5 194 + BOOL64 (TYPE FIX)>
690 <VEQUAL? OP-2-ARG5 192 - PHRASE67 (TYPE FIX)>
692 <SUB 0 OP28 = OP28 (TYPE FIX)>
693 <VEQUAL? OP-2-ARG5 194 - PHRASE66 (TYPE FIX)>
695 <SET OP-2-ARG5 192 (TYPE FIX)>
696 <SET OP-3-ARG6 193 (TYPE FIX)>
699 <SET OP-2-ARG5 194 (TYPE FIX)>
700 <SET OP-3-ARG6 195 (TYPE FIX)>
702 <VEQUAL? USE-314 0 + PHRASE69>
703 <EQUAL? OP17 0 + BOOL71>
704 <EQUAL? OP17 0.0 + BOOL71>
705 <EQUAL? OP17 -1 - PHRASE69>
707 <VEQUAL? OP-2-ARG5 194 - BOOL73 (TYPE FIX)>
708 <EQUAL? OP17 -1 - BOOL75>
710 <SET OP-2-ARG5 210 (TYPE FIX)>
713 <SET OP-2-ARG5 206 (TYPE FIX)>
716 <VEQUAL? OP-2-ARG5 66 - PHRASE69 (TYPE FIX)>
717 <SET OP-2-ARG5 82 (TYPE FIX)>
722 <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE79>
723 <NTHUV VAC15 2 = TEMP40 (TYPE FIX)>
724 <OR TEMP40 80 = TEMP40>
725 <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
726 <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = TEMP40>
729 <FRAME '
\1aVAR-VALUE-ADDRESS>
732 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP40>
736 <EQUAL? DEST9 'STACK - PHRASE83>
737 <SET VAC15 %<> (TYPE FALSE)>
738 <GVAL 'AC-TP = TEMP40>
739 <NTHUV TEMP40 2 = TEMP40 (TYPE FIX)>
740 <OR TEMP40 128 = TEMP40>
741 <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
742 <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = TEMP40>
745 <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE84>
746 <NTHUV VAC15 2 = USE-314 (TYPE FIX)>
747 <OR USE-314 80 = USE-314>
748 <LSH USE-314 24 = USE-314 (TYPE FIX)>
749 <CHTYPE USE-314 <TYPE-CODE EFF-ADDR> = TEMP40>
756 <CALL '
\1aGET-AC 2 = VAC15>
757 <NTHUV VAC15 2 = USE-314 (TYPE FIX)>
758 <OR USE-314 80 = USE-314>
759 <LSH USE-314 24 = USE-314 (TYPE FIX)>
760 <CHTYPE USE-314 <TYPE-CODE EFF-ADDR> = TEMP40>
768 <EQUAL? OP28 1 - PHRASE88>
769 <VEQUAL? USE-314 0 + BOOL90>
770 <EQUAL? DEST9 OP17 - PHRASE88>
772 <VEQUAL? OP-2-ARG5 192 - BOOL92 (TYPE FIX)>
773 <SET OP-2-ARG5 214 (TYPE FIX)>
776 <VEQUAL? OP-2-ARG5 194 - PHRASE88 (TYPE FIX)>
777 <SET OP-2-ARG5 215 (TYPE FIX)>
779 <TYPE? VAC15 <TYPE-CODE FALSE> - PHRASE95>
780 <FRAME '
\1aVAR-VALUE-IN-AC?>
782 <CALL '
\1aVAR-VALUE-IN-AC? 1 = VAC15>
783 <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE95>
791 <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE101>
792 <NTHUV VAC15 2 = USE-314 (TYPE FIX)>
793 <OR USE-314 80 = USE-314>
794 <LSH USE-314 24 = USE-314 (TYPE FIX)>
795 <CHTYPE USE-314 <TYPE-CODE EFF-ADDR> = USE-314>
798 <FRAME '
\1aVAR-VALUE-ADDRESS>
801 <CALL '
\1aVAR-VALUE-ADDRESS 1 = USE-314>
808 <VEQUAL? USE-314 0 + PHRASE104>
813 <TYPE? OP28 <TYPE-CODE FIX> - PHRASE107>
817 <CALL '
\1aMA-IMM 1 = USE-314>
820 <TYPE? OP28 <TYPE-CODE FLOAT> - PHRASE109>
821 <FRAME '
\1aFLOAT-IMM>
822 <FRAME '
\1aFLOATCONVERT>
825 <CALL '
\1aFLOATCONVERT 1 = STACK>
826 <CALL '
\1aFLOAT-IMM 1 = USE-314>
829 <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE112>
830 <NTHUV VAC15 2 = TEMP40 (TYPE FIX)>
831 <OR TEMP40 80 = TEMP40>
832 <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
833 <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = USE-314>
837 <FRAME '
\1aVAR-VALUE-ADDRESS>
840 <CALL '
\1aVAR-VALUE-ADDRESS 1 = USE-314>
844 <TYPE? OP17 <TYPE-CODE FIX> - PHRASE116>
848 <CALL '
\1aMA-IMM 1 = USE-314>
851 <TYPE? OP17 <TYPE-CODE FLOAT> - PHRASE118>
852 <FRAME '
\1aFLOAT-IMM>
853 <FRAME '
\1aFLOATCONVERT>
856 <CALL '
\1aFLOATCONVERT 1 = STACK>
857 <CALL '
\1aFLOAT-IMM 1 = USE-314>
860 <FRAME '
\1aVAR-VALUE-ADDRESS>
863 <CALL '
\1aVAR-VALUE-ADDRESS 1 = USE-314>
867 <EQUAL? DEST9 'STACK - PHRASE124>
868 <SET VAC15 %<> (TYPE FALSE)>
869 <GVAL 'AC-TP = USE-314>
870 <NTHUV USE-314 2 = USE-314 (TYPE FIX)>
871 <OR USE-314 128 = USE-314>
872 <LSH USE-314 24 = USE-314 (TYPE FIX)>
873 <CHTYPE USE-314 <TYPE-CODE EFF-ADDR> = USE-314>
876 <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE125>
877 <NTHUV VAC15 2 = TEMP40 (TYPE FIX)>
878 <OR TEMP40 80 = TEMP40>
879 <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
880 <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = USE-314>
887 <CALL '
\1aGET-AC 2 = VAC15>
888 <NTHUV VAC15 2 = TEMP40 (TYPE FIX)>
889 <OR TEMP40 80 = TEMP40>
890 <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
891 <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = USE-314>
899 <TYPE? VAC15 <TYPE-CODE FALSE> - PHRASE130>
900 <FRAME '
\1aVAR-VALUE-IN-AC?>
902 <CALL '
\1aVAR-VALUE-IN-AC? 1 = VAC15>
903 <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE130>
911 <TYPE? OP28 <TYPE-CODE FIX> - PHRASE136>
915 <CALL '
\1aMA-IMM 1 = USE-314>
918 <TYPE? OP28 <TYPE-CODE FLOAT> - PHRASE138>
919 <FRAME '
\1aFLOAT-IMM>
920 <FRAME '
\1aFLOATCONVERT>
923 <CALL '
\1aFLOATCONVERT 1 = STACK>
924 <CALL '
\1aFLOAT-IMM 1 = USE-314>
927 <FRAME '
\1aVAR-VALUE-ADDRESS>
930 <CALL '
\1aVAR-VALUE-ADDRESS 1 = USE-314>
934 <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE144>
935 <NTHUV VAC15 2 = USE-314 (TYPE FIX)>
936 <OR USE-314 80 = USE-314>
937 <LSH USE-314 24 = USE-314 (TYPE FIX)>
938 <CHTYPE USE-314 <TYPE-CODE EFF-ADDR> = USE-314>
941 <FRAME '
\1aVAR-VALUE-ADDRESS>
944 <CALL '
\1aVAR-VALUE-ADDRESS 1 = USE-314>
950 <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE148>
951 <FRAME '
\1aDEST-DECL>
958 <CALL '
\1aDEST-DECL 3>
963 <GFCN
\1aADDFIX-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
964 <OPT-DISPATCH 3 %<> OPT6 OPT7>
970 <FRAME '
\1aARITH-GEN>
982 <CALL '
\1aARITH-GEN 8 = TEMP13>
987 <GFCN
\1aLESSFIX-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE FIX>> <OR VARTBL <PRIMTYPE FIX>> ATOM ATOM "OPTIONAL" ANY) VAL18 VAL29 DIR10 LABEL11 HINT12>
988 <OPT-DISPATCH 4 %<> OPT6 OPT7>
994 <TYPE? HINT12 <TYPE-CODE FALSE> + PHRASE15>
995 <FRAME '
\1aPARSE-HINT>
999 <CALL '
\1aPARSE-HINT 2 = TYP13>
1001 <TYPE? TYP13 <TYPE-CODE FALSE> - PHRASE18>
1002 <TYPE? VAL18 <TYPE-CODE VARTBL> + BOOL20>
1003 <VEQUAL? VAL18 0 + PHRASE18 (TYPE FIX)>
1005 <TYPE? VAL29 <TYPE-CODE VARTBL> + BOOL23>
1006 <VEQUAL? VAL29 0 + PHRASE18 (TYPE FIX)>
1008 <SET TYP13 'FIX (TYPE ATOM)>
1010 <FRAME '
\1aCOMP-GEN>
1022 <CALL '
\1aCOMP-GEN 6 = TYP13>
1025 <END
\1aLESSFIX-GEN>
1027 <GFCN
\1aGTFIX-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE FIX>> <OR VARTBL <PRIMTYPE FIX>> ATOM ATOM "OPTIONAL" ANY) VAL18 VAL29 DIR10 LABEL11 HINT12>
1028 <OPT-DISPATCH 4 %<> OPT6 OPT7>
1034 <TYPE? HINT12 <TYPE-CODE FALSE> + PHRASE15>
1035 <FRAME '
\1aPARSE-HINT>
1039 <CALL '
\1aPARSE-HINT 2 = TYP13>
1041 <TYPE? TYP13 <TYPE-CODE FALSE> - PHRASE18>
1042 <TYPE? VAL18 <TYPE-CODE VARTBL> + BOOL20>
1043 <VEQUAL? VAL18 0 + PHRASE18 (TYPE FIX)>
1045 <TYPE? VAL29 <TYPE-CODE VARTBL> + BOOL23>
1046 <VEQUAL? VAL29 0 + PHRASE18 (TYPE FIX)>
1048 <SET TYP13 'FIX (TYPE ATOM)>
1050 <FRAME '
\1aCOMP-GEN>
1062 <CALL '
\1aCOMP-GEN 6 = TYP13>
1067 <GFCN
\1aVEQUAL-GEN ("VALUE" ATOM ANY ANY ATOM ATOM "OPTIONAL" ANY) VAL18 VAL29 DIR10 LABEL11 HINT12>
1068 <OPT-DISPATCH 4 %<> OPT6 OPT7>
1074 <TYPE? HINT12 <TYPE-CODE FALSE> + PHRASE15>
1075 <FRAME '
\1aPARSE-HINT>
1079 <CALL '
\1aPARSE-HINT 2 = TYP13>
1081 <TYPE? TYP13 <TYPE-CODE FALSE> - PHRASE18>
1082 <SET TYP13 'FIX (TYPE ATOM)>
1084 <FRAME '
\1aCOMP-GEN>
1096 <CALL '
\1aCOMP-GEN 6 = TYP13>
1101 <GFCN
\1aEQUAL-GEN ("VALUE" ATOM VARTBL ANY ATOM ATOM) VAL15 VAL26 DIR7 LABEL8>
1102 <TEMP ELABEL12 DCL10 DCL115>
1104 <FRAME '
\1aMAKE-LABEL>
1106 <CALL '
\1aMAKE-LABEL 1 = ELABEL12>
1107 <TYPE? VAL26 <TYPE-CODE VARTBL> - PHRASE20>
1108 <FRAME '
\1aVARTBL-DECL>
1110 <CALL '
\1aVARTBL-DECL 1 = DCL10>
1111 <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE22>
1112 <FRAME '
\1aVARTBL-DECL>
1114 <CALL '
\1aVARTBL-DECL 1 = DCL115>
1115 <TYPE? DCL115 <TYPE-CODE FALSE> + PHRASE22>
1116 <FRAME '
\1aCLEAN-DECL>
1119 <CALL '
\1aCLEAN-DECL 1 = DCL10>
1120 <FRAME '
\1aCLEAN-DECL>
1123 <CALL '
\1aCLEAN-DECL 1 = DCL115>
1124 <EQUAL? DCL10 DCL115 - PHRASE22>
1126 <FRAME '
\1aVEQUAL-GEN>
1135 <CALL '
\1aVEQUAL-GEN 4>
1138 <FRAME '
\1aVAR-EQUAL-GEN>
1149 <CALL '
\1aVAR-EQUAL-GEN 5>
1152 <FRAME '
\1aVARTBL-DECL>
1154 <CALL '
\1aVARTBL-DECL 1 = DCL10>
1155 <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE33>
1156 <FRAME '
\1aCLEAN-DECL>
1159 <CALL '
\1aCLEAN-DECL 1 = DCL115>
1162 <CALL '
\1aTYPE 1 = DCL10>
1163 <EQUAL? DCL115 DCL10 - PHRASE36>
1165 <FRAME '
\1aSAFE-TYPE-WORD?>
1167 <CALL '
\1aSAFE-TYPE-WORD? 1 = DCL10>
1168 <TYPE? DCL10 <TYPE-CODE FALSE> - PHRASE36>
1170 <FRAME '
\1aVEQUAL-GEN>
1179 <CALL '
\1aVEQUAL-GEN 4>
1188 <FRAME '
\1aFIX-CONSTANT?>
1190 <CALL '
\1aFIX-CONSTANT? 1 = DCL10>
1191 <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE43>
1192 <FRAME '
\1aGEN-COMP-INST>
1193 <FRAME '
\1aVAR-VALUE-ADDRESS>
1195 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
1199 <CALL '
\1aMA-IMM 1 = STACK>
1201 <CALL '
\1aGEN-COMP-INST 3>
1202 <FRAME '
\1aVAR-TYPE-ADDRESS>
1205 <CALL '
\1aVAR-TYPE-ADDRESS 1 = DCL10>
1206 <VEQUAL? DIR7 '- - PHRASE50>
1207 <FRAME '
\1aGEN-BRANCH>
1211 <CALL '
\1aGEN-BRANCH 3>
1214 <FRAME '
\1aGEN-BRANCH>
1218 <CALL '
\1aGEN-BRANCH 3>
1220 <FRAME '
\1aGEN-COMP-INST>
1223 <FRAME '
\1aTYPE-CODE>
1227 <CALL '
\1aTYPE 1 = STACK>
1229 <CALL '
\1aTYPE-CODE 2 = STACK>
1231 <CALL '
\1aGEN-COMP-INST 3>
1232 <VEQUAL? DIR7 '- - PHRASE57>
1234 <FRAME '
\1aGEN-BRANCH>
1239 <CALL '
\1aGEN-BRANCH 3>
1242 <FRAME '
\1aGEN-BRANCH>
1247 <CALL '
\1aGEN-BRANCH 3>
1249 <FRAME '
\1aGEN-LABEL>
1253 <CALL '
\1aGEN-LABEL 2>
1256 <FRAME '
\1aVAR-VALUE-IN-AC?>
1258 <CALL '
\1aVAR-VALUE-IN-AC? 1 = DCL10>
1259 <FRAME '
\1aVAR-TYPE-WORD-IN-AC?>
1261 <CALL '
\1aVAR-TYPE-WORD-IN-AC? 1 = DCL10>
1262 <FRAME '
\1aGEN-COMP-INST>
1263 <FRAME '
\1aVAR-TYPE-ADDRESS>
1265 <CALL '
\1aVAR-TYPE-ADDRESS 1 = STACK>
1266 <FRAME '
\1aTYPE-CODE>
1269 <CALL '
\1aTYPE 1 = STACK>
1271 <CALL '
\1aTYPE-CODE 2 = STACK>
1273 <CALL '
\1aGEN-COMP-INST 3>
1274 <FRAME '
\1aVAR-VALUE-ADDRESS>
1277 <CALL '
\1aVAR-VALUE-ADDRESS 1 = DCL10>
1278 <VEQUAL? DIR7 '- - PHRASE70>
1279 <FRAME '
\1aGEN-BRANCH>
1283 <CALL '
\1aGEN-BRANCH 3>
1286 <FRAME '
\1aGEN-BRANCH>
1290 <CALL '
\1aGEN-BRANCH 3>
1292 <FRAME '
\1aGEN-COMP-INST>
1295 <FRAME '
\1aADDR-VALUE-MQUOTE>
1298 <CALL '
\1aADDR-VALUE-MQUOTE 1 = STACK>
1300 <CALL '
\1aGEN-COMP-INST 3>
1301 <VEQUAL? DIR7 '- - PHRASE76>
1303 <FRAME '
\1aGEN-BRANCH>
1308 <CALL '
\1aGEN-BRANCH 3>
1311 <FRAME '
\1aGEN-BRANCH>
1316 <CALL '
\1aGEN-BRANCH 3>
1318 <FRAME '
\1aGEN-LABEL>
1322 <CALL '
\1aGEN-LABEL 2>
1324 <FRAME '
\1aCLEAR-STATUS>
1325 <CALL '
\1aCLEAR-STATUS 0>
1327 <END
\1aEQUAL-GEN>
\r\0\r\0
1329 <GFCN
\1aVAR-EQUAL-GEN ("VALUE" ATOM VARTBL VARTBL ATOM ATOM ATOM) VAR15 VAR26 DIR7 LABEL8 ELABEL9>
1330 <TEMP DCL10 DCL112 TEMP24 TEMP26 TAC13>
1332 <FRAME '
\1aVARTBL-DECL>
1334 <CALL '
\1aVARTBL-DECL 1 = DCL10>
1335 <FRAME '
\1aVARTBL-DECL>
1337 <CALL '
\1aVARTBL-DECL 1 = DCL112>
1338 <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE21>
1339 <TYPE? DCL112 <TYPE-CODE FALSE> + BOOL22>
1340 <FRAME '
\1aCLEAN-DECL>
1342 <CALL '
\1aCLEAN-DECL 1 = TEMP24>
1343 <FRAME '
\1aCLEAN-DECL>
1345 <CALL '
\1aCLEAN-DECL 1 = TEMP26>
1346 <EQUAL? TEMP24 TEMP26 + BOOL22>
1347 <DEAD TEMP24 TEMP26>
1350 <PUSH 'VAR-EQUAL-GEN>
1366 <FRAME '
\1aVAR-VALUE-IN-AC?>
1368 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TEMP24>
1369 <FRAME '
\1aVAR-TYPE-WORD-IN-AC?>
1371 <CALL '
\1aVAR-TYPE-WORD-IN-AC? 1 = TAC13>
1372 <SET TEMP26 %<> (TYPE FALSE)>
1373 <SET TEMP26 %<> (TYPE FALSE)>
1374 <FRAME '
\1aFRIENDLY-VAR?>
1379 <CALL '
\1aFRIENDLY-VAR? 3 = TEMP26>
1380 <TYPE? TEMP26 <TYPE-CODE FALSE> + COND33>
1381 <VEQUAL? TEMP26 'AC - PHRASE34>
1383 <NTHUV TAC13 2 = TEMP26 (TYPE FIX)>
1385 <OR TEMP26 80 = TEMP26>
1386 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1387 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = TEMP26>
1390 <FRAME '
\1aADDR-VAR-TYPE>
1392 <CALL '
\1aADDR-VAR-TYPE 1 = TEMP26>
1394 <FRAME '
\1aVAR-TYPE-WORD-IN-AC?>
1396 <CALL '
\1aVAR-TYPE-WORD-IN-AC? 1 = TAC13>
1397 <FRAME '
\1aVAR-VALUE-IN-AC?>
1399 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TEMP24>
1400 <FRAME '
\1aGEN-COMP-INST>
1401 <FRAME '
\1aVAR-VALUE-ADDRESS>
1403 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
1404 <FRAME '
\1aVAR-VALUE-ADDRESS>
1406 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
1408 <CALL '
\1aGEN-COMP-INST 3>
1409 <VEQUAL? DIR7 '- - PHRASE42>
1410 <FRAME '
\1aGEN-BRANCH>
1417 <CALL '
\1aGEN-BRANCH 6>
1420 <FRAME '
\1aGEN-BRANCH>
1427 <CALL '
\1aGEN-BRANCH 6>
1429 <GVAL 'GC-MODE = TEMP26>
1430 <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE47>
1432 <TYPE? DCL10 <TYPE-CODE FALSE> + BOOL49>
1433 <TYPE? DCL112 <TYPE-CODE FALSE> - PHRASE47>
1437 <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE52>
1438 <FRAME '
\1aTYPE-CODE>
1441 <CALL '
\1aTYPE-CODE 1 = TEMP26>
1444 <FRAME '
\1aVAR-TYPE-ADDRESS>
1447 <CALL '
\1aVAR-TYPE-ADDRESS 1 = TEMP26>
1451 <TYPE? DCL112 <TYPE-CODE FALSE> + PHRASE57>
1452 <FRAME '
\1aTYPE-CODE>
1455 <CALL '
\1aTYPE-CODE 1 = TEMP26>
1458 <FRAME '
\1aVAR-TYPE-ADDRESS>
1461 <CALL '
\1aVAR-TYPE-ADDRESS 1 = TEMP26>
1468 <CALL '
\1aGET-AC 2 = TAC13>
1469 <NTHUV TAC13 2 = TEMP26 (TYPE FIX)>
1470 <OR TEMP26 80 = TEMP26>
1471 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1472 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1477 <GVAL 'AC-PC = TEMP26>
1478 <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
1479 <OR TEMP26 128 = TEMP26>
1480 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1481 <SET DCL10 32800 (TYPE FIX)>
1482 <AND DCL10 255 = TEMP24>
1483 <LSH TEMP24 16 = TEMP24 (TYPE FIX)>
1484 <AND DCL10 65280 = DCL112>
1486 <OR TEMP24 DCL112 = TEMP24>
1488 <AND TEMP24 16776960 = TEMP24>
1489 <OR TEMP26 TEMP24 = TEMP26>
1491 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1493 <NTHUV TAC13 2 = DCL112 (TYPE FIX)>
1495 <OR DCL112 80 = DCL112>
1496 <LSH DCL112 24 = DCL112 (TYPE FIX)>
1497 <CHTYPE DCL112 <TYPE-CODE EFF-ADDR> = STACK>
1502 <TYPE? DCL10 <TYPE-CODE FALSE> + BOOL70>
1503 <TYPE? DCL112 <TYPE-CODE FALSE> - PHRASE69>
1505 <FRAME '
\1aGEN-COMP-INST>
1506 <TYPE? DCL112 <TYPE-CODE FALSE> + PHRASE73>
1507 <FRAME '
\1aTYPE-CODE>
1510 <CALL '
\1aTYPE-CODE 1 = DCL112>
1513 <FRAME '
\1aVAR-TYPE-ADDRESS>
1516 <CALL '
\1aVAR-TYPE-ADDRESS 1 = DCL112>
1520 <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE78>
1521 <FRAME '
\1aTYPE-CODE>
1524 <CALL '
\1aTYPE-CODE 1 = DCL112>
1527 <FRAME '
\1aVAR-TYPE-ADDRESS>
1530 <CALL '
\1aVAR-TYPE-ADDRESS 1 = DCL112>
1535 <CALL '
\1aGEN-COMP-INST 3>
1537 <VEQUAL? DIR7 '- - PHRASE83>
1539 <FRAME '
\1aGEN-BRANCH>
1544 <CALL '
\1aGEN-BRANCH 3>
1547 <FRAME '
\1aGEN-BRANCH>
1552 <CALL '
\1aGEN-BRANCH 3>
1554 <FRAME '
\1aGEN-LABEL>
1558 <CALL '
\1aGEN-LABEL 2>
1560 <END
\1aVAR-EQUAL-GEN>
\r\0\r\0
1562 <GFCN
\1aFRIENDLY-VAR? ("VALUE" <OR ATOM FALSE> VARTBL <OR AC FALSE> <OR AC FALSE>) VAR5 TAC6 VAC7>
1565 <TYPE? VAC7 <TYPE-CODE FALSE> - TAG11>
1566 <TYPE? TAC6 <TYPE-CODE FALSE> - TAG11>
1569 <TYPE? TAC6 <TYPE-CODE FALSE> + PHRASE12>
1570 <TYPE? VAC7 <TYPE-CODE FALSE> + PHRASE12>
1573 <CALL '
\1aNEXT-AC 1 = TEMP9>
1574 <EQUAL? VAC7 TEMP9 - PHRASE12>
1578 <TYPE? TAC6 <TYPE-CODE FALSE> - PHRASE16>
1579 <FRAME '
\1aAC-VAR-STORED?>
1582 <CALL '
\1aAC-VAR-STORED? 2 = TEMP9>
1583 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE16>
1587 <TYPE? VAC7 <TYPE-CODE FALSE> + TAG21>
1591 <FRAME '
\1aAC-VAR-STORED?>
1596 <CALL '
\1aAC-VAR-STORED? 2 = TEMP9>
1597 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE19>
1598 <SET TEMP9 'T (TYPE ATOM)>
1602 <END
\1aFRIENDLY-VAR?>
1604 <GFCN
\1aCOMP-GEN ("VALUE" ATOM ANY ANY ATOM ATOM FIX "OPTIONAL" <OR FALSE ATOM>) VAL18 VAL29 DIR10 LABEL11 MODE12 TYP13>
1605 <OPT-DISPATCH 5 %<> OPT6 OPT7>
1609 <TEMP BRANCH-CODE14>
1611 <FRAME '
\1aCOMPUTE-DIRECTION>
1616 <CALL '
\1aCOMPUTE-DIRECTION 2 = BRANCH-CODE14>
1617 <TYPE? VAL18 <TYPE-CODE VARTBL> + PHRASE17>
1618 <FRAME '
\1aCONST-COMP-GEN>
1625 <FRAME '
\1aREVERSE-BC>
1626 <PUSH BRANCH-CODE14>
1627 <DEAD BRANCH-CODE14>
1628 <CALL '
\1aREVERSE-BC 1 = STACK>
1631 <CALL '
\1aCONST-COMP-GEN 5>
1634 <TYPE? VAL29 <TYPE-CODE VARTBL> + PHRASE20>
1635 <FRAME '
\1aCONST-COMP-GEN>
1642 <PUSH BRANCH-CODE14>
1643 <DEAD BRANCH-CODE14>
1646 <CALL '
\1aCONST-COMP-GEN 5>
1649 <FRAME '
\1aVAR-COMP-GEN>
1656 <PUSH BRANCH-CODE14>
1657 <DEAD BRANCH-CODE14>
1660 <CALL '
\1aVAR-COMP-GEN 5>
1662 <FRAME '
\1aCLEAR-STATUS>
1663 <CALL '
\1aCLEAR-STATUS 0>
1665 <END
\1aCOMP-GEN>
\r\0\r\0
1667 <GFCN
\1aCONST-COMP-GEN ("VALUE" ANY ANY VARTBL ATOM FIX "OPTIONAL" <OR FALSE ATOM>) CONST8 VAR9 LABEL10 DIRCODE11 TYP12>
1668 <OPT-DISPATCH 4 %<> OPT6 OPT7>
1672 <TEMP FIXCONST13 VAC14>
1674 <FRAME '
\1aFIX-CONSTANT?>
1676 <CALL '
\1aFIX-CONSTANT? 1 = FIXCONST13>
1677 <TYPE? FIXCONST13 <TYPE-CODE FALSE> + PHRASE17>
1678 <VEQUAL? FIXCONST13 0 - PHRASE20 (TYPE FIX)>
1679 <FRAME '
\1aZERO-TEST-GEN>
1688 <CALL '
\1aZERO-TEST-GEN 4 = FIXCONST13>
1692 <FRAME '
\1aVAR-VALUE-IN-AC?>
1694 <CALL '
\1aVAR-VALUE-IN-AC? 1 = VAC14>
1695 <TYPE? VAC14 <TYPE-CODE FALSE> + PHRASE25>
1696 <FRAME '
\1aGEN-COMP-INST>
1697 <NTHUV VAC14 2 = VAC14 (TYPE FIX)>
1698 <OR VAC14 80 = VAC14>
1699 <LSH VAC14 24 = VAC14 (TYPE FIX)>
1700 <CHTYPE VAC14 <TYPE-CODE EFF-ADDR> = STACK>
1702 <TYPE? CONST8 <TYPE-CODE FLOAT> - PHRASE30>
1703 <FRAME '
\1aFLOAT-IMM>
1704 <FRAME '
\1aFLOATCONVERT>
1707 <CALL '
\1aFLOATCONVERT 1 = STACK>
1708 <CALL '
\1aFLOAT-IMM 1 = VAC14>
1714 <CALL '
\1aMA-IMM 1 = VAC14>
1721 <CALL '
\1aGEN-COMP-INST 4>
1722 <FRAME '
\1aGEN-TEST-INST>
1728 <CALL '
\1aGEN-TEST-INST 3 = FIXCONST13>
1732 <FRAME '
\1aGEN-COMP-INST>
1733 <FRAME '
\1aADDR-VAR-VALUE>
1736 <CALL '
\1aADDR-VAR-VALUE 1 = STACK>
1737 <TYPE? CONST8 <TYPE-CODE FLOAT> - PHRASE40>
1738 <FRAME '
\1aFLOAT-IMM>
1739 <FRAME '
\1aFLOATCONVERT>
1742 <CALL '
\1aFLOATCONVERT 1 = STACK>
1743 <CALL '
\1aFLOAT-IMM 1 = VAC14>
1749 <CALL '
\1aMA-IMM 1 = VAC14>
1756 <CALL '
\1aGEN-COMP-INST 4>
1757 <FRAME '
\1aGEN-TEST-INST>
1763 <CALL '
\1aGEN-TEST-INST 3 = FIXCONST13>
1767 <FRAME '
\1aGEN-COMP-INST>
1768 <FRAME '
\1aVAR-VALUE-ADDRESS>
1771 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
1772 <FRAME '
\1aADDR-VALUE-MQUOTE>
1775 <CALL '
\1aADDR-VALUE-MQUOTE 1 = STACK>
1779 <CALL '
\1aGEN-COMP-INST 4>
1780 <FRAME '
\1aGEN-TEST-INST>
1786 <CALL '
\1aGEN-TEST-INST 3 = FIXCONST13>
1789 <END
\1aCONST-COMP-GEN>
1790 <SETG COMP-TABLE <UVECTOR ,COND-CODE-LT ,COND-CODE-EQ ,COND-CODE-GT>>
1792 <SETG NCOMP-TABLE <UVECTOR ,COND-CODE-GE ,COND-CODE-NE ,COND-CODE-LE>>
1794 <COND (<NOT <GASSIGNED? REVERSE-TABLE>> <SETG REVERSE-TABLE <IUVECTOR 15 0>>)>
1797 <GFCN
\1aMAKE-REVERSE ("VALUE" <UVECTOR FIX> ANY ANY) CODE5 REV-CODE6>
1798 <TEMP TEMP8:UVECTOR>
1801 <GVAL 'REVERSE-TABLE = STACK>
1806 <CALL '
\1aPUT 3 = TEMP8>
1809 <END
\1aMAKE-REVERSE>
1810 <COND (<NOT <GASSIGNED? BRANCHES>> <SETG BRANCHES <IUVECTOR 16 0>>)>
1812 <GDECL (BRANCHES) <UVECTOR [REST FIX]>>
1815 <GFCN
\1aINIT-BRANCH-TABLES ("VALUE" <OR FALSE <UVECTOR [REST FIX]>>)>
1816 <TEMP B5:UVECTOR TEMP21 TEMP23:LIST TEMP24>
1818 <GVAL 'BRANCHES = B5>
1819 <FRAME '
\1aMAKE-REVERSE>
1822 <CALL '
\1aMAKE-REVERSE 2>
1823 <FRAME '
\1aMAKE-REVERSE>
1826 <CALL '
\1aMAKE-REVERSE 2>
1827 <FRAME '
\1aMAKE-REVERSE>
1830 <CALL '
\1aMAKE-REVERSE 2>
1831 <FRAME '
\1aMAKE-REVERSE>
1834 <CALL '
\1aMAKE-REVERSE 2>
1835 <FRAME '
\1aMAKE-REVERSE>
1838 <CALL '
\1aMAKE-REVERSE 2>
1839 <FRAME '
\1aMAKE-REVERSE>
1842 <CALL '
\1aMAKE-REVERSE 2>
1843 <SET TEMP21 %<> (TYPE FALSE)>
1844 <CONS 17 () = TEMP23>
1845 <CONS 0 TEMP23 = TEMP23>
1846 <CONS TEMP23 () = TEMP23>
1847 <CONS 24 () = TEMP24>
1848 <CONS 12 TEMP24 = TEMP24>
1849 <CONS TEMP24 TEMP23 = TEMP23>
1851 <CONS 20 () = TEMP24>
1852 <CONS 14 TEMP24 = TEMP24>
1853 <CONS TEMP24 TEMP23 = TEMP23>
1855 <CONS 25 () = TEMP24>
1856 <CONS 13 TEMP24 = TEMP24>
1857 <CONS TEMP24 TEMP23 = TEMP23>
1859 <CONS 21 () = TEMP24>
1860 <CONS 15 TEMP24 = TEMP24>
1861 <CONS TEMP24 TEMP23 = TEMP23>
1863 <CONS 18 () = TEMP24>
1864 <CONS 6 TEMP24 = TEMP24>
1865 <CONS TEMP24 TEMP23 = TEMP23>
1867 <CONS 19 () = TEMP24>
1868 <CONS 7 TEMP24 = TEMP24>
1869 <CONS TEMP24 TEMP23 = TEMP23>
1874 <EMPL? TEMP23 + MAPAP16>
1875 <NTHL TEMP23 1 = TEMP21>
1876 <NTHL TEMP21 1 = TEMP24 (TYPE FIX)>
1877 <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
1878 <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
1879 <NTHL TEMP21 1 = TEMP21 (TYPE FIX)>
1880 <PUTUU B5 TEMP24 TEMP21>
1881 <DEAD TEMP24 TEMP21>
1883 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
1888 <END
\1aINIT-BRANCH-TABLES>
1890 <GFCN
\1aCOMPUTE-DIRECTION ("VALUE" ANY ATOM FIX) DIR5 MODE6>
1893 <VEQUAL? DIR5 '+ - PHRASE8>
1894 <GVAL 'COMP-TABLE = TEMP9>
1895 <NTHUU TEMP9 MODE6 = TEMP9 (TYPE FIX)>
1900 <VEQUAL? DIR5 '- - PHRASE10>
1901 <GVAL 'NCOMP-TABLE = TEMP9>
1902 <NTHUU TEMP9 MODE6 = TEMP9 (TYPE FIX)>
1908 <PUSH "BAD DIRECTION">
1911 <PUSH 'COMPUTE-DIRECTION>
1912 <CALL '
\1aERROR 3 = TEMP9>
1915 <END
\1aCOMPUTE-DIRECTION>
1917 <GFCN
\1aREVERSE-BC ("VALUE" FIX FIX) MODE5>
1920 <GVAL 'REVERSE-TABLE = TEMP6>
1921 <NTHUU TEMP6 MODE5 = TEMP6 (TYPE FIX)>
1927 <GFCN
\1aZERO-TEST-GEN ("VALUE" ANY VARTBL FIX ATOM "OPTIONAL" <OR ATOM FALSE>) VAR8 DIRCODE9 LABEL10 TYP11>
1928 <OPT-DISPATCH 3 %<> OPT6 OPT7>
1932 <TEMP VADDR13 STATUS?12 TEMP31 TEMP40>
1934 <FRAME '
\1aVAR-VALUE-ADDRESS>
1936 <CALL '
\1aVAR-VALUE-ADDRESS 1 = VADDR13>
1937 <TYPE? TYP11 <TYPE-CODE FALSE> - PHRASE20>
1938 <FRAME '
\1aVARTBL-DECL>
1940 <CALL '
\1aVARTBL-DECL 1 = TYP11>
1945 <CALL '
\1aSTATUS? 2 = STATUS?12>
1946 <TYPE? STATUS?12 <TYPE-CODE FALSE> + BOOL24>
1947 <TYPE? TYP11 <TYPE-CODE FALSE> - PHRASE23>
1949 <TYPE? TYP11 <TYPE-CODE FALSE> + PHRASE27>
1951 <VEQUAL? TYP11 'FIX - PHRASE30>
1953 <SET TEMP31 213 (TYPE FIX)>
1956 <SET TEMP31 83 (TYPE FIX)>
1963 <FRAME '
\1aGEN-TEST-INST>
1970 <CALL '
\1aGEN-TEST-INST 3 = TEMP31>
1974 <FRAME '
\1aVAR-TYPE-IN-AC?>
1976 <CALL '
\1aVAR-TYPE-IN-AC? 1 = TEMP31>
1977 <TYPE? TEMP31 <TYPE-CODE FALSE> - BOOL37>
1978 <FRAME '
\1aVAR-TYPE-WORD-IN-AC?>
1980 <CALL '
\1aVAR-TYPE-WORD-IN-AC? 1 = TEMP31>
1981 <TYPE? TEMP31 <TYPE-CODE FALSE> - BOOL37>
1982 <GVAL 'GC-MODE = TEMP40>
1983 <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE36>
1986 <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE42>
1987 <FRAME '
\1aLOAD-VAR>
1993 <CALL '
\1aLOAD-VAR 4 = TEMP31>
1995 <FRAME '
\1aGEN-COMP-INST>
1996 <NTHUV TEMP31 2 = TEMP40 (TYPE FIX)>
1998 <OR TEMP40 80 = TEMP40>
1999 <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
2000 <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = STACK>
2002 <FRAME '
\1aTYPE-CODE>
2005 <CALL '
\1aTYPE-CODE 2 = STACK>
2007 <CALL '
\1aGEN-COMP-INST 3>
2012 <FRAME '
\1aVAR-TYPE-ADDRESS>
2015 <CALL '
\1aVAR-TYPE-ADDRESS 1 = STACK>
2016 <FRAME '
\1aTYPE-CODE>
2019 <CALL '
\1aTYPE-CODE 2 = STACK>
2021 <FRAME '
\1aCLEAR-STATUS>
2022 <CALL '
\1aCLEAR-STATUS 0>
2024 <FRAME '
\1aGEN-BRANCH>
2026 <FRAME '
\1aMAKE-LABEL>
2028 <CALL '
\1aMAKE-LABEL 1 = TEMP31>
2034 <CALL '
\1aGEN-BRANCH 6>
2039 <FRAME '
\1aGEN-TEST-INST>
2043 <CALL '
\1aGEN-TEST-INST 3>
2044 <FRAME '
\1aGEN-BRANCH>
2046 <FRAME '
\1aMAKE-LABEL>
2048 <CALL '
\1aMAKE-LABEL 1 = TEMP40>
2054 <CALL '
\1aGEN-BRANCH 6>
2055 <FRAME '
\1aGEN-LABEL>
2059 <CALL '
\1aGEN-LABEL 2>
2065 <FRAME '
\1aGEN-TEST-INST>
2072 <CALL '
\1aGEN-TEST-INST 3>
2073 <FRAME '
\1aGEN-LABEL>
2077 <CALL '
\1aGEN-LABEL 2 = TEMP31>
2081 <FRAME '
\1aGEN-TEST-INST>
2088 <CALL '
\1aGEN-TEST-INST 3 = TEMP31>
2091 <END
\1aZERO-TEST-GEN>
2093 <GFCN
\1aGEN-TEST-INST ("VALUE" ANY FIX ATOM ANY) DIRCODE5 LABEL6 STATUS?7>
2094 <TEMP TEMP9:UVECTOR TEMP10>
2096 <FRAME '
\1aGEN-BRANCH>
2097 <GVAL 'BRANCHES = TEMP9>
2098 <ADD DIRCODE5 1 = TEMP10 (TYPE FIX)>
2100 <NTHUU TEMP9 TEMP10 = STACK (TYPE FIX)>
2106 <CALL '
\1aGEN-BRANCH 3 = TEMP10>
2109 <END
\1aGEN-TEST-INST>
2111 <GFCN
\1aGEN-COMP-INST ("VALUE" ANY ANY ANY "OPTIONAL" ATOM ANY) VAR10 ADDR11 SZ12 TYP13>
2112 <OPT-DISPATCH 2 %<> OPT7 OPT8 OPT9>
2121 <VEQUAL? SZ12 'LONG - PHRASE17>
2122 <EQUAL? TYP13 'FIX - PHRASE19>
2124 <SET TEMP20 209 (TYPE FIX)>
2127 <SET TEMP20 81 (TYPE FIX)>
2130 <VEQUAL? SZ12 'WORD - PHRASE22>
2131 <SET TEMP20 177 (TYPE FIX)>
2134 <VEQUAL? SZ12 'BYTE - PHRASE23>
2135 <SET TEMP20 145 (TYPE FIX)>
2142 <CALL '
\1aERROR 2 = TEMP20>
2150 <CALL '
\1aEMIT 3 = TEMP20>
2153 <END
\1aGEN-COMP-INST>
2155 <GFCN
\1aVAR-COMP-GEN ("VALUE" ANY VARTBL VARTBL ATOM FIX "OPTIONAL" ANY) VAR18 VAR29 LABEL10 DIR11 TYP12>
2156 <OPT-DISPATCH 4 %<> OPT6 OPT7>
2162 <FRAME '
\1aVAR-VALUE-IN-AC?>
2164 <CALL '
\1aVAR-VALUE-IN-AC? 1 = VAC13>
2165 <TYPE? VAC13 <TYPE-CODE FALSE> + PHRASE15>
2166 <FRAME '
\1aVAR-AC-COMP>
2177 <CALL '
\1aVAR-AC-COMP 5 = VAC13>
2181 <FRAME '
\1aVAR-VALUE-IN-AC?>
2183 <CALL '
\1aVAR-VALUE-IN-AC? 1 = VAC13>
2184 <TYPE? VAC13 <TYPE-CODE FALSE> + PHRASE19>
2185 <FRAME '
\1aVAR-AC-COMP>
2192 <FRAME '
\1aREVERSE-BC>
2195 <CALL '
\1aREVERSE-BC 1 = STACK>
2198 <CALL '
\1aVAR-AC-COMP 5 = VAC13>
2203 <EQUAL? TYP12 'FIX - PHRASE26>
2205 <SET VAC13 209 (TYPE FIX)>
2208 <SET VAC13 81 (TYPE FIX)>
2212 <FRAME '
\1aVAR-VALUE-ADDRESS>
2215 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2216 <FRAME '
\1aVAR-VALUE-ADDRESS>
2219 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2221 <FRAME '
\1aGEN-TEST-INST>
2227 <CALL '
\1aGEN-TEST-INST 3 = VAC13>
2230 <END
\1aVAR-COMP-GEN>
\r\0\r\0
2232 <GFCN
\1aVAR-AC-COMP ("VALUE" ANY VARTBL AC ATOM FIX "OPTIONAL" ANY) VAR8 AC9 LABEL10 DIR11 TYP12>
2233 <OPT-DISPATCH 4 %<> OPT6 OPT7>
2237 <TEMP VADDR13 TEMP16>
2239 <FRAME '
\1aVAR-VALUE-ADDRESS>
2242 <CALL '
\1aVAR-VALUE-ADDRESS 1 = VADDR13>
2243 <FRAME '
\1aGEN-COMP-INST>
2244 <NTHUV AC9 2 = TEMP16 (TYPE FIX)>
2246 <OR TEMP16 80 = TEMP16>
2247 <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
2248 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
2255 <CALL '
\1aGEN-COMP-INST 4>
2256 <FRAME '
\1aGEN-TEST-INST>
2262 <CALL '
\1aGEN-TEST-INST 3 = TEMP16>
2265 <END
\1aVAR-AC-COMP>
2266 <MSETG 32MIN 2147483647>
2268 <MSETG 32MAX <CHTYPE #WORD *20000000001* FIX>>
2271 <GFCN
\1aFIX-CONSTANT? ("VALUE" <OR FALSE FIX> ANY) CONST5>
2274 <TYPE? CONST5 <TYPE-CODE FLOAT> - PHRASE7>
2275 <FRAME '
\1aFLOATCONVERT>
2278 <CALL '
\1aFLOATCONVERT 1 = TEMP9>
2282 <FRAME '
\1aTYPEPRIM>
2285 <CALL '
\1aTYPE 1 = STACK>
2286 <CALL '
\1aTYPEPRIM 1 = TEMP9>
2287 <EQUAL? TEMP9 'FIX - PHRASE10>
2289 <CHTYPE CONST5 <TYPE-CODE FIX> = CONST5>
2290 <VEQUAL? CONST5 %<CHTYPE <MIN> FIX> - PHRASE15 (TYPE FIX)>
2291 <RETURN %<CHTYPE <MIN> FIX>>
2293 <VEQUAL? CONST5 %<CHTYPE <MAX> FIX> - PHRASE16 (TYPE FIX)>
2294 <RETURN %<CHTYPE <MAX> FIX>>
2299 <FRAME '
\1aTYPEPRIM>
2302 <CALL '
\1aTYPE 1 = STACK>
2303 <CALL '
\1aTYPEPRIM 1 = TEMP9>
2304 <EQUAL? TEMP9 'LIST + TAG19>
2308 <EMPTY? CONST5 + TAG22>
2313 <END
\1aFIX-CONSTANT?>
2315 <GFCN
\1aFLOATCONVERT ("VALUE" FIX <OR FIX FLOAT>) CNS4>
2316 <TEMP TEMP8:FIX TEMP16>
2318 <EQUAL? CNS4 0.0 - PHRASE7>
2322 <CHTYPE CNS4 <TYPE-CODE FIX> = TEMP8>
2327 <END
\1aFLOATCONVERT>
2330 <GFCN
\1aFLOAT-IMM ("VALUE" ANY FIX) X5>
2333 <AND X5 -17393 = TEMP9>
2334 <VEQUAL? TEMP9 0 - PHRASE7 (TYPE FIX)>
2336 <AND X5 16384 = TEMP9>
2337 <VEQUAL? TEMP9 0 + PHRASE7 (TYPE FIX)>
2340 <GETBITS X5 6 4 = STACK>
2342 <CALL '
\1aMA-IMM 1 = TEMP9>
2349 <CALL '
\1aMA-IMM 1 = TEMP9>
2354 <GFCN
\1aSUBFIX-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
2355 <OPT-DISPATCH 3 %<> OPT6 OPT7>
2361 <FRAME '
\1aARITH-GEN>
2373 <CALL '
\1aARITH-GEN 8 = TEMP13>
2378 <GFCN
\1aTYPE-TST-GEN ("VALUE" ATOM VARTBL <OR ATOM VARTBL> ATOM ANY) VAR5 TNAME6 DIR7 DEST8>
2379 <TEMP DCL10 TEMP16 TEMP35 TEMP36>
2381 <FRAME '
\1aVARTBL-DECL>
2383 <CALL '
\1aVARTBL-DECL 1 = DCL10>
2384 <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE12>
2385 <FRAME '
\1aCLEAN-DECL>
2387 <CALL '
\1aCLEAN-DECL 1 = TEMP16>
2388 <EQUAL? TEMP16 'UNBOUND + PHRASE12>
2390 <EQUAL? TNAME6 'T$UNBOUND + PHRASE12>
2391 <FRAME '
\1aSAFE-TYPE-WORD?>
2393 <CALL '
\1aSAFE-TYPE-WORD? 1 = TEMP16>
2394 <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE12>
2397 <PUSH "WARNING: TYPE KNOWN">
2398 <NTHUV VAR5 1 = STACK (TYPE ATOM)>
2401 <EQUAL? TNAME6 DCL10 - PHRASE20>
2402 <VEQUAL? DIR7 '+ - PHRASE20>
2403 <FRAME '
\1aGEN-BRANCH>
2404 <GVAL 'INST-BBR = STACK>
2408 <CALL '
\1aGEN-BRANCH 3>
2411 <EQUAL? TNAME6 DCL10 + COND57>
2413 <VEQUAL? DIR7 '- - COND57>
2415 <FRAME '
\1aGEN-BRANCH>
2416 <GVAL 'INST-BBR = STACK>
2420 <CALL '
\1aGEN-BRANCH 3>
2423 <FRAME '
\1aVAR-TYPE-IN-AC?>
2425 <CALL '
\1aVAR-TYPE-IN-AC? 1 = DCL10>
2426 <TYPE? DCL10 <TYPE-CODE FALSE> - BOOL29>
2427 <FRAME '
\1aVAR-TYPE-WORD-IN-AC?>
2429 <CALL '
\1aVAR-TYPE-WORD-IN-AC? 1 = DCL10>
2430 <TYPE? DCL10 <TYPE-CODE FALSE> - BOOL29>
2431 <GVAL 'TYPE-WORDS = TEMP16>
2432 <TYPE TNAME6 = TEMP35>
2433 <EMPUV? TEMP16 + BOOL29>
2434 <LOOP (TNAME6 VALUE) (TEMP35 VALUE) (TEMP16 LENGTH VALUE)>
2436 <NTHUV TEMP16 1 = TEMP36>
2437 <TYPE? TEMP36 TEMP35 - TAG34>
2438 <VEQUAL? TEMP36 TNAME6 + TAG32>
2441 <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
2442 <EMPUV? TEMP16 - TAG33>
2445 <GVAL 'GC-MODE = TEMP16>
2446 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE28>
2449 <TYPE? DCL10 <TYPE-CODE FALSE> - PHRASE38>
2450 <FRAME '
\1aLOAD-VAR>
2456 <CALL '
\1aLOAD-VAR 4 = DCL10>
2458 <TYPE? TNAME6 <TYPE-CODE VARTBL> - PHRASE41>
2459 <FRAME '
\1aGEN-COMP-INST>
2460 <NTHUV DCL10 2 = TEMP16 (TYPE FIX)>
2462 <OR TEMP16 80 = TEMP16>
2463 <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
2464 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
2466 <FRAME '
\1aVAR-VALUE-ADDRESS>
2469 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2471 <CALL '
\1aGEN-COMP-INST 3>
2474 <FRAME '
\1aGEN-COMP-INST>
2475 <NTHUV DCL10 2 = TEMP16 (TYPE FIX)>
2477 <OR TEMP16 80 = TEMP16>
2478 <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
2479 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
2481 <FRAME '
\1aTYPE-CODE>
2485 <CALL '
\1aTYPE-CODE 2 = STACK>
2487 <CALL '
\1aGEN-COMP-INST 3>
2490 <EQUAL? TNAME6 'T$UNBOUND + BOOL47>
2491 <FRAME '
\1aCLEAN-DECL>
2493 <CALL '
\1aCLEAN-DECL 1 = TEMP16>
2494 <EQUAL? TEMP16 'UNBOUND - PHRASE46>
2499 <FRAME '
\1aVAR-TYPE-ADDRESS>
2502 <CALL '
\1aVAR-TYPE-ADDRESS 1 = STACK>
2504 <FRAME '
\1aCLEAR-STATUS>
2505 <CALL '
\1aCLEAR-STATUS 0>
2510 <FRAME '
\1aVAR-TYPE-ADDRESS>
2513 <CALL '
\1aVAR-TYPE-ADDRESS 1 = STACK>
2514 <FRAME '
\1aTYPE-CODE>
2518 <CALL '
\1aTYPE-CODE 2 = STACK>
2520 <FRAME '
\1aCLEAR-STATUS>
2521 <CALL '
\1aCLEAR-STATUS 0>
2523 <VEQUAL? DIR7 '+ - PHRASE58>
2525 <FRAME '
\1aGEN-BRANCH>
2530 <CALL '
\1aGEN-BRANCH 3>
2533 <FRAME '
\1aGEN-BRANCH>
2538 <CALL '
\1aGEN-BRANCH 3>
2541 <END
\1aTYPE-TST-GEN>
2543 <GFCN
\1aMULFIX-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
2544 <OPT-DISPATCH 3 %<> OPT6 OPT7>
2550 <FRAME '
\1aARITH-GEN>
2562 <CALL '
\1aARITH-GEN 8 = TEMP13>
2567 <GFCN
\1aPWR2? ("VALUE" <OR FALSE FIX> FIX) X5>
2568 <TEMP Y13 CNT14:FIX>
2570 <LESS? X5 0 - PHRASE7 (TYPE FIX)>
2571 <SUB 0 X5 = X5 (TYPE FIX)>
2573 <SET Y13 2 (TYPE FIX)>
2574 <SET CNT14 1 (TYPE FIX)>
2578 <VEQUAL? Y13 X5 - PHRASE17 (TYPE FIX)>
2582 <GRTR? Y13 X5 - PHRASE18 (TYPE FIX)>
2585 <ADD CNT14 1 = CNT14 (TYPE FIX)>
2586 <GRTR? CNT14 31 - PHRASE19 (TYPE FIX)>
2589 <LSH Y13 1 = Y13 (TYPE FIX)>
2593 <GFCN
\1aDIVFIX-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
2594 <OPT-DISPATCH 3 %<> OPT6 OPT7>
2600 <FRAME '
\1aARITH-GEN>
2612 <CALL '
\1aARITH-GEN 8 = TEMP13>
2617 <GFCN
\1aMODFIX-GEN ("VALUE" ATOM <OR VARTBL FIX> <OR VARTBL FIX> <OR ATOM VARTBL> "OPTIONAL" ANY) ITM18 ITM29 RES10 HINT11>
2618 <OPT-DISPATCH 3 %<> OPT6 OPT7>
2622 <TEMP (AC13 %<>) LAB114 LAB215 VAC12 TEMP26>
2624 <FRAME '
\1aMAKE-LABEL>
2625 <CALL '
\1aMAKE-LABEL 0 = LAB114>
2626 <FRAME '
\1aMAKE-LABEL>
2627 <CALL '
\1aMAKE-LABEL 0 = LAB215>
2631 <CALL '
\1aGET-AC 2 = VAC12>
2632 <TYPE? ITM18 <TYPE-CODE FIX> - PHRASE20>
2633 <LESS? ITM18 0 + PHRASE20 (TYPE FIX)>
2634 <GRTR? ITM18 63 + PHRASE20 (TYPE FIX)>
2640 <CALL '
\1aMA-IMM 1 = STACK>
2641 <NTHUV VAC12 2 = TEMP26 (TYPE FIX)>
2642 <OR TEMP26 80 = TEMP26>
2643 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2644 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2649 <TYPE? ITM18 <TYPE-CODE FIX> - PHRASE27>
2654 <CALL '
\1aNEXT-AC 1 = TEMP26>
2655 <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
2656 <OR TEMP26 80 = TEMP26>
2657 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2658 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2661 <FRAME '
\1aLOAD-CONSTANT>
2665 <CALL '
\1aLOAD-CONSTANT 2>
2666 <FRAME '
\1aGEN-BRANCH>
2670 <CALL '
\1aGEN-BRANCH 3>
2673 <LSH 0 24 = TEMP26 (TYPE FIX)>
2674 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2678 <CALL '
\1aNEXT-AC 1 = TEMP26>
2679 <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
2680 <OR TEMP26 80 = TEMP26>
2681 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2682 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2685 <FRAME '
\1aEMIT-LABEL>
2689 <CALL '
\1aEMIT-LABEL 2>
2696 <CALL '
\1aNEXT-AC 1 = TEMP26>
2697 <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
2698 <OR TEMP26 80 = TEMP26>
2699 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2700 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2703 <FRAME '
\1aLOAD-VAR>
2709 <CALL '
\1aLOAD-VAR 4>
2710 <FRAME '
\1aGEN-BRANCH>
2714 <CALL '
\1aGEN-BRANCH 3>
2717 <LSH 0 24 = TEMP26 (TYPE FIX)>
2718 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2722 <CALL '
\1aNEXT-AC 1 = TEMP26>
2723 <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
2724 <OR TEMP26 80 = TEMP26>
2725 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2726 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2729 <FRAME '
\1aEMIT-LABEL>
2733 <CALL '
\1aEMIT-LABEL 2>
2737 <TYPE? ITM29 <TYPE-CODE FIX> - PHRASE45>
2740 <CALL '
\1aMA-IMM 1 = TEMP26>
2743 <FRAME '
\1aVAR-VALUE-IN-AC?>
2745 <CALL '
\1aVAR-VALUE-IN-AC? 1 = AC13>
2746 <TYPE? AC13 <TYPE-CODE FALSE> + PHRASE47>
2747 <NTHUV AC13 2 = LAB114 (TYPE FIX)>
2748 <OR LAB114 80 = LAB114>
2749 <LSH LAB114 24 = LAB114 (TYPE FIX)>
2750 <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = TEMP26>
2754 <FRAME '
\1aVAR-VALUE-ADDRESS>
2756 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP26>
2760 <NTHUV VAC12 2 = LAB114 (TYPE FIX)>
2761 <OR LAB114 80 = LAB114>
2762 <LSH LAB114 24 = LAB114 (TYPE FIX)>
2763 <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = STACK>
2765 <NTHUV VAC12 2 = LAB114 (TYPE FIX)>
2766 <OR LAB114 80 = LAB114>
2767 <LSH LAB114 24 = LAB114 (TYPE FIX)>
2768 <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = STACK>
2772 <CALL '
\1aNEXT-AC 1 = LAB114>
2773 <NTHUV LAB114 2 = LAB114 (TYPE FIX)>
2774 <OR LAB114 80 = LAB114>
2775 <LSH LAB114 24 = LAB114 (TYPE FIX)>
2776 <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = STACK>
2783 <CALL '
\1aNEXT-AC 1 = LAB114>
2784 <NTHUV LAB114 2 = LAB114 (TYPE FIX)>
2785 <OR LAB114 80 = LAB114>
2786 <LSH LAB114 24 = LAB114 (TYPE FIX)>
2787 <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = STACK>
2790 <FRAME '
\1aGEN-BRANCH>
2794 <CALL '
\1aGEN-BRANCH 3>
2797 <TYPE? ITM29 <TYPE-CODE FIX> - PHRASE58>
2801 <CALL '
\1aMA-IMM 1 = LAB114>
2804 <TYPE? AC13 <TYPE-CODE FALSE> + PHRASE60>
2805 <NTHUV AC13 2 = TEMP26 (TYPE FIX)>
2807 <OR TEMP26 80 = TEMP26>
2808 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2809 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = LAB114>
2813 <FRAME '
\1aVAR-VALUE-ADDRESS>
2816 <CALL '
\1aVAR-VALUE-ADDRESS 1 = LAB114>
2822 <CALL '
\1aNEXT-AC 1 = LAB114>
2823 <NTHUV LAB114 2 = LAB114 (TYPE FIX)>
2824 <OR LAB114 80 = LAB114>
2825 <LSH LAB114 24 = LAB114 (TYPE FIX)>
2826 <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = STACK>
2829 <FRAME '
\1aEMIT-LABEL>
2833 <CALL '
\1aEMIT-LABEL 2>
2834 <FRAME '
\1aDEST-DECL>
2838 <CALL '
\1aNEXT-AC 1 = STACK>
2842 <CALL '
\1aDEST-DECL 3>
2844 <END
\1aMODFIX-GEN>
\r\0\r\0
2846 <GFCN
\1aADDF-GEN ("VALUE" ATOM <OR FLOAT FIX VARTBL> <OR FLOAT FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
2847 <OPT-DISPATCH 3 %<> OPT6 OPT7>
2853 <FRAME '
\1aARITH-GEN>
2865 <CALL '
\1aARITH-GEN 8 = TEMP13>
2870 <GFCN
\1aSUBF-GEN ("VALUE" ATOM <OR FLOAT FIX VARTBL> <OR FLOAT FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
2871 <OPT-DISPATCH 3 %<> OPT6 OPT7>
2877 <FRAME '
\1aARITH-GEN>
2889 <CALL '
\1aARITH-GEN 8 = TEMP13>
2894 <GFCN
\1aMULF-GEN ("VALUE" ATOM <OR FLOAT FIX VARTBL> <OR FLOAT FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
2895 <OPT-DISPATCH 3 %<> OPT6 OPT7>
2901 <FRAME '
\1aARITH-GEN>
2913 <CALL '
\1aARITH-GEN 8 = TEMP13>
2918 <GFCN
\1aDIVF-GEN ("VALUE" ATOM <OR FLOAT FIX VARTBL> <OR FLOAT FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
2919 <OPT-DISPATCH 3 %<> OPT6 OPT7>
2925 <FRAME '
\1aARITH-GEN>
2937 <CALL '
\1aARITH-GEN 8 = TEMP13>
2942 <GFCN
\1aFIX-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) VAL18 RES9 HINT10>
2943 <OPT-DISPATCH 2 %<> OPT6 OPT7>
2949 <FRAME '
\1aVAR-VALUE-IN-AC?>
2951 <CALL '
\1aVAR-VALUE-IN-AC? 1 = VAC11>
2952 <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE13>
2953 <FRAME '
\1aAVAILABLE?>
2955 <CALL '
\1aAVAILABLE? 1 = TEMP17>
2956 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE13>
2960 <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
2961 <OR TEMP17 80 = TEMP17>
2962 <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
2963 <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
2965 <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
2966 <OR TEMP17 80 = TEMP17>
2967 <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
2968 <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
2975 <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE22>
2976 <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
2978 <OR TEMP17 80 = TEMP17>
2979 <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
2980 <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = TEMP17>
2983 <FRAME '
\1aVAR-VALUE-ADDRESS>
2986 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP17>
2993 <CALL '
\1aGET-AC 2 = VAC11>
2994 <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
2995 <OR TEMP17 80 = TEMP17>
2996 <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
2997 <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
3001 <FRAME '
\1aDEST-DECL>
3007 <CALL '
\1aDEST-DECL 3 = TEMP17>
3012 <GFCN
\1aFLOAT-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) VAL18 RES9 HINT10>
3013 <OPT-DISPATCH 2 %<> OPT6 OPT7>
3019 <FRAME '
\1aVAR-VALUE-IN-AC?>
3021 <CALL '
\1aVAR-VALUE-IN-AC? 1 = VAC11>
3022 <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE13>
3023 <FRAME '
\1aAVAILABLE?>
3025 <CALL '
\1aAVAILABLE? 1 = TEMP17>
3026 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE13>
3030 <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
3031 <OR TEMP17 80 = TEMP17>
3032 <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
3033 <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
3035 <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
3036 <OR TEMP17 80 = TEMP17>
3037 <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
3038 <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
3045 <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE22>
3046 <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
3048 <OR TEMP17 80 = TEMP17>
3049 <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
3050 <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = TEMP17>
3053 <FRAME '
\1aVAR-VALUE-ADDRESS>
3056 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP17>
3063 <CALL '
\1aGET-AC 2 = VAC11>
3064 <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
3065 <OR TEMP17 80 = TEMP17>
3066 <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
3067 <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
3071 <FRAME '
\1aDEST-DECL>
3077 <CALL '
\1aDEST-DECL 3 = TEMP17>
3082 <GFCN
\1aRANDOM-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) VAL18 RES9 HINT10>
3083 <OPT-DISPATCH 2 %<> OPT6 OPT7>
3089 <FRAME '
\1aCALL-RTE>
3090 <GVAL 'IRANDOM!-MIMOP = STACK>
3097 <CALL '
\1aCALL-RTE 5 = TEMP12>