Trailing-Edge
-
PDP-10 Archives
-
decuslib10-04
-
43,50322/break.lap
There are no other files named break.lap in the archive.
(DEFPROP SAVEDEF T NOCALL)
(DEFPROP ATOMLISTP T NOCALL)
(DEFPROP BREAKIN0 T NOCALL)
(DEFPROP UNBREAKIN T NOCALL)
(DEFPROP BREAK0A T NOCALL)
(DEFPROP CHNGNM T NOCALL)
(DEFPROP CHNM1 T NOCALL)
(DEFPROP RESTORE T NOCALL)
(DEFPROP PACK-IN T NOCALL)
(LAP BREAK0 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))
(CALL 1 (E CONSP) S)
(JUMPE 1 TAG13)
(HRRZ@ 1 -4 P)
(HLRZ@ 1 1)
(CAIN 1 (QUOTE IN) S)
(JRST 0 TAG15)
TAG1 (MOVE 1 -4 P)
(JUMPE 1 TAG23)
(MOVE 3 -2 P)
(MOVE 2 -3 P)
(HLRZ@ 1 1)
(CALL 3 (E BREAK0) S)
(HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG1)
TAG23 (MOVEI 1 (QUOTE NIL))
(JRST 0 TAG14)
TAG15 (HLRZ@ 1 -4 P)
(MOVEM 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG24)
(HRRZ@ 1 -4 P)
(CALL 1 (E CADR) S)
(MOVEM 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG26)
(MOVE 4 3)
(MOVE 3 -3 P)
(MOVE 2 -1 P)
(MOVE 1 0 P)
(PUSHJ P BREAK0A)
(JRST 0 TAG25)
TAG26
TAG2 (MOVE 1 -1 P)
(JUMPE 1 TAG35)
(MOVE 4 -2 P)
(MOVE 3 -3 P)
(HLRZ@ 2 1)
(MOVE 1 0 P)
(PUSHJ P BREAK0A)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG2)
TAG35 (MOVEI 1 (QUOTE NIL))
TAG25 (JRST 0 TAG14)
TAG24 (HRRZ@ 1 -4 P)
(CALL 1 (E CADR) S)
(MOVEM 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG36)
TAG3 (MOVE 1 0 P)
(JUMPE 1 TAG43)
(MOVE 4 -2 P)
(MOVE 3 -3 P)
(MOVE 2 -1 P)
(HLRZ@ 1 1)
(PUSHJ P BREAK0A)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG3)
TAG43 (MOVEI 1 (QUOTE NIL))
(JRST 0 TAG14)
TAG36
TAG4 (MOVE 1 0 P)
(JUMPE 1 TAG52)
(MOVE 1 -1 P)
(MOVEM 1 -4 P)
TAG5 (MOVE 1 -4 P)
(JUMPE 1 TAG57)
(MOVE 4 -2 P)
(MOVE 3 -3 P)
(HLRZ@ 2 1)
(HLRZ@ 1 0 P)
(PUSHJ P BREAK0A)
(HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG5)
TAG57 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG4)
TAG52 (MOVEI 1 (QUOTE NIL))
TAG14 (JRST 0 TAG7)
TAG13 (MOVEI 2 (QUOTE (EXPR FEXPR SUBR FSUBR LSUBR MACRO)) S)
(MOVE 1 -4 P)
(CALL 2 (E GETL) S)
(MOVEM 1 -1 P)
(JUMPN 1 TAG60)
(MOVE 1 -4 P)
(CALL 1 (E PRINT) S)
(MOVEI 1 (QUOTE NOT/ BREAKABLE/ FUNCTION) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG10)
TAG60 (MOVEI 2 (QUOTE TRACE) S)
(MOVE 1 -4 P)
(CALL 2 (E GET) S)
(JUMPE 1 TAG62)
(MOVE 2 (SPECIAL BROKENFNS) S)
(MOVE 1 -4 P)
(CALL 2 (E REMOVE) S)
(MOVEM 1 (SPECIAL BROKENFNS) S)
(MOVE 2 (SPECIAL TRACEDFNS) S)
(MOVE 1 -4 P)
(CALL 2 (E REMOVE) S)
(MOVEM 1 (SPECIAL TRACEDFNS) S)
(HRRZ@ 1 -1 P)
(CALL 1 (E CDDAR) S)
(HLRZ@ 1 1)
(HLRZ@ 2 1)
(MOVEM 1 0 P)
(CAIE 2 (QUOTE BREAK1) S)
(JRST 0 TAG64)
(CALL 1 (E CDDR) S)
(MOVE 2 -3 P)
(HRLM@ 2 1)
(PUSH P 0 P)
(HRRZ@ 1 0 P)
(CALL 1 (E CDDDR) S)
(PUSH P 1)
(MOVE 1 -4 P)
(JUMPE 1 TAG66)
(CALL 1 (E CADR) S)
(CAIE 1 (QUOTE //BREAK1) S)
(JRST 0 TAG70)
(PUSH P -4 P)
(HRRZ@ 1 0 P)
(PUSH P 1)
(HRRZ@ 1 -5 P)
(CALL 1 (E CADAR) S)
(MOVEM 1 -5 P)
(CALL 1 (E CONSP) S)
(JUMPE 1 TAG72)
(MOVE 2 -5 P)
(JRST 0 TAG71)
TAG72 (MOVEI 2 (QUOTE NIL))
TAG71 (MOVEI 1 (QUOTE ?=) S)
(CALL 2 (E CONS) S)
(HRLM@ 1 0 P)
(MOVE 1 -6 P)
(SUB P (C 2 0 2 0))
(JRST 0 TAG67)
TAG70 (MOVE 1 -4 P)
TAG67 (CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
TAG66 (HRLM@ 1 0 P)
(SUB P (C 2 0 2 0))
(JRST 0 TAG6)
TAG64 (MOVE 1 -4 P)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE UNBREAK) S)
(CALL 2 (E APPLY#) S)
(MOVE 3 -2 P)
(MOVE 2 -3 P)
(MOVE 1 -4 P)
(CALL 3 (E BREAK0) S)
(JRST 0 TAG7)
TAG62 (MOVE 2 (SPECIAL UNBREAKABLEFNS) S)
(MOVE 1 -4 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG76)
(MOVE 1 -4 P)
(CALL 1 (E PRINT) S)
(MOVEI 1 (QUOTE UNBREAKABLE/ UNLESS/ 'IN'/ SOMETHING) S)
(CALL 1 (E PRINC) S)
(MOVEI 1 (QUOTE ?) S)
(JRST 0 TAG7)
TAG76 (MOVE 2 -1 P)
(MOVE 1 -4 P)
(PUSHJ P SAVEDEF)
(HLRZ@ 2 1)
(MOVEM 1 0 P)
(MOVE 1 -4 P)
(CALL 2 (E REMPROP) S)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(MOVEI 1 (QUOTE QUOTE) S)
(CALL 2 (E CONS) S)
(PUSH P 1)
(MOVE 1 -5 P)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(PUSH P -4 P)
(PUSH P -2 P)
(PUSH P -7 P)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(CALL 1 (E CADAR) S)
(PUSH P 1)
(HRRZ@ 1 -3 P)
(CALL 1 (E CAAR) S)
(PUSH P 1)
(MOVE 1 -11 P)
(JUMPE 1 TAG100)
(CALL 1 (E CADR) S)
(CAIE 1 (QUOTE //BREAK1) S)
(JRST 0 TAG102)
(PUSH P -11 P)
(HRRZ@ 1 0 P)
(PUSH P 1)
(HRRZ@ 1 -11 P)
(CALL 1 (E CADAR) S)
(MOVEM 1 -12 P)
(CALL 1 (E CONSP) S)
(JUMPE 1 TAG104)
(MOVE 2 -12 P)
(JRST 0 TAG103)
TAG104
(MOVEI 2 (QUOTE NIL))
TAG103
(MOVEI 1 (QUOTE ?=) S)
(CALL 2 (E CONS) S)
(HRLM@ 1 0 P)
(MOVE 1 -13 P)
(SUB P (C 2 0 2 0))
(JRST 0 TAG101)
TAG102
(MOVE 1 -11 P)
TAG101
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
TAG100
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 -2 P)
(CALL 2 (E XCONS) S)
(MOVE 2 -5 P)
(CALL 2 (E XCONS) S)
(MOVE 2 -6 P)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE BREAK1) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(MOVE 2 -1 P)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(HLRZ@ 3 -6 P)
(MOVE 2 1)
(EXCH 1 -2 P)
(CALL 3 (E PUTPROP) S)
(SUB P (C 6 0 6 0))
TAG6 (MOVE 1 (SPECIAL BKFNLIST) S)
(PUSH P 1)
(CALL 1 (E *EVAL) S)
(MOVE 2 -5 P)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SET) S)
(MOVE 1 -4 P)
(JRST 0 TAG7)
TAG10 (MOVEI 1 (QUOTE NIL))
TAG7 (SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP SAVEDEF SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (CALL 0 (E GENSYM) S)
(CALL 1 (E INTERN) S)
(HRRZ@ 2 1)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(MOVEM 1 0 P)
(JUMPN 2 TAG1)
(PUSH P (C 0 0 TAG7 0))
(HRRZ@ 1 -1 P)
(PUSH P 1)
(HLRZ@ 1 -4 P)
(CAIE 1 (QUOTE MACRO) S)
(JRST 0 TAG11)
(MOVEI 1 (QUOTE FEXPR) S)
(JRST 0 TAG10)
TAG11 (HLRZ@ 1 -4 P)
TAG10 (PUSH P 1)
(HRRZ@ 1 -5 P)
(HLRZ@ 1 1)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG7 (HLRZ@ 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E CONS) S)
(MOVEI 3 (QUOTE FUNTYPE) S)
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 3 (E PUTPROP) S)
(MOVEI 3 (QUOTE ERXACTION) S)
(MOVEI 2 (QUOTE (T T NIL NIL)) S)
(MOVE 1 0 P)
(CALL 3 (E PUTPROP) S)
(MOVEI 3 (QUOTE ERXACTION) S)
(MOVEI 2 (QUOTE (NIL NIL T T)) S)
(MOVE 1 -3 P)
(CALL 3 (E PUTPROP) S)
TAG2 (MOVEI 2 (QUOTE (FSUBR SUBR)) S)
(HLRZ@ 1 -2 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG13)
(CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE ARGUMENT/ LIST?) S)
(CALL 1 (E NCONS) S)
(MOVE 2 -3 P)
(CALL 2 (E XCONS) S)
(CALL 1 (E PRINC) S)
(CALL 0 (E READ) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG17)
(CALL 1 (E ATOM) S)
TAG17 (JUMPE 1 TAG15)
(CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE SHOULD/ BE/ LIST) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG2)
TAG15 (MOVE 1 -1 P)
(PUSHJ P ATOMLISTP)
(JUMPN 1 TAG20)
(CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE SHOULD/ BE/ LIST/ OF/ ATOMIC/ ARGUMENTS) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG2)
TAG20 (HLRZ@ 1 -2 P)
(CAIE 1 (QUOTE FSUBR) S)
(JRST 0 TAG24)
(HRRZ@ 1 -1 P)
(JRST 0 TAG23)
TAG24 (MOVEI 1 (QUOTE NIL))
TAG23 (JUMPE 1 TAG22)
(CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE FSUBR/ --/ TAKES/ ONLY/ ONE/ ARGUMENT) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG2)
TAG22 (JRST 0 TAG12)
TAG13 (HLRZ@ 1 -2 P)
(CAIE 1 (QUOTE LSUBR) S)
(JRST 0 TAG25)
(MOVEI 1 (QUOTE N?) S)
(MOVEM 1 -1 P)
(JRST 0 TAG12)
TAG25 (HRRZ@ 1 -2 P)
(CALL 1 (E CADAR) S)
(MOVEM 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG27)
(MOVE 1 -1 P)
(JUMPE 1 TAG31)
(HRRZ@ 1 -2 P)
(CALL 1 (E CADAR) S)
(CALL 1 (E NCONS) S)
(HRRZ@ 2 -2 P)
(HLRZ@ 2 2)
(HRRZ@ 2 2)
(HRLM@ 1 2)
(JUMPE 2 TAG33)
(MOVEI 3 (QUOTE LEXPR) S)
(MOVEI 2 (QUOTE T) S)
(MOVE 1 0 P)
(CALL 3 (E PUTPROP) S)
(JRST 0 TAG32)
TAG33 (MOVEI 1 (QUOTE NIL))
TAG32
TAG31
TAG27
TAG12 (MOVE 2 0 P)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E CONS) S)
(MOVEI 3 (QUOTE TRACE) S)
(MOVE 2 1)
(MOVE 1 -3 P)
(CALL 3 (E PUTPROP) S)
(MOVEI 2 (QUOTE (SUBR EXPR LSUBR)) S)
(HLRZ@ 1 -2 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG35)
(MOVEI 1 (QUOTE EXPR) S)
(JRST 0 TAG34)
TAG35 (HLRZ@ 1 -2 P)
(CAIE 1 (QUOTE MACRO) S)
(JRST 0 TAG36)
(MOVEI 1 (QUOTE MACRO) S)
(JRST 0 TAG34)
TAG36 (MOVEI 1 (QUOTE FEXPR) S)
TAG34 (PUSH P 1)
(MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(PUSH P -2 P)
(PUSH P 1)
(HLRZ@ 1 -5 P)
(CAIE 1 (QUOTE LSUBR) S)
(JRST 0 TAG40)
(MOVEI 1 (QUOTE N?) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE LXPD) S)
(CALL 2 (E XCONS) S)
(JRST 0 TAG37)
TAG40 (MOVE 1 -4 P)
(JUMPE 1 TAG43)
(CALL 1 (E ATOM) S)
TAG43 (JUMPE 1 TAG41)
(MOVE 1 -4 P)
(CALL 1 (E NCONS) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(JRST 0 TAG37)
TAG41 (MOVEI 2 (QUOTE (SUBR EXPR)) S)
(HLRZ@ 1 -5 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG44)
(MOVE 1 -4 P)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(JRST 0 TAG37)
TAG44 (HLRZ@ 1 -4 P)
TAG37 (CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE BRKAPPLY) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE LAMBDA) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(SUB P (C 4 0 4 0))
(JCALL 2 (E XCONS) S)
NIL
(LAP ATOMLISTP SUBR)
(PUSH P 1)
TAG1 (MOVE 1 0 P)
(JUMPN 1 TAG6)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG2)
TAG6 (HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG10)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG10 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BRKAPPLY SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 TAG1 0))
(CALL 2 (E CONS) S)
(PUSH P 1)
(MOVNI 6 1)
(JCALL 16 (E BKEVAL) S)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP BREAK FSUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPN 1 TAG6)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG6 (HLRZ@ 1 1)
(MOVEM 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG10)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE T) S)
(MOVE 1 -1 P)
(CALL 3 (E BREAK0) S)
(JRST 0 TAG5)
TAG10 (HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE IN) S)
(JRST 0 TAG11)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE T) S)
(MOVE 1 -1 P)
(CALL 3 (E BREAK0) S)
(JRST 0 TAG5)
TAG11 (HRRZ@ 1 -1 P)
(JUMPE 1 TAG12)
(HRRZ@ 3 -1 P)
(HRRZ@ 3 3)
(HRRZ@ 2 -1 P)
(HLRZ@ 2 2)
(HLRZ@ 1 -1 P)
(CALL 3 (E BREAK0) S)
(JRST 0 TAG5)
TAG12 (MOVEI 1 (QUOTE ?) S)
TAG5 (MOVE 2 0 P)
(CALL 2 (E CONS) S)
(HRRZ@ 2 -2 P)
(MOVEM 1 0 P)
(MOVEM 2 -2 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP TRACE FSUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL BKFNLIST) S)
(PUSH P 1)
(MOVEI 1 (QUOTE TRACEDFNS) S)
(MOVEM 1 (SPECIAL BKFNLIST) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPN 1 TAG6)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG6 (HLRZ@ 1 1)
(MOVEM 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG10)
(MOVEI 1 (QUOTE (UNTRACE)) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE //BREAK1) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE (TRACE)) S)
(CALL 2 (E XCONS) S)
(MOVE 3 1)
(MOVEI 2 (QUOTE T) S)
(MOVE 1 -1 P)
(CALL 3 (E BREAK0) S)
(JRST 0 TAG5)
TAG10 (HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE IN) S)
(JRST 0 TAG11)
(MOVEI 1 (QUOTE (UNTRACE)) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE //BREAK1) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE (TRACE)) S)
(CALL 2 (E XCONS) S)
(MOVE 3 1)
(MOVEI 2 (QUOTE T) S)
(MOVE 1 -1 P)
(CALL 3 (E BREAK0) S)
(JRST 0 TAG5)
TAG11 (HRRZ@ 2 -1 P)
(MOVEI 1 (QUOTE ?=) S)
(CALL 2 (E CONS) S)
(PUSH P 1)
(MOVEI 1 (QUOTE (UNTRACE)) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE (TRACE)) S)
(CALL 2 (E XCONS) S)
(MOVE 3 1)
(MOVEI 2 (QUOTE T) S)
(HLRZ@ 1 -1 P)
(CALL 3 (E BREAK0) S)
TAG5 (MOVE 2 0 P)
(CALL 2 (E CONS) S)
(HRRZ@ 2 -2 P)
(MOVEM 1 0 P)
(MOVEM 2 -2 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 3 0 3 0))
(JRST 0 SPECSTR)
NIL
(LAP BREAKIN FSUBR)
(PUSH P 1)
(MOVEM 1 0 P)
(HLRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JUMPE 1 TAG2)
(HLRZ@ 2 1)
(JRST 0 TAG1)
TAG2 (MOVEI 2 (QUOTE (BEFORE TTY:)) S)
TAG1 (PUSH P 2)
(MOVE 1 -2 P)
(JUMPE 1 TAG6)
(HRRZ@ 1 1)
(MOVEM 1 -2 P)
TAG6 (JUMPE 1 TAG4)
(HLRZ@ 3 -2 P)
(JRST 0 TAG3)
TAG4 (MOVEI 3 (QUOTE T) S)
TAG3 (PUSH P 3)
(MOVE 1 -3 P)
(JUMPE 1 TAG10)
(HRRZ@ 1 1)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(MOVE 4 1)
(JRST 0 TAG7)
TAG10 (MOVEI 4 (QUOTE NIL))
TAG7 (POP P 3)
(POP P 2)
(POP P 1)
(SUB P (C 1 0 1 0))
(JRST 0 BREAKIN0)
NIL
(LAP SUBFUN1BREAKIN0 SUBR)
(HRRZ@ 2 (SPECIAL WHERE) S)
(MOVEI 1 (QUOTE LC) S)
(CALL 2 (E CONS) S)
(PUSH P (SPECIAL FNDEF) S)
(PUSH P 1)
(HLRZ@ 1 (SPECIAL WHERE) S)
(MOVEM 1 (SPECIAL SELECTQ) S)
(CAIE 1 (QUOTE AFTER) S)
(JRST 0 TAG2)
(MOVEI 1 (QUOTE A) S)
(JRST 0 TAG1)
TAG2 (CAIE 1 (QUOTE BEFORE) S)
(JRST 0 TAG3)
(MOVEI 1 (QUOTE B) S)
(JRST 0 TAG1)
TAG3 (CAIE 1 (QUOTE AROUND) S)
(JRST 0 TAG4)
(MOVEI 1 (QUOTE MBD) S)
(JRST 0 TAG1)
TAG4 (HLRZ@ 1 (SPECIAL WHERE) S)
TAG1 (PUSH P 1)
(MOVE 1 (SPECIAL MESS) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 1)
(POP P 1)
(JCALL 3 (E EDITE) S)
NIL
(LAP BREAKIN0 SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL WHERE) S)
(0 0 (SPECIAL FNDEF) S)
(0 0 (SPECIAL MESS) S)
(PUSH P 1)
(PUSH P 3)
(PUSH P 4)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE TRACE) S)
(CALL 2 (E GET) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG10)
(HRRZ@ 1 1)
(JRST 0 TAG7)
TAG10 (MOVE 1 -3 P)
TAG7 (MOVEI 2 (QUOTE (EXPR FEXPR MACRO)) S)
(CALL 2 (E GETL) S)
(MOVEM 1 (SPECIAL FNDEF) S)
(JUMPE 1 TAG6)
(CALL 1 (E CADR) S)
(MOVEM 1 (SPECIAL FNDEF) S)
(JRST 0 TAG5)
TAG6 (MOVEI 2 (QUOTE (NOT FUNCTION)) S)
(MOVE 1 -3 P)
(CALL 2 (E CONS) S)
(CALL 1 (E PRINT) S)
(JUMPE 1 TAG11)
(CALL 0 (E ERR) S)
TAG11
TAG5 (MOVE 2 (SPECIAL BROKENFNS) S)
(MOVE 1 -3 P)
(CALL 2 (E REMOVE) S)
(MOVE 2 -3 P)
(CALL 2 (E XCONS) S)
(MOVEM 1 (SPECIAL BROKENFNS) S)
(HLRZ@ 1 (SPECIAL WHERE) S)
(CALL 1 (E CONSP) S)
(JUMPE 1 TAG13)
(HRRZ@ 1 (SPECIAL WHERE) S)
(HLRZ@ 2 (SPECIAL WHERE) S)
(MOVEM 2 (SPECIAL WHERE) S)
(MOVEM 1 0 P)
TAG13
TAG1 (MOVEI 2 (QUOTE (AROUND BEFORE AFTER)) S)
(HLRZ@ 1 (SPECIAL WHERE) S)
(CALL 2 (E MEMQ) S)
(JUMPN 1 TAG14)
(MOVEI 2 (QUOTE ?) S)
(HLRZ@ 1 (SPECIAL WHERE) S)
(CALL 2 (E CONS) S)
(JRST 0 TAG2)
TAG14 (HLRZ@ 1 (SPECIAL WHERE) S)
(CAIE 1 (QUOTE AROUND) S)
(JRST 0 TAG16)
(MOVEI 1 (QUOTE (QUOTE *)) S)
(JRST 0 TAG15)
TAG16 (MOVEI 1 (QUOTE NIL))
TAG15 (PUSH P 1)
(MOVE 1 (SPECIAL WHERE) S)
(CALL 1 (E NCONS) S)
(MOVE 2 -4 P)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS) S)
(MOVE 2 -3 P)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 -3 P)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE BREAK1) S)
(CALL 2 (E XCONS) S)
(MOVEM 1 (SPECIAL MESS) S)
(MOVEI 1 (QUOTE ((SUBFUN1BREAKIN0) (QUOTE ERRORX))) S)
(CALL 17 (E ERRSET) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG20)
(MOVEI 1 (QUOTE (NOT FOUND)) S)
(CALL 1 (E PRINT) S)
(JRST 0 TAG17)
TAG20 (MOVEI 3 (QUOTE BROKEN-IN) S)
(MOVEI 2 (QUOTE T) S)
(MOVE 1 -3 P)
(CALL 3 (E PUTPROP) S)
TAG17 (CALL 0 (E TERPRI) S)
(MOVE 1 0 P)
(JUMPE 1 TAG22)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL WHERE) S)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG22 (MOVE 1 -3 P)
TAG2 (SUB P (C 4 0 4 0))
(JRST 0 SPECSTR)
NIL
(LAP UNBREAKIN SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL UPFINDFLG) S)
(PUSH P 1)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL UPFINDFLG) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE TRACE) S)
(MOVE 1 -1 P)
(CALL 2 (E GET) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG5)
(HRRZ@ 1 1)
(MOVEM 1 0 P)
(JRST 0 TAG4)
TAG5 (MOVE 1 -1 P)
(MOVEM 1 0 P)
TAG4 (MOVEI 2 (QUOTE (EXPR FEXPR MACRO)) S)
(MOVE 1 0 P)
(CALL 2 (E GETL) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG7)
(CALL 1 (E CADR) S)
(MOVEM 1 0 P)
(JRST 0 TAG6)
TAG7 (MOVEI 2 (QUOTE ?) S)
(MOVE 1 -1 P)
(CALL 2 (E CONS) S)
(JRST 0 TAG1)
TAG6 (MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE ((LPQ F BREAK1 (COMS (SELECTQ (## 4 2 2 1) (AROUND (QUOTE (XTR 2 2))) ((AFTER BEFORE) (QU
OTE DELETE)) NIL))))) S)
(MOVE 1 0 P)
(CALL 3 (E EDITE) S)
(MOVE 1 -1 P)
TAG1 (SUB P (C 2 0 2 0))
(JRST 0 SPECSTR)
NIL
(LAP BREAK0A SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(MOVEI 3 (QUOTE NIL))
(EXCH 2 1)
(PUSHJ P CHNGNM)
(MOVEM 1 -3 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVE 3 0 P)
(MOVE 2 -1 P)
(MOVE 1 -3 P)
(CALL 3 (E BREAK0) S)
(JRST 0 TAG1)
TAG2 (MOVE 1 -3 P)
(CALL 1 (E NCONS) S)
TAG1 (SUB P (C 4 0 4 0))
(POPJ P)
NIL
(LAP CHNGNM 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))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE TRACE) S)
(CALL 2 (E GET) S)
(MOVEM 1 -4 P)
(JUMPE 1 TAG10)
(HRRZ@ 1 1)
(JRST 0 TAG7)
TAG10 (MOVE 1 -7 P)
TAG7 (MOVEI 2 (QUOTE (EXPR FEXPR)) S)
(CALL 2 (E GETL) S)
(MOVEM 1 0 P)
(JUMPN 1 TAG5)
(MOVE 1 -7 P)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE (CAN'T BREAK INSIDE)) S)
(CALL 2 (E *APPEND) S)
(JRST 0 TAG1)
TAG5 (MOVE 1 -7 P)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE IN) S)
(CALL 2 (E XCONS) S)
(MOVE 2 -6 P)
(CALL 2 (E XCONS) S)
(PUSHJ P PACK-IN)
(MOVEM 1 -1 P)
(MOVE 1 -5 P)
(JUMPE 1 TAG12)
(HLRZ@ 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E REMPROP) S)
(MOVEI 2 (QUOTE NAMESCHANGED) S)
(MOVE 1 -7 P)
(CALL 2 (E GET) S)
(EXCH 2 1)
(MOVE 1 -6 P)
(CALL 2 (E REMOVE) S)
(MOVEM 1 -4 P)
(JUMPE 1 TAG14)
(MOVEI 3 (QUOTE NAMESCHANGED) S)
(MOVE 2 1)
(MOVE 1 -7 P)
(CALL 3 (E PUTPROP) S)
(JRST 0 TAG13)
TAG14 (MOVEI 2 (QUOTE NAMESCHANGED) S)
(MOVE 1 -7 P)
(CALL 2 (E REMPROP) S)
TAG13 (MOVEI 2 (QUOTE ALIAS) S)
(MOVE 1 -1 P)
(CALL 2 (E REMPROP) S)
(MOVE 1 -6 P)
(MOVE 2 -1 P)
(MOVEM 1 -3 P)
(MOVEM 2 -2 P)
(JRST 0 TAG11)
TAG12 (MOVE 1 -1 P)
(MOVEM 1 -3 P)
(MOVEI 2 (QUOTE NAMESCHANGED) S)
(MOVE 1 -7 P)
(CALL 2 (E GET) S)
(EXCH 2 1)
(MOVE 1 -6 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG20)
(MOVE 2 -1 P)
(JRST 0 TAG17)
TAG20 (MOVE 2 -6 P)
TAG17 (MOVEM 2 -2 P)
TAG11 (MOVE 3 -3 P)
(MOVE 2 -2 P)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(PUSHJ P CHNM1)
(JUMPN 1 TAG24)
(MOVE 1 -7 P)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE (NOT FOUND IN)) S)
(CALL 2 (E *APPEND) S)
(MOVE 2 -2 P)
(CALL 2 (E XCONS) S)
(JRST 0 TAG1)
TAG24 (MOVE 1 -5 P)
(JUMPN 1 TAG27)
(MOVEI 2 (QUOTE (EXPR FEXPR SUBR FSUBR LSUBR MACRO)) S)
(MOVE 1 -6 P)
(CALL 2 (E GETL) S)
(HLRZ@ 3 1)
(HRRZ@ 2 1)
(HLRZ@ 2 2)
(MOVEM 1 -4 P)
(MOVE 1 -1 P)
(CALL 3 (E PUTPROP) S)
(MOVEI 2 (QUOTE NAMESCHANGED) S)
(MOVE 1 -7 P)
(CALL 2 (E GET) S)
(MOVE 2 1)
(MOVEM 1 -4 P)
(MOVE 1 -6 P)
(CALL 2 (E MEMQ) S)
(JUMPN 1 TAG32)
(MOVE 2 -4 P)
(MOVE 1 -6 P)
(CALL 2 (E CONS) S)
(MOVEI 3 (QUOTE NAMESCHANGED) S)
(MOVE 2 1)
(MOVE 1 -7 P)
(CALL 3 (E PUTPROP) S)
TAG32 (MOVE 2 -6 P)
(MOVE 1 -7 P)
(CALL 2 (E CONS) S)
(MOVEI 3 (QUOTE ALIAS) S)
(MOVE 2 1)
(MOVE 1 -1 P)
(CALL 3 (E PUTPROP) S)
TAG27 (MOVE 1 -3 P)
TAG1 (SUB P (C 10 0 10 0))
(POPJ P)
NIL
(LAP UNBREAK FSUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(JUMPN 1 TAG5)
(MOVE 1 (SPECIAL BKFNLIST) S)
(CALL 1 (E *EVAL) S)
(MOVEI 2 (QUOTE NIL))
(MOVEM 1 -1 P)
(MOVE 1 (SPECIAL BKFNLIST) S)
(CALL 2 (E SET) S)
(JRST 0 TAG4)
TAG5 (MOVE 1 (SPECIAL BKFNLIST) S)
(CALL 1 (E *EVAL) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 -1 P)
(CAIE 1 (QUOTE T) S)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
TAG11 (JUMPE 1 TAG7)
(HLRZ@ 1 0 P)
(HRLM@ 1 -1 P)
(HRRZ@ 2 0 P)
(MOVE 1 (SPECIAL BKFNLIST) S)
(CALL 2 (E SET) S)
TAG7
TAG4 (PUSH P (C 0 0 TAG12 0))
(MOVEI D (QUOTE UNBREAK0) S)
(PUSH P D)
(PUSH P -3 P)
(MOVNI 6 2)
(JCALL 16 (E MAPCAR) S)
TAG12 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP UNTRACE FSUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL BKFNLIST) S)
(PUSH P 1)
(MOVEI 1 (QUOTE TRACEDFNS) S)
(MOVEM 1 (SPECIAL BKFNLIST) S)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE UNBREAK) S)
(CALL 2 (E APPLY#) S)
(SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP UNBREAK0 SUBR)
(PUSH P 1)
(PUSHJ P PACK-IN)
(MOVE 2 (SPECIAL BROKENFNS) S)
(MOVEM 1 0 P)
(CALL 2 (E DREMOVE) S)
(MOVEM 1 (SPECIAL BROKENFNS) S)
(MOVE 2 (SPECIAL TRACEDFNS) S)
(MOVE 1 0 P)
(CALL 2 (E DREMOVE) S)
(MOVEM 1 (SPECIAL TRACEDFNS) S)
(MOVEI 2 (QUOTE TRACE) S)
(MOVE 1 0 P)
(PUSHJ P RESTORE)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE BROKEN-IN) S)
(MOVE 1 -2 P)
(CALL 2 (E GET) S)
(JUMPE 1 TAG5)
(MOVE 1 -2 P)
(PUSHJ P UNBREAKIN)
(MOVEI 2 (QUOTE BROKEN-IN) S)
(MOVE 1 -2 P)
(CALL 2 (E REMPROP) S)
(MOVE 1 -2 P)
(MOVEM 1 -1 P)
TAG5 (MOVEI 2 (QUOTE ALIAS) S)
(MOVE 1 -2 P)
(CALL 2 (E GET) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG7)
(MOVEI 3 (QUOTE T) S)
(HRRZ@ 2 1)
(HLRZ@ 1 1)
(PUSHJ P CHNGNM)
TAG7 (MOVE 1 -1 P)
(SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP RESTORE SUBR)
(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))
(CALL 2 (E GET) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG5)
(HRRZ@ 1 1)
(MOVEM 1 0 P)
(PUSH P -4 P)
(MOVEI 2 (QUOTE FUNTYPE) S)
(CALL 2 (E GET) S)
(HRRZ@ 1 1)
(MOVEI 2 (QUOTE (EXPR SUBR LSUBR)) S)
(MOVEM 1 -3 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG13)
(MOVEI 2 (QUOTE EXPR) S)
(JRST 0 TAG12)
TAG13 (MOVEI 2 (QUOTE (FEXPR FSUBR)) S)
(MOVE 1 -3 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG14)
(MOVEI 2 (QUOTE FEXPR) S)
(JRST 0 TAG12)
TAG14 (MOVEI 2 (QUOTE MACRO) S)
TAG12 (POP P 1)
(CALL 2 (E GET) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG11)
(CALL 1 (E CAADDR) S)
(CAIE 1 (QUOTE BREAK1) S)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
TAG11 (JUMPE 1 TAG7)
(PUSH P 0 P)
(PUSH P -5 P)
(MOVE 1 -4 P)
(CAIE 1 (QUOTE MACRO) S)
(JRST 0 TAG20)
(MOVEI 2 (QUOTE FEXPR) S)
(JRST 0 TAG17)
TAG20 (MOVE 2 -4 P)
TAG17 (MOVE 1 -1 P)
(CALL 2 (E GET) S)
(MOVE 3 -4 P)
(MOVE 2 1)
(EXCH 1 0 P)
(CALL 3 (E PUTPROP) S)
(MOVEI 2 (QUOTE LEXPR) S)
(MOVE 1 -2 P)
(CALL 2 (E GET) S)
(JUMPE 1 TAG24)
(HRRZ@ 1 0 P)
(HLRZ@ 2 1)
(HLRZ@ 2 2)
(HRLM@ 2 1)
(JRST 0 TAG23)
TAG24 (MOVEI 2 (QUOTE (LSUBR SUBR)) S)
(MOVE 1 -4 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG25)
(MOVEI 2 (QUOTE EXPR) S)
(MOVE 1 -6 P)
(CALL 2 (E REMPROP) S)
(JRST 0 TAG23)
TAG25 (MOVEI 2 (QUOTE (FSUBR MACRO)) S)
(MOVE 1 -4 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG26)
(MOVEI 2 (QUOTE FEXPR) S)
(MOVE 1 -6 P)
(CALL 2 (E REMPROP) S)
TAG26
TAG23 (POP P -3 P)
(SUB P (C 1 0 1 0))
TAG7 (MOVE 1 0 P)
(CALL 1 (E NCONS) S)
(CALL 17 (E REMOB) S)
(MOVEI 2 (QUOTE ERXACTION) S)
(MOVE 1 -4 P)
(CALL 2 (E REMPROP) S)
(MOVE 2 -3 P)
(MOVE 1 -4 P)
(CALL 2 (E REMPROP) S)
(MOVE 1 -4 P)
(JRST 0 TAG4)
TAG5 (MOVEI 2 (QUOTE (NOT BROKEN)) S)
(MOVE 1 -4 P)
(CALL 2 (E CONS) S)
TAG4 (SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP PACK-IN SUBR)
(PUSH P 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG2 (HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE IN) S)
(JRST 0 TAG3)
(PUSH P (C 0 0 TAG4 0))
(HLRZ@ 1 -1 P)
(CALL 1 (E EXPLODE) S)
(PUSH P 1)
(PUSH P (C 0 0 TAG5 0))
(MOVEI 1 (QUOTE -IN-) S)
(CALL 1 (E EXPLODE) S)
(PUSH P 1)
(HRRZ@ 1 -4 P)
(CALL 1 (E CADR) S)
(CALL 1 (E EXPLODE) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG5 (PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG4 (CALL 1 (E READLIST) S)
(JRST 0 TAG1)
TAG3 (MOVEI 2 (QUOTE ?) S)
(MOVE 1 0 P)
(CALL 2 (E CONS) S)
(CALL 1 (E PRINT) S)
(JUMPE 1 TAG6)
(CALL 0 (E ERR) S)
TAG6
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL