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