3 <GFCN
\1aINIT-VAR-LIST ("VALUE" <LIST [REST VARTBL]>)>
10 <GFCN
\1aCREATE-VAR ("VALUE" VARTBL <OR ATOM VARTBL> BOOLEAN "OPTIONAL" ANY) NAME6 TEMP7 HACK?8>
11 <OPT-DISPATCH 2 %<> OPT4 OPT5>
15 <TEMP TEMP14 VAR9 CMOD10:STK-MODEL>
17 <TYPE? NAME6 <TYPE-CODE ATOM> - PHRASE12>
26 <UBLOCK <TYPE-CODE VECTOR> 8 = TEMP14 (TYPE VECTOR)>
27 <CHTYPE TEMP14 <TYPE-CODE VARTBL> = VAR9>
33 <TYPE? HACK?8 <TYPE-CODE FALSE> - PHRASE20>
35 <NTHR 'CURRENT-MODEL 1 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL18)>
36 <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL18>
37 <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE GBIND)>
38 <TYPE? TEMP14 <TYPE-CODE UNBOUND> + BOOL18>
40 <GVAL 'CURRENT-MODEL = CMOD10>
41 <NTHUV CMOD10 6 = TEMP14 (TYPE LIST)>
42 <CONS VAR9 TEMP14 = TEMP14>
43 <PUTUV CMOD10 6 TEMP14 (TYPE LIST)>
46 <TYPE? TEMP7 <TYPE-CODE FALSE> - PHRASE20>
53 <TYPE? NAME6 <TYPE-CODE ATOM> - PHRASE23>
55 <GVAL 'VAR-LIST = TEMP14>
56 <CONS VAR9 TEMP14 = TEMP14>
57 <SETG 'VAR-LIST TEMP14>
64 <GFCN
\1aFIND-VAR ("VALUE" <OR FALSE VARTBL> ATOM) NAME4>
65 <TEMP (VAR?5 %<>) TEMP17:LIST VAR18:VARTBL TEMP21:ATOM>
67 <GVAL 'VAR-LIST = TEMP17>
71 <EMPL? TEMP17 + MAPAP10>
72 <NTHL TEMP17 1 = VAR18>
73 <NTHUV VAR18 1 = TEMP21 (TYPE ATOM)>
74 <VEQUAL? TEMP21 NAME4 - PHRASE20>
79 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
86 <GFCN
\1aINDICATE-VAR-DECL ("VALUE" VARTBL VARTBL <OR ATOM FALSE>) VAR4 DCL5>
93 <END
\1aINDICATE-VAR-DECL>
95 <GFCN
\1aINDICATE-VAR-INIT ("VALUE" <OR EFF-ADDR LADDR> VARTBL ANY) VAR4 VAL5>
98 <TYPE? VAL5 <TYPE-CODE FALSE> - PHRASE7>
99 <CHTYPE VAL5 <TYPE-CODE SPEC-FALSE> = VAL5>
107 <CALL '
\1aGEN-LOC 2 = TEMP9>
110 <END
\1aINDICATE-VAR-INIT>
112 <GFCN
\1aINDICATE-VAR-TEMP-DECL ("VALUE" VARTBL VARTBL <OR FALSE ATOM>) VAR4 DCL5>
119 <END
\1aINDICATE-VAR-TEMP-DECL>
121 <GFCN
\1aFLUSH-VAR-TEMP-DECLS ("VALUE" <OR FALSE VARTBL>)>
122 <TEMP TEMP13 TEMP15:LIST>
124 <SET TEMP13 %<> (TYPE FALSE)>
125 <GVAL 'VAR-LIST = TEMP15>
129 <EMPL? TEMP15 + MAPAP8>
130 <NTHL TEMP15 1 = TEMP13>
131 <FRAME '
\1aINDICATE-VAR-TEMP-DECL>
135 <CALL '
\1aINDICATE-VAR-TEMP-DECL 2 = TEMP13>
136 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
141 <END
\1aFLUSH-VAR-TEMP-DECLS>
143 <GFCN
\1aVARTBL-DECL ("VALUE" <OR ATOM FALSE> VARTBL) VAR4>
146 <FRAME '
\1aFIND-CACHE-VAR>
148 <CALL '
\1aFIND-CACHE-VAR 1 = LVAR5>
149 <NTHUV VAR4 4 = TEMP8>
150 <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL9>
151 <NTHUV VAR4 7 = TEMP8>
153 <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL9>
155 <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL9>
156 <NTHUV LVAR5 5 = TEMP8>
163 <GFCN
\1aADDR-VAR-VALUE ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
170 <CALL '
\1aGEN-LOC 2 = TEMP6>
173 <END
\1aADDR-VAR-VALUE>
175 <GFCN
\1aADDR-VAR-CHAR-VALUE ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
182 <CALL '
\1aGEN-LOC 2 = TEMP6>
185 <END
\1aADDR-VAR-CHAR-VALUE>
187 <GFCN
\1aADDR-VAR-COUNT ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
194 <CALL '
\1aGEN-LOC 2 = TEMP6>
197 <END
\1aADDR-VAR-COUNT>
199 <GFCN
\1aADDR-VAR-TYPE ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
206 <CALL '
\1aGEN-LOC 2 = TEMP6>
209 <END
\1aADDR-VAR-TYPE>
211 <GFCN
\1aADDR-VAR-TYPE-VALUE ("VALUE" <OR EFF-ADDR LADDR> VARTBL) VAR4>
218 <CALL '
\1aGEN-LOC 2 = TEMP6>
221 <END
\1aADDR-VAR-TYPE-VALUE>
223 <GFCN
\1aCREATE-MODEL ("VALUE" STK-MODEL)>
232 <UBLOCK <TYPE-CODE VECTOR> 6 = TEMP5 (TYPE VECTOR)>
233 <CHTYPE TEMP5 <TYPE-CODE STK-MODEL> = TEMP5>
236 <END
\1aCREATE-MODEL>
238 <GFCN
\1aINIT-STACK-MODEL ("VALUE" <LIST STK-MODEL>)>
241 <FRAME '
\1aCREATE-MODEL>
242 <CALL '
\1aCREATE-MODEL 0 = MOD4>
243 <SETG 'CURRENT-MODEL MOD4>
244 <SETG 'TOP-MODEL MOD4>
245 <CONS MOD4 () = MOD4>
246 <SETG 'STACK-LEVELS MOD4>
249 <END
\1aINIT-STACK-MODEL>
251 <GFCN
\1aINDICATE-TEMP-PATCH ("VALUE" STK-MODEL FIX) NUM4>
252 <TEMP TEMP5:STK-MODEL>
254 <GVAL 'CURRENT-MODEL = TEMP5>
255 <PUTUV TEMP5 1 NUM4 (TYPE FIX)>
259 <END
\1aINDICATE-TEMP-PATCH>
261 <GFCN
\1aNEW-MODEL ("VALUE" STK-MODEL STK-MODEL) MODEL4>
262 <TEMP TEMP5 TEMP6:STK-MODEL>
264 <GVAL 'CURRENT-MODEL = TEMP5>
265 <NTHUV TEMP5 3 = TEMP5 (TYPE LIST)>
266 <CONS MODEL4 TEMP5 = TEMP5>
267 <GVAL 'CURRENT-MODEL = TEMP6>
268 <PUTUV TEMP6 3 TEMP5 (TYPE LIST)>
270 <GVAL 'CURRENT-MODEL = TEMP6>
271 <PUTUV MODEL4 4 TEMP6>
273 <SETG 'CURRENT-MODEL MODEL4>
278 <GFCN
\1aPOP-MODEL ("VALUE" STK-MODEL)>
281 <GVAL 'CURRENT-MODEL = TEMP6>
282 <NTHUV TEMP6 4 = TEMP6>
283 <TYPE? TEMP6 <TYPE-CODE FALSE> - PHRASE5>
286 <PUSH "TOPLEVEL MODEL">
290 <GVAL 'CURRENT-MODEL = TEMP6>
291 <NTHUV TEMP6 4 = TEMP6 (TYPE STK-MODEL)>
292 <SETG 'CURRENT-MODEL TEMP6>
297 <GFCN
\1aGEN-LOC ("VALUE" <OR EFF-ADDR LADDR> VARTBL FIX "OPTIONAL" ANY) VAR6 IOFF7 DEF?8>
298 <OPT-DISPATCH 2 %<> OPT4 OPT5>
302 <TEMP OFF9 CMOD10 TEMP20 TEMP21>
304 <NTHUV VAR6 2 = OFF9>
305 <GVAL 'CURRENT-MODEL = CMOD10>
309 <NTHUV CMOD10 6 = TEMP20 (TYPE LIST)>
310 <EMPL? TEMP20 + PHRASE16>
311 <LOOP (VAR6 VALUE) (TEMP20 VALUE)>
313 <NTHL TEMP20 1 = TEMP21>
314 <VEQUAL? TEMP21 VAR6 + EXIT12>
316 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
317 <EMPL? TEMP20 - TAG18>
319 <NTHUV CMOD10 4 = CMOD10>
320 <TYPE? CMOD10 <TYPE-CODE FALSE> - AGAIN14>
322 <PUSH "VARIABLE NOT FOUND">
327 <TYPE? OFF9 <TYPE-CODE FALSE> - COND25>
328 <NTHUV CMOD10 5 = OFF9 (TYPE FIX)>
329 <ADD OFF9 8 = TEMP20 (TYPE FIX)>
330 <PUTUV CMOD10 5 TEMP20 (TYPE FIX)>
333 <NTHUV CMOD10 2 = TEMP20 (TYPE LIST)>
334 <EMPL? TEMP20 - PHRASE26 (TYPE LIST)>
335 <CONS VAR6 () = TEMP20>
337 <PUTUV CMOD10 2 TEMP20 (TYPE LIST)>
341 <LOOP (TEMP20 VALUE)>
343 <RESTL TEMP20 1 = TEMP21 (TYPE LIST)>
344 <EMPL? TEMP21 + TAG28>
349 <CONS VAR6 () = TEMP21>
351 <PUTREST TEMP20 TEMP21>
354 <ADD OFF9 IOFF7 = OFF9 (TYPE FIX)>
356 <TYPE? DEF?8 <TYPE-CODE FALSE> + PHRASE30>
358 <FRAME '
\1aMA-DEF-DISP>
362 <CALL '
\1aMA-DEF-DISP 2 = TEMP21>
366 <VEQUAL? OFF9 0 - PHRASE32 (TYPE FIX)>
368 <NTHUV OFF9 2 = OFF9 (TYPE FIX)>
369 <OR OFF9 #WORD *140* = OFF9>
370 <LSH OFF9 24 = OFF9 (TYPE FIX)>
371 <CHTYPE OFF9 <TYPE-CODE EFF-ADDR> = TEMP21>
380 <CALL '
\1aMA-DISP 2 = TEMP21>
385 <GFCN
\1aEMIT-STORE-AC ("VALUE" ANY AC EFF-ADDR "OPTIONAL" ATOM) AC6 DEST7 MODE8>
386 <OPT-DISPATCH 2 %<> OPT4 OPT5>
392 <NTHUV AC6 9 = TEMP12>
393 <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE10>
395 <NTHUV AC6 6 = TEMP12>
396 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
398 <VEQUAL? MODE8 'BYTE + PHRASE10>
399 <GVAL 'AC-STORE-OPT = TEMP12>
400 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
402 <NTHUV AC6 8 = TEMP12 (TYPE VECTOR)>
403 <LENUV TEMP12 = TEMP12 (TYPE FIX)>
404 <LESS? TEMP12 2 - PHRASE10 (TYPE FIX)>
406 <FRAME '
\1aRE-EMIT-MOVE>
407 <NTHUV AC6 6 = STACK (TYPE FIX)>
408 <NTHUV AC6 7 = STACK>
413 <CALL '
\1aRE-EMIT-MOVE 4>
414 <FRAME '
\1aCLEAR-VARS-FROM-AC>
417 <CALL '
\1aCLEAR-VARS-FROM-AC 1 = TEMP12>
424 <FRAME '
\1aEMIT-MOVE>
425 <NTHUV AC6 2 = TEMP12 (TYPE FIX)>
427 <OR TEMP12 #WORD *120* = TEMP12>
428 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
429 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
435 <CALL '
\1aEMIT-MOVE 3 = TEMP12>
438 <END
\1aEMIT-STORE-AC>
440 <GFCN
\1aEMIT-STORE-PAIR-AC ("VALUE" ANY AC AC EFF-ADDR "OPTIONAL" ATOM) AC6 AC27 DEST8 MODE9>
441 <OPT-DISPATCH 3 %<> OPT4 OPT5>
447 <NTHUV AC6 9 = TEMP13>
448 <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE11>
450 <NTHUV AC6 6 = TEMP13>
451 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
453 <VEQUAL? MODE9 'BYTE + PHRASE11>
455 <GVAL 'AC-STORE-OPT = TEMP13>
456 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
458 <NTHUV AC6 8 = TEMP13 (TYPE VECTOR)>
459 <LENUV TEMP13 = TEMP13 (TYPE FIX)>
460 <LESS? TEMP13 2 - PHRASE11 (TYPE FIX)>
462 <FRAME '
\1aRE-EMIT-MOVE>
463 <NTHUV AC6 6 = STACK (TYPE FIX)>
464 <NTHUV AC6 7 = STACK>
468 <CALL '
\1aRE-EMIT-MOVE 4>
469 <FRAME '
\1aCLEAR-VARS-FROM-AC>
472 <CALL '
\1aCLEAR-VARS-FROM-AC 1 = TEMP13>
483 <FRAME '
\1aEMIT-MOVE>
484 <NTHUV AC6 2 = TEMP13 (TYPE FIX)>
486 <OR TEMP13 #WORD *120* = TEMP13>
487 <LSH TEMP13 24 = TEMP13 (TYPE FIX)>
488 <CHTYPE TEMP13 <TYPE-CODE EFF-ADDR> = STACK>
493 <CALL '
\1aEMIT-MOVE 3 = TEMP13>
496 <END
\1aEMIT-STORE-PAIR-AC>
498 <GFCN
\1aISTORE-VAR ("VALUE" ANY LINKVAR "OPTIONAL" <OR FALSE XREF-INFO> ANY) LVAR7 XREF8 WILL-DIE-LIES?9>
499 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
505 <TEMP VAR11:VARTBL (STOREV14 %<>) (STORET15 %<>) (STOREC16 %<>) TEMP23 TAC13>
507 <NTHUV LVAR7 1 = VAR11 (TYPE VARTBL)>
508 <NTHUV VAR11 5 = STORET15>
509 <TYPE? STORET15 <TYPE-CODE FALSE> - BOOL57>
510 <NTHUV LVAR7 2 = TEMP23>
511 <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL22>
513 <NTHUV LVAR7 4 = TEMP23>
514 <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL22>
516 <NTHUV LVAR7 3 = STORET15>
517 <TYPE? STORET15 <TYPE-CODE FALSE> - BOOL57>
519 <TYPE? WILL-DIE-LIES?9 <TYPE-CODE FALSE> - BOOL24>
520 <DEAD WILL-DIE-LIES?9>
521 <FRAME '
\1aWILL-DIE?>
523 <CALL '
\1aWILL-DIE? 1 = STORET15>
524 <TYPE? STORET15 <TYPE-CODE FALSE> - BOOL57>
526 <FRAME '
\1aSTART-CODE-INSERT>
527 <CALL '
\1aSTART-CODE-INSERT 0>
528 <NTHUV LVAR7 2 = TEMP23>
529 <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE29>
531 <NTHUV LVAR7 3 = TEMP23>
532 <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL31>
534 <NTHUV LVAR7 4 = TEMP23>
535 <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE29>
538 <NTHUV LVAR7 9 = TEMP23>
540 <NTHUV LVAR7 6 = STACK>
541 <CALL '
\1aPREV-AC 1 = STORET15>
542 <EQUAL? TEMP23 STORET15 - PHRASE29>
544 <TYPE? STORET15 <TYPE-CODE FALSE> + PHRASE29>
545 <FRAME '
\1aADDR-VAR-TYPE-VALUE>
547 <CALL '
\1aADDR-VAR-TYPE-VALUE 1 = TEMP23>
548 <FRAME '
\1aEMIT-STORE-PAIR-AC>
551 <NTHUV LVAR7 6 = STACK (TYPE AC)>
554 <CALL '
\1aEMIT-STORE-PAIR-AC 3>
555 <SET STOREC16 'T (TYPE ATOM)>
556 <SET STORET15 STOREC16>
557 <SET STOREV14 STORET15>
564 <NTHUV LVAR7 2 = TEMP23>
565 <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE35>
567 <NTHUV LVAR7 6 = STORET15>
568 <TYPE? STORET15 <TYPE-CODE FALSE> - PHRASE37>
570 <PUSH "VARIABLE NOT IN AC">
574 <FRAME '
\1aADDR-VAR-VALUE>
576 <CALL '
\1aADDR-VAR-VALUE 1 = TEMP23>
577 <FRAME '
\1aEMIT-STORE-AC>
583 <CALL '
\1aEMIT-STORE-AC 3>
584 <SET STOREV14 'T (TYPE ATOM)>
587 <FRAME '
\1aSCHECK-TYPE-STORED>
589 <CALL '
\1aSCHECK-TYPE-STORED 1 = STORET15>
590 <NTHUV LVAR7 3 = TEMP23>
591 <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE48>
594 <SET STOREC16 'T (TYPE ATOM)>
595 <NTHUV LVAR7 9 = TAC13>
596 <TYPE? TAC13 <TYPE-CODE FALSE> + PHRASE45>
597 <FRAME '
\1aADDR-VAR-TYPE>
599 <CALL '
\1aADDR-VAR-TYPE 1 = TEMP23>
600 <FRAME '
\1aEMIT-STORE-AC>
606 <CALL '
\1aEMIT-STORE-AC 3>
609 <NTHUV LVAR7 8 = TAC13>
610 <TYPE? TAC13 <TYPE-CODE FALSE> + PHRASE48>
611 <FRAME '
\1aADDR-VAR-COUNT>
613 <CALL '
\1aADDR-VAR-COUNT 1 = TEMP23>
614 <FRAME '
\1aEMIT-STORE-AC>
620 <CALL '
\1aEMIT-STORE-AC 3>
622 <FRAME '
\1aEND-CODE-INSERT>
623 <CALL '
\1aEND-CODE-INSERT 0 = TEMP23>
624 <EMPUU? TEMP23 - TAG53 (TYPE UVECTOR)>
627 <FRAME '
\1aCOMPUTE-KIND>
634 <CALL '
\1aCOMPUTE-KIND 3 = STOREV14>
635 <FRAME '
\1aEMIT-POTENTIAL-STORE>
641 <CALL '
\1aEMIT-POTENTIAL-STORE 3>
643 <TYPE? STORET15 <TYPE-CODE FALSE> + BOOL57>
644 <FRAME '
\1aKILL-STORES>
651 <CALL '
\1aKILL-STORES 3 = STORET15>
657 <GFCN
\1aCOMPUTE-KIND ("VALUE" <OR ATOM FALSE> BOOLEAN <OR FALSE ATOM> BOOLEAN) STOREV4 STORET5 STOREC6>
660 <EQUAL? STORET5 'TYPE - PHRASE8>
661 <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE10>
662 <TYPE? STOREC6 <TYPE-CODE FALSE> + PHRASE10>
663 <RETURN 'COUNT-VALUE>
665 <TYPE? STOREC6 <TYPE-CODE FALSE> + PHRASE13>
669 <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE14>
675 <EQUAL? STORET5 'TYPE-COUNT - PHRASE15>
677 <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE17>
679 <RETURN 'TYPE-COUNT-VALUE>
683 <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE20>
684 <TYPE? STOREC6 <TYPE-CODE FALSE> + PHRASE20>
685 <RETURN 'COUNT-VALUE>
687 <TYPE? STOREV4 <TYPE-CODE FALSE> + PHRASE22>
693 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE23>
694 <SET TEMP12 'COUNT (TYPE ATOM)>
698 <END
\1aCOMPUTE-KIND>
700 <GFCN
\1aSCHECK-TYPE-STORED ("VALUE" ATOM LINKVAR) LVAR4>
701 <TEMP (KIND7 'TYPE) VAR9:VARTBL TEMP12 DCL8 TEMP20>
703 <NTHUV LVAR4 1 = VAR9 (TYPE VARTBL)>
704 <NTHUV LVAR4 4 = TEMP12>
705 <TYPE? TEMP12 <TYPE-CODE FALSE> - COND24>
707 <NTHUV LVAR4 1 = TEMP12 (TYPE VARTBL)>
708 <NTHUV TEMP12 4 = DCL8>
710 <TYPE? DCL8 <TYPE-CODE FALSE> + PHRASE14>
711 <GVAL 'TYPE-LENGTHS = TEMP12>
712 <EMPTY? TEMP12 + TAG17>
713 <LOOP (DCL8 VALUE) (TEMP12 LENGTH VALUE TYPE)>
715 <NTH1 TEMP12 = TEMP20>
716 <TYPE? TEMP20 <TYPE-CODE ATOM> - TAG19>
717 <VEQUAL? TEMP20 DCL8 + BOOL16>
720 <REST1 TEMP12 = TEMP12>
721 <EMPTY? TEMP12 - TAG18>
723 <FRAME '
\1aCOUNT-NEEDED?>
726 <CALL '
\1aCOUNT-NEEDED? 1 = TEMP12>
727 <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE14>
735 <FRAME '
\1aADDR-VAR-TYPE>
738 <CALL '
\1aADDR-VAR-TYPE 1 = TEMP12>
740 <NTHUV LVAR4 9 = DCL8>
741 <TYPE? DCL8 <TYPE-CODE FALSE> + PHRASE25>
742 <FRAME '
\1aEMIT-STORE-AC>
748 <CALL '
\1aEMIT-STORE-AC 3>
753 <NTHUV LVAR4 7 = DCL8>
754 <TYPE? DCL8 <TYPE-CODE FALSE> + PHRASE27>
755 <FRAME '
\1aEMIT-STORE-AC>
761 <CALL '
\1aEMIT-STORE-AC 3>
765 <NTHUV LVAR4 5 = DCL8>
767 <TYPE? DCL8 <TYPE-CODE FALSE> + PHRASE29>
768 <FRAME '
\1aSTORE-TYPE>
773 <CALL '
\1aSTORE-TYPE 2>
778 <PUSH "VARIABLE NOT IN AC">
784 <END
\1aSCHECK-TYPE-STORED>
786 <GFCN
\1aSTORE-TYPE ("VALUE" ANY ATOM EFF-ADDR "OPTIONAL" ANY) DCL6 ADDR7 EXTRA8>
787 <OPT-DISPATCH 2 %<> OPT4 OPT5>
791 <TEMP TEMP14 TEMP15 TEMP26 TEMP27>
793 <GVAL 'TYPE-LENGTHS = TEMP14>
794 <EMPTY? TEMP14 + PHRASE10>
795 <LOOP (DCL6 VALUE) (TEMP14 LENGTH VALUE TYPE)>
797 <NTH1 TEMP14 = TEMP15>
798 <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG13>
799 <VEQUAL? TEMP15 DCL6 + TAG11>
802 <REST1 TEMP14 = TEMP14>
803 <EMPTY? TEMP14 - TAG12>
806 <FRAME '
\1aEMIT-MOVE>
807 <FRAME '
\1aTYPE-WORD>
810 <CALL '
\1aTYPE-WORD 1 = STACK>
816 <CALL '
\1aEMIT-MOVE 4 = TEMP14>
820 <FRAME '
\1aCOUNT-NEEDED?>
822 <CALL '
\1aCOUNT-NEEDED? 1 = TEMP15>
823 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE18>
827 <CALL '
\1aTYPEPRIM 1 = TEMP15>
828 <GVAL 'TYPE-LENGTHS = TEMP14>
829 <TYPE TEMP15 = TEMP26>
830 <EMPTY? TEMP14 + TAG21>
831 <LOOP (TEMP15 VALUE) (TEMP26 VALUE) (TEMP14 LENGTH VALUE TYPE)>
833 <NTH1 TEMP14 = TEMP27>
834 <TYPE? TEMP27 TEMP26 - TAG23>
835 <VEQUAL? TEMP27 TEMP15 + PHRASE18>
838 <REST1 TEMP14 = TEMP14>
839 <EMPTY? TEMP14 - TAG22>
841 <FRAME '
\1aEMIT-MOVE>
842 <FRAME '
\1aTYPE-CODE>
846 <CALL '
\1aTYPE-CODE 2 = STACK>
852 <CALL '
\1aEMIT-MOVE 4 = TEMP14>
856 <FRAME '
\1aEMIT-MOVE>
857 <FRAME '
\1aTYPE-CODE>
861 <CALL '
\1aTYPE-CODE 2 = STACK>
865 <CALL '
\1aEMIT-MOVE 3 = TEMP14>
868 <END
\1aSTORE-TYPE>
\r\0\r\0
870 <GFCN
\1aLOAD-AC-PAIR ("VALUE" ANY ANY ANY "OPTIONAL" ANY) VAR6 RES7 AC8>
871 <OPT-DISPATCH 2 %<> OPT4 OPT5>
875 <TEMP TEMP26 TEMP27 TEMP28 TAC9>
877 <TYPE? AC8 <TYPE-CODE UNBOUND> - TAG12>
881 <CALL '
\1aGET-AC 2 = AC8>
883 <TYPE? VAR6 <TYPE-CODE VARTBL> + PHRASE16>
887 <CALL '
\1aSTORE-AC 2>
891 <CALL '
\1aNEXT-AC 1 = STACK>
893 <CALL '
\1aSTORE-AC 2>
896 <CALL '
\1aPRIMTYPE 1 = TEMP26>
897 <SET TEMP27 [WORD FIX] (TYPE VECTOR)>
898 <LOOP (TEMP26 VALUE) (TEMP27 LENGTH VALUE)>
900 <NTHUV TEMP27 1 = TEMP28>
901 <VEQUAL? TEMP28 TEMP26 + PHRASE21>
903 <RESTUV TEMP27 1 = TEMP27 (TYPE VECTOR)>
904 <EMPUV? TEMP27 - TAG23>
907 <FRAME '
\1aADDR-TYPE-M>
911 <CALL '
\1aADD-MVEC 1 = STACK>
912 <CALL '
\1aADDR-TYPE-M 1 = STACK>
913 <NTHUV AC8 2 = TEMP27 (TYPE FIX)>
914 <OR TEMP27 #WORD *120* = TEMP27>
915 <LSH TEMP27 24 = TEMP27 (TYPE FIX)>
916 <CHTYPE TEMP27 <TYPE-CODE EFF-ADDR> = STACK>
921 <FRAME '
\1aMOVE-VALUE>
925 <CALL '
\1aNEXT-AC 1 = STACK>
926 <CALL '
\1aMOVE-VALUE 2>
927 <FRAME '
\1aEMIT-MOVE>
928 <FRAME '
\1aTYPE-WORD>
931 <CALL '
\1aTYPE 1 = STACK>
932 <CALL '
\1aTYPE-WORD 1 = STACK>
933 <NTHUV AC8 2 = TEMP27 (TYPE FIX)>
934 <OR TEMP27 #WORD *120* = TEMP27>
935 <LSH TEMP27 24 = TEMP27 (TYPE FIX)>
936 <CHTYPE TEMP27 <TYPE-CODE EFF-ADDR> = STACK>
939 <CALL '
\1aEMIT-MOVE 3>
942 <FRAME '
\1aTYPE-WORD>
946 <CALL '
\1aTYPE 1 = STACK>
947 <CALL '
\1aTYPE-WORD 1 = STACK>
951 <FRAME '
\1aFIND-CACHE-VAR>
953 <CALL '
\1aFIND-CACHE-VAR 1 = TEMP28>
954 <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE41>
958 <CALL '
\1aSTORE-AC 2>
962 <CALL '
\1aNEXT-AC 1 = STACK>
964 <CALL '
\1aSTORE-AC 2>
965 <FRAME '
\1aLOAD-VAR-INTO-AC>
968 <PUSH 'TYPE-VALUE-PAIR>
971 <CALL '
\1aLOAD-VAR-INTO-AC 4>
974 <NTHUV TEMP28 6 = TEMP26>
975 <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE47>
976 <NTHUV TEMP28 9 = TAC9>
977 <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE47>
980 <CALL '
\1aNEXT-AC 1 = TEMP27>
981 <EQUAL? TEMP27 TEMP26 - PHRASE47>
983 <EQUAL? TAC9 AC8 - PHRASE51>
990 <CALL '
\1aNEXT-AC 1 = STACK>
994 <FRAME '
\1aLOAD-VAR-INTO-AC>
997 <PUSH 'TYPE-VALUE-PAIR>
1003 <CALL '
\1aLOAD-VAR-INTO-AC 6>
1006 <NTHUV TEMP28 9 = TAC9>
1007 <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL61>
1009 <TYPE? TAC9 <TYPE-CODE FALSE> + BOOL60>
1012 <NTHUV TEMP28 2 = TEMP27>
1013 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE59>
1015 <NTHUV TEMP28 4 = TEMP27>
1016 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE59>
1018 <NTHUV TEMP28 3 = TEMP27>
1020 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE59>
1023 <FRAME '
\1aLOAD-VAR-INTO-AC>
1026 <PUSH 'TYPE-VALUE-PAIR>
1031 <CALL '
\1aLOAD-VAR-INTO-AC 6>
1034 <FRAME '
\1aLOAD-VAR>
1040 <CALL '
\1aNEXT-AC 1 = STACK>
1041 <CALL '
\1aLOAD-VAR 4>
1042 <FRAME '
\1aLOAD-VAR>
1048 <CALL '
\1aLOAD-VAR 4>
1050 <TYPE? RES7 <TYPE-CODE FALSE> + PHRASE69>
1051 <FRAME '
\1aDEST-PAIR>
1054 <CALL '
\1aNEXT-AC 1 = STACK>
1058 <CALL '
\1aDEST-PAIR 3>
1062 <END
\1aLOAD-AC-PAIR>
1064 <GFCN
\1aLOAD-VAR ("VALUE" ANY VARTBL ANY BOOLEAN AC-CHOICES "OPTIONAL" <OR ATOM FALSE> BOOLEAN) VAR7 IMODE8 MODIFY?9 AC-TYPE10 DCL?11 USE?12>
1065 <OPT-DISPATCH 4 %<> OPT4 OPT5 OPT6>
1071 <TEMP MODE19 LVAR13 NOAC?14 VAC16 TAC15 TEMP32>
1074 <VEQUAL? IMODE8 'JUST-VALUE - PHRASE21>
1075 <SET MODE19 'VALUE (TYPE ATOM)>
1077 <TYPE? DCL?11 <TYPE-CODE FALSE> - BOOL22>
1078 <FRAME '
\1aVARTBL-DECL>
1080 <CALL '
\1aVARTBL-DECL 1 = DCL?11>
1082 <FRAME '
\1aFIND-CACHE-VAR>
1084 <CALL '
\1aFIND-CACHE-VAR 1 = LVAR13>
1085 <TYPE? LVAR13 <TYPE-CODE FALSE> - PHRASE25>
1086 <SET NOAC?14 %<> (TYPE FALSE)>
1089 <VEQUAL? MODE19 'VALUE - PHRASE27>
1090 <VEQUAL? IMODE8 'JUST-VALUE + PHRASE29>
1091 <NTHUV LVAR13 6 = VAC16>
1092 <TYPE? VAC16 <TYPE-CODE FALSE> + PHRASE29>
1093 <NTHUV LVAR13 9 = TAC15>
1094 <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE29>
1097 <CALL '
\1aNEXT-AC 1 = TEMP32>
1098 <EQUAL? TEMP32 VAC16 - PHRASE29>
1100 <GVAL 'AC-0 = TEMP32>
1101 <EQUAL? TEMP32 AC-TYPE10 + PHRASE29>
1103 <TYPE? AC-TYPE10 <TYPE-CODE AC> - PHRASE34>
1104 <VEQUAL? AC-TYPE10 VAC16 + PHRASE34>
1107 <CALL '
\1aPREV-AC 1 = NOAC?14>
1108 <FRAME '
\1aLOAD-VAR-INTO-AC>
1110 <PUSH 'TYPE-VALUE-PAIR>
1117 <CALL '
\1aLOAD-VAR-INTO-AC 6>
1118 <SET NOAC?14 AC-TYPE10>
1122 <TYPE? MODIFY?9 <TYPE-CODE FALSE> + COND24>
1126 <CALL '
\1aMUNG-AC 1>
1130 <CALL '
\1aMUNG-AC 1>
1133 <NTHUV LVAR13 6 = VAC16>
1134 <TYPE? VAC16 <TYPE-CODE FALSE> + PHRASE45>
1135 <FRAME '
\1aMOVE-VAR-BETWEEN-ACS>
1141 <CALL '
\1aMOVE-VAR-BETWEEN-ACS 4 = NOAC?14>
1144 <SET NOAC?14 %<> (TYPE FALSE)>
1147 <VEQUAL? MODE19 'TYPE - PHRASE48>
1148 <NTHUV LVAR13 7 = TAC15>
1149 <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE50>
1150 <FRAME '
\1aMOVE-VAR-BETWEEN-ACS>
1156 <CALL '
\1aMOVE-VAR-BETWEEN-ACS 4 = NOAC?14>
1159 <NTHUV LVAR13 4 = TEMP32>
1160 <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE52>
1162 <NTHUV LVAR13 9 = TAC15>
1163 <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE52>
1164 <FRAME '
\1aVARTBL-DECL>
1166 <CALL '
\1aVARTBL-DECL 1 = TEMP32>
1167 <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE52>
1169 <FRAME '
\1aMOVE-TYPE-FROM-TYPEWORD>
1175 <CALL '
\1aMOVE-TYPE-FROM-TYPEWORD 4 = NOAC?14>
1178 <SET NOAC?14 %<> (TYPE FALSE)>
1181 <VEQUAL? MODE19 'COUNT - PHRASE57>
1182 <NTHUV LVAR13 3 = TEMP32>
1183 <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE59>
1185 <SET NOAC?14 %<> (TYPE FALSE)>
1188 <NTHUV LVAR13 8 = TAC15>
1189 <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE60>
1190 <FRAME '
\1aMOVE-VAR-BETWEEN-ACS>
1196 <CALL '
\1aMOVE-VAR-BETWEEN-ACS 4 = NOAC?14>
1199 <NTHUV LVAR13 9 = TAC15>
1200 <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE62>
1201 <FRAME '
\1aMOVE-COUNT-FROM-TYPEWORD>
1207 <CALL '
\1aMOVE-COUNT-FROM-TYPEWORD 4 = NOAC?14>
1210 <SET NOAC?14 %<> (TYPE FALSE)>
1213 <VEQUAL? MODE19 'TYPE-WORD - PHRASE65>
1214 <NTHUV LVAR13 9 = TAC15>
1215 <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE67>
1216 <FRAME '
\1aMOVE-VAR-BETWEEN-ACS>
1222 <CALL '
\1aMOVE-VAR-BETWEEN-ACS 4 = NOAC?14>
1225 <FRAME '
\1aSAFE-TYPE-WORD?>
1227 <CALL '
\1aSAFE-TYPE-WORD? 1 = TEMP32>
1228 <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE69>
1230 <NTHUV LVAR13 8 = NOAC?14>
1231 <TYPE? NOAC?14 <TYPE-CODE FALSE> + PHRASE72>
1232 <NTHUV LVAR13 3 = TEMP32>
1233 <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE72>
1235 <FRAME '
\1aEMIT-MOVE>
1236 <NTHUV NOAC?14 2 = TEMP32 (TYPE FIX)>
1237 <OR TEMP32 #WORD *120* = TEMP32>
1238 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1239 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1241 <FRAME '
\1aADDR-VAR-COUNT>
1243 <CALL '
\1aADDR-VAR-COUNT 1 = STACK>
1245 <CALL '
\1aEMIT-MOVE 3>
1247 <FRAME '
\1aBREAK-LINK>
1251 <CALL '
\1aBREAK-LINK 2>
1253 <NTHUV LVAR13 7 = NOAC?14>
1254 <TYPE? NOAC?14 <TYPE-CODE FALSE> + PHRASE78>
1255 <NTHUV LVAR13 4 = TEMP32>
1256 <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE78>
1258 <FRAME '
\1aEMIT-MOVE>
1259 <NTHUV NOAC?14 2 = TEMP32 (TYPE FIX)>
1260 <OR TEMP32 #WORD *120* = TEMP32>
1261 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1262 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1264 <FRAME '
\1aADDR-VAR-TYPE>
1266 <CALL '
\1aADDR-VAR-TYPE 1 = STACK>
1268 <CALL '
\1aEMIT-MOVE 3>
1270 <FRAME '
\1aBREAK-LINK>
1274 <CALL '
\1aBREAK-LINK 2>
1276 <FRAME '
\1aSAFE-TYPE-WORD?>
1278 <CALL '
\1aSAFE-TYPE-WORD? 1 = TEMP32>
1279 <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE84>
1281 <NTHUV LVAR13 5 = DCL?11>
1282 <TYPE? DCL?11 <TYPE-CODE FALSE> + PHRASE84>
1283 <FRAME '
\1aEMIT-MOVE>
1284 <FRAME '
\1aTYPE-CODE>
1287 <CALL '
\1aTYPE-CODE 2 = STACK>
1288 <FRAME '
\1aADDR-VAR-TYPE>
1290 <CALL '
\1aADDR-VAR-TYPE 1 = STACK>
1292 <CALL '
\1aEMIT-MOVE 3>
1295 <SET NOAC?14 %<> (TYPE FALSE)>
1298 <SET NOAC?14 %<> (TYPE FALSE)>
1306 <TYPE? NOAC?14 <TYPE-CODE FALSE> - PHRASE93>
1307 <VEQUAL? IMODE8 'VALUE - PHRASE93>
1309 <TYPE? LVAR13 <TYPE-CODE FALSE> + BOOL95>
1310 <NTHUV LVAR13 7 = TEMP32>
1311 <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE93>
1313 <NTHUV LVAR13 9 = TEMP32>
1314 <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE93>
1316 <NTHUV LVAR13 8 = TEMP32>
1318 <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE93>
1321 <GVAL 'AC-0 = TEMP32>
1322 <EQUAL? TEMP32 AC-TYPE10 + PHRASE93>
1324 <TYPE? AC-TYPE10 <TYPE-CODE AC> - PHRASE98>
1328 <CALL '
\1aPREV-AC 1 = STACK>
1329 <CALL '
\1aGET-AC 1 = TAC15>
1332 <CALL '
\1aGET-AC 1 = TEMP32>
1333 <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE93>
1339 <CALL '
\1aGET-AC 1 = TAC15>
1340 <TYPE? TAC15 <TYPE-CODE FALSE> + PHRASE93>
1342 <FRAME '
\1aLOAD-VAR-INTO-AC>
1344 <PUSH 'TYPE-VALUE-PAIR>
1349 <CALL '
\1aLOAD-VAR-INTO-AC 5>
1350 <TYPE? DCL?11 <TYPE-CODE FALSE> + BOOL105>
1351 <FRAME '
\1aINDICATE-CACHED-VARIABLE-DECL>
1356 <CALL '
\1aINDICATE-CACHED-VARIABLE-DECL 2>
1361 <CALL '
\1aNEXT-AC 1 = TAC15>
1362 <TYPE? USE?12 <TYPE-CODE FALSE> + BOOL108>
1371 <TYPE? NOAC?14 <TYPE-CODE FALSE> - PHRASE110>
1375 <CALL '
\1aGET-AC 1 = TAC15>
1376 <FRAME '
\1aLOAD-VAR-INTO-AC>
1383 <CALL '
\1aLOAD-VAR-INTO-AC 4>
1384 <FRAME '
\1aSET-STATUS-AC>
1386 <CALL '
\1aSET-STATUS-AC 1>
1387 <TYPE? DCL?11 <TYPE-CODE FALSE> + BOOL114>
1388 <FRAME '
\1aINDICATE-CACHED-VARIABLE-DECL>
1393 <CALL '
\1aINDICATE-CACHED-VARIABLE-DECL 2>
1395 <TYPE? USE?12 <TYPE-CODE FALSE> + BOOL116>
1404 <TYPE? DCL?11 <TYPE-CODE FALSE> + BOOL119>
1405 <FRAME '
\1aINDICATE-CACHED-VARIABLE-DECL>
1410 <CALL '
\1aINDICATE-CACHED-VARIABLE-DECL 2>
1412 <TYPE? USE?12 <TYPE-CODE FALSE> + BOOL121>
1422 <GFCN
\1aMOVE-VAR-BETWEEN-ACS ("VALUE" STRUCTURED AC ANY AC-CHOICES BOOLEAN) VAC4 VAR5 AC-MODE6 MODIFY?7>
1425 <FRAME '
\1aPROTECT-USE>
1427 <CALL '
\1aPROTECT-USE 1>
1428 <FRAME '
\1aMATCH-AC?>
1431 <CALL '
\1aMATCH-AC? 2 = TEMP13>
1432 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
1434 <TYPE? MODIFY?7 <TYPE-CODE FALSE> + PHRASE15>
1436 <FRAME '
\1aAVAILABLE?>
1438 <CALL '
\1aAVAILABLE? 1 = TEMP13>
1439 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE17>
1441 <FRAME '
\1aCLEAR-VARS-FROM-AC>
1443 <CALL '
\1aCLEAR-VARS-FROM-AC 1>
1447 <FRAME '
\1aCHECK-FREE-AC?>
1450 <CALL '
\1aCHECK-FREE-AC? 1 = TEMP13>
1451 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE20>
1452 <FRAME '
\1aIMOVE-AC>
1457 <CALL '
\1aIMOVE-AC 3>
1461 <FRAME '
\1aSTORE-AC>
1464 <CALL '
\1aSTORE-AC 2>
1471 <TYPE? MODIFY?7 <TYPE-CODE FALSE> + PHRASE27>
1476 <CALL '
\1aGET-AC 1 = TEMP13>
1477 <FRAME '
\1aIMOVE-AC>
1482 <CALL '
\1aIMOVE-AC 3>
1486 <FRAME '
\1aPLACE-ALTERNATE-AC>
1491 <CALL '
\1aPLACE-ALTERNATE-AC 2 = TEMP13>
1494 <END
\1aMOVE-VAR-BETWEEN-ACS>
\r\0\r\0
1496 <GFCN
\1aCHECK-FREE-AC? ("VALUE" ANY AC-CHOICES) MODE4>
1499 <TYPE? MODE4 <TYPE-CODE AC> - PHRASE6>
1500 <FRAME '
\1aAVAILABLE?>
1502 <CALL '
\1aAVAILABLE? 1 = TEMP8>
1503 <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL15>
1507 <VEQUAL? MODE4 'DOUBLE - PHRASE10>
1508 <FRAME '
\1aFIND-FREE-PAIR>
1510 <CALL '
\1aFIND-FREE-PAIR 1 = TEMP8>
1511 <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL15>
1512 <FRAME '
\1aFIND-FREE-PAIR>
1514 <CALL '
\1aFIND-FREE-PAIR 1 = TEMP8>
1518 <FRAME '
\1aFREE-AC?>
1521 <CALL '
\1aFREE-AC? 2 = TEMP8>
1522 <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL15>
1523 <FRAME '
\1aFREE-AC?>
1527 <CALL '
\1aFREE-AC? 2 = TEMP8>
1531 <END
\1aCHECK-FREE-AC?>
1533 <GFCN
\1aAVAILABLE? ("VALUE" <OR AC FALSE> AC) AC4>
1534 <TEMP TEMP14 TEMP16:VECTOR LVAR17:LINKVAR>
1536 <SET TEMP14 %<> (TYPE FALSE)>
1537 <NTHUV AC4 8 = TEMP16 (TYPE VECTOR)>
1541 <EMPUV? TEMP16 + MAPAP9>
1542 <NTHUV TEMP16 1 = LVAR17>
1543 <NTHUV LVAR17 1 = TEMP14 (TYPE VARTBL)>
1544 <NTHUV TEMP14 5 = TEMP14>
1545 <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE30>
1547 <NTHUV LVAR17 6 = TEMP14>
1548 <EQUAL? TEMP14 AC4 - PHRASE22>
1550 <NTHUV LVAR17 2 = TEMP14>
1551 <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE22>
1555 <NTHUV LVAR17 7 = TEMP14>
1556 <EQUAL? TEMP14 AC4 - PHRASE24>
1558 <NTHUV LVAR17 4 = TEMP14>
1559 <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE24>
1563 <NTHUV LVAR17 8 = TEMP14>
1564 <EQUAL? TEMP14 AC4 - PHRASE27>
1566 <NTHUV LVAR17 3 = TEMP14>
1567 <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE27>
1571 <NTHUV LVAR17 9 = TEMP14>
1572 <EQUAL? TEMP14 AC4 - PHRASE30>
1574 <NTHUV LVAR17 4 = TEMP14>
1576 <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE30>
1581 <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
1588 <GFCN
\1aGET-AC ("VALUE" STRUCTURED "OPTIONAL" AC-CHOICES ANY) AC-MODE7 MUNG?8>
1589 <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6>
1597 <EQUAL? AC-MODE7 'ANY-AC - PHRASE11>
1598 <SET AC-MODE7 'NONE (TYPE ATOM)>
1600 <TYPE? AC-MODE7 <TYPE-CODE AC> - PHRASE13>
1601 <FRAME '
\1aSTORE-AC>
1603 <CALL '
\1aSTORE-AC 1>
1607 <FRAME '
\1aCHECK-FREE-AC?>
1609 <CALL '
\1aCHECK-FREE-AC? 1 = PAC9>
1610 <TYPE? PAC9 <TYPE-CODE FALSE> - PHRASE16>
1611 <FRAME '
\1aPICK-BEST-AC>
1613 <CALL '
\1aPICK-BEST-AC 1 = PAC9>
1614 <FRAME '
\1aSTORE-AC>
1616 <CALL '
\1aSTORE-AC 1>
1617 <VEQUAL? AC-MODE7 'DOUBLE - PHRASE16>
1618 <FRAME '
\1aSTORE-AC>
1621 <CALL '
\1aNEXT-AC 1 = STACK>
1622 <CALL '
\1aSTORE-AC 1>
1624 <TYPE? MUNG?8 <TYPE-CODE FALSE> + PHRASE27>
1628 <CALL '
\1aMUNG-AC 1>
1629 <EQUAL? AC-MODE7 'DOUBLE - PHRASE27>
1634 <CALL '
\1aNEXT-AC 1 = STACK>
1635 <CALL '
\1aMUNG-AC 1>
1641 <GFCN
\1aPICK-BEST-AC ("VALUE" AC ATOM) MODE4>
1644 <FRAME '
\1aPICK-FROM>
1645 <GVAL 'ALL-ACS = STACK>
1648 <CALL '
\1aPICK-FROM 2 = TEMP6>
1651 <END
\1aPICK-BEST-AC>
1653 <GFCN
\1aPICK-FROM ("VALUE" <OR FALSE AC> <VECTOR [REST AC]> ANY) ACS4 MODE5>
1654 <TEMP (BEST-AC6 %<>) TEMP17 AC10:AC AC211:AC BEST-AC27:AC TEMP37>
1659 <EMPUV? ACS4 + EXIT8 (TYPE VECTOR)>
1660 <RESTUV ACS4 1 = TEMP17 (TYPE VECTOR)>
1661 <EMPUV? TEMP17 - PHRASE14 (TYPE VECTOR)>
1663 <EQUAL? MODE5 'DOUBLE + EXIT8>
1665 <NTHUV ACS4 1 = AC10 (TYPE AC)>
1666 <EQUAL? MODE5 'DOUBLE - PHRASE19>
1667 <NTHUV ACS4 2 = AC211 (TYPE AC)>
1669 <EQUAL? MODE5 'DOUBLE - PHRASE21>
1670 <SET TEMP17 2 (TYPE FIX)>
1673 <SET TEMP17 1 (TYPE FIX)>
1675 <RESTUV ACS4 TEMP17 = ACS4 (TYPE VECTOR)>
1677 <NTHUV AC10 4 = TEMP17>
1678 <TYPE? TEMP17 <TYPE-CODE FALSE> - AGAIN12>
1680 <EQUAL? MODE5 'DOUBLE - PHRASE26>
1681 <NTHUV AC211 4 = TEMP17>
1682 <TYPE? TEMP17 <TYPE-CODE FALSE> - AGAIN12>
1685 <TYPE? BEST-AC6 <TYPE-CODE FALSE> - PHRASE31>
1688 <EQUAL? MODE5 'DOUBLE - AGAIN12>
1689 <SET BEST-AC27 AC211>
1692 <NTHUV AC10 8 = TEMP17 (TYPE VECTOR)>
1693 <LENUV TEMP17 = TEMP17 (TYPE FIX)>
1694 <NTHUV BEST-AC6 8 = TEMP37 (TYPE VECTOR)>
1695 <LENUV TEMP37 = TEMP37 (TYPE FIX)>
1696 <LESS? TEMP17 TEMP37 - PHRASE35 (TYPE FIX)>
1697 <DEAD TEMP17 TEMP37>
1698 <EQUAL? MODE5 'DOUBLE - BOOL38>
1699 <NTHUV AC211 8 = TEMP17 (TYPE VECTOR)>
1700 <LENUV TEMP17 = TEMP17 (TYPE FIX)>
1701 <NTHUV BEST-AC27 8 = TEMP37 (TYPE VECTOR)>
1702 <LENUV TEMP37 = TEMP37 (TYPE FIX)>
1703 <LESS? TEMP17 TEMP37 - PHRASE35 (TYPE FIX)>
1704 <DEAD TEMP17 TEMP37>
1708 <EQUAL? MODE5 'DOUBLE - AGAIN12>
1709 <SET BEST-AC27 AC211>
1712 <NTHUV AC10 3 = TEMP17 (TYPE FIX)>
1713 <NTHUV BEST-AC6 3 = TEMP37 (TYPE FIX)>
1714 <GRTR? TEMP17 TEMP37 - AGAIN12 (TYPE FIX)>
1715 <DEAD TEMP17 TEMP37>
1716 <EQUAL? MODE5 'DOUBLE - BOOL44>
1717 <NTHUV AC211 3 = TEMP17 (TYPE FIX)>
1718 <NTHUV BEST-AC27 3 = TEMP37 (TYPE FIX)>
1719 <GRTR? TEMP17 TEMP37 - AGAIN12 (TYPE FIX)>
1720 <DEAD TEMP17 TEMP37>
1724 <SET BEST-AC27 AC211>
1727 <TYPE? BEST-AC6 <TYPE-CODE FALSE> - PHRASE46>
1729 <PUSH "AC NOT FOUND">
1737 <GFCN
\1aIMOVE-AC ("VALUE" ANY AC AC ANY) SOURCE-AC4 DEST-AC5 MODIFY?6>
1743 <FRAME '
\1aSTORE-AC>
1746 <CALL '
\1aSTORE-AC 2>
1747 <FRAME '
\1aEMIT-MOVE>
1748 <NTHUV SOURCE-AC4 2 = TEMP10 (TYPE FIX)>
1749 <OR TEMP10 #WORD *120* = TEMP10>
1750 <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
1751 <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
1753 <NTHUV DEST-AC5 2 = TEMP10 (TYPE FIX)>
1754 <OR TEMP10 #WORD *120* = TEMP10>
1755 <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
1756 <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
1759 <CALL '
\1aEMIT-MOVE 3>
1762 <NTHUV SOURCE-AC4 2 = TEMP10 (TYPE FIX)>
1763 <OR TEMP10 #WORD *120* = TEMP10>
1764 <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
1765 <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
1767 <CALL '
\1aLOAD-AC 2>
1768 <TYPE? MODIFY?6 <TYPE-CODE FALSE> - BOOL12>
1774 <CALL '
\1aMOVE-AC 2>
1776 <FRAME '
\1aSET-STATUS-AC>
1778 <CALL '
\1aSET-STATUS-AC 1>
1779 <FRAME '
\1aSET-AC-AGE>
1782 <CALL '
\1aSET-AC-AGE 1 = TEMP10>
1788 <GFCN
\1aSTORE-AC ("VALUE" ANY AC "OPTIONAL" BOOLEAN <OR LINKVAR FALSE>) AC7 FLUSH8 SAVE?9>
1789 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
1795 <TEMP TEMP21 X22:LINKVAR>
1797 <NTHUV AC7 8 = TEMP21 (TYPE VECTOR)>
1801 <EMPUV? TEMP21 + MAPAP14>
1802 <NTHUV TEMP21 1 = X22>
1803 <EQUAL? X22 SAVE?9 + PHRASE24>
1804 <FRAME '
\1aISTORE-VAR>
1807 <CALL '
\1aISTORE-VAR 1>
1809 <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
1814 <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE27>
1815 <FRAME '
\1aCLEAR-VARS-FROM-AC>
1821 <CALL '
\1aCLEAR-VARS-FROM-AC 3 = TEMP21>
1827 <GFCN
\1aPLACE-ALTERNATE-AC ("VALUE" STRUCTURED AC AC-CHOICES) AC4 MODE5>
1833 <CALL '
\1aGET-AC 1 = FAC6>
1834 <FRAME '
\1aALL-DEAD?>
1836 <CALL '
\1aALL-DEAD? 1 = TEMP11>
1837 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE9>
1839 <FRAME '
\1aEMIT-MOVE>
1840 <NTHUV AC4 2 = TEMP11 (TYPE FIX)>
1841 <OR TEMP11 #WORD *120* = TEMP11>
1842 <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1843 <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1845 <NTHUV FAC6 2 = TEMP11 (TYPE FIX)>
1846 <OR TEMP11 #WORD *120* = TEMP11>
1847 <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1848 <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1851 <CALL '
\1aEMIT-MOVE 3>
1856 <CALL '
\1aMOVE-AC 2>
1860 <FRAME '
\1aEMIT-EXCH>
1863 <CALL '
\1aEMIT-EXCH 2>
1868 <CALL '
\1aEXCH-AC 2>
1871 <END
\1aPLACE-ALTERNATE-AC>
1873 <GFCN
\1aEMIT-EXCH ("VALUE" ANY AC AC) AC14 AC25>
1876 <FRAME '
\1aFREE-AC?>
1879 <CALL '
\1aFREE-AC? 2 = TAC6>
1880 <TYPE? TAC6 <TYPE-CODE FALSE> + PHRASE8>
1883 <NTHUV AC14 2 = TEMP11 (TYPE FIX)>
1884 <OR TEMP11 #WORD *120* = TEMP11>
1885 <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1886 <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1888 <NTHUV TAC6 2 = TEMP11 (TYPE FIX)>
1889 <OR TEMP11 #WORD *120* = TEMP11>
1890 <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1891 <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1896 <NTHUV AC25 2 = TEMP11 (TYPE FIX)>
1897 <OR TEMP11 #WORD *120* = TEMP11>
1898 <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1899 <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1901 <NTHUV AC14 2 = TEMP11 (TYPE FIX)>
1903 <OR TEMP11 #WORD *120* = TEMP11>
1904 <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1905 <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1910 <NTHUV TAC6 2 = TEMP11 (TYPE FIX)>
1912 <OR TEMP11 #WORD *120* = TEMP11>
1913 <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1914 <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1916 <NTHUV AC25 2 = TEMP11 (TYPE FIX)>
1918 <OR TEMP11 #WORD *120* = TEMP11>
1919 <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1920 <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1922 <CALL '
\1aEMIT 3 = TEMP11>
1928 <NTHUV AC14 2 = TAC6 (TYPE FIX)>
1929 <OR TAC6 #WORD *120* = TAC6>
1930 <LSH TAC6 24 = TAC6 (TYPE FIX)>
1931 <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
1936 <NTHUV AC25 2 = TAC6 (TYPE FIX)>
1937 <OR TAC6 #WORD *120* = TAC6>
1938 <LSH TAC6 24 = TAC6 (TYPE FIX)>
1939 <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
1941 <NTHUV AC14 2 = TAC6 (TYPE FIX)>
1943 <OR TAC6 #WORD *120* = TAC6>
1944 <LSH TAC6 24 = TAC6 (TYPE FIX)>
1945 <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
1951 <NTHUV TAC6 2 = TAC6 (TYPE FIX)>
1952 <OR TAC6 #WORD *200* = TAC6>
1953 <LSH TAC6 24 = TAC6 (TYPE FIX)>
1954 <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
1956 <NTHUV AC25 2 = TAC6 (TYPE FIX)>
1958 <OR TAC6 #WORD *120* = TAC6>
1959 <LSH TAC6 24 = TAC6 (TYPE FIX)>
1960 <CHTYPE TAC6 <TYPE-CODE EFF-ADDR> = STACK>
1962 <CALL '
\1aEMIT 3 = TEMP11>
1967 <GFCN
\1aLOAD-VAR-INTO-AC ("VALUE" <OR FALSE LINKVAR> VARTBL ATOM AC BOOLEAN "OPTIONAL" ANY ANY) VAR7 MODE8 AC9 MODIFY?10 VTMOD11 ALREADY?12>
1968 <OPT-DISPATCH 4 %<> OPT4 OPT5 OPT6>
1974 <TEMP LVAR13 SAFE?18 (RLVAR19 %<>) TEMP26 (CLEAR-TYPE?21 %<>) (CLEAR-COUNT?22 %<>) V70:FIX>
1976 <FRAME '
\1aFIND-CACHE-VAR>
1978 <CALL '
\1aFIND-CACHE-VAR 1 = LVAR13>
1979 <FRAME '
\1aSAFE-TYPE-WORD?>
1981 <CALL '
\1aSAFE-TYPE-WORD? 1 = SAFE?18>
1983 <TYPE? TEMP26 <TYPE-CODE FALSE> + BOOL25>
1984 <NTHUV LVAR13 4 = TEMP26>
1989 <VEQUAL? MODE8 'TYPE-VALUE-PAIR - PHRASE28>
1990 <FRAME '
\1aALL-DEAD?>
1992 <CALL '
\1aALL-DEAD? 1 = TEMP26>
1993 <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL32>
1995 <FRAME '
\1aALL-STORED?>
1997 <CALL '
\1aALL-STORED? 1 = TEMP26>
1998 <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE30>
2001 <FRAME '
\1aALL-DEAD?>
2004 <CALL '
\1aNEXT-AC 1 = STACK>
2005 <CALL '
\1aALL-DEAD? 1 = TEMP26>
2006 <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL35>
2008 <FRAME '
\1aALL-STORED?>
2011 <CALL '
\1aNEXT-AC 1 = STACK>
2012 <CALL '
\1aALL-STORED? 1 = TEMP26>
2013 <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE30>
2018 <CALL '
\1aMUNG-AC 1>
2022 <CALL '
\1aNEXT-AC 1 = STACK>
2023 <CALL '
\1aMUNG-AC 1>
2026 <FRAME '
\1aSTORE-AC>
2029 <CALL '
\1aSTORE-AC 2>
2030 <FRAME '
\1aSTORE-AC>
2033 <CALL '
\1aNEXT-AC 1 = STACK>
2035 <CALL '
\1aSTORE-AC 2>
2038 <FRAME '
\1aALL-DEAD?>
2040 <CALL '
\1aALL-DEAD? 1 = TEMP26>
2041 <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL48>
2043 <FRAME '
\1aALL-STORED?>
2045 <CALL '
\1aALL-STORED? 1 = TEMP26>
2046 <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE47>
2051 <CALL '
\1aMUNG-AC 1>
2054 <FRAME '
\1aFREE-AC?>
2057 <CALL '
\1aFREE-AC? 2 = TEMP26>
2058 <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE52>
2059 <FRAME '
\1aIMOVE-AC>
2064 <CALL '
\1aIMOVE-AC 3>
2065 <FRAME '
\1aCLEAR-VARS-FROM-AC>
2067 <CALL '
\1aCLEAR-VARS-FROM-AC 1>
2070 <FRAME '
\1aSTORE-AC>
2073 <CALL '
\1aSTORE-AC 2>
2075 <FRAME '
\1aCLOAD-AC>
2077 <CALL '
\1aCLOAD-AC 1>
2078 <VEQUAL? MODE8 'TYPE-VALUE-PAIR - PHRASE59>
2081 <TYPE? ALREADY?12 <TYPE-CODE FALSE> + PHRASE62>
2082 <NTHUV ALREADY?12 2 = TEMP26 (TYPE FIX)>
2084 <OR TEMP26 #WORD *120* = TEMP26>
2085 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2086 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = TEMP26>
2089 <FRAME '
\1aADDR-VAR-TYPE-VALUE>
2091 <CALL '
\1aADDR-VAR-TYPE-VALUE 1 = TEMP26>
2095 <NTHUV AC9 2 = TEMP26 (TYPE FIX)>
2096 <OR TEMP26 #WORD *120* = TEMP26>
2097 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2098 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2101 <GVAL 'GC-MODE = TEMP26>
2102 <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE126>
2106 <GVAL 'AC-PC = TEMP26>
2107 <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
2108 <OR TEMP26 #WORD *200* = TEMP26>
2109 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2110 <SET V70 32800 (TYPE FIX)>
2111 <AND V70 #WORD *377* = LVAR13>
2112 <LSH LVAR13 16 = LVAR13 (TYPE FIX)>
2113 <AND V70 #WORD *177400* = SAFE?18>
2115 <OR LVAR13 SAFE?18 = LVAR13>
2117 <AND LVAR13 #WORD *77777400* = LVAR13>
2118 <OR TEMP26 LVAR13 = TEMP26>
2120 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2122 <NTHUV AC9 2 = LVAR13 (TYPE FIX)>
2123 <OR LVAR13 #WORD *120* = LVAR13>
2124 <LSH LVAR13 24 = LVAR13 (TYPE FIX)>
2125 <CHTYPE LVAR13 <TYPE-CODE EFF-ADDR> = STACK>
2130 <VEQUAL? MODE8 'TYPE - PHRASE74>
2131 <TYPE? SAFE?18 <TYPE-CODE FALSE> - BOOL77>
2133 <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE76>
2136 <FRAME '
\1aMOVE-TO-AC>
2138 <FRAME '
\1aADDR-VAR-TYPE>
2140 <CALL '
\1aADDR-VAR-TYPE 1 = STACK>
2142 <CALL '
\1aMOVE-TO-AC 3>
2143 <GVAL 'GC-MODE = LVAR13>
2144 <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE126>
2148 <GVAL 'AC-PC = LVAR13>
2149 <NTHUV LVAR13 2 = SAFE?18 (TYPE FIX)>
2151 <OR SAFE?18 #WORD *200* = SAFE?18>
2152 <LSH SAFE?18 24 = SAFE?18 (TYPE FIX)>
2153 <SET V70 32800 (TYPE FIX)>
2154 <AND V70 #WORD *377* = LVAR13>
2155 <LSH LVAR13 16 = LVAR13 (TYPE FIX)>
2156 <AND V70 #WORD *177400* = TEMP26>
2158 <OR LVAR13 TEMP26 = LVAR13>
2160 <AND LVAR13 #WORD *77777400* = LVAR13>
2161 <OR SAFE?18 LVAR13 = SAFE?18>
2163 <CHTYPE SAFE?18 <TYPE-CODE EFF-ADDR> = STACK>
2165 <NTHUV AC9 2 = SAFE?18 (TYPE FIX)>
2166 <OR SAFE?18 #WORD *120* = SAFE?18>
2167 <LSH SAFE?18 24 = SAFE?18 (TYPE FIX)>
2168 <CHTYPE SAFE?18 <TYPE-CODE EFF-ADDR> = STACK>
2173 <FRAME '
\1aVARTBL-DECL>
2175 <CALL '
\1aVARTBL-DECL 1 = LVAR13>
2176 <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE87>
2177 <FRAME '
\1aMOVE-TO-AC>
2179 <FRAME '
\1aTYPE-CODE>
2182 <CALL '
\1aTYPE-CODE 1 = STACK>
2184 <CALL '
\1aMOVE-TO-AC 3>
2185 <SET CLEAR-TYPE?21 'T (TYPE ATOM)>
2189 <PUSH "NO TYPE CODE">
2190 <PUSH 'LOAD-VAR-INTO-AC>
2194 <VEQUAL? MODE8 'COUNT - PHRASE92>
2195 <FRAME '
\1aMOVE-TO-AC>
2197 <FRAME '
\1aADDR-VAR-COUNT>
2199 <CALL '
\1aADDR-VAR-COUNT 1 = STACK>
2201 <CALL '
\1aMOVE-TO-AC 3>
2204 <VEQUAL? MODE8 'TYPE-WORD - PHRASE95>
2205 <TYPE? SAFE?18 <TYPE-CODE FALSE> + PHRASE97>
2207 <FRAME '
\1aMOVE-TO-AC>
2209 <FRAME '
\1aADDR-VAR-TYPE>
2211 <CALL '
\1aADDR-VAR-TYPE 1 = STACK>
2213 <CALL '
\1aMOVE-TO-AC 3>
2216 <FRAME '
\1aVARTBL-DECL>
2218 <CALL '
\1aVARTBL-DECL 1 = LVAR13>
2219 <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE102>
2220 <FRAME '
\1aCOUNT-NEEDED?>
2222 <CALL '
\1aCOUNT-NEEDED? 1 = SAFE?18>
2223 <TYPE? SAFE?18 <TYPE-CODE FALSE> + PHRASE105>
2225 <FRAME '
\1aMOVE-TO-AC>
2227 <FRAME '
\1aVAR-COUNT-ADDRESS>
2229 <CALL '
\1aVAR-COUNT-ADDRESS 1 = STACK>
2231 <CALL '
\1aMOVE-TO-AC 3>
2232 <FRAME '
\1aMOVE-TO-AC>
2234 <FRAME '
\1aTYPE-CODE>
2237 <CALL '
\1aTYPE-CODE 1 = STACK>
2239 <CALL '
\1aMOVE-TO-AC 3>
2242 <FRAME '
\1aMOVE-TO-AC>
2244 <FRAME '
\1aTYPE-WORD>
2247 <CALL '
\1aTYPE-WORD 1 = STACK>
2249 <CALL '
\1aMOVE-TO-AC 3>
2252 <FRAME '
\1aFIND-CACHE-VAR>
2254 <CALL '
\1aFIND-CACHE-VAR 1 = LVAR13>
2255 <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE114>
2256 <NTHUV LVAR13 7 = SAFE?18>
2257 <TYPE? SAFE?18 <TYPE-CODE FALSE> + PHRASE117>
2258 <NTHUV LVAR13 8 = LVAR13>
2259 <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE119>
2260 <FRAME '
\1aMOVE-TO-AC>
2262 <NTHUV LVAR13 2 = TEMP26 (TYPE FIX)>
2264 <OR TEMP26 #WORD *120* = TEMP26>
2265 <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2266 <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2269 <CALL '
\1aMOVE-TO-AC 3>
2272 <GVAL 'AC-PC = TEMP26>
2273 <NTHUV TEMP26 2 = LVAR13 (TYPE FIX)>
2275 <OR LVAR13 #WORD *200* = LVAR13>
2276 <LSH LVAR13 24 = LVAR13 (TYPE FIX)>
2277 <LSH 16 16 = TEMP26 (TYPE FIX)>
2278 <OR LVAR13 TEMP26 = LVAR13>
2280 <CHTYPE LVAR13 <TYPE-CODE EFF-ADDR> = STACK>
2282 <NTHUV AC9 2 = LVAR13 (TYPE FIX)>
2283 <OR LVAR13 #WORD *120* = LVAR13>
2284 <LSH LVAR13 24 = LVAR13 (TYPE FIX)>
2285 <CHTYPE LVAR13 <TYPE-CODE EFF-ADDR> = STACK>
2289 <FRAME '
\1aMOVE-TO-AC>
2291 <NTHUV SAFE?18 2 = LVAR13 (TYPE FIX)>
2293 <OR LVAR13 #WORD *120* = LVAR13>
2294 <LSH LVAR13 24 = LVAR13 (TYPE FIX)>
2295 <CHTYPE LVAR13 <TYPE-CODE EFF-ADDR> = STACK>
2298 <CALL '
\1aMOVE-TO-AC 3>
2302 <PUSH "NO TYPE WORD">
2303 <PUSH 'LOAD-VAR-INTO-AC>
2308 <PUSH "NO TYPE WORD">
2309 <PUSH 'LOAD-VAR-INTO-AC>
2312 <SET CLEAR-TYPE?21 'T (TYPE ATOM)>
2313 <SET CLEAR-COUNT?22 'T (TYPE ATOM)>
2319 <VEQUAL? MODE8 'VALUE - PHRASE126>
2320 <FRAME '
\1aMOVE-TO-AC>
2322 <FRAME '
\1aADDR-VAR-VALUE>
2324 <CALL '
\1aADDR-VAR-VALUE 1 = STACK>
2326 <CALL '
\1aMOVE-TO-AC 3>
2328 <TYPE? MODIFY?10 <TYPE-CODE FALSE> - PHRASE130>
2330 <FRAME '
\1aLINK-VAR-TO-AC>
2339 <CALL '
\1aLINK-VAR-TO-AC 5 = RLVAR19>
2341 <SET LVAR13 RLVAR19>
2342 <TYPE? LVAR13 <TYPE-CODE FALSE> + PHRASE137>
2343 <VEQUAL? CLEAR-TYPE?21 0 + PHRASE135>
2344 <DEAD CLEAR-TYPE?21>
2345 <PUTUV RLVAR19 4 %<>>
2347 <SET LVAR13 CLEAR-COUNT?22>
2348 <DEAD CLEAR-COUNT?22>
2349 <VEQUAL? LVAR13 0 + PHRASE137>
2350 <PUTUV RLVAR19 3 %<>>
2351 <SET LVAR13 RLVAR19>
2356 <END
\1aLOAD-VAR-INTO-AC>
\r\0\r\0
2358 <GFCN
\1aMATCH-AC? ("VALUE" <OR ATOM FALSE> AC AC-CHOICES) AC4 MODE5>
2361 <TYPE? MODE5 <TYPE-CODE AC> - PHRASE7>
2362 <VEQUAL? AC4 MODE5 - TAG8>
2371 <GFCN
\1aVAR-VALUE-ADDRESS ("VALUE" <OR EFF-ADDR LADDR> VARTBL "OPTIONAL" ANY) VAR6 WRITE?7>
2372 <OPT-DISPATCH 1 %<> OPT4 OPT5>
2376 <TEMP LVAR8 TAC9 TEMP18>
2378 <FRAME '
\1aFIND-CACHE-VAR>
2380 <CALL '
\1aFIND-CACHE-VAR 1 = LVAR8>
2381 <TYPE? LVAR8 <TYPE-CODE FALSE> + PHRASE11>
2382 <NTHUV LVAR8 6 = TAC9>
2383 <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE11>
2384 <TYPE? WRITE?7 <TYPE-CODE FALSE> + PHRASE15>
2386 <NTHUV TAC9 8 = TEMP18 (TYPE VECTOR)>
2387 <LENUV TEMP18 = TEMP18 (TYPE FIX)>
2388 <GRTR? TEMP18 1 - PHRASE15>
2390 <FRAME '
\1aSTORE-AC>
2395 <CALL '
\1aSTORE-AC 3>
2400 <NTHUV TAC9 2 = TEMP18 (TYPE FIX)>
2402 <OR TEMP18 #WORD *120* = TEMP18>
2403 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2404 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = TEMP18>
2408 <FRAME '
\1aADDR-VAR-VALUE>
2411 <CALL '
\1aADDR-VAR-VALUE 1 = TEMP18>
2414 <END
\1aVAR-VALUE-ADDRESS>
2416 <GFCN
\1aVAR-TYPE-ADDRESS ("VALUE" <OR EFF-ADDR LADDR> VARTBL "OPTIONAL" ATOM ANY) VAR7 MODE8 WRITE?9>
2417 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
2423 <TEMP LVAR10 TAC11 TEMP21>
2425 <VEQUAL? MODE8 'TYPE - PHRASE13>
2426 <FRAME '
\1aFIND-CACHE-VAR>
2428 <CALL '
\1aFIND-CACHE-VAR 1 = LVAR10>
2429 <TYPE? LVAR10 <TYPE-CODE FALSE> + PHRASE13>
2430 <NTHUV LVAR10 7 = TAC11>
2431 <TYPE? TAC11 <TYPE-CODE FALSE> - BOOL16>
2432 <NTHUV LVAR10 9 = TAC11>
2433 <TYPE? TAC11 <TYPE-CODE FALSE> + PHRASE13>
2435 <TYPE? WRITE?9 <TYPE-CODE FALSE> + PHRASE18>
2437 <NTHUV TAC11 8 = TEMP21 (TYPE VECTOR)>
2438 <LENUV TEMP21 = TEMP21 (TYPE FIX)>
2439 <GRTR? TEMP21 1 - PHRASE18>
2441 <FRAME '
\1aSTORE-AC>
2446 <CALL '
\1aSTORE-AC 3>
2451 <NTHUV TAC11 2 = TEMP21 (TYPE FIX)>
2453 <OR TEMP21 #WORD *120* = TEMP21>
2454 <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2455 <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
2459 <VEQUAL? MODE8 'TYPE-WORD + BOOL26>
2460 <VEQUAL? MODE8 'TYPEMODE + BOOL26>
2461 <VEQUAL? MODE8 'TYPEWORD - PHRASE24>
2464 <FRAME '
\1aFIND-CACHE-VAR>
2466 <CALL '
\1aFIND-CACHE-VAR 1 = LVAR10>
2467 <TYPE? LVAR10 <TYPE-CODE FALSE> + PHRASE24>
2468 <NTHUV LVAR10 9 = TAC11>
2469 <TYPE? TAC11 <TYPE-CODE FALSE> + PHRASE24>
2470 <TYPE? WRITE?9 <TYPE-CODE FALSE> + PHRASE29>
2472 <NTHUV TAC11 8 = TEMP21 (TYPE VECTOR)>
2473 <LENUV TEMP21 = TEMP21 (TYPE FIX)>
2474 <GRTR? TEMP21 1 - PHRASE29>
2476 <FRAME '
\1aSTORE-AC>
2481 <CALL '
\1aSTORE-AC 3>
2486 <NTHUV TAC11 2 = TEMP21 (TYPE FIX)>
2488 <OR TEMP21 #WORD *120* = TEMP21>
2489 <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2490 <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
2494 <FRAME '
\1aADDR-VAR-TYPE>
2497 <CALL '
\1aADDR-VAR-TYPE 1 = TEMP21>
2500 <END
\1aVAR-TYPE-ADDRESS>
2502 <GFCN
\1aVAR-COUNT-ADDRESS ("VALUE" <OR EFF-ADDR LADDR> VARTBL "OPTIONAL" ANY) VAR6 WRITE?7>
2503 <OPT-DISPATCH 1 %<> OPT4 OPT5>
2507 <TEMP LVAR8 TAC9 TEMP18>
2509 <FRAME '
\1aFIND-CACHE-VAR>
2511 <CALL '
\1aFIND-CACHE-VAR 1 = LVAR8>
2512 <TYPE? LVAR8 <TYPE-CODE FALSE> + PHRASE11>
2513 <NTHUV LVAR8 8 = TAC9>
2514 <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE11>
2515 <TYPE? WRITE?7 <TYPE-CODE FALSE> + PHRASE15>
2517 <NTHUV TAC9 8 = TEMP18 (TYPE VECTOR)>
2518 <LENUV TEMP18 = TEMP18 (TYPE FIX)>
2519 <GRTR? TEMP18 1 - PHRASE15>
2521 <FRAME '
\1aSTORE-AC>
2526 <CALL '
\1aSTORE-AC 3>
2531 <NTHUV TAC9 2 = TEMP18 (TYPE FIX)>
2533 <OR TEMP18 #WORD *120* = TEMP18>
2534 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2535 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = TEMP18>
2539 <FRAME '
\1aADDR-VAR-COUNT>
2542 <CALL '
\1aADDR-VAR-COUNT 1 = TEMP18>
2545 <END
\1aVAR-COUNT-ADDRESS>
2547 <GFCN
\1aSTORE-ALL-ACS ("VALUE" ANY)>
2548 <TEMP TEMP13 TEMP15:VECTOR>
2550 <SET TEMP13 %<> (TYPE FALSE)>
2551 <GVAL 'ALL-ACS = TEMP15>
2555 <EMPUV? TEMP15 + MAPAP8>
2556 <NTHUV TEMP15 1 = TEMP13>
2557 <FRAME '
\1aSTORE-AC>
2561 <CALL '
\1aSTORE-AC 2 = TEMP13>
2562 <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
2567 <END
\1aSTORE-ALL-ACS>
2569 <GFCN
\1aPUSH-TEMPS ("VALUE" ANY "OPTIONAL" ANY) MODEL6>
2570 <OPT-DISPATCH 0 %<> OPT4 OPT5>
2574 <TEMP TEMP12 TEMP25:LIST>
2576 <TYPE? MODEL6 <TYPE-CODE UNBOUND> - TAG7>
2577 <GVAL 'TOP-MODEL = MODEL6>
2579 <NTHUV MODEL6 1 = TEMP12 (TYPE FIX)>
2580 <VEQUAL? TEMP12 0 - TAG13 (TYPE FIX)>
2584 <FRAME '
\1aSTART-CODE-INSERT>
2585 <CALL '
\1aSTART-CODE-INSERT 0>
2586 <FRAME '
\1aPUSH-MODEL>
2588 <CALL '
\1aPUSH-MODEL 1>
2589 <FRAME '
\1aINSERT-PATCH>
2590 <NTHUV MODEL6 1 = STACK (TYPE FIX)>
2591 <FRAME '
\1aEND-CODE-INSERT>
2592 <CALL '
\1aEND-CODE-INSERT 0 = STACK>
2593 <CALL '
\1aINSERT-PATCH 2>
2594 <SET TEMP12 %<> (TYPE FALSE)>
2595 <NTHUV MODEL6 3 = TEMP25 (TYPE LIST)>
2600 <EMPL? TEMP25 + MAP20>
2601 <FRAME '
\1aPUSH-TEMPS>
2602 <NTHL TEMP25 1 = STACK>
2603 <CALL '
\1aPUSH-TEMPS 1 = TEMP12>
2604 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
2611 <GFCN
\1aPUSH-TEMP ("VALUE" ANY VARTBL) VAR4>
2614 <NTHUV VAR4 8 = IVAL5>
2615 <TYPE? IVAL5 <TYPE-CODE FALSE> + PHRASE8>
2616 <FRAME '
\1aPUSH-CONSTANT>
2619 <CALL '
\1aPUSH-CONSTANT 1 = IVAL5>
2623 <NTHUV VAR4 4 = IVAL5>
2625 <TYPE? IVAL5 <TYPE-CODE FALSE> + PHRASE11>
2626 <FRAME '
\1aEMIT-PUSH>
2627 <FRAME '
\1aTYPE-WORD>
2630 <CALL '
\1aTYPE-WORD 1 = STACK>
2632 <CALL '
\1aEMIT-PUSH 2>
2633 <FRAME '
\1aCLEAR-PUSH>
2634 <CALL '
\1aCLEAR-PUSH 0 = IVAL5>
2638 <FRAME '
\1aCLEAR-PUSH>
2640 <CALL '
\1aCLEAR-PUSH 1 = IVAL5>
2645 <GFCN
\1aPUSH-CONSTANT ("VALUE" ANY ANY) IVAL4>
2648 <TYPE? IVAL4 <TYPE-CODE SPEC-FALSE> - PHRASE7>
2649 <CHTYPE IVAL4 <TYPE-CODE FALSE> = IVAL4>
2651 <FRAME '
\1aFIX-CONSTANT?>
2653 <CALL '
\1aFIX-CONSTANT? 1 = RVAL5>
2654 <TYPE? RVAL5 <TYPE-CODE FALSE> + PHRASE9>
2655 <FRAME '
\1aEMIT-PUSH>
2656 <FRAME '
\1aTYPE-WORD>
2660 <CALL '
\1aTYPE 1 = STACK>
2661 <CALL '
\1aTYPE-WORD 1 = STACK>
2663 <CALL '
\1aEMIT-PUSH 2>
2664 <VEQUAL? RVAL5 0 - PHRASE15 (TYPE FIX)>
2665 <FRAME '
\1aCLEAR-PUSH>
2667 <CALL '
\1aCLEAR-PUSH 1 = RVAL5>
2671 <FRAME '
\1aEMIT-PUSH>
2672 <GVAL 'AC-PC = TEMP21>
2673 <NTHUV TEMP21 2 = TEMP21 (TYPE FIX)>
2674 <OR TEMP21 #WORD *200* = TEMP21>
2675 <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2676 <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
2677 <CONS TEMP21 () = TEMP21>
2681 <CALL '
\1aLREV 1 = RVAL5>
2682 <CHTYPE RVAL5 <TYPE-CODE EFF-ADDR> = RVAL5>
2683 <CONS RVAL5 () = RVAL5>
2684 <PUTREST TEMP21 RVAL5>
2686 <CHTYPE TEMP21 <TYPE-CODE LADDR> = STACK>
2689 <CALL '
\1aEMIT-PUSH 2 = RVAL5>
2693 <FRAME '
\1aEMIT-PUSH>
2694 <FRAME '
\1aADDR-TYPE-MQUOTE>
2697 <CALL '
\1aADDR-TYPE-MQUOTE 1 = STACK>
2699 <CALL '
\1aEMIT-PUSH 2 = RVAL5>
2702 <END
\1aPUSH-CONSTANT>
2704 <GFCN
\1aPUSH-VAR ("VALUE" ANY VARTBL) VAR4>
2705 <TEMP (DONE9 %<>) LVAR6 TAC7 TEMP17 TEMP18>
2707 <FRAME '
\1aFIND-CACHE-VAR>
2709 <CALL '
\1aFIND-CACHE-VAR 1 = LVAR6>
2710 <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE11>
2711 <NTHUV LVAR6 9 = TAC7>
2712 <TYPE? TAC7 <TYPE-CODE FALSE> + PHRASE11>
2713 <NTHUV LVAR6 6 = LVAR6>
2714 <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE15>
2715 <NTHUV TAC7 2 = TEMP17 (TYPE FIX)>
2716 <ADD TEMP17 1 = TEMP17 (TYPE FIX)>
2717 <NTHUV LVAR6 2 = TEMP18 (TYPE FIX)>
2718 <VEQUAL? TEMP17 TEMP18 - PHRASE15 (TYPE FIX)>
2719 <DEAD TEMP17 TEMP18>
2720 <FRAME '
\1aEMIT-PUSH>
2721 <NTHUV TAC7 2 = TEMP17 (TYPE FIX)>
2722 <OR TEMP17 #WORD *120* = TEMP17>
2723 <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
2724 <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
2727 <CALL '
\1aEMIT-PUSH 2>
2728 <SET DONE9 'T (TYPE ATOM)>
2735 <FRAME '
\1aEMIT-PUSH>
2736 <NTHUV TAC7 2 = TEMP17 (TYPE FIX)>
2737 <OR TEMP17 #WORD *120* = TEMP17>
2738 <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
2739 <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
2742 <CALL '
\1aEMIT-PUSH 2>
2750 <FRAME '
\1aSAFE-TYPE-WORD?>
2752 <CALL '
\1aSAFE-TYPE-WORD? 1 = TEMP17>
2753 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE24>
2755 <TYPE? LVAR6 <TYPE-CODE FALSE> + BOOL28>
2756 <NTHUV LVAR6 2 = TEMP17>
2758 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE27>
2761 <FRAME '
\1aEMIT-PUSH>
2762 <FRAME '
\1aADDR-VAR-TYPE>
2764 <CALL '
\1aADDR-VAR-TYPE 1 = STACK>
2766 <CALL '
\1aEMIT-PUSH 2>
2767 <SET DONE9 'T (TYPE ATOM)>
2770 <FRAME '
\1aEMIT-PUSH>
2771 <FRAME '
\1aADDR-VAR-TYPE>
2773 <CALL '
\1aADDR-VAR-TYPE 1 = STACK>
2775 <CALL '
\1aEMIT-PUSH 2>
2778 <FRAME '
\1aVARTBL-DECL>
2780 <CALL '
\1aVARTBL-DECL 1 = TAC7>
2781 <TYPE? TAC7 <TYPE-CODE FALSE> + PHRASE34>
2782 <FRAME '
\1aCOUNT-NEEDED?>
2784 <CALL '
\1aCOUNT-NEEDED? 1 = TEMP17>
2785 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE37>
2787 <FRAME '
\1aEMIT-PUSH>
2788 <FRAME '
\1aTYPE-CODE>
2792 <CALL '
\1aTYPE-CODE 2 = STACK>
2794 <CALL '
\1aEMIT-PUSH 2>
2795 <FRAME '
\1aEMIT-PUSH>
2796 <FRAME '
\1aVAR-COUNT-ADDRESS>
2798 <CALL '
\1aVAR-COUNT-ADDRESS 1 = STACK>
2800 <CALL '
\1aEMIT-PUSH 2>
2803 <FRAME '
\1aEMIT-PUSH>
2804 <FRAME '
\1aTYPE-WORD>
2807 <CALL '
\1aTYPE-WORD 1 = STACK>
2809 <CALL '
\1aEMIT-PUSH 2>
2812 <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE45>
2813 <NTHUV LVAR6 7 = TAC7>
2814 <TYPE? TAC7 <TYPE-CODE FALSE> + PHRASE45>
2815 <FRAME '
\1aEMIT-PUSH>
2816 <NTHUV TAC7 2 = TEMP18 (TYPE FIX)>
2817 <OR TEMP18 #WORD *120* = TEMP18>
2818 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2819 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
2822 <CALL '
\1aEMIT-PUSH 2>
2827 <NTHUV LVAR6 8 = TAC7>
2829 <TYPE? TAC7 <TYPE-CODE FALSE> + COND10>
2830 <FRAME '
\1aEMIT-PUSH>
2831 <NTHUV TAC7 2 = TEMP18 (TYPE FIX)>
2832 <OR TEMP18 #WORD *120* = TEMP18>
2833 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2834 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
2837 <CALL '
\1aEMIT-PUSH 2>
2845 <PUSH "NO TYPE WORD">
2849 <VEQUAL? DONE9 0 + TAG56>
2853 <FRAME '
\1aEMIT-PUSH>
2854 <FRAME '
\1aVAR-VALUE-ADDRESS>
2857 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
2859 <CALL '
\1aEMIT-PUSH 2 = TEMP18>
2864 <GFCN
\1aMOVE-COUNT-FROM-TYPEWORD ("VALUE" STRUCTURED ANY AC AC-CHOICES BOOLEAN) VAR4 TAC5 ACTYPE6 MODIFY?7>
2865 <TEMP TEMP12 NAC8 TEMP16>
2867 <FRAME '
\1aALL-STORED?>
2869 <CALL '
\1aALL-STORED? 1 = TEMP12>
2870 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
2874 <CALL '
\1aMUNG-AC 1>
2878 <GVAL 'AC-PC = TEMP12>
2879 <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
2880 <OR TEMP12 #WORD *200* = TEMP12>
2881 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2882 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = TEMP12>
2883 <CONS TEMP12 () = TEMP12>
2886 <CALL '
\1aLREV 1 = TEMP16>
2887 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = TEMP16>
2888 <CONS TEMP16 () = TEMP16>
2889 <PUTREST TEMP12 TEMP16>
2891 <CHTYPE TEMP12 <TYPE-CODE LADDR> = STACK>
2893 <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
2894 <OR TEMP12 #WORD *120* = TEMP12>
2895 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2896 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2901 <GVAL 'AC-PC = TEMP12>
2902 <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
2903 <OR TEMP12 #WORD *200* = TEMP12>
2904 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2905 <LSH 16 16 = TEMP16 (TYPE FIX)>
2906 <OR TEMP12 TEMP16 = TEMP12>
2908 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2910 <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
2911 <OR TEMP12 #WORD *120* = TEMP12>
2912 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2913 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2915 <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
2917 <OR TEMP12 #WORD *120* = TEMP12>
2918 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2919 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2924 <FRAME '
\1aPROTECT-USE>
2926 <CALL '
\1aPROTECT-USE 1>
2931 <CALL '
\1aGET-AC 2 = NAC8>
2934 <GVAL 'AC-PC = TEMP12>
2935 <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
2936 <OR TEMP12 #WORD *200* = TEMP12>
2937 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2938 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = TEMP12>
2939 <CONS TEMP12 () = TEMP12>
2942 <CALL '
\1aLREV 1 = TEMP16>
2943 <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = TEMP16>
2944 <CONS TEMP16 () = TEMP16>
2945 <PUTREST TEMP12 TEMP16>
2947 <CHTYPE TEMP12 <TYPE-CODE LADDR> = STACK>
2949 <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
2951 <OR TEMP12 #WORD *120* = TEMP12>
2952 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2953 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2955 <NTHUV NAC8 2 = TEMP12 (TYPE FIX)>
2956 <OR TEMP12 #WORD *120* = TEMP12>
2957 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2958 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2963 <GVAL 'AC-PC = TEMP12>
2964 <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
2965 <OR TEMP12 #WORD *200* = TEMP12>
2966 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2967 <LSH 16 16 = TEMP16 (TYPE FIX)>
2968 <OR TEMP12 TEMP16 = TEMP12>
2970 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2972 <NTHUV NAC8 2 = TEMP12 (TYPE FIX)>
2973 <OR TEMP12 #WORD *120* = TEMP12>
2974 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2975 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2977 <NTHUV NAC8 2 = TEMP12 (TYPE FIX)>
2978 <OR TEMP12 #WORD *120* = TEMP12>
2979 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2980 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2984 <TYPE? MODIFY?7 <TYPE-CODE FALSE> - BOOL24>
2986 <FRAME '
\1aLINK-VAR-TO-AC>
2992 <CALL '
\1aLINK-VAR-TO-AC 4>
2996 <END
\1aMOVE-COUNT-FROM-TYPEWORD>
2998 <GFCN
\1aMOVE-TYPE-FROM-TYPEWORD ("VALUE" AC ANY AC AC-CHOICES BOOLEAN) VAR4 TAC5 ACTYPE6 MODIFY?7>
2999 <TEMP TEMP12 NAC8:AC V25:FIX TEMP27:FIX>
3001 <FRAME '
\1aALL-STORED?>
3003 <CALL '
\1aALL-STORED? 1 = TEMP12>
3004 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
3008 <CALL '
\1aMUNG-AC 1>
3011 <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
3012 <OR TEMP12 #WORD *120* = TEMP12>
3013 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
3014 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
3016 <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
3017 <OR TEMP12 #WORD *120* = TEMP12>
3018 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
3019 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
3026 <FRAME '
\1aPROTECT-USE>
3028 <CALL '
\1aPROTECT-USE 1>
3033 <CALL '
\1aGET-AC 2 = NAC8>
3036 <NTHUV TAC5 2 = TEMP12 (TYPE FIX)>
3038 <OR TEMP12 #WORD *120* = TEMP12>
3039 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
3040 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
3042 <NTHUV NAC8 2 = TEMP12 (TYPE FIX)>
3043 <OR TEMP12 #WORD *120* = TEMP12>
3044 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
3045 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
3049 <GVAL 'GC-MODE = TEMP12>
3050 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE20>
3054 <GVAL 'AC-PC = TEMP12>
3055 <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
3056 <OR TEMP12 #WORD *200* = TEMP12>
3057 <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
3058 <SET V25 32800 (TYPE FIX)>
3059 <AND V25 #WORD *377* = TEMP27>
3060 <LSH TEMP27 16 = TEMP27 (TYPE FIX)>
3061 <AND V25 #WORD *177400* = V25>
3062 <OR TEMP27 V25 = V25>
3064 <AND V25 #WORD *77777400* = V25>
3065 <OR TEMP12 V25 = TEMP12>
3067 <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
3069 <NTHUV NAC8 2 = V25 (TYPE FIX)>
3070 <OR V25 #WORD *120* = V25>
3071 <LSH V25 24 = V25 (TYPE FIX)>
3072 <CHTYPE V25 <TYPE-CODE EFF-ADDR> = STACK>
3076 <TYPE? MODIFY?7 <TYPE-CODE FALSE> - BOOL29>
3078 <FRAME '
\1aLINK-VAR-TO-AC>
3084 <CALL '
\1aLINK-VAR-TO-AC 4>
3086 <FRAME '
\1aCLEAR-STATUS>
3087 <CALL '
\1aCLEAR-STATUS 0>
3090 <END
\1aMOVE-TYPE-FROM-TYPEWORD>
3092 <GFCN
\1aVARTBL-ASSIGNED? ("VALUE" ANY VARTBL) VAR4>
3095 <NTHUV VAR4 2 = TEMP6>
3096 <TYPE? TEMP6 <TYPE-CODE FALSE> - BOOL5>
3097 <FRAME '
\1aFIND-CACHE-VAR>
3100 <CALL '
\1aFIND-CACHE-VAR 1 = TEMP6>
3104 <END
\1aVARTBL-ASSIGNED?>
3106 <GFCN
\1aPUSH-MODEL ("VALUE" ANY STK-MODEL) MODEL4>
3107 <TEMP TEMP14 TEMP16:LIST VAR17:VARTBL>
3109 <SET TEMP14 %<> (TYPE FALSE)>
3110 <NTHUV MODEL4 2 = TEMP16 (TYPE LIST)>
3115 <EMPL? TEMP16 + MAPAP9>
3116 <NTHL TEMP16 1 = VAR17>
3117 <NTHUV VAR17 6 = TEMP14>
3118 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE19>
3119 <FRAME '
\1aPUSH-TEMP>
3122 <CALL '
\1aPUSH-TEMP 1 = TEMP14>
3124 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
3131 <GFCN
\1aADDR-VAR-OFFSET ("VALUE" <OR FALSE FIX> VARTBL) VAR4>
3137 <CALL '
\1aGEN-LOC 2>
3138 <NTHUV VAR4 2 = TEMP6>
3142 <END
\1aADDR-VAR-OFFSET>