Trailing-Edge
-
PDP-10 Archives
-
decuslib10-04
-
43,50322/errorx.lap
There are no other files named errorx.lap in the archive.
(DEFPROP EVALP T NOCALL)
(DEFPROP BKTRACE T NOCALL)
(DEFPROP BKFIND T NOCALL)
(DEFPROP BKTR T NOCALL)
(DEFPROP BKTRV T NOCALL)
(DEFPROP BKPRINVAL T NOCALL)
(DEFPROP BKACT T NOCALL)
(DEFPROP CHNMX T NOCALL)
(DEFPROP CHNM1 T NOCALL)
(DEFPROP BKREAD T NOCALL)
(DEFPROP ARGLIST T NOCALL)
(DEFPROP GOFN T NOCALL)
(LAP ERRORX SUBR)
(MOVE 1 (SPECIAL USERERRORX) S)
(JUMPE 1 TAG3)
(PUSH P 1)
(CALLF@ 0 0 P)
(SUB P (C 1 0 1 0))
TAG3 (JUMPN 1 TAG1)
(JSP 6 SPECBIND)
(0 0 (SPECIAL LASTPOS) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 0 (E SPDLPT) S)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 1)
(MOVEI 1 (QUOTE ERRORX) S)
(CALL 3 (E STKSRCH) S)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 (SPECIAL LASTPOS) S)
(JUMPE 1 TAG12)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 0 P)
(JRST 0 TAG11)
TAG12 (CALL 0 (E ERR) S)
TAG11 (PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 -2 P)
(CALL 1 (E CONSP) S)
(MOVE 2 1)
(JUMPN 2 TAG16)
(CALL 0 (E SPDLPT) S)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 1)
(MOVEI 1 (QUOTE ERRORX) S)
(CALL 3 (E STKSRCH) S)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 1)
(MOVEI 1 (QUOTE //BREAK1) S)
(CALL 3 (E STKSRCH) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG17)
(CALL 0 (E SPDLPT) S)
(MOVE 2 0 P)
(CALL 2 (E *DIF) S)
(MOVE 2 (SPECIAL %ERDEPTH) S)
(CALL 2 (E *GREAT) S)
(MOVE 2 1)
(JRST 0 TAG16)
TAG17 (MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(JUMPE 1 TAG20)
(MOVEI 2 (QUOTE T) S)
(JRST 0 TAG16)
TAG20 (MOVEI 2 (QUOTE NIL))
TAG16 (MOVEM 2 0 P)
(MOVE 1 -2 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG22)
(MOVE 3 -2 P)
(JRST 0 TAG21)
TAG22 (HLRZ@ 3 -2 P)
TAG21 (MOVEI 5 (QUOTE ERRORX) S)
(MOVEI 4 (QUOTE NIL))
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 5 (E BREAK1) S)
(SUB P (C 2 0 2 0))
(MOVE 2 1)
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 2 (E OUTVAL) S)
(MOVEI 1 (QUOTE NIL))
(PUSHJ P SPECSTR)
(SUB P (C 1 0 1 0))
TAG1 (POPJ P)
NIL
(LAP //BREAK1 SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL LASTPOS) S)
(0 0 (SPECIAL !VALUE) S)
(0 0 (SPECIAL %%MSGFLAG) S)
(0 0 (SPECIAL %%BKPOS) S)
(0 0 (SPECIAL %%CMDL) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL BRKEXP) S)
(JUMPN 1 TAG10)
(MOVEI 1 (QUOTE (QUOTE NIL)) S)
(MOVEM 1 (SPECIAL BRKEXP) S)
TAG10 (MOVE 1 (SPECIAL BRKTYPE) S)
(CAIE 1 (QUOTE ERRORX) S)
(JRST 0 TAG14)
(MOVEI 1 (QUOTE ERRORX) S)
(JRST 0 TAG13)
TAG14 (MOVEI 1 (QUOTE //BREAK1) S)
TAG13 (PUSH P 1)
(CALL 0 (E SPDLPT) S)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 1)
(POP P 1)
(CALL 3 (E STKSRCH) S)
(MOVEM 1 (SPECIAL LASTPOS) S)
(JUMPE 1 TAG12)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 (SPECIAL %%BKPOS) S)
(CALL 1 (E STKNAME) S)
(CAIE 1 (QUOTE BREAK1) S)
(JRST 0 TAG16)
(MOVE 1 (SPECIAL %%BKPOS) S)
(MOVEM 1 (SPECIAL LASTPOS) S)
TAG16
TAG12 (MOVE 1 (SPECIAL LASTPOS) S)
(MOVEM 1 (SPECIAL %%BKPOS) S)
(MOVEI 2 (QUOTE NIL))
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E INC) S)
(MOVEI 2 (QUOTE NIL))
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E OUTC) S)
(MOVE 2 (SPECIAL #%IOCHANS%#) S)
(CALL 2 (E CONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEM 1 (SPECIAL #%IOCHANS%#) S)
(MOVEI 1 (QUOTE 72))
(CALL 1 (E PROMPT) S)
(MOVE 2 (SPECIAL #%PROMPTS%#) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL #%PROMPTS%#) S)
(MOVE 1 (SPECIAL BRKWHEN) S)
(JUMPN 1 TAG17)
(MOVE 1 (SPECIAL BRKTYPE) S)
(CAIE 1 (QUOTE ERRORX) S)
(JRST 0 TAG20)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E *RSETERX) S)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JRST 0 TAG17)
TAG20 (MOVE 1 (SPECIAL BRKEXP) S)
(CALL 1 (E FROM?=) S)
TAG17 (MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(JUMPN 1 TAG21)
(MOVE 1 (SPECIAL LASTPOS) S)
TAG21 (MOVEM 1 (SPECIAL LASTPOS) S)
TAG1 (MOVE 1 (SPECIAL BRKCOMS) S)
(JUMPE 1 TAG23)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL %%CMDL) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG25)
(MOVE 1 (SPECIAL %%CMDL) S)
(CALL 1 (E NCONS) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
TAG25 (HRRZ@ 1 (SPECIAL BRKCOMS) S)
(MOVEM 1 (SPECIAL BRKCOMS) S)
(JRST 0 TAG22)
TAG23 (CALL 0 (E TERPRI) S)
(CALL 0 (E TERPRI) S)
(MOVE 1 (SPECIAL %%MSGFLAG) S)
(JUMPN 1 TAG31)
(MOVEI 1 (QUOTE BROKEN) S)
(CALL 1 (E NCONS) S)
(MOVE 2 (SPECIAL BRKFN) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E PRINC) S)
(CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL %%MSGFLAG) S)
TAG31 (MOVE 1 (SPECIAL #%PROMPTS%#) S)
(CALL 1 (E LENGTH) S)
(CALL 1 (E PRINC) S)
(MOVEI 1 (QUOTE ((LINEREAD) ERRORX)) S)
(CALL 17 (E ERRSET) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG1)
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
TAG22
TAG2 (MOVE 1 (SPECIAL %%CMDL) S)
(JUMPN 1 TAG37)
(MOVEI 1 (QUOTE 72))
(CALL 1 (E PROMPT) S)
(JRST 0 TAG1)
TAG37 (HLRZ@ 1 (SPECIAL %%CMDL) S)
(MOVEM 1 (SPECIAL SELECTQ) S)
(CAIE 1 (QUOTE ^) S)
(JRST 0 TAG42)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E *RSETERX) S)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JRST 0 TAG41)
TAG42 (CAIE 1 (QUOTE ^^) S)
(JRST 0 TAG43)
(MOVE 1 (SPECIAL #%PROMPTS%#) S)
(CALL 1 (E LENGTH) S)
(CALL 1 (E *RSETERX) S)
(MOVEI 1 (QUOTE NIL))
(CALL 17 (E **TOP**) S)
(JRST 0 TAG41)
TAG43 (CAIE 1 (QUOTE BK) S)
(JRST 0 TAG44)
(MOVEI 1 (QUOTE (1000)) S)
(PUSHJ P BKREAD)
(MOVEI 2 (QUOTE (NIL T T T)) S)
(PUSHJ P BKTRACE)
(JRST 0 TAG41)
TAG44 (CAIE 1 (QUOTE BKE) S)
(JRST 0 TAG45)
(MOVEI 1 (QUOTE (1000)) S)
(PUSHJ P BKREAD)
(MOVEI 2 (QUOTE (NIL NIL T T)) S)
(PUSHJ P BKTRACE)
(JRST 0 TAG41)
TAG45 (CAIE 1 (QUOTE BKF) S)
(JRST 0 TAG46)
(MOVEI 1 (QUOTE (1000)) S)
(PUSHJ P BKREAD)
(MOVEI 2 (QUOTE (NIL NIL NIL T)) S)
(PUSHJ P BKTRACE)
(JRST 0 TAG41)
TAG46 (CAIE 1 (QUOTE BKV) S)
(JRST 0 TAG47)
(MOVEI 1 (QUOTE (1000)) S)
(PUSHJ P BKREAD)
(MOVEI 2 (QUOTE (T T T T)) S)
(PUSHJ P BKTRACE)
(JRST 0 TAG41)
TAG47 (CAIE 1 (QUOTE BKEV) S)
(JRST 0 TAG50)
(MOVEI 1 (QUOTE (1000)) S)
(PUSHJ P BKREAD)
(MOVEI 2 (QUOTE (T NIL T T)) S)
(PUSHJ P BKTRACE)
(JRST 0 TAG41)
TAG50 (CAIE 1 (QUOTE BKFV) S)
(JRST 0 TAG51)
(MOVEI 1 (QUOTE (1000)) S)
(PUSHJ P BKREAD)
(MOVEI 2 (QUOTE (T NIL NIL T)) S)
(PUSHJ P BKTRACE)
(JRST 0 TAG41)
TAG51 (CAIE 1 (QUOTE >) S)
(JRST 0 TAG52)
(MOVEI 1 (QUOTE NIL))
(PUSHJ P BKREAD)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG57)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG61)
(CALL 1 (E SPDLRT) S)
TAG61 (MOVE 3 -2 P)
(MOVE 2 0 P)
(PUSHJ P CHNM1)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E STKPTR) S)
(MOVE 2 -2 P)
(HRRM@ 2 1)
(JRST 0 TAG56)
TAG57 (PUSH P (SPECIAL BRKEXP) S)
(MOVE 1 -3 P)
(HRLM@ 1 0 P)
(POP P 1)
(JUMPE 1 TAG64)
(MOVEI 1 (QUOTE (//BREAK1)) S)
(PUSHJ P BKREAD)
(MOVEM 1 -1 P)
(CAIE 1 (QUOTE //BREAK1) S)
(JRST 0 TAG65)
(TDZA 1 1)
TAG65 (MOVEI 1 (QUOTE T) S)
TAG64 (JUMPE 1 TAG62)
(HRRZ@ 2 (SPECIAL BRKEXP) S)
(MOVE 1 -1 P)
(CALL 2 (E CONS) S)
(PUSH P (SPECIAL BRKEXP) S)
(HRRM@ 1 0 P)
(SUB P (C 1 0 1 0))
TAG62
TAG56 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E FROM?=) S)
(SUB P (C 3 0 3 0))
(JRST 0 TAG41)
TAG52 (CAIE 1 (QUOTE GO) S)
(JRST 0 TAG66)
(MOVE 1 0 P)
(JUMPN 1 TAG67)
(HLRZ@ 1 (SPECIAL BRKEXP) S)
(PUSHJ P GOFN)
(JUMPN 1 TAG67)
(MOVE 1 (SPECIAL BRKEXP) S)
(PUSHJ P EVALP)
TAG67 (CALL 0 (E TERPRI) S)
(MOVE 1 (SPECIAL !VALUE) S)
(CALL 1 (E %PRINFN) S)
(JRST 0 TAG3)
TAG66 (CAIE 1 (QUOTE OK) S)
(JRST 0 TAG70)
(MOVE 1 0 P)
(JUMPN 1 TAG71)
(HLRZ@ 1 (SPECIAL BRKEXP) S)
(PUSHJ P GOFN)
(JUMPN 1 TAG71)
(MOVE 1 (SPECIAL BRKEXP) S)
(PUSHJ P EVALP)
TAG71 (JRST 0 TAG3)
TAG70 (CAIE 1 (QUOTE EVAL) S)
(JRST 0 TAG72)
(MOVE 1 (SPECIAL BRKEXP) S)
(PUSHJ P EVALP)
(MOVE 1 (SPECIAL !VALUE) S)
(CALL 1 (E %PRINFN) S)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 0 P)
(JRST 0 TAG41)
TAG72 (CAIE 1 (QUOTE EDIT) S)
(JRST 0 TAG73)
(PUSH P (SPECIAL %%CMDL) S)
(MOVEI 1 (QUOTE (NIL)) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
(HRRZ@ 1 0 P)
(CALL 1 (E &) S)
(SUB P (C 1 0 1 0))
(JUMPE 1 TAG75)
(MOVEI 1 (QUOTE ((EDBRK) ERRORX)) S)
(CALL 17 (E ERRSET) S)
TAG75 (JRST 0 TAG41)
TAG73 (CAIE 1 (QUOTE ?=) S)
(JRST 0 TAG76)
(PUSH P (SPECIAL %%CMDL) S)
(MOVEI 1 (QUOTE (NIL)) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
(HRRZ@ 1 0 P)
(CALL 1 (E ?=) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG41)
TAG76 (CAIE 1 (QUOTE ARGS) S)
(JRST 0 TAG77)
(MOVE 1 (SPECIAL BRKFN) S)
(PUSHJ P ARGLIST)
(MOVE 2 1)
(MOVEI 1 (QUOTE ARGPRINT) S)
(PUSHJ P *MAPC)
(JRST 0 TAG41)
TAG77 (CAIE 1 (QUOTE &) S)
(JRST 0 TAG100)
(PUSH P (SPECIAL %%CMDL) S)
(MOVEI 1 (QUOTE (NIL)) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
(HRRZ@ 1 0 P)
(CALL 1 (E &) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG41)
TAG100
(CAIE 1 (QUOTE RETURN) S)
(JRST 0 TAG101)
(MOVEI 1 (QUOTE NIL))
(PUSHJ P BKREAD)
(PUSHJ P EVALP)
(CALL 0 (E TERPRI) S)
(JRST 0 TAG4)
TAG101
(CAIE 1 (QUOTE FROM?=) S)
(JRST 0 TAG102)
(MOVEI 1 (QUOTE NIL))
(PUSHJ P BKREAD)
(CALL 1 (E FROM?=) S)
(JRST 0 TAG41)
TAG102
(CAIE 1 (QUOTE USE) S)
(JRST 0 TAG103)
(CALL 0 (E USE) S)
(JRST 0 TAG41)
TAG103
(CAIE 1 (QUOTE UNTRACE) S)
(JRST 0 TAG104)
(MOVE 1 (SPECIAL %%BKPOS) S)
(MOVEM 1 (SPECIAL LASTPOS) S)
(PUSH P (C 0 0 TAG105 0))
(MOVE 1 (SPECIAL BRKEXP) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE %%V) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE BKSETQ) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(MOVE 1 (SPECIAL BRKFN) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE PRIN1) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE (BKPOS (BKSETQ #%INDENT (*DIF #%INDENT 3)))) S)
(CALL 2 (E XCONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE (%%V)) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE LAMBDA) S)
(CALL 2 (E XCONS) S)
(SUB P (C 1 0 1 0))
(PUSH P 1)
(MOVEI D (QUOTE ((PRINC (QUOTE / =/ )) (%PRINFN %%V) %%V)) S)
(PUSH P D)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG105
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(CALL 1 (E FROM?=) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG41)
TAG104
(MOVE 2 (SPECIAL BREAKMACROS) S)
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(CALL 2 (E ASSOC) S)
(JUMPE 1 TAG111)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 2 (SPECIAL BREAKMACROS) S)
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(CALL 2 (E ASSOC) S)
(HRRZ@ 1 1)
(HLRZ@ 2 1)
(MOVEM 1 0 P)
(JUMPE 2 TAG120)
(HLRZ@ 1 1)
(CALL 1 (E LITATOM) S)
(JRST 0 TAG117)
TAG120
(MOVEI 1 (QUOTE NIL))
TAG117
(JUMPE 1 TAG116)
(HRRZ@ 3 0 P)
(HLRZ@ 2 0 P)
(HRRZ@ 1 (SPECIAL %%CMDL) S)
(CALL 3 (E SUBST) S)
(JRST 0 TAG115)
TAG116
(HRRZ@ 3 0 P)
(HRRZ@ 2 (SPECIAL %%CMDL) S)
(HLRZ@ 1 0 P)
(CALL 3 (E SUBPAIR) S)
TAG115
(MOVE 2 (SPECIAL BRKCOMS) S)
(CALL 2 (E *APPEND) S)
(MOVEM 1 (SPECIAL BRKCOMS) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG111
(MOVEI 2 (QUOTE 1))
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(CALL 2 (E NTHCHAR) S)
(CAIE 1 (QUOTE >) S)
(JRST 0 TAG123)
(PUSH P (SPECIAL %%CMDL) S)
(MOVEI 2 (QUOTE 2))
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(CALL 2 (E NTHCHAR) S)
(CAIE 1 (QUOTE -) S)
(JRST 0 TAG125)
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(CALL 1 (E EXPLODE) S)
(CALL 1 (E CDDR) S)
(JRST 0 TAG124)
TAG125
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(CALL 1 (E EXPLODE) S)
(HRRZ@ 1 1)
TAG124
(CALL 1 (E READLIST) S)
(HRLM@ 1 0 P)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE >) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG2)
TAG123
(MOVEI 1 (QUOTE ((BREAK1ERX) ERRORX)) S)
(CALL 17 (E ERRSET) S)
TAG41 (HRRZ@ 1 (SPECIAL %%CMDL) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
(JRST 0 TAG2)
TAG3 (MOVE 1 (SPECIAL %%MSGFLAG) S)
(JUMPE 1 TAG133)
(CALL 0 (E TERPRI) S)
TAG133
(MOVE 1 (SPECIAL %%BKPOS) S)
(MOVEM 1 (SPECIAL LASTPOS) S)
(MOVE 1 (SPECIAL BRKEXP) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG134)
(HLRZ@ 1 (SPECIAL BRKEXP) S)
(CAIE 1 (QUOTE RETURN) S)
(JRST 0 TAG135)
(MOVE 1 (SPECIAL !VALUE) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(HLRZ@ 2 (SPECIAL BRKEXP) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E FROM?=) S)
(JRST 0 TAG134)
TAG135
(HLRZ@ 1 (SPECIAL BRKEXP) S)
(PUSHJ P GOFN)
(JUMPE 1 TAG136)
(MOVE 1 (SPECIAL BRKEXP) S)
(CALL 1 (E FROM?=) S)
TAG136
TAG134
TAG4 (MOVEI 1 (QUOTE 1))
(CALL 1 (E *RSETERX) S)
(MOVE 1 (SPECIAL !VALUE) S)
(SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(DEFPROP //BREAK1 (NIL) VALUE)
(LAP BREAK1ERX SUBR)
(MOVE 1 (SPECIAL %%MSGFLAG) S)
(JUMPE 1 TAG2)
(CALL 0 (E TERPRI) S)
(PUSH P (C 0 0 TAG3 0))
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(PUSH P 1)
(MOVNI 6 1)
(JCALL 16 (E BKEVAL) S)
TAG3 (CALL 1 (E %PRINFN) S)
(JRST 0 TAG1)
TAG2 (PUSH P (C 0 0 TAG6 0))
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(PUSH P 1)
(MOVNI 6 1)
(JCALL 16 (E BKEVAL) S)
TAG6
TAG1 (POPJ P)
NIL
(LAP EVALP SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL #1) S)
(MOVEI 1 (QUOTE ((%ERDEPTH) ERRORX)) S)
(CALL 17 (E ERRSET) S)
(MOVEM 1 (SPECIAL !VALUE) S)
(CALL 1 (E CONSP) S)
(JUMPE 1 TAG2)
(HLRZ@ 1 (SPECIAL !VALUE) S)
(MOVEM 1 (SPECIAL !VALUE) S)
TAG2 (JRST 0 SPECSTR)
NIL
(LAP GOFN SUBR)
(PUSH P 1)
(MOVEI 2 (QUOTE (GO RETURN ERR)) S)
(CALL 2 (E MEMQ) S)
(JUMPN 1 TAG1)
(MOVEI 2 (QUOTE ALIAS) S)
(MOVE 1 (SPECIAL BRKFN) S)
(CALL 2 (E GET) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG2)
(MOVEI 2 (QUOTE (GO RETURN ERR)) S)
(HRRZ@ 1 1)
(CALL 2 (E MEMQ) S)
TAG2
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP %ERDEPTH SUBR)
(PUSH P (C 0 0 TAG1 0))
(PUSH P (SPECIAL #1) S)
(MOVNI 6 1)
(JCALL 16 (E BKEVAL) S)
TAG1 (POPJ P)
NIL
(DEFPROP %ERDEPTH (NIL . 20) VALUE)
(LAP PLEV SUBR)
(MOVE 2 (SPECIAL %LOOKDPTH) S)
(JCALL 2 (E PRINLEV) S)
NIL
(LAP FROM?= SUBR)
(PUSH P 1)
(CALL 0 (E SPDLPT) S)
(MOVE 3 (SPECIAL LASTPOS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE //BREAK1) S)
(CALL 3 (E STKCOUNT) S)
(CALL 1 (E *RSETERX) S)
(MOVE 1 0 P)
(JUMPE 1 TAG5)
(MOVE 2 1)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 2 (E SPREVAL) S)
(JRST 0 TAG4)
TAG5 (MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E SPREDO) S)
TAG4 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP USE SUBR)
(MOVEI 1 (QUOTE NIL))
(PUSHJ P BKREAD)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 1 (QUOTE NIL))
(PUSHJ P BKREAD)
(CAIE 1 (QUOTE FOR) S)
(JRST 0 TAG5)
(MOVEI 1 (QUOTE NIL))
(PUSHJ P BKREAD)
(MOVEM 1 0 P)
(JRST 0 TAG4)
TAG5 (MOVEI 1 (QUOTE ?) S)
(CALL 1 (E PRINT) S)
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE (NIL)) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG1)
TAG6
TAG4 (MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG10)
(MOVE 1 0 P)
(CAME 1 -1 P)
(JRST 0 TAG12)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E STKPTR) S)
(MOVE 2 -2 P)
(HRRM@ 2 1)
(MOVEM 2 (SPECIAL BRKEXP) S)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG14)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 -1 P)
(JRST 0 TAG13)
TAG14 (MOVEI 1 (QUOTE T) S)
(JRST 0 TAG1)
TAG13 (JRST 0 TAG11)
TAG12 (MOVEI 1 (QUOTE ?) S)
(CALL 1 (E PRINT) S)
(JUMPE 1 TAG15)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG1)
TAG15
TAG11
TAG10 (MOVE 3 -2 P)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(PUSHJ P CHNM1)
(JUMPN 1 TAG16)
(MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE (NOT FOUND IN)) S)
(CALL 2 (E *APPEND) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(CALL 1 (E PRINT) S)
TAG16 (MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP ?= SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(JUMPN 1 TAG6)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E STKNAME) S)
(PUSHJ P ARGLIST)
(MOVE 2 1)
(MOVEI 1 (QUOTE ARGPRINT) S)
(PUSHJ P *MAPC)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG2)
TAG6
TAG1 (HLRZ@ 1 -1 P)
(MOVEM 1 0 P)
(CALL 1 (E NUMBERP) S)
(JUMPE 1 TAG11)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E STKNAME) S)
(PUSHJ P ARGLIST)
(MOVE 2 0 P)
(CALL 2 (E NTH) S)
(HLRZ@ 1 1)
(CALL 1 (E ARGPRINT) S)
(JRST 0 TAG10)
TAG11 (MOVE 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG12)
(MOVE 1 0 P)
(CALL 1 (E ARGPRINT) S)
(JRST 0 TAG10)
TAG12 (MOVEI 1 (QUOTE T) S)
(CALL 1 (E TERPRI) S)
(JUMPE 1 TAG13)
(PUSH P (C 0 0 TAG14 0))
(PUSH P -1 P)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E ADD1) S)
(CALL 1 (E PREVEV) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E BKEVAL) S)
TAG14 (CALL 1 (E %PRINFN) S)
TAG13
TAG10 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JUMPN 1 TAG1)
(MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP & SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE (& F)) S)
(HLRZ@ 1 1)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG7)
(MOVE 1 (SPECIAL LASTPOS) S)
(MOVEM 1 0 P)
(JRST 0 TAG2)
TAG7 (MOVE 1 (SPECIAL %%BKPOS) S)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(JUMPN 1 TAG10)
(MOVE 1 (SPECIAL %%BKPOS) S)
TAG10 (MOVEM 1 0 P)
TAG1 (MOVE 1 -3 P)
(JUMPN 1 TAG12)
(MOVE 1 0 P)
(MOVEM 1 (SPECIAL LASTPOS) S)
(CALL 1 (E STKNAME) S)
(CALL 1 (E PRINT) S)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG3)
TAG12 (HLRZ@ 1 1)
(MOVEM 1 -1 P)
(CAIE 1 (QUOTE _) S)
(JRST 0 TAG14)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 -2 P)
(JRST 0 TAG2)
TAG14 (MOVE 1 -1 P)
(CALL 1 (E NUMBERP) S)
(JUMPE 1 TAG21)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E STKNTH) S)
(JRST 0 TAG20)
TAG21 (MOVE 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG22)
(MOVE 3 -2 P)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 3 (E STKSRCH) S)
(CLEARM 0 -2 P)
TAG22
TAG20 (MOVEM 1 0 P)
(JUMPN 1 TAG16)
(MOVE 1 -1 P)
(CALL 1 (E PRINT) S)
(MOVEI 1 (QUOTE ?) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG4)
TAG16
TAG2 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE NIL))
TAG3 (SUB P (C 4 0 4 0))
(POPJ P)
NIL
(LAP EDBRK SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL L) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL LASTPOS) S)
(MOVEM 1 0 P)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 (SPECIAL L) S)
(CALL 1 (E PATOM) S)
(JUMPE 1 TAG5)
(MOVE 1 0 P)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG11)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 -1 P)
(PUSHJ P BKFIND)
TAG11 (JUMPE 1 TAG7)
(MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
(PUSH P 1)
(MOVEI 1 (QUOTE UP) S)
(CALL 1 (E NCONS) S)
(MOVE 2 (SPECIAL L) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE F) S)
(CALL 2 (E XCONS) S)
(MOVEI 5 (QUOTE NIL))
(MOVEI 4 (QUOTE NIL))
(MOVEI 3 (QUOTE NIL))
(MOVE 2 1)
(POP P 1)
(CALL 5 (E EDITL) S)
(MOVEI 5 (QUOTE NIL))
(MOVEI 4 (QUOTE NIL))
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE NIL))
(MOVEM 1 -1 P)
(CALL 5 (E EDITL) S)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E STKPTR) S)
(PUSH P 1)
(MOVE 1 -2 P)
(JUMPE 1 TAG13)
(HLRZ@ 2 1)
(HLRZ@ 2 2)
(JRST 0 TAG12)
TAG13 (MOVEI 2 (QUOTE NIL))
TAG12 (HRRM@ 2 0 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG6)
TAG7 (MOVEI 1 (QUOTE NOT/ EDITABLE) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG2)
TAG6 (JRST 0 TAG4)
TAG5 (MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE NIL))
(MOVE 1 (SPECIAL L) S)
(CALL 3 (E EDITE) S)
TAG4 (MOVE 1 (SPECIAL L) S)
(CAME 1 (SPECIAL BRKEXP) S)
(JRST 0 TAG21)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 (SPECIAL BRKEXP) S)
TAG21
TAG2 (MOVEI 1 (QUOTE NIL))
(SUB P (C 2 0 2 0))
(JRST 0 SPECSTR)
NIL
(LAP SUBFUN1*RSETERX SUBR)
(MOVEI 2 (QUOTE NIL))
(HLRZ@ 1 (SPECIAL #%IOCHANS%#) S)
(JCALL 2 (E INC) S)
NIL
(LAP SUBFUN2*RSETERX SUBR)
(MOVEI 2 (QUOTE NIL))
(HRRZ@ 1 (SPECIAL #%IOCHANS%#) S)
(HLRZ@ 1 1)
(JCALL 2 (E OUTC) S)
NIL
(LAP *RSETERX SUBR)
(PUSH P 1)
TAG1 (MOVE 2 0 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E *GREAT) S)
(JUMPN 1 TAG3)
(MOVE 1 0 P)
(CAIE 1 (QUOTE 1))
(JRST 0 TAG6)
(MOVEI 1 (QUOTE ((SUBFUN1*RSETERX) ERRORX)) S)
(CALL 17 (E ERRSET) S)
(MOVEI 1 (QUOTE ((SUBFUN2*RSETERX) ERRORX)) S)
(CALL 17 (E ERRSET) S)
(HRRZ@ 1 (SPECIAL #%IOCHANS%#) S)
(HRRZ@ 1 1)
(MOVEM 1 (SPECIAL #%IOCHANS%#) S)
(HLRZ@ 1 (SPECIAL #%PROMPTS%#) S)
(CALL 1 (E PROMPT) S)
(HRRZ@ 1 (SPECIAL #%PROMPTS%#) S)
(MOVEM 1 (SPECIAL #%PROMPTS%#) S)
(JRST 0 TAG3)
TAG6 (HRRZ@ 1 (SPECIAL #%IOCHANS%#) S)
(HRRZ@ 1 1)
(MOVEM 1 (SPECIAL #%IOCHANS%#) S)
(HRRZ@ 1 (SPECIAL #%PROMPTS%#) S)
(MOVEM 1 (SPECIAL #%PROMPTS%#) S)
(MOVE 1 0 P)
(CALL 1 (E SUB1) S)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BKTRACE SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E ADD1) S)
(CALL 1 (E PREVEV) S)
(MOVEI 2 (QUOTE " ") S)
(MOVEM 2 (SPECIAL %PREVFN%) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -5 P)
(CALL 1 (E SUB1) S)
(MOVEI 2 (QUOTE 0))
(MOVEM 1 -5 P)
(CALL 2 (E *LESS) S)
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE " ") S)
(MOVEM 1 (SPECIAL %PREVFN%) S)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG2)
TAG6 (MOVE 1 -3 P)
(CALL 1 (E SUB1) S)
(MOVEM 1 -3 P)
(CALL 1 (E FNDBRKPT) S)
(MOVEM 1 0 P)
(JUMPN 1 TAG10)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG2)
TAG10 (MOVE 1 0 P)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 -2 P)
(PUSHJ P BKACT)
(MOVEM 1 -1 P)
(HLRZ@ 1 -4 P)
(JUMPE 1 TAG15)
(HLRZ@ 1 -1 P)
TAG15 (JUMPE 1 TAG13)
(PUSH P 0 P)
(PUSH P -4 P)
(HRRZ@ 1 -6 P)
(HLRZ@ 1 1)
(JUMPE 1 TAG17)
(HRRZ@ 3 -3 P)
(HLRZ@ 3 3)
(JRST 0 TAG16)
TAG17 (MOVEI 3 (QUOTE NIL))
TAG16 (PUSH P 3)
(HRRZ@ 1 -7 P)
(CALL 1 (E CADR) S)
(JUMPE 1 TAG21)
(HRRZ@ 4 -4 P)
(HRRZ@ 4 4)
(HLRZ@ 4 4)
(JRST 0 TAG20)
TAG21 (MOVEI 4 (QUOTE NIL))
TAG20 (PUSH P 4)
(HRRZ@ 1 -10 P)
(CALL 1 (E CADDR) S)
(JUMPE 1 TAG23)
(HRRZ@ 5 -5 P)
(HRRZ@ 5 5)
(HRRZ@ 5 5)
(HLRZ@ 5 5)
(JRST 0 TAG22)
TAG23 (MOVEI 5 (QUOTE NIL))
TAG22 (POP P 4)
(POP P 3)
(MOVE 2 -1 P)
(POP P 1)
(PUSHJ P BKTRV)
(SUB P (C 1 0 1 0))
(JRST 0 TAG12)
TAG13 (HRRZ@ 1 -4 P)
(HLRZ@ 1 1)
(JUMPE 1 TAG26)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
TAG26 (JUMPE 1 TAG24)
(MOVE 2 0 P)
(MOVE 1 -3 P)
(PUSHJ P BKTR)
(JRST 0 TAG12)
TAG24 (HRRZ@ 1 -4 P)
(CALL 1 (E CADR) S)
(JUMPE 1 TAG31)
(HRRZ@ 1 -1 P)
(CALL 1 (E CADR) S)
TAG31 (JUMPE 1 TAG27)
(MOVEI 2 (QUOTE 3))
(MOVE 1 -2 P)
(CALL 2 (E PRINTLEV) S)
(MOVEM 1 (SPECIAL %PREVFN%) S)
(JRST 0 TAG12)
TAG27 (HRRZ@ 1 -4 P)
(CALL 1 (E CADDR) S)
(JUMPE 1 TAG34)
(HRRZ@ 1 -1 P)
(CALL 1 (E CADDR) S)
(JUMPE 1 TAG36)
(MOVE 1 -2 P)
(CALL 1 (E CONSP) S)
TAG36
TAG34 (JUMPE 1 TAG32)
(HLRZ@ 1 -2 P)
(CALL 1 (E PRINT) S)
TAG32
TAG12 (MOVE 1 0 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 6 0 6 0))
(POPJ P)
NIL
(LAP FNDBRKPT SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL L) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E NEXTEV) S)
(JUMPE 1 TAG3)
(MOVE 1 -2 P)
(CALL 1 (E ADD1) S)
(MOVEM 1 -2 P)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 (SPECIAL L) S)
TAG1 (MOVE 1 -2 P)
(MOVEM 1 0 P)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 -2 P)
(JUMPN 1 TAG10)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG10 (CALL 1 (E SPDLRT) S)
(MOVEM 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG12)
(MOVE 1 -2 P)
(JRST 0 TAG2)
TAG12 (MOVE 1 -1 P)
(PUSHJ P BKFIND)
(JUMPE 1 TAG14)
(MOVE 1 -1 P)
(MOVEM 1 (SPECIAL L) S)
(JRST 0 TAG1)
TAG14 (MOVE 1 -2 P)
(JRST 0 TAG2)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 3 0 3 0))
(JRST 0 SPECSTR)
NIL
(LAP BKFIND SUBR)
(PUSH P 1)
TAG1 (HLRZ@ 1 0 P)
(CAME 1 (SPECIAL L) S)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG7)
(HLRZ@ 1 0 P)
(CALL 1 (E PATOM) S)
(JUMPN 1 TAG11)
(HLRZ@ 1 0 P)
(PUSHJ P BKFIND)
(JRST 0 TAG10)
TAG11 (MOVEI 1 (QUOTE NIL))
TAG10
TAG7 (JUMPE 1 TAG6)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG2)
TAG6 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(CALL 1 (E PATOM) S)
(JUMPE 1 TAG1)
(MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BKTR SUBR)
(PUSH P 1)
(PUSH P 2)
TAG1 (MOVE 1 -1 P)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 -1 P)
(CALL 1 (E SPDLRT) S)
(MOVEI 2 (QUOTE 3))
(CALL 2 (E PRINTLEV) S)
(MOVEM 1 (SPECIAL %PREVFN%) S)
(MOVE 1 -1 P)
(CAMN 1 0 P)
(JRST 0 TAG3)
(MOVE 1 -1 P)
(CALL 1 (E SUB1) S)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP BKTRV SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(PUSH P 5)
(CALL 1 (E ADD1) S)
(MOVEM 1 -4 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -5 P)
(CALL 1 (E SUB1) S)
(MOVEM 1 -5 P)
(CALL 1 (E SPDLFT) S)
(CALL 1 (E PATOM) S)
(JUMPE 1 TAG2)
(MOVE 1 -5 P)
(CALL 1 (E SPDLFT) S)
(JUMPN 1 TAG1)
(MOVE 1 -5 P)
(CALL 1 (E SPDLRT) S)
(PUSHJ P BKACT)
(HRRZ@ 1 1)
(MOVEM 1 0 P)
(MOVE 1 -3 P)
(JUMPE 1 TAG14)
(HLRZ@ 1 0 P)
TAG14 (JUMPN 1 TAG12)
(MOVE 1 -2 P)
(JUMPE 1 TAG16)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(JUMPE 1 TAG20)
(MOVE 1 -5 P)
(CAME 1 -4 P)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
TAG20
TAG16
TAG12 (JUMPE 1 TAG11)
(MOVE 1 -5 P)
(CALL 1 (E SPDLRT) S)
(MOVEI 2 (QUOTE 3))
(CALL 2 (E PRINTLEV) S)
(MOVEM 1 (SPECIAL %PREVFN%) S)
(JRST 0 TAG10)
TAG11 (MOVE 1 -1 P)
(JUMPE 1 TAG23)
(HRRZ@ 1 0 P)
(CALL 1 (E CADR) S)
(JUMPE 1 TAG25)
(MOVE 1 -5 P)
(CALL 1 (E SPDLRT) S)
(CALL 1 (E CONSP) S)
(JUMPE 1 TAG27)
(MOVE 1 -5 P)
(CAME 1 -4 P)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
TAG27
TAG25
TAG23 (JUMPE 1 TAG21)
(MOVE 1 -5 P)
(CALL 1 (E SPDLRT) S)
(HLRZ@ 1 1)
(CALL 1 (E PRINT) S)
TAG21
TAG10 (MOVE 1 -5 P)
(CAMN 1 -4 P)
(JRST 0 TAG4)
(JRST 0 TAG1)
TAG2 (CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE / / / ) S)
(CALL 1 (E PRINC) S)
(MOVE 1 -5 P)
(PUSHJ P BKPRINVAL)
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE NIL))
(SUB P (C 6 0 6 0))
(POPJ P)
NIL
(LAP BKPRINVAL SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E SPDLFT) S)
(MOVEM 1 -1 P)
(HLRZ@ 1 1)
(JUMPN 1 TAG4)
(MOVE 2 (SPECIAL LAPLST) S)
(MOVE 1 -1 P)
(CALL 2 (E ASSOC) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG5)
(HRRZ@ 1 1)
TAG5
TAG4 (CALL 1 (E PRIN1) S)
(MOVEI 1 (QUOTE / =/ ) S)
(CALL 1 (E PRINC) S)
(HLRZ@ 1 -1 P)
(JUMPN 1 TAG10)
(MOVE 1 -1 P)
TAG10 (PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 (E ADD1) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E EVALV) S)
(MOVEM 1 -2 P)
(CALL 0 (E UNBOUND) S)
(CAME 1 -2 P)
(JRST 0 TAG7)
(MOVEI 1 (QUOTE UNBOUND) S)
(JRST 0 TAG6)
TAG7 (MOVE 1 -2 P)
TAG6 (MOVEI 2 (QUOTE 3))
(CALL 2 (E PRINLEV) S)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP BKACT SUBR)
(PUSH P 1)
(MOVE 1 0 P)
(CALL 1 (E PATOM) S)
(JUMPN 1 TAG6)
(HLRZ@ 1 0 P)
(CALL 1 (E LITATOM) S)
(JUMPE 1 TAG7)
(TDZA 1 1)
TAG7 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG6)
(MOVEI 2 (QUOTE ERXACTION) S)
(HLRZ@ 1 0 P)
(CALL 2 (E GET) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG10)
(TDZA 1 1)
TAG10 (MOVEI 1 (QUOTE T) S)
TAG6 (JUMPE 1 TAG5)
(MOVEI 1 (QUOTE (T T T T)) S)
(MOVEM 1 0 P)
TAG5 (MOVE 1 0 P)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP CHNMX SUBR)
(PUSH P 1)
TAG1 (MOVE 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG6)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG6 (MOVE 2 (SPECIAL FROM) S)
(HLRZ@ 1 0 P)
(CALL 2 (E EQUAL) S)
(JUMPE 1 TAG7)
(PUSH P (SPECIAL TO) S)
(POP P 1)
(HRLM@ 1 0 P)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL CHNGDFLG) S)
(JRST 0 TAG5)
TAG7 (HLRZ@ 1 0 P)
(PUSHJ P CHNMX)
TAG5 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP CHNM1 SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL FROM) S)
(0 3 (SPECIAL TO) S)
(0 0 (SPECIAL CHNGDFLG) S)
(PUSH P 1)
(PUSHJ P CHNMX)
(MOVE 1 (SPECIAL CHNGDFLG) S)
(JUMPE 1 TAG5)
(MOVE 1 0 P)
TAG5 (SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP BKREAD FSUBR)
(PUSH P 1)
(MOVE 1 (SPECIAL %%CMDL) S)
(JUMPE 1 TAG4)
(HRRZ@ 1 1)
TAG4 (JUMPE 1 TAG2)
(HRRZ@ 1 (SPECIAL %%CMDL) S)
(PUSH P (SPECIAL %%CMDL) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
TAG5
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BKPOS SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E LINELENGTH) S)
(MOVEI 2 (QUOTE 30))
(CALL 2 (E *DIF) S)
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 2 (E REMAINDER) S)
(MOVEM 1 0 P)
(CALL 0 (E TERPRI) S)
(PUSH P (C 0 0 (QUOTE 1) 0))
TAG1 (MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E *GREAT) S)
(JUMPE 1 TAG6)
(MOVE 1 -1 P)
(JRST 0 TAG2)
TAG6 (MOVEI 1 (QUOTE !/ / ) S)
(CALL 1 (E PRINC) S)
(JUMPE 1 TAG7)
(MOVEI 2 (QUOTE 3))
(MOVE 1 0 P)
(CALL 2 (E *PLUS) S)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG7 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP ARGLIST SUBR)
(PUSH P 1)
(MOVEI 2 (QUOTE (EXPR FEXPR MACRO)) S)
(CALL 2 (E GETL) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG2)
(CALL 1 (E CADADR) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG6)
(CALL 1 (E ATOM) S)
TAG6 (JUMPE 1 TAG4)
(PUSH P (C 0 0 TAG7 0))
(MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE LXPD) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E ADD1) S)
(CALL 1 (E PREVEV) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E EVAL) S)
TAG7 (JRST 0 TAG3)
TAG4 (MOVE 1 0 P)
TAG3 (JRST 0 TAG1)
TAG2 (CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE ARGUMENTS/ NOT/ FOUND) S)
(CALL 1 (E PRINC) S)
(MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP LXPD SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG6)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG6 (CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE ARG) S)
(CALL 2 (E XCONS) S)
(MOVE 2 0 P)
(CALL 2 (E CONS) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG7)
(MOVE 1 -1 P)
(CALL 1 (E SUB1) S)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG7 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP PREVEV SUBR)
(PUSH P 1)
(CALL 0 (E SPDLPT) S)
(PUSH P 1)
TAG1 (MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E *GREAT) S)
(JUMPN 1 TAG3)
(MOVE 1 -1 P)
(CALL 1 (E SPDLFT) S)
(JUMPE 1 TAG6)
(MOVE 1 -1 P)
(CALL 1 (E ADD1) S)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG6 (MOVE 1 -1 P)
(JRST 0 TAG2)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP STKNAME SUBR)
(PUSH P 1)
(JUMPE 1 TAG1)
(CALL 1 (E SPDLFT) S)
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG3)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG3 (HLRZ@ 1 0 P)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP STKNTH SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E MINUSP) S)
(JUMPE 1 TAG6)
(MOVE 1 -2 P)
(CALL 1 (E MINUS) S)
(MOVEI 2 (QUOTE T) S)
(MOVEM 1 -2 P)
(MOVEM 2 0 P)
TAG6
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG12)
(TDZA 1 1)
TAG12 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG11)
(MOVE 1 -2 P)
(CAIE 1 (QUOTE 0))
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
TAG11 (JUMPE 1 TAG10)
(MOVE 1 -1 P)
(JRST 0 TAG2)
TAG10 (MOVE 1 0 P)
(JUMPE 1 TAG13)
(MOVE 1 -1 P)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 -1 P)
(JRST 0 TAG7)
TAG13 (MOVE 1 -1 P)
(CALL 1 (E ADD1) S)
(CALL 1 (E PREVEV) S)
(MOVEM 1 -1 P)
TAG7 (MOVE 1 -2 P)
(CALL 1 (E SUB1) S)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP STKSRCH SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(MOVE 1 2)
(CALL 1 (E NUMBERP) S)
(JUMPN 1 TAG6)
(MOVE 1 -1 P)
(JRST 0 TAG2)
TAG6
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG11)
(MOVE 1 -1 P)
(CALL 1 (E ADD1) S)
(CALL 1 (E PREVEV) S)
(MOVEM 1 -1 P)
(JRST 0 TAG10)
TAG11 (MOVE 1 -1 P)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 -1 P)
TAG10 (MOVE 1 -1 P)
(JUMPE 1 TAG15)
(TDZA 1 1)
TAG15 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG14)
(MOVE 1 -1 P)
(CALL 1 (E STKNAME) S)
(CAME 1 -2 P)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
TAG14 (JUMPE 1 TAG13)
(MOVE 1 -1 P)
(JRST 0 TAG2)
TAG13 (JRST 0 TAG1)
TAG2 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP STKCOUNT SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE 0) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG10)
(TDZA 1 1)
TAG10 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG7)
(MOVE 1 -2 P)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 -2 P)
(JUMPE 1 TAG11)
(TDZA 1 1)
TAG11 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG7)
(MOVE 2 -2 P)
(MOVE 1 -1 P)
(CALL 2 (E *GREAT) S)
TAG7 (JUMPE 1 TAG6)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG6 (MOVE 1 -2 P)
(CALL 1 (E STKNAME) S)
(CAME 1 -3 P)
(JRST 0 TAG12)
(MOVE 1 0 P)
(CALL 1 (E ADD1) S)
(MOVEM 1 0 P)
TAG12 (JRST 0 TAG1)
TAG2 (SUB P (C 4 0 4 0))
(POPJ P)
NIL
(LAP SUBFUN1ARGPRINT SUBR)
(MOVE 1 (SPECIAL //BREAK1) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG4)
(MOVE 1 (SPECIAL LASTPOS) S)
(PUSH P (SPECIAL //BREAK1) S)
(CALL 1 (E ADD1) S)
(CALL 1 (E PREVEV) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E EVALV) S)
(JRST 0 TAG3)
TAG4 (PUSH P (C 0 0 TAG5 0))
(PUSH P (SPECIAL //BREAK1) S)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E ADD1) S)
(CALL 1 (E PREVEV) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E BKEVAL) S)
TAG5
TAG3 (MOVEM 1 (SPECIAL //BREAK1) S)
(PUSH P 1)
(CALL 0 (E UNBOUND) S)
(SUB P (C 1 0 1 0))
(CAME 1 (SPECIAL //BREAK1) S)
(JRST 0 TAG2)
(MOVEI 1 (QUOTE UNBOUND) S)
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL //BREAK1) S)
TAG1 (JCALL 1 (E %PRINFN) S)
NIL
(LAP ARGPRINT SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL //BREAK1) S)
(JUMPE 1 TAG2)
(MOVE 1 (SPECIAL #%INDENT) S)
(CALL 1 (E BKPOS) S)
(MOVEI 1 (QUOTE / / / ) S)
(CALL 1 (E PRINC) S)
(MOVE 1 (SPECIAL //BREAK1) S)
(CALL 1 (E PRIN1) S)
(MOVEI 1 (QUOTE / =/ ) S)
(CALL 1 (E PRINC) S)
(MOVEI 1 (QUOTE ((SUBFUN1ARGPRINT) ERRORX)) S)
(CALL 17 (E ERRSET) S)
TAG2 (JRST 0 SPECSTR)
NIL