#WORD *15620355001*
		    <GFCN PUTR-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 'TYPE>
		    <PUSH VAR7>
		    <CALL 'TYPE 1 = HINT10>
PHRASE26
		    <TYPE? PHINT11 <TYPE-CODE FALSE> + PHRASE29>
		    <FRAME 'PARSE-HINT>
		    <PUSH PHINT11>
		    <DEAD PHINT11>
		    <PUSH 'TYPE>
		    <CALL 'PARSE-HINT 2 = PHINT11>
PHRASE29
		    <TYPE? NUM8 <TYPE-CODE VARTBL> + BOOL33>
		    <TYPE? HINT10 <TYPE-CODE FALSE> - PHRASE32>
BOOL33
		    <FRAME 'CALL-RTE>
		    <GVAL 'IPUTR!-MIMOP = STACK>
		    <PUSH 'CALL>
		    <PUSH %<>>
		    <PUSH %<>>
		    <PUSH VAR7>
		    <DEAD VAR7>
		    <PUSH NUM8>
		    <DEAD NUM8>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <CALL 'CALL-RTE 7>
		    <RETURN 'NORMAL>
PHRASE32
		    <FRAME 'GET-RELE-DESCRIPTOR>
		    <PUSH NUM8>
		    <PUSH HINT10>
		    <CALL 'GET-RELE-DESCRIPTOR 2 = RD12>
		    <TYPE? RD12 <TYPE-CODE FALSE> - BOOL36>
		    <FRAME 'ERROR>
		    <PUSH "RECORD TYPE NOT FOUND">
		    <PUSH NUM8>
		    <PUSH HINT10>
		    <PUSH 'PUTR-GEN>
		    <CALL 'ERROR 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 'PARSE-HINT>
		    <PUSH HINT10>
		    <PUSH 'RECORD-TYPE>
		    <CALL 'PARSE-HINT 2 = TEMP42>
		    <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE40>
		    <EQUAL? TEMP42 'LBIND + BOOL46>
		    <EQUAL? TEMP42 'LBIND - PHRASE40>
		    <DEAD TEMP42>
BOOL46
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'TYPE-WORD>
		    <PUSH 'FRAME>
		    <CALL 'TYPE-WORD 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
		    <FRAME 'EMIT-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 'EMIT-PUSH 2>
PHRASE40
		    <FRAME 'GET-RSTACK?>
		    <PUSH HINT10>
		    <DEAD HINT10>
		    <CALL 'GET-RSTACK? 1 = TEMP42>
		    <FRAME 'PROTECT-VAL>
		    <PUSH VAL9>
		    <CALL 'PROTECT-VAL 1>
		    <TYPE? VAR7 <TYPE-CODE VARTBL> - PHRASE53>
		    <FRAME 'LOAD-VAR>
		    <PUSH VAR7>
		    <PUSH 'VALUE>
		    <PUSH %<>>
		    <PUSH 'PREF-VAL>
		    <CALL 'LOAD-VAR 4 = VAC14>
		    <JUMP + PHRASE55>
PHRASE53
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = VAC14>
		    <FRAME 'MOVE-VALUE>
		    <PUSH VAR7>
		    <PUSH VAC14>
		    <CALL 'MOVE-VALUE 2>
PHRASE55
		    <FRAME 'PROTECT>
		    <PUSH VAC14>
		    <CALL 'PROTECT 1>
		    <FRAME 'MA-DISP>
		    <PUSH VAC14>
		    <NTHUV RD12 2 = STACK (TYPE FIX)>
		    <CALL 'MA-DISP 2 = TCOFF16>
		    <FRAME 'MA-DISP>
		    <PUSH VAC14>
		    <NTHUV RD12 2 = TEMP42 (TYPE FIX)>
		    <ADD TEMP42 2 = STACK (TYPE FIX)>
		    <DEAD TEMP42>
		    <CALL 'MA-DISP 2 = ANYCOFF19>
		    <FRAME 'MA-DISP>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <NTHUV RD12 1 = STACK (TYPE FIX)>
		    <CALL 'MA-DISP 2 = VAC14>
		    <NTHUV RD12 3 = ETYP13 (TYPE ATOM)>
		    <VEQUAL? ETYP13 'ANY - PHRASE63>
		    <FRAME 'FIX-CONSTANT?>
		    <PUSH VAL9>
		    <CALL 'FIX-CONSTANT? 1 = TEMP42>
		    <TYPE? TEMP42 <TYPE-CODE FALSE> - BOOL73>
		    <DEAD TEMP42>
		    <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE65>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAL9>
		    <CALL 'FIND-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 'NEXT-AC>
		    <PUSH TEMP42>
		    <DEAD TEMP42>
		    <CALL 'NEXT-AC 1 = TEMP42>
		    <EQUAL? RD12 TEMP42 + PHRASE65>
		    <DEAD RD12 TEMP42>
BOOL73
		    <FRAME 'MOVE-VALUE>
		    <PUSH VAL9>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <CALL 'MOVE-VALUE 2>
		    <FRAME 'MOVE-TYPE>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <PUSH TCOFF16>
		    <DEAD TCOFF16>
		    <PUSH ANYCOFF19>
		    <DEAD ANYCOFF19>
		    <CALL 'MOVE-TYPE 3>
		    <JUMP + PHRASE164>
PHRASE65
		    <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE79>
		    <FRAME 'EMIT>
		    <PUSH 125>
		    <FRAME 'VAR-TYPE-ADDRESS>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <PUSH 'TYPE-WORD>
		    <CALL 'VAR-TYPE-ADDRESS 2 = STACK>
		    <PUSH TCOFF16>
		    <DEAD TCOFF16>
		    <CALL 'EMIT 3>
		    <JUMP + PHRASE164>
PHRASE79
		    <FRAME 'EMIT>
		    <PUSH 125>
		    <FRAME 'ADDR-TYPE-MQUOTE>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <CALL 'ADDR-TYPE-MQUOTE 1 = STACK>
		    <PUSH TCOFF16>
		    <DEAD TCOFF16>
		    <CALL 'EMIT 3>
		    <JUMP + PHRASE164>
PHRASE63
		    <VEQUAL? ETYP13 'SMALL-INT + BOOL86>
		    <VEQUAL? ETYP13 'SMALL-POS-INT - PHRASE85>
BOOL86
		    <TYPE? VAL9 <TYPE-CODE FIX> - PHRASE88>
		    <FRAME 'EMIT-MOVE>
		    <FRAME 'MA-IMM>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <CALL 'MA-IMM 1 = STACK>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <PUSH 'WORD>
		    <CALL 'EMIT-MOVE 3>
		    <JUMP + PHRASE164>
PHRASE88
		    <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE91>
		    <FRAME 'VAR-VALUE-IN-AC?>
		    <PUSH VAL9>
		    <CALL 'VAR-VALUE-IN-AC? 1 = RD12>
		    <TYPE? RD12 <TYPE-CODE FALSE> + PHRASE93>
		    <FRAME 'EMIT-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 'EMIT-MOVE 3>
		    <JUMP + PHRASE164>
PHRASE93
		    <FRAME 'MA-DISP>
		    <GVAL 'AC-F = STACK>
		    <NTHUV VAL9 2 = TEMP42 (TYPE FIX)>
		    <DEAD VAL9>
		    <ADD TEMP42 2 = STACK (TYPE FIX)>
		    <DEAD TEMP42>
		    <CALL 'MA-DISP 2 = RD12>
		    <FRAME 'EMIT-MOVE>
		    <PUSH RD12>
		    <DEAD RD12>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <PUSH 'WORD>
		    <CALL 'EMIT-MOVE 3>
		    <JUMP + PHRASE164>
PHRASE91
		    <FRAME 'ERROR>
		    <PUSH "BAD ARGUMENT">
		    <PUSH 'PUT-RECORD>
		    <CALL 'ERROR 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 'VARTBL-DECL>
		    <PUSH VAL9>
		    <CALL 'VARTBL-DECL 1 = TEMP42>
		    <EQUAL? TEMP42 'FALSE + BOOL106>
		    <DEAD TEMP42>
BOOL107
		    <EQUAL? PHINT11 'FALSE - PHRASE105>
BOOL106
		    <VEQUAL? ETYP13 'TYPE-C - PHRASE110>
		    <DEAD ETYP13>
		    <FRAME 'EMIT>
		    <PUSH 178>
		    <FRAME 'MA-IMM>
		    <PUSH 0>
		    <CALL 'MA-IMM 1 = STACK>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <CALL 'EMIT 3>
		    <JUMP + PHRASE164>
PHRASE110
		    <FRAME 'EMIT>
		    <PUSH 212>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <CALL 'EMIT 2>
		    <JUMP + PHRASE164>
PHRASE105
		    <TYPE? VAL9 <TYPE-CODE VARTBL> - BOOL116>
		    <FRAME 'VARTBL-DECL>
		    <PUSH VAL9>
		    <CALL 'VARTBL-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 'EMIT>
		    <PUSH 176>
		    <TYPE? VAL9 <TYPE-CODE VARTBL> - PHRASE122>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <CALL 'VAR-VALUE-ADDRESS 1 = TEMP42>
		    <JUMP + PHRASE124>
PHRASE122
		    <FRAME 'MA-IMM>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <CALL 'MA-IMM 1 = TEMP42>
PHRASE124
		    <PUSH TEMP42>
		    <DEAD TEMP42>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <CALL 'EMIT 3>
		    <JUMP + PHRASE164>
PHRASE119
		    <FRAME 'MOVE-VALUE>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <CALL 'MOVE-VALUE 2>
		    <JUMP + PHRASE164>
PHRASE115
		    <FRAME 'TESTSET>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <PUSH %<>>
		    <VEQUAL? ETYP13 'TYPE-C - TAG130>
		    <DEAD ETYP13>
		    <PUSH 'T>
		    <JUMP + TAG131>
TAG130
		    <PUSH %<>>
TAG131
		    <CALL 'TESTSET 4>
		    <JUMP + PHRASE164>
PHRASE103
		    <FRAME 'MOVE-VALUE>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <CALL 'MOVE-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 'VARTBL-DECL>
		    <PUSH VAR7>
		    <DEAD VAR7>
		    <CALL 'VARTBL-DECL 1 = TEMP42>
		    <EQUAL? TEMP42 'FALSE + BOOL138>
		    <DEAD TEMP42>
		    <EQUAL? PHINT11 'FALSE - PHRASE136>
BOOL138
		    <FRAME 'EMIT>
		    <PUSH 212>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <CALL 'EMIT 2>
		    <FRAME 'EMIT>
		    <PUSH 180>
		    <PUSH TCOFF16>
		    <DEAD TCOFF16>
		    <CALL 'EMIT 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 'VARTBL-DECL>
		    <PUSH VAL9>
		    <CALL 'VARTBL-DECL 1 = TEMP42>
		    <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE144>
		    <DEAD TEMP42>
BOOL145
		    <FRAME 'MOVE-VALUE>
		    <PUSH VAL9>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <CALL 'MOVE-VALUE 2>
		    <FRAME 'COUNT-STORE-REC>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <PUSH TCOFF16>
		    <DEAD TCOFF16>
		    <CALL 'COUNT-STORE-REC 2>
		    <JUMP + PHRASE164>
PHRASE144
		    <FRAME 'TESTSET>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <PUSH TCOFF16>
		    <DEAD TCOFF16>
		    <CALL 'TESTSET 3>
		    <JUMP + PHRASE164>
PHRASE142
		    <FRAME 'MOVE-VALUE>
		    <PUSH VAL9>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <CALL 'MOVE-VALUE 2>
		    <FRAME 'EMIT-MOVE>
		    <FRAME 'MA-IMM>
		    <FRAME 'LENGTH>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <CALL 'LENGTH 1 = STACK>
		    <CALL 'MA-IMM 1 = STACK>
		    <PUSH TCOFF16>
		    <DEAD TCOFF16>
		    <PUSH 'WORD>
		    <CALL 'EMIT-MOVE 3>
		    <JUMP + PHRASE164>
PHRASE134
		    <VEQUAL? ETYP13 'BYTE - PHRASE156>
		    <TYPE? VAL9 <TYPE-CODE FIX> - PHRASE158>
		    <FRAME 'EMIT-MOVE>
		    <FRAME 'MA-IMM>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <CALL 'MA-IMM 1 = STACK>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <PUSH 'BYTE>
		    <CALL 'EMIT-MOVE 3>
		    <JUMP + PHRASE164>
PHRASE158
		    <FRAME 'EMIT-MOVE>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <CALL 'VAR-VALUE-ADDRESS 1 = STACK>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <PUSH 'BYTE>
		    <CALL 'EMIT-MOVE 3>
		    <JUMP + PHRASE164>
PHRASE156
		    <VEQUAL? ETYP13 'BOOLEAN - PHRASE164>
		    <DEAD ETYP13>
		    <FRAME 'TEST-BOOL>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <NTHUV RD12 4 = STACK (TYPE FIX)>
		    <DEAD RD12>
		    <PUSH VAL9>
		    <DEAD VAL9>
		    <CALL 'TEST-BOOL 3>
PHRASE164
		    <FRAME 'CLEAR-STATUS>
		    <CALL 'CLEAR-STATUS 0>
		    <RETURN 'NORMAL>
		    <END PUTR-GEN>

#WORD *2765352447*
		    <GFCN TESTSET ("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 'MAKE-LABEL>
		    <CALL 'MAKE-LABEL 0 = FLAB11>
		    <FRAME 'TYPE-TST-GEN>
		    <PUSH VAR6>
		    <PUSH 'FALSE>
		    <PUSH '->
		    <PUSH FLAB11>
		    <CALL 'TYPE-TST-GEN 4>
		    <FRAME 'EMIT>
		    <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 'EMIT 2>
		    <TYPE? TCADDR8 <TYPE-CODE EFF-ADDR> - BOOL19>
		    <FRAME 'EMIT>
		    <PUSH 180>
		    <PUSH TCADDR8>
		    <CALL 'EMIT 2>
BOOL19
		    <FRAME 'MAKE-LABEL>
		    <CALL 'MAKE-LABEL 0 = ELAB10>
		    <FRAME 'GEN-BRANCH>
		    <PUSH 17>
		    <PUSH ELAB10>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <FRAME 'EMIT-LABEL>
		    <PUSH FLAB11>
		    <DEAD FLAB11>
		    <PUSH %<>>
		    <CALL 'EMIT-LABEL 2>
		    <FRAME 'EMIT-MOVE>
		    <FRAME 'VAR-VALUE-ADDRESS>
		    <PUSH VAR6>
		    <CALL 'VAR-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 'EMIT-MOVE 3>
		    <TYPE? TCADDR8 <TYPE-CODE EFF-ADDR> - PHRASE30>
		    <FRAME 'COUNT-STORE-REC>
		    <PUSH VAR6>
		    <DEAD VAR6>
		    <PUSH TCADDR8>
		    <DEAD TCADDR8>
		    <CALL 'COUNT-STORE-REC 2>
PHRASE30
		    <FRAME 'EMIT-LABEL>
		    <PUSH ELAB10>
		    <DEAD ELAB10>
		    <PUSH %<>>
		    <CALL 'EMIT-LABEL 2 = TEMP17>
		    <RETURN TEMP17>
		    <DEAD TEMP17>
		    <END TESTSET>

#WORD *32051763072*
		    <GFCN TEST-BOOL ("VALUE" ANY EFF-ADDR FIX VARTBL) VCADDR4 BITNO5 VAL6>
		    <TEMP FLAB7>
		    <INTGO>
		    <FRAME 'MAKE-LABEL>
		    <CALL 'MAKE-LABEL 0 = FLAB7>
		    <FRAME 'TYPE-TST-GEN>
		    <PUSH VAL6>
		    <DEAD VAL6>
		    <PUSH 'FALSE>
		    <PUSH '->
		    <PUSH FLAB7>
		    <DEAD FLAB7>
		    <CALL 'TYPE-TST-GEN 4>
		    <FRAME 'EMIT>
		    <PUSH 202>
		    <PUSH VCADDR4>
		    <FRAME 'MA-IMM>
		    <LSH 1 BITNO5 = STACK (TYPE FIX)>
		    <CALL 'MA-IMM 1 = STACK>
		    <CALL 'EMIT 3>
		    <FRAME 'MAKE-LABEL>
		    <CALL 'MAKE-LABEL 0 = FLAB7>
		    <FRAME 'GEN-BRANCH>
		    <PUSH 17>
		    <PUSH FLAB7>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <FRAME 'EMIT>
		    <GVAL 'INST-BISL = STACK>
		    <PUSH VCADDR4>
		    <DEAD VCADDR4>
		    <FRAME 'MA-IMM>
		    <LSH 1 BITNO5 = STACK (TYPE FIX)>
		    <DEAD BITNO5>
		    <CALL 'MA-IMM 1 = STACK>
		    <CALL 'EMIT 3>
		    <FRAME 'EMIT-LABEL>
		    <PUSH FLAB7>
		    <DEAD FLAB7>
		    <PUSH %<>>
		    <CALL 'EMIT-LABEL 2 = FLAB7>
		    <RETURN FLAB7>
		    <DEAD FLAB7>
		    <END TEST-BOOL>

#WORD *1463367306*
		    <GFCN NTH-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 'TYPE>
		    <PUSH VAR7>
		    <CALL 'TYPE 1 = HINT110>
PHRASE26
		    <TYPE? HINT110 <TYPE-CODE FALSE> + BOOL30>
		    <TYPE? OFF8 <TYPE-CODE VARTBL> - PHRASE29>
BOOL30
		    <FRAME 'CALL-RTE>
		    <GVAL 'INTHR!-MIMOP = STACK>
		    <PUSH 'CALL>
		    <PUSH RES9>
		    <DEAD RES9>
		    <PUSH %<>>
		    <PUSH VAR7>
		    <DEAD VAR7>
		    <PUSH OFF8>
		    <DEAD OFF8>
		    <CALL 'CALL-RTE 6>
		    <RETURN 'NORMAL>
PHRASE29
		    <FRAME 'GET-RELE-DESCRIPTOR>
		    <PUSH OFF8>
		    <PUSH HINT110>
		    <CALL 'GET-RELE-DESCRIPTOR 2 = RD12>
		    <TYPE? RD12 <TYPE-CODE FALSE> - BOOL33>
		    <FRAME 'ERROR>
		    <PUSH "RECORD TYPE NOT FOUND">
		    <PUSH HINT110>
		    <PUSH OFF8>
		    <DEAD OFF8>
		    <PUSH 'NTH-RECORD-GEN>
		    <CALL 'ERROR 4>
BOOL33
		    <FRAME 'GET-RSTACK?>
		    <PUSH HINT110>
		    <DEAD HINT110>
		    <CALL 'GET-RSTACK? 1 = STACK?23>
		    <NTHUV RD12 7 = STACK?23>
		    <SET NTYP20 HINT211>
		    <TYPE? NTYP20 <TYPE-CODE FALSE> + BOOL37>
		    <FRAME 'PARSE-HINT>
		    <PUSH HINT211>
		    <PUSH 'TYPE>
		    <CALL 'PARSE-HINT 2 = NTYP20>
BOOL37
		    <EQUAL? RES9 'STACK + PHRASE40>
		    <FRAME 'GET-RELE-BRANCH?>
		    <PUSH HINT211>
		    <DEAD HINT211>
		    <CALL 'GET-RELE-BRANCH? 1 = BRANCH?13>
PHRASE40
		    <TYPE? VAR7 <TYPE-CODE VARTBL> - PHRASE43>
		    <FRAME 'LOAD-VAR>
		    <PUSH VAR7>
		    <PUSH 'VALUE>
		    <PUSH %<>>
		    <PUSH 'PREF-VAL>
		    <CALL 'LOAD-VAR 4 = VAC14>
		    <JUMP + PHRASE45>
PHRASE43
		    <FRAME 'GET-AC>
		    <PUSH 'VALUE>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = VAC14>
		    <FRAME 'MOVE-VALUE>
		    <PUSH VAR7>
		    <PUSH VAC14>
		    <CALL 'MOVE-VALUE 2>
PHRASE45
		    <FRAME 'PROTECT>
		    <PUSH VAC14>
		    <CALL 'PROTECT 1>
		    <FRAME 'MA-DISP>
		    <PUSH VAC14>
		    <NTHUV RD12 2 = STACK (TYPE FIX)>
		    <CALL 'MA-DISP 2 = TCOFF16>
		    <FRAME 'MA-DISP>
		    <PUSH VAC14>
		    <NTHUV RD12 2 = TEMP51 (TYPE FIX)>
		    <ADD TEMP51 2 = STACK (TYPE FIX)>
		    <DEAD TEMP51>
		    <CALL 'MA-DISP 2 = TEMP51>
		    <FRAME 'MA-DISP>
		    <PUSH VAC14>
		    <NTHUV RD12 1 = STACK (TYPE FIX)>
		    <CALL 'MA-DISP 2 = VOFF18>
		    <EQUAL? VAR7 RES9 - PHRASE54>
		    <FRAME 'DEAD-VAR>
		    <PUSH VAR7>
		    <DEAD VAR7>
		    <CALL 'DEAD-VAR 1>
PHRASE54
		    <NTHUV RD12 3 = ETYP22 (TYPE ATOM)>
		    <VEQUAL? ETYP22 'ANY - PHRASE57>
		    <FRAME 'RANY-OFF>
		    <PUSH RES9>
		    <DEAD RES9>
		    <PUSH TCOFF16>
		    <DEAD TCOFF16>
		    <PUSH VOFF18>
		    <DEAD VOFF18>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <CALL 'RANY-OFF 4>
		    <RETURN 'NORMAL>
PHRASE57
		    <VEQUAL? ETYP22 'VWORD1 + BOOL61>
		    <VEQUAL? ETYP22 'COUNTVWORD - PHRASE59>
BOOL61
		    <TYPE? BRANCH?13 <TYPE-CODE FALSE> + PHRASE59>
		    <FRAME 'BRANCH-VALUE>
		    <PUSH VOFF18>
		    <PUSH BRANCH?13>
		    <DEAD BRANCH?13>
		    <NTHUV RD12 6 = STACK>
		    <CALL 'BRANCH-VALUE 3 = BRANCH?13>
		    <FRAME 'GEN-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 'NEXT-AC>
		    <PUSH BRANCH?13>
		    <DEAD BRANCH?13>
		    <CALL 'NEXT-AC 1 = TEMP51>
		    <JUMP + PHRASE69>
PHRASE67
		    <SET TEMP51 BRANCH?13>
		    <DEAD BRANCH?13>
PHRASE69
		    <PUSH TEMP51>
		    <DEAD TEMP51>
		    <CALL 'GEN-NTH 8>
		    <RETURN 'NORMAL>
PHRASE59
		    <VEQUAL? ETYP22 'TYPE-C - PHRASE70>
		    <TYPE? BRANCH?13 <TYPE-CODE FALSE> + PHRASE70>
		    <FRAME 'BRANCH-HW>
		    <PUSH VOFF18>
		    <PUSH BRANCH?13>
		    <DEAD BRANCH?13>
		    <CALL 'BRANCH-HW 2 = BRANCH?13>
		    <FRAME 'GEN-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 'GEN-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 'TEST-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 'TEST-NTH 7>
		    <RETURN 'NORMAL>
PHRASE77
		    <FRAME 'GEN-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 'GEN-NTH 6>
		    <RETURN 'NORMAL>
PHRASE74
		    <VEQUAL? ETYP22 'COUNTVWORD - PHRASE84>
		    <NTHUV RD12 5 = TEMP51>
		    <DEAD RD12>
		    <TYPE? TEMP51 <TYPE-CODE FALSE> + PHRASE86>
		    <DEAD TEMP51>
		    <FRAME 'TEST-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 'TEST-NTH 6>
		    <RETURN 'NORMAL>
PHRASE86
		    <FRAME 'GEN-NTH>
		    <PUSH VOFF18>
		    <DEAD VOFF18>
		    <PUSH STACK?23>
		    <DEAD STACK?23>
		    <PUSH VAC14>
		    <DEAD VAC14>
		    <PUSH RES9>
		    <DEAD RES9>
		    <PUSH TCOFF16>
		    <DEAD TCOFF16>
		    <CALL 'GEN-NTH 5>
		    <RETURN 'NORMAL>
PHRASE84
		    <VEQUAL? ETYP22 'SMALL-FR-OFFSET - PHRASE89>
		    <FRAME 'PROTECT>
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = BRANCH?13>
		    <PUSH BRANCH?13>
		    <CALL 'PROTECT 1>
		    <FRAME 'EMIT>
		    <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 'EMIT 3>
		    <FRAME 'EMIT>
		    <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 'EMIT 3>
		    <FRAME 'DEST-DECL>
		    <PUSH BRANCH?13>
		    <DEAD BRANCH?13>
		    <PUSH RES9>
		    <DEAD RES9>
		    <PUSH 'LBIND>
		    <CALL 'DEST-DECL 3>
		    <RETURN 'NORMAL>
PHRASE89
		    <VEQUAL? ETYP22 'SMALL-INT + BOOL96>
		    <VEQUAL? ETYP22 'SMALL-POS-INT - PHRASE95>
BOOL96
		    <FRAME 'PROTECT>
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = BRANCH?13>
		    <PUSH BRANCH?13>
		    <CALL 'PROTECT 1>
		    <VEQUAL? ETYP22 'SMALL-INT - PHRASE100>
		    <DEAD ETYP22>
		    <FRAME 'EMIT>
		    <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 'EMIT 3>
		    <JUMP + PHRASE102>
PHRASE100
		    <FRAME 'EMIT>
		    <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 'EMIT 3>
PHRASE102
		    <FRAME 'DEST-DECL>
		    <PUSH BRANCH?13>
		    <DEAD BRANCH?13>
		    <PUSH RES9>
		    <DEAD RES9>
		    <PUSH 'FIX>
		    <CALL 'DEST-DECL 3>
		    <RETURN 'NORMAL>
PHRASE95
		    <VEQUAL? ETYP22 'BYTE - PHRASE105>
		    <FRAME 'PROTECT>
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = BRANCH?13>
		    <PUSH BRANCH?13>
		    <CALL 'PROTECT 1>
		    <FRAME 'EMIT>
		    <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 'EMIT 3>
		    <FRAME 'DEST-DECL>
		    <PUSH BRANCH?13>
		    <DEAD BRANCH?13>
		    <PUSH RES9>
		    <DEAD RES9>
		    <PUSH 'FIX>
		    <CALL 'DEST-DECL 3>
		    <RETURN 'NORMAL>
PHRASE105
		    <VEQUAL? ETYP22 'BOOLEAN - COND111>
		    <DEAD ETYP22>
		    <TYPE? BRANCH?13 <TYPE-CODE FALSE> + PHRASE112>
		    <FRAME 'BOOL-NTH-BRANCH>
		    <PUSH VOFF18>
		    <DEAD VOFF18>
		    <NTHUV RD12 4 = STACK (TYPE FIX)>
		    <DEAD RD12>
		    <PUSH BRANCH?13>
		    <DEAD BRANCH?13>
		    <CALL 'BOOL-NTH-BRANCH 3>
		    <RETURN 'NORMAL>
PHRASE112
		    <FRAME 'BOOL-NTH>
		    <PUSH VOFF18>
		    <DEAD VOFF18>
		    <NTHUV RD12 4 = STACK (TYPE FIX)>
		    <DEAD RD12>
		    <PUSH RES9>
		    <DEAD RES9>
		    <CALL 'BOOL-NTH 3>
COND111
		    <RETURN 'NORMAL>
		    <END NTH-RECORD-GEN>

#WORD *4051103505*
		    <GFCN BRANCH-VALUE ("VALUE" ANY EFF-ADDR <LIST ATOM ATOM> ANY) VADDR4 BRANCH?5 TWO?6>
		    <TEMP TEMP11 AC7>
		    <INTGO>
		    <FRAME 'GET-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 'GET-AC 2 = AC7>
		    <FRAME 'EMIT>
		    <PUSH 208>
		    <PUSH VADDR4>
		    <DEAD VADDR4>
		    <TYPE? TWO?6 <TYPE-CODE FALSE> + PHRASE15>
		    <DEAD TWO?6>
		    <FRAME 'NEXT-AC>
		    <PUSH AC7>
		    <CALL 'NEXT-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 'EMIT 3>
		    <NTHL BRANCH?5 1 = TEMP11 (TYPE ATOM)>
		    <VEQUAL? TEMP11 '- - PHRASE19>
		    <DEAD TEMP11>
		    <FRAME 'GEN-BRANCH>
		    <PUSH 18>
		    <RESTL BRANCH?5 1 = TEMP11 (TYPE LIST)>
		    <DEAD BRANCH?5>
		    <NTHL TEMP11 1 = STACK (TYPE ATOM)>
		    <DEAD TEMP11>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <RETURN AC7>
		    <DEAD AC7>
PHRASE19
		    <FRAME 'GEN-BRANCH>
		    <PUSH 19>
		    <RESTL BRANCH?5 1 = TEMP11 (TYPE LIST)>
		    <DEAD BRANCH?5>
		    <NTHL TEMP11 1 = STACK (TYPE ATOM)>
		    <DEAD TEMP11>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <RETURN AC7>
		    <DEAD AC7>
		    <END BRANCH-VALUE>

#WORD *12765267764*
		    <GFCN BRANCH-HW ("VALUE" STRUCTURED EFF-ADDR <LIST ATOM ATOM>) VADDR4 BRANCH?5>
		    <TEMP AC6 TEMP9>
		    <INTGO>
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = AC6>
		    <FRAME 'EMIT>
		    <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 'EMIT 3>
		    <NTHL BRANCH?5 1 = TEMP9 (TYPE ATOM)>
		    <VEQUAL? TEMP9 '- - PHRASE11>
		    <DEAD TEMP9>
		    <FRAME 'GEN-BRANCH>
		    <PUSH 24>
		    <RESTL BRANCH?5 1 = TEMP9 (TYPE LIST)>
		    <DEAD BRANCH?5>
		    <NTHL TEMP9 1 = STACK (TYPE ATOM)>
		    <DEAD TEMP9>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <RETURN AC6>
		    <DEAD AC6>
PHRASE11
		    <FRAME 'GEN-BRANCH>
		    <PUSH 25>
		    <RESTL BRANCH?5 1 = TEMP9 (TYPE LIST)>
		    <DEAD BRANCH?5>
		    <NTHL TEMP9 1 = STACK (TYPE ATOM)>
		    <DEAD TEMP9>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <RETURN AC6>
		    <DEAD AC6>
		    <END BRANCH-HW>

#WORD *22037064475*
		    <GFCN RANY-OFF ("VALUE" ANY <OR ATOM VARTBL> ANY ANY AC) RES4 TCOFF5 VOFF6 VAC7>
		    <TEMP TEMP12 TAC8>
		    <INTGO>
		    <EQUAL? RES4 'STACK - PHRASE10>
		    <FRAME 'EMIT-PUSH>
		    <PUSH TCOFF5>
		    <DEAD TCOFF5>
		    <PUSH 'DOUBLE>
		    <CALL 'EMIT-PUSH 2 = TEMP12>
		    <RETURN TEMP12>
		    <DEAD TEMP12>
PHRASE10
		    <GVAL 'AC-0 = TEMP12>
		    <EQUAL? TEMP12 VAC7 + PHRASE15>
		    <DEAD TEMP12>
		    <FRAME 'PREV-AC>
		    <PUSH VAC7>
		    <CALL 'PREV-AC 1 = TAC8>
		    <NTHUV TAC8 4 = TEMP12>
		    <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE15>
		    <DEAD TEMP12>
		    <FRAME 'ALL-DEAD?>
		    <PUSH TAC8>
		    <CALL 'ALL-DEAD? 1 = TEMP12>
		    <TYPE? TEMP12 <TYPE-CODE FALSE> - BOOL19>
		    <DEAD TEMP12>
		    <FRAME 'ALL-STORED?>
		    <PUSH TAC8>
		    <CALL 'ALL-STORED? 1 = TEMP12>
		    <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE15>
		    <DEAD TEMP12>
BOOL19
		    <FRAME 'MUNG-AC>
		    <PUSH VAC7>
		    <CALL 'MUNG-AC 1>
		    <FRAME 'GET-AC>
		    <PUSH TAC8>
		    <PUSH 'T>
		    <CALL 'GET-AC 2>
		    <FRAME 'EMIT>
		    <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 'EMIT 3>
		    <JUMP + PHRASE25>
PHRASE15
		    <FRAME 'PROTECT>
		    <FRAME 'GET-AC>
		    <PUSH 'DOUBLE>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = TAC8>
		    <PUSH TAC8>
		    <CALL 'PROTECT 1>
		    <FRAME 'EMIT>
		    <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 'EMIT 3>
		    <FRAME 'NEXT-AC>
		    <PUSH TAC8>
		    <CALL 'NEXT-AC 1 = VAC7>
PHRASE25
		    <FRAME 'DEST-PAIR>
		    <PUSH VAC7>
		    <DEAD VAC7>
		    <PUSH TAC8>
		    <DEAD TAC8>
		    <PUSH RES4>
		    <DEAD RES4>
		    <CALL 'DEST-PAIR 3 = TEMP12>
		    <RETURN TEMP12>
		    <DEAD TEMP12>
		    <END RANY-OFF>

#WORD *10355450321*
		    <GFCN TEST-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 'GET-AC>
		    <PUSH 'DOUBLE>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = RTAC16>
		    <FRAME 'NEXT-AC>
		    <PUSH RTAC16>
		    <CALL 'NEXT-AC 1 = RVAC15>
		    <FRAME 'PROTECT>
		    <PUSH RTAC16>
		    <CALL 'PROTECT 1>
		    <JUMP + PHRASE37>
PHRASE32
		    <FRAME 'FIND-APP-AC>
		    <PUSH VAC8>
		    <DEAD VAC8>
		    <PUSH TYP7>
		    <CALL 'FIND-APP-AC 2 = RVAC15>
PHRASE37
		    <FRAME 'PROTECT>
		    <PUSH RVAC15>
		    <CALL 'PROTECT 1>
PHRASE30
		    <FRAME 'MAKE-LABEL>
		    <CALL 'MAKE-LABEL 0 = ELAB14>
		    <FRAME 'MAKE-LABEL>
		    <CALL 'MAKE-LABEL 0 = FLAB13>
		    <TYPE? HTYP11 <TYPE-CODE FALSE> - PHRASE43>
		    <FRAME 'EMIT>
		    <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 'EMIT 2>
		    <FRAME 'GEN-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 'GEN-BRANCH 3>
		    <EQUAL? RES9 'STACK - PHRASE53>
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'TYPE-WORD>
		    <PUSH 'FALSE>
		    <CALL 'TYPE-WORD 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
		    <FRAME 'CLEAR-PUSH>
		    <CALL 'CLEAR-PUSH 0>
		    <JUMP + PHRASE57>
PHRASE53
		    <FRAME 'MOVE-TYPE>
		    <PUSH %<>>
		    <PUSH RTAC16>
		    <CALL 'MOVE-TYPE 2>
		    <FRAME 'MOVE-VALUE>
		    <PUSH %<>>
		    <PUSH RVAC15>
		    <CALL 'MOVE-VALUE 2>
PHRASE57
		    <FRAME 'GEN-BRANCH>
		    <PUSH 17>
		    <PUSH ELAB14>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <FRAME 'EMIT-LABEL>
		    <PUSH FLAB13>
		    <DEAD FLAB13>
		    <PUSH %<>>
		    <CALL 'EMIT-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 'EMIT-PUSH>
		    <FRAME 'MA-IMM>
		    <PUSH TYPV18>
		    <DEAD TYPV18>
		    <CALL 'MA-IMM 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
		    <JUMP + COND64>
PHRASE69
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'TYPE-CODE>
		    <PUSH TYP7>
		    <CALL 'TYPE-CODE 1 = STACK>
		    <PUSH 'WORD>
		    <CALL 'EMIT-PUSH 2>
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'MA-IMM>
		    <PUSH CADDR10>
		    <CALL 'MA-IMM 1 = STACK>
		    <PUSH 'WORD>
		    <CALL 'EMIT-PUSH 2>
		    <JUMP + COND64>
PHRASE67
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'TYPE-CODE>
		    <PUSH TYP7>
		    <CALL 'TYPE-CODE 1 = STACK>
		    <PUSH 'WORD>
		    <CALL 'EMIT-PUSH 2>
		    <FRAME 'EMIT-PUSH>
		    <PUSH CADDR10>
		    <PUSH 'WORD>
		    <CALL 'EMIT-PUSH 2>
		    <JUMP + COND64>
PHRASE65
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'TYPE-WORD>
		    <PUSH TYP7>
		    <CALL 'TYPE-WORD 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
COND64
		    <TYPE? HW12 <TYPE-CODE FALSE> + PHRASE84>
		    <DEAD HW12>
		    <FRAME 'EMIT>
		    <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 'EMIT 3>
		    <JUMP + PHRASE119>
PHRASE84
		    <FRAME 'EMIT-PUSH>
		    <PUSH VADDR6>
		    <DEAD VADDR6>
		    <PUSH 'LONG>
		    <CALL 'EMIT-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 'LOAD-CONSTANT>
		    <PUSH RTAC16>
		    <PUSH TYPV18>
		    <DEAD TYPV18>
		    <CALL 'LOAD-CONSTANT 2>
		    <JUMP + PHRASE114>
PHRASE92
		    <TYPE? CADDR10 <TYPE-CODE FALSE> + PHRASE97>
		    <TYPE? CADDR10 <TYPE-CODE FIX> - PHRASE99>
		    <FRAME 'LOAD-CONSTANT>
		    <PUSH RTAC16>
		    <FRAME 'MA-IMM>
		    <LSH CADDR10 16 = STACK (TYPE FIX)>
		    <CALL 'MA-IMM 1 = STACK>
		    <CALL 'LOAD-CONSTANT 2>
		    <FRAME 'EMIT>
		    <PUSH 176>
		    <FRAME 'TYPE-CODE>
		    <PUSH TYP7>
		    <CALL 'TYPE-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 'EMIT 3>
		    <JUMP + PHRASE106>
PHRASE99
		    <FRAME 'EMIT>
		    <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 'EMIT 3>
		    <JUMP + PHRASE106>
PHRASE97
		    <FRAME 'EMIT>
		    <PUSH 208>
		    <FRAME 'TYPE-WORD>
		    <PUSH TYP7>
		    <CALL 'TYPE-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 'EMIT 3>
PHRASE106
		    <FRAME 'USE-AC>
		    <PUSH RTAC16>
		    <CALL 'USE-AC 1>
		    <JUMP + PHRASE114>
PHRASE90
		    <TYPE? CADDR10 <TYPE-CODE FIX> - PHRASE112>
		    <FRAME 'LOAD-CONSTANT>
		    <PUSH RTAC16>
		    <PUSH CADDR10>
		    <CALL 'LOAD-CONSTANT 2>
		    <JUMP + PHRASE114>
PHRASE112
		    <TYPE? CADDR10 <TYPE-CODE FALSE> + PHRASE114>
		    <FRAME 'MOVE-TO-AC>
		    <PUSH RTAC16>
		    <PUSH CADDR10>
		    <PUSH 'WORD>
		    <CALL 'MOVE-TO-AC 3>
PHRASE114
		    <TYPE? HW12 <TYPE-CODE FALSE> + PHRASE117>
		    <DEAD HW12>
		    <FRAME 'EMIT>
		    <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 'EMIT 3>
		    <JUMP + PHRASE119>
PHRASE117
		    <FRAME 'EMIT-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 'EMIT-MOVE 3>
PHRASE119
		    <TYPE? HTYP11 <TYPE-CODE FALSE> - PHRASE122>
		    <DEAD HTYP11>
		    <FRAME 'EMIT-LABEL>
		    <PUSH ELAB14>
		    <DEAD ELAB14>
		    <PUSH %<>>
		    <CALL 'EMIT-LABEL 2>
		    <TYPE? RES9 <TYPE-CODE VARTBL> + TAG125>
		    <RETURN %<>>
TAG125
		    <FRAME 'DEST-PAIR>
		    <PUSH RVAC15>
		    <DEAD RVAC15>
		    <PUSH RTAC16>
		    <DEAD RTAC16>
		    <PUSH RES9>
		    <DEAD RES9>
		    <CALL 'DEST-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 'DEST-COUNT-DECL>
		    <PUSH RVAC15>
		    <DEAD RVAC15>
		    <PUSH RTAC16>
		    <DEAD RTAC16>
		    <PUSH RES9>
		    <DEAD RES9>
		    <PUSH TYP7>
		    <DEAD TYP7>
		    <CALL 'DEST-COUNT-DECL 4 = TEMP26>
		    <RETURN TEMP26>
		    <DEAD TEMP26>
PHRASE132
		    <FRAME 'DEST-DECL>
		    <PUSH RVAC15>
		    <DEAD RVAC15>
		    <PUSH RES9>
		    <DEAD RES9>
		    <PUSH TYP7>
		    <DEAD TYP7>
		    <CALL 'DEST-DECL 3 = TEMP26>
		    <RETURN TEMP26>
		    <DEAD TEMP26>
		    <END TEST-NTH>

#WORD *37654642355*
		    <GFCN FIND-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 'STRUCTURED-TYPE?>
		    <PUSH TYP7>
		    <DEAD TYP7>
		    <CALL 'STRUCTURED-TYPE? 1 = TEMP13>
		    <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE10>
		    <DEAD TEMP13>
BOOL11
		    <FRAME 'FREE-VALUE-AC?>
		    <PUSH 'STORED>
		    <CALL 'FREE-VALUE-AC? 1 = TEMP13>
		    <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE15>
		    <DEAD TEMP13>
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = TEMP13>
		    <RETURN TEMP13>
		    <DEAD TEMP13>
PHRASE15
		    <FRAME 'MUNG-AC>
		    <PUSH VAC6>
		    <CALL 'MUNG-AC 1>
		    <RETURN VAC6>
		    <DEAD VAC6>
PHRASE10
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = TEMP13>
		    <RETURN TEMP13>
		    <DEAD TEMP13>
		    <END FIND-APP-AC>

#WORD *201601034*
		    <GFCN GEN-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 'TYPE-CODE>
		    <PUSH TYP9>
		    <DEAD TYP9>
		    <PUSH 'VALUE>
		    <CALL 'TYPE-CODE 2 = TEMP26>
		    <LSH CADDR12 16 = NO-LOAD17 (TYPE FIX)>
		    <DEAD CADDR12>
		    <OR TEMP26 NO-LOAD17 = NO-LOAD17>
		    <DEAD TEMP26>
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'MA-IMM>
		    <PUSH NO-LOAD17>
		    <DEAD NO-LOAD17>
		    <CALL 'MA-IMM 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
		    <JUMP + COND20>
PHRASE21
		    <TYPE? CADDR12 <TYPE-CODE FALSE> + PHRASE31>
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'TYPE-CODE>
		    <PUSH TYP9>
		    <DEAD TYP9>
		    <CALL 'TYPE-CODE 1 = STACK>
		    <PUSH 'WORD>
		    <CALL 'EMIT-PUSH 2>
		    <FRAME 'EMIT-PUSH>
		    <PUSH CADDR12>
		    <DEAD CADDR12>
		    <PUSH 'WORD>
		    <CALL 'EMIT-PUSH 2>
		    <JUMP + COND20>
PHRASE31
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'TYPE-WORD>
		    <PUSH TYP9>
		    <DEAD TYP9>
		    <CALL 'TYPE-WORD 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
COND20
		    <TYPE? HW13 <TYPE-CODE FALSE> + PHRASE38>
		    <DEAD HW13>
		    <FRAME 'EMIT>
		    <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 'EMIT 3 = NO-LOAD17>
		    <RETURN NO-LOAD17>
		    <DEAD NO-LOAD17>
PHRASE38
		    <FRAME 'EMIT-PUSH>
		    <PUSH VADDR8>
		    <DEAD VADDR8>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2 = NO-LOAD17>
		    <RETURN NO-LOAD17>
		    <DEAD NO-LOAD17>
PHRASE19
		    <TYPE? RTAC14 <TYPE-CODE FALSE> - PHRASE44>
		    <TYPE? CADDR12 <TYPE-CODE FALSE> + PHRASE44>
		    <FRAME 'GET-AC>
		    <PUSH 'DOUBLE>
		    <PUSH 'T>
		    <CALL 'GET-AC 2 = RTAC14>
		    <FRAME 'PROTECT>
		    <FRAME 'NEXT-AC>
		    <PUSH RTAC14>
		    <CALL 'NEXT-AC 1 = RVAC15>
		    <PUSH RVAC15>
		    <CALL 'PROTECT 1>
		    <JUMP + PHRASE52>
PHRASE44
		    <TYPE? RVAC15 <TYPE-CODE FALSE> - PHRASE49>
		    <FRAME 'PROTECT>
		    <FRAME 'FIND-APP-AC>
		    <PUSH VAC10>
		    <DEAD VAC10>
		    <PUSH TYP9>
		    <CALL 'FIND-APP-AC 2 = RVAC15>
		    <PUSH RVAC15>
		    <CALL 'PROTECT 1>
		    <JUMP + PHRASE52>
PHRASE49
		    <SET NO-LOAD17 'T (TYPE ATOM)>
PHRASE52
		    <TYPE? CADDR12 <TYPE-CODE FALSE> + PHRASE54>
		    <TYPE? CADDR12 <TYPE-CODE FIX> - PHRASE56>
		    <FRAME 'LOAD-CONSTANT>
		    <PUSH RTAC14>
		    <PUSH CADDR12>
		    <DEAD CADDR12>
		    <CALL 'LOAD-CONSTANT 2>
		    <JUMP + PHRASE58>
PHRASE56
		    <FRAME 'EMIT>
		    <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 'EMIT 3>
PHRASE58
		    <VEQUAL? NO-LOAD17 0 - PHRASE61>
		    <DEAD NO-LOAD17>
		    <FRAME 'EMIT-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 'EMIT-MOVE 3>
PHRASE61
		    <FRAME 'DEST-COUNT-DECL>
		    <PUSH RVAC15>
		    <PUSH RTAC14>
		    <DEAD RTAC14>
		    <PUSH RES11>
		    <DEAD RES11>
		    <PUSH TYP9>
		    <DEAD TYP9>
		    <CALL 'DEST-COUNT-DECL 4>
		    <JUMP + PHRASE71>
PHRASE54
		    <VEQUAL? NO-LOAD17 0 - PHRASE64>
		    <DEAD NO-LOAD17>
		    <TYPE? HW13 <TYPE-CODE FALSE> + PHRASE66>
		    <DEAD HW13>
		    <FRAME 'EMIT>
		    <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 'EMIT 3>
		    <JUMP + PHRASE68>
PHRASE66
		    <FRAME 'EMIT-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 'EMIT-MOVE 3>
PHRASE68
		    <FRAME 'DEST-DECL>
		    <PUSH RVAC15>
		    <PUSH RES11>
		    <DEAD RES11>
		    <PUSH TYP9>
		    <DEAD TYP9>
		    <CALL 'DEST-DECL 3>
		    <JUMP + PHRASE71>
PHRASE64
		    <FRAME 'DEST-DECL>
		    <PUSH RVAC15>
		    <PUSH RES11>
		    <DEAD RES11>
		    <PUSH TYP9>
		    <DEAD TYP9>
		    <CALL 'DEST-DECL 3>
PHRASE71
		    <FRAME 'LOAD-AC>
		    <PUSH RVAC15>
		    <DEAD RVAC15>
		    <PUSH VADDR8>
		    <DEAD VADDR8>
		    <CALL 'LOAD-AC 2 = NO-LOAD17>
		    <RETURN NO-LOAD17>
		    <DEAD NO-LOAD17>
		    <END GEN-NTH>

#WORD *23246464213*
		    <GFCN BOOL-NTH ("VALUE" ANY EFF-ADDR FIX <OR ATOM VARTBL>) VADDR4 BNO5 RES6>
		    <TEMP ELAB7 FLAB8 RTAC10 RVAC9>
		    <INTGO>
		    <FRAME 'MAKE-LABEL>
		    <CALL 'MAKE-LABEL 0 = ELAB7>
		    <FRAME 'MAKE-LABEL>
		    <CALL 'MAKE-LABEL 0 = FLAB8>
		    <TYPE? RES6 <TYPE-CODE VARTBL> - PHRASE14>
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-TYPE>
		    <CALL 'GET-AC 1 = RTAC10>
		    <FRAME 'GET-AC>
		    <PUSH 'PREF-VAL>
		    <CALL 'GET-AC 1 = RVAC9>
		    <FRAME 'DEST-PAIR>
		    <PUSH RVAC9>
		    <PUSH RTAC10>
		    <PUSH RES6>
		    <CALL 'DEST-PAIR 3>
PHRASE14
		    <FRAME 'GEN-BRANCH>
		    <PUSH 225>
		    <FRAME 'MA-IMM>
		    <PUSH BNO5>
		    <DEAD BNO5>
		    <CALL 'MA-IMM 1 = STACK>
		    <PUSH VADDR4>
		    <DEAD VADDR4>
		    <PUSH FLAB8>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 5>
		    <EQUAL? RES6 'STACK - PHRASE21>
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'ADDR-TYPE-MQUOTE>
		    <PUSH 'T>
		    <CALL 'ADDR-TYPE-MQUOTE 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'ADDR-VALUE-MQUOTE>
		    <PUSH 'T>
		    <CALL 'ADDR-VALUE-MQUOTE 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
		    <JUMP + PHRASE26>
PHRASE21
		    <FRAME 'MOVE-TYPE>
		    <PUSH 'T>
		    <PUSH RTAC10>
		    <CALL 'MOVE-TYPE 2>
		    <FRAME 'MOVE-VALUE>
		    <PUSH 'T>
		    <PUSH RVAC9>
		    <CALL 'MOVE-VALUE 2>
PHRASE26
		    <FRAME 'GEN-BRANCH>
		    <PUSH 17>
		    <PUSH ELAB7>
		    <PUSH %<>>
		    <CALL 'GEN-BRANCH 3>
		    <FRAME 'EMIT-LABEL>
		    <PUSH FLAB8>
		    <DEAD FLAB8>
		    <PUSH %<>>
		    <CALL 'EMIT-LABEL 2>
		    <EQUAL? RES6 'STACK - PHRASE32>
		    <DEAD RES6>
		    <FRAME 'EMIT-PUSH>
		    <FRAME 'TYPE-WORD>
		    <PUSH 'FALSE>
		    <CALL 'TYPE-WORD 1 = STACK>
		    <PUSH 'LONG>
		    <CALL 'EMIT-PUSH 2>
		    <FRAME 'CLEAR-PUSH>
		    <CALL 'CLEAR-PUSH 0>
		    <JUMP + PHRASE36>
PHRASE32
		    <FRAME 'MOVE-TYPE>
		    <PUSH %<>>
		    <PUSH RTAC10>
		    <DEAD RTAC10>
		    <CALL 'MOVE-TYPE 2>
		    <FRAME 'MOVE-VALUE>
		    <PUSH %<>>
		    <PUSH RVAC9>
		    <DEAD RVAC9>
		    <CALL 'MOVE-VALUE 2>
PHRASE36
		    <FRAME 'EMIT-LABEL>
		    <PUSH ELAB7>
		    <DEAD ELAB7>
		    <PUSH %<>>
		    <CALL 'EMIT-LABEL 2 = ELAB7>
		    <RETURN ELAB7>
		    <DEAD ELAB7>
		    <END BOOL-NTH>

#WORD *17532071620*
		    <GFCN BOOL-NTH-BRANCH ("VALUE" ANY EFF-ADDR FIX <LIST ATOM ATOM>) VADDR4 BNO5 BRANCH6>
		    <TEMP TEMP11>
		    <INTGO>
		    <FRAME 'EMIT>
		    <GVAL 'INST-BTST = STACK>
		    <PUSH 'NO-SIZE-WORD>
		    <PUSH VADDR4>
		    <FRAME 'EXTWORD-DATA>
		    <PUSH BNO5>
		    <CALL 'EXTWORD-DATA 1 = STACK>
		    <CALL 'EMIT 4>
		    <NTHL BRANCH6 1 = TEMP11 (TYPE ATOM)>
		    <VEQUAL? TEMP11 '- - PHRASE10>
		    <DEAD TEMP11>
		    <FRAME 'GEN-BRANCH>
		    <PUSH 225>
		    <FRAME 'MA-IMM>
		    <PUSH BNO5>
		    <DEAD BNO5>
		    <CALL 'MA-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 'GEN-BRANCH 5 = TEMP11>
		    <RETURN TEMP11>
		    <DEAD TEMP11>
PHRASE10
		    <FRAME 'GEN-BRANCH>
		    <PUSH 224>
		    <FRAME 'MA-IMM>
		    <PUSH BNO5>
		    <DEAD BNO5>
		    <CALL 'MA-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 'GEN-BRANCH 5 = TEMP11>
		    <RETURN TEMP11>
		    <DEAD TEMP11>
		    <END BOOL-NTH-BRANCH>

#WORD *16023044255*
		    <GFCN COUNT-STORE-REC ("VALUE" ANY VARTBL ANY) VAL4 TCADDR5>
		    <TEMP LV6 TEMP12 TEMP18:FIX>
		    <INTGO>
		    <FRAME 'FIND-CACHE-VAR>
		    <PUSH VAL4>
		    <CALL 'FIND-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 'EMIT-MOVE>
		    <FRAME 'VAR-COUNT-ADDRESS>
		    <PUSH VAL4>
		    <DEAD VAL4>
		    <CALL 'VAR-COUNT-ADDRESS 1 = STACK>
		    <PUSH TCADDR5>
		    <DEAD TCADDR5>
		    <PUSH 'WORD>
		    <CALL 'EMIT-MOVE 3 = TEMP12>
		    <RETURN TEMP12>
		    <DEAD TEMP12>
PHRASE10
		    <NTHUV LV6 9 = LV6>
		    <SET TEMP12 LV6>
		    <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE15>
		    <FRAME 'EMIT>
		    <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 'GET-AC>
		    <PUSH 'ANY-AC>
		    <PUSH 'T>
		    <CALL 'GET-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 'EMIT 4>
		    <FRAME 'EMIT-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 'EMIT-MOVE 3 = TEMP12>
PHRASE15
		    <RETURN TEMP12>
		    <DEAD TEMP12>
		    <END COUNT-STORE-REC>