--- /dev/null
+
+<PACKAGE "CARANA">
+
+<ENTRY ARITH-ANA MOD-ANA ASTATE ABS-ANA ROT-ANA LSH-ANA FIX-ANA FLOAT-ANA ARITHP-ANA HACK-BOUNDS BIT-TEST-ANA>
+
+<USE "SYMANA" "CHKDCL" "COMPDEC" "ADVMESS" "NPRINT">
+
+" This file contains analyzers and code generators for arithmetic
+ SUBRs and predicates. For convenience many of the SUBRs that are
+similar are combined into one analyzer/generator. For more info
+on analyzers see SYMANA and on generators see CODGEN.
+"
+
+<SETG ASTATE '[![2 3 5!] ![2 4 5!] ![4 3 5!] ![4 4 5!] ![5 5 5!]]>
+
+<GDECL (ASTATE) <VECTOR [REST <UVECTOR [REST FIX]>]>>
+
+" Analyze +,-,* and /. Take care of no arg and one arg problems."
+
+#WORD *17254043253*
+<GFCN \1aARITH-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP TEMP3:LBIND TEMP13 (TEMP14 %<>) NN6 DEFLT7 K9:LIST TEMP43 N94:NODE>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'NOD 'NODE %<> NOD4>
+ <DEAD NOD4>
+ <FIXBIND>
+ <NTHR 'NOD 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = TEMP13 (RECORD-TYPE LBIND)>
+ <DEAD TEMP14>
+ <NTHUV TEMP13 4 = NN6>
+ <DEAD TEMP13>
+ <FRAME '\1aGET-DF>
+ <PUSH NN6>
+ <CALL '\1aGET-DF 1 = DEFLT7>
+ <BBIND 'STATE 'FIX 'FIX 1>
+ <NTHR 'NOD 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = TEMP13 (RECORD-TYPE LBIND)>
+ <DEAD TEMP14>
+ <NTHUV TEMP13 5 = K9 (TYPE LIST)>
+ <DEAD TEMP13>
+ <BBIND 'ALL-CONST 'ANY 'FIX 'ALL-CONST>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH RTYP5>
+ <PUSH 'FLOAT>
+ <CALL '\1aTYPE-OK? 2 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE21>
+ <DEAD TEMP13>
+ <SET TEMP13 'FIX (TYPE ATOM)>
+ <JUMP + PHRASE23>
+PHRASE21
+ <SET TEMP13 <OR FIX FLOAT> (TYPE FORM)>
+PHRASE23
+ <EMPL? K9 - PHRASE25 (TYPE LIST) (DEAD-FALL K9 NN6 TEMP13)>
+ <NTHR 'NOD 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP13 1 2 (TYPE FIX)>
+ <DEAD TEMP13>
+ <NTHR 'NOD 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE LBIND)>
+ <FRAME '\1aTYPE>
+ <PUSH DEFLT7>
+ <CALL '\1aTYPE 1 = TEMP14>
+ <PUTUV TEMP13 3 TEMP14>
+ <DEAD TEMP13 TEMP14>
+ <NTHR 'NOD 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP13 4 DEFLT7>
+ <DEAD TEMP13>
+ <NTHR 'NOD 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP13 5 () (TYPE LIST)>
+ <DEAD TEMP13>
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aTYPE>
+ <PUSH DEFLT7>
+ <DEAD DEFLT7>
+ <CALL '\1aTYPE 1 = STACK>
+ <JUMP + PEEP201>
+PHRASE25
+ <RESTL K9 1 = TEMP14 (TYPE LIST)>
+ <EMPL? TEMP14 - PHRASE37 (TYPE LIST) (DEAD-JUMP DEFLT7)>
+ <DEAD TEMP14>
+ <NTHL K9 1 = TEMP14 (TYPE NODE)>
+ <NTHUV TEMP14 1 = TEMP14 (TYPE FIX)>
+ <VEQUAL? TEMP14 3 + PHRASE37 (TYPE FIX) (DEAD-JUMP DEFLT7)>
+ <DEAD TEMP14>
+ <NTHL K9 1 = TEMP14 (TYPE NODE)>
+ <NTHUV TEMP14 1 = TEMP14 (TYPE FIX)>
+ <VEQUAL? TEMP14 68 + PHRASE37 (TYPE FIX) (DEAD-JUMP DEFLT7)>
+ <DEAD TEMP14>
+ <NTHR 'NOD 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP14 9 = TEMP14>
+ <GVAL '/ = TEMP43>
+ <EQUAL? TEMP14 TEMP43 - PHRASE40 (DEAD-JUMP RTYP5 DEFLT7 NN6)>
+ <DEAD TEMP14 TEMP43>
+ <NTHR 'NOD 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = TEMP43 (RECORD-TYPE LBIND)>
+ <FRAME '\1aNODE1>
+ <PUSH 2>
+ <NTHR 'NOD 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP14>
+ <FRAME '\1aTYPE>
+ <PUSH DEFLT7>
+ <CALL '\1aTYPE 1 = STACK>
+ <PUSH DEFLT7>
+ <DEAD DEFLT7>
+ <PUSH ()>
+ <CALL '\1aNODE1 5 = TEMP14>
+ <CONS TEMP14 () = TEMP14>
+ <PUTREST TEMP14 K9>
+ <DEAD K9>
+ <SET K9 TEMP14>
+ <DEAD TEMP14>
+ <PUTUV TEMP43 5 K9 (TYPE LIST)>
+ <DEAD TEMP43>
+ <JUMP + PHRASE37>
+PHRASE40
+ <FRAME '\1aEANA>
+ <NTHL K9 1 = STACK (TYPE NODE)>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <NTHR 'NOD 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = TEMP43 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP43 4 = STACK>
+ <DEAD TEMP43>
+ <CALL '\1aEANA 3 = TEMP13>
+ <NTHL K9 1 = TEMP43 (TYPE NODE)>
+ <NTHUV TEMP43 1 = TEMP43 (TYPE FIX)>
+ <VEQUAL? TEMP43 2 - PHRASE55 (TYPE FIX) (DEAD-JUMP K9)>
+ <DEAD TEMP43>
+ <NTHR 'NOD 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = TEMP43 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP43 9 = TEMP43>
+ <GVAL '- = TEMP14>
+ <EQUAL? TEMP43 TEMP14 - PHRASE57>
+ <DEAD TEMP43 TEMP14>
+ <NTHL K9 1 = TEMP14 (TYPE NODE)>
+ <DEAD K9>
+ <NTHUV TEMP14 4 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FIX> - TAG60>
+ <SUB 0 TEMP14 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG61>
+TAG60
+ <SUBF 0.0 TEMP14 = TEMP14 (TYPE FLOAT)>
+TAG61
+ <NTHR 'NOD 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = TEMP43 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP43 4 TEMP14>
+ <DEAD TEMP43 TEMP14>
+ <JUMP + PHRASE64>
+PHRASE57
+ <NTHL K9 1 = TEMP43 (TYPE NODE)>
+ <DEAD K9>
+ <NTHUV TEMP43 4 = TEMP43>
+ <NTHR 'NOD 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP14 4 TEMP43>
+ <DEAD TEMP14 TEMP43>
+PHRASE64
+ <NTHR 'NOD 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP14 1 2 (TYPE FIX)>
+ <DEAD TEMP14>
+ <NTHR 'NOD 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE LBIND)>
+ <FRAME '\1aTYPE>
+ <NTHR 'NOD 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = TEMP43 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP43 4 = STACK>
+ <DEAD TEMP43>
+ <CALL '\1aTYPE 1 = TEMP43>
+ <PUTUV TEMP14 3 TEMP43>
+ <DEAD TEMP14 TEMP43>
+ <NTHR 'NOD 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP14 5 () (TYPE LIST)>
+ <DEAD TEMP14>
+ <JUMP + PHRASE84>
+PHRASE55
+ <NTHR 'NOD 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP14 9 = TEMP14>
+ <GVAL '- = TEMP43>
+ <EQUAL? TEMP14 TEMP43 - PHRASE76>
+ <DEAD TEMP14 TEMP43>
+ <NTHR 'NOD 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = TEMP43 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP43 1 38 (TYPE FIX)>
+ <DEAD TEMP43>
+ <JUMP + PHRASE84>
+PHRASE76
+ <NTHR 'NOD 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = TEMP43 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP43 1 42 (TYPE FIX)>
+ <DEAD TEMP43>
+ <JUMP + PHRASE84>
+PHRASE37
+ <SET TEMP43 K9 (TYPE LIST)>
+ <LOOP>
+MAP86
+ <INTGO>
+ <EMPL? TEMP43 + MAPAP89 (DEAD-JUMP TEMP43 TEMP13)>
+ <NTHL TEMP43 1 = N94>
+ <FRAME '\1aARITH-ELE>
+ <PUSH N94>
+ <DEAD N94>
+ <PUSH TEMP13>
+ <NTHR 'NOD 2 = DEFLT7 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR DEFLT7 1 = TEMP14 (RECORD-TYPE LBIND)>
+ <DEAD DEFLT7>
+ <NTHUV TEMP14 9 = STACK>
+ <DEAD TEMP14>
+ <CALL '\1aARITH-ELE 3>
+ <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
+ <JUMP + MAP86>
+MAPAP89
+ <VEQUAL? NN6 '+ - PHRASE101>
+ <NTHR 'NOD 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = TEMP43 (RECORD-TYPE LBIND)>
+ <FRAME '\1aFLUSH-CONST>
+ <PUSH K9>
+ <PUSH 0>
+ <CALL '\1aFLUSH-CONST 2 = TEMP13>
+ <PUTUV TEMP43 5 TEMP13 (TYPE LIST)>
+ <DEAD TEMP43 TEMP13>
+ <JUMP + PHRASE152>
+PHRASE101
+ <VEQUAL? NN6 '- - PHRASE105>
+ <NTHR 'NOD 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = TEMP43 (RECORD-TYPE LBIND)>
+ <FRAME '\1aFLUSH-CONST>
+ <RESTL K9 1 = STACK (TYPE LIST)>
+ <PUSH 0>
+ <CALL '\1aFLUSH-CONST 2 = TEMP13>
+ <NTHL K9 1 = TEMP14 (TYPE NODE)>
+ <DEAD K9>
+ <CONS TEMP14 TEMP13 = K9>
+ <DEAD TEMP14 TEMP13>
+ <PUTUV TEMP43 5 K9 (TYPE LIST)>
+ <DEAD TEMP43>
+ <EMPL? K9 + PHRASE152>
+ <RESTL K9 1 = TEMP13 (TYPE LIST)>
+ <EMPL? TEMP13 - PHRASE152>
+ <DEAD TEMP13>
+ <NTHR 'NOD 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP13 4 '+>
+ <DEAD TEMP13>
+ <GVAL '+ = TEMP13>
+ <NTHR 'NOD 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = TEMP43 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP43 9 TEMP13>
+ <DEAD TEMP43 TEMP13>
+ <JUMP + PHRASE152>
+PHRASE105
+ <VEQUAL? NN6 '* - PHRASE115>
+ <FRAME '\1aFIND-ZERO>
+ <PUSH K9>
+ <NTHR 'NOD 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP43>
+ <CALL '\1aFIND-ZERO 2 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE117>
+ <DEAD TEMP43>
+ <NTHR 'STATE 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = TEMP43 (RECORD-TYPE LBIND)>
+ <VEQUAL? TEMP43 2 - PHRASE122 (TYPE FIX)>
+ <DEAD TEMP43>
+ <SET TEMP43 0 (TYPE FIX)>
+ <JUMP + PHRASE125>
+PHRASE122
+ <SET TEMP43 0.0 (TYPE FLOAT)>
+PHRASE125
+ <NTHR 'ALL-CONST 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP13 1 TEMP43 (RECORD-TYPE LBIND)>
+ <DEAD TEMP13 TEMP43>
+ <JUMP + PHRASE152>
+PHRASE117
+ <NTHR 'NOD 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = TEMP43 (RECORD-TYPE LBIND)>
+ <FRAME '\1aFLUSH-CONST>
+ <PUSH K9>
+ <PUSH 1>
+ <CALL '\1aFLUSH-CONST 2 = TEMP13>
+ <PUTUV TEMP43 5 TEMP13 (TYPE LIST)>
+ <DEAD TEMP43 TEMP13>
+ <JUMP + PHRASE152>
+PHRASE115
+ <VEQUAL? NN6 '/ - PHRASE152>
+ <FRAME '\1aFIND-ZERO>
+ <RESTL K9 1 = STACK (TYPE LIST)>
+ <NTHR 'NOD 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP43>
+ <CALL '\1aFIND-ZERO 2 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE134>
+ <DEAD TEMP43>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Divide by 0 ">
+ <NTHR 'NOD 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP43>
+ <CALL '\1aCOMPILE-ERROR 2>
+ <JUMP + PHRASE152>
+PHRASE134
+ <FRAME '\1aFIND-ZERO>
+ <NTHL K9 1 = TEMP14 (TYPE NODE)>
+ <CONS TEMP14 () = STACK>
+ <DEAD TEMP14>
+ <NTHR 'NOD 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP14>
+ <CALL '\1aFIND-ZERO 2 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE141>
+ <DEAD TEMP14>
+ <NTHR 'STATE 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE LBIND)>
+ <VEQUAL? TEMP14 2 - PHRASE146 (TYPE FIX)>
+ <DEAD TEMP14>
+ <SET TEMP14 0 (TYPE FIX)>
+ <JUMP + PHRASE149>
+PHRASE146
+ <SET TEMP14 0.0 (TYPE FLOAT)>
+PHRASE149
+ <NTHR 'ALL-CONST 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP43 1 TEMP14 (RECORD-TYPE LBIND)>
+ <DEAD TEMP43 TEMP14>
+ <JUMP + PHRASE152>
+PHRASE141
+ <NTHR 'NOD 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE LBIND)>
+ <FRAME '\1aFLUSH-CONST>
+ <RESTL K9 1 = STACK (TYPE LIST)>
+ <PUSH 1>
+ <CALL '\1aFLUSH-CONST 2 = TEMP43>
+ <NTHL K9 1 = TEMP13 (TYPE NODE)>
+ <CONS TEMP13 TEMP43 = TEMP43>
+ <DEAD TEMP13>
+ <PUTUV TEMP14 5 TEMP43 (TYPE LIST)>
+ <DEAD TEMP14 TEMP43>
+PHRASE152
+ <NTHR 'ALL-CONST 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE157 (DEAD-FALL K9 NN6)>
+ <DEAD TEMP14>
+ <NTHR 'NOD 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP14 1 2 (TYPE FIX)>
+ <DEAD TEMP14>
+ <NTHR 'NOD 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE LBIND)>
+ <FRAME '\1aTYPE>
+ <NTHR 'ALL-CONST 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP43>
+ <CALL '\1aTYPE 1 = TEMP43>
+ <PUTUV TEMP14 3 TEMP43>
+ <DEAD TEMP14 TEMP43>
+ <NTHR 'ALL-CONST 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE LBIND)>
+ <NTHR 'NOD 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = TEMP43 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP43 4 TEMP14>
+ <DEAD TEMP43 TEMP14>
+ <NTHR 'NOD 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = TEMP43 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP43 5 () (TYPE LIST)>
+ <DEAD TEMP43>
+ <JUMP + PHRASE195>
+PHRASE157
+ <NTHR 'STATE 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP43 1 = TEMP43 (RECORD-TYPE LBIND)>
+ <LESS? TEMP43 5 - PHRASE173 (TYPE FIX) (DEAD-JUMP K9 NN6)>
+ <DEAD TEMP43>
+ <VEQUAL? NN6 'MAX + BOOL181 (DEAD-JUMP NN6)>
+ <VEQUAL? NN6 'MIN - PHRASE180>
+ <DEAD NN6>
+BOOL181
+ <SET TEMP43 35 (TYPE FIX)>
+ <JUMP + PHRASE182>
+PHRASE180
+ <SET TEMP43 18 (TYPE FIX)>
+PHRASE182
+ <NTHR 'NOD 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP14 1 TEMP43 (TYPE FIX)>
+ <DEAD TEMP14 TEMP43>
+ <SET TEMP14 K9 (TYPE LIST)>
+ <DEAD K9>
+ <LOOP>
+MAP186
+ <INTGO>
+ <EMPL? TEMP14 + PHRASE195 (DEAD-JUMP TEMP14)>
+ <NTHL TEMP14 1 = N94>
+ <NTHUV N94 1 = DEFLT7 (TYPE FIX)>
+ <VEQUAL? DEFLT7 3 - PHRASE194 (TYPE FIX) (DEAD-JUMP N94)>
+ <DEAD DEFLT7>
+ <PUTUV N94 1 68 (TYPE FIX)>
+ <DEAD N94>
+PHRASE194
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <JUMP + MAP186>
+PHRASE173
+ <NTHR 'NOD 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP14 1 52 (TYPE FIX)>
+ <DEAD TEMP14>
+PHRASE195
+ <FRAME '\1aTYPE-OK?>
+ <NTHR 'STATE 2 = TEMP14 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE LBIND)>
+ <SUB TEMP14 1 = TEMP14 (TYPE FIX)>
+ <NTHUV [FIX FLOAT FLOAT <OR FIX FLOAT>] TEMP14 = STACK>
+ <DEAD TEMP14>
+PEEP201
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP13>
+PHRASE84
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -27>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aARITH-ANA>
+#WORD *167067406*
+<GFCN \1aFIND-ZERO ("VALUE" <OR ATOM FALSE> <LIST [REST NODE]> NODE) K4 NOD5>
+ <TEMP TEMP10 TEMP20 TEMP26>
+ <INTGO>
+ <LENUV NOD5 = TEMP10 (TYPE FIX)>
+ <LESS? TEMP10 8 + TAG11 (TYPE FIX) (DEAD-JUMP NOD5)>
+ <DEAD TEMP10>
+ <NTHUV NOD5 8 = TEMP10>
+ <DEAD NOD5>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + TAG11 (DEAD-FALL K4)>
+ <DEAD TEMP10>
+ <RETURN %<>>
+TAG11
+ <SET TEMP20 %<> (TYPE FALSE)>
+ <SET TEMP10 K4 (TYPE LIST)>
+ <DEAD K4>
+ <LOOP>
+MAP13
+ <INTGO>
+ <EMPL? TEMP10 + MAPAP16 (DEAD-JUMP TEMP10) (DEAD-FALL TEMP20)>
+ <NTHL TEMP10 1 = TEMP20>
+ <NTHUV TEMP20 1 = TEMP26 (TYPE FIX)>
+ <VEQUAL? TEMP26 2 - PEEP31 (TYPE FIX) (DEAD-JUMP TEMP20)>
+ <DEAD TEMP26>
+ <NTHUV TEMP20 4 = TEMP26>
+ <DEAD TEMP20>
+ <VEQUAL? TEMP26 0 + TAG28 (TYPE FIX) (DEAD-JUMP TEMP10)>
+ <DEAD TEMP26>
+PEEP31
+ <SET TEMP20 %<> (TYPE FALSE)>
+ <JUMP + PHRASE24>
+TAG28
+ <RETURN 'T>
+PHRASE24
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <JUMP + MAP13>
+MAPAP16
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+ <END \1aFIND-ZERO>
+#WORD *37106417666*
+<GFCN \1aFLUSH-CONST ("VALUE" <LIST [REST NODE]> <LIST [REST NODE]> FIX) K4 C5>
+ <TEMP FC6:FLOAT KK7:LIST (KP8:LIST ()) TEMP9 NN12:NODE>
+ <INTGO>
+ <FLOAT C5 = FC6 (TYPE FLOAT)>
+ <SET KK7 K4>
+ <LOOP>
+AGAIN13
+ <INTGO>
+ <EMPL? KK7 - PHRASE15 (TYPE LIST) (DEAD-FALL C5 KP8 KK7 FC6)>
+ <RETURN K4>
+ <DEAD K4>
+PHRASE15
+ <NTHL KK7 1 = NN12 (TYPE NODE)>
+ <NTHUV NN12 1 = TEMP9 (TYPE FIX)>
+ <VEQUAL? TEMP9 2 - PHRASE17 (TYPE FIX) (DEAD-JUMP NN12 KP8)>
+ <DEAD TEMP9>
+ <NTHUV NN12 4 = TEMP9>
+ <EQUAL? TEMP9 C5 + BOOL20 (DEAD-JUMP NN12)>
+ <DEAD TEMP9>
+ <NTHUV NN12 4 = TEMP9>
+ <DEAD NN12>
+ <EQUAL? TEMP9 FC6 - PHRASE17 (DEAD-JUMP KP8)>
+ <DEAD TEMP9>
+BOOL20
+ <VEQUAL? K4 KK7 - PHRASE22 (DEAD-FALL KK7)>
+ <RESTL K4 1 = KK7 (TYPE LIST)>
+ <DEAD K4>
+ <SET K4 KK7>
+ <EMPL? K4 - PHRASE26 (TYPE LIST) (DEAD-FALL C5 KP8 KK7 FC6)>
+ <RETURN K4>
+ <DEAD K4>
+PHRASE22
+ <RESTL KK7 1 = TEMP9 (TYPE LIST)>
+ <PUTREST KP8 TEMP9>
+ <DEAD TEMP9>
+ <JUMP + PHRASE26>
+PHRASE17
+ <SET KP8 KK7>
+PHRASE26
+ <RESTL KK7 1 = KK7 (TYPE LIST)>
+ <JUMP + AGAIN13>
+ <END \1aFLUSH-CONST>
+#WORD *4437234442*
+<GFCN \1aGET-DF ("VALUE" ANY ATOM) S4>
+ <TEMP TEMP5:VECTOR TEMP10 TEMP11>
+ <INTGO>
+ <GVAL 'DFS = TEMP5 (TYPE VECTOR)>
+ <SET TEMP10 [MAX MIN * / - +] (TYPE VECTOR)>
+ <LOOP (S4 VALUE) (TEMP10 LENGTH VALUE)>
+TAG8
+ <NTHUV TEMP10 1 = TEMP11>
+ <VEQUAL? TEMP11 S4 + TAG7 (DEAD-JUMP S4)>
+ <DEAD TEMP11>
+ <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
+ <EMPUV? TEMP10 - TAG8 (DEAD-FALL S4 TEMP10)>
+ <SET TEMP10 %<> (TYPE FALSE)>
+TAG7
+ <LENUV TEMP10 = TEMP10 (TYPE FIX)>
+ <NTHUV TEMP5 TEMP10 = TEMP11>
+ <DEAD TEMP5 TEMP10>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aGET-DF>
+<SETG DFS [0 0 1 1 <CHTYPE <MIN> FIX> <CHTYPE <MAX> FIX>]>
+
+<GDECL (DFS) VECTOR>
+
+#WORD *17110336521*
+<GFCN \1aARITH-ELE ("VALUE" FIX NODE ANY "OPTIONAL" ANY) N6 RT7 OP8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP (FL11 %<>) A-C12 NOD13 ISTATE14:FIX TEMP26>
+ <INTGO>
+ <GEN-LVAL 'ALL-CONST = A-C12>
+ <GEN-LVAL 'NOD = NOD13>
+ <GEN-LVAL 'STATE = ISTATE14>
+ <NTHUV N6 1 = TEMP26 (TYPE FIX)>
+ <VEQUAL? TEMP26 3 + BOOL25 (TYPE FIX) (DEAD-JUMP OP8 A-C12 FL11)>
+ <DEAD TEMP26>
+ <NTHUV N6 1 = TEMP26 (TYPE FIX)>
+ <VEQUAL? TEMP26 68 - PHRASE24 (TYPE FIX) (DEAD-FALL OP8 A-C12 FL11)>
+ <DEAD TEMP26>
+BOOL25
+ <SET FL11 'T (TYPE ATOM)>
+ <FRAME '\1aEANA>
+ <NTHUV N6 5 = TEMP26 (TYPE LIST)>
+ <NTHL TEMP26 1 = STACK (TYPE NODE)>
+ <DEAD TEMP26>
+ <FRAME '\1aFORM>
+ <PUSH 'STRUCTURED>
+ <PUSH 'REST>
+ <PUSH RT7>
+ <DEAD RT7>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <CALL '\1aFORM 2 = STACK>
+ <NTHUV NOD13 4 = STACK>
+ <DEAD NOD13>
+ <CALL '\1aEANA 3 = NOD13>
+ <NTHUV N6 5 = TEMP26 (TYPE LIST)>
+ <NTHL TEMP26 1 = TEMP26 (TYPE NODE)>
+ <NTHUV TEMP26 3 = TEMP26>
+ <PUTUV N6 3 TEMP26>
+ <DEAD TEMP26>
+ <GEN-SET 'ALL-CONST %<>>
+ <FRAME '\1aISTYPE?>
+ <PUSH NOD13>
+ <CALL '\1aISTYPE? 1 = A-C12>
+ <TYPE? A-C12 <TYPE-CODE FALSE> + BOOL33 (DEAD-JUMP NOD13)>
+ <DEAD A-C12>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH NOD13>
+ <DEAD NOD13>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> - BOOL32 (DEAD-FALL TEMP26)>
+BOOL33
+ <SET TEMP26 'ANY (TYPE ATOM)>
+BOOL32
+ <SET NOD13 TEMP26>
+ <DEAD TEMP26>
+ <JUMP + PHRASE53>
+PHRASE24
+ <FRAME '\1aEANA>
+ <PUSH N6>
+ <PUSH RT7>
+ <DEAD RT7>
+ <NTHUV NOD13 4 = STACK>
+ <DEAD NOD13>
+ <CALL '\1aEANA 3 = NOD13>
+ <NTHUV N6 1 = TEMP26 (TYPE FIX)>
+ <VEQUAL? TEMP26 2 - PHRASE40 (TYPE FIX) (DEAD-JUMP OP8 A-C12)>
+ <DEAD TEMP26>
+ <VEQUAL? ISTATE14 4 + BOOL43 (TYPE FIX)>
+ <VEQUAL? ISTATE14 3 - PHRASE42 (TYPE FIX)>
+BOOL43
+ <NTHUV N6 4 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FLOAT> + TAG44>
+ <FLOAT TEMP26 = TEMP26 (TYPE FLOAT)>
+TAG44
+ <PUTUV N6 4 TEMP26>
+ <DEAD TEMP26>
+ <PUTUV N6 3 'FLOAT>
+PHRASE42
+ <EQUAL? A-C12 'ALL-CONST - PHRASE46 (DEAD-FALL OP8 A-C12)>
+ <NTHUV N6 4 = TEMP26>
+ <JUMP + PEEP83>
+PHRASE46
+ <TYPE? A-C12 <TYPE-CODE FALSE> + PHRASE53 (DEAD-JUMP OP8 A-C12)>
+ <FRAME>
+ <PUSH A-C12>
+ <DEAD A-C12>
+ <NTHUV N6 4 = STACK>
+ <ACALL OP8 2 = TEMP26>
+ <DEAD OP8>
+PEEP83
+ <GEN-SET 'ALL-CONST TEMP26>
+ <DEAD TEMP26>
+ <JUMP + PHRASE53>
+PHRASE40
+ <GEN-SET 'ALL-CONST %<>>
+PHRASE53
+ <FRAME '\1aISTYPE?>
+ <PUSH NOD13>
+ <CALL '\1aISTYPE? 1 = TEMP26>
+ <VEQUAL? TEMP26 'FIX + PEEP82 (DEAD-JUMP FL11)>
+ <DEAD TEMP26>
+ <EQUAL? NOD13 'FLOAT + PEEP81 (DEAD-JUMP FL11)>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH NOD13>
+ <PUSH 'FLOAT>
+ <CALL '\1aTYPE-OK? 2 = A-C12>
+ <TYPE? A-C12 <TYPE-CODE FALSE> - PHRASE60>
+ <DEAD A-C12>
+ <VEQUAL? FL11 0 + PHRASE63>
+ <DEAD FL11>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH <STRUCTURED [REST FIX]>>
+ <NTHUV N6 3 = STACK>
+ <CALL '\1aTYPE-MERGE 2 = A-C12>
+ <JUMP + PHRASE65>
+PHRASE63
+ <SET A-C12 'FIX (TYPE ATOM)>
+PHRASE65
+ <PUTUV N6 3 A-C12>
+ <DEAD A-C12>
+PEEP82
+ <SET TEMP26 1 (TYPE FIX)>
+ <JUMP + PHRASE72>
+PHRASE60
+ <FRAME '\1aTYPE-OK?>
+ <PUSH NOD13>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-OK? 2 = A-C12>
+ <TYPE? A-C12 <TYPE-CODE FALSE> - PHRASE66 (DEAD-JUMP FL11)>
+ <DEAD A-C12>
+ <VEQUAL? FL11 0 + PHRASE69>
+ <DEAD FL11>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH <STRUCTURED [REST FLOAT]>>
+ <NTHUV N6 3 = STACK>
+ <CALL '\1aTYPE-MERGE 2 = A-C12>
+ <JUMP + PHRASE71>
+PHRASE69
+ <SET A-C12 'FLOAT (TYPE ATOM)>
+PHRASE71
+ <PUTUV N6 3 A-C12>
+ <DEAD A-C12>
+PEEP81
+ <SET TEMP26 2 (TYPE FIX)>
+ <JUMP + PHRASE72>
+PHRASE66
+ <SET TEMP26 3 (TYPE FIX)>
+PHRASE72
+ <SET FL11 TEMP26>
+ <DEAD TEMP26>
+ <GEN-LVAL 'VERBOSE = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE74 (DEAD-JUMP N6 NOD13)>
+ <DEAD TEMP26>
+ <VEQUAL? FL11 3 - PHRASE74 (TYPE FIX) (DEAD-JUMP N6 NOD13)>
+ <FRAME '\1aADDVMESS>
+ <NTHUV N6 2 = STACK (TYPE NODE)>
+ <CONS NOD13 () = TEMP26>
+ <DEAD NOD13>
+ <CONS " is of type: " TEMP26 = TEMP26>
+ <CONS N6 TEMP26 = TEMP26>
+ <DEAD N6>
+ <CONS "Arithmetic can't open compile because: " TEMP26 = STACK>
+ <DEAD TEMP26>
+ <CALL '\1aADDVMESS 2>
+PHRASE74
+ <GVAL 'ASTATE = TEMP26 (TYPE VECTOR)>
+ <NTHUV TEMP26 ISTATE14 = A-C12 (TYPE UVECTOR)>
+ <DEAD TEMP26 ISTATE14>
+ <NTHUU A-C12 FL11 = TEMP26 (TYPE FIX)>
+ <DEAD A-C12 FL11>
+ <GEN-SET 'STATE TEMP26>
+ <RETURN TEMP26>
+ <DEAD TEMP26>
+ <END \1aARITH-ELE>
+#WORD *37157032553*
+<GFCN \1aABS-ANA ("VALUE" ANY NODE ANY) N4 RT5>
+ <TEMP K6:LIST TEMP9>
+ <INTGO>
+ <NTHUV N4 5 = K6 (TYPE LIST)>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH N4>
+ <PUSH RT5>
+ <CALL '\1aSEGFLUSH 2 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE11 (DEAD-JUMP RT5 N4 K6) (DEAD-FALL TEMP9)>
+ <FRAME '\1aARGCHK>
+ <LENL K6 = STACK (TYPE FIX)>
+ <PUSH 1>
+ <PUSH 'ABS>
+ <PUSH N4>
+ <CALL '\1aARGCHK 4>
+ <PUTUV N4 1 38 (TYPE FIX)>
+ <DEAD N4>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <DEAD K6>
+ <PUSH <OR FIX FLOAT>>
+ <PUSH 'ABS>
+ <CALL '\1aEANA 3 = TEMP9>
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aTYPE-OK?>
+ <GVAL 'ABS-DECL = STACK>
+ <PUSH RT5>
+ <DEAD RT5>
+ <CALL '\1aTYPE-OK? 2 = STACK>
+ <PUSH TEMP9>
+ <DEAD TEMP9>
+ <CALL '\1aTYPE-OK? 2 = TEMP9>
+PHRASE11
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aABS-ANA>
+<SETG ABS-DECL <FORM OR FLOAT <FORM FIX (0 <MIN>)>>>
+
+<COND (<GASSIGNED? ABS-ANA> <PUTPROP ,ABS ANALYSIS ,ABS-ANA>)>
+
+#WORD *34365412562*
+<GFCN \1aMOD-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP K6:LIST TEMP9 TEMP17>
+ <INTGO>
+ <NTHUV N4 5 = K6 (TYPE LIST)>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH N4>
+ <PUSH R5>
+ <CALL '\1aSEGFLUSH 2 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE18>
+ <DEAD TEMP9>
+ <FRAME '\1aARGCHK>
+ <LENL K6 = STACK (TYPE FIX)>
+ <PUSH 2>
+ <PUSH 'MOD>
+ <PUSH N4>
+ <CALL '\1aARGCHK 4>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <PUSH 'FIX>
+ <PUSH 'MOD>
+ <CALL '\1aEANA 3>
+ <FRAME '\1aEANA>
+ <RESTL K6 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK (TYPE NODE)>
+ <DEAD TEMP9>
+ <PUSH 'FIX>
+ <PUSH 'MOD>
+ <CALL '\1aEANA 3>
+ <NTHL K6 1 = TEMP9 (TYPE NODE)>
+ <NTHUV TEMP9 1 = TEMP9 (TYPE FIX)>
+ <VEQUAL? TEMP9 2 - PHRASE15 (TYPE FIX)>
+ <DEAD TEMP9>
+ <RESTL K6 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = TEMP9 (TYPE NODE)>
+ <NTHUV TEMP9 1 = TEMP9 (TYPE FIX)>
+ <VEQUAL? TEMP9 2 - PHRASE15 (TYPE FIX)>
+ <DEAD TEMP9>
+ <NTHL K6 1 = TEMP9 (TYPE NODE)>
+ <NTHUV TEMP9 4 = TEMP9 (TYPE FIX)>
+ <RESTL K6 1 = TEMP17 (TYPE LIST)>
+ <NTHL TEMP17 1 = TEMP17 (TYPE NODE)>
+ <NTHUV TEMP17 4 = TEMP17 (TYPE FIX)>
+ <MOD TEMP9 TEMP17 = TEMP17 (TYPE FIX)>
+ <DEAD TEMP9>
+ <PUTUV N4 4 TEMP17>
+ <DEAD TEMP17>
+ <PUTUV N4 1 2 (TYPE FIX)>
+ <PUTUV N4 5 () (TYPE LIST)>
+ <JUMP + PHRASE18>
+PHRASE15
+ <PUTUV N4 1 41 (TYPE FIX)>
+PHRASE18
+ <FRAME '\1aTYPE-OK?>
+ <NTHUV N4 5 = TEMP17 (TYPE LIST)>
+ <DEAD N4>
+ <EMPL? TEMP17 + PHRASE21 (TYPE LIST) (DEAD-JUMP K6)>
+ <DEAD TEMP17>
+ <RESTL K6 1 = TEMP17 (TYPE LIST)>
+ <NTHL TEMP17 1 = TEMP17 (TYPE NODE)>
+ <NTHUV TEMP17 1 = TEMP17 (TYPE FIX)>
+ <VEQUAL? TEMP17 2 - PHRASE21 (TYPE FIX) (DEAD-JUMP K6)>
+ <DEAD TEMP17>
+ <FRAME '\1aFORM>
+ <PUSH 'FIX>
+ <RESTL K6 1 = TEMP17 (TYPE LIST)>
+ <DEAD K6>
+ <NTHL TEMP17 1 = TEMP17 (TYPE NODE)>
+ <NTHUV TEMP17 4 = TEMP17>
+ <SUB TEMP17 1 = TEMP17 (TYPE FIX)>
+ <CONS TEMP17 () = TEMP17>
+ <CONS 0 TEMP17 = STACK>
+ <DEAD TEMP17>
+ <CALL '\1aFORM 2 = TEMP17>
+ <JUMP + PHRASE24>
+PHRASE21
+ <SET TEMP17 'FIX (TYPE ATOM)>
+PHRASE24
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <PUSH R5>
+ <DEAD R5>
+ <CALL '\1aTYPE-OK? 2 = TEMP17>
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aMOD-ANA>
+<COND (<GASSIGNED? MOD-ANA> <PUTPROP ,MOD ANALYSIS ,MOD-ANA>)>
+
+#WORD *2411122351*
+<GFCN \1aROT-LSH-ANA ("VALUE" ANY ANY ANY ANY) N4 R5 COD6>
+ <TEMP K7:LIST NAM8 TEMP11>
+ <INTGO>
+ <NTHUV N4 5 = K7 (TYPE LIST)>
+ <NTHUV N4 4 = NAM8>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH N4>
+ <PUSH R5>
+ <CALL '\1aSEGFLUSH 2 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE23 (DEAD-JUMP COD6 N4 NAM8 K7)>
+ <DEAD TEMP11>
+ <FRAME '\1aARGCHK>
+ <LENL K7 = STACK (TYPE FIX)>
+ <PUSH 2>
+ <PUSH NAM8>
+ <PUSH N4>
+ <CALL '\1aARGCHK 4>
+ <FRAME '\1aEANA>
+ <NTHL K7 1 = STACK (TYPE NODE)>
+ <PUSH <PRIMTYPE WORD>>
+ <PUSH NAM8>
+ <CALL '\1aEANA 3>
+ <FRAME '\1aEANA>
+ <RESTL K7 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = STACK (TYPE NODE)>
+ <DEAD TEMP11>
+ <PUSH 'FIX>
+ <PUSH NAM8>
+ <DEAD NAM8>
+ <CALL '\1aEANA 3>
+ <NTHL K7 1 = TEMP11 (TYPE NODE)>
+ <NTHUV TEMP11 1 = TEMP11 (TYPE FIX)>
+ <VEQUAL? TEMP11 2 - PHRASE17 (TYPE FIX) (DEAD-JUMP K7)>
+ <DEAD TEMP11>
+ <RESTL K7 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = TEMP11 (TYPE NODE)>
+ <NTHUV TEMP11 1 = TEMP11 (TYPE FIX)>
+ <VEQUAL? TEMP11 2 - PHRASE17 (TYPE FIX) (DEAD-JUMP K7)>
+ <DEAD TEMP11>
+ <EQUAL? COD6 87 - PHRASE20>
+ <DEAD COD6>
+ <NTHL K7 1 = TEMP11 (TYPE NODE)>
+ <NTHUV TEMP11 4 = TEMP11>
+ <RESTL K7 1 = NAM8 (TYPE LIST)>
+ <DEAD K7>
+ <NTHL NAM8 1 = NAM8 (TYPE NODE)>
+ <NTHUV NAM8 4 = NAM8 (TYPE FIX)>
+ <LSH TEMP11 NAM8 = NAM8 (TYPE FIX)>
+ <DEAD TEMP11>
+ <PUTUV N4 4 NAM8>
+ <DEAD NAM8>
+ <JUMP + PHRASE22>
+PHRASE20
+ <NTHL K7 1 = NAM8 (TYPE NODE)>
+ <NTHUV NAM8 4 = NAM8>
+ <RESTL K7 1 = TEMP11 (TYPE LIST)>
+ <DEAD K7>
+ <NTHL TEMP11 1 = TEMP11 (TYPE NODE)>
+ <NTHUV TEMP11 4 = TEMP11 (TYPE FIX)>
+ <ROT NAM8 TEMP11 = TEMP11 (TYPE FIX)>
+ <DEAD NAM8>
+ <PUTUV N4 4 TEMP11>
+ <DEAD TEMP11>
+PHRASE22
+ <PUTUV N4 5 () (TYPE LIST)>
+ <PUTUV N4 1 2 (TYPE FIX)>
+ <DEAD N4>
+ <JUMP + PHRASE23>
+PHRASE17
+ <PUTUV N4 1 COD6>
+ <DEAD N4 COD6>
+PHRASE23
+ <FRAME '\1aTYPE-OK?>
+ <PUSH 'FIX>
+ <PUSH R5>
+ <DEAD R5>
+ <CALL '\1aTYPE-OK? 2 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aROT-LSH-ANA>
+#WORD *36052401032*
+<GFCN \1aROT-ANA ("VALUE" ANY ANY ANY) N4 R5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aROT-LSH-ANA>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH R5>
+ <DEAD R5>
+ <PUSH 86>
+ <CALL '\1aROT-LSH-ANA 3 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aROT-ANA>
+#WORD *7052471032*
+<GFCN \1aLSH-ANA ("VALUE" ANY ANY ANY) N4 R5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aROT-LSH-ANA>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH R5>
+ <DEAD R5>
+ <PUSH 87>
+ <CALL '\1aROT-LSH-ANA 3 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aLSH-ANA>
+<COND (<GASSIGNED? ROT-ANA> <PUTPROP ,ROT ANALYSIS ,ROT-ANA> <PUTPROP ,LSH ANALYSIS ,LSH-ANA>)>
+
+#WORD *16677027353*
+<GFCN \1aFLOAT-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aFL-FI-ANA>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH R5>
+ <DEAD R5>
+ <PUSH 'FLOAT>
+ <PUSH 'FIX>
+ <PUSH 40>
+ <CALL '\1aFL-FI-ANA 5 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aFLOAT-ANA>
+<COND (<GASSIGNED? FLOAT-ANA> <PUTPROP ,FLOAT ANALYSIS ,FLOAT-ANA>)>
+
+#WORD *3276346203*
+<GFCN \1aFIX-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aFL-FI-ANA>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH R5>
+ <DEAD R5>
+ <PUSH 'FIX>
+ <PUSH 'FLOAT>
+ <PUSH 39>
+ <CALL '\1aFL-FI-ANA 5 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aFIX-ANA>
+<COND (<GASSIGNED? FIX-ANA> <PUTPROP ,FIX ANALYSIS ,FIX-ANA>)>
+
+#WORD *22452261326*
+<GFCN \1aFL-FI-ANA ("VALUE" ANY NODE ANY ATOM ATOM FIX) N4 RT5 OT6 IT7 COD8>
+ <TEMP K9 TEMP14>
+ <INTGO>
+ <NTHUV N4 5 = K9 (TYPE LIST)>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH N4>
+ <PUSH RT5>
+ <CALL '\1aSEGFLUSH 2 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE22 (DEAD-JUMP COD8 N4 K9)>
+ <DEAD TEMP14>
+ <FRAME '\1aARGCHK>
+ <LENL K9 = STACK (TYPE FIX)>
+ <PUSH 1>
+ <PUSH OT6>
+ <PUSH N4>
+ <CALL '\1aARGCHK 4>
+ <FRAME '\1aEANA>
+ <NTHL K9 1 = K9 (TYPE NODE)>
+ <PUSH K9>
+ <PUSH <OR FIX FLOAT>>
+ <PUSH OT6>
+ <CALL '\1aEANA 3>
+ <NTHUV K9 1 = TEMP14 (TYPE FIX)>
+ <VEQUAL? TEMP14 2 - PHRASE19 (TYPE FIX) (DEAD-JUMP K9) (DEAD-FALL COD8)>
+ <DEAD TEMP14>
+ <PUTUV N4 1 2 (TYPE FIX)>
+ <FRAME>
+ <GVAL OT6 = TEMP14>
+ <NTHUV K9 4 = STACK>
+ <DEAD K9>
+ <ACALL TEMP14 1 = TEMP14>
+ <PUTUV N4 4 TEMP14>
+ <DEAD N4 TEMP14>
+ <JUMP + PHRASE22>
+PHRASE19
+ <PUTUV N4 1 COD8 (TYPE FIX)>
+ <DEAD N4 COD8>
+PHRASE22
+ <FRAME '\1aTYPE-OK?>
+ <PUSH OT6>
+ <DEAD OT6>
+ <PUSH RT5>
+ <DEAD RT5>
+ <CALL '\1aTYPE-OK? 2 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aFL-FI-ANA>
+#WORD *11413546740*
+<GFCN \1aARITHP-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP TEMP3:LBIND TEMP22 TEMP25 N11:FIX K12:LIST (TY18 'BOOLEAN) NT16>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'NOD 'NODE %<> NOD4>
+ <DEAD NOD4>
+ <FIXBIND>
+ <GEN-LVAL 'PRED = TEMP22>
+ <NTHR 'NOD 2 = TEMP25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP25 2 = TEMP25>
+ <EQUAL? TEMP22 TEMP25 + TAG21>
+ <DEAD TEMP22 TEMP25>
+ <SET TEMP22 %<> (TYPE FALSE)>
+ <JUMP + BOOL19>
+TAG21
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+BOOL19
+ <BBIND 'WHON 'ANY 'FIX TEMP22>
+ <DEAD TEMP22>
+ <BBIND 'WHO 'LIST 'FIX ()>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <BBIND 'GLN 'ANY 'FIX TEMP22>
+ <DEAD TEMP22>
+ <BBIND 'GLE 'LIST 'FIX ()>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 4 = TEMP22>
+ <EQUAL? TEMP22 '0? + BOOL37 (DEAD-JUMP TEMP22)>
+ <EQUAL? TEMP22 '1? + BOOL37>
+ <DEAD TEMP22>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 1 = TEMP22 (TYPE FIX)>
+ <VEQUAL? TEMP22 19 - PHRASE36 (TYPE FIX)>
+ <DEAD TEMP22>
+BOOL37
+ <SET TEMP22 1 (TYPE FIX)>
+ <JUMP + PHRASE40>
+PHRASE36
+ <SET TEMP22 2 (TYPE FIX)>
+PHRASE40
+ <SET N11 TEMP22>
+ <DEAD TEMP22>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 5 = K12 (TYPE LIST)>
+ <DEAD TEMP22>
+ <BBIND 'STATE 'FIX 'FIX 1>
+ <BBIND 'ALL-CONST 'ANY 'FIX 'ALL-CONST>
+ <FRAME '\1aSEGFLUSH>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <PUSH RTYP5>
+ <CALL '\1aSEGFLUSH 2 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE44 (DEAD-FALL TY18 K12 N11)>
+ <DEAD TEMP22>
+ <SET TY18 <OR FALSE ATOM> (TYPE FORM)>
+ <JUMP + PHRASE48>
+PHRASE44
+ <VEQUAL? N11 2 - PHRASE50 (TYPE FIX)>
+ <EMPL? K12 + PHRASE50>
+ <RESTL K12 1 = TEMP22 (TYPE LIST)>
+ <EMPL? TEMP22 - PHRASE50>
+ <DEAD TEMP22>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 5 = TEMP22 (TYPE LIST)>
+ <NTHL TEMP22 1 = NT16 (TYPE NODE)>
+ <DEAD TEMP22>
+ <NTHUV NT16 1 = TEMP22 (TYPE FIX)>
+ <VEQUAL? TEMP22 6 - PHRASE50 (TYPE FIX) (DEAD-JUMP NT16)>
+ <DEAD TEMP22>
+ <NTHUV NT16 4 = TEMP22>
+ <EQUAL? TEMP22 'LENGTH - PHRASE50 (DEAD-JUMP NT16)>
+ <DEAD TEMP22>
+ <NTHUV NT16 5 = NT16 (TYPE LIST)>
+ <EMPL? NT16 + PHRASE50 (DEAD-JUMP NT16)>
+ <RESTL NT16 1 = TEMP22 (TYPE LIST)>
+ <EMPL? TEMP22 + PHRASE50 (DEAD-JUMP NT16 TEMP22)>
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <EMPL? TEMP22 - PHRASE50 (DEAD-JUMP NT16)>
+ <DEAD TEMP22>
+ <FRAME '\1aCOMPILE-WARNING>
+ <PUSH "Attempting to repair probable erroneous code:
+">
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <PUSH "
+replaced by">
+ <CALL '\1aCOMPILE-WARNING 3>
+ <RESTL NT16 1 = TEMP25 (TYPE LIST)>
+ <PUTREST K12 TEMP25>
+ <DEAD TEMP25>
+ <PUTREST NT16 ()>
+ <NTHL NT16 1 = TEMP25 (TYPE NODE)>
+ <DEAD NT16>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP25 2 TEMP22>
+ <DEAD TEMP25 TEMP22>
+ <FRAME '\1aNODE-COMPLAIN>
+ <NTHR 'NOD 2 = TEMP25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP25 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP25>
+ <CALL '\1aNODE-COMPLAIN 1>
+ <FRAME '\1aCRLF>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1>
+PHRASE50
+ <FRAME '\1aARGCHK>
+ <LENL K12 = STACK (TYPE FIX)>
+ <PUSH N11>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 4 = STACK>
+ <DEAD TEMP22>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <CALL '\1aARGCHK 4>
+ <SET TEMP22 K12 (TYPE LIST)>
+ <LOOP>
+MAP73
+ <INTGO>
+ <EMPL? TEMP22 + MAPAP76 (DEAD-JUMP TEMP22)>
+ <NTHL TEMP22 1 = NT16>
+ <FRAME '\1aARITH-ELE>
+ <PUSH NT16>
+ <DEAD NT16>
+ <PUSH <OR FIX FLOAT>>
+ <NTHR 'NOD 2 = TEMP25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP25 9 = STACK>
+ <DEAD TEMP25>
+ <CALL '\1aARITH-ELE 3>
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <JUMP + MAP73>
+MAPAP76
+ <NTHR 'ALL-CONST 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE88 (DEAD-FALL TY18)>
+ <DEAD TEMP22>
+ <VEQUAL? N11 1 - PHRASE92 (TYPE FIX)>
+ <DEAD N11>
+ <FRAME>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 9 = TEMP22>
+ <NTHR 'ALL-CONST 2 = TEMP25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP25 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP25>
+ <ACALL TEMP22 1 = TEMP25>
+ <DEAD TEMP22>
+ <NTHR 'ALL-CONST 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP22 1 TEMP25 (RECORD-TYPE LBIND)>
+ <DEAD TEMP22 TEMP25>
+PHRASE92
+ <NTHR 'NOD 2 = TEMP25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP25 1 2 (TYPE FIX)>
+ <DEAD TEMP25>
+ <NTHR 'NOD 2 = TEMP25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE LBIND)>
+ <FRAME '\1aTYPE>
+ <NTHR 'ALL-CONST 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <CALL '\1aTYPE 1 = TY18>
+ <PUTUV TEMP25 3 TY18>
+ <DEAD TEMP25>
+ <NTHR 'ALL-CONST 2 = TEMP25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE LBIND)>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP22 4 TEMP25>
+ <DEAD TEMP22 TEMP25>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP22 5 () (TYPE LIST)>
+ <DEAD TEMP22>
+ <NTHR 'ALL-CONST 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP22 1 'T (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <JUMP + PHRASE167>
+PHRASE88
+ <VEQUAL? N11 2 - PHRASE117 (TYPE FIX)>
+ <NTHL K12 1 = TEMP25 (TYPE NODE)>
+ <NTHUV TEMP25 1 = TEMP25 (TYPE FIX)>
+ <VEQUAL? TEMP25 2 - BOOL120 (TYPE FIX)>
+ <DEAD TEMP25>
+ <NTHL K12 1 = TEMP25 (TYPE NODE)>
+ <NTHUV TEMP25 4 = TEMP25>
+ <EQUAL? TEMP25 0 + BOOL121 (DEAD-JUMP N11)>
+ <DEAD TEMP25>
+ <NTHL K12 1 = TEMP25 (TYPE NODE)>
+ <NTHUV TEMP25 4 = TEMP25>
+ <EQUAL? TEMP25 0.0 - BOOL120 (DEAD-FALL N11)>
+ <DEAD TEMP25>
+BOOL121
+ <RESTL K12 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = NT16 (TYPE NODE)>
+ <DEAD TEMP25>
+ <NTHR 'NOD 2 = TEMP25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE LBIND)>
+ <FRAME '\1aFLOPP>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 4 = STACK (TYPE ATOM)>
+ <DEAD TEMP22>
+ <CALL '\1aFLOPP 1 = TEMP22>
+ <PUTUV TEMP25 4 TEMP22>
+ <DEAD TEMP25 TEMP22>
+ <JUMP + BOOL119>
+BOOL120
+ <RESTL K12 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = TEMP25 (TYPE NODE)>
+ <NTHUV TEMP25 1 = TEMP25 (TYPE FIX)>
+ <VEQUAL? TEMP25 2 - PHRASE117 (TYPE FIX)>
+ <DEAD TEMP25>
+ <RESTL K12 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = TEMP25 (TYPE NODE)>
+ <NTHUV TEMP25 4 = TEMP25>
+ <EQUAL? TEMP25 0 + BOOL128 (DEAD-JUMP N11)>
+ <DEAD TEMP25>
+ <RESTL K12 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = TEMP25 (TYPE NODE)>
+ <NTHUV TEMP25 4 = TEMP25>
+ <EQUAL? TEMP25 0.0 - PHRASE117 (DEAD-FALL N11)>
+ <DEAD TEMP25>
+BOOL128
+ <NTHL K12 1 = NT16 (TYPE NODE)>
+BOOL119
+ <NTHR 'NOD 2 = TEMP25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP25 1 19 (TYPE FIX)>
+ <DEAD TEMP25>
+ <CONS NT16 () = TEMP25>
+ <DEAD NT16>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP22 5 TEMP25 (TYPE LIST)>
+ <DEAD TEMP22 TEMP25>
+ <JUMP + PHRASE167>
+PHRASE117
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 1 = TEMP22 (TYPE FIX)>
+ <VEQUAL? TEMP22 19 + PHRASE167 (TYPE FIX) (DEAD-JUMP N11)>
+ <DEAD TEMP22>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 4 = TEMP22>
+ <EQUAL? TEMP22 '0? + BOOL136 (DEAD-JUMP N11)>
+ <DEAD TEMP22>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 4 = TEMP22>
+ <EQUAL? TEMP22 'N0? - PHRASE135 (DEAD-FALL N11)>
+ <DEAD TEMP22>
+BOOL136
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP22 1 19 (TYPE FIX)>
+ <DEAD TEMP22>
+ <JUMP + PHRASE167>
+PHRASE135
+ <NTHR 'STATE 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <LESS? TEMP22 5 - PHRASE143 (TYPE FIX) (DEAD-JUMP N11)>
+ <DEAD TEMP22>
+ <VEQUAL? N11 2 - PHRASE147 (TYPE FIX)>
+ <DEAD N11>
+ <SET TEMP22 22 (TYPE FIX)>
+ <JUMP + PHRASE151>
+PHRASE147
+ <NTHR 'NOD 2 = TEMP25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP25 4 = TEMP25>
+ <EQUAL? TEMP25 '0? - PHRASE148>
+ <DEAD TEMP25>
+ <SET TEMP22 19 (TYPE FIX)>
+ <JUMP + PHRASE151>
+PHRASE148
+ <SET TEMP22 21 (TYPE FIX)>
+PHRASE151
+ <NTHR 'NOD 2 = TEMP25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP25 1 TEMP22 (TYPE FIX)>
+ <DEAD TEMP25 TEMP22>
+ <JUMP + PHRASE167>
+PHRASE143
+ <NTHR 'NOD 2 = TEMP25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP25 9 = TEMP25>
+ <GVAL '1? = TEMP22>
+ <EQUAL? TEMP25 TEMP22 - PHRASE154>
+ <DEAD TEMP25 TEMP22>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP22 1 21 (TYPE FIX)>
+ <DEAD TEMP22>
+ <JUMP + PHRASE167>
+PHRASE154
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 9 = TEMP22>
+ <GVAL '==? = TEMP25>
+ <EQUAL? TEMP22 TEMP25 + BOOL160>
+ <DEAD TEMP22 TEMP25>
+ <NTHR 'NOD 2 = TEMP25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP25 9 = TEMP25>
+ <GVAL 'N==? = TEMP22>
+ <EQUAL? TEMP25 TEMP22 - PHRASE159 (DEAD-JUMP TY18)>
+ <DEAD TEMP25 TEMP22>
+BOOL160
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP22 1 23 (TYPE FIX)>
+ <DEAD TEMP22>
+ <JUMP + PHRASE167>
+PHRASE159
+ <SET TY18 <OR ATOM FALSE> (TYPE FORM)>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP22 1 52 (TYPE FIX)>
+ <DEAD TEMP22>
+PHRASE167
+ <NTHR 'STATE 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <VEQUAL? TEMP22 2 - PHRASE171 (TYPE FIX) (DEAD-JUMP K12)>
+ <DEAD TEMP22>
+ <NTHR 'ALL-CONST 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE171 (DEAD-JUMP K12)>
+ <DEAD TEMP22>
+ <FRAME '\1aHACK-BOUNDS>
+ <NTHR 'WHO 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <NTHR 'GLE 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <PUSH K12>
+ <DEAD K12>
+ <CALL '\1aHACK-BOUNDS 4>
+PHRASE171
+ <FRAME '\1aCHECK-FOR-BIT-HACK>
+ <NTHR 'NOD 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <CALL '\1aCHECK-FOR-BIT-HACK 1>
+PHRASE48
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TY18>
+ <DEAD TY18>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP22>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -63>
+ <RETURN TEMP22>
+ <DEAD TEMP22>
+ <END \1aARITHP-ANA>
+#WORD *20333426023*
+<GFCN \1aCHECK-FOR-BIT-HACK ("VALUE" !<FALSE> ANY) N4>
+ <TEMP>
+ <INTGO>
+ <RETURN %<>>
+ <END \1aCHECK-FOR-BIT-HACK>
+'<DEFINE CHECK-FOR-BIT-HACK (N "AUX" (NN <1 <KIDS .N>>) DATA CONST K) #DECL ((NN DATA N) NODE (CONST) <PRIMTYPE WORD>) <COND (<AND <==? <NODE-TYPE .N> ,0-TST-CODE> <==? <NODE-TYPE .NN> ,CHTYPE-CODE> <SET NN <1 <KIDS .NN>>> <OR <AND <==? <NODE-TYPE .NN> ,GETBITS-CODE> <SET K <KIDS .NN>> <==? <NODE-TYPE <2 .K>> ,QUOTE-CODE> <SET DATA <1 .K>> <SET CONST <PUTBITS 0 <NODE-NAME <2 .K>> -1>>> <AND <==? <NODE-TYPE .NN> ,BITL-CODE> <==? <NODE-SUBR .NN> ,ANDB> <==? <LENGTH <SET K <KIDS .NN>>> 2> <OR <AND <==? <NODE-TYPE <1 .K>> ,QUOTE-CODE> <SET CONST <NODE-NAME <1 .K>>> <SET DATA <2 .K>>> <AND <==? <NODE-TYPE <2 .K>> ,QUOTE-CODE> <SET CONST <NODE-NAME <2 .K>>> <SET DATA <1 .K>>> <SET CONST 0>>>>> <PUT .N ,NODE-TYPE ,BIT-TEST-CODE> <PUT .N ,NODE-SUBR .CONST> <PUT .N ,KIDS <COND (<ASSIGNED? DATA> (.DATA)) (ELSE .K)>> <COND (<ASSIGNED? DATA> <PUT .DATA ,PARENT .N>) (ELSE <PUT <1 .K> ,PARENT .N> <PUT <2 .K> ,PARENT .N>)>)>>
+
+#WORD *7545545057*
+<GFCN \1aBIT-TEST-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP K6>
+ <INTGO>
+ <NTHUV N4 5 = K6 (TYPE LIST)>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <PUSH <PRIMTYPE WORD>>
+ <PUSH 'BIT-TEST>
+ <CALL '\1aEANA 3>
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <EMPL? K6 + PHRASE9 (TYPE LIST) (DEAD-JUMP K6)>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <DEAD K6>
+ <PUSH <PRIMTYPE WORD>>
+ <PUSH 'BIT-TEST>
+ <CALL '\1aEANA 3>
+PHRASE9
+ <FRAME '\1aTYPE-OK?>
+ <NTHUV N4 3 = STACK>
+ <DEAD N4>
+ <PUSH R5>
+ <DEAD R5>
+ <CALL '\1aTYPE-OK? 2 = K6>
+ <RETURN K6>
+ <DEAD K6>
+ <END \1aBIT-TEST-ANA>
+#WORD *4335252651*
+<GFCN \1aHACK-BOUNDS ("VALUE" <OR ATOM FALSE> LIST LIST NODE <LIST [REST NODE]>) WHO4 GLE5 NOD6 K7>
+ <TEMP (HACKT12 %<>) TEMP17 TEMP19 NUM8 YES9:FORM NO10:FORM L39:LIST TEMP45>
+ <INTGO>
+ <NTHUV NOD6 4 = TEMP17>
+ <EQUAL? TEMP17 '0? + BOOL16 (DEAD-JUMP K7)>
+ <DEAD TEMP17>
+ <NTHUV NOD6 1 = TEMP17 (TYPE FIX)>
+ <VEQUAL? TEMP17 19 - PHRASE15 (TYPE FIX) (DEAD-FALL K7)>
+ <DEAD TEMP17>
+BOOL16
+ <SET TEMP17 0 (TYPE FIX)>
+ <JUMP + PHRASE21>
+PHRASE15
+ <NTHUV NOD6 4 = TEMP19>
+ <EQUAL? TEMP19 '1? - PHRASE18 (DEAD-FALL K7)>
+ <DEAD TEMP19>
+ <SET TEMP17 1 (TYPE FIX)>
+ <JUMP + PHRASE21>
+PHRASE18
+ <NTHL K7 1 = TEMP19 (TYPE NODE)>
+ <NTHUV TEMP19 1 = TEMP19 (TYPE FIX)>
+ <VEQUAL? TEMP19 2 - PHRASE20 (TYPE FIX)>
+ <DEAD TEMP19>
+ <NTHL K7 1 = TEMP19 (TYPE NODE)>
+ <DEAD K7>
+ <JUMP + PEEP113>
+PHRASE20
+ <RESTL K7 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = TEMP19 (TYPE NODE)>
+ <NTHUV TEMP19 1 = TEMP19 (TYPE FIX)>
+ <VEQUAL? TEMP19 2 + TAG22 (TYPE FIX) (DEAD-FALL K7)>
+ <DEAD TEMP19>
+ <SET TEMP17 %<> (TYPE FALSE)>
+ <JUMP + PHRASE21>
+TAG22
+ <FRAME '\1aFLOPP>
+ <NTHUV NOD6 4 = STACK (TYPE ATOM)>
+ <CALL '\1aFLOPP 1 = TEMP19>
+ <PUTUV NOD6 4 TEMP19>
+ <DEAD TEMP19>
+ <NTHL K7 1 = TEMP19 (TYPE NODE)>
+ <CONS TEMP19 () = TEMP19>
+ <RESTL K7 1 = TEMP17 (TYPE LIST)>
+ <NTHL TEMP17 1 = TEMP17 (TYPE NODE)>
+ <CONS TEMP17 TEMP19 = TEMP19>
+ <DEAD TEMP17>
+ <PUTUV NOD6 5 TEMP19 (TYPE LIST)>
+ <DEAD TEMP19>
+ <RESTL K7 1 = TEMP19 (TYPE LIST)>
+ <DEAD K7>
+ <NTHL TEMP19 1 = TEMP19 (TYPE NODE)>
+PEEP113
+ <NTHUV TEMP19 4 = TEMP17>
+ <DEAD TEMP19>
+PHRASE21
+ <SET NUM8 TEMP17>
+ <DEAD TEMP17>
+ <TYPE? NUM8 <TYPE-CODE FALSE> + MAPAP35 (DEAD-JUMP WHO4)>
+ <FRAME '\1aFORM>
+ <PUSH 'FIX>
+ <FRAME '\1aGTV>
+ <PUSH NOD6>
+ <PUSH NUM8>
+ <CALL '\1aGTV 2 = STACK>
+ <CALL '\1aFORM 2 = YES9>
+ <FRAME '\1aFORM>
+ <PUSH 'FIX>
+ <FRAME '\1aNGTV>
+ <PUSH NOD6>
+ <PUSH NUM8>
+ <CALL '\1aNGTV 2 = STACK>
+ <CALL '\1aFORM 2 = NO10>
+ <SET TEMP17 WHO4 (TYPE LIST)>
+ <DEAD WHO4>
+ <LOOP>
+MAP32
+ <INTGO>
+ <EMPL? TEMP17 + MAPAP35 (DEAD-JUMP NO10 YES9 TEMP17)>
+ <NTHL TEMP17 1 = L39>
+ <RESTL L39 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = TEMP19 (TYPE SYMTAB)>
+ <FRAME '\1aADD-TYPE-LIST>
+ <PUSH TEMP19>
+ <PUSH YES9>
+ <GEN-LVAL 'TRUTH = STACK>
+ <PUSH %<>>
+ <RESTL L39 1 = TEMP45 (TYPE LIST)>
+ <RESTL TEMP45 1 = STACK (TYPE LIST)>
+ <DEAD TEMP45>
+ <CALL '\1aADD-TYPE-LIST 5 = TEMP45>
+ <GEN-SET 'TRUTH TEMP45>
+ <DEAD TEMP45>
+ <FRAME '\1aADD-TYPE-LIST>
+ <PUSH TEMP19>
+ <DEAD TEMP19>
+ <PUSH NO10>
+ <GEN-LVAL 'UNTRUTH = STACK>
+ <PUSH %<>>
+ <RESTL L39 1 = TEMP45 (TYPE LIST)>
+ <DEAD L39>
+ <RESTL TEMP45 1 = STACK (TYPE LIST)>
+ <DEAD TEMP45>
+ <CALL '\1aADD-TYPE-LIST 5 = TEMP45>
+ <GEN-SET 'UNTRUTH TEMP45>
+ <DEAD TEMP45>
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <JUMP + MAP32>
+MAPAP35
+ <SET TEMP17 NUM8>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + MAPAP90 (DEAD-JUMP NOD6 GLE5 NUM8 HACKT12) (DEAD-FALL TEMP17)>
+ <LESS? NUM8 0 - TAG57 (TYPE FIX) (DEAD-FALL NOD6 GLE5 NUM8 HACKT12)>
+ <RETURN %<>>
+TAG57
+ <VEQUAL? NUM8 0 + BOOL63 (TYPE FIX)>
+ <NTHUV NOD6 4 = TEMP17>
+ <EQUAL? TEMP17 'G=? + BOOL70>
+ <DEAD TEMP17>
+ <NTHUV NOD6 4 = TEMP17>
+ <EQUAL? TEMP17 'L? + BOOL70>
+ <DEAD TEMP17>
+BOOL63
+ <VEQUAL? NUM8 0 - PHRASE61 (TYPE FIX)>
+ <NTHUV NOD6 4 = TEMP17>
+ <EQUAL? TEMP17 'G? - BOOL71 (DEAD-FALL HACKT12)>
+ <DEAD TEMP17>
+ <SET HACKT12 'T (TYPE ATOM)>
+ <JUMP + BOOL70>
+BOOL71
+ <NTHUV NOD6 4 = TEMP17>
+ <EQUAL? TEMP17 'L=? - PHRASE61>
+ <DEAD TEMP17>
+BOOL70
+ <ADD NUM8 1 = NUM8 (TYPE FIX)>
+PHRASE61
+ <VEQUAL? HACKT12 0 - TAG77 (DEAD-FALL HACKT12)>
+ <NTHUV NOD6 4 = TEMP17>
+ <SET TEMP19 [1? L? L=? ==?] (TYPE VECTOR)>
+ <TYPE? TEMP17 <TYPE-CODE ATOM> - TAG73 (DEAD-JUMP TEMP19 TEMP17)>
+ <LOOP (TEMP17 VALUE) (TEMP19 LENGTH VALUE)>
+TAG75
+ <NTHUV TEMP19 1 = TEMP45>
+ <VEQUAL? TEMP45 TEMP17 + TAG74 (DEAD-JUMP TEMP17)>
+ <DEAD TEMP45>
+ <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
+ <EMPUV? TEMP19 - TAG75 (DEAD-FALL TEMP19 TEMP17)>
+TAG73
+ <SET HACKT12 %<> (TYPE FALSE)>
+ <JUMP + TAG77>
+TAG74
+ <SET HACKT12 TEMP19>
+ <DEAD TEMP19>
+TAG77
+ <NTHUV NOD6 4 = TEMP19>
+ <DEAD NOD6>
+ <EQUAL? TEMP19 '0? - PHRASE79 (DEAD-FALL NUM8)>
+ <DEAD TEMP19>
+ <SET NUM8 1 (TYPE FIX)>
+PHRASE79
+ <GRTR? NUM8 0 + PHRASE81 (TYPE FIX) (DEAD-FALL NUM8)>
+ <SET NUM8 'STRUCTURED (TYPE ATOM)>
+ <JUMP + PHRASE84>
+PHRASE81
+ <FRAME '\1aANY-PAT>
+ <PUSH NUM8>
+ <DEAD NUM8>
+ <CALL '\1aANY-PAT 1 = TEMP19>
+ <CONS 'STRUCTURED TEMP19 = TEMP19>
+ <CHTYPE TEMP19 <TYPE-CODE FORM> = NUM8>
+ <DEAD TEMP19>
+PHRASE84
+ <SET TEMP17 %<> (TYPE FALSE)>
+ <SET TEMP19 GLE5 (TYPE LIST)>
+ <DEAD GLE5>
+ <LOOP>
+MAP87
+ <INTGO>
+ <EMPL? TEMP19 + MAPAP90 (DEAD-JUMP NUM8 TEMP19 HACKT12) (DEAD-FALL TEMP17)>
+ <NTHL TEMP19 1 = L39>
+ <RESTL L39 1 = TEMP17 (TYPE LIST)>
+ <NTHL TEMP17 1 = TEMP17 (TYPE SYMTAB)>
+ <TYPE? HACKT12 <TYPE-CODE FALSE> + PHRASE99>
+ <FRAME '\1aADD-TYPE-LIST>
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <PUSH NUM8>
+ <GEN-LVAL 'TRUTH = STACK>
+ <PUSH %<>>
+ <RESTL L39 1 = TEMP17 (TYPE LIST)>
+ <DEAD L39>
+ <RESTL TEMP17 1 = STACK (TYPE LIST)>
+ <DEAD TEMP17>
+ <CALL '\1aADD-TYPE-LIST 5 = TEMP17>
+ <GEN-SET 'TRUTH TEMP17>
+ <DEAD TEMP17>
+ <JUMP + PHRASE106>
+PHRASE99
+ <FRAME '\1aADD-TYPE-LIST>
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <PUSH NUM8>
+ <GEN-LVAL 'UNTRUTH = STACK>
+ <PUSH %<>>
+ <RESTL L39 1 = L39 (TYPE LIST)>
+ <RESTL L39 1 = STACK (TYPE LIST)>
+ <DEAD L39>
+ <CALL '\1aADD-TYPE-LIST 5 = L39>
+ <GEN-SET 'UNTRUTH L39>
+ <DEAD L39>
+PHRASE106
+ <SET TEMP17 'T (TYPE ATOM)>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <JUMP + MAP87>
+MAPAP90
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aHACK-BOUNDS>
+<SETG APSUBTAB [1? 0? L? L=? G? G=? ==? N==?]>
+
+<GDECL (APSUBTAB) <VECTOR [REST ATOM]>>
+
+<SETG DCLTAB [(1 1) (0 0) ('<COND (<==? .VAL ,PLUSINF> .VAL) (ELSE <+ .VAL 1>)> ,PLUSINF) ('.VAL ,PLUSINF) (,MINUSINF '<COND (<==? .VAL ,MINUSINF> .VAL) (ELSE <- .VAL 1>)>) (,MINUSINF '.VAL) ('.VAL '.VAL) (,MINUSINF '<COND (<==? .VAL ,MINUSINF> .VAL) (ELSE <- .VAL 1>)> '<COND (<==? .VAL ,PLUSINF> .VAL) (ELSE <+ .VAL 1>)> ,PLUSINF)]>
+
+<SETG NDCLTAB [(,MINUSINF 0 2 ,PLUSINF) (,MINUSINF -1 1 ,PLUSINF) (,MINUSINF '.VAL) (,MINUSINF '<COND (<==? .VAL ,MINUSINF> .VAL) (ELSE <- .VAL 1>)>) ('.VAL ,PLUSINF) ('<COND (<==? .VAL ,PLUSINF> .VAL) (ELSE <+ .VAL 1>)> ,PLUSINF) (,MINUSINF '<COND (<==? .VAL ,MINUSINF> .VAL) (ELSE <- .VAL 1>)> '<COND (<==? .VAL ,PLUSINF> .VAL) (ELSE <+ .VAL 1>)> ,PLUSINF) ('.VAL '.VAL)]>
+
+<GDECL (DCLTAB NDCLTAB) VECTOR>
+
+#WORD *13200166413*
+<GFCN \1aNGTV ("VALUE" ANY NODE ANY) NOD4 VAL5>
+ <TEMP TEMP3:LBIND TEMP7:VECTOR TEMP14 TEMP15 TEMP16>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'VAL 'ANY %<> VAL5>
+ <DEAD VAL5>
+ <FIXBIND>
+ <FRAME '\1aEVAL>
+ <GVAL 'NDCLTAB = TEMP7 (TYPE VECTOR)>
+ <FRAME '\1aLENGTH>
+ <NTHUV NOD4 4 = TEMP14>
+ <DEAD NOD4>
+ <GVAL 'APSUBTAB = TEMP15 (TYPE VECTOR)>
+ <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG10 (DEAD-JUMP TEMP15 TEMP14)>
+ <EMPUV? TEMP15 + TAG10 (DEAD-JUMP TEMP15 TEMP14)>
+ <LOOP (TEMP14 VALUE) (TEMP15 LENGTH VALUE)>
+TAG12
+ <NTHUV TEMP15 1 = TEMP16>
+ <VEQUAL? TEMP16 TEMP14 + TAG11 (DEAD-JUMP TEMP14)>
+ <DEAD TEMP16>
+ <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
+ <EMPUV? TEMP15 - TAG12 (DEAD-FALL TEMP15 TEMP14)>
+TAG10
+ <PUSH %<>>
+ <JUMP + TAG17>
+TAG11
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+TAG17
+ <CALL '\1aLENGTH 1 = TEMP15>
+ <SUB 9 TEMP15 = TEMP14 (TYPE FIX)>
+ <DEAD TEMP15>
+ <NTHUV TEMP7 TEMP14 = STACK>
+ <DEAD TEMP7 TEMP14>
+ <CALL '\1aEVAL 1 = TEMP14>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -9>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aNGTV>
+#WORD *23346245640*
+<GFCN \1aGTV ("VALUE" ANY NODE ANY) NOD4 VAL5>
+ <TEMP TEMP3:LBIND TEMP7:VECTOR TEMP14 TEMP15 TEMP16>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'VAL 'ANY %<> VAL5>
+ <DEAD VAL5>
+ <FIXBIND>
+ <FRAME '\1aEVAL>
+ <GVAL 'DCLTAB = TEMP7 (TYPE VECTOR)>
+ <FRAME '\1aLENGTH>
+ <NTHUV NOD4 4 = TEMP14>
+ <DEAD NOD4>
+ <GVAL 'APSUBTAB = TEMP15 (TYPE VECTOR)>
+ <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG10 (DEAD-JUMP TEMP15 TEMP14)>
+ <EMPUV? TEMP15 + TAG10 (DEAD-JUMP TEMP15 TEMP14)>
+ <LOOP (TEMP14 VALUE) (TEMP15 LENGTH VALUE)>
+TAG12
+ <NTHUV TEMP15 1 = TEMP16>
+ <VEQUAL? TEMP16 TEMP14 + TAG11 (DEAD-JUMP TEMP14)>
+ <DEAD TEMP16>
+ <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
+ <EMPUV? TEMP15 - TAG12 (DEAD-FALL TEMP15 TEMP14)>
+TAG10
+ <PUSH %<>>
+ <JUMP + TAG17>
+TAG11
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+TAG17
+ <CALL '\1aLENGTH 1 = TEMP15>
+ <SUB 9 TEMP15 = TEMP14 (TYPE FIX)>
+ <DEAD TEMP15>
+ <NTHUV TEMP7 TEMP14 = STACK>
+ <DEAD TEMP7 TEMP14>
+ <CALL '\1aEVAL 1 = TEMP14>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -9>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aGTV>
+#WORD *32115544714*
+<GFCN \1aFLOPP ("VALUE" ATOM ATOM) SUBR4>
+ <TEMP TEMP9 TEMP10>
+ <INTGO>
+ <SET TEMP9 [G? L? G? G=? L=? G=? ==? ==? N==? N==?] (TYPE VECTOR)>
+ <LOOP (SUBR4 VALUE) (TEMP9 LENGTH VALUE)>
+TAG7
+ <NTHUV TEMP9 1 = TEMP10>
+ <VEQUAL? TEMP10 SUBR4 + TAG6 (DEAD-JUMP SUBR4)>
+ <DEAD TEMP10>
+ <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
+ <EMPUV? TEMP9 - TAG7 (DEAD-FALL SUBR4 TEMP9)>
+ <SET TEMP9 %<> (TYPE FALSE)>
+TAG6
+ <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
+ <NTHUV TEMP9 1 = TEMP9 (TYPE ATOM)>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aFLOPP>
+<COND (<GASSIGNED? ARITH-ANA> <PUTPROP ,+ ANALYSIS ,ARITH-ANA> <PUTPROP ,- ANALYSIS ,ARITH-ANA> <PUTPROP ,* ANALYSIS ,ARITH-ANA> <PUTPROP ,/ ANALYSIS ,ARITH-ANA> <PUTPROP ,MAX ANALYSIS ,ARITH-ANA> <PUTPROP ,MIN ANALYSIS ,ARITH-ANA> <PUTPROP ,0? ANALYSIS ,ARITHP-ANA> <PUTPROP ,1? ANALYSIS ,ARITHP-ANA> <PUTPROP ,L? ANALYSIS ,ARITHP-ANA> <PUTPROP ,G? ANALYSIS ,ARITHP-ANA> <PUTPROP ,G=? ANALYSIS ,ARITHP-ANA> <PUTPROP ,L=? ANALYSIS ,ARITHP-ANA>)>
+
+<ENDPACKAGE>
projects / pdp10-muddle.git / blobdiff