Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50322/errorx.lap
Click 43,50322/errorx.lap to see without markup as text/plain
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