--- /dev/null
+
+<COND (<NOT <GASSIGNED? INST-NULLF>> <SETG INST-NULLF <CHTYPE <LSH ,INST-NULL 24> FIX>>)>
+
+#WORD *6042326423*
+ <GFCN \1aSAVE-LOAD-STATE ("VALUE" <VECTOR [REST <OR FALSE AC-LOAD-STATE>]>)>
+ <TEMP TEMP15:VECTOR TEMP13 AC16:AC TEMP19>
+ <INTGO>
+ <GVAL 'ALL-ACS = TEMP15>
+ <SET TEMP13 0 (TYPE FIX)>
+ <LOOP>
+MAP5
+ <INTGO>
+ <EMPUV? TEMP15 + MAPAP8>
+ <NTHUV TEMP15 1 = AC16>
+ <NTHUV AC16 9 = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + TAG20>
+ <DEAD TEMP19>
+ <SET TEMP19 %<> (TYPE FALSE)>
+ <JUMP + BOOL17>
+TAG20
+ <NTHUV AC16 6 = STACK>
+ <NTHUV AC16 7 = STACK>
+ <DEAD AC16>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP19 (TYPE VECTOR)>
+ <CHTYPE TEMP19 <TYPE-CODE AC-LOAD-STATE> = TEMP19>
+BOOL17
+ <PUSH TEMP19>
+ <DEAD TEMP19>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
+ <JUMP + MAP5>
+MAPAP8
+ <UBLOCK <TYPE-CODE VECTOR> TEMP13 = TEMP13 (TYPE VECTOR)>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aSAVE-LOAD-STATE>
+
+#WORD *20471352535*
+ <GFCN \1aSET-AC-LOAD-STATE ("VALUE" <OR FALSE AC> SLOAD-STATE) LSTATE4>
+ <TEMP TEMP15 TEMP17:VECTOR TEMP12:VECTOR AC18:AC TEMP22>
+ <INTGO>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <GVAL 'ALL-ACS = TEMP17>
+ <SET TEMP12 LSTATE4 (TYPE VECTOR)>
+ <DEAD LSTATE4>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPUV? TEMP17 + MAPAP9>
+ <EMPUV? TEMP12 + MAPAP9>
+ <NTHUV TEMP17 1 = AC18>
+ <NTHUV TEMP12 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE21>
+ <PUTUV AC18 9 %<>>
+ <NTHUV TEMP15 1 = TEMP22>
+ <PUTUV AC18 6 TEMP22>
+ <DEAD TEMP22>
+ <NTHUV TEMP15 2 = TEMP22>
+ <DEAD TEMP15>
+ <PUTUV AC18 7 TEMP22>
+ <DEAD TEMP22>
+ <SET TEMP15 AC18>
+ <DEAD AC18>
+ <JUMP + PHRASE23>
+PHRASE21
+ <PUTUV AC18 9 'T>
+ <PUTUV AC18 6 %<>>
+ <PUTUV AC18 7 %<>>
+ <SET TEMP15 AC18>
+ <DEAD AC18>
+PHRASE23
+ <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
+ <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
+ <JUMP + MAP6>
+MAPAP9
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aSET-AC-LOAD-STATE>
+
+#WORD *12114471154*
+ <GFCN \1aSAVE-STATE ("VALUE" VECTOR)>
+ <TEMP CACHE4:VECTOR TEMP14 LVAR16>
+ <INTGO>
+ <GVAL 'VARIABLE-CACHE = CACHE4>
+ <SET TEMP14 0 (TYPE FIX)>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPUV? CACHE4 + MAPAP9>
+ <NTHUV CACHE4 1 = LVAR16>
+ <FRAME '\1aCOPY-LINKVAR>
+ <PUSH LVAR16>
+ <DEAD LVAR16>
+ <CALL '\1aCOPY-LINKVAR 1 = LVAR16>
+ <PUSH LVAR16>
+ <DEAD LVAR16>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <RESTUV CACHE4 1 = CACHE4 (TYPE VECTOR)>
+ <JUMP + MAP6>
+MAPAP9
+ <UBLOCK <TYPE-CODE VECTOR> TEMP14 = TEMP14 (TYPE VECTOR)>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aSAVE-STATE>
+
+#WORD *21400704120*
+ <GFCN
\1aPAIR-MERGE-STATE ("VALUE" VECTOR AC-STATE AC-STATE "OPTIONAL" <OR FALSE <PRIMTYPE VECTOR>> ANY) SSTATE17 SSTATE28 SSTATE9 LEN10>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <TEMP TEMP12 TEMP13 LKV211>
+ <INTGO>
+ <LENUV SSTATE17 = TEMP12 (TYPE FIX)>
+ <LENUV SSTATE28 = TEMP13 (TYPE FIX)>
+ <LESS? TEMP12 TEMP13 - TAG14>
+ <SET TEMP12 TEMP13 (TYPE FIX)>
+ <DEAD TEMP13>
+TAG14
+ <SET LEN10 TEMP12>
+ <DEAD TEMP12>
+ <TYPE? SSTATE9 <TYPE-CODE FALSE> + PHRASE16>
+ <FRAME '\1aADJUST-LENGTH>
+ <PUSH SSTATE9>
+ <DEAD SSTATE9>
+ <PUSH LEN10>
+ <DEAD LEN10>
+ <CALL '\1aADJUST-LENGTH 2 = SSTATE9>
+ <JUMP + PHRASE18>
+PHRASE16
+ <UUBLOCK <TYPE-CODE VECTOR> LEN10 = SSTATE9 (TYPE VECTOR)>
+ <DEAD LEN10>
+PHRASE18
+ <FRAME '\1aREST>
+ <PUSH SSTATE9>
+ <FRAME '\1aLENGTH>
+ <PUSH SSTATE9>
+ <DEAD SSTATE9>
+ <CALL '\1aLENGTH 1 = STACK>
+ <CALL '\1aREST 2 = SSTATE9>
+ <SET TEMP13 SSTATE17 (TYPE VECTOR)>
+ <DEAD SSTATE17>
+ <LOOP>
+MAP22
+ <INTGO>
+ <EMPUV? TEMP13 + MAPAP25>
+ <NTHUV TEMP13 1 = TEMP12>
+ <FRAME '\1aLINK-FIND>
+ <PUSH TEMP12>
+ <PUSH SSTATE28>
+ <CALL '\1aLINK-FIND 2 = LKV211>
+ <TYPE? LKV211 <TYPE-CODE FALSE> + PHRASE36>
+ <FRAME '\1aADJUST-LINKS>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH LKV211>
+ <DEAD LKV211>
+ <CALL '\1aADJUST-LINKS 2 = LKV211>
+ <TYPE? LKV211 <TYPE-CODE FALSE> + PHRASE36>
+ <BACKU SSTATE9 1 = SSTATE9>
+ <PUTUV SSTATE9 1 LKV211>
+ <DEAD LKV211>
+PHRASE36
+ <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
+ <JUMP + MAP22>
+MAPAP25
+ <RETURN SSTATE9>
+ <DEAD SSTATE9>
+ <END \1aPAIR-MERGE-STATE>
+
+#WORD *16012622054*
+ <GFCN \1aLINK-FIND ("VALUE" <OR FALSE LINKVAR> LINKVAR <VECTOR [REST LINKVAR]>) LK14 LINKS5>
+ <TEMP VAR6:VARTBL TEMP16 TEMP13:VECTOR TEMP22:VARTBL>
+ <INTGO>
+ <NTHUV LK14 1 = VAR6 (TYPE VARTBL)>
+ <DEAD LK14>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <SET TEMP13 LINKS5 (TYPE VECTOR)>
+ <DEAD LINKS5>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPUV? TEMP13 + MAPAP11>
+ <NTHUV TEMP13 1 = TEMP16>
+ <NTHUV TEMP16 1 = TEMP22 (TYPE VARTBL)>
+ <VEQUAL? TEMP22 VAR6 + TAG21>
+ <DEAD TEMP22>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE20>
+TAG21
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE20
+ <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
+ <JUMP + MAP8>
+MAPAP11
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aLINK-FIND>
+
+#WORD *244257215*
+ <GFCN \1aADJUST-LINKS ("VALUE" <OR FALSE LINKVAR> LINKVAR LINKVAR) LK14 LK25>
+ <TEMP (VAC7 %<>) (TAC8 %<>) (TWAC9 %<>) (CAC10 %<>) TEMP14 TEMP15 DECL6>
+ <INTGO>
+ <NTHUV LK14 5 = TEMP14>
+ <NTHUV LK25 5 = TEMP15>
+ <EQUAL? TEMP14 TEMP15 - PHRASE13>
+ <DEAD TEMP14 TEMP15>
+ <NTHUV LK14 5 = DECL6>
+ <JUMP + PHRASE16>
+PHRASE13
+ <SET DECL6 %<> (TYPE FALSE)>
+PHRASE16
+ <NTHUV LK14 7 = TEMP15>
+ <NTHUV LK25 7 = TEMP14>
+ <EQUAL? TEMP15 TEMP14 - PHRASE18>
+ <DEAD TEMP15>
+ <NTHUV LK14 7 = TAC8>
+PHRASE18
+ <NTHUV LK14 6 = TEMP14>
+ <NTHUV LK25 6 = TEMP15>
+ <EQUAL? TEMP14 TEMP15 - PHRASE20>
+ <DEAD TEMP14 TEMP15>
+ <NTHUV LK14 6 = VAC7>
+PHRASE20
+ <NTHUV LK14 8 = TEMP15>
+ <NTHUV LK25 8 = TEMP14>
+ <EQUAL? TEMP15 TEMP14 - PHRASE22>
+ <DEAD TEMP15>
+ <NTHUV LK14 8 = CAC10>
+PHRASE22
+ <NTHUV LK14 9 = TEMP14>
+ <NTHUV LK25 9 = TEMP15>
+ <EQUAL? TEMP14 TEMP15 - PHRASE24>
+ <DEAD TEMP14 TEMP15>
+ <NTHUV LK14 9 = TWAC9>
+PHRASE24
+ <TYPE? VAC7 <TYPE-CODE FALSE> - BOOL27>
+ <TYPE? TAC8 <TYPE-CODE FALSE> - BOOL27>
+ <TYPE? TWAC9 <TYPE-CODE FALSE> - BOOL27>
+ <SET TEMP15 CAC10>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE26>
+BOOL27
+ <FRAME '\1aCOPY-LINKVAR>
+ <PUSH LK14>
+ <DEAD LK14>
+ <CALL '\1aCOPY-LINKVAR 1 = LK14>
+ <PUTUV LK14 5 DECL6>
+ <DEAD DECL6>
+ <PUTUV LK14 7 TAC8>
+ <DEAD TAC8>
+ <PUTUV LK14 6 VAC7>
+ <DEAD VAC7>
+ <PUTUV LK14 9 TWAC9>
+ <DEAD TWAC9>
+ <PUTUV LK14 8 CAC10>
+ <DEAD CAC10>
+ <FRAME '\1aMERGE-XREFS>
+ <NTHUV LK14 10 = STACK (TYPE LIST)>
+ <NTHUV LK25 10 = STACK (TYPE LIST)>
+ <CALL '\1aMERGE-XREFS 2 = VAC7>
+ <NTHUV LK14 2 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL30>
+ <NTHUV LK25 2 = TEMP14>
+BOOL30
+ <PUTUV LK14 2 TEMP14>
+ <DEAD TEMP14>
+ <NTHUV LK14 4 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL31>
+ <NTHUV LK25 4 = TEMP14>
+BOOL31
+ <PUTUV LK14 4 TEMP14>
+ <DEAD TEMP14>
+ <NTHUV LK14 3 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL32>
+ <NTHUV LK25 3 = TEMP14>
+ <DEAD LK25>
+BOOL32
+ <PUTUV LK14 3 TEMP14>
+ <DEAD TEMP14>
+ <PUTUV LK14 10 VAC7 (TYPE LIST)>
+ <DEAD VAC7>
+ <SET TEMP15 LK14>
+ <DEAD LK14>
+PHRASE26
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aADJUST-LINKS>
+
+#WORD *5321560740*
+ <GFCN \1aMERGE-XREFS ("VALUE" <LIST [REST XREF-INFO]> <LIST [REST XREF-INFO]> <LIST [REST XREF-INFO]>) LX14 LX25>
+ <TEMP TEMP15 TEMP13 TEMP12:LIST XF117:XREF-INFO TEMP23 TEMP24>
+ <INTGO>
+ <SET TEMP15 () (TYPE LIST)>
+ <SET TEMP13 () (TYPE LIST)>
+ <SET TEMP12 LX14 (TYPE LIST)>
+ <DEAD LX14>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPL? TEMP12 + MAPAP10>
+ <NTHL TEMP12 1 = XF117>
+ <SET TEMP23 LX25>
+ <EMPL? TEMP23 + COND18>
+ <LOOP (XF117 VALUE) (TEMP23 VALUE)>
+TAG21
+ <NTHL TEMP23 1 = TEMP24>
+ <VEQUAL? TEMP24 XF117 + TAG20>
+ <DEAD TEMP24>
+ <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
+ <EMPL? TEMP23 - TAG21>
+ <JUMP + COND18>
+TAG20
+ <CONS XF117 () = TEMP23 (TYPE LIST)>
+ <DEAD XF117>
+ <EMPL? TEMP15 - TAG26>
+ <SET TEMP15 TEMP23 (TYPE LIST)>
+ <JUMP + TAG27>
+TAG26
+ <PUTREST TEMP13 TEMP23>
+ <DEAD TEMP13>
+TAG27
+ <SET TEMP13 TEMP23 (TYPE LIST)>
+ <DEAD TEMP23>
+COND18
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aMERGE-XREFS>
+
+#WORD *15336521710*
+ <GFCN \1aSET-AC-STATE ("VALUE" ATOM AC-STATE) SSTATE4>
+ <TEMP TEMP6:VECTOR TEMP7 AC18 TEMP21>
+ <INTGO>
+ <FRAME '\1aFLUSH-VAR-TEMP-DECLS>
+ <CALL '\1aFLUSH-VAR-TEMP-DECLS 0>
+ <GVAL 'VARIABLE-CACHE = TEMP6>
+ <GVAL 'VARIABLE-CACHE = TEMP7>
+ <LENUV TEMP7 = TEMP7 (TYPE FIX)>
+ <RESTUV TEMP6 TEMP7 = TEMP6 (TYPE VECTOR)>
+ <DEAD TEMP7>
+ <SETG 'VARIABLE-CACHE TEMP6>
+ <DEAD TEMP6>
+ <GVAL 'ALL-ACS = TEMP6>
+ <LOOP>
+MAP9
+ <INTGO>
+ <EMPUV? TEMP6 + MAPAP12>
+ <NTHUV TEMP6 1 = AC18>
+ <NTHUV AC18 8 = TEMP7 (TYPE VECTOR)>
+ <FRAME '\1aUSE-AC>
+ <PUSH AC18>
+ <CALL '\1aUSE-AC 1>
+ <LENUV TEMP7 = TEMP21 (TYPE FIX)>
+ <RESTUV TEMP7 TEMP21 = TEMP21 (TYPE VECTOR)>
+ <DEAD TEMP7>
+ <PUTUV AC18 8 TEMP21>
+ <DEAD AC18 TEMP21>
+ <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
+ <JUMP + MAP9>
+MAPAP12
+ <SET TEMP6 SSTATE4 (TYPE VECTOR)>
+ <LOOP>
+MAP23
+ <INTGO>
+ <EMPUV? TEMP6 + MAPAP26>
+ <NTHUV TEMP6 1 = AC18>
+ <NTHUV AC18 1 = TEMP7 (TYPE VARTBL)>
+ <FRAME '\1aCACHE-VAR>
+ <PUSH TEMP7>
+ <PUSH AC18>
+ <CALL '\1aCACHE-VAR 2>
+ <NTHUV AC18 5 = TEMP21>
+ <DEAD AC18>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL33>
+ <FRAME '\1aINDICATE-VAR-TEMP-DECL>
+ <PUSH TEMP7>
+ <DEAD TEMP7>
+ <PUSH TEMP21>
+ <DEAD TEMP21>
+ <CALL '\1aINDICATE-VAR-TEMP-DECL 2>
+BOOL33
+ <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
+ <JUMP + MAP23>
+MAPAP26
+ <SET TEMP6 SSTATE4 (TYPE VECTOR)>
+ <DEAD SSTATE4>
+ <LOOP>
+MAP36
+ <INTGO>
+ <EMPUV? TEMP6 + MAPAP39>
+ <NTHUV TEMP6 1 = AC18>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <NTHUV AC18 1 = STACK (TYPE VARTBL)>
+ <DEAD AC18>
+ <CALL '\1aFIND-CACHE-VAR 1 = TEMP7>
+ <NTHUV TEMP7 6 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL47>
+ <FRAME '\1aPLACE-LV-IN-AC>
+ <PUSH TEMP21>
+ <DEAD TEMP21>
+ <PUSH TEMP7>
+ <CALL '\1aPLACE-LV-IN-AC 2>
+BOOL47
+ <NTHUV TEMP7 7 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL49>
+ <FRAME '\1aPLACE-LV-IN-AC>
+ <PUSH TEMP21>
+ <DEAD TEMP21>
+ <PUSH TEMP7>
+ <CALL '\1aPLACE-LV-IN-AC 2>
+BOOL49
+ <NTHUV TEMP7 8 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL51>
+ <FRAME '\1aPLACE-LV-IN-AC>
+ <PUSH TEMP21>
+ <DEAD TEMP21>
+ <PUSH TEMP7>
+ <CALL '\1aPLACE-LV-IN-AC 2>
+BOOL51
+ <NTHUV TEMP7 9 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL53>
+ <FRAME '\1aPLACE-LV-IN-AC>
+ <PUSH TEMP21>
+ <DEAD TEMP21>
+ <PUSH TEMP7>
+ <DEAD TEMP7>
+ <CALL '\1aPLACE-LV-IN-AC 2>
+BOOL53
+ <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
+ <JUMP + MAP36>
+MAPAP39
+ <RETURN 'T>
+ <END \1aSET-AC-STATE>
+
+#WORD *30230770756*
+ <GFCN \1aPROCESS-LABEL-MERGE ("VALUE" <OR FALSE XREF-INFO> LABEL-REF BOOLEAN FIX) LABEL4 UCB?5 PATCH6>
+ <TEMP (PRE-STATE9 %<>) SSTATE7 TEMP27:LIST XREF28:XREF-INFO NSSTATE8>
+ <INTGO>
+ <TYPE? UCB?5 <TYPE-CODE FALSE> - PHRASE11>
+ <FRAME '\1aSAVE-STATE>
+ <CALL '\1aSAVE-STATE 0 = PRE-STATE9>
+PHRASE11
+ <FRAME '\1aCOMPUTE-MERGE-STATE>
+ <PUSH PRE-STATE9>
+ <PUSH LABEL4>
+ <CALL '\1aCOMPUTE-MERGE-STATE 2 = SSTATE7>
+ <TYPE? UCB?5 <TYPE-CODE FALSE> - BOOL14>
+ <DEAD UCB?5>
+ <FRAME '\1aADJUST-PRE-LABEL>
+ <PUSH PRE-STATE9>
+ <PUSH SSTATE7>
+ <PUSH PATCH6>
+ <DEAD PATCH6>
+ <CALL '\1aADJUST-PRE-LABEL 3>
+BOOL14
+ <NTHUV LABEL4 2 = TEMP27 (TYPE LIST)>
+ <LOOP>
+MAP17
+ <INTGO>
+ <EMPL? TEMP27 + MAPAP20>
+ <NTHL TEMP27 1 = XREF28>
+ <NTHUV XREF28 3 = NSSTATE8>
+ <TYPE? NSSTATE8 <TYPE-CODE FALSE> + PHRASE30>
+ <FRAME '\1aADJUST-JUMP>
+ <PUSH XREF28>
+ <DEAD XREF28>
+ <PUSH NSSTATE8>
+ <DEAD NSSTATE8>
+ <PUSH SSTATE7>
+ <CALL '\1aADJUST-JUMP 3>
+PHRASE30
+ <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
+ <JUMP + MAP17>
+MAPAP20
+ <FRAME '\1aCOMPUTE-MERGE-STATE>
+ <PUSH PRE-STATE9>
+ <DEAD PRE-STATE9>
+ <PUSH LABEL4>
+ <CALL '\1aCOMPUTE-MERGE-STATE 2 = SSTATE7>
+ <TYPE? SSTATE7 <TYPE-CODE FALSE> + PHRASE34>
+ <FRAME '\1aSET-AC-STATE>
+ <PUSH SSTATE7>
+ <DEAD SSTATE7>
+ <CALL '\1aSET-AC-STATE 1>
+ <JUMP + MAP36>
+PHRASE34
+ <GVAL 'ALL-ACS = PRE-STATE9>
+ <LOOP>
+MAP37
+ <INTGO>
+ <EMPUV? PRE-STATE9 + MAP36>
+ <FRAME '\1aCLEAR-VARS-FROM-AC>
+ <NTHUV PRE-STATE9 1 = STACK>
+ <CALL '\1aCLEAR-VARS-FROM-AC 1>
+ <RESTUV PRE-STATE9 1 = PRE-STATE9 (TYPE VECTOR)>
+ <JUMP + MAP37>
+MAP36
+ <FRAME '\1aCLEAN-UP-LABEL>
+ <PUSH LABEL4>
+ <DEAD LABEL4>
+ <CALL '\1aCLEAN-UP-LABEL 1 = PRE-STATE9>
+ <RETURN PRE-STATE9>
+ <DEAD PRE-STATE9>
+ <END \1aPROCESS-LABEL-MERGE>
+
+#WORD *13522771277*
+ <GFCN \1aCLEAN-UP-LABEL ("VALUE" <OR FALSE XREF-INFO> LABEL-REF) LABEL4>
+ <TEMP TEMP14 TEMP16:LIST>
+ <INTGO>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <NTHUV LABEL4 2 = TEMP16 (TYPE LIST)>
+ <DEAD LABEL4>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPL? TEMP16 + MAPAP9>
+ <NTHL TEMP16 1 = TEMP14>
+ <PUTUV TEMP14 3 %<>>
+ <PUTUV TEMP14 10 %<>>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <JUMP + MAP6>
+MAPAP9
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aCLEAN-UP-LABEL>
+
+#WORD *33642531744*
+ <GFCN \1aCOMPUTE-MERGE-STATE ("VALUE" <OR FALSE <VECTOR [REST LINKVAR]>> <OR FALSE AC-STATE> LABEL-REF) PSSTATE4 LABEL5>
+ <TEMP SSTATE7 TEMP19:LIST XREF20>
+ <INTGO>
+ <SET SSTATE7 PSSTATE4>
+ <NTHUV LABEL5 2 = TEMP19 (TYPE LIST)>
+ <DEAD LABEL5>
+ <LOOP>
+MAP9
+ <INTGO>
+ <EMPL? TEMP19 + MAPAP12>
+ <NTHL TEMP19 1 = XREF20>
+ <NTHUV XREF20 3 = XREF20>
+ <TYPE? XREF20 <TYPE-CODE FALSE> + PHRASE25>
+ <TYPE? PSSTATE4 <TYPE-CODE FALSE> - PHRASE24>
+ <SET PSSTATE4 XREF20>
+ <DEAD XREF20>
+ <SET SSTATE7 PSSTATE4>
+ <JUMP + PHRASE25>
+PHRASE24
+ <FRAME '\1aPAIR-MERGE-STATE>
+ <PUSH PSSTATE4>
+ <DEAD PSSTATE4>
+ <PUSH XREF20>
+ <DEAD XREF20>
+ <CALL '\1aPAIR-MERGE-STATE 2 = SSTATE7>
+ <SET PSSTATE4 SSTATE7>
+PHRASE25
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <JUMP + MAP9>
+MAPAP12
+ <RETURN SSTATE7>
+ <DEAD SSTATE7>
+ <END \1aCOMPUTE-MERGE-STATE>
+
+#WORD *27246637070*
+ <GFCN \1aADJUST-JUMP ("VALUE" XREF-INFO XREF-INFO AC-STATE AC-STATE) XREF4 JSSTATE5 LSSTATE6>
+ <TEMP SVEC7>
+ <INTGO>
+ <FRAME '\1aSET-AC-LOAD-STATE>
+ <NTHUV XREF4 10 = STACK (TYPE VECTOR)>
+ <CALL '\1aSET-AC-LOAD-STATE 1>
+ <FRAME '\1aGEN-INSERT>
+ <PUSH JSSTATE5>
+ <DEAD JSSTATE5>
+ <PUSH LSSTATE6>
+ <DEAD LSSTATE6>
+ <PUSH XREF4>
+ <CALL '\1aGEN-INSERT 3 = SVEC7>
+ <FRAME '\1aPRE-INSERT>
+ <PUSH SVEC7>
+ <DEAD SVEC7>
+ <NTHUV XREF4 7 = STACK>
+ <NTHUV XREF4 8 = STACK (TYPE FIX)>
+ <NTHUV XREF4 9 = STACK (TYPE FIX)>
+ <CALL '\1aPRE-INSERT 4 = SVEC7>
+ <PUTUV XREF4 4 SVEC7>
+ <DEAD SVEC7>
+ <RETURN XREF4>
+ <DEAD XREF4>
+ <END \1aADJUST-JUMP>
+
+#WORD *36455377001*
+ <GFCN \1aPRE-INSERT ("VALUE" UVECTOR CODEVEC ANY FIX FIX) CDV4 STATUS?5 LILEN6 CP7>
+ <TEMP (INS29 %<>) INS18 NLILEN22 TEMP27>
+ <INTGO>
+ <EQUAL? STATUS?5 'UNCONDITIONAL-BRANCH + BOOL13>
+ <EMPUU? CDV4 - PHRASE12 (TYPE UVECTOR)>
+BOOL13
+ <RETURN CDV4>
+ <DEAD CDV4>
+PHRASE12
+ <FRAME '\1aNTH-CODE>
+ <SUB CP7 LILEN6 = STACK (TYPE FIX)>
+ <CALL '\1aNTH-CODE 1 = INS18>
+ <LESS? LILEN6 2 + EXIT19 (TYPE FIX)>
+ <SET INS29 () (TYPE LIST)>
+ <SET NLILEN22 0 (TYPE FIX)>
+ <LOOP>
+AGAIN23
+ <INTGO>
+ <ADD NLILEN22 1 = NLILEN22 (TYPE FIX)>
+ <LESS? NLILEN22 LILEN6 + PHRASE25 (TYPE FIX)>
+ <JUMP + EXIT19>
+PHRASE25
+ <FRAME '\1aNTH-CODE>
+ <SUB CP7 NLILEN22 = STACK (TYPE FIX)>
+ <CALL '\1aNTH-CODE 1 = TEMP27>
+ <CONS TEMP27 () = TEMP27>
+ <PUTREST TEMP27 INS29>
+ <DEAD INS29>
+ <SET INS29 TEMP27>
+ <DEAD TEMP27>
+ <FRAME '\1aPUT-CODE>
+ <SUB CP7 NLILEN22 = STACK (TYPE FIX)>
+ <GVAL 'INST-NULLF = STACK>
+ <CALL '\1aPUT-CODE 2>
+ <JUMP + AGAIN23>
+EXIT19
+ <TYPE? STATUS?5 <TYPE-CODE AC> - PHRASE30>
+ <FRAME '\1aRE-GEN>
+ <PUSH CDV4>
+ <DEAD CDV4>
+ <PUSH STATUS?5>
+ <DEAD STATUS?5>
+ <PUSH INS18>
+ <DEAD INS18>
+ <PUSH INS29>
+ <DEAD INS29>
+ <CALL '\1aRE-GEN 4 = INS29>
+ <JUMP + COND29>
+PHRASE30
+ <VEQUAL? LILEN6 1 - PHRASE32 (TYPE FIX)>
+ <SET NLILEN22 1 (TYPE FIX)>
+ <SET TEMP27 CDV4>
+ <DEAD CDV4>
+ <LOOP (TEMP27 VALUE LENGTH) (NLILEN22 VALUE)>
+TAG37
+ <INTGO>
+ <EMPUU? TEMP27 + TAG35>
+ <NTHUU TEMP27 1 = STACK>
+ <RESTUU TEMP27 1 = TEMP27 (TYPE UVECTOR)>
+ <ADD NLILEN22 1 = NLILEN22 (TYPE FIX)>
+ <JUMP + TAG37>
+TAG35
+ <PUSH INS18>
+ <DEAD INS18>
+ <UBLOCK <TYPE-CODE UVECTOR> NLILEN22 = INS29 (TYPE UVECTOR)>
+ <DEAD NLILEN22>
+ <JUMP + COND29>
+PHRASE32
+ <SET TEMP27 1 (TYPE FIX)>
+ <SET NLILEN22 CDV4>
+ <DEAD CDV4>
+ <LOOP (NLILEN22 VALUE LENGTH) (TEMP27 VALUE)>
+TAG40
+ <INTGO>
+ <EMPUU? NLILEN22 + TAG39>
+ <NTHUU NLILEN22 1 = STACK>
+ <RESTUU NLILEN22 1 = NLILEN22 (TYPE UVECTOR)>
+ <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
+ <JUMP + TAG40>
+TAG39
+ <PUSH INS18>
+ <DEAD INS18>
+ <SET NLILEN22 INS29>
+ <DEAD INS29>
+ <LOOP (NLILEN22 VALUE) (TEMP27 VALUE)>
+TAG42
+ <INTGO>
+ <EMPL? NLILEN22 + TAG41>
+ <NTHL NLILEN22 1 = STACK>
+ <RESTL NLILEN22 1 = NLILEN22 (TYPE LIST)>
+ <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
+ <JUMP + TAG42>
+TAG41
+ <UBLOCK <TYPE-CODE UVECTOR> TEMP27 = INS29 (TYPE UVECTOR)>
+ <DEAD TEMP27>
+COND29
+ <FRAME '\1aPUT-CODE>
+ <SUB CP7 LILEN6 = STACK (TYPE FIX)>
+ <DEAD CP7 LILEN6>
+ <GVAL 'INST-NULLF = STACK>
+ <CALL '\1aPUT-CODE 2>
+ <RETURN INS29>
+ <DEAD INS29>
+ <END \1aPRE-INSERT>
+
+#WORD *34421404575*
+ <GFCN \1aRE-GEN ("VALUE" UVECTOR CODEVEC AC FIX <OR FALSE <LIST [REST FIX]>>) CDV4 AC5 INS16 INS27>
+ <TEMP TEMP13 TEMP12>
+ <INTGO>
+ <SETG 'RE-GEN-POST ()>
+ <SETG 'RE-GEN-PRE ()>
+ <FRAME '\1aINT-RE-GEN>
+ <PUSH CDV4>
+ <DEAD CDV4>
+ <PUSH AC5>
+ <DEAD AC5>
+ <PUSH %<>>
+ <CALL '\1aINT-RE-GEN 3>
+ <TYPE? INS27 <TYPE-CODE FALSE> + PHRASE10>
+ <SET TEMP13 1 (TYPE FIX)>
+ <GVAL 'RE-GEN-PRE = TEMP12>
+ <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
+TAG14
+ <INTGO>
+ <EMPL? TEMP12 + TAG11>
+ <NTHL TEMP12 1 = STACK>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG14>
+TAG11
+ <PUSH INS16>
+ <DEAD INS16>
+ <SET TEMP12 INS27>
+ <DEAD INS27>
+ <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
+TAG16
+ <INTGO>
+ <EMPL? TEMP12 + TAG15>
+ <NTHL TEMP12 1 = STACK>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG16>
+TAG15
+ <GVAL 'RE-GEN-POST = TEMP12>
+ <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
+TAG18
+ <INTGO>
+ <EMPL? TEMP12 + TAG17>
+ <NTHL TEMP12 1 = STACK>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG18>
+TAG17
+ <UBLOCK <TYPE-CODE UVECTOR> TEMP13 = TEMP13 (TYPE UVECTOR)>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE10
+ <SET TEMP13 1 (TYPE FIX)>
+ <GVAL 'RE-GEN-PRE = TEMP12>
+ <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
+TAG23
+ <INTGO>
+ <EMPL? TEMP12 + TAG20>
+ <NTHL TEMP12 1 = STACK>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG23>
+TAG20
+ <PUSH INS16>
+ <DEAD INS16>
+ <GVAL 'RE-GEN-POST = TEMP12>
+ <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
+TAG25
+ <INTGO>
+ <EMPL? TEMP12 + TAG24>
+ <NTHL TEMP12 1 = STACK>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG25>
+TAG24
+ <UBLOCK <TYPE-CODE UVECTOR> TEMP13 = TEMP13 (TYPE UVECTOR)>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aRE-GEN>
+
+#WORD *7317467555*
+ <GFCN \1aGET-I-FIELD ("VALUE" FIX ANY) X4>
+ <TEMP TEMP5:FIX>
+ <INTGO>
+ <LSH X4 -24 = TEMP5 (TYPE FIX)>
+ <DEAD X4>
+ <RETURN TEMP5>
+ <DEAD TEMP5>
+ <END \1aGET-I-FIELD>
+
+#WORD *3310107271*
+ <GFCN \1aGET-S-FIELD ("VALUE" FIX ANY) X4>
+ <TEMP TEMP6:FIX OP15:FIX>
+ <INTGO>
+ <LSH X4 -16 = TEMP6 (TYPE FIX)>
+ <DEAD X4>
+ <AND TEMP6 #WORD *377* = OP15>
+ <DEAD TEMP6>
+ <AND OP15 #WORD *360* = TEMP6>
+ <VEQUAL? TEMP6 80 - PHRASE8 (TYPE FIX)>
+ <DEAD TEMP6>
+ <AND OP15 #WORD *17* = TEMP6>
+ <DEAD OP15>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+PHRASE8
+ <RETURN -1>
+ <END \1aGET-S-FIELD>
+
+#WORD *20303650247*
+ <GFCN \1aINT-RE-GEN ("VALUE" ATOM CODEVEC AC <OR FALSE PTN-SAVE>) CDV4 AC5 PSAVE6>
+ <TEMP TEMP7 IFLD10 IREG11:FIX TEMP25:FIX>
+ <INTGO>
+ <LOOP>
+AGAIN13
+ <INTGO>
+ <EMPUU? CDV4 - PHRASE15 (TYPE UVECTOR)>
+ <RETURN 'T>
+PHRASE15
+ <FRAME '\1aGET-I-FIELD>
+ <NTHUU CDV4 1 = TEMP7 (TYPE FIX)>
+ <PUSH TEMP7>
+ <CALL '\1aGET-I-FIELD 1 = IFLD10>
+ <FRAME '\1aGET-S-FIELD>
+ <PUSH TEMP7>
+ <CALL '\1aGET-S-FIELD 1 = IREG11>
+ <VEQUAL? IFLD10 90 - PHRASE19 (TYPE FIX)>
+ <FRAME '\1aGET-PTNS>
+ <AND TEMP7 #WORD *377777* = STACK>
+ <CALL '\1aGET-PTNS 1 = PSAVE6>
+ <FRAME '\1aPSTORE-RE-GEN>
+ <NTHUV PSAVE6 1 = STACK (TYPE UVECTOR)>
+ <PUSH AC5>
+ <PUSH PSAVE6>
+ <PUSH TEMP7>
+ <DEAD TEMP7>
+ <CALL '\1aPSTORE-RE-GEN 4>
+ <RESTUU CDV4 1 = CDV4 (TYPE UVECTOR)>
+ <JUMP + AGAIN13>
+PHRASE19
+ <VEQUAL? IFLD10 176 + BOOL24 (TYPE FIX)>
+ <VEQUAL? IFLD10 208 + BOOL24 (TYPE FIX)>
+ <VEQUAL? IFLD10 144 - PHRASE22 (TYPE FIX)>
+BOOL24
+ <NTHUV AC5 2 = TEMP25 (TYPE FIX)>
+ <VEQUAL? IREG11 TEMP25 - PHRASE22 (TYPE FIX)>
+ <DEAD IREG11 TEMP25>
+ <FRAME '\1aGROUP-INST>
+ <PUSH 'POST>
+ <PUSH PSAVE6>
+ <PUSH TEMP7>
+ <DEAD TEMP7>
+ <NTHUU CDV4 2 = TEMP25 (TYPE FIX)>
+ <CONS TEMP25 () = STACK>
+ <DEAD TEMP25>
+ <CALL '\1aGROUP-INST 4>
+ <RESTUU CDV4 2 = CDV4 (TYPE UVECTOR)>
+ <JUMP + AGAIN13>
+PHRASE22
+ <EQUAL? IFLD10 144 + BOOL30>
+ <EQUAL? IFLD10 176 + BOOL30>
+ <EQUAL? IFLD10 208 - PHRASE29>
+ <DEAD IFLD10>
+BOOL30
+ <FRAME '\1aGROUP-INST>
+ <PUSH 'PRE>
+ <PUSH PSAVE6>
+ <PUSH TEMP7>
+ <DEAD TEMP7>
+ <NTHUU CDV4 2 = TEMP25 (TYPE FIX)>
+ <CONS TEMP25 () = STACK>
+ <DEAD TEMP25>
+ <CALL '\1aGROUP-INST 4>
+ <RESTUU CDV4 2 = CDV4 (TYPE UVECTOR)>
+ <JUMP + AGAIN13>
+PHRASE29
+ <FRAME '\1aGROUP-INST>
+ <PUSH 'PRE>
+ <PUSH PSAVE6>
+ <PUSH TEMP7>
+ <DEAD TEMP7>
+ <PUSH %<>>
+ <CALL '\1aGROUP-INST 4>
+ <RESTUU CDV4 1 = CDV4 (TYPE UVECTOR)>
+ <JUMP + AGAIN13>
+ <END \1aINT-RE-GEN>
+
+#WORD *116556126*
+ <GFCN \1aPSTORE-RE-GEN ("VALUE" ANY CODEVEC AC <OR FALSE PTN-SAVE> FIX) CDV4 AC5 PSAVE6 INST7>
+ <TEMP TEMP11>
+ <INTGO>
+ <FRAME '\1aTEST-PRE-POST>
+ <PUSH CDV4>
+ <PUSH AC5>
+ <CALL '\1aTEST-PRE-POST 2 = TEMP11>
+ <EQUAL? TEMP11 'ALL-PRE - PHRASE9>
+ <DEAD TEMP11>
+ <FRAME '\1aGROUP-INST>
+ <PUSH 'PRE>
+ <PUSH %<>>
+ <PUSH INST7>
+ <DEAD INST7>
+ <PUSH %<>>
+ <CALL '\1aGROUP-INST 4 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE9
+ <FRAME '\1aTEST-PRE-POST>
+ <PUSH CDV4>
+ <PUSH AC5>
+ <CALL '\1aTEST-PRE-POST 2 = TEMP11>
+ <EQUAL? TEMP11 'ALL-POST - PHRASE13>
+ <DEAD TEMP11>
+ <FRAME '\1aGROUP-INST>
+ <PUSH 'POST>
+ <PUSH %<>>
+ <PUSH INST7>
+ <DEAD INST7>
+ <PUSH %<>>
+ <CALL '\1aGROUP-INST 4 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE13
+ <FRAME '\1aINT-RE-GEN>
+ <PUSH CDV4>
+ <DEAD CDV4>
+ <PUSH AC5>
+ <DEAD AC5>
+ <PUSH PSAVE6>
+ <DEAD PSAVE6>
+ <CALL '\1aINT-RE-GEN 3 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aPSTORE-RE-GEN>
+
+#WORD *14733464643*
+ <GFCN \1aTEST-PRE-POST ("VALUE" <OR ATOM FALSE> CODEVEC AC) CDV4 AC5>
+ <TEMP (MODE6 %<>) INST13:FIX IFLD10:FIX TEMP23:FIX>
+ <INTGO>
+ <LOOP>
+AGAIN14
+ <INTGO>
+ <EMPUU? CDV4 - PHRASE16 (TYPE UVECTOR)>
+ <RETURN MODE6>
+ <DEAD MODE6>
+PHRASE16
+ <FRAME '\1aGET-I-FIELD>
+ <NTHUU CDV4 1 = INST13 (TYPE FIX)>
+ <PUSH INST13>
+ <CALL '\1aGET-I-FIELD 1 = IFLD10>
+ <FRAME '\1aGET-S-FIELD>
+ <PUSH INST13>
+ <DEAD INST13>
+ <CALL '\1aGET-S-FIELD 1 = INST13>
+ <VEQUAL? IFLD10 176 + BOOL22 (TYPE FIX)>
+ <VEQUAL? IFLD10 208 - PHRASE20 (TYPE FIX)>
+BOOL22
+ <NTHUV AC5 2 = TEMP23 (TYPE FIX)>
+ <VEQUAL? INST13 TEMP23 - PHRASE20 (TYPE FIX)>
+ <DEAD INST13 TEMP23>
+ <EQUAL? MODE6 'ALL-PRE + PHRASE25>
+ <DEAD MODE6>
+ <SET MODE6 'ALL-POST (TYPE ATOM)>
+ <JUMP + COND24>
+PHRASE25
+ <RETURN 'MIXED>
+COND24
+ <RESTUU CDV4 2 = CDV4 (TYPE UVECTOR)>
+ <JUMP + AGAIN14>
+PHRASE20
+ <EQUAL? MODE6 'ALL-POST - PHRASE28>
+ <DEAD MODE6>
+ <RETURN 'MIXED>
+PHRASE28
+ <SET MODE6 'ALL-PRE (TYPE ATOM)>
+ <VEQUAL? IFLD10 144 + BOOL31 (TYPE FIX)>
+ <VEQUAL? IFLD10 176 + BOOL31 (TYPE FIX)>
+ <VEQUAL? IFLD10 208 - PHRASE30 (TYPE FIX)>
+ <DEAD IFLD10>
+BOOL31
+ <RESTUU CDV4 2 = CDV4 (TYPE UVECTOR)>
+ <JUMP + AGAIN14>
+PHRASE30
+ <RESTUU CDV4 1 = CDV4 (TYPE UVECTOR)>
+ <JUMP + AGAIN14>
+ <END \1aTEST-PRE-POST>
+
+#WORD *124034536*
+ <GFCN \1aGROUP-INST ("VALUE" LIST ATOM <OR FALSE PTN-SAVE> FIX <OR FALSE LIST>) MODE4 PSAVE5 INST16 INST27>
+ <TEMP TEMP16 TEMP15 NPSAVE9 TEMP32 TEMP33>
+ <INTGO>
+ <TYPE? PSAVE5 <TYPE-CODE FALSE> + PHRASE11>
+ <TYPE? INST27 <TYPE-CODE FALSE> + PHRASE13>
+ <PUSH INST16>
+ <DEAD INST16>
+ <SET TEMP16 1 (TYPE FIX)>
+ <SET TEMP15 INST27>
+ <DEAD INST27>
+ <LOOP (TEMP15 VALUE) (TEMP16 VALUE)>
+TAG17
+ <INTGO>
+ <EMPL? TEMP15 + TAG14>
+ <NTHL TEMP15 1 = STACK>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG17>
+TAG14
+ <UBLOCK <TYPE-CODE UVECTOR> TEMP16 = TEMP16 (TYPE UVECTOR)>
+ <JUMP + COND12>
+PHRASE13
+ <PUSH INST16>
+ <DEAD INST16>
+ <UBLOCK <TYPE-CODE UVECTOR> 1 = TEMP16 (TYPE UVECTOR)>
+COND12
+ <FRAME '\1aCOPY-PSAVE>
+ <PUSH PSAVE5>
+ <DEAD PSAVE5>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aCOPY-PSAVE 2 = NPSAVE9>
+ <VEQUAL? MODE4 'PRE - PHRASE22>
+ <DEAD MODE4>
+ <GVAL 'RE-GEN-PRE = TEMP16>
+ <CONS NPSAVE9 TEMP16 = TEMP16>
+ <DEAD NPSAVE9>
+ <SETG 'RE-GEN-PRE TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE22
+ <GVAL 'RE-GEN-POST = TEMP15>
+ <CONS NPSAVE9 TEMP15 = TEMP15>
+ <DEAD NPSAVE9>
+ <SETG 'RE-GEN-POST TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE11
+ <VEQUAL? MODE4 'PRE - PHRASE25>
+ <DEAD MODE4>
+ <TYPE? INST27 <TYPE-CODE FALSE> + PHRASE27>
+ <GVAL 'RE-GEN-PRE = TEMP15>
+ <SET TEMP16 INST27>
+ <DEAD INST27>
+ <SET NPSAVE9 TEMP15>
+ <EMPL? TEMP16 + TAG29>
+ <NTHL TEMP16 1 = TEMP32>
+ <CONS TEMP32 TEMP15 = TEMP32>
+ <SET NPSAVE9 TEMP32>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <EMPL? TEMP16 + TAG29>
+ <LOOP (TEMP16 VALUE) (TEMP32 VALUE) (TEMP15 VALUE)>
+TAG28
+ <NTHL TEMP16 1 = TEMP33>
+ <CONS TEMP33 TEMP15 = TEMP33>
+ <PUTREST TEMP32 TEMP33>
+ <DEAD TEMP32>
+ <SET TEMP32 TEMP33>
+ <DEAD TEMP33>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <EMPL? TEMP16 - TAG28>
+TAG29
+ <CONS INST16 NPSAVE9 = NPSAVE9>
+ <DEAD INST16>
+ <SETG 'RE-GEN-PRE NPSAVE9>
+ <RETURN NPSAVE9>
+ <DEAD NPSAVE9>
+PHRASE27
+ <GVAL 'RE-GEN-PRE = NPSAVE9>
+ <CONS INST16 NPSAVE9 = NPSAVE9>
+ <DEAD INST16>
+ <SETG 'RE-GEN-PRE NPSAVE9>
+ <RETURN NPSAVE9>
+ <DEAD NPSAVE9>
+PHRASE25
+ <TYPE? INST27 <TYPE-CODE FALSE> + PHRASE35>
+ <GVAL 'RE-GEN-POST = NPSAVE9>
+ <SET TEMP32 INST27>
+ <DEAD INST27>
+ <SET TEMP16 NPSAVE9>
+ <EMPL? TEMP32 + TAG37>
+ <NTHL TEMP32 1 = TEMP33>
+ <CONS TEMP33 NPSAVE9 = TEMP33>
+ <SET TEMP16 TEMP33>
+ <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
+ <EMPL? TEMP32 + TAG37>
+ <LOOP (TEMP32 VALUE) (TEMP33 VALUE) (NPSAVE9 VALUE)>
+TAG36
+ <NTHL TEMP32 1 = TEMP15>
+ <CONS TEMP15 NPSAVE9 = TEMP15>
+ <PUTREST TEMP33 TEMP15>
+ <DEAD TEMP33>
+ <SET TEMP33 TEMP15>
+ <DEAD TEMP15>
+ <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
+ <EMPL? TEMP32 - TAG36>
+TAG37
+ <CONS INST16 TEMP16 = TEMP16>
+ <DEAD INST16>
+ <SETG 'RE-GEN-POST TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE35
+ <GVAL 'RE-GEN-POST = TEMP16>
+ <CONS INST16 TEMP16 = TEMP16>
+ <DEAD INST16>
+ <SETG 'RE-GEN-POST TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aGROUP-INST>
+
+#WORD *24222734321*
+ <GFCN \1aGEN-INSERT ("VALUE" ANY AC-STATE AC-STATE "OPTIONAL" ANY) JSSTATE6 LSSTATE7 XREF8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP16 JLV21:LINKVAR VAR23>
+ <INTGO>
+ <FRAME '\1aSTART-CODE-INSERT>
+ <CALL '\1aSTART-CODE-INSERT 0>
+ <SET TEMP16 JSSTATE6 (TYPE VECTOR)>
+ <DEAD JSSTATE6>
+ <LOOP>
+MAP11
+ <INTGO>
+ <EMPUV? TEMP16 + MAPAP14>
+ <NTHUV TEMP16 1 = JLV21>
+ <NTHUV JLV21 1 = VAR23 (TYPE VARTBL)>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR23>
+ <DEAD VAR23>
+ <PUSH LSSTATE7>
+ <CALL '\1aFIND-CACHE-VAR 2 = VAR23>
+ <TYPE? VAR23 <TYPE-CODE FALSE> + PHRASE25>
+ <FRAME '\1aCHECK-VALUE-STORED>
+ <PUSH JLV21>
+ <PUSH VAR23>
+ <PUSH XREF8>
+ <CALL '\1aCHECK-VALUE-STORED 3>
+ <FRAME '\1aCHECK-TYPE-STORED>
+ <PUSH JLV21>
+ <PUSH VAR23>
+ <PUSH XREF8>
+ <CALL '\1aCHECK-TYPE-STORED 3>
+ <FRAME '\1aCHECK-COUNT-STORED>
+ <PUSH JLV21>
+ <DEAD JLV21>
+ <PUSH VAR23>
+ <DEAD VAR23>
+ <PUSH XREF8>
+ <CALL '\1aCHECK-COUNT-STORED 3>
+ <JUMP + PHRASE30>
+PHRASE25
+ <FRAME '\1aISTORE-VAR>
+ <PUSH JLV21>
+ <DEAD JLV21>
+ <PUSH XREF8>
+ <CALL '\1aISTORE-VAR 2>
+PHRASE30
+ <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
+ <JUMP + MAP11>
+MAPAP14
+ <FRAME '\1aEND-CODE-INSERT>
+ <CALL '\1aEND-CODE-INSERT 0 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aGEN-INSERT>
+
+#WORD *23011313313*
+ <GFCN \1aADJUST-PRE-LABEL ("VALUE" ANY AC-STATE AC-STATE FIX) JSSTATE4 LSSTATE5 PATCH6>
+ <TEMP SVEC7>
+ <INTGO>
+ <FRAME '\1aGEN-INSERT>
+ <PUSH JSSTATE4>
+ <DEAD JSSTATE4>
+ <PUSH LSSTATE5>
+ <DEAD LSSTATE5>
+ <CALL '\1aGEN-INSERT 2 = SVEC7>
+ <FRAME '\1aINSERT-PATCH>
+ <PUSH PATCH6>
+ <DEAD PATCH6>
+ <PUSH SVEC7>
+ <DEAD SVEC7>
+ <CALL '\1aINSERT-PATCH 2 = SVEC7>
+ <RETURN SVEC7>
+ <DEAD SVEC7>
+ <END \1aADJUST-PRE-LABEL>
+
+#WORD *12331740371*
+ <GFCN \1aCHECK-VALUE-STORED ("VALUE" ANY LINKVAR LINKVAR <OR FALSE XREF-INFO>) JLV4 LLV5 XREF6>
+ <TEMP VAR9:VARTBL TEMP13 DADDR7>
+ <INTGO>
+ <NTHUV JLV4 1 = VAR9 (TYPE VARTBL)>
+ <NTHUV JLV4 6 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + BOOL26>
+ <NTHUV LLV5 6 = TEMP13>
+ <DEAD LLV5>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + TAG16>
+ <DEAD TEMP13>
+ <RETURN %<>>
+TAG16
+ <NTHUV JLV4 2 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + TAG17>
+ <DEAD TEMP13>
+ <RETURN %<>>
+TAG17
+ <FRAME '\1aSTART-CODE-INSERT>
+ <CALL '\1aSTART-CODE-INSERT 0>
+ <NTHUV JLV4 6 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE20>
+ <FRAME '\1aERROR>
+ <PUSH "VARIABLE NOT IN AC">
+ <PUSH 'CHECK-VALUE-STORED>
+ <CALL '\1aERROR 2>
+PHRASE20
+ <FRAME '\1aADDR-VAR-VALUE>
+ <PUSH VAR9>
+ <CALL '\1aADDR-VAR-VALUE 1 = DADDR7>
+ <FRAME '\1aEMIT-STORE-AC>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH DADDR7>
+ <DEAD DADDR7>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-STORE-AC 3>
+ <PUTUV JLV4 2 'T>
+ <FRAME '\1aEND-CODE-INSERT>
+ <CALL '\1aEND-CODE-INSERT 0 = TEMP13>
+ <FRAME '\1aEMIT-POTENTIAL-STORE>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH 'VALUE>
+ <PUSH JLV4>
+ <DEAD JLV4>
+ <CALL '\1aEMIT-POTENTIAL-STORE 3>
+ <SET TEMP13 XREF6>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + BOOL26>
+ <FRAME '\1aKILL-STORES>
+ <PUSH XREF6>
+ <DEAD XREF6>
+ <PUSH 'VALUE>
+ <PUSH VAR9>
+ <DEAD VAR9>
+ <CALL '\1aKILL-STORES 3 = TEMP13>
+BOOL26
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aCHECK-VALUE-STORED>
+
+#WORD *36155130605*
+ <GFCN \1aKILL-STORES ("VALUE" ANY XREF-INFO ATOM VARTBL) XREF4 KIND5 VAR6>
+ <TEMP TEMP16 TEMP18:LIST PSAVE19:PTN-SAVE>
+ <INTGO>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <NTHUV XREF4 11 = TEMP18 (TYPE LIST)>
+ <DEAD XREF4>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPL? TEMP18 + MAPAP11>
+ <NTHL TEMP18 1 = PSAVE19>
+ <NTHUV PSAVE19 2 = TEMP16 (TYPE VARTBL)>
+ <VEQUAL? TEMP16 VAR6 + TAG23>
+ <DEAD TEMP16>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE21>
+TAG23
+ <FRAME '\1aSTRONGER-SAVE?>
+ <PUSH KIND5>
+ <NTHUV PSAVE19 3 = STACK (TYPE ATOM)>
+ <CALL '\1aSTRONGER-SAVE? 2 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE21>
+ <FRAME '\1aKILL-PSAVE>
+ <PUSH PSAVE19>
+ <DEAD PSAVE19>
+ <CALL '\1aKILL-PSAVE 1 = TEMP16>
+PHRASE21
+ <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
+ <JUMP + MAP8>
+MAPAP11
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aKILL-STORES>
+
+#WORD *3171373371*
+ <GFCN \1aSTRONGER-SAVE? ("VALUE" <OR ATOM FALSE> ATOM ATOM) KIND14 KIND25>
+ <TEMP TEMP7>
+ <INTGO>
+ <VEQUAL? KIND14 KIND25 - TAG8>
+ <RETURN 'T>
+TAG8
+ <VEQUAL? KIND14 'TYPE-COUNT-VALUE - TAG9>
+ <RETURN 'T>
+TAG9
+ <VEQUAL? KIND14 'TYPE-COUNT - TAG13>
+ <VEQUAL? KIND25 'TYPE - TAG12>
+ <RETURN 'T>
+TAG12
+ <VEQUAL? KIND25 'COUNT - TAG13>
+ <RETURN 'T>
+TAG13
+ <VEQUAL? KIND14 'TYPE-VALUE - TAG17>
+ <VEQUAL? KIND25 'TYPE - TAG16>
+ <RETURN 'T>
+TAG16
+ <VEQUAL? KIND25 'VALUE - TAG17>
+ <RETURN 'T>
+TAG17
+ <VEQUAL? KIND14 'COUNT-VALUE + TAG19>
+ <DEAD KIND14>
+ <RETURN %<>>
+TAG19
+ <VEQUAL? KIND25 'COUNT - TAG21>
+ <RETURN 'T>
+TAG21
+ <VEQUAL? KIND25 'VALUE - TAG22>
+ <DEAD KIND25>
+ <RETURN 'T>
+TAG22
+ <RETURN %<>>
+ <END \1aSTRONGER-SAVE?>
+
+#WORD *10434565332*
+ <GFCN \1aCHECK-TYPE-STORED ("VALUE" ANY LINKVAR LINKVAR <OR FALSE XREF-INFO>) JLV4 LLV5 XREF6>
+ <TEMP VAR10:VARTBL (KIND12 'TYPE) TEMP17 TAC8>
+ <INTGO>
+ <NTHUV JLV4 1 = VAR10 (TYPE VARTBL)>
+ <NTHUV JLV4 4 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG18>
+ <DEAD TEMP17>
+ <RETURN %<>>
+TAG18
+ <NTHUV LLV5 5 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG19>
+ <DEAD TEMP17>
+ <RETURN %<>>
+TAG19
+ <NTHUV LLV5 7 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG20>
+ <DEAD TEMP17>
+ <RETURN %<>>
+TAG20
+ <NTHUV LLV5 9 = TEMP17>
+ <DEAD LLV5>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG21>
+ <DEAD TEMP17>
+ <RETURN %<>>
+TAG21
+ <FRAME '\1aSTART-CODE-INSERT>
+ <CALL '\1aSTART-CODE-INSERT 0>
+ <FRAME '\1aADDR-VAR-TYPE>
+ <PUSH VAR10>
+ <CALL '\1aADDR-VAR-TYPE 1 = TEMP17>
+ <PUTUV JLV4 4 'T>
+ <NTHUV JLV4 9 = TAC8>
+ <TYPE? TAC8 <TYPE-CODE FALSE> + PHRASE25>
+ <FRAME '\1aEMIT-STORE-AC>
+ <PUSH TAC8>
+ <DEAD TAC8>
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-STORE-AC 3>
+ <PUTUV JLV4 3 'T>
+ <SET KIND12 'TYPE-COUNT (TYPE ATOM)>
+ <JUMP + COND24>
+PHRASE25
+ <NTHUV JLV4 5 = TAC8>
+ <TYPE? TAC8 <TYPE-CODE FALSE> + PHRASE27>
+ <FRAME '\1aSTORE-TYPE>
+ <PUSH TAC8>
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <CALL '\1aSTORE-TYPE 2>
+ <FRAME '\1aCOUNT-NEEDED?>
+ <PUSH TAC8>
+ <DEAD TAC8>
+ <CALL '\1aCOUNT-NEEDED? 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - COND24>
+ <DEAD TEMP17>
+ <PUTUV JLV4 3 'T>
+ <JUMP + COND24>
+PHRASE27
+ <NTHUV JLV4 7 = TAC8>
+ <TYPE? TAC8 <TYPE-CODE FALSE> + PHRASE32>
+ <FRAME '\1aEMIT-STORE-AC>
+ <PUSH TAC8>
+ <DEAD TAC8>
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-STORE-AC 3>
+ <JUMP + COND24>
+PHRASE32
+ <FRAME '\1aERROR>
+ <PUSH "VARIABLE NOT IN AC">
+ <PUSH 'ISTORE-ADDR>
+ <CALL '\1aERROR 2>
+COND24
+ <FRAME '\1aEND-CODE-INSERT>
+ <CALL '\1aEND-CODE-INSERT 0 = TEMP17>
+ <FRAME '\1aEMIT-POTENTIAL-STORE>
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <PUSH KIND12>
+ <PUSH JLV4>
+ <DEAD JLV4>
+ <CALL '\1aEMIT-POTENTIAL-STORE 3>
+ <SET TEMP17 XREF6>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL37>
+ <FRAME '\1aKILL-STORES>
+ <PUSH XREF6>
+ <DEAD XREF6>
+ <PUSH KIND12>
+ <DEAD KIND12>
+ <PUSH VAR10>
+ <DEAD VAR10>
+ <CALL '\1aKILL-STORES 3 = TEMP17>
+BOOL37
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aCHECK-TYPE-STORED>
+
+#WORD *30327525312*
+ <GFCN \1aCHECK-COUNT-STORED ("VALUE" ANY LINKVAR LINKVAR <OR FALSE XREF-INFO>) JLV4 LLV5 XREF6>
+ <TEMP (KIND11 'COUNT) VAR12:VARTBL TEMP17 TAC8>
+ <INTGO>
+ <NTHUV JLV4 1 = VAR12 (TYPE VARTBL)>
+ <NTHUV LLV5 8 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG18>
+ <DEAD TEMP17>
+ <RETURN %<>>
+TAG18
+ <NTHUV LLV5 9 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG19>
+ <DEAD TEMP17>
+ <RETURN %<>>
+TAG19
+ <NTHUV JLV4 3 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG20>
+ <DEAD TEMP17>
+ <RETURN %<>>
+TAG20
+ <NTHUV LLV5 5 = TEMP17>
+ <DEAD LLV5>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL21>
+ <FRAME '\1aCOUNT-NEEDED?>
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <CALL '\1aCOUNT-NEEDED? 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL35>
+BOOL21
+ <NTHUV JLV4 5 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL23>
+ <FRAME '\1aCOUNT-NEEDED?>
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <CALL '\1aCOUNT-NEEDED? 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL35>
+BOOL23
+ <FRAME '\1aSTART-CODE-INSERT>
+ <CALL '\1aSTART-CODE-INSERT 0>
+ <FRAME '\1aADDR-VAR-COUNT>
+ <NTHUV JLV4 1 = STACK (TYPE VARTBL)>
+ <CALL '\1aADDR-VAR-COUNT 1 = TEMP17>
+ <PUTUV JLV4 3 'T>
+ <NTHUV JLV4 9 = TAC8>
+ <TYPE? TAC8 <TYPE-CODE FALSE> + PHRASE28>
+ <FRAME '\1aADDR-VAR-TYPE>
+ <NTHUV JLV4 1 = STACK (TYPE VARTBL)>
+ <CALL '\1aADDR-VAR-TYPE 1 = TEMP17>
+ <FRAME '\1aEMIT-STORE-AC>
+ <PUSH TAC8>
+ <DEAD TAC8>
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <PUSH 'LONG>
+ <CALL '\1aEMIT-STORE-AC 3>
+ <PUTUV JLV4 4 'T>
+ <SET KIND11 'TYPE-COUNT (TYPE ATOM)>
+ <JUMP + PHRASE31>
+PHRASE28
+ <NTHUV JLV4 8 = TAC8>
+ <TYPE? TAC8 <TYPE-CODE FALSE> + PHRASE31>
+ <FRAME '\1aEMIT-STORE-AC>
+ <PUSH TAC8>
+ <DEAD TAC8>
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <PUSH 'WORD>
+ <CALL '\1aEMIT-STORE-AC 3>
+PHRASE31
+ <FRAME '\1aEND-CODE-INSERT>
+ <CALL '\1aEND-CODE-INSERT 0 = TEMP17>
+ <FRAME '\1aEMIT-POTENTIAL-STORE>
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <PUSH KIND11>
+ <PUSH JLV4>
+ <DEAD JLV4>
+ <CALL '\1aEMIT-POTENTIAL-STORE 3>
+ <SET TEMP17 XREF6>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL35>
+ <FRAME '\1aKILL-STORES>
+ <PUSH XREF6>
+ <DEAD XREF6>
+ <PUSH KIND11>
+ <DEAD KIND11>
+ <PUSH VAR12>
+ <DEAD VAR12>
+ <CALL '\1aKILL-STORES 3 = TEMP17>
+BOOL35
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aCHECK-COUNT-STORED>
+
+#WORD *1563173445*
+ <GFCN \1aSETUP-PSAVES ("VALUE" <OR FALSE LINKVAR> XREF-INFO) XREF4>
+ <TEMP CACHE5:VECTOR TEMP15 PSAVES18>
+ <INTGO>
+ <GVAL 'VARIABLE-CACHE = CACHE5>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPUV? CACHE5 + MAPAP10>
+ <NTHUV CACHE5 1 = TEMP15>
+ <NTHUV TEMP15 10 = PSAVES18 (TYPE LIST)>
+ <CONS XREF4 PSAVES18 = PSAVES18>
+ <PUTUV TEMP15 10 PSAVES18 (TYPE LIST)>
+ <DEAD PSAVES18>
+ <RESTUV CACHE5 1 = CACHE5 (TYPE VECTOR)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aSETUP-PSAVES>
+
+#WORD *5601706346*
+ <GFCN \1aLOOP-GEN ("VALUE" ATOM "TUPLE" <TUPLE [REST <OR ATOM LIST>]>)>
+ <MAKTUP VARS4:TUPLE TEMP12:VECTOR MVARS17:VECTOR VARLST18 TEMP23 = VARS4>
+ <INTGO>
+ <FRAME '\1aCLEAR-STATUS>
+ <CALL '\1aCLEAR-STATUS 0>
+ <CHTYPE VARS4 <TYPE-CODE VECTOR> = TEMP12>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPUV? TEMP12 + MAPAP10>
+ <SET MVARS17 TEMP12>
+ <NTHUV MVARS17 1 = VARLST18>
+ <TYPE? VARLST18 <TYPE-CODE ATOM> - PHRASE20>
+ <FRAME '\1aFIND-VAR>
+ <PUSH VARLST18>
+ <DEAD VARLST18>
+ <CALL '\1aFIND-VAR 1 = STACK>
+ <PUSH 'VALUE>
+ <LIST 2 = TEMP23 (TYPE LIST)>
+ <PUTUV MVARS17 1 TEMP23>
+ <DEAD MVARS17 TEMP23>
+ <JUMP + COND19>
+PHRASE20
+ <FRAME '\1aFIND-VAR>
+ <NTHL VARLST18 1 = STACK>
+ <CALL '\1aFIND-VAR 1 = TEMP23>
+ <CONS TEMP23 () = TEMP23>
+ <RESTL VARLST18 1 = VARLST18 (TYPE LIST)>
+ <PUTREST TEMP23 VARLST18>
+ <DEAD VARLST18>
+ <PUTUV MVARS17 1 TEMP23>
+ <DEAD MVARS17 TEMP23>
+COND19
+ <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
+ <JUMP + MAP7>
+MAPAP10
+ <FRAME '\1aSETUP-LOOP-ACS>
+ <PUSH VARS4>
+ <DEAD VARS4>
+ <CALL '\1aSETUP-LOOP-ACS 1>
+ <FRAME '\1aSAVE-STATE>
+ <CALL '\1aSAVE-STATE 0 = TEMP12>
+ <SETG 'LOOP-VARS TEMP12>
+ <DEAD TEMP12>
+ <FRAME '\1aCLEAR-STATUS>
+ <CALL '\1aCLEAR-STATUS 0>
+ <RETURN 'LOOP-LABEL>
+ <END \1aLOOP-GEN>
+
+#WORD *22546541532*
+ <GFCN \1aSETUP-LOOP-ACS ("VALUE" ATOM <TUPLE [REST LIST]>) VARS4>
+ <TEMP TEMP17:VECTOR LVAR18 VAR19 TEMP23 VS39 TS40 RVAR36 NLVAR37 TEMP47 TEMP48>
+ <INTGO>
+ <GVAL 'VARIABLE-CACHE = TEMP17>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPUV? TEMP17 + MAPAP10>
+ <NTHUV TEMP17 1 = LVAR18>
+ <NTHUV LVAR18 1 = VAR19 (TYPE VARTBL)>
+ <FRAME '\1aFIND-INFO>
+ <PUSH VAR19>
+ <PUSH VARS4>
+ <CALL '\1aFIND-INFO 2 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE21>
+ <DEAD TEMP23>
+ <FRAME '\1aISTORE-VAR>
+ <PUSH LVAR18>
+ <DEAD LVAR18>
+ <CALL '\1aISTORE-VAR 1>
+ <FRAME '\1aDEAD-VAR>
+ <PUSH VAR19>
+ <DEAD VAR19>
+ <CALL '\1aDEAD-VAR 1>
+PHRASE21
+ <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
+ <JUMP + MAP7>
+MAPAP10
+ <GVAL 'VARIABLE-CACHE = TEMP17>
+ <LOOP>
+MAP27
+ <INTGO>
+ <EMPUV? TEMP17 + MAPAP30>
+ <NTHUV TEMP17 1 = LVAR18>
+ <NTHUV LVAR18 1 = VAR19 (TYPE VARTBL)>
+ <NTHUV LVAR18 3 = TEMP23>
+ <NTHUV LVAR18 2 = VS39>
+ <NTHUV LVAR18 4 = TS40>
+ <FRAME '\1aFIND-INFO>
+ <PUSH VAR19>
+ <PUSH VARS4>
+ <CALL '\1aFIND-INFO 2 = RVAR36>
+ <FRAME '\1aCOPY-LINKVAR>
+ <PUSH LVAR18>
+ <CALL '\1aCOPY-LINKVAR 1 = NLVAR37>
+ <SET TEMP47 RVAR36>
+ <EMPL? TEMP47 + BOOL43>
+ <LOOP (TEMP47 VALUE)>
+TAG45
+ <NTHL TEMP47 1 = TEMP48>
+ <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG46>
+ <VEQUAL? TEMP48 'TYPE + TAG44>
+ <DEAD TEMP48>
+TAG46
+ <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
+ <EMPL? TEMP47 - TAG45>
+ <JUMP + BOOL43>
+TAG44
+ <SET TS40 'T (TYPE ATOM)>
+BOOL43
+ <SET TEMP47 RVAR36>
+ <EMPL? TEMP47 + BOOL49>
+ <LOOP (TEMP47 VALUE)>
+TAG51
+ <NTHL TEMP47 1 = TEMP48>
+ <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG52>
+ <VEQUAL? TEMP48 'VALUE + TAG50>
+ <DEAD TEMP48>
+TAG52
+ <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
+ <EMPL? TEMP47 - TAG51>
+ <JUMP + BOOL49>
+TAG50
+ <SET VS39 'T (TYPE ATOM)>
+BOOL49
+ <SET TEMP47 RVAR36>
+ <EMPL? TEMP47 + PHRASE54>
+ <LOOP (TEMP47 VALUE)>
+TAG56
+ <NTHL TEMP47 1 = TEMP48>
+ <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG57>
+ <VEQUAL? TEMP48 'LENGTH + TAG55>
+ <DEAD TEMP48>
+TAG57
+ <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
+ <EMPL? TEMP47 - TAG56>
+ <JUMP + PHRASE54>
+TAG55
+ <SET TEMP23 'T (TYPE ATOM)>
+ <SET TS40 'T (TYPE ATOM)>
+PHRASE54
+ <TYPE? VS39 <TYPE-CODE FALSE> + BOOL60>
+ <TYPE? TS40 <TYPE-CODE FALSE> + BOOL60>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE59>
+BOOL60
+ <FRAME '\1aISTORE-VAR>
+ <PUSH NLVAR37>
+ <CALL '\1aISTORE-VAR 1>
+ <JUMP + PHRASE62>
+PHRASE59
+ <PUTUV NLVAR37 3 TEMP23>
+ <DEAD TEMP23>
+ <PUTUV NLVAR37 4 TS40>
+ <DEAD TS40>
+ <PUTUV NLVAR37 2 VS39>
+ <DEAD VS39>
+PHRASE62
+ <NTHUV NLVAR37 7 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE64>
+ <SET TEMP47 RVAR36>
+ <EMPL? TEMP47 + TAG66>
+ <LOOP (TEMP47 VALUE)>
+TAG67
+ <NTHL TEMP47 1 = TEMP48>
+ <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG68>
+ <VEQUAL? TEMP48 'TYPE + PHRASE64>
+ <DEAD TEMP48>
+TAG68
+ <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
+ <EMPL? TEMP47 - TAG67>
+TAG66
+ <NTHUV LVAR18 7 = TEMP47>
+ <TYPE? TEMP47 <TYPE-CODE FALSE> + BOOL69>
+ <DEAD TEMP47>
+ <FRAME '\1aBREAK-LINK>
+ <PUSH TEMP23>
+ <DEAD TEMP23>
+ <PUSH VAR19>
+ <CALL '\1aBREAK-LINK 2>
+BOOL69
+ <PUTUV LVAR18 4 'T>
+PHRASE64
+ <NTHUV NLVAR37 8 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL77>
+ <SET TEMP47 RVAR36>
+ <EMPL? TEMP47 + TAG74>
+ <LOOP (TEMP47 VALUE)>
+TAG75
+ <NTHL TEMP47 1 = TEMP48>
+ <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG76>
+ <VEQUAL? TEMP48 'LENGTH + BOOL77>
+ <DEAD TEMP48>
+TAG76
+ <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
+ <EMPL? TEMP47 - TAG75>
+TAG74
+ <PUTUV LVAR18 3 'T>
+ <NTHUV LVAR18 8 = TEMP47>
+ <TYPE? TEMP47 <TYPE-CODE FALSE> + BOOL77>
+ <DEAD TEMP47>
+ <FRAME '\1aBREAK-LINK>
+ <PUSH TEMP23>
+ <DEAD TEMP23>
+ <PUSH VAR19>
+ <CALL '\1aBREAK-LINK 2>
+BOOL77
+ <NTHUV NLVAR37 9 = TEMP23>
+ <DEAD NLVAR37>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE80>
+ <SET TEMP47 RVAR36>
+ <EMPL? TEMP47 + TAG82>
+ <LOOP (TEMP47 VALUE)>
+TAG83
+ <NTHL TEMP47 1 = TEMP48>
+ <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG84>
+ <VEQUAL? TEMP48 'TYPE + PHRASE80>
+ <DEAD TEMP48>
+TAG84
+ <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
+ <EMPL? TEMP47 - TAG83>
+TAG82
+ <SET TEMP47 RVAR36>
+ <DEAD RVAR36>
+ <EMPL? TEMP47 + TAG85>
+ <LOOP (TEMP47 VALUE)>
+TAG86
+ <NTHL TEMP47 1 = TEMP48>
+ <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG87>
+ <VEQUAL? TEMP48 'LENGTH + PHRASE80>
+ <DEAD TEMP48>
+TAG87
+ <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
+ <EMPL? TEMP47 - TAG86>
+TAG85
+ <NTHUV LVAR18 9 = TEMP47>
+ <TYPE? TEMP47 <TYPE-CODE FALSE> + BOOL88>
+ <DEAD TEMP47>
+ <FRAME '\1aBREAK-LINK>
+ <PUSH TEMP23>
+ <DEAD TEMP23>
+ <PUSH VAR19>
+ <DEAD VAR19>
+ <CALL '\1aBREAK-LINK 2>
+BOOL88
+ <PUTUV LVAR18 4 'T>
+ <PUTUV LVAR18 3 'T>
+ <DEAD LVAR18>
+PHRASE80
+ <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
+ <JUMP + MAP27>
+MAPAP30
+ <CHTYPE VARS4 <TYPE-CODE VECTOR> = TEMP17>
+ <DEAD VARS4>
+ <LOOP>
+MAP91
+ <INTGO>
+ <EMPUV? TEMP17 + MAPAP94>
+ <NTHUV TEMP17 1 = LVAR18>
+ <NTHL LVAR18 1 = VAR19>
+ <FRAME '\1aVARTBL-ASSIGNED?>
+ <PUSH VAR19>
+ <CALL '\1aVARTBL-ASSIGNED? 1 = TEMP48>
+ <TYPE? TEMP48 <TYPE-CODE FALSE> + BOOL152>
+ <DEAD TEMP48>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR19>
+ <CALL '\1aFIND-CACHE-VAR 1 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL111>
+ <NTHUV TEMP23 7 = VS39>
+ <TYPE? VS39 <TYPE-CODE FALSE> + BOOL107>
+ <FRAME '\1aPROTECT>
+ <PUSH VS39>
+ <DEAD VS39>
+ <CALL '\1aPROTECT 1>
+BOOL107
+ <NTHUV TEMP23 8 = VS39>
+ <TYPE? VS39 <TYPE-CODE FALSE> + BOOL109>
+ <FRAME '\1aPROTECT>
+ <PUSH VS39>
+ <DEAD VS39>
+ <CALL '\1aPROTECT 1>
+BOOL109
+ <NTHUV TEMP23 9 = VS39>
+ <DEAD TEMP23>
+ <TYPE? VS39 <TYPE-CODE FALSE> + BOOL111>
+ <FRAME '\1aPROTECT>
+ <PUSH VS39>
+ <DEAD VS39>
+ <CALL '\1aPROTECT 1>
+BOOL111
+ <SET TEMP48 LVAR18>
+ <EMPL? TEMP48 + BOOL113>
+ <LOOP (TEMP48 VALUE)>
+TAG115
+ <NTHL TEMP48 1 = VS39>
+ <TYPE? VS39 <TYPE-CODE ATOM> - TAG116>
+ <VEQUAL? VS39 'VALUE + TAG114>
+ <DEAD VS39>
+TAG116
+ <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
+ <EMPL? TEMP48 - TAG115>
+ <JUMP + BOOL113>
+TAG114
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aLOAD-VAR-APP>
+ <PUSH VAR19>
+ <PUSH %<>>
+ <CALL '\1aLOAD-VAR-APP 2 = STACK>
+ <CALL '\1aPROTECT 1>
+BOOL113
+ <SET TEMP48 LVAR18>
+ <EMPL? TEMP48 + PHRASE121>
+ <LOOP (TEMP48 VALUE)>
+TAG124
+ <NTHL TEMP48 1 = VS39>
+ <TYPE? VS39 <TYPE-CODE ATOM> - TAG125>
+ <VEQUAL? VS39 'TYPE + TAG123>
+ <DEAD VS39>
+TAG125
+ <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
+ <EMPL? TEMP48 - TAG124>
+ <JUMP + PHRASE121>
+TAG123
+ <SET TEMP48 LVAR18>
+ <EMPL? TEMP48 + PHRASE121>
+ <LOOP (TEMP48 VALUE)>
+TAG127
+ <NTHL TEMP48 1 = VS39>
+ <TYPE? VS39 <TYPE-CODE ATOM> - TAG128>
+ <VEQUAL? VS39 'LENGTH + TAG126>
+ <DEAD VS39>
+TAG128
+ <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
+ <EMPL? TEMP48 - TAG127>
+ <JUMP + PHRASE121>
+TAG126
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR19>
+ <PUSH 'TYPE-WORD>
+ <PUSH %<>>
+ <PUSH 'PREF-TYPE>
+ <CALL '\1aLOAD-VAR 4 = STACK>
+ <CALL '\1aPROTECT 1>
+ <JUMP + PHRASE137>
+PHRASE121
+ <SET TEMP48 LVAR18>
+ <EMPL? TEMP48 + PHRASE131>
+ <LOOP (TEMP48 VALUE)>
+TAG133
+ <NTHL TEMP48 1 = VS39>
+ <TYPE? VS39 <TYPE-CODE ATOM> - TAG134>
+ <VEQUAL? VS39 'TYPE + TAG132>
+ <DEAD VS39>
+TAG134
+ <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
+ <EMPL? TEMP48 - TAG133>
+ <JUMP + PHRASE131>
+TAG132
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR19>
+ <PUSH 'TYPE>
+ <PUSH %<>>
+ <PUSH 'PREF-TYPE>
+ <CALL '\1aLOAD-VAR 4 = STACK>
+ <CALL '\1aPROTECT 1>
+ <JUMP + PHRASE137>
+PHRASE131
+ <SET TEMP48 LVAR18>
+ <EMPL? TEMP48 + PHRASE137>
+ <LOOP (TEMP48 VALUE)>
+TAG139
+ <NTHL TEMP48 1 = VS39>
+ <TYPE? VS39 <TYPE-CODE ATOM> - TAG140>
+ <VEQUAL? VS39 'LENGTH + TAG138>
+ <DEAD VS39>
+TAG140
+ <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
+ <EMPL? TEMP48 - TAG139>
+ <JUMP + PHRASE137>
+TAG138
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR19>
+ <PUSH 'TYPE-WORD>
+ <PUSH %<>>
+ <PUSH 'PREF-TYPE>
+ <CALL '\1aLOAD-VAR 4 = STACK>
+ <CALL '\1aPROTECT 1>
+PHRASE137
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR19>
+ <DEAD VAR19>
+ <CALL '\1aFIND-CACHE-VAR 1 = TEMP23>
+ <PUTUV TEMP23 10 () (TYPE LIST)>
+ <SET TEMP48 LVAR18>
+ <EMPL? TEMP48 + BOOL144>
+ <LOOP (TEMP48 VALUE)>
+TAG146
+ <NTHL TEMP48 1 = VS39>
+ <TYPE? VS39 <TYPE-CODE ATOM> - TAG147>
+ <VEQUAL? VS39 'TYPE + TAG145>
+ <DEAD VS39>
+TAG147
+ <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
+ <EMPL? TEMP48 - TAG146>
+ <JUMP + BOOL144>
+TAG145
+ <PUTUV TEMP23 4 %<>>
+BOOL144
+ <SET TEMP48 LVAR18>
+ <EMPL? TEMP48 + BOOL148>
+ <LOOP (TEMP48 VALUE)>
+TAG150
+ <NTHL TEMP48 1 = VS39>
+ <TYPE? VS39 <TYPE-CODE ATOM> - TAG151>
+ <VEQUAL? VS39 'VALUE + TAG149>
+ <DEAD VS39>
+TAG151
+ <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
+ <EMPL? TEMP48 - TAG150>
+ <JUMP + BOOL148>
+TAG149
+ <PUTUV TEMP23 2 %<>>
+BOOL148
+ <SET TEMP48 LVAR18>
+ <DEAD LVAR18>
+ <EMPL? TEMP48 + BOOL152>
+ <LOOP (TEMP48 VALUE)>
+TAG154
+ <NTHL TEMP48 1 = VS39>
+ <TYPE? VS39 <TYPE-CODE ATOM> - TAG155>
+ <VEQUAL? VS39 'LENGTH + TAG153>
+ <DEAD VS39>
+TAG155
+ <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
+ <EMPL? TEMP48 - TAG154>
+ <JUMP + BOOL152>
+TAG153
+ <PUTUV TEMP23 3 %<>>
+ <DEAD TEMP23>
+BOOL152
+ <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
+ <JUMP + MAP91>
+MAPAP94
+ <RETURN 'T>
+ <END \1aSETUP-LOOP-ACS>
+
+#WORD *26057022456*
+ <GFCN \1aFIND-INFO ("VALUE" <OR FALSE <LIST ANY>> VARTBL <TUPLE [REST LIST]>) VAR4 VARS5>
+ <TEMP TEMP15 TEMP12:VECTOR RVAR17:LIST>
+ <INTGO>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <CHTYPE VARS5 <TYPE-CODE VECTOR> = TEMP12>
+ <DEAD VARS5>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPUV? TEMP12 + MAPAP10>
+ <NTHUV TEMP12 1 = RVAR17>
+ <NTHL RVAR17 1 = TEMP15>
+ <EQUAL? TEMP15 VAR4 + TAG20>
+ <DEAD TEMP15>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + PHRASE19>
+TAG20
+ <RETURN RVAR17>
+ <DEAD RVAR17>
+PHRASE19
+ <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aFIND-INFO>
+
+#WORD *24000707254*
+ <GFCN \1aRESTORE-LOOP-STATE ("VALUE" ATOM AC-STATE) LSTATE4>
+ <TEMP TEMP17 LVAR18 VAR19 LVAR120>
+ <INTGO>
+ <FRAME '\1aSAVE-STATE>
+ <CALL '\1aSAVE-STATE 0 = TEMP17>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPUV? TEMP17 + MAPAP9>
+ <NTHUV TEMP17 1 = LVAR18>
+ <NTHUV LVAR18 1 = VAR19 (TYPE VARTBL)>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR19>
+ <PUSH LSTATE4>
+ <CALL '\1aFIND-CACHE-VAR 2 = LVAR120>
+ <TYPE? LVAR120 <TYPE-CODE FALSE> + PHRASE22>
+ <FRAME '\1aPROTECT-MATCHES>
+ <PUSH LVAR18>
+ <DEAD LVAR18>
+ <PUSH LVAR120>
+ <DEAD LVAR120>
+ <CALL '\1aPROTECT-MATCHES 2>
+ <JUMP + PHRASE25>
+PHRASE22
+ <FRAME '\1aISTORE-VAR>
+ <PUSH LVAR18>
+ <DEAD LVAR18>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aISTORE-VAR 3>
+ <FRAME '\1aDEAD-VAR>
+ <PUSH VAR19>
+ <DEAD VAR19>
+ <CALL '\1aDEAD-VAR 1>
+PHRASE25
+ <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
+ <JUMP + MAP6>
+MAPAP9
+ <SET TEMP17 LSTATE4 (TYPE VECTOR)>
+ <LOOP>
+MAP29
+ <INTGO>
+ <EMPUV? TEMP17 + MAPAP32>
+ <NTHUV TEMP17 1 = LVAR120>
+ <NTHUV LVAR120 1 = LVAR18 (TYPE VARTBL)>
+ <NTHUV LVAR120 6 = VAR19>
+ <TYPE? VAR19 <TYPE-CODE FALSE> + BOOL39>
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aLP-LOAD-VAR>
+ <PUSH LVAR18>
+ <PUSH 'VALUE>
+ <PUSH %<>>
+ <PUSH VAR19>
+ <DEAD VAR19>
+ <CALL '\1aLP-LOAD-VAR 4 = STACK>
+ <CALL '\1aPROTECT 1>
+BOOL39
+ <NTHUV LVAR120 7 = VAR19>
+ <TYPE? VAR19 <TYPE-CODE FALSE> + BOOL42>
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aLP-LOAD-VAR>
+ <PUSH LVAR18>
+ <PUSH 'TYPE>
+ <PUSH %<>>
+ <PUSH VAR19>
+ <DEAD VAR19>
+ <CALL '\1aLP-LOAD-VAR 4 = STACK>
+ <CALL '\1aPROTECT 1>
+BOOL42
+ <NTHUV LVAR120 9 = VAR19>
+ <TYPE? VAR19 <TYPE-CODE FALSE> + BOOL45>
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aLP-LOAD-VAR>
+ <PUSH LVAR18>
+ <PUSH 'TYPE-WORD>
+ <PUSH %<>>
+ <PUSH VAR19>
+ <DEAD VAR19>
+ <CALL '\1aLP-LOAD-VAR 4 = STACK>
+ <CALL '\1aPROTECT 1>
+BOOL45
+ <NTHUV LVAR120 8 = VAR19>
+ <DEAD LVAR120>
+ <TYPE? VAR19 <TYPE-CODE FALSE> + BOOL48>
+ <FRAME '\1aPROTECT>
+ <FRAME '\1aLP-LOAD-VAR>
+ <PUSH LVAR18>
+ <DEAD LVAR18>
+ <PUSH 'COUNT>
+ <PUSH %<>>
+ <PUSH VAR19>
+ <DEAD VAR19>
+ <CALL '\1aLP-LOAD-VAR 4 = STACK>
+ <CALL '\1aPROTECT 1>
+BOOL48
+ <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
+ <JUMP + MAP29>
+MAPAP32
+ <FRAME '\1aSET-AC-STATE>
+ <PUSH LSTATE4>
+ <DEAD LSTATE4>
+ <CALL '\1aSET-AC-STATE 1 = TEMP17>
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aRESTORE-LOOP-STATE>
+
+#WORD *306712041*
+ <GFCN \1aPROTECT-MATCHES ("VALUE" ANY LINKVAR LINKVAR) LVAR14 LVAR25>
+ <TEMP VAR7:VARTBL TEMP9 VAC6>
+ <INTGO>
+ <NTHUV LVAR14 1 = VAR7 (TYPE VARTBL)>
+ <NTHUV LVAR25 6 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL8>
+ <DEAD TEMP9>
+ <PUTUV LVAR14 2 'T>
+BOOL8
+ <NTHUV LVAR25 7 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL10>
+ <DEAD TEMP9>
+ <PUTUV LVAR14 4 'T>
+BOOL10
+ <NTHUV LVAR25 8 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL11>
+ <DEAD TEMP9>
+ <PUTUV LVAR25 3 'T>
+BOOL11
+ <NTHUV LVAR25 9 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL12>
+ <DEAD TEMP9>
+ <PUTUV LVAR14 4 'T>
+ <PUTUV LVAR14 3 'T>
+BOOL12
+ <NTHUV LVAR14 7 = VAC6>
+ <TYPE? VAC6 <TYPE-CODE FALSE> + PHRASE20>
+ <NTHUV LVAR25 7 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE16>
+ <DEAD TEMP9>
+ <NTHUV LVAR25 9 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE16>
+ <DEAD TEMP9>
+ <FRAME '\1aISTORE-VAR>
+ <PUSH LVAR14>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aISTORE-VAR 3>
+ <FRAME '\1aBREAK-LINK>
+ <PUSH VAC6>
+ <DEAD VAC6>
+ <PUSH VAR7>
+ <CALL '\1aBREAK-LINK 2>
+ <JUMP + PHRASE20>
+PHRASE16
+ <NTHUV LVAR25 7 = TEMP9>
+ <EQUAL? TEMP9 VAC6 - PHRASE20>
+ <DEAD TEMP9>
+ <FRAME '\1aPROTECT>
+ <PUSH VAC6>
+ <DEAD VAC6>
+ <CALL '\1aPROTECT 1>
+PHRASE20
+ <NTHUV LVAR14 6 = VAC6>
+ <TYPE? VAC6 <TYPE-CODE FALSE> + PHRASE28>
+ <NTHUV LVAR25 6 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE25>
+ <DEAD TEMP9>
+ <FRAME '\1aISTORE-VAR>
+ <PUSH LVAR14>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aISTORE-VAR 3>
+ <FRAME '\1aBREAK-LINK>
+ <PUSH VAC6>
+ <DEAD VAC6>
+ <PUSH VAR7>
+ <CALL '\1aBREAK-LINK 2>
+ <JUMP + PHRASE28>
+PHRASE25
+ <NTHUV LVAR25 6 = TEMP9 (TYPE AC)>
+ <VEQUAL? TEMP9 VAC6 - PHRASE28>
+ <DEAD TEMP9>
+ <FRAME '\1aPROTECT>
+ <PUSH VAC6>
+ <DEAD VAC6>
+ <CALL '\1aPROTECT 1>
+PHRASE28
+ <NTHUV LVAR14 9 = VAC6>
+ <TYPE? VAC6 <TYPE-CODE FALSE> + PHRASE37>
+ <NTHUV LVAR25 9 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE33>
+ <DEAD TEMP9>
+ <NTHUV LVAR25 8 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE33>
+ <DEAD TEMP9>
+ <NTHUV LVAR25 7 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE33>
+ <DEAD TEMP9>
+ <FRAME '\1aISTORE-VAR>
+ <PUSH LVAR14>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aISTORE-VAR 3>
+ <FRAME '\1aBREAK-LINK>
+ <PUSH VAC6>
+ <DEAD VAC6>
+ <PUSH VAR7>
+ <CALL '\1aBREAK-LINK 2>
+ <JUMP + PHRASE37>
+PHRASE33
+ <NTHUV LVAR25 9 = TEMP9>
+ <EQUAL? TEMP9 VAC6 - PHRASE37>
+ <DEAD TEMP9>
+ <FRAME '\1aPROTECT>
+ <PUSH VAC6>
+ <DEAD VAC6>
+ <CALL '\1aPROTECT 1>
+PHRASE37
+ <NTHUV LVAR14 8 = VAC6>
+ <SET TEMP9 VAC6>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE47>
+ <NTHUV LVAR25 8 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE42>
+ <DEAD TEMP9>
+ <NTHUV LVAR25 9 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE42>
+ <DEAD TEMP9>
+ <FRAME '\1aISTORE-VAR>
+ <PUSH LVAR14>
+ <DEAD LVAR14>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aISTORE-VAR 3>
+ <FRAME '\1aBREAK-LINK>
+ <PUSH VAC6>
+ <DEAD VAC6>
+ <PUSH VAR7>
+ <DEAD VAR7>
+ <CALL '\1aBREAK-LINK 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE42
+ <NTHUV LVAR25 8 = TEMP9>
+ <DEAD LVAR25>
+ <EQUAL? TEMP9 VAC6 + TAG48>
+ <DEAD TEMP9>
+ <RETURN %<>>
+TAG48
+ <FRAME '\1aPROTECT>
+ <PUSH VAC6>
+ <DEAD VAC6>
+ <CALL '\1aPROTECT 1 = TEMP9>
+PHRASE47
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aPROTECT-MATCHES>
+
+"THE STATUS INFORMATION THAT IS CURRENTLY-GENERATED IS AN ATOM
+ EITHER NORMAL, UNCONDITIONAL-BRANCH, LOOP-LABEL"
+
+#WORD *6524171405*
+ <GFCN \1aGEN-LABEL ("VALUE" ANY ATOM ATOM) LABEL4 STATUS5>
+ <TEMP TEMP13 TEMP14 PATCH7>
+ <INTGO>
+ <SET TEMP13 [TCOMPERR] (TYPE VECTOR)>
+ <LOOP (LABEL4 VALUE) (TEMP13 LENGTH VALUE)>
+TAG11
+ <NTHUV TEMP13 1 = TEMP14>
+ <VEQUAL? TEMP14 LABEL4 + TAG10>
+ <DEAD TEMP14>
+ <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
+ <EMPUV? TEMP13 - TAG11>
+ <JUMP + PHRASE9>
+TAG10
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH LABEL4>
+ <DEAD LABEL4>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <GVAL 'ALL-ACS = TEMP13>
+ <LOOP>
+MAP17
+ <INTGO>
+ <EMPUV? TEMP13 + COND41>
+ <FRAME '\1aCLEAR-VARS-FROM-AC>
+ <NTHUV TEMP13 1 = STACK>
+ <CALL '\1aCLEAR-VARS-FROM-AC 1 = TEMP14>
+ <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
+ <JUMP + MAP17>
+PHRASE9
+ <GVAL 'ICALL-LABELS = TEMP14>
+ <EMPL? TEMP14 + MAP29>
+ <LOOP (LABEL4 VALUE) (TEMP14 VALUE)>
+TAG26
+ <NTHL TEMP14 1 = TEMP13>
+ <VEQUAL? TEMP13 LABEL4 + TAG25>
+ <DEAD TEMP13>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <EMPL? TEMP14 - TAG26>
+ <JUMP + MAP29>
+TAG25
+ <FRAME '\1aPOP-MODEL>
+ <CALL '\1aPOP-MODEL 0>
+ <GVAL 'ICALL-LEVEL = TEMP14>
+ <SUB TEMP14 1 = TEMP14 (TYPE FIX)>
+ <SETG 'ICALL-LEVEL TEMP14>
+ <DEAD TEMP14>
+ <GVAL 'ALL-ACS = TEMP13>
+ <LOOP>
+MAP30
+ <INTGO>
+ <EMPUV? TEMP13 + MAP29>
+ <FRAME '\1aCLEAR-VARS-FROM-AC>
+ <NTHUV TEMP13 1 = STACK>
+ <CALL '\1aCLEAR-VARS-FROM-AC 1>
+ <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
+ <JUMP + MAP30>
+MAP29
+ <VEQUAL? STATUS5 'UNCONDITIONAL-BRANCH + BOOL35>
+ <FRAME '\1aADD-PATCH>
+ <PUSH 'LABEL-MERGE>
+ <CALL '\1aADD-PATCH 1 = PATCH7>
+BOOL35
+ <VEQUAL? STATUS5 'LOOP-LABEL - PHRASE38>
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH LABEL4>
+ <DEAD LABEL4>
+ <GVAL 'LOOP-VARS = STACK>
+ <CALL '\1aEMIT-LABEL 2 = TEMP14>
+ <JUMP + COND37>
+PHRASE38
+ <FRAME '\1aEMIT-LABEL>
+ <PUSH LABEL4>
+ <DEAD LABEL4>
+ <PUSH %<>>
+ <CALL '\1aEMIT-LABEL 2 = TEMP14>
+COND37
+ <VEQUAL? STATUS5 'UNCONDITIONAL-BRANCH - PHRASE42>
+ <DEAD STATUS5>
+ <FRAME '\1aPROCESS-LABEL-MERGE>
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <PUSH 'T>
+ <PUSH 0>
+ <CALL '\1aPROCESS-LABEL-MERGE 3 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE42
+ <FRAME '\1aPROCESS-LABEL-MERGE>
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <PUSH %<>>
+ <PUSH PATCH7>
+ <DEAD PATCH7>
+ <CALL '\1aPROCESS-LABEL-MERGE 3 = TEMP14>
+COND41
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aGEN-LABEL>
+
+#WORD *26164577333*
+ <GFCN \1aGEN-BRANCH ("VALUE" ANY FIX <OR ATOM SPEC-LABEL> ANY "OPTIONAL" ANY BOOLEAN ANY) INST8 LABEL9 STATUS?10 ACNUM11 FLONG?12 NO-KILL13>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP LLEN17 CCOUNT18:FIX XREF14 LREF15:LABEL-REF LSTATE19>
+ <INTGO>
+ <GVAL 'LAST-INST-LENGTH = LLEN17>
+ <GVAL 'CODE-COUNT = CCOUNT18>
+ <FRAME '\1aEMIT-BRANCH>
+ <PUSH INST8>
+ <DEAD INST8>
+ <PUSH LABEL9>
+ <PUSH STATUS?10>
+ <PUSH LLEN17>
+ <PUSH ACNUM11>
+ <DEAD ACNUM11>
+ <PUSH FLONG?12>
+ <DEAD FLONG?12>
+ <CALL '\1aEMIT-BRANCH 6 = XREF14>
+ <TYPE? LABEL9 <TYPE-CODE SPEC-LABEL> - TAG24>
+ <DEAD LABEL9>
+ <RETURN 'SPEC-LABEL>
+TAG24
+ <NTHUV XREF14 1 = LREF15 (TYPE LABEL-REF)>
+ <NTHUV LREF15 5 = LSTATE19>
+ <TYPE? LSTATE19 <TYPE-CODE FALSE> + PHRASE25>
+ <FRAME '\1aSTART-CODE-INSERT>
+ <CALL '\1aSTART-CODE-INSERT 0>
+ <FRAME '\1aRESTORE-LOOP-STATE>
+ <PUSH LSTATE19>
+ <DEAD LSTATE19>
+ <CALL '\1aRESTORE-LOOP-STATE 1>
+ <FRAME '\1aEND-CODE-INSERT>
+ <CALL '\1aEND-CODE-INSERT 0 = LSTATE19>
+ <FRAME '\1aPRE-INSERT>
+ <PUSH LSTATE19>
+ <DEAD LSTATE19>
+ <PUSH STATUS?10>
+ <DEAD STATUS?10>
+ <PUSH LLEN17>
+ <DEAD LLEN17>
+ <PUSH CCOUNT18>
+ <DEAD CCOUNT18>
+ <CALL '\1aPRE-INSERT 4 = LSTATE19>
+ <PUTUV XREF14 4 LSTATE19>
+ <DEAD LSTATE19>
+ <RETURN XREF14>
+ <DEAD XREF14>
+PHRASE25
+ <GVAL 'OUTST-LABEL-TABLE = LLEN17>
+ <EMPUV? LLEN17 + TAG32>
+ <LOOP (LREF15 VALUE) (LLEN17 LENGTH VALUE)>
+TAG33
+ <NTHUV LLEN17 1 = LSTATE19>
+ <VEQUAL? LSTATE19 LREF15 + PHRASE31>
+ <DEAD LSTATE19>
+ <RESTUV LLEN17 1 = LLEN17 (TYPE VECTOR)>
+ <EMPUV? LLEN17 - TAG33>
+TAG32
+ <FRAME '\1aERROR>
+ <PUSH "JUMPING BACK TO A NON-LOOP LABEL">
+ <PUSH LREF15>
+ <DEAD LREF15>
+ <CALL '\1aERROR 2 = LLEN17>
+ <RETURN LLEN17>
+ <DEAD LLEN17>
+PHRASE31
+ <TYPE? NO-KILL13 <TYPE-CODE FALSE> - PHRASE40>
+ <DEAD NO-KILL13>
+ <FRAME '\1aSET-DEATH>
+ <GEN-LVAL 'CODPTR = STACK>
+ <PUSH 'T>
+ <CALL '\1aSET-DEATH 2>
+PHRASE40
+ <FRAME '\1aSAVE-XREF-AC-INFO>
+ <PUSH XREF14>
+ <FRAME '\1aSAVE-STATE>
+ <CALL '\1aSAVE-STATE 0 = STACK>
+ <FRAME '\1aSAVE-LOAD-STATE>
+ <CALL '\1aSAVE-LOAD-STATE 0 = STACK>
+ <CALL '\1aSAVE-XREF-AC-INFO 3>
+ <FRAME '\1aUSE-ALL-ACS>
+ <CALL '\1aUSE-ALL-ACS 0>
+ <FRAME '\1aSETUP-PSAVES>
+ <PUSH XREF14>
+ <DEAD XREF14>
+ <CALL '\1aSETUP-PSAVES 1 = LLEN17>
+ <RETURN LLEN17>
+ <DEAD LLEN17>
+ <END \1aGEN-BRANCH>
+
+#WORD *35554156742*
+ <GFCN \1aLP-LOAD-VAR ("VALUE" ANY VARTBL ATOM BOOLEAN AC) VAR4 TYP5 MUNG6 VAC7>
+ <TEMP LVAR9 TEMP15>
+ <INTGO>
+ <FRAME '\1aFIND-CACHE-VAR>
+ <PUSH VAR4>
+ <CALL '\1aFIND-CACHE-VAR 1 = LVAR9>
+ <TYPE? LVAR9 <TYPE-CODE FALSE> + BOOL18>
+ <VEQUAL? TYP5 'TYPE - BOOL14>
+ <NTHUV LVAR9 7 = TEMP15>
+ <EQUAL? TEMP15 VAC7 + PHRASE22>
+ <DEAD TEMP15>
+BOOL14
+ <VEQUAL? TYP5 'VALUE - BOOL16>
+ <NTHUV LVAR9 6 = TEMP15>
+ <EQUAL? TEMP15 VAC7 + PHRASE22>
+ <DEAD TEMP15>
+BOOL16
+ <VEQUAL? TYP5 'COUNT - BOOL17>
+ <NTHUV LVAR9 8 = TEMP15>
+ <EQUAL? TEMP15 VAC7 + PHRASE22>
+ <DEAD TEMP15>
+BOOL17
+ <VEQUAL? TYP5 'TYPE-WORD - BOOL18>
+ <NTHUV LVAR9 9 = TEMP15>
+ <DEAD LVAR9>
+ <EQUAL? TEMP15 VAC7 + PHRASE22>
+ <DEAD TEMP15>
+BOOL18
+ <FRAME '\1aALL-DEAD?>
+ <PUSH VAC7>
+ <CALL '\1aALL-DEAD? 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE22>
+ <DEAD TEMP15>
+ <FRAME '\1aFREE-AC?>
+ <CALL '\1aFREE-AC? 0 = LVAR9>
+ <TYPE? LVAR9 <TYPE-CODE FALSE> + PHRASE22>
+ <FRAME '\1aEMIT-EXCH>
+ <PUSH VAC7>
+ <PUSH LVAR9>
+ <CALL '\1aEMIT-EXCH 2>
+ <FRAME '\1aEXCH-AC>
+ <PUSH LVAR9>
+ <DEAD LVAR9>
+ <PUSH VAC7>
+ <CALL '\1aEXCH-AC 2>
+PHRASE22
+ <FRAME '\1aLOAD-VAR>
+ <PUSH VAR4>
+ <DEAD VAR4>
+ <PUSH TYP5>
+ <DEAD TYP5>
+ <PUSH MUNG6>
+ <DEAD MUNG6>
+ <PUSH VAC7>
+ <DEAD VAC7>
+ <CALL '\1aLOAD-VAR 4 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aLP-LOAD-VAR>
projects / pdp10-muddle.git / blobdiff