Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50322/edit.lap
There are no other files named edit.lap in the archive.
(DEFPROP EDITREAD T NOCALL) 

(DEFPROP EDITCOM T NOCALL) 

(DEFPROP EDITCOMA T NOCALL) 

(DEFPROP EDITCOML T NOCALL) 

(DEFPROP EDITMAC T NOCALL) 

(DEFPROP EDITCOMS T NOCALL) 

(DEFPROP EDITH T NOCALL) 

(DEFPROP EDIT!UNDO T NOCALL) 

(DEFPROP UNDOEDITCOM T NOCALL) 

(DEFPROP EDITSMASH T NOCALL) 

(DEFPROP EDITNCONC T NOCALL) 

(DEFPROP EDIT1F T NOCALL) 

(DEFPROP EDIT2F T NOCALL) 

(DEFPROP EDITBF1 T NOCALL) 

(DEFPROP EDITNTH T NOCALL) 

(DEFPROP BPNT0 T NOCALL) 

(DEFPROP BPNT T NOCALL) 

(DEFPROP EDITDEFAULT T NOCALL) 

(DEFPROP EDUP T NOCALL) 

(DEFPROP EDIT* T NOCALL) 

(DEFPROP EDOR T NOCALL) 

(DEFPROP ERRCOM T NOCALL) 

(DEFPROP EDRPT T NOCALL) 

(DEFPROP EDLOC T NOCALL) 

(DEFPROP EDLOCL T NOCALL) 

(DEFPROP EDITELT T NOCALL) 

(DEFPROP EDITCONT T NOCALL) 

(DEFPROP EDITSW T NOCALL) 

(DEFPROP EDITTO T NOCALL) 

(DEFPROP EDITBELOW T NOCALL) 

(DEFPROP EDITRAN T NOCALL) 

(LAP ## FSUBR) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL COMS) S) 
       (MOVE 1 (SPECIAL L) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL L) S) 
       (0 2 (SPECIAL UNDOLST1) S) 
       (MOVE 1 (SPECIAL COMS) S) 
       (PUSHJ P EDITCOMS) 
       (PUSHJ P SPECSTR) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP EDITFNS FSUBR) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (CALL 1 (E *EVAL) S) 
       (PUSH P 1) 
 TAG1  (MOVE 1 0 P) 
       (JUMPE 1 TAG6) 
       (HLRZ@ 1 1) 
       (CALL 1 (E PRINT) S) 
       (HRRZ@ 2 -1 P) 
       (CALL 2 (E CONS) S) 
       (MOVEI 2 (QUOTE EDITF) S) 
       (CALL 2 (E XCONS) S) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE ERRORX) S) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (CALL 17 (E ERRSET) S) 
       (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG6  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP EDITF FSUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (JUMPN 1 TAG6) 
       (MOVEI 1 (QUOTE =) S) 
       (CALL 1 (E PRINT) S) 
       (MOVE 1 (SPECIAL LASTWORD) S) 
       (CALL 1 (E PRIN1) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 -2 P) 
 TAG6  (HLRZ@ 1 -2 P) 
       (CALL 1 (E LITATOM) S) 
       (JUMPE 1 TAG11) 
       (HLRZ@ 1 -2 P) 
       (MOVEI 2 (QUOTE TRACE) S) 
       (MOVEM 1 -1 P) 
       (CALL 2 (E GET) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG13) 
       (HRRZ@ 1 1) 
       (MOVEM 1 -1 P) 
 TAG13 (MOVEI 2 (QUOTE (EXPR FEXPR MACRO)) S) 
       (MOVE 1 -1 P) 
       (CALL 2 (E GETL) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG15) 
       (HRRZ@ 1 1) 
       (HLRZ@ 3 -2 P) 
       (HRRZ@ 2 -2 P) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (CALL 3 (E EDITE) S) 
       (HRLM@ 1 0 P) 
       (HLRZ@ 1 -3 P) 
       (MOVEM 1 (SPECIAL LASTWORD) S) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG2) 
 TAG15 (MOVEI 2 (QUOTE VALUE) S) 
       (MOVE 1 -1 P) 
       (CALL 2 (E GET) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG17) 
       (HRRZ@ 1 1) 
       (CALL 1 (E CONSP) S) 
 TAG17 (JUMPN 1 TAG1) 
       (JRST 0 TAG10) 
 TAG11 (HLRZ@ 1 -2 P) 
       (CALL 1 (E CONSP) S) 
       (JUMPN 1 TAG1) 
 TAG10 (HLRZ@ 1 -2 P) 
       (CALL 1 (E PRINT) S) 
       (MOVEI 1 (QUOTE NOT/ EDITABLE) S) 
       (CALL 1 (E PRINC) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG1  (MOVEI 1 (QUOTE =EDITV) S) 
       (CALL 1 (E PRINT) S) 
       (MOVE 1 -2 P) 
       (CALL 17 (E EDITV) S) 
 TAG2  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP EDITV FSUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (JUMPN 1 TAG5) 
       (MOVEI 1 (QUOTE =) S) 
       (CALL 1 (E PRINT) S) 
       (MOVE 1 (SPECIAL LASTWORD) S) 
       (CALL 1 (E PRIN1) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 -1 P) 
 TAG5  (HLRZ@ 1 -1 P) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG10) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E *EVAL) S) 
       (MOVEI 3 (QUOTE NIL)) 
       (HRRZ@ 2 -1 P) 
       (CALL 3 (E EDITE) S) 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG1) 
 TAG10 (HLRZ@ 1 -1 P) 
       (CALL 1 (E LITATOM) S) 
       (JUMPE 1 TAG13) 
       (MOVEI 2 (QUOTE VALUE) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 2 (E GET) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG15) 
       (HRRZ@ 1 1) 
       (PUSH P 1) 
       (CALL 0 (E UNBOUND) S) 
       (PUSH P 1) 
       (CAME 1 -1 P) 
       (JRST 0 TAG16) 
       (TDZA 1 1) 
 TAG16 (MOVEI 1 (QUOTE T) S) 
       (SUB P (C 2 0 2 0)) 
 TAG15 
 TAG13 (JUMPE 1 TAG11) 
       (HLRZ@ 3 -1 P) 
       (HRRZ@ 2 -1 P) 
       (HRRZ@ 1 0 P) 
       (CALL 3 (E EDITE) S) 
       (HRRM@ 1 0 P) 
       (HLRZ@ 1 -1 P) 
       (MOVEM 1 (SPECIAL LASTWORD) S) 
       (JRST 0 TAG1) 
 TAG11 (HLRZ@ 1 -1 P) 
       (CALL 1 (E PRINT) S) 
       (MOVEI 1 (QUOTE NOT/ EDITABLE) S) 
       (CALL 1 (E PRINC) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
       (MOVEI 1 (QUOTE NIL)) 
 TAG1  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP EDITP FSUBR) 
       (PUSH P 1) 
       (MOVE 1 0 P) 
       (JUMPN 1 TAG5) 
       (MOVEI 1 (QUOTE =) S) 
       (CALL 1 (E PRINT) S) 
       (MOVE 1 (SPECIAL LASTWORD) S) 
       (CALL 1 (E PRIN1) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 0 P) 
 TAG5  (HLRZ@ 1 0 P) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG10) 
       (MOVEI 1 (QUOTE =EDITV) S) 
       (CALL 1 (E PRINT) S) 
       (MOVE 1 0 P) 
       (CALL 17 (E EDITV) S) 
       (JRST 0 TAG7) 
 TAG10 (HLRZ@ 1 0 P) 
       (CALL 1 (E LITATOM) S) 
       (JUMPE 1 TAG11) 
       (HLRZ@ 3 0 P) 
       (HRRZ@ 2 0 P) 
       (HRRZ@ 1 3) 
       (CALL 3 (E EDITE) S) 
       (HLRZ@ 1 0 P) 
       (MOVEM 1 (SPECIAL LASTWORD) S) 
       (JRST 0 TAG7) 
 TAG11 (HLRZ@ 1 0 P) 
       (CALL 1 (E PRINT) S) 
       (MOVEI 1 (QUOTE NOT/ EDITABLE) S) 
       (CALL 1 (E PRINC) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG7  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP EDITE SUBR) 
       (JSP 6 SPECBIND) 
       (0 2 (SPECIAL COMS) S) 
       (0 3 (SPECIAL ATM) S) 
       (PUSH P 1) 
       (CALL 1 (E PATOM) S) 
       (JUMPE 1 TAG2) 
       (MOVE 1 0 P) 
       (CALL 1 (E PRINT) S) 
       (MOVEI 1 (QUOTE NOT/ EDITABLE) S) 
       (CALL 1 (E PRINC) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 1 0 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 5 (QUOTE NIL)) 
       (MOVEI 4 (QUOTE NIL)) 
       (MOVE 3 (SPECIAL ATM) S) 
       (MOVE 2 (SPECIAL COMS) S) 
       (CALL 5 (E EDITL) S) 
       (CALL 1 (E LAST) S) 
       (HLRZ@ 1 1) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP EDITL SUBR) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL L) S) 
       (0 2 (SPECIAL COMS) S) 
       (0 3 (SPECIAL ATM) S) 
       (0 4 (SPECIAL MARKLST) S) 
       (0 5 (SPECIAL MESS) S) 
       (0 0 (SPECIAL COM) S) 
       (0 0 (SPECIAL LASTAIL) S) 
       (0 0 (SPECIAL UNDOLST) S) 
       (0 0 (SPECIAL UNDOLST1) S) 
       (0 0 (SPECIAL FINDFLAG) S) 
       (0 0 (SPECIAL LCFLG) S) 
       (0 0 (SPECIAL UNFIND) S) 
       (0 0 (SPECIAL LASTP1) S) 
       (0 0 (SPECIAL LASTP2) S) 
       (0 0 (SPECIAL READBUF) S) 
       (0 0 (SPECIAL L0) S) 
       (0 0 (SPECIAL COM0) S) 
       (0 0 (SPECIAL OLDPROMPT) S) 
       (MOVEI 1 (QUOTE ((EDITL0) ERRORX)) S) 
       (CALL 17 (E ERRSET) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG5) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (JRST 0 TAG1) 
 TAG5  (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
       (MOVEI 1 (QUOTE NIL)) 
 TAG1  (JRST 0 SPECSTR) 
       NIL 

(LAP EDITL0 SUBR) 
       (MOVE 1 (SPECIAL COMS) S) 
       (JUMPE 1 TAG6) 
       (HLRZ@ 1 1) 
       (CAIE 1 (QUOTE START) S) 
       (JRST 0 TAG10) 
       (HRRZ@ 1 (SPECIAL COMS) S) 
       (MOVEM 1 (SPECIAL READBUF) S) 
       (JRST 0 TAG7) 
 TAG10 (MOVEI 1 (QUOTE ((EDIT1) ERRORX)) S) 
       (CALL 17 (E ERRSET) S) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG11) 
       (MOVE 1 (SPECIAL L) S) 
       (JRST 0 TAG2) 
 TAG11 (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG7 
 TAG6  (MOVE 1 (SPECIAL MESS) S) 
       (JUMPN 1 TAG14) 
       (MOVEI 1 (QUOTE EDIT) S) 
 TAG14 (CALL 1 (E PRINT) S) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (PUSH P 1) 
       (MOVEI 2 (QUOTE LASTVALUE) S) 
       (MOVEI 1 (QUOTE EDIT) S) 
       (CALL 2 (E GET) S) 
       (MOVEM 1 (SPECIAL COM) S) 
       (JUMPN 1 TAG20) 
       (MOVEI 1 (QUOTE ((NIL))) S) 
 TAG20 (HLRZ@ 1 1) 
       (CALL 1 (E LAST) S) 
       (HLRZ@ 2 1) 
       (CAME 2 0 P) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
       (SUB P (C 1 0 1 0)) 
       (JUMPN 1 TAG17) 
       (MOVE 1 (SPECIAL ATM) S) 
       (JUMPE 1 TAG24) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (PUSH P 1) 
       (MOVEI 2 (QUOTE EDIT-SAVE) S) 
       (MOVE 1 (SPECIAL ATM) S) 
       (CALL 2 (E GET) S) 
       (MOVEM 1 (SPECIAL COM) S) 
       (JUMPN 1 TAG25) 
       (MOVEI 1 (QUOTE ((NIL))) S) 
 TAG25 (HLRZ@ 1 1) 
       (CALL 1 (E LAST) S) 
       (HLRZ@ 2 1) 
       (CAME 2 0 P) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
       (SUB P (C 1 0 1 0)) 
 TAG24 
 TAG17 (JUMPE 1 TAG16) 
       (HLRZ@ 1 (SPECIAL COM) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (HRRZ@ 1 (SPECIAL COM) S) 
       (HLRZ@ 1 1) 
       (MOVEM 1 (SPECIAL MARKLST) S) 
       (HRRZ@ 1 (SPECIAL COM) S) 
       (CALL 1 (E CADR) S) 
       (MOVEM 1 (SPECIAL UNDOLST) S) 
       (HLRZ@ 1 1) 
       (JUMPE 1 TAG31) 
       (MOVE 2 (SPECIAL UNDOLST) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL UNDOLST) S) 
 TAG31 (HRRZ@ 1 (SPECIAL COM) S) 
       (CALL 1 (E CDDR) S) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
 TAG16 
 TAG1  (MOVEI 1 (QUOTE ((EDITL1) ERRORX)) S) 
       (CALL 17 (E ERRSET) S) 
       (JRST 0 TAG1) 
 TAG2  (POPJ P) 
       NIL 

(LAP EDIT1 SUBR) 
       (PUSH P (SPECIAL COMS) S) 
 TAG1  (MOVE 1 0 P) 
       (JUMPE 1 TAG6) 
       (HLRZ@ 1 1) 
       (MOVEM 1 (SPECIAL COM) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (PUSHJ P EDITCOM) 
       (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG6  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP SUBFUN1EDVAL SUBR) 
       (MOVE 1 (SPECIAL SN) S) 
       (JCALL 1 (E *EVAL) S) 
       NIL 

(LAP EDVAL SUBR) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL SN) S) 
       (MOVEI 1 (QUOTE ((SUBFUN1EDVAL))) S) 
       (CALL 17 (E ERRSET) S) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP SUBFUN1EDITL1 SUBR) 
       (MOVEI 2 (QUOTE T) S) 
       (MOVE 1 (SPECIAL COM) S) 
       (JRST 0 EDITCOM) 
       NIL 

(LAP EDITL1 SUBR) 
 TAG1  (CLEARM 0 (SPECIAL FINDFLAG) S) 
       (MOVE 1 (SPECIAL OLDPROMPT) S) 
       (JUMPN 1 TAG7) 
       (CALL 0 (E SPDLPT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEI 3 (QUOTE 0)) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE EDITL1) S) 
       (CALL 3 (E STKCOUNT) S) 
       (CALL 1 (E SUB1) S) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE 43)) 
       (CALL 1 (E PROMPT) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEM 1 (SPECIAL OLDPROMPT) S) 
 TAG7 
 TAG2  (CLEARM 0 (SPECIAL UNDOLST1) S) 
       (PUSHJ P EDITREAD) 
       (MOVEM 1 (SPECIAL COM) S) 
       (MOVE 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL L0) S) 
       (MOVE 1 (SPECIAL COM) S) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG12) 
       (MOVE 1 (SPECIAL COM) S) 
       (JRST 0 TAG11) 
 TAG12 (HLRZ@ 1 (SPECIAL COM) S) 
 TAG11 (MOVEM 1 (SPECIAL COM0) S) 
       (MOVEI 1 (QUOTE ((SUBFUN1EDITL1))) S) 
       (CALL 17 (E ERRSET) S) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL UNDOLST1) S) 
       (JUMPE 1 TAG17) 
       (MOVE 2 (SPECIAL L0) S) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 (SPECIAL COM0) S) 
       (CALL 2 (E XCONS) S) 
       (MOVEM 1 (SPECIAL UNDOLST1) S) 
       (MOVE 2 (SPECIAL UNDOLST) S) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL UNDOLST) S) 
 TAG17 (POP P 1) 
       (CALL 1 (E CONSP) S) 
       (JUMPN 1 TAG2) 
       (CLEARM 0 (SPECIAL READBUF) S) 
       (CALL 0 (E TERPRI) S) 
       (MOVE 1 (SPECIAL COM) S) 
       (JUMPE 1 TAG21) 
       (CALL 1 (E PRIN1) S) 
       (MOVEI 1 (QUOTE / / ?) S) 
       (CALL 1 (E PRINC) S) 
       (CALL 0 (E TERPRI) S) 
 TAG21 (JRST 0 TAG1) 
       (POPJ P) 
       NIL 

(LAP EDITREAD SUBR) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVE 1 (SPECIAL READBUF) S) 
       (JUMPN 1 TAG6) 
 TAG1  (CALL 0 (E TERPRI) S) 
       (HLRZ@ 1 (SPECIAL OLDPROMPT) S) 
       (CAIN 1 (QUOTE 0)) 
       (JRST 0 TAG14) 
       (HLRZ@ 1 (SPECIAL OLDPROMPT) S) 
       (CALL 1 (E PRINC) S) 
 TAG14 (MOVEI 1 (QUOTE ((LINEREAD) ERRORX)) S) 
       (CALL 17 (E ERRSET) S) 
       (MOVEM 1 (SPECIAL READBUF) S) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG17) 
       (CALL 0 (E TERPRI) S) 
       (JRST 0 TAG1) 
 TAG17 (HLRZ@ 1 (SPECIAL READBUF) S) 
       (MOVEM 1 (SPECIAL READBUF) S) 
 TAG6  (HLRZ@ 1 (SPECIAL READBUF) S) 
       (HRRZ@ 2 (SPECIAL READBUF) S) 
       (MOVEM 2 (SPECIAL READBUF) S) 
       (MOVEM 1 0 P) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP EDITCOM SUBR) 
       (JSP 6 SPECBIND) 
       (0 2 (SPECIAL TOPFLG) S) 
       (PUSH P 1) 
       (MOVE 1 0 P) 
       (MOVEM 1 (SPECIAL COM) S) 
       (MOVE 1 (SPECIAL EDITRACEFN) S) 
       (JUMPE 1 TAG5) 
       (MOVE 1 0 P) 
       (PUSH P (SPECIAL EDITRACEFN) S) 
       (CALLF@ 1 0 P) 
       (SUB P (C 1 0 1 0)) 
 TAG5  (MOVE 1 (SPECIAL FINDFLAG) S) 
       (JUMPE 1 TAG7) 
       (CAIE 1 (QUOTE BF) S) 
       (JRST 0 TAG11) 
       (CLEARM 0 (SPECIAL FINDFLAG) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 1 0 P) 
       (CALL 2 (E EDITBF) S) 
       (JRST 0 TAG10) 
 TAG11 (CLEARM 0 (SPECIAL FINDFLAG) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E EDITQF) S) 
 TAG10 (JRST 0 TAG6) 
 TAG7  (MOVE 1 0 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG14) 
       (MOVE 2 (SPECIAL L) S) 
       (MOVE 1 0 P) 
       (PUSHJ P EDIT1F) 
       (MOVEM 1 (SPECIAL L) S) 
       (JRST 0 TAG6) 
 TAG14 (MOVE 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG15) 
       (MOVE 1 (SPECIAL TOPFLG) S) 
       (JUMPE 1 TAG16) 
       (TDZA 2 2) 
 TAG16 (MOVEI 2 (QUOTE T) S) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITCOMA) 
       (JRST 0 TAG6) 
 TAG15 (MOVE 1 (SPECIAL TOPFLG) S) 
       (JUMPE 1 TAG21) 
       (TDZA 2 2) 
 TAG21 (MOVEI 2 (QUOTE T) S) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITCOML) 
 TAG6  (HLRZ@ 1 (SPECIAL L) S) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP EDITCOMA SUBR) 
       (JSP 6 SPECBIND) 
       (0 2 (SPECIAL COPYFLG) S) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (CAIE 1 (QUOTE NIL)) 
       (JRST 0 TAG7) 
       (JRST 0 TAG6) 
 TAG7  (CAIE 1 (QUOTE OK) S) 
       (JRST 0 TAG10) 
       (MOVE 1 (SPECIAL ATM) S) 
       (JUMPE 1 TAG12) 
       (MOVEI 2 (QUOTE EDIT-SAVE) S) 
       (CALL 2 (E REMPROP) S) 
 TAG12 (MOVE 1 (SPECIAL L) S) 
       (CALL 1 (E LAST) S) 
       (MOVE 2 (SPECIAL L) S) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL UNDOLST) S) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 (SPECIAL MARKLST) S) 
       (CALL 2 (E XCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 3 (QUOTE LASTVALUE) S) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE EDIT) S) 
       (CALL 3 (E PUTPROP) S) 
       (HRRZ@ 1 (SPECIAL OLDPROMPT) S) 
       (CALL 1 (E PROMPT) S) 
       (MOVE 2 (SPECIAL L) S) 
       (MOVEI 1 (QUOTE EDITL0) S) 
       (CALL 2 (E RETFROM) S) 
       (JRST 0 TAG6) 
 TAG10 (CAIE 1 (QUOTE STOP) S) 
       (JRST 0 TAG13) 
       (HRRZ@ 1 (SPECIAL OLDPROMPT) S) 
       (CALL 1 (E PROMPT) S) 
       (CALL 0 (E SPDLPT) S) 
       (MOVEI 3 (QUOTE NIL)) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE EDITL0) S) 
       (CALL 3 (E STKSRCH) S) 
       (MOVEI 2 (QUOTE (ERR)) S) 
       (CALL 2 (E SPREVAL) S) 
       (JRST 0 TAG6) 
 TAG13 (CAIE 1 (QUOTE SAVE) S) 
       (JRST 0 TAG14) 
       (MOVE 1 (SPECIAL ATM) S) 
       (JUMPE 1 TAG16) 
       (MOVE 2 (SPECIAL UNFIND) S) 
       (MOVE 1 (SPECIAL UNDOLST) S) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 (SPECIAL MARKLST) S) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 (SPECIAL L) S) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 3 (QUOTE EDIT-SAVE) S) 
       (MOVE 2 1) 
       (MOVE 1 (SPECIAL ATM) S) 
       (CALL 3 (E PUTPROP) S) 
       (MOVEI 3 (QUOTE LASTVALUE) S) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE EDIT) S) 
       (CALL 3 (E PUTPROP) S) 
 TAG16 (HRRZ@ 1 (SPECIAL OLDPROMPT) S) 
       (CALL 1 (E PROMPT) S) 
       (MOVE 2 (SPECIAL L) S) 
       (MOVEI 1 (QUOTE EDITL0) S) 
       (CALL 2 (E RETFROM) S) 
       (JRST 0 TAG6) 
 TAG14 (CAIE 1 (QUOTE TTY:) S) 
       (JRST 0 TAG17) 
       (MOVE 1 (SPECIAL COM0) S) 
       (MOVEM 1 (SPECIAL COM) S) 
       (MOVEI 5 (QUOTE TTY:) S) 
       (MOVEI 4 (QUOTE NIL)) 
       (MOVEI 3 (QUOTE NIL)) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 1 (SPECIAL L) S) 
       (CALL 5 (E EDITL) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (JRST 0 TAG6) 
 TAG17 (CAIE 1 (QUOTE E) S) 
       (JRST 0 TAG20) 
       (MOVE 1 (SPECIAL TOPFLG) S) 
       (JUMPE 1 TAG22) 
       (PUSHJ P EDITREAD) 
       (CALL 1 (E EDVAL) S) 
       (MOVEM 1 0 P) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG24) 
       (MOVE 2 (SPECIAL %LOOKDPTH) S) 
       (HLRZ@ 1 0 P) 
       (CALL 2 (E PRINTLEV) S) 
 TAG24 (JRST 0 TAG21) 
 TAG22 (MOVE 1 -1 P) 
       (CALL 1 (E EDITQF) S) 
 TAG21 (JRST 0 TAG6) 
 TAG20 (CAIE 1 (QUOTE P) S) 
       (JRST 0 TAG27) 
       (MOVEI 2 (QUOTE 2)) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (PUSHJ P BPNT0) 
       (JRST 0 TAG6) 
 TAG27 (CAIE 1 (QUOTE ?) S) 
       (JRST 0 TAG30) 
       (MOVEI 2 (QUOTE 100)) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (PUSHJ P BPNT0) 
       (JRST 0 TAG6) 
 TAG30 (CAIE 1 (QUOTE PP) S) 
       (JRST 0 TAG31) 
       (MOVEI 2 (QUOTE NIL)) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (PUSHJ P BPNT0) 
       (JRST 0 TAG6) 
 TAG31 (CAIE 1 (QUOTE ^) S) 
       (JRST 0 TAG32) 
       (HRRZ@ 1 (SPECIAL L) S) 
       (JUMPE 1 TAG34) 
       (MOVE 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
 TAG34 (MOVE 1 (SPECIAL L) S) 
       (CALL 1 (E LAST) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (JRST 0 TAG6) 
 TAG32 (CAIE 1 (QUOTE !0) S) 
       (JRST 0 TAG35) 
       (HRRZ@ 1 (SPECIAL L) S) 
       (JUMPN 1 TAG37) 
       (CALL 1 (E ERR) S) 
 TAG37 
 TAG1  (HRRZ@ 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (HRRZ@ 2 1) 
       (HLRZ@ 2 2) 
       (HLRZ@ 1 1) 
       (CALL 2 (E TAILP) S) 
       (JUMPN 1 TAG1) 
       (JRST 0 TAG6) 
 TAG35 (CAIE 1 (QUOTE MARK) S) 
       (JRST 0 TAG45) 
       (MOVE 2 (SPECIAL MARKLST) S) 
       (MOVE 1 (SPECIAL L) S) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL MARKLST) S) 
       (JRST 0 TAG6) 
 TAG45 (CAIE 1 (QUOTE UNDO) S) 
       (JRST 0 TAG46) 
       (PUSH P (SPECIAL TOPFLG) S) 
       (MOVE 1 (SPECIAL READBUF) S) 
       (JUMPE 1 TAG50) 
       (PUSHJ P EDITREAD) 
       (MOVE 3 1) 
       (JRST 0 TAG47) 
 TAG50 (MOVEI 3 (QUOTE NIL)) 
 TAG47 (MOVEI 2 (QUOTE NIL)) 
       (POP P 1) 
       (PUSHJ P EDIT!UNDO) 
       (JRST 0 TAG6) 
 TAG46 (CAIE 1 (QUOTE TEST) S) 
       (JRST 0 TAG51) 
       (MOVE 2 (SPECIAL UNDOLST) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL UNDOLST) S) 
       (JRST 0 TAG6) 
 TAG51 (CAIE 1 (QUOTE !UNDO) S) 
       (JRST 0 TAG52) 
       (MOVEI 3 (QUOTE NIL)) 
       (MOVEI 2 (QUOTE T) S) 
       (MOVEI 1 (QUOTE T) S) 
       (PUSHJ P EDIT!UNDO) 
       (JRST 0 TAG6) 
 TAG52 (CAIE 1 (QUOTE UNBLOCK) S) 
       (JRST 0 TAG53) 
       (MOVE 2 (SPECIAL UNDOLST) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E MEMQ) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG55) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E NCONS) S) 
       (HRRZ@ 3 0 P) 
       (MOVE 2 1) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITSMASH) 
       (JRST 0 TAG54) 
 TAG55 (CALL 0 (E TERPRI) S) 
       (MOVEI 1 (QUOTE NOT/ BLOCKED) S) 
       (CALL 1 (E PRINC) S) 
 TAG54 (JRST 0 TAG6) 
 TAG53 (CAIE 1 (QUOTE _) S) 
       (JRST 0 TAG60) 
       (MOVE 1 (SPECIAL MARKLST) S) 
       (JUMPE 1 TAG62) 
       (HRRZ@ 1 (SPECIAL L) S) 
       (JUMPE 1 TAG64) 
       (MOVE 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
 TAG64 (HLRZ@ 1 (SPECIAL MARKLST) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (JRST 0 TAG61) 
 TAG62 (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG61 (JRST 0 TAG6) 
 TAG60 (CAIE 1 (QUOTE \) S) 
       (JRST 0 TAG67) 
       (MOVE 1 (SPECIAL UNFIND) S) 
       (JUMPE 1 TAG71) 
       (MOVE 1 (SPECIAL L) S) 
       (MOVE 2 (SPECIAL UNFIND) S) 
       (MOVEM 2 (SPECIAL L) S) 
       (MOVEM 1 -1 P) 
       (HRRZ@ 1 1) 
       (JUMPE 1 TAG73) 
       (MOVE 1 -1 P) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
 TAG73 (JRST 0 TAG70) 
 TAG71 (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG70 (JRST 0 TAG6) 
 TAG67 (CAIE 1 (QUOTE \P) S) 
       (JRST 0 TAG76) 
       (MOVE 1 (SPECIAL LASTP1) S) 
       (JUMPE 1 TAG102) 
       (CAME 1 (SPECIAL L) S) 
       (JRST 0 TAG103) 
       (TDZA 1 1) 
 TAG103 
       (MOVEI 1 (QUOTE T) S) 
 TAG102 
       (JUMPE 1 TAG100) 
       (MOVE 1 (SPECIAL LASTP1) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (JRST 0 TAG77) 
 TAG100 
       (MOVE 1 (SPECIAL LASTP2) S) 
       (JUMPE 1 TAG106) 
       (CAME 1 (SPECIAL L) S) 
       (JRST 0 TAG107) 
       (TDZA 1 1) 
 TAG107 
       (MOVEI 1 (QUOTE T) S) 
 TAG106 
       (JUMPE 1 TAG104) 
       (MOVE 1 (SPECIAL LASTP2) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (JRST 0 TAG77) 
 TAG104 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG77 (JRST 0 TAG6) 
 TAG76 (CAIE 1 (QUOTE __) S) 
       (JRST 0 TAG112) 
       (MOVE 1 (SPECIAL MARKLST) S) 
       (JUMPE 1 TAG114) 
       (HRRZ@ 1 (SPECIAL L) S) 
       (JUMPE 1 TAG116) 
       (MOVE 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
       (JUMPE 1 TAG120) 
       (HLRZ@ 1 (SPECIAL MARKLST) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (JUMPE 1 TAG122) 
       (HRRZ@ 1 (SPECIAL MARKLST) S) 
       (MOVEM 1 (SPECIAL MARKLST) S) 
 TAG122 
 TAG120 
 TAG116 
       (JRST 0 TAG113) 
 TAG114 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG113 
       (JRST 0 TAG6) 
 TAG112 
       (MOVEI 2 (QUOTE (F BF)) S) 
       (CALL 2 (E MEMQ) S) 
       (JUMPE 1 TAG125) 
       (MOVE 1 (SPECIAL TOPFLG) S) 
       (JUMPN 1 TAG127) 
       (MOVE 1 -1 P) 
       (MOVEM 1 (SPECIAL FINDFLAG) S) 
       (JRST 0 TAG4) 
 TAG127 
       (PUSHJ P EDITREAD) 
       (MOVEM 1 0 P) 
       (MOVE 1 -1 P) 
       (CAIE 1 (QUOTE F) S) 
       (JRST 0 TAG134) 
       (MOVE 1 0 P) 
       (CALL 1 (E EDITQF) S) 
       (JRST 0 TAG133) 
 TAG134 
       (CAIE 1 (QUOTE BF) S) 
       (JRST 0 TAG135) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 1 0 P) 
       (CALL 2 (E EDITBF) S) 
       (JRST 0 TAG133) 
 TAG135 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG133 
       (JRST 0 TAG6) 
 TAG125 
       (MOVE 1 -1 P) 
       (CAIE 1 (QUOTE UP) S) 
       (JRST 0 TAG140) 
       (PUSHJ P EDUP) 
       (JRST 0 TAG6) 
 TAG140 
       (CAIE 1 (QUOTE DELETE) S) 
       (JRST 0 TAG141) 
       (MOVEI 1 (QUOTE (DELETE)) S) 
       (MOVEI 3 (QUOTE NIL)) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVEM 1 -1 P) 
       (MOVEI 1 (QUOTE :) S) 
       (CALL 3 (E EDIT:) S) 
       (JRST 0 TAG6) 
 TAG141 
       (CAIE 1 (QUOTE NX) S) 
       (JRST 0 TAG142) 
       (MOVEI 1 (QUOTE 1)) 
       (PUSHJ P EDIT*) 
       (JRST 0 TAG6) 
 TAG142 
       (CAIE 1 (QUOTE BK) S) 
       (JRST 0 TAG143) 
       (MOVEI 1 (QUOTE -1)) 
       (PUSHJ P EDIT*) 
       (JRST 0 TAG6) 
 TAG143 
       (CAIE 1 (QUOTE !NX) S) 
       (JRST 0 TAG144) 
       (MOVE 1 (SPECIAL L) S) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL L) S) 
       (PUSH P 1) 
 TAG2  (HRRZ@ 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (JUMPE 1 TAG153) 
       (TDZA 1 1) 
 TAG153 
       (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG152) 
       (HRRZ@ 1 (SPECIAL L) S) 
       (JUMPE 1 TAG154) 
       (TDZA 1 1) 
 TAG154 
       (MOVEI 1 (QUOTE T) S) 
 TAG152 
       (JUMPE 1 TAG151) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG150) 
 TAG151 
       (HRRZ@ 2 (SPECIAL L) S) 
       (HLRZ@ 2 2) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 2 (E MEMQ) S) 
       (MOVEM 1 -1 P) 
       (JUMPE 1 TAG156) 
       (TDZA 1 1) 
 TAG156 
       (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG155) 
       (HRRZ@ 1 -1 P) 
       (JUMPE 1 TAG157) 
       (TDZA 1 1) 
 TAG157 
       (MOVEI 1 (QUOTE T) S) 
 TAG155 
       (JUMPN 1 TAG2) 
 TAG150 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVEI 1 (QUOTE NX) S) 
       (PUSHJ P EDITCOM) 
       (MOVE 1 0 P) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
       (MOVE 1 (SPECIAL L) S) 
       (PUSHJ P SPECSTR) 
       (MOVEM 1 (SPECIAL L) S) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG6) 
 TAG144 
       (CAIE 1 (QUOTE ??) S) 
       (JRST 0 TAG160) 
       (MOVE 1 (SPECIAL UNDOLST) S) 
       (PUSHJ P EDITH) 
       (JRST 0 TAG6) 
 TAG160 
       (MOVEI 3 (QUOTE NIL)) 
       (MOVE 2 (SPECIAL EDITMACROS) S) 
       (MOVE 1 -1 P) 
       (PUSHJ P EDITMAC) 
       (MOVEM 1 0 P) 
       (JUMPN 1 TAG166) 
       (MOVEI 3 (QUOTE NIL)) 
       (MOVE 2 (SPECIAL USERMACROS) S) 
       (MOVE 1 -1 P) 
       (PUSHJ P EDITMAC) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG170) 
       (TDZA 1 1) 
 TAG170 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG165) 
 TAG166 
       (MOVEI 1 (QUOTE NIL)) 
 TAG165 
       (JUMPE 1 TAG164) 
       (MOVE 1 -1 P) 
       (PUSHJ P EDITDEFAULT) 
       (JRST 0 TAG3) 
 TAG164 
       (HRRZ@ 1 0 P) 
       (CALL 1 (E COPY) S) 
       (PUSHJ P EDITCOMS) 
 TAG6 
 TAG4  (MOVEI 1 (QUOTE NIL)) 
 TAG3  (SUB P (C 2 0 2 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP EDITCOML SUBR) 
       (JSP 6 SPECBIND) 
       (0 2 (SPECIAL COPYFLG) 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  (HRRZ@ 1 -3 P) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG12) 
       (HRRZ@ 1 -3 P) 
       (HLRZ@ 1 1) 
       (MOVEM 1 0 P) 
       (HRRZ@ 1 -3 P) 
       (HRRZ@ 1 1) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG14) 
       (HRRZ@ 1 -3 P) 
       (CALL 1 (E CADR) S) 
       (MOVEM 1 -1 P) 
 TAG14 
 TAG12 (MOVE 1 (SPECIAL LCFLG) S) 
       (JUMPE 1 TAG20) 
       (MOVEI 2 (QUOTE (TO THRU THROUGH)) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E MEMQ) S) 
       (JUMPE 1 TAG22) 
       (HRRZ@ 1 -3 P) 
       (HRRZ@ 1 1) 
       (JUMPN 1 TAG24) 
       (MOVEI 1 (QUOTE -1)) 
       (MOVEI 2 (QUOTE THRU) S) 
       (MOVEM 1 -1 P) 
       (MOVEM 2 0 P) 
 TAG24 (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG21) 
 TAG22 (MOVEI 1 (QUOTE NIL)) 
 TAG21 
 TAG20 (JUMPE 1 TAG16) 
       (MOVE 3 0 P) 
       (MOVE 2 -1 P) 
       (HLRZ@ 1 -3 P) 
       (PUSHJ P EDITTO) 
       (JRST 0 TAG7) 
 TAG16 (HLRZ@ 1 -3 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG30) 
       (HRRZ@ 2 -3 P) 
       (HLRZ@ 1 -3 P) 
       (PUSHJ P EDIT2F) 
       (JRST 0 TAG7) 
 TAG30 (MOVE 1 0 P) 
       (CAIE 1 (QUOTE ::) S) 
       (JRST 0 TAG31) 
       (HRRZ@ 2 -3 P) 
       (HRRZ@ 2 2) 
       (HLRZ@ 1 -3 P) 
       (PUSHJ P EDITCONT) 
       (JRST 0 TAG7) 
 TAG31 (HLRZ@ 1 -3 P) 
       (MOVEM 1 (SPECIAL SELECTQ) S) 
       (CAIE 1 (QUOTE S) S) 
       (JRST 0 TAG33) 
       (PUSH P 0 P) 
       (MOVE 1 -1 P) 
       (JUMPN 1 TAG35) 
       (CALL 1 (E ERR) S) 
       (MOVE 2 1) 
       (JRST 0 TAG34) 
 TAG35 (MOVE 1 (SPECIAL L) S) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL L) S) 
       (HRRZ@ 1 -4 P) 
       (HRRZ@ 1 1) 
       (PUSHJ P EDLOC) 
       (PUSHJ P SPECSTR) 
       (MOVE 2 1) 
 TAG34 (POP P 1) 
       (CALL 2 (E SET) S) 
       (JRST 0 TAG32) 
 TAG33 (CAIE 1 (QUOTE R) S) 
       (JRST 0 TAG41) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 1 (E NCONS) S) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL L) S) 
       (MOVEI 2 (QUOTE T) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E EDIT4F) S) 
       (MOVE 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG50) 
       (MOVE 1 (SPECIAL UPFINDFLG) S) 
       (JUMPE 1 TAG52) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 1 (E CONSP) S) 
 TAG52 
 TAG50 (JUMPE 1 TAG46) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (JRST 0 TAG45) 
 TAG46 (HLRZ@ 1 (SPECIAL L) S) 
 TAG45 (MOVEM 1 0 P) 
       (PUSHJ P SPECSTR) 
       (HLRZ@ 3 (SPECIAL L) S) 
       (MOVE 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 3 (E EDITDSUBST) S) 
       (JRST 0 TAG32) 
 TAG41 (CAIE 1 (QUOTE E) S) 
       (JRST 0 TAG55) 
       (MOVE 1 0 P) 
       (CALL 1 (E *EVAL) S) 
       (MOVEM 1 -2 P) 
       (HRRZ@ 1 -3 P) 
       (HRRZ@ 1 1) 
       (JUMPN 1 TAG57) 
       (MOVE 1 -2 P) 
       (CALL 1 (E PRINT) S) 
 TAG57 (MOVE 1 -2 P) 
       (JRST 0 TAG6) 
 TAG55 (CAIE 1 (QUOTE I) S) 
       (JRST 0 TAG61) 
       (MOVE 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG63) 
       (MOVE 1 0 P) 
       (JRST 0 TAG62) 
 TAG63 (MOVE 1 0 P) 
       (CALL 1 (E *EVAL) S) 
 TAG62 (HRRZ@ 2 -3 P) 
       (HRRZ@ 2 2) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG2  (MOVE 1 -3 P) 
       (JUMPE 1 TAG72) 
       (HLRZ@ 1 1) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL TOPFLG) S) 
       (JUMPE 1 TAG74) 
       (MOVE 1 0 P) 
       (CALL 1 (E *EVAL) S) 
       (CALL 1 (E PRINT) S) 
       (JRST 0 TAG73) 
 TAG74 (MOVE 1 0 P) 
       (CALL 1 (E *EVAL) S) 
 TAG73 (CALL 1 (E NCONS) S) 
       (MOVEM 1 -3 P) 
       (MOVE 1 -2 P) 
       (JUMPE 1 TAG100) 
       (MOVE 1 -3 P) 
       (HRRM@ 1 -2 P) 
       (HRRZ@ 2 -2 P) 
       (JRST 0 TAG77) 
 TAG100 
       (MOVE 2 -3 P) 
       (MOVEM 2 -1 P) 
 TAG77 (HRRZ@ 1 -4 P) 
       (MOVEM 1 -4 P) 
       (MOVEM 2 -2 P) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG2) 
 TAG72 (MOVE 2 0 P) 
       (EXCH 1 -4 P) 
       (CALL 2 (E CONS) S) 
       (CLEARM 0 (SPECIAL COPYFLG) S) 
       (MOVEM 1 -10 P) 
       (SUB P (C 5 0 5 0)) 
       (JRST 0 TAG1) 
 TAG61 (CAIE 1 (QUOTE N) S) 
       (JRST 0 TAG103) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG105) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG105 
       (HLRZ@ 1 (SPECIAL L) S) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL COPYFLG) S) 
       (JUMPE 1 TAG107) 
       (HRRZ@ 1 -4 P) 
       (CALL 1 (E COPY) S) 
       (MOVE 2 1) 
       (JRST 0 TAG106) 
 TAG107 
       (MOVEI 2 (QUOTE NIL)) 
       (HRRZ@ 1 -4 P) 
       (CALL 2 (E *APPEND) S) 
       (MOVE 2 1) 
 TAG106 
       (MOVE 1 0 P) 
       (PUSHJ P EDITNCONC) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG32) 
 TAG103 
       (CAIE 1 (QUOTE P) S) 
       (JRST 0 TAG112) 
       (MOVE 1 (SPECIAL LASTP1) S) 
       (CAMN 1 (SPECIAL L) S) 
       (JRST 0 TAG114) 
       (MOVEM 1 (SPECIAL LASTP2) S) 
       (MOVE 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL LASTP1) S) 
 TAG114 
       (HRRZ@ 1 -3 P) 
       (PUSHJ P BPNT) 
       (JRST 0 TAG32) 
 TAG112 
       (CAIE 1 (QUOTE F) S) 
       (JRST 0 TAG116) 
       (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E EDIT4F) S) 
       (JRST 0 TAG32) 
 TAG116 
       (CAIE 1 (QUOTE FS) S) 
       (JRST 0 TAG117) 
 TAG3  (HRRZ@ 1 -3 P) 
       (MOVEM 1 -3 P) 
       (JUMPE 1 TAG124) 
       (HLRZ@ 1 1) 
       (MOVEM 1 (SPECIAL COM) S) 
       (CALL 1 (E EDITQF) S) 
       (JRST 0 TAG3) 
 TAG124 
       (JRST 0 TAG32) 
 TAG117 
       (CAIE 1 (QUOTE F=) S) 
       (JRST 0 TAG125) 
       (MOVE 2 0 P) 
       (MOVEI 1 (QUOTE ==) S) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E EDIT4F) S) 
       (JRST 0 TAG32) 
 TAG125 
       (CAIE 1 (QUOTE ORF) S) 
       (JRST 0 TAG126) 
       (HRRZ@ 2 -3 P) 
       (MOVEI 1 (QUOTE *ANY*) S) 
       (CALL 2 (E CONS) S) 
       (MOVEI 2 (QUOTE N) S) 
       (CALL 2 (E EDIT4F) S) 
       (JRST 0 TAG32) 
 TAG126 
       (CAIE 1 (QUOTE BF) S) 
       (JRST 0 TAG127) 
       (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E EDITBF) S) 
       (JRST 0 TAG32) 
 TAG127 
       (CAIE 1 (QUOTE NTH) S) 
       (JRST 0 TAG130) 
       (MOVE 2 0 P) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (PUSHJ P EDITNTH) 
       (HLRZ@ 2 (SPECIAL L) S) 
       (MOVEM 1 -2 P) 
       (CAMN 1 2) 
       (JRST 0 TAG132) 
       (MOVE 2 (SPECIAL L) S) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL L) S) 
 TAG132 
       (JRST 0 TAG32) 
 TAG130 
       (CAIE 1 (QUOTE IF) S) 
       (JRST 0 TAG134) 
       (MOVE 1 0 P) 
       (CALL 1 (E EDVAL) S) 
       (MOVEM 1 -2 P) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG140) 
       (HLRZ@ 1 -2 P) 
 TAG140 
       (JUMPE 1 TAG136) 
       (HRRZ@ 1 -3 P) 
       (JUMPE 1 TAG142) 
       (MOVE 1 -1 P) 
       (PUSHJ P EDITCOMS) 
 TAG142 
       (JRST 0 TAG135) 
 TAG136 
       (HRRZ@ 1 -3 P) 
       (HRRZ@ 1 1) 
       (JUMPE 1 TAG145) 
       (HRRZ@ 1 -3 P) 
       (CALL 1 (E CDDR) S) 
 TAG145 
       (JUMPE 1 TAG143) 
       (HRRZ@ 1 -3 P) 
       (CALL 1 (E CADDR) S) 
       (PUSHJ P EDITCOMS) 
       (JRST 0 TAG135) 
 TAG143 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG135 
       (JRST 0 TAG32) 
 TAG134 
       (CAIE 1 (QUOTE BI) S) 
       (JRST 0 TAG150) 
       (PUSH P 0 P) 
       (HRRZ@ 1 -4 P) 
       (HRRZ@ 1 1) 
       (JUMPE 1 TAG152) 
       (MOVE 2 -2 P) 
       (JRST 0 TAG151) 
 TAG152 
       (MOVE 2 -1 P) 
 TAG151 
       (PUSH P 2) 
       (HRRZ@ 1 -5 P) 
       (JUMPE 1 TAG156) 
       (HLRZ@ 3 (SPECIAL L) S) 
       (JRST 0 TAG155) 
 TAG156 
       (MOVEI 3 (QUOTE NIL)) 
 TAG155 
       (POP P 2) 
       (POP P 1) 
       (CALL 3 (E BI) S) 
       (JRST 0 TAG32) 
 TAG150 
       (CAIE 1 (QUOTE RI) S) 
       (JRST 0 TAG157) 
       (PUSH P -1 P) 
       (PUSH P -1 P) 
       (HRRZ@ 1 -5 P) 
       (JUMPE 1 TAG161) 
       (HRRZ@ 1 -5 P) 
       (HRRZ@ 1 1) 
       (JUMPE 1 TAG163) 
       (HLRZ@ 3 (SPECIAL L) S) 
       (JRST 0 TAG162) 
 TAG163 
       (MOVEI 3 (QUOTE NIL)) 
 TAG162 
       (JRST 0 TAG160) 
 TAG161 
       (MOVEI 3 (QUOTE NIL)) 
 TAG160 
       (MOVE 2 -1 P) 
       (POP P 1) 
       (CALL 3 (E RI) S) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG32) 
 TAG157 
       (MOVEI 2 (QUOTE (RO LI LO BO)) S) 
       (CALL 2 (E MEMQ) S) 
       (JUMPE 1 TAG164) 
       (PUSH P 0 P) 
       (PUSH P -4 P) 
       (HLRZ@ 1 0 P) 
       (PUSH P 1) 
       (HRRZ@ 1 -6 P) 
       (JUMPE 1 TAG166) 
       (HLRZ@ 2 (SPECIAL L) S) 
       (JRST 0 TAG165) 
 TAG166 
       (MOVEI 2 (QUOTE NIL)) 
 TAG165 
       (MOVE 1 -2 P) 
       (CALLF@ 2 0 P) 
       (SUB P (C 3 0 3 0)) 
       (JRST 0 TAG32) 
 TAG164 
       (MOVE 1 (SPECIAL SELECTQ) S) 
       (CAIE 1 (QUOTE M) S) 
       (JRST 0 TAG167) 
       (MOVE 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG171) 
       (MOVEI 3 (QUOTE NIL)) 
       (MOVE 2 (SPECIAL USERMACROS) S) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITMAC) 
       (MOVEM 1 -2 P) 
       (JUMPE 1 TAG173) 
       (HRRZ@ 1 -3 P) 
       (HRRZ@ 1 1) 
       (HRRM@ 1 -2 P) 
       (JRST 0 TAG7) 
 TAG173 
       (HRRZ@ 2 -3 P) 
       (HRRZ@ 2 2) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 0 P) 
       (CALL 2 (E XCONS) S) 
       (JRST 0 TAG170) 
 TAG171 
       (MOVEI 3 (QUOTE T) S) 
       (MOVE 2 (SPECIAL USERMACROS) S) 
       (HLRZ@ 1 0 P) 
       (PUSHJ P EDITMAC) 
       (MOVEM 1 -2 P) 
       (JUMPE 1 TAG201) 
       (HRRZ@ 1 -3 P) 
       (CALL 1 (E CADR) S) 
       (HRLM@ 1 -2 P) 
       (HRRZ@ 1 -3 P) 
       (CALL 1 (E CDDR) S) 
       (HRRM@ 1 -2 P) 
       (JRST 0 TAG7) 
 TAG201 
       (PUSH P (C 0 0 TAG204 0)) 
       (PUSH P (SPECIAL EDITCOMSL) S) 
       (HLRZ@ 1 -2 P) 
       (CALL 1 (E NCONS) S) 
       (PUSH P 1) 
       (MOVNI 6 2) 
       (JCALL 16 (E NCONC) S) 
 TAG204 
       (HRRZ@ 2 -3 P) 
       (HRRZ@ 2 2) 
       (HLRZ@ 1 0 P) 
       (CALL 2 (E CONS) S) 
 TAG170 
       (MOVE 2 (SPECIAL USERMACROS) S) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL USERMACROS) S) 
       (JRST 0 TAG32) 
 TAG167 
       (CAIE 1 (QUOTE NX) S) 
       (JRST 0 TAG205) 
       (MOVE 1 0 P) 
       (PUSHJ P EDIT*) 
       (JRST 0 TAG32) 
 TAG205 
       (CAIE 1 (QUOTE BK) S) 
       (JRST 0 TAG206) 
       (MOVE 1 0 P) 
       (CALL 1 (E MINUS) S) 
       (PUSHJ P EDIT*) 
       (JRST 0 TAG32) 
 TAG206 
       (CAIE 1 (QUOTE ORR) S) 
       (JRST 0 TAG207) 
       (HRRZ@ 1 -3 P) 
       (PUSHJ P EDOR) 
       (JRST 0 TAG32) 
 TAG207 
       (CAIE 1 (QUOTE MBD) S) 
       (JRST 0 TAG210) 
       (HRRZ@ 2 -3 P) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E EDITMBD) S) 
       (JRST 0 TAG32) 
 TAG210 
       (CAIE 1 (QUOTE XTR) S) 
       (JRST 0 TAG211) 
       (HRRZ@ 2 -3 P) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E EDITXTR) S) 
       (JRST 0 TAG32) 
 TAG211 
       (MOVEI 2 (QUOTE (THRU TO)) S) 
       (CALL 2 (E MEMQ) S) 
       (JUMPE 1 TAG212) 
       (HLRZ@ 3 -3 P) 
       (MOVE 2 0 P) 
       (MOVEI 1 (QUOTE NIL)) 
       (PUSHJ P EDITTO) 
       (JRST 0 TAG32) 
 TAG212 
       (MOVEI 2 (QUOTE (A B : AFTER BEFORE)) S) 
       (MOVE 1 (SPECIAL SELECTQ) S) 
       (CALL 2 (E MEMQ) S) 
       (JUMPE 1 TAG213) 
       (HRRZ@ 3 -3 P) 
       (MOVEI 2 (QUOTE NIL)) 
       (HLRZ@ 1 -3 P) 
       (CALL 3 (E EDIT:) S) 
       (JRST 0 TAG32) 
 TAG213 
       (MOVE 1 (SPECIAL SELECTQ) S) 
       (CAIE 1 (QUOTE MV) S) 
       (JRST 0 TAG214) 
       (HRRZ@ 3 -3 P) 
       (HRRZ@ 3 3) 
       (HRRZ@ 2 -3 P) 
       (HLRZ@ 2 2) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 3 (E EDITMV) S) 
       (JRST 0 TAG32) 
 TAG214 
       (MOVEI 2 (QUOTE (LP LPQ)) S) 
       (CALL 2 (E MEMQ) S) 
       (JUMPE 1 TAG215) 
       (HLRZ@ 1 -3 P) 
       (CAIE 1 (QUOTE LPQ) S) 
       (TDZA 2 2) 
       (MOVEI 2 (QUOTE T) S) 
       (HRRZ@ 1 -3 P) 
       (PUSHJ P EDRPT) 
       (JRST 0 TAG32) 
 TAG215 
       (MOVE 1 (SPECIAL SELECTQ) S) 
       (CAIE 1 (QUOTE LC) S) 
       (JRST 0 TAG216) 
       (HRRZ@ 1 -3 P) 
       (PUSHJ P EDLOC) 
       (JRST 0 TAG32) 
 TAG216 
       (CAIE 1 (QUOTE LCL) S) 
       (JRST 0 TAG217) 
       (HRRZ@ 1 -3 P) 
       (PUSHJ P EDLOCL) 
       (JRST 0 TAG32) 
 TAG217 
       (CAIE 1 (QUOTE _) S) 
       (JRST 0 TAG220) 
       (MOVE 1 (SPECIAL L) S) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL L) S) 
       (PUSH P 1) 
       (MOVE 1 -1 P) 
       (CALL 1 (E EDITFPAT) S) 
       (MOVEM 1 -1 P) 
 TAG4  (MOVE 1 -1 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG231) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 1 (E CONSP) S) 
 TAG231 
       (JUMPE 1 TAG227) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (CAME 1 -1 P) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG226) 
 TAG227 
       (HLRZ@ 1 -1 P) 
       (CAIE 1 (QUOTE IF) S) 
       (JRST 0 TAG232) 
       (HRRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E EDVAL) S) 
       (MOVEM 1 -3 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG234) 
       (MOVEI 1 (QUOTE NIL)) 
       (JRST 0 TAG233) 
 TAG234 
       (MOVE 1 -3 P) 
 TAG233 
       (JRST 0 TAG226) 
 TAG232 
       (PUSH P -1 P) 
       (HLRZ@ 1 -2 P) 
       (CAIE 1 (QUOTE /@) S) 
       (JRST 0 TAG242) 
       (HLRZ@ 2 (SPECIAL L) S) 
       (HLRZ@ 2 2) 
       (JRST 0 TAG241) 
 TAG242 
       (HLRZ@ 2 (SPECIAL L) S) 
 TAG241 
       (POP P 1) 
       (CALL 2 (E EDIT4E) S) 
 TAG226 
       (JUMPE 1 TAG225) 
       (MOVE 1 0 P) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
       (MOVE 1 (SPECIAL L) S) 
       (JRST 0 TAG221) 
 TAG225 
       (HRRZ@ 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (JUMPN 1 TAG4) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
       (MOVEI 1 (QUOTE NIL)) 
 TAG221 
       (PUSHJ P SPECSTR) 
       (MOVEM 1 (SPECIAL L) S) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG32) 
 TAG220 
       (CAIE 1 (QUOTE BELOW) S) 
       (JRST 0 TAG245) 
       (PUSH P 0 P) 
       (HRRZ@ 1 -4 P) 
       (HRRZ@ 1 1) 
       (JUMPE 1 TAG247) 
       (MOVE 2 -2 P) 
       (JRST 0 TAG246) 
 TAG247 
       (MOVEI 2 (QUOTE 1)) 
 TAG246 
       (MOVE 1 0 P) 
       (PUSHJ P EDITBELOW) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG32) 
 TAG245 
       (CAIE 1 (QUOTE SW) S) 
       (JRST 0 TAG252) 
       (HRRZ@ 2 -3 P) 
       (HRRZ@ 2 2) 
       (HLRZ@ 2 2) 
       (HRRZ@ 1 -3 P) 
       (HLRZ@ 1 1) 
       (PUSHJ P EDITSW) 
       (JRST 0 TAG32) 
 TAG252 
       (CAIE 1 (QUOTE BIND) S) 
       (JRST 0 TAG253) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL #1) S) 
       (0 0 (SPECIAL #2) S) 
       (0 0 (SPECIAL #3) S) 
       (HRRZ@ 1 -3 P) 
       (PUSHJ P EDITCOMS) 
       (PUSHJ P SPECSTR) 
       (JRST 0 TAG32) 
 TAG253 
       (CAIE 1 (QUOTE COMS) S) 
       (JRST 0 TAG257) 
 TAG5  (HRRZ@ 1 -3 P) 
       (MOVEM 1 -3 P) 
       (JUMPE 1 TAG264) 
       (HLRZ@ 1 1) 
       (CALL 1 (E *EVAL) S) 
       (MOVEM 1 (SPECIAL COM) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (PUSHJ P EDITCOM) 
       (JRST 0 TAG5) 
 TAG264 
       (JRST 0 TAG32) 
 TAG257 
       (CAIE 1 (QUOTE COMSQ) S) 
       (JRST 0 TAG265) 
       (HRRZ@ 1 -3 P) 
       (PUSHJ P EDITCOMS) 
       (JRST 0 TAG32) 
 TAG265 
       (MOVEI 3 (QUOTE T) S) 
       (MOVE 2 (SPECIAL EDITMACROS) S) 
       (HLRZ@ 1 -3 P) 
       (PUSHJ P EDITMAC) 
       (MOVEM 1 -2 P) 
       (JUMPN 1 TAG273) 
       (MOVEI 3 (QUOTE T) S) 
       (MOVE 2 (SPECIAL USERMACROS) S) 
       (HLRZ@ 1 -3 P) 
       (PUSHJ P EDITMAC) 
       (MOVEM 1 -2 P) 
       (JUMPE 1 TAG275) 
       (TDZA 1 1) 
 TAG275 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG272) 
 TAG273 
       (MOVEI 1 (QUOTE NIL)) 
 TAG272 
       (JUMPE 1 TAG271) 
       (MOVE 1 -3 P) 
       (PUSHJ P EDITDEFAULT) 
       (JRST 0 TAG6) 
 TAG271 
       (HLRZ@ 1 -2 P) 
       (MOVEM 1 -1 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG276) 
       (HRRZ@ 3 -2 P) 
       (HRRZ@ 2 -3 P) 
       (MOVE 1 -1 P) 
       (CALL 3 (E SUBPAIR) S) 
       (PUSHJ P EDITCOMS) 
       (JRST 0 TAG270) 
 TAG276 
       (HRRZ@ 3 -2 P) 
       (MOVE 2 -1 P) 
       (HRRZ@ 1 -3 P) 
       (CALL 3 (E SUBST) S) 
       (PUSHJ P EDITCOMS) 
 TAG270 
 TAG32 
 TAG7  (MOVEI 1 (QUOTE NIL)) 
 TAG6  (SUB P (C 4 0 4 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP EDITMAC SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVE 1 -3 P) 
       (JUMPE 1 TAG3) 
       (HLRZ@ 1 1) 
       (HLRZ@ 2 1) 
       (MOVEM 1 0 P) 
       (CAME 2 -4 P) 
       (JRST 0 TAG7) 
       (HRRZ@ 1 1) 
       (MOVEM 1 -1 P) 
       (MOVE 1 -2 P) 
       (JUMPE 1 TAG13) 
       (HLRZ@ 1 -1 P) 
       (JRST 0 TAG12) 
 TAG13 (HLRZ@ 1 -1 P) 
       (JUMPE 1 TAG16) 
       (TDZA 1 1) 
 TAG16 (MOVEI 1 (QUOTE T) S) 
 TAG12 (JUMPE 1 TAG11) 
       (MOVE 1 -1 P) 
       (JRST 0 TAG2) 
 TAG11 
 TAG7  (HRRZ@ 1 -3 P) 
       (MOVEM 1 -3 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
 TAG2  (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(LAP EDITCOMS SUBR) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL COMS) S) 
 TAG1  (MOVE 1 (SPECIAL COMS) S) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG6) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (JRST 0 TAG2) 
 TAG6  (MOVEI 2 (QUOTE NIL)) 
       (HLRZ@ 1 (SPECIAL COMS) S) 
       (PUSHJ P EDITCOM) 
       (HRRZ@ 1 (SPECIAL COMS) S) 
       (MOVEM 1 (SPECIAL COMS) S) 
       (JRST 0 TAG1) 
 TAG2  (JRST 0 SPECSTR) 
       NIL 

(LAP EDITH SUBR) 
       (PUSH P 1) 
       (CALL 0 (E TERPRI) S) 
 TAG1  (MOVE 1 0 P) 
       (JUMPE 1 TAG5) 
       (HLRZ@ 1 1) 
       (JUMPN 1 TAG11) 
       (MOVEI 1 (QUOTE BLOCK) S) 
       (CALL 1 (E PRIN1) S) 
       (JRST 0 TAG2) 
 TAG11 (HLRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (JUMPE 1 TAG3) 
       (HLRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG14) 
       (MOVEI 1 (QUOTE --) S) 
       (CALL 1 (E NCONS) S) 
       (HLRZ@ 2 0 P) 
       (HLRZ@ 2 2) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E PRIN1) S) 
       (JRST 0 TAG2) 
 TAG14 (HLRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E PRIN1) S) 
 TAG2  (MOVEI 1 (QUOTE / ) S) 
       (CALL 1 (E PRINC) S) 
 TAG3  (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG5  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP EDIT!UNDO SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (PUSH P (SPECIAL UNDOLST) S) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVE 1 -1 P) 
       (JUMPE 1 TAG11) 
       (TDZA 1 1) 
 TAG11 (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG10) 
       (HLRZ@ 1 -1 P) 
       (JUMPE 1 TAG12) 
       (TDZA 1 1) 
 TAG12 (MOVEI 1 (QUOTE T) S) 
 TAG10 (JUMPN 1 TAG3) 
       (MOVE 1 -2 P) 
       (JUMPN 1 TAG14) 
       (HLRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (MOVEM 1 (SPECIAL SELECTQ) S) 
       (MOVEI 2 (QUOTE (NIL !UNDO UNBLOCK)) S) 
       (CALL 2 (E MEMQ) S) 
       (JUMPN 1 TAG2) 
       (MOVE 1 (SPECIAL SELECTQ) S) 
       (CAIE 1 (QUOTE UNDO) S) 
       (JRST 0 TAG17) 
       (MOVE 1 -3 P) 
       (JUMPE 1 TAG2) 
       (JRST 0 TAG16) 
 TAG17 
 TAG16 (JRST 0 TAG13) 
 TAG14 (HLRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (CAME 1 -2 P) 
       (JRST 0 TAG2) 
 TAG13 (MOVE 2 -4 P) 
       (HLRZ@ 1 -1 P) 
       (PUSHJ P UNDOEDITCOM) 
       (MOVE 1 -3 P) 
       (JUMPE 1 TAG5) 
       (MOVEI 1 (QUOTE T) S) 
       (MOVEM 1 0 P) 
 TAG2  (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVE 1 0 P) 
       (JUMPN 1 TAG5) 
       (MOVE 1 -1 P) 
       (JUMPE 1 TAG32) 
       (HRRZ@ 1 1) 
 TAG32 (JUMPE 1 TAG30) 
       (MOVEI 1 (QUOTE BLOCKED) S) 
       (CALL 1 (E PRINT) S) 
       (JRST 0 TAG27) 
 TAG30 (CALL 0 (E TERPRI) S) 
       (MOVEI 1 (QUOTE NOTHING/ SAVED) S) 
       (CALL 1 (E PRINC) S) 
 TAG27 
 TAG5  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(LAP UNDOEDITCOM SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG6) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG5) 
 TAG6  (MOVE 1 (SPECIAL L) S) 
       (CALL 1 (E LAST) S) 
       (PUSH P 1) 
       (HRRZ@ 1 -3 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E LAST) S) 
       (HLRZ@ 2 1) 
       (HLRZ@ 1 0 P) 
       (SUB P (C 1 0 1 0)) 
       (CAMN 1 2) 
       (JRST 0 TAG7) 
       (CALL 0 (E TERPRI) S) 
       (MOVEI 1 (QUOTE DIFFERENT/ EXPRESSION) S) 
       (CALL 1 (E PRINC) S) 
       (CLEARM 0 (SPECIAL COM) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG7 
 TAG5  (HLRZ@ 1 -2 P) 
       (HRRZ@ 2 -2 P) 
       (HLRZ@ 2 2) 
       (MOVEM 2 (SPECIAL L) S) 
       (MOVEM 1 0 P) 
       (HRRZ@ 1 -2 P) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JUMPE 1 TAG15) 
       (HLRZ@ 1 1) 
       (MOVEM 1 0 P) 
       (HLRZ@ 1 1) 
       (CAIE 1 (QUOTE R) S) 
       (JRST 0 TAG17) 
       (HRRZ@ 1 0 P) 
       (CALL 1 (E CADDR) S) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL L) S) 
       (HRRZ@ 1 0 P) 
       (CALL 1 (E CADR) S) 
       (CALL 1 (E NCONS) S) 
       (HRRZ@ 2 0 P) 
       (HLRZ@ 2 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE R) S) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (PUSHJ P EDITCOM) 
       (PUSHJ P SPECSTR) 
       (JRST 0 TAG16) 
 TAG17 (HRRZ@ 3 0 P) 
       (HRRZ@ 3 3) 
       (HRRZ@ 2 0 P) 
       (HLRZ@ 2 2) 
       (HLRZ@ 1 0 P) 
       (PUSHJ P EDITSMASH) 
 TAG16 (JRST 0 TAG1) 
 TAG15 (SUB P (C 2 0 2 0)) 
       (HRRZ@ 2 -2 P) 
       (HLRZ@ 1 -2 P) 
       (CALL 2 (E CONS) S) 
       (MOVE 3 1) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 1 -2 P) 
       (PUSHJ P EDITSMASH) 
       (MOVE 1 -1 P) 
       (JUMPE 1 TAG23) 
       (MOVE 1 0 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPN 1 TAG27) 
       (MOVE 1 0 P) 
       (JRST 0 TAG26) 
 TAG27 (MOVEI 2 (QUOTE (--)) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E CONS) S) 
 TAG26 (CALL 1 (E PRINT) S) 
       (JUMPE 1 TAG25) 
       (MOVEI 1 (QUOTE UNDONE) S) 
       (CALL 1 (E PRINC) S) 
 TAG25 
 TAG23 (MOVEI 1 (QUOTE T) S) 
       (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP EDITSMASH SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (MOVE 1 -2 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG5) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG5  (HRRZ@ 2 -2 P) 
       (HLRZ@ 1 -2 P) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 -2 P) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 (SPECIAL UNDOLST1) S) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL UNDOLST1) S) 
       (MOVE 1 -1 P) 
       (HRLM@ 1 -2 P) 
       (MOVE 1 0 P) 
       (HRRM@ 1 -2 P) 
       (MOVE 1 -2 P) 
       (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP EDITNCONC SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (JUMPN 1 TAG5) 
       (MOVE 1 2) 
       (JRST 0 TAG4) 
 TAG5  (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG7) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG4) 
 TAG7  (MOVE 1 -2 P) 
       (CALL 1 (E LAST) S) 
       (MOVE 3 -1 P) 
       (HLRZ@ 2 1) 
       (MOVEM 1 0 P) 
       (PUSHJ P EDITSMASH) 
       (MOVE 1 -2 P) 
 TAG4  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP EDITDSUBST SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
 TAG1  (MOVE 1 0 P) 
       (CALL 1 (E PATOM) S) 
       (JUMPN 1 TAG3) 
       (MOVE 1 -1 P) 
       (CALL 1 (E LITATOM) S) 
       (JUMPE 1 TAG10) 
       (HLRZ@ 1 0 P) 
       (CAME 1 -1 P) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG7) 
 TAG10 (HLRZ@ 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E EQUAL) S) 
 TAG7  (JUMPE 1 TAG6) 
       (MOVE 1 -2 P) 
       (CALL 1 (E COPY) S) 
       (HRRZ@ 3 0 P) 
       (MOVE 2 1) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITSMASH) 
       (JRST 0 TAG5) 
 TAG6  (HLRZ@ 3 0 P) 
       (MOVE 2 -1 P) 
       (MOVE 1 -2 P) 
       (CALL 3 (E EDITDSUBST) S) 
 TAG5  (MOVE 1 -1 P) 
       (JUMPE 1 TAG20) 
       (HRRZ@ 1 0 P) 
       (CAME 1 -1 P) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
 TAG20 (JUMPE 1 TAG16) 
       (HLRZ@ 1 0 P) 
       (PUSH P 1) 
       (MOVE 1 -3 P) 
       (CALL 1 (E COPY) S) 
       (MOVE 3 1) 
       (POP P 2) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITSMASH) 
       (JRST 0 TAG3) 
 TAG16 (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP EDIT1F SUBR) 
       (JSP 6 SPECBIND) 
       (0 2 (SPECIAL L) S) 
       (PUSH P 1) 
       (CAIE 1 (QUOTE 0)) 
       (JRST 0 TAG2) 
       (HRRZ@ 1 2) 
       (JUMPN 1 TAG4) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG3) 
 TAG4  (HRRZ@ 1 (SPECIAL L) S) 
 TAG3  (JRST 0 TAG1) 
 TAG2  (HLRZ@ 1 2) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG10) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG1) 
 TAG10 (MOVEI 2 (QUOTE 0)) 
       (MOVE 1 0 P) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG11) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 1 (E LENGTH) S) 
       (MOVE 2 0 P) 
       (CALL 2 (E *LESS) S) 
       (JUMPE 1 TAG13) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG12) 
 TAG13 (MOVE 2 0 P) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 2 (E NTH) S) 
       (MOVEM 1 (SPECIAL LASTAIL) S) 
       (MOVE 2 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (CALL 2 (E CONS) S) 
 TAG12 (JRST 0 TAG1) 
 TAG11 (MOVE 1 0 P) 
       (CALL 1 (E MINUS) S) 
       (PUSH P 1) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 1 (E LENGTH) S) 
       (POP P 2) 
       (CALL 2 (E *LESS) S) 
       (JUMPE 1 TAG16) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG1) 
 TAG16 (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 1 (E LENGTH) S) 
       (PUSH P 1) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (PUSH P 1) 
       (MOVE 1 -2 P) 
       (CALL 1 (E ADD1) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E *PLUS) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E NTH) S) 
       (MOVEM 1 (SPECIAL LASTAIL) S) 
       (MOVE 2 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (CALL 2 (E CONS) S) 
       (SUB P (C 1 0 1 0)) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP EDIT2F SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (PUSH P 1) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG7) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG6) 
 TAG7  (MOVE 1 (SPECIAL COPYFLG) S) 
       (JUMPE 1 TAG10) 
       (MOVE 1 2) 
       (CALL 1 (E COPY) S) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG6) 
 TAG10 (MOVEI 2 (QUOTE NIL)) 
       (MOVE 1 -1 P) 
       (CALL 2 (E *APPEND) S) 
       (MOVEM 1 -1 P) 
 TAG6  (MOVEI 2 (QUOTE 0)) 
       (MOVE 1 -2 P) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG14) 
       (MOVE 1 0 P) 
       (CALL 1 (E LENGTH) S) 
       (MOVE 2 -2 P) 
       (CALL 2 (E *LESS) S) 
       (JUMPE 1 TAG16) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG15) 
 TAG16 (MOVE 1 -1 P) 
       (JUMPE 1 TAG1) 
       (JRST 0 TAG2) 
 TAG15 (JRST 0 TAG13) 
 TAG14 (MOVE 1 -2 P) 
       (CAIE 1 (QUOTE 0)) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG22) 
       (MOVE 1 -1 P) 
       (JUMPE 1 TAG23) 
       (TDZA 1 1) 
 TAG23 (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG22) 
       (MOVE 1 -2 P) 
       (CALL 1 (E MINUS) S) 
       (PUSH P 1) 
       (MOVE 1 -1 P) 
       (CALL 1 (E LENGTH) S) 
       (POP P 2) 
       (CALL 2 (E *LESS) S) 
 TAG22 (JUMPE 1 TAG21) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG13) 
 TAG21 (MOVE 1 -2 P) 
       (CAIN 1 (QUOTE -1)) 
       (JRST 0 TAG27) 
       (CALL 1 (E MINUS) S) 
       (MOVE 2 1) 
       (MOVE 1 0 P) 
       (CALL 2 (E NTH) S) 
       (MOVEM 1 0 P) 
 TAG27 (HRRZ@ 2 0 P) 
       (HLRZ@ 1 0 P) 
       (CALL 2 (E CONS) S) 
       (MOVE 3 1) 
       (HLRZ@ 2 -1 P) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITSMASH) 
       (HRRZ@ 1 -1 P) 
       (JUMPE 1 TAG32) 
       (HLRZ@ 1 0 P) 
       (PUSH P 1) 
       (PUSH P (C 0 0 TAG33 0)) 
       (HRRZ@ 1 -3 P) 
       (PUSH P 1) 
       (HRRZ@ 1 -3 P) 
       (PUSH P 1) 
       (MOVNI 6 2) 
       (JCALL 16 (E NCONC) S) 
 TAG33 (MOVE 3 1) 
       (POP P 2) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITSMASH) 
 TAG32 (JRST 0 TAG4) 
 TAG13 
 TAG1  (MOVE 1 -2 P) 
       (CAIE 1 (QUOTE 1)) 
       (JRST 0 TAG35) 
       (HRRZ@ 1 0 P) 
       (CALL 1 (E CONSP) S) 
       (JUMPN 1 TAG36) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG36 (HRRZ@ 3 0 P) 
       (HRRZ@ 3 3) 
       (HRRZ@ 2 0 P) 
       (HLRZ@ 2 2) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITSMASH) 
       (JRST 0 TAG34) 
 TAG35 (MOVE 1 -2 P) 
       (CALL 1 (E SUB1) S) 
       (MOVE 2 1) 
       (MOVE 1 0 P) 
       (CALL 2 (E NTH) S) 
       (HRRZ@ 3 1) 
       (HRRZ@ 3 3) 
       (HLRZ@ 2 1) 
       (MOVEM 1 0 P) 
       (PUSHJ P EDITSMASH) 
 TAG34 (JRST 0 TAG4) 
 TAG2  (MOVE 1 -2 P) 
       (CAIN 1 (QUOTE 1)) 
       (JRST 0 TAG42) 
       (MOVE 2 1) 
       (MOVE 1 0 P) 
       (CALL 2 (E NTH) S) 
       (MOVEM 1 0 P) 
 TAG42 (HRRZ@ 3 0 P) 
       (HLRZ@ 2 -1 P) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITSMASH) 
       (HRRZ@ 1 -1 P) 
       (JUMPE 1 TAG45) 
       (HLRZ@ 1 0 P) 
       (PUSH P 1) 
       (PUSH P (C 0 0 TAG46 0)) 
       (HRRZ@ 1 -3 P) 
       (PUSH P 1) 
       (HRRZ@ 1 -3 P) 
       (PUSH P 1) 
       (MOVNI 6 2) 
       (JCALL 16 (E NCONC) S) 
 TAG46 (MOVE 3 1) 
       (POP P 2) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITSMASH) 
 TAG45 
 TAG4  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP EDIT4E SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CAME 1 2) 
       (JRST 0 TAG5) 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG4) 
 TAG5  (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG6) 
       (MOVE 1 -1 P) 
       (CAIE 1 (QUOTE &) S) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG7) 
       (MOVE 1 -1 P) 
       (CALL 2 (E EQUAL) S) 
 TAG7  (JRST 0 TAG4) 
 TAG6  (HLRZ@ 1 -1 P) 
       (CAIE 1 (QUOTE *ANY*) S) 
       (JRST 0 TAG10) 
 TAG1  (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JUMPE 1 TAG12) 
       (MOVE 2 0 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E EDIT4E) S) 
       (JUMPE 1 TAG16) 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG11) 
 TAG16 (JRST 0 TAG1) 
 TAG12 (MOVEI 1 (QUOTE NIL)) 
 TAG11 (JRST 0 TAG4) 
 TAG10 (HLRZ@ 1 -1 P) 
       (CAIE 1 (QUOTE /@) S) 
       (JRST 0 TAG21) 
       (MOVE 1 2) 
       (CALL 1 (E ATOM) S) 
       (JRST 0 TAG20) 
 TAG21 (MOVEI 1 (QUOTE NIL)) 
 TAG20 (JUMPE 1 TAG17) 
       (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (MOVE 1 0 P) 
       (CALL 1 (E EXPLODEC) S) 
       (PUSH P 1) 
 TAG2  (HLRZ@ 1 -2 P) 
       (CAIE 1 (QUOTE /@) S) 
       (JRST 0 TAG26) 
       (MOVE 1 0 P) 
       (CALL 1 (E FREELIST) S) 
       (MOVEI 1 (QUOTE =) S) 
       (CALL 1 (E PRINT) S) 
       (MOVE 1 -1 P) 
       (CALL 1 (E PRIN1) S) 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG22) 
 TAG26 (MOVE 1 0 P) 
       (JUMPE 1 TAG23) 
       (HLRZ@ 1 1) 
       (HLRZ@ 2 -2 P) 
       (CAMN 2 1) 
       (JRST 0 TAG30) 
       (MOVE 1 0 P) 
       (CALL 1 (E FREELIST) S) 
       (JRST 0 TAG23) 
 TAG30 (HRRZ@ 1 -2 P) 
       (HRRZ@ 2 0 P) 
       (MOVEM 1 -2 P) 
       (MOVEM 2 0 P) 
       (JRST 0 TAG2) 
 TAG23 (MOVEI 1 (QUOTE NIL)) 
 TAG22 (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG4) 
 TAG17 (HLRZ@ 1 -1 P) 
       (CAIE 1 (QUOTE --) S) 
       (JRST 0 TAG32) 
       (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JUMPE 1 TAG34) 
       (TDZA 1 1) 
 TAG34 (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG33) 
 TAG3  (MOVE 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E EDIT4E) S) 
       (JUMPE 1 TAG41) 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG35) 
 TAG41 (MOVE 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG36) 
       (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG3) 
 TAG36 (MOVEI 1 (QUOTE NIL)) 
 TAG35 
 TAG33 (JRST 0 TAG4) 
 TAG32 (HLRZ@ 1 -1 P) 
       (CAIE 1 (QUOTE ==) S) 
       (JRST 0 TAG42) 
       (HRRZ@ 1 -1 P) 
       (CAME 1 0 P) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG4) 
 TAG42 (MOVE 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG43) 
       (MOVEI 1 (QUOTE NIL)) 
       (JRST 0 TAG4) 
 TAG43 (HLRZ@ 2 0 P) 
       (HLRZ@ 1 -1 P) 
       (CALL 2 (E EDIT4E) S) 
       (JUMPE 1 TAG44) 
       (HRRZ@ 2 0 P) 
       (HRRZ@ 1 -1 P) 
       (CALL 2 (E EDIT4E) S) 
 TAG44 
 TAG4  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP EDITQF SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG7) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (HRRZ@ 1 1) 
       (MOVEM 1 0 P) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG11) 
       (MOVE 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E MEMQ) S) 
       (MOVEM 1 0 P) 
 TAG11 
 TAG7  (JUMPE 1 TAG5) 
       (MOVE 1 (SPECIAL UPFINDFLG) S) 
       (JUMPE 1 TAG13) 
       (MOVE 1 0 P) 
       (JRST 0 TAG12) 
 TAG13 (MOVE 1 0 P) 
       (MOVEM 1 (SPECIAL LASTAIL) S) 
       (HLRZ@ 1 0 P) 
 TAG12 (MOVE 2 (SPECIAL L) S) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (JRST 0 TAG4) 
 TAG5  (MOVEI 2 (QUOTE N) S) 
       (MOVE 1 -1 P) 
       (CALL 2 (E EDIT4F) S) 
 TAG4  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP EDIT4F SUBR) 
       (JSP 6 SPECBIND) 
       (0 2 (SPECIAL SN) S) 
       (0 0 (SPECIAL FF) S) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 (SPECIAL FF) S) 
       (MOVE 1 0 P) 
       (MOVEM 1 (SPECIAL COM) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E EDITFPAT) S) 
       (PUSH P (SPECIAL L) S) 
       (MOVEM 1 -1 P) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVE 1 (SPECIAL SN) S) 
       (CAIE 1 (QUOTE N) S) 
       (JRST 0 TAG7) 
       (MOVEI 1 (QUOTE 1)) 
       (MOVEM 1 (SPECIAL SN) S) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG2) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG13) 
       (MOVE 1 (SPECIAL UPFINDFLG) S) 
 TAG13 (JUMPE 1 TAG11) 
       (MOVE 2 (SPECIAL L) S) 
       (HLRZ@ 1 2) 
       (HLRZ@ 1 1) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG2) 
 TAG11 (MOVE 2 (SPECIAL L) S) 
       (HLRZ@ 1 2) 
       (HLRZ@ 1 1) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 -1 P) 
 TAG7  (MOVE 1 (SPECIAL SN) S) 
       (JUMPE 1 TAG21) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG22) 
       (TDZA 1 1) 
 TAG22 (MOVEI 1 (QUOTE T) S) 
 TAG21 (JUMPE 1 TAG17) 
       (MOVEI 1 (QUOTE 1)) 
       (MOVEM 1 (SPECIAL SN) S) 
 TAG17 (MOVE 1 -2 P) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG32) 
       (HLRZ@ 1 -2 P) 
       (CAIE 1 (QUOTE :::) S) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
 TAG32 (JUMPE 1 TAG30) 
       (HRRZ@ 1 -2 P) 
       (JRST 0 TAG27) 
 TAG30 (MOVE 1 -2 P) 
 TAG27 (HLRZ@ 2 -1 P) 
       (CALL 2 (E EDIT4E) S) 
       (JUMPE 1 TAG26) 
       (MOVE 1 (SPECIAL SN) S) 
       (JUMPE 1 TAG36) 
       (TDZA 1 1) 
 TAG36 (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG35) 
       (MOVE 1 (SPECIAL SN) S) 
       (CALL 1 (E SUB1) S) 
       (MOVEM 1 (SPECIAL SN) S) 
       (CAIE 1 (QUOTE 0)) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
 TAG35 
 TAG26 (JUMPE 1 TAG24) 
       (MOVE 1 -1 P) 
       (MOVEM 1 (SPECIAL L) S) 
       (JRST 0 TAG3) 
 TAG24 (HLRZ@ 1 -1 P) 
       (MOVEM 1 0 P) 
 TAG1  (MOVE 3 (SPECIAL MAXLEVEL) S) 
       (MOVE 2 0 P) 
       (MOVE 1 -2 P) 
       (CALL 3 (E EDIT4F1) S) 
       (JUMPE 1 TAG40) 
       (HRRZ@ 1 (SPECIAL L) S) 
       (JUMPE 1 TAG42) 
       (MOVE 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
 TAG42 (PUSH P (C 0 0 TAG43 0)) 
       (HLRZ@ 1 (SPECIAL FF) S) 
       (PUSH P 1) 
       (HLRZ@ 1 -3 P) 
       (HRRZ@ 2 (SPECIAL FF) S) 
       (HLRZ@ 2 2) 
       (CAME 2 1) 
       (JRST 0 TAG45) 
       (HRRZ@ 1 -3 P) 
       (JRST 0 TAG44) 
 TAG45 (MOVE 1 -3 P) 
 TAG44 (PUSH P 1) 
       (MOVNI 6 2) 
       (JCALL 16 (E NCONC) S) 
 TAG43 (MOVEM 1 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (JRST 0 TAG3) 
 TAG40 (MOVE 1 (SPECIAL SN) S) 
       (JUMPN 1 TAG50) 
       (CALL 1 (E ERR) S) 
 TAG50 
 TAG2  (HLRZ@ 1 -1 P) 
       (MOVEM 1 0 P) 
       (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JUMPN 1 TAG53) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG52) 
 TAG53 (HLRZ@ 2 1) 
       (MOVE 1 0 P) 
       (CALL 2 (E MEMQ) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG56) 
       (HRRZ@ 1 1) 
       (MOVEM 1 0 P) 
       (CALL 1 (E CONSP) S) 
 TAG56 (JUMPN 1 TAG1) 
 TAG52 (JRST 0 TAG2) 
 TAG3  (SUB P (C 3 0 3 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP EDITFPAT SUBR) 
       (PUSH P 1) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG2) 
       (HLRZ@ 1 0 P) 
       (CAIE 1 (QUOTE ==) S) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG5) 
       (HLRZ@ 1 0 P) 
       (CAIE 1 (QUOTE /@) S) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
 TAG5  (JUMPE 1 TAG4) 
       (MOVE 1 0 P) 
       (JRST 0 TAG3) 
 TAG4  (PUSH P (C 0 0 TAG10 0)) 
       (MOVEI D (QUOTE EDITFPAT) S) 
       (PUSH P D) 
       (PUSH P -2 P) 
       (MOVNI 6 2) 
       (JCALL 16 (E MAPCAR) S) 
 TAG10 
 TAG3  (JRST 0 TAG1) 
 TAG2  (MOVEI 2 (QUOTE -1)) 
       (MOVE 1 0 P) 
       (CALL 2 (E NTHCHAR) S) 
       (CAIE 1 (QUOTE /@) S) 
       (JRST 0 TAG11) 
       (MOVE 1 0 P) 
       (CALL 1 (E EXPLODEC) S) 
       (MOVEI 2 (QUOTE /@) S) 
       (CALL 2 (E XCONS) S) 
       (JRST 0 TAG1) 
 TAG11 (MOVE 1 0 P) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP EDIT4F1 SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
 TAG1  (MOVEI 2 (QUOTE 0)) 
       (MOVE 1 0 P) 
       (CALL 2 (E *GREAT) S) 
       (JUMPN 1 TAG6) 
       (CALL 0 (E TERPRI) S) 
       (MOVEI 1 (QUOTE MAXLEVEL/ EXCEEDED) S) 
       (CALL 1 (E PRINC) S) 
       (JRST 0 TAG3) 
 TAG6  (MOVE 1 -1 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG3) 
       (MOVE 1 -2 P) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG11) 
       (HLRZ@ 1 -2 P) 
       (CAIE 1 (QUOTE :::) S) 
       (JRST 0 TAG13) 
       (MOVE 2 -1 P) 
       (HRRZ@ 1 -2 P) 
       (CALL 2 (E EDIT4E) S) 
       (JUMPE 1 TAG15) 
       (MOVE 1 (SPECIAL SN) S) 
       (JUMPE 1 TAG17) 
       (TDZA 1 1) 
 TAG17 (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG16) 
       (MOVE 1 (SPECIAL SN) S) 
       (CALL 1 (E SUB1) S) 
       (MOVEM 1 (SPECIAL SN) S) 
       (CAIE 1 (QUOTE 0)) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
 TAG16 
 TAG15 (JRST 0 TAG12) 
 TAG13 (MOVEI 1 (QUOTE NIL)) 
 TAG12 
 TAG11 (JUMPN 1 TAG5) 
       (MOVE 1 -2 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG23) 
       (HLRZ@ 1 -2 P) 
       (PUSH P 1) 
       (CAIE 1 (QUOTE :::) S) 
       (JRST 0 TAG24) 
       (TDZA 1 1) 
 TAG24 (MOVEI 1 (QUOTE T) S) 
       (SUB P (C 1 0 1 0)) 
 TAG23 (JUMPE 1 TAG22) 
       (HLRZ@ 2 -1 P) 
       (MOVE 1 -2 P) 
       (CALL 2 (E EDIT4E) S) 
       (JUMPE 1 TAG26) 
       (MOVE 1 (SPECIAL SN) S) 
       (JUMPE 1 TAG30) 
       (TDZA 1 1) 
 TAG30 (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG27) 
       (MOVE 1 (SPECIAL SN) S) 
       (CALL 1 (E SUB1) S) 
       (MOVEM 1 (SPECIAL SN) S) 
       (CAIE 1 (QUOTE 0)) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
 TAG27 
 TAG26 
 TAG22 (JUMPE 1 TAG20) 
       (MOVE 1 (SPECIAL UPFINDFLG) S) 
       (JUMPE 1 TAG34) 
       (TDZA 1 1) 
 TAG34 (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG33) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E CONSP) S) 
 TAG33 (JUMPE 1 TAG32) 
       (MOVE 1 -1 P) 
       (MOVEM 1 (SPECIAL LASTAIL) S) 
       (HLRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
 TAG32 (JRST 0 TAG5) 
 TAG20 (MOVE 1 -2 P) 
       (JUMPE 1 TAG37) 
       (HRRZ@ 1 -1 P) 
       (CAME 1 -2 P) 
       (JRST 0 TAG41) 
       (MOVE 1 (SPECIAL SN) S) 
       (JUMPE 1 TAG43) 
       (TDZA 1 1) 
 TAG43 (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG42) 
       (MOVE 1 (SPECIAL SN) S) 
       (CALL 1 (E SUB1) S) 
       (MOVEM 1 (SPECIAL SN) S) 
       (CAIE 1 (QUOTE 0)) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
 TAG42 (JRST 0 TAG40) 
 TAG41 (MOVEI 1 (QUOTE NIL)) 
 TAG40 
 TAG37 (JUMPE 1 TAG35) 
       (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG5) 
 TAG35 (MOVE 1 (SPECIAL SN) S) 
       (JUMPE 1 TAG46) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG50) 
       (HLRZ@ 1 -1 P) 
       (PUSH P 1) 
       (MOVE 1 -1 P) 
       (CALL 1 (E SUB1) S) 
       (MOVE 3 1) 
       (POP P 2) 
       (MOVE 1 -2 P) 
       (CALL 3 (E EDIT4F1) S) 
       (JUMPE 1 TAG52) 
       (MOVE 1 (SPECIAL SN) S) 
       (CAIE 1 (QUOTE 0)) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
 TAG52 
 TAG50 
 TAG46 (JUMPE 1 TAG44) 
       (HLRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG5) 
 TAG44 (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (MOVE 1 0 P) 
       (CALL 1 (E SUB1) S) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG5  (MOVE 1 (SPECIAL FF) S) 
       (JUMPE 1 TAG60) 
       (CALL 1 (E CADR) S) 
       (PUSH P 1) 
       (CAME 1 -2 P) 
       (JRST 0 TAG61) 
       (TDZA 1 1) 
 TAG61 (MOVEI 1 (QUOTE T) S) 
       (SUB P (C 1 0 1 0)) 
 TAG60 (JUMPE 1 TAG56) 
       (MOVE 2 -1 P) 
       (MOVE 1 (SPECIAL FF) S) 
       (CALL 2 (E TCONC) S) 
 TAG56 (MOVE 1 (SPECIAL FF) S) 
       (JUMPN 1 TAG62) 
       (MOVEI 1 (QUOTE T) S) 
 TAG62 (JRST 0 TAG2) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
 TAG2  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP EDITFINDP SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL SN) S) 
       (0 0 (SPECIAL LASTAIL) S) 
       (0 0 (SPECIAL FF) S) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (MOVEI 1 (QUOTE 1)) 
       (MOVEM 1 (SPECIAL SN) S) 
       (JUMPN 3 TAG5) 
       (MOVE 1 2) 
       (CALL 1 (E EDITFPAT) S) 
       (MOVEM 1 -1 P) 
 TAG5  (MOVE 2 -2 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E EDIT4E) S) 
       (JUMPN 1 TAG7) 
       (MOVE 3 (SPECIAL MAXLEVEL) S) 
       (MOVE 2 -2 P) 
       (MOVE 1 -1 P) 
       (CALL 3 (E EDIT4F1) S) 
 TAG7  (SUB P (C 3 0 3 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP EDITBF SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL FF) S) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P (SPECIAL L) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 (SPECIAL FF) S) 
       (MOVE 1 -2 P) 
       (MOVEM 1 (SPECIAL COM) S) 
       (MOVE 1 -2 P) 
       (CALL 1 (E EDITFPAT) S) 
       (MOVEM 1 -2 P) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVE 1 -3 P) 
       (JUMPN 1 TAG10) 
       (HRRZ@ 1 -2 P) 
       (JRST 0 TAG7) 
 TAG10 (MOVEI 1 (QUOTE NIL)) 
 TAG7  (JUMPN 1 TAG2) 
 TAG1  (MOVE 4 -1 P) 
       (MOVE 3 (SPECIAL MAXLEVEL) S) 
       (HLRZ@ 2 -2 P) 
       (MOVE 1 -4 P) 
       (PUSHJ P EDITBF1) 
       (JUMPE 1 TAG13) 
       (MOVE 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
       (PUSH P (C 0 0 TAG14 0)) 
       (HLRZ@ 1 (SPECIAL FF) S) 
       (PUSH P 1) 
       (HRRZ@ 1 (SPECIAL FF) S) 
       (HLRZ@ 1 1) 
       (HLRZ@ 2 -4 P) 
       (CAME 2 1) 
       (JRST 0 TAG16) 
       (HRRZ@ 1 -4 P) 
       (JRST 0 TAG15) 
 TAG16 (MOVE 1 -4 P) 
 TAG15 (PUSH P 1) 
       (MOVNI 6 2) 
       (JCALL 16 (E NCONC) S) 
 TAG14 (MOVEM 1 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (JRST 0 TAG3) 
 TAG13 
 TAG2  (HLRZ@ 1 -2 P) 
       (MOVEM 1 0 P) 
       (HRRZ@ 1 -2 P) 
       (MOVEM 1 -2 P) 
       (JUMPN 1 TAG22) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG21) 
 TAG22 (HLRZ@ 2 1) 
       (MOVE 1 0 P) 
       (CALL 2 (E MEMQ) S) 
       (MOVEM 1 -1 P) 
       (JUMPN 1 TAG24) 
       (HLRZ@ 2 -2 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E TAILP) S) 
       (MOVEM 1 -1 P) 
 TAG24 (JUMPN 1 TAG1) 
 TAG21 (JRST 0 TAG2) 
 TAG3  (SUB P (C 5 0 5 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP EDITBF1 SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (PUSH P 4) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVEI 2 (QUOTE 0)) 
       (MOVE 1 -2 P) 
       (CALL 2 (E *GREAT) S) 
       (JUMPN 1 TAG7) 
       (CALL 0 (E TERPRI) S) 
       (MOVEI 1 (QUOTE MAXLEVEL/ EXCEEDED) S) 
       (CALL 1 (E PRINC) S) 
       (JRST 0 TAG4) 
 TAG7  (MOVE 1 -1 P) 
       (CAME 1 -3 P) 
       (JRST 0 TAG11) 
       (MOVE 1 -4 P) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG17) 
       (HLRZ@ 1 -4 P) 
       (CAIE 1 (QUOTE :::) S) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
 TAG17 (JUMPE 1 TAG15) 
       (HRRZ@ 1 -4 P) 
       (JRST 0 TAG14) 
 TAG15 (MOVE 1 -4 P) 
 TAG14 (MOVE 2 -3 P) 
       (CALL 2 (E EDIT4E) S) 
       (JUMPE 1 TAG13) 
       (MOVE 2 -3 P) 
       (MOVE 1 (SPECIAL FF) S) 
       (CALL 2 (E TCONC) S) 
 TAG13 (JRST 0 TAG3) 
 TAG11 (MOVE 1 -3 P) 
       (MOVEM 1 0 P) 
 TAG2  (HRRZ@ 1 0 P) 
       (CAME 1 -1 P) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG25) 
       (HRRZ@ 1 0 P) 
       (CALL 1 (E ATOM) S) 
 TAG25 (JUMPN 1 TAG23) 
       (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG2) 
 TAG23 (MOVE 1 0 P) 
       (MOVEM 1 -1 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG31) 
       (HLRZ@ 1 -1 P) 
       (PUSH P 1) 
       (MOVE 1 -3 P) 
       (CALL 1 (E SUB1) S) 
       (MOVEI 4 (QUOTE NIL)) 
       (MOVE 3 1) 
       (POP P 2) 
       (MOVE 1 -4 P) 
       (PUSHJ P EDITBF1) 
 TAG31 (JUMPE 1 TAG27) 
       (HLRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG26) 
 TAG27 (HLRZ@ 1 -4 P) 
       (CAIE 1 (QUOTE :::) S) 
       (JRST 0 TAG33) 
       (MOVE 2 -1 P) 
       (HRRZ@ 1 -4 P) 
       (CALL 2 (E EDIT4E) S) 
       (JRST 0 TAG32) 
 TAG33 (MOVEI 1 (QUOTE NIL)) 
 TAG32 (JUMPN 1 TAG26) 
       (MOVE 1 -4 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG37) 
       (HLRZ@ 1 -4 P) 
       (PUSH P 1) 
       (CAIE 1 (QUOTE :::) S) 
       (JRST 0 TAG40) 
       (TDZA 1 1) 
 TAG40 (MOVEI 1 (QUOTE T) S) 
       (SUB P (C 1 0 1 0)) 
 TAG37 (JUMPE 1 TAG36) 
       (HLRZ@ 2 -1 P) 
       (MOVE 1 -4 P) 
       (CALL 2 (E EDIT4E) S) 
 TAG36 (JUMPE 1 TAG34) 
       (MOVE 1 (SPECIAL UPFINDFLG) S) 
       (JUMPE 1 TAG44) 
       (TDZA 1 1) 
 TAG44 (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG43) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E CONSP) S) 
 TAG43 (JUMPE 1 TAG42) 
       (MOVE 1 -1 P) 
       (MOVEM 1 (SPECIAL LASTAIL) S) 
       (HLRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
 TAG42 (JRST 0 TAG26) 
 TAG34 (MOVE 1 -4 P) 
       (JUMPE 1 TAG47) 
       (HRRZ@ 1 -1 P) 
       (CAME 1 -4 P) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
 TAG47 (JUMPE 1 TAG45) 
       (HRRZ@ 1 -3 P) 
       (MOVEM 1 -3 P) 
       (JRST 0 TAG26) 
 TAG45 (MOVE 1 -2 P) 
       (CALL 1 (E SUB1) S) 
       (MOVEM 1 -2 P) 
       (JRST 0 TAG1) 
 TAG26 (HRRZ@ 1 (SPECIAL FF) S) 
       (HLRZ@ 1 1) 
       (CAMN 1 -1 P) 
       (JRST 0 TAG53) 
       (MOVE 2 -1 P) 
       (MOVE 1 (SPECIAL FF) S) 
       (CALL 2 (E TCONC) S) 
 TAG53 (MOVE 1 (SPECIAL FF) S) 
       (JRST 0 TAG3) 
 TAG4  (MOVEI 1 (QUOTE NIL)) 
 TAG3  (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(LAP EDITNTH SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG2) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 1 2) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPN 1 TAG3) 
       (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E MEMQ) S) 
       (JUMPN 1 TAG5) 
       (MOVE 1 -1 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITELT) 
       (MOVE 2 -1 P) 
       (MOVEM 1 0 P) 
       (CALL 2 (E MEMQ) S) 
       (JUMPN 1 TAG5) 
       (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E TAILP) S) 
 TAG5  (JRST 0 TAG1) 
 TAG3  (MOVE 1 0 P) 
       (CAIE 1 (QUOTE 0)) 
       (JRST 0 TAG6) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG1) 
 TAG6  (CALL 1 (E MINUSP) S) 
       (JUMPE 1 TAG14) 
       (TDZA 1 1) 
 TAG14 (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG13) 
       (MOVE 1 -1 P) 
       (CALL 1 (E LENGTH) S) 
       (MOVE 2 0 P) 
       (CALL 2 (E *PLUS) S) 
       (MOVEI 2 (QUOTE 1)) 
       (CALL 2 (E *PLUS) S) 
       (MOVEI 2 (QUOTE 0)) 
       (MOVEM 1 0 P) 
       (CALL 2 (E *GREAT) S) 
 TAG13 (JUMPE 1 TAG12) 
       (MOVE 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E NTH) S) 
 TAG12 (MOVEM 1 0 P) 
       (JUMPN 1 TAG7) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG1) 
 TAG7  (MOVE 1 0 P) 
 TAG1  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP BPNT0 SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVE 1 (SPECIAL LASTP1) S) 
       (CAMN 1 (SPECIAL L) S) 
       (JRST 0 TAG5) 
       (MOVEM 1 (SPECIAL LASTP2) S) 
       (MOVE 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL LASTP1) S) 
 TAG5  (MOVE 1 0 P) 
       (JUMPE 1 TAG10) 
       (HRRZ@ 2 (SPECIAL L) S) 
       (HLRZ@ 2 2) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 2 (E TAILP) S) 
       (MOVEM 1 (SPECIAL $%DOTFLG) S) 
       (MOVEI 1 (QUOTE " ") S) 
       (MOVEM 1 (SPECIAL %PREVFN%) S) 
       (MOVE 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E PRINTLEV) S) 
       (JRST 0 TAG7) 
 TAG10 (CALL 0 (E TERPRI) S) 
       (MOVEI 2 (QUOTE 1)) 
       (MOVE 1 -1 P) 
       (CALL 2 (E SPRINT) S) 
       (CALL 0 (E TERPRI) S) 
 TAG7  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP BPNT SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (HLRZ@ 1 1) 
       (CAIE 1 (QUOTE 0)) 
       (JRST 0 TAG5) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (HRRZ@ 2 (SPECIAL L) S) 
       (HLRZ@ 2 2) 
       (MOVEM 1 0 P) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 2 (E TAILP) S) 
       (MOVEM 1 (SPECIAL $%DOTFLG) S) 
       (JRST 0 TAG4) 
 TAG5  (HLRZ@ 2 -2 P) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (PUSHJ P EDITNTH) 
       (HLRZ@ 1 1) 
       (MOVEM 1 0 P) 
 TAG4  (HRRZ@ 1 -2 P) 
       (JUMPN 1 TAG11) 
       (MOVEI 1 (QUOTE 2)) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG10) 
 TAG11 (HRRZ@ 1 -2 P) 
       (HLRZ@ 1 1) 
       (MOVEM 1 -1 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPN 1 TAG13) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG10) 
 TAG13 (MOVE 1 -1 P) 
       (CALL 1 (E MINUSP) S) 
       (JUMPE 1 TAG15) 
       (CALL 0 (E ERR) S) 
 TAG15 
 TAG10 (MOVEI 1 (QUOTE " ") S) 
       (MOVEM 1 (SPECIAL %PREVFN%) S) 
       (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (SUB P (C 3 0 3 0)) 
       (JCALL 2 (E PRINTLEV) S) 
       NIL 

(LAP RI SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (EXCH 2 1) 
       (MOVE 1 3) 
       (PUSHJ P EDITNTH) 
       (MOVE 2 -1 P) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (PUSHJ P EDITNTH) 
       (PUSH P 1) 
       (MOVE 1 -1 P) 
       (JUMPE 1 TAG7) 
       (TDZA 1 1) 
 TAG7  (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG6) 
       (MOVE 1 0 P) 
       (JUMPE 1 TAG10) 
       (TDZA 1 1) 
 TAG10 (MOVEI 1 (QUOTE T) S) 
 TAG6  (JUMPE 1 TAG5) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG5  (HLRZ@ 1 -1 P) 
       (HRRZ@ 2 -1 P) 
       (PUSH P 1) 
       (HRRZ@ 1 -1 P) 
       (PUSHJ P EDITNCONC) 
       (MOVE 3 1) 
       (POP P 2) 
       (MOVE 1 -1 P) 
       (PUSHJ P EDITSMASH) 
       (MOVEI 3 (QUOTE NIL)) 
       (HLRZ@ 2 0 P) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITSMASH) 
       (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(LAP RO SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITNTH) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG7) 
       (TDZA 1 1) 
 TAG7  (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG6) 
       (HLRZ@ 1 0 P) 
       (CALL 1 (E ATOM) S) 
 TAG6  (JUMPE 1 TAG5) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG5  (HLRZ@ 1 0 P) 
       (CALL 1 (E LAST) S) 
       (HRRZ@ 3 0 P) 
       (HLRZ@ 2 1) 
       (MOVEM 1 -1 P) 
       (PUSHJ P EDITSMASH) 
       (MOVEI 3 (QUOTE NIL)) 
       (HLRZ@ 2 0 P) 
       (MOVE 1 0 P) 
       (SUB P (C 2 0 2 0)) 
       (JRST 0 EDITSMASH) 
       NIL 

(LAP LI SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITNTH) 
       (MOVEM 1 0 P) 
       (JUMPN 1 TAG5) 
       (CALL 1 (E ERR) S) 
 TAG5  (HRRZ@ 2 0 P) 
       (HLRZ@ 1 0 P) 
       (CALL 2 (E CONS) S) 
       (MOVEI 3 (QUOTE NIL)) 
       (MOVE 2 1) 
       (MOVE 1 0 P) 
       (SUB P (C 2 0 2 0)) 
       (JRST 0 EDITSMASH) 
       NIL 

(LAP LO SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITNTH) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG7) 
       (TDZA 1 1) 
 TAG7  (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG6) 
       (HLRZ@ 1 0 P) 
       (CALL 1 (E ATOM) S) 
 TAG6  (JUMPE 1 TAG5) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG5  (HLRZ@ 3 0 P) 
       (HRRZ@ 3 3) 
       (HLRZ@ 2 0 P) 
       (HLRZ@ 2 2) 
       (MOVE 1 0 P) 
       (SUB P (C 2 0 2 0)) 
       (JRST 0 EDITSMASH) 
       NIL 

(LAP BI SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (MOVE 1 3) 
       (PUSHJ P EDITNTH) 
       (PUSH P 1) 
       (HRRZ@ 1 1) 
       (MOVE 2 -3 P) 
       (PUSH P 1) 
       (MOVE 1 -2 P) 
       (PUSHJ P EDITNTH) 
       (MOVEM 1 -2 P) 
       (MOVE 1 -1 P) 
       (JUMPE 1 TAG7) 
       (CALL 1 (E LENGTH) S) 
       (PUSH P 1) 
       (MOVE 1 -3 P) 
       (CALL 1 (E LENGTH) S) 
       (POP P 2) 
       (CALL 2 (E *LESS) S) 
       (JUMPE 1 TAG10) 
       (TDZA 1 1) 
 TAG10 (MOVEI 1 (QUOTE T) S) 
 TAG7  (JUMPE 1 TAG5) 
       (MOVEI 3 (QUOTE NIL)) 
       (HLRZ@ 2 -1 P) 
       (MOVE 1 -1 P) 
       (PUSHJ P EDITSMASH) 
       (HRRZ@ 2 -2 P) 
       (HLRZ@ 1 -2 P) 
       (CALL 2 (E CONS) S) 
       (MOVE 3 0 P) 
       (MOVE 2 1) 
       (MOVE 1 -2 P) 
       (PUSHJ P EDITSMASH) 
       (JRST 0 TAG4) 
 TAG5  (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG4  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(LAP BO SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITNTH) 
       (MOVEM 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG5) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG5  (HLRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (HRRZ@ 2 0 P) 
       (PUSH P 1) 
       (HLRZ@ 1 -1 P) 
       (HRRZ@ 1 1) 
       (PUSHJ P EDITNCONC) 
       (MOVE 3 1) 
       (POP P 2) 
       (MOVE 1 0 P) 
       (SUB P (C 2 0 2 0)) 
       (JRST 0 EDITSMASH) 
       NIL 

(LAP EDITDEFAULT SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVE 1 (SPECIAL LCFLG) S) 
       (JUMPE 1 TAG5) 
       (CAIE 1 (QUOTE T) S) 
       (JRST 0 TAG7) 
       (MOVE 1 -1 P) 
       (CALL 1 (E EDITQF) S) 
       (JRST 0 TAG6) 
 TAG7  (MOVE 1 -1 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 (SPECIAL LCFLG) S) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 (SPECIAL TOPFLG) S) 
       (PUSHJ P EDITCOM) 
 TAG6  (JRST 0 TAG1) 
 TAG5  (MOVE 1 -1 P) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG12) 
       (MOVE 2 (SPECIAL EDITOPS) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 2 (E ASSOC) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG14) 
       (HRRZ@ 2 1) 
       (MOVE 1 -1 P) 
       (PUSHJ P EDITRAN) 
       (JRST 0 TAG13) 
 TAG14 (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG13 (JRST 0 TAG1) 
 TAG12 (MOVE 1 (SPECIAL TOPFLG) S) 
       (JUMPN 1 TAG17) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG4) 
 TAG17 (MOVE 2 (SPECIAL EDITCOMSL) S) 
       (MOVE 1 -1 P) 
       (CALL 2 (E MEMQ) S) 
       (JUMPE 1 TAG21) 
       (MOVE 1 (SPECIAL READBUF) S) 
       (JUMPE 1 TAG23) 
       (MOVE 2 -1 P) 
       (CALL 2 (E XCONS) S) 
       (CLEARM 0 (SPECIAL READBUF) S) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG22) 
 TAG23 (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG22 (JRST 0 TAG4) 
 TAG21 (MOVEI 2 (QUOTE -1)) 
       (MOVE 1 -1 P) 
       (CALL 2 (E NTHCHAR) S) 
       (CAIE 1 (QUOTE P) S) 
       (JRST 0 TAG30) 
       (MOVE 1 -1 P) 
       (CALL 1 (E EXPLODE) S) 
       (MOVEM 1 -1 P) 
       (CALL 1 (E LAST) S) 
       (MOVEI 2 (QUOTE /)) S) 
       (HRLM@ 2 1) 
       (MOVE 1 -1 P) 
       (CALL 1 (E READLIST) S) 
       (MOVEM 1 -1 P) 
       (MOVEI 2 (QUOTE (^ _ UP NX BK !NX UNDO)) S) 
       (CALL 2 (E MEMQ) S) 
       (JRST 0 TAG27) 
 TAG30 (MOVEI 1 (QUOTE NIL)) 
 TAG27 (JUMPE 1 TAG26) 
       (MOVE 2 (SPECIAL READBUF) S) 
       (MOVEI 1 (QUOTE P) S) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL READBUF) S) 
       (JRST 0 TAG4) 
 TAG26 (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG4  (MOVE 2 (SPECIAL EDITOPS) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 2 (E ASSOC) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG37) 
       (HRRZ@ 2 1) 
       (MOVE 1 -1 P) 
       (PUSHJ P EDITRAN) 
       (JRST 0 TAG36) 
 TAG37 (MOVE 1 -1 P) 
       (MOVEM 1 (SPECIAL COM) S) 
       (MOVE 2 (SPECIAL TOPFLG) S) 
       (PUSHJ P EDITCOM) 
 TAG36 
 TAG1  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP EDUP SUBR) 
       (HLRZ@ 1 (SPECIAL L) 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  (HRRZ@ 1 (SPECIAL L) S) 
       (MOVEM 1 0 P) 
       (JUMPN 1 TAG6) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG5) 
 TAG6  (HLRZ@ 2 1) 
       (MOVE 1 -3 P) 
       (CALL 2 (E TAILP) S) 
       (JUMPN 1 TAG3) 
       (HLRZ@ 2 0 P) 
       (MOVE 1 -3 P) 
       (CALL 2 (E MEMQ) S) 
       (MOVEM 1 -1 P) 
       (JUMPN 1 TAG10) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG5) 
 TAG10 (CAME 1 (SPECIAL LASTAIL) S) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG12) 
       (HRRZ@ 2 -1 P) 
       (MOVE 1 -3 P) 
       (CALL 2 (E MEMQ) S) 
       (MOVEM 1 -2 P) 
       (JUMPE 1 TAG13) 
       (TDZA 1 1) 
 TAG13 (MOVEI 1 (QUOTE T) S) 
 TAG12 (JUMPN 1 TAG5) 
       (HLRZ@ 1 (SPECIAL LASTAIL) S) 
       (CAME 1 -3 P) 
       (JRST 0 TAG16) 
       (MOVE 2 -2 P) 
       (MOVE 1 (SPECIAL LASTAIL) S) 
       (CALL 2 (E TAILP) S) 
       (JRST 0 TAG15) 
 TAG16 (MOVEI 1 (QUOTE NIL)) 
 TAG15 (JUMPE 1 TAG14) 
       (MOVE 1 (SPECIAL LASTAIL) S) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG5) 
 TAG14 (CALL 0 (E TERPRI) S) 
       (MOVE 1 -3 P) 
       (CALL 1 (E PRINC) S) 
       (MOVEI 1 (QUOTE -/ LOCATION/ UNCERTAIN) S) 
       (CALL 1 (E PRINC) S) 
 TAG5  (HLRZ@ 1 0 P) 
       (CAME 1 -1 P) 
       (JRST 0 TAG22) 
       (MOVE 1 0 P) 
       (MOVEM 1 (SPECIAL L) S) 
       (JRST 0 TAG21) 
 TAG22 (MOVE 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL L) S) 
 TAG21 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(LAP EDIT* SUBR) 
       (MOVE 2 (SPECIAL L) S) 
       (JSP 6 SPECBIND) 
       (0 2 (SPECIAL L) S) 
       (PUSH P 2) 
       (MOVEM 1 0 P) 
       (PUSHJ P EDUP) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 1 (E LENGTH) S) 
       (PUSHJ P SPECSTR) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 3 (SPECIAL L) S) 
       (JSP 6 SPECBIND) 
       (0 2 (SPECIAL COM) S) 
       (0 3 (SPECIAL L) S) 
       (PUSH P 1) 
       (MOVE 2 -1 P) 
       (CALL 2 (E *GREAT) S) 
       (JUMPN 1 TAG2) 
       (CALL 1 (E ERR) S) 
 TAG2  (MOVEI 2 (QUOTE NIL)) 
       (MOVEI 1 (QUOTE !0) S) 
       (PUSHJ P EDITCOM) 
       (POP P 2) 
       (POP P 1) 
       (CALL 2 (E *DIF) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (PUSHJ P EDITCOM) 
       (MOVE 1 (SPECIAL L) S) 
       (PUSHJ P SPECSTR) 
       (MOVEM 1 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (POPJ P) 
       NIL 


(LAP SUBFUN1EDOR SUBR) 
       (MOVE 1 (SPECIAL L) S) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL L) S) 
       (HLRZ@ 1 (SPECIAL COMS) S) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG5) 
       (HLRZ@ 1 (SPECIAL COMS) S) 
       (PUSHJ P EDITCOM) 
       (JRST 0 TAG4) 
 TAG5  (HLRZ@ 1 (SPECIAL COMS) S) 
       (PUSHJ P EDITCOMS) 
 TAG4  (MOVE 1 (SPECIAL L) S) 
       (PUSHJ P SPECSTR) 
       (MOVEM 1 (SPECIAL L) S) 
       (POPJ P) 
       NIL 

(LAP EDOR SUBR) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL COMS) S) 
 TAG1  (MOVE 1 (SPECIAL COMS) S) 
       (JUMPN 1 TAG6) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG5) 
 TAG6  (MOVEI 1 (QUOTE ((SUBFUN1EDOR))) S) 
       (CALL 17 (E ERRSET) S) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG10) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (JRST 0 TAG2) 
 TAG10 
 TAG5  (HRRZ@ 1 (SPECIAL COMS) S) 
       (MOVEM 1 (SPECIAL COMS) S) 
       (JRST 0 TAG1) 
 TAG2  (JRST 0 SPECSTR) 
       NIL 

(LAP SUBFUN1ERRCOM SUBR) 
       (MOVE 1 (SPECIAL COMS) S) 
       (JRST 0 EDITCOMS) 
       NIL 

(LAP ERRCOM SUBR) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL COMS) S) 
       (MOVEI 1 (QUOTE ((SUBFUN1ERRCOM))) S) 
       (CALL 17 (E ERRSET) S) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP EDRPT SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P (SPECIAL L) S) 
       (PUSH P (C 0 0 (QUOTE 0) 0)) 
 TAG1  (MOVE 2 (SPECIAL MAXLOOP) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG6) 
       (CALL 0 (E TERPRI) S) 
       (MOVEI 1 (QUOTE MAXLOOP/ EXCEEDED) S) 
       (CALL 1 (E PRINC) S) 
       (JRST 0 TAG5) 
 TAG6  (MOVE 1 -3 P) 
       (PUSHJ P ERRCOM) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG7) 
       (MOVE 1 (SPECIAL L) S) 
       (MOVEM 1 -1 P) 
       (MOVE 1 0 P) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG7  (MOVE 1 -2 P) 
       (JUMPN 1 TAG10) 
       (MOVE 1 0 P) 
       (CALL 1 (E PRINT) S) 
       (MOVEI 1 (QUOTE OCCURRENCES) S) 
       (CALL 1 (E PRINC) S) 
 TAG10 
 TAG5  (MOVE 1 -1 P) 
       (MOVEM 1 (SPECIAL L) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(LAP EDLOC SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL LCFLG) S) 
       (PUSH P 1) 
       (PUSH P (SPECIAL L) S) 
       (PUSH P (SPECIAL UNFIND) S) 
       (MOVEI 1 (QUOTE T) S) 
       (MOVEM 1 (SPECIAL LCFLG) S) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVE 1 -3 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG6) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 1 -3 P) 
       (PUSHJ P EDITCOM) 
       (JRST 0 TAG5) 
 TAG6  (HRRZ@ 1 -3 P) 
       (JUMPN 1 TAG11) 
       (HLRZ@ 1 -3 P) 
       (CALL 1 (E ATOM) S) 
       (JRST 0 TAG10) 
 TAG11 (MOVEI 1 (QUOTE NIL)) 
 TAG10 (JUMPE 1 TAG7) 
       (MOVEI 2 (QUOTE NIL)) 
       (HLRZ@ 1 -3 P) 
       (PUSHJ P EDITCOM) 
       (JRST 0 TAG5) 
 TAG7  (JRST 0 TAG1) 
 TAG5  (MOVE 1 -2 P) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (JRST 0 TAG2) 
 TAG1  (MOVE 1 (SPECIAL L) S) 
       (MOVEM 1 0 P) 
       (MOVE 1 -3 P) 
       (PUSHJ P ERRCOM) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG15) 
       (MOVE 1 -2 P) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (JRST 0 TAG2) 
 TAG15 (MOVE 2 (SPECIAL L) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 TAG17) 
       (MOVE 1 -2 P) 
       (MOVEM 1 (SPECIAL L) S) 
       (MOVE 1 -1 P) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG17 (JRST 0 TAG1) 
 TAG2  (SUB P (C 4 0 4 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP EDLOCL SUBR) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL COMS) S) 
       (PUSH P (C 0 0 TAG1 0)) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL L) S) 
       (0 2 (SPECIAL UNFIND) S) 
       (MOVE 1 (SPECIAL COMS) S) 
       (PUSHJ P EDLOC) 
       (MOVE 1 (SPECIAL L) S) 
       (PUSHJ P SPECSTR) 
       (PUSH P 1) 
       (HRRZ@ 1 (SPECIAL L) S) 
       (PUSH P 1) 
       (MOVNI 6 2) 
       (JCALL 16 (E NCONC) S) 
 TAG1  (MOVEM 1 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP EDIT: SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL TOFLG) S) 
       (0 0 (SPECIAL L0) S) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (MOVE 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL L0) S) 
       (PUSH P 3) 
       (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 -3 P) 
       (JUMPE 1 TAG11) 
       (HLRZ@ 1 1) 
       (PUSH P 1) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG15) 
       (HLRZ@ 1 0 P) 
       (CAIE 1 (QUOTE ##) S) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
 TAG15 (JUMPE 1 TAG13) 
       (MOVE 1 (SPECIAL L) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL L) S) 
       (0 2 (SPECIAL UNDOLST1) S) 
       (HRRZ@ 1 0 P) 
       (PUSHJ P EDITCOMS) 
       (CALL 1 (E COPY) S) 
       (PUSHJ P SPECSTR) 
       (JRST 0 TAG12) 
 TAG13 (MOVE 1 0 P) 
 TAG12 (CALL 1 (E NCONS) S) 
       (MOVEM 1 -3 P) 
       (MOVE 1 -2 P) 
       (JUMPE 1 TAG21) 
       (MOVE 1 -3 P) 
       (HRRM@ 1 -2 P) 
       (HRRZ@ 2 -2 P) 
       (JRST 0 TAG20) 
 TAG21 (MOVE 2 -3 P) 
       (MOVEM 2 -1 P) 
 TAG20 (HRRZ@ 1 -4 P) 
       (MOVEM 1 -4 P) 
       (MOVEM 2 -2 P) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG1) 
 TAG11 (MOVE 1 0 P) 
       (SUB P (C 3 0 3 0)) 
       (MOVEM 1 -1 P) 
       (MOVE 1 -2 P) 
       (JUMPE 1 TAG25) 
       (HLRZ@ 1 1) 
       (CAIE 1 (QUOTE HERE) S) 
       (JRST 0 TAG27) 
       (HRRZ@ 1 -2 P) 
       (MOVEM 1 -2 P) 
 TAG27 (MOVE 1 -2 P) 
       (PUSHJ P EDLOC) 
 TAG25 (PUSHJ P EDUP) 
       (MOVE 1 (SPECIAL L0) S) 
       (CAME 1 (SPECIAL L) S) 
       (JRST 0 TAG31) 
       (CLEARM 0 -2 P) 
 TAG31 (MOVEI 2 (QUOTE (B BEFORE)) S) 
       (MOVE 1 -3 P) 
       (CALL 2 (E MEMQ) S) 
       (JUMPE 1 TAG33) 
       (MOVE 2 -1 P) 
       (MOVEI 1 (QUOTE -1)) 
       (PUSHJ P EDIT2F) 
       (JRST 0 TAG32) 
 TAG33 (MOVEI 2 (QUOTE (A AFTER)) S) 
       (MOVE 1 -3 P) 
       (CALL 2 (E MEMQ) S) 
       (JUMPE 1 TAG34) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (HRRZ@ 1 1) 
       (JUMPE 1 TAG36) 
       (MOVE 2 -1 P) 
       (MOVEI 1 (QUOTE -2)) 
       (PUSHJ P EDIT2F) 
       (JRST 0 TAG35) 
 TAG36 (MOVE 2 -1 P) 
       (MOVEI 1 (QUOTE N) S) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 (SPECIAL COPYFLG) S) 
       (PUSHJ P EDITCOML) 
 TAG35 (JRST 0 TAG32) 
 TAG34 (MOVEI 2 (QUOTE (: FOR)) S) 
       (MOVE 1 -3 P) 
       (CALL 2 (E MEMQ) S) 
       (JUMPE 1 TAG41) 
       (MOVE 1 -1 P) 
       (JUMPN 1 TAG44) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (HRRZ@ 1 1) 
 TAG44 (JUMPE 1 TAG43) 
       (MOVE 2 -1 P) 
       (MOVEI 1 (QUOTE 1)) 
       (PUSHJ P EDIT2F) 
       (JRST 0 TAG42) 
 TAG43 (HRRZ@ 2 (SPECIAL L) S) 
       (HLRZ@ 2 2) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 2 (E MEMQ) S) 
       (JUMPE 1 TAG45) 
       (PUSHJ P EDUP) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE 1)) 
       (PUSHJ P EDIT2F) 
       (JRST 0 TAG42) 
 TAG45 (MOVEI 1 (QUOTE (0 (NTH -2) (2))) S) 
       (PUSHJ P EDITCOMS) 
 TAG42 (MOVE 1 -2 P) 
       (JUMPN 1 TAG51) 
       (MOVE 1 (SPECIAL L) S) 
       (JRST 0 TAG50) 
 TAG51 (MOVEI 1 (QUOTE NIL)) 
 TAG50 (JRST 0 TAG2) 
 TAG41 (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG32 (MOVEI 1 (QUOTE NIL)) 
 TAG2  (SUB P (C 4 0 4 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP EDITMBD SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL TOFLG) S) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (JUMPE 1 TAG5) 
       (PUSHJ P EDLOC) 
 TAG5  (PUSHJ P EDUP) 
       (MOVE 1 (SPECIAL TOFLG) S) 
       (JUMPE 1 TAG7) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (JRST 0 TAG6) 
 TAG7  (HLRZ@ 1 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (CALL 1 (E NCONS) S) 
 TAG6  (MOVEM 1 0 P) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG14) 
       (HRRZ@ 1 -1 P) 
 TAG14 (JUMPE 1 TAG13) 
       (MOVE 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E *APPEND) S) 
       (JRST 0 TAG12) 
 TAG13 (HLRZ@ 3 -1 P) 
       (MOVEI 2 (QUOTE *) S) 
       (MOVE 1 0 P) 
       (CALL 3 (E LSUBST) S) 
 TAG12 (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE 1)) 
       (PUSHJ P EDIT2F) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (PUSH P 1) 
       (HRRZ@ 2 (SPECIAL L) S) 
       (HLRZ@ 2 2) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 2 (E TAILP) S) 
       (JUMPE 1 TAG20) 
       (HRRZ@ 2 (SPECIAL L) S) 
       (JRST 0 TAG17) 
 TAG20 (MOVE 2 (SPECIAL L) S) 
 TAG17 (POP P 1) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (MOVE 1 -2 P) 
       (JUMPN 1 TAG24) 
       (MOVE 1 (SPECIAL L) S) 
       (JRST 0 TAG23) 
 TAG24 (MOVEI 1 (QUOTE NIL)) 
 TAG23 (SUB P (C 3 0 3 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP EDITXTR SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL TOFLG) S) 
       (PUSH P 1) 
       (PUSH P 2) 
       (JUMPE 1 TAG5) 
       (PUSHJ P EDLOC) 
 TAG5  (HRRZ@ 2 (SPECIAL L) S) 
       (HLRZ@ 2 2) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 2 (E TAILP) S) 
       (JUMPE 1 TAG7) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (JRST 0 TAG6) 
 TAG7  (HLRZ@ 1 (SPECIAL L) S) 
 TAG6  (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL L) S) 
       (0 2 (SPECIAL UNFIND) S) 
       (MOVE 1 0 P) 
       (PUSHJ P EDLOC) 
       (HRRZ@ 2 (SPECIAL L) S) 
       (HLRZ@ 2 2) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 2 (E TAILP) S) 
       (JUMPE 1 TAG16) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (JRST 0 TAG15) 
 TAG16 (HLRZ@ 1 (SPECIAL L) S) 
 TAG15 (MOVEM 1 0 P) 
       (PUSHJ P SPECSTR) 
       (PUSHJ P EDUP) 
       (MOVE 1 (SPECIAL TOFLG) S) 
       (JUMPE 1 TAG22) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 1 0 P) 
       (CALL 2 (E *APPEND) S) 
       (MOVE 2 1) 
       (JRST 0 TAG21) 
 TAG22 (MOVE 1 0 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
 TAG21 (MOVEI 1 (QUOTE 1)) 
       (PUSHJ P EDIT2F) 
       (MOVE 1 (SPECIAL TOFLG) S) 
       (JUMPN 1 TAG26) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG31) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (PUSH P 1) 
       (HRRZ@ 2 (SPECIAL L) S) 
       (HLRZ@ 2 2) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 2 (E TAILP) S) 
       (JUMPE 1 TAG33) 
       (HRRZ@ 2 (SPECIAL L) S) 
       (JRST 0 TAG32) 
 TAG33 (MOVE 2 (SPECIAL L) S) 
 TAG32 (POP P 1) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL L) S) 
 TAG31 
 TAG26 (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP EDITELT SUBR) 
       (JSP 6 SPECBIND) 
       (0 2 (SPECIAL L) S) 
       (PUSH P 1) 
       (PUSHJ P EDLOC) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVE 1 (SPECIAL L) S) 
       (MOVEM 1 0 P) 
       (HRRZ@ 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (HRRZ@ 1 1) 
       (JUMPN 1 TAG1) 
       (HLRZ@ 1 0 P) 
       (SUB P (C 2 0 2 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP SUBFUN1EDITCONT SUBR) 
       (MOVE 1 (SPECIAL SN) S) 
       (JRST 0 EDLOCL) 
       NIL 

(LAP EDITCONT SUBR) 
       (JSP 6 SPECBIND) 
       (0 2 (SPECIAL SN) S) 
       (MOVE 2 (SPECIAL L) S) 
       (JSP 6 SPECBIND) 
       (0 2 (SPECIAL L) S) 
       (PUSH P 1) 
       (CALL 1 (E EDITFPAT) S) 
       (MOVEM 1 0 P) 
 TAG1  (MOVEI 2 (QUOTE N) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E EDIT4F) S) 
       (JUMPN 1 TAG7) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG6) 
 TAG7  (MOVEI 1 (QUOTE ((SUBFUN1EDITCONT))) S) 
       (CALL 17 (E ERRSET) S) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG1) 
 TAG6 
 TAG2  (HRRZ@ 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (JUMPN 1 TAG12) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG11) 
 TAG12 (MOVE 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG16) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (CAME 1 0 P) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG15) 
 TAG16 (HLRZ@ 1 0 P) 
       (CAIE 1 (QUOTE /@) S) 
       (JRST 0 TAG17) 
       (HLRZ@ 2 (SPECIAL L) S) 
       (HLRZ@ 2 2) 
       (MOVE 1 0 P) 
       (CALL 2 (E EDIT4E) S) 
       (JRST 0 TAG15) 
 TAG17 (HLRZ@ 2 (SPECIAL L) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E EDIT4E) S) 
 TAG15 (JUMPE 1 TAG14) 
       (MOVE 1 (SPECIAL L) S) 
       (JRST 0 TAG3) 
 TAG14 
 TAG11 (JRST 0 TAG2) 
 TAG3  (PUSHJ P SPECSTR) 
       (MOVEM 1 (SPECIAL L) S) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP EDITSW SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (EXCH 2 1) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (PUSHJ P EDITNTH) 
       (MOVE 2 0 P) 
       (PUSH P 1) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (PUSHJ P EDITNTH) 
       (HLRZ@ 2 0 P) 
       (HRRZ@ 3 0 P) 
       (PUSH P 2) 
       (HLRZ@ 2 1) 
       (PUSH P 1) 
       (MOVE 1 -2 P) 
       (PUSHJ P EDITSMASH) 
       (HRRZ@ 3 0 P) 
       (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (PUSHJ P EDITSMASH) 
       (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(LAP EDITMV SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL L0) S) 
       (0 0 (SPECIAL TOFLG) S) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (MOVE 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL L0) S) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVE 1 -4 P) 
       (JUMPE 1 TAG5) 
       (PUSHJ P EDLOC) 
 TAG5  (MOVE 1 -3 P) 
       (CAIE 1 (QUOTE HERE) S) 
       (JRST 0 TAG7) 
       (MOVE 1 -4 P) 
       (JUMPN 1 TAG11) 
       (MOVE 1 -2 P) 
       (PUSHJ P EDLOC) 
       (CLEARM 0 -2 P) 
 TAG11 (MOVEI 1 (QUOTE :) S) 
       (MOVEM 1 -3 P) 
       (JRST 0 TAG6) 
 TAG7  (HLRZ@ 1 -2 P) 
       (CAIE 1 (QUOTE HERE) S) 
       (JRST 0 TAG13) 
       (MOVE 1 -4 P) 
       (JUMPN 1 TAG15) 
       (HRRZ@ 1 -2 P) 
       (PUSHJ P EDLOC) 
       (CLEARM 0 -2 P) 
       (JRST 0 TAG14) 
 TAG15 (HRRZ@ 1 -2 P) 
       (MOVEM 1 -2 P) 
 TAG14 
 TAG13 
 TAG6  (PUSHJ P EDUP) 
       (MOVE 1 (SPECIAL L) S) 
       (HLRZ@ 2 (SPECIAL L) S) 
       (HLRZ@ 2 2) 
       (MOVE 3 (SPECIAL L0) S) 
       (MOVEM 3 (SPECIAL L) S) 
       (MOVEM 1 0 P) 
       (MOVEM 2 -1 P) 
       (MOVE 1 -2 P) 
       (JUMPE 1 TAG22) 
       (PUSHJ P EDLOC) 
 TAG22 (MOVE 1 (SPECIAL TOFLG) S) 
       (JUMPE 1 TAG24) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 1 -1 P) 
       (CALL 2 (E *APPEND) S) 
       (MOVE 2 -3 P) 
       (CALL 2 (E XCONS) S) 
       (JRST 0 TAG23) 
 TAG24 (MOVE 1 -1 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 -3 P) 
       (CALL 2 (E XCONS) S) 
 TAG23 (MOVEI 2 (QUOTE NIL)) 
       (PUSHJ P EDITCOML) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL L) S) 
       (MOVE 1 0 P) 
       (MOVEM 1 (SPECIAL L) S) 
       (MOVEI 1 (QUOTE (1 DELETE)) S) 
       (PUSHJ P EDITCOMS) 
       (PUSHJ P SPECSTR) 
       (MOVE 1 -4 P) 
       (JUMPN 1 TAG33) 
       (MOVE 1 0 P) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
       (MOVE 1 (SPECIAL L) S) 
       (JRST 0 TAG32) 
 TAG33 (MOVE 1 -2 P) 
       (JUMPN 1 TAG35) 
       (MOVE 1 0 P) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
       (MOVE 1 (SPECIAL L0) S) 
       (JRST 0 TAG32) 
 TAG35 (MOVE 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
       (MOVE 1 (SPECIAL L0) S) 
 TAG32 (SUB P (C 5 0 5 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP EDITTO SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (MOVE 1 (SPECIAL L) S) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL L) S) 
       (MOVE 1 -2 P) 
       (JUMPE 1 TAG10) 
       (PUSHJ P EDLOC) 
       (PUSHJ P EDUP) 
 TAG10 (MOVE 1 -2 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG14) 
       (MOVE 1 -1 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG16) 
       (MOVE 2 -2 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E *GREAT) S) 
 TAG16 
 TAG14 (JUMPE 1 TAG12) 
       (MOVE 1 -1 P) 
       (CALL 1 (E ADD1) S) 
       (MOVE 2 -2 P) 
       (CALL 2 (E *DIF) S) 
       (MOVE 2 1) 
       (JRST 0 TAG11) 
 TAG12 (MOVE 2 -1 P) 
 TAG11 (HLRZ@ 3 (SPECIAL L) S) 
       (MOVEI 1 (QUOTE 1)) 
       (CALL 3 (E BI) S) 
       (MOVE 1 0 P) 
       (CAIE 1 (QUOTE TO) S) 
       (JRST 0 TAG24) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 1 (E CDAR) S) 
       (JRST 0 TAG23) 
 TAG24 (MOVEI 1 (QUOTE NIL)) 
 TAG23 (JUMPE 1 TAG22) 
       (HLRZ@ 3 (SPECIAL L) S) 
       (MOVEI 2 (QUOTE -2)) 
       (MOVEI 1 (QUOTE 1)) 
       (CALL 3 (E RI) S) 
 TAG22 (MOVEI 2 (QUOTE NIL)) 
       (MOVEI 1 (QUOTE 1)) 
       (PUSHJ P EDITCOM) 
       (MOVE 1 (SPECIAL L) S) 
       (PUSHJ P SPECSTR) 
       (MOVEM 1 (SPECIAL L) S) 
       (MOVEI 1 (QUOTE T) S) 
       (MOVEM 1 (SPECIAL TOFLG) S) 
       (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP EDITBELOW SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVE 1 0 P) 
       (CALL 1 (E *EVAL) S) 
       (MOVEM 1 0 P) 
       (CALL 1 (E MINUSP) S) 
       (JUMPE 1 TAG5) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG5  (MOVE 1 (SPECIAL L) S) 
       (MOVEI 2 (QUOTE _) S) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL L) S) 
       (0 2 (SPECIAL LCFLG) S) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 1 -3 P) 
       (PUSHJ P EDITCOM) 
       (MOVE 1 (SPECIAL L) S) 
       (PUSHJ P SPECSTR) 
       (CALL 1 (E LENGTH) S) 
       (MOVEM 1 0 P) 
       (MOVE 1 (SPECIAL L) S) 
       (CALL 1 (E LENGTH) S) 
       (MOVEM 1 -1 P) 
       (MOVE 2 -2 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E *PLUS) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG15) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
 TAG15 (MOVE 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
       (MOVE 1 -1 P) 
       (PUSH P (SPECIAL L) S) 
       (CALL 1 (E ADD1) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E *DIF) S) 
       (MOVE 2 -3 P) 
       (CALL 2 (E *DIF) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E NTH) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP EDITRAN SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVE 1 (SPECIAL L) S) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL L) S) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (JUMPN 2 TAG11) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG10) 
 TAG11 (HLRZ@ 1 2) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG2) 
 TAG10 
 TAG1  (MOVE 1 0 P) 
       (JUMPN 1 TAG15) 
       (CALL 1 (E ERR) S) 
       (JRST 0 TAG14) 
 TAG15 (MOVE 2 -3 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E MEMQ) S) 
       (MOVEM 1 -1 P) 
       (JUMPN 1 TAG17) 
       (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG17 
 TAG14 
 TAG2  (PUSH P (C 0 0 TAG21 0)) 
       (HRRZ@ 1 -3 P) 
       (HLRZ@ 1 1) 
       (HLRZ@ 2 1) 
       (PUSH P 2) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL #1) S) 
       (0 0 (SPECIAL #2) S) 
       (0 0 (SPECIAL #3) S) 
       (MOVEM 1 -4 P) 
       (MOVE 2 -3 P) 
       (MOVE 1 -5 P) 
       (CALL 2 (E LDIFF) S) 
       (HRRZ@ 1 1) 
       (MOVEM 1 (SPECIAL #1) S) 
       (HLRZ@ 1 -2 P) 
       (MOVEM 1 (SPECIAL #2) S) 
       (HRRZ@ 1 -3 P) 
       (MOVEM 1 (SPECIAL #3) S) 
       (HRRZ@ 1 -4 P) 
       (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)) 
 TAG3  (MOVE 1 -3 P) 
       (JUMPE 1 TAG31) 
       (HLRZ@ 1 1) 
       (PUSH P 1) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG33) 
       (MOVE 1 0 P) 
       (CAIE 1 (QUOTE #1) S) 
       (JRST 0 TAG35) 
       (MOVE 1 (SPECIAL #1) S) 
       (JRST 0 TAG34) 
 TAG35 (CAIE 1 (QUOTE #2) S) 
       (JRST 0 TAG36) 
       (MOVE 1 (SPECIAL #2) S) 
       (JRST 0 TAG34) 
 TAG36 (CAIE 1 (QUOTE #3) S) 
       (JRST 0 TAG37) 
       (MOVE 1 (SPECIAL #3) S) 
       (JRST 0 TAG34) 
 TAG37 (MOVE 1 0 P) 
 TAG34 (JRST 0 TAG32) 
 TAG33 (MOVE 1 0 P) 
       (CALL 1 (E *EVAL) S) 
 TAG32 (CALL 1 (E NCONS) S) 
       (MOVEM 1 -3 P) 
       (MOVE 1 -2 P) 
       (JUMPE 1 TAG45) 
       (MOVE 1 -3 P) 
       (HRRM@ 1 -2 P) 
       (HRRZ@ 2 -2 P) 
       (JRST 0 TAG44) 
 TAG45 (MOVE 2 -3 P) 
       (MOVEM 2 -1 P) 
 TAG44 (HRRZ@ 1 -4 P) 
       (MOVEM 1 -4 P) 
       (MOVEM 2 -2 P) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG3) 
 TAG31 (MOVE 1 0 P) 
       (PUSHJ P SPECSTR) 
       (SUB P (C 4 0 4 0)) 
       (PUSH P 1) 
       (MOVNI 6 2) 
       (JCALL 16 (E APPLY) S) 
 TAG21 (MOVEM 1 0 P) 
       (JUMPN 1 TAG51) 
       (MOVE 1 (SPECIAL L) S) 
       (MOVEM 1 (SPECIAL UNFIND) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (JRST 0 TAG50) 
 TAG51 (MOVE 1 0 P) 
 TAG50 (PUSHJ P SPECSTR) 
       (SUB P (C 2 0 2 0)) 
       (JUMPN 1 TAG4) 
       (MOVE 1 (SPECIAL L) S) 
 TAG4  (MOVEM 1 (SPECIAL L) S) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL