--- /dev/null
+
+<SETG HAS-RESULT <>>
+
+#WORD *22544275571*
+<GFCN \1aMIMOC ("VALUE" ATOM <LIST [REST <OR FORM ATOM>]> "OPTIONAL" ANY) CODLIST6 NEW-MSUBR7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH 'T>
+OPT5
+ <TEMP TEMP3:LBIND LABEL?19 FROB?20 FIRST?21 PROTECT?22 TEMP26 CODITEM16 PPTR17 NUM14 TF23 OUTST73 TEMP85 STATUS8>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'CODPTR 'LIST 'FIX CODLIST6>
+ <DEAD CODLIST6>
+ <FRAME '\1aINIT-ALL-STUFF>
+ <PUSH NEW-MSUBR7>
+ <DEAD NEW-MSUBR7>
+ <CALL '\1aINIT-ALL-STUFF 1>
+ <SETG 'FLUSH-NEXT 0>
+ <SET LABEL?19 %<> (TYPE FALSE)>
+ <SET FROB?20 %<> (TYPE FALSE)>
+ <SET FIRST?21 'T (TYPE ATOM)>
+ <SET PROTECT?22 %<> (TYPE FALSE)>
+ <LOOP>
+AGAIN24
+ <INTGO>
+ <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP26 1 = PROTECT?22 (RECORD-TYPE LBIND)>
+ <DEAD TEMP26>
+ <NTHL PROTECT?22 1 = CODITEM16>
+ <DEAD PROTECT?22>
+ <NTHR 'CODPTR 2 = PROTECT?22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR PROTECT?22 1 = PPTR17 (RECORD-TYPE LBIND)>
+ <DEAD PROTECT?22>
+ <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
+ <RESTL TEMP26 1 = PROTECT?22 (TYPE LIST)>
+ <DEAD TEMP26>
+ <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP26 1 PROTECT?22 (RECORD-TYPE LBIND)>
+ <DEAD TEMP26 PROTECT?22>
+ <NTHR 'MAX-SPACE 1 = PROTECT?22 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL35)>
+ <TYPE? PROTECT?22 <TYPE-CODE FALSE> + BOOL35>
+ <NTHR PROTECT?22 1 = PROTECT?22 (RECORD-TYPE GBIND)>
+ <TYPE? PROTECT?22 <TYPE-CODE UNBOUND> + BOOL35>
+ <DEAD PROTECT?22>
+ <GVAL 'MAX-SPACE = PROTECT?22>
+ <TYPE? PROTECT?22 <TYPE-CODE FALSE> + BOOL35>
+ <DEAD PROTECT?22>
+ <PUTREST PPTR17 ()>
+ <DEAD PPTR17>
+BOOL35
+ <GVAL 'FLUSH-NEXT = PROTECT?22>
+ <GRTR? PROTECT?22 0 - COND40 (TYPE FIX)>
+ <DEAD PROTECT?22>
+ <GVAL 'FLUSH-NEXT = PROTECT?22>
+ <SUB PROTECT?22 1 = PROTECT?22 (TYPE FIX)>
+ <SETG 'FLUSH-NEXT PROTECT?22>
+ <DEAD PROTECT?22>
+ <NTHR 'CODPTR 2 = PROTECT?22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR PROTECT?22 1 = PROTECT?22 (RECORD-TYPE LBIND)>
+ <EMPL? PROTECT?22 - AGAIN24 (TYPE LIST)>
+ <DEAD PROTECT?22>
+ <JUMP + EXIT12>
+COND40
+ <FRAME '\1aUNPROTECT-ACS>
+ <CALL '\1aUNPROTECT-ACS 0>
+ <FRAME '\1aCLEAR-DEATH>
+ <CALL '\1aCLEAR-DEATH 0>
+ <FRAME '\1aGETPROP>
+ <PUSH CODITEM16>
+ <PUSH 'DONE>
+ <CALL '\1aGETPROP 2 = PROTECT?22>
+ <TYPE? PROTECT?22 <TYPE-CODE FALSE> - COND46>
+ <DEAD PROTECT?22>
+ <TYPE? CODITEM16 <TYPE-CODE FORM> - PHRASE48>
+ <NTHL CODITEM16 1 = PROTECT?22 (TYPE ATOM)>
+ <NTHR PROTECT?22 1 = TEMP26 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL51)>
+ <DEAD PROTECT?22>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> + BOOL51>
+ <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP26 <TYPE-CODE UNBOUND> + BOOL51>
+ <DEAD TEMP26>
+ <NTHL CODITEM16 1 = TEMP26 (TYPE ATOM)>
+ <GVAL TEMP26 = NUM14>
+ <DEAD TEMP26>
+ <TYPE? NUM14 <TYPE-CODE FIX> + PHRASE50>
+BOOL51
+ <FRAME '\1aERROR>
+ <PUSH "UNKNOWN">
+ <PUSH CODITEM16>
+ <CALL '\1aERROR 2>
+PHRASE50
+ <LESS? NUM14 0 - PHRASE54>
+ <SET PROTECT?22 'T (TYPE ATOM)>
+ <TYPE? NUM14 <TYPE-CODE FIX> - TAG57>
+ <SUB 0 NUM14 = NUM14 (TYPE FIX)>
+ <JUMP + PHRASE59>
+TAG57
+ <SUBF 0.0 NUM14 = NUM14 (TYPE FLOAT)>
+ <JUMP + PHRASE59>
+PHRASE54
+ <SET PROTECT?22 %<> (TYPE FALSE)>
+PHRASE59
+ <GVAL 'OP-APPLY-VECTOR = TEMP26>
+ <NTHUV TEMP26 NUM14 = PPTR17>
+ <DEAD TEMP26>
+ <NTHL CODITEM16 1 = TEMP26>
+ <EQUAL? TEMP26 'CALL!-MIMOP + BOOL61>
+ <DEAD TEMP26>
+ <NTHL CODITEM16 1 = TEMP26>
+ <EQUAL? TEMP26 'FRAME!-MIMOP + BOOL61>
+ <DEAD TEMP26>
+ <SET TF23 CODITEM16>
+ <CHTYPE TF23 <TYPE-CODE LIST> = TF23>
+ <LOOP (TF23 VALUE)>
+TAG65
+ <NTHL TF23 1 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE ATOM> - TAG66>
+ <VEQUAL? TEMP26 '+ + TAG68>
+ <DEAD TEMP26>
+TAG66
+ <RESTL TF23 1 = TF23 (TYPE LIST)>
+ <EMPL? TF23 - TAG65>
+ <SET TF23 CODITEM16>
+ <CHTYPE TF23 <TYPE-CODE LIST> = TF23>
+ <LOOP (TF23 VALUE)>
+TAG69
+ <NTHL TF23 1 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE ATOM> - TAG70>
+ <VEQUAL? TEMP26 '- + TAG68>
+ <DEAD TEMP26>
+TAG70
+ <RESTL TF23 1 = TF23 (TYPE LIST)>
+ <EMPL? TF23 - TAG69>
+ <SET TF23 %<> (TYPE FALSE)>
+TAG68
+ <VEQUAL? TF23 0 + BOOL61>
+ <GVAL 'OUTST-LABEL-TABLE = OUTST73>
+ <RESTL TF23 1 = TF23 (TYPE LIST)>
+ <NTHL TF23 1 = TEMP26>
+ <DEAD TF23>
+ <SET TEMP85 %<> (TYPE FALSE)>
+ <SET TF23 OUTST73 (TYPE VECTOR)>
+ <DEAD OUTST73>
+ <LOOP>
+MAP78
+ <INTGO>
+ <EMPUV? TF23 + MAPAP81>
+ <NTHUV TF23 1 = OUTST73>
+ <NTHUV OUTST73 1 = TEMP85>
+ <EQUAL? TEMP85 TEMP26 + TAG90>
+ <DEAD TEMP85>
+ <SET TEMP85 %<> (TYPE FALSE)>
+ <JUMP + COND92>
+TAG90
+ <NTHUV OUTST73 5 = TEMP85>
+ <DEAD OUTST73>
+ <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE93>
+ <DEAD TEMP85>
+ <SET TEMP26 'T (TYPE ATOM)>
+ <JUMP + MAPEX80>
+PHRASE93
+ <SET TEMP26 %<> (TYPE FALSE)>
+ <JUMP + MAPEX80>
+COND92
+ <RESTUV TF23 1 = TF23 (TYPE VECTOR)>
+ <JUMP + MAP78>
+MAPAP81
+ <SET TEMP26 TEMP85>
+ <DEAD TEMP85>
+MAPEX80
+ <TYPE? TEMP26 <TYPE-CODE FALSE> - COND60>
+ <DEAD TEMP26>
+BOOL61
+ <FRAME '\1aSET-DEATH>
+ <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP26>
+ <CALL '\1aSET-DEATH 1>
+COND60
+ <VEQUAL? NUM14 -1 - PHRASE99 (TYPE FIX)>
+ <FRAME '\1aERROR>
+ <PUSH "BAD OPERATION">
+ <PUSH 'MIMOC>
+ <PUSH CODITEM16>
+ <CALL '\1aERROR 3>
+PHRASE99
+ <GVAL 'DEAD!-MIMOP = TEMP26>
+ <EQUAL? TEMP26 NUM14 - PHRASE104>
+ <DEAD TEMP26>
+ <VEQUAL? LABEL?19 0 - PHRASE104>
+ <DEAD LABEL?19>
+ <SET LABEL?19 STATUS8>
+ <DEAD STATUS8>
+ <JUMP + COND103>
+PHRASE104
+ <SET LABEL?19 %<> (TYPE FALSE)>
+COND103
+ <VEQUAL? FIRST?21 0 + PHRASE107>
+ <SET FIRST?21 %<> (TYPE FALSE)>
+ <SET FROB?20 %<> (TYPE FALSE)>
+ <JUMP + PHRASE110>
+PHRASE107
+ <TYPE? FROB?20 <TYPE-CODE FALSE> - PHRASE110>
+ <FRAME '\1aFIRST-PROCESS>
+ <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP26>
+ <CALL '\1aFIRST-PROCESS 1 = FROB?20>
+ <EQUAL? FROB?20 'TEMP!-MIMOP + PHRASE110>
+ <FRAME '\1aILDB-LOOKAHEAD>
+ <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP26>
+ <CALL '\1aILDB-LOOKAHEAD 1>
+PHRASE110
+ <GVAL 'PASS-OPS = TF23>
+ <EMPUU? TF23 + PHRASE118>
+ <LOOP (NUM14 VALUE) (TF23 LENGTH VALUE)>
+TAG120
+ <NTHUU TF23 1 = TEMP26>
+ <VEQUAL? TEMP26 NUM14 + TAG119>
+ <DEAD TEMP26>
+ <RESTUU TF23 1 = TF23 (TYPE UVECTOR)>
+ <EMPUU? TF23 - TAG120>
+ <JUMP + PHRASE118>
+TAG119
+ <FRAME>
+ <SET TEMP26 0 (TYPE FIX)>
+ <RESTL CODITEM16 1 = TF23 (TYPE LIST)>
+ <CHTYPE TF23 <TYPE-CODE LIST> = TF23>
+ <LOOP (TF23 VALUE) (TEMP26 VALUE)>
+TAG123
+ <INTGO>
+ <EMPL? TF23 + TAG122>
+ <NTHL TF23 1 = STACK>
+ <RESTL TF23 1 = TF23 (TYPE LIST)>
+ <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
+ <JUMP + TAG123>
+TAG122
+ <ACALL PPTR17 TEMP26 = STATUS8>
+ <DEAD PPTR17 TEMP26>
+ <JUMP + PHRASE125>
+PHRASE118
+ <FRAME '\1aPROCESS-ARGS>
+ <RESTL CODITEM16 1 = TF23 (TYPE LIST)>
+ <CHTYPE TF23 <TYPE-CODE LIST> = STACK>
+ <DEAD TF23>
+ <PUSH NUM14>
+ <PUSH PROTECT?22>
+ <DEAD PROTECT?22>
+ <CALL '\1aPROCESS-ARGS 3 = OUTST73>
+ <FRAME>
+ <SET TF23 0 (TYPE FIX)>
+ <SET TEMP26 OUTST73>
+ <DEAD OUTST73>
+ <LOOP (TEMP26 VALUE LENGTH) (TF23 VALUE)>
+TAG128
+ <INTGO>
+ <EMPUV? TEMP26 + TAG127>
+ <NTHUV TEMP26 1 = STACK>
+ <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
+ <ADD TF23 1 = TF23 (TYPE FIX)>
+ <JUMP + TAG128>
+TAG127
+ <ACALL PPTR17 TF23 = STATUS8>
+ <DEAD PPTR17 TF23>
+PHRASE125
+ <TYPE? FROB?20 <TYPE-CODE FALSE> + BOOL132>
+ <NTHL CODITEM16 1 = TEMP26>
+ <EQUAL? TEMP26 'MAKTUP!-MIMOP + BOOL132>
+ <DEAD TEMP26>
+ <NTHL CODITEM16 1 = TEMP26>
+ <DEAD CODITEM16>
+ <EQUAL? TEMP26 'OPT-DISPATCH!-MIMOP - PHRASE134>
+ <DEAD TEMP26>
+BOOL132
+ <FRAME '\1aFIRST-PROCESS>
+ <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP26>
+ <CALL '\1aFIRST-PROCESS 1 = FROB?20>
+ <EQUAL? FROB?20 'TEMP!-MIMOP + PHRASE134>
+ <FRAME '\1aILDB-LOOKAHEAD>
+ <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP26>
+ <CALL '\1aILDB-LOOKAHEAD 1>
+PHRASE134
+ <TYPE? LABEL?19 <TYPE-CODE FALSE> + PHRASE142>
+ <SET STATUS8 LABEL?19>
+ <DEAD LABEL?19>
+ <SET LABEL?19 %<> (TYPE FALSE)>
+ <JUMP + PHRASE143>
+PHRASE142
+ <TYPE? STATUS8 <TYPE-CODE FALSE> - PHRASE143>
+ <SET STATUS8 'NORMAL (TYPE ATOM)>
+PHRASE143
+ <SET LABEL?19 %<> (TYPE FALSE)>
+ <JUMP + COND46>
+PHRASE48
+ <TYPE? CODITEM16 <TYPE-CODE ATOM> - PHRASE144>
+ <SET LABEL?19 'T (TYPE ATOM)>
+ <FRAME '\1aGEN-LABEL>
+ <PUSH CODITEM16>
+ <DEAD CODITEM16>
+ <PUSH STATUS8>
+ <CALL '\1aGEN-LABEL 2>
+ <JUMP + COND46>
+PHRASE144
+ <FRAME '\1aERROR>
+ <PUSH "BAD CODE ITEM">
+ <PUSH 'MIMOC>
+ <CALL '\1aERROR 2>
+COND46
+ <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
+ <EMPL? TEMP26 - AGAIN24 (TYPE LIST)>
+ <DEAD TEMP26>
+EXIT12
+ <FRAME '\1aPUSH-TEMPS>
+ <CALL '\1aPUSH-TEMPS 0>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -9>
+ <RETURN 'T>
+ <END \1aMIMOC>
+#WORD *12140463432*
+<GFCN \1aSET-DEATH ("VALUE" ANY LIST "OPTIONAL" ANY) CODPTR6 REALLY-DEAD7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP N8:FIX TEMP18 TEMP15:LIST CODITEM20 TEMP45:LIST>
+ <INTGO>
+ <GVAL 'FLUSH-NEXT = N8>
+ <SET TEMP18 %<> (TYPE FALSE)>
+ <SET TEMP15 CODPTR6 (TYPE LIST)>
+ <DEAD CODPTR6>
+ <LOOP>
+MAP10
+ <INTGO>
+ <EMPL? TEMP15 + MAPAP13>
+ <NTHL TEMP15 1 = CODITEM20>
+ <TYPE? CODITEM20 <TYPE-CODE FORM> - PHRASE23>
+ <SUB N8 1 = N8 (TYPE FIX)>
+ <LESS? N8 0 + TAG27 (TYPE FIX)>
+ <SET TEMP18 %<> (TYPE FALSE)>
+ <JUMP + COND22>
+TAG27
+ <FRAME '\1aGETPROP>
+ <PUSH CODITEM20>
+ <PUSH 'DONE>
+ <CALL '\1aGETPROP 2 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + TAG32>
+ <DEAD TEMP18>
+ <SET TEMP18 %<> (TYPE FALSE)>
+ <JUMP + COND22>
+TAG32
+ <NTHL CODITEM20 1 = TEMP18>
+ <EQUAL? TEMP18 'DEAD!-MIMOP - PHRASE34>
+ <DEAD TEMP18>
+ <SET TEMP18 %<> (TYPE FALSE)>
+ <RESTL CODITEM20 1 = TEMP45 (TYPE LIST)>
+ <DEAD CODITEM20>
+ <CHTYPE TEMP45 <TYPE-CODE LIST> = TEMP45>
+ <LOOP>
+MAP36
+ <INTGO>
+ <EMPL? TEMP45 + MAPAP39>
+ <NTHL TEMP45 1 = CODITEM20>
+ <TYPE? CODITEM20 <TYPE-CODE VARTBL> + TAG49>
+ <SET TEMP18 %<> (TYPE FALSE)>
+ <JUMP + PHRASE52>
+TAG49
+ <PUTUV CODITEM20 5 'T>
+ <SET TEMP18 REALLY-DEAD7>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE52>
+ <FRAME '\1aDEAD-VAR>
+ <PUSH CODITEM20>
+ <DEAD CODITEM20>
+ <CALL '\1aDEAD-VAR 1 = TEMP18>
+PHRASE52
+ <RESTL TEMP45 1 = TEMP45 (TYPE LIST)>
+ <JUMP + MAP36>
+MAPAP39
+ <JUMP + COND22>
+PHRASE34
+ <RETURN 'T>
+PHRASE23
+ <RETURN 'T>
+COND22
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <JUMP + MAP10>
+MAPAP13
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+ <END \1aSET-DEATH>
+<SETG ARGVEC <IVECTOR ,MAX-NUMBER-ARGS>>
+
+#WORD *5012437231*
+<GFCN \1aFIRST-PROCESS ("VALUE" <OR ATOM FALSE <LIST ANY>> <LIST [REST <OR FORM ATOM>]>) L4>
+ <TEMP FP6 TEMP13:LIST X18 TEMP33 TEMP34 PTR36:LIST>
+ <INTGO>
+ <SET FP6 %<> (TYPE FALSE)>
+ <SET TEMP13 L4 (TYPE LIST)>
+ <DEAD L4>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPL? TEMP13 + MAPAP11>
+ <NTHL TEMP13 1 = X18>
+ <TYPE? X18 <TYPE-CODE FORM> + TAG22>
+ <SET FP6 %<> (TYPE FALSE)>
+ <JUMP + PHRASE95>
+TAG22
+ <NTHL X18 1 = FP6 (TYPE ATOM)>
+ <NTHR FP6 1 = FP6 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG26)>
+ <TYPE? FP6 <TYPE-CODE FALSE> + TAG26>
+ <NTHR FP6 1 = FP6 (RECORD-TYPE GBIND)>
+ <TYPE? FP6 <TYPE-CODE UNBOUND> - TAG25>
+ <DEAD FP6>
+TAG26
+ <SET FP6 %<> (TYPE FALSE)>
+ <JUMP + PHRASE95>
+TAG25
+ <NTHL X18 1 = FP6 (TYPE ATOM)>
+ <GVAL FP6 = TEMP33>
+ <DEAD FP6>
+ <GVAL 'PASS-OPS = FP6>
+ <TYPE? TEMP33 <TYPE-CODE FIX> - TAG30>
+ <EMPUU? FP6 + TAG30>
+ <LOOP (TEMP33 VALUE) (FP6 LENGTH VALUE)>
+TAG31
+ <NTHUU FP6 1 = TEMP34>
+ <VEQUAL? TEMP34 TEMP33 + PHRASE29>
+ <DEAD TEMP34>
+ <RESTUU FP6 1 = FP6 (TYPE UVECTOR)>
+ <EMPUU? FP6 - TAG31>
+TAG30
+ <RESTL X18 1 = PTR36 (TYPE LIST)>
+ <CHTYPE PTR36 <TYPE-CODE LIST> = PTR36>
+ <LOOP>
+AGAIN40
+ <INTGO>
+ <EMPL? PTR36 - PHRASE42 (TYPE LIST)>
+ <SET FP6 'T (TYPE ATOM)>
+ <JUMP + PHRASE95>
+PHRASE42
+ <NTHL PTR36 1 = FP6>
+ <EQUAL? FP6 '= - PHRASE44>
+ <CHTYPE FP6 <TYPE-CODE RES-IND> = TEMP33>
+ <DEAD FP6>
+ <PUTL PTR36 1 TEMP33>
+ <DEAD TEMP33>
+ <RESTL PTR36 1 = PTR36 (TYPE LIST)>
+ <NTHL PTR36 1 = FP6>
+ <EQUAL? FP6 'STACK + PHRASE59>
+ <FRAME '\1aFIND-VAR>
+ <PUSH FP6>
+ <DEAD FP6>
+ <CALL '\1aFIND-VAR 1 = FP6>
+ <TYPE? FP6 <TYPE-CODE FALSE> + PHRASE46>
+ <PUTL PTR36 1 FP6>
+ <DEAD FP6>
+ <JUMP + PHRASE59>
+PHRASE46
+ <FRAME '\1aERROR>
+ <PUSH "NOT A VARIABLE">
+ <NTHL PTR36 1 = STACK>
+ <PUSH 'PROCESS-ARGS>
+ <CALL '\1aERROR 3>
+ <JUMP + PHRASE59>
+PHRASE44
+ <TYPE? FP6 <TYPE-CODE ATOM> - PHRASE49>
+ <FRAME '\1aFIND-VAR>
+ <PUSH FP6>
+ <DEAD FP6>
+ <CALL '\1aFIND-VAR 1 = FP6>
+ <TYPE? FP6 <TYPE-CODE FALSE> + PHRASE59>
+ <PUTUV FP6 5 %<>>
+ <PUTL PTR36 1 FP6>
+ <DEAD FP6>
+ <JUMP + PHRASE59>
+PHRASE49
+ <TYPE? FP6 <TYPE-CODE FORM> - PHRASE53>
+ <EMPL? FP6 + PHRASE53>
+ <RESTL FP6 1 = TEMP33 (TYPE LIST)>
+ <EMPL? TEMP33 + PHRASE53>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <EMPL? TEMP33 - PHRASE53>
+ <DEAD TEMP33>
+ <NTHL FP6 1 = TEMP33>
+ <EQUAL? TEMP33 'TYPE - PHRASE53>
+ <DEAD TEMP33>
+ <NTHL X18 1 = TEMP33>
+ <EQUAL? TEMP33 'CHTYPE!-MIMOP - PHRASE53>
+ <DEAD TEMP33>
+ <FRAME '\1aFIND-VAR>
+ <RESTL FP6 1 = TEMP33 (TYPE LIST)>
+ <DEAD FP6>
+ <NTHL TEMP33 1 = STACK>
+ <DEAD TEMP33>
+ <CALL '\1aFIND-VAR 1 = FP6>
+ <TYPE? FP6 <TYPE-CODE FALSE> + PHRASE59>
+ <FRAME '\1aFORM>
+ <PUSH 'TYPE>
+ <PUSH FP6>
+ <CALL '\1aFORM 2 = TEMP33>
+ <PUTL PTR36 1 TEMP33>
+ <DEAD TEMP33>
+ <PUTUV FP6 5 %<>>
+ <DEAD FP6>
+ <JUMP + PHRASE59>
+PHRASE53
+ <TYPE? FP6 <TYPE-CODE FORM> - PHRASE59>
+ <EMPL? FP6 + PHRASE59>
+ <RESTL FP6 1 = TEMP33 (TYPE LIST)>
+ <EMPL? TEMP33 + PHRASE59>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <EMPL? TEMP33 - PHRASE59>
+ <DEAD TEMP33>
+ <NTHL FP6 1 = TEMP34>
+ <EQUAL? TEMP34 'QUOTE + BOOL61>
+ <EQUAL? TEMP34 'TYPE-CODE - PHRASE59>
+BOOL61
+ <RESTL FP6 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE ATOM> - PHRASE59>
+ <DEAD TEMP33>
+ <RESTL FP6 1 = TEMP33 (TYPE LIST)>
+ <DEAD FP6>
+ <NTHL TEMP33 1 = FP6 (TYPE ATOM)>
+ <DEAD TEMP33>
+ <EQUAL? TEMP34 'TYPE-CODE - BOOL62>
+ <DEAD TEMP34>
+ <FRAME '\1aCHECK-MIMOP-TYPE>
+ <PUSH FP6>
+ <CALL '\1aCHECK-MIMOP-TYPE 1 = TEMP34>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> + BOOL62>
+ <SET FP6 TEMP34>
+ <DEAD TEMP34>
+BOOL62
+ <PUTL PTR36 1 FP6>
+ <DEAD FP6>
+PHRASE59
+ <RESTL PTR36 1 = PTR36 (TYPE LIST)>
+ <JUMP + AGAIN40>
+PHRASE29
+ <NTHL X18 1 = TEMP33 (TYPE ATOM)>
+ <VEQUAL? TEMP33 'TEMP!-MIMOP - PHRASE64>
+ <DEAD TEMP33>
+ <GETS 'BIND = TEMP33 (TYPE LBIND)>
+ <BBIND 'FIRST-PROCESS? 'ATOM 'FIX 'T>
+ <FRAME '\1aTEMP-PROCESS>
+ <SET FP6 0 (TYPE FIX)>
+ <RESTL X18 1 = TEMP34 (TYPE LIST)>
+ <CHTYPE TEMP34 <TYPE-CODE LIST> = TEMP34>
+ <LOOP (TEMP34 VALUE) (FP6 VALUE)>
+TAG70
+ <INTGO>
+ <EMPL? TEMP34 + TAG68>
+ <NTHL TEMP34 1 = STACK>
+ <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
+ <ADD FP6 1 = FP6 (TYPE FIX)>
+ <JUMP + TAG70>
+TAG68
+ <CALL '\1aTEMP-PROCESS FP6>
+ <DEAD FP6>
+ <UNBIND TEMP33>
+ <DEAD TEMP33>
+ <ADJ -9>
+ <SET FP6 %<> (TYPE FALSE)>
+ <RESTL X18 1 = TEMP33 (TYPE LIST)>
+ <DEAD X18>
+ <CHTYPE TEMP33 <TYPE-CODE LIST> = TEMP33>
+ <LOOP>
+MAP73
+ <INTGO>
+ <EMPL? TEMP33 + MAPAP76>
+ <SET PTR36 TEMP33>
+ <NTHL PTR36 1 = FP6>
+ <TYPE? FP6 <TYPE-CODE LIST> - PHRASE84>
+ <NTHL FP6 1 = X18>
+ <TYPE? X18 <TYPE-CODE ADECL> - PHRASE86>
+ <DEAD X18>
+ <FRAME '\1aFIND-VAR>
+ <NTHL FP6 1 = X18 (TYPE ADECL)>
+ <NTHUV X18 1 = STACK>
+ <DEAD X18>
+ <CALL '\1aFIND-VAR 1 = X18>
+ <PUTL FP6 1 X18>
+ <DEAD X18>
+ <JUMP + PHRASE93>
+PHRASE86
+ <FRAME '\1aFIND-VAR>
+ <NTHL FP6 1 = STACK>
+ <CALL '\1aFIND-VAR 1 = X18>
+ <PUTL FP6 1 X18>
+ <DEAD X18>
+ <JUMP + PHRASE93>
+PHRASE84
+ <TYPE? FP6 <TYPE-CODE ADECL> - PHRASE91>
+ <FRAME '\1aFIND-VAR>
+ <NTHUV FP6 1 = STACK>
+ <DEAD FP6>
+ <CALL '\1aFIND-VAR 1 = X18>
+ <PUTL PTR36 1 X18>
+ <DEAD X18>
+ <SET FP6 PTR36>
+ <DEAD PTR36>
+ <JUMP + PHRASE93>
+PHRASE91
+ <FRAME '\1aFIND-VAR>
+ <PUSH FP6>
+ <DEAD FP6>
+ <CALL '\1aFIND-VAR 1 = X18>
+ <PUTL PTR36 1 X18>
+ <DEAD X18>
+ <SET FP6 PTR36>
+ <DEAD PTR36>
+PHRASE93
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <JUMP + MAP73>
+MAPAP76
+ <JUMP + PHRASE95>
+PHRASE64
+ <NTHL X18 1 = TEMP33 (TYPE ATOM)>
+ <VEQUAL? TEMP33 'MAKTUP!-MIMOP + TAG97>
+ <DEAD TEMP33>
+ <NTHL X18 1 = TEMP33 (TYPE ATOM)>
+ <DEAD X18>
+ <VEQUAL? TEMP33 'OPT-DISPATCH!-MIMOP + TAG97>
+ <DEAD TEMP33>
+ <SET FP6 %<> (TYPE FALSE)>
+ <JUMP + PHRASE95>
+TAG97
+ <RETURN 'TEMP!-MIMOP>
+PHRASE95
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <JUMP + MAP8>
+MAPAP11
+ <RETURN FP6>
+ <DEAD FP6>
+ <END \1aFIRST-PROCESS>
+#WORD *366300014*
+<GFCN \1aPROCESS-ARGS ("VALUE" VECTOR LIST FIX ANY) LST4 NUM5 PROTECT?6>
+ <TEMP (CNT7:FIX 1) ARGS8 PTR14 ITEM15 TEMP24 TEMP29>
+ <INTGO>
+ <GVAL 'ARGVEC = ARGS8>
+ <SETG 'HAS-RESULT %<>>
+ <SET PTR14 LST4>
+ <DEAD LST4>
+ <LOOP>
+AGAIN16
+ <INTGO>
+ <EMPL? PTR14 + EXIT12 (TYPE LIST)>
+ <NTHL PTR14 1 = ITEM15>
+ <TYPE? ITEM15 <TYPE-CODE RES-IND> - PHRASE20>
+ <RESTL PTR14 1 = PTR14 (TYPE LIST)>
+ <NTHL PTR14 1 = ITEM15>
+ <GVAL 'CHANNEL-OP!-MIMOP = TEMP24>
+ <EQUAL? TEMP24 NUM5 + BOOL23>
+ <DEAD TEMP24>
+ <GVAL 'DOUBLE!-MIMOP = TEMP24>
+ <EQUAL? TEMP24 NUM5 - PHRASE22>
+ <DEAD TEMP24>
+BOOL23
+ <SETG 'HAS-RESULT ITEM15>
+ <DEAD ITEM15>
+ <RESTL PTR14 1 = PTR14 (TYPE LIST)>
+ <JUMP + AGAIN16>
+PHRASE22
+ <EQUAL? ITEM15 'STACK + PHRASE34>
+ <GVAL 'DEAD-MIM-CODES = TEMP24>
+ <EMPUU? TEMP24 + PHRASE34>
+ <LOOP (NUM5 VALUE) (TEMP24 LENGTH VALUE)>
+TAG27
+ <NTHUU TEMP24 1 = TEMP29>
+ <VEQUAL? TEMP29 NUM5 + TAG26>
+ <DEAD TEMP29>
+ <RESTUU TEMP24 1 = TEMP24 (TYPE UVECTOR)>
+ <EMPUU? TEMP24 - TAG27>
+ <JUMP + PHRASE34>
+TAG26
+ <PUTUV ITEM15 5 'T>
+ <JUMP + PHRASE34>
+PHRASE20
+ <TYPE? ITEM15 <TYPE-CODE VARTBL> - PHRASE30>
+ <TYPE? PROTECT?6 <TYPE-CODE FALSE> + PHRASE32>
+ <FRAME '\1aPROTECT-VAL>
+ <PUSH ITEM15>
+ <CALL '\1aPROTECT-VAL 1>
+PHRASE32
+ <PUTUV ITEM15 5 %<>>
+ <JUMP + PHRASE34>
+PHRASE30
+ <TYPE? ITEM15 <TYPE-CODE FORM> - PHRASE34>
+ <EMPL? ITEM15 + PHRASE34>
+ <RESTL ITEM15 1 = TEMP24 (TYPE LIST)>
+ <EMPL? TEMP24 + PHRASE34>
+ <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
+ <EMPL? TEMP24 - PHRASE34>
+ <DEAD TEMP24>
+ <NTHL ITEM15 1 = TEMP24>
+ <EQUAL? TEMP24 'TYPE - PHRASE34>
+ <DEAD TEMP24>
+ <GVAL 'CHTYPE!-MIMOP = TEMP24>
+ <EQUAL? TEMP24 NUM5 - PHRASE34>
+ <DEAD TEMP24>
+ <TYPE? PROTECT?6 <TYPE-CODE FALSE> + PHRASE37>
+ <FRAME '\1aPROTECT-VAL>
+ <RESTL ITEM15 1 = TEMP24 (TYPE LIST)>
+ <NTHL TEMP24 1 = STACK>
+ <DEAD TEMP24>
+ <CALL '\1aPROTECT-VAL 1>
+PHRASE37
+ <RESTL ITEM15 1 = TEMP24 (TYPE LIST)>
+ <NTHL TEMP24 1 = TEMP24 (TYPE VARTBL)>
+ <PUTUV TEMP24 5 %<>>
+ <DEAD TEMP24>
+PHRASE34
+ <LENUV ARGS8 = TEMP24 (TYPE FIX)>
+ <GRTR? CNT7 TEMP24 - PHRASE40 (TYPE FIX)>
+ <DEAD TEMP24>
+ <LENUV ARGS8 = TEMP24 (TYPE FIX)>
+ <ADD TEMP24 50 = TEMP24 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE VECTOR> TEMP24 = TEMP29 (TYPE VECTOR)>
+ <DEAD TEMP24>
+ <SETG 'ARGVEC TEMP29>
+ <DEAD TEMP29>
+ <LENUV ARGS8 = TEMP29 (TYPE FIX)>
+ <GVAL 'ARGVEC = TEMP24>
+ <MOVE-WORDS ARGS8 TEMP24 TEMP29 (TYPE VECTOR) (DIRECTION %<>)>
+ <DEAD ARGS8 TEMP29>
+ <SET ARGS8 TEMP24>
+ <DEAD TEMP24>
+PHRASE40
+ <PUTUV ARGS8 CNT7 ITEM15>
+ <DEAD ITEM15>
+ <ADD CNT7 1 = CNT7 (TYPE FIX)>
+ <RESTL PTR14 1 = PTR14 (TYPE LIST)>
+ <JUMP + AGAIN16>
+EXIT12
+ <LENUV ARGS8 = TEMP24 (TYPE FIX)>
+ <SUB CNT7 1 = TEMP29 (TYPE FIX)>
+ <SUB TEMP24 TEMP29 = PTR14 (TYPE FIX)>
+ <DEAD TEMP24 TEMP29>
+ <SUB CNT7 1 = TEMP29 (TYPE FIX)>
+ <DEAD CNT7>
+ <RESTUV ARGS8 PTR14 = TEMP24 (TYPE VECTOR)>
+ <DEAD PTR14>
+ <MOVE-WORDS ARGS8 TEMP24 TEMP29 (TYPE VECTOR) (DIRECTION %<>)>
+ <DEAD ARGS8 TEMP29>
+ <RETURN TEMP24>
+ <DEAD TEMP24>
+ <END \1aPROCESS-ARGS>
+<GDECL (DEAD-MIM-CODES) <UVECTOR [REST FIX]>>
+
+#WORD *32151370366*
+<GFCN \1aINIT-ALL-STUFF ("VALUE" ANY BOOLEAN) RESET-ALL4>
+ <TEMP TEMP22>
+ <INTGO>
+ <SETG 'MAKTUP-FLAG %<>>
+ <SETG 'ICALL-LEVEL 0>
+ <FRAME '\1aRESET-AC-STACK-MODEL>
+ <CALL '\1aRESET-AC-STACK-MODEL 0>
+ <FRAME '\1aRESET-CODE>
+ <CALL '\1aRESET-CODE 0>
+ <TYPE? RESET-ALL4 <TYPE-CODE FALSE> + PHRASE8>
+ <FRAME '\1aRESET-FCODE>
+ <CALL '\1aRESET-FCODE 0>
+ <FRAME '\1aRESET-CONSTANTS>
+ <CALL '\1aRESET-CONSTANTS 0>
+ <FRAME '\1aINIT-MVEC-STUFF>
+ <CALL '\1aINIT-MVEC-STUFF 0>
+ <FRAME '\1aINIT-UNRESOLVED-CALLS>
+ <CALL '\1aINIT-UNRESOLVED-CALLS 0>
+ <FRAME '\1aINIT-CALL-ENTRYS>
+ <CALL '\1aINIT-CALL-ENTRYS 0>
+PHRASE8
+ <FRAME '\1aINIT-LABEL-TABLE>
+ <PUSH RESET-ALL4>
+ <DEAD RESET-ALL4>
+ <CALL '\1aINIT-LABEL-TABLE 1>
+ <FRAME '\1aRESET-CALL-TABLE>
+ <CALL '\1aRESET-CALL-TABLE 0>
+ <FRAME '\1aINIT-VAR-LIST>
+ <CALL '\1aINIT-VAR-LIST 0>
+ <FRAME '\1aINIT-INTERNAL-ENTRYS>
+ <CALL '\1aINIT-INTERNAL-ENTRYS 0>
+ <SETG 'TEMP-PATCH -1>
+ <FRAME '\1aRESET-FRAME-LABEL-TABLE>
+ <CALL '\1aRESET-FRAME-LABEL-TABLE 0>
+ <FRAME '\1aINIT-PATCH-TABLE>
+ <CALL '\1aINIT-PATCH-TABLE 0>
+ <FRAME '\1aRESET-PUSH-LABEL-TABLE>
+ <CALL '\1aRESET-PUSH-LABEL-TABLE 0>
+ <FRAME '\1aRESET-MOVE-LABEL-TABLE>
+ <CALL '\1aRESET-MOVE-LABEL-TABLE 0 = TEMP22>
+ <RETURN TEMP22>
+ <DEAD TEMP22>
+ <END \1aINIT-ALL-STUFF>
+#WORD *20132517726*
+ <GFCN
\1aFCN-PROCESS ("VALUE" ATOM ANY LIST "TUPLE" <<PRIMTYPE VECTOR> [REST ATOM]>) NAME4 DCLS5>
+ <MAKTUP VARS6 (VARLST7:LIST ()) (NVARLST8:LIST ()) LAB9 TEMP13 TEMP14:STRING TEMP15 TEMP16 TEMP17 = VARS6>
+ <INTGO>
+ <FRAME '\1aMAKE-LABEL>
+ <PUSH "FNAME">
+ <CALL '\1aMAKE-LABEL 1 = LAB9>
+ <SETG 'FUNCTION-DECL DCLS5>
+ <NTHL DCLS5 1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE STRING> - PHRASE12>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP13 "VALUE" - PHRASE12>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP14 "VALUE" (TYPE STRING)>
+ <LENUS TEMP13 = TEMP15 (TYPE FIX)>
+ <VEQUAL? TEMP15 5 - PHRASE12>
+ <LOOP (TEMP13 VALUE LENGTH) (TEMP14 VALUE LENGTH) (TEMP15 VALUE)>
+TAG18
+ <NTHUS TEMP13 1 = TEMP16>
+ <NTHUS TEMP14 1 = TEMP17>
+ <VEQUAL? TEMP16 TEMP17 - PHRASE12>
+ <DEAD TEMP16 TEMP17>
+ <RESTUS TEMP13 1 = TEMP13 (TYPE STRING)>
+ <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
+ <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
+ <GRTR? TEMP15 0 + TAG18 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <RESTL DCLS5 1 = DCLS5 (TYPE LIST)>
+ <RESTL DCLS5 1 = DCLS5 (TYPE LIST)>
+PHRASE12
+ <SETG 'FUNCTION-NAME NAME4>
+ <DEAD NAME4>
+ <SETG 'ICALL-LABELS ()>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <LOOP>
+AGAIN24
+ <INTGO>
+ <EMPUV? VARS6 + EXIT19>
+ <NTHUV VARS6 1 = TEMP13 (TYPE ATOM)>
+ <NTHL DCLS5 1 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE STRING> - PHRASE28>
+ <RESTL DCLS5 1 = DCLS5 (TYPE LIST)>
+ <SET TEMP15 'T (TYPE ATOM)>
+ <SET TEMP16 'ANY (TYPE ATOM)>
+ <JUMP + PHRASE29>
+PHRASE28
+ <VEQUAL? TEMP15 0 + PHRASE29>
+ <SET TEMP16 'ANY (TYPE ATOM)>
+PHRASE29
+ <FRAME '\1aCREATE-VAR>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH %<>>
+ <CALL '\1aCREATE-VAR 2 = TEMP17>
+ <EMPL? VARLST7 - PHRASE32 (TYPE LIST)>
+ <CONS TEMP17 () = VARLST7>
+ <SET NVARLST8 VARLST7>
+ <JUMP + PHRASE33>
+PHRASE32
+ <CONS TEMP17 () = TEMP13>
+ <PUTREST NVARLST8 TEMP13>
+ <DEAD TEMP13>
+ <RESTL NVARLST8 1 = NVARLST8 (TYPE LIST)>
+PHRASE33
+ <FRAME '\1aINDICATE-VAR-DECL>
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <FRAME '\1aISTYPE?>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aISTYPE? 1 = STACK>
+ <CALL '\1aINDICATE-VAR-DECL 2>
+ <RESTUV VARS6 1 = VARS6 (TYPE VECTOR)>
+ <CHTYPE VARS6 <TYPE-CODE VECTOR> = VARS6>
+ <RESTL DCLS5 1 = DCLS5 (TYPE LIST)>
+ <JUMP + AGAIN24>
+EXIT19
+ <SETG 'ARGLIST-VARS VARLST7>
+ <DEAD VARLST7>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH LAB9>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aADD-INTERNAL-ENTRY>
+ <PUSH -1>
+ <PUSH LAB9>
+ <DEAD LAB9>
+ <CALL '\1aADD-INTERNAL-ENTRY 2>
+ <RETURN 'NORMAL>
+ <END \1aFCN-PROCESS>
+
+#WORD *37454324747*
+<GFCN \1aTEMP-PROCESS ("VALUE" ATOM "TUPLE" <TUPLE [REST <OR VARTBL ATOM ADECL LIST>]>)>
+ <MAKTUP TEMPS4 TEMP11 NOT-YET?7 ADL5 TBL32 = TEMPS4>
+ <INTGO>
+ <GEN-ASSIGNED? 'FIRST-PROCESS? + TAG10>
+ <SET TEMP11 %<> (TYPE FALSE)>
+ <JUMP + BOOL8>
+TAG10
+ <GEN-LVAL 'FIRST-PROCESS? = TEMP11>
+BOOL8
+ <SET NOT-YET?7 TEMP11>
+ <DEAD TEMP11>
+ <TYPE? NOT-YET?7 <TYPE-CODE FALSE> - PHRASE16>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = TEMP11>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH TEMP11>
+ <DEAD TEMP11>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aINDICATE-TEMP-PATCH>
+ <FRAME '\1aADD-PATCH>
+ <PUSH 'TEMPORARIES>
+ <CALL '\1aADD-PATCH 1 = STACK>
+ <CALL '\1aINDICATE-TEMP-PATCH 1>
+PHRASE16
+ <CHTYPE TEMPS4 <TYPE-CODE VECTOR> = TEMP11>
+ <DEAD TEMPS4>
+ <LOOP>
+MAP22
+ <INTGO>
+ <EMPUV? TEMP11 + MAPAP25>
+ <NTHUV TEMP11 1 = TEMPS4>
+ <TYPE? TEMPS4 <TYPE-CODE VARTBL> - PHRASE35>
+ <FRAME '\1aCREATE-VAR>
+ <PUSH TEMPS4>
+ <DEAD TEMPS4>
+ <PUSH 'T>
+ <PUSH NOT-YET?7>
+ <CALL '\1aCREATE-VAR 3>
+ <JUMP + PHRASE53>
+PHRASE35
+ <TYPE? TEMPS4 <TYPE-CODE ATOM> - PHRASE37>
+ <FRAME '\1aCREATE-VAR>
+ <PUSH TEMPS4>
+ <DEAD TEMPS4>
+ <PUSH 'T>
+ <PUSH NOT-YET?7>
+ <CALL '\1aCREATE-VAR 3>
+ <JUMP + PHRASE53>
+PHRASE37
+ <TYPE? TEMPS4 <TYPE-CODE LIST> - PHRASE39>
+ <NTHL TEMPS4 1 = ADL5>
+ <TYPE? ADL5 <TYPE-CODE ADECL> - PHRASE41>
+ <FRAME '\1aCREATE-VAR>
+ <NTHUV ADL5 1 = STACK>
+ <PUSH 'T>
+ <PUSH NOT-YET?7>
+ <CALL '\1aCREATE-VAR 3 = TBL32>
+ <FRAME '\1aINDICATE-VAR-DECL>
+ <PUSH TBL32>
+ <NTHUV ADL5 2 = STACK>
+ <DEAD ADL5>
+ <CALL '\1aINDICATE-VAR-DECL 2>
+ <JUMP + PHRASE44>
+PHRASE41
+ <FRAME '\1aCREATE-VAR>
+ <PUSH ADL5>
+ <DEAD ADL5>
+ <PUSH 'T>
+ <PUSH NOT-YET?7>
+ <CALL '\1aCREATE-VAR 3 = TBL32>
+PHRASE44
+ <TYPE? NOT-YET?7 <TYPE-CODE FALSE> - PHRASE53>
+ <RESTL TEMPS4 1 = TEMPS4 (TYPE LIST)>
+ <NTHL TEMPS4 1 = ADL5>
+ <DEAD TEMPS4>
+ <TYPE? ADL5 <TYPE-CODE FORM> - PHRASE49>
+ <EMPL? ADL5 + PHRASE49>
+ <RESTL ADL5 1 = TEMPS4 (TYPE LIST)>
+ <EMPL? TEMPS4 + PHRASE49>
+ <RESTL TEMPS4 1 = TEMPS4 (TYPE LIST)>
+ <EMPL? TEMPS4 - PHRASE49>
+ <DEAD TEMPS4>
+ <NTHL ADL5 1 = TEMPS4>
+ <EQUAL? TEMPS4 'QUOTE - PHRASE49>
+ <DEAD TEMPS4>
+ <RESTL ADL5 1 = TEMPS4 (TYPE LIST)>
+ <NTHL TEMPS4 1 = TEMPS4>
+ <TYPE? TEMPS4 <TYPE-CODE ATOM> - PHRASE49>
+ <DEAD TEMPS4>
+ <RESTL ADL5 1 = TEMPS4 (TYPE LIST)>
+ <DEAD ADL5>
+ <NTHL TEMPS4 1 = ADL5 (TYPE ATOM)>
+ <DEAD TEMPS4>
+PHRASE49
+ <FRAME '\1aINDICATE-VAR-INIT>
+ <PUSH TBL32>
+ <DEAD TBL32>
+ <PUSH ADL5>
+ <DEAD ADL5>
+ <CALL '\1aINDICATE-VAR-INIT 2>
+ <JUMP + PHRASE53>
+PHRASE39
+ <FRAME '\1aCREATE-VAR>
+ <NTHUV TEMPS4 1 = STACK>
+ <PUSH 'T>
+ <PUSH NOT-YET?7>
+ <CALL '\1aCREATE-VAR 3 = TBL32>
+ <FRAME '\1aINDICATE-VAR-DECL>
+ <PUSH TBL32>
+ <DEAD TBL32>
+ <NTHUV TEMPS4 2 = STACK>
+ <DEAD TEMPS4>
+ <CALL '\1aINDICATE-VAR-DECL 2>
+PHRASE53
+ <RESTUV TEMP11 1 = TEMP11 (TYPE VECTOR)>
+ <JUMP + MAP22>
+MAPAP25
+ <RETURN 'NORMAL>
+ <END \1aTEMP-PROCESS>
+#WORD *17011045050*
+<GFCN \1aISTYPE? ("VALUE" <OR ATOM FALSE> <OR ATOM FORM>) DCL4>
+ <TEMP TEMP11>
+ <INTGO>
+ <TYPE? DCL4 <TYPE-CODE ATOM> - PHRASE6>
+ <NTHR DCL4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE - TAG9)>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> - TAG9>
+ <DEAD TEMP11>
+ <RETURN %<>>
+TAG9
+ <RETURN DCL4>
+ <DEAD DCL4>
+PHRASE6
+ <NTHL DCL4 1 = DCL4>
+ <TYPE? DCL4 <TYPE-CODE ATOM> + TAG14>
+ <RETURN %<>>
+TAG14
+ <NTHR DCL4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE - TAG16)>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> - TAG16>
+ <DEAD TEMP11>
+ <RETURN %<>>
+TAG16
+ <RETURN DCL4>
+ <DEAD DCL4>
+ <END \1aISTYPE?>
+#WORD *13603150262*
+<GFCN \1aEND-GEN ("VALUE" ATOM)>
+ <TEMP>
+ <INTGO>
+ <RETURN 'UNCONDITIONAL-BRANCH>
+ <END \1aEND-GEN>
+#WORD *12612157154*
+<GFCN \1aUCBRANCH-GEN ("VALUE" ATOM ATOM ATOM) DIR4 LABEL5>
+ <TEMP>
+ <INTGO>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 17>
+ <PUSH LABEL5>
+ <DEAD LABEL5>
+ <PUSH 'UNCONDITIONAL-BRANCH>
+ <CALL '\1aGEN-BRANCH 3>
+ <RETURN 'UNCONDITIONAL-BRANCH>
+ <END \1aUCBRANCH-GEN>
+#WORD *25240537201*
+<GFCN \1aLOCATION-GEN ("VALUE" ATOM ATOM ATOM VARTBL) DIR4 LABEL5 RES6>
+ <TEMP VAC7 TEMP11:FIX>
+ <INTGO>
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aGET-AC>
+ <PUSH 'ANY-AC>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = VAC7>
+ <PUSH VAC7>
+ <CALL '\1aPROTECT 1>
+ <FRAME '\1aEMIT-MOVE-LABEL>
+ <PUSH LABEL5>
+ <DEAD LABEL5>
+ <NTHUV VAC7 2 = TEMP11 (TYPE FIX)>
+ <OR TEMP11 #WORD *120* = TEMP11>
+ <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
+ <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP11>
+ <CALL '\1aEMIT-MOVE-LABEL 2>
+ <FRAME '\1aDEST-DECL>
+ <PUSH VAC7>
+ <DEAD VAC7>
+ <PUSH RES6>
+ <DEAD RES6>
+ <PUSH 'FIX>
+ <CALL '\1aDEST-DECL 3>
+ <RETURN 'NORMAL>
+ <END \1aLOCATION-GEN>
+#WORD *22636607013*
+<GFCN \1aLOAD-VAR-APP ("VALUE" ANY VARTBL "OPTIONAL" ANY ANY ANY) VAR8 MUNG9 DCL10 USE?11>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH 'T>
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <PUSH 'T>
+OPT7
+ <TEMP TEMP19>
+ <INTGO>
+ <TYPE? DCL10 <TYPE-CODE UNBOUND> - TAG12>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAR8>
+ <CALL '\1aVARTBL-DECL 1 = DCL10>
+TAG12
+ <TYPE? DCL10 <TYPE-CODE FALSE> + BOOL17>
+ <FRAME '\1aSTRUCTURED-TYPE?>
+ <PUSH DCL10>
+ <CALL '\1aSTRUCTURED-TYPE? 1 = TEMP19>
+ <VEQUAL? TEMP19 0 + PHRASE16>
+ <DEAD TEMP19>
+BOOL17
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR8>
+ <DEAD VAR8>
+ <PUSH 'VALUE>
+ <PUSH MUNG9>
+ <DEAD MUNG9>
+ <PUSH 'PREF-VAL>
+ <PUSH DCL10>
+ <DEAD DCL10>
+ <PUSH USE?11>
+ <DEAD USE?11>
+ <CALL '\1aLOAD-VAR 6 = TEMP19>
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+PHRASE16
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR8>
+ <DEAD VAR8>
+ <PUSH 'VALUE>
+ <PUSH MUNG9>
+ <DEAD MUNG9>
+ <PUSH 'PREF-VAL>
+ <PUSH DCL10>
+ <DEAD DCL10>
+ <PUSH USE?11>
+ <DEAD USE?11>
+ <CALL '\1aLOAD-VAR 6 = TEMP19>
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+ <END \1aLOAD-VAR-APP>
+#WORD *13142347107*
+<GFCN \1aPROCESS-DESTINATION-HINT ("VALUE" ANY <OR FALSE HINT ATOM> <OR ATOM VARTBL>) HINT4 DEST5>
+ <TEMP TEMP9 DCL6>
+ <INTGO>
+ <TYPE? DEST5 <TYPE-CODE VARTBL> + TAG11>
+ <RETURN %<>>
+TAG11
+ <TYPE? HINT4 <TYPE-CODE LIST> - PHRASE14>
+ <FRAME '\1aPARSE-HINT>
+ <PUSH HINT4>
+ <DEAD HINT4>
+ <PUSH 'TYPE>
+ <CALL '\1aPARSE-HINT 2 = DCL6>
+ <SET TEMP9 DCL6>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
+ <JUMP + PHRASE16>
+PHRASE14
+ <TYPE? HINT4 <TYPE-CODE ATOM> + TAG17>
+ <RETURN %<>>
+TAG17
+ <SET DCL6 HINT4>
+ <DEAD HINT4>
+PHRASE16
+ <FRAME '\1aINDICATE-VAR-TEMP-DECL>
+ <PUSH DEST5>
+ <DEAD DEST5>
+ <PUSH DCL6>
+ <DEAD DCL6>
+ <CALL '\1aINDICATE-VAR-TEMP-DECL 2 = TEMP9>
+PHRASE8
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aPROCESS-DESTINATION-HINT>
+#WORD *27456356251*
+<GFCN \1aMOVE-TYPE ("VALUE" ANY ANY <OR AC EFF-ADDR> "OPTIONAL" <OR FALSE EFF-ADDR>) VAL6 TEADDR7 CEADDR8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP15 RADDR10 LVAR12>
+ <INTGO>
+ <TYPE? TEADDR7 <TYPE-CODE AC> - PHRASE14>
+ <NTHUV TEADDR7 2 = TEMP15 (TYPE FIX)>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = RADDR10>
+ <DEAD TEMP15>
+ <JUMP + COND13>
+PHRASE14
+ <SET RADDR10 TEADDR7>
+COND13
+ <TYPE? VAL6 <TYPE-CODE VARTBL> - PHRASE17>
+ <FRAME '\1aSAFE-TYPE-WORD?>
+ <PUSH VAL6>
+ <CALL '\1aSAFE-TYPE-WORD? 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL24>
+ <DEAD TEMP15>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAL6>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR12>
+ <TYPE? LVAR12 <TYPE-CODE FALSE> + PHRASE19>
+ <NTHUV LVAR12 7 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL25>
+ <DEAD TEMP15>
+ <NTHUV LVAR12 9 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL25>
+ <DEAD TEMP15>
+ <NTHUV LVAR12 8 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL25>
+ <DEAD TEMP15>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAL6>
+ <CALL '\1aVARTBL-DECL 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + BOOL24>
+ <DEAD TEMP15>
+BOOL25
+ <NTHUV LVAR12 4 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE19>
+ <DEAD TEMP15>
+ <NTHUV LVAR12 3 = TEMP15>
+ <DEAD LVAR12>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE19>
+ <DEAD TEMP15>
+BOOL24
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAL6>
+ <PUSH 'TYPE-WORD>
+ <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
+ <PUSH RADDR10>
+ <DEAD RADDR10>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <TYPE? TEADDR7 <TYPE-CODE AC> + TAG31>
+ <RETURN %<>>
+TAG31
+ <FRAME '\1aLOAD-AC>
+ <PUSH TEADDR7>
+ <DEAD TEADDR7>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'TYPE-WORD>
+ <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
+ <CALL '\1aLOAD-AC 2 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE19
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAL6>
+ <CALL '\1aVARTBL-DECL 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE35>
+ <FRAME '\1aCOUNT-NEEDED?>
+ <PUSH TEMP15>
+ <CALL '\1aCOUNT-NEEDED? 1 = LVAR12>
+ <TYPE? LVAR12 <TYPE-CODE FALSE> + PHRASE38>
+ <DEAD LVAR12>
+ <FRAME '\1aVAR-COUNT-ADDRESS>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <CALL '\1aVAR-COUNT-ADDRESS 1 = LVAR12>
+ <TYPE? TEADDR7 <TYPE-CODE AC> - PHRASE43>
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH RADDR10>
+ <DEAD RADDR10>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aEMIT>
+ <PUSH 168>
+ <PUSH LVAR12>
+ <DEAD LVAR12>
+ <NTHUV TEADDR7 2 = LVAR12 (TYPE FIX)>
+ <OR LVAR12 #WORD *120* = LVAR12>
+ <LSH LVAR12 24 = LVAR12 (TYPE FIX)>
+ <CHTYPE LVAR12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD LVAR12>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aUSE-AC>
+ <PUSH TEADDR7>
+ <DEAD TEADDR7>
+ <CALL '\1aUSE-AC 1 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE43
+ <FRAME '\1aEMIT-MOVE>
+ <PUSH LVAR12>
+ <DEAD LVAR12>
+ <PUSH CEADDR8>
+ <DEAD CEADDR8>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH 'WORD>
+ <CALL '\1aTYPE-CODE 2 = STACK>
+ <PUSH TEADDR7>
+ <DEAD TEADDR7>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-MOVE 3 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE38
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH TEMP15>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH RADDR10>
+ <DEAD RADDR10>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <TYPE? TEADDR7 <TYPE-CODE AC> + TAG56>
+ <RETURN %<>>
+TAG56
+ <FRAME '\1aLOAD-AC>
+ <PUSH TEADDR7>
+ <DEAD TEADDR7>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <CALL '\1aLOAD-AC 2 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE35
+ <FRAME '\1aERROR>
+ <PUSH "NO TYPE WORD">
+ <PUSH 'MOVE-TYPE>
+ <CALL '\1aERROR 2 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE17
+ <FRAME '\1aFIX-CONSTANT?>
+ <PUSH VAL6>
+ <CALL '\1aFIX-CONSTANT? 1 = LVAR12>
+ <TYPE? LVAR12 <TYPE-CODE FALSE> + PHRASE61>
+ <DEAD LVAR12>
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aTYPE-WORD>
+ <FRAME '\1aTYPE>
+ <PUSH VAL6>
+ <CALL '\1aTYPE 1 = STACK>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH RADDR10>
+ <DEAD RADDR10>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <TYPE? TEADDR7 <TYPE-CODE AC> + TAG67>
+ <RETURN %<>>
+TAG67
+ <FRAME '\1aLOAD-AC>
+ <PUSH TEADDR7>
+ <DEAD TEADDR7>
+ <FRAME '\1aTYPE-WORD>
+ <FRAME '\1aTYPE>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <CALL '\1aTYPE 1 = STACK>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <CALL '\1aLOAD-AC 2 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE61
+ <FRAME '\1aADDR-TYPE-M>
+ <FRAME '\1aADD-MVEC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <CALL '\1aADD-MVEC 1 = STACK>
+ <CALL '\1aADDR-TYPE-M 1 = LVAR12>
+ <FRAME '\1aEMIT-MOVE>
+ <PUSH LVAR12>
+ <PUSH TEADDR7>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <TYPE? TEADDR7 <TYPE-CODE AC> + TAG77>
+ <RETURN %<>>
+TAG77
+ <FRAME '\1aLOAD-AC>
+ <PUSH TEADDR7>
+ <DEAD TEADDR7>
+ <PUSH LVAR12>
+ <DEAD LVAR12>
+ <CALL '\1aLOAD-AC 2 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aMOVE-TYPE>\r\0\r\0
+#WORD *36712774607*
+<GFCN \1aGEN-CONSTANT ("VALUE" <OR AC EFF-ADDR> ANY <OR ATOM AC> <OR ATOM AC> ATOM) RCNS4 VALUE-AC5 TYPE-AC6 GEN-PREF7>
+ <TEMP CNS8 TYP11:ATOM VAC9 TEMP20 TAC10>
+ <INTGO>
+ <SET CNS8 RCNS4>
+ <FRAME '\1aTYPE>
+ <PUSH CNS8>
+ <CALL '\1aTYPE 1 = TYP11>
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aGET-AC>
+ <PUSH VALUE-AC5>
+ <DEAD VALUE-AC5>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = VAC9>
+ <PUSH VAC9>
+ <CALL '\1aPROTECT 1>
+ <FRAME '\1aMOVE-VALUE>
+ <PUSH CNS8>
+ <PUSH VAC9>
+ <CALL '\1aMOVE-VALUE 2>
+ <VEQUAL? GEN-PREF7 'TYPE-WORD + PHRASE17>
+ <FRAME '\1aCOUNT-NEEDED?>
+ <PUSH TYP11>
+ <CALL '\1aCOUNT-NEEDED? 1 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE17>
+ <DEAD TEMP20>
+ <SETG 'CONSTANT-TYPE-AC %<>>
+ <SETG 'CONSTANT-COUNT-AC %<>>
+ <RETURN VAC9>
+ <DEAD VAC9>
+PHRASE17
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-TYPE>
+ <CALL '\1aGET-AC 1 = TAC10>
+ <FRAME '\1aMUNG-AC>
+ <PUSH TAC10>
+ <CALL '\1aMUNG-AC 1>
+ <VEQUAL? GEN-PREF7 'TYPE-WORD - PHRASE25>
+ <DEAD GEN-PREF7>
+ <FRAME '\1aFIX-CONSTANT?>
+ <PUSH CNS8>
+ <DEAD CNS8>
+ <CALL '\1aFIX-CONSTANT? 1 = CNS8>
+ <TYPE? CNS8 <TYPE-CODE FALSE> + PHRASE27>
+ <DEAD CNS8>
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH TYP11>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <NTHUV TAC10 2 = TEMP20 (TYPE FIX)>
+ <OR TEMP20 #WORD *120* = TEMP20>
+ <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
+ <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP20>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aLOAD-AC>
+ <PUSH TAC10>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH TYP11>
+ <DEAD TYP11>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <CALL '\1aLOAD-AC 2>
+ <JUMP + PHRASE33>
+PHRASE27
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aADDR-TYPE-MQUOTE>
+ <PUSH RCNS4>
+ <CALL '\1aADDR-TYPE-MQUOTE 1 = STACK>
+ <NTHUV TAC10 2 = TEMP20 (TYPE FIX)>
+ <OR TEMP20 #WORD *120* = TEMP20>
+ <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
+ <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP20>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aLOAD-AC>
+ <PUSH TAC10>
+ <FRAME '\1aADDR-TYPE-MQUOTE>
+ <PUSH RCNS4>
+ <DEAD RCNS4>
+ <CALL '\1aADDR-TYPE-MQUOTE 1 = STACK>
+ <CALL '\1aLOAD-AC 2>
+PHRASE33
+ <SETG 'CONSTANT-TYPE-AC TAC10>
+ <DEAD TAC10>
+ <RETURN VAC9>
+ <DEAD VAC9>
+PHRASE25
+ <FRAME '\1aLOAD-CONSTANT>
+ <PUSH TAC10>
+ <FRAME '\1aLENGTH>
+ <PUSH RCNS4>
+ <DEAD RCNS4>
+ <CALL '\1aLENGTH 1 = STACK>
+ <CALL '\1aLOAD-CONSTANT 2>
+ <SETG 'CONSTANT-COUNT-AC TAC10>
+ <DEAD TAC10>
+ <RETURN VAC9>
+ <DEAD VAC9>
+ <END \1aGEN-CONSTANT>
+#WORD *21453464736*
+<GFCN \1aLOAD-CONSTANT ("VALUE" ANY ANY ANY) DEST4 RVAL5>
+ <TEMP TEMP10 VAL6:FIX TEMP23 TEMP32 TEMP44>
+ <INTGO>
+ <TYPE? DEST4 <TYPE-CODE AC> - PHRASE9>
+ <NTHUV DEST4 2 = TEMP10 (TYPE FIX)>
+ <DEAD DEST4>
+ <OR TEMP10 #WORD *120* = TEMP10>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = TEMP10>
+ <JUMP + PHRASE11>
+PHRASE9
+ <SET TEMP10 DEST4>
+ <DEAD DEST4>
+PHRASE11
+ <FRAME '\1aFIX-CONSTANT?>
+ <PUSH RVAL5>
+ <CALL '\1aFIX-CONSTANT? 1 = VAL6>
+ <VEQUAL? VAL6 0 - PHRASE14 (TYPE FIX)>
+ <FRAME '\1aEMIT>
+ <PUSH 212>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <CALL '\1aEMIT 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE14
+ <LESS? VAL6 1 + PHRASE18 (TYPE FIX)>
+ <GRTR? VAL6 63 + PHRASE18 (TYPE FIX)>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <AND VAL6 #WORD *77* = TEMP23>
+ <DEAD VAL6>
+ <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
+ <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP23>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <CALL '\1aEMIT 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE18
+ <LESS? VAL6 -63 + PHRASE24 (TYPE FIX)>
+ <GRTR? VAL6 -1 + PHRASE24 (TYPE FIX)>
+ <FRAME '\1aEMIT>
+ <PUSH 206>
+ <SUB 0 VAL6 = TEMP23 (TYPE FIX)>
+ <DEAD VAL6>
+ <AND TEMP23 #WORD *77* = TEMP23>
+ <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
+ <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP23>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <CALL '\1aEMIT 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE24
+ <LESS? VAL6 64 + PHRASE29 (TYPE FIX)>
+ <GRTR? VAL6 255 + PHRASE29 (TYPE FIX)>
+ <FRAME '\1aEMIT>
+ <PUSH 154>
+ <GVAL 'AC-PC = TEMP23>
+ <NTHUV TEMP23 2 = TEMP23 (TYPE FIX)>
+ <OR TEMP23 #WORD *200* = TEMP23>
+ <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
+ <AND VAL6 #WORD *377* = TEMP32>
+ <DEAD VAL6>
+ <LSH TEMP32 16 = TEMP32 (TYPE FIX)>
+ <OR TEMP23 TEMP32 = TEMP23>
+ <DEAD TEMP32>
+ <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP23>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <CALL '\1aEMIT 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE29
+ <LESS? VAL6 -127 + PHRASE33 (TYPE FIX)>
+ <GRTR? VAL6 -64 + PHRASE33 (TYPE FIX)>
+ <FRAME '\1aEMIT>
+ <PUSH 152>
+ <GVAL 'AC-PC = TEMP23>
+ <NTHUV TEMP23 2 = TEMP32 (TYPE FIX)>
+ <DEAD TEMP23>
+ <OR TEMP32 #WORD *200* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <AND VAL6 #WORD *377* = TEMP23>
+ <DEAD VAL6>
+ <LSH TEMP23 16 = TEMP23 (TYPE FIX)>
+ <OR TEMP32 TEMP23 = TEMP32>
+ <DEAD TEMP23>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <CALL '\1aEMIT 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE33
+ <LESS? VAL6 255 + PHRASE36 (TYPE FIX)>
+ <GRTR? VAL6 65535 + PHRASE36 (TYPE FIX)>
+ <FRAME '\1aEMIT>
+ <PUSH 60>
+ <GVAL 'AC-PC = TEMP32>
+ <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
+ <OR TEMP32 #WORD *200* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <AND VAL6 #WORD *377* = TEMP23>
+ <LSH TEMP23 16 = TEMP23 (TYPE FIX)>
+ <AND VAL6 #WORD *177400* = TEMP44>
+ <DEAD VAL6>
+ <OR TEMP23 TEMP44 = TEMP23>
+ <DEAD TEMP44>
+ <AND TEMP23 #WORD *77777400* = TEMP23>
+ <OR TEMP32 TEMP23 = TEMP32>
+ <DEAD TEMP23>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP32>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <CALL '\1aEMIT 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE36
+ <LESS? VAL6 -32767 + PHRASE45 (TYPE FIX)>
+ <GRTR? VAL6 -128 + PHRASE45 (TYPE FIX)>
+ <FRAME '\1aEMIT>
+ <PUSH 50>
+ <GVAL 'AC-PC = TEMP32>
+ <NTHUV TEMP32 2 = TEMP44 (TYPE FIX)>
+ <DEAD TEMP32>
+ <OR TEMP44 #WORD *200* = TEMP44>
+ <LSH TEMP44 24 = TEMP44 (TYPE FIX)>
+ <AND VAL6 #WORD *377* = TEMP23>
+ <LSH TEMP23 16 = TEMP23 (TYPE FIX)>
+ <AND VAL6 #WORD *177400* = TEMP32>
+ <DEAD VAL6>
+ <OR TEMP23 TEMP32 = TEMP32>
+ <DEAD TEMP23>
+ <AND TEMP32 #WORD *77777400* = TEMP32>
+ <OR TEMP44 TEMP32 = TEMP44>
+ <DEAD TEMP32>
+ <CHTYPE TEMP44 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP44>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <CALL '\1aEMIT 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE45
+ <TYPE? RVAL5 <TYPE-CODE FLOAT> - PHRASE52>
+ <LESS? RVAL5 0.0 + PHRASE54 (TYPE FLOAT)>
+ <FRAME '\1aEMIT>
+ <PUSH 80>
+ <FRAME '\1aFLOAT-IMM>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <CALL '\1aFLOAT-IMM 1 = STACK>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <CALL '\1aEMIT 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE54
+ <FRAME '\1aEMIT>
+ <PUSH 82>
+ <FRAME '\1aFLOAT-IMM>
+ <FRAME '\1aFLOATCONVERT>
+ <SUBF 0 RVAL5 = STACK (TYPE FLOAT)>
+ <DEAD RVAL5>
+ <CALL '\1aFLOATCONVERT 1 = STACK>
+ <CALL '\1aFLOAT-IMM 1 = STACK>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <CALL '\1aEMIT 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE52
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <GVAL 'AC-PC = TEMP44>
+ <NTHUV TEMP44 2 = TEMP32 (TYPE FIX)>
+ <DEAD TEMP44>
+ <OR TEMP32 #WORD *200* = TEMP32>
+ <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
+ <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = TEMP32>
+ <CONS TEMP32 () = TEMP32>
+ <FRAME '\1aLREV>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <CALL '\1aLREV 1 = TEMP23>
+ <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
+ <CONS TEMP23 () = TEMP23>
+ <PUTREST TEMP32 TEMP23>
+ <DEAD TEMP23>
+ <CHTYPE TEMP32 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP32>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <CALL '\1aEMIT 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aLOAD-CONSTANT>
+#WORD *36461610643*
+<GFCN \1aDEST-DECL ("VALUE" ANY AC <OR ATOM VARTBL> ATOM "OPTIONAL" <OR FALSE ATOM>) AC6 DEST7 DCL8 STATUS?9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP14>
+ <INTGO>
+ <EQUAL? DEST7 'STACK - PHRASE11>
+ <FRAME '\1aPUSH-PAIR>
+ <PUSH DCL8>
+ <DEAD DCL8>
+ <PUSH AC6>
+ <DEAD AC6>
+ <CALL '\1aPUSH-PAIR 2>
+ <FRAME '\1aCLEAR-STATUS>
+ <CALL '\1aCLEAR-STATUS 0 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE11
+ <TYPE? DEST7 <TYPE-CODE VARTBL> + TAG16>
+ <RETURN %<>>
+TAG16
+ <FRAME '\1aDEAD-VAR>
+ <PUSH DEST7>
+ <CALL '\1aDEAD-VAR 1>
+ <FRAME '\1aLINK-VAR-TO-AC>
+ <PUSH DEST7>
+ <PUSH AC6>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <CALL '\1aLINK-VAR-TO-AC 4>
+ <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
+ <PUSH DEST7>
+ <PUSH DCL8>
+ <DEAD DCL8>
+ <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
+ <SET TEMP14 STATUS?9>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE22>
+ <FRAME '\1aSET-STATUS-AC>
+ <PUSH AC6>
+ <DEAD AC6>
+ <CALL '\1aSET-STATUS-AC 1>
+ <FRAME '\1aSET-STATUS-VAR>
+ <PUSH DEST7>
+ <DEAD DEST7>
+ <PUSH STATUS?9>
+ <DEAD STATUS?9>
+ <CALL '\1aSET-STATUS-VAR 2 = TEMP14>
+PHRASE22
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aDEST-DECL>\r\0\r\0
+#WORD *32701003434*
+<GFCN \1aDEST-COUNT-DECL ("VALUE" ANY AC AC <OR ATOM VARTBL> ATOM "OPTIONAL" <OR FALSE ATOM>) VAC6 CAC7 DEST8 DCL9 STATUS?10>
+ <OPT-DISPATCH 4 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP15>
+ <INTGO>
+ <EQUAL? DEST8 'STACK - PHRASE12>
+ <FRAME '\1aPUSH-PAIR-WITH-CNT>
+ <PUSH DCL9>
+ <DEAD DCL9>
+ <PUSH VAC6>
+ <DEAD VAC6>
+ <PUSH CAC7>
+ <DEAD CAC7>
+ <CALL '\1aPUSH-PAIR-WITH-CNT 3>
+ <FRAME '\1aCLEAR-STATUS>
+ <CALL '\1aCLEAR-STATUS 0 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE12
+ <TYPE? DEST8 <TYPE-CODE VARTBL> + TAG17>
+ <RETURN %<>>
+TAG17
+ <FRAME '\1aDEAD-VAR>
+ <PUSH DEST8>
+ <CALL '\1aDEAD-VAR 1>
+ <FRAME '\1aLINK-VAR-TO-AC>
+ <PUSH DEST8>
+ <PUSH VAC6>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <CALL '\1aLINK-VAR-TO-AC 4>
+ <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
+ <PUSH DEST8>
+ <PUSH DCL9>
+ <DEAD DCL9>
+ <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
+ <FRAME '\1aLINK-VAR-TO-AC>
+ <PUSH DEST8>
+ <PUSH CAC7>
+ <DEAD CAC7>
+ <PUSH 'COUNT>
+ <PUSH %<>>
+ <CALL '\1aLINK-VAR-TO-AC 4>
+ <SET TEMP15 STATUS?10>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE24>
+ <FRAME '\1aSET-STATUS-AC>
+ <PUSH VAC6>
+ <DEAD VAC6>
+ <CALL '\1aSET-STATUS-AC 1>
+ <FRAME '\1aSET-STATUS-VAR>
+ <PUSH DEST8>
+ <DEAD DEST8>
+ <PUSH STATUS?10>
+ <DEAD STATUS?10>
+ <CALL '\1aSET-STATUS-VAR 2 = TEMP15>
+PHRASE24
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aDEST-COUNT-DECL>
+#WORD *26551305174*
+<GFCN \1aDEST-PAIR ("VALUE" ANY AC AC <OR ATOM VARTBL> "OPTIONAL" <OR FALSE ATOM>) VAC6 CAC7 DEST8 STATUS?9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP13 TEMP18>
+ <INTGO>
+ <EQUAL? DEST8 'STACK - PHRASE11>
+ <GVAL 'GC-MODE = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + BOOL12>
+ <DEAD TEMP13>
+ <FRAME '\1aEMIT>
+ <PUSH 170>
+ <FRAME '\1aMA-IMM>
+ <PUSH 32800>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <NTHUV CAC7 2 = TEMP13 (TYPE FIX)>
+ <OR TEMP13 #WORD *120* = TEMP13>
+ <LSH TEMP13 24 = TEMP13 (TYPE FIX)>
+ <CHTYPE TEMP13 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP13>
+ <CALL '\1aEMIT 3>
+BOOL12
+ <NTHUV CAC7 2 = TEMP13 (TYPE FIX)>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <NTHUV VAC6 2 = TEMP18 (TYPE FIX)>
+ <VEQUAL? TEMP13 TEMP18 - PHRASE17 (TYPE FIX)>
+ <DEAD TEMP13 TEMP18>
+ <FRAME '\1aEMIT-PUSH>
+ <NTHUV CAC7 2 = TEMP18 (TYPE FIX)>
+ <DEAD CAC7>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP18>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-PUSH 2>
+ <JUMP + PHRASE20>
+PHRASE17
+ <FRAME '\1aEMIT-PUSH>
+ <NTHUV CAC7 2 = TEMP18 (TYPE FIX)>
+ <DEAD CAC7>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP18>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <NTHUV VAC6 2 = TEMP18 (TYPE FIX)>
+ <DEAD VAC6>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP18>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+PHRASE20
+ <FRAME '\1aCLEAR-STATUS>
+ <CALL '\1aCLEAR-STATUS 0 = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+PHRASE11
+ <TYPE? DEST8 <TYPE-CODE VARTBL> + TAG25>
+ <RETURN %<>>
+TAG25
+ <FRAME '\1aDEAD-VAR>
+ <PUSH DEST8>
+ <CALL '\1aDEAD-VAR 1>
+ <FRAME '\1aLINK-VAR-TO-AC>
+ <PUSH DEST8>
+ <PUSH VAC6>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <CALL '\1aLINK-VAR-TO-AC 4>
+ <FRAME '\1aLINK-VAR-TO-AC>
+ <PUSH DEST8>
+ <PUSH CAC7>
+ <DEAD CAC7>
+ <PUSH 'TYPE-WORD>
+ <PUSH %<>>
+ <CALL '\1aLINK-VAR-TO-AC 4>
+ <SET TEMP18 STATUS?9>
+ <DEAD STATUS?9>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE31>
+ <FRAME '\1aSET-STATUS-AC>
+ <PUSH VAC6>
+ <DEAD VAC6>
+ <CALL '\1aSET-STATUS-AC 1>
+ <FRAME '\1aSET-STATUS-VAR>
+ <PUSH DEST8>
+ <DEAD DEST8>
+ <PUSH 'VALUE>
+ <CALL '\1aSET-STATUS-VAR 2 = TEMP18>
+PHRASE31
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+ <END \1aDEST-PAIR>
+#WORD *14130037471*
+<GFCN \1aDEST-TYPE-VALUE ("VALUE" ANY AC AC <OR ATOM VARTBL> "OPTIONAL" <OR FALSE ATOM> LINKVAR) VAC7 TAC8 DEST9 STATUS?10 LVAR11>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <TEMP TEMP15>
+ <INTGO>
+ <EQUAL? DEST9 'STACK - PHRASE13>
+ <FRAME '\1aEMIT-PUSH>
+ <NTHUV TAC8 2 = TEMP15 (TYPE FIX)>
+ <DEAD TAC8>
+ <OR TEMP15 #WORD *120* = TEMP15>
+ <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
+ <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP15>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aCLEAR-PUSH>
+ <PUSH 'WORD>
+ <CALL '\1aCLEAR-PUSH 1>
+ <FRAME '\1aEMIT-PUSH>
+ <NTHUV VAC7 2 = TEMP15 (TYPE FIX)>
+ <DEAD VAC7>
+ <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 '\1aCLEAR-STATUS>
+ <CALL '\1aCLEAR-STATUS 0 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE13
+ <TYPE? DEST9 <TYPE-CODE VARTBL> + TAG20>
+ <RETURN %<>>
+TAG20
+ <FRAME '\1aDEAD-VAR>
+ <PUSH DEST9>
+ <CALL '\1aDEAD-VAR 1>
+ <FRAME '\1aLINK-VAR-TO-AC>
+ <PUSH DEST9>
+ <PUSH VAC7>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <CALL '\1aLINK-VAR-TO-AC 4>
+ <FRAME '\1aLINK-VAR-TO-AC>
+ <PUSH DEST9>
+ <PUSH TAC8>
+ <DEAD TAC8>
+ <PUSH 'TYPE>
+ <PUSH %<>>
+ <CALL '\1aLINK-VAR-TO-AC 4>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH DEST9>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR11>
+ <PUTUV LVAR11 3 'T>
+ <DEAD LVAR11>
+ <SET TEMP15 STATUS?10>
+ <DEAD STATUS?10>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE27>
+ <FRAME '\1aSET-STATUS-AC>
+ <PUSH VAC7>
+ <DEAD VAC7>
+ <CALL '\1aSET-STATUS-AC 1>
+ <FRAME '\1aSET-STATUS-VAR>
+ <PUSH DEST9>
+ <DEAD DEST9>
+ <PUSH 'VALUE>
+ <CALL '\1aSET-STATUS-VAR 2 = TEMP15>
+PHRASE27
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aDEST-TYPE-VALUE>
+#WORD *4363717326*
+<GFCN \1aPUSH-PAIR ("VALUE" ANY ATOM AC) TYP4 VAC5>
+ <TEMP TEMP9>
+ <INTGO>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH TYP4>
+ <DEAD TYP4>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <NTHUV VAC5 2 = TEMP9 (TYPE FIX)>
+ <DEAD VAC5>
+ <OR TEMP9 #WORD *120* = TEMP9>
+ <LSH TEMP9 24 = TEMP9 (TYPE FIX)>
+ <CHTYPE TEMP9 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP9>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aPUSH-PAIR>
+#WORD *32402000114*
+<GFCN \1aPUSH-PAIR-WITH-CNT ("VALUE" ANY ATOM AC AC) DCL4 VAC5 DAC6>
+ <TEMP TEMP10>
+ <INTGO>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH DCL4>
+ <DEAD DCL4>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <NTHUV DAC6 2 = TEMP10 (TYPE FIX)>
+ <DEAD DAC6>
+ <OR TEMP10 #WORD *120* = TEMP10>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP10>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <NTHUV VAC5 2 = TEMP10 (TYPE FIX)>
+ <DEAD VAC5>
+ <OR TEMP10 #WORD *120* = TEMP10>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP10>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aPUSH-PAIR-WITH-CNT>
+#WORD *23424440641*
+<GFCN \1aPUSH-GEN ("VALUE" ATOM ANY) VAL4>
+ <TEMP>
+ <INTGO>
+ <TYPE? VAL4 <TYPE-CODE VARTBL> - PHRASE6>
+ <FRAME '\1aPUSH-VAR>
+ <PUSH VAL4>
+ <DEAD VAL4>
+ <CALL '\1aPUSH-VAR 1>
+ <RETURN 'NORMAL>
+PHRASE6
+ <FRAME '\1aPUSH-CONSTANT>
+ <PUSH VAL4>
+ <DEAD VAL4>
+ <CALL '\1aPUSH-CONSTANT 1>
+ <RETURN 'NORMAL>
+ <END \1aPUSH-GEN>
+#WORD *525340034*
+<GFCN \1aPOP-GEN ("VALUE" ANY VARTBL) RES4>
+ <TEMP TAC6>
+ <INTGO>
+ <FRAME '\1aFIND-FREE-PAIR>
+ <PUSH 'NOVARS>
+ <CALL '\1aFIND-FREE-PAIR 1 = TAC6>
+ <FRAME '\1aEMIT-POP>
+ <PUSH TAC6>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-POP 2>
+ <FRAME '\1aDEST-PAIR>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TAC6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH TAC6>
+ <DEAD TAC6>
+ <PUSH RES4>
+ <DEAD RES4>
+ <CALL '\1aDEST-PAIR 3 = TAC6>
+ <RETURN TAC6>
+ <DEAD TAC6>
+ <END \1aPOP-GEN>
+#WORD *20766040643*
+<GFCN \1aINIT-OPERATIONS ("VALUE" OBLIST)>
+ <TEMP TEMP4 TEMP5>
+ <INTGO>
+ <UUBLOCK <TYPE-CODE VECTOR> 200 = TEMP4>
+ <SET TEMP5 TEMP4>
+ <LOOP (TEMP5 VALUE LENGTH)>
+ISTR6
+ <EMPUV? TEMP5 + ISTRE7>
+ <PUTUV TEMP5 1 -1>
+ <RESTUV TEMP5 1 = TEMP5>
+ <JUMP + ISTR6>
+ISTRE7
+ <SETG 'OP-APPLY-VECTOR TEMP4>
+ <DEAD TEMP4>
+ <SETG 'OP-COUNT 1>
+ <FRAME '\1aMOBLIST>
+ <PUSH 'MIMOP>
+ <PUSH 51>
+ <CALL '\1aMOBLIST 2 = TEMP4>
+ <SETG 'MIMOP-OBLIST TEMP4>
+ <DEAD TEMP4>
+ <FRAME '\1aMOBLIST>
+ <PUSH 'VARS>
+ <PUSH 51>
+ <CALL '\1aMOBLIST 2 = TEMP4>
+ <SETG 'VAR-OBLIST TEMP4>
+ <RETURN TEMP4>
+ <DEAD TEMP4>
+ <END \1aINIT-OPERATIONS>
+#WORD *17754135751*
+<GFCN \1aDEFINE-MIMOP ("VALUE" FIX STRING ANY "OPTIONAL" ANY) NAME6 FCN7 PROTECT?8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP CNT9:FIX TEMP14 ANAME10 TEMP20>
+ <INTGO>
+ <GVAL 'OP-COUNT = CNT9>
+ <GRTR? CNT9 200 - PHRASE12 (TYPE FIX)>
+ <FRAME '\1aERROR>
+ <PUSH "TOO MANY OPERATIONS">
+ <PUSH 'DEFINE-MIMOP>
+ <CALL '\1aERROR 2>
+PHRASE12
+ <GVAL 'OP-APPLY-VECTOR = TEMP14>
+ <PUTUV TEMP14 CNT9 FCN7>
+ <DEAD TEMP14 FCN7>
+ <FRAME '\1aLOOKUP>
+ <PUSH NAME6>
+ <GVAL 'MIMOP-OBLIST = STACK>
+ <CALL '\1aLOOKUP 2 = ANAME10>
+ <TYPE? ANAME10 <TYPE-CODE FALSE> - BOOL15>
+ <FRAME '\1aINSERT>
+ <PUSH NAME6>
+ <DEAD NAME6>
+ <GVAL 'MIMOP-OBLIST = STACK>
+ <CALL '\1aINSERT 2 = ANAME10>
+BOOL15
+ <TYPE? PROTECT?8 <TYPE-CODE FALSE> + PHRASE19>
+ <DEAD PROTECT?8>
+ <SUB 0 CNT9 = TEMP14 (TYPE FIX)>
+ <JUMP + COND18>
+PHRASE19
+ <SET TEMP14 CNT9>
+COND18
+ <NTHR ANAME10 1 = TEMP20 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG21)>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + TAG21>
+ <PUTR TEMP20 1 TEMP14 (RECORD-TYPE GBIND)>
+ <DEAD TEMP20 TEMP14>
+ <JUMP + TAG22>
+TAG21
+ <FRAME '\1aSETG>
+ <PUSH ANAME10>
+ <DEAD ANAME10>
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <CALL '\1aSETG 2 = TEMP14>
+TAG22
+ <ADD CNT9 1 = TEMP14 (TYPE FIX)>
+ <DEAD CNT9>
+ <SETG 'OP-COUNT TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aDEFINE-MIMOP>
+#WORD *6423764200*
+<GFCN \1aSTRUCTURED-TYPE? ("VALUE" <OR ATOM !<FALSE> <VECTOR ATOM [REST ATOM]>> ATOM) DCL4>
+ <TEMP TEMP8 TEMP14 TEMP15>
+ <INTGO>
+ <FRAME '\1aISTYPE?>
+ <PUSH DCL4>
+ <CALL '\1aISTYPE? 1 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE6>
+ <DEAD TEMP8>
+ <FRAME '\1aTYPEPRIM>
+ <PUSH DCL4>
+ <DEAD DCL4>
+ <CALL '\1aTYPEPRIM 1 = TEMP8>
+ <SET TEMP14 [OFFSET RECORD UVECTOR STRING LIST VECTOR ATOM] (TYPE VECTOR)>
+ <TYPE? TEMP8 <TYPE-CODE ATOM> - TAG9>
+ <LOOP (TEMP8 VALUE) (TEMP14 LENGTH VALUE)>
+TAG11
+ <NTHUV TEMP14 1 = TEMP15>
+ <VEQUAL? TEMP15 TEMP8 + COND5>
+ <DEAD TEMP15>
+ <RESTUV TEMP14 1 = TEMP14 (TYPE VECTOR)>
+ <EMPUV? TEMP14 - TAG11>
+TAG9
+ <RETURN %<>>
+PHRASE6
+ <SET TEMP14 'T (TYPE ATOM)>
+COND5
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aSTRUCTURED-TYPE?>
+#WORD *33766010353*
+<GFCN \1aCOUNT-NEEDED? ("VALUE" <OR FALSE <VECTOR ATOM [REST ATOM]>> ATOM) DCL4>
+ <TEMP TEMP7 TEMP14 TEMP15>
+ <INTGO>
+ <FRAME '\1aCLEAN-DECL>
+ <PUSH DCL4>
+ <DEAD DCL4>
+ <CALL '\1aCLEAN-DECL 1 = DCL4>
+ <FRAME '\1aISTYPE?>
+ <PUSH DCL4>
+ <CALL '\1aISTYPE? 1 = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> + TAG10>
+ <FRAME '\1aTYPEPRIM>
+ <PUSH DCL4>
+ <DEAD DCL4>
+ <CALL '\1aTYPEPRIM 1 = TEMP14>
+ <SET TEMP7 [OFFSET STRING VECTOR RECORD UVECTOR TUPLE BYTES] (TYPE VECTOR)>
+ <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG9>
+ <LOOP (TEMP14 VALUE) (TEMP7 LENGTH VALUE)>
+TAG11
+ <NTHUV TEMP7 1 = TEMP15>
+ <VEQUAL? TEMP15 TEMP14 + TAG10>
+ <DEAD TEMP15>
+ <RESTUV TEMP7 1 = TEMP7 (TYPE VECTOR)>
+ <EMPUV? TEMP7 - TAG11>
+TAG9
+ <SET TEMP7 %<> (TYPE FALSE)>
+TAG10
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aCOUNT-NEEDED?>
+#WORD *20751001175*
+<GFCN \1aPARSE-HINT ("VALUE" ANY HINT ATOM) HINT4 NAME5>
+ <TEMP HTYP6 TEMP11>
+ <INTGO>
+ <NTHL HINT4 1 = HTYP6>
+ <TYPE? HTYP6 <TYPE-CODE FORM> - PHRASE9>
+ <EMPL? HTYP6 + PHRASE9>
+ <RESTL HTYP6 1 = TEMP11 (TYPE LIST)>
+ <EMPL? TEMP11 + PHRASE9>
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <EMPL? TEMP11 - PHRASE9>
+ <DEAD TEMP11>
+ <NTHL HTYP6 1 = TEMP11>
+ <EQUAL? TEMP11 'QUOTE - PHRASE9>
+ <DEAD TEMP11>
+ <RESTL HTYP6 1 = TEMP11 (TYPE LIST)>
+ <DEAD HTYP6>
+ <NTHL TEMP11 1 = HTYP6>
+ <DEAD TEMP11>
+PHRASE9
+ <EQUAL? HTYP6 NAME5 + TAG14>
+ <DEAD NAME5>
+ <RETURN %<>>
+TAG14
+ <EQUAL? HTYP6 'TYPE - PHRASE16>
+ <DEAD HTYP6>
+ <RESTL HINT4 1 = HTYP6 (TYPE LIST)>
+ <NTHL HTYP6 1 = HTYP6 (TYPE ATOM)>
+ <NTHR HTYP6 5 = HTYP6 (RECORD-TYPE ATOM) (BRANCH-FALSE - PHRASE16)>
+ <TYPE? HTYP6 <TYPE-CODE FALSE> - PHRASE16>
+ <DEAD HTYP6>
+ <FRAME '\1aCHECK-MIMOP-TYPE>
+ <RESTL HINT4 1 = HTYP6 (TYPE LIST)>
+ <NTHL HTYP6 1 = STACK (TYPE ATOM)>
+ <DEAD HTYP6>
+ <CALL '\1aCHECK-MIMOP-TYPE 1 = HTYP6>
+ <TYPE? HTYP6 <TYPE-CODE FALSE> + PHRASE16>
+ <RETURN HTYP6>
+ <DEAD HTYP6>
+PHRASE16
+ <RESTL HINT4 1 = HTYP6 (TYPE LIST)>
+ <DEAD HINT4>
+ <NTHL HTYP6 1 = TEMP11>
+ <DEAD HTYP6>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aPARSE-HINT>
+#WORD *27210706361*
+<GFCN \1aADD-TO-AC ("VALUE" ANY AC EFF-ADDR) VAC4 VADDR5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <PUSH VADDR5>
+ <DEAD VADDR5>
+ <NTHUV VAC4 2 = TEMP7 (TYPE FIX)>
+ <DEAD VAC4>
+ <OR TEMP7 #WORD *120* = TEMP7>
+ <LSH TEMP7 24 = TEMP7 (TYPE FIX)>
+ <CHTYPE TEMP7 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP7>
+ <CALL '\1aEMIT 3 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aADD-TO-AC>
+#WORD *23010741361*
+<GFCN \1aSUB-FROM-AC ("VALUE" ANY AC EFF-ADDR) VAC4 VADDR5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aEMIT>
+ <PUSH 194>
+ <PUSH VADDR5>
+ <DEAD VADDR5>
+ <NTHUV VAC4 2 = TEMP7 (TYPE FIX)>
+ <DEAD VAC4>
+ <OR TEMP7 #WORD *120* = TEMP7>
+ <LSH TEMP7 24 = TEMP7 (TYPE FIX)>
+ <CHTYPE TEMP7 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP7>
+ <CALL '\1aEMIT 3 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aSUB-FROM-AC>
+#WORD *1065720713*
+<GFCN \1aMOVE-VALUE ("VALUE" ANY ANY <OR AC EFF-ADDR>) VAL4 EADDR5>
+ <TEMP ADDR17 TEMP14>
+ <INTGO>
+ <TYPE? VAL4 <TYPE-CODE VARTBL> - PHRASE9>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAL4>
+ <DEAD VAL4>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = ADDR17>
+ <TYPE? EADDR5 <TYPE-CODE AC> - PHRASE12>
+ <FRAME '\1aEMIT-MOVE>
+ <PUSH ADDR17>
+ <NTHUV EADDR5 2 = TEMP14 (TYPE FIX)>
+ <OR TEMP14 #WORD *120* = TEMP14>
+ <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
+ <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP14>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aLOAD-AC>
+ <PUSH EADDR5>
+ <DEAD EADDR5>
+ <PUSH ADDR17>
+ <DEAD ADDR17>
+ <CALL '\1aLOAD-AC 2 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE12
+ <FRAME '\1aEMIT-MOVE>
+ <PUSH ADDR17>
+ <DEAD ADDR17>
+ <PUSH EADDR5>
+ <DEAD EADDR5>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE9
+ <FRAME '\1aFIX-CONSTANT?>
+ <PUSH VAL4>
+ <CALL '\1aFIX-CONSTANT? 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE17>
+ <DEAD TEMP14>
+ <FRAME '\1aLOAD-CONSTANT>
+ <PUSH EADDR5>
+ <DEAD EADDR5>
+ <PUSH VAL4>
+ <DEAD VAL4>
+ <CALL '\1aLOAD-CONSTANT 2 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE17
+ <FRAME '\1aADDR-VALUE-MQUOTE>
+ <PUSH VAL4>
+ <DEAD VAL4>
+ <CALL '\1aADDR-VALUE-MQUOTE 1 = ADDR17>
+ <TYPE? EADDR5 <TYPE-CODE AC> - PHRASE24>
+ <FRAME '\1aEMIT-MOVE>
+ <PUSH ADDR17>
+ <NTHUV EADDR5 2 = TEMP14 (TYPE FIX)>
+ <OR TEMP14 #WORD *120* = TEMP14>
+ <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
+ <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP14>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+ <FRAME '\1aLOAD-AC>
+ <PUSH EADDR5>
+ <DEAD EADDR5>
+ <PUSH ADDR17>
+ <DEAD ADDR17>
+ <CALL '\1aLOAD-AC 2 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE24
+ <FRAME '\1aEMIT-MOVE>
+ <PUSH ADDR17>
+ <DEAD ADDR17>
+ <PUSH EADDR5>
+ <DEAD EADDR5>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aMOVE-VALUE>
+#WORD *23274201721*
+<GFCN \1aADD-CONSTANT-TO-AC ("VALUE" ANY FIX AC) VAL4 DEST5>
+ <TEMP TEMP10 ACADDR7:EFF-ADDR TEMP38>
+ <INTGO>
+ <NTHUV DEST5 2 = TEMP10 (TYPE FIX)>
+ <DEAD DEST5>
+ <OR TEMP10 #WORD *120* = TEMP10>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = ACADDR7>
+ <DEAD TEMP10>
+ <FRAME '\1aFIX-CONSTANT?>
+ <PUSH VAL4>
+ <DEAD VAL4>
+ <CALL '\1aFIX-CONSTANT? 1 = VAL4>
+ <VEQUAL? VAL4 0 - TAG13 (TYPE FIX)>
+ <RETURN 'T>
+TAG13
+ <VEQUAL? VAL4 1 - PHRASE16 (TYPE FIX)>
+ <FRAME '\1aEMIT>
+ <PUSH 214>
+ <PUSH ACADDR7>
+ <DEAD ACADDR7>
+ <CALL '\1aEMIT 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE16
+ <VEQUAL? VAL4 -1 - PHRASE20 (TYPE FIX)>
+ <FRAME '\1aEMIT>
+ <PUSH 215>
+ <PUSH ACADDR7>
+ <DEAD ACADDR7>
+ <CALL '\1aEMIT 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE20
+ <LESS? VAL4 0 + PHRASE24 (TYPE FIX)>
+ <GRTR? VAL4 63 + PHRASE24 (TYPE FIX)>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <AND VAL4 #WORD *77* = TEMP10>
+ <DEAD VAL4>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP10>
+ <PUSH ACADDR7>
+ <DEAD ACADDR7>
+ <CALL '\1aEMIT 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE24
+ <LESS? VAL4 -63 + PHRASE30 (TYPE FIX)>
+ <GRTR? VAL4 0 + PHRASE30 (TYPE FIX)>
+ <FRAME '\1aEMIT>
+ <PUSH 194>
+ <SUB 0 VAL4 = TEMP10 (TYPE FIX)>
+ <DEAD VAL4>
+ <AND TEMP10 #WORD *77* = TEMP10>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP10>
+ <PUSH ACADDR7>
+ <DEAD ACADDR7>
+ <CALL '\1aEMIT 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE30
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <GVAL 'AC-PC = TEMP10>
+ <NTHUV TEMP10 2 = TEMP10 (TYPE FIX)>
+ <OR TEMP10 #WORD *200* = TEMP10>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = TEMP10>
+ <CONS TEMP10 () = TEMP10>
+ <FRAME '\1aLREV>
+ <PUSH VAL4>
+ <DEAD VAL4>
+ <CALL '\1aLREV 1 = TEMP38>
+ <CHTYPE TEMP38 <TYPE-CODE EFF-ADDR> = TEMP38>
+ <CONS TEMP38 () = TEMP38>
+ <PUTREST TEMP10 TEMP38>
+ <DEAD TEMP38>
+ <CHTYPE TEMP10 <TYPE-CODE LADDR> = STACK>
+ <DEAD TEMP10>
+ <PUSH ACADDR7>
+ <DEAD ACADDR7>
+ <CALL '\1aEMIT 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aADD-CONSTANT-TO-AC>
+#WORD *26347750664*
+<GFCN \1aCLEAN-DECL ("VALUE" <OR ATOM LINK> ATOM) DCL4>
+ <TEMP NAME5 SNAME6 TEMP10 TEMP18>
+ <INTGO>
+ <NTHR DCL4 3 = NAME5 (RECORD-TYPE ATOM)>
+ <SET SNAME6 NAME5>
+ <LENUS NAME5 = TEMP10 (TYPE FIX)>
+ <GRTR? TEMP10 2 - PHRASE8 (TYPE FIX)>
+ <DEAD TEMP10>
+ <NTHUS NAME5 2 = TEMP10 (TYPE CHARACTER)>
+ <VEQUAL? TEMP10 !\$ - PHRASE8>
+ <DEAD TEMP10>
+ <NTHUS NAME5 1 = TEMP10 (TYPE CHARACTER)>
+ <VEQUAL? TEMP10 !\T - PHRASE8>
+ <DEAD TEMP10>
+ <FRAME '\1aLOOKUP>
+ <RESTUS NAME5 2 = STACK (TYPE STRING)>
+ <DEAD NAME5>
+ <FRAME '\1aROOT>
+ <CALL '\1aROOT 0 = STACK>
+ <CALL '\1aLOOKUP 2 = NAME5>
+ <TYPE? NAME5 <TYPE-CODE FALSE> + PHRASE8>
+ <FRAME '\1aISTYPE?>
+ <PUSH NAME5>
+ <CALL '\1aISTYPE? 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - TAG15>
+ <DEAD TEMP10>
+ <SET TEMP10 [LBIND GBIND] (TYPE VECTOR)>
+ <LOOP (NAME5 VALUE) (TEMP10 LENGTH VALUE)>
+TAG16
+ <NTHUV TEMP10 1 = TEMP18>
+ <VEQUAL? TEMP18 NAME5 + TAG15>
+ <DEAD TEMP18>
+ <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
+ <EMPUV? TEMP10 - TAG16>
+ <JUMP + PHRASE8>
+TAG15
+ <RETURN NAME5>
+ <DEAD NAME5>
+PHRASE8
+ <FRAME '\1aISTYPE?>
+ <PUSH DCL4>
+ <CALL '\1aISTYPE? 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE19>
+ <DEAD TEMP18>
+ <RETURN DCL4>
+ <DEAD DCL4>
+PHRASE19
+ <FRAME '\1aLOOKUP>
+ <PUSH SNAME6>
+ <DEAD SNAME6>
+ <FRAME '\1aROOT>
+ <CALL '\1aROOT 0 = STACK>
+ <CALL '\1aLOOKUP 2 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - COND7>
+ <SET TEMP10 DCL4>
+ <DEAD DCL4>
+COND7
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aCLEAN-DECL>
+#WORD *7556013211*
+<GFCN \1aCHECK-MIMOP-TYPE ("VALUE" <OR ATOM FALSE> ATOM) ITEM4>
+ <TEMP TEMP10 TEMP11>
+ <INTGO>
+ <NTHR ITEM4 4 = TEMP10 (RECORD-TYPE ATOM)>
+ <GVAL 'MIMOP-OBLIST = TEMP11>
+ <EQUAL? TEMP10 TEMP11 + TAG9>
+ <DEAD TEMP10 TEMP11>
+ <RETURN %<>>
+TAG9
+ <NTHR ITEM4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG12)>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + TAG12>
+ <DEAD TEMP11>
+ <RETURN %<>>
+TAG12
+ <FRAME '\1aLOOKUP>
+ <NTHR ITEM4 3 = STACK (RECORD-TYPE ATOM)>
+ <DEAD ITEM4>
+ <FRAME '\1aROOT>
+ <CALL '\1aROOT 0 = STACK>
+ <CALL '\1aLOOKUP 2 = ITEM4>
+ <NTHR ITEM4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE - TAG16)>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> - TAG16>
+ <DEAD TEMP11>
+ <RETURN %<>>
+TAG16
+ <RETURN ITEM4>
+ <DEAD ITEM4>
+ <END \1aCHECK-MIMOP-TYPE>
+#WORD *25756015762*
+<GFCN \1aPRINT-MSUBR ("VALUE" ATOM ANY "OPTIONAL" CHANNEL) BYTEOFF6 OUTCHAN7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP TEMP10>
+ <INTGO>
+ <TYPE? OUTCHAN7 <TYPE-CODE UNBOUND> - TAG8>
+ <GEN-LVAL 'OUTCHAN = OUTCHAN7>
+TAG8
+ <GVAL 'BOOT-MODE = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE14>
+ <DEAD TEMP10>
+ <FRAME '\1aPRINC>
+ <PUSH "<SETG \1a">
+ <PUSH OUTCHAN7>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <GVAL 'FUNCTION-NAME = STACK>
+ <PUSH OUTCHAN7>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <PUSH OUTCHAN7>
+ <CALL '\1aPRINC 2>
+PHRASE14
+ <FRAME '\1aPRINC>
+ <PUSH "#MSUBR [">
+ <PUSH OUTCHAN7>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <GVAL 'INTERNAL-MSUBR-NAME = STACK>
+ <PUSH OUTCHAN7>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <PUSH OUTCHAN7>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <GVAL 'FUNCTION-NAME = STACK>
+ <PUSH OUTCHAN7>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <PUSH OUTCHAN7>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <GVAL 'FUNCTION-DECL = STACK>
+ <PUSH OUTCHAN7>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <PUSH OUTCHAN7>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <PUSH BYTEOFF6>
+ <DEAD BYTEOFF6>
+ <PUSH OUTCHAN7>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\]>
+ <PUSH OUTCHAN7>
+ <CALL '\1aPRINC 2>
+ <GVAL 'BOOT-MODE = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - BOOL28>
+ <DEAD TEMP10>
+ <FRAME '\1aPRINC>
+ <PUSH ">">
+ <PUSH OUTCHAN7>
+ <CALL '\1aPRINC 2>
+BOOL28
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN7>
+ <DEAD OUTCHAN7>
+ <CALL '\1aCRLF 1 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aPRINT-MSUBR>
+<MSETG INFINITY <CHTYPE <MIN> FIX>>
+
+#WORD *11030635005*
+<GFCN \1aPRINT-IMSUBR ("VALUE" ATOM "OPTIONAL" CHANNEL) OUTCHAN6>
+ <OPT-DISPATCH 0 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP TEMP10>
+ <INTGO>
+ <TYPE? OUTCHAN6 <TYPE-CODE UNBOUND> - TAG8>
+ <GEN-LVAL 'OUTCHAN = OUTCHAN6>
+TAG8
+ <FRAME '\1aM-HLEN>
+ <PUSH OUTCHAN6>
+ <CALL '\1aM-HLEN 1 = TEMP10>
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN6>
+ <CALL '\1aCRLF 1>
+ <GVAL 'BOOT-MODE = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE16>
+ <DEAD TEMP10>
+ <FRAME '\1aPRINC>
+ <PUSH "<SETG \1a">
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <GVAL 'INTERNAL-MSUBR-NAME = STACK>
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+PHRASE16
+ <FRAME '\1aPRINC>
+ <PUSH "#IMSUBR [">
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+ <GVAL 'BOOT-MODE = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE23>
+ <DEAD TEMP10>
+ <FRAME '\1aPRINT-HEX-CODE>
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINT-HEX-CODE 1>
+ <JUMP + PHRASE25>
+PHRASE23
+ <FRAME '\1aPRINT-NHEX-CODE>
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINT-NHEX-CODE 1>
+PHRASE25
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <GVAL 'INTERNAL-MSUBR-NAME = STACK>
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINT-MVEC-ELEMENTS>
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINT-MVEC-ELEMENTS 1>
+ <FRAME '\1aPRINC>
+ <PUSH !\]>
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+ <GVAL 'BOOT-MODE = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - BOOL32>
+ <DEAD TEMP10>
+ <FRAME '\1aPRINC>
+ <PUSH ">">
+ <PUSH OUTCHAN6>
+ <CALL '\1aPRINC 2>
+BOOL32
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN6>
+ <DEAD OUTCHAN6>
+ <CALL '\1aCRLF 1 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aPRINT-IMSUBR>
+<GDECL (MSUBR-BUF) STRING (MSUBR-PTR) FIX>
+
+<SETG FAST-MCODE T>
+
+<SETG MS-TEMPSTR <ISTRING 4>>
+
+#WORD *6632132653*
+<GFCN \1aPRINT-NHEX-CODE ("VALUE" ANY "OPTIONAL" CHANNEL FIX FIX ANY) OUTCHAN9 PTR10 MAXPTR11 LEN12>
+ <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <PUSH 1>
+OPT6
+ <PUSH #T$UNBOUND 0>
+OPT7
+ <PUSH #T$UNBOUND 0>
+OPT8
+ <TEMP TEMP15 TST28:STRING TEMP40>
+ <INTGO>
+ <TYPE? OUTCHAN9 <TYPE-CODE UNBOUND> - TAG13>
+ <GEN-LVAL 'OUTCHAN = OUTCHAN9>
+TAG13
+ <TYPE? MAXPTR11 <TYPE-CODE UNBOUND> - TAG18>
+ <GVAL 'FBYTE-OFFSET = MAXPTR11>
+TAG18
+ <TYPE? LEN12 <TYPE-CODE UNBOUND> - TAG20>
+ <ADD MAXPTR11 1 = TEMP15 (TYPE FIX)>
+ <DIV TEMP15 4 = LEN12 (TYPE FIX)>
+ <DEAD TEMP15>
+TAG20
+ <NTHR 'MSUBR-BUF 1 = TEMP15 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG25)>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + TAG25>
+ <NTHR TEMP15 1 = TEMP15 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP15 <TYPE-CODE UNBOUND> - PHRASE24>
+ <DEAD TEMP15>
+TAG25
+ <UUBLOCK <TYPE-CODE STRING> 1024 = TEMP15 (TYPE STRING)>
+ <SETG 'MSUBR-BUF TEMP15>
+ <DEAD TEMP15>
+ <JUMP + COND23>
+PHRASE24
+ <GVAL 'MSUBR-BUF = TEMP15>
+ <TOPU TEMP15 = TEMP15>
+ <SETG 'MSUBR-BUF TEMP15>
+ <DEAD TEMP15>
+COND23
+ <SETG 'MSUBR-PTR 0>
+ <SETG 'MSUBR-CHAN OUTCHAN9>
+ <FRAME '\1aWRITE-BYTE>
+ <PUSH !\|>
+ <CALL '\1aWRITE-BYTE 1>
+ <GVAL 'MS-TEMPSTR = TST28>
+ <IFSYS "VAX">
+ <GVAL 'INT-MODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE35>
+ <DEAD TEMP15>
+ <NTHR 'FAST-MCODE 1 = TEMP15 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE35)>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE35>
+ <NTHR TEMP15 1 = TEMP15 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP15 <TYPE-CODE UNBOUND> + PHRASE35>
+ <DEAD TEMP15>
+ <GVAL 'FAST-MCODE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE35>
+ <DEAD TEMP15>
+ <FRAME '\1aWRITE-BYTE>
+ <PUSH !\|>
+ <CALL '\1aWRITE-BYTE 1>
+ <NTHR 'UVECTOR 5 = TEMP15 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
+ <VALUE TST28 = TEMP40>
+ <OBJECT TEMP15 1 TEMP40 = TEMP15>
+ <DEAD TEMP40>
+ <PUTUU TEMP15 1 LEN12>
+ <DEAD TEMP15 LEN12>
+ <SET TEMP40 TST28 (TYPE STRING)>
+ <DEAD TST28>
+ <LOOP>
+MAP42
+ <INTGO>
+ <EMPUS? TEMP40 + MAP41>
+ <FRAME '\1aWRITE-BYTE>
+ <NTHUS TEMP40 1 = STACK>
+ <CALL '\1aWRITE-BYTE 1>
+ <RESTUS TEMP40 1 = TEMP40 (TYPE STRING)>
+ <JUMP + MAP42>
+MAP41
+ <LOOP>
+AGAIN47
+ <INTGO>
+ <FRAME '\1aWRITE-BYTE>
+ <FRAME '\1aNTH-FCODE>
+ <PUSH PTR10>
+ <CALL '\1aNTH-FCODE 1 = STACK>
+ <CALL '\1aWRITE-BYTE 1>
+ <ADD PTR10 1 = PTR10 (TYPE FIX)>
+ <GRTR? PTR10 MAXPTR11 + PHRASE51 (TYPE FIX)>
+ <FRAME '\1aWRITE-BYTE>
+ <FRAME '\1aNTH-FCODE>
+ <PUSH PTR10>
+ <CALL '\1aNTH-FCODE 1 = TEMP15>
+ <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = STACK>
+ <DEAD TEMP15>
+ <CALL '\1aWRITE-BYTE 1>
+ <JUMP + PHRASE54>
+PHRASE51
+ <FRAME '\1aWRITE-BYTE>
+ <PUSH !\\0>
+ <CALL '\1aWRITE-BYTE 1>
+PHRASE54
+ <ADD PTR10 1 = PTR10 (TYPE FIX)>
+ <GRTR? PTR10 MAXPTR11 + PHRASE57 (TYPE FIX)>
+ <FRAME '\1aWRITE-BYTE>
+ <FRAME '\1aNTH-FCODE>
+ <PUSH PTR10>
+ <CALL '\1aNTH-FCODE 1 = TEMP15>
+ <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = STACK>
+ <DEAD TEMP15>
+ <CALL '\1aWRITE-BYTE 1>
+ <JUMP + PHRASE60>
+PHRASE57
+ <FRAME '\1aWRITE-BYTE>
+ <PUSH !\\0>
+ <CALL '\1aWRITE-BYTE 1>
+PHRASE60
+ <ADD PTR10 1 = PTR10 (TYPE FIX)>
+ <GRTR? PTR10 MAXPTR11 + PHRASE63 (TYPE FIX)>
+ <FRAME '\1aWRITE-BYTE>
+ <FRAME '\1aNTH-FCODE>
+ <PUSH PTR10>
+ <CALL '\1aNTH-FCODE 1 = TEMP15>
+ <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = STACK>
+ <DEAD TEMP15>
+ <CALL '\1aWRITE-BYTE 1>
+ <JUMP + PHRASE66>
+PHRASE63
+ <FRAME '\1aWRITE-BYTE>
+ <PUSH !\\0>
+ <CALL '\1aWRITE-BYTE 1>
+PHRASE66
+ <ADD PTR10 1 = PTR10 (TYPE FIX)>
+ <GRTR? PTR10 MAXPTR11 - AGAIN47 (TYPE FIX)>
+ <JUMP + EXIT27>
+PHRASE35
+ <ENDIF "VAX">
+ <FRAME '\1aPRINTBYTE>
+ <DIV LEN12 65536 = STACK (TYPE FIX)>
+ <CALL '\1aPRINTBYTE 1>
+ <FRAME '\1aPRINTBYTE>
+ <AND LEN12 65535 = TEMP15>
+ <DIV TEMP15 256 = STACK (TYPE FIX)>
+ <DEAD TEMP15>
+ <CALL '\1aPRINTBYTE 1>
+ <FRAME '\1aPRINTBYTE>
+ <AND LEN12 255 = STACK>
+ <DEAD LEN12>
+ <CALL '\1aPRINTBYTE 1>
+ <LOOP>
+AGAIN75
+ <INTGO>
+ <ADD PTR10 3 = TEMP40 (TYPE FIX)>
+ <LESS? MAXPTR11 TEMP40 + PHRASE77 (TYPE FIX)>
+ <DEAD TEMP40>
+ <FRAME '\1aPRINTBYTE>
+ <FRAME '\1aNTH-FCODE>
+ <ADD PTR10 3 = STACK (TYPE FIX)>
+ <CALL '\1aNTH-FCODE 1 = STACK>
+ <CALL '\1aPRINTBYTE 1>
+ <JUMP + PHRASE80>
+PHRASE77
+ <FRAME '\1aPRINTBYTE>
+ <PUSH 0>
+ <CALL '\1aPRINTBYTE 1>
+PHRASE80
+ <ADD PTR10 2 = TEMP40 (TYPE FIX)>
+ <LESS? MAXPTR11 TEMP40 + PHRASE83 (TYPE FIX)>
+ <DEAD TEMP40>
+ <FRAME '\1aPRINTBYTE>
+ <FRAME '\1aNTH-FCODE>
+ <ADD PTR10 2 = STACK (TYPE FIX)>
+ <CALL '\1aNTH-FCODE 1 = STACK>
+ <CALL '\1aPRINTBYTE 1>
+ <JUMP + PHRASE86>
+PHRASE83
+ <FRAME '\1aPRINTBYTE>
+ <PUSH 0>
+ <CALL '\1aPRINTBYTE 1>
+PHRASE86
+ <ADD PTR10 1 = TEMP40 (TYPE FIX)>
+ <LESS? MAXPTR11 TEMP40 + PHRASE89 (TYPE FIX)>
+ <DEAD TEMP40>
+ <FRAME '\1aPRINTBYTE>
+ <FRAME '\1aNTH-FCODE>
+ <ADD PTR10 1 = STACK (TYPE FIX)>
+ <CALL '\1aNTH-FCODE 1 = STACK>
+ <CALL '\1aPRINTBYTE 1>
+ <JUMP + PHRASE92>
+PHRASE89
+ <FRAME '\1aPRINTBYTE>
+ <PUSH 0>
+ <CALL '\1aPRINTBYTE 1>
+PHRASE92
+ <FRAME '\1aPRINTBYTE>
+ <FRAME '\1aNTH-FCODE>
+ <PUSH PTR10>
+ <CALL '\1aNTH-FCODE 1 = STACK>
+ <CALL '\1aPRINTBYTE 1>
+ <ADD PTR10 4 = PTR10 (TYPE FIX)>
+ <GRTR? PTR10 MAXPTR11 - AGAIN75 (TYPE FIX)>
+ <FRAME '\1aWRITE-BYTE>
+ <PUSH !\|>
+ <CALL '\1aWRITE-BYTE 1>
+EXIT27
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OUTCHAN9>
+ <DEAD OUTCHAN9>
+ <PUSH 'WRITE-BUFFER>
+ <GVAL 'MSUBR-BUF = TEMP40>
+ <TOPU TEMP40 = STACK>
+ <DEAD TEMP40>
+ <GVAL 'MSUBR-PTR = STACK>
+ <CALL '\1aCHANNEL-OP 4 = TEMP40>
+ <RETURN TEMP40>
+ <DEAD TEMP40>
+ <END \1aPRINT-NHEX-CODE>\r\0\r\0
+#WORD *30211416723*
+<GFCN \1aPRINTBYTE ("VALUE" FIX FIX) NUM4>
+ <TEMP TEMP6:FIX>
+ <INTGO>
+ <FRAME '\1aWRITE-BYTE>
+ <LSH NUM4 -5 = TEMP6 (TYPE FIX)>
+ <ADD TEMP6 65 = TEMP6 (TYPE FIX)>
+ <CHTYPE TEMP6 <TYPE-CODE CHARACTER> = STACK>
+ <DEAD TEMP6>
+ <CALL '\1aWRITE-BYTE 1>
+ <FRAME '\1aWRITE-BYTE>
+ <AND NUM4 #WORD *37* = TEMP6>
+ <DEAD NUM4>
+ <ADD TEMP6 65 = TEMP6 (TYPE FIX)>
+ <CHTYPE TEMP6 <TYPE-CODE CHARACTER> = STACK>
+ <DEAD TEMP6>
+ <CALL '\1aWRITE-BYTE 1 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aPRINTBYTE>
+#WORD *33531324710*
+<GFCN \1aWRITE-BYTE ("VALUE" FIX CHARACTER) BYTE4>
+ <TEMP S5>
+ <INTGO>
+ <GVAL 'MSUBR-BUF = S5>
+ <EMPUS? S5 - PHRASE7 (TYPE STRING)>
+ <TOPU S5 = S5>
+ <FRAME '\1aCHANNEL-OP>
+ <GVAL 'MSUBR-CHAN = STACK>
+ <PUSH 'WRITE-BUFFER>
+ <PUSH S5>
+ <GVAL 'MSUBR-PTR = STACK>
+ <CALL '\1aCHANNEL-OP 4>
+ <SETG 'MSUBR-PTR 0>
+PHRASE7
+ <PUTUS S5 1 BYTE4>
+ <DEAD BYTE4>
+ <RESTUS S5 1 = S5 (TYPE STRING)>
+ <SETG 'MSUBR-BUF S5>
+ <DEAD S5>
+ <GVAL 'MSUBR-PTR = S5>
+ <ADD S5 1 = S5 (TYPE FIX)>
+ <SETG 'MSUBR-PTR S5>
+ <RETURN S5>
+ <DEAD S5>
+ <END \1aWRITE-BYTE>
\ No newline at end of file
projects / pdp10-muddle.git / blobdiff