5 <GFCN
\1aFIND-CALL ("VALUE" <OR ATOM !<FALSE>> ATOM <LIST [REST ATOM]>) ATM4 LIST5>
11 <EMPL? LIST5 - PHRASE11 (TYPE LIST)>
14 <FRAME '
\1aSAME-NAME?>
16 <NTHL LIST5 1 = STACK (TYPE ATOM)>
17 <CALL '
\1aSAME-NAME? 2 = TEMP6>
18 <TYPE? TEMP6 <TYPE-CODE FALSE> + PHRASE13>
22 <RESTL LIST5 1 = LIST5 (TYPE LIST)>
27 <GFCN
\1aSAME-NAME? ("VALUE" <OR ATOM FALSE> ATOM ATOM) X4 Y5>
28 <TEMP TEMP10 S16:STRING S27:STRING TEMP19 TEMP20 TEMP21 TEMP22>
30 <GVAL 'INT-MODE = TEMP10>
31 <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE9>
33 <VEQUAL? X4 Y5 - TAG11>
39 <NTHR X4 3 = S16 (RECORD-TYPE ATOM)>
40 <NTHR Y5 3 = S27 (RECORD-TYPE ATOM)>
41 <VEQUAL? X4 Y5 - TAG15>
45 <LENUS S16 = TEMP10 (TYPE FIX)>
46 <GRTR? TEMP10 2 - TAG18 (TYPE FIX)>
48 <NTHUS S16 1 = TEMP10 (TYPE CHARACTER)>
49 <VEQUAL? TEMP10 !\T - TAG18>
51 <NTHUS S16 2 = TEMP10 (TYPE CHARACTER)>
52 <VEQUAL? TEMP10 !\$ - TAG18>
54 <RESTUS S16 2 = TEMP10 (TYPE STRING)>
55 <IFCAN "STRING-EQUAL?">
56 <STRING-EQUAL? TEMP10 S27 - TAG18>
57 <ENDIF "STRING-EQUAL?">
58 <IFCANNOT "STRING-EQUAL?">
60 <LENUS TEMP10 = TEMP20 (TYPE FIX)>
61 <LENUS TEMP19 = TEMP21 (TYPE FIX)>
62 <VEQUAL? TEMP20 TEMP21 - TAG18>
64 <LOOP (TEMP10 VALUE LENGTH) (TEMP19 VALUE LENGTH) (TEMP20 VALUE)>
66 <NTHUS TEMP10 1 = TEMP21>
67 <NTHUS TEMP19 1 = TEMP22>
68 <VEQUAL? TEMP21 TEMP22 - TAG18>
70 <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
71 <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
72 <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
73 <GRTR? TEMP20 0 + TAG23 (TYPE FIX)>
74 <ENDIF "STRING-EQUAL?">
77 <LENUS S27 = TEMP19 (TYPE FIX)>
78 <GRTR? TEMP19 2 + TAG25 (TYPE FIX)>
82 <NTHUS S27 1 = TEMP19 (TYPE CHARACTER)>
83 <VEQUAL? TEMP19 !\T + TAG26>
87 <NTHUS S27 2 = TEMP19 (TYPE CHARACTER)>
88 <VEQUAL? TEMP19 !\$ + TAG27>
92 <RESTUS S27 2 = TEMP19 (TYPE STRING)>
94 <IFCAN "STRING-EQUAL?">
95 <STRING-EQUAL? TEMP19 S16 - TAG28>
96 <ENDIF "STRING-EQUAL?">
97 <IFCANNOT "STRING-EQUAL?">
100 <LENUS TEMP19 = TEMP22 (TYPE FIX)>
101 <LENUS TEMP10 = TEMP21 (TYPE FIX)>
102 <VEQUAL? TEMP22 TEMP21 - TAG28>
104 <LOOP (TEMP19 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP22 VALUE)>
106 <NTHUS TEMP19 1 = TEMP21>
107 <NTHUS TEMP10 1 = TEMP20>
108 <VEQUAL? TEMP21 TEMP20 - TAG28>
110 <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
111 <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
112 <SUB TEMP22 1 = TEMP22 (TYPE FIX)>
113 <GRTR? TEMP22 0 + TAG30 (TYPE FIX)>
114 <ENDIF "STRING-EQUAL?">
121 <GFCN
\1aINIT-CALL-DISPATCH ("VALUE" FIX)>
124 <UUBLOCK <TYPE-CODE VECTOR> 200 = TEMP4>
126 <LOOP (TEMP5 VALUE LENGTH)>
128 <EMPUV? TEMP5 + ISTRE7>
130 <RESTUV TEMP5 1 = TEMP5>
133 <SETG 'RTE-DISP-TABLE TEMP4>
135 <GVAL 'DISPATCH-TABLE-START = TEMP4>
136 <SETG 'RTE-PTR TEMP4>
139 <END
\1aINIT-CALL-DISPATCH>
141 <GDECL (RTE-PTR) FIX>
144 <GFCN
\1aCREATE-CALL-DESC ("VALUE" FIX STRING BOOLEAN <OR FALSE DATUM> "TUPLE" ANY) NAME4 FLUSH?5 RESULT?6>
145 <MAKTUP ARGS7:TUPLE OFF9:FIX ANAME8 TEMP13 TEMP14 = ARGS7>
147 <GVAL 'RTE-PTR = OFF9>
150 <GVAL 'MIMOP-OBLIST = STACK>
151 <CALL '
\1aLOOKUP 2 = ANAME8>
152 <TYPE? ANAME8 <TYPE-CODE FALSE> - BOOL10>
156 <GVAL 'MIMOP-OBLIST = STACK>
157 <CALL '
\1aINSERT 2 = ANAME8>
159 <DIV OFF9 4 = TEMP13 (TYPE FIX)>
160 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
161 <GVAL 'RTE-DISP-TABLE = TEMP14>
162 <PUTUV TEMP14 TEMP13 ANAME8>
167 <SET TEMP13 0 (TYPE FIX)>
170 <LOOP (TEMP14 VALUE LENGTH) (TEMP13 VALUE)>
173 <EMPUV? TEMP14 + TAG16>
174 <NTHUV TEMP14 1 = STACK>
175 <RESTUV TEMP14 1 = TEMP14 (TYPE VECTOR)>
176 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
179 <UBLOCK <TYPE-CODE VECTOR> TEMP13 = STACK (TYPE VECTOR)>
185 <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP13 (TYPE VECTOR)>
186 <CHTYPE TEMP13 <TYPE-CODE CALL-DESCRIPTOR> = TEMP13>
187 <NTHR ANAME8 1 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG19)>
188 <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG19>
189 <PUTR TEMP14 1 TEMP13 (RECORD-TYPE GBIND)>
198 <CALL '
\1aSETG 2 = TEMP13>
200 <GVAL 'RTE-PTR = TEMP13>
201 <ADD TEMP13 4 = TEMP13 (TYPE FIX)>
202 <SETG 'RTE-PTR TEMP13>
205 <END
\1aCREATE-CALL-DESC>
208 <GFCN
\1aCREATE-DATUM ("VALUE" DATUM <OR FALSE ATOM> <OR FALSE ATOM> <OR FALSE ATOM>) TYP4 TAC5 VAC6>
217 <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP8 (TYPE VECTOR)>
218 <CHTYPE TEMP8 <TYPE-CODE DATUM> = TEMP8>
221 <END
\1aCREATE-DATUM>
224 <GFCN
\1aRTE-ARGS ("VALUE" AC-LDESC ATOM <OR FALSE ATOM> ATOM) KIND4 TAC5 VAC6>
227 <SET TEMP12 [VALUE TYPE-VALUE-PAIR COUNT-VALUE-PAIR] (TYPE VECTOR)>
228 <LOOP (KIND4 VALUE) (TEMP12 LENGTH VALUE)>
230 <NTHUV TEMP12 1 = TEMP13>
231 <VEQUAL? TEMP13 KIND4 + PHRASE8>
233 <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
234 <EMPUV? TEMP12 - TAG10>
236 <PUSH "BAD-AC-LDESC">
237 <PUSH 'CREATE-AC-LDESC>
240 <TYPE? TAC5 <TYPE-CODE FALSE> + PHRASE16>
241 <NTHR TAC5 1 = TEMP12 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL18)>
242 <TYPE? TEMP12 <TYPE-CODE FALSE> + BOOL18>
243 <NTHR TEMP12 1 = TEMP12 (RECORD-TYPE GBIND)>
244 <TYPE? TEMP12 <TYPE-CODE UNBOUND> + BOOL18>
247 <TYPE? TEMP12 <TYPE-CODE AC> + PHRASE16>
252 <PUSH 'CREATE-AC-LDESC>
255 <NTHR VAC6 1 = TEMP12 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL22)>
256 <TYPE? TEMP12 <TYPE-CODE FALSE> + BOOL22>
257 <NTHR TEMP12 1 = TEMP12 (RECORD-TYPE GBIND)>
258 <TYPE? TEMP12 <TYPE-CODE UNBOUND> + BOOL22>
261 <TYPE? TEMP12 <TYPE-CODE AC> + PHRASE21>
266 <PUSH 'CREATE-AC-LDESC>
275 <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP12 (TYPE VECTOR)>
276 <CHTYPE TEMP12 <TYPE-CODE AC-LDESC> = TEMP12>
284 <GFCN
\1aCALL-RTE ("VALUE" ATOM CALL-DESCRIPTOR ATOM <OR ATOM FALSE VARTBL> <OR FALSE HINT ATOM> "TUPLE" ANY) CDESC4 INST5 DEST6 HINT7>
285 <MAKTUP ARGS8 TEMP17 TEMP18 SARGS36:VECTOR ADS37:VECTOR = ARGS8>
287 <TYPE? DEST6 <TYPE-CODE VARTBL> - PHRASE12>
289 <EMPUV? TEMP17 + TAG14>
290 <LOOP (DEST6 VALUE) (TEMP17 LENGTH VALUE)>
292 <NTHUV TEMP17 1 = TEMP18>
293 <TYPE? TEMP18 <TYPE-CODE VARTBL> - TAG16>
294 <VEQUAL? TEMP18 DEST6 + PHRASE12>
297 <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
298 <EMPUV? TEMP17 - TAG15>
300 <FRAME '
\1aVAR-VALUE-IN-AC?>
302 <CALL '
\1aVAR-VALUE-IN-AC? 1 = TEMP17>
303 <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL19>
305 <FRAME '
\1aVAR-TYPE-IN-AC?>
307 <CALL '
\1aVAR-TYPE-IN-AC? 1 = TEMP17>
308 <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL19>
310 <FRAME '
\1aVAR-COUNT-IN-AC?>
312 <CALL '
\1aVAR-COUNT-IN-AC? 1 = TEMP17>
313 <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL19>
315 <FRAME '
\1aVAR-TYPE-WORD-IN-AC?>
317 <CALL '
\1aVAR-TYPE-WORD-IN-AC? 1 = TEMP17>
318 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE12>
323 <CALL '
\1aDEAD-VAR 1>
325 <CHTYPE ARGS8 <TYPE-CODE VECTOR> = TEMP17>
326 <NTHUV CDESC4 3 = TEMP18 (TYPE VECTOR)>
330 <EMPUV? TEMP17 + MAPAP29>
331 <EMPUV? TEMP18 + MAPAP29>
334 <FRAME '
\1aPROCESS-RTE-ARG>
335 <NTHUV SARGS36 1 = STACK>
336 <NTHUV ADS37 1 = STACK>
341 <NTHUV CDESC4 3 = STACK (TYPE VECTOR)>
342 <CALL '
\1aPROCESS-RTE-ARG 5>
343 <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
344 <RESTUV TEMP18 1 = TEMP18 (TYPE VECTOR)>
347 <FRAME '
\1aFREE-RESULT-ACS>
348 <NTHUV CDESC4 3 = STACK (TYPE VECTOR)>
349 <NTHUV CDESC4 4 = STACK>
350 <CALL '
\1aFREE-RESULT-ACS 2>
351 <NTHUV CDESC4 5 = TEMP17>
352 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE41>
354 <FRAME '
\1aFLUSH-ALL-ACS>
355 <CALL '
\1aFLUSH-ALL-ACS 0>
357 <NTHUV CDESC4 1 = ARGS8 (TYPE FIX)>
358 <VEQUAL? INST5 'CALL - PHRASE44>
361 <GVAL 'AC-PC = TEMP18>
362 <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
363 <OR TEMP18 #WORD *220* = TEMP18>
364 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
365 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = TEMP18>
366 <CONS TEMP18 () = TEMP18>
370 <CALL '
\1aLREV 1 = TEMP17>
371 <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = TEMP17>
372 <CONS TEMP17 () = TEMP17>
373 <PUTREST TEMP18 TEMP17>
375 <CHTYPE TEMP18 <TYPE-CODE LADDR> = STACK>
380 <VEQUAL? INST5 'JUMP - PHRASE47>
384 <GVAL 'AC-PC = TEMP18>
385 <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
386 <OR TEMP18 #WORD *220* = TEMP18>
387 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
388 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = TEMP18>
389 <CONS TEMP18 () = TEMP18>
393 <CALL '
\1aLREV 1 = TEMP17>
394 <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = TEMP17>
395 <CONS TEMP17 () = TEMP17>
396 <PUTREST TEMP18 TEMP17>
398 <CHTYPE TEMP18 <TYPE-CODE LADDR> = STACK>
402 <FRAME '
\1aSET-RTE-RESULT>
403 <NTHUV CDESC4 4 = STACK>
409 <CALL '
\1aSET-RTE-RESULT 3>
410 <FRAME '
\1aCLEAR-STATUS>
411 <CALL '
\1aCLEAR-STATUS 0>
416 <GFCN
\1aFREE-RESULT-ACS ("VALUE" ATOM <VECTOR [REST ARG-DESCRIPTOR]> <OR FALSE DATUM>) ARGS4 RESULT5>
419 <TYPE? RESULT5 <TYPE-CODE DATUM> - BOOL17>
420 <NTHUV RESULT5 2 = VAC6>
421 <TYPE? VAC6 <TYPE-CODE FALSE> + BOOL11>
425 <CALL '
\1aCALLUSE? 2 = TEMP13>
426 <TYPE? TEMP13 <TYPE-CODE FALSE> - BOOL11>
434 <NTHUV RESULT5 3 = VAC6 (TYPE ATOM)>
440 <CALL '
\1aCALLUSE? 2 = TEMP13>
441 <TYPE? TEMP13 <TYPE-CODE FALSE> - BOOL17>
450 <END
\1aFREE-RESULT-ACS>
453 <GFCN
\1aCALLUSE? ("VALUE" <OR ATOM FALSE> ATOM <VECTOR [REST ARG-DESCRIPTOR]>) VAC4 ARGS5>
454 <TEMP (RES6 %<>) TEMP13:VECTOR ARG18 TEMP23>
456 <SET TEMP13 ARGS5 (TYPE VECTOR)>
461 <EMPUV? TEMP13 + MAPAP11>
462 <NTHUV TEMP13 1 = ARG18>
463 <TYPE? ARG18 <TYPE-CODE AC-LDESC> - PHRASE20>
464 <NTHUV ARG18 2 = TEMP23>
465 <EQUAL? TEMP23 VAC4 + BOOL22>
467 <NTHUV ARG18 3 = TEMP23 (TYPE ATOM)>
469 <VEQUAL? TEMP23 VAC4 - PHRASE20>
474 <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
482 <GFCN
\1aSET-RTE-RESULT ("VALUE" ANY <OR FALSE DATUM> <OR FALSE ATOM VARTBL> <OR FALSE HINT ATOM>) RDAT4 DEST5 HINT6>
486 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
488 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
489 <NTHUV RDAT4 2 = TEMP9>
490 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE12>
492 <FRAME '
\1aDEST-PAIR>
493 <NTHUV RDAT4 3 = TEMP9 (TYPE ATOM)>
496 <NTHUV RDAT4 2 = TEMP9 (TYPE ATOM)>
501 <CALL '
\1aDEST-PAIR 3>
504 <NTHUV RDAT4 1 = TEMP9>
505 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE15>
507 <FRAME '
\1aDEST-DECL>
508 <NTHUV RDAT4 3 = TEMP9 (TYPE ATOM)>
512 <NTHUV RDAT4 1 = STACK (TYPE ATOM)>
514 <CALL '
\1aDEST-DECL 3>
519 <PUSH 'SET-RTE-RESULT>
522 <FRAME '
\1aPROCESS-DESTINATION-HINT>
527 <CALL '
\1aPROCESS-DESTINATION-HINT 2 = TEMP9>
531 <END
\1aSET-RTE-RESULT>
533 <NEWTYPE ARG-DONE FIX>
536 <GFCN
\1aPROCESS-RTE-ARG ("VALUE" STRUCTURED ANY <OR AC-LDESC ATOM> ANY TUPLE VECTOR) ARG4 AD5 SARGS6 ARGS7 ADS8>
537 <TEMP PRA11 TAC10 TEMP28 VAC9>
539 <TYPE? ARG4 <TYPE-CODE ARG-DONE> - TAG15>
540 <SET PRA11 %<> (TYPE FALSE)>
543 <EQUAL? AD5 'STACK - PHRASE18>
544 <TYPE? ARG4 <TYPE-CODE VARTBL> - PHRASE20>
548 <CALL '
\1aPUSH-VAR 1>
551 <FRAME '
\1aPUSH-CONSTANT>
554 <CALL '
\1aPUSH-CONSTANT 1>
557 <TYPE? AD5 <TYPE-CODE AC-LDESC> - PHRASE24>
558 <NTHUV AD5 1 = PRA11 (TYPE ATOM)>
559 <VEQUAL? PRA11 'TYPE-VALUE-PAIR - PHRASE24>
562 <NTHUV AD5 2 = PRA11 (TYPE ATOM)>
566 <CALL '
\1aNEXT-AC 1 = PRA11>
567 <NTHUV AD5 3 = TEMP28 (TYPE ATOM)>
570 <EQUAL? PRA11 VAC9 - PHRASE24>
572 <FRAME '
\1aCHECK-AC-USE>
582 <CALL '
\1aCHECK-AC-USE 6>
583 <NTHUV SARGS6 1 = ARG4>
584 <TYPE? ARG4 <TYPE-CODE ARG-DONE> - PHRASE31>
587 <FRAME '
\1aLOAD-AC-PAIR>
591 <NTHUV AD5 2 = TEMP28 (TYPE ATOM)>
593 <GVAL TEMP28 = STACK>
595 <CALL '
\1aLOAD-AC-PAIR 3>
596 <FRAME '
\1aPROTECT-USE>
599 <CALL '
\1aPROTECT-USE 1>
600 <FRAME '
\1aPROTECT-USE>
603 <CALL '
\1aPROTECT-USE 1>
606 <TYPE? AD5 <TYPE-CODE AC-LDESC> - PHRASE67>
607 <FRAME '
\1aCHECK-AC-USE>
615 <NTHUV AD5 2 = STACK>
616 <NTHUV AD5 3 = STACK (TYPE ATOM)>
617 <CALL '
\1aCHECK-AC-USE 6>
618 <NTHUV SARGS6 1 = ARG4>
619 <TYPE? ARG4 <TYPE-CODE ARG-DONE> - PHRASE38>
622 <TYPE? ARG4 <TYPE-CODE VARTBL> - PHRASE40>
625 <NTHUV AD5 1 = TEMP28 (TYPE ATOM)>
626 <VEQUAL? TEMP28 'TYPE-VALUE-PAIR - PHRASE43>
628 <SET TEMP28 'VALUE (TYPE ATOM)>
631 <SET TEMP28 'JUST-VALUE (TYPE ATOM)>
636 <NTHUV AD5 3 = TEMP28 (TYPE ATOM)>
637 <GVAL TEMP28 = STACK>
639 <CALL '
\1aLOAD-VAR 4 = VAC9>
640 <FRAME '
\1aPROTECT-USE>
643 <CALL '
\1aPROTECT-USE 1>
647 <NTHUV AD5 3 = TEMP28 (TYPE ATOM)>
648 <GVAL TEMP28 = STACK>
651 <CALL '
\1aGET-AC 2 = VAC9>
652 <FRAME '
\1aPROTECT-USE>
654 <CALL '
\1aPROTECT-USE 1>
655 <FRAME '
\1aMOVE-VALUE>
658 <CALL '
\1aMOVE-VALUE 2>
664 <TYPE? ARG4 <TYPE-CODE VARTBL> - PHRASE52>
665 <NTHUV AD5 1 = TEMP28 (TYPE ATOM)>
666 <VEQUAL? TEMP28 'TYPE-VALUE-PAIR - PHRASE54>
673 <NTHUV AD5 2 = TEMP28 (TYPE ATOM)>
675 <GVAL TEMP28 = STACK>
677 <CALL '
\1aLOAD-VAR 4 = VAC9>
678 <FRAME '
\1aPROTECT-USE>
681 <CALL '
\1aPROTECT-USE 1>
684 <NTHUV AD5 1 = TEMP28 (TYPE ATOM)>
685 <VEQUAL? TEMP28 'COUNT-VALUE-PAIR - PHRASE67>
692 <NTHUV AD5 2 = TEMP28 (TYPE ATOM)>
694 <GVAL TEMP28 = STACK>
696 <CALL '
\1aLOAD-VAR 4 = VAC9>
697 <FRAME '
\1aPROTECT-USE>
700 <CALL '
\1aPROTECT-USE 1>
703 <NTHUV AD5 1 = TEMP28 (TYPE ATOM)>
704 <VEQUAL? TEMP28 'TYPE-VALUE-PAIR - PHRASE62>
707 <NTHUV AD5 2 = TEMP28 (TYPE ATOM)>
709 <GVAL TEMP28 = STACK>
712 <CALL '
\1aGET-AC 2 = VAC9>
713 <FRAME '
\1aPROTECT-USE>
715 <CALL '
\1aPROTECT-USE 1>
716 <FRAME '
\1aMOVE-TYPE>
719 <NTHUV VAC9 2 = TEMP28 (TYPE FIX)>
720 <OR TEMP28 #WORD *120* = TEMP28>
721 <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
722 <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
724 <CALL '
\1aMOVE-TYPE 2>
731 <NTHUV AD5 1 = TEMP28 (TYPE ATOM)>
732 <VEQUAL? TEMP28 'COUNT-VALUE-PAIR - PHRASE67>
735 <NTHUV AD5 2 = TEMP28 (TYPE ATOM)>
737 <GVAL TEMP28 = STACK>
740 <CALL '
\1aGET-AC 2 = VAC9>
741 <FRAME '
\1aPROTECT-USE>
743 <CALL '
\1aPROTECT-USE 1>
744 <FRAME '
\1aLOAD-CONSTANT>
749 <CALL '
\1aLENGTH 1 = STACK>
750 <CALL '
\1aLOAD-CONSTANT 2>
761 <CALL '
\1aPUT 3 = PRA11>
765 <END
\1aPROCESS-RTE-ARG>
768 <GFCN
\1aCHECK-AC-USE ("VALUE" <OR ATOM FALSE> TUPLE TUPLE VECTOR ANY "TUPLE" TUPLE) ARGS4 SARGS5 ADS6 ARG7>
769 <MAKTUP ACS8 TEMP18 AC20 TEMP36:VECTOR LINKVAR37:LINKVAR TEMP44 TEMP59 TEMP60 = ACS8>
771 <SET TEMP18 %<> (TYPE FALSE)>
772 <CHTYPE ACS8 <TYPE-CODE VECTOR> = ACS8>
776 <EMPUV? ACS8 + MAPAP13>
777 <NTHUV ACS8 1 = AC20>
778 <TYPE? AC20 <TYPE-CODE ATOM> - PHRASE22>
782 <TYPE? TEMP18 <TYPE-CODE FALSE> + MAPEX28>
783 <SET TEMP18 %<> (TYPE FALSE)>
784 <NTHUV AC20 8 = TEMP36 (TYPE VECTOR)>
788 <EMPUV? TEMP36 + MAPAP29>
789 <NTHUV TEMP36 1 = LINKVAR37>
790 <NTHUV LINKVAR37 1 = TEMP18 (TYPE VARTBL)>
791 <NTHUV LINKVAR37 6 = TEMP44>
792 <EQUAL? TEMP44 AC20 - BOOL43>
794 <NTHUV LINKVAR37 2 = TEMP44>
795 <TYPE? TEMP44 <TYPE-CODE FALSE> + TAG49>
798 <NTHUV LINKVAR37 7 = TEMP44>
799 <EQUAL? TEMP44 AC20 - BOOL45>
801 <NTHUV LINKVAR37 4 = TEMP44>
802 <TYPE? TEMP44 <TYPE-CODE FALSE> + TAG49>
805 <NTHUV LINKVAR37 8 = TEMP44>
806 <EQUAL? TEMP44 AC20 - BOOL46>
808 <NTHUV LINKVAR37 3 = TEMP44>
809 <TYPE? TEMP44 <TYPE-CODE FALSE> + TAG49>
812 <NTHUV LINKVAR37 9 = TEMP44>
813 <EQUAL? TEMP44 AC20 + TAG48>
815 <SET TEMP18 %<> (TYPE FALSE)>
818 <NTHUV LINKVAR37 4 = TEMP44>
819 <TYPE? TEMP44 <TYPE-CODE FALSE> + TAG49>
821 <SET TEMP18 %<> (TYPE FALSE)>
828 <CHTYPE TEMP44 <TYPE-CODE VECTOR> = TEMP59>
830 <EMPUV? TEMP59 + TAG55>
831 <LOOP (TEMP18 VALUE) (TEMP59 LENGTH VALUE)>
833 <NTHUV TEMP59 1 = TEMP60>
834 <TYPE? TEMP60 <TYPE-CODE VARTBL> - TAG58>
835 <VEQUAL? TEMP60 TEMP18 + TAG56>
838 <RESTUV TEMP59 1 = TEMP59 (TYPE VECTOR)>
839 <EMPUV? TEMP59 - TAG57>
841 <SET TEMP44 %<> (TYPE FALSE)>
847 <VEQUAL? TEMP44 0 + PHRASE54>
848 <EQUAL? TEMP44 SARGS5 - PHRASE63>
849 <RESTUV TEMP44 1 = TEMP44 (TYPE VECTOR)>
852 <LENUV TEMP44 = TEMP59 (TYPE FIX)>
853 <LENUV SARGS5 = TEMP60 (TYPE FIX)>
854 <LESS? TEMP59 TEMP60 - PHRASE64 (TYPE FIX)>
856 <FRAME '
\1aPROCESS-RTE-ARG>
857 <NTHUV TEMP44 1 = STACK>
858 <LENUV ADS6 = TEMP59 (TYPE FIX)>
859 <LENUV TEMP44 = TEMP60 (TYPE FIX)>
860 <SUB TEMP59 TEMP60 = TEMP59 (TYPE FIX)>
862 <ADD TEMP59 1 = TEMP59 (TYPE FIX)>
863 <NTHUV ADS6 TEMP59 = STACK>
868 <CALL '
\1aPROCESS-RTE-ARG 5>
871 <FRAME '
\1aISTORE-VAR>
876 <CALL '
\1aISTORE-VAR 3>
877 <SET TEMP18 'T (TYPE ATOM)>
880 <SET TEMP18 'T (TYPE ATOM)>
882 <RESTUV TEMP36 1 = TEMP36 (TYPE VECTOR)>
886 <RESTUV ACS8 1 = ACS8 (TYPE VECTOR)>
891 <END
\1aCHECK-AC-USE>
894 <GFCN
\1aRESET-FRAME-LABEL-TABLE ("VALUE" <LIST [REST SPEC-LABEL]>)>
897 <SETG 'FRAME-LABEL-TABLE ()>
899 <END
\1aRESET-FRAME-LABEL-TABLE>
902 <GFCN
\1aSFRAME-GEN ("VALUE" ATOM "OPTIONAL" ANY) NAME6>
903 <OPT-DISPATCH 0 %<> OPT4 OPT5>
909 <FRAME '
\1aFRAME-GEN>
913 <CALL '
\1aFRAME-GEN 2 = TEMP8>
919 <GFCN
\1aFRAME-GEN ("VALUE" ATOM "OPTIONAL" <OR FALSE ATOM> ANY) NAME7 SEG8>
920 <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6>
926 <TEMP TEMP15 TLAB9 VAC11>
928 <GVAL 'GLUE = TEMP15>
929 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE13>
931 <TYPE? NAME7 <TYPE-CODE FALSE> + PHRASE13>
932 <FRAME '
\1aQUICK-CALL?>
935 <CALL '
\1aQUICK-CALL? 1 = TEMP15>
936 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE13>
938 <FRAME '
\1aEMIT-PUSH>
939 <FRAME '
\1aTYPE-CODE>
940 <TYPE? SEG8 <TYPE-CODE FALSE> + PHRASE20>
942 <SET TEMP15 'QSFRAME (TYPE ATOM)>
945 <SET TEMP15 'QFRAME (TYPE ATOM)>
949 <CALL '
\1aTYPE-CODE 1 = STACK>
951 <CALL '
\1aEMIT-PUSH 2>
952 <FRAME '
\1aMAKE-LABEL>
953 <CALL '
\1aMAKE-LABEL 0 = TLAB9>
954 <GVAL 'FRAME-LABEL-TABLE = TEMP15>
955 <CONS TLAB9 TEMP15 = TEMP15>
956 <SETG 'FRAME-LABEL-TABLE TEMP15>
958 <FRAME '
\1aEMIT-PUSH-LABEL>
961 <CALL '
\1aEMIT-PUSH-LABEL 1>
962 <FRAME '
\1aEMIT-PUSH>
963 <GVAL 'AC-F = TEMP15>
964 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
965 <OR TEMP15 #WORD *120* = TEMP15>
966 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
967 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
970 <CALL '
\1aEMIT-PUSH 2>
971 <FRAME '
\1aMAKE-LABEL>
972 <CALL '
\1aMAKE-LABEL 0 = TLAB9>
973 <GVAL 'MAKTUP-FLAG = TEMP15>
974 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE27>
976 <GVAL 'ICALL-LEVEL = TEMP15>
977 <VEQUAL? TEMP15 0 - PHRASE27 (TYPE FIX)>
982 <CALL '
\1aGET-AC 2 = VAC11>
983 <FRAME '
\1aEMIT-MOVE>
984 <GVAL 'AC-F = TEMP15>
985 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
986 <OR TEMP15 #WORD *240* = TEMP15>
987 <LSH TEMP15 8 = TEMP15 (TYPE FIX)>
988 <OR TEMP15 #WORD *374* = TEMP15>
989 <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
990 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
992 <NTHUV VAC11 2 = TEMP15 (TYPE FIX)>
993 <OR TEMP15 #WORD *120* = TEMP15>
994 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
995 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
998 <CALL '
\1aEMIT-MOVE 3>
1001 <NTHUV VAC11 2 = TEMP15 (TYPE FIX)>
1002 <OR TEMP15 #WORD *240* = TEMP15>
1003 <LSH TEMP15 8 = TEMP15 (TYPE FIX)>
1004 <OR TEMP15 #WORD *377* = TEMP15>
1005 <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
1006 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1009 <FRAME '
\1aGEN-BRANCH>
1013 <CALL '
\1aGEN-BRANCH 3>
1014 <FRAME '
\1aEMIT-MOVE>
1015 <NTHUV VAC11 2 = TEMP15 (TYPE FIX)>
1016 <OR TEMP15 #WORD *240* = TEMP15>
1017 <LSH TEMP15 8 = TEMP15 (TYPE FIX)>
1018 <OR TEMP15 #WORD *374* = TEMP15>
1019 <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
1020 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1022 <NTHUV VAC11 2 = TEMP15 (TYPE FIX)>
1023 <OR TEMP15 #WORD *120* = TEMP15>
1024 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1025 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1028 <CALL '
\1aEMIT-MOVE 3>
1029 <FRAME '
\1aEMIT-LABEL>
1033 <CALL '
\1aEMIT-LABEL 2>
1034 <FRAME '
\1aEMIT-PUSH>
1035 <NTHUV VAC11 2 = TEMP15 (TYPE FIX)>
1037 <OR TEMP15 #WORD *120* = TEMP15>
1038 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1039 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1042 <CALL '
\1aEMIT-PUSH 2>
1045 <FRAME '
\1aEMIT-PUSH>
1046 <GVAL 'AC-F = TEMP15>
1047 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1048 <OR TEMP15 #WORD *240* = TEMP15>
1049 <LSH TEMP15 8 = TEMP15 (TYPE FIX)>
1050 <OR TEMP15 #WORD *374* = TEMP15>
1051 <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
1052 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1055 <CALL '
\1aEMIT-PUSH 2>
1056 <FRAME '
\1aGEN-BRANCH>
1060 <CALL '
\1aGEN-BRANCH 3>
1061 <FRAME '
\1aEMIT-MOVE>
1062 <GVAL 'AC-F = TEMP15>
1063 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1064 <OR TEMP15 #WORD *120* = TEMP15>
1065 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1066 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1068 <GVAL 'AC-TP = TEMP15>
1069 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1070 <OR TEMP15 #WORD *240* = TEMP15>
1071 <LSH TEMP15 8 = TEMP15 (TYPE FIX)>
1072 <OR TEMP15 #WORD *374* = TEMP15>
1073 <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
1074 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1077 <CALL '
\1aEMIT-MOVE 3>
1078 <FRAME '
\1aEMIT-LABEL>
1082 <CALL '
\1aEMIT-LABEL 2>
1085 <FRAME '
\1aCALL-RTE>
1086 <TYPE? SEG8 <TYPE-CODE FALSE> + PHRASE45>
1088 <GVAL 'ISFRAME!-MIMOP = TEMP15>
1091 <GVAL 'IFRAME!-MIMOP = TEMP15>
1098 <CALL '
\1aCALL-RTE 4>
1103 <GFCN
\1aSCALL-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY ANY "OPTIONAL" ANY) NAME6 NARGS7 RES8 DIR9 TAG10 COUNT11 HINT12>
1104 <OPT-DISPATCH 6 %<> OPT4 OPT5>
1110 <FRAME '
\1aCCALL-GEN>
1123 <CALL '
\1aCCALL-GEN 6 = TEMP14>
1129 <GFCN
\1aCALL-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY ANY) NAME7 NARGS8 RES9 HINT10>
1130 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
1138 <FRAME '
\1aCCALL-GEN>
1149 <CALL '
\1aCCALL-GEN 6 = TEMP12>
1155 <GFCN
\1aCCALL-GEN ("VALUE" ATOM <OR ATOM VARTBL> <OR FIX VARTBL> <OR ATOM VARTBL FALSE> ANY ANY <OR FALSE ATOM>) NAME4 NARGS5 RES6 TAG7 COUNT8 HINT9>
1156 <TEMP TLAB10 TEMP15 TEMP36:VECTOR X37:AC>
1158 <FRAME '
\1aMAKE-LABEL>
1159 <CALL '
\1aMAKE-LABEL 0 = TLAB10>
1160 <GVAL 'GLUE = TEMP15>
1161 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE13>
1163 <TYPE? NAME4 <TYPE-CODE ATOM> - PHRASE13>
1164 <FRAME '
\1aQUICK-CALL?>
1166 <CALL '
\1aQUICK-CALL? 1 = TEMP15>
1167 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE13>
1169 <TYPE? NARGS5 <TYPE-CODE FIX> - PHRASE18>
1170 <FRAME '
\1aFLUSH-ALL-ACS>
1171 <CALL '
\1aFLUSH-ALL-ACS 0>
1175 <GVAL 'AC-TP = STACK>
1176 <MUL NARGS5 -8 = STACK (TYPE FIX)>
1177 <CALL '
\1aMA-DISP 2 = STACK>
1178 <GVAL 'AC-F = TEMP15>
1179 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1180 <OR TEMP15 #WORD *120* = TEMP15>
1181 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1182 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1185 <FRAME '
\1aLOAD-CONSTANT>
1186 <GVAL 'AC-0 = STACK>
1188 <CALL '
\1aLOAD-CONSTANT 2>
1189 <FRAME '
\1aEMIT-CALL>
1194 <CALL '
\1aEMIT-CALL 2>
1197 <FRAME '
\1aLOAD-VAR>
1202 <GVAL 'AC-0 = STACK>
1203 <CALL '
\1aLOAD-VAR 4>
1204 <GVAL 'ALL-ACS = TEMP36>
1208 <EMPUV? TEMP36 + MAPAP30>
1209 <NTHUV TEMP36 1 = X37>
1210 <GVAL 'AC-0 = TEMP15>
1211 <EQUAL? TEMP15 X37 + PHRASE39>
1216 <CALL '
\1aMUNG-AC 1>
1218 <RESTUV TEMP36 1 = TEMP36 (TYPE VECTOR)>
1225 <CALL '
\1aMA-IMM 1 = STACK>
1226 <GVAL 'AC-0 = TEMP15>
1227 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1228 <OR TEMP15 #WORD *120* = TEMP15>
1229 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1230 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1232 <GVAL 'AC-1 = TEMP15>
1233 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1234 <OR TEMP15 #WORD *120* = TEMP15>
1235 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1236 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1241 <GVAL 'AC-1 = TEMP15>
1242 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1243 <OR TEMP15 #WORD *120* = TEMP15>
1244 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1245 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1247 <GVAL 'AC-TP = TEMP15>
1248 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1249 <OR TEMP15 #WORD *120* = TEMP15>
1250 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1251 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1253 <GVAL 'AC-F = TEMP15>
1254 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1255 <OR TEMP15 #WORD *120* = TEMP15>
1256 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1257 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1260 <FRAME '
\1aEMIT-CALL>
1264 <CALL '
\1aEMIT-CALL 2>
1266 <FRAME '
\1aEMIT-LABEL>
1267 <GVAL 'FRAME-LABEL-TABLE = TEMP15>
1268 <NTHL TEMP15 1 = STACK (TYPE SPEC-LABEL)>
1271 <CALL '
\1aEMIT-LABEL 2>
1272 <GVAL 'FRAME-LABEL-TABLE = TEMP15>
1273 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
1274 <SETG 'FRAME-LABEL-TABLE TEMP15>
1276 <TYPE? TAG7 <TYPE-CODE FALSE> + PHRASE48>
1277 <FRAME '
\1aEMIT-BRANCH>
1284 <CALL '
\1aEMIT-BRANCH 6>
1287 <GVAL 'AC-1 = TEMP15>
1288 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1289 <OR TEMP15 #WORD *120* = TEMP15>
1290 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1291 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1293 <FRAME '
\1aADDR-VAR-VALUE>
1296 <CALL '
\1aADDR-VAR-VALUE 1 = STACK>
1298 <FRAME '
\1aGEN-BRANCH>
1303 <CALL '
\1aGEN-BRANCH 3>
1305 <FRAME '
\1aEMIT-LABEL>
1309 <CALL '
\1aEMIT-LABEL 2>
1310 <FRAME '
\1aSET-RTE-RESULT>
1311 <GVAL 'MCALL!-MIMOP = TEMP15>
1312 <NTHUV TEMP15 4 = STACK>
1318 <CALL '
\1aSET-RTE-RESULT 3>
1321 <FRAME '
\1aCALL-RTE>
1322 <GVAL 'MCALL!-MIMOP = STACK>
1324 <TYPE? TAG7 <TYPE-CODE FALSE> + PHRASE58>
1325 <SET TEMP15 %<> (TYPE FALSE)>
1337 <CALL '
\1aCALL-RTE 6>
1338 <TYPE? TAG7 <TYPE-CODE FALSE> + PHRASE61>
1339 <FRAME '
\1aEMIT-BRANCH>
1346 <CALL '
\1aEMIT-BRANCH 6>
1349 <GVAL 'AC-1 = TEMP15>
1350 <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
1351 <OR TEMP15 #WORD *120* = TEMP15>
1352 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1353 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1355 <FRAME '
\1aADDR-VAR-VALUE>
1358 <CALL '
\1aADDR-VAR-VALUE 1 = STACK>
1360 <FRAME '
\1aGEN-BRANCH>
1364 <PUSH 'UNCONDITIONAL-BRANCH>
1365 <CALL '
\1aGEN-BRANCH 3>
1366 <FRAME '
\1aEMIT-LABEL>
1370 <CALL '
\1aEMIT-LABEL 2>
1371 <FRAME '
\1aSET-RTE-RESULT>
1372 <GVAL 'MCALL!-MIMOP = TEMP15>
1373 <NTHUV TEMP15 4 = STACK>
1379 <CALL '
\1aSET-RTE-RESULT 3>
1385 <GFCN
\1aCALL-STACK-FUNCTION ("VALUE" ATOM TUPLE CALL-DESCRIPTOR <OR ATOM FALSE> "TUPLE" ANY) ARGS4 CALLR5 TYP6>
1386 <MAKTUP CARGS7:TUPLE (CNT9:FIX 0) TEMP16 FARGS21 ARG22 DEST8 TEMP29 = CARGS7>
1388 <CHTYPE ARGS4 <TYPE-CODE VECTOR> = TEMP16>
1393 <EMPUV? TEMP16 + MAPAP14>
1394 <SET FARGS21 TEMP16>
1395 <NTHUV FARGS21 1 = ARG22>
1396 <EQUAL? ARG22 'STACK + BOOL25>
1397 <TYPE? ARG22 <TYPE-CODE VARTBL> - PHRASE24>
1401 <LENUV FARGS21 = TEMP29 (TYPE FIX)>
1402 <VEQUAL? TEMP29 1 + MAPAP14 (TYPE FIX)>
1404 <NTHUV FARGS21 2 = TEMP29>
1406 <TYPE? TEMP29 <TYPE-CODE LIST> + MAPAP14>
1408 <FRAME '
\1aPUSH-GEN>
1411 <CALL '
\1aPUSH-GEN 1>
1412 <ADD CNT9 1 = CNT9 (TYPE FIX)>
1413 <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
1416 <FRAME '
\1aCALL-RTE>
1424 <SET FARGS21 5 (TYPE FIX)>
1427 <LOOP (TEMP16 VALUE LENGTH) (FARGS21 VALUE)>
1430 <EMPUV? TEMP16 + TAG34>
1431 <NTHUV TEMP16 1 = STACK>
1432 <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
1433 <ADD FARGS21 1 = FARGS21 (TYPE FIX)>
1438 <CALL '
\1aCALL-RTE FARGS21>
1441 <END
\1aCALL-STACK-FUNCTION>
1444 <GFCN
\1aQUICK-CALL? ("VALUE" <OR ATOM FALSE> ATOM) NAME4>
1447 <FRAME '
\1aFIND-CALL>
1450 <GVAL 'GLUE-FCNS = STACK>
1451 <CALL '
\1aFIND-CALL 2 = TEMP6>
1454 <END
\1aQUICK-CALL?>
1457 <GFCN
\1aCHANNEL-OP-GEN ("VALUE" ATOM ATOM ATOM VARTBL "TUPLE" ANY) TYPE4 OPER5 CHANNEL6>
1458 <MAKTUP ARGS7 RES8 TEMP13 FROB9 ARG31 = ARGS7>
1460 <GVAL 'HAS-RESULT = RES8>
1461 <GVAL 'GLUE = TEMP13>
1462 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
1464 <FRAME '
\1aCT-QUERY>
1467 <CALL '
\1aCT-QUERY 2 = FROB9>
1468 <TYPE? FROB9 <TYPE-CODE FALSE> + PHRASE11>
1469 <FRAME '
\1aQUICK-CALL?>
1471 <CALL '
\1aQUICK-CALL? 1 = TEMP13>
1472 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
1474 <FRAME '
\1aFRAME-GEN>
1476 <CALL '
\1aFRAME-GEN 1>
1479 <SET FROB9 %<> (TYPE FALSE)>
1480 <FRAME '
\1aCALL-RTE>
1481 <GVAL 'IFRAME!-MIMOP = STACK>
1485 <CALL '
\1aCALL-RTE 4>
1487 <FRAME '
\1aPUSH-VAR>
1490 <CALL '
\1aPUSH-VAR 1>
1491 <FRAME '
\1aPUSH-CONSTANT>
1493 <CALL '
\1aPUSH-CONSTANT 1>
1494 <CHTYPE ARGS7 <TYPE-CODE VECTOR> = TEMP13>
1498 <EMPUV? TEMP13 + MAPAP25>
1499 <NTHUV TEMP13 1 = ARG31>
1500 <TYPE? ARG31 <TYPE-CODE VARTBL> - PHRASE33>
1501 <FRAME '
\1aPUSH-VAR>
1504 <CALL '
\1aPUSH-VAR 1>
1507 <FRAME '
\1aPUSH-CONSTANT>
1510 <CALL '
\1aPUSH-CONSTANT 1>
1512 <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
1515 <FRAME '
\1aFLUSH-ALL-ACS>
1516 <CALL '
\1aFLUSH-ALL-ACS 0>
1517 <TYPE? FROB9 <TYPE-CODE FALSE> + PHRASE39>
1518 <FRAME '
\1aCALL-GEN>
1521 <LENUV ARGS7 = FROB9 (TYPE FIX)>
1523 <ADD FROB9 2 = STACK (TYPE FIX)>
1527 <CALL '
\1aCALL-GEN 3 = ARGS7>
1531 <FRAME '
\1aEMIT-MOVE>
1532 <FRAME '
\1aMA-DEF-DISP>
1533 <GVAL 'AC-M = STACK>
1534 <FRAME '
\1aADD-MVEC>
1535 <CONS OPER5 () = FROB9>
1537 <CONS TYPE4 FROB9 = FROB9>
1539 <CHTYPE FROB9 <TYPE-CODE XCHANNEL-OP> = STACK>
1541 <CALL '
\1aADD-MVEC 1 = FROB9>
1542 <ADD FROB9 4 = STACK (TYPE FIX)>
1544 <CALL '
\1aMA-DEF-DISP 2 = STACK>
1545 <GVAL 'AC-0 = FROB9>
1546 <NTHUV FROB9 2 = FROB9 (TYPE FIX)>
1547 <OR FROB9 #WORD *120* = FROB9>
1548 <LSH FROB9 24 = FROB9 (TYPE FIX)>
1549 <CHTYPE FROB9 <TYPE-CODE EFF-ADDR> = STACK>
1552 <CALL '
\1aEMIT-MOVE 3>
1553 <FRAME '
\1aEMIT-MOVE>
1555 <LENUV ARGS7 = FROB9 (TYPE FIX)>
1557 <ADD FROB9 2 = STACK (TYPE FIX)>
1559 <CALL '
\1aMA-IMM 1 = STACK>
1560 <GVAL 'AC-0 = FROB9>
1561 <NTHUV FROB9 2 = FROB9 (TYPE FIX)>
1562 <OR FROB9 #WORD *120* = FROB9>
1563 <LSH FROB9 24 = FROB9 (TYPE FIX)>
1564 <CHTYPE FROB9 <TYPE-CODE EFF-ADDR> = STACK>
1567 <CALL '
\1aEMIT-MOVE 3>
1570 <GVAL 'AC-PC = FROB9>
1571 <NTHUV FROB9 2 = FROB9 (TYPE FIX)>
1572 <OR FROB9 #WORD *220* = FROB9>
1573 <LSH FROB9 24 = FROB9 (TYPE FIX)>
1574 <CHTYPE FROB9 <TYPE-CODE EFF-ADDR> = FROB9>
1575 <CONS FROB9 () = FROB9>
1577 <GVAL 'MCALL!-MIMOP = TEMP13>
1578 <NTHUV TEMP13 1 = STACK (TYPE FIX)>
1580 <CALL '
\1aLREV 1 = TEMP13>
1581 <CHTYPE TEMP13 <TYPE-CODE EFF-ADDR> = TEMP13>
1582 <CONS TEMP13 () = TEMP13>
1583 <PUTREST FROB9 TEMP13>
1585 <CHTYPE FROB9 <TYPE-CODE LADDR> = STACK>
1588 <FRAME '
\1aSET-RTE-RESULT>
1589 <GVAL 'MCALL!-MIMOP = FROB9>
1590 <NTHUV FROB9 4 = STACK>
1595 <CALL '
\1aSET-RTE-RESULT 3>
1596 <FRAME '
\1aCLEAR-STATUS>
1597 <CALL '
\1aCLEAR-STATUS 0>
1599 <END
\1aCHANNEL-OP-GEN>