Google
 

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