--- /dev/null
+
+<PACKAGE "NPRINT">
+
+<ENTRY NODE-COMPLAIN NODE-PRINT>
+
+<USE "COMPDEC" "NEWSTRUC">
+
+<NEW-CHANNEL-TYPE INTCHAN DEFAULT OPEN INTCHAN-OPEN CLOSE INTCHAN-CLOSE WRITE-BYTE INTCHAN-WRITE-BYTE WRITE-BUFFER INTCHAN-WRITE-BUFFER>
+
+<NEWSTRUC INTCHAN VECTOR INTOUT <OR CHANNEL FALSE> INTCOUNT FIX INTMAX FIX>
+
+#WORD *35031554542*
+ <GFCN \1aNODE-COMPLAIN ("VALUE" <OR FALSE FIX> NODE "OPTIONAL" FIX) N6 MAX7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH 80>
+OPT5
+ <TEMP P8:NODE OPP12 TEMP17 TEM9 TEMP24>
+ <INTGO>
+ <SET P8 N6>
+ <SET OPP12 P8>
+ <LOOP>
+AGAIN13
+ <INTGO>
+ <EMPUV? OPP12 + EXIT10 (TYPE NODE)>
+ <FRAME '\1aNODE-PRINT>
+ <PUSH OPP12>
+ <PUSH N6>
+ <PUSH MAX7>
+ <PUSH 'T>
+ <CALL '\1aNODE-PRINT 4 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + EXIT10>
+ <DEAD TEMP17>
+ <SET P8 OPP12>
+ <NTHUV P8 2 = TEM9>
+ <TYPE? TEM9 <TYPE-CODE NODE> - EXIT10>
+ <SET TEMP17 OPP12>
+ <DEAD OPP12>
+ <SET OPP12 TEM9>
+ <DEAD TEM9>
+ <NTHUV OPP12 5 = TEM9 (TYPE LIST)>
+ <EMPL? TEM9 + EXIT10>
+ <LOOP (TEMP17 VALUE) (TEM9 VALUE)>
+TAG21
+ <NTHL TEM9 1 = TEMP24>
+ <VEQUAL? TEMP24 TEMP17 + AGAIN13>
+ <DEAD TEMP24>
+ <RESTL TEM9 1 = TEM9 (TYPE LIST)>
+ <EMPL? TEM9 - TAG21>
+EXIT10
+ <FRAME '\1aNODE-PRINT>
+ <PUSH P8>
+ <DEAD P8>
+ <PUSH N6>
+ <DEAD N6>
+ <PUSH MAX7>
+ <DEAD MAX7>
+ <CALL '\1aNODE-PRINT 3 = TEM9>
+ <RETURN TEM9>
+ <DEAD TEM9>
+ <END \1aNODE-COMPLAIN>
+
+#WORD *24123452527*
+ <GFCN \1aNODE-PRINT ("VALUE" <OR !<FALSE> FIX> ANY "OPTIONAL" <OR FALSE NODE> FIX ANY) N8 LOSER9 MAX10 FLAT11>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <PUSH 80>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP TEMP3:LBIND OUTC12 TEMP22 SU27>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <TYPE? LOSER9 <TYPE-CODE UNBOUND> - TAG15>
+ <SET LOSER9 %<> (TYPE FALSE)>
+TAG15
+ <BBIND 'LOSER <OR FALSE NODE> 'FIX LOSER9>
+ <DEAD LOSER9>
+ <FIXBIND>
+ <GEN-LVAL 'OUTCHAN = OUTC12>
+ <FRAME '\1aCHANNEL-OPEN>
+ <PUSH 'INTCHAN>
+ <PUSH "">
+ <TYPE? FLAT11 <TYPE-CODE FALSE> + PHRASE21>
+ <SET TEMP22 %<> (TYPE FALSE)>
+ <JUMP + COND20>
+PHRASE21
+ <SET TEMP22 OUTC12>
+COND20
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <PUSH 0>
+ <PUSH MAX10>
+ <DEAD MAX10>
+ <CALL '\1aCHANNEL-OPEN 5 = TEMP22>
+ <BBIND 'OUTCHAN 'CHANNEL 'FIX TEMP22>
+ <DEAD TEMP22>
+ <FRAME '\1aRESET>
+ <NTHR 'OUTCHAN 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <CALL '\1aRESET 1>
+ <NTHR 'OUTCHAN 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 6 = SU27 (TYPE MUD-CHAN)>
+ <DEAD TEMP22>
+ <NTHUV OUTC12 6 = TEMP22 (TYPE MUD-CHAN)>
+ <NTHUV TEMP22 1 = TEMP22 (TYPE FIX)>
+ <SUB TEMP22 2 = TEMP22 (TYPE FIX)>
+ <PUTUV SU27 1 TEMP22 (TYPE FIX)>
+ <DEAD SU27>
+ <ICALL EXIT38 = TEMP22>
+ <TEMP TEMP39 TEMP42>
+ <INTGO>
+ <CFRAME = TEMP39>
+ <NTHR TEMP39 5 = TEMP39 (RECORD-TYPE FRAME)>
+ <CFRAME = TEMP42 (TYPE FRAME)>
+ <BBIND 'NACT 'FRAME 'FIX TEMP42>
+ <DEAD TEMP42>
+ <ACTIVATION>
+ <FRAME '\1aNPRINT>
+ <SETLR TEMP42 TEMP39 N8>
+ <PUSH TEMP42>
+ <DEAD TEMP42>
+ <CALL '\1aNPRINT 1>
+ <RETURN %<>>
+EXIT38
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE37>
+ <DEAD TEMP22>
+ <TYPE? FLAT11 <TYPE-CODE FALSE> - BOOL45>
+ <FRAME '\1aPRINC>
+ <PUSH " ...">
+ <PUSH OUTC12>
+ <CALL '\1aPRINC 2>
+BOOL45
+ <SET SU27 %<> (TYPE FALSE)>
+ <JUMP + PHRASE47>
+PHRASE37
+ <NTHR 'OUTCHAN 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 5 = TEMP22 (TYPE INTCHAN)>
+ <NTHUV TEMP22 2 = SU27 (TYPE FIX)>
+ <DEAD TEMP22>
+PHRASE47
+ <TYPE? FLAT11 <TYPE-CODE FALSE> - BOOL50>
+ <DEAD FLAT11>
+ <FRAME '\1aCRLF>
+ <PUSH OUTC12>
+ <DEAD OUTC12>
+ <CALL '\1aCRLF 1>
+BOOL50
+ <FRAME '\1aCLOSE>
+ <NTHR 'OUTCHAN 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <CALL '\1aCLOSE 1>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -18>
+ <RETURN SU27>
+ <DEAD SU27>
+ <END \1aNODE-PRINT>
+
+#WORD *22020566200*
+ <GFCN \1aINTCHAN-OPEN ("VALUE" INTCHAN ANY ANY ANY ANY ANY ANY) TYP4 OPER5 NM6 C-OR-F7 CNT8 MAX9>
+ <TEMP TEMP11>
+ <INTGO>
+ <PUSH C-OR-F7>
+ <DEAD C-OR-F7>
+ <PUSH CNT8>
+ <DEAD CNT8>
+ <PUSH MAX9>
+ <DEAD MAX9>
+ <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP11>
+ <CHTYPE TEMP11 <TYPE-CODE INTCHAN> = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aINTCHAN-OPEN>
+
+#WORD *247250345*
+ <GFCN \1aINTCHAN-CLOSE ("VALUE" ATOM ANY ANY) CHANNEL4 OPER5>
+ <TEMP>
+ <INTGO>
+ <RETURN 'T>
+ <END \1aINTCHAN-CLOSE>
+
+#WORD *10455001245*
+ <GFCN \1aINTCHAN-WRITE-BYTE ("VALUE" ANY CHANNEL ANY ANY) CHAN4 OPER5 CHR6>
+ <TEMP D7 INO8 TEMP13>
+ <INTGO>
+ <NTHUV CHAN4 5 = D7>
+ <DEAD CHAN4>
+ <NTHUV D7 1 = INO8>
+ <TYPE? INO8 <TYPE-CODE FALSE> - PHRASE10>
+ <DEAD INO8>
+ <NTHUV D7 2 = TEMP13 (TYPE FIX)>
+ <ADD TEMP13 1 = INO8 (TYPE FIX)>
+ <DEAD TEMP13>
+ <NTHUV D7 3 = TEMP13 (TYPE FIX)>
+ <GRTR? INO8 TEMP13 - PHRASE12 (TYPE FIX)>
+ <DEAD TEMP13>
+ <FRAME '\1aRETURN>
+ <PUSH 'T>
+ <GEN-LVAL 'NACT = STACK>
+ <CALL '\1aRETURN 2 = D7>
+ <RETURN D7>
+ <DEAD D7>
+PHRASE12
+ <PUTUV D7 2 INO8 (TYPE FIX)>
+ <DEAD INO8>
+ <RETURN D7>
+ <DEAD D7>
+PHRASE10
+ <NTHUV D7 2 = INO8 (TYPE FIX)>
+ <NTHUV D7 3 = TEMP13 (TYPE FIX)>
+ <VEQUAL? INO8 TEMP13 - TAG22 (TYPE FIX)>
+ <DEAD INO8 TEMP13>
+ <RETURN %<>>
+TAG22
+ <FRAME '\1aCHANNEL-OP>
+ <NTHUV D7 1 = STACK (TYPE CHANNEL)>
+ <PUSH 'WRITE-BYTE>
+ <PUSH CHR6>
+ <DEAD CHR6>
+ <CALL '\1aCHANNEL-OP 3>
+ <NTHUV D7 2 = INO8 (TYPE FIX)>
+ <ADD INO8 1 = INO8 (TYPE FIX)>
+ <PUTUV D7 2 INO8 (TYPE FIX)>
+ <DEAD INO8>
+ <RETURN D7>
+ <DEAD D7>
+ <END \1aINTCHAN-WRITE-BYTE>
+
+#WORD *5123450277*
+ <GFCN \1aINTCHAN-WRITE-BUFFER ("VALUE" ANY CHANNEL ANY STRING "OPTIONAL" FIX) CHAN6 OPER7 STR8 N9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP D10 INO11 TEMP16:FIX TEMP30:FIX>
+ <INTGO>
+ <TYPE? N9 <TYPE-CODE UNBOUND> - TAG12>
+ <LENUS STR8 = N9 (TYPE FIX)>
+TAG12
+ <NTHUV CHAN6 5 = D10>
+ <DEAD CHAN6>
+ <NTHUV D10 1 = INO11>
+ <TYPE? INO11 <TYPE-CODE FALSE> - PHRASE15>
+ <NTHUV D10 3 = TEMP16 (TYPE FIX)>
+ <NTHUV D10 2 = INO11 (TYPE FIX)>
+ <ADD INO11 N9 = INO11 (TYPE FIX)>
+ <DEAD N9>
+ <GRTR? TEMP16 INO11 - TAG18>
+ <SET TEMP16 INO11 (TYPE FIX)>
+ <DEAD INO11>
+TAG18
+ <SET INO11 TEMP16>
+ <DEAD TEMP16>
+ <PUTUV D10 2 INO11 (TYPE FIX)>
+ <NTHUV D10 3 = D10 (TYPE FIX)>
+ <VEQUAL? INO11 D10 + TAG22 (TYPE FIX)>
+ <DEAD INO11 D10>
+ <RETURN %<>>
+TAG22
+ <FRAME '\1aRETURN>
+ <PUSH 'T>
+ <GEN-LVAL 'NACT = STACK>
+ <CALL '\1aRETURN 2 = INO11>
+ <RETURN INO11>
+ <DEAD INO11>
+PHRASE15
+ <NTHUV D10 2 = TEMP16 (TYPE FIX)>
+ <ADD TEMP16 N9 = N9 (TYPE FIX)>
+ <DEAD TEMP16>
+ <NTHUV D10 3 = TEMP16 (TYPE FIX)>
+ <GRTR? N9 TEMP16 + PHRASE26 (TYPE FIX)>
+ <DEAD TEMP16>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH INO11>
+ <DEAD INO11>
+ <PUSH 'WRITE-BUFFER>
+ <PUSH STR8>
+ <DEAD STR8>
+ <NTHUV D10 2 = TEMP16 (TYPE FIX)>
+ <SUB N9 TEMP16 = STACK (TYPE FIX)>
+ <DEAD TEMP16>
+ <CALL '\1aCHANNEL-OP 4>
+ <PUTUV D10 2 N9 (TYPE FIX)>
+ <DEAD N9>
+ <RETURN D10>
+ <DEAD D10>
+PHRASE26
+ <NTHUV D10 2 = TEMP16 (TYPE FIX)>
+ <NTHUV D10 3 = TEMP30 (TYPE FIX)>
+ <VEQUAL? TEMP16 TEMP30 - TAG31 (TYPE FIX)>
+ <DEAD TEMP16 TEMP30>
+ <RETURN %<>>
+TAG31
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH INO11>
+ <DEAD INO11>
+ <PUSH 'WRITE-BUFFER>
+ <PUSH STR8>
+ <DEAD STR8>
+ <NTHUV D10 3 = TEMP16 (TYPE FIX)>
+ <NTHUV D10 2 = TEMP30 (TYPE FIX)>
+ <SUB TEMP16 TEMP30 = STACK (TYPE FIX)>
+ <DEAD TEMP16 TEMP30>
+ <CALL '\1aCHANNEL-OP 4>
+ <NTHUV D10 3 = TEMP30 (TYPE FIX)>
+ <PUTUV D10 2 TEMP30 (TYPE FIX)>
+ <DEAD TEMP30>
+ <RETURN D10>
+ <DEAD D10>
+ <END \1aINTCHAN-WRITE-BUFFER>
+
+#WORD *7266266326*
+ <GFCN \1aNPRINT ("VALUE" ANY NODE) N4>
+ <TEMP COD5 TEMP9 TEMP61 TEMP62 TEMP83>
+ <INTGO>
+ <NTHUV N4 1 = COD5 (TYPE FIX)>
+ <GEN-LVAL 'LOSER = TEMP9>
+ <EQUAL? TEMP9 N4 - TAG8>
+ <DEAD TEMP9>
+ <SET TEMP9 'T (TYPE ATOM)>
+ <JUMP + TAG12>
+TAG8
+ <SET TEMP9 %<> (TYPE FALSE)>
+TAG12
+ <VEQUAL? TEMP9 0 + BOOL13>
+ <FRAME '\1aPRINC>
+ <PUSH " **** ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+BOOL13
+ <VEQUAL? COD5 1 + BOOL19 (TYPE FIX)>
+ <VEQUAL? COD5 51 - PHRASE18 (TYPE FIX)>
+BOOL19
+ <FRAME '\1aPRINC>
+ <PUSH "<FUNCTION ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRNARGL>
+ <NTHUV N4 10 = STACK (TYPE LIST)>
+ <NTHUV N4 3 = STACK>
+ <PUSH %<>>
+ <CALL '\1aPRNARGL 3>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aSEQ-PRINT>
+ <NTHUV N4 5 = STACK (TYPE LIST)>
+ <DEAD N4>
+ <CALL '\1aSEQ-PRINT 1>
+ <FRAME '\1aPRINC>
+ <PUSH ">">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE194>
+PHRASE18
+ <VEQUAL? COD5 5 - PHRASE36 (TYPE FIX)>
+ <FRAME '\1aPRINC>
+ <PUSH "<">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV N4 4 = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRNARGL>
+ <NTHUV N4 10 = STACK (TYPE LIST)>
+ <NTHUV N4 3 = STACK>
+ <PUSH 'T>
+ <CALL '\1aPRNARGL 3>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aSEQ-PRINT>
+ <NTHUV N4 5 = STACK (TYPE LIST)>
+ <DEAD N4>
+ <CALL '\1aSEQ-PRINT 1>
+ <FRAME '\1aPRINC>
+ <PUSH ">">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE194>
+PHRASE36
+ <VEQUAL? COD5 71 - PHRASE59 (TYPE FIX)>
+ <FRAME '\1aPRINC>
+ <GVAL 'MAP-SPEC-PRINT = TEMP61>
+ <NTHUV N4 9 = TEMP62>
+ <DEAD N4>
+ <NTHUV TEMP61 TEMP62 = STACK (TYPE STRING)>
+ <DEAD TEMP61 TEMP62>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE194>
+PHRASE59
+ <VEQUAL? COD5 62 - PHRASE65 (TYPE FIX)>
+ <FRAME '\1aPRINC>
+ <PUSH ",">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <NTHUV N4 5 = TEMP61 (TYPE LIST)>
+ <EMPL? TEMP61 + PHRASE194 (TYPE LIST)>
+ <DEAD TEMP61>
+ <FRAME '\1aPRIN1>
+ <NTHUV N4 5 = TEMP61 (TYPE LIST)>
+ <DEAD N4>
+ <NTHL TEMP61 1 = TEMP61 (TYPE NODE)>
+ <NTHUV TEMP61 4 = STACK>
+ <DEAD TEMP61>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <JUMP + PHRASE194>
+PHRASE65
+ <VEQUAL? COD5 15 - PHRASE75 (TYPE FIX)>
+ <FRAME '\1aPRINC>
+ <GVAL 'ST-CHRS = TEMP61>
+ <NTHUV N4 4 = TEMP62>
+ <SET TEMP83 [TUPLE UVECTOR VECTOR LIST] (TYPE VECTOR)>
+ <TYPE? TEMP62 <TYPE-CODE ATOM> - TAG78>
+ <LOOP (TEMP62 VALUE) (TEMP83 LENGTH VALUE)>
+TAG80
+ <NTHUV TEMP83 1 = COD5>
+ <VEQUAL? COD5 TEMP62 + TAG79>
+ <DEAD COD5>
+ <RESTUV TEMP83 1 = TEMP83 (TYPE VECTOR)>
+ <EMPUV? TEMP83 - TAG80>
+TAG78
+ <SET TEMP83 %<> (TYPE FALSE)>
+TAG79
+ <LENR TEMP83 = COD5 (RECORD-TYPE %<>) (TYPE FIX)>
+ <DEAD TEMP83>
+ <NTHUV TEMP61 COD5 = STACK (TYPE STRING)>
+ <DEAD TEMP61>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aSEQ-PRINT>
+ <NTHUV N4 5 = STACK (TYPE LIST)>
+ <DEAD N4>
+ <CALL '\1aSEQ-PRINT 1>
+ <FRAME '\1aPRINC>
+ <GVAL 'EN-CHRS = TEMP83>
+ <NTHUV TEMP83 COD5 = STACK (TYPE STRING)>
+ <DEAD TEMP83 COD5>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE194>
+PHRASE75
+ <VEQUAL? COD5 68 + BOOL92 (TYPE FIX)>
+ <VEQUAL? COD5 3 - PHRASE91 (TYPE FIX)>
+BOOL92
+ <FRAME '\1aPRINC>
+ <PUSH "!">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <NTHUV N4 5 = COD5 (TYPE LIST)>
+ <EMPL? COD5 + PHRASE194 (TYPE LIST)>
+ <DEAD COD5>
+ <FRAME '\1aNPRINT>
+ <NTHUV N4 5 = COD5 (TYPE LIST)>
+ <DEAD N4>
+ <NTHL COD5 1 = STACK (TYPE NODE)>
+ <DEAD COD5>
+ <CALL '\1aNPRINT 1>
+ <JUMP + PHRASE194>
+PHRASE91
+ <VEQUAL? COD5 8 - PHRASE99 (TYPE FIX)>
+ <FRAME '\1aPRINC>
+ <PUSH "(">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aNPRINT>
+ <NTHUV N4 4 = STACK (TYPE NODE)>
+ <CALL '\1aNPRINT 1>
+ <NTHUV N4 5 = TEMP61 (TYPE LIST)>
+ <EMPL? TEMP61 + PHRASE105 (TYPE LIST)>
+ <DEAD TEMP61>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aSEQ-PRINT>
+ <NTHUV N4 5 = STACK (TYPE LIST)>
+ <DEAD N4>
+ <CALL '\1aSEQ-PRINT 1>
+PHRASE105
+ <FRAME '\1aPRINC>
+ <PUSH ")">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE194>
+PHRASE99
+ <VEQUAL? COD5 2 - PHRASE115 (TYPE FIX)>
+ <NTHUV N4 4 = TEMP61>
+ <TYPE? TEMP61 <TYPE-CODE VECTOR> + TAG118>
+ <TYPE? TEMP61 <TYPE-CODE UVECTOR> + TAG118>
+ <TYPE? TEMP61 <TYPE-CODE LIST> + TAG118>
+ <TYPE? TEMP61 <TYPE-CODE FORM> - BOOL116>
+ <DEAD TEMP61>
+TAG118
+ <FRAME '\1aPRINC>
+ <PUSH !\'>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+BOOL116
+ <FRAME '\1aPRIN1>
+ <NTHUV N4 4 = STACK>
+ <DEAD N4>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <JUMP + PHRASE194>
+PHRASE115
+ <VEQUAL? COD5 11 + BOOL128 (TYPE FIX)>
+ <VEQUAL? COD5 32 - PHRASE127 (TYPE FIX)>
+BOOL128
+ <FRAME '\1aPRINC>
+ <PUSH "<">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <PUSH 'SET>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aSEQ-PRINT>
+ <NTHUV N4 5 = STACK (TYPE LIST)>
+ <DEAD N4>
+ <CALL '\1aSEQ-PRINT 1>
+ <FRAME '\1aPRINC>
+ <PUSH ">">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE194>
+PHRASE127
+ <GVAL 'LGV = TEMP61>
+ <EMPUU? TEMP61 + TAG148>
+ <LOOP (COD5 VALUE) (TEMP61 LENGTH VALUE)>
+TAG149
+ <NTHUU TEMP61 1 = TEMP62>
+ <VEQUAL? TEMP62 COD5 + BOOL154>
+ <DEAD TEMP62>
+ <RESTUU TEMP61 1 = TEMP61 (TYPE UVECTOR)>
+ <EMPUU? TEMP61 - TAG149>
+TAG148
+ <VEQUAL? COD5 6 - PHRASE146 (TYPE FIX)>
+ <DEAD COD5>
+ <NTHUV N4 9 = TEMP61>
+ <GVAL 'LVAL = TEMP62>
+ <EQUAL? TEMP61 TEMP62 - BOOL155>
+ <DEAD TEMP61 TEMP62>
+ <SET COD5 31 (TYPE FIX)>
+ <JUMP + BOOL154>
+BOOL155
+ <NTHUV N4 9 = TEMP62>
+ <GVAL 'GVAL = TEMP61>
+ <EQUAL? TEMP62 TEMP61 - PHRASE146>
+ <DEAD TEMP62 TEMP61>
+ <SET COD5 33 (TYPE FIX)>
+BOOL154
+ <VEQUAL? COD5 10 + BOOL159 (TYPE FIX)>
+ <VEQUAL? COD5 31 - PHRASE158 (TYPE FIX)>
+ <DEAD COD5>
+BOOL159
+ <FRAME '\1aPRINC>
+ <PUSH !\.>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE163>
+PHRASE158
+ <FRAME '\1aPRINC>
+ <PUSH !\,>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+PHRASE163
+ <NTHUV N4 4 = TEMP61>
+ <TYPE? TEMP61 <TYPE-CODE SYMTAB> - PHRASE168>
+ <DEAD TEMP61>
+ <FRAME '\1aPRIN1>
+ <NTHUV N4 4 = TEMP61 (TYPE SYMTAB)>
+ <DEAD N4>
+ <NTHUV TEMP61 2 = STACK (TYPE ATOM)>
+ <DEAD TEMP61>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <JUMP + PHRASE194>
+PHRASE168
+ <NTHUV N4 5 = TEMP61 (TYPE LIST)>
+ <EMPL? TEMP61 + PHRASE194 (TYPE LIST)>
+ <DEAD TEMP61>
+ <FRAME '\1aNPRINT>
+ <NTHUV N4 5 = TEMP61 (TYPE LIST)>
+ <DEAD N4>
+ <NTHL TEMP61 1 = STACK (TYPE NODE)>
+ <DEAD TEMP61>
+ <CALL '\1aNPRINT 1>
+ <JUMP + PHRASE194>
+PHRASE146
+ <NTHUV N4 4 = TEMP61>
+ <EQUAL? TEMP61 'INTH - PHRASE178>
+ <DEAD TEMP61>
+ <FRAME '\1aPRINC>
+ <PUSH "<">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <NTHUV N4 5 = TEMP61 (TYPE LIST)>
+ <EMPL? TEMP61 + BOOL182 (TYPE LIST)>
+ <DEAD TEMP61>
+ <FRAME '\1aNPRINT>
+ <NTHUV N4 5 = TEMP61 (TYPE LIST)>
+ <RESTL TEMP61 1 = TEMP61 (TYPE LIST)>
+ <NTHL TEMP61 1 = STACK (TYPE NODE)>
+ <DEAD TEMP61>
+ <CALL '\1aNPRINT 1>
+BOOL182
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <NTHUV N4 5 = TEMP61 (TYPE LIST)>
+ <EMPL? TEMP61 + BOOL188 (TYPE LIST)>
+ <DEAD TEMP61>
+ <FRAME '\1aNPRINT>
+ <NTHUV N4 5 = TEMP61 (TYPE LIST)>
+ <DEAD N4>
+ <NTHL TEMP61 1 = STACK (TYPE NODE)>
+ <DEAD TEMP61>
+ <CALL '\1aNPRINT 1>
+BOOL188
+ <FRAME '\1aPRINC>
+ <PUSH ">">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE194>
+PHRASE178
+ <FRAME '\1aPRINC>
+ <PUSH "<">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <NTHUV N4 4 = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aSEQ-PRINT>
+ <NTHUV N4 5 = STACK (TYPE LIST)>
+ <DEAD N4>
+ <CALL '\1aSEQ-PRINT 1>
+ <FRAME '\1aPRINC>
+ <PUSH ">">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+PHRASE194
+ <VEQUAL? TEMP9 0 + BOOL212>
+ <FRAME '\1aPRINC>
+ <PUSH " **** ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2 = TEMP9>
+BOOL212
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aNPRINT>
+
+<SETG MAP-SPEC-PRINT [",+" ",-" ",*" ",/" ",LIST"]>
+
+<SETG LGV <UVECTOR ,LVAL-CODE ,FLVAL-CODE ,GVAL-CODE ,FGVAL-CODE ,ASSIGNED?-CODE>>
+
+<SETG ST-CHRS ["(" "[" "![" "<TUPLE"]>
+
+<SETG EN-CHRS [")" "]" "!]" ">"]>
+
+<GDECL (MAP-SPEC-PRINT ST-CHRS EN-CHRS) <VECTOR [REST STRING]> (LGV) <UVECTOR [REST FIX]>>
+
+#WORD *24500121346*
+ <GFCN \1aSEQ-PRINT ("VALUE" ANY <LIST [REST NODE]>) L4>
+ <TEMP TEMP7 TEMP19:LIST>
+ <INTGO>
+ <EMPL? L4 - TAG8 (TYPE LIST)>
+ <RETURN %<>>
+TAG8
+ <FRAME '\1aNPRINT>
+ <NTHL L4 1 = STACK (TYPE NODE)>
+ <CALL '\1aNPRINT 1>
+ <RESTL L4 1 = L4 (TYPE LIST)>
+ <EMPL? L4 - TAG12 (TYPE LIST)>
+ <RETURN %<>>
+TAG12
+ <SET TEMP7 %<> (TYPE FALSE)>
+ <SET TEMP19 L4 (TYPE LIST)>
+ <DEAD L4>
+ <LOOP>
+MAP14
+ <INTGO>
+ <EMPL? TEMP19 + MAPAP17>
+ <NTHL TEMP19 1 = TEMP7>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aNPRINT>
+ <PUSH TEMP7>
+ <DEAD TEMP7>
+ <CALL '\1aNPRINT 1 = TEMP7>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <JUMP + MAP14>
+MAPAP17
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aSEQ-PRINT>
+
+#WORD *4170524230*
+ <GFCN \1aPRNARGL ("VALUE" ANY <LIST [REST SYMTAB]> ANY "OPTIONAL" ANY) B6 R7 INAUX8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP (INOPT9 %<>) (DC10 ()) (FIRST11 'T) TEMP22 SYM27:SYMTAB COD28>
+ <INTGO>
+ <FRAME '\1aPRINC>
+ <PUSH "(">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <SET TEMP22 B6 (TYPE LIST)>
+ <DEAD B6>
+ <LOOP>
+MAP17
+ <INTGO>
+ <EMPL? TEMP22 + MAPAP20>
+ <NTHL TEMP22 1 = SYM27>
+ <NTHUV SYM27 4 = COD28 (TYPE FIX)>
+ <VEQUAL? FIRST11 0 - BOOL29>
+ <DEAD FIRST11>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+BOOL29
+ <SET FIRST11 %<> (TYPE FALSE)>
+ <VEQUAL? COD28 1 - PHRASE35 (TYPE FIX)>
+ <FRAME '\1aPRINC>
+ <PUSH "\"NAME\" ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV SYM27 2 = STACK (TYPE ATOM)>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <JUMP + PHRASE154>
+PHRASE35
+ <GRTR? COD28 3 + PHRASE46 (TYPE FIX)>
+ <TYPE? INAUX8 <TYPE-CODE FALSE> - PHRASE48>
+ <SET INAUX8 'T (TYPE ATOM)>
+ <FRAME '\1aPRINC>
+ <PUSH "\"AUX\" ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+PHRASE48
+ <VEQUAL? COD28 2 - PHRASE54 (TYPE FIX)>
+ <DEAD COD28>
+ <FRAME '\1aPRINC>
+ <PUSH "(">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV SYM27 2 = STACK (TYPE ATOM)>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aNPRINT>
+ <NTHUV SYM27 9 = STACK>
+ <CALL '\1aNPRINT 1>
+ <FRAME '\1aPRINC>
+ <PUSH ")">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE154>
+PHRASE54
+ <FRAME '\1aPRIN1>
+ <NTHUV SYM27 2 = STACK (TYPE ATOM)>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <JUMP + PHRASE154>
+PHRASE46
+ <VEQUAL? COD28 4 - PHRASE77 (TYPE FIX)>
+ <FRAME '\1aPRINC>
+ <PUSH "\"TUPLE\" ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV SYM27 2 = STACK (TYPE ATOM)>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <JUMP + PHRASE154>
+PHRASE77
+ <VEQUAL? COD28 5 - PHRASE86 (TYPE FIX)>
+ <FRAME '\1aPRINC>
+ <PUSH "\"ARGS\" ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV SYM27 2 = STACK (TYPE ATOM)>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <JUMP + PHRASE154>
+PHRASE86
+ <GRTR? COD28 9 + PHRASE95 (TYPE FIX)>
+ <VEQUAL? INOPT9 0 - PHRASE97>
+ <SET INOPT9 'T (TYPE ATOM)>
+ <FRAME '\1aPRINC>
+ <PUSH "\"OPTIONAL\" ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+PHRASE97
+ <GRTR? COD28 7 + PHRASE103 (TYPE FIX)>
+ <FRAME '\1aPRINC>
+ <PUSH "(">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <VEQUAL? COD28 6 - BOOL108 (TYPE FIX)>
+ <DEAD COD28>
+ <FRAME '\1aPRINC>
+ <PUSH "'">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+BOOL108
+ <FRAME '\1aPRIN1>
+ <NTHUV SYM27 2 = STACK (TYPE ATOM)>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aNPRINT>
+ <NTHUV SYM27 9 = STACK>
+ <CALL '\1aNPRINT 1>
+ <FRAME '\1aPRINC>
+ <PUSH ")">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <JUMP + PHRASE154>
+PHRASE103
+ <VEQUAL? COD28 8 - BOOL127 (TYPE FIX)>
+ <DEAD COD28>
+ <FRAME '\1aPRINC>
+ <PUSH "'">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+BOOL127
+ <FRAME '\1aPRIN1>
+ <NTHUV SYM27 2 = STACK (TYPE ATOM)>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <JUMP + PHRASE154>
+PHRASE95
+ <VEQUAL? COD28 10 - PHRASE136 (TYPE FIX)>
+ <FRAME '\1aPRINC>
+ <PUSH "\"CALL\" ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV SYM27 2 = STACK (TYPE ATOM)>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <JUMP + PHRASE154>
+PHRASE136
+ <VEQUAL? COD28 11 - PHRASE145 (TYPE FIX)>
+ <FRAME '\1aPRINC>
+ <PUSH "\"BIND\" ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV SYM27 2 = STACK (TYPE ATOM)>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <JUMP + PHRASE154>
+PHRASE145
+ <VEQUAL? COD28 12 - BOOL155 (TYPE FIX)>
+ <DEAD COD28>
+ <FRAME '\1aPRINC>
+ <PUSH "'">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+BOOL155
+ <FRAME '\1aPRIN1>
+ <NTHUV SYM27 2 = STACK (TYPE ATOM)>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+PHRASE154
+ <NTHUV SYM27 7 = COD28>
+ <VEQUAL? COD28 'ANY + PHRASE165>
+ <DEAD COD28>
+ <NTHUV SYM27 7 = COD28>
+ <CONS COD28 DC10 = COD28>
+ <DEAD DC10>
+ <NTHUV SYM27 2 = DC10 (TYPE ATOM)>
+ <DEAD SYM27>
+ <CONS DC10 () = DC10>
+ <CONS DC10 COD28 = DC10>
+ <DEAD COD28>
+PHRASE165
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <JUMP + MAP17>
+MAPAP20
+ <TYPE? R7 <TYPE-CODE FALSE> + PHRASE169>
+ <EQUAL? R7 'ANY + PHRASE169>
+ <CONS R7 DC10 = TEMP22>
+ <DEAD R7 DC10>
+ <CONS (VALUE) TEMP22 = DC10>
+ <DEAD TEMP22>
+PHRASE169
+ <FRAME '\1aPRINC>
+ <PUSH ")">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <EMPL? DC10 - TAG176 (TYPE LIST)>
+ <RETURN %<>>
+TAG176
+ <FRAME '\1aPRINC>
+ <PUSH " ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <CHTYPE DC10 <TYPE-CODE DECL> = STACK>
+ <DEAD DC10>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2 = INOPT9>
+ <RETURN INOPT9>
+ <DEAD INOPT9>
+ <END \1aPRNARGL>
+
+<ENDPACKAGE>
projects / pdp10-muddle.git / blobdiff