--- /dev/null
+
+<USE "CHANNEL-TYPE">
+
+#WORD *7400653026*
+ <GFCN \1aFIND-CALL ("VALUE" <OR ATOM !<FALSE>> ATOM <LIST [REST ATOM]>) ATM4 LIST5>
+ <TEMP TEMP6>
+ <INTGO>
+ <LOOP>
+AGAIN9
+ <INTGO>
+ <EMPL? LIST5 - PHRASE11 (TYPE LIST)>
+ <RETURN %<>>
+PHRASE11
+ <FRAME '\1aSAME-NAME?>
+ <PUSH ATM4>
+ <NTHL LIST5 1 = STACK (TYPE ATOM)>
+ <CALL '\1aSAME-NAME? 2 = TEMP6>
+ <TYPE? TEMP6 <TYPE-CODE FALSE> + PHRASE13>
+ <DEAD TEMP6>
+ <RETURN 'T>
+PHRASE13
+ <RESTL LIST5 1 = LIST5 (TYPE LIST)>
+ <JUMP + AGAIN9>
+ <END \1aFIND-CALL>
+
+#WORD *36313040576*
+ <GFCN \1aSAME-NAME? ("VALUE" <OR ATOM FALSE> ATOM ATOM) X4 Y5>
+ <TEMP TEMP10 S16:STRING S27:STRING TEMP19 TEMP20 TEMP21 TEMP22>
+ <INTGO>
+ <GVAL 'INT-MODE = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE9>
+ <DEAD TEMP10>
+ <VEQUAL? X4 Y5 - TAG11>
+ <DEAD X4 Y5>
+ <RETURN 'T>
+TAG11
+ <RETURN %<>>
+PHRASE9
+ <NTHR X4 3 = S16 (RECORD-TYPE ATOM)>
+ <NTHR Y5 3 = S27 (RECORD-TYPE ATOM)>
+ <VEQUAL? X4 Y5 - TAG15>
+ <DEAD X4 Y5>
+ <RETURN 'T>
+TAG15
+ <LENUS S16 = TEMP10 (TYPE FIX)>
+ <GRTR? TEMP10 2 - TAG18 (TYPE FIX)>
+ <DEAD TEMP10>
+ <NTHUS S16 1 = TEMP10 (TYPE CHARACTER)>
+ <VEQUAL? TEMP10 !\T - TAG18>
+ <DEAD TEMP10>
+ <NTHUS S16 2 = TEMP10 (TYPE CHARACTER)>
+ <VEQUAL? TEMP10 !\$ - TAG18>
+ <DEAD TEMP10>
+ <RESTUS S16 2 = TEMP10 (TYPE STRING)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP10 S27 - TAG18>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP19 S27>
+ <LENUS TEMP10 = TEMP20 (TYPE FIX)>
+ <LENUS TEMP19 = TEMP21 (TYPE FIX)>
+ <VEQUAL? TEMP20 TEMP21 - TAG18>
+ <DEAD TEMP21>
+ <LOOP (TEMP10 VALUE LENGTH) (TEMP19 VALUE LENGTH) (TEMP20 VALUE)>
+TAG23
+ <NTHUS TEMP10 1 = TEMP21>
+ <NTHUS TEMP19 1 = TEMP22>
+ <VEQUAL? TEMP21 TEMP22 - TAG18>
+ <DEAD TEMP21 TEMP22>
+ <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
+ <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
+ <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
+ <GRTR? TEMP20 0 + TAG23 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <RETURN 'T>
+TAG18
+ <LENUS S27 = TEMP19 (TYPE FIX)>
+ <GRTR? TEMP19 2 + TAG25 (TYPE FIX)>
+ <DEAD TEMP19>
+ <RETURN %<>>
+TAG25
+ <NTHUS S27 1 = TEMP19 (TYPE CHARACTER)>
+ <VEQUAL? TEMP19 !\T + TAG26>
+ <DEAD TEMP19>
+ <RETURN %<>>
+TAG26
+ <NTHUS S27 2 = TEMP19 (TYPE CHARACTER)>
+ <VEQUAL? TEMP19 !\$ + TAG27>
+ <DEAD TEMP19>
+ <RETURN %<>>
+TAG27
+ <RESTUS S27 2 = TEMP19 (TYPE STRING)>
+ <DEAD S27>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP19 S16 - TAG28>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP10 S16>
+ <DEAD S16>
+ <LENUS TEMP19 = TEMP22 (TYPE FIX)>
+ <LENUS TEMP10 = TEMP21 (TYPE FIX)>
+ <VEQUAL? TEMP22 TEMP21 - TAG28>
+ <DEAD TEMP21>
+ <LOOP (TEMP19 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP22 VALUE)>
+TAG30
+ <NTHUS TEMP19 1 = TEMP21>
+ <NTHUS TEMP10 1 = TEMP20>
+ <VEQUAL? TEMP21 TEMP20 - TAG28>
+ <DEAD TEMP21>
+ <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
+ <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
+ <SUB TEMP22 1 = TEMP22 (TYPE FIX)>
+ <GRTR? TEMP22 0 + TAG30 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <RETURN 'T>
+TAG28
+ <RETURN %<>>
+ <END \1aSAME-NAME?>
+
+#WORD *21154063116*
+ <GFCN \1aINIT-CALL-DISPATCH ("VALUE" FIX)>
+ <TEMP TEMP4 TEMP5>
+ <INTGO>
+ <UUBLOCK <TYPE-CODE VECTOR> 200 = TEMP4>
+ <SET TEMP5 TEMP4>
+ <LOOP (TEMP5 VALUE LENGTH)>
+ISTR6
+ <EMPUV? TEMP5 + ISTRE7>
+ <PUTUV TEMP5 1 %<>>
+ <RESTUV TEMP5 1 = TEMP5>
+ <JUMP + ISTR6>
+ISTRE7
+ <SETG 'RTE-DISP-TABLE TEMP4>
+ <DEAD TEMP4>
+ <GVAL 'DISPATCH-TABLE-START = TEMP4>
+ <SETG 'RTE-PTR TEMP4>
+ <RETURN TEMP4>
+ <DEAD TEMP4>
+ <END \1aINIT-CALL-DISPATCH>
+
+<GDECL (RTE-PTR) FIX>
+
+#WORD *15327534134*
+ <GFCN \1aCREATE-CALL-DESC ("VALUE" FIX STRING BOOLEAN <OR FALSE DATUM> "TUPLE" ANY) NAME4 FLUSH?5 RESULT?6>
+ <MAKTUP ARGS7:TUPLE OFF9:FIX ANAME8 TEMP13 TEMP14 = ARGS7>
+ <INTGO>
+ <GVAL 'RTE-PTR = OFF9>
+ <FRAME '\1aLOOKUP>
+ <PUSH NAME4>
+ <GVAL 'MIMOP-OBLIST = STACK>
+ <CALL '\1aLOOKUP 2 = ANAME8>
+ <TYPE? ANAME8 <TYPE-CODE FALSE> - BOOL10>
+ <FRAME '\1aINSERT>
+ <PUSH NAME4>
+ <DEAD NAME4>
+ <GVAL 'MIMOP-OBLIST = STACK>
+ <CALL '\1aINSERT 2 = ANAME8>
+BOOL10
+ <DIV OFF9 4 = TEMP13 (TYPE FIX)>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <GVAL 'RTE-DISP-TABLE = TEMP14>
+ <PUTUV TEMP14 TEMP13 ANAME8>
+ <DEAD TEMP14 TEMP13>
+ <PUSH OFF9>
+ <DEAD OFF9>
+ <PUSH ANAME8>
+ <SET TEMP13 0 (TYPE FIX)>
+ <SET TEMP14 ARGS7>
+ <DEAD ARGS7>
+ <LOOP (TEMP14 VALUE LENGTH) (TEMP13 VALUE)>
+TAG17
+ <INTGO>
+ <EMPUV? TEMP14 + TAG16>
+ <NTHUV TEMP14 1 = STACK>
+ <RESTUV TEMP14 1 = TEMP14 (TYPE VECTOR)>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG17>
+TAG16
+ <UBLOCK <TYPE-CODE VECTOR> TEMP13 = STACK (TYPE VECTOR)>
+ <DEAD TEMP13>
+ <PUSH RESULT?6>
+ <DEAD RESULT?6>
+ <PUSH FLUSH?5>
+ <DEAD FLUSH?5>
+ <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP13 (TYPE VECTOR)>
+ <CHTYPE TEMP13 <TYPE-CODE CALL-DESCRIPTOR> = TEMP13>
+ <NTHR ANAME8 1 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG19)>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG19>
+ <PUTR TEMP14 1 TEMP13 (RECORD-TYPE GBIND)>
+ <DEAD TEMP14 TEMP13>
+ <JUMP + TAG20>
+TAG19
+ <FRAME '\1aSETG>
+ <PUSH ANAME8>
+ <DEAD ANAME8>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <CALL '\1aSETG 2 = TEMP13>
+TAG20
+ <GVAL 'RTE-PTR = TEMP13>
+ <ADD TEMP13 4 = TEMP13 (TYPE FIX)>
+ <SETG 'RTE-PTR TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aCREATE-CALL-DESC>
+
+#WORD *11775576654*
+ <GFCN \1aCREATE-DATUM ("VALUE" DATUM <OR FALSE ATOM> <OR FALSE ATOM> <OR FALSE ATOM>) TYP4 TAC5 VAC6>
+ <TEMP TEMP8>
+ <INTGO>
+ <PUSH TYP4>
+ <DEAD TYP4>
+ <PUSH TAC5>
+ <DEAD TAC5>
+ <PUSH VAC6>
+ <DEAD VAC6>
+ <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP8 (TYPE VECTOR)>
+ <CHTYPE TEMP8 <TYPE-CODE DATUM> = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aCREATE-DATUM>
+
+#WORD *27704007003*
+ <GFCN \1aRTE-ARGS ("VALUE" AC-LDESC ATOM <OR FALSE ATOM> ATOM) KIND4 TAC5 VAC6>
+ <TEMP TEMP12 TEMP13>
+ <INTGO>
+ <SET TEMP12 [VALUE TYPE-VALUE-PAIR COUNT-VALUE-PAIR] (TYPE VECTOR)>
+ <LOOP (KIND4 VALUE) (TEMP12 LENGTH VALUE)>
+TAG10
+ <NTHUV TEMP12 1 = TEMP13>
+ <VEQUAL? TEMP13 KIND4 + PHRASE8>
+ <DEAD TEMP13>
+ <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
+ <EMPUV? TEMP12 - TAG10>
+ <FRAME '\1aERROR>
+ <PUSH "BAD-AC-LDESC">
+ <PUSH 'CREATE-AC-LDESC>
+ <CALL '\1aERROR 2>
+PHRASE8
+ <TYPE? TAC5 <TYPE-CODE FALSE> + PHRASE16>
+ <NTHR TAC5 1 = TEMP12 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL18)>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + BOOL18>
+ <NTHR TEMP12 1 = TEMP12 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP12 <TYPE-CODE UNBOUND> + BOOL18>
+ <DEAD TEMP12>
+ <GVAL TAC5 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE AC> + PHRASE16>
+ <DEAD TEMP12>
+BOOL18
+ <FRAME '\1aERROR>
+ <PUSH "BAD AC">
+ <PUSH 'CREATE-AC-LDESC>
+ <CALL '\1aERROR 2>
+PHRASE16
+ <NTHR VAC6 1 = TEMP12 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL22)>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + BOOL22>
+ <NTHR TEMP12 1 = TEMP12 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP12 <TYPE-CODE UNBOUND> + BOOL22>
+ <DEAD TEMP12>
+ <GVAL VAC6 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE AC> + PHRASE21>
+ <DEAD TEMP12>
+BOOL22
+ <FRAME '\1aERROR>
+ <PUSH "BAD AC">
+ <PUSH 'CREATE-AC-LDESC>
+ <CALL '\1aERROR 2>
+PHRASE21
+ <PUSH KIND4>
+ <DEAD KIND4>
+ <PUSH TAC5>
+ <DEAD TAC5>
+ <PUSH VAC6>
+ <DEAD VAC6>
+ <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP12 (TYPE VECTOR)>
+ <CHTYPE TEMP12 <TYPE-CODE AC-LDESC> = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aRTE-ARGS>
+
+<SETG SAME-STACK <>>
+
+#WORD *35255565274*
+ <GFCN \1aCALL-RTE ("VALUE" ATOM CALL-DESCRIPTOR ATOM <OR ATOM FALSE VARTBL> <OR FALSE HINT ATOM> "TUPLE" ANY) CDESC4 INST5 DEST6 HINT7>
+ <MAKTUP ARGS8 TEMP17 TEMP18 SARGS36:VECTOR ADS37:VECTOR = ARGS8>
+ <INTGO>
+ <TYPE? DEST6 <TYPE-CODE VARTBL> - PHRASE12>
+ <SET TEMP17 ARGS8>
+ <EMPUV? TEMP17 + TAG14>
+ <LOOP (DEST6 VALUE) (TEMP17 LENGTH VALUE)>
+TAG15
+ <NTHUV TEMP17 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE VARTBL> - TAG16>
+ <VEQUAL? TEMP18 DEST6 + PHRASE12>
+ <DEAD TEMP18>
+TAG16
+ <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
+ <EMPUV? TEMP17 - TAG15>
+TAG14
+ <FRAME '\1aVAR-VALUE-IN-AC?>
+ <PUSH DEST6>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL19>
+ <DEAD TEMP17>
+ <FRAME '\1aVAR-TYPE-IN-AC?>
+ <PUSH DEST6>
+ <CALL '\1aVAR-TYPE-IN-AC? 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL19>
+ <DEAD TEMP17>
+ <FRAME '\1aVAR-COUNT-IN-AC?>
+ <PUSH DEST6>
+ <CALL '\1aVAR-COUNT-IN-AC? 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL19>
+ <DEAD TEMP17>
+ <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
+ <PUSH DEST6>
+ <CALL '\1aVAR-TYPE-WORD-IN-AC? 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE12>
+ <DEAD TEMP17>
+BOOL19
+ <FRAME '\1aDEAD-VAR>
+ <PUSH DEST6>
+ <CALL '\1aDEAD-VAR 1>
+PHRASE12
+ <CHTYPE ARGS8 <TYPE-CODE VECTOR> = TEMP17>
+ <NTHUV CDESC4 3 = TEMP18 (TYPE VECTOR)>
+ <LOOP>
+MAP26
+ <INTGO>
+ <EMPUV? TEMP17 + MAPAP29>
+ <EMPUV? TEMP18 + MAPAP29>
+ <SET SARGS36 TEMP17>
+ <SET ADS37 TEMP18>
+ <FRAME '\1aPROCESS-RTE-ARG>
+ <NTHUV SARGS36 1 = STACK>
+ <NTHUV ADS37 1 = STACK>
+ <DEAD ADS37>
+ <PUSH SARGS36>
+ <DEAD SARGS36>
+ <PUSH ARGS8>
+ <NTHUV CDESC4 3 = STACK (TYPE VECTOR)>
+ <CALL '\1aPROCESS-RTE-ARG 5>
+ <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
+ <RESTUV TEMP18 1 = TEMP18 (TYPE VECTOR)>
+ <JUMP + MAP26>
+MAPAP29
+ <FRAME '\1aFREE-RESULT-ACS>
+ <NTHUV CDESC4 3 = STACK (TYPE VECTOR)>
+ <NTHUV CDESC4 4 = STACK>
+ <CALL '\1aFREE-RESULT-ACS 2>
+ <NTHUV CDESC4 5 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE41>
+ <DEAD TEMP17>
+ <FRAME '\1aFLUSH-ALL-ACS>
+ <CALL '\1aFLUSH-ALL-ACS 0>
+PHRASE41
+ <NTHUV CDESC4 1 = ARGS8 (TYPE FIX)>
+ <VEQUAL? INST5 'CALL - PHRASE44>
+ <FRAME '\1aEMIT>
+ <PUSH 22>
+ <GVAL 'AC-PC = TEMP18>
+ <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
+ <OR TEMP18 #WORD *220* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = TEMP18>
+ <CONS TEMP18 () = TEMP18>
+ <FRAME '\1aLREV>
+ <PUSH ARGS8>
+ <DEAD ARGS8>
+ <CALL '\1aLREV 1 = TEMP17>
+ <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = TEMP17>
+ <CONS TEMP17 () = TEMP17>
+ <PUTREST TEMP18 TEMP17>
+ <DEAD TEMP17>
+ <CHTYPE TEMP18 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP18>
+ <CALL '\1aEMIT 2>
+ <JUMP + PHRASE47>
+PHRASE44
+ <VEQUAL? INST5 'JUMP - PHRASE47>
+ <DEAD INST5>
+ <FRAME '\1aEMIT>
+ <PUSH 23>
+ <GVAL 'AC-PC = TEMP18>
+ <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
+ <OR TEMP18 #WORD *220* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = TEMP18>
+ <CONS TEMP18 () = TEMP18>
+ <FRAME '\1aLREV>
+ <PUSH ARGS8>
+ <DEAD ARGS8>
+ <CALL '\1aLREV 1 = TEMP17>
+ <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = TEMP17>
+ <CONS TEMP17 () = TEMP17>
+ <PUTREST TEMP18 TEMP17>
+ <DEAD TEMP17>
+ <CHTYPE TEMP18 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP18>
+ <CALL '\1aEMIT 2>
+PHRASE47
+ <FRAME '\1aSET-RTE-RESULT>
+ <NTHUV CDESC4 4 = STACK>
+ <DEAD CDESC4>
+ <PUSH DEST6>
+ <DEAD DEST6>
+ <PUSH HINT7>
+ <DEAD HINT7>
+ <CALL '\1aSET-RTE-RESULT 3>
+ <FRAME '\1aCLEAR-STATUS>
+ <CALL '\1aCLEAR-STATUS 0>
+ <RETURN 'NORMAL>
+ <END \1aCALL-RTE>
+
+#WORD *33316145050*
+ <GFCN \1aFREE-RESULT-ACS ("VALUE" ATOM <VECTOR [REST ARG-DESCRIPTOR]> <OR FALSE DATUM>) ARGS4 RESULT5>
+ <TEMP VAC6 TEMP13>
+ <INTGO>
+ <TYPE? RESULT5 <TYPE-CODE DATUM> - BOOL17>
+ <NTHUV RESULT5 2 = VAC6>
+ <TYPE? VAC6 <TYPE-CODE FALSE> + BOOL11>
+ <FRAME '\1aCALLUSE?>
+ <PUSH VAC6>
+ <PUSH ARGS4>
+ <CALL '\1aCALLUSE? 2 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> - BOOL11>
+ <DEAD TEMP13>
+ <FRAME '\1aGET-AC>
+ <GVAL VAC6 = STACK>
+ <DEAD VAC6>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2>
+BOOL11
+ <NTHUV RESULT5 3 = VAC6 (TYPE ATOM)>
+ <DEAD RESULT5>
+ <FRAME '\1aCALLUSE?>
+ <PUSH VAC6>
+ <PUSH ARGS4>
+ <DEAD ARGS4>
+ <CALL '\1aCALLUSE? 2 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> - BOOL17>
+ <DEAD TEMP13>
+ <FRAME '\1aGET-AC>
+ <GVAL VAC6 = STACK>
+ <DEAD VAC6>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2>
+BOOL17
+ <RETURN 'T>
+ <END \1aFREE-RESULT-ACS>
+
+#WORD *2356267240*
+ <GFCN \1aCALLUSE? ("VALUE" <OR ATOM FALSE> ATOM <VECTOR [REST ARG-DESCRIPTOR]>) VAC4 ARGS5>
+ <TEMP (RES6 %<>) TEMP13:VECTOR ARG18 TEMP23>
+ <INTGO>
+ <SET TEMP13 ARGS5 (TYPE VECTOR)>
+ <DEAD ARGS5>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPUV? TEMP13 + MAPAP11>
+ <NTHUV TEMP13 1 = ARG18>
+ <TYPE? ARG18 <TYPE-CODE AC-LDESC> - PHRASE20>
+ <NTHUV ARG18 2 = TEMP23>
+ <EQUAL? TEMP23 VAC4 + BOOL22>
+ <DEAD TEMP23>
+ <NTHUV ARG18 3 = TEMP23 (TYPE ATOM)>
+ <DEAD ARG18>
+ <VEQUAL? TEMP23 VAC4 - PHRASE20>
+ <DEAD TEMP23>
+BOOL22
+ <RETURN 'T>
+PHRASE20
+ <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
+ <JUMP + MAP8>
+MAPAP11
+ <RETURN RES6>
+ <DEAD RES6>
+ <END \1aCALLUSE?>
+
+#WORD *6575435335*
+ <GFCN \1aSET-RTE-RESULT ("VALUE" ANY <OR FALSE DATUM> <OR FALSE ATOM VARTBL> <OR FALSE HINT ATOM>) RDAT4 DEST5 HINT6>
+ <TEMP TEMP9>
+ <INTGO>
+ <SET TEMP9 RDAT4>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
+ <SET TEMP9 DEST5>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
+ <NTHUV RDAT4 2 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE12>
+ <DEAD TEMP9>
+ <FRAME '\1aDEST-PAIR>
+ <NTHUV RDAT4 3 = TEMP9 (TYPE ATOM)>
+ <GVAL TEMP9 = STACK>
+ <DEAD TEMP9>
+ <NTHUV RDAT4 2 = TEMP9 (TYPE ATOM)>
+ <DEAD RDAT4>
+ <GVAL TEMP9 = STACK>
+ <DEAD TEMP9>
+ <PUSH DEST5>
+ <CALL '\1aDEST-PAIR 3>
+ <JUMP + COND11>
+PHRASE12
+ <NTHUV RDAT4 1 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE15>
+ <DEAD TEMP9>
+ <FRAME '\1aDEST-DECL>
+ <NTHUV RDAT4 3 = TEMP9 (TYPE ATOM)>
+ <GVAL TEMP9 = STACK>
+ <DEAD TEMP9>
+ <PUSH DEST5>
+ <NTHUV RDAT4 1 = STACK (TYPE ATOM)>
+ <DEAD RDAT4>
+ <CALL '\1aDEST-DECL 3>
+ <JUMP + COND11>
+PHRASE15
+ <FRAME '\1aERROR>
+ <PUSH "BAD DATUM">
+ <PUSH 'SET-RTE-RESULT>
+ <CALL '\1aERROR 2>
+COND11
+ <FRAME '\1aPROCESS-DESTINATION-HINT>
+ <PUSH HINT6>
+ <DEAD HINT6>
+ <PUSH DEST5>
+ <DEAD DEST5>
+ <CALL '\1aPROCESS-DESTINATION-HINT 2 = TEMP9>
+PHRASE8
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aSET-RTE-RESULT>
+
+<NEWTYPE ARG-DONE FIX>
+
+#WORD *14055057554*
+ <GFCN \1aPROCESS-RTE-ARG ("VALUE" STRUCTURED ANY <OR AC-LDESC ATOM> ANY TUPLE VECTOR) ARG4 AD5 SARGS6 ARGS7 ADS8>
+ <TEMP PRA11 TAC10 TEMP28 VAC9>
+ <INTGO>
+ <TYPE? ARG4 <TYPE-CODE ARG-DONE> - TAG15>
+ <SET PRA11 %<> (TYPE FALSE)>
+ <JUMP + PHRASE13>
+TAG15
+ <EQUAL? AD5 'STACK - PHRASE18>
+ <TYPE? ARG4 <TYPE-CODE VARTBL> - PHRASE20>
+ <FRAME '\1aPUSH-VAR>
+ <PUSH ARG4>
+ <DEAD ARG4>
+ <CALL '\1aPUSH-VAR 1>
+ <JUMP + PHRASE67>
+PHRASE20
+ <FRAME '\1aPUSH-CONSTANT>
+ <PUSH ARG4>
+ <DEAD ARG4>
+ <CALL '\1aPUSH-CONSTANT 1>
+ <JUMP + PHRASE67>
+PHRASE18
+ <TYPE? AD5 <TYPE-CODE AC-LDESC> - PHRASE24>
+ <NTHUV AD5 1 = PRA11 (TYPE ATOM)>
+ <VEQUAL? PRA11 'TYPE-VALUE-PAIR - PHRASE24>
+ <DEAD PRA11>
+ <FRAME '\1aNEXT-AC>
+ <NTHUV AD5 2 = PRA11 (TYPE ATOM)>
+ <GVAL PRA11 = TAC10>
+ <DEAD PRA11>
+ <PUSH TAC10>
+ <CALL '\1aNEXT-AC 1 = PRA11>
+ <NTHUV AD5 3 = TEMP28 (TYPE ATOM)>
+ <GVAL TEMP28 = VAC9>
+ <DEAD TEMP28>
+ <EQUAL? PRA11 VAC9 - PHRASE24>
+ <DEAD PRA11>
+ <FRAME '\1aCHECK-AC-USE>
+ <PUSH ARGS7>
+ <DEAD ARGS7>
+ <PUSH SARGS6>
+ <PUSH ADS8>
+ <DEAD ADS8>
+ <PUSH ARG4>
+ <DEAD ARG4>
+ <PUSH TAC10>
+ <PUSH VAC9>
+ <CALL '\1aCHECK-AC-USE 6>
+ <NTHUV SARGS6 1 = ARG4>
+ <TYPE? ARG4 <TYPE-CODE ARG-DONE> - PHRASE31>
+ <RETURN 'T>
+PHRASE31
+ <FRAME '\1aLOAD-AC-PAIR>
+ <PUSH ARG4>
+ <DEAD ARG4>
+ <PUSH %<>>
+ <NTHUV AD5 2 = TEMP28 (TYPE ATOM)>
+ <DEAD AD5>
+ <GVAL TEMP28 = STACK>
+ <DEAD TEMP28>
+ <CALL '\1aLOAD-AC-PAIR 3>
+ <FRAME '\1aPROTECT-USE>
+ <PUSH TAC10>
+ <DEAD TAC10>
+ <CALL '\1aPROTECT-USE 1>
+ <FRAME '\1aPROTECT-USE>
+ <PUSH VAC9>
+ <DEAD VAC9>
+ <CALL '\1aPROTECT-USE 1>
+ <JUMP + PHRASE67>
+PHRASE24
+ <TYPE? AD5 <TYPE-CODE AC-LDESC> - PHRASE67>
+ <FRAME '\1aCHECK-AC-USE>
+ <PUSH ARGS7>
+ <DEAD ARGS7>
+ <PUSH SARGS6>
+ <PUSH ADS8>
+ <DEAD ADS8>
+ <PUSH ARG4>
+ <DEAD ARG4>
+ <NTHUV AD5 2 = STACK>
+ <NTHUV AD5 3 = STACK (TYPE ATOM)>
+ <CALL '\1aCHECK-AC-USE 6>
+ <NTHUV SARGS6 1 = ARG4>
+ <TYPE? ARG4 <TYPE-CODE ARG-DONE> - PHRASE38>
+ <RETURN 'T>
+PHRASE38
+ <TYPE? ARG4 <TYPE-CODE VARTBL> - PHRASE40>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH ARG4>
+ <NTHUV AD5 1 = TEMP28 (TYPE ATOM)>
+ <VEQUAL? TEMP28 'TYPE-VALUE-PAIR - PHRASE43>
+ <DEAD TEMP28>
+ <SET TEMP28 'VALUE (TYPE ATOM)>
+ <JUMP + PHRASE44>
+PHRASE43
+ <SET TEMP28 'JUST-VALUE (TYPE ATOM)>
+PHRASE44
+ <PUSH TEMP28>
+ <DEAD TEMP28>
+ <PUSH 'T>
+ <NTHUV AD5 3 = TEMP28 (TYPE ATOM)>
+ <GVAL TEMP28 = STACK>
+ <DEAD TEMP28>
+ <CALL '\1aLOAD-VAR 4 = VAC9>
+ <FRAME '\1aPROTECT-USE>
+ <PUSH VAC9>
+ <DEAD VAC9>
+ <CALL '\1aPROTECT-USE 1>
+ <JUMP + PHRASE46>
+PHRASE40
+ <FRAME '\1aGET-AC>
+ <NTHUV AD5 3 = TEMP28 (TYPE ATOM)>
+ <GVAL TEMP28 = STACK>
+ <DEAD TEMP28>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = VAC9>
+ <FRAME '\1aPROTECT-USE>
+ <PUSH VAC9>
+ <CALL '\1aPROTECT-USE 1>
+ <FRAME '\1aMOVE-VALUE>
+ <PUSH ARG4>
+ <PUSH VAC9>
+ <CALL '\1aMOVE-VALUE 2>
+ <FRAME '\1aMUNG-AC>
+ <PUSH VAC9>
+ <DEAD VAC9>
+ <CALL '\1aMUNG-AC 1>
+PHRASE46
+ <TYPE? ARG4 <TYPE-CODE VARTBL> - PHRASE52>
+ <NTHUV AD5 1 = TEMP28 (TYPE ATOM)>
+ <VEQUAL? TEMP28 'TYPE-VALUE-PAIR - PHRASE54>
+ <DEAD TEMP28>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH ARG4>
+ <DEAD ARG4>
+ <PUSH 'TYPE-WORD>
+ <PUSH 'T>
+ <NTHUV AD5 2 = TEMP28 (TYPE ATOM)>
+ <DEAD AD5>
+ <GVAL TEMP28 = STACK>
+ <DEAD TEMP28>
+ <CALL '\1aLOAD-VAR 4 = VAC9>
+ <FRAME '\1aPROTECT-USE>
+ <PUSH VAC9>
+ <DEAD VAC9>
+ <CALL '\1aPROTECT-USE 1>
+ <JUMP + PHRASE67>
+PHRASE54
+ <NTHUV AD5 1 = TEMP28 (TYPE ATOM)>
+ <VEQUAL? TEMP28 'COUNT-VALUE-PAIR - PHRASE67>
+ <DEAD TEMP28>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH ARG4>
+ <DEAD ARG4>
+ <PUSH 'COUNT>
+ <PUSH 'T>
+ <NTHUV AD5 2 = TEMP28 (TYPE ATOM)>
+ <DEAD AD5>
+ <GVAL TEMP28 = STACK>
+ <DEAD TEMP28>
+ <CALL '\1aLOAD-VAR 4 = VAC9>
+ <FRAME '\1aPROTECT-USE>
+ <PUSH VAC9>
+ <DEAD VAC9>
+ <CALL '\1aPROTECT-USE 1>
+ <JUMP + PHRASE67>
+PHRASE52
+ <NTHUV AD5 1 = TEMP28 (TYPE ATOM)>
+ <VEQUAL? TEMP28 'TYPE-VALUE-PAIR - PHRASE62>
+ <DEAD TEMP28>
+ <FRAME '\1aGET-AC>
+ <NTHUV AD5 2 = TEMP28 (TYPE ATOM)>
+ <DEAD AD5>
+ <GVAL TEMP28 = STACK>
+ <DEAD TEMP28>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = VAC9>
+ <FRAME '\1aPROTECT-USE>
+ <PUSH VAC9>
+ <CALL '\1aPROTECT-USE 1>
+ <FRAME '\1aMOVE-TYPE>
+ <PUSH ARG4>
+ <DEAD ARG4>
+ <NTHUV VAC9 2 = TEMP28 (TYPE FIX)>
+ <OR TEMP28 #WORD *120* = TEMP28>
+ <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
+ <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP28>
+ <CALL '\1aMOVE-TYPE 2>
+ <FRAME '\1aMUNG-AC>
+ <PUSH VAC9>
+ <DEAD VAC9>
+ <CALL '\1aMUNG-AC 1>
+ <JUMP + PHRASE67>
+PHRASE62
+ <NTHUV AD5 1 = TEMP28 (TYPE ATOM)>
+ <VEQUAL? TEMP28 'COUNT-VALUE-PAIR - PHRASE67>
+ <DEAD TEMP28>
+ <FRAME '\1aGET-AC>
+ <NTHUV AD5 2 = TEMP28 (TYPE ATOM)>
+ <DEAD AD5>
+ <GVAL TEMP28 = STACK>
+ <DEAD TEMP28>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = VAC9>
+ <FRAME '\1aPROTECT-USE>
+ <PUSH VAC9>
+ <CALL '\1aPROTECT-USE 1>
+ <FRAME '\1aLOAD-CONSTANT>
+ <PUSH VAC9>
+ <FRAME '\1aLENGTH>
+ <PUSH ARG4>
+ <DEAD ARG4>
+ <CALL '\1aLENGTH 1 = STACK>
+ <CALL '\1aLOAD-CONSTANT 2>
+ <FRAME '\1aMUNG-AC>
+ <PUSH VAC9>
+ <DEAD VAC9>
+ <CALL '\1aMUNG-AC 1>
+PHRASE67
+ <FRAME '\1aPUT>
+ <PUSH SARGS6>
+ <DEAD SARGS6>
+ <PUSH 1>
+ <PUSH #ARG-DONE 0>
+ <CALL '\1aPUT 3 = PRA11>
+PHRASE13
+ <RETURN PRA11>
+ <DEAD PRA11>
+ <END \1aPROCESS-RTE-ARG>
+
+#WORD *34163435240*
+ <GFCN \1aCHECK-AC-USE ("VALUE" <OR ATOM FALSE> TUPLE TUPLE VECTOR ANY "TUPLE" TUPLE) ARGS4 SARGS5 ADS6 ARG7>
+ <MAKTUP ACS8 TEMP18 AC20 TEMP36:VECTOR LINKVAR37:LINKVAR TEMP44 TEMP59 TEMP60 = ACS8>
+ <INTGO>
+ <SET TEMP18 %<> (TYPE FALSE)>
+ <CHTYPE ACS8 <TYPE-CODE VECTOR> = ACS8>
+ <LOOP>
+MAP10
+ <INTGO>
+ <EMPUV? ACS8 + MAPAP13>
+ <NTHUV ACS8 1 = AC20>
+ <TYPE? AC20 <TYPE-CODE ATOM> - PHRASE22>
+ <GVAL AC20 = AC20>
+PHRASE22
+ <SET TEMP18 AC20>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + MAPEX28>
+ <SET TEMP18 %<> (TYPE FALSE)>
+ <NTHUV AC20 8 = TEMP36 (TYPE VECTOR)>
+ <LOOP>
+MAP26
+ <INTGO>
+ <EMPUV? TEMP36 + MAPAP29>
+ <NTHUV TEMP36 1 = LINKVAR37>
+ <NTHUV LINKVAR37 1 = TEMP18 (TYPE VARTBL)>
+ <NTHUV LINKVAR37 6 = TEMP44>
+ <EQUAL? TEMP44 AC20 - BOOL43>
+ <DEAD TEMP44>
+ <NTHUV LINKVAR37 2 = TEMP44>
+ <TYPE? TEMP44 <TYPE-CODE FALSE> + TAG49>
+ <DEAD TEMP44>
+BOOL43
+ <NTHUV LINKVAR37 7 = TEMP44>
+ <EQUAL? TEMP44 AC20 - BOOL45>
+ <DEAD TEMP44>
+ <NTHUV LINKVAR37 4 = TEMP44>
+ <TYPE? TEMP44 <TYPE-CODE FALSE> + TAG49>
+ <DEAD TEMP44>
+BOOL45
+ <NTHUV LINKVAR37 8 = TEMP44>
+ <EQUAL? TEMP44 AC20 - BOOL46>
+ <DEAD TEMP44>
+ <NTHUV LINKVAR37 3 = TEMP44>
+ <TYPE? TEMP44 <TYPE-CODE FALSE> + TAG49>
+ <DEAD TEMP44>
+BOOL46
+ <NTHUV LINKVAR37 9 = TEMP44>
+ <EQUAL? TEMP44 AC20 + TAG48>
+ <DEAD TEMP44>
+ <SET TEMP18 %<> (TYPE FALSE)>
+ <JUMP + EXIT50>
+TAG48
+ <NTHUV LINKVAR37 4 = TEMP44>
+ <TYPE? TEMP44 <TYPE-CODE FALSE> + TAG49>
+ <DEAD TEMP44>
+ <SET TEMP18 %<> (TYPE FALSE)>
+ <JUMP + EXIT50>
+TAG49
+ <SET TEMP44 ARGS4>
+ <LOOP>
+AGAIN52
+ <INTGO>
+ <CHTYPE TEMP44 <TYPE-CODE VECTOR> = TEMP59>
+ <DEAD TEMP44>
+ <EMPUV? TEMP59 + TAG55>
+ <LOOP (TEMP18 VALUE) (TEMP59 LENGTH VALUE)>
+TAG57
+ <NTHUV TEMP59 1 = TEMP60>
+ <TYPE? TEMP60 <TYPE-CODE VARTBL> - TAG58>
+ <VEQUAL? TEMP60 TEMP18 + TAG56>
+ <DEAD TEMP60>
+TAG58
+ <RESTUV TEMP59 1 = TEMP59 (TYPE VECTOR)>
+ <EMPUV? TEMP59 - TAG57>
+TAG55
+ <SET TEMP44 %<> (TYPE FALSE)>
+ <JUMP + TAG61>
+TAG56
+ <SET TEMP44 TEMP59>
+ <DEAD TEMP59>
+TAG61
+ <VEQUAL? TEMP44 0 + PHRASE54>
+ <EQUAL? TEMP44 SARGS5 - PHRASE63>
+ <RESTUV TEMP44 1 = TEMP44 (TYPE VECTOR)>
+ <JUMP + AGAIN52>
+PHRASE63
+ <LENUV TEMP44 = TEMP59 (TYPE FIX)>
+ <LENUV SARGS5 = TEMP60 (TYPE FIX)>
+ <LESS? TEMP59 TEMP60 - PHRASE64 (TYPE FIX)>
+ <DEAD TEMP59 TEMP60>
+ <FRAME '\1aPROCESS-RTE-ARG>
+ <NTHUV TEMP44 1 = STACK>
+ <LENUV ADS6 = TEMP59 (TYPE FIX)>
+ <LENUV TEMP44 = TEMP60 (TYPE FIX)>
+ <SUB TEMP59 TEMP60 = TEMP59 (TYPE FIX)>
+ <DEAD TEMP60>
+ <ADD TEMP59 1 = TEMP59 (TYPE FIX)>
+ <NTHUV ADS6 TEMP59 = STACK>
+ <DEAD TEMP59>
+ <PUSH TEMP44>
+ <PUSH ARGS4>
+ <PUSH ADS6>
+ <CALL '\1aPROCESS-RTE-ARG 5>
+ <JUMP + AGAIN52>
+PHRASE64
+ <FRAME '\1aISTORE-VAR>
+ <PUSH LINKVAR37>
+ <DEAD LINKVAR37>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aISTORE-VAR 3>
+ <SET TEMP18 'T (TYPE ATOM)>
+ <JUMP + EXIT50>
+PHRASE54
+ <SET TEMP18 'T (TYPE ATOM)>
+EXIT50
+ <RESTUV TEMP36 1 = TEMP36 (TYPE VECTOR)>
+ <JUMP + MAP26>
+MAPAP29
+MAPEX28
+ <RESTUV ACS8 1 = ACS8 (TYPE VECTOR)>
+ <JUMP + MAP10>
+MAPAP13
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+ <END \1aCHECK-AC-USE>
+
+#WORD *26631011145*
+ <GFCN \1aRESET-FRAME-LABEL-TABLE ("VALUE" <LIST [REST SPEC-LABEL]>)>
+ <TEMP>
+ <INTGO>
+ <SETG 'FRAME-LABEL-TABLE ()>
+ <RETURN ()>
+ <END \1aRESET-FRAME-LABEL-TABLE>
+
+#WORD *15225464233*
+ <GFCN \1aSFRAME-GEN ("VALUE" ATOM "OPTIONAL" ANY) NAME6>
+ <OPT-DISPATCH 0 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP8:ATOM>
+ <INTGO>
+ <FRAME '\1aFRAME-GEN>
+ <PUSH NAME6>
+ <DEAD NAME6>
+ <PUSH 'T>
+ <CALL '\1aFRAME-GEN 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aSFRAME-GEN>
+
+#WORD *35141403346*
+ <GFCN \1aFRAME-GEN ("VALUE" ATOM "OPTIONAL" <OR FALSE ATOM> ANY) NAME7 SEG8>
+ <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP TEMP15 TLAB9 VAC11>
+ <INTGO>
+ <GVAL 'GLUE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE13>
+ <DEAD TEMP15>
+ <TYPE? NAME7 <TYPE-CODE FALSE> + PHRASE13>
+ <FRAME '\1aQUICK-CALL?>
+ <PUSH NAME7>
+ <DEAD NAME7>
+ <CALL '\1aQUICK-CALL? 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE13>
+ <DEAD TEMP15>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-CODE>
+ <TYPE? SEG8 <TYPE-CODE FALSE> + PHRASE20>
+ <DEAD SEG8>
+ <SET TEMP15 'QSFRAME (TYPE ATOM)>
+ <JUMP + PHRASE21>
+PHRASE20
+ <SET TEMP15 'QFRAME (TYPE ATOM)>
+PHRASE21
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = TLAB9>
+ <GVAL 'FRAME-LABEL-TABLE = TEMP15>
+ <CONS TLAB9 TEMP15 = TEMP15>
+ <SETG 'FRAME-LABEL-TABLE TEMP15>
+ <DEAD TEMP15>
+ <FRAME '\1aEMIT-PUSH-LABEL>
+ <PUSH TLAB9>
+ <DEAD TLAB9>
+ <CALL '\1aEMIT-PUSH-LABEL 1>
+ <FRAME '\1aEMIT-PUSH>
+ <GVAL 'AC-F = TEMP15>
+ <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = TLAB9>
+ <GVAL 'MAKTUP-FLAG = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE27>
+ <DEAD TEMP15>
+ <GVAL 'ICALL-LEVEL = TEMP15>
+ <VEQUAL? TEMP15 0 - PHRASE27 (TYPE FIX)>
+ <DEAD TEMP15>
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = VAC11>
+ <FRAME '\1aEMIT-MOVE>
+ <GVAL 'AC-F = TEMP15>
+ <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *240* = TEMP15>
+ <LSH TEMP15 8 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *374* = TEMP15>
+ <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <NTHUV VAC11 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aEMIT>
+ <PUSH 149>
+ <NTHUV VAC11 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *240* = TEMP15>
+ <LSH TEMP15 8 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *377* = TEMP15>
+ <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 25>
+ <PUSH TLAB9>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT-MOVE>
+ <NTHUV VAC11 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *240* = TEMP15>
+ <LSH TEMP15 8 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *374* = TEMP15>
+ <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <NTHUV VAC11 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH TLAB9>
+ <DEAD TLAB9>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT-PUSH>
+ <NTHUV VAC11 2 = TEMP15 (TYPE FIX)>
+ <DEAD VAC11>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <RETURN 'NORMAL>
+PHRASE27
+ <FRAME '\1aEMIT-PUSH>
+ <GVAL 'AC-F = TEMP15>
+ <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *240* = TEMP15>
+ <LSH TEMP15 8 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *374* = TEMP15>
+ <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 24>
+ <PUSH TLAB9>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT-MOVE>
+ <GVAL 'AC-F = TEMP15>
+ <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <GVAL 'AC-TP = TEMP15>
+ <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *240* = TEMP15>
+ <LSH TEMP15 8 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *374* = TEMP15>
+ <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH TLAB9>
+ <DEAD TLAB9>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <RETURN 'NORMAL>
+PHRASE13
+ <FRAME '\1aCALL-RTE>
+ <TYPE? SEG8 <TYPE-CODE FALSE> + PHRASE45>
+ <DEAD SEG8>
+ <GVAL 'ISFRAME!-MIMOP = TEMP15>
+ <JUMP + PHRASE46>
+PHRASE45
+ <GVAL 'IFRAME!-MIMOP = TEMP15>
+PHRASE46
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aCALL-RTE 4>
+ <RETURN 'NORMAL>
+ <END \1aFRAME-GEN>
+
+#WORD *2521202206*
+ <GFCN \1aSCALL-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY ANY "OPTIONAL" ANY) NAME6 NARGS7 RES8 DIR9 TAG10 COUNT11 HINT12>
+ <OPT-DISPATCH 6 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP14:ATOM>
+ <INTGO>
+ <FRAME '\1aCCALL-GEN>
+ <PUSH NAME6>
+ <DEAD NAME6>
+ <PUSH NARGS7>
+ <DEAD NARGS7>
+ <PUSH RES8>
+ <DEAD RES8>
+ <PUSH TAG10>
+ <DEAD TAG10>
+ <PUSH COUNT11>
+ <DEAD COUNT11>
+ <PUSH HINT12>
+ <DEAD HINT12>
+ <CALL '\1aCCALL-GEN 6 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aSCALL-GEN>
+
+#WORD *202023123*
+ <GFCN \1aCALL-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY ANY) NAME7 NARGS8 RES9 HINT10>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP TEMP12:ATOM>
+ <INTGO>
+ <FRAME '\1aCCALL-GEN>
+ <PUSH NAME7>
+ <DEAD NAME7>
+ <PUSH NARGS8>
+ <DEAD NARGS8>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH HINT10>
+ <DEAD HINT10>
+ <CALL '\1aCCALL-GEN 6 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aCALL-GEN>
+
+#WORD *34570424760*
+ <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>
+ <TEMP TLAB10 TEMP15 TEMP36:VECTOR X37:AC>
+ <INTGO>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = TLAB10>
+ <GVAL 'GLUE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE13>
+ <DEAD TEMP15>
+ <TYPE? NAME4 <TYPE-CODE ATOM> - PHRASE13>
+ <FRAME '\1aQUICK-CALL?>
+ <PUSH NAME4>
+ <CALL '\1aQUICK-CALL? 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE13>
+ <DEAD TEMP15>
+ <TYPE? NARGS5 <TYPE-CODE FIX> - PHRASE18>
+ <FRAME '\1aFLUSH-ALL-ACS>
+ <CALL '\1aFLUSH-ALL-ACS 0>
+ <FRAME '\1aEMIT>
+ <PUSH 222>
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-TP = STACK>
+ <MUL NARGS5 -8 = STACK (TYPE FIX)>
+ <CALL '\1aMA-DISP 2 = STACK>
+ <GVAL 'AC-F = TEMP15>
+ <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aLOAD-CONSTANT>
+ <GVAL 'AC-0 = STACK>
+ <PUSH NARGS5>
+ <CALL '\1aLOAD-CONSTANT 2>
+ <FRAME '\1aEMIT-CALL>
+ <PUSH NAME4>
+ <DEAD NAME4>
+ <PUSH NARGS5>
+ <DEAD NARGS5>
+ <CALL '\1aEMIT-CALL 2>
+ <JUMP + PHRASE24>
+PHRASE18
+ <FRAME '\1aLOAD-VAR>
+ <PUSH NARGS5>
+ <DEAD NARGS5>
+ <PUSH 'VALUE>
+ <PUSH 'T>
+ <GVAL 'AC-0 = STACK>
+ <CALL '\1aLOAD-VAR 4>
+ <GVAL 'ALL-ACS = TEMP36>
+ <LOOP>
+MAP27
+ <INTGO>
+ <EMPUV? TEMP36 + MAPAP30>
+ <NTHUV TEMP36 1 = X37>
+ <GVAL 'AC-0 = TEMP15>
+ <EQUAL? TEMP15 X37 + PHRASE39>
+ <DEAD TEMP15>
+ <FRAME '\1aMUNG-AC>
+ <PUSH X37>
+ <DEAD X37>
+ <CALL '\1aMUNG-AC 1>
+PHRASE39
+ <RESTUV TEMP36 1 = TEMP36 (TYPE VECTOR)>
+ <JUMP + MAP27>
+MAPAP30
+ <FRAME '\1aEMIT>
+ <PUSH 120>
+ <FRAME '\1aMA-IMM>
+ <PUSH 3>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-0 = TEMP15>
+ <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <GVAL 'AC-1 = TEMP15>
+ <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT>
+ <PUSH 195>
+ <GVAL 'AC-1 = TEMP15>
+ <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <GVAL 'AC-TP = TEMP15>
+ <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <GVAL 'AC-F = TEMP15>
+ <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT-CALL>
+ <PUSH NAME4>
+ <DEAD NAME4>
+ <PUSH -1>
+ <CALL '\1aEMIT-CALL 2>
+PHRASE24
+ <FRAME '\1aEMIT-LABEL>
+ <GVAL 'FRAME-LABEL-TABLE = TEMP15>
+ <NTHL TEMP15 1 = STACK (TYPE SPEC-LABEL)>
+ <DEAD TEMP15>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <GVAL 'FRAME-LABEL-TABLE = TEMP15>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <SETG 'FRAME-LABEL-TABLE TEMP15>
+ <DEAD TEMP15>
+ <TYPE? TAG7 <TYPE-CODE FALSE> + PHRASE48>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 17>
+ <PUSH TLAB10>
+ <PUSH %<>>
+ <PUSH 0>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aEMIT-BRANCH 6>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <GVAL 'AC-1 = TEMP15>
+ <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <FRAME '\1aADDR-VAR-VALUE>
+ <PUSH COUNT8>
+ <DEAD COUNT8>
+ <CALL '\1aADDR-VAR-VALUE 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 17>
+ <PUSH TAG7>
+ <DEAD TAG7>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+PHRASE48
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH TLAB10>
+ <DEAD TLAB10>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aSET-RTE-RESULT>
+ <GVAL 'MCALL!-MIMOP = TEMP15>
+ <NTHUV TEMP15 4 = STACK>
+ <DEAD TEMP15>
+ <PUSH RES6>
+ <DEAD RES6>
+ <PUSH HINT9>
+ <DEAD HINT9>
+ <CALL '\1aSET-RTE-RESULT 3>
+ <RETURN 'NORMAL>
+PHRASE13
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'MCALL!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <TYPE? TAG7 <TYPE-CODE FALSE> + PHRASE58>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + PHRASE59>
+PHRASE58
+ <SET TEMP15 RES6>
+PHRASE59
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH HINT9>
+ <PUSH NARGS5>
+ <DEAD NARGS5>
+ <PUSH NAME4>
+ <DEAD NAME4>
+ <CALL '\1aCALL-RTE 6>
+ <TYPE? TAG7 <TYPE-CODE FALSE> + PHRASE61>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH 17>
+ <PUSH TLAB10>
+ <PUSH %<>>
+ <PUSH 0>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aEMIT-BRANCH 6>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <GVAL 'AC-1 = TEMP15>
+ <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <FRAME '\1aADDR-VAR-VALUE>
+ <PUSH COUNT8>
+ <DEAD COUNT8>
+ <CALL '\1aADDR-VAR-VALUE 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 17>
+ <PUSH TAG7>
+ <DEAD TAG7>
+ <PUSH 'UNCONDITIONAL-BRANCH>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH TLAB10>
+ <DEAD TLAB10>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aSET-RTE-RESULT>
+ <GVAL 'MCALL!-MIMOP = TEMP15>
+ <NTHUV TEMP15 4 = STACK>
+ <DEAD TEMP15>
+ <PUSH RES6>
+ <DEAD RES6>
+ <PUSH HINT9>
+ <DEAD HINT9>
+ <CALL '\1aSET-RTE-RESULT 3>
+PHRASE61
+ <RETURN 'NORMAL>
+ <END \1aCCALL-GEN>
+
+#WORD *17351715105*
+ <GFCN \1aCALL-STACK-FUNCTION ("VALUE" ATOM TUPLE CALL-DESCRIPTOR <OR ATOM FALSE> "TUPLE" ANY) ARGS4 CALLR5 TYP6>
+ <MAKTUP CARGS7:TUPLE (CNT9:FIX 0) TEMP16 FARGS21 ARG22 DEST8 TEMP29 = CARGS7>
+ <INTGO>
+ <CHTYPE ARGS4 <TYPE-CODE VECTOR> = TEMP16>
+ <DEAD ARGS4>
+ <LOOP>
+MAP11
+ <INTGO>
+ <EMPUV? TEMP16 + MAPAP14>
+ <SET FARGS21 TEMP16>
+ <NTHUV FARGS21 1 = ARG22>
+ <EQUAL? ARG22 'STACK + BOOL25>
+ <TYPE? ARG22 <TYPE-CODE VARTBL> - PHRASE24>
+BOOL25
+ <SET DEST8 ARG22>
+PHRASE24
+ <LENUV FARGS21 = TEMP29 (TYPE FIX)>
+ <VEQUAL? TEMP29 1 + MAPAP14 (TYPE FIX)>
+ <DEAD TEMP29>
+ <NTHUV FARGS21 2 = TEMP29>
+ <DEAD FARGS21>
+ <TYPE? TEMP29 <TYPE-CODE LIST> + MAPAP14>
+ <DEAD TEMP29>
+ <FRAME '\1aPUSH-GEN>
+ <PUSH ARG22>
+ <DEAD ARG22>
+ <CALL '\1aPUSH-GEN 1>
+ <ADD CNT9 1 = CNT9 (TYPE FIX)>
+ <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
+ <JUMP + MAP11>
+MAPAP14
+ <FRAME '\1aCALL-RTE>
+ <PUSH CALLR5>
+ <DEAD CALLR5>
+ <PUSH 'CALL>
+ <PUSH DEST8>
+ <DEAD DEST8>
+ <PUSH TYP6>
+ <DEAD TYP6>
+ <SET FARGS21 5 (TYPE FIX)>
+ <SET TEMP16 CARGS7>
+ <DEAD CARGS7>
+ <LOOP (TEMP16 VALUE LENGTH) (FARGS21 VALUE)>
+TAG35
+ <INTGO>
+ <EMPUV? TEMP16 + TAG34>
+ <NTHUV TEMP16 1 = STACK>
+ <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
+ <ADD FARGS21 1 = FARGS21 (TYPE FIX)>
+ <JUMP + TAG35>
+TAG34
+ <PUSH CNT9>
+ <DEAD CNT9>
+ <CALL '\1aCALL-RTE FARGS21>
+ <DEAD FARGS21>
+ <RETURN 'NORMAL>
+ <END \1aCALL-STACK-FUNCTION>
+
+#WORD *103470262*
+ <GFCN \1aQUICK-CALL? ("VALUE" <OR ATOM FALSE> ATOM) NAME4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aFIND-CALL>
+ <PUSH NAME4>
+ <DEAD NAME4>
+ <GVAL 'GLUE-FCNS = STACK>
+ <CALL '\1aFIND-CALL 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aQUICK-CALL?>
+
+#WORD *13511443265*
+ <GFCN \1aCHANNEL-OP-GEN ("VALUE" ATOM ATOM ATOM VARTBL "TUPLE" ANY) TYPE4 OPER5 CHANNEL6>
+ <MAKTUP ARGS7 RES8 TEMP13 FROB9 ARG31 = ARGS7>
+ <INTGO>
+ <GVAL 'HAS-RESULT = RES8>
+ <GVAL 'GLUE = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
+ <DEAD TEMP13>
+ <FRAME '\1aCT-QUERY>
+ <PUSH TYPE4>
+ <PUSH OPER5>
+ <CALL '\1aCT-QUERY 2 = FROB9>
+ <TYPE? FROB9 <TYPE-CODE FALSE> + PHRASE11>
+ <FRAME '\1aQUICK-CALL?>
+ <PUSH FROB9>
+ <CALL '\1aQUICK-CALL? 1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE11>
+ <DEAD TEMP13>
+ <FRAME '\1aFRAME-GEN>
+ <PUSH FROB9>
+ <CALL '\1aFRAME-GEN 1>
+ <JUMP + PHRASE17>
+PHRASE11
+ <SET FROB9 %<> (TYPE FALSE)>
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IFRAME!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aCALL-RTE 4>
+PHRASE17
+ <FRAME '\1aPUSH-VAR>
+ <PUSH CHANNEL6>
+ <DEAD CHANNEL6>
+ <CALL '\1aPUSH-VAR 1>
+ <FRAME '\1aPUSH-CONSTANT>
+ <PUSH OPER5>
+ <CALL '\1aPUSH-CONSTANT 1>
+ <CHTYPE ARGS7 <TYPE-CODE VECTOR> = TEMP13>
+ <LOOP>
+MAP22
+ <INTGO>
+ <EMPUV? TEMP13 + MAPAP25>
+ <NTHUV TEMP13 1 = ARG31>
+ <TYPE? ARG31 <TYPE-CODE VARTBL> - PHRASE33>
+ <FRAME '\1aPUSH-VAR>
+ <PUSH ARG31>
+ <DEAD ARG31>
+ <CALL '\1aPUSH-VAR 1>
+ <JUMP + PHRASE35>
+PHRASE33
+ <FRAME '\1aPUSH-CONSTANT>
+ <PUSH ARG31>
+ <DEAD ARG31>
+ <CALL '\1aPUSH-CONSTANT 1>
+PHRASE35
+ <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
+ <JUMP + MAP22>
+MAPAP25
+ <FRAME '\1aFLUSH-ALL-ACS>
+ <CALL '\1aFLUSH-ALL-ACS 0>
+ <TYPE? FROB9 <TYPE-CODE FALSE> + PHRASE39>
+ <FRAME '\1aCALL-GEN>
+ <PUSH FROB9>
+ <DEAD FROB9>
+ <LENUV ARGS7 = FROB9 (TYPE FIX)>
+ <DEAD ARGS7>
+ <ADD FROB9 2 = STACK (TYPE FIX)>
+ <DEAD FROB9>
+ <PUSH RES8>
+ <DEAD RES8>
+ <CALL '\1aCALL-GEN 3 = ARGS7>
+ <RETURN ARGS7>
+ <DEAD ARGS7>
+PHRASE39
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aMA-DEF-DISP>
+ <GVAL 'AC-M = STACK>
+ <FRAME '\1aADD-MVEC>
+ <CONS OPER5 () = FROB9>
+ <DEAD OPER5>
+ <CONS TYPE4 FROB9 = FROB9>
+ <DEAD TYPE4>
+ <CHTYPE FROB9 <TYPE-CODE XCHANNEL-OP> = STACK>
+ <DEAD FROB9>
+ <CALL '\1aADD-MVEC 1 = FROB9>
+ <ADD FROB9 4 = STACK (TYPE FIX)>
+ <DEAD FROB9>
+ <CALL '\1aMA-DEF-DISP 2 = STACK>
+ <GVAL 'AC-0 = FROB9>
+ <NTHUV FROB9 2 = FROB9 (TYPE FIX)>
+ <OR FROB9 #WORD *120* = FROB9>
+ <LSH FROB9 24 = FROB9 (TYPE FIX)>
+ <CHTYPE FROB9 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD FROB9>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aMA-IMM>
+ <LENUV ARGS7 = FROB9 (TYPE FIX)>
+ <DEAD ARGS7>
+ <ADD FROB9 2 = STACK (TYPE FIX)>
+ <DEAD FROB9>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <GVAL 'AC-0 = FROB9>
+ <NTHUV FROB9 2 = FROB9 (TYPE FIX)>
+ <OR FROB9 #WORD *120* = FROB9>
+ <LSH FROB9 24 = FROB9 (TYPE FIX)>
+ <CHTYPE FROB9 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD FROB9>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aEMIT>
+ <PUSH 22>
+ <GVAL 'AC-PC = FROB9>
+ <NTHUV FROB9 2 = FROB9 (TYPE FIX)>
+ <OR FROB9 #WORD *220* = FROB9>
+ <LSH FROB9 24 = FROB9 (TYPE FIX)>
+ <CHTYPE FROB9 <TYPE-CODE EFF-ADDR> = FROB9>
+ <CONS FROB9 () = FROB9>
+ <FRAME '\1aLREV>
+ <GVAL 'MCALL!-MIMOP = TEMP13>
+ <NTHUV TEMP13 1 = STACK (TYPE FIX)>
+ <DEAD TEMP13>
+ <CALL '\1aLREV 1 = TEMP13>
+ <CHTYPE TEMP13 <TYPE-CODE EFF-ADDR> = TEMP13>
+ <CONS TEMP13 () = TEMP13>
+ <PUTREST FROB9 TEMP13>
+ <DEAD TEMP13>
+ <CHTYPE FROB9 <TYPE-CODE LADDR> = STACK>
+ <DEAD FROB9>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aSET-RTE-RESULT>
+ <GVAL 'MCALL!-MIMOP = FROB9>
+ <NTHUV FROB9 4 = STACK>
+ <DEAD FROB9>
+ <PUSH RES8>
+ <DEAD RES8>
+ <PUSH %<>>
+ <CALL '\1aSET-RTE-RESULT 3>
+ <FRAME '\1aCLEAR-STATUS>
+ <CALL '\1aCLEAR-STATUS 0>
+ <RETURN 'NORMAL>
+ <END \1aCHANNEL-OP-GEN>
projects / pdp10-muddle.git / blobdiff