--- /dev/null
+
+<PACKAGE "DEATH">
+
+"VERSION 1.4"
+
+"This version written by CLR 2/85 based entirely on SAMs previous version.
+ The differences are:
+
+ a) Bit masks used instead of lists of names for efficiency.
+
+ b) Attempt to flush dead SETs.
+
+There are two interesting structures:
+
+ 1) Each temp atom's value is a uvector of fixes.
+ The first element is its number (starting at 0)
+ and increasing so each temp has a number.
+
+ The rest of the elements are essentially constitute
+ a string of 1 bit bytes big enough for the total
+ number of temps. The bit being on indicates a temp
+ that can't be merged with this one.
+
+ 2) The lists of live variables associated with branches is
+ also the same kind of bit string."
+
+<ENTRY REMOVE-DEADS FIXUP-DEATH DEBUG-DEATH MAINTAIN-DECLS>
+
+<USE "NEWSTRUC">
+
+<SETG DEBUG-DEATH %<>>
+
+<SETG MAINTAIN-DECLS %<>>
+
+"NAME-UV is a vector of temp names. It is used to get from a number back to
+ the name of a temp. NOTE: temp values start at 0 so 1 always must be added
+ to index into this vector."
+
+<GDECL (NAME-UV) <VECTOR [REST ATOM]> (UVSIZE) FIX>
+
+<NEWTYPE DEAD-VAR ATOM>
+
+<NEWSTRUC LABEL VECTOR L-INST <OR ATOM FORM> L-INS <LIST [REST FIX]> L-LEVEL FIX L-ASSIGN <OR FALSE <LIST [REST !<LIST ATOM FIX>]>>>
+
+<NEWSTRUC BRANCH VECTOR B-INST FORM B-OUTS <LIST [REST FIX]> B-LIVES UVECTOR B-FALL-DEADS UVECTOR B-JUMP-DEADS <OR FALSE UVECTOR>>
+
+#WORD *5344307564*
+ <GFCN \1a/32 ("VALUE" FORM "QUOTE" ANY) X4>
+ <TEMP TEMP6:FORM>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <PUSH X4>
+ <DEAD X4>
+ <PUSH -5>
+ <CALL '\1aFORM 3 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1a/32>
+<COND (<AND <GASSIGNED? /32> <NOT <TYPE? ,/32 MACRO>>> <SETG /32 <CHTYPE (,/32) MACRO>>)>
+
+#WORD *36474037523*
+<GFCN \1aFIXUP-DEATH ("VALUE" ANY LIST) CODE4>
+ <TEMP OUTCHAN5 TEMP10 CODELEN17:FIX TEMP20 VC21 X36 TEMP40 LABEL80:LABEL>
+ <INTGO>
+ <GEN-LVAL 'OUTCHAN = OUTCHAN5>
+ <GVAL 'DEBUG-DEATH = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
+ <DEAD TEMP10>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH "Fixup-death: ">
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aPRIN1>
+ <NTHL CODE4 1 = TEMP10 (TYPE FORM)>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = STACK>
+ <DEAD TEMP10>
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN5>
+ <CALL '\1aCRLF 1>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH "Removing deads">
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN5>
+ <CALL '\1aCRLF 1>
+PHRASE9
+ <SETG 'ANY-FLUSHED-INS %<>>
+ <FRAME '\1aREMOVE-DEADS>
+ <PUSH CODE4>
+ <CALL '\1aREMOVE-DEADS 1 = CODELEN17>
+ <GETS 'BIND = TEMP10 (TYPE LBIND)>
+ <UUBLOCK <TYPE-CODE VECTOR> CODELEN17 = TEMP20 (TYPE VECTOR)>
+ <BBIND 'VCODE 'VECTOR 'FIX TEMP20>
+ <DEAD TEMP20>
+ <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = VC21 (RECORD-TYPE LBIND)>
+ <DEAD TEMP20>
+ <SET TEMP20 CODE4 (TYPE LIST)>
+ <LOOP>
+MAP27
+ <INTGO>
+ <EMPL? TEMP20 + MAPAP30>
+ <NTHL TEMP20 1 = X36>
+ <TYPE? X36 <TYPE-CODE FORM> - PHRASE38>
+ <EMPL? X36 + PHRASE38 (TYPE FORM)>
+ <NTHL X36 1 = TEMP40>
+ <EQUAL? TEMP40 '`ENDIF - PHRASE38>
+ <DEAD TEMP40>
+ <PUTUV VC21 1 X36>
+ <RESTUV VC21 1 = VC21 (TYPE VECTOR)>
+PHRASE38
+ <PUTUV VC21 1 X36>
+ <DEAD X36>
+ <RESTUV VC21 1 = VC21 (TYPE VECTOR)>
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <JUMP + MAP27>
+MAPAP30
+ <GVAL 'DEBUG-DEATH = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE42>
+ <DEAD TEMP20>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH "Preparing labels and temps">
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN5>
+ <CALL '\1aCRLF 1>
+PHRASE42
+ <FRAME '\1aPREPARE-LABELS-AND-TEMPS>
+ <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP20>
+ <CALL '\1aPREPARE-LABELS-AND-TEMPS 1 = VC21>
+ <GVAL 'DEBUG-DEATH = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE49>
+ <DEAD TEMP20>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH "Preparing branches">
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN5>
+ <CALL '\1aCRLF 1>
+PHRASE49
+ <FRAME '\1aPREPARE-BRANCHES>
+ <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP20>
+ <PUSH 1>
+ <PUSH CODELEN17>
+ <PUSH CODELEN17>
+ <PUSH ()>
+ <CALL '\1aPREPARE-BRANCHES 5>
+ <GVAL 'DEBUG-DEATH = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE56>
+ <DEAD TEMP20>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH "Backwalking">
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN5>
+ <CALL '\1aCRLF 1>
+PHRASE56
+ <SET TEMP40 1 (TYPE FIX)>
+ <LOOP>
+AGAIN61
+ <INTGO>
+ <GVAL 'DEBUG-DEATH = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE63>
+ <DEAD TEMP20>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH "Pass ">
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aPRIN1>
+ <PUSH TEMP40>
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN5>
+ <CALL '\1aCRLF 1>
+PHRASE63
+ <SETG 'SOMETHING-CHANGED %<>>
+ <FRAME '\1aBACKWALK-FROM-LABEL>
+ <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP20>
+ <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = TEMP20 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP20 CODELEN17 = STACK (TYPE LABEL)>
+ <DEAD TEMP20>
+ <PUSH TEMP40>
+ <CALL '\1aBACKWALK-FROM-LABEL 3>
+ <SET TEMP20 VC21 (TYPE LIST)>
+ <LOOP>
+MAP73
+ <INTGO>
+ <EMPL? TEMP20 + MAPAP76>
+ <NTHL TEMP20 1 = LABEL80>
+ <FRAME '\1aBACKWALK-FROM-LABEL>
+ <NTHR 'VCODE 2 = X36 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR X36 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD X36>
+ <PUSH LABEL80>
+ <DEAD LABEL80>
+ <PUSH TEMP40>
+ <CALL '\1aBACKWALK-FROM-LABEL 3>
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <JUMP + MAP73>
+MAPAP76
+ <GVAL 'SOMETHING-CHANGED = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + EXIT59>
+ <DEAD TEMP20>
+ <ADD TEMP40 1 = TEMP40 (TYPE FIX)>
+ <JUMP + AGAIN61>
+EXIT59
+ <GVAL 'DEBUG-DEATH = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE88>
+ <DEAD TEMP20>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH "SET optimization">
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN5>
+ <CALL '\1aCRLF 1>
+PHRASE88
+ <FRAME '\1aOPTIMIZE-SETS>
+ <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP20>
+ <CALL '\1aOPTIMIZE-SETS 1>
+ <GVAL 'DEBUG-DEATH = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE95>
+ <DEAD TEMP20>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH "General optimization">
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN5>
+ <CALL '\1aCRLF 1>
+PHRASE95
+ <FRAME '\1aOPTIMIZE-TEMPS>
+ <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP20>
+ <CALL '\1aOPTIMIZE-TEMPS 1>
+ <GVAL 'MAINTAIN-DECLS = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE102>
+ <DEAD TEMP20>
+ <GVAL 'DEBUG-DEATH = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE104>
+ <DEAD TEMP20>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH "Optional optimization pass (ignoring decls)">
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN5>
+ <CALL '\1aCRLF 1>
+PHRASE104
+ <FRAME '\1aOPTIMIZE-TEMPS/BASH-DECLS>
+ <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP20>
+ <CALL '\1aOPTIMIZE-TEMPS/BASH-DECLS 1>
+PHRASE102
+ <GVAL 'DEBUG-DEATH = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE111>
+ <DEAD TEMP20>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH "Preparing deads">
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN5>
+ <CALL '\1aCRLF 1>
+PHRASE111
+ <FRAME '\1aPREPARE-DEADS-FROM-LABEL>
+ <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP20>
+ <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = TEMP20 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP20 CODELEN17 = STACK (TYPE LABEL)>
+ <DEAD TEMP20 CODELEN17>
+ <CALL '\1aPREPARE-DEADS-FROM-LABEL 2>
+ <SET TEMP20 VC21 (TYPE LIST)>
+ <DEAD VC21>
+ <LOOP>
+MAP120
+ <INTGO>
+ <EMPL? TEMP20 + MAPAP123>
+ <NTHL TEMP20 1 = LABEL80>
+ <FRAME '\1aPREPARE-DEADS-FROM-LABEL>
+ <NTHR 'VCODE 2 = X36 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR X36 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD X36>
+ <PUSH LABEL80>
+ <DEAD LABEL80>
+ <CALL '\1aPREPARE-DEADS-FROM-LABEL 2>
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <JUMP + MAP120>
+MAPAP123
+ <GVAL 'DEBUG-DEATH = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE132>
+ <DEAD TEMP20>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH "Inserting deads">
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN5>
+ <CALL '\1aCRLF 1>
+PHRASE132
+ <FRAME '\1aINSERT-DEADS>
+ <PUSH CODE4>
+ <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP20>
+ <CALL '\1aINSERT-DEADS 2>
+ <UNBIND TEMP10>
+ <DEAD TEMP10>
+ <ADJ -9>
+ <GVAL 'DEBUG-DEATH = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE139>
+ <DEAD TEMP10>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH "Death complete: ">
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aPRIN1>
+ <NTHL CODE4 1 = TEMP10 (TYPE FORM)>
+ <DEAD CODE4>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = STACK>
+ <DEAD TEMP10>
+ <PUSH OUTCHAN5>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aCRLF>
+ <PUSH OUTCHAN5>
+ <DEAD OUTCHAN5>
+ <CALL '\1aCRLF 1>
+PHRASE139
+ <GVAL 'ANY-FLUSHED-INS = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aFIXUP-DEATH>
+"ADD-LIST ORs a bit into a uvector. In the old world it addes an atom to
+ a LIST."
+
+#WORD *22604624125*
+<GFCN \1aADD-LIST ("VALUE" <UVECTOR ANY> ATOM UVECTOR) ATM4 L5>
+ <TEMP TEMP9 NUM6:FIX WD7:FIX>
+ <INTGO>
+ <GVAL ATM4 = TEMP9>
+ <DEAD ATM4>
+ <NTHUU TEMP9 1 = NUM6 (TYPE FIX)>
+ <DEAD TEMP9>
+ <LSH NUM6 -5 = TEMP9 (TYPE FIX)>
+ <ADD TEMP9 1 = WD7 (TYPE FIX)>
+ <DEAD TEMP9>
+ <AND NUM6 31 = NUM6>
+ <NTHUU L5 WD7 = TEMP9 (TYPE FIX)>
+ <LSH 1 NUM6 = NUM6 (TYPE FIX)>
+ <OR TEMP9 NUM6 = TEMP9>
+ <DEAD NUM6>
+ <PUTUU L5 WD7 TEMP9>
+ <DEAD WD7 TEMP9>
+ <RETURN L5>
+ <DEAD L5>
+ <END \1aADD-LIST>
+"ADD-LIST? same as ADD-LIST except returns #FALSE () if already there."
+
+#WORD *27662423234*
+<GFCN \1aADD-LIST? ("VALUE" <OR FALSE <UVECTOR ANY>> ATOM UVECTOR) ATM4 L5>
+ <TEMP TEMP10 NUM6:FIX TEM7:FIX TEMP13:FIX>
+ <INTGO>
+ <GVAL ATM4 = TEMP10>
+ <DEAD ATM4>
+ <NTHUU TEMP10 1 = NUM6 (TYPE FIX)>
+ <DEAD TEMP10>
+ <LSH NUM6 -5 = TEMP10 (TYPE FIX)>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <AND NUM6 31 = NUM6>
+ <NTHUU L5 TEMP10 = TEM7 (TYPE FIX)>
+ <LSH 1 NUM6 = NUM6 (TYPE FIX)>
+ <AND TEM7 NUM6 = TEMP13>
+ <VEQUAL? TEMP13 0 + TAG14 (TYPE FIX)>
+ <DEAD TEMP13>
+ <RETURN %<>>
+TAG14
+ <OR TEM7 NUM6 = TEMP13>
+ <DEAD TEM7 NUM6>
+ <PUTUU L5 TEMP10 TEMP13>
+ <DEAD TEMP10 TEMP13>
+ <RETURN L5>
+ <DEAD L5>
+ <END \1aADD-LIST?>
+"REM-LIST kill a bit in the uvector same way as ADD-LIST."
+
+#WORD *16330774246*
+<GFCN \1aREM-LIST ("VALUE" <UVECTOR ANY> ATOM UVECTOR) ATM4 L5>
+ <TEMP TEMP9 NUM6:FIX WD7:FIX>
+ <INTGO>
+ <GVAL ATM4 = TEMP9>
+ <DEAD ATM4>
+ <NTHUU TEMP9 1 = NUM6 (TYPE FIX)>
+ <DEAD TEMP9>
+ <LSH NUM6 -5 = TEMP9 (TYPE FIX)>
+ <ADD TEMP9 1 = WD7 (TYPE FIX)>
+ <DEAD TEMP9>
+ <AND NUM6 31 = NUM6>
+ <NTHUU L5 WD7 = TEMP9 (TYPE FIX)>
+ <ROT -2 NUM6 = NUM6 (TYPE FIX)>
+ <AND TEMP9 NUM6 = TEMP9>
+ <DEAD NUM6>
+ <PUTUU L5 WD7 TEMP9>
+ <DEAD WD7 TEMP9>
+ <RETURN L5>
+ <DEAD L5>
+ <END \1aREM-LIST>
+"REM-LIST? return false if not there, else remove it and return true"
+
+#WORD *34635620141*
+<GFCN \1aREM-LIST? ("VALUE" <OR FALSE <UVECTOR ANY>> ATOM UVECTOR) ATM4 L5>
+ <TEMP TEMP10 NUM6:FIX TEM7:FIX TEMP13:FIX>
+ <INTGO>
+ <GVAL ATM4 = TEMP10>
+ <DEAD ATM4>
+ <NTHUU TEMP10 1 = NUM6 (TYPE FIX)>
+ <DEAD TEMP10>
+ <LSH NUM6 -5 = TEMP10 (TYPE FIX)>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <AND NUM6 31 = NUM6>
+ <LSH 1 NUM6 = NUM6 (TYPE FIX)>
+ <NTHUU L5 TEMP10 = TEM7 (TYPE FIX)>
+ <AND TEM7 NUM6 = TEMP13>
+ <VEQUAL? TEMP13 0 - TAG14 (TYPE FIX)>
+ <DEAD TEMP13>
+ <RETURN %<>>
+TAG14
+ <XOR TEM7 NUM6 = TEMP13>
+ <DEAD TEM7 NUM6>
+ <PUTUU L5 TEMP10 TEMP13>
+ <DEAD TEMP10 TEMP13>
+ <RETURN L5>
+ <DEAD L5>
+ <END \1aREM-LIST?>
+"IN-LIST? see if bit is on"
+
+#WORD *12674527301*
+<GFCN \1aIN-LIST? ("VALUE" <OR !<FALSE> UVECTOR> ATOM UVECTOR) ATM4 L5>
+ <TEMP TEMP9 NUM6:FIX>
+ <INTGO>
+ <GVAL ATM4 = TEMP9>
+ <DEAD ATM4>
+ <NTHUU TEMP9 1 = NUM6 (TYPE FIX)>
+ <DEAD TEMP9>
+ <LSH NUM6 -5 = TEMP9 (TYPE FIX)>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <AND NUM6 31 = NUM6>
+ <NTHUU L5 TEMP9 = TEMP9 (TYPE FIX)>
+ <LSH 1 NUM6 = NUM6 (TYPE FIX)>
+ <AND TEMP9 NUM6 = TEMP9>
+ <DEAD NUM6>
+ <VEQUAL? TEMP9 0 - PHRASE11 (TYPE FIX)>
+ <DEAD TEMP9>
+ <RETURN %<>>
+PHRASE11
+ <RETURN L5>
+ <DEAD L5>
+ <END \1aIN-LIST?>
+#WORD *20721451071*
+<GFCN \1aINTERSECT-LISTS ("VALUE" <LIST [REST ATOM]> <LIST [REST ATOM]> <LIST [REST ATOM]>) L14 L25>
+ <TEMP TEMP15 TEMP13 TEMP12:LIST A117:ATOM TEMP23 TEMP24>
+ <INTGO>
+ <SET TEMP15 () (TYPE LIST)>
+ <SET TEMP13 () (TYPE LIST)>
+ <SET TEMP12 L14 (TYPE LIST)>
+ <DEAD L14>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPL? TEMP12 + MAPAP10>
+ <NTHL TEMP12 1 = A117>
+ <SET TEMP23 L25>
+ <EMPL? TEMP23 + PHRASE28>
+ <LOOP (A117 VALUE) (TEMP23 VALUE)>
+TAG21
+ <NTHL TEMP23 1 = TEMP24>
+ <VEQUAL? TEMP24 A117 + TAG20>
+ <DEAD TEMP24>
+ <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
+ <EMPL? TEMP23 - TAG21>
+ <JUMP + PHRASE28>
+TAG20
+ <CONS A117 () = TEMP23 (TYPE LIST)>
+ <DEAD A117>
+ <EMPL? TEMP15 - TAG26>
+ <SET TEMP15 TEMP23 (TYPE LIST)>
+ <JUMP + TAG27>
+TAG26
+ <PUTREST TEMP13 TEMP23>
+ <DEAD TEMP13>
+TAG27
+ <SET TEMP13 TEMP23 (TYPE LIST)>
+ <DEAD TEMP23>
+PHRASE28
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aINTERSECT-LISTS>
+#WORD *374124016*
+<GFCN \1aATOM-PART ("VALUE" ATOM <OR ATOM ADECL LIST>) TEMP4>
+ <TEMP TEMP7>
+ <INTGO>
+ <TYPE? TEMP4 <TYPE-CODE ATOM> - PHRASE6>
+ <RETURN TEMP4>
+ <DEAD TEMP4>
+PHRASE6
+ <TYPE? TEMP4 <TYPE-CODE ADECL> - PHRASE8>
+ <NTHUV TEMP4 1 = TEMP7 (TYPE ATOM)>
+ <DEAD TEMP4>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+PHRASE8
+ <FRAME '\1aATOM-PART>
+ <NTHL TEMP4 1 = STACK>
+ <DEAD TEMP4>
+ <CALL '\1aATOM-PART 1 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aATOM-PART>
+#WORD *22156410675*
+<GFCN \1aDECL-PART ("VALUE" ANY <OR ATOM ADECL LIST>) TEMP4>
+ <TEMP TEMP7>
+ <INTGO>
+ <TYPE? TEMP4 <TYPE-CODE ATOM> - PHRASE6>
+ <RETURN %<>>
+PHRASE6
+ <TYPE? TEMP4 <TYPE-CODE ADECL> - PHRASE8>
+ <NTHUV TEMP4 2 = TEMP7>
+ <DEAD TEMP4>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+PHRASE8
+ <FRAME '\1aDECL-PART>
+ <NTHL TEMP4 1 = STACK>
+ <DEAD TEMP4>
+ <CALL '\1aDECL-PART 1 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aDECL-PART>
+#WORD *35645555661*
+<GFCN \1aINST-PART ("VALUE" ANY ANY) INST4>
+ <TEMP TEMP7>
+ <INTGO>
+ <TYPE? INST4 <TYPE-CODE BRANCH> - PHRASE6>
+ <NTHUV INST4 1 = TEMP7 (TYPE FORM)>
+ <DEAD INST4>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+PHRASE6
+ <TYPE? INST4 <TYPE-CODE LABEL> - PHRASE8>
+ <NTHUV INST4 1 = TEMP7>
+ <DEAD INST4>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+PHRASE8
+ <RETURN INST4>
+ <DEAD INST4>
+ <END \1aINST-PART>
+#WORD *21236654621*
+<GFCN \1aREMOVE-DEADS ("VALUE" FIX LIST) CODE4>
+ <TEMP RCODE8:LIST CODE-SIZE11:FIX INST9>
+ <INTGO>
+ <RESTL CODE4 1 = RCODE8 (TYPE LIST)>
+ <SET CODE-SIZE11 1 (TYPE FIX)>
+ <LOOP>
+AGAIN12
+ <INTGO>
+ <EMPL? RCODE8 - PHRASE14 (TYPE LIST)>
+ <RETURN CODE-SIZE11>
+ <DEAD CODE-SIZE11>
+PHRASE14
+ <NTHL RCODE8 1 = INST9>
+ <TYPE? INST9 <TYPE-CODE FORM> - PHRASE20>
+ <EMPL? INST9 + PHRASE20 (TYPE FORM)>
+ <FRAME '\1aKILL-FUNNY-DEADS>
+ <PUSH INST9>
+ <CALL '\1aKILL-FUNNY-DEADS 1>
+ <NTHL INST9 1 = INST9>
+ <EQUAL? INST9 '`DEAD - PHRASE19>
+ <RESTL RCODE8 1 = RCODE8 (TYPE LIST)>
+ <PUTREST CODE4 RCODE8>
+ <JUMP + AGAIN12>
+PHRASE19
+ <EQUAL? INST9 '`ENDIF - PHRASE20>
+ <DEAD INST9>
+ <ADD CODE-SIZE11 1 = CODE-SIZE11 (TYPE FIX)>
+PHRASE20
+ <ADD CODE-SIZE11 1 = CODE-SIZE11 (TYPE FIX)>
+ <SET CODE4 RCODE8>
+ <DEAD RCODE8>
+ <RESTL CODE4 1 = RCODE8 (TYPE LIST)>
+ <JUMP + AGAIN12>
+ <END \1aREMOVE-DEADS>
+#WORD *26301056613*
+<GFCN \1aKILL-FUNNY-DEADS ("VALUE" ATOM FORM) INST4>
+ <TEMP N5 L9 TEMP15:FIX>
+ <INTGO>
+ <LENL INST4 = N5 (TYPE FIX)>
+ <LOOP>
+AGAIN11
+ <INTGO>
+ <SET TEMP15 N5>
+ <SET L9 INST4>
+ <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
+ <GRTR? TEMP15 0 - RESTL18 (TYPE FIX)>
+ <LOOP (L9 VALUE) (TEMP15 VALUE)>
+RESTL16
+ <INTGO>
+ <RESTL L9 1 = L9 (TYPE LIST)>
+ <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
+ <GRTR? TEMP15 0 + RESTL16 (TYPE FIX)>
+RESTL18
+ <NTHL L9 1 = L9>
+ <TYPE? L9 <TYPE-CODE LIST> - PHRASE13>
+ <EMPL? L9 + PHRASE13 (TYPE LIST)>
+ <NTHL L9 1 = L9>
+ <EQUAL? L9 '`DEAD-FALL + BOOL19>
+ <EQUAL? L9 '`DEAD-JUMP - PHRASE13>
+ <DEAD L9>
+BOOL19
+ <SUB N5 2 = TEMP15 (TYPE FIX)>
+ <SET L9 INST4>
+ <GRTR? TEMP15 0 - RESTL21 (TYPE FIX)>
+ <LOOP (L9 VALUE) (TEMP15 VALUE)>
+RESTL20
+ <INTGO>
+ <RESTL L9 1 = L9 (TYPE LIST)>
+ <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
+ <GRTR? TEMP15 0 + RESTL20 (TYPE FIX)>
+RESTL21
+ <CHTYPE L9 <TYPE-CODE LIST> = L9>
+ <PUTREST L9 ()>
+ <DEAD L9>
+ <SUB N5 1 = N5 (TYPE FIX)>
+ <JUMP + AGAIN11>
+PHRASE13
+ <RETURN 'T>
+ <END \1aKILL-FUNNY-DEADS>
+#WORD *24247322124*
+<GFCN \1aPREPARE-LABELS-AND-TEMPS ("VALUE" <LIST [REST LABEL]> VECTOR) CODE4>
+ <TEMP (ALL-VARS5:LIST ()) (NTEMPS6:FIX 0) CODELEN7:FIX (LOOP-LABELS8:LIST ()) I11:FIX LOOP-LABEL?14 DID-ENDIF16 INST12 TEMP20>
+ <INTGO>
+ <LENUV CODE4 = CODELEN7 (TYPE FIX)>
+ <SET I11 1 (TYPE FIX)>
+ <SET LOOP-LABEL?14 %<> (TYPE FALSE)>
+ <SET DID-ENDIF16 %<> (TYPE FALSE)>
+ <LOOP>
+AGAIN17
+ <INTGO>
+ <NTHUV CODE4 I11 = INST12>
+ <TYPE? INST12 <TYPE-CODE ATOM> - PHRASE19>
+ <NTHR INST12 1 = TEMP20 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG21)>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + TAG21>
+ <PUTR TEMP20 1 I11 (RECORD-TYPE GBIND)>
+ <DEAD TEMP20>
+ <JUMP + TAG22>
+TAG21
+ <FRAME '\1aSETG>
+ <PUSH INST12>
+ <PUSH I11>
+ <CALL '\1aSETG 2>
+TAG22
+ <PUSH INST12>
+ <DEAD INST12>
+ <PUSH ()>
+ <PUSH 0>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP20>
+ <CHTYPE TEMP20 <TYPE-CODE LABEL> = INST12>
+ <DEAD TEMP20>
+ <VEQUAL? LOOP-LABEL?14 0 + PHRASE25>
+ <CONS INST12 LOOP-LABELS8 = LOOP-LABELS8>
+ <SET LOOP-LABEL?14 %<> (TYPE FALSE)>
+PHRASE25
+ <PUTUV CODE4 I11 INST12>
+ <DEAD INST12>
+ <JUMP + PHRASE41>
+PHRASE19
+ <TYPE? INST12 <TYPE-CODE FORM> - PHRASE41>
+ <EMPL? INST12 + PHRASE41 (TYPE FORM)>
+ <NTHL INST12 1 = TEMP20>
+ <EQUAL? TEMP20 '`END + BOOL30>
+ <EQUAL? TEMP20 '`ENDIF - PHRASE29>
+ <VEQUAL? DID-ENDIF16 0 + PHRASE29>
+BOOL30
+ <SET DID-ENDIF16 %<> (TYPE FALSE)>
+ <PUSH INST12>
+ <DEAD INST12>
+ <PUSH ()>
+ <PUSH 0>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP20>
+ <CHTYPE TEMP20 <TYPE-CODE LABEL> = TEMP20>
+ <PUTUV CODE4 I11 TEMP20>
+ <DEAD TEMP20>
+ <JUMP + PHRASE41>
+PHRASE29
+ <EQUAL? TEMP20 '`ENDIF - PHRASE33>
+ <VEQUAL? DID-ENDIF16 0 - PHRASE33>
+ <SET DID-ENDIF16 'T (TYPE ATOM)>
+ <JUMP + PHRASE41>
+PHRASE33
+ <EQUAL? TEMP20 '`LOOP - PHRASE35>
+ <SET LOOP-LABEL?14 'T (TYPE ATOM)>
+ <JUMP + PHRASE41>
+PHRASE35
+ <EQUAL? TEMP20 '`ACTIVATION - PHRASE36>
+ <PUSH INST12>
+ <DEAD INST12>
+ <PUSH ()>
+ <PUSH 0>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP20>
+ <CHTYPE TEMP20 <TYPE-CODE LABEL> = INST12>
+ <DEAD TEMP20>
+ <CONS INST12 LOOP-LABELS8 = LOOP-LABELS8>
+ <PUTUV CODE4 I11 INST12>
+ <DEAD INST12>
+ <JUMP + PHRASE41>
+PHRASE36
+ <EQUAL? TEMP20 '`GFCN + BOOL39>
+ <EQUAL? TEMP20 '`FCN - PHRASE38>
+BOOL39
+ <RESTL INST12 1 = INST12 (TYPE LIST)>
+ <RESTL INST12 1 = INST12 (TYPE LIST)>
+ <RESTL INST12 1 = INST12 (TYPE LIST)>
+ <CHTYPE INST12 <TYPE-CODE LIST> = INST12>
+ <CONS INST12 () = TEMP20>
+ <PUTREST TEMP20 ALL-VARS5>
+ <DEAD ALL-VARS5>
+ <SET ALL-VARS5 TEMP20>
+ <DEAD TEMP20>
+ <LENL INST12 = TEMP20 (TYPE FIX)>
+ <DEAD INST12>
+ <ADD TEMP20 NTEMPS6 = NTEMPS6 (TYPE FIX)>
+ <DEAD TEMP20>
+ <JUMP + PHRASE41>
+PHRASE38
+ <EQUAL? TEMP20 '`TEMP - PHRASE40>
+ <RESTL INST12 1 = INST12 (TYPE LIST)>
+ <CHTYPE INST12 <TYPE-CODE LIST> = INST12>
+ <CONS INST12 () = TEMP20>
+ <PUTREST TEMP20 ALL-VARS5>
+ <DEAD ALL-VARS5>
+ <SET ALL-VARS5 TEMP20>
+ <DEAD TEMP20>
+ <LENL INST12 = TEMP20 (TYPE FIX)>
+ <DEAD INST12>
+ <ADD TEMP20 NTEMPS6 = NTEMPS6 (TYPE FIX)>
+ <DEAD TEMP20>
+ <JUMP + PHRASE41>
+PHRASE40
+ <EQUAL? TEMP20 '`MAKTUP - PHRASE41>
+ <DEAD TEMP20>
+ <RESTL INST12 1 = TEMP20 (TYPE LIST)>
+ <CHTYPE TEMP20 <TYPE-CODE LIST> = TEMP20>
+ <CONS TEMP20 ALL-VARS5 = ALL-VARS5>
+ <DEAD TEMP20>
+ <LENL INST12 = TEMP20 (TYPE FIX)>
+ <DEAD INST12>
+ <ADD TEMP20 NTEMPS6 = TEMP20 (TYPE FIX)>
+ <DEAD NTEMPS6>
+ <ADD TEMP20 -3 = NTEMPS6 (TYPE FIX)>
+ <DEAD TEMP20>
+PHRASE41
+ <VEQUAL? I11 CODELEN7 + EXIT9 (TYPE FIX)>
+ <ADD I11 1 = I11 (TYPE FIX)>
+ <JUMP + AGAIN17>
+EXIT9
+ <FRAME '\1aCONSTRUCT-TEMPS>
+ <PUSH NTEMPS6>
+ <DEAD NTEMPS6>
+ <PUSH ALL-VARS5>
+ <DEAD ALL-VARS5>
+ <CALL '\1aCONSTRUCT-TEMPS 2>
+ <RETURN LOOP-LABELS8>
+ <DEAD LOOP-LABELS8>
+ <END \1aPREPARE-LABELS-AND-TEMPS>
+#WORD *23265023057*
+<GFCN \1aCONSTRUCT-TEMPS ("VALUE" FIX FIX <LIST [REST LIST]>) NTEMPS4 ALL-VARS5>
+ <TEMP TEMP9 UVSIZE6:FIX UV-OF-NAMES7:VECTOR (I8:FIX 0) L20:LIST ATM32 UV33:UVECTOR TEMP36>
+ <INTGO>
+ <ADD NTEMPS4 63 = TEMP9 (TYPE FIX)>
+ <LSH TEMP9 -5 = UVSIZE6 (TYPE FIX)>
+ <DEAD TEMP9>
+ <UUBLOCK <TYPE-CODE VECTOR> NTEMPS4 = UV-OF-NAMES7 (TYPE VECTOR)>
+ <DEAD NTEMPS4>
+ <SET TEMP9 ALL-VARS5 (TYPE LIST)>
+ <DEAD ALL-VARS5>
+ <LOOP>
+MAP11
+ <INTGO>
+ <EMPL? TEMP9 + MAPAP14>
+ <NTHL TEMP9 1 = L20>
+ <LOOP>
+MAP22
+ <INTGO>
+ <EMPL? L20 + MAPAP25>
+ <NTHL L20 1 = ATM32>
+ <EQUAL? ATM32 '= + MAPAP25>
+ <FRAME '\1aATOM-PART>
+ <PUSH ATM32>
+ <DEAD ATM32>
+ <CALL '\1aATOM-PART 1 = ATM32>
+ <UUBLOCK <TYPE-CODE UVECTOR> UVSIZE6 = UV33>
+ <SET TEMP36 UV33>
+ <LOOP (TEMP36 VALUE LENGTH)>
+ISTR38
+ <EMPUU? TEMP36 + ISTRE39>
+ <PUTUU TEMP36 1 0>
+ <RESTUU TEMP36 1 = TEMP36>
+ <JUMP + ISTR38>
+ISTRE39
+ <NTHR ATM32 1 = TEMP36 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG40)>
+ <TYPE? TEMP36 <TYPE-CODE FALSE> + TAG40>
+ <PUTR TEMP36 1 UV33 (RECORD-TYPE GBIND)>
+ <DEAD TEMP36>
+ <JUMP + TAG41>
+TAG40
+ <FRAME '\1aSETG>
+ <PUSH ATM32>
+ <PUSH UV33>
+ <CALL '\1aSETG 2>
+TAG41
+ <PUTUU UV33 1 I8>
+ <DEAD UV33>
+ <ADD I8 1 = TEMP36 (TYPE FIX)>
+ <PUTUV UV-OF-NAMES7 TEMP36 ATM32>
+ <DEAD TEMP36 ATM32>
+ <ADD I8 1 = I8 (TYPE FIX)>
+ <RESTL L20 1 = L20 (TYPE LIST)>
+ <JUMP + MAP22>
+MAPAP25
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <JUMP + MAP11>
+MAPAP14
+ <SETG 'NAME-UV UV-OF-NAMES7>
+ <DEAD UV-OF-NAMES7>
+ <SUB UVSIZE6 1 = UVSIZE6 (TYPE FIX)>
+ <SETG 'UVSIZE UVSIZE6>
+ <RETURN UVSIZE6>
+ <DEAD UVSIZE6>
+ <END \1aCONSTRUCT-TEMPS>
+#WORD *35756775017*
+ <GFCN \1aMAKE-BRANCH ("VALUE" FORM "QUOTE" ANY) INST4>
+ <TEMP TEMP9:FORM>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <PUSH INST4>
+ <DEAD INST4>
+ <PUSH ()>
+ <FRAME '\1aFORM>
+ <PUSH 'IUVECTOR>
+ <PUSH ,UVSIZE>
+ <PUSH 0>
+ <CALL '\1aFORM 3 = STACK>
+ <FRAME '\1aFORM>
+ <PUSH 'IUVECTOR>
+ <PUSH ,UVSIZE>
+ <PUSH 0>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 5 = STACK>
+ <PUSH 'BRANCH>
+ <CALL '\1aFORM 3 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aMAKE-BRANCH>
+<COND (<AND <GASSIGNED? MAKE-BRANCH> <NOT <TYPE? ,MAKE-BRANCH MACRO>>> <SETG MAKE-BRANCH <CHTYPE (,MAKE-BRANCH) MACRO>>)>
+
+#WORD *34527545545*
+<GFCN \1aPREPARE-BRANCHES ("VALUE" VECTOR VECTOR FIX FIX FIX <LIST [REST FIX]>) CODE4 START5 END6 RETURN-LABEL7 ACT-LABELS8>
+ <TEMP I11:FIX DONT-BRANCH-IFSYS18 INST12 TEMP25 OP13 INST2-17 TEMP145 LAB16:LABEL>
+ <INTGO>
+ <SET I11 START5>
+ <DEAD START5>
+ <SET DONT-BRANCH-IFSYS18 %<> (TYPE FALSE)>
+ <LOOP>
+AGAIN19
+ <INTGO>
+ <NTHUV CODE4 I11 = INST12>
+ <TYPE? INST12 <TYPE-CODE LABEL> - PHRASE21>
+ <NTHUV INST12 1 = INST12>
+ <TYPE? INST12 <TYPE-CODE FORM> - PHRASE23>
+ <NTHL INST12 1 = TEMP25>
+ <DEAD INST12>
+ <EQUAL? TEMP25 '`ACTIVATION - PHRASE23>
+ <DEAD TEMP25>
+ <CONS RETURN-LABEL7 ACT-LABELS8 = TEMP25>
+ <DEAD ACT-LABELS8>
+ <CONS I11 TEMP25 = ACT-LABELS8>
+ <DEAD TEMP25>
+PHRASE23
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <ADD I11 1 = STACK (TYPE FIX)>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <JUMP + PHRASE201>
+PHRASE21
+ <TYPE? INST12 <TYPE-CODE FORM> - PHRASE201>
+ <EMPL? INST12 + PHRASE201 (TYPE FORM)>
+ <NTHL INST12 1 = OP13>
+ <EQUAL? OP13 '`ENDIF - PHRASE30>
+ <ADD I11 2 = TEMP25 (TYPE FIX)>
+ <NTHUV CODE4 TEMP25 = INST2-17>
+ <DEAD TEMP25>
+ <TYPE? INST2-17 <TYPE-CODE FORM> - PHRASE32>
+ <EMPL? INST2-17 + PHRASE32 (TYPE FORM)>
+ <NTHL INST2-17 1 = OP13>
+ <EQUAL? OP13 '`IFSYS - BOOL35>
+ <FRAME '\1aNOT-MERGEABLE-IFSYS-TYPES>
+ <RESTL INST2-17 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = STACK>
+ <DEAD TEMP25>
+ <RESTL INST12 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = STACK>
+ <DEAD TEMP25>
+ <CALL '\1aNOT-MERGEABLE-IFSYS-TYPES 2 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> - BOOL34>
+ <DEAD TEMP25>
+BOOL35
+ <EQUAL? OP13 '`IFCAN + BOOL38>
+ <EQUAL? OP13 '`IFCANNOT - PHRASE32>
+ <DEAD OP13>
+BOOL38
+ <FRAME '\1a=?>
+ <RESTL INST12 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = STACK>
+ <DEAD TEMP25>
+ <RESTL INST2-17 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = STACK>
+ <DEAD TEMP25>
+ <CALL '\1a=? 2 = TEMP25>
+ <VEQUAL? TEMP25 0 + PHRASE32>
+ <DEAD TEMP25>
+BOOL34
+ <SET DONT-BRANCH-IFSYS18 'T (TYPE ATOM)>
+ <PUSH INST12>
+ <PUSH ()>
+ <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = OP13>
+ <DEAD TEMP25>
+ <SET TEMP25 OP13>
+ <LOOP (TEMP25 VALUE LENGTH)>
+ISTR42
+ <EMPUU? TEMP25 + ISTRE43>
+ <PUTUU TEMP25 1 0>
+ <RESTUU TEMP25 1 = TEMP25>
+ <JUMP + ISTR42>
+ISTRE43
+ <PUSH OP13>
+ <DEAD OP13>
+ <GVAL 'UVSIZE = OP13 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> OP13 = TEMP25>
+ <DEAD OP13>
+ <SET OP13 TEMP25>
+ <LOOP (OP13 VALUE LENGTH)>
+ISTR44
+ <EMPUU? OP13 + ISTRE45>
+ <PUTUU OP13 1 0>
+ <RESTUU OP13 1 = OP13>
+ <JUMP + ISTR44>
+ISTRE45
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
+ <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
+ <PUTUV CODE4 I11 TEMP25>
+ <DEAD TEMP25>
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <FRAME '\1aFUNNY-FIND-ENDIF>
+ <PUSH CODE4>
+ <ADD I11 1 = STACK (TYPE FIX)>
+ <RESTL INST12 1 = TEMP25 (TYPE LIST)>
+ <DEAD INST12>
+ <NTHL TEMP25 1 = STACK>
+ <DEAD TEMP25>
+ <RESTL INST2-17 1 = TEMP25 (TYPE LIST)>
+ <DEAD INST2-17>
+ <NTHL TEMP25 1 = STACK>
+ <DEAD TEMP25>
+ <CALL '\1aFUNNY-FIND-ENDIF 4 = STACK>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <JUMP + PHRASE201>
+PHRASE32
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <ADD I11 1 = STACK (TYPE FIX)>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <JUMP + PHRASE201>
+PHRASE30
+ <EQUAL? OP13 '`JUMP - PHRASE50>
+ <PUSH INST12>
+ <PUSH ()>
+ <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = OP13>
+ <DEAD TEMP25>
+ <SET TEMP25 OP13>
+ <LOOP (TEMP25 VALUE LENGTH)>
+ISTR52
+ <EMPUU? TEMP25 + ISTRE53>
+ <PUTUU TEMP25 1 0>
+ <RESTUU TEMP25 1 = TEMP25>
+ <JUMP + ISTR52>
+ISTRE53
+ <PUSH OP13>
+ <DEAD OP13>
+ <GVAL 'UVSIZE = OP13 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> OP13 = TEMP25>
+ <DEAD OP13>
+ <SET OP13 TEMP25>
+ <LOOP (OP13 VALUE LENGTH)>
+ISTR54
+ <EMPUU? OP13 + ISTRE55>
+ <PUTUU OP13 1 0>
+ <RESTUU OP13 1 = OP13>
+ <JUMP + ISTR54>
+ISTRE55
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
+ <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
+ <PUTUV CODE4 I11 TEMP25>
+ <DEAD TEMP25>
+ <RESTL INST12 1 = TEMP25 (TYPE LIST)>
+ <DEAD INST12>
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = OP13>
+ <DEAD TEMP25>
+ <NTHR OP13 1 = TEMP25 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE57)>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE57>
+ <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP25 <TYPE-CODE UNBOUND> + PHRASE57>
+ <DEAD TEMP25>
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <GVAL OP13 = STACK>
+ <DEAD OP13>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <JUMP + PHRASE201>
+PHRASE57
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <PUSH RETURN-LABEL7>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <JUMP + PHRASE201>
+PHRASE50
+ <EQUAL? OP13 '`RETURN + BOOL62>
+ <EQUAL? OP13 '`MRETURN + BOOL62>
+ <EQUAL? OP13 '`RTUPLE - PHRASE61>
+BOOL62
+ <PUSH INST12>
+ <DEAD INST12>
+ <PUSH ()>
+ <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = OP13>
+ <DEAD TEMP25>
+ <SET TEMP25 OP13>
+ <LOOP (TEMP25 VALUE LENGTH)>
+ISTR64
+ <EMPUU? TEMP25 + ISTRE65>
+ <PUTUU TEMP25 1 0>
+ <RESTUU TEMP25 1 = TEMP25>
+ <JUMP + ISTR64>
+ISTRE65
+ <PUSH OP13>
+ <DEAD OP13>
+ <GVAL 'UVSIZE = OP13 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> OP13 = TEMP25>
+ <DEAD OP13>
+ <SET OP13 TEMP25>
+ <LOOP (OP13 VALUE LENGTH)>
+ISTR66
+ <EMPUU? OP13 + ISTRE67>
+ <PUTUU OP13 1 0>
+ <RESTUU OP13 1 = OP13>
+ <JUMP + ISTR66>
+ISTRE67
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
+ <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
+ <PUTUV CODE4 I11 TEMP25>
+ <DEAD TEMP25>
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <PUSH RETURN-LABEL7>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <JUMP + PHRASE201>
+PHRASE61
+ <EQUAL? OP13 '`SCALL - PHRASE69>
+ <PUSH INST12>
+ <PUSH ()>
+ <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = OP13>
+ <DEAD TEMP25>
+ <SET TEMP25 OP13>
+ <LOOP (TEMP25 VALUE LENGTH)>
+ISTR71
+ <EMPUU? TEMP25 + ISTRE72>
+ <PUTUU TEMP25 1 0>
+ <RESTUU TEMP25 1 = TEMP25>
+ <JUMP + ISTR71>
+ISTRE72
+ <PUSH OP13>
+ <DEAD OP13>
+ <GVAL 'UVSIZE = OP13 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> OP13 = TEMP25>
+ <DEAD OP13>
+ <SET OP13 TEMP25>
+ <LOOP (OP13 VALUE LENGTH)>
+ISTR73
+ <EMPUU? OP13 + ISTRE74>
+ <PUTUU OP13 1 0>
+ <RESTUU OP13 1 = OP13>
+ <JUMP + ISTR73>
+ISTRE74
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
+ <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
+ <PUTUV CODE4 I11 TEMP25>
+ <DEAD TEMP25>
+ <EMPL? ACT-LABELS8 + MAPAP81 (TYPE LIST)>
+ <SET TEMP25 ACT-LABELS8 (TYPE LIST)>
+ <LOOP>
+MAP78
+ <INTGO>
+ <EMPL? TEMP25 + MAPAP81>
+ <NTHL TEMP25 1 = OP13>
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <PUSH OP13>
+ <DEAD OP13>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <JUMP + MAP78>
+MAPAP81
+ <NTHL INST12 7 = OP13>
+ <DEAD INST12>
+ <NTHR OP13 1 = TEMP25 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE89)>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE89>
+ <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP25 <TYPE-CODE UNBOUND> + PHRASE89>
+ <DEAD TEMP25>
+ <GVAL OP13 = TEMP25>
+ <ADD I11 1 = INST2-17 (TYPE FIX)>
+ <EQUAL? TEMP25 INST2-17 + PHRASE89>
+ <DEAD TEMP25 INST2-17>
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <GVAL OP13 = STACK>
+ <DEAD OP13>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <JUMP + PHRASE92>
+PHRASE89
+ <NTHR OP13 1 = INST2-17 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG93)>
+ <DEAD OP13>
+ <TYPE? INST2-17 <TYPE-CODE FALSE> + TAG93>
+ <NTHR INST2-17 1 = INST2-17 (RECORD-TYPE GBIND)>
+ <TYPE? INST2-17 <TYPE-CODE UNBOUND> - PHRASE92>
+ <DEAD INST2-17>
+TAG93
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <PUSH RETURN-LABEL7>
+ <CALL '\1aMAKE-CONNECTION 3>
+PHRASE92
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <ADD I11 1 = STACK (TYPE FIX)>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <JUMP + PHRASE201>
+PHRASE69
+ <EQUAL? OP13 '`CALL + BOOL97>
+ <EQUAL? OP13 '`ACALL + BOOL97>
+ <EQUAL? OP13 '`INTGO + BOOL97>
+ <EQUAL? OP13 '`AGAIN + BOOL97>
+ <EQUAL? OP13 '`RETRY + BOOL97>
+ <EQUAL? OP13 '`CONS + BOOL97>
+ <EQUAL? OP13 '`LIST + BOOL97>
+ <EQUAL? OP13 '`UBLOCK + BOOL97>
+ <EQUAL? OP13 '`UUBLOCK - PHRASE96>
+BOOL97
+ <EMPL? ACT-LABELS8 + MAPAP109 (TYPE LIST)>
+ <PUSH INST12>
+ <DEAD INST12>
+ <PUSH ()>
+ <GVAL 'UVSIZE = INST2-17 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> INST2-17 = TEMP25>
+ <DEAD INST2-17>
+ <SET INST2-17 TEMP25>
+ <LOOP (INST2-17 VALUE LENGTH)>
+ISTR101
+ <EMPUU? INST2-17 + ISTRE102>
+ <PUTUU INST2-17 1 0>
+ <RESTUU INST2-17 1 = INST2-17>
+ <JUMP + ISTR101>
+ISTRE102
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = INST2-17>
+ <DEAD TEMP25>
+ <SET TEMP25 INST2-17>
+ <LOOP (TEMP25 VALUE LENGTH)>
+ISTR103
+ <EMPUU? TEMP25 + ISTRE104>
+ <PUTUU TEMP25 1 0>
+ <RESTUU TEMP25 1 = TEMP25>
+ <JUMP + ISTR103>
+ISTRE104
+ <PUSH INST2-17>
+ <DEAD INST2-17>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 5 = INST2-17>
+ <CHTYPE INST2-17 <TYPE-CODE BRANCH> = INST2-17>
+ <PUTUV CODE4 I11 INST2-17>
+ <DEAD INST2-17>
+ <SET INST2-17 ACT-LABELS8 (TYPE LIST)>
+ <LOOP>
+MAP106
+ <INTGO>
+ <EMPL? INST2-17 + MAPAP109>
+ <NTHL INST2-17 1 = OP13>
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <PUSH OP13>
+ <DEAD OP13>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <RESTL INST2-17 1 = INST2-17 (TYPE LIST)>
+ <JUMP + MAP106>
+MAPAP109
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <ADD I11 1 = STACK (TYPE FIX)>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <JUMP + PHRASE201>
+PHRASE96
+ <EQUAL? OP13 '`NTHR - PHRASE116>
+ <SET OP13 INST12>
+ <LOOP (OP13 VALUE)>
+TAG117
+ <RESTL OP13 1 = INST2-17 (TYPE LIST)>
+ <EMPL? INST2-17 + TAG118>
+ <SET OP13 INST2-17>
+ <DEAD INST2-17>
+ <JUMP + TAG117>
+TAG118
+ <NTHL OP13 1 = OP13>
+ <TYPE? OP13 <TYPE-CODE LIST> - PHRASE201>
+ <EMPL? OP13 + PHRASE201 (TYPE LIST)>
+ <NTHL OP13 1 = INST2-17>
+ <EQUAL? INST2-17 '`BRANCH-FALSE - PHRASE201>
+ <DEAD INST2-17>
+ <RESTL OP13 1 = TEMP25 (TYPE LIST)>
+ <DEAD OP13>
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = OP13>
+ <DEAD TEMP25>
+ <PUSH INST12>
+ <DEAD INST12>
+ <PUSH ()>
+ <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = INST2-17>
+ <DEAD TEMP25>
+ <SET TEMP25 INST2-17>
+ <LOOP (TEMP25 VALUE LENGTH)>
+ISTR123
+ <EMPUU? TEMP25 + ISTRE124>
+ <PUTUU TEMP25 1 0>
+ <RESTUU TEMP25 1 = TEMP25>
+ <JUMP + ISTR123>
+ISTRE124
+ <PUSH INST2-17>
+ <DEAD INST2-17>
+ <GVAL 'UVSIZE = INST2-17 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> INST2-17 = TEMP25>
+ <DEAD INST2-17>
+ <SET INST2-17 TEMP25>
+ <LOOP (INST2-17 VALUE LENGTH)>
+ISTR125
+ <EMPUU? INST2-17 + ISTRE126>
+ <PUTUU INST2-17 1 0>
+ <RESTUU INST2-17 1 = INST2-17>
+ <JUMP + ISTR125>
+ISTRE126
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
+ <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
+ <PUTUV CODE4 I11 TEMP25>
+ <DEAD TEMP25>
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <ADD I11 1 = STACK (TYPE FIX)>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <NTHR OP13 1 = TEMP25 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE129)>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE129>
+ <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP25 <TYPE-CODE UNBOUND> + PHRASE129>
+ <DEAD TEMP25>
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <GVAL OP13 = STACK>
+ <DEAD OP13>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <JUMP + PHRASE201>
+PHRASE129
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <PUSH RETURN-LABEL7>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <JUMP + PHRASE201>
+PHRASE116
+ <EQUAL? OP13 '`DISPATCH - PHRASE133>
+ <PUSH INST12>
+ <PUSH ()>
+ <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = INST2-17>
+ <DEAD TEMP25>
+ <SET TEMP25 INST2-17>
+ <LOOP (TEMP25 VALUE LENGTH)>
+ISTR135
+ <EMPUU? TEMP25 + ISTRE136>
+ <PUTUU TEMP25 1 0>
+ <RESTUU TEMP25 1 = TEMP25>
+ <JUMP + ISTR135>
+ISTRE136
+ <PUSH INST2-17>
+ <DEAD INST2-17>
+ <GVAL 'UVSIZE = INST2-17 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> INST2-17 = TEMP25>
+ <DEAD INST2-17>
+ <SET INST2-17 TEMP25>
+ <LOOP (INST2-17 VALUE LENGTH)>
+ISTR137
+ <EMPUU? INST2-17 + ISTRE138>
+ <PUTUU INST2-17 1 0>
+ <RESTUU INST2-17 1 = INST2-17>
+ <JUMP + ISTR137>
+ISTRE138
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
+ <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
+ <PUTUV CODE4 I11 TEMP25>
+ <DEAD TEMP25>
+ <RESTL INST12 1 = INST12 (TYPE LIST)>
+ <RESTL INST12 1 = INST12 (TYPE LIST)>
+ <RESTL INST12 1 = TEMP25 (TYPE LIST)>
+ <DEAD INST12>
+ <CHTYPE TEMP25 <TYPE-CODE LIST> = TEMP25>
+ <LOOP>
+MAP140
+ <INTGO>
+ <EMPL? TEMP25 + PHRASE201>
+ <NTHL TEMP25 1 = OP13>
+ <NTHR OP13 1 = INST12 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE151)>
+ <TYPE? INST12 <TYPE-CODE FALSE> + PHRASE151>
+ <NTHR INST12 1 = INST12 (RECORD-TYPE GBIND)>
+ <TYPE? INST12 <TYPE-CODE UNBOUND> + PHRASE151>
+ <DEAD INST12>
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <GVAL OP13 = STACK>
+ <DEAD OP13>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <JUMP + PHRASE153>
+PHRASE151
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <PUSH RETURN-LABEL7>
+ <CALL '\1aMAKE-CONNECTION 3>
+PHRASE153
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <JUMP + MAP140>
+PHRASE133
+ <EQUAL? OP13 '`IFSYS + BOOL156>
+ <EQUAL? OP13 '`IFCAN + BOOL156>
+ <EQUAL? OP13 '`IFCANNOT - PHRASE155>
+BOOL156
+ <VEQUAL? DONT-BRANCH-IFSYS18 0 - PHRASE158>
+ <PUSH INST12>
+ <DEAD INST12>
+ <PUSH ()>
+ <GVAL 'UVSIZE = TEMP145 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> TEMP145 = TEMP25>
+ <DEAD TEMP145>
+ <SET TEMP145 TEMP25>
+ <LOOP (TEMP145 VALUE LENGTH)>
+ISTR160
+ <EMPUU? TEMP145 + ISTRE161>
+ <PUTUU TEMP145 1 0>
+ <RESTUU TEMP145 1 = TEMP145>
+ <JUMP + ISTR160>
+ISTRE161
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = TEMP145>
+ <DEAD TEMP25>
+ <SET TEMP25 TEMP145>
+ <LOOP (TEMP25 VALUE LENGTH)>
+ISTR162
+ <EMPUU? TEMP25 + ISTRE163>
+ <PUTUU TEMP25 1 0>
+ <RESTUU TEMP25 1 = TEMP25>
+ <JUMP + ISTR162>
+ISTRE163
+ <PUSH TEMP145>
+ <DEAD TEMP145>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP145>
+ <CHTYPE TEMP145 <TYPE-CODE BRANCH> = TEMP145>
+ <PUTUV CODE4 I11 TEMP145>
+ <DEAD TEMP145>
+PHRASE158
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <ADD I11 1 = STACK (TYPE FIX)>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <VEQUAL? DONT-BRANCH-IFSYS18 0 + PHRASE166>
+ <SET DONT-BRANCH-IFSYS18 %<> (TYPE FALSE)>
+ <JUMP + PHRASE201>
+PHRASE166
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <FRAME '\1aFIND-ENDIF>
+ <PUSH CODE4>
+ <PUSH I11>
+ <CALL '\1aFIND-ENDIF 2 = STACK>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <JUMP + PHRASE201>
+PHRASE155
+ <EQUAL? OP13 '`LOCATION - PHRASE170>
+ <RESTL INST12 1 = TEMP145 (TYPE LIST)>
+ <DEAD INST12>
+ <RESTL TEMP145 1 = TEMP145 (TYPE LIST)>
+ <NTHL TEMP145 1 = TEMP145 (TYPE ATOM)>
+ <GVAL TEMP145 = OP13>
+ <DEAD TEMP145>
+ <FRAME '\1aPREPARE-BRANCHES>
+ <PUSH CODE4>
+ <ADD I11 1 = STACK (TYPE FIX)>
+ <DEAD I11>
+ <PUSH OP13>
+ <PUSH RETURN-LABEL7>
+ <CONS OP13 ACT-LABELS8 = STACK>
+ <CALL '\1aPREPARE-BRANCHES 5>
+ <SET I11 OP13>
+ <DEAD OP13>
+ <JUMP + PHRASE201>
+PHRASE170
+ <EQUAL? OP13 '`ICALL - PHRASE172>
+ <DEAD OP13>
+ <RESTL INST12 1 = TEMP145 (TYPE LIST)>
+ <NTHL TEMP145 1 = TEMP145 (TYPE ATOM)>
+ <GVAL TEMP145 = OP13>
+ <DEAD TEMP145>
+ <RESTL INST12 1 = TEMP145 (TYPE LIST)>
+ <DEAD INST12>
+ <RESTL TEMP145 1 = INST12 (TYPE LIST)>
+ <DEAD TEMP145>
+ <CHTYPE INST12 <TYPE-CODE LIST> = INST12>
+ <EMPL? INST12 + TAG173>
+ <LOOP (INST12 VALUE)>
+TAG175
+ <NTHL INST12 1 = TEMP145>
+ <TYPE? TEMP145 <TYPE-CODE ATOM> - TAG176>
+ <VEQUAL? TEMP145 '= + TAG174>
+ <DEAD TEMP145>
+TAG176
+ <RESTL INST12 1 = INST12 (TYPE LIST)>
+ <EMPL? INST12 - TAG175>
+TAG173
+ <SET INST12 %<> (TYPE FALSE)>
+TAG174
+ <VEQUAL? INST12 0 + PHRASE178>
+ <NTHUV CODE4 OP13 = LAB16 (TYPE LABEL)>
+ <NTHUV LAB16 4 = TEMP145>
+ <CONS I11 () = TEMP25>
+ <RESTL INST12 1 = INST2-17 (TYPE LIST)>
+ <DEAD INST12>
+ <NTHL INST2-17 1 = INST2-17>
+ <CONS INST2-17 TEMP25 = TEMP25>
+ <DEAD INST2-17>
+ <CONS TEMP25 TEMP145 = TEMP145>
+ <DEAD TEMP25>
+ <PUTUV LAB16 4 TEMP145>
+ <DEAD LAB16 TEMP145>
+PHRASE178
+ <FRAME '\1aPREPARE-BRANCHES>
+ <PUSH CODE4>
+ <ADD I11 1 = STACK (TYPE FIX)>
+ <DEAD I11>
+ <PUSH OP13>
+ <PUSH OP13>
+ <PUSH ACT-LABELS8>
+ <CALL '\1aPREPARE-BRANCHES 5>
+ <SET I11 OP13>
+ <DEAD OP13>
+ <JUMP + PHRASE201>
+PHRASE172
+ <CHTYPE INST12 <TYPE-CODE LIST> = TEMP145>
+ <LOOP (TEMP145 VALUE)>
+TAG184
+ <NTHL TEMP145 1 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE ATOM> - TAG185>
+ <VEQUAL? TEMP25 '+ + TAG182>
+ <DEAD TEMP25>
+TAG185
+ <RESTL TEMP145 1 = TEMP145 (TYPE LIST)>
+ <EMPL? TEMP145 - TAG184>
+ <JUMP + TAG183>
+TAG182
+ <SET OP13 TEMP145>
+ <DEAD TEMP145>
+ <JUMP + BOOL181>
+TAG183
+ <CHTYPE INST12 <TYPE-CODE LIST> = TEMP145>
+ <LOOP (TEMP145 VALUE)>
+TAG188
+ <NTHL TEMP145 1 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE ATOM> - TAG189>
+ <VEQUAL? TEMP25 '- + TAG187>
+ <DEAD TEMP25>
+TAG189
+ <RESTL TEMP145 1 = TEMP145 (TYPE LIST)>
+ <EMPL? TEMP145 - TAG188>
+ <JUMP + PHRASE180>
+TAG187
+ <SET OP13 TEMP145>
+ <DEAD TEMP145>
+BOOL181
+ <RESTL OP13 1 = TEMP145 (TYPE LIST)>
+ <DEAD OP13>
+ <NTHL TEMP145 1 = OP13>
+ <DEAD TEMP145>
+ <PUSH INST12>
+ <DEAD INST12>
+ <PUSH ()>
+ <GVAL 'UVSIZE = TEMP145 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> TEMP145 = TEMP25>
+ <DEAD TEMP145>
+ <SET TEMP145 TEMP25>
+ <LOOP (TEMP145 VALUE LENGTH)>
+ISTR191
+ <EMPUU? TEMP145 + ISTRE192>
+ <PUTUU TEMP145 1 0>
+ <RESTUU TEMP145 1 = TEMP145>
+ <JUMP + ISTR191>
+ISTRE192
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = TEMP145>
+ <DEAD TEMP25>
+ <SET TEMP25 TEMP145>
+ <LOOP (TEMP25 VALUE LENGTH)>
+ISTR193
+ <EMPUU? TEMP25 + ISTRE194>
+ <PUTUU TEMP25 1 0>
+ <RESTUU TEMP25 1 = TEMP25>
+ <JUMP + ISTR193>
+ISTRE194
+ <PUSH TEMP145>
+ <DEAD TEMP145>
+ <PUSH %<>>
+ <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP145>
+ <CHTYPE TEMP145 <TYPE-CODE BRANCH> = TEMP145>
+ <PUTUV CODE4 I11 TEMP145>
+ <DEAD TEMP145>
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <ADD I11 1 = STACK (TYPE FIX)>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <NTHR OP13 1 = TEMP145 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE197)>
+ <TYPE? TEMP145 <TYPE-CODE FALSE> + PHRASE197>
+ <NTHR TEMP145 1 = TEMP145 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP145 <TYPE-CODE UNBOUND> + PHRASE197>
+ <DEAD TEMP145>
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <GVAL OP13 = STACK>
+ <DEAD OP13>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <JUMP + PHRASE201>
+PHRASE197
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <PUSH RETURN-LABEL7>
+ <CALL '\1aMAKE-CONNECTION 3>
+ <JUMP + PHRASE201>
+PHRASE180
+ <FRAME '\1aMAKE-CONNECTION>
+ <PUSH CODE4>
+ <PUSH I11>
+ <ADD I11 1 = STACK (TYPE FIX)>
+ <CALL '\1aMAKE-CONNECTION 3>
+PHRASE201
+ <ADD I11 1 = I11 (TYPE FIX)>
+ <VEQUAL? I11 END6 - AGAIN19 (TYPE FIX)>
+ <RETURN CODE4>
+ <DEAD CODE4>
+ <END \1aPREPARE-BRANCHES>
+#WORD *2620242350*
+<GFCN \1aMAKE-CONNECTION ("VALUE" ATOM VECTOR FIX FIX) CODE4 FROM5 TO6>
+ <TEMP FROM-BRANCH7 TEMP11:LIST>
+ <INTGO>
+ <NTHUV CODE4 FROM5 = FROM-BRANCH7>
+ <TYPE? FROM-BRANCH7 <TYPE-CODE BRANCH> - PHRASE10>
+ <NTHUV FROM-BRANCH7 2 = TEMP11 (TYPE LIST)>
+ <CONS TO6 TEMP11 = TEMP11>
+ <PUTUV FROM-BRANCH7 2 TEMP11 (TYPE LIST)>
+ <DEAD FROM-BRANCH7 TEMP11>
+PHRASE10
+ <NTHUV CODE4 TO6 = FROM-BRANCH7>
+ <DEAD CODE4 TO6>
+ <TYPE? FROM-BRANCH7 <TYPE-CODE LABEL> - PHRASE13>
+ <NTHUV FROM-BRANCH7 2 = TEMP11 (TYPE LIST)>
+ <CONS FROM5 TEMP11 = TEMP11>
+ <DEAD FROM5>
+ <PUTUV FROM-BRANCH7 2 TEMP11 (TYPE LIST)>
+ <DEAD FROM-BRANCH7 TEMP11>
+PHRASE13
+ <RETURN 'T>
+ <END \1aMAKE-CONNECTION>
+#WORD *22733045530*
+<GFCN \1aNOT-MERGEABLE-IFSYS-TYPES ("VALUE" <OR ATOM FALSE> ANY ANY) A4 B5>
+ <TEMP TEMP8 TEMP9 TEMP10 TEMP11 TEMP12>
+ <INTGO>
+ <TYPE? A4 <TYPE-CODE STRING> - PHRASE7>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? A4 "TOPS20" - PHRASE7>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP8 A4>
+ <SET TEMP9 "TOPS20" (TYPE STRING)>
+ <LENUS TEMP8 = TEMP10 (TYPE FIX)>
+ <VEQUAL? TEMP10 6 - PHRASE7>
+ <LOOP (TEMP8 VALUE LENGTH) (TEMP9 VALUE LENGTH) (TEMP10 VALUE)>
+TAG13
+ <NTHUS TEMP8 1 = TEMP11>
+ <NTHUS TEMP9 1 = TEMP12>
+ <VEQUAL? TEMP11 TEMP12 - PHRASE7>
+ <DEAD TEMP11 TEMP12>
+ <RESTUS TEMP8 1 = TEMP8 (TYPE STRING)>
+ <RESTUS TEMP9 1 = TEMP9 (TYPE STRING)>
+ <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
+ <GRTR? TEMP10 0 + TAG13 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <TYPE? B5 <TYPE-CODE STRING> - TAG15>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? B5 "TOPS20" + TAG14>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP9 B5>
+ <DEAD B5>
+ <SET TEMP8 "TOPS20" (TYPE STRING)>
+ <LENUS TEMP9 = TEMP12 (TYPE FIX)>
+ <VEQUAL? TEMP12 6 - TAG15>
+ <LOOP (TEMP9 VALUE LENGTH) (TEMP8 VALUE LENGTH) (TEMP12 VALUE)>
+TAG17
+ <NTHUS TEMP9 1 = TEMP11>
+ <NTHUS TEMP8 1 = TEMP10>
+ <VEQUAL? TEMP11 TEMP10 - TAG15>
+ <DEAD TEMP11 TEMP10>
+ <RESTUS TEMP9 1 = TEMP9 (TYPE STRING)>
+ <RESTUS TEMP8 1 = TEMP8 (TYPE STRING)>
+ <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
+ <GRTR? TEMP12 0 + TAG17 (TYPE FIX)>
+ <RETURN %<>>
+ <ENDIF "STRING-EQUAL?">
+TAG15
+ <RETURN 'T>
+TAG14
+ <RETURN %<>>
+PHRASE7
+ <TYPE? B5 <TYPE-CODE STRING> - PHRASE19>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? B5 "TOPS20" - PHRASE19>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP9 B5>
+ <SET TEMP10 "TOPS20" (TYPE STRING)>
+ <LENUS TEMP9 = TEMP11 (TYPE FIX)>
+ <VEQUAL? TEMP11 6 - PHRASE19>
+ <LOOP (TEMP9 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP11 VALUE)>
+TAG22
+ <NTHUS TEMP9 1 = TEMP8>
+ <NTHUS TEMP10 1 = TEMP12>
+ <VEQUAL? TEMP8 TEMP12 - PHRASE19>
+ <DEAD TEMP8 TEMP12>
+ <RESTUS TEMP9 1 = TEMP9 (TYPE STRING)>
+ <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
+ <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
+ <GRTR? TEMP11 0 + TAG22 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <RETURN 'T>
+PHRASE19
+ <TYPE? A4 <TYPE-CODE STRING> - PHRASE23>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? A4 "UNIX" - PHRASE23>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP10 A4>
+ <SET TEMP9 "UNIX" (TYPE STRING)>
+ <LENUS TEMP10 = TEMP12 (TYPE FIX)>
+ <VEQUAL? TEMP12 4 - PHRASE23>
+ <LOOP (TEMP10 VALUE LENGTH) (TEMP9 VALUE LENGTH) (TEMP12 VALUE)>
+TAG25
+ <NTHUS TEMP10 1 = TEMP8>
+ <NTHUS TEMP9 1 = TEMP11>
+ <VEQUAL? TEMP8 TEMP11 - PHRASE23>
+ <DEAD TEMP8 TEMP11>
+ <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
+ <RESTUS TEMP9 1 = TEMP9 (TYPE STRING)>
+ <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
+ <GRTR? TEMP12 0 + TAG25 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <RETURN %<>>
+PHRASE23
+ <TYPE? B5 <TYPE-CODE STRING> - PHRASE26>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? B5 "UNIX" - PHRASE26>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP9 B5>
+ <SET TEMP10 "UNIX" (TYPE STRING)>
+ <LENUS TEMP9 = TEMP11 (TYPE FIX)>
+ <VEQUAL? TEMP11 4 - PHRASE26>
+ <LOOP (TEMP9 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP11 VALUE)>
+TAG28
+ <NTHUS TEMP9 1 = TEMP8>
+ <NTHUS TEMP10 1 = TEMP12>
+ <VEQUAL? TEMP8 TEMP12 - PHRASE26>
+ <DEAD TEMP8 TEMP12>
+ <RESTUS TEMP9 1 = TEMP9 (TYPE STRING)>
+ <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
+ <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
+ <GRTR? TEMP11 0 + TAG28 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <RETURN %<>>
+PHRASE26
+ <FRAME '\1aN=?>
+ <PUSH A4>
+ <DEAD A4>
+ <PUSH B5>
+ <DEAD B5>
+ <CALL '\1aN=? 2 = TEMP8>
+ <VEQUAL? TEMP8 0 + PHRASE29>
+ <SET TEMP8 'T (TYPE ATOM)>
+PHRASE29
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aNOT-MERGEABLE-IFSYS-TYPES>
+#WORD *3334712334*
+<GFCN \1aFIND-ENDIF ("VALUE" FIX VECTOR FIX) CODE4 I5>
+ <TEMP TEMP7:FIX>
+ <INTGO>
+ <FRAME '\1aREAL-FIND-ENDIF>
+ <PUSH CODE4>
+ <DEAD CODE4>
+ <PUSH I5>
+ <DEAD I5>
+ <PUSH %<>>
+ <CALL '\1aREAL-FIND-ENDIF 3 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aFIND-ENDIF>
+#WORD *4566405411*
+<GFCN \1aFUNNY-FIND-ENDIF ("VALUE" FIX VECTOR FIX "TUPLE" ANY) CODE4 I5>
+ <MAKTUP MTUP6 = MTUP6>
+ <INTGO>
+ <FRAME '\1aREAL-FIND-ENDIF>
+ <PUSH CODE4>
+ <DEAD CODE4>
+ <PUSH I5>
+ <DEAD I5>
+ <PUSH MTUP6>
+ <DEAD MTUP6>
+ <CALL '\1aREAL-FIND-ENDIF 3 = MTUP6>
+ <RETURN MTUP6>
+ <DEAD MTUP6>
+ <END \1aFUNNY-FIND-ENDIF>
+#WORD *20617220034*
+<GFCN
\1aREAL-FIND-ENDIF ("VALUE" FIX VECTOR FIX <OR FALSE <PRIMTYPE VECTOR>>) CODE4 I5 MTUP6>
+ <TEMP (LEVEL7:FIX 0) INST11 TEMP26 S37>
+ <INTGO>
+ <LOOP>
+AGAIN13
+ <INTGO>
+ <ADD I5 1 = I5 (TYPE FIX)>
+ <NTHUV CODE4 I5 = INST11>
+ <TYPE? INST11 <TYPE-CODE LABEL> - AGAIN13>
+ <NTHUV INST11 1 = INST11>
+ <TYPE? INST11 <TYPE-CODE FORM> - AGAIN13>
+ <EMPL? INST11 + AGAIN13 (TYPE FORM)>
+ <NTHL INST11 1 = INST11>
+ <EQUAL? INST11 '`ENDIF - PHRASE18>
+ <VEQUAL? LEVEL7 0 - PHRASE20 (TYPE FIX)>
+ <TYPE? MTUP6 <TYPE-CODE FALSE> + PHRASE24>
+ <ADD I5 2 = TEMP26 (TYPE FIX)>
+ <NTHUV CODE4 TEMP26 = INST11>
+ <DEAD TEMP26>
+ <TYPE? INST11 <TYPE-CODE FORM> - PHRASE24>
+ <NTHL INST11 1 = TEMP26>
+ <EQUAL? TEMP26 '`IFSYS - PHRASE24>
+ <DEAD TEMP26>
+ <CHTYPE MTUP6 <TYPE-CODE VECTOR> = TEMP26>
+ <EMPUV? TEMP26 + PHRASE24>
+ <LOOP>
+MAP28
+ <INTGO>
+ <EMPUV? TEMP26 + MAPAP31>
+ <NTHUV TEMP26 1 = S37>
+ <FRAME '\1aNOT-MERGEABLE-IFSYS-TYPES>
+ <PUSH S37>
+ <DEAD S37>
+ <RESTL INST11 1 = S37 (TYPE LIST)>
+ <NTHL S37 1 = STACK>
+ <DEAD S37>
+ <CALL '\1aNOT-MERGEABLE-IFSYS-TYPES 2 = S37>
+ <TYPE? S37 <TYPE-CODE FALSE> + PHRASE24>
+ <DEAD S37>
+ <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
+ <JUMP + MAP28>
+MAPAP31
+ <ADD I5 1 = I5 (TYPE FIX)>
+ <JUMP + AGAIN13>
+PHRASE24
+ <RETURN I5>
+ <DEAD I5>
+PHRASE20
+ <SUB LEVEL7 1 = LEVEL7 (TYPE FIX)>
+ <JUMP + AGAIN13>
+PHRASE18
+ <EQUAL? INST11 '`IFSYS + BOOL46>
+ <EQUAL? INST11 '`IFCAN + BOOL46>
+ <EQUAL? INST11 '`IFCANNOT - AGAIN13>
+ <DEAD INST11>
+BOOL46
+ <ADD LEVEL7 1 = LEVEL7 (TYPE FIX)>
+ <JUMP + AGAIN13>
+ <END \1aREAL-FIND-ENDIF>
+#WORD *26365527410*
+<GFCN \1aBACKWALK-FROM-LABEL ("VALUE" <OR ATOM FALSE> VECTOR LABEL FIX) CODE4 LABEL5 CUR-LEV6>
+ <TEMP TEMP16 TEMP18:LIST IN19:FIX>
+ <INTGO>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <NTHUV LABEL5 2 = TEMP18 (TYPE LIST)>
+ <DEAD LABEL5>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPL? TEMP18 + MAPAP11>
+ <NTHL TEMP18 1 = IN19>
+ <NTHUV CODE4 IN19 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE BRANCH> + TAG23>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE22>
+TAG23
+ <FRAME '\1aBACKWALK>
+ <PUSH CODE4>
+ <PUSH IN19>
+ <DEAD IN19>
+ <SET IN19 0 (TYPE FIX)>
+ <NTHUV TEMP16 3 = TEMP16 (TYPE UVECTOR)>
+ <LOOP (TEMP16 VALUE LENGTH) (IN19 VALUE)>
+TAG29
+ <INTGO>
+ <EMPUU? TEMP16 + TAG26>
+ <NTHUU TEMP16 1 = STACK>
+ <RESTUU TEMP16 1 = TEMP16 (TYPE UVECTOR)>
+ <ADD IN19 1 = IN19 (TYPE FIX)>
+ <JUMP + TAG29>
+TAG26
+ <UBLOCK <TYPE-CODE UVECTOR> IN19 = STACK (TYPE UVECTOR)>
+ <DEAD IN19>
+ <PUSH CUR-LEV6>
+ <CALL '\1aBACKWALK 4 = TEMP16>
+PHRASE22
+ <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
+ <JUMP + MAP8>
+MAPAP11
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aBACKWALK-FROM-LABEL>
+#WORD *6173456164*
+<GFCN \1aBACKWALK ("VALUE" ATOM VECTOR FIX UVECTOR FIX) CODE4 I5 LIVE-TEMPS6 CUR-LEV7>
+ <TEMP INST11 TEMP19 INS12:LIST TEMP50:LIST IN51:FIX TEMP54 LL69:LIST TEMP72>
+ <INTGO>
+ <LOOP>
+AGAIN14
+ <INTGO>
+ <NTHUV CODE4 I5 = INST11>
+ <TYPE? INST11 <TYPE-CODE LABEL> - PHRASE16>
+ <NTHUV INST11 3 = TEMP19 (TYPE FIX)>
+ <GRTR? CUR-LEV7 TEMP19 + PHRASE18 (TYPE FIX)>
+ <DEAD TEMP19>
+ <RETURN 'T>
+PHRASE18
+ <PUTUV INST11 3 CUR-LEV7 (TYPE FIX)>
+ <NTHUV INST11 4 = TEMP19>
+ <NTHUV INST11 2 = INS12 (TYPE LIST)>
+ <EMPL? INS12 - PHRASE22 (TYPE LIST)>
+ <VEQUAL? CUR-LEV7 1 - PHRASE93 (TYPE FIX)>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH "FILE-DEATH: Warning--unreachable code at ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV INST11 1 = STACK>
+ <DEAD INST11>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aCRLF>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1>
+ <RETURN 'T>
+PHRASE22
+ <RESTL INS12 1 = TEMP50 (TYPE LIST)>
+ <LOOP>
+MAP40
+ <INTGO>
+ <EMPL? TEMP50 + MAPAP43>
+ <NTHL TEMP50 1 = IN51>
+ <SET INST11 0 (TYPE FIX)>
+ <SET TEMP54 LIVE-TEMPS6>
+ <LOOP (TEMP54 VALUE LENGTH) (INST11 VALUE)>
+TAG56
+ <INTGO>
+ <EMPUU? TEMP54 + TAG53>
+ <NTHUU TEMP54 1 = STACK>
+ <RESTUU TEMP54 1 = TEMP54 (TYPE UVECTOR)>
+ <ADD INST11 1 = INST11 (TYPE FIX)>
+ <JUMP + TAG56>
+TAG53
+ <UBLOCK <TYPE-CODE UVECTOR> INST11 = TEMP54 (TYPE UVECTOR)>
+ <DEAD INST11>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + MAPAP64>
+ <SET INST11 TEMP19 (TYPE LIST)>
+ <LOOP>
+MAP61
+ <INTGO>
+ <EMPL? INST11 + MAPAP64>
+ <NTHL INST11 1 = LL69>
+ <RESTL LL69 1 = TEMP72 (TYPE LIST)>
+ <NTHL TEMP72 1 = TEMP72 (TYPE FIX)>
+ <VEQUAL? IN51 TEMP72 - PHRASE71 (TYPE FIX)>
+ <DEAD TEMP72>
+ <FRAME '\1aREM-LIST>
+ <NTHL LL69 1 = STACK (TYPE ATOM)>
+ <PUSH TEMP54>
+ <CALL '\1aREM-LIST 2>
+ <FRAME '\1aUNMERGEABLE>
+ <NTHL LL69 1 = STACK (TYPE ATOM)>
+ <DEAD LL69>
+ <PUSH TEMP54>
+ <CALL '\1aUNMERGEABLE 2>
+ <JUMP + MAPAP64>
+PHRASE71
+ <RESTL INST11 1 = INST11 (TYPE LIST)>
+ <JUMP + MAP61>
+MAPAP64
+ <FRAME '\1aBACKWALK>
+ <PUSH CODE4>
+ <PUSH IN51>
+ <DEAD IN51>
+ <PUSH TEMP54>
+ <DEAD TEMP54>
+ <PUSH CUR-LEV7>
+ <CALL '\1aBACKWALK 4>
+ <RESTL TEMP50 1 = TEMP50 (TYPE LIST)>
+ <JUMP + MAP40>
+MAPAP43
+ <NTHL INS12 1 = I5 (TYPE FIX)>
+ <DEAD INS12>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE93>
+ <SET TEMP50 TEMP19 (TYPE LIST)>
+ <DEAD TEMP19>
+ <LOOP>
+MAP79
+ <INTGO>
+ <EMPL? TEMP50 + PHRASE93>
+ <NTHL TEMP50 1 = INS12>
+ <RESTL INS12 1 = INST11 (TYPE LIST)>
+ <NTHL INST11 1 = INST11 (TYPE FIX)>
+ <VEQUAL? I5 INST11 - PHRASE87 (TYPE FIX)>
+ <DEAD INST11>
+ <FRAME '\1aREM-LIST>
+ <NTHL INS12 1 = STACK (TYPE ATOM)>
+ <PUSH LIVE-TEMPS6>
+ <CALL '\1aREM-LIST 2>
+ <FRAME '\1aUNMERGEABLE>
+ <NTHL INS12 1 = STACK (TYPE ATOM)>
+ <DEAD INS12>
+ <PUSH LIVE-TEMPS6>
+ <CALL '\1aUNMERGEABLE 2>
+ <JUMP + PHRASE93>
+PHRASE87
+ <RESTL TEMP50 1 = TEMP50 (TYPE LIST)>
+ <JUMP + MAP79>
+PHRASE16
+ <TYPE? INST11 <TYPE-CODE BRANCH> - PHRASE90>
+ <FRAME '\1aMERGE-TEMPS>
+ <PUSH LIVE-TEMPS6>
+ <DEAD LIVE-TEMPS6>
+ <PUSH INST11>
+ <CALL '\1aMERGE-TEMPS 2 = LIVE-TEMPS6>
+ <FRAME '\1aUPDATE-TEMPS>
+ <NTHUV INST11 1 = STACK (TYPE FORM)>
+ <DEAD INST11>
+ <PUSH LIVE-TEMPS6>
+ <DEAD LIVE-TEMPS6>
+ <CALL '\1aUPDATE-TEMPS 2 = LIVE-TEMPS6>
+ <SUB I5 1 = I5 (TYPE FIX)>
+ <JUMP + PHRASE93>
+PHRASE90
+ <FRAME '\1aUPDATE-TEMPS>
+ <PUSH INST11>
+ <DEAD INST11>
+ <PUSH LIVE-TEMPS6>
+ <DEAD LIVE-TEMPS6>
+ <CALL '\1aUPDATE-TEMPS 2 = LIVE-TEMPS6>
+ <SUB I5 1 = I5 (TYPE FIX)>
+PHRASE93
+ <VEQUAL? I5 0 - AGAIN14 (TYPE FIX)>
+ <RETURN 'T>
+ <END \1aBACKWALK>
+#WORD *37274126165*
+<GFCN \1aMERGE-TEMPS ("VALUE" UVECTOR UVECTOR BRANCH) LIVES4 BRANCH5>
+ <TEMP (TEMP-OFFS7:FIX 0) B-LIVES6:UVECTOR TEMP14:UVECTOR TEMP15:UVECTOR LP20:UVECTOR BP21:UVECTOR TEMP22:FIX TEMP23 ADDED33 MSK41:FIX>
+ <INTGO>
+ <NTHUV BRANCH5 3 = B-LIVES6 (TYPE UVECTOR)>
+ <SET TEMP14 LIVES4 (TYPE UVECTOR)>
+ <SET TEMP15 B-LIVES6 (TYPE UVECTOR)>
+ <LOOP>
+MAP9
+ <INTGO>
+ <EMPUU? TEMP14 + MAPAP12>
+ <EMPUU? TEMP15 + MAPAP12>
+ <SET LP20 TEMP14>
+ <SET BP21 TEMP15>
+ <NTHUU LP20 1 = TEMP22 (TYPE FIX)>
+ <NTHUU BP21 1 = TEMP23 (TYPE FIX)>
+ <DEAD BP21>
+ <OR TEMP22 TEMP23 = TEMP22>
+ <DEAD TEMP23>
+ <PUTUU LP20 1 TEMP22>
+ <DEAD LP20 TEMP22>
+ <RESTUU TEMP14 1 = TEMP14 (TYPE UVECTOR)>
+ <RESTUU TEMP15 1 = TEMP15 (TYPE UVECTOR)>
+ <JUMP + MAP9>
+MAPAP12
+ <SET TEMP15 LIVES4 (TYPE UVECTOR)>
+ <SET TEMP14 B-LIVES6 (TYPE UVECTOR)>
+ <LOOP>
+MAP25
+ <INTGO>
+ <EMPUU? TEMP15 + MAPAP28>
+ <EMPUU? TEMP14 + MAPAP28>
+ <SET LP20 TEMP15>
+ <SET BP21 TEMP14>
+ <NTHUU LP20 1 = TEMP23 (TYPE FIX)>
+ <NTHUU BP21 1 = TEMP22 (TYPE FIX)>
+ <XOR TEMP23 TEMP22 = ADDED33>
+ <DEAD TEMP23 TEMP22>
+ <VEQUAL? ADDED33 0 + EXIT39 (TYPE FIX)>
+ <SETG 'SOMETHING-CHANGED 'T>
+ <ADD TEMP-OFFS7 1 = TEMP22 (TYPE FIX)>
+ <SET MSK41 1 (TYPE FIX)>
+ <LOOP>
+AGAIN42
+ <INTGO>
+ <AND MSK41 ADDED33 = TEMP23>
+ <VEQUAL? TEMP23 0 + PHRASE49 (TYPE FIX)>
+ <DEAD TEMP23>
+ <XOR ADDED33 MSK41 = ADDED33>
+ <FRAME '\1aUNMERGEABLE>
+ <GVAL 'NAME-UV = TEMP23>
+ <NTHUV TEMP23 TEMP22 = STACK (TYPE ATOM)>
+ <DEAD TEMP23>
+ <PUSH LIVES4>
+ <CALL '\1aUNMERGEABLE 2>
+ <VEQUAL? ADDED33 0 + EXIT39 (TYPE FIX)>
+PHRASE49
+ <LSH MSK41 1 = MSK41 (TYPE FIX)>
+ <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
+ <JUMP + AGAIN42>
+EXIT39
+ <ADD TEMP-OFFS7 32 = TEMP-OFFS7 (TYPE FIX)>
+ <NTHUU LP20 1 = TEMP23 (TYPE FIX)>
+ <DEAD LP20>
+ <PUTUU BP21 1 TEMP23>
+ <DEAD BP21 TEMP23>
+ <RESTUU TEMP15 1 = TEMP15 (TYPE UVECTOR)>
+ <RESTUU TEMP14 1 = TEMP14 (TYPE UVECTOR)>
+ <JUMP + MAP25>
+MAPAP28
+ <PUTUV BRANCH5 3 B-LIVES6>
+ <DEAD BRANCH5 B-LIVES6>
+ <RETURN LIVES4>
+ <DEAD LIVES4>
+ <END \1aMERGE-TEMPS>
+#WORD *21430222465*
+<GFCN \1aUPDATE-TEMPS ("VALUE" UVECTOR FORM UVECTOR) INST4 LIVES5>
+ <TEMP OP6 TEMP16:LIST TWO8 ITEM7 TEMP48>
+ <INTGO>
+ <EMPL? INST4 + EXIT96 (TYPE FORM)>
+ <NTHL INST4 1 = OP6>
+ <EQUAL? OP6 '`SET - PHRASE14>
+ <FRAME '\1aREM-LIST>
+ <RESTL INST4 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = TWO8>
+ <DEAD TEMP16>
+ <PUSH TWO8>
+ <PUSH LIVES5>
+ <CALL '\1aREM-LIST 2>
+ <FRAME '\1aUNMERGEABLE>
+ <PUSH TWO8>
+ <DEAD TWO8>
+ <PUSH LIVES5>
+ <CALL '\1aUNMERGEABLE 2>
+ <RESTL INST4 1 = TEMP16 (TYPE LIST)>
+ <DEAD INST4>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = OP6>
+ <DEAD TEMP16>
+ <TYPE? OP6 <TYPE-CODE ATOM> - EXIT96>
+ <FRAME '\1aADD-LIVE>
+ <PUSH OP6>
+ <DEAD OP6>
+ <PUSH LIVES5>
+ <DEAD LIVES5>
+ <CALL '\1aADD-LIVE 2 = LIVES5>
+ <RETURN LIVES5>
+ <DEAD LIVES5>
+PHRASE14
+ <EQUAL? OP6 '`SETLR - PHRASE21>
+ <FRAME '\1aREM-LIST>
+ <RESTL INST4 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = TWO8>
+ <DEAD TEMP16>
+ <PUSH TWO8>
+ <PUSH LIVES5>
+ <CALL '\1aREM-LIST 2>
+ <FRAME '\1aUNMERGEABLE>
+ <PUSH TWO8>
+ <DEAD TWO8>
+ <PUSH LIVES5>
+ <CALL '\1aUNMERGEABLE 2>
+ <RESTL INST4 1 = TEMP16 (TYPE LIST)>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = OP6>
+ <DEAD TEMP16>
+ <TYPE? OP6 <TYPE-CODE ATOM> - PHRASE25>
+ <FRAME '\1aADD-LIVE>
+ <PUSH OP6>
+ <DEAD OP6>
+ <PUSH LIVES5>
+ <DEAD LIVES5>
+ <CALL '\1aADD-LIVE 2 = LIVES5>
+PHRASE25
+ <RESTL INST4 1 = TEMP16 (TYPE LIST)>
+ <DEAD INST4>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = OP6>
+ <DEAD TEMP16>
+ <TYPE? OP6 <TYPE-CODE ATOM> - EXIT96>
+ <FRAME '\1aADD-LIVE>
+ <PUSH OP6>
+ <DEAD OP6>
+ <PUSH LIVES5>
+ <DEAD LIVES5>
+ <CALL '\1aADD-LIVE 2 = LIVES5>
+ <RETURN LIVES5>
+ <DEAD LIVES5>
+PHRASE21
+ <EQUAL? OP6 '`SETRL - PHRASE30>
+ <FRAME '\1aREM-LIST>
+ <RESTL INST4 1 = TEMP16 (TYPE LIST)>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = OP6>
+ <DEAD TEMP16>
+ <PUSH OP6>
+ <PUSH LIVES5>
+ <CALL '\1aREM-LIST 2>
+ <FRAME '\1aUNMERGEABLE>
+ <PUSH OP6>
+ <DEAD OP6>
+ <PUSH LIVES5>
+ <CALL '\1aUNMERGEABLE 2>
+ <RESTL INST4 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = TWO8>
+ <DEAD TEMP16>
+ <TYPE? TWO8 <TYPE-CODE ATOM> - PHRASE34>
+ <FRAME '\1aADD-LIVE>
+ <PUSH TWO8>
+ <DEAD TWO8>
+ <PUSH LIVES5>
+ <DEAD LIVES5>
+ <CALL '\1aADD-LIVE 2 = LIVES5>
+PHRASE34
+ <RESTL INST4 1 = TEMP16 (TYPE LIST)>
+ <DEAD INST4>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = OP6>
+ <DEAD TEMP16>
+ <TYPE? OP6 <TYPE-CODE ATOM> - EXIT96>
+ <FRAME '\1aADD-LIVE>
+ <PUSH OP6>
+ <DEAD OP6>
+ <PUSH LIVES5>
+ <DEAD LIVES5>
+ <CALL '\1aADD-LIVE 2 = LIVES5>
+ <RETURN LIVES5>
+ <DEAD LIVES5>
+PHRASE30
+ <EQUAL? OP6 '`TEMP - PHRASE39>
+ <RESTL INST4 1 = TEMP16 (TYPE LIST)>
+ <DEAD INST4>
+ <CHTYPE TEMP16 <TYPE-CODE LIST> = TEMP16>
+ <LOOP>
+MAP41
+ <INTGO>
+ <EMPL? TEMP16 + EXIT96>
+ <NTHL TEMP16 1 = OP6>
+ <TYPE? OP6 <TYPE-CODE LIST> - PHRASE54>
+ <FRAME '\1aREM-LIST>
+ <FRAME '\1aATOM-PART>
+ <PUSH OP6>
+ <DEAD OP6>
+ <CALL '\1aATOM-PART 1 = OP6>
+ <PUSH OP6>
+ <PUSH LIVES5>
+ <CALL '\1aREM-LIST 2>
+ <FRAME '\1aUNMERGEABLE>
+ <PUSH OP6>
+ <DEAD OP6>
+ <PUSH LIVES5>
+ <CALL '\1aUNMERGEABLE 2>
+PHRASE54
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <JUMP + MAP41>
+PHRASE39
+ <EQUAL? OP6 '`MAKTUP - PHRASE58>
+ <RESTL INST4 1 = TWO8 (TYPE LIST)>
+ <DEAD INST4>
+ <CHTYPE TWO8 <TYPE-CODE LIST> = TWO8>
+ <LOOP>
+MAP60
+ <INTGO>
+ <EMPL? TWO8 + EXIT96>
+ <NTHL TWO8 1 = OP6>
+ <EQUAL? OP6 '= + MAPAP63>
+ <TYPE? OP6 <TYPE-CODE LIST> - PHRASE73>
+ <FRAME '\1aREM-LIST>
+ <FRAME '\1aATOM-PART>
+ <PUSH OP6>
+ <DEAD OP6>
+ <CALL '\1aATOM-PART 1 = OP6>
+ <PUSH OP6>
+ <PUSH LIVES5>
+ <CALL '\1aREM-LIST 2>
+ <FRAME '\1aUNMERGEABLE>
+ <PUSH OP6>
+ <DEAD OP6>
+ <PUSH LIVES5>
+ <CALL '\1aUNMERGEABLE 2>
+PHRASE73
+ <RESTL TWO8 1 = TWO8 (TYPE LIST)>
+ <JUMP + MAP60>
+MAPAP63
+ <RETURN LIVES5>
+ <DEAD LIVES5>
+PHRASE58
+ <EQUAL? OP6 '`DISPATCH - PHRASE77>
+ <RESTL INST4 1 = TWO8 (TYPE LIST)>
+ <NTHL TWO8 1 = TWO8>
+ <TYPE? TWO8 <TYPE-CODE ATOM> - PHRASE79>
+ <FRAME '\1aADD-LIVE>
+ <PUSH TWO8>
+ <DEAD TWO8>
+ <PUSH LIVES5>
+ <DEAD LIVES5>
+ <CALL '\1aADD-LIVE 2 = LIVES5>
+PHRASE79
+ <RESTL INST4 1 = TWO8 (TYPE LIST)>
+ <DEAD INST4>
+ <RESTL TWO8 1 = TWO8 (TYPE LIST)>
+ <NTHL TWO8 1 = OP6>
+ <DEAD TWO8>
+ <TYPE? OP6 <TYPE-CODE ATOM> - EXIT96>
+ <FRAME '\1aADD-LIVE>
+ <PUSH OP6>
+ <DEAD OP6>
+ <PUSH LIVES5>
+ <DEAD LIVES5>
+ <CALL '\1aADD-LIVE 2 = LIVES5>
+ <RETURN LIVES5>
+ <DEAD LIVES5>
+PHRASE77
+ <EQUAL? OP6 '`FCN + EXIT96>
+ <EQUAL? OP6 '`GFCN + EXIT96>
+ <EQUAL? OP6 '`LOOP + EXIT96>
+ <EQUAL? OP6 '`END + EXIT96>
+ <EQUAL? OP6 '`ICALL + EXIT96>
+ <EQUAL? OP6 '`OPT-DISPATCH + EXIT96>
+ <RESTL INST4 1 = ITEM7 (TYPE LIST)>
+ <CHTYPE ITEM7 <TYPE-CODE LIST> = ITEM7>
+ <EMPL? ITEM7 + TAG86>
+ <LOOP (ITEM7 VALUE)>
+TAG88
+ <NTHL ITEM7 1 = TWO8>
+ <TYPE? TWO8 <TYPE-CODE ATOM> - TAG89>
+ <VEQUAL? TWO8 '= + TAG87>
+ <DEAD TWO8>
+TAG89
+ <RESTL ITEM7 1 = ITEM7 (TYPE LIST)>
+ <EMPL? ITEM7 - TAG88>
+TAG86
+ <SET ITEM7 %<> (TYPE FALSE)>
+TAG87
+ <VEQUAL? ITEM7 0 + PHRASE93>
+ <RESTL ITEM7 1 = TEMP16 (TYPE LIST)>
+ <DEAD ITEM7>
+ <NTHL TEMP16 1 = TWO8>
+ <DEAD TEMP16>
+ <EQUAL? TWO8 '`STACK + PHRASE93>
+ <FRAME '\1aREM-LIST>
+ <PUSH TWO8>
+ <PUSH LIVES5>
+ <CALL '\1aREM-LIST 2>
+ <FRAME '\1aUNMERGEABLE>
+ <PUSH TWO8>
+ <DEAD TWO8>
+ <PUSH LIVES5>
+ <CALL '\1aUNMERGEABLE 2>
+PHRASE93
+ <RESTL INST4 1 = TEMP16 (TYPE LIST)>
+ <DEAD INST4>
+ <CHTYPE TEMP16 <TYPE-CODE LIST> = TEMP16>
+ <LOOP>
+AGAIN99
+ <INTGO>
+ <EMPL? TEMP16 + EXIT96 (TYPE LIST)>
+ <NTHL TEMP16 1 = ITEM7>
+ <EQUAL? ITEM7 '= + BOOL104>
+ <EQUAL? ITEM7 '+ + BOOL104>
+ <EQUAL? ITEM7 '- - PHRASE103>
+BOOL104
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <JUMP + AGAIN99>
+PHRASE103
+ <TYPE? ITEM7 <TYPE-CODE ATOM> - PHRASE105>
+ <FRAME '\1aADD-LIVE>
+ <PUSH ITEM7>
+ <DEAD ITEM7>
+ <PUSH LIVES5>
+ <DEAD LIVES5>
+ <CALL '\1aADD-LIVE 2 = LIVES5>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <JUMP + AGAIN99>
+PHRASE105
+ <EQUAL? OP6 '`CHTYPE - PHRASE107>
+ <TYPE? ITEM7 <TYPE-CODE FORM> - PHRASE107>
+ <SET TWO8 ITEM7>
+ <SET TEMP48 1 (TYPE FIX)>
+ <LOOP (TWO8 VALUE) (TEMP48 VALUE)>
+TAG110
+ <EMPL? TWO8 + PHRASE107>
+ <SUB TEMP48 1 = TEMP48 (TYPE FIX)>
+ <LESS? TEMP48 0 + TAG111>
+ <RESTL TWO8 1 = TWO8 (TYPE LIST)>
+ <JUMP + TAG110>
+TAG111
+ <NTHL ITEM7 1 = TEMP48>
+ <EQUAL? TEMP48 '`TYPE - PHRASE107>
+ <DEAD TEMP48>
+ <RESTL ITEM7 1 = TWO8 (TYPE LIST)>
+ <DEAD ITEM7>
+ <NTHL TWO8 1 = TWO8>
+ <TYPE? TWO8 <TYPE-CODE ATOM> - PHRASE107>
+ <FRAME '\1aADD-LIVE>
+ <PUSH TWO8>
+ <DEAD TWO8>
+ <PUSH LIVES5>
+ <DEAD LIVES5>
+ <CALL '\1aADD-LIVE 2 = LIVES5>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <JUMP + AGAIN99>
+PHRASE107
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <JUMP + AGAIN99>
+EXIT96
+ <RETURN LIVES5>
+ <DEAD LIVES5>
+ <END \1aUPDATE-TEMPS>
+#WORD *35124011560*
+<GFCN \1aADD-LIVE ("VALUE" UVECTOR ATOM UVECTOR) ATM4 L5>
+ <TEMP NL6>
+ <INTGO>
+ <FRAME '\1aADD-LIST?>
+ <PUSH ATM4>
+ <PUSH L5>
+ <CALL '\1aADD-LIST? 2 = NL6>
+ <TYPE? NL6 <TYPE-CODE FALSE> + PHRASE9>
+ <FRAME '\1aUNMERGEABLE>
+ <PUSH ATM4>
+ <DEAD ATM4>
+ <PUSH L5>
+ <DEAD L5>
+ <CALL '\1aUNMERGEABLE 2>
+ <RETURN NL6>
+ <DEAD NL6>
+PHRASE9
+ <RETURN L5>
+ <DEAD L5>
+ <END \1aADD-LIVE>
+#WORD *6164522112*
+<GFCN \1aUNMERGEABLE ("VALUE" ATOM ATOM UVECTOR) NEW-LIVE4 LIVES5>
+ <TEMP (TEMP-OFFS10:FIX 0) TEMP14 NL-LIST6:UVECTOR NUM7:FIX LIVE28:FIX TNO36:FIX MSK37:FIX TEMP42 TEMP49>
+ <INTGO>
+ <NTHR NEW-LIVE4 1 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG13)>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG13>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP14 <TYPE-CODE UNBOUND> - PHRASE12>
+ <DEAD TEMP14>
+TAG13
+ <FRAME '\1aERROR>
+ <PUSH 'TEMP-WITHOUT-LIST!-ERRORS>
+ <PUSH NEW-LIVE4>
+ <PUSH 'UNMERGEABLE>
+ <CALL '\1aERROR 3>
+PHRASE12
+ <VEQUAL? NEW-LIVE4 '`STACK + MAPAP22>
+ <GVAL NEW-LIVE4 = NL-LIST6>
+ <NTHUU NL-LIST6 1 = NUM7 (TYPE FIX)>
+ <RESTUU NL-LIST6 1 = NL-LIST6 (TYPE UVECTOR)>
+ <SET TEMP14 LIVES5 (TYPE UVECTOR)>
+ <DEAD LIVES5>
+ <LOOP>
+MAP19
+ <INTGO>
+ <EMPUU? TEMP14 + MAPAP22>
+ <NTHUU TEMP14 1 = LIVE28>
+ <VEQUAL? LIVE28 0 + EXIT34 (TYPE FIX)>
+ <SET TNO36 TEMP-OFFS10>
+ <SET MSK37 1 (TYPE FIX)>
+ <LOOP>
+AGAIN38
+ <INTGO>
+ <AND LIVE28 MSK37 = TEMP42>
+ <VEQUAL? TEMP42 0 + PHRASE57 (TYPE FIX)>
+ <DEAD TEMP42>
+ <XOR LIVE28 MSK37 = LIVE28>
+ <VEQUAL? TNO36 NUM7 - PHRASE46 (TYPE FIX)>
+ <VEQUAL? LIVE28 0 - PHRASE57 (TYPE FIX)>
+ <JUMP + EXIT34>
+PHRASE46
+ <GVAL 'NAME-UV = TEMP42>
+ <ADD TNO36 1 = TEMP49 (TYPE FIX)>
+ <NTHUV TEMP42 TEMP49 = TEMP42 (TYPE ATOM)>
+ <DEAD TEMP49>
+ <NTHR TEMP42 1 = TEMP49 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG52)>
+ <TYPE? TEMP49 <TYPE-CODE FALSE> + TAG52>
+ <NTHR TEMP49 1 = TEMP49 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP49 <TYPE-CODE UNBOUND> - PHRASE51>
+ <DEAD TEMP49>
+TAG52
+ <FRAME '\1aERROR>
+ <PUSH 'TEMP-WITHOUT-LIST!-ERRORS>
+ <PUSH TEMP42>
+ <PUSH 'UNMERGEABLE>
+ <CALL '\1aERROR 3>
+PHRASE51
+ <FRAME '\1aADD-LIST>
+ <PUSH TEMP42>
+ <PUSH NL-LIST6>
+ <CALL '\1aADD-LIST 2>
+ <FRAME '\1aADD-LIST>
+ <PUSH NEW-LIVE4>
+ <GVAL TEMP42 = TEMP49>
+ <DEAD TEMP42>
+ <RESTUU TEMP49 1 = TEMP49 (TYPE UVECTOR)>
+ <CHTYPE TEMP49 <TYPE-CODE UVECTOR> = STACK>
+ <DEAD TEMP49>
+ <CALL '\1aADD-LIST 2>
+ <VEQUAL? LIVE28 0 + EXIT34 (TYPE FIX)>
+PHRASE57
+ <ADD TNO36 1 = TNO36 (TYPE FIX)>
+ <LSH MSK37 1 = MSK37 (TYPE FIX)>
+ <JUMP + AGAIN38>
+EXIT34
+ <ADD TEMP-OFFS10 32 = TEMP-OFFS10 (TYPE FIX)>
+ <RESTUU TEMP14 1 = TEMP14 (TYPE UVECTOR)>
+ <JUMP + MAP19>
+MAPAP22
+ <RETURN 'T>
+ <END \1aUNMERGEABLE>
+#WORD *10346724531*
+<GFCN \1aOPTIMIZE-SETS ("VALUE" ATOM VECTOR) CODE4>
+ <TEMP I8 CODELEN9:FIX INST10 TEMP18 TEMP19 ATM111>
+ <INTGO>
+ <SET I8 1 (TYPE FIX)>
+ <LENUV CODE4 = CODELEN9 (TYPE FIX)>
+ <LOOP>
+AGAIN13
+ <INTGO>
+ <NTHUV CODE4 I8 = INST10>
+ <TYPE? INST10 <TYPE-CODE FORM> - PHRASE15>
+ <SET TEMP18 INST10>
+ <SET TEMP19 2 (TYPE FIX)>
+ <LOOP (TEMP18 VALUE) (TEMP19 VALUE)>
+TAG20
+ <EMPL? TEMP18 + PHRASE15>
+ <SUB TEMP19 1 = TEMP19 (TYPE FIX)>
+ <LESS? TEMP19 0 + TAG21>
+ <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
+ <JUMP + TAG20>
+TAG21
+ <NTHL INST10 1 = TEMP19>
+ <EQUAL? TEMP19 '`SET - PHRASE15>
+ <DEAD TEMP19>
+ <RESTL INST10 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = ATM111>
+ <DEAD TEMP19>
+ <TYPE? ATM111 <TYPE-CODE ATOM> - PHRASE15>
+ <RESTL INST10 1 = TEMP19 (TYPE LIST)>
+ <DEAD INST10>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = INST10>
+ <DEAD TEMP19>
+ <TYPE? INST10 <TYPE-CODE ATOM> - PHRASE15>
+ <FRAME '\1aIN-LIST?>
+ <PUSH ATM111>
+ <GVAL INST10 = TEMP19>
+ <RESTUU TEMP19 1 = TEMP19 (TYPE UVECTOR)>
+ <CHTYPE TEMP19 <TYPE-CODE UVECTOR> = STACK>
+ <DEAD TEMP19>
+ <CALL '\1aIN-LIST? 2 = TEMP18>
+ <VEQUAL? TEMP18 0 - PHRASE15>
+ <DEAD TEMP18>
+ <FRAME '\1aMAYBE-MERGE>
+ <PUSH CODE4>
+ <PUSH ATM111>
+ <DEAD ATM111>
+ <PUSH INST10>
+ <DEAD INST10>
+ <CALL '\1aMAYBE-MERGE 3>
+PHRASE15
+ <VEQUAL? I8 CODELEN9 - PHRASE25 (TYPE FIX)>
+ <RETURN 'T>
+PHRASE25
+ <ADD I8 1 = I8 (TYPE FIX)>
+ <JUMP + AGAIN13>
+ <END \1aOPTIMIZE-SETS>
+#WORD *16262725736*
+<GFCN \1aMAYBE-MERGE ("VALUE" ATOM VECTOR ATOM ATOM) CODE4 ATM15 ATM26>
+ <TEMP I9:FIX CODELEN10:FIX WHOLE-THING12 TEMP18 TEMP28:ATOM>
+ <INTGO>
+ <SET I9 1 (TYPE FIX)>
+ <LENUV CODE4 = CODELEN10 (TYPE FIX)>
+ <LOOP>
+AGAIN13
+ <INTGO>
+ <NTHUV CODE4 I9 = WHOLE-THING12>
+ <TYPE? WHOLE-THING12 <TYPE-CODE FORM> - EXIT19>
+ <EMPL? WHOLE-THING12 + EXIT19 (TYPE FORM)>
+ <NTHL WHOLE-THING12 1 = TEMP18>
+ <EQUAL? TEMP18 '`TEMP + BOOL17>
+ <DEAD TEMP18>
+ <NTHL WHOLE-THING12 1 = TEMP18>
+ <EQUAL? TEMP18 '`MAKTUP - EXIT19>
+ <DEAD TEMP18>
+BOOL17
+ <RESTL WHOLE-THING12 1 = TEMP18 (TYPE LIST)>
+ <DEAD WHOLE-THING12>
+ <CHTYPE TEMP18 <TYPE-CODE LIST> = TEMP18>
+ <LOOP>
+AGAIN22
+ <INTGO>
+ <EMPL? TEMP18 + EXIT19 (TYPE LIST)>
+ <NTHL TEMP18 1 = WHOLE-THING12>
+ <EQUAL? WHOLE-THING12 '= + EXIT19>
+ <FRAME '\1aATOM-PART>
+ <PUSH WHOLE-THING12>
+ <CALL '\1aATOM-PART 1 = TEMP28>
+ <VEQUAL? TEMP28 ATM15 - PHRASE26>
+ <DEAD TEMP28>
+ <FRAME '\1aPROBABLY-MERGE>
+ <PUSH CODE4>
+ <DEAD CODE4>
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <PUSH ATM15>
+ <DEAD ATM15>
+ <PUSH ATM26>
+ <DEAD ATM26>
+ <CALL '\1aPROBABLY-MERGE 4>
+ <RETURN 'T>
+PHRASE26
+ <FRAME '\1aATOM-PART>
+ <PUSH WHOLE-THING12>
+ <DEAD WHOLE-THING12>
+ <CALL '\1aATOM-PART 1 = TEMP28>
+ <VEQUAL? TEMP28 ATM26 - PHRASE30>
+ <DEAD TEMP28>
+ <FRAME '\1aPROBABLY-MERGE>
+ <PUSH CODE4>
+ <DEAD CODE4>
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <PUSH ATM26>
+ <DEAD ATM26>
+ <PUSH ATM15>
+ <DEAD ATM15>
+ <CALL '\1aPROBABLY-MERGE 4>
+ <RETURN 'T>
+PHRASE30
+ <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
+ <JUMP + AGAIN22>
+EXIT19
+ <VEQUAL? I9 CODELEN10 + EXIT7 (TYPE FIX)>
+ <ADD I9 1 = I9 (TYPE FIX)>
+ <JUMP + AGAIN13>
+EXIT7
+ <RETURN 'T>
+ <END \1aMAYBE-MERGE>
+#WORD *34056546705*
+<GFCN \1aPROBABLY-MERGE ("VALUE" ATOM VECTOR LIST ATOM ATOM) CODE4 LONG5 NEW-TEMP6 OLD-TEMP7>
+ <TEMP TEMP9 MEDIUM14:LIST SHORT15:LIST ONE-SHORT16 TEMP23>
+ <INTGO>
+ <GEN-LVAL 'OUTCHAN = TEMP9>
+ <SET MEDIUM14 LONG5>
+ <RESTL LONG5 1 = SHORT15 (TYPE LIST)>
+ <LOOP>
+AGAIN17
+ <INTGO>
+ <EMPL? SHORT15 + EXIT12 (TYPE LIST)>
+ <NTHL SHORT15 1 = ONE-SHORT16>
+ <EQUAL? ONE-SHORT16 '= - PHRASE19>
+ <RETURN 'T>
+PHRASE19
+ <FRAME '\1aATOM-PART>
+ <PUSH ONE-SHORT16>
+ <CALL '\1aATOM-PART 1 = TEMP23>
+ <VEQUAL? TEMP23 OLD-TEMP7 - PHRASE21>
+ <DEAD TEMP23>
+ <FRAME '\1aMERGEABLE?>
+ <NTHL LONG5 1 = STACK>
+ <PUSH ONE-SHORT16>
+ <CALL '\1aMERGEABLE? 2 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + EXIT12>
+ <DEAD TEMP23>
+ <TYPE? ONE-SHORT16 <TYPE-CODE LIST> - PHRASE28>
+ <NTHL LONG5 1 = TEMP23>
+ <PUTL ONE-SHORT16 1 TEMP23>
+ <DEAD TEMP23>
+ <PUTL LONG5 1 ONE-SHORT16>
+ <DEAD LONG5 ONE-SHORT16>
+PHRASE28
+ <RESTL SHORT15 1 = TEMP23 (TYPE LIST)>
+ <DEAD SHORT15>
+ <PUTREST MEDIUM14 TEMP23>
+ <DEAD MEDIUM14 TEMP23>
+ <GVAL 'DEBUG-DEATH = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE30>
+ <DEAD TEMP23>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH "Merging ">
+ <PUSH TEMP9>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aPRIN1>
+ <PUSH OLD-TEMP7>
+ <PUSH TEMP9>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH " with ">
+ <PUSH TEMP9>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aPRIN1>
+ <PUSH NEW-TEMP6>
+ <PUSH TEMP9>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aCRLF>
+ <PUSH TEMP9>
+ <DEAD TEMP9>
+ <CALL '\1aCRLF 1>
+PHRASE30
+ <FRAME '\1aUNMERGEABLE>
+ <PUSH NEW-TEMP6>
+ <GVAL OLD-TEMP7 = TEMP23>
+ <RESTUU TEMP23 1 = TEMP23 (TYPE UVECTOR)>
+ <CHTYPE TEMP23 <TYPE-CODE UVECTOR> = STACK>
+ <DEAD TEMP23>
+ <CALL '\1aUNMERGEABLE 2>
+ <FRAME '\1aPERFORM-MERGE>
+ <PUSH CODE4>
+ <DEAD CODE4>
+ <PUSH NEW-TEMP6>
+ <DEAD NEW-TEMP6>
+ <PUSH OLD-TEMP7>
+ <DEAD OLD-TEMP7>
+ <CALL '\1aPERFORM-MERGE 3>
+ <RETURN 'T>
+PHRASE21
+ <SET MEDIUM14 SHORT15>
+ <DEAD SHORT15>
+ <RESTL MEDIUM14 1 = SHORT15 (TYPE LIST)>
+ <JUMP + AGAIN17>
+EXIT12
+ <RETURN 'T>
+ <END \1aPROBABLY-MERGE>
+#WORD *35470007174*
+<GFCN \1aOPTIMIZE-TEMPS ("VALUE" ATOM VECTOR) CODE4>
+ <TEMP I8 CODELEN9:FIX INST10 OP11>
+ <INTGO>
+ <SET I8 1 (TYPE FIX)>
+ <LENUV CODE4 = CODELEN9 (TYPE FIX)>
+ <LOOP>
+AGAIN12
+ <INTGO>
+ <NTHUV CODE4 I8 = INST10>
+ <TYPE? INST10 <TYPE-CODE FORM> - PHRASE17>
+ <EMPL? INST10 + PHRASE17 (TYPE FORM)>
+ <NTHL INST10 1 = OP11>
+ <EQUAL? OP11 '`TEMP + BOOL18>
+ <EQUAL? OP11 '`MAKTUP - PHRASE17>
+ <DEAD OP11>
+BOOL18
+ <FRAME '\1aREALLY-OPTIMIZE>
+ <PUSH CODE4>
+ <RESTL INST10 1 = INST10 (TYPE LIST)>
+ <CHTYPE INST10 <TYPE-CODE LIST> = STACK>
+ <DEAD INST10>
+ <CALL '\1aREALLY-OPTIMIZE 2>
+PHRASE17
+ <VEQUAL? I8 CODELEN9 - PHRASE22 (TYPE FIX)>
+ <RETURN 'T>
+PHRASE22
+ <ADD I8 1 = I8 (TYPE FIX)>
+ <JUMP + AGAIN12>
+ <END \1aOPTIMIZE-TEMPS>
+#WORD *14346247067*
+<GFCN \1aREALLY-OPTIMIZE ("VALUE" <OR ATOM FALSE> VECTOR LIST) CODE4 TEMPS5>
+ <TEMP TEMP9 LONG18:LIST ONE-LONG19 MEDIUM26:LIST SHORT27:LIST ONE-SHORT28 TEMP36 NEW-TEMP8:ATOM OLD-TEMP7:ATOM>
+ <INTGO>
+ <GEN-LVAL 'OUTCHAN = TEMP9>
+ <EMPL? TEMPS5 - TAG15 (TYPE LIST)>
+ <RETURN %<>>
+TAG15
+ <SET LONG18 TEMPS5>
+ <DEAD TEMPS5>
+ <LOOP>
+AGAIN20
+ <INTGO>
+ <EMPL? LONG18 + BOOL23 (TYPE LIST)>
+ <NTHL LONG18 1 = ONE-LONG19>
+ <EQUAL? ONE-LONG19 '= - PHRASE22>
+BOOL23
+ <RETURN 'T>
+PHRASE22
+ <SET MEDIUM26 LONG18>
+ <RESTL MEDIUM26 1 = SHORT27 (TYPE LIST)>
+ <LOOP>
+AGAIN29
+ <INTGO>
+ <EMPL? SHORT27 + EXIT24 (TYPE LIST)>
+ <NTHL SHORT27 1 = ONE-SHORT28>
+ <EQUAL? ONE-SHORT28 '= + EXIT24>
+ <FRAME '\1aMERGEABLE?>
+ <PUSH ONE-LONG19>
+ <PUSH ONE-SHORT28>
+ <CALL '\1aMERGEABLE? 2 = TEMP36>
+ <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE34>
+ <DEAD TEMP36>
+ <FRAME '\1aATOM-PART>
+ <PUSH ONE-LONG19>
+ <CALL '\1aATOM-PART 1 = NEW-TEMP8>
+ <FRAME '\1aATOM-PART>
+ <PUSH ONE-SHORT28>
+ <CALL '\1aATOM-PART 1 = OLD-TEMP7>
+ <TYPE? ONE-SHORT28 <TYPE-CODE LIST> - PHRASE40>
+ <PUTL ONE-SHORT28 1 ONE-LONG19>
+ <PUTL LONG18 1 ONE-SHORT28>
+ <DEAD ONE-SHORT28>
+PHRASE40
+ <RESTL SHORT27 1 = SHORT27 (TYPE LIST)>
+ <PUTREST MEDIUM26 SHORT27>
+ <GVAL 'DEBUG-DEATH = TEMP36>
+ <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE42>
+ <DEAD TEMP36>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH "Merging ">
+ <PUSH TEMP9>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aPRIN1>
+ <PUSH OLD-TEMP7>
+ <PUSH TEMP9>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH " with ">
+ <PUSH TEMP9>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aPRIN1>
+ <PUSH NEW-TEMP8>
+ <PUSH TEMP9>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aCRLF>
+ <PUSH TEMP9>
+ <CALL '\1aCRLF 1>
+PHRASE42
+ <FRAME '\1aUNMERGEABLE>
+ <PUSH NEW-TEMP8>
+ <GVAL OLD-TEMP7 = TEMP36>
+ <RESTUU TEMP36 1 = TEMP36 (TYPE UVECTOR)>
+ <CHTYPE TEMP36 <TYPE-CODE UVECTOR> = STACK>
+ <DEAD TEMP36>
+ <CALL '\1aUNMERGEABLE 2>
+ <FRAME '\1aPERFORM-MERGE>
+ <PUSH CODE4>
+ <PUSH NEW-TEMP8>
+ <DEAD NEW-TEMP8>
+ <PUSH OLD-TEMP7>
+ <DEAD OLD-TEMP7>
+ <CALL '\1aPERFORM-MERGE 3>
+ <JUMP + AGAIN29>
+PHRASE34
+ <SET MEDIUM26 SHORT27>
+ <DEAD SHORT27>
+ <RESTL MEDIUM26 1 = SHORT27 (TYPE LIST)>
+ <JUMP + AGAIN29>
+EXIT24
+ <RESTL LONG18 1 = LONG18 (TYPE LIST)>
+ <JUMP + AGAIN20>
+ <END \1aREALLY-OPTIMIZE>
+#WORD *34257730463*
+<GFCN \1aMERGEABLE? ("VALUE" <OR ATOM FALSE> <OR ATOM ADECL LIST> <OR ATOM ADECL LIST>) TEMP14 TEMP25>
+ <TEMP TEMP10 TEMP12>
+ <INTGO>
+ <FRAME '\1aDECL-PART>
+ <PUSH TEMP14>
+ <CALL '\1aDECL-PART 1 = TEMP10>
+ <FRAME '\1aDECL-PART>
+ <PUSH TEMP25>
+ <CALL '\1aDECL-PART 1 = TEMP12>
+ <EQUAL? TEMP10 TEMP12 + TAG8>
+ <DEAD TEMP10 TEMP12>
+ <RETURN %<>>
+TAG8
+ <TYPE? TEMP14 <TYPE-CODE LIST> - TAG14>
+ <TYPE? TEMP25 <TYPE-CODE LIST> - TAG14>
+ <RETURN %<>>
+TAG14
+ <FRAME '\1aIN-LIST?>
+ <FRAME '\1aATOM-PART>
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <CALL '\1aATOM-PART 1 = STACK>
+ <FRAME '\1aATOM-PART>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aATOM-PART 1 = TEMP12>
+ <GVAL TEMP12 = TEMP10>
+ <DEAD TEMP12>
+ <RESTUU TEMP10 1 = TEMP10 (TYPE UVECTOR)>
+ <CHTYPE TEMP10 <TYPE-CODE UVECTOR> = STACK>
+ <DEAD TEMP10>
+ <CALL '\1aIN-LIST? 2 = TEMP12>
+ <VEQUAL? TEMP12 0 - TAG16>
+ <DEAD TEMP12>
+ <RETURN 'T>
+TAG16
+ <RETURN %<>>
+ <END \1aMERGEABLE?>
+#WORD *27737633426*
+<GFCN \1aOPTIMIZE-TEMPS/BASH-DECLS ("VALUE" ATOM VECTOR) CODE4>
+ <TEMP I8 CODELEN9:FIX INST10 OP11>
+ <INTGO>
+ <SET I8 1 (TYPE FIX)>
+ <LENUV CODE4 = CODELEN9 (TYPE FIX)>
+ <LOOP>
+AGAIN12
+ <INTGO>
+ <NTHUV CODE4 I8 = INST10>
+ <TYPE? INST10 <TYPE-CODE FORM> - PHRASE17>
+ <EMPL? INST10 + PHRASE17 (TYPE FORM)>
+ <NTHL INST10 1 = OP11>
+ <EQUAL? OP11 '`TEMP + BOOL18>
+ <EQUAL? OP11 '`MAKTUP - PHRASE17>
+ <DEAD OP11>
+BOOL18
+ <FRAME '\1aREALLY-OPTIMIZE/BASH-DECLS>
+ <PUSH CODE4>
+ <RESTL INST10 1 = INST10 (TYPE LIST)>
+ <CHTYPE INST10 <TYPE-CODE LIST> = STACK>
+ <DEAD INST10>
+ <CALL '\1aREALLY-OPTIMIZE/BASH-DECLS 2>
+PHRASE17
+ <VEQUAL? I8 CODELEN9 - PHRASE22 (TYPE FIX)>
+ <RETURN 'T>
+PHRASE22
+ <ADD I8 1 = I8 (TYPE FIX)>
+ <JUMP + AGAIN12>
+ <END \1aOPTIMIZE-TEMPS/BASH-DECLS>
+#WORD *1434157567*
+<GFCN \1aREALLY-OPTIMIZE/BASH-DECLS ("VALUE" <OR ATOM FALSE> VECTOR LIST) CODE4 TEMPS5>
+ <TEMP TEMP9 LONG18:LIST ONE-LONG19 MEDIUM26:LIST SHORT27:LIST ONE-SHORT28 TEMP36 NEW-TEMP8:ATOM OLD-TEMP7:ATOM TEMP45>
+ <INTGO>
+ <GEN-LVAL 'OUTCHAN = TEMP9>
+ <EMPL? TEMPS5 - TAG15 (TYPE LIST)>
+ <RETURN %<>>
+TAG15
+ <SET LONG18 TEMPS5>
+ <DEAD TEMPS5>
+ <LOOP>
+AGAIN20
+ <INTGO>
+ <EMPL? LONG18 + BOOL23 (TYPE LIST)>
+ <NTHL LONG18 1 = ONE-LONG19>
+ <EQUAL? ONE-LONG19 '= - PHRASE22>
+BOOL23
+ <RETURN 'T>
+PHRASE22
+ <SET MEDIUM26 LONG18>
+ <RESTL MEDIUM26 1 = SHORT27 (TYPE LIST)>
+ <LOOP>
+AGAIN29
+ <INTGO>
+ <EMPL? SHORT27 + EXIT24 (TYPE LIST)>
+ <NTHL SHORT27 1 = ONE-SHORT28>
+ <EQUAL? ONE-SHORT28 '= + EXIT24>
+ <FRAME '\1aMERGEABLE?/BASH-DECLS>
+ <PUSH ONE-LONG19>
+ <PUSH ONE-SHORT28>
+ <CALL '\1aMERGEABLE?/BASH-DECLS 2 = TEMP36>
+ <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE34>
+ <DEAD TEMP36>
+ <FRAME '\1aATOM-PART>
+ <PUSH ONE-LONG19>
+ <CALL '\1aATOM-PART 1 = NEW-TEMP8>
+ <FRAME '\1aATOM-PART>
+ <PUSH ONE-SHORT28>
+ <CALL '\1aATOM-PART 1 = OLD-TEMP7>
+ <FRAME '\1aDECL-PART>
+ <PUSH ONE-LONG19>
+ <CALL '\1aDECL-PART 1 = TEMP36>
+ <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE48>
+ <DEAD TEMP36>
+ <FRAME '\1aDECL-PART>
+ <PUSH ONE-LONG19>
+ <CALL '\1aDECL-PART 1 = TEMP36>
+ <FRAME '\1aDECL-PART>
+ <PUSH ONE-SHORT28>
+ <CALL '\1aDECL-PART 1 = TEMP45>
+ <EQUAL? TEMP36 TEMP45 + PHRASE48>
+ <DEAD TEMP36 TEMP45>
+ <TYPE? ONE-LONG19 <TYPE-CODE ADECL> - PHRASE47>
+ <NTHUV ONE-LONG19 1 = ONE-LONG19>
+ <PUTL LONG18 1 ONE-LONG19>
+ <JUMP + PHRASE48>
+PHRASE47
+ <TYPE? ONE-LONG19 <TYPE-CODE LIST> - PHRASE48>
+ <NTHL ONE-LONG19 1 = TEMP45>
+ <NTH1 TEMP45 = TEMP45>
+ <PUTL ONE-LONG19 1 TEMP45>
+ <DEAD TEMP45>
+PHRASE48
+ <TYPE? ONE-SHORT28 <TYPE-CODE LIST> - PHRASE50>
+ <PUTL ONE-SHORT28 1 ONE-LONG19>
+ <PUTL LONG18 1 ONE-SHORT28>
+ <DEAD ONE-SHORT28>
+PHRASE50
+ <RESTL SHORT27 1 = SHORT27 (TYPE LIST)>
+ <PUTREST MEDIUM26 SHORT27>
+ <GVAL 'DEBUG-DEATH = TEMP45>
+ <TYPE? TEMP45 <TYPE-CODE FALSE> + PHRASE52>
+ <DEAD TEMP45>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH "Merging ">
+ <PUSH TEMP9>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aPRIN1>
+ <PUSH OLD-TEMP7>
+ <PUSH TEMP9>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINTSTRING>
+ <PUSH " with ">
+ <PUSH TEMP9>
+ <CALL '\1aPRINTSTRING 2>
+ <FRAME '\1aPRIN1>
+ <PUSH NEW-TEMP8>
+ <PUSH TEMP9>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aCRLF>
+ <PUSH TEMP9>
+ <CALL '\1aCRLF 1>
+PHRASE52
+ <FRAME '\1aUNMERGEABLE>
+ <PUSH NEW-TEMP8>
+ <GVAL OLD-TEMP7 = TEMP45>
+ <RESTUU TEMP45 1 = TEMP45 (TYPE UVECTOR)>
+ <CHTYPE TEMP45 <TYPE-CODE UVECTOR> = STACK>
+ <DEAD TEMP45>
+ <CALL '\1aUNMERGEABLE 2>
+ <FRAME '\1aPERFORM-MERGE>
+ <PUSH CODE4>
+ <PUSH NEW-TEMP8>
+ <DEAD NEW-TEMP8>
+ <PUSH OLD-TEMP7>
+ <DEAD OLD-TEMP7>
+ <CALL '\1aPERFORM-MERGE 3>
+ <JUMP + AGAIN29>
+PHRASE34
+ <SET MEDIUM26 SHORT27>
+ <DEAD SHORT27>
+ <RESTL MEDIUM26 1 = SHORT27 (TYPE LIST)>
+ <JUMP + AGAIN29>
+EXIT24
+ <RESTL LONG18 1 = LONG18 (TYPE LIST)>
+ <JUMP + AGAIN20>
+ <END \1aREALLY-OPTIMIZE/BASH-DECLS>
+#WORD *36615533324*
+<GFCN \1aMERGEABLE?/BASH-DECLS ("VALUE" <OR ATOM FALSE> <OR ATOM ADECL LIST> <OR ATOM ADECL LIST>) TEMP14 TEMP25>
+ <TEMP TEMP7>
+ <INTGO>
+ <TYPE? TEMP14 <TYPE-CODE LIST> - TAG9>
+ <TYPE? TEMP25 <TYPE-CODE LIST> - TAG9>
+ <RETURN %<>>
+TAG9
+ <FRAME '\1aIN-LIST?>
+ <FRAME '\1aATOM-PART>
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <CALL '\1aATOM-PART 1 = STACK>
+ <FRAME '\1aATOM-PART>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aATOM-PART 1 = TEMP7>
+ <GVAL TEMP7 = TEMP7>
+ <RESTUU TEMP7 1 = TEMP7 (TYPE UVECTOR)>
+ <CHTYPE TEMP7 <TYPE-CODE UVECTOR> = STACK>
+ <DEAD TEMP7>
+ <CALL '\1aIN-LIST? 2 = TEMP7>
+ <VEQUAL? TEMP7 0 - TAG11>
+ <DEAD TEMP7>
+ <RETURN 'T>
+TAG11
+ <RETURN %<>>
+ <END \1aMERGEABLE?/BASH-DECLS>
+#WORD *23074423643*
+<GFCN \1aPERFORM-MERGE ("VALUE" <OR ATOM FALSE <FORM ANY ATOM>> VECTOR ATOM ATOM) CODE4 NEW-TEMP5 OLD-TEMP6>
+ <TEMP TEMP16 TEMP13:VECTOR INST18 TEMP27 LL43:LIST>
+ <INTGO>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <SET TEMP13 CODE4 (TYPE VECTOR)>
+ <DEAD CODE4>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPUV? TEMP13 + MAPAP11>
+ <NTHUV TEMP13 1 = INST18>
+ <TYPE? INST18 <TYPE-CODE BRANCH> - PHRASE23>
+ <FRAME '\1aIN-LIST?>
+ <PUSH OLD-TEMP6>
+ <NTHUV INST18 3 = STACK (TYPE UVECTOR)>
+ <CALL '\1aIN-LIST? 2 = TEMP27>
+ <VEQUAL? TEMP27 0 + PHRASE25>
+ <DEAD TEMP27>
+ <FRAME '\1aREM-LIST>
+ <PUSH OLD-TEMP6>
+ <NTHUV INST18 3 = STACK (TYPE UVECTOR)>
+ <CALL '\1aREM-LIST 2>
+ <FRAME '\1aADD-LIST>
+ <PUSH NEW-TEMP5>
+ <NTHUV INST18 3 = STACK (TYPE UVECTOR)>
+ <CALL '\1aADD-LIST 2>
+PHRASE25
+ <NTHUV INST18 1 = INST18 (TYPE FORM)>
+ <JUMP + PHRASE30>
+PHRASE23
+ <TYPE? INST18 <TYPE-CODE LABEL> - PHRASE30>
+ <NTHUV INST18 4 = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + MAPAP37>
+ <LOOP>
+MAP34
+ <INTGO>
+ <EMPL? TEMP27 + MAPAP37>
+ <NTHL TEMP27 1 = LL43>
+ <NTHL LL43 1 = TEMP16 (TYPE ATOM)>
+ <VEQUAL? TEMP16 OLD-TEMP6 - PHRASE45>
+ <DEAD TEMP16>
+ <PUTL LL43 1 NEW-TEMP5 (TYPE ATOM)>
+ <DEAD LL43>
+ <JUMP + MAPAP37>
+PHRASE45
+ <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
+ <JUMP + MAP34>
+MAPAP37
+ <NTHUV INST18 1 = INST18>
+PHRASE30
+ <TYPE? INST18 <TYPE-CODE FORM> + TAG50>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE98>
+TAG50
+ <EMPL? INST18 - TAG52 (TYPE FORM)>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE98>
+TAG52
+ <NTHL INST18 1 = TEMP16>
+ <EQUAL? TEMP16 '`LOOP - PHRASE54>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <RESTL INST18 1 = LL43 (TYPE LIST)>
+ <DEAD INST18>
+ <CHTYPE LL43 <TYPE-CODE LIST> = LL43>
+ <LOOP>
+MAP56
+ <INTGO>
+ <EMPL? LL43 + PHRASE98>
+ <NTHL LL43 1 = TEMP16>
+ <FRAME '\1aREPLACE-ATOM>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <PUSH NEW-TEMP5>
+ <PUSH OLD-TEMP6>
+ <CALL '\1aREPLACE-ATOM 3 = TEMP16>
+ <RESTL LL43 1 = LL43 (TYPE LIST)>
+ <JUMP + MAP56>
+PHRASE54
+ <EQUAL? TEMP16 '`ICALL - PHRASE65>
+ <EMPL? INST18 + TAG69>
+ <RESTL INST18 1 = LL43 (TYPE LIST)>
+ <EMPL? LL43 + TAG69>
+ <RESTL LL43 1 = LL43 (TYPE LIST)>
+ <EMPL? LL43 - TAG68>
+ <DEAD LL43>
+TAG69
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE98>
+TAG68
+ <FRAME '\1aREPLACE-ATOM>
+ <RESTL INST18 1 = LL43 (TYPE LIST)>
+ <DEAD INST18>
+ <RESTL LL43 1 = LL43 (TYPE LIST)>
+ <RESTL LL43 1 = LL43 (TYPE LIST)>
+ <CHTYPE LL43 <TYPE-CODE LIST> = STACK>
+ <DEAD LL43>
+ <PUSH NEW-TEMP5>
+ <PUSH OLD-TEMP6>
+ <CALL '\1aREPLACE-ATOM 3 = TEMP16>
+ <JUMP + PHRASE98>
+PHRASE65
+ <EQUAL? TEMP16 '`CHTYPE - PHRASE71>
+ <DEAD TEMP16>
+ <FRAME '\1aREPLACE-ATOM>
+ <RESTL INST18 1 = LL43 (TYPE LIST)>
+ <CHTYPE LL43 <TYPE-CODE LIST> = STACK>
+ <DEAD LL43>
+ <PUSH NEW-TEMP5>
+ <PUSH OLD-TEMP6>
+ <CALL '\1aREPLACE-ATOM 3>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <RESTL INST18 1 = LL43 (TYPE LIST)>
+ <DEAD INST18>
+ <CHTYPE LL43 <TYPE-CODE LIST> = LL43>
+ <LOOP>
+MAP74
+ <INTGO>
+ <EMPL? LL43 + PHRASE98>
+ <NTHL LL43 1 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FORM> + TAG88>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE86>
+TAG88
+ <SET INST18 TEMP16>
+ <SET TEMP27 1 (TYPE FIX)>
+ <LOOP (INST18 VALUE) (TEMP27 VALUE)>
+TAG94
+ <EMPL? INST18 + TAG91>
+ <SUB TEMP27 1 = TEMP27 (TYPE FIX)>
+ <LESS? TEMP27 0 + TAG90>
+ <RESTL INST18 1 = INST18 (TYPE LIST)>
+ <JUMP + TAG94>
+TAG91
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE86>
+TAG90
+ <NTHL TEMP16 1 = TEMP27>
+ <EQUAL? TEMP27 '`TYPE + TAG96>
+ <DEAD TEMP27>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE86>
+TAG96
+ <RESTL TEMP16 1 = TEMP27 (TYPE LIST)>
+ <NTHL TEMP27 1 = TEMP27>
+ <EQUAL? TEMP27 OLD-TEMP6 + TAG97>
+ <DEAD TEMP27>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE86>
+TAG97
+ <RESTL TEMP16 1 = TEMP27 (TYPE LIST)>
+ <PUTL TEMP27 1 NEW-TEMP5>
+ <DEAD TEMP27>
+PHRASE86
+ <RESTL LL43 1 = LL43 (TYPE LIST)>
+ <JUMP + MAP74>
+PHRASE71
+ <FRAME '\1aREPLACE-ATOM>
+ <RESTL INST18 1 = LL43 (TYPE LIST)>
+ <DEAD INST18>
+ <CHTYPE LL43 <TYPE-CODE LIST> = STACK>
+ <DEAD LL43>
+ <PUSH NEW-TEMP5>
+ <PUSH OLD-TEMP6>
+ <CALL '\1aREPLACE-ATOM 3 = TEMP16>
+PHRASE98
+ <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
+ <JUMP + MAP8>
+MAPAP11
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aPERFORM-MERGE>
+#WORD *30364410741*
+<GFCN
\1aREPLACE-ATOM ("VALUE" ATOM <PRIMTYPE LIST> ATOM ATOM) L4 NEW-ATOM5 OLD-ATOM6>
+ <TEMP TEMP13:LIST RL18:LIST ONE19>
+ <INTGO>
+ <CHTYPE L4 <TYPE-CODE LIST> = TEMP13>
+ <DEAD L4>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPL? TEMP13 + MAPAP11>
+ <SET RL18 TEMP13>
+ <NTHL RL18 1 = ONE19>
+ <EQUAL? ONE19 OLD-ATOM6 - PHRASE21>
+ <DEAD ONE19>
+ <PUTL RL18 1 NEW-ATOM5>
+ <DEAD RL18>
+PHRASE21
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <JUMP + MAP8>
+MAPAP11
+ <RETURN 'T>
+ <END \1aREPLACE-ATOM>
+#WORD *3373420202*
+<GFCN \1aPREPARE-DEADS-FROM-LABEL ("VALUE" <OR ATOM FALSE> VECTOR LABEL) CODE4 LABEL5>
+ <TEMP TEMP15 TEMP17:LIST IN18:FIX>
+ <INTGO>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <NTHUV LABEL5 2 = TEMP17 (TYPE LIST)>
+ <DEAD LABEL5>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPL? TEMP17 + MAPAP10>
+ <NTHL TEMP17 1 = IN18>
+ <NTHUV CODE4 IN18 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE BRANCH> + TAG22>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + PHRASE21>
+TAG22
+ <FRAME '\1aPREPARE-DEADS>
+ <PUSH CODE4>
+ <PUSH IN18>
+ <DEAD IN18>
+ <SET IN18 0 (TYPE FIX)>
+ <NTHUV TEMP15 3 = TEMP15 (TYPE UVECTOR)>
+ <LOOP (TEMP15 VALUE LENGTH) (IN18 VALUE)>
+TAG28
+ <INTGO>
+ <EMPUU? TEMP15 + TAG25>
+ <NTHUU TEMP15 1 = STACK>
+ <RESTUU TEMP15 1 = TEMP15 (TYPE UVECTOR)>
+ <ADD IN18 1 = IN18 (TYPE FIX)>
+ <JUMP + TAG28>
+TAG25
+ <UBLOCK <TYPE-CODE UVECTOR> IN18 = STACK (TYPE UVECTOR)>
+ <DEAD IN18>
+ <PUSH -1>
+ <CALL '\1aPREPARE-DEADS 4 = TEMP15>
+PHRASE21
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aPREPARE-DEADS-FROM-LABEL>
+#WORD *13113107673*
+<GFCN \1aPREPARE-DEADS ("VALUE" ATOM VECTOR FIX UVECTOR FIX) CODE4 I5 LIVE-TEMPS6 FROM7>
+ <TEMP INST11 TEMP19:FIX ASSIGN13 INS12:LIST TEMP37:LIST TEMP41 LL56:LIST TEMP59>
+ <INTGO>
+ <LOOP>
+AGAIN14
+ <INTGO>
+ <NTHUV CODE4 I5 = INST11>
+ <TYPE? INST11 <TYPE-CODE LABEL> - PHRASE16>
+ <NTHUV INST11 3 = TEMP19 (TYPE FIX)>
+ <VEQUAL? TEMP19 -1 - PHRASE18 (TYPE FIX)>
+ <DEAD TEMP19>
+ <RETURN 'T>
+PHRASE18
+ <PUTUV INST11 3 -1 (TYPE FIX)>
+ <NTHUV INST11 4 = ASSIGN13>
+ <NTHUV INST11 2 = INS12 (TYPE LIST)>
+ <DEAD INST11>
+ <EMPL? INS12 - PHRASE24 (TYPE LIST)>
+ <FRAME '\1aERROR>
+ <PUSH 'UNREACHABLE-CODE!-ERRORS>
+ <PUSH 'PREPARE-DEADS>
+ <CALL '\1aERROR 2>
+ <JUMP + PHRASE80>
+PHRASE24
+ <RESTL INS12 1 = TEMP37 (TYPE LIST)>
+ <LOOP>
+MAP28
+ <INTGO>
+ <EMPL? TEMP37 + MAPAP31>
+ <NTHL TEMP37 1 = TEMP19>
+ <SET INST11 0 (TYPE FIX)>
+ <SET TEMP41 LIVE-TEMPS6>
+ <LOOP (TEMP41 VALUE LENGTH) (INST11 VALUE)>
+TAG43
+ <INTGO>
+ <EMPUU? TEMP41 + TAG40>
+ <NTHUU TEMP41 1 = STACK>
+ <RESTUU TEMP41 1 = TEMP41 (TYPE UVECTOR)>
+ <ADD INST11 1 = INST11 (TYPE FIX)>
+ <JUMP + TAG43>
+TAG40
+ <UBLOCK <TYPE-CODE UVECTOR> INST11 = TEMP41 (TYPE UVECTOR)>
+ <DEAD INST11>
+ <TYPE? ASSIGN13 <TYPE-CODE FALSE> + MAPAP51>
+ <SET INST11 ASSIGN13 (TYPE LIST)>
+ <LOOP>
+MAP48
+ <INTGO>
+ <EMPL? INST11 + MAPAP51>
+ <NTHL INST11 1 = LL56>
+ <RESTL LL56 1 = TEMP59 (TYPE LIST)>
+ <NTHL TEMP59 1 = TEMP59 (TYPE FIX)>
+ <VEQUAL? TEMP19 TEMP59 - PHRASE58 (TYPE FIX)>
+ <DEAD TEMP59>
+ <FRAME '\1aREM-LIST>
+ <NTHL LL56 1 = STACK (TYPE ATOM)>
+ <DEAD LL56>
+ <PUSH TEMP41>
+ <CALL '\1aREM-LIST 2>
+ <JUMP + MAPAP51>
+PHRASE58
+ <RESTL INST11 1 = INST11 (TYPE LIST)>
+ <JUMP + MAP48>
+MAPAP51
+ <FRAME '\1aPREPARE-DEADS>
+ <PUSH CODE4>
+ <PUSH TEMP19>
+ <DEAD TEMP19>
+ <PUSH TEMP41>
+ <DEAD TEMP41>
+ <PUSH I5>
+ <CALL '\1aPREPARE-DEADS 4>
+ <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
+ <JUMP + MAP28>
+MAPAP31
+ <SET FROM7 I5>
+ <DEAD I5>
+ <NTHL INS12 1 = I5 (TYPE FIX)>
+ <DEAD INS12>
+ <TYPE? ASSIGN13 <TYPE-CODE FALSE> + PHRASE80>
+ <SET TEMP37 ASSIGN13 (TYPE LIST)>
+ <DEAD ASSIGN13>
+ <LOOP>
+MAP65
+ <INTGO>
+ <EMPL? TEMP37 + PHRASE80>
+ <NTHL TEMP37 1 = INS12>
+ <RESTL INS12 1 = INST11 (TYPE LIST)>
+ <NTHL INST11 1 = INST11 (TYPE FIX)>
+ <VEQUAL? I5 INST11 - PHRASE73 (TYPE FIX)>
+ <DEAD INST11>
+ <FRAME '\1aREM-LIST>
+ <NTHL INS12 1 = STACK (TYPE ATOM)>
+ <DEAD INS12>
+ <PUSH LIVE-TEMPS6>
+ <CALL '\1aREM-LIST 2>
+ <JUMP + PHRASE80>
+PHRASE73
+ <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
+ <JUMP + MAP65>
+PHRASE16
+ <TYPE? INST11 <TYPE-CODE BRANCH> - PHRASE75>
+ <FRAME '\1aMERGE-DEADS>
+ <PUSH LIVE-TEMPS6>
+ <DEAD LIVE-TEMPS6>
+ <PUSH INST11>
+ <ADD I5 1 = TEMP19 (TYPE FIX)>
+ <VEQUAL? FROM7 TEMP19 - TAG77 (TYPE FIX)>
+ <DEAD FROM7 TEMP19>
+ <PUSH 'T>
+ <JUMP + TAG78>
+TAG77
+ <PUSH %<>>
+TAG78
+ <CALL '\1aMERGE-DEADS 3 = LIVE-TEMPS6>
+ <FRAME '\1aUPDATE-DEADS>
+ <NTHUV INST11 1 = STACK (TYPE FORM)>
+ <DEAD INST11>
+ <PUSH LIVE-TEMPS6>
+ <DEAD LIVE-TEMPS6>
+ <CALL '\1aUPDATE-DEADS 2 = LIVE-TEMPS6>
+ <SET FROM7 I5>
+ <SUB I5 1 = I5 (TYPE FIX)>
+ <JUMP + PHRASE80>
+PHRASE75
+ <FRAME '\1aUPDATE-DEADS>
+ <PUSH INST11>
+ <DEAD INST11>
+ <PUSH LIVE-TEMPS6>
+ <DEAD LIVE-TEMPS6>
+ <CALL '\1aUPDATE-DEADS 2 = LIVE-TEMPS6>
+ <SET FROM7 I5>
+ <SUB I5 1 = I5 (TYPE FIX)>
+PHRASE80
+ <VEQUAL? I5 0 - AGAIN14 (TYPE FIX)>
+ <RETURN 'T>
+ <END \1aPREPARE-DEADS>
+#WORD *14154013341*
+<GFCN \1aMERGE-DEADS ("VALUE" UVECTOR UVECTOR BRANCH ANY) LIVES4 BRANCH5 FALL?6>
+ <TEMP TEMP10 ND18:UVECTOR B-LIVES7:UVECTOR TEMP20:UVECTOR LP25:UVECTOR BP26 NDP27:UVECTOR L28:FIX TEMP32:FIX>
+ <INTGO>
+ <GVAL 'UVSIZE = TEMP10>
+ <UUBLOCK <TYPE-CODE UVECTOR> TEMP10 = ND18>
+ <DEAD TEMP10>
+ <SET TEMP10 ND18>
+ <LOOP (TEMP10 VALUE LENGTH)>
+ISTR11
+ <EMPUU? TEMP10 + ISTRE12>
+ <PUTUU TEMP10 1 0>
+ <RESTUU TEMP10 1 = TEMP10>
+ <JUMP + ISTR11>
+ISTRE12
+ <NTHUV BRANCH5 3 = B-LIVES7 (TYPE UVECTOR)>
+ <SET TEMP10 LIVES4 (TYPE UVECTOR)>
+ <SET TEMP20 ND18 (TYPE UVECTOR)>
+ <LOOP>
+MAP14
+ <INTGO>
+ <EMPUU? TEMP10 + MAPAP17>
+ <EMPUU? B-LIVES7 + MAPAP17>
+ <EMPUU? TEMP20 + MAPAP17>
+ <SET LP25 TEMP10>
+ <SET BP26 B-LIVES7>
+ <SET NDP27 TEMP20>
+ <NTHUU LP25 1 = L28 (TYPE FIX)>
+ <NTHUU BP26 1 = BP26 (TYPE FIX)>
+ <VEQUAL? L28 BP26 + PHRASE31 (TYPE FIX)>
+ <OR L28 BP26 = TEMP32>
+ <PUTUU LP25 1 TEMP32>
+ <DEAD LP25 TEMP32>
+ <XOR L28 BP26 = TEMP32>
+ <DEAD L28 BP26>
+ <PUTUU NDP27 1 TEMP32>
+ <DEAD NDP27 TEMP32>
+PHRASE31
+ <RESTUU TEMP10 1 = TEMP10 (TYPE UVECTOR)>
+ <RESTUU B-LIVES7 1 = B-LIVES7 (TYPE UVECTOR)>
+ <RESTUU TEMP20 1 = TEMP20 (TYPE UVECTOR)>
+ <JUMP + MAP14>
+MAPAP17
+ <TYPE? FALL?6 <TYPE-CODE FALSE> + PHRASE34>
+ <DEAD FALL?6>
+ <PUTUV BRANCH5 4 ND18>
+ <DEAD BRANCH5 ND18>
+ <RETURN LIVES4>
+ <DEAD LIVES4>
+PHRASE34
+ <NTHUV BRANCH5 5 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE37>
+ <FRAME '\1aINTERSECT-UVS>
+ <PUSH ND18>
+ <DEAD ND18>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <CALL '\1aINTERSECT-UVS 2 = TEMP20>
+ <PUTUV BRANCH5 5 TEMP20>
+ <DEAD BRANCH5 TEMP20>
+ <RETURN LIVES4>
+ <DEAD LIVES4>
+PHRASE37
+ <PUTUV BRANCH5 5 ND18>
+ <DEAD BRANCH5 ND18>
+ <RETURN LIVES4>
+ <DEAD LIVES4>
+ <END \1aMERGE-DEADS>
+#WORD *7526172214*
+<GFCN \1aINTERSECT-UVS ("VALUE" UVECTOR UVECTOR UVECTOR) U14 U25>
+ <TEMP TEMP7 U36:UVECTOR TEMP14:UVECTOR TEMP15:UVECTOR UP120 UP221 UP322:UVECTOR>
+ <INTGO>
+ <GVAL 'UVSIZE = TEMP7>
+ <UUBLOCK <TYPE-CODE UVECTOR> TEMP7 = U36 (TYPE UVECTOR)>
+ <DEAD TEMP7>
+ <SET TEMP7 U14 (TYPE UVECTOR)>
+ <DEAD U14>
+ <SET TEMP14 U25 (TYPE UVECTOR)>
+ <DEAD U25>
+ <SET TEMP15 U36 (TYPE UVECTOR)>
+ <LOOP>
+MAP9
+ <INTGO>
+ <EMPUU? TEMP7 + MAPAP12>
+ <EMPUU? TEMP14 + MAPAP12>
+ <EMPUU? TEMP15 + MAPAP12>
+ <SET UP120 TEMP7>
+ <SET UP221 TEMP14>
+ <SET UP322 TEMP15>
+ <NTHUU UP120 1 = UP120 (TYPE FIX)>
+ <NTHUU UP221 1 = UP221 (TYPE FIX)>
+ <AND UP120 UP221 = UP120>
+ <DEAD UP221>
+ <PUTUU UP322 1 UP120>
+ <DEAD UP322 UP120>
+ <RESTUU TEMP7 1 = TEMP7 (TYPE UVECTOR)>
+ <RESTUU TEMP14 1 = TEMP14 (TYPE UVECTOR)>
+ <RESTUU TEMP15 1 = TEMP15 (TYPE UVECTOR)>
+ <JUMP + MAP9>
+MAPAP12
+ <RETURN U36>
+ <DEAD U36>
+ <END \1aINTERSECT-UVS>
+#WORD *21010732633*
+ <GFCN \1aUPDATE-DEADS ("VALUE" UVECTOR FORM UVECTOR) INST4 LIVES5>
+ <TEMP OP7 SETTER6 TEMP17 TEMP37:LIST TEM8 TEMP130>
+ <INTGO>
+ <EMPL? INST4 + EXIT115 (TYPE FORM) (DEAD-JUMP INST4)>
+ <NTHL INST4 1 = OP7>
+ <EQUAL? OP7 '`SET - PHRASE12 (DEAD-FALL OP7)>
+ <RESTL INST4 1 = OP7 (TYPE LIST)>
+ <NTHL OP7 1 = OP7>
+ <CHTYPE OP7 <TYPE-CODE ATOM> = SETTER6>
+ <DEAD OP7>
+ <FRAME '\1aREM-LIST?>
+ <PUSH SETTER6>
+ <PUSH LIVES5>
+ <CALL '\1aREM-LIST? 2 = OP7>
+ <TYPE? OP7 <TYPE-CODE FALSE> - PHRASE15>
+ <DEAD OP7>
+ <SETG 'ANY-FLUSHED-INS 'T>
+ <CHTYPE SETTER6 <TYPE-CODE DEAD-VAR> = OP7>
+ <RESTL INST4 1 = TEMP17 (TYPE LIST)>
+ <PUTL TEMP17 1 OP7>
+ <DEAD TEMP17 OP7>
+PHRASE15
+ <RESTL INST4 1 = TEMP17 (TYPE LIST)>
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <NTHL TEMP17 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE ATOM> + TAG20 (DEAD-JUMP TEMP17)>
+ <TYPE? TEMP17 <TYPE-CODE DEAD-VAR> - PHRASE19 (DEAD-JUMP INST4 SETTER6)>
+ <DEAD TEMP17>
+TAG20
+ <FRAME '\1aADD-DEAD>
+ <RESTL INST4 1 = OP7 (TYPE LIST)>
+ <DEAD INST4>
+ <RESTL OP7 1 = OP7 (TYPE LIST)>
+ <CHTYPE OP7 <TYPE-CODE LIST> = STACK>
+ <DEAD OP7>
+ <PUSH LIVES5>
+ <PUSH SETTER6>
+ <DEAD SETTER6>
+ <CALL '\1aADD-DEAD 3>
+PHRASE19
+ <RETURN LIVES5>
+ <DEAD LIVES5>
+PHRASE12
+ <EQUAL? OP7 '`SETLR - PHRASE23 (DEAD-FALL OP7)>
+ <RESTL INST4 1 = OP7 (TYPE LIST)>
+ <NTHL OP7 1 = OP7>
+ <CHTYPE OP7 <TYPE-CODE ATOM> = SETTER6>
+ <DEAD OP7>
+ <FRAME '\1aREM-LIST?>
+ <PUSH SETTER6>
+ <PUSH LIVES5>
+ <CALL '\1aREM-LIST? 2 = OP7>
+ <TYPE? OP7 <TYPE-CODE FALSE> - PHRASE25>
+ <DEAD OP7>
+ <SETG 'ANY-FLUSHED-INS 'T>
+ <CHTYPE SETTER6 <TYPE-CODE DEAD-VAR> = OP7>
+ <RESTL INST4 1 = TEMP17 (TYPE LIST)>
+ <PUTL TEMP17 1 OP7>
+ <DEAD TEMP17 OP7>
+PHRASE25
+ <RESTL INST4 1 = TEMP17 (TYPE LIST)>
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <NTHL TEMP17 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE ATOM> + TAG30 (DEAD-JUMP TEMP17)>
+ <TYPE? TEMP17 <TYPE-CODE DEAD-VAR> - PHRASE29>
+ <DEAD TEMP17>
+TAG30
+ <FRAME '\1aADD-DEAD>
+ <RESTL INST4 1 = OP7 (TYPE LIST)>
+ <RESTL OP7 1 = OP7 (TYPE LIST)>
+ <CHTYPE OP7 <TYPE-CODE LIST> = STACK>
+ <DEAD OP7>
+ <PUSH LIVES5>
+ <PUSH SETTER6>
+ <CALL '\1aADD-DEAD 3>
+PHRASE29
+ <RESTL INST4 1 = OP7 (TYPE LIST)>
+ <RESTL OP7 1 = OP7 (TYPE LIST)>
+ <RESTL OP7 1 = OP7 (TYPE LIST)>
+ <NTHL OP7 1 = OP7>
+ <TYPE? OP7 <TYPE-CODE ATOM> + TAG35 (DEAD-JUMP OP7)>
+ <TYPE? OP7 <TYPE-CODE DEAD-VAR> - PHRASE34 (DEAD-JUMP INST4 SETTER6)>
+ <DEAD OP7>
+TAG35
+ <FRAME '\1aADD-DEAD>
+ <RESTL INST4 1 = OP7 (TYPE LIST)>
+ <DEAD INST4>
+ <RESTL OP7 1 = OP7 (TYPE LIST)>
+ <RESTL OP7 1 = TEMP37 (TYPE LIST)>
+ <DEAD OP7>
+ <CHTYPE TEMP37 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP37>
+ <PUSH LIVES5>
+ <PUSH SETTER6>
+ <DEAD SETTER6>
+ <CALL '\1aADD-DEAD 3>
+PHRASE34
+ <RETURN LIVES5>
+ <DEAD LIVES5>
+PHRASE23
+ <EQUAL? OP7 '`SETRL - PHRASE39 (DEAD-FALL OP7)>
+ <RESTL INST4 1 = OP7 (TYPE LIST)>
+ <RESTL OP7 1 = OP7 (TYPE LIST)>
+ <NTHL OP7 1 = OP7>
+ <CHTYPE OP7 <TYPE-CODE ATOM> = SETTER6>
+ <DEAD OP7>
+ <FRAME '\1aREM-LIST?>
+ <PUSH SETTER6>
+ <PUSH LIVES5>
+ <CALL '\1aREM-LIST? 2 = OP7>
+ <TYPE? OP7 <TYPE-CODE FALSE> - PHRASE41>
+ <DEAD OP7>
+ <SETG 'ANY-FLUSHED-INS 'T>
+ <CHTYPE SETTER6 <TYPE-CODE DEAD-VAR> = OP7>
+ <RESTL INST4 1 = TEMP17 (TYPE LIST)>
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <PUTL TEMP17 1 OP7>
+ <DEAD TEMP17 OP7>
+PHRASE41
+ <RESTL INST4 1 = TEMP17 (TYPE LIST)>
+ <NTHL TEMP17 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE ATOM> + TAG46 (DEAD-JUMP TEMP17)>
+ <TYPE? TEMP17 <TYPE-CODE DEAD-VAR> - PHRASE45>
+ <DEAD TEMP17>
+TAG46
+ <FRAME '\1aADD-DEAD>
+ <RESTL INST4 1 = OP7 (TYPE LIST)>
+ <CHTYPE OP7 <TYPE-CODE LIST> = STACK>
+ <DEAD OP7>
+ <PUSH LIVES5>
+ <PUSH SETTER6>
+ <CALL '\1aADD-DEAD 3>
+PHRASE45
+ <RESTL INST4 1 = OP7 (TYPE LIST)>
+ <RESTL OP7 1 = OP7 (TYPE LIST)>
+ <RESTL OP7 1 = OP7 (TYPE LIST)>
+ <NTHL OP7 1 = OP7>
+ <TYPE? OP7 <TYPE-CODE ATOM> + TAG51 (DEAD-JUMP OP7)>
+ <TYPE? OP7 <TYPE-CODE DEAD-VAR> - PHRASE49 (DEAD-JUMP INST4 SETTER6)>
+ <DEAD OP7>
+TAG51
+ <FRAME '\1aADD-DEAD>
+ <RESTL INST4 1 = TEMP37 (TYPE LIST)>
+ <DEAD INST4>
+ <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
+ <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
+ <CHTYPE TEMP37 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP37>
+ <PUSH LIVES5>
+ <PUSH SETTER6>
+ <DEAD SETTER6>
+ <CALL '\1aADD-DEAD 3>
+PHRASE49
+ <RETURN LIVES5>
+ <DEAD LIVES5>
+PHRASE39
+ <EQUAL? OP7 '`TEMP - PHRASE55 (DEAD-FALL OP7)>
+ <RESTL INST4 1 = TEMP37 (TYPE LIST)>
+ <DEAD INST4>
+ <CHTYPE TEMP37 <TYPE-CODE LIST> = TEMP37>
+ <LOOP>
+MAP57
+ <INTGO>
+ <EMPL? TEMP37 + EXIT115 (DEAD-JUMP TEMP37)>
+ <NTHL TEMP37 1 = OP7>
+ <TYPE? OP7 <TYPE-CODE LIST> - PHRASE69 (DEAD-JUMP OP7)>
+ <FRAME '\1aREM-LIST>
+ <FRAME '\1aATOM-PART>
+ <PUSH OP7>
+ <DEAD OP7>
+ <CALL '\1aATOM-PART 1 = STACK>
+ <PUSH LIVES5>
+ <CALL '\1aREM-LIST 2>
+PHRASE69
+ <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
+ <JUMP + MAP57>
+PHRASE55
+ <EQUAL? OP7 '`MAKTUP - PHRASE72 (DEAD-FALL OP7)>
+ <RESTL INST4 1 = OP7 (TYPE LIST)>
+ <DEAD INST4>
+ <CHTYPE OP7 <TYPE-CODE LIST> = OP7>
+ <LOOP>
+MAP74
+ <INTGO>
+ <EMPL? OP7 + EXIT115 (DEAD-JUMP OP7)>
+ <NTHL OP7 1 = SETTER6>
+ <EQUAL? SETTER6 '= + MAPAP77 (DEAD-JUMP SETTER6 OP7)>
+ <TYPE? SETTER6 <TYPE-CODE LIST> - PHRASE86 (DEAD-JUMP SETTER6)>
+ <FRAME '\1aREM-LIST>
+ <FRAME '\1aATOM-PART>
+ <PUSH SETTER6>
+ <DEAD SETTER6>
+ <CALL '\1aATOM-PART 1 = STACK>
+ <PUSH LIVES5>
+ <CALL '\1aREM-LIST 2>
+PHRASE86
+ <RESTL OP7 1 = OP7 (TYPE LIST)>
+ <JUMP + MAP74>
+MAPAP77
+ <RETURN LIVES5>
+ <DEAD LIVES5>
+PHRASE72
+ <EQUAL? OP7 '`DISPATCH - PHRASE89 (DEAD-FALL OP7)>
+ <RESTL INST4 1 = OP7 (TYPE LIST)>
+ <NTHL OP7 1 = OP7>
+ <TYPE? OP7 <TYPE-CODE ATOM> + TAG92 (DEAD-JUMP OP7)>
+ <TYPE? OP7 <TYPE-CODE DEAD-VAR> - PHRASE91>
+ <DEAD OP7>
+TAG92
+ <FRAME '\1aADD-DEAD>
+ <RESTL INST4 1 = TEMP37 (TYPE LIST)>
+ <CHTYPE TEMP37 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP37>
+ <PUSH LIVES5>
+ <PUSH %<>>
+ <CALL '\1aADD-DEAD 3>
+PHRASE91
+ <RESTL INST4 1 = OP7 (TYPE LIST)>
+ <RESTL OP7 1 = OP7 (TYPE LIST)>
+ <NTHL OP7 1 = OP7>
+ <TYPE? OP7 <TYPE-CODE ATOM> + TAG96 (DEAD-JUMP OP7)>
+ <TYPE? OP7 <TYPE-CODE DEAD-VAR> - PHRASE95 (DEAD-JUMP INST4)>
+ <DEAD OP7>
+TAG96
+ <FRAME '\1aADD-DEAD>
+ <RESTL INST4 1 = TEMP17 (TYPE LIST)>
+ <DEAD INST4>
+ <RESTL TEMP17 1 = TEMP37 (TYPE LIST)>
+ <DEAD TEMP17>
+ <CHTYPE TEMP37 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP37>
+ <PUSH LIVES5>
+ <PUSH %<>>
+ <CALL '\1aADD-DEAD 3>
+PHRASE95
+ <RETURN LIVES5>
+ <DEAD LIVES5>
+PHRASE89
+ <EQUAL? OP7 '`FCN + EXIT115 (DEAD-JUMP INST4 OP7)>
+ <EQUAL? OP7 '`GFCN + EXIT115 (DEAD-JUMP INST4 OP7)>
+ <EQUAL? OP7 '`OPT-DISPATCH + EXIT115 (DEAD-JUMP INST4 OP7)>
+ <EQUAL? OP7 '`LOOP + EXIT115 (DEAD-JUMP INST4 OP7)>
+ <EQUAL? OP7 '`END + EXIT115 (DEAD-JUMP INST4 OP7)>
+ <EQUAL? OP7 '`ICALL + EXIT115 (DEAD-JUMP INST4 OP7)>
+ <RESTL INST4 1 = TEM8 (TYPE LIST)>
+ <CHTYPE TEM8 <TYPE-CODE LIST> = TEM8>
+ <EMPL? TEM8 + TAG101 (DEAD-JUMP TEM8)>
+ <LOOP (TEM8 VALUE)>
+TAG103
+ <NTHL TEM8 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE ATOM> - TAG104 (DEAD-JUMP TEMP17)>
+ <VEQUAL? TEMP17 '= + TAG102>
+ <DEAD TEMP17>
+TAG104
+ <RESTL TEM8 1 = TEM8 (TYPE LIST)>
+ <EMPL? TEM8 - TAG103 (DEAD-FALL TEM8)>
+TAG101
+ <SET TEM8 %<> (TYPE FALSE)>
+TAG102
+ <VEQUAL? TEM8 0 + PHRASE106 (DEAD-JUMP TEM8)>
+ <RESTL TEM8 1 = TEMP17 (TYPE LIST)>
+ <NTHL TEMP17 1 = TEMP17>
+ <CHTYPE TEMP17 <TYPE-CODE ATOM> = SETTER6>
+ <DEAD TEMP17>
+ <VEQUAL? SETTER6 '`STACK + PHRASE114 (DEAD-JUMP TEM8)>
+ <FRAME '\1aREM-LIST?>
+ <PUSH SETTER6>
+ <PUSH LIVES5>
+ <CALL '\1aREM-LIST? 2 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE114 (DEAD-JUMP TEM8)>
+ <DEAD TEMP17>
+ <EQUAL? OP7 '`SCALL + PHRASE114 (DEAD-JUMP TEM8)>
+ <EQUAL? OP7 '`SYSOP + PHRASE114 (DEAD-JUMP TEM8)>
+ <EQUAL? OP7 '`SYSCALL + PHRASE114 (DEAD-JUMP TEM8)>
+ <SETG 'ANY-FLUSHED-INS 'T>
+ <CHTYPE SETTER6 <TYPE-CODE DEAD-VAR> = TEMP17>
+ <RESTL TEM8 1 = TEM8 (TYPE LIST)>
+ <PUTL TEM8 1 TEMP17>
+ <DEAD TEM8 TEMP17>
+ <JUMP + PHRASE114>
+PHRASE106
+ <SET SETTER6 %<> (TYPE FALSE)>
+PHRASE114
+ <RESTL INST4 1 = TEMP37 (TYPE LIST)>
+ <DEAD INST4>
+ <CHTYPE TEMP37 <TYPE-CODE LIST> = TEMP37>
+ <LOOP>
+AGAIN118
+ <INTGO>
+ <EMPL? TEMP37 + EXIT115 (TYPE LIST) (DEAD-JUMP TEMP37 SETTER6 OP7)>
+ <NTHL TEMP37 1 = TEMP17>
+ <EQUAL? TEMP17 '= + BOOL123 (DEAD-JUMP TEMP17)>
+ <EQUAL? TEMP17 '+ + BOOL123 (DEAD-JUMP TEMP17)>
+ <EQUAL? TEMP17 '- - PHRASE122 (DEAD-FALL TEMP17)>
+BOOL123
+ <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
+ <JUMP + PHRASE127>
+PHRASE122
+ <TYPE? TEMP17 <TYPE-CODE ATOM> + TAG125 (DEAD-JUMP TEMP17)>
+ <TYPE? TEMP17 <TYPE-CODE DEAD-VAR> - PHRASE124 (DEAD-FALL TEMP17)>
+TAG125
+ <FRAME '\1aADD-DEAD>
+ <PUSH TEMP37>
+ <JUMP + PEEP138>
+PHRASE124
+ <EQUAL? OP7 '`CHTYPE - PHRASE127 (DEAD-JUMP TEMP17)>
+ <TYPE? TEMP17 <TYPE-CODE FORM> - PHRASE127 (DEAD-JUMP TEMP17)>
+ <SET TEM8 TEMP17>
+ <SET TEMP130 1 (TYPE FIX)>
+ <LOOP (TEM8 VALUE) (TEMP130 VALUE)>
+TAG131
+ <EMPL? TEM8 + PHRASE127 (DEAD-JUMP TEMP130 TEM8 TEMP17)>
+ <SUB TEMP130 1 = TEMP130 (TYPE FIX)>
+ <LESS? TEMP130 0 + TAG132 (DEAD-JUMP TEMP130 TEM8)>
+ <RESTL TEM8 1 = TEM8 (TYPE LIST)>
+ <JUMP + TAG131>
+TAG132
+ <NTHL TEMP17 1 = TEMP130>
+ <EQUAL? TEMP130 '`TYPE - PHRASE127 (DEAD-JUMP TEMP17)>
+ <DEAD TEMP130>
+ <RESTL TEMP17 1 = TEMP130 (TYPE LIST)>
+ <NTHL TEMP130 1 = TEMP130>
+ <TYPE? TEMP130 <TYPE-CODE ATOM> - PHRASE127 (DEAD-JUMP TEMP17)>
+ <DEAD TEMP130>
+ <FRAME '\1aADD-DEAD>
+ <RESTL TEMP17 1 = TEMP130 (TYPE LIST)>
+ <DEAD TEMP17>
+ <CHTYPE TEMP130 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP130>
+PEEP138
+ <PUSH LIVES5>
+ <PUSH SETTER6>
+ <CALL '\1aADD-DEAD 3>
+PHRASE127
+ <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
+ <JUMP + AGAIN118>
+EXIT115
+ <RETURN LIVES5>
+ <DEAD LIVES5>
+ <END \1aUPDATE-DEADS>
+
+#WORD *34702374670*
+<GFCN \1aADD-DEAD ("VALUE" <OR FALSE <LIST DEAD-VAR>> <LIST <OR ATOM DEAD-VAR>> UVECTOR <OR ATOM FALSE>) RINST4 L5 SETTER6>
+ <TEMP TEMP8 ATM7:ATOM>
+ <INTGO>
+ <NTHL RINST4 1 = TEMP8>
+ <CHTYPE TEMP8 <TYPE-CODE ATOM> = ATM7>
+ <DEAD TEMP8>
+ <FRAME '\1aADD-LIST?>
+ <PUSH ATM7>
+ <PUSH L5>
+ <DEAD L5>
+ <CALL '\1aADD-LIST? 2 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE10>
+ <VEQUAL? ATM7 SETTER6 - TAG13>
+ <DEAD SETTER6>
+ <RETURN %<>>
+TAG13
+ <CHTYPE ATM7 <TYPE-CODE DEAD-VAR> = TEMP8>
+ <DEAD ATM7>
+ <PUTL RINST4 1 TEMP8>
+ <DEAD TEMP8>
+ <SET TEMP8 RINST4>
+ <DEAD RINST4>
+PHRASE10
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aADD-DEAD>
+#WORD *2411323553*
+ <GFCN \1aINSERT-DEADS ("VALUE" <OR ATOM FALSE LIST> LIST VECTOR) CODE4 VCODE5>
+ <TEMP RCODE6:LIST TEMP16 TEMP13:VECTOR DEADS19 FALL-DEADS20:LIST BJL24 JUMP-DEADS21:LIST TEMP37 TMPL23>
+ <INTGO>
+ <SET RCODE6 CODE4>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <SET TEMP13 VCODE5 (TYPE VECTOR)>
+ <DEAD VCODE5>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPUV? TEMP13 + MAPAP11 (DEAD-JUMP CODE4 TMPL23 TEMP13 RCODE6) (DEAD-FALL TEMP16)>
+ <NTHUV TEMP13 1 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE BRANCH> - PHRASE26 (DEAD-FALL CODE4)>
+ <FRAME '\1aFIND-DEADS>
+ <NTHUV TEMP16 1 = STACK (TYPE FORM)>
+ <CALL '\1aFIND-DEADS 1 = DEADS19>
+ <FRAME '\1aUV-TO-L>
+ <NTHUV TEMP16 4 = STACK (TYPE UVECTOR)>
+ <CALL '\1aUV-TO-L 1 = FALL-DEADS20>
+ <NTHUV TEMP16 5 = BJL24>
+ <TYPE? BJL24 <TYPE-CODE FALSE> + PHRASE30 (DEAD-JUMP BJL24)>
+ <FRAME '\1aUV-TO-L>
+ <PUSH BJL24>
+ <DEAD BJL24>
+ <CALL '\1aUV-TO-L 1 = JUMP-DEADS21>
+ <JUMP + PHRASE32>
+PHRASE30
+ <SET JUMP-DEADS21 () (TYPE LIST)>
+PHRASE32
+ <NTHUV TEMP16 1 = TEMP16 (TYPE FORM)>
+ <EMPL? JUMP-DEADS21 + PHRASE34 (TYPE LIST) (DEAD-JUMP JUMP-DEADS21)>
+ <SET BJL24 TEMP16>
+ <LOOP (BJL24 VALUE)>
+TAG36
+ <RESTL BJL24 1 = TEMP37 (TYPE LIST)>
+ <EMPL? TEMP37 + TAG38 (DEAD-JUMP TEMP37) (DEAD-FALL BJL24)>
+ <SET BJL24 TEMP37>
+ <DEAD TEMP37>
+ <JUMP + TAG36>
+TAG38
+ <CONS '`DEAD-JUMP JUMP-DEADS21 = TEMP37>
+ <DEAD JUMP-DEADS21>
+ <CONS TEMP37 () = TEMP37>
+ <PUTREST BJL24 TEMP37>
+ <DEAD BJL24 TEMP37>
+PHRASE34
+ <EMPL? FALL-DEADS20 + PHRASE40 (TYPE LIST) (DEAD-JUMP FALL-DEADS20 TEMP16)>
+ <SET TEMP37 TEMP16>
+ <DEAD TEMP16>
+ <LOOP (TEMP37 VALUE)>
+TAG41
+ <RESTL TEMP37 1 = BJL24 (TYPE LIST)>
+ <EMPL? BJL24 + TAG43 (DEAD-JUMP BJL24) (DEAD-FALL TEMP37)>
+ <SET TEMP37 BJL24>
+ <DEAD BJL24>
+ <JUMP + TAG41>
+TAG43
+ <CONS '`DEAD-FALL FALL-DEADS20 = BJL24>
+ <DEAD FALL-DEADS20>
+ <CONS BJL24 () = BJL24>
+ <PUTREST TEMP37 BJL24>
+ <DEAD TEMP37 BJL24>
+PHRASE40
+ <EMPL? DEADS19 + TAG78 (TYPE LIST) (DEAD-JUMP DEADS19)>
+ <RESTL RCODE6 1 = BJL24 (TYPE LIST)>
+ <CONS '`DEAD DEADS19 = TEMP37>
+ <DEAD DEADS19>
+ <CHTYPE TEMP37 <TYPE-CODE FORM> = TEMP37>
+ <CONS TEMP37 BJL24 = BJL24>
+ <DEAD TEMP37>
+ <PUTREST RCODE6 BJL24>
+ <DEAD BJL24>
+ <RESTL RCODE6 1 = RCODE6 (TYPE LIST)>
+ <JUMP + TAG78>
+PHRASE26
+ <TYPE? TEMP16 <TYPE-CODE FORM> - PHRASE47>
+ <EMPL? TEMP16 + PHRASE68 (TYPE FORM) (DEAD-JUMP CODE4)>
+ <NTHL TEMP16 1 = DEADS19>
+ <EQUAL? DEADS19 '`SET - BOOL51>
+ <RESTL TEMP16 1 = BJL24 (TYPE LIST)>
+ <NTHL BJL24 1 = BJL24>
+ <RESTL TEMP16 1 = TEMP37 (TYPE LIST)>
+ <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
+ <NTHL TEMP37 1 = TEMP37>
+ <EQUAL? BJL24 TEMP37 + BOOL50>
+ <DEAD BJL24 TEMP37>
+ <RESTL TEMP16 1 = TEMP37 (TYPE LIST)>
+ <NTHL TEMP37 1 = TEMP37>
+ <TYPE? TEMP37 <TYPE-CODE DEAD-VAR> + BOOL50>
+ <DEAD TEMP37>
+BOOL51
+ <EQUAL? DEADS19 '`SETLR - BOOL53>
+ <RESTL TEMP16 1 = TEMP37 (TYPE LIST)>
+ <NTHL TEMP37 1 = TEMP37>
+ <TYPE? TEMP37 <TYPE-CODE DEAD-VAR> + BOOL50>
+ <DEAD TEMP37>
+BOOL53
+ <EQUAL? DEADS19 '`SETRL - BOOL54 (DEAD-JUMP TMPL23)>
+ <RESTL TEMP16 1 = TEMP37 (TYPE LIST)>
+ <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
+ <NTHL TEMP37 1 = TEMP37>
+ <TYPE? TEMP37 <TYPE-CODE DEAD-VAR> + BOOL50 (DEAD-FALL TMPL23)>
+ <DEAD TEMP37>
+BOOL54
+ <SET TMPL23 TEMP16>
+ <CHTYPE TMPL23 <TYPE-CODE LIST> = TMPL23>
+ <LOOP (TMPL23 VALUE)>
+TAG58
+ <NTHL TMPL23 1 = TEMP37>
+ <TYPE? TEMP37 <TYPE-CODE ATOM> - TAG59 (DEAD-JUMP TEMP37)>
+ <VEQUAL? TEMP37 '= + TAG57>
+ <DEAD TEMP37>
+TAG59
+ <RESTL TMPL23 1 = TMPL23 (TYPE LIST)>
+ <EMPL? TMPL23 - TAG58 (DEAD-FALL CODE4 TMPL23 DEADS19)>
+ <SET TMPL23 %<> (TYPE FALSE)>
+ <JUMP + PHRASE68>
+TAG57
+ <RESTL TMPL23 1 = TEMP37 (TYPE LIST)>
+ <NTHL TEMP37 1 = TEMP37>
+ <TYPE? TEMP37 <TYPE-CODE DEAD-VAR> - PHRASE68 (DEAD-JUMP CODE4 DEADS19)>
+ <DEAD TEMP37>
+BOOL50
+ <SETG 'ANY-FLUSHED-INS 'T>
+ <EQUAL? DEADS19 '`CALL + BOOL62 (DEAD-JUMP CODE4 DEADS19)>
+ <EQUAL? DEADS19 '`ACALL - PHRASE61 (DEAD-FALL CODE4 DEADS19)>
+BOOL62
+ <LENL TEMP16 = TEMP37 (TYPE FIX)>
+ <LENL TMPL23 = BJL24 (TYPE FIX)>
+ <SUB TEMP37 BJL24 = TEMP37 (TYPE FIX)>
+ <DEAD BJL24>
+ <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
+ <SET BJL24 TEMP16>
+ <GRTR? TEMP37 0 - RESTL64 (TYPE FIX) (DEAD-JUMP TEMP37)>
+ <LOOP (BJL24 VALUE) (TEMP37 VALUE)>
+RESTL63
+ <INTGO>
+ <RESTL BJL24 1 = BJL24 (TYPE LIST)>
+ <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
+ <GRTR? TEMP37 0 + RESTL63 (TYPE FIX) (DEAD-FALL TEMP37)>
+RESTL64
+ <CHTYPE BJL24 <TYPE-CODE LIST> = BJL24>
+ <PUTREST BJL24 ()>
+ <DEAD BJL24>
+ <JUMP + PHRASE68>
+PHRASE61
+ <EQUAL? DEADS19 '`SCALL + BOOL66 (DEAD-JUMP CODE4 DEADS19)>
+ <EQUAL? DEADS19 '`SYSOP + BOOL66 (DEAD-JUMP CODE4 DEADS19)>
+ <EQUAL? DEADS19 '`SYSCALL - PHRASE65 (DEAD-JUMP TEMP16) (DEAD-FALL CODE4 DEADS19)>
+BOOL66
+ <RESTL TMPL23 1 = BJL24 (TYPE LIST)>
+ <NTHL BJL24 1 = BJL24>
+ <CHTYPE BJL24 <TYPE-CODE ATOM> = BJL24>
+ <RESTL TMPL23 1 = TEMP37 (TYPE LIST)>
+ <PUTL TEMP37 1 BJL24>
+ <DEAD TEMP37 BJL24>
+ <JUMP + PHRASE68>
+PHRASE65
+ <EQUAL? DEADS19 '`POP - PHRASE67 (DEAD-FALL CODE4)>
+ <DEAD DEADS19>
+ <PUTL RCODE6 1 <`ADJ -1>>
+ <SET CODE4 RCODE6>
+ <DEAD RCODE6>
+ <RESTL CODE4 1 = RCODE6 (TYPE LIST)>
+ <JUMP + PEEP82>
+PHRASE67
+ <RESTL RCODE6 1 = RCODE6 (TYPE LIST)>
+ <PUTREST CODE4 RCODE6>
+PEEP82
+ <SET TEMP16 'T (TYPE ATOM)>
+ <JUMP + PHRASE76>
+PHRASE68
+ <FRAME '\1aFIND-DEADS>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aFIND-DEADS 1 = DEADS19>
+ <EMPL? DEADS19 + TAG78 (TYPE LIST) (DEAD-JUMP DEADS19)>
+ <FRAME '\1aFORM>
+ <PUSH '`DEAD>
+ <SET TEMP37 1 (TYPE FIX)>
+ <SET BJL24 DEADS19>
+ <DEAD DEADS19>
+ <LOOP (BJL24 VALUE) (TEMP37 VALUE)>
+TAG74
+ <INTGO>
+ <EMPL? BJL24 + TAG73 (DEAD-JUMP BJL24)>
+ <NTHL BJL24 1 = STACK>
+ <RESTL BJL24 1 = BJL24 (TYPE LIST)>
+ <ADD TEMP37 1 = TEMP37 (TYPE FIX)>
+ <JUMP + TAG74>
+TAG73
+ <CALL '\1aFORM TEMP37 = TEMP37>
+ <CONS TEMP37 () = TEMP37>
+ <RESTL RCODE6 1 = BJL24 (TYPE LIST)>
+ <PUTREST TEMP37 BJL24>
+ <DEAD BJL24>
+ <PUTREST RCODE6 TEMP37>
+ <DEAD TEMP37>
+ <RESTL RCODE6 1 = RCODE6 (TYPE LIST)>
+ <JUMP + TAG78>
+PHRASE47
+ <TYPE? TEMP16 <TYPE-CODE LABEL> - TAG78 (DEAD-JUMP CODE4 TEMP16)>
+ <NTHUV TEMP16 1 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FORM> - TAG78 (DEAD-JUMP CODE4 TEMP16)>
+ <EMPL? TEMP16 + TAG78 (TYPE FORM) (DEAD-JUMP CODE4 TEMP16)>
+ <NTHL TEMP16 1 = TEMP37>
+ <DEAD TEMP16>
+ <EQUAL? TEMP37 '`ENDIF - TAG78 (DEAD-JUMP CODE4)>
+ <DEAD TEMP37>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE76>
+TAG78
+ <SET CODE4 RCODE6>
+ <DEAD RCODE6>
+ <RESTL CODE4 1 = RCODE6 (TYPE LIST)>
+ <SET TEMP16 RCODE6>
+PHRASE76
+ <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
+ <JUMP + MAP8>
+MAPAP11
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aINSERT-DEADS>
+
+#WORD *24714126344*
+<GFCN \1aFIND-DEADS ("VALUE" LIST FORM) INST4>
+ <TEMP (PASSED=?6 %<>) OP5 TEMP18 TEMP16 TEMP20 RINST21 ONE22 TEMP30>
+ <INTGO>
+ <EMPL? INST4 + PHRASE8 (TYPE FORM)>
+ <NTHL INST4 1 = OP5>
+ <SET TEMP18 () (TYPE LIST)>
+ <SET TEMP16 () (TYPE LIST)>
+ <RESTL INST4 1 = TEMP20 (TYPE LIST)>
+ <CHTYPE TEMP20 <TYPE-CODE LIST> = TEMP20>
+ <LOOP>
+MAP10
+ <INTGO>
+ <EMPL? TEMP20 + MAPAP13>
+ <SET RINST21 TEMP20>
+ <NTHL RINST21 1 = ONE22>
+ <EQUAL? ONE22 '= - PHRASE24>
+ <SET PASSED=?6 RINST21>
+ <DEAD RINST21>
+ <JUMP + PHRASE46>
+PHRASE24
+ <TYPE? PASSED=?6 <TYPE-CODE FALSE> + PHRASE26>
+ <EQUAL? OP5 '`CALL + BOOL28>
+ <EQUAL? OP5 '`ACALL - PHRASE26>
+BOOL28
+ <TYPE? ONE22 <TYPE-CODE DEAD-VAR> - PHRASE26>
+ <LENL INST4 = RINST21 (TYPE FIX)>
+ <LENL PASSED=?6 = TEMP30 (TYPE FIX)>
+ <DEAD PASSED=?6>
+ <SUB RINST21 TEMP30 = RINST21 (TYPE FIX)>
+ <DEAD TEMP30>
+ <SUB RINST21 1 = RINST21 (TYPE FIX)>
+ <SET TEMP30 INST4>
+ <DEAD INST4>
+ <GRTR? RINST21 0 - RESTL32 (TYPE FIX)>
+ <LOOP (TEMP30 VALUE) (RINST21 VALUE)>
+RESTL31
+ <INTGO>
+ <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
+ <SUB RINST21 1 = RINST21 (TYPE FIX)>
+ <GRTR? RINST21 0 + RESTL31 (TYPE FIX)>
+RESTL32
+ <CHTYPE TEMP30 <TYPE-CODE LIST> = TEMP30>
+ <PUTREST TEMP30 ()>
+ <DEAD TEMP30>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+PHRASE26
+ <TYPE? ONE22 <TYPE-CODE DEAD-VAR> - PHRASE34>
+ <CHTYPE ONE22 <TYPE-CODE ATOM> = ONE22>
+ <PUTL RINST21 1 ONE22>
+ <DEAD RINST21>
+ <CONS ONE22 () = TEMP30 (TYPE LIST)>
+ <DEAD ONE22>
+ <EMPL? TEMP18 - TAG36>
+ <SET TEMP18 TEMP30 (TYPE LIST)>
+ <JUMP + TAG37>
+TAG36
+ <PUTREST TEMP16 TEMP30>
+ <DEAD TEMP16>
+TAG37
+ <SET TEMP16 TEMP30 (TYPE LIST)>
+ <DEAD TEMP30>
+ <JUMP + PHRASE46>
+PHRASE34
+ <TYPE? ONE22 <TYPE-CODE FORM> - PHRASE46>
+ <EQUAL? OP5 '`CHTYPE - PHRASE46>
+ <SET TEMP30 ONE22>
+ <SET RINST21 1 (TYPE FIX)>
+ <LOOP (TEMP30 VALUE) (RINST21 VALUE)>
+TAG41
+ <EMPL? TEMP30 + PHRASE46>
+ <SUB RINST21 1 = RINST21 (TYPE FIX)>
+ <LESS? RINST21 0 + TAG42>
+ <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
+ <JUMP + TAG41>
+TAG42
+ <NTHL ONE22 1 = RINST21>
+ <EQUAL? RINST21 '`TYPE - PHRASE46>
+ <DEAD RINST21>
+ <RESTL ONE22 1 = RINST21 (TYPE LIST)>
+ <NTHL RINST21 1 = RINST21>
+ <TYPE? RINST21 <TYPE-CODE DEAD-VAR> - PHRASE46>
+ <DEAD RINST21>
+ <RESTL ONE22 1 = RINST21 (TYPE LIST)>
+ <NTHL RINST21 1 = RINST21 (TYPE DEAD-VAR)>
+ <CHTYPE RINST21 <TYPE-CODE ATOM> = RINST21>
+ <RESTL ONE22 1 = TEMP30 (TYPE LIST)>
+ <PUTL TEMP30 1 RINST21>
+ <DEAD TEMP30 RINST21>
+ <RESTL ONE22 1 = RINST21 (TYPE LIST)>
+ <DEAD ONE22>
+ <NTHL RINST21 1 = RINST21 (TYPE ATOM)>
+ <CONS RINST21 () = RINST21 (TYPE LIST)>
+ <EMPL? TEMP18 - TAG44>
+ <SET TEMP18 RINST21 (TYPE LIST)>
+ <JUMP + TAG45>
+TAG44
+ <PUTREST TEMP16 RINST21>
+ <DEAD TEMP16>
+TAG45
+ <SET TEMP16 RINST21 (TYPE LIST)>
+ <DEAD RINST21>
+PHRASE46
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <JUMP + MAP10>
+MAPAP13
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+PHRASE8
+ <RETURN ()>
+ <END \1aFIND-DEADS>
+#WORD *12141203264*
+<GFCN \1aUV-TO-L ("VALUE" LIST UVECTOR) UV4>
+ <TEMP (L5:LIST ()) (TEMP-OFFS6:FIX 0) TEMP13:UVECTOR WD18:FIX TNO25:FIX MSK26:FIX TEMP30>
+ <INTGO>
+ <SET TEMP13 UV4 (TYPE UVECTOR)>
+ <DEAD UV4>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPUU? TEMP13 + MAPAP11>
+ <NTHUU TEMP13 1 = WD18>
+ <VEQUAL? WD18 0 + EXIT23 (TYPE FIX)>
+ <ADD TEMP-OFFS6 1 = TNO25 (TYPE FIX)>
+ <SET MSK26 1 (TYPE FIX)>
+ <LOOP>
+AGAIN27
+ <INTGO>
+ <AND MSK26 WD18 = TEMP30>
+ <VEQUAL? TEMP30 0 + PHRASE35 (TYPE FIX)>
+ <DEAD TEMP30>
+ <GVAL 'NAME-UV = TEMP30>
+ <NTHUV TEMP30 TNO25 = TEMP30 (TYPE ATOM)>
+ <CONS TEMP30 L5 = L5>
+ <DEAD TEMP30>
+ <XOR WD18 MSK26 = WD18>
+ <VEQUAL? WD18 0 + EXIT23 (TYPE FIX)>
+PHRASE35
+ <ADD TNO25 1 = TNO25 (TYPE FIX)>
+ <LSH MSK26 1 = MSK26 (TYPE FIX)>
+ <JUMP + AGAIN27>
+EXIT23
+ <ADD TEMP-OFFS6 32 = TEMP-OFFS6 (TYPE FIX)>
+ <RESTUU TEMP13 1 = TEMP13 (TYPE UVECTOR)>
+ <JUMP + MAP8>
+MAPAP11
+ <RETURN L5>
+ <DEAD L5>
+ <END \1aUV-TO-L>\r\r
+<ENDPACKAGE>
\ No newline at end of file
projects / pdp10-muddle.git / blobdiff