16 <MSETG SHORT-MARK-BIT <CHTYPE <LSH 1 7> FIX>>
18 <MSETG MARK-BIT <CHTYPE <LSH 1 15> FIX>>
20 <MSETG DOPE-BIT <CHTYPE <LSH 1 5> FIX>>
33 <GFCN
\1aGCTEMP ("VALUE" <OR EFF-ADDR LADDR> ANY) NUM4>
38 <MUL NUM4 -4 = STACK (TYPE FIX)>
40 <CALL '
\1aMA-DISP 2 = TEMP6>
46 <GFCN
\1aCGC-RECORD-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY ANY "OPTIONAL" ANY) VAR6 ALLOC-ATOM7 END-ATOM8 NEXT-ATOM9 BOUNDS-ATOM10 RES11 HINT12>
47 <OPT-DISPATCH 6 %<> OPT4 OPT5>
51 <TEMP BOUNDS-LAB17 IB-LAB18 F-LAB19 EXIT-LAB20 M-LAB21 RLEN13:FIX STK?14 TEMP42 X47 ALLOCADDR15>
53 <FRAME '
\1aMAKE-LABEL>
54 <CALL '
\1aMAKE-LABEL 0 = BOUNDS-LAB17>
55 <FRAME '
\1aMAKE-LABEL>
56 <CALL '
\1aMAKE-LABEL 0 = IB-LAB18>
57 <FRAME '
\1aMAKE-LABEL>
58 <CALL '
\1aMAKE-LABEL 0 = F-LAB19>
59 <FRAME '
\1aMAKE-LABEL>
60 <CALL '
\1aMAKE-LABEL 0 = EXIT-LAB20>
61 <FRAME '
\1aMAKE-LABEL>
62 <CALL '
\1aMAKE-LABEL 0 = M-LAB21>
63 <TYPE? HINT12 <TYPE-CODE FALSE> + PHRASE28>
64 <FRAME '
\1aPARSE-HINT>
68 <CALL '
\1aPARSE-HINT 2 = HINT12>
70 <EQUAL? HINT12 'ATOM - PHRASE31>
71 <SET RLEN13 20 (TYPE FIX)>
72 <SET STK?14 %<> (TYPE FALSE)>
75 <EQUAL? HINT12 'GBIND - PHRASE32>
76 <SET RLEN13 20 (TYPE FIX)>
77 <SET STK?14 %<> (TYPE FALSE)>
80 <EQUAL? HINT12 'LBIND - PHRASE33>
81 <SET RLEN13 32 (TYPE FIX)>
82 <SET STK?14 'T (TYPE ATOM)>
86 <PUSH 'BAD-HINT-FOR-CGC-RECORD!-ERRORS>
89 <PUSH 'CGC-RECORD-GEN>
92 <SET TEMP42 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
96 <EMPL? TEMP42 + MAPAP40>
102 <RESTL TEMP42 1 = TEMP42 (TYPE LIST)>
105 <FRAME '
\1aMA-DEF-DISP>
108 <CHTYPE END-ATOM8 <TYPE-CODE XGLOC> = STACK>
110 <CALL '
\1aADD-MVEC 1 = TEMP42>
111 <ADD TEMP42 4 = STACK (TYPE FIX)>
113 <CALL '
\1aMA-DEF-DISP 2 = X47>
114 <FRAME '
\1aMA-DEF-DISP>
117 <CHTYPE ALLOC-ATOM7 <TYPE-CODE XGLOC> = STACK>
119 <CALL '
\1aADD-MVEC 1 = TEMP42>
120 <ADD TEMP42 4 = STACK (TYPE FIX)>
122 <CALL '
\1aMA-DEF-DISP 2 = ALLOCADDR15>
123 <VEQUAL? STK?14 0 + PHRASE54>
127 <GVAL 'AC-TP = STK?14>
128 <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
130 <OR TEMP42 #WORD *120* = TEMP42>
131 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
132 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
134 <FRAME '
\1aVAR-VALUE-ADDRESS>
136 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
138 <FRAME '
\1aEMIT-BRANCH>
142 <GVAL 'LAST-INST-LENGTH = STACK>
143 <CALL '
\1aEMIT-BRANCH 4>
150 <CALL '
\1aADD-MVEC 1 = STACK>
151 <CALL '
\1aMA-DISP 2 = STACK>
152 <GVAL 'AC-0 = STK?14>
153 <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
155 <OR TEMP42 #WORD *120* = TEMP42>
156 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
157 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
160 <FRAME '
\1aEMIT-BRANCH>
164 <GVAL 'LAST-INST-LENGTH = STACK>
165 <CALL '
\1aEMIT-BRANCH 4>
166 <FRAME '
\1aEMIT-LABEL>
170 <CALL '
\1aEMIT-LABEL 2>
171 <FRAME '
\1aFRAME-GEN>
173 <CALL '
\1aFRAME-GEN 1>
176 <FRAME '
\1aVAR-TYPE-ADDRESS>
178 <CALL '
\1aVAR-TYPE-ADDRESS 1 = STACK>
179 <GVAL 'AC-TP = STK?14>
180 <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
182 <OR TEMP42 #WORD *200* = TEMP42>
183 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
184 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
191 <CALL '
\1aCALL-GEN 2>
194 <GVAL 'AC-1 = STK?14>
195 <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
197 <OR TEMP42 #WORD *120* = TEMP42>
198 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
199 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
202 <FRAME '
\1aEMIT-BRANCH>
206 <GVAL 'LAST-INST-LENGTH = STACK>
207 <CALL '
\1aEMIT-BRANCH 4>
210 <FRAME '
\1aTYPE-WORD>
212 <CALL '
\1aTYPE-WORD 1 = STACK>
213 <GVAL 'AC-0 = STK?14>
214 <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
216 <OR TEMP42 #WORD *120* = TEMP42>
217 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
218 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
223 <FRAME '
\1aVAR-VALUE-ADDRESS>
225 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
226 <GVAL 'AC-1 = STK?14>
227 <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
229 <OR TEMP42 #WORD *120* = TEMP42>
230 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
231 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
234 <FRAME '
\1aEMIT-BRANCH>
238 <GVAL 'LAST-INST-LENGTH = STACK>
239 <CALL '
\1aEMIT-BRANCH 4>
240 <FRAME '
\1aEMIT-LABEL>
244 <CALL '
\1aEMIT-LABEL 2>
248 <FRAME '
\1aVAR-VALUE-ADDRESS>
250 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
251 <GVAL 'AC-1 = STK?14>
252 <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
254 <OR TEMP42 #WORD *120* = TEMP42>
255 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
256 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
263 <ADD RLEN13 1 = STACK (TYPE FIX)>
264 <CALL '
\1aMA-DISP 2 = STACK>
266 <FRAME '
\1aEMIT-BRANCH>
270 <GVAL 'LAST-INST-LENGTH = STACK>
271 <CALL '
\1aEMIT-BRANCH 4>
274 <FRAME '
\1aVAR-TYPE-ADDRESS>
276 <CALL '
\1aVAR-TYPE-ADDRESS 1 = STACK>
277 <GVAL 'AC-0 = STK?14>
278 <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
280 <OR TEMP42 #WORD *120* = TEMP42>
281 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
282 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
289 <ADD RLEN13 4 = STACK (TYPE FIX)>
290 <CALL '
\1aMA-DISP 2 = STACK>
291 <GVAL 'AC-1 = STK?14>
292 <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
294 <OR TEMP42 #WORD *120* = TEMP42>
295 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
296 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
299 <FRAME '
\1aEMIT-BRANCH>
303 <GVAL 'LAST-INST-LENGTH = STACK>
304 <CALL '
\1aEMIT-BRANCH 4>
305 <FRAME '
\1aEMIT-LABEL>
309 <CALL '
\1aEMIT-LABEL 2>
312 <GVAL 'AC-PC = STK?14>
313 <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
315 <OR TEMP42 #WORD *200* = TEMP42>
316 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
317 <LSH 128 16 = STK?14 (TYPE FIX)>
318 <OR TEMP42 STK?14 = TEMP42>
320 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
324 <ADD RLEN13 1 = STACK (TYPE FIX)>
325 <CALL '
\1aMA-DISP 2 = STACK>
330 <GVAL 'AC-2 = TEMP42>
331 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
332 <OR TEMP42 #WORD *120* = TEMP42>
333 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
334 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
340 <ADD RLEN13 8 = STACK (TYPE FIX)>
341 <CALL '
\1aMA-IMM 1 = STACK>
342 <GVAL 'AC-3 = TEMP42>
343 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
344 <OR TEMP42 #WORD *120* = TEMP42>
345 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
346 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
348 <GVAL 'AC-6 = TEMP42>
349 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
350 <OR TEMP42 #WORD *120* = TEMP42>
351 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
352 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
359 <GVAL 'AC-4 = TEMP42>
360 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
361 <OR TEMP42 #WORD *120* = TEMP42>
362 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
363 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
368 <GVAL 'AC-6 = TEMP42>
369 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
370 <OR TEMP42 #WORD *120* = TEMP42>
371 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
372 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
374 <GVAL 'AC-5 = TEMP42>
375 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
376 <OR TEMP42 #WORD *120* = TEMP42>
377 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
378 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
381 <FRAME '
\1aEMIT-BRANCH>
385 <GVAL 'LAST-INST-LENGTH = STACK>
386 <CALL '
\1aEMIT-BRANCH 4>
387 <FRAME '
\1aFRAME-GEN>
389 <CALL '
\1aFRAME-GEN 1>
390 <FRAME '
\1aEMIT-PUSH>
391 <FRAME '
\1aTYPE-WORD>
393 <CALL '
\1aTYPE-WORD 1 = STACK>
395 <CALL '
\1aEMIT-PUSH 2>
399 <ADD RLEN13 8 = STACK (TYPE FIX)>
400 <CALL '
\1aMA-IMM 1 = STACK>
401 <GVAL 'AC-TP = TEMP42>
402 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
403 <OR TEMP42 #WORD *200* = TEMP42>
404 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
405 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
412 <CALL '
\1aCALL-GEN 2>
415 <FRAME '
\1aVAR-VALUE-ADDRESS>
418 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
419 <GVAL 'AC-1 = TEMP42>
420 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
421 <OR TEMP42 #WORD *120* = TEMP42>
422 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
423 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
429 <GVAL 'AC-2 = TEMP42>
430 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
431 <OR TEMP42 #WORD *120* = TEMP42>
432 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
433 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
439 <ADD RLEN13 8 = STACK (TYPE FIX)>
440 <CALL '
\1aMA-IMM 1 = STACK>
441 <GVAL 'AC-3 = TEMP42>
442 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
443 <OR TEMP42 #WORD *120* = TEMP42>
444 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
445 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
447 <GVAL 'AC-6 = TEMP42>
448 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
449 <OR TEMP42 #WORD *120* = TEMP42>
450 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
451 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
454 <FRAME '
\1aEMIT-LABEL>
458 <CALL '
\1aEMIT-LABEL 2>
461 <GVAL 'AC-3 = TEMP42>
462 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
463 <OR TEMP42 #WORD *120* = TEMP42>
464 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
465 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
469 <ADD RLEN13 4 = STACK (TYPE FIX)>
470 <CALL '
\1aMA-DISP 2 = STACK>
474 <FRAME '
\1aTYPE-CODE>
476 <CALL '
\1aTYPE-CODE 1 = STACK>
477 <GVAL 'AC-5 = TEMP42>
478 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
479 <OR TEMP42 #WORD *120* = TEMP42>
480 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
481 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
486 <GVAL 'AC-5 = TEMP42>
487 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
488 <OR TEMP42 #WORD *120* = TEMP42>
489 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
490 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
500 <CALL '
\1aMA-DISP 2 = STACK>
504 <CALL '
\1aMA-DISP 2 = STACK>
508 <GVAL 'AC-PC = TEMP42>
509 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
510 <OR TEMP42 #WORD *200* = TEMP42>
511 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
512 <LSH 128 16 = STK?14 (TYPE FIX)>
513 <OR TEMP42 STK?14 = TEMP42>
515 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
519 <ADD RLEN13 1 = STACK (TYPE FIX)>
521 <CALL '
\1aMA-DISP 2 = STACK>
525 <GVAL 'AC-3 = TEMP42>
526 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
527 <OR TEMP42 #WORD *120* = TEMP42>
528 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
529 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
531 <GVAL 'AC-1 = TEMP42>
532 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
533 <OR TEMP42 #WORD *120* = TEMP42>
534 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
535 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
540 <FRAME '
\1aTYPE-WORD>
542 <CALL '
\1aTYPE-WORD 1 = STACK>
543 <GVAL 'AC-0 = TEMP42>
544 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
545 <OR TEMP42 #WORD *120* = TEMP42>
546 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
547 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
550 <FRAME '
\1aEMIT-LABEL>
554 <CALL '
\1aEMIT-LABEL 2>
555 <EQUAL? RES11 'STACK - PHRASE121>
558 <GVAL 'AC-0 = TEMP42>
559 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
560 <OR TEMP42 #WORD *120* = TEMP42>
561 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
562 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
564 <GVAL 'AC-TP = TEMP42>
565 <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
566 <OR TEMP42 #WORD *200* = TEMP42>
567 <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
568 <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
573 <FRAME '
\1aDEST-PAIR>
578 <CALL '
\1aDEST-PAIR 3>
580 <END
\1aCGC-RECORD-GEN>
583 <GFCN
\1aCGC-STBYTE-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY) VAR4 ALLOC-ATOM5 END-ATOM6 NEXT-ATOM7 RES8>
584 <TEMP TEMP15 X20:ATOM>
586 <SET TEMP15 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
590 <EMPL? TEMP15 + MAPAP13>
591 <NTHL TEMP15 1 = X20>
596 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
601 <FRAME '
\1aVAR-COUNT-ADDRESS>
603 <CALL '
\1aVAR-COUNT-ADDRESS 1 = STACK>
604 <GVAL 'AC-0 = TEMP15>
605 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
606 <OR TEMP15 #WORD *120* = TEMP15>
607 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
608 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
613 <GVAL 'AC-0 = TEMP15>
614 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
615 <OR TEMP15 #WORD *120* = TEMP15>
616 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
617 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
619 <FRAME '
\1aVAR-VALUE-ADDRESS>
621 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
622 <GVAL 'AC-1 = TEMP15>
623 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
624 <OR TEMP15 #WORD *120* = TEMP15>
625 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
626 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
633 <CALL '
\1aMA-IMM 1 = STACK>
634 <GVAL 'AC-1 = TEMP15>
635 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
636 <OR TEMP15 #WORD *120* = TEMP15>
637 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
638 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
645 <CALL '
\1aMA-IMM 1 = STACK>
646 <GVAL 'AC-1 = TEMP15>
647 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
648 <OR TEMP15 #WORD *120* = TEMP15>
649 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
650 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
655 <FRAME '
\1aVAR-VALUE-ADDRESS>
657 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
658 <GVAL 'AC-1 = TEMP15>
659 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
660 <OR TEMP15 #WORD *120* = TEMP15>
661 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
662 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
664 <GVAL 'AC-0 = TEMP15>
665 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
666 <OR TEMP15 #WORD *120* = TEMP15>
667 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
668 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
671 <FRAME '
\1aCGC-UV-ST>
682 <CALL '
\1aCGC-UV-ST 5 = TEMP15>
685 <END
\1aCGC-STBYTE-GEN>
688 <GFCN
\1aCGC-UVECTOR-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY) VAR4 ALLOC-ATOM5 END-ATOM6 NEXT-ATOM7 RES8>
689 <TEMP TEMP15 X20:ATOM>
691 <SET TEMP15 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
695 <EMPL? TEMP15 + MAPAP13>
696 <NTHL TEMP15 1 = X20>
701 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
706 <FRAME '
\1aVAR-COUNT-ADDRESS>
708 <CALL '
\1aVAR-COUNT-ADDRESS 1 = STACK>
709 <GVAL 'AC-0 = TEMP15>
710 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
711 <OR TEMP15 #WORD *120* = TEMP15>
712 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
713 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
720 <CALL '
\1aMA-IMM 1 = STACK>
721 <GVAL 'AC-0 = TEMP15>
722 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
723 <OR TEMP15 #WORD *120* = TEMP15>
724 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
725 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
727 <GVAL 'AC-0 = TEMP15>
728 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
729 <OR TEMP15 #WORD *120* = TEMP15>
730 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
731 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
736 <GVAL 'AC-0 = TEMP15>
737 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
738 <OR TEMP15 #WORD *120* = TEMP15>
739 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
740 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
742 <FRAME '
\1aVAR-VALUE-ADDRESS>
744 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
745 <GVAL 'AC-1 = TEMP15>
746 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
747 <OR TEMP15 #WORD *120* = TEMP15>
748 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
749 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
752 <FRAME '
\1aCGC-UV-ST>
763 <CALL '
\1aCGC-UV-ST 5 = TEMP15>
766 <END
\1aCGC-UVECTOR-GEN>
769 <GFCN
\1aCGC-UV-ST ("VALUE" ATOM VARTBL ATOM ATOM ATOM <OR VARTBL ATOM>) VAR4 ALLOC-ATOM5 END-ATOM6 NEXT-ATOM7 RES8>
770 <TEMP M-LAB11 BLT-LOOP12 NF-LAB13 F-LAB14 SHT-LAB15 DONE-LAB16 TEMP25 ENDADDR9 ALLOCADDR10 TEMP32>
772 <FRAME '
\1aMAKE-LABEL>
773 <CALL '
\1aMAKE-LABEL 0 = M-LAB11>
774 <FRAME '
\1aMAKE-LABEL>
775 <CALL '
\1aMAKE-LABEL 0 = BLT-LOOP12>
776 <FRAME '
\1aMAKE-LABEL>
777 <CALL '
\1aMAKE-LABEL 0 = NF-LAB13>
778 <FRAME '
\1aMAKE-LABEL>
779 <CALL '
\1aMAKE-LABEL 0 = F-LAB14>
780 <FRAME '
\1aMAKE-LABEL>
781 <CALL '
\1aMAKE-LABEL 0 = SHT-LAB15>
782 <FRAME '
\1aMAKE-LABEL>
783 <CALL '
\1aMAKE-LABEL 0 = DONE-LAB16>
784 <FRAME '
\1aMA-DEF-DISP>
787 <CHTYPE END-ATOM6 <TYPE-CODE XGLOC> = STACK>
789 <CALL '
\1aADD-MVEC 1 = TEMP25>
790 <ADD TEMP25 4 = STACK (TYPE FIX)>
792 <CALL '
\1aMA-DEF-DISP 2 = ENDADDR9>
793 <FRAME '
\1aMA-DEF-DISP>
796 <CHTYPE ALLOC-ATOM5 <TYPE-CODE XGLOC> = STACK>
798 <CALL '
\1aADD-MVEC 1 = TEMP25>
799 <ADD TEMP25 4 = STACK (TYPE FIX)>
801 <CALL '
\1aMA-DEF-DISP 2 = ALLOCADDR10>
807 <CALL '
\1aMA-DISP 2 = STACK>
809 <FRAME '
\1aEMIT-BRANCH>
813 <GVAL 'LAST-INST-LENGTH = STACK>
814 <CALL '
\1aEMIT-BRANCH 4>
817 <GVAL 'AC-PC = TEMP25>
818 <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
819 <OR TEMP25 #WORD *200* = TEMP25>
820 <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
821 <LSH 128 16 = TEMP32 (TYPE FIX)>
822 <OR TEMP25 TEMP32 = TEMP25>
824 <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
829 <CALL '
\1aMA-DISP 2 = STACK>
833 <GVAL 'AC-0 = TEMP25>
834 <NTHUV TEMP25 2 = TEMP32 (TYPE FIX)>
836 <OR TEMP32 #WORD *120* = TEMP32>
837 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
838 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
846 <CALL '
\1aMA-DISP 2 = STACK>
847 <GVAL 'AC-6 = TEMP32>
848 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
849 <OR TEMP32 #WORD *120* = TEMP32>
850 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
851 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
858 <CALL '
\1aMA-IMM 1 = STACK>
859 <GVAL 'AC-6 = TEMP32>
860 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
861 <OR TEMP32 #WORD *120* = TEMP32>
862 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
863 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
865 <GVAL 'AC-6 = TEMP32>
866 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
867 <OR TEMP32 #WORD *120* = TEMP32>
868 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
869 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
874 <GVAL 'AC-6 = TEMP32>
875 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
876 <OR TEMP32 #WORD *120* = TEMP32>
877 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
878 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
884 <GVAL 'AC-2 = TEMP32>
885 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
886 <OR TEMP32 #WORD *120* = TEMP32>
887 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
888 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
893 <GVAL 'AC-3 = TEMP32>
894 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
895 <OR TEMP32 #WORD *120* = TEMP32>
896 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
897 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
899 <GVAL 'AC-6 = TEMP32>
900 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
901 <OR TEMP32 #WORD *120* = TEMP32>
902 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
903 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
906 <FRAME '
\1aEMIT-BRANCH>
910 <GVAL 'LAST-INST-LENGTH = STACK>
911 <CALL '
\1aEMIT-BRANCH 4>
916 <GVAL 'AC-4 = TEMP32>
917 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
918 <OR TEMP32 #WORD *120* = TEMP32>
919 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
920 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
925 <GVAL 'AC-6 = TEMP32>
926 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
927 <OR TEMP32 #WORD *120* = TEMP32>
928 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
929 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
931 <GVAL 'AC-5 = TEMP32>
932 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
933 <OR TEMP32 #WORD *120* = TEMP32>
934 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
935 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
938 <FRAME '
\1aEMIT-BRANCH>
942 <GVAL 'LAST-INST-LENGTH = STACK>
943 <CALL '
\1aEMIT-BRANCH 4>
944 <FRAME '
\1aEMIT-LABEL>
948 <CALL '
\1aEMIT-LABEL 2>
949 <FRAME '
\1aFRAME-GEN>
951 <CALL '
\1aFRAME-GEN 1>
952 <FRAME '
\1aEMIT-PUSH>
953 <FRAME '
\1aTYPE-WORD>
955 <CALL '
\1aTYPE-WORD 1 = STACK>
957 <CALL '
\1aEMIT-PUSH 2>
960 <GVAL 'AC-P = TEMP32>
961 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
962 <OR TEMP32 #WORD *140* = TEMP32>
963 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
964 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
966 <GVAL 'AC-TP = TEMP32>
967 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
968 <OR TEMP32 #WORD *200* = TEMP32>
969 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
970 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
975 <GVAL 'AC-1 = TEMP32>
976 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
977 <OR TEMP32 #WORD *120* = TEMP32>
978 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
979 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
986 <CALL '
\1aCALL-GEN 2>
990 <GVAL 'AC-2 = TEMP32>
991 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
992 <OR TEMP32 #WORD *120* = TEMP32>
993 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
994 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
999 <GVAL 'AC-P = TEMP32>
1000 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1001 <OR TEMP32 #WORD *200* = TEMP32>
1002 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1003 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1005 <GVAL 'AC-1 = TEMP32>
1006 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1007 <OR TEMP32 #WORD *120* = TEMP32>
1008 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1009 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1014 <GVAL 'AC-P = TEMP32>
1015 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1016 <OR TEMP32 #WORD *140* = TEMP32>
1017 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1018 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1020 <GVAL 'AC-6 = TEMP32>
1021 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1022 <OR TEMP32 #WORD *120* = TEMP32>
1023 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1024 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1029 <GVAL 'AC-3 = TEMP32>
1030 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1031 <OR TEMP32 #WORD *120* = TEMP32>
1032 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1033 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1035 <GVAL 'AC-6 = TEMP32>
1036 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1037 <OR TEMP32 #WORD *120* = TEMP32>
1038 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1039 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1042 <FRAME '
\1aEMIT-LABEL>
1046 <CALL '
\1aEMIT-LABEL 2>
1050 <GVAL 'AC-6 = STACK>
1052 <CALL '
\1aMA-DISP 2 = STACK>
1054 <GVAL 'AC-1 = STACK>
1056 <CALL '
\1aMA-DISP 2 = STACK>
1060 <FRAME '
\1aTYPE-CODE>
1062 <CALL '
\1aTYPE-CODE 1 = STACK>
1063 <GVAL 'AC-5 = TEMP32>
1064 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1065 <OR TEMP32 #WORD *120* = TEMP32>
1066 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1067 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1072 <GVAL 'AC-5 = TEMP32>
1073 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1074 <OR TEMP32 #WORD *120* = TEMP32>
1075 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1076 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1083 <GVAL 'AC-P = TEMP32>
1084 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1085 <OR TEMP32 #WORD *200* = TEMP32>
1086 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1087 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1089 <GVAL 'AC-6 = TEMP32>
1090 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1091 <OR TEMP32 #WORD *120* = TEMP32>
1092 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1093 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1098 <GVAL 'AC-6 = TEMP32>
1099 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1100 <OR TEMP32 #WORD *120* = TEMP32>
1101 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1102 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1104 <GVAL 'AC-1 = TEMP32>
1105 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1106 <OR TEMP32 #WORD *120* = TEMP32>
1107 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1108 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1115 <CALL '
\1aMA-IMM 1 = STACK>
1116 <GVAL 'AC-1 = TEMP32>
1117 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1118 <OR TEMP32 #WORD *120* = TEMP32>
1119 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1120 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1123 <FRAME '
\1aEMIT-LABEL>
1126 <CALL '
\1aEMIT-LABEL 2>
1129 <GVAL 'AC-6 = TEMP32>
1130 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1131 <OR TEMP32 #WORD *120* = TEMP32>
1132 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1133 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1135 <GVAL 'AC-5 = TEMP32>
1136 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1137 <OR TEMP32 #WORD *120* = TEMP32>
1138 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1139 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1144 <GVAL 'AC-6 = TEMP32>
1145 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1146 <OR TEMP32 #WORD *120* = TEMP32>
1147 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1148 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1152 <CALL '
\1aMA-IMM 1 = STACK>
1154 <FRAME '
\1aGEN-BRANCH>
1158 <CALL '
\1aGEN-BRANCH 3>
1163 <CALL '
\1aMA-IMM 1 = STACK>
1164 <GVAL 'AC-5 = TEMP32>
1165 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1166 <OR TEMP32 #WORD *120* = TEMP32>
1167 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1168 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1171 <FRAME '
\1aEMIT-LABEL>
1175 <CALL '
\1aEMIT-LABEL 2>
1178 <GVAL 'AC-5 = TEMP32>
1179 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1180 <OR TEMP32 #WORD *120* = TEMP32>
1181 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1182 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1184 <GVAL 'AC-1 = TEMP32>
1185 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1186 <OR TEMP32 #WORD *140* = TEMP32>
1187 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1188 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1190 <GVAL 'AC-3 = TEMP32>
1191 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1192 <OR TEMP32 #WORD *140* = TEMP32>
1193 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1194 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1201 <CALL '
\1aMA-IMM 1 = STACK>
1202 <GVAL 'AC-6 = TEMP32>
1203 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1204 <OR TEMP32 #WORD *120* = TEMP32>
1205 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1206 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1209 <FRAME '
\1aGEN-BRANCH>
1214 <CALL '
\1aGEN-BRANCH 3>
1217 <GVAL 'AC-PC = TEMP32>
1218 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1219 <OR TEMP32 #WORD *200* = TEMP32>
1220 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1221 <LSH 128 16 = TEMP25 (TYPE FIX)>
1222 <OR TEMP32 TEMP25 = TEMP32>
1224 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1227 <GVAL 'AC-3 = STACK>
1229 <CALL '
\1aMA-DISP 2 = STACK>
1235 <CALL '
\1aMA-IMM 1 = STACK>
1236 <GVAL 'AC-3 = TEMP32>
1237 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1238 <OR TEMP32 #WORD *120* = TEMP32>
1239 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1240 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1242 <GVAL 'AC-1 = TEMP32>
1243 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1244 <OR TEMP32 #WORD *120* = TEMP32>
1245 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1246 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1251 <GVAL 'AC-P = TEMP32>
1252 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1253 <OR TEMP32 #WORD *200* = TEMP32>
1254 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1255 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1257 <GVAL 'AC-1 = TEMP32>
1258 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1259 <OR TEMP32 #WORD *120* = TEMP32>
1260 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1261 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1264 <FRAME '
\1aGEN-BRANCH>
1268 <CALL '
\1aGEN-BRANCH 3>
1269 <FRAME '
\1aEMIT-LABEL>
1273 <CALL '
\1aEMIT-LABEL 2>
1277 <GVAL 'AC-1 = STACK>
1279 <CALL '
\1aMA-DISP 2 = STACK>
1280 <GVAL 'AC-1 = TEMP32>
1281 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1282 <OR TEMP32 #WORD *120* = TEMP32>
1283 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1284 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1289 <GVAL 'AC-0 = TEMP32>
1290 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1291 <OR TEMP32 #WORD *120* = TEMP32>
1292 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1293 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1295 <GVAL 'AC-1 = TEMP32>
1296 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1297 <OR TEMP32 #WORD *120* = TEMP32>
1298 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1299 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1302 <FRAME '
\1aEMIT-LABEL>
1306 <CALL '
\1aEMIT-LABEL 2>
1307 <EQUAL? RES8 'STACK - PHRASE92>
1308 <FRAME '
\1aEMIT-PUSH>
1309 <FRAME '
\1aVAR-TYPE-ADDRESS>
1312 <CALL '
\1aVAR-TYPE-ADDRESS 1 = STACK>
1314 <CALL '
\1aEMIT-PUSH 2>
1315 <FRAME '
\1aEMIT-PUSH>
1316 <GVAL 'AC-1 = STACK>
1318 <CALL '
\1aEMIT-PUSH 2>
1323 <FRAME '
\1aVAR-TYPE-ADDRESS>
1326 <CALL '
\1aVAR-TYPE-ADDRESS 1 = STACK>
1327 <GVAL 'AC-0 = TEMP32>
1328 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1329 <OR TEMP32 #WORD *120* = TEMP32>
1330 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1331 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1334 <FRAME '
\1aDEST-PAIR>
1335 <GVAL 'AC-1 = STACK>
1336 <GVAL 'AC-0 = STACK>
1339 <CALL '
\1aDEST-PAIR 3>
1344 <GFCN
\1aCGC-VECTOR-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY ANY) VAR4 ALLOC-ATOM5 END-ATOM6 NEXT-ATOM7 MARK-ATOM8 RES9>
1345 <TEMP NF-LAB12 F-LAB13 LOOP-LAB14 NM-LAB15 DONE-LAB16 M-LAB17 TEMP26 ENDADDR10 ALLOCADDR11 X39>
1347 <FRAME '
\1aMAKE-LABEL>
1348 <CALL '
\1aMAKE-LABEL 0 = NF-LAB12>
1349 <FRAME '
\1aMAKE-LABEL>
1350 <CALL '
\1aMAKE-LABEL 0 = F-LAB13>
1351 <FRAME '
\1aMAKE-LABEL>
1352 <CALL '
\1aMAKE-LABEL 0 = LOOP-LAB14>
1353 <FRAME '
\1aMAKE-LABEL>
1354 <CALL '
\1aMAKE-LABEL 0 = NM-LAB15>
1355 <FRAME '
\1aMAKE-LABEL>
1356 <CALL '
\1aMAKE-LABEL 0 = DONE-LAB16>
1357 <FRAME '
\1aMAKE-LABEL>
1358 <CALL '
\1aMAKE-LABEL 0 = M-LAB17>
1359 <FRAME '
\1aMA-DEF-DISP>
1360 <GVAL 'AC-M = STACK>
1361 <FRAME '
\1aADD-MVEC>
1362 <CHTYPE END-ATOM6 <TYPE-CODE XGLOC> = STACK>
1364 <CALL '
\1aADD-MVEC 1 = TEMP26>
1365 <ADD TEMP26 4 = STACK (TYPE FIX)>
1367 <CALL '
\1aMA-DEF-DISP 2 = ENDADDR10>
1368 <FRAME '
\1aMA-DEF-DISP>
1369 <GVAL 'AC-M = STACK>
1370 <FRAME '
\1aADD-MVEC>
1371 <CHTYPE ALLOC-ATOM5 <TYPE-CODE XGLOC> = STACK>
1373 <CALL '
\1aADD-MVEC 1 = TEMP26>
1374 <ADD TEMP26 4 = STACK (TYPE FIX)>
1376 <CALL '
\1aMA-DEF-DISP 2 = ALLOCADDR11>
1377 <SET TEMP26 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
1381 <EMPL? TEMP26 + MAPAP33>
1382 <NTHL TEMP26 1 = X39>
1386 <CALL '
\1aMUNG-AC 1>
1387 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1394 <CALL '
\1aMA-IMM 1 = STACK>
1395 <GVAL 'AC-TP = TEMP26>
1396 <NTHUV TEMP26 2 = X39 (TYPE FIX)>
1398 <OR X39 #WORD *120* = X39>
1399 <LSH X39 24 = X39 (TYPE FIX)>
1400 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1405 <FRAME '
\1aVAR-COUNT-ADDRESS>
1407 <CALL '
\1aVAR-COUNT-ADDRESS 1 = STACK>
1408 <GVAL 'AC-2 = TEMP26>
1409 <NTHUV TEMP26 2 = X39 (TYPE FIX)>
1411 <OR X39 #WORD *120* = X39>
1412 <LSH X39 24 = X39 (TYPE FIX)>
1413 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1420 <CALL '
\1aMA-IMM 1 = STACK>
1421 <GVAL 'AC-2 = TEMP26>
1422 <NTHUV TEMP26 2 = X39 (TYPE FIX)>
1424 <OR X39 #WORD *120* = X39>
1425 <LSH X39 24 = X39 (TYPE FIX)>
1426 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1428 <GVAL 'AC-2 = TEMP26>
1429 <NTHUV TEMP26 2 = X39 (TYPE FIX)>
1431 <OR X39 #WORD *120* = X39>
1432 <LSH X39 24 = X39 (TYPE FIX)>
1433 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1438 <GVAL 'AC-2 = TEMP26>
1439 <NTHUV TEMP26 2 = X39 (TYPE FIX)>
1441 <OR X39 #WORD *120* = X39>
1442 <LSH X39 24 = X39 (TYPE FIX)>
1443 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1447 <CALL '
\1aGCTEMP 1 = STACK>
1451 <GVAL 'AC-2 = TEMP26>
1452 <NTHUV TEMP26 2 = X39 (TYPE FIX)>
1454 <OR X39 #WORD *120* = X39>
1455 <LSH X39 24 = X39 (TYPE FIX)>
1456 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1458 <FRAME '
\1aVAR-VALUE-ADDRESS>
1460 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
1461 <GVAL 'AC-3 = TEMP26>
1462 <NTHUV TEMP26 2 = X39 (TYPE FIX)>
1464 <OR X39 #WORD *120* = X39>
1465 <LSH X39 24 = X39 (TYPE FIX)>
1466 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1472 <GVAL 'AC-3 = STACK>
1474 <CALL '
\1aMA-DISP 2 = STACK>
1476 <FRAME '
\1aEMIT-BRANCH>
1480 <GVAL 'LAST-INST-LENGTH = STACK>
1481 <CALL '
\1aEMIT-BRANCH 4>
1484 <GVAL 'AC-PC = TEMP26>
1485 <NTHUV TEMP26 2 = X39 (TYPE FIX)>
1487 <OR X39 #WORD *200* = X39>
1488 <LSH X39 24 = X39 (TYPE FIX)>
1489 <LSH 128 16 = TEMP26 (TYPE FIX)>
1490 <OR X39 TEMP26 = X39>
1492 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1495 <GVAL 'AC-3 = STACK>
1497 <CALL '
\1aMA-DISP 2 = STACK>
1502 <NTHUV X39 2 = X39 (TYPE FIX)>
1503 <OR X39 #WORD *120* = X39>
1504 <LSH X39 24 = X39 (TYPE FIX)>
1505 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1509 <CALL '
\1aGCTEMP 1 = STACK>
1514 <GVAL 'AC-3 = STACK>
1516 <CALL '
\1aMA-DISP 2 = STACK>
1518 <NTHUV X39 2 = X39 (TYPE FIX)>
1519 <OR X39 #WORD *120* = X39>
1520 <LSH X39 24 = X39 (TYPE FIX)>
1521 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1528 <CALL '
\1aMA-IMM 1 = STACK>
1530 <NTHUV X39 2 = X39 (TYPE FIX)>
1531 <OR X39 #WORD *120* = X39>
1532 <LSH X39 24 = X39 (TYPE FIX)>
1533 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1536 <NTHUV X39 2 = X39 (TYPE FIX)>
1537 <OR X39 #WORD *120* = X39>
1538 <LSH X39 24 = X39 (TYPE FIX)>
1539 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1545 <NTHUV X39 2 = X39 (TYPE FIX)>
1546 <OR X39 #WORD *120* = X39>
1547 <LSH X39 24 = X39 (TYPE FIX)>
1548 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1552 <CALL '
\1aGCTEMP 1 = STACK>
1558 <NTHUV X39 2 = X39 (TYPE FIX)>
1559 <OR X39 #WORD *120* = X39>
1560 <LSH X39 24 = X39 (TYPE FIX)>
1561 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1567 <NTHUV X39 2 = X39 (TYPE FIX)>
1568 <OR X39 #WORD *120* = X39>
1569 <LSH X39 24 = X39 (TYPE FIX)>
1570 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1573 <NTHUV X39 2 = X39 (TYPE FIX)>
1574 <OR X39 #WORD *120* = X39>
1575 <LSH X39 24 = X39 (TYPE FIX)>
1576 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1579 <FRAME '
\1aEMIT-BRANCH>
1583 <GVAL 'LAST-INST-LENGTH = STACK>
1584 <CALL '
\1aEMIT-BRANCH 4>
1590 <NTHUV X39 2 = X39 (TYPE FIX)>
1591 <OR X39 #WORD *120* = X39>
1592 <LSH X39 24 = X39 (TYPE FIX)>
1593 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1599 <NTHUV X39 2 = X39 (TYPE FIX)>
1600 <OR X39 #WORD *120* = X39>
1601 <LSH X39 24 = X39 (TYPE FIX)>
1602 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1605 <NTHUV X39 2 = X39 (TYPE FIX)>
1606 <OR X39 #WORD *120* = X39>
1607 <LSH X39 24 = X39 (TYPE FIX)>
1608 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1611 <FRAME '
\1aEMIT-BRANCH>
1615 <GVAL 'LAST-INST-LENGTH = STACK>
1616 <CALL '
\1aEMIT-BRANCH 4>
1617 <FRAME '
\1aEMIT-LABEL>
1621 <CALL '
\1aEMIT-LABEL 2>
1625 <NTHUV X39 2 = X39 (TYPE FIX)>
1626 <OR X39 #WORD *120* = X39>
1627 <LSH X39 24 = X39 (TYPE FIX)>
1628 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1632 <CALL '
\1aGCTEMP 1 = STACK>
1638 <CALL '
\1aGCTEMP 1 = STACK>
1640 <NTHUV X39 2 = X39 (TYPE FIX)>
1641 <OR X39 #WORD *120* = X39>
1642 <LSH X39 24 = X39 (TYPE FIX)>
1643 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1646 <FRAME '
\1aFRAME-GEN>
1648 <CALL '
\1aFRAME-GEN 1>
1649 <FRAME '
\1aEMIT-PUSH>
1650 <FRAME '
\1aTYPE-WORD>
1652 <CALL '
\1aTYPE-WORD 1 = STACK>
1654 <CALL '
\1aEMIT-PUSH 2>
1658 <NTHUV X39 2 = X39 (TYPE FIX)>
1659 <OR X39 #WORD *120* = X39>
1660 <LSH X39 24 = X39 (TYPE FIX)>
1661 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1664 <NTHUV X39 2 = X39 (TYPE FIX)>
1665 <OR X39 #WORD *200* = X39>
1666 <LSH X39 24 = X39 (TYPE FIX)>
1667 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1670 <FRAME '
\1aCALL-GEN>
1674 <CALL '
\1aCALL-GEN 2>
1679 <NTHUV X39 2 = X39 (TYPE FIX)>
1680 <OR X39 #WORD *120* = X39>
1681 <LSH X39 24 = X39 (TYPE FIX)>
1682 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1689 <CALL '
\1aGCTEMP 1 = STACK>
1691 <NTHUV X39 2 = X39 (TYPE FIX)>
1692 <OR X39 #WORD *120* = X39>
1693 <LSH X39 24 = X39 (TYPE FIX)>
1694 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1701 <CALL '
\1aGCTEMP 1 = STACK>
1703 <NTHUV X39 2 = X39 (TYPE FIX)>
1704 <OR X39 #WORD *120* = X39>
1705 <LSH X39 24 = X39 (TYPE FIX)>
1706 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1712 <NTHUV X39 2 = X39 (TYPE FIX)>
1713 <OR X39 #WORD *120* = X39>
1714 <LSH X39 24 = X39 (TYPE FIX)>
1715 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1718 <NTHUV X39 2 = X39 (TYPE FIX)>
1719 <OR X39 #WORD *120* = X39>
1720 <LSH X39 24 = X39 (TYPE FIX)>
1721 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1724 <FRAME '
\1aEMIT-LABEL>
1728 <CALL '
\1aEMIT-LABEL 2>
1732 <GVAL 'AC-6 = STACK>
1734 <CALL '
\1aMA-DISP 2 = STACK>
1736 <GVAL 'AC-3 = STACK>
1738 <CALL '
\1aMA-DISP 2 = STACK>
1743 <NTHUV X39 2 = X39 (TYPE FIX)>
1744 <OR X39 #WORD *140* = X39>
1745 <LSH X39 24 = X39 (TYPE FIX)>
1746 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1749 <GVAL 'AC-6 = STACK>
1751 <CALL '
\1aMA-DISP 2 = STACK>
1756 <NTHUV X39 2 = X39 (TYPE FIX)>
1757 <OR X39 #WORD *200* = X39>
1758 <LSH X39 24 = X39 (TYPE FIX)>
1759 <LSH 128 16 = TEMP26 (TYPE FIX)>
1760 <OR X39 TEMP26 = X39>
1762 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1765 <GVAL 'AC-6 = STACK>
1767 <CALL '
\1aMA-DISP 2 = STACK>
1771 <FRAME '
\1aTYPE-CODE>
1773 <CALL '
\1aTYPE-CODE 1 = STACK>
1775 <NTHUV X39 2 = X39 (TYPE FIX)>
1776 <OR X39 #WORD *120* = X39>
1777 <LSH X39 24 = X39 (TYPE FIX)>
1778 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1784 <NTHUV X39 2 = X39 (TYPE FIX)>
1785 <OR X39 #WORD *120* = X39>
1786 <LSH X39 24 = X39 (TYPE FIX)>
1787 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1796 <CALL '
\1aMA-IMM 1 = STACK>
1799 <CALL '
\1aGCTEMP 1 = STACK>
1805 <CALL '
\1aGCTEMP 1 = STACK>
1807 <NTHUV X39 2 = X39 (TYPE FIX)>
1808 <OR X39 #WORD *120* = X39>
1809 <LSH X39 24 = X39 (TYPE FIX)>
1810 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1817 <CALL '
\1aMA-IMM 1 = STACK>
1820 <CALL '
\1aGCTEMP 1 = STACK>
1823 <CALL '
\1aGCTEMP 1 = STACK>
1825 <FRAME '
\1aEMIT-BRANCH>
1829 <GVAL 'LAST-INST-LENGTH = STACK>
1830 <CALL '
\1aEMIT-BRANCH 4>
1834 <NTHUV X39 2 = X39 (TYPE FIX)>
1835 <OR X39 #WORD *120* = X39>
1836 <LSH X39 24 = X39 (TYPE FIX)>
1837 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1840 <NTHUV X39 2 = X39 (TYPE FIX)>
1841 <OR X39 #WORD *120* = X39>
1842 <LSH X39 24 = X39 (TYPE FIX)>
1843 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1846 <FRAME '
\1aEMIT-LABEL>
1849 <CALL '
\1aEMIT-LABEL 2>
1853 <NTHUV X39 2 = X39 (TYPE FIX)>
1854 <OR X39 #WORD *140* = X39>
1855 <LSH X39 24 = X39 (TYPE FIX)>
1856 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1859 <NTHUV X39 2 = X39 (TYPE FIX)>
1860 <OR X39 #WORD *120* = X39>
1861 <LSH X39 24 = X39 (TYPE FIX)>
1862 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1868 <NTHUV X39 2 = X39 (TYPE FIX)>
1869 <OR X39 #WORD *200* = X39>
1870 <LSH X39 24 = X39 (TYPE FIX)>
1871 <LSH 7 16 = TEMP26 (TYPE FIX)>
1872 <OR X39 TEMP26 = X39>
1874 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1877 <NTHUV X39 2 = X39 (TYPE FIX)>
1878 <OR X39 #WORD *120* = X39>
1879 <LSH X39 24 = X39 (TYPE FIX)>
1880 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1883 <FRAME '
\1aEMIT-BRANCH>
1887 <GVAL 'LAST-INST-LENGTH = STACK>
1888 <CALL '
\1aEMIT-BRANCH 4>
1892 <NTHUV X39 2 = X39 (TYPE FIX)>
1893 <OR X39 #WORD *120* = X39>
1894 <LSH X39 24 = X39 (TYPE FIX)>
1895 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1899 <CALL '
\1aGCTEMP 1 = STACK>
1904 <NTHUV X39 2 = X39 (TYPE FIX)>
1905 <OR X39 #WORD *120* = X39>
1906 <LSH X39 24 = X39 (TYPE FIX)>
1907 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1911 <CALL '
\1aGCTEMP 1 = STACK>
1913 <FRAME '
\1aFRAME-GEN>
1915 <CALL '
\1aFRAME-GEN 1>
1919 <NTHUV X39 2 = X39 (TYPE FIX)>
1920 <OR X39 #WORD *120* = X39>
1921 <LSH X39 24 = X39 (TYPE FIX)>
1922 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1925 <NTHUV X39 2 = X39 (TYPE FIX)>
1926 <OR X39 #WORD *200* = X39>
1927 <LSH X39 24 = X39 (TYPE FIX)>
1928 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1931 <FRAME '
\1aCALL-GEN>
1935 <CALL '
\1aCALL-GEN 2>
1940 <CALL '
\1aGCTEMP 1 = STACK>
1942 <NTHUV X39 2 = X39 (TYPE FIX)>
1943 <OR X39 #WORD *120* = X39>
1944 <LSH X39 24 = X39 (TYPE FIX)>
1945 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1952 <CALL '
\1aGCTEMP 1 = STACK>
1954 <NTHUV X39 2 = X39 (TYPE FIX)>
1955 <OR X39 #WORD *120* = X39>
1956 <LSH X39 24 = X39 (TYPE FIX)>
1957 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1960 <FRAME '
\1aEMIT-LABEL>
1964 <CALL '
\1aEMIT-LABEL 2>
1968 <NTHUV X39 2 = X39 (TYPE FIX)>
1969 <OR X39 #WORD *120* = X39>
1970 <LSH X39 24 = X39 (TYPE FIX)>
1971 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1974 <NTHUV X39 2 = X39 (TYPE FIX)>
1975 <OR X39 #WORD *140* = X39>
1976 <LSH X39 24 = X39 (TYPE FIX)>
1977 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1984 <CALL '
\1aMA-IMM 1 = STACK>
1986 <NTHUV X39 2 = X39 (TYPE FIX)>
1987 <OR X39 #WORD *120* = X39>
1988 <LSH X39 24 = X39 (TYPE FIX)>
1989 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1996 <CALL '
\1aMA-IMM 1 = STACK>
1998 <NTHUV X39 2 = X39 (TYPE FIX)>
1999 <OR X39 #WORD *120* = X39>
2000 <LSH X39 24 = X39 (TYPE FIX)>
2001 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
2008 <CALL '
\1aGCTEMP 1 = STACK>
2010 <FRAME '
\1aEMIT-BRANCH>
2015 <GVAL 'LAST-INST-LENGTH = STACK>
2016 <CALL '
\1aEMIT-BRANCH 4>
2017 <FRAME '
\1aEMIT-LABEL>
2021 <CALL '
\1aEMIT-LABEL 2>
2026 <CALL '
\1aGCTEMP 1 = STACK>
2028 <NTHUV X39 2 = X39 (TYPE FIX)>
2029 <OR X39 #WORD *120* = X39>
2030 <LSH X39 24 = X39 (TYPE FIX)>
2031 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
2034 <FRAME '
\1aEMIT-LABEL>
2038 <CALL '
\1aEMIT-LABEL 2>
2041 <FRAME '
\1aVAR-TYPE-ADDRESS>
2044 <CALL '
\1aVAR-TYPE-ADDRESS 1 = STACK>
2046 <NTHUV X39 2 = X39 (TYPE FIX)>
2047 <OR X39 #WORD *120* = X39>
2048 <LSH X39 24 = X39 (TYPE FIX)>
2049 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
2055 <GVAL 'AC-3 = STACK>
2057 <CALL '
\1aMA-DISP 2 = STACK>
2059 <NTHUV X39 2 = X39 (TYPE FIX)>
2060 <OR X39 #WORD *120* = X39>
2061 <LSH X39 24 = X39 (TYPE FIX)>
2062 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
2069 <CALL '
\1aGCTEMP 1 = STACK>
2071 <NTHUV X39 2 = X39 (TYPE FIX)>
2072 <OR X39 #WORD *120* = X39>
2073 <LSH X39 24 = X39 (TYPE FIX)>
2074 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
2081 <CALL '
\1aMA-IMM 1 = STACK>
2083 <NTHUV X39 2 = X39 (TYPE FIX)>
2084 <OR X39 #WORD *120* = X39>
2085 <LSH X39 24 = X39 (TYPE FIX)>
2086 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
2089 <EQUAL? RES9 'STACK - PHRASE145>
2093 <NTHUV X39 2 = X39 (TYPE FIX)>
2094 <OR X39 #WORD *120* = X39>
2095 <LSH X39 24 = X39 (TYPE FIX)>
2096 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
2099 <NTHUV X39 2 = X39 (TYPE FIX)>
2100 <OR X39 #WORD *200* = X39>
2101 <LSH X39 24 = X39 (TYPE FIX)>
2102 <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
2107 <FRAME '
\1aDEST-PAIR>
2108 <GVAL 'AC-1 = STACK>
2109 <GVAL 'AC-0 = STACK>
2112 <CALL '
\1aDEST-PAIR 3>
2114 <END
\1aCGC-VECTOR-GEN>
2117 <GFCN
\1aCGC-LIST-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY ANY ANY "OPTIONAL" ANY) VAR6 ALLOC-ATOM7 END-ATOM8 NEXT-ATOM9 BOUNDS-ATOM10 MARK-ATOM11 CHOMP12 RES13>
2118 <OPT-DISPATCH 7 %<> OPT4 OPT5>
2122 <TEMP M-LAB16 DONE-LAB17 LOOP-LAB18 NF-LAB19 F-LAB20 NB-LAB21 MC-LAB22 (UNDO?23 %<>) TEMP35 ENDADDR14 ALLOCADDR15 X48>
2124 <FRAME '
\1aMAKE-LABEL>
2125 <CALL '
\1aMAKE-LABEL 0 = M-LAB16>
2126 <FRAME '
\1aMAKE-LABEL>
2127 <CALL '
\1aMAKE-LABEL 0 = DONE-LAB17>
2128 <FRAME '
\1aMAKE-LABEL>
2129 <CALL '
\1aMAKE-LABEL 0 = LOOP-LAB18>
2130 <FRAME '
\1aMAKE-LABEL>
2131 <CALL '
\1aMAKE-LABEL 0 = NF-LAB19>
2132 <FRAME '
\1aMAKE-LABEL>
2133 <CALL '
\1aMAKE-LABEL 0 = F-LAB20>
2134 <FRAME '
\1aMAKE-LABEL>
2135 <CALL '
\1aMAKE-LABEL 0 = NB-LAB21>
2136 <FRAME '
\1aMAKE-LABEL>
2137 <CALL '
\1aMAKE-LABEL 0 = MC-LAB22>
2138 <TYPE? RES13 <TYPE-CODE UNBOUND> - PHRASE32>
2143 <SET UNDO?23 'T (TYPE ATOM)>
2145 <FRAME '
\1aMA-DEF-DISP>
2146 <GVAL 'AC-M = STACK>
2147 <FRAME '
\1aADD-MVEC>
2148 <CHTYPE END-ATOM8 <TYPE-CODE XGLOC> = STACK>
2150 <CALL '
\1aADD-MVEC 1 = TEMP35>
2151 <ADD TEMP35 4 = STACK (TYPE FIX)>
2153 <CALL '
\1aMA-DEF-DISP 2 = ENDADDR14>
2154 <FRAME '
\1aMA-DEF-DISP>
2155 <GVAL 'AC-M = STACK>
2156 <FRAME '
\1aADD-MVEC>
2157 <CHTYPE ALLOC-ATOM7 <TYPE-CODE XGLOC> = STACK>
2159 <CALL '
\1aADD-MVEC 1 = TEMP35>
2160 <ADD TEMP35 4 = STACK (TYPE FIX)>
2162 <CALL '
\1aMA-DEF-DISP 2 = ALLOCADDR15>
2163 <SET TEMP35 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
2167 <EMPL? TEMP35 + MAPAP42>
2168 <NTHL TEMP35 1 = X48>
2172 <CALL '
\1aMUNG-AC 1>
2173 <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
2180 <CALL '
\1aMA-IMM 1 = STACK>
2181 <GVAL 'AC-TP = TEMP35>
2182 <NTHUV TEMP35 2 = X48 (TYPE FIX)>
2184 <OR X48 #WORD *120* = X48>
2185 <LSH X48 24 = X48 (TYPE FIX)>
2186 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2191 <FRAME '
\1aVAR-VALUE-ADDRESS>
2193 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2194 <GVAL 'AC-3 = TEMP35>
2195 <NTHUV TEMP35 2 = X48 (TYPE FIX)>
2197 <OR X48 #WORD *120* = X48>
2198 <LSH X48 24 = X48 (TYPE FIX)>
2199 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2206 <CALL '
\1aMA-IMM 1 = STACK>
2209 <CALL '
\1aGCTEMP 1 = STACK>
2211 <FRAME '
\1aEMIT-LABEL>
2214 <CALL '
\1aEMIT-LABEL 2>
2218 <GVAL 'AC-3 = STACK>
2220 <CALL '
\1aMA-DISP 2 = STACK>
2222 <FRAME '
\1aEMIT-BRANCH>
2226 <GVAL 'LAST-INST-LENGTH = STACK>
2227 <CALL '
\1aEMIT-BRANCH 4>
2230 <GVAL 'AC-PC = TEMP35>
2231 <NTHUV TEMP35 2 = X48 (TYPE FIX)>
2233 <OR X48 #WORD *200* = X48>
2234 <LSH X48 24 = X48 (TYPE FIX)>
2235 <LSH 128 16 = TEMP35 (TYPE FIX)>
2236 <OR X48 TEMP35 = X48>
2238 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2241 <GVAL 'AC-3 = STACK>
2243 <CALL '
\1aMA-DISP 2 = STACK>
2249 <NTHUV X48 2 = X48 (TYPE FIX)>
2250 <OR X48 #WORD *120* = X48>
2251 <LSH X48 24 = X48 (TYPE FIX)>
2252 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2259 <CALL '
\1aMA-IMM 1 = STACK>
2261 <NTHUV X48 2 = X48 (TYPE FIX)>
2262 <OR X48 #WORD *120* = X48>
2263 <LSH X48 24 = X48 (TYPE FIX)>
2264 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2267 <NTHUV X48 2 = X48 (TYPE FIX)>
2268 <OR X48 #WORD *120* = X48>
2269 <LSH X48 24 = X48 (TYPE FIX)>
2270 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2278 <NTHUV X48 2 = X48 (TYPE FIX)>
2279 <OR X48 #WORD *120* = X48>
2280 <LSH X48 24 = X48 (TYPE FIX)>
2281 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2287 <NTHUV X48 2 = X48 (TYPE FIX)>
2288 <OR X48 #WORD *120* = X48>
2289 <LSH X48 24 = X48 (TYPE FIX)>
2290 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2293 <NTHUV X48 2 = X48 (TYPE FIX)>
2294 <OR X48 #WORD *120* = X48>
2295 <LSH X48 24 = X48 (TYPE FIX)>
2296 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2299 <FRAME '
\1aEMIT-BRANCH>
2303 <GVAL 'LAST-INST-LENGTH = STACK>
2304 <CALL '
\1aEMIT-BRANCH 4>
2305 <FRAME '
\1aEMIT-LABEL>
2309 <CALL '
\1aEMIT-LABEL 2>
2313 <NTHUV X48 2 = X48 (TYPE FIX)>
2314 <OR X48 #WORD *120* = X48>
2315 <LSH X48 24 = X48 (TYPE FIX)>
2316 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2320 <CALL '
\1aGCTEMP 1 = STACK>
2322 <FRAME '
\1aFRAME-GEN>
2324 <CALL '
\1aFRAME-GEN 1>
2325 <FRAME '
\1aEMIT-PUSH>
2326 <FRAME '
\1aTYPE-WORD>
2328 <CALL '
\1aTYPE-WORD 1 = STACK>
2330 <CALL '
\1aEMIT-PUSH 2>
2331 <FRAME '
\1aEMIT-PUSH>
2334 <CALL '
\1aMA-IMM 1 = STACK>
2336 <CALL '
\1aEMIT-PUSH 2>
2337 <FRAME '
\1aCALL-GEN>
2341 <CALL '
\1aCALL-GEN 2>
2346 <NTHUV X48 2 = X48 (TYPE FIX)>
2347 <OR X48 #WORD *120* = X48>
2348 <LSH X48 24 = X48 (TYPE FIX)>
2349 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2356 <CALL '
\1aGCTEMP 1 = STACK>
2358 <NTHUV X48 2 = X48 (TYPE FIX)>
2359 <OR X48 #WORD *120* = X48>
2360 <LSH X48 24 = X48 (TYPE FIX)>
2361 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2368 <CALL '
\1aMA-IMM 1 = STACK>
2370 <NTHUV X48 2 = X48 (TYPE FIX)>
2371 <OR X48 #WORD *120* = X48>
2372 <LSH X48 24 = X48 (TYPE FIX)>
2373 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2376 <NTHUV X48 2 = X48 (TYPE FIX)>
2377 <OR X48 #WORD *120* = X48>
2378 <LSH X48 24 = X48 (TYPE FIX)>
2379 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2382 <FRAME '
\1aEMIT-LABEL>
2386 <CALL '
\1aEMIT-LABEL 2>
2389 <FRAME '
\1aTYPE-WORD>
2391 <CALL '
\1aTYPE-WORD 1 = STACK>
2393 <NTHUV X48 2 = X48 (TYPE FIX)>
2394 <OR X48 #WORD *120* = X48>
2395 <LSH X48 24 = X48 (TYPE FIX)>
2396 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2402 <NTHUV X48 2 = X48 (TYPE FIX)>
2403 <OR X48 #WORD *120* = X48>
2404 <LSH X48 24 = X48 (TYPE FIX)>
2405 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2414 <CALL '
\1aMA-IMM 1 = STACK>
2416 <NTHUV X48 2 = X48 (TYPE FIX)>
2417 <OR X48 #WORD *120* = X48>
2418 <LSH X48 24 = X48 (TYPE FIX)>
2419 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2426 <CALL '
\1aGCTEMP 1 = STACK>
2428 <NTHUV X48 2 = X48 (TYPE FIX)>
2429 <OR X48 #WORD *120* = X48>
2430 <LSH X48 24 = X48 (TYPE FIX)>
2431 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2434 <FRAME '
\1aEMIT-BRANCH>
2438 <GVAL 'LAST-INST-LENGTH = STACK>
2439 <CALL '
\1aEMIT-BRANCH 4>
2443 <NTHUV X48 2 = X48 (TYPE FIX)>
2444 <OR X48 #WORD *120* = X48>
2445 <LSH X48 24 = X48 (TYPE FIX)>
2446 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2449 <GVAL 'AC-4 = STACK>
2451 <CALL '
\1aMA-DISP 2 = STACK>
2453 <FRAME '
\1aEMIT-LABEL>
2457 <CALL '
\1aEMIT-LABEL 2>
2461 <NTHUV X48 2 = X48 (TYPE FIX)>
2462 <OR X48 #WORD *120* = X48>
2463 <LSH X48 24 = X48 (TYPE FIX)>
2464 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2468 <CALL '
\1aGCTEMP 1 = STACK>
2473 <GVAL 'AC-3 = STACK>
2475 <CALL '
\1aMA-DISP 2 = STACK>
2477 <NTHUV X48 2 = X48 (TYPE FIX)>
2478 <OR X48 #WORD *120* = X48>
2479 <LSH X48 24 = X48 (TYPE FIX)>
2480 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2486 <NTHUV X48 2 = X48 (TYPE FIX)>
2487 <OR X48 #WORD *120* = X48>
2488 <LSH X48 24 = X48 (TYPE FIX)>
2489 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2492 <GVAL 'AC-3 = STACK>
2494 <CALL '
\1aMA-DISP 2 = STACK>
2499 <NTHUV X48 2 = X48 (TYPE FIX)>
2500 <OR X48 #WORD *120* = X48>
2501 <LSH X48 24 = X48 (TYPE FIX)>
2502 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2505 <GVAL 'AC-1 = STACK>
2507 <CALL '
\1aMA-DISP 2 = STACK>
2512 <NTHUV X48 2 = X48 (TYPE FIX)>
2513 <OR X48 #WORD *140* = X48>
2514 <LSH X48 24 = X48 (TYPE FIX)>
2515 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2518 <NTHUV X48 2 = X48 (TYPE FIX)>
2519 <OR X48 #WORD *120* = X48>
2520 <LSH X48 24 = X48 (TYPE FIX)>
2521 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2528 <CALL '
\1aMA-IMM 1 = STACK>
2530 <NTHUV X48 2 = X48 (TYPE FIX)>
2531 <OR X48 #WORD *120* = X48>
2532 <LSH X48 24 = X48 (TYPE FIX)>
2533 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2539 <NTHUV X48 2 = X48 (TYPE FIX)>
2540 <OR X48 #WORD *200* = X48>
2541 <LSH X48 24 = X48 (TYPE FIX)>
2542 <LSH 7 16 = TEMP35 (TYPE FIX)>
2543 <OR X48 TEMP35 = X48>
2545 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2548 <NTHUV X48 2 = X48 (TYPE FIX)>
2549 <OR X48 #WORD *120* = X48>
2550 <LSH X48 24 = X48 (TYPE FIX)>
2551 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2554 <FRAME '
\1aEMIT-BRANCH>
2558 <GVAL 'LAST-INST-LENGTH = STACK>
2559 <CALL '
\1aEMIT-BRANCH 4>
2563 <NTHUV X48 2 = X48 (TYPE FIX)>
2564 <OR X48 #WORD *120* = X48>
2565 <LSH X48 24 = X48 (TYPE FIX)>
2566 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2570 <CALL '
\1aGCTEMP 1 = STACK>
2575 <NTHUV X48 2 = X48 (TYPE FIX)>
2576 <OR X48 #WORD *120* = X48>
2577 <LSH X48 24 = X48 (TYPE FIX)>
2578 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2582 <CALL '
\1aGCTEMP 1 = STACK>
2584 <FRAME '
\1aFRAME-GEN>
2586 <CALL '
\1aFRAME-GEN 1>
2590 <NTHUV X48 2 = X48 (TYPE FIX)>
2591 <OR X48 #WORD *120* = X48>
2592 <LSH X48 24 = X48 (TYPE FIX)>
2593 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2596 <NTHUV X48 2 = X48 (TYPE FIX)>
2597 <OR X48 #WORD *200* = X48>
2598 <LSH X48 24 = X48 (TYPE FIX)>
2599 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2602 <FRAME '
\1aCALL-GEN>
2606 <CALL '
\1aCALL-GEN 2>
2611 <CALL '
\1aGCTEMP 1 = STACK>
2613 <NTHUV X48 2 = X48 (TYPE FIX)>
2614 <OR X48 #WORD *120* = X48>
2615 <LSH X48 24 = X48 (TYPE FIX)>
2616 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2623 <CALL '
\1aGCTEMP 1 = STACK>
2625 <NTHUV X48 2 = X48 (TYPE FIX)>
2626 <OR X48 #WORD *120* = X48>
2627 <LSH X48 24 = X48 (TYPE FIX)>
2628 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2631 <FRAME '
\1aEMIT-LABEL>
2635 <CALL '
\1aEMIT-LABEL 2>
2640 <CALL '
\1aGCTEMP 1 = STACK>
2642 <NTHUV X48 2 = X48 (TYPE FIX)>
2643 <OR X48 #WORD *120* = X48>
2644 <LSH X48 24 = X48 (TYPE FIX)>
2645 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2651 <NTHUV X48 2 = X48 (TYPE FIX)>
2652 <OR X48 #WORD *120* = X48>
2653 <LSH X48 24 = X48 (TYPE FIX)>
2654 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2657 <NTHUV X48 2 = X48 (TYPE FIX)>
2658 <OR X48 #WORD *140* = X48>
2659 <LSH X48 24 = X48 (TYPE FIX)>
2660 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2663 <VEQUAL? UNDO?23 0 + PHRASE124>
2668 <NTHUV X48 2 = X48 (TYPE FIX)>
2669 <OR X48 #WORD *120* = X48>
2670 <LSH X48 24 = X48 (TYPE FIX)>
2671 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2674 <NTHUV X48 2 = X48 (TYPE FIX)>
2675 <OR X48 #WORD *140* = X48>
2676 <LSH X48 24 = X48 (TYPE FIX)>
2677 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2684 <NTHUV X48 2 = X48 (TYPE FIX)>
2685 <OR X48 #WORD *120* = X48>
2686 <LSH X48 24 = X48 (TYPE FIX)>
2687 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2690 <NTHUV X48 2 = X48 (TYPE FIX)>
2691 <OR X48 #WORD *120* = X48>
2692 <LSH X48 24 = X48 (TYPE FIX)>
2693 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2696 <FRAME '
\1aEMIT-BRANCH>
2700 <GVAL 'LAST-INST-LENGTH = STACK>
2701 <CALL '
\1aEMIT-BRANCH 4>
2705 <NTHUV X48 2 = X48 (TYPE FIX)>
2706 <OR X48 #WORD *120* = X48>
2707 <LSH X48 24 = X48 (TYPE FIX)>
2708 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2712 <CALL '
\1aGCTEMP 1 = STACK>
2714 <FRAME '
\1aFRAME-GEN>
2715 <PUSH BOUNDS-ATOM10>
2716 <CALL '
\1aFRAME-GEN 1>
2717 <FRAME '
\1aEMIT-PUSH>
2718 <FRAME '
\1aTYPE-WORD>
2720 <CALL '
\1aTYPE-WORD 1 = STACK>
2722 <CALL '
\1aEMIT-PUSH 2>
2723 <FRAME '
\1aEMIT-PUSH>
2725 <NTHUV X48 2 = X48 (TYPE FIX)>
2726 <OR X48 #WORD *120* = X48>
2727 <LSH X48 24 = X48 (TYPE FIX)>
2728 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2731 <CALL '
\1aEMIT-PUSH 2>
2732 <FRAME '
\1aCALL-GEN>
2733 <PUSH BOUNDS-ATOM10>
2734 <DEAD BOUNDS-ATOM10>
2736 <CALL '
\1aCALL-GEN 2>
2741 <CALL '
\1aGCTEMP 1 = STACK>
2743 <NTHUV X48 2 = X48 (TYPE FIX)>
2744 <OR X48 #WORD *120* = X48>
2745 <LSH X48 24 = X48 (TYPE FIX)>
2746 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2752 <NTHUV X48 2 = X48 (TYPE FIX)>
2753 <OR X48 #WORD *120* = X48>
2754 <LSH X48 24 = X48 (TYPE FIX)>
2755 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2758 <FRAME '
\1aEMIT-BRANCH>
2763 <GVAL 'LAST-INST-LENGTH = STACK>
2764 <CALL '
\1aEMIT-BRANCH 4>
2765 <FRAME '
\1aEMIT-BRANCH>
2769 <GVAL 'LAST-INST-LENGTH = STACK>
2770 <CALL '
\1aEMIT-BRANCH 4>
2771 <FRAME '
\1aEMIT-LABEL>
2775 <CALL '
\1aEMIT-LABEL 2>
2780 <CALL '
\1aGCTEMP 1 = STACK>
2782 <NTHUV X48 2 = X48 (TYPE FIX)>
2783 <OR X48 #WORD *120* = X48>
2784 <LSH X48 24 = X48 (TYPE FIX)>
2785 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2788 <FRAME '
\1aEMIT-BRANCH>
2792 <GVAL 'LAST-INST-LENGTH = STACK>
2793 <CALL '
\1aEMIT-BRANCH 4>
2797 <GVAL 'AC-3 = STACK>
2799 <CALL '
\1aMA-DISP 2 = STACK>
2801 <GVAL 'AC-2 = STACK>
2803 <CALL '
\1aMA-DISP 2 = STACK>
2805 <FRAME '
\1aEMIT-LABEL>
2809 <CALL '
\1aEMIT-LABEL 2>
2814 <CALL '
\1aMA-IMM 1 = STACK>
2816 <NTHUV X48 2 = X48 (TYPE FIX)>
2817 <OR X48 #WORD *120* = X48>
2818 <LSH X48 24 = X48 (TYPE FIX)>
2819 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2824 <FRAME '
\1aVAR-TYPE-ADDRESS>
2827 <CALL '
\1aVAR-TYPE-ADDRESS 1 = STACK>
2829 <NTHUV X48 2 = X48 (TYPE FIX)>
2830 <OR X48 #WORD *120* = X48>
2831 <LSH X48 24 = X48 (TYPE FIX)>
2832 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2838 <GVAL 'AC-1 = STACK>
2840 <CALL '
\1aMA-DISP 2 = STACK>
2842 <NTHUV X48 2 = X48 (TYPE FIX)>
2843 <OR X48 #WORD *120* = X48>
2844 <LSH X48 24 = X48 (TYPE FIX)>
2845 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2848 <EQUAL? RES13 'STACK - PHRASE155>
2852 <NTHUV X48 2 = X48 (TYPE FIX)>
2853 <OR X48 #WORD *120* = X48>
2854 <LSH X48 24 = X48 (TYPE FIX)>
2855 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2858 <NTHUV X48 2 = X48 (TYPE FIX)>
2859 <OR X48 #WORD *200* = X48>
2860 <LSH X48 24 = X48 (TYPE FIX)>
2861 <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2866 <FRAME '
\1aDEST-PAIR>
2867 <GVAL 'AC-1 = STACK>
2868 <GVAL 'AC-0 = STACK>
2871 <CALL '
\1aDEST-PAIR 3>
2873 <END
\1aCGC-LIST-GEN>
2876 <GFCN
\1aMARKL-GEN ("VALUE" ATOM VARTBL FIX) VAR4 VAL5>
2879 <FRAME '
\1aLOAD-VAR>
2885 <CALL '
\1aLOAD-VAR 4 = VAC6>
2886 <FRAME '
\1aFINISH-MARK>
2891 <CALL '
\1aFINISH-MARK 2>
2896 <GFCN
\1aIMARKU-GEN ("VALUE" AC VARTBL <OR FIX VARTBL> FIX) VAR4 VAL5 SHIFT6>
2897 <TEMP VAC7 TEMP16:FIX>
2900 <FRAME '
\1aLOAD-VAR>
2905 <CALL '
\1aLOAD-VAR 4 = VAC7>
2908 <VEQUAL? SHIFT6 0 + PHRASE11 (TYPE FIX)>
2913 <CALL '
\1aMA-IMM 1 = STACK>
2914 <NTHUV VAC7 2 = TEMP16 (TYPE FIX)>
2915 <OR TEMP16 #WORD *120* = TEMP16>
2916 <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
2917 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
2919 <NTHUV VAC7 2 = TEMP16 (TYPE FIX)>
2920 <OR TEMP16 #WORD *120* = TEMP16>
2921 <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
2922 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
2928 <FRAME '
\1aVAR-VALUE-ADDRESS>
2931 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2932 <NTHUV VAC7 2 = TEMP16 (TYPE FIX)>
2933 <OR TEMP16 #WORD *120* = TEMP16>
2934 <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
2935 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
2938 <VEQUAL? SHIFT6 0 - PHRASE20 (TYPE FIX)>
2944 <CALL '
\1aMA-IMM 1 = STACK>
2945 <NTHUV VAC7 2 = TEMP16 (TYPE FIX)>
2946 <OR TEMP16 #WORD *120* = TEMP16>
2947 <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
2948 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
2955 <CALL '
\1aMA-IMM 1 = STACK>
2956 <NTHUV VAC7 2 = TEMP16 (TYPE FIX)>
2957 <OR TEMP16 #WORD *120* = TEMP16>
2958 <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
2959 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
2963 <FRAME '
\1aFINISH-MARK>
2967 <CALL '
\1aFINISH-MARK 2>
2973 <GFCN
\1aFINISH-MARK ("VALUE" ANY AC <OR FIX VARTBL>) VAC4 VAL5>
2974 <TEMP TEMP9 V13:FIX TEMP15>
2976 <EQUAL? VAL5 0 - PHRASE7>
2979 <GVAL 'AC-PC = TEMP9>
2980 <NTHUV TEMP9 2 = TEMP9 (TYPE FIX)>
2981 <OR TEMP9 #WORD *200* = TEMP9>
2982 <LSH TEMP9 24 = TEMP9 (TYPE FIX)>
2983 <SET V13 32768 (TYPE FIX)>
2984 <AND V13 #WORD *377* = TEMP15>
2985 <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
2986 <AND V13 #WORD *177400* = V13>
2987 <OR TEMP15 V13 = TEMP15>
2989 <AND TEMP15 #WORD *77777400* = TEMP15>
2990 <OR TEMP9 TEMP15 = TEMP9>
2992 <CHTYPE TEMP9 <TYPE-CODE EFF-ADDR> = STACK>
2998 <CALL '
\1aMA-DISP 2 = STACK>
2999 <CALL '
\1aEMIT 3 = TEMP9>
3005 <GVAL 'AC-PC = TEMP15>
3006 <NTHUV TEMP15 2 = V13 (TYPE FIX)>
3008 <OR V13 #WORD *200* = V13>
3009 <LSH V13 24 = V13 (TYPE FIX)>
3010 <SET TEMP15 32768 (TYPE FIX)>
3011 <AND TEMP15 #WORD *377* = TEMP9>
3012 <LSH TEMP9 16 = TEMP9 (TYPE FIX)>
3013 <AND TEMP15 #WORD *177400* = TEMP15>
3014 <OR TEMP9 TEMP15 = TEMP15>
3016 <AND TEMP15 #WORD *77777400* = TEMP15>
3017 <OR V13 TEMP15 = V13>
3019 <CHTYPE V13 <TYPE-CODE EFF-ADDR> = STACK>
3024 <CALL '
\1aMA-DISP 2 = STACK>
3026 <TYPE? VAL5 <TYPE-CODE FIX> - TAG28>
3031 <FRAME '
\1aVAR-VALUE-ADDRESS>
3034 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
3039 <CALL '
\1aMA-DISP 2 = STACK>
3040 <CALL '
\1aEMIT 3 = TEMP9>
3043 <END
\1aFINISH-MARK>
3046 <GFCN
\1aMARKUS-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL> "OPTIONAL" ANY) VAR6 VAL7 RES8>
3047 <OPT-DISPATCH 2 %<> OPT4 OPT5>
3053 <FRAME '
\1aIMARKU-GEN>
3059 <CALL '
\1aIMARKU-GEN 3>
3063 <COND (<GASSIGNED? MARKUS-GEN> <SETG MARKUB-GEN ,MARKUS-GEN>)>
3066 <GFCN
\1aMARKUV-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL>) VAR4 VAL5>
3069 <FRAME '
\1aIMARKU-GEN>
3075 <CALL '
\1aIMARKU-GEN 3>
3080 <GFCN
\1aMARKUU-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL>) VAR4 VAL5>
3083 <FRAME '
\1aIMARKU-GEN>
3089 <CALL '
\1aIMARKU-GEN 3>
3094 <GFCN
\1aMARKR-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL>) VAR4 VAL5>
3097 <FRAME '
\1aCALL-RTE>
3098 <GVAL 'IMARKR!-MIMOP = STACK>
3106 <CALL '
\1aCALL-RTE 6>
3111 <GFCN
\1aMARKL?-GEN ("VALUE" ATOM VARTBL <OR VARTBL ATOM>) VAR4 RES5>
3114 <FRAME '
\1aLOAD-VAR>
3120 <CALL '
\1aLOAD-VAR 4 = VAC6>
3121 <FRAME '
\1aFINISH-MARK?>
3126 <CALL '
\1aFINISH-MARK? 2>
3131 <GFCN
\1aFINISH-MARK? ("VALUE" ANY AC ANY "OPTIONAL" ANY ANY) VAC7 RES8 REL9 VAR10>
3132 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
3138 <TEMP TLAB11 ELAB12 TEMP21 NAC13>
3140 <FRAME '
\1aMAKE-LABEL>
3141 <CALL '
\1aMAKE-LABEL 0 = TLAB11>
3142 <FRAME '
\1aMAKE-LABEL>
3143 <CALL '
\1aMAKE-LABEL 0 = ELAB12>
3149 <CALL '
\1aMA-DISP 2 = STACK>
3151 <FRAME '
\1aGEN-BRANCH>
3156 <CALL '
\1aGEN-BRANCH 4>
3159 <NTHUV VAC7 2 = TEMP21 (TYPE FIX)>
3160 <OR TEMP21 #WORD *120* = TEMP21>
3161 <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
3162 <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
3165 <TYPE? REL9 <TYPE-CODE FALSE> + PHRASE23>
3168 <CALL '
\1aPROTECT 1>
3171 <FRAME '
\1aTYPE-CODE>
3173 <CALL '
\1aTYPE-CODE 1 = STACK>
3177 <CALL '
\1aGET-AC 2 = NAC13>
3178 <NTHUV NAC13 2 = TEMP21 (TYPE FIX)>
3179 <OR TEMP21 #WORD *120* = TEMP21>
3180 <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
3181 <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
3185 <FRAME '
\1aGEN-BRANCH>
3190 <CALL '
\1aGEN-BRANCH 4>
3191 <FRAME '
\1aEMIT-LABEL>
3195 <CALL '
\1aEMIT-LABEL 2>
3196 <TYPE? REL9 <TYPE-CODE FALSE> + PHRASE31>
3202 <CALL '
\1aMA-DISP 2 = TLAB11>
3204 <NTHUV VAC7 2 = TEMP21 (TYPE FIX)>
3205 <OR TEMP21 #WORD *120* = TEMP21>
3206 <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
3207 <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
3214 <CALL '
\1aLOAD-AC 2>
3217 <CALL '
\1aPROTECT 1>
3220 <FRAME '
\1aVAR-TYPE-ADDRESS>
3224 <CALL '
\1aVAR-TYPE-ADDRESS 2 = TLAB11>
3227 <NTHUV NAC13 2 = TEMP21 (TYPE FIX)>
3228 <OR TEMP21 #WORD *120* = TEMP21>
3229 <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
3230 <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
3239 <CALL '
\1aMA-IMM 1 = STACK>
3240 <NTHUV VAC7 2 = TEMP21 (TYPE FIX)>
3241 <OR TEMP21 #WORD *120* = TEMP21>
3242 <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
3243 <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
3247 <FRAME '
\1aEMIT-LABEL>
3251 <CALL '
\1aEMIT-LABEL 2>
3252 <TYPE? REL9 <TYPE-CODE FALSE> - PHRASE43>
3253 <FRAME '
\1aDEST-DECL>
3259 <CALL '
\1aDEST-DECL 3 = TEMP21>
3263 <FRAME '
\1aDEST-PAIR>
3270 <CALL '
\1aDEST-PAIR 3 = TEMP21>
3273 <END
\1aFINISH-MARK?>
3276 <GFCN
\1aIMARKU?-GEN ("VALUE" AC VARTBL ANY FIX ANY) VAR4 RES5 SHIFT6 REL7>
3277 <TEMP VAC8 TEMP16:FIX>
3279 <FRAME '
\1aLOAD-VAR>
3284 <CALL '
\1aLOAD-VAR 4 = VAC8>
3285 <VEQUAL? SHIFT6 0 + PHRASE11 (TYPE FIX)>
3290 <CALL '
\1aMA-IMM 1 = STACK>
3291 <NTHUV VAC8 2 = TEMP16 (TYPE FIX)>
3292 <OR TEMP16 #WORD *120* = TEMP16>
3293 <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
3294 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
3296 <NTHUV VAC8 2 = TEMP16 (TYPE FIX)>
3297 <OR TEMP16 #WORD *120* = TEMP16>
3298 <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
3299 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
3305 <FRAME '
\1aVAR-VALUE-ADDRESS>
3307 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
3308 <NTHUV VAC8 2 = TEMP16 (TYPE FIX)>
3309 <OR TEMP16 #WORD *120* = TEMP16>
3310 <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
3311 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
3314 <VEQUAL? SHIFT6 0 - PHRASE20 (TYPE FIX)>
3320 <CALL '
\1aMA-IMM 1 = STACK>
3321 <NTHUV VAC8 2 = TEMP16 (TYPE FIX)>
3322 <OR TEMP16 #WORD *120* = TEMP16>
3323 <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
3324 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
3331 <CALL '
\1aMA-IMM 1 = STACK>
3332 <NTHUV VAC8 2 = TEMP16 (TYPE FIX)>
3333 <OR TEMP16 #WORD *120* = TEMP16>
3334 <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
3335 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
3339 <FRAME '
\1aFINISH-MARK?>
3347 <CALL '
\1aFINISH-MARK? 4>
3350 <END
\1aIMARKU?-GEN>
3353 <GFCN
\1aMARKUU?-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" ANY) VAR6 RES7 REL8>
3354 <OPT-DISPATCH 2 %<> OPT4 OPT5>
3360 <FRAME '
\1aIMARKU?-GEN>
3368 <CALL '
\1aIMARKU?-GEN 4>
3370 <END
\1aMARKUU?-GEN>
3373 <GFCN
\1aMARKUV?-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" ANY) VAR6 RES7 REL8>
3374 <OPT-DISPATCH 2 %<> OPT4 OPT5>
3380 <FRAME '
\1aIMARKU?-GEN>
3388 <CALL '
\1aIMARKU?-GEN 4>
3390 <END
\1aMARKUV?-GEN>
3393 <GFCN
\1aMARKUS?-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" ANY) VAR6 RES7 REL8>
3394 <OPT-DISPATCH 2 %<> OPT4 OPT5>
3400 <FRAME '
\1aIMARKU?-GEN>
3408 <CALL '
\1aIMARKU?-GEN 4>
3410 <END
\1aMARKUS?-GEN>
3412 <COND (<GASSIGNED? MARKUS?-GEN> <SETG MARKUB?-GEN ,MARKUS?-GEN>)>
3415 <GFCN
\1aMARKR?-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" <OR VARTBL FALSE>) VAR6 RES7 REL8>
3416 <OPT-DISPATCH 2 %<> OPT4 OPT5>
3423 <FRAME '
\1aCALL-RTE>
3424 <GVAL 'IMARKR?!-MIMOP = STACK>
3431 <CALL '
\1aCALL-RTE 5>
3436 <GFCN
\1aSWNEXT-GEN ("VALUE" ATOM VARTBL ANY <OR ATOM VARTBL>) VAR4 GCP5 RES6>
3439 <FRAME '
\1aCALL-RTE>
3440 <GVAL 'ISWNEXT!-MIMOP = STACK>
3449 <CALL '
\1aCALL-RTE 6>
3454 <GFCN
\1aNEXTS-GEN ("VALUE" ATOM VARTBL <OR ATOM VARTBL>) VAR4 RES5>
3457 <FRAME '
\1aCALL-RTE>
3458 <GVAL 'INEXTS!-MIMOP = STACK>
3465 <CALL '
\1aCALL-RTE 5>
3470 <GFCN
\1aCONTENTS-GEN ("VALUE" ATOM VARTBL <OR ATOM VARTBL>) VAR4 RES5>
3471 <TEMP (TAC7 %<>) TLAB8 TLAB29 ELAB10 TEMP20 V27:FIX TEMP29 TEMP24>
3473 <FRAME '
\1aMAKE-LABEL>
3474 <CALL '
\1aMAKE-LABEL 0 = TLAB8>
3475 <FRAME '
\1aMAKE-LABEL>
3476 <CALL '
\1aMAKE-LABEL 0 = TLAB29>
3477 <FRAME '
\1aMAKE-LABEL>
3478 <CALL '
\1aMAKE-LABEL 0 = ELAB10>
3480 <FRAME '
\1aLOAD-VAR>
3486 <CALL '
\1aLOAD-VAR 4 = ELAB10>
3488 <CALL '
\1aPROTECT 1>
3494 <CALL '
\1aMA-DISP 2 = STACK>
3495 <EQUAL? RES5 'STACK - PHRASE19>
3496 <GVAL 'AC-TP = TEMP20>
3497 <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
3498 <OR TEMP20 #WORD *200* = TEMP20>
3499 <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
3500 <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = TEMP20>
3506 <CALL '
\1aGET-AC 2 = TAC7>
3514 <GVAL 'AC-PC = TEMP20>
3515 <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
3516 <OR TEMP20 #WORD *200* = TEMP20>
3517 <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
3518 <SET V27 32 (TYPE FIX)>
3519 <AND V27 #WORD *377* = TEMP29>
3520 <LSH TEMP29 16 = TEMP29 (TYPE FIX)>
3521 <AND V27 #WORD *177400* = V27>
3522 <OR TEMP29 V27 = TEMP24>
3524 <AND TEMP24 #WORD *77777400* = TEMP24>
3525 <OR TEMP20 TEMP24 = TEMP20>
3527 <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
3529 <EQUAL? RES5 'STACK - PHRASE32>
3531 <GVAL 'AC-TP = STACK>
3533 <CALL '
\1aMA-DISP 2 = TEMP20>
3536 <NTHUV TAC7 2 = TEMP24 (TYPE FIX)>
3537 <OR TEMP24 #WORD *120* = TEMP24>
3538 <LSH TEMP24 24 = TEMP24 (TYPE FIX)>
3539 <CHTYPE TEMP24 <TYPE-CODE EFF-ADDR> = TEMP20>
3545 <FRAME '
\1aGEN-BRANCH>
3550 <CALL '
\1aGEN-BRANCH 4>
3553 <GVAL 'AC-PC = TEMP20>
3554 <NTHUV TEMP20 2 = TEMP24 (TYPE FIX)>
3556 <OR TEMP24 #WORD *200* = TEMP24>
3557 <LSH TEMP24 24 = TEMP24 (TYPE FIX)>
3558 <SET V27 32 (TYPE FIX)>
3559 <AND V27 #WORD *377* = TEMP29>
3560 <LSH TEMP29 16 = TEMP29 (TYPE FIX)>
3561 <AND V27 #WORD *177400* = TEMP20>
3563 <OR TEMP29 TEMP20 = TEMP20>
3565 <AND TEMP20 #WORD *77777400* = TEMP20>
3566 <OR TEMP24 TEMP20 = TEMP24>
3568 <CHTYPE TEMP24 <TYPE-CODE EFF-ADDR> = STACK>
3570 <EQUAL? RES5 'STACK - PHRASE42>
3572 <GVAL 'AC-TP = STACK>
3574 <CALL '
\1aMA-DISP 2 = TEMP24>
3577 <NTHUV TAC7 2 = TEMP20 (TYPE FIX)>
3578 <OR TEMP20 #WORD *120* = TEMP20>
3579 <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
3580 <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = TEMP24>
3590 <CALL '
\1aMA-IMM 1 = STACK>
3591 <NTHUV ELAB10 2 = TEMP20 (TYPE FIX)>
3592 <OR TEMP20 #WORD *120* = TEMP20>
3593 <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
3594 <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
3596 <EQUAL? RES5 'STACK - PHRASE48>
3598 <GVAL 'AC-TP = STACK>
3600 <CALL '
\1aMA-DISP 2 = TEMP20>
3605 <CALL '
\1aNEXT-AC 1 = TEMP24>
3606 <NTHUV TEMP24 2 = TEMP29 (TYPE FIX)>
3608 <OR TEMP29 #WORD *120* = TEMP29>
3609 <LSH TEMP29 24 = TEMP29 (TYPE FIX)>
3610 <CHTYPE TEMP29 <TYPE-CODE EFF-ADDR> = TEMP20>
3618 <FRAME '
\1aTYPE-CODE>
3621 <CALL '
\1aTYPE-CODE 2 = STACK>
3622 <EQUAL? RES5 'STACK - PHRASE55>
3624 <GVAL 'AC-TP = STACK>
3626 <CALL '
\1aMA-DISP 2 = TEMP20>
3629 <NTHUV TAC7 2 = TEMP29 (TYPE FIX)>
3630 <OR TEMP29 #WORD *120* = TEMP29>
3631 <LSH TEMP29 24 = TEMP29 (TYPE FIX)>
3632 <CHTYPE TEMP29 <TYPE-CODE EFF-ADDR> = TEMP20>
3638 <FRAME '
\1aGEN-BRANCH>
3643 <CALL '
\1aGEN-BRANCH 4>
3646 <FRAME '
\1aTYPE-CODE>
3649 <CALL '
\1aTYPE-CODE 2 = STACK>
3650 <EQUAL? RES5 'STACK - PHRASE62>
3652 <GVAL 'AC-TP = STACK>
3654 <CALL '
\1aMA-DISP 2 = TEMP20>
3657 <NTHUV TAC7 2 = TEMP29 (TYPE FIX)>
3658 <OR TEMP29 #WORD *120* = TEMP29>
3659 <LSH TEMP29 24 = TEMP29 (TYPE FIX)>
3660 <CHTYPE TEMP29 <TYPE-CODE EFF-ADDR> = TEMP20>
3666 <FRAME '
\1aGEN-BRANCH>
3671 <CALL '
\1aGEN-BRANCH 4>
3672 <FRAME '
\1aEMIT-LABEL>
3676 <CALL '
\1aEMIT-LABEL 2>
3681 <CALL '
\1aMA-IMM 1 = STACK>
3682 <NTHUV ELAB10 2 = TEMP29 (TYPE FIX)>
3684 <OR TEMP29 #WORD *120* = TEMP29>
3685 <LSH TEMP29 24 = TEMP29 (TYPE FIX)>
3686 <CHTYPE TEMP29 <TYPE-CODE EFF-ADDR> = STACK>
3688 <EQUAL? RES5 'STACK - PHRASE70>
3690 <GVAL 'AC-TP = STACK>
3692 <CALL '
\1aMA-DISP 2 = TEMP29>
3697 <CALL '
\1aNEXT-AC 1 = TEMP20>
3698 <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
3699 <OR TEMP20 #WORD *120* = TEMP20>
3700 <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
3701 <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = TEMP29>
3707 <FRAME '
\1aEMIT-LABEL>
3711 <CALL '
\1aEMIT-LABEL 2>
3712 <EQUAL? RES5 'STACK + PHRASE76>
3713 <FRAME '
\1aDEST-PAIR>
3716 <CALL '
\1aNEXT-AC 1 = STACK>
3721 <CALL '
\1aDEST-PAIR 3>
3724 <END
\1aCONTENTS-GEN>
3727 <GFCN
\1aPUTS-GEN ("VALUE" ATOM ANY ANY) VAR14 VAR25>
3728 <TEMP (TAC7 %<>) ELAB9 TEMP16 V20:FIX TEMP22:FIX>
3730 <FRAME '
\1aMAKE-LABEL>
3731 <CALL '
\1aMAKE-LABEL 0 = TAC7>
3732 <FRAME '
\1aMAKE-LABEL>
3733 <CALL '
\1aMAKE-LABEL 0 = ELAB9>
3735 <FRAME '
\1aLOAD-VAR>
3741 <CALL '
\1aLOAD-VAR 4 = ELAB9>
3743 <CALL '
\1aPROTECT 1>
3746 <GVAL 'AC-PC = TEMP16>
3747 <NTHUV TEMP16 2 = TEMP16 (TYPE FIX)>
3748 <OR TEMP16 #WORD *200* = TEMP16>
3749 <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
3750 <SET V20 32 (TYPE FIX)>
3751 <AND V20 #WORD *377* = TEMP22>
3752 <LSH TEMP22 16 = TEMP22 (TYPE FIX)>
3753 <AND V20 #WORD *177400* = V20>
3754 <OR TEMP22 V20 = V20>
3756 <AND V20 #WORD *77777400* = V20>
3757 <OR TEMP16 V20 = TEMP16>
3759 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
3764 <CALL '
\1aMA-DISP 2 = STACK>
3766 <FRAME '
\1aGEN-BRANCH>
3771 <CALL '
\1aGEN-BRANCH 4>
3774 <FRAME '
\1aVAR-VALUE-ADDRESS>
3777 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
3782 <CALL '
\1aMA-DISP 2 = STACK>
3784 <FRAME '
\1aEMIT-LABEL>
3788 <CALL '
\1aEMIT-LABEL 2>
3793 <GFCN
\1aRELL-GEN ("VALUE" ANY VARTBL) VAR4>
3796 <FRAME '
\1aCALL-RTE>
3797 <GVAL 'IRELL!-MIMOP = STACK>
3803 <CALL '
\1aCALL-RTE 5 = TEMP6>
3809 <GFCN
\1aRELU-GEN ("VALUE" ANY VARTBL) VAR4>
3812 <FRAME '
\1aCALL-RTE>
3813 <GVAL 'IRELU!-MIMOP = STACK>
3819 <CALL '
\1aCALL-RTE 5 = TEMP6>
3825 <GFCN
\1aRELR-GEN ("VALUE" ANY VARTBL) VAR4>
3828 <FRAME '
\1aCALL-RTE>
3829 <GVAL 'IRELR!-MIMOP = STACK>
3835 <CALL '
\1aCALL-RTE 5 = TEMP6>
3841 <GFCN
\1aALLOCL-GEN ("VALUE" ANY ANY ANY) VAR4 DEST5>
3844 <FRAME '
\1aLOAD-VAR>
3850 <CALL '
\1aLOAD-VAR 4 = VAC6>
3855 <CALL '
\1aMA-IMM 1 = STACK>
3856 <NTHUV VAC6 2 = TEMP10 (TYPE FIX)>
3857 <OR TEMP10 #WORD *120* = TEMP10>
3858 <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
3859 <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
3862 <FRAME '
\1aDEST-DECL>
3868 <CALL '
\1aDEST-DECL 3 = TEMP10>
3874 <GFCN
\1aALLOCUU-GEN ("VALUE" ANY ANY ANY ANY "OPTIONAL" ANY) VAR6 OLD7 DEST8 HINT9>
3875 <OPT-DISPATCH 3 %<> OPT4 OPT5>
3879 <TEMP VAC110 VAC211>
3882 <FRAME '
\1aLOAD-VAR>
3888 <CALL '
\1aLOAD-VAR 4 = VAC110>
3890 <CALL '
\1aPROTECT 1>
3891 <FRAME '
\1aLOAD-VAR>
3897 <CALL '
\1aLOAD-VAR 4 = VAC211>
3898 <FRAME '
\1aDEST-PAIR>
3905 <CALL '
\1aDEST-PAIR 3 = VAC110>
3908 <END
\1aALLOCUU-GEN>
3910 <COND (<GASSIGNED? ALLOCUU-GEN> <SETG ALLOCUV-GEN ,ALLOCUU-GEN> <SETG ALLOCUS-GEN ,ALLOCUU-GEN> <SETG ALLOCUB-GEN ,ALLOCUU-GEN> <SETG ALLOCR-GEN ,ALLOCUU-GEN>)>
3913 <GFCN
\1aBLT-GEN ("VALUE" ATOM ANY ANY ANY "OPTIONAL" ANY) FROM6 TO7 NUMBER8 HINT9>
3914 <OPT-DISPATCH 3 %<> OPT4 OPT5>
3918 <TEMP (VAC10 %<>) LAB11 LAB112 X27 VVAC13:EFF-ADDR>
3920 <FRAME '
\1aMAKE-LABEL>
3921 <CALL '
\1aMAKE-LABEL 0 = LAB11>
3922 <FRAME '
\1aMAKE-LABEL>
3923 <CALL '
\1aMAKE-LABEL 0 = LAB112>
3924 <SET VAC10 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
3928 <EMPL? VAC10 + MAPAP20>
3929 <NTHL VAC10 1 = X27>
3933 <CALL '
\1aMUNG-AC 1>
3934 <RESTL VAC10 1 = VAC10 (TYPE LIST)>
3937 <TYPE? NUMBER8 <TYPE-CODE FIX> - PHRASE30>
3938 <LSH NUMBER8 2 = NUMBER8 (TYPE FIX)>
3939 <GRTR? NUMBER8 65535 + PHRASE30 (TYPE FIX)>
3940 <FRAME '
\1aLOAD-VAR>
3945 <GVAL 'AC-1 = STACK>
3946 <CALL '
\1aLOAD-VAR 4>
3947 <FRAME '
\1aLOAD-VAR>
3952 <GVAL 'AC-3 = STACK>
3953 <CALL '
\1aLOAD-VAR 4>
3956 <GVAL 'AC-PC = VAC10>
3957 <NTHUV VAC10 2 = LAB11 (TYPE FIX)>
3959 <OR LAB11 #WORD *200* = LAB11>
3960 <LSH LAB11 24 = LAB11 (TYPE FIX)>
3963 <AND VAC10 #WORD *377* = X27>
3964 <LSH X27 16 = X27 (TYPE FIX)>
3965 <AND VAC10 #WORD *177400* = VAC10>
3966 <OR X27 VAC10 = VAC10>
3968 <AND VAC10 #WORD *77777400* = VAC10>
3969 <OR LAB11 VAC10 = LAB11>
3971 <CHTYPE LAB11 <TYPE-CODE EFF-ADDR> = STACK>
3973 <GVAL 'AC-1 = LAB11>
3974 <NTHUV LAB11 2 = VAC10 (TYPE FIX)>
3976 <OR VAC10 #WORD *140* = VAC10>
3977 <LSH VAC10 24 = VAC10 (TYPE FIX)>
3978 <CHTYPE VAC10 <TYPE-CODE EFF-ADDR> = STACK>
3980 <GVAL 'AC-3 = VAC10>
3981 <NTHUV VAC10 2 = X27 (TYPE FIX)>
3983 <OR X27 #WORD *140* = X27>
3984 <LSH X27 24 = X27 (TYPE FIX)>
3985 <CHTYPE X27 <TYPE-CODE EFF-ADDR> = STACK>
3991 <GVAL 'AC-5 = STACK>
3993 <CALL '
\1aGET-AC 2 = X27>
3994 <NTHUV X27 2 = X27 (TYPE FIX)>
3995 <OR X27 #WORD *120* = X27>
3996 <LSH X27 24 = X27 (TYPE FIX)>
3997 <CHTYPE X27 <TYPE-CODE EFF-ADDR> = VAC10>
4000 <GVAL 'AC-6 = STACK>
4002 <CALL '
\1aGET-AC 2 = X27>
4003 <NTHUV X27 2 = X27 (TYPE FIX)>
4004 <OR X27 #WORD *120* = X27>
4005 <LSH X27 24 = X27 (TYPE FIX)>
4006 <CHTYPE X27 <TYPE-CODE EFF-ADDR> = VVAC13>
4008 <TYPE? NUMBER8 <TYPE-CODE FIX> - PHRASE44>
4014 <CALL '
\1aMA-IMM 1 = STACK>
4023 <CALL '
\1aMA-IMM 1 = STACK>
4024 <FRAME '
\1aVAR-VALUE-ADDRESS>
4027 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
4031 <FRAME '
\1aLOAD-VAR>
4036 <GVAL 'AC-1 = STACK>
4037 <CALL '
\1aLOAD-VAR 4>
4038 <FRAME '
\1aLOAD-VAR>
4043 <GVAL 'AC-3 = STACK>
4044 <CALL '
\1aLOAD-VAR 4>
4045 <FRAME '
\1aEMIT-LABEL>
4048 <CALL '
\1aEMIT-LABEL 2>
4049 <FRAME '
\1aEMIT-MOVE>
4053 <CALL '
\1aEMIT-MOVE 3>
4059 <CALL '
\1aMA-IMM 1 = STACK>
4061 <FRAME '
\1aGEN-BRANCH>
4065 <CALL '
\1aGEN-BRANCH 3>
4066 <FRAME '
\1aEMIT-MOVE>
4069 <CALL '
\1aMA-IMM 1 = STACK>
4072 <CALL '
\1aEMIT-MOVE 3>
4073 <FRAME '
\1aEMIT-LABEL>
4077 <CALL '
\1aEMIT-LABEL 2>
4083 <NTHUV X27 2 = X27 (TYPE FIX)>
4084 <OR X27 #WORD *140* = X27>
4085 <LSH X27 24 = X27 (TYPE FIX)>
4086 <CHTYPE X27 <TYPE-CODE EFF-ADDR> = STACK>
4089 <NTHUV X27 2 = X27 (TYPE FIX)>
4090 <OR X27 #WORD *140* = X27>
4091 <LSH X27 24 = X27 (TYPE FIX)>
4092 <CHTYPE X27 <TYPE-CODE EFF-ADDR> = STACK>
4099 <CALL '
\1aMA-IMM 1 = STACK>
4103 <FRAME '
\1aGEN-BRANCH>
4108 <CALL '
\1aGEN-BRANCH 3>
4113 <GFCN
\1aMPAGES-GEN ("VALUE" ANY ANY ANY) PGS4 DEST5>
4116 <FRAME '
\1aCALL-RTE>
4117 <GVAL 'IMPAGES!-MIMOP = STACK>
4124 <CALL '
\1aCALL-RTE 5 = TEMP7>