--- /dev/null
+
+#WORD *15620355001*
+ <GFCN \1aPUTR-GEN ("VALUE" ATOM ANY <OR FIX VARTBL> ANY "OPTIONAL" ANY ANY) VAR7 NUM8 VAL9 HINT10 PHINT11>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP RD12 TEMP42 VAC14 TCOFF16 ANYCOFF19 ETYP13:ATOM>
+ <INTGO>
+ <TYPE? VAR7 <TYPE-CODE VARTBL> + PHRASE26>
+ <FRAME '\1aTYPE>
+ <PUSH VAR7>
+ <CALL '\1aTYPE 1 = HINT10>
+PHRASE26
+ <TYPE? PHINT11 <TYPE-CODE FALSE> + PHRASE29>
+ <FRAME '\1aPARSE-HINT>
+ <PUSH PHINT11>
+ <DEAD PHINT11>
+ <PUSH 'TYPE>
+ <CALL '\1aPARSE-HINT 2 = PHINT11>
+PHRASE29
+ <TYPE? NUM8 <TYPE-CODE VARTBL> + BOOL33>
+ <TYPE? HINT10 <TYPE-CODE FALSE> - PHRASE32>
+BOOL33
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'IPUTR!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH VAR7>
+ <DEAD VAR7>
+ <PUSH NUM8>
+ <DEAD NUM8>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <CALL '\1aCALL-RTE 7>
+ <RETURN 'NORMAL>
+PHRASE32
+ <FRAME '\1aGET-RELE-DESCRIPTOR>
+ <PUSH NUM8>
+ <PUSH HINT10>
+ <CALL '\1aGET-RELE-DESCRIPTOR 2 = RD12>
+ <TYPE? RD12 <TYPE-CODE FALSE> - BOOL36>
+ <FRAME '\1aERROR>
+ <PUSH "RECORD TYPE NOT FOUND">
+ <PUSH NUM8>
+ <PUSH HINT10>
+ <PUSH 'PUTR-GEN>
+ <CALL '\1aERROR 4>
+BOOL36
+ <GVAL 'MAKTUP-FLAG = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE40>
+ <DEAD TEMP42>
+ <VEQUAL? NUM8 2 - PHRASE40 (TYPE FIX)>
+ <DEAD NUM8>
+ <EQUAL? VAL9 'UNWIND + BOOL43>
+ <EQUAL? VAL9 'T$UNWIND - PHRASE40>
+BOOL43
+ <TYPE? HINT10 <TYPE-CODE FALSE> + PHRASE40>
+ <FRAME '\1aPARSE-HINT>
+ <PUSH HINT10>
+ <PUSH 'RECORD-TYPE>
+ <CALL '\1aPARSE-HINT 2 = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE40>
+ <EQUAL? TEMP42 'LBIND + BOOL46>
+ <EQUAL? TEMP42 'LBIND - PHRASE40>
+ <DEAD TEMP42>
+BOOL46
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH 'FRAME>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <GVAL 'AC-F = TEMP42>
+ <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+PHRASE40
+ <FRAME '\1aGET-RSTACK?>
+ <PUSH HINT10>
+ <DEAD HINT10>
+ <CALL '\1aGET-RSTACK? 1 = TEMP42>
+ <FRAME '\1aPROTECT-VAL>
+ <PUSH VAL9>
+ <CALL '\1aPROTECT-VAL 1>
+ <TYPE? VAR7 <TYPE-CODE VARTBL> - PHRASE53>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR7>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <PUSH 'PREF-VAL>
+ <CALL '\1aLOAD-VAR 4 = VAC14>
+ <JUMP + PHRASE55>
+PHRASE53
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = VAC14>
+ <FRAME '\1aMOVE-VALUE>
+ <PUSH VAR7>
+ <PUSH VAC14>
+ <CALL '\1aMOVE-VALUE 2>
+PHRASE55
+ <FRAME '\1aPROTECT>
+ <PUSH VAC14>
+ <CALL '\1aPROTECT 1>
+ <FRAME '\1aMA-DISP>
+ <PUSH VAC14>
+ <NTHUV RD12 2 = STACK (TYPE FIX)>
+ <CALL '\1aMA-DISP 2 = TCOFF16>
+ <FRAME '\1aMA-DISP>
+ <PUSH VAC14>
+ <NTHUV RD12 2 = TEMP42 (TYPE FIX)>
+ <ADD TEMP42 2 = STACK (TYPE FIX)>
+ <DEAD TEMP42>
+ <CALL '\1aMA-DISP 2 = ANYCOFF19>
+ <FRAME '\1aMA-DISP>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <NTHUV RD12 1 = STACK (TYPE FIX)>
+ <CALL '\1aMA-DISP 2 = VAC14>
+ <NTHUV RD12 3 = ETYP13 (TYPE ATOM)>
+ <VEQUAL? ETYP13 'ANY - PHRASE63>
+ <FRAME '\1aFIX-CONSTANT?>
+ <PUSH VAL9>
+ <CALL '\1aFIX-CONSTANT? 1 = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> - BOOL73>
+ <DEAD TEMP42>
+ <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE65>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAL9>
+ <CALL '\1aFIND-CACHE-VAR 1 = RD12>
+ <TYPE? RD12 <TYPE-CODE FALSE> + PHRASE65>
+ <NTHUV RD12 2 = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> + BOOL70>
+ <DEAD TEMP42>
+ <NTHUV RD12 4 = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> + BOOL70>
+ <DEAD TEMP42>
+ <NTHUV RD12 3 = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> - PHRASE65>
+ <DEAD TEMP42>
+BOOL70
+ <NTHUV RD12 9 = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> + BOOL73>
+ <NTHUV RD12 6 = RD12>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP42>
+ <DEAD TEMP42>
+ <CALL '\1aNEXT-AC 1 = TEMP42>
+ <EQUAL? RD12 TEMP42 + PHRASE65>
+ <DEAD RD12 TEMP42>
+BOOL73
+ <FRAME '\1aMOVE-VALUE>
+ <PUSH VAL9>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <CALL '\1aMOVE-VALUE 2>
+ <FRAME '\1aMOVE-TYPE>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <PUSH TCOFF16>
+ <DEAD TCOFF16>
+ <PUSH ANYCOFF19>
+ <DEAD ANYCOFF19>
+ <CALL '\1aMOVE-TYPE 3>
+ <JUMP + PHRASE164>
+PHRASE65
+ <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE79>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <FRAME '\1aVAR-TYPE-ADDRESS>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <PUSH 'TYPE-WORD>
+ <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
+ <PUSH TCOFF16>
+ <DEAD TCOFF16>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE164>
+PHRASE79
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <FRAME '\1aADDR-TYPE-MQUOTE>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <CALL '\1aADDR-TYPE-MQUOTE 1 = STACK>
+ <PUSH TCOFF16>
+ <DEAD TCOFF16>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE164>
+PHRASE63
+ <VEQUAL? ETYP13 'SMALL-INT + BOOL86>
+ <VEQUAL? ETYP13 'SMALL-POS-INT - PHRASE85>
+BOOL86
+ <TYPE? VAL9 <TYPE-CODE FIX> - PHRASE88>
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aMA-IMM>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-MOVE 3>
+ <JUMP + PHRASE164>
+PHRASE88
+ <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE91>
+ <FRAME '\1aVAR-VALUE-IN-AC?>
+ <PUSH VAL9>
+ <CALL '\1aVAR-VALUE-IN-AC? 1 = RD12>
+ <TYPE? RD12 <TYPE-CODE FALSE> + PHRASE93>
+ <FRAME '\1aEMIT-MOVE>
+ <NTHUV RD12 2 = TEMP42 (TYPE FIX)>
+ <DEAD RD12>
+ <OR TEMP42 #WORD *120* = TEMP42>
+ <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
+ <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP42>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-MOVE 3>
+ <JUMP + PHRASE164>
+PHRASE93
+ <FRAME '\1aMA-DISP>
+ <GVAL 'AC-F = STACK>
+ <NTHUV VAL9 2 = TEMP42 (TYPE FIX)>
+ <DEAD VAL9>
+ <ADD TEMP42 2 = STACK (TYPE FIX)>
+ <DEAD TEMP42>
+ <CALL '\1aMA-DISP 2 = RD12>
+ <FRAME '\1aEMIT-MOVE>
+ <PUSH RD12>
+ <DEAD RD12>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-MOVE 3>
+ <JUMP + PHRASE164>
+PHRASE91
+ <FRAME '\1aERROR>
+ <PUSH "BAD ARGUMENT">
+ <PUSH 'PUT-RECORD>
+ <CALL '\1aERROR 2>
+ <JUMP + PHRASE164>
+PHRASE85
+ <VEQUAL? ETYP13 'TYPE-C + BOOL101>
+ <VEQUAL? ETYP13 'VWORD1 - PHRASE100>
+BOOL101
+ <NTHUV RD12 5 = TEMP42>
+ <DEAD RD12>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE103>
+ <DEAD TEMP42>
+ <EQUAL? VAL9 %<> + BOOL106>
+ <TYPE? VAL9 <TYPE-CODE VARTBL> - BOOL107>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAL9>
+ <CALL '\1aVARTBL-DECL 1 = TEMP42>
+ <EQUAL? TEMP42 'FALSE + BOOL106>
+ <DEAD TEMP42>
+BOOL107
+ <EQUAL? PHINT11 'FALSE - PHRASE105>
+BOOL106
+ <VEQUAL? ETYP13 'TYPE-C - PHRASE110>
+ <DEAD ETYP13>
+ <FRAME '\1aEMIT>
+ <PUSH 178>
+ <FRAME '\1aMA-IMM>
+ <PUSH 0>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE164>
+PHRASE110
+ <FRAME '\1aEMIT>
+ <PUSH 212>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <CALL '\1aEMIT 2>
+ <JUMP + PHRASE164>
+PHRASE105
+ <TYPE? VAL9 <TYPE-CODE VARTBL> - BOOL116>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAL9>
+ <CALL '\1aVARTBL-DECL 1 = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> - BOOL116>
+ <DEAD TEMP42>
+ <TYPE? PHINT11 <TYPE-CODE FALSE> + PHRASE115>
+ <DEAD PHINT11>
+BOOL116
+ <VEQUAL? ETYP13 'TYPE-C - PHRASE119>
+ <DEAD ETYP13>
+ <FRAME '\1aEMIT>
+ <PUSH 176>
+ <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE122>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP42>
+ <JUMP + PHRASE124>
+PHRASE122
+ <FRAME '\1aMA-IMM>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <CALL '\1aMA-IMM 1 = TEMP42>
+PHRASE124
+ <PUSH TEMP42>
+ <DEAD TEMP42>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE164>
+PHRASE119
+ <FRAME '\1aMOVE-VALUE>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <CALL '\1aMOVE-VALUE 2>
+ <JUMP + PHRASE164>
+PHRASE115
+ <FRAME '\1aTESTSET>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <PUSH %<>>
+ <VEQUAL? ETYP13 'TYPE-C - TAG130>
+ <DEAD ETYP13>
+ <PUSH 'T>
+ <JUMP + TAG131>
+TAG130
+ <PUSH %<>>
+TAG131
+ <CALL '\1aTESTSET 4>
+ <JUMP + PHRASE164>
+PHRASE103
+ <FRAME '\1aMOVE-VALUE>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <CALL '\1aMOVE-VALUE 2>
+ <JUMP + PHRASE164>
+PHRASE100
+ <VEQUAL? ETYP13 'COUNTVWORD - PHRASE134>
+ <NTHUV RD12 5 = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE136>
+ <DEAD TEMP42>
+ <EQUAL? VAL9 %<> + BOOL138>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAR7>
+ <DEAD VAR7>
+ <CALL '\1aVARTBL-DECL 1 = TEMP42>
+ <EQUAL? TEMP42 'FALSE + BOOL138>
+ <DEAD TEMP42>
+ <EQUAL? PHINT11 'FALSE - PHRASE136>
+BOOL138
+ <FRAME '\1aEMIT>
+ <PUSH 212>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aEMIT>
+ <PUSH 180>
+ <PUSH TCOFF16>
+ <DEAD TCOFF16>
+ <CALL '\1aEMIT 2>
+ <JUMP + PHRASE164>
+PHRASE136
+ <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE142>
+ <NTHUV RD12 5 = TEMP42>
+ <DEAD RD12>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> + BOOL145>
+ <DEAD TEMP42>
+ <TYPE? PHINT11 <TYPE-CODE FALSE> - BOOL145>
+ <DEAD PHINT11>
+ <FRAME '\1aVARTBL-DECL>
+ <PUSH VAL9>
+ <CALL '\1aVARTBL-DECL 1 = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE144>
+ <DEAD TEMP42>
+BOOL145
+ <FRAME '\1aMOVE-VALUE>
+ <PUSH VAL9>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <CALL '\1aMOVE-VALUE 2>
+ <FRAME '\1aCOUNT-STORE-REC>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <PUSH TCOFF16>
+ <DEAD TCOFF16>
+ <CALL '\1aCOUNT-STORE-REC 2>
+ <JUMP + PHRASE164>
+PHRASE144
+ <FRAME '\1aTESTSET>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <PUSH TCOFF16>
+ <DEAD TCOFF16>
+ <CALL '\1aTESTSET 3>
+ <JUMP + PHRASE164>
+PHRASE142
+ <FRAME '\1aMOVE-VALUE>
+ <PUSH VAL9>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <CALL '\1aMOVE-VALUE 2>
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aMA-IMM>
+ <FRAME '\1aLENGTH>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <CALL '\1aLENGTH 1 = STACK>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH TCOFF16>
+ <DEAD TCOFF16>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-MOVE 3>
+ <JUMP + PHRASE164>
+PHRASE134
+ <VEQUAL? ETYP13 'BYTE - PHRASE156>
+ <TYPE? VAL9 <TYPE-CODE FIX> - PHRASE158>
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aMA-IMM>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <PUSH 'BYTE>
+ <CALL '\1aEMIT-MOVE 3>
+ <JUMP + PHRASE164>
+PHRASE158
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <PUSH 'BYTE>
+ <CALL '\1aEMIT-MOVE 3>
+ <JUMP + PHRASE164>
+PHRASE156
+ <VEQUAL? ETYP13 'BOOLEAN - PHRASE164>
+ <DEAD ETYP13>
+ <FRAME '\1aTEST-BOOL>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <NTHUV RD12 4 = STACK (TYPE FIX)>
+ <DEAD RD12>
+ <PUSH VAL9>
+ <DEAD VAL9>
+ <CALL '\1aTEST-BOOL 3>
+PHRASE164
+ <FRAME '\1aCLEAR-STATUS>
+ <CALL '\1aCLEAR-STATUS 0>
+ <RETURN 'NORMAL>
+ <END \1aPUTR-GEN>
+
+#WORD *2765352447*
+ <GFCN \1aTESTSET ("VALUE" ANY VARTBL EFF-ADDR <OR FIX FALSE EFF-ADDR> "OPTIONAL" ANY) VAR6 VADDR7 TCADDR8 HW9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP FLAB11 TEMP17 ELAB10>
+ <INTGO>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = FLAB11>
+ <FRAME '\1aTYPE-TST-GEN>
+ <PUSH VAR6>
+ <PUSH 'FALSE>
+ <PUSH '->
+ <PUSH FLAB11>
+ <CALL '\1aTYPE-TST-GEN 4>
+ <FRAME '\1aEMIT>
+ <TYPE? HW9 <TYPE-CODE FALSE> + PHRASE16>
+ <SET TEMP17 180 (TYPE FIX)>
+ <JUMP + PHRASE18>
+PHRASE16
+ <SET TEMP17 212 (TYPE FIX)>
+PHRASE18
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <PUSH VADDR7>
+ <CALL '\1aEMIT 2>
+ <TYPE? TCADDR8 <TYPE-CODE EFF-ADDR> - BOOL19>
+ <FRAME '\1aEMIT>
+ <PUSH 180>
+ <PUSH TCADDR8>
+ <CALL '\1aEMIT 2>
+BOOL19
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = ELAB10>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 17>
+ <PUSH ELAB10>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH FLAB11>
+ <DEAD FLAB11>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aVAR-VALUE-ADDRESS>
+ <PUSH VAR6>
+ <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
+ <PUSH VADDR7>
+ <DEAD VADDR7>
+ <TYPE? HW9 <TYPE-CODE FALSE> + PHRASE27>
+ <DEAD HW9>
+ <SET TEMP17 'WORD (TYPE ATOM)>
+ <JUMP + PHRASE28>
+PHRASE27
+ <SET TEMP17 'LONG (TYPE ATOM)>
+PHRASE28
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <CALL '\1aEMIT-MOVE 3>
+ <TYPE? TCADDR8 <TYPE-CODE EFF-ADDR> - PHRASE30>
+ <FRAME '\1aCOUNT-STORE-REC>
+ <PUSH VAR6>
+ <DEAD VAR6>
+ <PUSH TCADDR8>
+ <DEAD TCADDR8>
+ <CALL '\1aCOUNT-STORE-REC 2>
+PHRASE30
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH ELAB10>
+ <DEAD ELAB10>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2 = TEMP17>
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aTESTSET>
+
+#WORD *32051763072*
+ <GFCN \1aTEST-BOOL ("VALUE" ANY EFF-ADDR FIX VARTBL) VCADDR4 BITNO5 VAL6>
+ <TEMP FLAB7>
+ <INTGO>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = FLAB7>
+ <FRAME '\1aTYPE-TST-GEN>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'FALSE>
+ <PUSH '->
+ <PUSH FLAB7>
+ <DEAD FLAB7>
+ <CALL '\1aTYPE-TST-GEN 4>
+ <FRAME '\1aEMIT>
+ <PUSH 202>
+ <PUSH VCADDR4>
+ <FRAME '\1aMA-IMM>
+ <LSH 1 BITNO5 = STACK (TYPE FIX)>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = FLAB7>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 17>
+ <PUSH FLAB7>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT>
+ <GVAL 'INST-BISL = STACK>
+ <PUSH VCADDR4>
+ <DEAD VCADDR4>
+ <FRAME '\1aMA-IMM>
+ <LSH 1 BITNO5 = STACK (TYPE FIX)>
+ <DEAD BITNO5>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH FLAB7>
+ <DEAD FLAB7>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2 = FLAB7>
+ <RETURN FLAB7>
+ <DEAD FLAB7>
+ <END \1aTEST-BOOL>
+
+#WORD *1463367306*
+ <GFCN \1aNTH-RECORD-GEN ("VALUE" ATOM ANY <OR VARTBL FIX> <OR ATOM VARTBL> "OPTIONAL" ANY <OR FALSE HINT>) VAR7 OFF8 RES9 HINT110 HINT211>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP (BRANCH?13 %<>) RD12 STACK?23 NTYP20 VAC14 TCOFF16 TEMP51 VOFF18 ETYP22:ATOM>
+ <INTGO>
+ <TYPE? VAR7 <TYPE-CODE VARTBL> + PHRASE26>
+ <FRAME '\1aTYPE>
+ <PUSH VAR7>
+ <CALL '\1aTYPE 1 = HINT110>
+PHRASE26
+ <TYPE? HINT110 <TYPE-CODE FALSE> + BOOL30>
+ <TYPE? OFF8 <TYPE-CODE VARTBL> - PHRASE29>
+BOOL30
+ <FRAME '\1aCALL-RTE>
+ <GVAL 'INTHR!-MIMOP = STACK>
+ <PUSH 'CALL>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH %<>>
+ <PUSH VAR7>
+ <DEAD VAR7>
+ <PUSH OFF8>
+ <DEAD OFF8>
+ <CALL '\1aCALL-RTE 6>
+ <RETURN 'NORMAL>
+PHRASE29
+ <FRAME '\1aGET-RELE-DESCRIPTOR>
+ <PUSH OFF8>
+ <PUSH HINT110>
+ <CALL '\1aGET-RELE-DESCRIPTOR 2 = RD12>
+ <TYPE? RD12 <TYPE-CODE FALSE> - BOOL33>
+ <FRAME '\1aERROR>
+ <PUSH "RECORD TYPE NOT FOUND">
+ <PUSH HINT110>
+ <PUSH OFF8>
+ <DEAD OFF8>
+ <PUSH 'NTH-RECORD-GEN>
+ <CALL '\1aERROR 4>
+BOOL33
+ <FRAME '\1aGET-RSTACK?>
+ <PUSH HINT110>
+ <DEAD HINT110>
+ <CALL '\1aGET-RSTACK? 1 = STACK?23>
+ <NTHUV RD12 7 = STACK?23>
+ <SET NTYP20 HINT211>
+ <TYPE? NTYP20 <TYPE-CODE FALSE> + BOOL37>
+ <FRAME '\1aPARSE-HINT>
+ <PUSH HINT211>
+ <PUSH 'TYPE>
+ <CALL '\1aPARSE-HINT 2 = NTYP20>
+BOOL37
+ <EQUAL? RES9 'STACK + PHRASE40>
+ <FRAME '\1aGET-RELE-BRANCH?>
+ <PUSH HINT211>
+ <DEAD HINT211>
+ <CALL '\1aGET-RELE-BRANCH? 1 = BRANCH?13>
+PHRASE40
+ <TYPE? VAR7 <TYPE-CODE VARTBL> - PHRASE43>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR7>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <PUSH 'PREF-VAL>
+ <CALL '\1aLOAD-VAR 4 = VAC14>
+ <JUMP + PHRASE45>
+PHRASE43
+ <FRAME '\1aGET-AC>
+ <PUSH 'VALUE>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = VAC14>
+ <FRAME '\1aMOVE-VALUE>
+ <PUSH VAR7>
+ <PUSH VAC14>
+ <CALL '\1aMOVE-VALUE 2>
+PHRASE45
+ <FRAME '\1aPROTECT>
+ <PUSH VAC14>
+ <CALL '\1aPROTECT 1>
+ <FRAME '\1aMA-DISP>
+ <PUSH VAC14>
+ <NTHUV RD12 2 = STACK (TYPE FIX)>
+ <CALL '\1aMA-DISP 2 = TCOFF16>
+ <FRAME '\1aMA-DISP>
+ <PUSH VAC14>
+ <NTHUV RD12 2 = TEMP51 (TYPE FIX)>
+ <ADD TEMP51 2 = STACK (TYPE FIX)>
+ <DEAD TEMP51>
+ <CALL '\1aMA-DISP 2 = TEMP51>
+ <FRAME '\1aMA-DISP>
+ <PUSH VAC14>
+ <NTHUV RD12 1 = STACK (TYPE FIX)>
+ <CALL '\1aMA-DISP 2 = VOFF18>
+ <EQUAL? VAR7 RES9 - PHRASE54>
+ <FRAME '\1aDEAD-VAR>
+ <PUSH VAR7>
+ <DEAD VAR7>
+ <CALL '\1aDEAD-VAR 1>
+PHRASE54
+ <NTHUV RD12 3 = ETYP22 (TYPE ATOM)>
+ <VEQUAL? ETYP22 'ANY - PHRASE57>
+ <FRAME '\1aRANY-OFF>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH TCOFF16>
+ <DEAD TCOFF16>
+ <PUSH VOFF18>
+ <DEAD VOFF18>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <CALL '\1aRANY-OFF 4>
+ <RETURN 'NORMAL>
+PHRASE57
+ <VEQUAL? ETYP22 'VWORD1 + BOOL61>
+ <VEQUAL? ETYP22 'COUNTVWORD - PHRASE59>
+BOOL61
+ <TYPE? BRANCH?13 <TYPE-CODE FALSE> + PHRASE59>
+ <FRAME '\1aBRANCH-VALUE>
+ <PUSH VOFF18>
+ <PUSH BRANCH?13>
+ <DEAD BRANCH?13>
+ <NTHUV RD12 6 = STACK>
+ <CALL '\1aBRANCH-VALUE 3 = BRANCH?13>
+ <FRAME '\1aGEN-NTH>
+ <PUSH VOFF18>
+ <DEAD VOFF18>
+ <PUSH STACK?23>
+ <DEAD STACK?23>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <PUSH RES9>
+ <DEAD RES9>
+ <NTHUV RD12 6 = STACK>
+ <PUSH %<>>
+ <NTHUV RD12 6 = TEMP51>
+ <TYPE? TEMP51 <TYPE-CODE FALSE> + PHRASE65>
+ <SET TEMP51 BRANCH?13>
+PHRASE65
+ <PUSH TEMP51>
+ <DEAD TEMP51>
+ <NTHUV RD12 6 = TEMP51>
+ <DEAD RD12>
+ <TYPE? TEMP51 <TYPE-CODE FALSE> + PHRASE67>
+ <DEAD TEMP51>
+ <FRAME '\1aNEXT-AC>
+ <PUSH BRANCH?13>
+ <DEAD BRANCH?13>
+ <CALL '\1aNEXT-AC 1 = TEMP51>
+ <JUMP + PHRASE69>
+PHRASE67
+ <SET TEMP51 BRANCH?13>
+ <DEAD BRANCH?13>
+PHRASE69
+ <PUSH TEMP51>
+ <DEAD TEMP51>
+ <CALL '\1aGEN-NTH 8>
+ <RETURN 'NORMAL>
+PHRASE59
+ <VEQUAL? ETYP22 'TYPE-C - PHRASE70>
+ <TYPE? BRANCH?13 <TYPE-CODE FALSE> + PHRASE70>
+ <FRAME '\1aBRANCH-HW>
+ <PUSH VOFF18>
+ <PUSH BRANCH?13>
+ <DEAD BRANCH?13>
+ <CALL '\1aBRANCH-HW 2 = BRANCH?13>
+ <FRAME '\1aGEN-NTH>
+ <PUSH VOFF18>
+ <DEAD VOFF18>
+ <PUSH STACK?23>
+ <DEAD STACK?23>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <PUSH RES9>
+ <DEAD RES9>
+ <NTHUV RD12 6 = STACK>
+ <DEAD RD12>
+ <PUSH 'T>
+ <PUSH %<>>
+ <PUSH BRANCH?13>
+ <DEAD BRANCH?13>
+ <CALL '\1aGEN-NTH 8>
+ <RETURN 'NORMAL>
+PHRASE70
+ <VEQUAL? ETYP22 'VWORD1 + BOOL75>
+ <VEQUAL? ETYP22 'TYPE-C - PHRASE74>
+BOOL75
+ <NTHUV RD12 5 = TEMP51>
+ <TYPE? TEMP51 <TYPE-CODE FALSE> + PHRASE77>
+ <DEAD TEMP51>
+ <FRAME '\1aTEST-NTH>
+ <PUSH VOFF18>
+ <DEAD VOFF18>
+ <PUSH STACK?23>
+ <DEAD STACK?23>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <PUSH RES9>
+ <DEAD RES9>
+ <NTHUV RD12 6 = STACK>
+ <DEAD RD12>
+ <PUSH NTYP20>
+ <DEAD NTYP20>
+ <VEQUAL? ETYP22 'TYPE-C - TAG79>
+ <DEAD ETYP22>
+ <PUSH 'T>
+ <JUMP + TAG80>
+TAG79
+ <PUSH %<>>
+TAG80
+ <CALL '\1aTEST-NTH 7>
+ <RETURN 'NORMAL>
+PHRASE77
+ <FRAME '\1aGEN-NTH>
+ <PUSH VOFF18>
+ <DEAD VOFF18>
+ <PUSH STACK?23>
+ <DEAD STACK?23>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <PUSH RES9>
+ <DEAD RES9>
+ <NTHUV RD12 6 = STACK>
+ <DEAD RD12>
+ <VEQUAL? ETYP22 'TYPE-C - TAG82>
+ <DEAD ETYP22>
+ <PUSH 'T>
+ <JUMP + TAG83>
+TAG82
+ <PUSH %<>>
+TAG83
+ <CALL '\1aGEN-NTH 6>
+ <RETURN 'NORMAL>
+PHRASE74
+ <VEQUAL? ETYP22 'COUNTVWORD - PHRASE84>
+ <NTHUV RD12 5 = TEMP51>
+ <DEAD RD12>
+ <TYPE? TEMP51 <TYPE-CODE FALSE> + PHRASE86>
+ <DEAD TEMP51>
+ <FRAME '\1aTEST-NTH>
+ <PUSH VOFF18>
+ <DEAD VOFF18>
+ <PUSH STACK?23>
+ <DEAD STACK?23>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH TCOFF16>
+ <DEAD TCOFF16>
+ <PUSH NTYP20>
+ <DEAD NTYP20>
+ <CALL '\1aTEST-NTH 6>
+ <RETURN 'NORMAL>
+PHRASE86
+ <FRAME '\1aGEN-NTH>
+ <PUSH VOFF18>
+ <DEAD VOFF18>
+ <PUSH STACK?23>
+ <DEAD STACK?23>
+ <PUSH VAC14>
+ <DEAD VAC14>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH TCOFF16>
+ <DEAD TCOFF16>
+ <CALL '\1aGEN-NTH 5>
+ <RETURN 'NORMAL>
+PHRASE84
+ <VEQUAL? ETYP22 'SMALL-FR-OFFSET - PHRASE89>
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = BRANCH?13>
+ <PUSH BRANCH?13>
+ <CALL '\1aPROTECT 1>
+ <FRAME '\1aEMIT>
+ <PUSH 50>
+ <PUSH VOFF18>
+ <DEAD VOFF18>
+ <NTHUV BRANCH?13 2 = TEMP51 (TYPE FIX)>
+ <OR TEMP51 #WORD *120* = TEMP51>
+ <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
+ <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP51>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aEMIT>
+ <PUSH 192>
+ <NTHUV VAC14 2 = TEMP51 (TYPE FIX)>
+ <DEAD VAC14>
+ <OR TEMP51 #WORD *120* = TEMP51>
+ <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
+ <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP51>
+ <NTHUV BRANCH?13 2 = TEMP51 (TYPE FIX)>
+ <OR TEMP51 #WORD *120* = TEMP51>
+ <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
+ <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP51>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aDEST-DECL>
+ <PUSH BRANCH?13>
+ <DEAD BRANCH?13>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH 'LBIND>
+ <CALL '\1aDEST-DECL 3>
+ <RETURN 'NORMAL>
+PHRASE89
+ <VEQUAL? ETYP22 'SMALL-INT + BOOL96>
+ <VEQUAL? ETYP22 'SMALL-POS-INT - PHRASE95>
+BOOL96
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = BRANCH?13>
+ <PUSH BRANCH?13>
+ <CALL '\1aPROTECT 1>
+ <VEQUAL? ETYP22 'SMALL-INT - PHRASE100>
+ <DEAD ETYP22>
+ <FRAME '\1aEMIT>
+ <PUSH 50>
+ <PUSH VOFF18>
+ <DEAD VOFF18>
+ <NTHUV BRANCH?13 2 = TEMP51 (TYPE FIX)>
+ <OR TEMP51 #WORD *120* = TEMP51>
+ <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
+ <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP51>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE102>
+PHRASE100
+ <FRAME '\1aEMIT>
+ <PUSH 60>
+ <PUSH VOFF18>
+ <DEAD VOFF18>
+ <NTHUV BRANCH?13 2 = TEMP51 (TYPE FIX)>
+ <OR TEMP51 #WORD *120* = TEMP51>
+ <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
+ <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP51>
+ <CALL '\1aEMIT 3>
+PHRASE102
+ <FRAME '\1aDEST-DECL>
+ <PUSH BRANCH?13>
+ <DEAD BRANCH?13>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH 'FIX>
+ <CALL '\1aDEST-DECL 3>
+ <RETURN 'NORMAL>
+PHRASE95
+ <VEQUAL? ETYP22 'BYTE - PHRASE105>
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = BRANCH?13>
+ <PUSH BRANCH?13>
+ <CALL '\1aPROTECT 1>
+ <FRAME '\1aEMIT>
+ <PUSH 154>
+ <PUSH VOFF18>
+ <DEAD VOFF18>
+ <NTHUV BRANCH?13 2 = TEMP51 (TYPE FIX)>
+ <OR TEMP51 #WORD *120* = TEMP51>
+ <LSH TEMP51 24 = TEMP51 (TYPE FIX)>
+ <CHTYPE TEMP51 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP51>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aDEST-DECL>
+ <PUSH BRANCH?13>
+ <DEAD BRANCH?13>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH 'FIX>
+ <CALL '\1aDEST-DECL 3>
+ <RETURN 'NORMAL>
+PHRASE105
+ <VEQUAL? ETYP22 'BOOLEAN - COND111>
+ <DEAD ETYP22>
+ <TYPE? BRANCH?13 <TYPE-CODE FALSE> + PHRASE112>
+ <FRAME '\1aBOOL-NTH-BRANCH>
+ <PUSH VOFF18>
+ <DEAD VOFF18>
+ <NTHUV RD12 4 = STACK (TYPE FIX)>
+ <DEAD RD12>
+ <PUSH BRANCH?13>
+ <DEAD BRANCH?13>
+ <CALL '\1aBOOL-NTH-BRANCH 3>
+ <RETURN 'NORMAL>
+PHRASE112
+ <FRAME '\1aBOOL-NTH>
+ <PUSH VOFF18>
+ <DEAD VOFF18>
+ <NTHUV RD12 4 = STACK (TYPE FIX)>
+ <DEAD RD12>
+ <PUSH RES9>
+ <DEAD RES9>
+ <CALL '\1aBOOL-NTH 3>
+COND111
+ <RETURN 'NORMAL>
+ <END \1aNTH-RECORD-GEN>
+
+#WORD *4051103505*
+ <GFCN \1aBRANCH-VALUE ("VALUE" ANY EFF-ADDR <LIST ATOM ATOM> ANY) VADDR4 BRANCH?5 TWO?6>
+ <TEMP TEMP11 AC7>
+ <INTGO>
+ <FRAME '\1aGET-AC>
+ <TYPE? TWO?6 <TYPE-CODE FALSE> + PHRASE10>
+ <SET TEMP11 'DOUBLE (TYPE ATOM)>
+ <JUMP + PHRASE12>
+PHRASE10
+ <SET TEMP11 'PREF-VAL (TYPE ATOM)>
+PHRASE12
+ <PUSH TEMP11>
+ <DEAD TEMP11>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = AC7>
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <PUSH VADDR4>
+ <DEAD VADDR4>
+ <TYPE? TWO?6 <TYPE-CODE FALSE> + PHRASE15>
+ <DEAD TWO?6>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC7>
+ <CALL '\1aNEXT-AC 1 = TEMP11>
+ <JUMP + PHRASE17>
+PHRASE15
+ <SET TEMP11 AC7>
+PHRASE17
+ <NTHUV TEMP11 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 3>
+ <NTHL BRANCH?5 1 = TEMP11 (TYPE ATOM)>
+ <VEQUAL? TEMP11 '- - PHRASE19>
+ <DEAD TEMP11>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 18>
+ <RESTL BRANCH?5 1 = TEMP11 (TYPE LIST)>
+ <DEAD BRANCH?5>
+ <NTHL TEMP11 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP11>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <RETURN AC7>
+ <DEAD AC7>
+PHRASE19
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 19>
+ <RESTL BRANCH?5 1 = TEMP11 (TYPE LIST)>
+ <DEAD BRANCH?5>
+ <NTHL TEMP11 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP11>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <RETURN AC7>
+ <DEAD AC7>
+ <END \1aBRANCH-VALUE>
+
+#WORD *12765267764*
+ <GFCN \1aBRANCH-HW ("VALUE" STRUCTURED EFF-ADDR <LIST ATOM ATOM>) VADDR4 BRANCH?5>
+ <TEMP AC6 TEMP9>
+ <INTGO>
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = AC6>
+ <FRAME '\1aEMIT>
+ <PUSH 50>
+ <PUSH VADDR4>
+ <DEAD VADDR4>
+ <NTHUV AC6 2 = TEMP9 (TYPE FIX)>
+ <OR TEMP9 #WORD *120* = TEMP9>
+ <LSH TEMP9 24 = TEMP9 (TYPE FIX)>
+ <CHTYPE TEMP9 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP9>
+ <CALL '\1aEMIT 3>
+ <NTHL BRANCH?5 1 = TEMP9 (TYPE ATOM)>
+ <VEQUAL? TEMP9 '- - PHRASE11>
+ <DEAD TEMP9>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 24>
+ <RESTL BRANCH?5 1 = TEMP9 (TYPE LIST)>
+ <DEAD BRANCH?5>
+ <NTHL TEMP9 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP9>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <RETURN AC6>
+ <DEAD AC6>
+PHRASE11
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 25>
+ <RESTL BRANCH?5 1 = TEMP9 (TYPE LIST)>
+ <DEAD BRANCH?5>
+ <NTHL TEMP9 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP9>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <RETURN AC6>
+ <DEAD AC6>
+ <END \1aBRANCH-HW>
+
+#WORD *22037064475*
+ <GFCN \1aRANY-OFF ("VALUE" ANY <OR ATOM VARTBL> ANY ANY AC) RES4 TCOFF5 VOFF6 VAC7>
+ <TEMP TEMP12 TAC8>
+ <INTGO>
+ <EQUAL? RES4 'STACK - PHRASE10>
+ <FRAME '\1aEMIT-PUSH>
+ <PUSH TCOFF5>
+ <DEAD TCOFF5>
+ <PUSH 'DOUBLE>
+ <CALL '\1aEMIT-PUSH 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE10
+ <GVAL 'AC-0 = TEMP12>
+ <EQUAL? TEMP12 VAC7 + PHRASE15>
+ <DEAD TEMP12>
+ <FRAME '\1aPREV-AC>
+ <PUSH VAC7>
+ <CALL '\1aPREV-AC 1 = TAC8>
+ <NTHUV TAC8 4 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE15>
+ <DEAD TEMP12>
+ <FRAME '\1aALL-DEAD?>
+ <PUSH TAC8>
+ <CALL '\1aALL-DEAD? 1 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - BOOL19>
+ <DEAD TEMP12>
+ <FRAME '\1aALL-STORED?>
+ <PUSH TAC8>
+ <CALL '\1aALL-STORED? 1 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE15>
+ <DEAD TEMP12>
+BOOL19
+ <FRAME '\1aMUNG-AC>
+ <PUSH VAC7>
+ <CALL '\1aMUNG-AC 1>
+ <FRAME '\1aGET-AC>
+ <PUSH TAC8>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <PUSH TCOFF5>
+ <DEAD TCOFF5>
+ <NTHUV TAC8 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *120* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE25>
+PHRASE15
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aGET-AC>
+ <PUSH 'DOUBLE>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = TAC8>
+ <PUSH TAC8>
+ <CALL '\1aPROTECT 1>
+ <FRAME '\1aEMIT>
+ <PUSH 125>
+ <PUSH TCOFF5>
+ <DEAD TCOFF5>
+ <NTHUV TAC8 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *120* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <CALL '\1aEMIT 3>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TAC8>
+ <CALL '\1aNEXT-AC 1 = VAC7>
+PHRASE25
+ <FRAME '\1aDEST-PAIR>
+ <PUSH VAC7>
+ <DEAD VAC7>
+ <PUSH TAC8>
+ <DEAD TAC8>
+ <PUSH RES4>
+ <DEAD RES4>
+ <CALL '\1aDEST-PAIR 3 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aRANY-OFF>
+
+#WORD *10355450321*
+ <GFCN \1aTEST-NTH ("VALUE" ANY EFF-ADDR ATOM AC <OR ATOM VARTBL> <OR EFF-ADDR FALSE FIX> <OR FALSE ATOM> "OPTIONAL" ANY) VADDR6 TYP7 VAC8 RES9 CADDR10 HTYP11 HW12>
+ <OPT-DISPATCH 6 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP (TYPV18 %<>) TEMP26 RTAC16 RVAC15 ELAB14 FLAB13>
+ <INTGO>
+ <GVAL 'TYPE-WORDS = TEMP26>
+ <EMPUV? TEMP26 + TAG22>
+ <LOOP (TYP7 VALUE) (TEMP26 LENGTH VALUE)>
+TAG24
+ <NTHUV TEMP26 1 = TYPV18>
+ <TYPE? TYPV18 <TYPE-CODE ATOM> - TAG25>
+ <VEQUAL? TYPV18 TYP7 + TAG23>
+ <DEAD TYPV18>
+TAG25
+ <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
+ <EMPUV? TEMP26 - TAG24>
+TAG22
+ <SET TYPV18 %<> (TYPE FALSE)>
+ <JUMP + TAG28>
+TAG23
+ <SET TYPV18 TEMP26>
+ <DEAD TEMP26>
+TAG28
+ <VEQUAL? TYPV18 0 + PHRASE20>
+ <NTHUV TYPV18 2 = TYPV18>
+PHRASE20
+ <TYPE? RES9 <TYPE-CODE VARTBL> - PHRASE30>
+ <TYPE? HTYP11 <TYPE-CODE FALSE> + BOOL33>
+ <TYPE? CADDR10 <TYPE-CODE FALSE> + PHRASE32>
+BOOL33
+ <FRAME '\1aGET-AC>
+ <PUSH 'DOUBLE>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = RTAC16>
+ <FRAME '\1aNEXT-AC>
+ <PUSH RTAC16>
+ <CALL '\1aNEXT-AC 1 = RVAC15>
+ <FRAME '\1aPROTECT>
+ <PUSH RTAC16>
+ <CALL '\1aPROTECT 1>
+ <JUMP + PHRASE37>
+PHRASE32
+ <FRAME '\1aFIND-APP-AC>
+ <PUSH VAC8>
+ <DEAD VAC8>
+ <PUSH TYP7>
+ <CALL '\1aFIND-APP-AC 2 = RVAC15>
+PHRASE37
+ <FRAME '\1aPROTECT>
+ <PUSH RVAC15>
+ <CALL '\1aPROTECT 1>
+PHRASE30
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = ELAB14>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = FLAB13>
+ <TYPE? HTYP11 <TYPE-CODE FALSE> - PHRASE43>
+ <FRAME '\1aEMIT>
+ <TYPE? HW12 <TYPE-CODE FALSE> + PHRASE46>
+ <SET TEMP26 181 (TYPE FIX)>
+ <JUMP + PHRASE47>
+PHRASE46
+ <SET TEMP26 213 (TYPE FIX)>
+PHRASE47
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <PUSH VADDR6>
+ <CALL '\1aEMIT 2>
+ <FRAME '\1aGEN-BRANCH>
+ <TYPE? HW12 <TYPE-CODE FALSE> + PHRASE50>
+ <SET TEMP26 24 (TYPE FIX)>
+ <JUMP + PHRASE51>
+PHRASE50
+ <SET TEMP26 18 (TYPE FIX)>
+PHRASE51
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <PUSH FLAB13>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <EQUAL? RES9 'STACK - PHRASE53>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aCLEAR-PUSH>
+ <CALL '\1aCLEAR-PUSH 0>
+ <JUMP + PHRASE57>
+PHRASE53
+ <FRAME '\1aMOVE-TYPE>
+ <PUSH %<>>
+ <PUSH RTAC16>
+ <CALL '\1aMOVE-TYPE 2>
+ <FRAME '\1aMOVE-VALUE>
+ <PUSH %<>>
+ <PUSH RVAC15>
+ <CALL '\1aMOVE-VALUE 2>
+PHRASE57
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 17>
+ <PUSH ELAB14>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH FLAB13>
+ <DEAD FLAB13>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+PHRASE43
+ <EQUAL? RES9 'STACK - PHRASE63>
+ <TYPE? CADDR10 <TYPE-CODE FALSE> + PHRASE65>
+ <TYPE? CADDR10 <TYPE-CODE FIX> - PHRASE67>
+ <TYPE? TYPV18 <TYPE-CODE FALSE> + PHRASE69>
+ <LSH CADDR10 16 = TEMP26 (TYPE FIX)>
+ <OR TYPV18 TEMP26 = TYPV18>
+ <DEAD TEMP26>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aMA-IMM>
+ <PUSH TYPV18>
+ <DEAD TYPV18>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <JUMP + COND64>
+PHRASE69
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TYP7>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aMA-IMM>
+ <PUSH CADDR10>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <JUMP + COND64>
+PHRASE67
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TYP7>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <PUSH CADDR10>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <JUMP + COND64>
+PHRASE65
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH TYP7>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+COND64
+ <TYPE? HW12 <TYPE-CODE FALSE> + PHRASE84>
+ <DEAD HW12>
+ <FRAME '\1aEMIT>
+ <PUSH 60>
+ <PUSH VADDR6>
+ <DEAD VADDR6>
+ <GVAL 'AC-TP = TEMP26>
+ <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
+ <OR TEMP26 #WORD *200* = TEMP26>
+ <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
+ <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP26>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE119>
+PHRASE84
+ <FRAME '\1aEMIT-PUSH>
+ <PUSH VADDR6>
+ <DEAD VADDR6>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <JUMP + PHRASE119>
+PHRASE63
+ <TYPE? HTYP11 <TYPE-CODE FALSE> - PHRASE90>
+ <TYPE? CADDR10 <TYPE-CODE FIX> - PHRASE92>
+ <TYPE? TYPV18 <TYPE-CODE FIX> - PHRASE92>
+ <LSH CADDR10 16 = TEMP26 (TYPE FIX)>
+ <OR TYPV18 TEMP26 = TYPV18>
+ <DEAD TEMP26>
+ <FRAME '\1aLOAD-CONSTANT>
+ <PUSH RTAC16>
+ <PUSH TYPV18>
+ <DEAD TYPV18>
+ <CALL '\1aLOAD-CONSTANT 2>
+ <JUMP + PHRASE114>
+PHRASE92
+ <TYPE? CADDR10 <TYPE-CODE FALSE> + PHRASE97>
+ <TYPE? CADDR10 <TYPE-CODE FIX> - PHRASE99>
+ <FRAME '\1aLOAD-CONSTANT>
+ <PUSH RTAC16>
+ <FRAME '\1aMA-IMM>
+ <LSH CADDR10 16 = STACK (TYPE FIX)>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <CALL '\1aLOAD-CONSTANT 2>
+ <FRAME '\1aEMIT>
+ <PUSH 176>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TYP7>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <NTHUV RTAC16 2 = TEMP26 (TYPE FIX)>
+ <OR TEMP26 #WORD *120* = TEMP26>
+ <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
+ <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP26>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE106>
+PHRASE99
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <PUSH CADDR10>
+ <NTHUV RTAC16 2 = TEMP26 (TYPE FIX)>
+ <OR TEMP26 #WORD *120* = TEMP26>
+ <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
+ <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP26>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE106>
+PHRASE97
+ <FRAME '\1aEMIT>
+ <PUSH 208>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH TYP7>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <NTHUV RTAC16 2 = TEMP26 (TYPE FIX)>
+ <OR TEMP26 #WORD *120* = TEMP26>
+ <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
+ <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP26>
+ <CALL '\1aEMIT 3>
+PHRASE106
+ <FRAME '\1aUSE-AC>
+ <PUSH RTAC16>
+ <CALL '\1aUSE-AC 1>
+ <JUMP + PHRASE114>
+PHRASE90
+ <TYPE? CADDR10 <TYPE-CODE FIX> - PHRASE112>
+ <FRAME '\1aLOAD-CONSTANT>
+ <PUSH RTAC16>
+ <PUSH CADDR10>
+ <CALL '\1aLOAD-CONSTANT 2>
+ <JUMP + PHRASE114>
+PHRASE112
+ <TYPE? CADDR10 <TYPE-CODE FALSE> + PHRASE114>
+ <FRAME '\1aMOVE-TO-AC>
+ <PUSH RTAC16>
+ <PUSH CADDR10>
+ <PUSH 'WORD>
+ <CALL '\1aMOVE-TO-AC 3>
+PHRASE114
+ <TYPE? HW12 <TYPE-CODE FALSE> + PHRASE117>
+ <DEAD HW12>
+ <FRAME '\1aEMIT>
+ <PUSH 60>
+ <PUSH VADDR6>
+ <DEAD VADDR6>
+ <NTHUV RVAC15 2 = TEMP26 (TYPE FIX)>
+ <OR TEMP26 #WORD *120* = TEMP26>
+ <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
+ <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP26>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE119>
+PHRASE117
+ <FRAME '\1aEMIT-MOVE>
+ <PUSH VADDR6>
+ <DEAD VADDR6>
+ <NTHUV RVAC15 2 = TEMP26 (TYPE FIX)>
+ <OR TEMP26 #WORD *120* = TEMP26>
+ <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
+ <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP26>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+PHRASE119
+ <TYPE? HTYP11 <TYPE-CODE FALSE> - PHRASE122>
+ <DEAD HTYP11>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH ELAB14>
+ <DEAD ELAB14>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <TYPE? RES9 <TYPE-CODE VARTBL> + TAG125>
+ <RETURN %<>>
+TAG125
+ <FRAME '\1aDEST-PAIR>
+ <PUSH RVAC15>
+ <DEAD RVAC15>
+ <PUSH RTAC16>
+ <DEAD RTAC16>
+ <PUSH RES9>
+ <DEAD RES9>
+ <CALL '\1aDEST-PAIR 3 = TEMP26>
+ <RETURN TEMP26>
+ <DEAD TEMP26>
+PHRASE122
+ <TYPE? RES9 <TYPE-CODE VARTBL> + TAG129>
+ <RETURN %<>>
+TAG129
+ <TYPE? CADDR10 <TYPE-CODE FALSE> + PHRASE132>
+ <DEAD CADDR10>
+ <FRAME '\1aDEST-COUNT-DECL>
+ <PUSH RVAC15>
+ <DEAD RVAC15>
+ <PUSH RTAC16>
+ <DEAD RTAC16>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aDEST-COUNT-DECL 4 = TEMP26>
+ <RETURN TEMP26>
+ <DEAD TEMP26>
+PHRASE132
+ <FRAME '\1aDEST-DECL>
+ <PUSH RVAC15>
+ <DEAD RVAC15>
+ <PUSH RES9>
+ <DEAD RES9>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aDEST-DECL 3 = TEMP26>
+ <RETURN TEMP26>
+ <DEAD TEMP26>
+ <END \1aTEST-NTH>
+
+#WORD *37654642355*
+ <GFCN \1aFIND-APP-AC ("VALUE" ANY AC <OR FALSE ATOM> "OPTIONAL" ANY) VAC6 TYP7 RES8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP13>
+ <INTGO>
+ <TYPE? TYP7 <TYPE-CODE FALSE> + BOOL11>
+ <FRAME '\1aSTRUCTURED-TYPE?>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aSTRUCTURED-TYPE? 1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE10>
+ <DEAD TEMP13>
+BOOL11
+ <FRAME '\1aFREE-VALUE-AC?>
+ <PUSH 'STORED>
+ <CALL '\1aFREE-VALUE-AC? 1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE15>
+ <DEAD TEMP13>
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE15
+ <FRAME '\1aMUNG-AC>
+ <PUSH VAC6>
+ <CALL '\1aMUNG-AC 1>
+ <RETURN VAC6>
+ <DEAD VAC6>
+PHRASE10
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aFIND-APP-AC>
+
+#WORD *201601034*
+ <GFCN \1aGEN-NTH ("VALUE" ANY EFF-ADDR ATOM AC <OR ATOM VARTBL> <OR EFF-ADDR FALSE FIX> "OPTIONAL" ANY ANY ANY) VADDR8 TYP9 VAC10 RES11 CADDR12 HW13 RTAC14 RVAC15>
+ <OPT-DISPATCH 5 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP (NO-LOAD17 %<>) TEMP26>
+ <INTGO>
+ <EQUAL? RES11 'STACK - PHRASE19>
+ <TYPE? CADDR12 <TYPE-CODE FIX> - PHRASE21>
+ <GVAL 'TYPE-WORDS = TEMP26>
+ <EMPUV? TEMP26 + PHRASE21>
+ <LOOP (TYP9 VALUE) (TEMP26 LENGTH VALUE)>
+TAG24
+ <NTHUV TEMP26 1 = NO-LOAD17>
+ <TYPE? NO-LOAD17 <TYPE-CODE ATOM> - TAG25>
+ <VEQUAL? NO-LOAD17 TYP9 + TAG23>
+ <DEAD NO-LOAD17>
+TAG25
+ <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
+ <EMPUV? TEMP26 - TAG24>
+ <JUMP + PHRASE21>
+TAG23
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TYP9>
+ <DEAD TYP9>
+ <PUSH 'VALUE>
+ <CALL '\1aTYPE-CODE 2 = TEMP26>
+ <LSH CADDR12 16 = NO-LOAD17 (TYPE FIX)>
+ <DEAD CADDR12>
+ <OR TEMP26 NO-LOAD17 = NO-LOAD17>
+ <DEAD TEMP26>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aMA-IMM>
+ <PUSH NO-LOAD17>
+ <DEAD NO-LOAD17>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <JUMP + COND20>
+PHRASE21
+ <TYPE? CADDR12 <TYPE-CODE FALSE> + PHRASE31>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH TYP9>
+ <DEAD TYP9>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <PUSH CADDR12>
+ <DEAD CADDR12>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-PUSH 2>
+ <JUMP + COND20>
+PHRASE31
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH TYP9>
+ <DEAD TYP9>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+COND20
+ <TYPE? HW13 <TYPE-CODE FALSE> + PHRASE38>
+ <DEAD HW13>
+ <FRAME '\1aEMIT>
+ <PUSH 60>
+ <PUSH VADDR8>
+ <DEAD VADDR8>
+ <GVAL 'AC-TP = NO-LOAD17>
+ <NTHUV NO-LOAD17 2 = NO-LOAD17 (TYPE FIX)>
+ <OR NO-LOAD17 #WORD *200* = NO-LOAD17>
+ <LSH NO-LOAD17 24 = NO-LOAD17 (TYPE FIX)>
+ <CHTYPE NO-LOAD17 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD NO-LOAD17>
+ <CALL '\1aEMIT 3 = NO-LOAD17>
+ <RETURN NO-LOAD17>
+ <DEAD NO-LOAD17>
+PHRASE38
+ <FRAME '\1aEMIT-PUSH>
+ <PUSH VADDR8>
+ <DEAD VADDR8>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2 = NO-LOAD17>
+ <RETURN NO-LOAD17>
+ <DEAD NO-LOAD17>
+PHRASE19
+ <TYPE? RTAC14 <TYPE-CODE FALSE> - PHRASE44>
+ <TYPE? CADDR12 <TYPE-CODE FALSE> + PHRASE44>
+ <FRAME '\1aGET-AC>
+ <PUSH 'DOUBLE>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = RTAC14>
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aNEXT-AC>
+ <PUSH RTAC14>
+ <CALL '\1aNEXT-AC 1 = RVAC15>
+ <PUSH RVAC15>
+ <CALL '\1aPROTECT 1>
+ <JUMP + PHRASE52>
+PHRASE44
+ <TYPE? RVAC15 <TYPE-CODE FALSE> - PHRASE49>
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aFIND-APP-AC>
+ <PUSH VAC10>
+ <DEAD VAC10>
+ <PUSH TYP9>
+ <CALL '\1aFIND-APP-AC 2 = RVAC15>
+ <PUSH RVAC15>
+ <CALL '\1aPROTECT 1>
+ <JUMP + PHRASE52>
+PHRASE49
+ <SET NO-LOAD17 'T (TYPE ATOM)>
+PHRASE52
+ <TYPE? CADDR12 <TYPE-CODE FALSE> + PHRASE54>
+ <TYPE? CADDR12 <TYPE-CODE FIX> - PHRASE56>
+ <FRAME '\1aLOAD-CONSTANT>
+ <PUSH RTAC14>
+ <PUSH CADDR12>
+ <DEAD CADDR12>
+ <CALL '\1aLOAD-CONSTANT 2>
+ <JUMP + PHRASE58>
+PHRASE56
+ <FRAME '\1aEMIT>
+ <PUSH 60>
+ <PUSH CADDR12>
+ <DEAD CADDR12>
+ <NTHUV RTAC14 2 = TEMP26 (TYPE FIX)>
+ <OR TEMP26 #WORD *120* = TEMP26>
+ <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
+ <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP26>
+ <CALL '\1aEMIT 3>
+PHRASE58
+ <VEQUAL? NO-LOAD17 0 - PHRASE61>
+ <DEAD NO-LOAD17>
+ <FRAME '\1aEMIT-MOVE>
+ <PUSH VADDR8>
+ <NTHUV RVAC15 2 = TEMP26 (TYPE FIX)>
+ <OR TEMP26 #WORD *120* = TEMP26>
+ <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
+ <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP26>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+PHRASE61
+ <FRAME '\1aDEST-COUNT-DECL>
+ <PUSH RVAC15>
+ <PUSH RTAC14>
+ <DEAD RTAC14>
+ <PUSH RES11>
+ <DEAD RES11>
+ <PUSH TYP9>
+ <DEAD TYP9>
+ <CALL '\1aDEST-COUNT-DECL 4>
+ <JUMP + PHRASE71>
+PHRASE54
+ <VEQUAL? NO-LOAD17 0 - PHRASE64>
+ <DEAD NO-LOAD17>
+ <TYPE? HW13 <TYPE-CODE FALSE> + PHRASE66>
+ <DEAD HW13>
+ <FRAME '\1aEMIT>
+ <PUSH 60>
+ <PUSH VADDR8>
+ <NTHUV RVAC15 2 = TEMP26 (TYPE FIX)>
+ <OR TEMP26 #WORD *120* = TEMP26>
+ <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
+ <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP26>
+ <CALL '\1aEMIT 3>
+ <JUMP + PHRASE68>
+PHRASE66
+ <FRAME '\1aEMIT-MOVE>
+ <PUSH VADDR8>
+ <NTHUV RVAC15 2 = TEMP26 (TYPE FIX)>
+ <OR TEMP26 #WORD *120* = TEMP26>
+ <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
+ <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP26>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-MOVE 3>
+PHRASE68
+ <FRAME '\1aDEST-DECL>
+ <PUSH RVAC15>
+ <PUSH RES11>
+ <DEAD RES11>
+ <PUSH TYP9>
+ <DEAD TYP9>
+ <CALL '\1aDEST-DECL 3>
+ <JUMP + PHRASE71>
+PHRASE64
+ <FRAME '\1aDEST-DECL>
+ <PUSH RVAC15>
+ <PUSH RES11>
+ <DEAD RES11>
+ <PUSH TYP9>
+ <DEAD TYP9>
+ <CALL '\1aDEST-DECL 3>
+PHRASE71
+ <FRAME '\1aLOAD-AC>
+ <PUSH RVAC15>
+ <DEAD RVAC15>
+ <PUSH VADDR8>
+ <DEAD VADDR8>
+ <CALL '\1aLOAD-AC 2 = NO-LOAD17>
+ <RETURN NO-LOAD17>
+ <DEAD NO-LOAD17>
+ <END \1aGEN-NTH>
+
+#WORD *23246464213*
+ <GFCN \1aBOOL-NTH ("VALUE" ANY EFF-ADDR FIX <OR ATOM VARTBL>) VADDR4 BNO5 RES6>
+ <TEMP ELAB7 FLAB8 RTAC10 RVAC9>
+ <INTGO>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = ELAB7>
+ <FRAME '\1aMAKE-LABEL>
+ <CALL '\1aMAKE-LABEL 0 = FLAB8>
+ <TYPE? RES6 <TYPE-CODE VARTBL> - PHRASE14>
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-TYPE>
+ <CALL '\1aGET-AC 1 = RTAC10>
+ <FRAME '\1aGET-AC>
+ <PUSH 'PREF-VAL>
+ <CALL '\1aGET-AC 1 = RVAC9>
+ <FRAME '\1aDEST-PAIR>
+ <PUSH RVAC9>
+ <PUSH RTAC10>
+ <PUSH RES6>
+ <CALL '\1aDEST-PAIR 3>
+PHRASE14
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 225>
+ <FRAME '\1aMA-IMM>
+ <PUSH BNO5>
+ <DEAD BNO5>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH VADDR4>
+ <DEAD VADDR4>
+ <PUSH FLAB8>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 5>
+ <EQUAL? RES6 'STACK - PHRASE21>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aADDR-TYPE-MQUOTE>
+ <PUSH 'T>
+ <CALL '\1aADDR-TYPE-MQUOTE 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aADDR-VALUE-MQUOTE>
+ <PUSH 'T>
+ <CALL '\1aADDR-VALUE-MQUOTE 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <JUMP + PHRASE26>
+PHRASE21
+ <FRAME '\1aMOVE-TYPE>
+ <PUSH 'T>
+ <PUSH RTAC10>
+ <CALL '\1aMOVE-TYPE 2>
+ <FRAME '\1aMOVE-VALUE>
+ <PUSH 'T>
+ <PUSH RVAC9>
+ <CALL '\1aMOVE-VALUE 2>
+PHRASE26
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 17>
+ <PUSH ELAB7>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 3>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH FLAB8>
+ <DEAD FLAB8>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <EQUAL? RES6 'STACK - PHRASE32>
+ <DEAD RES6>
+ <FRAME '\1aEMIT-PUSH>
+ <FRAME '\1aTYPE-WORD>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-WORD 1 = STACK>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-PUSH 2>
+ <FRAME '\1aCLEAR-PUSH>
+ <CALL '\1aCLEAR-PUSH 0>
+ <JUMP + PHRASE36>
+PHRASE32
+ <FRAME '\1aMOVE-TYPE>
+ <PUSH %<>>
+ <PUSH RTAC10>
+ <DEAD RTAC10>
+ <CALL '\1aMOVE-TYPE 2>
+ <FRAME '\1aMOVE-VALUE>
+ <PUSH %<>>
+ <PUSH RVAC9>
+ <DEAD RVAC9>
+ <CALL '\1aMOVE-VALUE 2>
+PHRASE36
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH ELAB7>
+ <DEAD ELAB7>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2 = ELAB7>
+ <RETURN ELAB7>
+ <DEAD ELAB7>
+ <END \1aBOOL-NTH>
+
+#WORD *17532071620*
+ <GFCN \1aBOOL-NTH-BRANCH ("VALUE" ANY EFF-ADDR FIX <LIST ATOM ATOM>) VADDR4 BNO5 BRANCH6>
+ <TEMP TEMP11>
+ <INTGO>
+ <FRAME '\1aEMIT>
+ <GVAL 'INST-BTST = STACK>
+ <PUSH 'NO-SIZE-WORD>
+ <PUSH VADDR4>
+ <FRAME '\1aEXTWORD-DATA>
+ <PUSH BNO5>
+ <CALL '\1aEXTWORD-DATA 1 = STACK>
+ <CALL '\1aEMIT 4>
+ <NTHL BRANCH6 1 = TEMP11 (TYPE ATOM)>
+ <VEQUAL? TEMP11 '- - PHRASE10>
+ <DEAD TEMP11>
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 225>
+ <FRAME '\1aMA-IMM>
+ <PUSH BNO5>
+ <DEAD BNO5>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH VADDR4>
+ <DEAD VADDR4>
+ <RESTL BRANCH6 1 = TEMP11 (TYPE LIST)>
+ <DEAD BRANCH6>
+ <NTHL TEMP11 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP11>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 5 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE10
+ <FRAME '\1aGEN-BRANCH>
+ <PUSH 224>
+ <FRAME '\1aMA-IMM>
+ <PUSH BNO5>
+ <DEAD BNO5>
+ <CALL '\1aMA-IMM 1 = STACK>
+ <PUSH VADDR4>
+ <DEAD VADDR4>
+ <RESTL BRANCH6 1 = TEMP11 (TYPE LIST)>
+ <DEAD BRANCH6>
+ <NTHL TEMP11 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP11>
+ <PUSH %<>>
+ <CALL '\1aGEN-BRANCH 5 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aBOOL-NTH-BRANCH>
+
+#WORD *16023044255*
+ <GFCN \1aCOUNT-STORE-REC ("VALUE" ANY VARTBL ANY) VAL4 TCADDR5>
+ <TEMP LV6 TEMP12 TEMP18:FIX>
+ <INTGO>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAL4>
+ <CALL '\1aFIND-CACHE-VAR 1 = LV6>
+ <TYPE? LV6 <TYPE-CODE FALSE> + BOOL11>
+ <NTHUV LV6 3 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - BOOL11>
+ <DEAD TEMP12>
+ <NTHUV LV6 8 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
+ <DEAD TEMP12>
+BOOL11
+ <FRAME '\1aEMIT-MOVE>
+ <FRAME '\1aVAR-COUNT-ADDRESS>
+ <PUSH VAL4>
+ <DEAD VAL4>
+ <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
+ <PUSH TCADDR5>
+ <DEAD TCADDR5>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-MOVE 3 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE10
+ <NTHUV LV6 9 = LV6>
+ <SET TEMP12 LV6>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE15>
+ <FRAME '\1aEMIT>
+ <PUSH 156>
+ <GVAL 'AC-PC = TEMP12>
+ <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
+ <OR TEMP12 #WORD *200* = TEMP12>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <LSH 16 16 = TEMP18 (TYPE FIX)>
+ <OR TEMP12 TEMP18 = TEMP12>
+ <DEAD TEMP18>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP12>
+ <NTHUV LV6 2 = TEMP18 (TYPE FIX)>
+ <DEAD LV6>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP18>
+ <FRAME '\1aGET-AC>
+ <PUSH 'ANY-AC>
+ <PUSH 'T>
+ <CALL '\1aGET-AC 2 = LV6>
+ <NTHUV LV6 2 = TEMP18 (TYPE FIX)>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP18>
+ <CALL '\1aEMIT 4>
+ <FRAME '\1aEMIT-MOVE>
+ <NTHUV LV6 2 = TEMP18 (TYPE FIX)>
+ <DEAD LV6>
+ <OR TEMP18 #WORD *120* = TEMP18>
+ <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
+ <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
+ <DEAD TEMP18>
+ <PUSH TCADDR5>
+ <DEAD TCADDR5>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-MOVE 3 = TEMP12>
+PHRASE15
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aCOUNT-STORE-REC>
projects / pdp10-muddle.git / blobdiff