Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50322/complr.lap
There are no other files named complr.lap in the archive.
(PROG (SEXPR IBASE) (SETQ IBASE (ADD1 7)) LOOP (SETQ SEXPR (ERRSET (READ))) (COND ((EQ SEXPR (QUOTE $EOF$)) (RET
URN NIL))) (COND ((MEMQ (CAAR SEXPR) (QUOTE (BEGINBLOCK ENDBLOCK))) (GO LOOP))) (PRINT (EVAL (CAR SEXPR))) (GO L
OOP)) 

(BEGINBLOCK COMPILER) 

(BEGINBLOCK MACROS) 

(BEGINBLOCK PROPTABLE) 

(LAP DELETEPROP SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 1) 
 TAG1  (HRRZ@ 1 0 P) 
       (JUMPE 1 TAG3) 
       (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CAME 1 -1 P) 
       (JRST 0 TAG10) 
       (HRRZ@ 1 0 P) 
       (CALL 1 (E CDDR) S) 
       (HRRM@ 1 0 P) 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG2) 
 TAG10 (HRRZ@ 1 0 P) 
       (HRRZ@ 1 1) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
 TAG2  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP HASPROP SUBR) 
       (PUSH P 1) 
       (MOVE 1 2) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (JCALL 2 (E GETL) S) 
       NIL 

(LAP INITPROP SUBR) 
       (PUSH P 2) 
       (HRRZ@ 2 1) 
       (PUSH P 1) 
       (MOVE 1 3) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E XCONS) S) 
       (HRRM@ 1 0 P) 
       (POP P 1) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP SEEKPROP SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVE 1 2) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVE 1 -1 P) 
       (CALL 2 (E GETL) S) 
       (PUSH P 1) 
       (JUMPE 1 TAG2) 
       (MOVE 1 0 P) 
       (JRST 0 TAG1) 
 TAG2  (MOVEI 1 (QUOTE NIL)) 
 TAG1  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP SETPROP SUBR) 
       (EXCH 3 2) 
       (JCALL 3 (E PUTPROP) S) 
       NIL 

(ENDBLOCK PROPTABLE) 

(ENDBLOCK MACROS) 

(BEGINBLOCK TOPLEVEL) 

(LAP ACTONEXPR SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG1) 
       (MOVEI 2 (QUOTE COMPEFFECT) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 2 (E GETGET) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG7) 
       (CALL 1 (E CADR) S) 
       (PUSH P 1) 
       (MOVE 1 -2 P) 
       (CALLF@ 1 0 P) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG3) 
 TAG7 
 TAG1  (MOVE 1 -1 P) 
       (CALL 1 (E FLUSHEXPR) S) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP ACTONMACRO SUBR) 
       (MOVEI 2 (QUOTE MACRO) S) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (CALL 2 (E GET) S) 
       (EXCH 1 0 P) 
       (CALLF@ 1 0 P) 
       (SUB P (C 1 0 1 0)) 
       (JCALL 1 (E ACTONEXPR) S) 
       NIL 

(LAP CMP FSUBR) 
       (PUSH P 1) 
       (JUMPE 1 TAG1) 
       (HRRZ@ 1 1) 
       (JUMPN 1 TAG2) 
       (HLRZ@ 1 0 P) 
       (CALL 1 (E COMPILEFUN) S) 
       (JRST 0 TAG1) 
 TAG2  (HRRZ@ 2 0 P) 
       (HLRZ@ 1 0 P) 
       (HRRZ@ 1 1) 
       (CALL 2 (E CONS) S) 
       (MOVEI 2 (QUOTE LAMBDA) S) 
       (CALL 2 (E XCONS) S) 
       (PUSH P 0 P) 
       (PUSH P 1) 
       (HLRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (PUSH P 1) 
       (HRRZ@ 1 -3 P) 
       (HRRZ@ 1 1) 
       (JUMPN 1 TAG7) 
       (MOVEI 3 (QUOTE EXPR) S) 
       (JRST 0 TAG6) 
 TAG7  (HRRZ@ 3 -3 P) 
       (HRRZ@ 3 3) 
       (HLRZ@ 3 3) 
 TAG6  (MOVE 2 -1 P) 
       (POP P 1) 
       (CALL 3 (E PUTPROP) S) 
       (HLRZ@ 1 -2 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E COMPILEFUN) S) 
       (SUB P (C 2 0 2 0)) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP COMPDEF SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (CALL 1 (E LENGTH) S) 
       (MOVEI 2 (QUOTE 4)) 
       (CALL 2 (E EQUAL) S) 
       (JUMPN 1 TAG5) 
       (MOVEI 1 (QUOTE (ARGNOERR-COMPDEF)) S) 
       (CALL 17 (E USERERR) S) 
 TAG5  (MOVEI 2 (QUOTE DEFACTION) S) 
       (HRRZ@ 1 -1 P) 
       (CALL 1 (E CADDR) S) 
       (CALL 2 (E SEEKPROP) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG10) 
       (CALL 1 (E CADR) S) 
       (PUSH P 1) 
       (MOVE 1 -2 P) 
       (CALLF@ 1 0 P) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG2) 
 TAG10 (MOVE 1 -1 P) 
       (CALL 1 (E FLUSHEXPR) S) 
 TAG2  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP COMPFILE SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL ALLFUNS) S) 
       (0 0 (SPECIAL UNDFUNS) S) 
       (0 0 (SPECIAL GENFUNS) S) 
       (0 0 (SPECIAL CODESIZE) S) 
       (0 0 (SPECIAL CONSTSIZE) S) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVE 3 1) 
       (MOVEI 2 (QUOTE NAME) S) 
       (MOVEI 1 (QUOTE CURFILE) S) 
       (CALL 3 (E INITPROP) S) 
       (CALL 0 (E TIME) S) 
       (MOVEI 2 (QUOTE 0)) 
       (MOVEM 2 (SPECIAL CONSTSIZE) S) 
       (MOVEM 2 (SPECIAL CODESIZE) S) 
       (MOVE 3 0 P) 
       (MOVE 2 -1 P) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE COMPREADS) S) 
       (CALL 3 (E DOFILE) S) 
       (MOVE 2 0 P) 
       (HRRZ@ 1 -2 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E TELLTALE) S) 
       (MOVEI 2 (QUOTE NAME) S) 
       (MOVEI 1 (QUOTE CURFILE) S) 
       (CALL 2 (E DELETEPROP) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 3 0 3 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP COMPFUNC SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL LOCVARS) S) 
       (0 0 (SPECIAL SPECVARS) S) 
       (0 0 (SPECIAL P1CNT) S) 
       (0 0 (SPECIAL P2CNT) S) 
       (0 0 (SPECIAL LASTOUT) S) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (MOVEI 1 (QUOTE (VAL VAR TAG)) S) 
       (CALL 17 (E STARTSYM) S) 
       (MOVE 3 -2 P) 
       (MOVEI 2 (QUOTE NAME) S) 
       (MOVEI 1 (QUOTE CURFUN) S) 
       (CALL 3 (E INITPROP) S) 
       (MOVE 3 0 P) 
       (MOVE 2 -1 P) 
       (MOVE 1 -2 P) 
       (CALL 3 (E PASS1) S) 
       (MOVE 3 0 P) 
       (MOVE 2 1) 
       (MOVE 1 -2 P) 
       (CALL 3 (E PASS2) S) 
       (MOVEI 2 (QUOTE NAME) S) 
       (MOVEI 1 (QUOTE CURFUN) S) 
       (CALL 2 (E DELETEPROP) S) 
       (MOVEI 1 (QUOTE (VAL VAR TAG)) S) 
       (CALL 17 (E STOPSYM) S) 
       (MOVE 2 (SPECIAL P1CNT) S) 
       (MOVE 1 (SPECIAL P2CNT) S) 
       (CALL 2 (E EQUAL) S) 
       (JUMPN 1 TAG5) 
       (MOVE 1 (SPECIAL P2CNT) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 (SPECIAL P1CNT) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E PRINTMSG) S) 
       (MOVEI 1 (QUOTE (COUNTSDISAGREE-COMPFUNC)) S) 
       (CALL 17 (E COMPERR) S) 
 TAG5  (MOVE 1 -2 P) 
       (SUB P (C 3 0 3 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP COMPILE FSUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVE 1 -1 P) 
       (JUMPN 1 TAG6) 
       (MOVEI 2 (QUOTE T) S) 
       (CALL 2 (E OUTC) S) 
       (MOVE 1 0 P) 
       (JRST 0 TAG2) 
 TAG6  (HLRZ@ 1 -1 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG11) 
       (HLRZ@ 1 -1 P) 
       (CALL 17 (E OUTPUT) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (CALL 2 (E OUTC) S) 
       (JRST 0 TAG10) 
 TAG11 (HLRZ@ 1 -1 P) 
       (CALL 1 (E COMPILEFUN) S) 
       (MOVE 2 1) 
       (MOVE 1 0 P) 
       (CALL 2 (E *APPEND) S) 
       (MOVEM 1 0 P) 
 TAG10 (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG1) 
 TAG2  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP COMPILEFUN SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL GENFUNS) S) 
       (0 0 (SPECIAL UNDFUNS) S) 
       (0 0 (SPECIAL CODESIZE) S) 
       (0 0 (SPECIAL CONSTSIZE) S) 
       (0 0 (SPECIAL MSGCHAN) S) 
       (0 0 (SPECIAL SHOWNAMES) S) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE 0)) 
       (MOVEM 1 (SPECIAL CONSTSIZE) S) 
       (MOVEM 1 (SPECIAL CODESIZE) S) 
       (HRRZ@ 1 0 P) 
       (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 TAG7) 
       (MOVE 1 -1 P) 
       (CALL 1 (E REVERSE) S) 
       (JRST 0 TAG3) 
 TAG7  (MOVEI 2 (QUOTE DEFACTION) S) 
       (HLRZ@ 1 -2 P) 
       (CALL 2 (E SEEKPROP) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG2) 
       (HLRZ@ 2 -2 P) 
       (MOVE 1 -3 P) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 -1 P) 
       (HLRZ@ 1 -2 P) 
       (CALL 1 (E NCONS) S) 
       (HRRZ@ 2 -2 P) 
       (HLRZ@ 2 2) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 -3 P) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE DEFPROP) S) 
       (CALL 2 (E XCONS) S) 
       (PUSH P 1) 
       (HRRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (EXCH 1 0 P) 
       (CALLF@ 1 0 P) 
       (SUB P (C 1 0 1 0)) 
 TAG2  (HRRZ@ 1 -2 P) 
       (HRRZ@ 1 1) 
       (MOVEM 1 -2 P) 
       (JRST 0 TAG1) 
 TAG3  (SUB P (C 4 0 4 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP COMPL FSUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL MSGCHAN) S) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL LISTING) S) 
       (JUMPE 1 TAG7) 
       (CALL 0 (E GENSYM) S) 
       (MOVE 2 (SPECIAL LISTING) S) 
       (CALL 2 (E CONS) S) 
       (CALL 17 (E OUTPUT) S) 
       (MOVEM 1 (SPECIAL MSGCHAN) S) 
 TAG7 
 TAG1  (MOVE 1 0 P) 
       (JUMPN 1 TAG13) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 1 (SPECIAL MSGCHAN) S) 
       (CALL 2 (E OUTC) S) 
       (MOVEI 2 (QUOTE T) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E OUTC) S) 
       (JRST 0 TAG4) 
 TAG13 (HLRZ@ 1 0 P) 
       (CALL 1 (E EXPLODE) S) 
       (CALL 1 (E LAST) S) 
       (HLRZ@ 2 1) 
       (CAMN 2 (SPECIAL *COLON) S) 
       (JRST 0 TAG20) 
       (HLRZ@ 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG16) 
       (HLRZ@ 1 0 P) 
       (HRRZ@ 1 1) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG16) 
 TAG20 (HLRZ@ 1 0 P) 
       (MOVEM 1 (SPECIAL INDEV) S) 
       (JRST 0 TAG2) 
 TAG16 (HLRZ@ 1 0 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 (SPECIAL INDEV) S) 
       (CALL 2 (E XCONS) S) 
       (PUSH P (SPECIAL OUTDEV) S) 
       (PUSH P 1) 
       (HLRZ@ 1 -2 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG26) 
       (HLRZ@ 1 -2 P) 
       (JRST 0 TAG25) 
 TAG26 (HLRZ@ 1 -2 P) 
       (HLRZ@ 1 1) 
 TAG25 (MOVE 2 (SPECIAL OUTEXT) S) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E COMPFILE) S) 
       (SUB P (C 1 0 1 0)) 
 TAG2  (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG4  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP COMPREADS SUBR) 
       (MOVEI 1 (QUOTE ACTONEXPR) S) 
       (JCALL 1 (E READLOOP) S) 
       NIL 

(LAP CURFILE SUBR) 
       (MOVEI 2 (QUOTE NAME) S) 
       (MOVEI 1 (QUOTE CURFILE) S) 
       (JCALL 2 (E GET) S) 
       NIL 

(LAP CURFUN SUBR) 
       (MOVEI 2 (QUOTE NAME) S) 
       (MOVEI 1 (QUOTE CURFUN) S) 
       (JCALL 2 (E GET) S) 
       NIL 

(LAP DECLARE FSUBR) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE EVAL) S) 
       (JRST 0 *MAPC) 
       NIL 

(LAP DEFEXPR SUBR) 
       (PUSH P 1) 
       (CALL 1 (E CADR) S) 
       (HRRZ@ 2 0 P) 
       (HRRZ@ 2 2) 
       (HLRZ@ 2 2) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVE 1 2) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG7) 
       (HLRZ@ 1 2) 
       (CAIN 1 (QUOTE LAMBDA) S) 
       (JRST 0 TAG5) 
 TAG7  (MOVE 1 -2 P) 
       (CALL 1 (E FLUSHEXPR) S) 
       (JRST 0 TAG4) 
 TAG5  (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG11) 
       (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (JUMPE 1 TAG11) 
       (MOVEI 2 (QUOTE *UNDEF) S) 
       (MOVE 1 -1 P) 
       (CALL 2 (E REMPROP) S) 
       (JUMPE 1 TAG17) 
       (MOVEI 2 (QUOTE (LSUBR USED AS SUBR)) S) 
       (MOVE 1 -1 P) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E PRINTMSG) S) 
 TAG17 (MOVEI 3 (QUOTE *LSUBR) S) 
       (MOVEI 2 (QUOTE T) S) 
       (MOVE 1 -1 P) 
       (CALL 3 (E PUTPROP) S) 
       (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E NCONS) S) 
       (HRRZ@ 2 0 P) 
       (HRRZ@ 2 2) 
       (CALL 2 (E CONS) S) 
       (MOVEI 2 (QUOTE LSUBR) S) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 3 (QUOTE LSUBR) S) 
       (MOVE 2 1) 
       (MOVE 1 -1 P) 
       (CALL 3 (E COMPFUNC) S) 
       (JRST 0 TAG4) 
 TAG11 (MOVEI 2 (QUOTE *UNDEF) S) 
       (MOVE 1 -1 P) 
       (CALL 2 (E REMPROP) S) 
       (MOVEI 3 (QUOTE *SUBR) S) 
       (MOVEI 2 (QUOTE T) S) 
       (MOVE 1 -1 P) 
       (CALL 3 (E PUTPROP) S) 
       (HRRZ@ 2 0 P) 
       (MOVEI 1 (QUOTE SUBR) S) 
       (CALL 2 (E CONS) S) 
       (MOVEI 3 (QUOTE SUBR) S) 
       (MOVE 2 1) 
       (MOVE 1 -1 P) 
       (CALL 3 (E COMPFUNC) S) 
 TAG4  (MOVE 1 -1 P) 
       (CALL 1 (E TYPEFN) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP DEFFEXPR SUBR) 
       (PUSH P 1) 
       (CALL 1 (E CADR) S) 
       (HRRZ@ 2 0 P) 
       (HRRZ@ 2 2) 
       (HLRZ@ 2 2) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVEI 2 (QUOTE *UNDEF) S) 
       (CALL 2 (E REMPROP) S) 
       (JUMPE 1 TAG5) 
       (MOVEI 2 (QUOTE (FSUBR USED AS SUBR)) S) 
       (MOVE 1 -1 P) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E PRINTMSG) S) 
 TAG5  (MOVEI 3 (QUOTE *FSUBR) S) 
       (MOVEI 2 (QUOTE T) S) 
       (MOVE 1 -1 P) 
       (CALL 3 (E PUTPROP) S) 
       (HRRZ@ 2 0 P) 
       (MOVEI 1 (QUOTE FSUBR) S) 
       (CALL 2 (E CONS) S) 
       (MOVEI 3 (QUOTE FSUBR) S) 
       (MOVE 2 1) 
       (MOVE 1 -1 P) 
       (CALL 3 (E COMPFUNC) S) 
       (MOVE 1 -1 P) 
       (CALL 1 (E TYPEFN) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP DEFMACRO SUBR) 
       (PUSH P 1) 
       (MOVEI 2 (QUOTE *UNDEF) S) 
       (CALL 1 (E CADR) S) 
       (CALL 2 (E REMPROP) S) 
       (JUMPE 1 TAG2) 
       (MOVEI 2 (QUOTE (MACRO USED AS SUBR)) S) 
       (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E PRINTMSG) S) 
 TAG2  (MOVEI 3 (QUOTE MACRO) S) 
       (HRRZ@ 2 0 P) 
       (HRRZ@ 2 2) 
       (HLRZ@ 2 2) 
       (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 3 (E PUTPROP) S) 
       (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (SUB P (C 1 0 1 0)) 
       (JCALL 1 (E TYPEFN) S) 
       NIL 

(LAP DO*EXPR SUBR) 
       (MOVEI 3 (QUOTE *SUBR) S) 
       (HRRZ@ 2 1) 
       (HRRZ@ 2 2) 
       (HLRZ@ 2 2) 
       (CALL 1 (E CADR) S) 
       (JCALL 3 (E PUTPROP) S) 
       NIL 

(LAP DO*FEXPR SUBR) 
       (MOVEI 3 (QUOTE *FSUBR) S) 
       (HRRZ@ 2 1) 
       (HRRZ@ 2 2) 
       (HLRZ@ 2 2) 
       (CALL 1 (E CADR) S) 
       (JCALL 3 (E PUTPROP) S) 
       NIL 

(LAP DOACT SUBR) 
       (MOVEI 2 (QUOTE COMPACTION) S) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (CALL 2 (E GET) S) 
       (EXCH 1 0 P) 
       (CALLF@ 1 0 P) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP DODE SUBR) 
       (MOVEI 4 (QUOTE EXPR) S) 
       (HRRZ@ 3 1) 
       (HRRZ@ 3 3) 
       (HRRZ@ 3 3) 
       (HRRZ@ 2 1) 
       (HRRZ@ 2 2) 
       (HLRZ@ 2 2) 
       (CALL 1 (E CADR) S) 
       (CALL 4 (E MAKDEF) S) 
       (JCALL 1 (E DEFEXPR) S) 
       NIL 

(LAP DODF SUBR) 
       (MOVEI 4 (QUOTE FEXPR) S) 
       (HRRZ@ 3 1) 
       (HRRZ@ 3 3) 
       (HRRZ@ 3 3) 
       (HRRZ@ 2 1) 
       (HRRZ@ 2 2) 
       (HLRZ@ 2 2) 
       (CALL 1 (E CADR) S) 
       (CALL 4 (E MAKDEF) S) 
       (JCALL 1 (E DEFFEXPR) S) 
       NIL 

(LAP DODM SUBR) 
       (MOVEI 4 (QUOTE MACRO) S) 
       (HRRZ@ 3 1) 
       (HRRZ@ 3 3) 
       (HRRZ@ 3 3) 
       (HRRZ@ 2 1) 
       (HRRZ@ 2 2) 
       (HLRZ@ 2 2) 
       (CALL 1 (E CADR) S) 
       (CALL 4 (E MAKDEF) S) 
       (JCALL 1 (E DEFMACRO) S) 
       NIL 

(LAP DOFILE SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL LINCNT) S) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (MOVEI 1 (QUOTE 0)) 
       (MOVEM 1 (SPECIAL LINCNT) S) 
       (MOVEI 1 (QUOTE INCHAN) S) 
       (CALL 2 (E CONS) S) 
       (CALL 17 (E INPUT) S) 
       (MOVE 2 0 P) 
       (MOVEI 1 (QUOTE OUTCHAN) S) 
       (CALL 2 (E CONS) S) 
       (CALL 17 (E OUTPUT) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVEI 1 (QUOTE INCHAN) S) 
       (CALL 2 (E INC) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVEI 1 (QUOTE OUTCHAN) S) 
       (CALL 2 (E OUTC) S) 
       (CALLF@ 0 -2 P) 
       (MOVEI 2 (QUOTE T) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E OUTC) S) 
       (MOVEI 2 (QUOTE T) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E INC) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 3 0 3 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP FLUSHEXPR SUBR) 
       (PUSH P 1) 
       (CALL 0 (E ATMARGIN) S) 
       (JUMPN 1 TAG2) 
       (MOVEI 1 (QUOTE 2)) 
       (CALL 1 (E LINEF) S) 
 TAG2  (POP P 1) 
       (JCALL 1 (E PRINTEXPR) S) 
       NIL 

(LAP FLUSHLAP SUBR) 
       (PUSH P 1) 
       (CALL 1 (E CADR) S) 
       (HRRZ@ 2 0 P) 
       (HRRZ@ 2 2) 
       (HLRZ@ 2 2) 
       (PUSH P 2) 
       (MOVEI 2 (QUOTE ((FSUBR *FSUBR) (LSUBR *LSUBR) (SUBR *SUBR))) S) 
       (PUSH P 1) 
       (MOVE 1 -1 P) 
       (CALL 2 (E ASSOC) S) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (JUMPE 1 TAG1) 
       (HRRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (MOVEM 1 -1 P) 
       (MOVEI 2 (QUOTE (*FSUBR *LSUBR)) S) 
       (CALL 2 (E MEMQ) S) 
       (JUMPE 1 TAG11) 
       (MOVEI 2 (QUOTE *UNDEF) S) 
       (MOVE 1 -2 P) 
       (CALL 2 (E GET) S) 
       (JUMPE 1 TAG11) 
       (MOVEI 2 (QUOTE (USED AS SUBR)) S) 
       (MOVE 1 -3 P) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 -2 P) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E PRINTMSG) S) 
 TAG11 (MOVEI 3 (QUOTE T) S) 
       (MOVE 2 -1 P) 
       (MOVE 1 -2 P) 
       (CALL 3 (E SETPROP) S) 
       (MOVEI 2 (QUOTE *UNDEF) S) 
       (MOVE 1 -2 P) 
       (CALL 2 (E REMPROP) S) 
       (MOVE 1 -2 P) 
       (CALL 1 (E TYPEFN) S) 
 TAG1  (CALL 0 (E ATMARGIN) S) 
       (JUMPN 1 TAG15) 
       (MOVEI 1 (QUOTE 2)) 
       (CALL 1 (E LINEF) S) 
 TAG15 (MOVE 1 -4 P) 
       (CALL 1 (E OUTPUTSTAT) S) 
 TAG2  (MOVEI 1 (QUOTE ((READ))) S) 
       (CALL 17 (E ERRSET) S) 
       (MOVEM 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG20) 
       (MOVEI 1 (QUOTE (READERR-FLUSHLAP)) S) 
       (CALL 17 (E USERERR) S) 
 TAG20 (HLRZ@ 1 0 P) 
       (CALL 1 (E OUTPUTSTAT) S) 
       (HLRZ@ 1 0 P) 
       (JUMPE 1 TAG4) 
       (JRST 0 TAG2) 
 TAG4  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(LAP MAKDEF SUBR) 
       (PUSH P 2) 
       (MOVE 2 3) 
       (EXCH 1 0 P) 
       (CALL 2 (E CONS) S) 
       (MOVEI 2 (QUOTE LAMBDA) S) 
       (CALL 2 (E XCONS) S) 
       (PUSH P 1) 
       (MOVE 1 4) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE DEFPROP) S) 
       (JCALL 2 (E XCONS) S) 
       NIL 

(LAP MAPPUT SUBR) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (HRRZ@ 2 0 P) 
       (PUSH P 2) 
       (PUSH P 1) 
 TAG1  (MOVE 1 -1 P) 
       (JUMPN 1 TAG6) 
       (MOVE 1 -2 P) 
       (JRST 0 TAG2) 
 TAG6  (MOVE 3 0 P) 
       (MOVEI 2 (QUOTE T) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 3 (E PUTPROP) S) 
       (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG1) 
 TAG2  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP PRINTMSG SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL LINCNT) S) 
       (PUSH P 1) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 1 (SPECIAL MSGCHAN) S) 
       (CALL 2 (E OUTC) S) 
       (MOVEI 2 (QUOTE 0)) 
       (MOVEM 2 (SPECIAL LINCNT) S) 
       (PUSH P 1) 
       (CALL 0 (E ATMARGIN) S) 
       (JUMPN 1 TAG5) 
       (MOVEI 1 (QUOTE 2)) 
       (CALL 1 (E LINEF) S) 
 TAG5  (MOVE 2 -1 P) 
       (MOVEI 1 (QUOTE *) S) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E PRINL) S) 
       (MOVEI 1 (QUOTE 1)) 
       (CALL 1 (E LINEF) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 1 0 P) 
       (CALL 2 (E OUTC) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP READLOOP SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVEI 1 (QUOTE ((READ))) S) 
       (CALL 17 (E ERRSET) S) 
       (MOVEM 1 0 P) 
       (CAIN 1 (QUOTE $EOF$) S) 
       (JRST 0 TAG3) 
       (HLRZ@ 1 0 P) 
       (CALLF@ 1 -1 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP SPECIAL FSUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 TAG1 0)) 
       (MOVEI D (QUOTE MAKESPECIAL) S) 
       (PUSH P D) 
       (PUSH P 1) 
       (MOVNI 6 2) 
       (JCALL 16 (E MAPCAR) S) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP TELLTALE SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 1 (SPECIAL MSGCHAN) S) 
       (CALL 2 (E OUTC) S) 
       (PUSH P 1) 
       (CALL 0 (E CARRETN) S) 
       (MOVEI 1 (QUOTE 1)) 
       (CALL 1 (E LINEF) S) 
       (MOVEI 1 (QUOTE COMPILED) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 -2 P) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E PRINL) S) 
       (MOVEI 1 (QUOTE WORDS) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 (SPECIAL CODESIZE) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E PRINL) S) 
       (MOVEI 1 (QUOTE CONSTANTS) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 (SPECIAL CONSTSIZE) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E PRINL) S) 
       (CALL 0 (E TIME) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E *DIF) S) 
       (MOVEI 2 (QUOTE 1750)) 
       (CALL 2 (E *QUO) S) 
       (CALL 1 (E ADD1) S) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE SECONDS) S) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E PRINL) S) 
       (MOVEI 1 (QUOTE 2)) 
       (CALL 1 (E LINEF) S) 
 TAG1  (MOVE 1 (SPECIAL UNDFUNS) S) 
       (JUMPE 1 TAG2) 
       (MOVEI 2 (QUOTE *UNDEF) S) 
       (HLRZ@ 1 (SPECIAL UNDFUNS) S) 
       (CALL 2 (E HASPROP) S) 
       (JUMPE 1 TAG13) 
       (MOVE 2 0 P) 
       (HLRZ@ 1 (SPECIAL UNDFUNS) S) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 0 P) 
 TAG13 (HRRZ@ 1 (SPECIAL UNDFUNS) S) 
       (MOVEM 1 (SPECIAL UNDFUNS) S) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 1 0 P) 
       (JUMPE 1 TAG3) 
       (MOVEI 1 (QUOTE (UNDEFINED FUNCTIONS)) S) 
       (CALL 1 (E PRINL) S) 
       (MOVEI 1 (QUOTE 1)) 
       (CALL 1 (E LINEF) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E PRINL) S) 
       (MOVEI 1 (QUOTE 2)) 
       (CALL 1 (E LINEF) S) 
 TAG3  (MOVE 1 (SPECIAL GENFUNS) S) 
       (JUMPE 1 TAG4) 
       (MOVEI 1 (QUOTE (GENERATED FUNCTIONS)) S) 
       (CALL 1 (E PRINL) S) 
       (MOVEI 1 (QUOTE 1)) 
       (CALL 1 (E LINEF) S) 
       (MOVE 1 (SPECIAL GENFUNS) S) 
       (CALL 1 (E PRINL) S) 
       (MOVEI 1 (QUOTE 2)) 
       (CALL 1 (E LINEF) S) 
 TAG4  (MOVEI 2 (QUOTE NIL)) 
       (MOVE 1 -1 P) 
       (CALL 2 (E OUTC) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(LAP TYPEFN SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL LINCNT) S) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVE 1 (SPECIAL SHOWNAMES) S) 
       (JUMPE 1 TAG2) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 1 (SPECIAL MSGCHAN) S) 
       (CALL 2 (E OUTC) S) 
       (MOVEI 2 (QUOTE 0)) 
       (MOVEM 2 (SPECIAL LINCNT) S) 
       (MOVEM 1 0 P) 
       (CALL 0 (E ATMARGIN) S) 
       (JUMPE 1 TAG7) 
       (MOVEI 1 (QUOTE 1)) 
       (CALL 1 (E LINEF) S) 
 TAG7  (MOVE 1 -1 P) 
       (CALL 1 (E PRINS) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 1 0 P) 
       (CALL 2 (E OUTC) S) 
 TAG2  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP UNSPECIAL FSUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 TAG1 0)) 
       (MOVEI D (QUOTE MAKEUNSPECIAL) S) 
       (PUSH P D) 
       (PUSH P 1) 
       (MOVNI 6 2) 
       (JCALL 16 (E MAPCAR) S) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(BEGINBLOCK INITIALIZATION) 

(LAP CINIT SUBR) 
       (CLEARB 1 (SPECIAL KLIST) S) 
       (MOVEM 1 (SPECIAL LAPLST) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E NOUUO) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E GCGAG) S) 
       (CALL 0 (E EXCISE) S) 
       (MOVEI 1 (QUOTE CSTART) S) 
       (JCALL 1 (E INITFN) S) 
       NIL 

(LAP SUBFUN1CSTART SUBR) 
       (MOVEI 1 (QUOTE (CSTART SYS: (COMPLR . INI))) S) 
       (JCALL 17 (E INPUT) S) 
       NIL 

(LAP SUBFUN2CSTART SUBR) 
       (MOVEI 1 (QUOTE (CSTART DSK: (COMPLR . INI))) S) 
       (JCALL 17 (E INPUT) S) 
       NIL 

(LAP CSTART SUBR) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E INITFN) S) 
       (MOVEI 1 (QUOTE ((SUBFUN1CSTART) NIL)) S) 
       (CALL 17 (E ERRSET) S) 
       (JUMPE 1 TAG2) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVEI 1 (QUOTE CSTART) S) 
       (CALL 2 (E %READIN) S) 
 TAG2  (MOVEI 1 (QUOTE ((SUBFUN2CSTART) NIL)) S) 
       (CALL 17 (E ERRSET) S) 
       (JUMPE 1 TAG4) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVEI 1 (QUOTE CSTART) S) 
       (CALL 2 (E %READIN) S) 
 TAG4  (MOVEI 1 (QUOTE 1)) 
       (CALL 1 (E LINEF) S) 
       (MOVEI 1 (QUOTE (UCI LISP COMPILER)) S) 
       (JCALL 1 (E PRINL) S) 
       NIL 

(ENDBLOCK INITIALIZATION) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE COMPEFFECT)))) (QUOTE ((COMPACTION DOACT
) (MACRO ACTONMACRO)))) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE COMPACTION)))) (QUOTE ((DE DODE) (DECLAR
E EVAL) (DEFPROP COMPDEF) (DF DODF) (DM DODM) (LAP FLUSHLAP) (SPECIAL EVAL) (UNSPECIAL EVAL) (*SUBR MAPPUT) (*FS
UBR MAPPUT) (*LSUBR MAPPUT) (*EXPR MAPPUT) (*FEXPR MAPPUT)))) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE DEFACTION)))) (QUOTE ((EXPR DEFEXPR) (FE
XPR DEFFEXPR) (MACRO DEFMACRO) (SPECIAL EVAL) (DEFACTION EVAL) (*EXPR DO*EXPR) (*FEXPR DO*FEXPR) (*SUBR EVAL) (*
FSUBR EVAL) (*LSUBR EVAL)))) 

(SETQ LISTING NIL) 

(SETQ OUTDEV (SETQ INDEV (QUOTE DSK:))) 

(SETQ OUTEXT (QUOTE LAP)) 

(SETQ SHOWNAMES T) 

(ENDBLOCK TOPLEVEL) 

(BEGINBLOCK PASS1) 

(LAP DOP1 SUBR) 
       (MOVEI 2 (QUOTE P1) S) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (CALL 2 (E GET) S) 
       (EXCH 1 0 P) 
       (CALLF@ 1 0 P) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP GENFUN SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG5) 
       (MOVE 1 -3 P) 
       (JRST 0 TAG1) 
 TAG5  (HLRZ@ 1 -3 P) 
       (CAIN 1 (QUOTE LAMBDA) S) 
       (JRST 0 TAG7) 
       (MOVEI 1 (QUOTE (NOTLAMBDA-GENFUN)) S) 
       (CALL 17 (E USERERR) S) 
 TAG7  (HRRZ@ 1 -3 P) 
       (HLRZ@ 1 1) 
       (MOVEM 1 -1 P) 
       (MOVE 1 -3 P) 
       (CALL 1 (E CADDRLAM) S) 
       (MOVEM 1 -2 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG12) 
       (HRRZ@ 2 -2 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 TAG12) 
       (HLRZ@ 1 -2 P) 
       (JRST 0 TAG1) 
 TAG12 (MOVEI 1 (QUOTE (SUBFUN)) S) 
       (CALL 17 (E NEXTSYM) S) 
       (PUSH P 1) 
       (CALL 0 (E CURFUN) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E MAKESYM) S) 
       (MOVE 2 (SPECIAL GENFUNS) S) 
       (MOVEM 1 0 P) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL GENFUNS) S) 
       (MOVE 1 -2 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE SUBR) S) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 3 (QUOTE SUBR) S) 
       (MOVE 2 1) 
       (MOVE 1 0 P) 
       (CALL 3 (E COMPFUNC) S) 
 TAG1  (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(LAP MAPP1 SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 TAG1 0)) 
       (MOVEI D (QUOTE P1) S) 
       (PUSH P D) 
       (PUSH P 1) 
       (MOVNI 6 2) 
       (JCALL 16 (E MAPCAR) S) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP P1 SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG1) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG2) 
       (HLRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (CAIE 1 (QUOTE LAMBDA) S) 
       (JRST 0 TAG11) 
       (MOVE 2 (SPECIAL CURBIND) S) 
       (MOVE 1 -1 P) 
       (CALL 2 (E P1LAM) S) 
       (JRST 0 TAG3) 
 TAG11 (HLRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (CAIE 1 (QUOTE LABEL) S) 
       (JRST 0 TAG13) 
       (MOVE 1 -1 P) 
       (CALL 1 (E P1LABEL) S) 
       (JRST 0 TAG3) 
 TAG13 (HLRZ@ 1 -1 P) 
       (CALL 1 (E P1) S) 
       (PUSH P 1) 
       (HRRZ@ 1 -2 P) 
       (CALL 1 (E P1SUBRARGS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (JRST 0 TAG3) 
 TAG1  (MOVE 1 -1 P) 
       (CALL 1 (E CONSTANTP) S) 
       (JUMPE 1 TAG15) 
       (MOVE 1 -1 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE QUOTE) S) 
       (CALL 2 (E XCONS) S) 
       (JRST 0 TAG3) 
 TAG15 (MOVE 2 (SPECIAL CURBIND) S) 
       (MOVE 1 -1 P) 
       (CALL 2 (E ASSOC) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG17) 
       (HRRZ@ 1 1) 
       (MOVEM 1 -1 P) 
 TAG17 (MOVE 1 (SPECIAL P1CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P1CNT) S) 
       (MOVE 1 -1 P) 
       (CALL 1 (E SPECIALP) S) 
       (JUMPE 1 TAG21) 
       (MOVE 2 (SPECIAL SPECVARS) S) 
       (MOVE 1 -1 P) 
       (CALL 2 (E ADDTOLIST) S) 
       (MOVEM 1 (SPECIAL SPECVARS) S) 
       (MOVE 1 -1 P) 
       (JRST 0 TAG3) 
 TAG21 (MOVE 1 -1 P) 
       (CALL 1 (E VARB) S) 
       (JUMPE 1 TAG23) 
       (MOVE 1 -1 P) 
       (JRST 0 TAG3) 
 TAG23 (MOVE 2 (SPECIAL LOCVARS) S) 
       (MOVE 1 -1 P) 
       (CALL 2 (E ASSOC) S) 
       (PUSH P (SPECIAL P1CNT) S) 
       (POP P 2) 
       (HRRM@ 2 1) 
       (MOVE 1 -1 P) 
       (JRST 0 TAG3) 
 TAG2  (HLRZ@ 1 -1 P) 
       (CALL 1 (E CONSTANTP) S) 
       (JUMPE 1 TAG25) 
       (MOVEI 1 (QUOTE (CONSTFUN-P1)) S) 
       (CALL 17 (E USERERR) S) 
 TAG25 (MOVEI 2 (QUOTE PASS1) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 2 (E GETGET) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG27) 
       (CALL 1 (E CADR) S) 
       (PUSH P 1) 
       (MOVE 1 -2 P) 
       (CALLF@ 1 0 P) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG3) 
 TAG27 (MOVE 2 (SPECIAL CURBIND) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 2 (E ASSOC) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG31) 
       (HRRZ@ 2 -1 P) 
       (HRRZ@ 1 1) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 -1 P) 
 TAG31 (HLRZ@ 1 -1 P) 
       (CALL 1 (E SPECIALP) S) 
       (JUMPN 1 TAG35) 
       (MOVE 2 (SPECIAL LOCVARS) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 2 (E ASSOC) S) 
       (JUMPE 1 TAG33) 
 TAG35 (HLRZ@ 1 -1 P) 
       (CALL 1 (E P1) S) 
       (PUSH P 1) 
       (HRRZ@ 1 -2 P) 
       (CALL 1 (E P1SUBRARGS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (JRST 0 TAG3) 
 TAG33 (MOVE 1 -1 P) 
       (CALL 1 (E P1ELSE) S) 
 TAG3  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP P1ANDOR SUBR) 
       (PUSH P 1) 
       (PUSH P (SPECIAL LOCVARS) S) 
       (PUSH P (SPECIAL P1CNT) S) 
       (HRRZ@ 1 1) 
       (CALL 1 (E MAPP1) S) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL P1CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P1CNT) S) 
       (MOVE 3 -2 P) 
       (MOVE 2 1) 
       (MOVE 1 -1 P) 
       (CALL 3 (E P1BUG) S) 
       (MOVE 2 0 P) 
       (HLRZ@ 1 -3 P) 
       (SUB P (C 4 0 4 0)) 
       (JCALL 2 (E CONS) S) 
       NIL 

(LAP P1BIND SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (JUMPE 1 TAG7) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG7) 
       (MOVEI 1 (QUOTE (ATOMICVARLIST-P1BIND)) S) 
       (CALL 17 (E USERERR) S) 
 TAG7 
 TAG1  (MOVE 1 -2 P) 
       (JUMPN 1 TAG13) 
       (MOVE 1 -1 P) 
       (CALL 1 (E REVERSE) S) 
       (JRST 0 TAG3) 
 TAG13 (HLRZ@ 1 -2 P) 
       (MOVEM 1 0 P) 
       (CALL 1 (E VARIABLEP) S) 
       (JUMPN 1 TAG16) 
       (MOVEI 1 (QUOTE (NOTVARIABLE-P1BIND)) S) 
       (CALL 17 (E USERERR) S) 
 TAG16 (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E MEMBER) S) 
       (JUMPE 1 TAG21) 
       (MOVE 1 0 P) 
       (CALL 1 (E NCONS) S) 
       (PUSH P 1) 
       (CALL 0 (E CURFUN) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE (REPEATED VARIABLE IN)) S) 
       (CALL 2 (E *APPEND) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E *APPEND) S) 
       (CALL 1 (E PRINTMSG) S) 
 TAG21 (MOVE 1 0 P) 
       (CALL 1 (E SPECIALP) S) 
       (JUMPE 1 TAG23) 
       (MOVE 2 (SPECIAL SPECVARS) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E ADDTOLIST) S) 
       (MOVEM 1 (SPECIAL SPECVARS) S) 
       (JRST 0 TAG2) 
 TAG23 (PUSH P 0 P) 
       (MOVE 2 (SPECIAL LOCVARS) S) 
       (MOVE 1 -1 P) 
       (CALL 2 (E ASSOC) S) 
       (JUMPE 1 TAG25) 
       (MOVEI 1 (QUOTE (VAR)) S) 
       (CALL 17 (E NEXTSYM) S) 
       (MOVE 2 1) 
       (JRST 0 TAG24) 
 TAG25 (MOVE 2 -1 P) 
 TAG24 (MOVEM 2 -1 P) 
       (POP P 1) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 (SPECIAL CURBIND) S) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL CURBIND) S) 
       (MOVEI 2 (QUOTE 0)) 
       (MOVE 1 0 P) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 (SPECIAL LOCVARS) S) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL LOCVARS) S) 
 TAG2  (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E CONS) S) 
       (HRRZ@ 2 -2 P) 
       (MOVEM 1 -1 P) 
       (MOVEM 2 -2 P) 
       (JRST 0 TAG1) 
 TAG3  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP P1BUG SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVE 1 -1 P) 
       (JUMPE 1 TAG3) 
       (HLRZ@ 1 -1 P) 
       (MOVEM 1 0 P) 
       (MOVE 2 -3 P) 
       (HRRZ@ 1 1) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG10) 
       (MOVE 1 -2 P) 
       (HRRM@ 1 0 P) 
 TAG10 (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(LAP P1COND SUBR) 
       (PUSH P 1) 
       (PUSH P (SPECIAL LOCVARS) S) 
       (PUSH P (SPECIAL P1CNT) S) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 TAG4 0)) 
       (MOVEI D (QUOTE MAPP1) S) 
       (PUSH P D) 
       (HRRZ@ 1 1) 
       (PUSH P 1) 
       (MOVNI 6 2) 
       (JCALL 16 (E MAPCAR) S) 
 TAG4  (MOVEM 1 0 P) 
       (MOVE 1 (SPECIAL P1CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P1CNT) S) 
       (MOVE 3 -2 P) 
       (MOVE 2 1) 
       (MOVE 1 -1 P) 
       (CALL 3 (E P1BUG) S) 
       (MOVE 1 (SPECIAL P1CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P1CNT) S) 
       (MOVE 2 0 P) 
       (HLRZ@ 1 -3 P) 
       (SUB P (C 4 0 4 0)) 
       (JCALL 2 (E CONS) S) 
       NIL 

(LAP P1CONS SUBR) 
       (PUSH P 1) 
       (HRRZ@ 1 1) 
       (CALL 1 (E LENGTH) S) 
       (CAIN 1 (QUOTE 2)) 
       (JRST 0 TAG2) 
       (MOVEI 1 (QUOTE (ARGNO-P1CONS)) S) 
       (CALL 17 (E USERERR) S) 
       (JRST 0 TAG1) 
 TAG2  (HRRZ@ 1 0 P) 
       (CALL 1 (E CADR) S) 
       (JUMPN 1 TAG4) 
       (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E P1) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE NCONS) S) 
       (CALL 2 (E XCONS) S) 
       (JRST 0 TAG1) 
 TAG4  (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E P1) S) 
       (PUSH P 1) 
       (HRRZ@ 1 -1 P) 
       (CALL 1 (E CADR) S) 
       (CALL 1 (E P1) S) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE CONS) S) 
       (CALL 2 (E XCONS) S) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP P1ELSE SUBR) 
       (MOVE 2 (SPECIAL UNDFUNS) S) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL UNDFUNS) S) 
       (MOVEI 3 (QUOTE *UNDEF) S) 
       (MOVEI 2 (QUOTE T) S) 
       (HLRZ@ 1 0 P) 
       (CALL 3 (E PUTPROP) S) 
       (HLRZ@ 1 0 P) 
       (PUSH P 1) 
       (HRRZ@ 1 -1 P) 
       (CALL 1 (E P1SUBRARGS) S) 
       (POP P 2) 
       (SUB P (C 1 0 1 0)) 
       (JCALL 2 (E XCONS) S) 
       NIL 

(LAP P1ERRSET SUBR) 
       (PUSH P 1) 
       (CALL 1 (E CADR) S) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG2) 
       (MOVE 1 0 P) 
       (JRST 0 TAG1) 
 TAG2  (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE LAMBDA) S) 
       (CALL 2 (E XCONS) S) 
       (PUSH P 1) 
       (HLRZ@ 1 -1 P) 
       (EXCH 1 0 P) 
       (CALL 1 (E GENFUN) S) 
       (CALL 1 (E NCONS) S) 
       (HRRZ@ 2 -1 P) 
       (HRRZ@ 2 2) 
       (CALL 2 (E CONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP P1EVAL SUBR) 
       (PUSH P 1) 
       (HRRZ@ 1 1) 
       (CALL 1 (E P1SUBRARGS) S) 
       (PUSH P 1) 
       (HRRZ@ 1 1) 
       (JUMPE 1 TAG5) 
       (MOVE 2 0 P) 
       (MOVEI 1 (QUOTE EVAL) S) 
       (CALL 2 (E CONS) S) 
       (JRST 0 TAG1) 
 TAG5  (MOVE 2 0 P) 
       (MOVEI 1 (QUOTE *EVAL) S) 
       (CALL 2 (E CONS) S) 
 TAG1  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP P1FUNCTION SUBR) 
       (CALL 1 (E CADR) S) 
       (CALL 1 (E GENFUN) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE QUOTE) S) 
       (JCALL 2 (E XCONS) S) 
       NIL 

(LAP P1*FUNCTION SUBR) 
       (CALL 1 (E CADR) S) 
       (CALL 1 (E GENFUN) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE *FUNCTION) S) 
       (JCALL 2 (E XCONS) S) 
       NIL 

(LAP P1GO SUBR) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL INPROG) S) 
       (JUMPN 1 TAG2) 
       (MOVEI 1 (QUOTE (NOTINPROG-P1GO)) S) 
       (CALL 17 (E USERERR) S) 
 TAG2  (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG5) 
       (MOVE 1 0 P) 
       (JRST 0 TAG4) 
 TAG5  (HLRZ@ 1 0 P) 
       (PUSH P 1) 
       (HRRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E P1) S) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
 TAG4  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP P1LABEL SUBR) 
       (PUSH P 1) 
       (MOVEI 3 (QUOTE T) S) 
       (MOVEI 2 (QUOTE FUNVAR) S) 
       (CALL 1 (E CADAR) S) 
       (CALL 3 (E INITPROP) S) 
       (HLRZ@ 1 0 P) 
       (CALL 1 (E CADDR) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE FUNCTION) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E P1) S) 
       (MOVEI 2 (QUOTE FUNVAR) S) 
       (PUSH P 1) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E CADR) S) 
       (CALL 2 (E DELETEPROP) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E CADR) S) 
       (CALL 1 (E NCONS) S) 
       (PUSH P 1) 
       (MOVE 1 -1 P) 
       (CALL 1 (E NCONS) S) 
       (HLRZ@ 2 -2 P) 
       (HRRZ@ 2 2) 
       (HLRZ@ 2 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE SETQ) S) 
       (CALL 2 (E XCONS) S) 
       (HRRZ@ 2 -2 P) 
       (PUSH P 1) 
       (HLRZ@ 1 -3 P) 
       (CALL 1 (E CADR) S) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE RETURN) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE PROG) S) 
       (CALL 2 (E XCONS) S) 
       (SUB P (C 2 0 2 0)) 
       (JCALL 1 (E P1) S) 
       NIL 

(LAP P1LAM SUBR) 
       (JSP 6 SPECBIND) 
       (0 2 (SPECIAL CURBIND) S) 
       (PUSH P 1) 
       (HRRZ@ 1 1) 
       (CALL 1 (E P1SUBRARGS) S) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL P1CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P1CNT) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E CADR) S) 
       (CALL 1 (E P1BIND) S) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVE 1 -2 P) 
       (CALL 1 (E LENGTH) S) 
       (PUSH P 1) 
       (MOVE 1 -2 P) 
       (CALL 1 (E LENGTH) S) 
       (POP P 2) 
       (CALL 2 (E EQUAL) S) 
       (JUMPN 1 TAG5) 
       (MOVEI 1 (QUOTE (ARGNOERR-P1LAM)) S) 
       (CALL 17 (E USERERR) S) 
 TAG5  (HLRZ@ 1 -3 P) 
       (CALL 1 (E CADDRLAM) S) 
       (CALL 1 (E P1) S) 
       (MOVEM 1 0 P) 
       (MOVE 1 (SPECIAL P1CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P1CNT) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE LAMBDA) S) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 -2 P) 
       (SUB P (C 4 0 4 0)) 
       (CALL 2 (E CONS) S) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP P1PROG SUBR) 
       (MOVE 2 (SPECIAL CURBIND) S) 
       (JSP 6 SPECBIND) 
       (0 2 (SPECIAL CURBIND) S) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL P1SCNT) S) 
       (0 0 (SPECIAL INPROG) 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)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (HRRZ@ 1 1) 
       (JUMPN 1 TAG12) 
       (MOVEI 1 (QUOTE (PROGTOOSHORT-P1PROG)) S) 
       (CALL 17 (E USERERR) S) 
 TAG12 (MOVEI 1 (QUOTE T) S) 
       (MOVEM 1 (SPECIAL INPROG) S) 
       (HRRZ@ 1 -4 P) 
       (MOVEM 1 -4 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E P1BIND) S) 
       (MOVE 2 (SPECIAL LOCVARS) S) 
       (MOVEM 1 -3 P) 
       (MOVE 1 (SPECIAL P1CNT) S) 
       (MOVEM 2 -2 P) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P1CNT) S) 
       (MOVEM 1 (SPECIAL P1SCNT) S) 
 TAG1  (HRRZ@ 1 -4 P) 
       (MOVEM 1 -4 P) 
       (JUMPE 1 TAG2) 
       (MOVE 1 (SPECIAL P1CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P1CNT) S) 
       (HLRZ@ 1 -4 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG17) 
       (MOVE 2 0 P) 
       (HLRZ@ 1 -4 P) 
       (CALL 2 (E ASSOC) S) 
       (JUMPE 1 TAG21) 
       (HLRZ@ 1 -4 P) 
       (CALL 1 (E NCONS) S) 
       (PUSH P 1) 
       (CALL 0 (E CURFUN) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE (MULTIPLY DEFINED TAG IN)) S) 
       (CALL 2 (E *APPEND) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E *APPEND) S) 
       (CALL 1 (E PRINTMSG) S) 
 TAG21 (HLRZ@ 1 -4 P) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE (TAG)) S) 
       (CALL 17 (E NEXTSYM) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 0 P) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 -1 P) 
       (MOVEM 1 0 P) 
       (HLRZ@ 1 -4 P) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG16) 
 TAG17 (HLRZ@ 1 -4 P) 
       (CALL 1 (E P1) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 -1 P) 
 TAG16 (JRST 0 TAG1) 
 TAG2  (MOVE 1 (SPECIAL P1CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P1CNT) S) 
       (MOVE 3 -2 P) 
       (MOVE 2 1) 
       (MOVE 1 (SPECIAL P1SCNT) S) 
       (CALL 3 (E P1BUG) S) 
       (MOVEI 2 (QUOTE VALUE) S) 
       (MOVEI 1 (QUOTE LOCVARS) S) 
       (CALL 2 (E GET) S) 
       (MOVEM 1 -2 P) 
 TAG3  (HRRZ@ 1 -2 P) 
       (JUMPE 1 TAG5) 
       (MOVE 2 -3 P) 
       (HRRZ@ 1 -2 P) 
       (CALL 1 (E CAAR) S) 
       (CALL 2 (E MEMBER) S) 
       (JUMPE 1 TAG27) 
       (HRRZ@ 1 -2 P) 
       (CALL 1 (E CDAR) S) 
       (CAIE 1 (QUOTE 0)) 
       (JRST 0 TAG27) 
       (HRRZ@ 1 -2 P) 
       (CALL 1 (E CAAR) S) 
       (CALL 1 (E NCONS) S) 
       (PUSH P 1) 
       (CALL 0 (E CURFUN) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE (UNUSED PROG VARIABLE IN)) S) 
       (CALL 2 (E *APPEND) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E *APPEND) S) 
       (CALL 1 (E PRINTMSG) S) 
       (MOVE 2 (SPECIAL SPECVARS) S) 
       (HRRZ@ 1 -2 P) 
       (CALL 1 (E CAAR) S) 
       (CALL 2 (E ADDTOLIST) S) 
       (MOVEM 1 (SPECIAL SPECVARS) S) 
       (HRRZ@ 1 -2 P) 
       (CALL 1 (E CAAR) S) 
       (CALL 1 (E MAKESPECIAL) S) 
 TAG27 
 TAG4  (HRRZ@ 1 -2 P) 
       (MOVEM 1 -2 P) 
       (JRST 0 TAG3) 
 TAG5  (MOVE 1 (SPECIAL P1CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P1CNT) S) 
       (MOVE 1 -1 P) 
       (CALL 1 (E REVERSE) S) 
       (MOVE 2 -3 P) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 0 P) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE PROG) S) 
       (CALL 2 (E XCONS) S) 
       (PUSHJ P SPECSTR) 
       (SUB P (C 5 0 5 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP P1RETURN SUBR) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL INPROG) S) 
       (JUMPN 1 TAG2) 
       (MOVEI 1 (QUOTE (NOTINPROG-P1RETURN)) S) 
       (CALL 17 (E USERERR) S) 
       (JRST 0 TAG1) 
 TAG2  (HRRZ@ 1 0 P) 
       (JUMPE 1 TAG6) 
       (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
 TAG6  (CALL 1 (E P1) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE RETURN) S) 
       (CALL 2 (E XCONS) S) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP P1SETQ SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (HLRZ@ 1 1) 
       (CALL 1 (E VARIABLEP) S) 
       (JUMPN 1 TAG5) 
       (MOVEI 1 (QUOTE (NOTVARIABLE-P1SETQ)) S) 
       (CALL 17 (E USERERR) S) 
 TAG5  (MOVE 2 (SPECIAL CURBIND) S) 
       (HRRZ@ 1 -3 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E ASSOC) S) 
       (MOVEM 1 -1 P) 
       (JUMPE 1 TAG10) 
       (HRRZ@ 1 1) 
       (JRST 0 TAG7) 
 TAG10 (HRRZ@ 1 -3 P) 
       (HLRZ@ 1 1) 
 TAG7  (MOVEM 1 0 P) 
       (CALL 1 (E VARB) S) 
       (HRRZ@ 1 -3 P) 
       (CALL 1 (E CADR) S) 
       (CALL 1 (E P1) S) 
       (MOVEM 1 -2 P) 
       (MOVE 1 (SPECIAL P1CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P1CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P1CNT) S) 
       (MOVE 1 -2 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 0 P) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE SETQ) S) 
       (SUB P (C 4 0 4 0)) 
       (JCALL 2 (E XCONS) S) 
       NIL 

(LAP P1STORE SUBR) 
       (PUSH P 1) 
       (CALL 1 (E CADDR) S) 
       (CALL 1 (E P1) S) 
       (PUSH P 1) 
       (HRRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E P1) S) 
       (PUSH P 1) 
       (MOVE 1 -1 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 0 P) 
       (CALL 2 (E XCONS) S) 
       (HLRZ@ 2 -2 P) 
       (SUB P (C 3 0 3 0)) 
       (JCALL 2 (E XCONS) S) 
       NIL 

(LAP P1SUBRARGS SUBR) 
       (PUSH P 1) 
       (CALL 1 (E LENGTH) S) 
       (MOVE 2 (SPECIAL NACS) S) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG2) 
       (MOVEI 1 (QUOTE (EXTRAARGS-P1SUBRARGS)) S) 
       (CALL 17 (E USERERR) S) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 1 0 P) 
       (CALL 1 (E MAPP1) S) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP PASS1 SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL CURBIND) S) 
       (0 0 (SPECIAL P1SCNT) S) 
       (0 0 (SPECIAL INPROG) S) 
       (0 0 (SPECIAL FOUNDFREE) S) 
       (PUSH P 2) 
       (CLEARM 0 (SPECIAL INPROG) S) 
       (MOVEI 1 (QUOTE 1)) 
       (MOVEM 1 (SPECIAL P1CNT) S) 
       (CLEARB 1 (SPECIAL SPECVARS) S) 
       (MOVEM 1 (SPECIAL LOCVARS) S) 
       (HRRZ@ 1 2) 
       (HLRZ@ 1 1) 
       (CALL 1 (E P1BIND) S) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (CALL 1 (E LENGTH) S) 
       (MOVE 2 (SPECIAL NACS) S) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG6) 
       (MOVEI 1 (QUOTE (EXTRAARGS-PASS1)) S) 
       (CALL 17 (E USERERR) S) 
 TAG6  (MOVEI 1 (QUOTE (SUBFUN)) S) 
       (CALL 17 (E STARTSYM) S) 
       (HLRZ@ 1 -2 P) 
       (PUSH P 1) 
       (MOVE 1 -3 P) 
       (CALL 1 (E CADDRLAM) S) 
       (CALL 1 (E P1) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 -2 P) 
       (CALL 2 (E XCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEM 1 -2 P) 
       (MOVEI 1 (QUOTE (SUBFUN)) S) 
       (CALL 17 (E STOPSYM) S) 
       (MOVE 1 (SPECIAL FOUNDFREE) S) 
       (JUMPE 1 TAG10) 
       (CALL 1 (E REVERSE) S) 
       (CALL 1 (E NCONS) S) 
       (PUSH P 1) 
       (CALL 0 (E CURFUN) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE (UNDECLARED FREE VARIABLES IN)) S) 
       (CALL 2 (E *APPEND) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E *APPEND) S) 
       (CALL 1 (E PRINTMSG) S) 
 TAG10 (MOVE 1 (SPECIAL LOCVARS) S) 
       (CLEARM 0 (SPECIAL LOCVARS) S) 
       (MOVEM 1 0 P) 
 TAG1  (MOVE 1 0 P) 
       (JUMPN 1 TAG14) 
       (MOVE 1 -2 P) 
       (JRST 0 TAG2) 
 TAG14 (HLRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E SPECIALP) S) 
       (JUMPN 1 TAG17) 
       (MOVE 2 (SPECIAL LOCVARS) S) 
       (HLRZ@ 1 0 P) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL LOCVARS) S) 
       (MOVEI 3 (QUOTE T) S) 
       (MOVEI 2 (QUOTE LOCAL) S) 
       (HLRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 3 (E SETPROP) S) 
       (JRST 0 TAG16) 
 TAG17 (MOVE 2 (SPECIAL SPECVARS) S) 
       (HLRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E ADDTOLIST) S) 
       (MOVEM 1 (SPECIAL SPECVARS) S) 
 TAG16 (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG2  (SUB P (C 3 0 3 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP PASS1FSUBR SUBR) 
       (POPJ P) 
       NIL 

(LAP PASS1FUNVAR SUBR) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (CALL 1 (E P1) S) 
       (PUSH P 1) 
       (HRRZ@ 1 -1 P) 
       (CALL 1 (E P1SUBRARGS) S) 
       (POP P 2) 
       (SUB P (C 1 0 1 0)) 
       (JCALL 2 (E XCONS) S) 
       NIL 

(LAP PASS1LSUBR SUBR) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (PUSH P 1) 
       (HRRZ@ 1 -1 P) 
       (CALL 1 (E MAPP1) S) 
       (POP P 2) 
       (SUB P (C 1 0 1 0)) 
       (JCALL 2 (E XCONS) S) 
       NIL 

(LAP PASS1MACRO SUBR) 
       (MOVEI 2 (QUOTE MACRO) S) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (CALL 2 (E GET) S) 
       (EXCH 1 0 P) 
       (CALLF@ 1 0 P) 
       (SUB P (C 1 0 1 0)) 
       (JCALL 1 (E P1) S) 
       NIL 

(LAP PASS1SUBR SUBR) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (PUSH P 1) 
       (HRRZ@ 1 -1 P) 
       (CALL 1 (E P1SUBRARGS) S) 
       (POP P 2) 
       (SUB P (C 1 0 1 0)) 
       (JCALL 2 (E XCONS) S) 
       NIL 

(LAP PASS1UNDEF SUBR) 
       (MOVE 2 (SPECIAL UNDFUNS) S) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (CALL 2 (E ADDTOLIST) S) 
       (MOVEM 1 (SPECIAL UNDFUNS) S) 
       (POP P 1) 
       (JCALL 1 (E PASS1SUBR) S) 
       NIL 

(LAP SPECIALP SUBR) 
       (MOVEI 2 (QUOTE SPECIAL) S) 
       (JCALL 2 (E HASPROP) S) 
       NIL 

(LAP VARB SUBR) 
       (PUSH P 1) 
       (MOVE 2 (SPECIAL CURBIND) S) 
       (CALL 2 (E ASSOCR) S) 
       (JUMPN 1 TAG3) 
       (MOVE 1 0 P) 
       (CALL 1 (E SPECIALP) S) 
       (JUMPN 1 TAG1) 
       (MOVE 2 (SPECIAL FOUNDFREE) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL FOUNDFREE) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E MAKESPECIAL) S) 
 TAG1  (MOVE 2 (SPECIAL SPECVARS) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E ADDTOLIST) S) 
       (MOVEM 1 (SPECIAL SPECVARS) S) 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG2) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
 TAG2  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP VARIABLEP SUBR) 
       (PUSH P 1) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG2) 
       (MOVE 1 0 P) 
       (CALL 1 (E CONSTANTP) S) 
       (JUMPE 1 TAG1) 
 TAG2  (TDZA 1 1) 
 TAG1  (MOVEI 1 (QUOTE T) S) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE PASS1)))) (QUOTE ((EXPR PASS1SUBR) (*EXP
R PASS1SUBR) (SUBR PASS1SUBR) (*SUBR PASS1SUBR) (*UNDEF PASS1UNDEF) (LSUBR PASS1LSUBR) (*LSUBR PASS1LSUBR) (FEXP
R PASS1FSUBR) (*FEXPR PASS1FSUBR) (FSUBR PASS1FSUBR) (*FSUBR PASS1FSUBR) (P1 DOP1) (FUNVAR PASS1FUNVAR) (MACRO P
ASS1MACRO)))) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE P1)))) (QUOTE ((COND P1COND) (GO P1GO) (
PROG P1PROG) (EVAL P1EVAL) (ERRSET P1ERRSET) (SETQ P1SETQ) (STORE P1STORE) (CONS P1CONS) (*FUNCTION P1*FUNCTION)
 (FUNCTION P1FUNCTION) (RETURN P1RETURN)))) 

(BEGINBLOCK INTERNALMACROS) 

(DEFPROP INMACRO PASS1INMACRO PASS1) 

(LAP PASS1INMACRO SUBR) 
       (MOVEI 2 (QUOTE INMACRO) S) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (CALL 2 (E GET) S) 
       (EXCH 1 0 P) 
       (CALLF@ 1 0 P) 
       (SUB P (C 1 0 1 0)) 
       (JCALL 1 (E P1) S) 
       NIL 

(LAP APPEND INMACRO) 
       (PUSH P 1) 
       (HRRZ@ 1 1) 
       (JUMPE 1 TAG1) 
       (HRRZ@ 1 0 P) 
       (HRRZ@ 1 1) 
       (JUMPN 1 TAG2) 
       (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (JRST 0 TAG1) 
 TAG2  (HRRZ@ 2 0 P) 
       (HRRZ@ 2 2) 
       (HLRZ@ 1 0 P) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E NCONS) S) 
       (HRRZ@ 2 0 P) 
       (HLRZ@ 2 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE *APPEND) S) 
       (CALL 2 (E XCONS) S) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP LIST INMACRO) 
       (PUSH P 1) 
       (HRRZ@ 1 1) 
       (JUMPE 1 TAG1) 
       (HRRZ@ 1 0 P) 
       (HRRZ@ 1 1) 
       (JUMPN 1 TAG2) 
       (HRRZ@ 2 0 P) 
       (MOVEI 1 (QUOTE NCONS) S) 
       (CALL 2 (E CONS) S) 
       (JRST 0 TAG1) 
 TAG2  (HRRZ@ 2 0 P) 
       (HRRZ@ 2 2) 
       (HLRZ@ 1 0 P) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E NCONS) S) 
       (HRRZ@ 2 0 P) 
       (HLRZ@ 2 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE CONS) S) 
       (CALL 2 (E XCONS) S) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP NOT INMACRO) 
       (HRRZ@ 2 1) 
       (MOVEI 1 (QUOTE NULL) S) 
       (JCALL 2 (E CONS) S) 
       NIL 

(LAP ZEROP INMACRO) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE 0)) 
       (CALL 1 (E NCONS) S) 
       (HRRZ@ 2 0 P) 
       (HLRZ@ 2 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE EQ) S) 
       (SUB P (C 1 0 1 0)) 
       (JCALL 2 (E XCONS) S) 
       NIL 

(ENDBLOCK INTERNALMACROS) 

(ENDBLOCK PASS1) 

(BEGINBLOCK PASS2) 

(LAP ACEFFECTS SUBR) 
       (PUSH P 1) 
       (MOVEI 2 (QUOTE ACS) S) 
       (CALL 2 (E SEEKPROP) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG2) 
       (CALL 1 (E CADR) S) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 1 (SPECIAL ALLACS) S) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP ACNUMP SUBR) 
       (PUSH P 1) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG2) 
       (MOVEI 2 (QUOTE 0)) 
       (MOVE 1 0 P) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG2) 
       (MOVE 1 (SPECIAL NACS) S) 
       (CALL 1 (E ADD1) S) 
       (MOVE 2 0 P) 
       (CALL 2 (E *GREAT) S) 
       (JUMPN 1 TAG1) 
 TAG2  (TDZA 1 1) 
 TAG1  (MOVEI 1 (QUOTE T) S) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP BINDARGS SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE 1) 0)) 
 TAG1  (MOVE 1 -1 P) 
       (JUMPE 1 TAG3) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVE 1 0 P) 
       (CALL 2 (E SETSLOT) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E ADD1) S) 
       (HRRZ@ 2 -1 P) 
       (MOVEM 1 0 P) 
       (MOVEM 2 -1 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP BOOLAND SUBR) 
       (MOVEI 4 (QUOTE T) S) 
       (PUSH P 3) 
       (HRRZ@ 3 3) 
       (HLRZ@ 2 0 P) 
       (HRRZ@ 1 1) 
       (CALL 4 (E BOOLARGS) S) 
       (MOVE 1 (SPECIAL P2CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P2CNT) S) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP BOOLARGS SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (PUSH P 4) 
       (CALL 0 (E GUARDLOCS) S) 
       (CALL 0 (E CLEAR1) S) 
       (MOVE 1 -1 P) 
       (CALL 1 (E RST) S) 
       (MOVEI 1 (QUOTE (TAG)) S) 
       (CALL 17 (E NEXTSYM) S) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL PDL) S) 
       (CALL 1 (E TOPCOPY) S) 
       (MOVEI 3 (QUOTE LEVEL) S) 
       (MOVE 2 1) 
       (MOVE 1 0 P) 
       (CALL 3 (E PUTPROP) S) 
 TAG1  (MOVE 1 -4 P) 
       (JUMPN 1 TAG10) 
       (MOVE 1 -3 P) 
       (JUMPE 1 TAG13) 
       (MOVE 1 -2 P) 
       (CALL 1 (E OUTJRST) S) 
 TAG13 (JRST 0 TAG3) 
 TAG10 (MOVE 1 -3 P) 
       (JUMPE 1 TAG16) 
       (HRRZ@ 1 -4 P) 
       (JUMPE 1 TAG2) 
 TAG16 (HLRZ@ 1 -4 P) 
       (MOVE 2 -1 P) 
       (PUSH P 1) 
       (JUMPE 2 TAG20) 
       (TDZA 1 1) 
 TAG20 (MOVEI 1 (QUOTE T) S) 
       (PUSH P 1) 
       (MOVE 1 -5 P) 
       (JUMPE 1 TAG22) 
       (MOVE 2 -2 P) 
       (JRST 0 TAG21) 
 TAG22 (MOVE 2 -4 P) 
 TAG21 (POP P 1) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 1) 
       (EXCH 1 0 P) 
       (CALL 2 (E COMPPRED) S) 
       (SUB P (C 1 0 1 0)) 
       (HRRZ@ 1 -4 P) 
       (MOVEM 1 -4 P) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 2 -2 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 1) 
       (HLRZ@ 1 -4 P) 
       (CALL 2 (E COMPPRED) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E OUTENDTAG) S) 
 TAG3  (CALL 0 (E CLEARBOTH) S) 
       (CALL 0 (E CLEARACS) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(LAP BOOLEQ SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (HRRZ@ 1 1) 
       (MOVEM 1 -2 P) 
       (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)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (JUMPN 2 TAG5) 
       (JUMPN 3 TAG5) 
       (HRRZ@ 1 -12 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E COMPSTAT) S) 
       (HRRZ@ 1 -12 P) 
       (CALL 1 (E CADR) S) 
       (CALL 1 (E COMPSTAT) S) 
       (JRST 0 TAG2) 
 TAG5  (MOVE 1 -11 P) 
       (JUMPN 1 TAG15) 
       (MOVE 1 -10 P) 
       (JUMPN 1 TAG13) 
 TAG15 (CLEARM 0 -7 P) 
       (CLEARM 0 -6 P) 
       (JRST 0 TAG12) 
 TAG13 (HLRZ@ 1 -10 P) 
       (HRRZ@ 2 -10 P) 
       (MOVEM 1 -7 P) 
       (MOVEM 2 -6 P) 
 TAG12 (MOVE 1 -12 P) 
       (CALL 1 (E LENGTH) S) 
       (CAIN 1 (QUOTE 2)) 
       (JRST 0 TAG24) 
       (MOVEI 1 (QUOTE (ARGNOERR-BOOLEQ)) S) 
       (CALL 17 (E USERERR) S) 
 TAG24 (HLRZ@ 1 -12 P) 
       (PUSH P 1) 
       (CALL 0 (E FREEAC) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E COMPEXPR) S) 
       (MOVEM 1 0 P) 
       (HRRZ@ 1 -12 P) 
       (HLRZ@ 1 1) 
       (PUSH P 1) 
       (CALL 0 (E FREEAC) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E COMPEXPR) S) 
       (MOVEM 1 -1 P) 
       (CALL 1 (E LOC) S) 
       (MOVEM 1 -3 P) 
       (MOVE 1 0 P) 
       (CALL 1 (E LOC) S) 
       (MOVEM 1 -2 P) 
       (MOVE 1 -6 P) 
       (CALL 1 (E RST) S) 
       (MOVE 1 -2 P) 
       (CALL 1 (E ACNUMP) S) 
       (JUMPE 1 TAG27) 
       (MOVE 1 -2 P) 
       (MOVEM 1 -4 P) 
       (MOVE 1 -1 P) 
       (CALL 1 (E LOC) S) 
       (MOVEM 1 -5 P) 
       (JRST 0 TAG26) 
 TAG27 (MOVE 1 -3 P) 
       (CALL 1 (E ACNUMP) S) 
       (JUMPE 1 TAG30) 
       (MOVE 1 -3 P) 
       (MOVEM 1 -4 P) 
       (MOVE 1 0 P) 
       (CALL 1 (E LOC) S) 
       (MOVEM 1 -5 P) 
       (JRST 0 TAG26) 
 TAG30 (CALL 0 (E FREEAC) S) 
       (MOVE 2 0 P) 
       (MOVEM 1 -4 P) 
       (CALL 2 (E LOADARG) S) 
       (MOVE 1 -1 P) 
       (CALL 1 (E LOC) S) 
       (MOVEM 1 -5 P) 
 TAG26 (MOVE 1 0 P) 
       (CALL 1 (E REMOVE) S) 
       (MOVE 1 -1 P) 
       (CALL 1 (E REMOVE) S) 
       (CALL 0 (E SAVEACS) S) 
       (MOVE 1 -7 P) 
       (JUMPE 1 TAG34) 
       (MOVEI 1 (QUOTE CAMN) S) 
       (JRST 0 TAG33) 
 TAG34 (MOVEI 1 (QUOTE CAME) S) 
 TAG33 (MOVE 3 -5 P) 
       (MOVE 2 -4 P) 
       (CALL 3 (E OUT1) S) 
       (MOVE 1 -11 P) 
       (JUMPE 1 TAG40) 
       (MOVE 2 -6 P) 
       (CALL 2 (E BOOLVALUE) S) 
       (MOVEM 1 -4 P) 
 TAG40 (MOVE 1 -10 P) 
       (JUMPE 1 TAG44) 
       (HRRZ@ 1 1) 
       (CALL 1 (E OUTJRST) S) 
 TAG44 (MOVE 1 -4 P) 
       (JRST 0 TAG1) 
 TAG2  (MOVEI 1 (QUOTE NIL)) 
 TAG1  (SUB P (C 13 0 13 0)) 
       (POPJ P) 
       NIL 

(LAP BOOLEXPR SUBR) 
       (PUSH P 2) 
       (MOVEI 2 (QUOTE P2BOOL) S) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (CALL 2 (E GET) S) 
       (EXCH 2 -1 P) 
       (EXCH 1 0 P) 
       (CALLF@ 3 0 P) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP BOOLNULL SUBR) 
       (CALL 1 (E CADR) S) 
       (HLRZ@ 2 3) 
       (PUSH P 1) 
       (PUSH P 3) 
       (JUMPE 2 TAG1) 
       (TDZA 1 1) 
 TAG1  (MOVEI 1 (QUOTE T) S) 
       (HRRZ@ 2 0 P) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 1) 
       (EXCH 1 -1 P) 
       (SUB P (C 2 0 2 0)) 
       (JCALL 2 (E COMPPRED) S) 
       NIL 

(LAP BOOLOR SUBR) 
       (HRRZ@ 1 1) 
       (HLRZ@ 2 3) 
       (PUSH P 1) 
       (PUSH P 3) 
       (JUMPE 2 TAG1) 
       (TDZA 2 2) 
 TAG1  (MOVEI 2 (QUOTE T) S) 
       (MOVEI 4 (QUOTE NIL)) 
       (HRRZ@ 3 0 P) 
       (MOVE 1 -1 P) 
       (CALL 4 (E BOOLARGS) S) 
       (MOVE 1 (SPECIAL P2CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P2CNT) S) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP BOOLVALUE SUBR) 
       (MOVE 3 1) 
       (PUSH P 2) 
       (MOVE 2 1) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE TDZA) S) 
       (CALL 3 (E OUT1) S) 
       (EXCH 1 -1 P) 
       (CALL 1 (E OUTENDTAG) S) 
       (MOVEI 3 (QUOTE (QUOTE T)) S) 
       (MOVE 2 0 P) 
       (MOVEI 1 (QUOTE MOVEI) S) 
       (CALL 3 (E OUT1) S) 
       (MOVE 2 0 P) 
       (MOVE 1 2) 
       (SUB P (C 2 0 2 0)) 
       (JCALL 2 (E MARKVAL) S) 
       NIL 

(LAP CALLFSUBR SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (HLRZ@ 1 1) 
       (HRRZ@ 2 -2 P) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CALL 0 (E CLEARBOTH) S) 
       (MOVEI 2 (QUOTE QT) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 1) 
       (MOVE 1 (SPECIAL FARGAC) S) 
       (CALL 2 (E LOADARG) S) 
       (MOVE 1 -1 P) 
       (CALL 1 (E PROTECTACS) S) 
       (MOVE 2 (SPECIAL VALUEAC) S) 
       (MOVE 1 -3 P) 
       (CALL 2 (E MARKVAL) S) 
       (MOVE 2 -1 P) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE 17)) 
       (CALL 2 (E OUTCALL) S) 
       (MOVE 2 -3 P) 
       (MOVE 1 0 P) 
       (SUB P (C 6 0 6 0)) 
       (JCALL 2 (E TESTJUMP) S) 
       NIL 

(LAP CALLFUNARGS SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (HLRZ@ 1 1) 
       (HRRZ@ 2 -2 P) 
       (PUSH P 2) 
       (MOVE 2 (SPECIAL VALUEAC) S) 
       (PUSH P 1) 
       (CALL 2 (E COMPEXPR) S) 
       (PUSH P 1) 
       (MOVE 1 -2 P) 
       (CALL 1 (E COMPARGS) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (PUSH P 1) 
       (CALL 2 (E CLRCCLST) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E LOADSUBRARGS) S) 
       (CALL 0 (E CLEARBOTH) S) 
       (CALL 0 (E CLEARACS) S) 
       (MOVE 2 (SPECIAL VALUEAC) S) 
       (MOVE 1 -5 P) 
       (CALL 2 (E MARKVAL) S) 
       (PUSH P 1) 
       (MOVE 1 -1 P) 
       (CALL 1 (E LENGTH) S) 
       (PUSH P 1) 
       (MOVE 1 -3 P) 
       (CALL 1 (E LOC) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E OUTCALLF) S) 
       (MOVE 1 -2 P) 
       (CALL 1 (E REMOVE) S) 
       (MOVE 2 -5 P) 
       (MOVE 1 0 P) 
       (SUB P (C 10 0 10 0)) 
       (JCALL 2 (E TESTJUMP) S) 
       NIL 

(LAP CALLLSUBR SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (HLRZ@ 1 1) 
       (HRRZ@ 2 -2 P) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CALL 0 (E CLEAR1) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E LENGTH) S) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE (NIL . TAKEN)) S) 
       (CALL 1 (E SLOTPUSH) S) 
       (MOVEI 1 (QUOTE (TAG)) S) 
       (CALL 17 (E NEXTSYM) S) 
       (MOVEI 5 (QUOTE 0)) 
       (MOVEI 4 (QUOTE 0)) 
       (MOVE 3 1) 
       (MOVEI 2 (QUOTE 0)) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE 0)) 
       (CALL 5 (E GENCONST) S) 
       (CALL 1 (E OUTPUSH) S) 
       (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)) 
 TAG1  (MOVE 1 -6 P) 
       (JUMPE 1 TAG2) 
       (MOVE 1 (SPECIAL PDL) S) 
       (CALL 1 (E TOPCOPY) S) 
       (MOVE 2 (SPECIAL VALUEAC) S) 
       (MOVEM 1 0 P) 
       (HLRZ@ 1 -6 P) 
       (CALL 2 (E COMPEXPR) S) 
       (MOVEM 1 -1 P) 
       (MOVE 1 0 P) 
       (CALL 1 (E RESTORE) S) 
       (MOVE 1 -1 P) 
       (CALL 1 (E LOC) S) 
       (MOVEM 1 -2 P) 
       (MOVEI 1 (QUOTE (NIL . TAKEN)) S) 
       (CALL 1 (E SLOTPUSH) S) 
       (MOVE 1 -2 P) 
       (CALL 1 (E OUTPUSH) S) 
       (MOVE 1 -1 P) 
       (CALL 1 (E REMOVE) S) 
       (HRRZ@ 1 -6 P) 
       (MOVEM 1 -6 P) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 1 (SPECIAL PDLDEPTH) S) 
       (MOVEM 1 -2 P) 
       (CALL 0 (E SAVEACS) S) 
       (MOVE 1 (SPECIAL PDLDEPTH) S) 
       (CAMN 1 -2 P) 
       (JRST 0 TAG13) 
       (MOVEI 1 (QUOTE (PDLTOOLONG-LSUBRCALL)) S) 
       (CALL 17 (E COMPERR) S) 
 TAG13 (MOVE 1 -5 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE 6)) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE MOVNI) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E OUTSTAT) S) 
 TAG3  (CALL 0 (E SLOTPOP) S) 
       (MOVE 1 -5 P) 
       (CAIN 1 (QUOTE 0)) 
       (JRST 0 TAG4) 
       (MOVE 1 -5 P) 
       (CALL 1 (E SUB1) S) 
       (MOVEM 1 -5 P) 
       (JRST 0 TAG3) 
 TAG4  (CALL 0 (E CLEARBOTH) S) 
       (CALL 0 (E CLEARACS) S) 
       (MOVE 2 (SPECIAL VALUEAC) S) 
       (MOVE 1 -11 P) 
       (CALL 2 (E MARKVAL) S) 
       (MOVE 2 -7 P) 
       (MOVEM 1 -3 P) 
       (MOVEI 1 (QUOTE 16)) 
       (CALL 2 (E OUTJCALL) S) 
       (MOVE 1 -4 P) 
       (CALL 1 (E OUTSTAT) S) 
       (MOVE 2 -10 P) 
       (MOVE 1 -3 P) 
       (SUB P (C 13 0 13 0)) 
       (JCALL 2 (E TESTJUMP) S) 
       NIL 

(LAP CALLSUBR SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (HLRZ@ 1 1) 
       (HRRZ@ 2 -2 P) 
       (PUSH P 1) 
       (MOVE 1 2) 
       (PUSH P 2) 
       (CALL 1 (E COMPARGS) S) 
       (PUSH P 1) 
       (CALL 1 (E LENGTH) S) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVEI 2 (QUOTE COMMU) S) 
       (MOVE 1 -5 P) 
       (CALL 2 (E SEEKPROP) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG5) 
       (MOVE 1 -2 P) 
       (CAIE 1 (QUOTE 2)) 
       (JRST 0 TAG5) 
       (MOVE 2 (SPECIAL VALUEAC) S) 
       (HLRZ@ 1 -3 P) 
       (CALL 2 (E ILOC) S) 
       (CAME 1 (SPECIAL VALUEAC) S) 
       (JRST 0 TAG5) 
       (MOVE 1 -3 P) 
       (CALL 1 (E REVERSE) S) 
       (HRRZ@ 2 0 P) 
       (HLRZ@ 2 2) 
       (MOVEM 1 -3 P) 
       (MOVEM 2 -5 P) 
 TAG5  (MOVE 1 -5 P) 
       (CALL 1 (E SIDEEFFECTS) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG11) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 1 -3 P) 
       (CALL 2 (E CLRCCLST) S) 
 TAG11 (MOVE 1 -3 P) 
       (CALL 1 (E LOADSUBRARGS) S) 
       (MOVE 1 0 P) 
       (JUMPE 1 TAG13) 
       (CALL 0 (E CLEARBOTH) S) 
 TAG13 (MOVE 1 -5 P) 
       (CALL 1 (E PROTECTACS) S) 
       (MOVE 2 (SPECIAL VALUEAC) S) 
       (MOVE 1 -7 P) 
       (CALL 2 (E MARKVAL) S) 
       (MOVE 2 -5 P) 
       (MOVEM 1 -1 P) 
       (MOVE 1 -2 P) 
       (CALL 2 (E OUTCALL) S) 
       (MOVE 2 -6 P) 
       (MOVE 1 -1 P) 
       (SUB P (C 11 0 11 0)) 
       (JCALL 2 (E TESTJUMP) S) 
       NIL 

(LAP CLEAR1 SUBR) 
       (CALL 0 (E CLEARBOTH) S) 
       (CALL 0 (E SAVEACS) S) 
       (JCALL 0 (E CLRPVARS) S) 
       NIL 

(LAP CLEARBOTH SUBR) 
       (MOVEI 2 (QUOTE T) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E CLRCCLST) S) 
       (JCALL 0 (E CLRSPLD) S) 
       NIL 

(LAP CLEARAC SUBR) 
       (PUSH P 1) 
       (CALL 1 (E CPUSH) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (POP P 1) 
       (JCALL 2 (E SETSLOT) S) 
       NIL 

(LAP CLEARITALL SUBR) 
       (CALL 0 (E CLEARBOTH) S) 
       (JCALL 0 (E CLEARACS) S) 
       NIL 

(LAP CLEARACS SUBR) 
       (PUSH P (SPECIAL NACS) S) 
 TAG1  (MOVE 1 0 P) 
       (CAIN 1 (QUOTE 0)) 
       (JRST 0 TAG3) 
       (MOVE 1 0 P) 
       (CALL 1 (E CLEARAC) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E SUB1) S) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP CLRCCLST SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P (SPECIAL CCLST) S) 
 TAG1  (MOVE 1 0 P) 
       (JUMPN 1 TAG7) 
       (MOVE 1 -1 P) 
       (JUMPE 1 TAG12) 
       (CLEARM 0 (SPECIAL CCLST) S) 
 TAG12 (JRST 0 TAG4) 
 TAG7  (MOVE 2 -2 P) 
       (HLRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E ASSOC) S) 
       (JUMPN 1 TAG2) 
       (MOVE 2 (SPECIAL VALUEAC) S) 
       (HLRZ@ 1 0 P) 
       (CALL 2 (E CSFUN) S) 
 TAG2  (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG4  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP CLRPVARS SUBR) 
       (MOVE 1 (SPECIAL PROGSW) S) 
       (JUMPE 1 TAG3) 
       (CLEARM 0 (SPECIAL PROGSW) S) 
 TAG1  (MOVE 1 (SPECIAL PROGVARS) S) 
       (JUMPN 1 TAG10) 
       (MOVE 1 (SPECIAL PDL) S) 
       (CALL 1 (E TOPCOPY) S) 
       (MOVEM 1 (SPECIAL PRSSL) S) 
       (MOVE 1 (SPECIAL PDLDEPTH) S) 
       (MOVEM 1 (SPECIAL MINDEPTH) S) 
       (JRST 0 TAG3) 
 TAG10 (MOVE 2 (SPECIAL P2CNT) S) 
       (HLRZ@ 1 1) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 (SPECIAL VALUEAC) S) 
       (CALL 2 (E ILOC) S) 
       (JUMPN 1 TAG12) 
       (HLRZ@ 1 (SPECIAL PROGVARS) S) 
       (CALL 1 (E INITZ) S) 
 TAG12 (HRRZ@ 1 (SPECIAL PROGVARS) S) 
       (MOVEM 1 (SPECIAL PROGVARS) S) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (POPJ P) 
       NIL 

(LAP CLRSPLD SUBR) 
       (PUSH P (SPECIAL LDLST) S) 
 TAG1  (MOVE 1 0 P) 
       (JUMPE 1 TAG3) 
       (HLRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E SPECVARP) S) 
       (JUMPE 1 TAG10) 
       (HLRZ@ 1 0 P) 
       (CALL 1 (E CLRSPVAR) S) 
 TAG10 (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP CLRSPVAR SUBR) 
       (PUSH P 1) 
       (MOVE 2 (SPECIAL VALUEAC) S) 
       (CALL 2 (E ILOC) S) 
       (PUSH P 1) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPN 1 TAG5) 
       (MOVE 2 (SPECIAL P2CNT) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E SLOTPUSH) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE SPECIAL) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E OUTPUSH) S) 
       (JRST 0 TAG4) 
 TAG5  (MOVE 1 0 P) 
       (CALL 1 (E ACNUMP) S) 
       (JUMPE 1 TAG7) 
       (MOVE 1 0 P) 
       (CALL 1 (E SLOTCONT) S) 
       (CALL 1 (E SLOTPUSH) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E OUTPUSH) S) 
 TAG7 
 TAG4  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP COMPARGS SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE 0) 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  (MOVE 1 -1 P) 
       (CALL 1 (E ADD1) S) 
       (MOVE 2 1) 
       (MOVEM 1 -1 P) 
       (HLRZ@ 1 -2 P) 
       (CALL 2 (E COMPEXPR) S) 
       (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 COMPEXPR SUBR) 
       (MOVEI 3 (QUOTE NIL)) 
       (JCALL 3 (E COMPFORM) S) 
       NIL 

(LAP COMPPRED SUBR) 
       (MOVE 3 2) 
       (MOVEI 2 (QUOTE NIL)) 
       (JCALL 3 (E COMPFORM) S) 
       NIL 

(LAP COMPFORM SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG1) 
       (HLRZ@ 1 -3 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG2) 
       (HLRZ@ 1 -3 P) 
       (HLRZ@ 1 1) 
       (CAIE 1 (QUOTE LAMBDA) S) 
       (JRST 0 TAG11) 
       (MOVE 1 -3 P) 
       (CALL 3 (E INTERNALLAMBDA) S) 
       (JRST 0 TAG3) 
 TAG11 (MOVE 3 -1 P) 
       (MOVE 2 -2 P) 
       (MOVE 1 -3 P) 
       (CALL 3 (E CALLFUNARGS) S) 
       (JRST 0 TAG3) 
 TAG1  (MOVE 1 (SPECIAL P2CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P2CNT) S) 
       (MOVE 2 -3 P) 
       (CALL 2 (E XCONS) S) 
       (MOVEM 1 0 P) 
       (MOVE 1 -2 P) 
       (JUMPE 1 TAG13) 
       (MOVE 2 (SPECIAL LDLST) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL LDLST) S) 
 TAG13 (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E TESTJUMP) S) 
       (JRST 0 TAG3) 
 TAG2  (MOVEI 2 (QUOTE PASS2) S) 
       (HLRZ@ 1 -3 P) 
       (CALL 2 (E GETGET) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG17) 
       (CALL 1 (E CADR) S) 
       (MOVE 3 -1 P) 
       (MOVE 2 -2 P) 
       (PUSH P 1) 
       (MOVE 1 -4 P) 
       (CALLF@ 3 0 P) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG3) 
 TAG17 (HLRZ@ 1 -3 P) 
       (CALL 1 (E SPECVARP) S) 
       (JUMPN 1 TAG23) 
       (MOVE 2 (SPECIAL LOCVARS) S) 
       (HLRZ@ 1 -3 P) 
       (CALL 2 (E ASSOC) S) 
       (JUMPE 1 TAG21) 
 TAG23 (MOVE 3 -1 P) 
       (MOVE 2 -2 P) 
       (MOVE 1 -3 P) 
       (CALL 3 (E CALLFUNARGS) S) 
       (JRST 0 TAG3) 
 TAG21 (MOVEI 1 (QUOTE (UNKNOWNFUNCTION-COMPFORM)) S) 
       (CALL 17 (E COMPERR) S) 
       (MOVEI 1 (QUOTE NIL)) 
 TAG3  (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(LAP COMPSTAT SUBR) 
       (MOVEI 3 (QUOTE NIL)) 
       (MOVEI 2 (QUOTE NIL)) 
       (JCALL 3 (E COMPFORM) S) 
       NIL 

(LAP COPT SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (MOVE 1 3) 
       (CALL 2 (E ILOC) S) 
       (PUSH P (SPECIAL CCLST) S) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVE 1 -2 P) 
       (JUMPE 1 TAG3) 
       (CALL 1 (E CADAR) S) 
       (CAME 1 -5 P) 
       (JRST 0 TAG7) 
       (MOVE 2 -4 P) 
       (HLRZ@ 1 -2 P) 
       (CALL 1 (E CDDR) S) 
       (CALL 2 (E ILOC) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 TAG7) 
       (HLRZ@ 1 -2 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 -4 P) 
       (MOVEM 1 0 P) 
       (CALL 2 (E ILOC) S) 
       (JUMPE 1 TAG7) 
       (MOVE 1 0 P) 
       (JRST 0 TAG2) 
 TAG7  (HRRZ@ 1 -2 P) 
       (MOVEM 1 -2 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
 TAG2  (SUB P (C 6 0 6 0)) 
       (POPJ P) 
       NIL 

(LAP CPUSH SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (CALL 1 (E SLOTCONT) S) 
       (MOVEM 1 -2 P) 
       (CALL 1 (E DVP) S) 
       (JUMPE 1 TAG10) 
       (MOVEI 2 (QUOTE 1)) 
       (MOVE 1 -4 P) 
       (CALL 2 (E *LESS) S) 
       (JUMPN 1 TAG6) 
 TAG1  (MOVEI 1 (QUOTE 0)) 
       (MOVE 2 (SPECIAL PDL) S) 
       (MOVEM 2 0 P) 
       (MOVEM 1 -1 P) 
 TAG2  (MOVE 1 0 P) 
       (JUMPE 1 TAG5) 
       (HLRZ@ 1 0 P) 
       (CALL 1 (E DVP) S) 
       (JUMPN 1 TAG3) 
       (HLRZ@ 1 0 P) 
       (HRRZ@ 1 1) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG23) 
       (HLRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E SPECVARP) S) 
       (JUMPE 1 TAG21) 
 TAG23 (MOVE 1 -1 P) 
       (MOVEM 1 -3 P) 
 TAG21 (HLRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (HLRZ@ 2 -2 P) 
       (CAMN 2 1) 
       (JRST 0 TAG4) 
 TAG3  (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (MOVE 1 -1 P) 
       (CALL 1 (E SUB1) S) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG2) 
 TAG4  (MOVE 2 -2 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E SETSLOT) S) 
       (HRRZ@ 1 -2 P) 
       (JUMPN 1 TAG27) 
       (MOVEI 2 (QUOTE DUP) S) 
       (HLRZ@ 1 -2 P) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 1) 
       (MOVE 1 -4 P) 
       (CALL 2 (E SETSLOT) S) 
 TAG27 (MOVE 2 -1 P) 
       (MOVE 1 -4 P) 
       (CALL 2 (E OUTMOVEM) S) 
       (JRST 0 TAG10) 
 TAG5  (MOVE 1 -3 P) 
       (JUMPE 1 TAG32) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG4) 
 TAG32 
 TAG6  (MOVE 1 (SPECIAL PROGSW) S) 
       (JUMPE 1 TAG34) 
       (MOVE 2 (SPECIAL LOCVARS) S) 
       (HLRZ@ 1 -2 P) 
       (CALL 2 (E ASSOC) S) 
       (JUMPN 1 TAG34) 
       (MOVE 1 (SPECIAL PDLDEPTH) S) 
       (MOVEM 1 0 P) 
       (CALL 0 (E CLRPVARS) S) 
       (MOVEI 2 (QUOTE 1)) 
       (MOVE 1 -4 P) 
       (CALL 2 (E *LESS) S) 
       (JUMPE 1 TAG41) 
       (MOVE 2 (SPECIAL PDLDEPTH) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E *DIF) S) 
       (MOVE 2 -4 P) 
       (CALL 2 (E *PLUS) S) 
       (MOVEM 1 -4 P) 
 TAG41 
 TAG34 (MOVE 1 -2 P) 
       (CALL 1 (E SLOTPUSH) S) 
       (PUSH P -4 P) 
       (HRRZ@ 1 -3 P) 
       (JUMPN 1 TAG43) 
       (MOVEI 2 (QUOTE DUP) S) 
       (HLRZ@ 1 -3 P) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 1) 
       (JRST 0 TAG42) 
 TAG43 (MOVEI 2 (QUOTE NIL)) 
 TAG42 (POP P 1) 
       (CALL 2 (E SETSLOT) S) 
       (MOVE 1 -4 P) 
       (CALL 1 (E OUTPUSH) S) 
 TAG10 (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(LAP CSFUN SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVE 2 (SPECIAL LDLST) S) 
       (HLRZ@ 1 1) 
       (CALL 2 (E ASSOC) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG5) 
       (MOVE 2 -1 P) 
       (CALL 2 (E ILOC) S) 
       (JUMPN 1 TAG5) 
       (MOVE 2 -1 P) 
       (MOVE 1 -2 P) 
       (CALL 2 (E LOADCARCDR) S) 
 TAG5  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP CSTEP SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (JUMPN 1 TAG5) 
       (MOVE 1 3) 
       (CALL 1 (E NCONS) S) 
       (JRST 0 TAG1) 
 TAG5  (MOVE 3 -1 P) 
       (MOVE 2 -2 P) 
       (MOVE 1 -3 P) 
       (CALL 3 (E COPT) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG10) 
       (CALL 1 (E NCONS) S) 
       (JRST 0 TAG1) 
 TAG10 (MOVEI 2 (QUOTE CARCDR) S) 
       (MOVE 1 -3 P) 
       (CALL 2 (E GET) S) 
       (MOVEM 1 0 P) 
       (HLRZ@ 1 1) 
       (MOVE 3 -1 P) 
       (MOVE 2 -2 P) 
       (PUSH P 1) 
       (HRRZ@ 1 -1 P) 
       (CALL 3 (E CSTEP) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
 TAG1  (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(LAP DOP2BOOL SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (CALL 0 (E CLEARBOTH) S) 
       (MOVEI 1 (QUOTE (TAG)) S) 
       (CALL 17 (E NEXTSYM) S) 
       (MOVEI 3 (QUOTE SET) S) 
       (MOVEI 2 (QUOTE T) S) 
       (PUSH P 1) 
       (CALL 3 (E PUTPROP) S) 
       (MOVE 1 -2 P) 
       (JUMPE 1 TAG5) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL CTAG) S) 
       (0 0 (SPECIAL RSL) S) 
       (MOVE 2 0 P) 
       (MOVEI 1 (QUOTE T) S) 
       (CALL 2 (E CONS) S) 
       (MOVE 3 1) 
       (MOVE 2 -2 P) 
       (MOVE 1 -3 P) 
       (CALL 3 (E BOOLEXPR) S) 
       (MOVE 2 0 P) 
       (MOVE 1 -2 P) 
       (CALL 2 (E BOOLVALUE) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E TESTJUMP) S) 
       (PUSHJ P SPECSTR) 
       (JRST 0 TAG1) 
 TAG5  (PUSH P -2 P) 
       (PUSH P -4 P) 
       (MOVE 1 -3 P) 
       (JUMPN 1 TAG14) 
       (MOVE 2 -2 P) 
       (MOVEI 1 (QUOTE T) S) 
       (CALL 2 (E CONS) S) 
       (MOVE 3 1) 
       (JRST 0 TAG13) 
 TAG14 (MOVE 3 -3 P) 
 TAG13 (MOVE 2 -1 P) 
       (POP P 1) 
       (CALL 3 (E BOOLEXPR) S) 
       (SUB P (C 1 0 1 0)) 
       (MOVE 1 -1 P) 
       (JUMPN 1 TAG21) 
       (MOVE 1 0 P) 
       (CALL 1 (E OUTENDTAG) S) 
 TAG21 (MOVEI 1 (QUOTE NIL)) 
 TAG1  (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(LAP DOP2ELSE SUBR) 
       (PUSH P 2) 
       (MOVEI 2 (QUOTE P2ELSE) S) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (CALL 2 (E GET) S) 
       (EXCH 2 -1 P) 
       (EXCH 1 0 P) 
       (CALLF@ 3 0 P) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP DOP2VAL SUBR) 
       (PUSH P 2) 
       (MOVEI 2 (QUOTE P2VAL) S) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (CALL 2 (E GET) S) 
       (PUSH P 3) 
       (EXCH 2 -2 P) 
       (EXCH 1 -1 P) 
       (CALLF@ 3 -1 P) 
       (POP P 2) 
       (SUB P (C 2 0 2 0)) 
       (JCALL 2 (E TESTJUMP) S) 
       NIL 

(LAP DVP SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (JUMPE 1 TAG3) 
       (HRRZ@ 1 -2 P) 
       (CAIN 1 (QUOTE QT) S) 
       (JRST 0 TAG3) 
       (HRRZ@ 1 -2 P) 
       (CAIN 1 (QUOTE DUP) S) 
       (JRST 0 TAG3) 
       (HRRZ@ 1 -2 P) 
       (CAIE 1 (QUOTE TAKEN) S) 
       (JRST 0 TAG12) 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG2) 
 TAG12 (HLRZ@ 1 -2 P) 
       (CALL 1 (E SPECVARP) S) 
       (JUMPE 1 TAG15) 
       (HRRZ@ 1 -2 P) 
       (JUMPE 1 TAG3) 
 TAG15 (MOVE 2 (SPECIAL LOCVARS) S) 
       (HLRZ@ 1 -2 P) 
       (CALL 2 (E ASSOC) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG20) 
       (HRRZ@ 1 -2 P) 
       (JUMPN 1 TAG20) 
       (HRRZ@ 2 0 P) 
       (MOVE 1 (SPECIAL P2CNT) S) 
       (CALL 2 (E *LESS) S) 
       (JUMPE 1 TAG20) 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG2) 
 TAG20 (MOVE 1 (SPECIAL LDLST) S) 
       (MOVEM 1 -1 P) 
 TAG1  (MOVE 1 -1 P) 
       (JUMPN 1 TAG25) 
       (MOVE 2 (SPECIAL VARLIST) S) 
       (HLRZ@ 1 -2 P) 
       (CALL 2 (E ASSOC) S) 
       (MOVEM 1 -1 P) 
       (JUMPE 1 TAG30) 
       (HRRZ@ 2 -2 P) 
       (HRRZ@ 1 1) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E DVP) S) 
       (JRST 0 TAG27) 
 TAG30 (MOVEI 1 (QUOTE NIL)) 
 TAG27 (JRST 0 TAG2) 
 TAG25 (HLRZ@ 1 -2 P) 
       (HLRZ@ 2 -1 P) 
       (HLRZ@ 2 2) 
       (CAME 2 1) 
       (JRST 0 TAG34) 
       (HRRZ@ 1 -2 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG40) 
       (MOVE 1 -2 P) 
       (JRST 0 TAG37) 
 TAG40 (MOVE 2 (SPECIAL P2CNT) S) 
       (HLRZ@ 1 -2 P) 
       (CALL 2 (E CONS) S) 
 TAG37 (CALL 1 (E LOC) S) 
       (PUSH P 1) 
       (HLRZ@ 1 -2 P) 
       (CALL 1 (E LOC) S) 
       (POP P 2) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 TAG34) 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG2) 
 TAG34 (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
 TAG2  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP EQUIVTAG SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVE 2 (SPECIAL GOLIST) S) 
       (CALL 2 (E ASSOC) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG5) 
       (HRRZ@ 1 1) 
       (JRST 0 TAG1) 
 TAG5  (MOVE 1 -1 P) 
       (CALL 1 (E NCONS) S) 
       (PUSH P 1) 
       (CALL 0 (E CURFUN) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE (UNDEFINED TAG IN)) S) 
       (CALL 2 (E *APPEND) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E *APPEND) S) 
       (CALL 1 (E PRINTMSG) S) 
       (MOVE 1 (SPECIAL EXIT) S) 
 TAG1  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP EXITBUM SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVEI 2 (QUOTE ((CALL JCALL) (PUSHJ JRST))) S) 
       (HLRZ@ 1 (SPECIAL LASTOUT) S) 
       (HLRZ@ 1 1) 
       (CALL 2 (E ASSOC) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG5) 
       (HLRZ@ 1 (SPECIAL LASTOUT) S) 
       (CLEARM 0 (SPECIAL LASTOUT) S) 
       (MOVEM 1 -1 P) 
       (CALL 0 (E KILLPDL) S) 
       (MOVE 1 -1 P) 
       (CALL 1 (E OUTSTAT) S) 
       (MOVE 1 -2 P) 
       (JUMPN 1 TAG7) 
       (HLRZ@ 1 (SPECIAL LASTOUT) S) 
       (CLEARM 0 (SPECIAL LASTOUT) S) 
       (MOVEM 1 -1 P) 
       (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (HRRZ@ 3 -1 P) 
       (HLRZ@ 3 3) 
       (MOVEI 2 (QUOTE P) S) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE 0)) 
       (CALL 3 (E SUBST) S) 
       (HRRZ@ 2 -2 P) 
       (HRRZ@ 2 2) 
       (CALL 2 (E CONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E OUTSTAT) S) 
       (JRST 0 TAG2) 
 TAG7 
 TAG5  (CALL 0 (E KILLPDL) S) 
       (MOVE 1 -2 P) 
       (JUMPE 1 TAG12) 
       (MOVEI 1 (QUOTE (JRST 0 SPECSTR)) S) 
       (CALL 1 (E OUTSTAT) S) 
       (JRST 0 TAG11) 
 TAG12 (MOVEI 1 (QUOTE (POPJ P)) S) 
       (CALL 1 (E OUTSTAT) S) 
 TAG11 
 TAG2  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP FREEAC SUBR) 
       (MOVE 1 (SPECIAL VALUEAC) S) 
       (JCALL 1 (E FREEAC1) S) 
       NIL 

(LAP FREEAC1 SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (JUMPE 1 TAG6) 
       (CALL 1 (E SLOTCONT) S) 
       (CALL 1 (E DVP) S) 
       (JUMPN 1 TAG6) 
       (MOVE 1 -2 P) 
       (JRST 0 TAG2) 
 TAG6  (MOVE 1 (SPECIAL ACS) S) 
       (MOVEI 2 (QUOTE 1)) 
       (MOVEM 2 0 P) 
       (MOVEM 1 -1 P) 
 TAG1  (MOVE 1 -1 P) 
       (JUMPN 1 TAG15) 
       (MOVE 1 -2 P) 
       (JUMPE 1 TAG3) 
       (MOVE 1 -2 P) 
       (CALL 1 (E CPUSH) S) 
       (MOVE 1 -2 P) 
       (JRST 0 TAG2) 
 TAG15 (HLRZ@ 1 -1 P) 
       (CALL 1 (E DVP) S) 
       (JUMPN 1 TAG24) 
       (MOVE 1 0 P) 
       (JRST 0 TAG2) 
 TAG24 (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (MOVE 1 0 P) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
 TAG2  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP FINDFREEAC SUBR) 
       (MOVEI 1 (QUOTE NIL)) 
       (JCALL 1 (E FREEAC1) S) 
       NIL 

(LAP FREEZE SUBR) 
       (MOVE 2 (SPECIAL ACS) S) 
       (PUSH P 1) 
       (CALL 2 (E FREEZE1) S) 
       (MOVE 2 (SPECIAL PDL) S) 
       (POP P 1) 
       (JCALL 2 (E FREEZE1) S) 
       NIL 

(LAP FREEZE1 SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
 TAG1  (MOVE 1 0 P) 
       (JUMPE 1 TAG3) 
       (HLRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CAME 1 -1 P) 
       (JRST 0 TAG10) 
       (HLRZ@ 1 0 P) 
       (HRRZ@ 1 1) 
       (JUMPN 1 TAG12) 
       (MOVE 2 (SPECIAL P2CNT) S) 
       (MOVE 1 -1 P) 
       (CALL 2 (E CONS) S) 
       (HRLM@ 1 0 P) 
       (JRST 0 TAG11) 
 TAG12 (HLRZ@ 1 0 P) 
       (HRRZ@ 1 1) 
       (CAIE 1 (QUOTE DUP) S) 
       (JRST 0 TAG14) 
       (HRRZS@ 0 0 P) 
 TAG14 
 TAG11 
 TAG10 (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP GENCONST SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (PUSH P 4) 
       (PUSH P 5) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (CAIN 5 (QUOTE 0)) 
       (JRST 0 TAG5) 
       (MOVE 1 (SPECIAL *AT) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 0 P) 
 TAG5  (MOVE 1 -3 P) 
       (CALL 1 (E NEEDS) S) 
       (JUMPE 1 TAG10) 
       (MOVEI 1 (QUOTE S) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 -3 P) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE D) S) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE MOVEI) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E OUTSTAT) S) 
       (MOVE 1 -5 P) 
       (CAIE 1 (QUOTE 0)) 
       (JRST 0 TAG14) 
       (MOVE 1 -4 P) 
       (CAIE 1 (QUOTE 0)) 
       (JRST 0 TAG14) 
       (MOVE 1 -2 P) 
       (CAIE 1 (QUOTE 0)) 
       (JRST 0 TAG14) 
       (MOVE 1 -1 P) 
       (CAIN 1 (QUOTE 0)) 
       (JRST 0 TAG12) 
 TAG14 (MOVEI 1 (QUOTE (BAD-S-REG-GENCONST)) S) 
       (CALL 17 (E COMPERR) S) 
 TAG12 (MOVEI 1 (QUOTE D) S) 
       (JRST 0 TAG1) 
 TAG10 (MOVE 1 -2 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 -3 P) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 -4 P) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 1) 
       (MOVE 1 0 P) 
       (CALL 2 (E *APPEND) S) 
       (MOVE 2 -5 P) 
       (MOVEM 1 0 P) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE C) S) 
       (MOVEM 1 0 P) 
       (CALL 2 (E XCONS) S) 
 TAG1  (SUB P (C 6 0 6 0)) 
       (POPJ P) 
       NIL 

(LAP GETSLOT SUBR) 
       (PUSH P 1) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPN 1 TAG2) 
       (MOVEI 1 (QUOTE (NOTSLOT-GETSLOT)) S) 
       (CALL 17 (E COMPERR) S) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 2 (SPECIAL NACS) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG4) 
       (MOVE 1 0 P) 
       (CALL 1 (E PRINTMSG) S) 
       (MOVEI 1 (QUOTE (NOTAC-GETSLOT)) S) 
       (CALL 17 (E COMPERR) S) 
       (JRST 0 TAG1) 
 TAG4  (MOVEI 2 (QUOTE 0)) 
       (MOVE 1 0 P) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG5) 
       (MOVE 1 0 P) 
       (CALL 1 (E SUB1) S) 
       (MOVE 2 (SPECIAL ACS) S) 
       (CALL 2 (E NTHCDR) S) 
       (JRST 0 TAG1) 
 TAG5  (MOVE 1 0 P) 
       (CALL 1 (E ABS) S) 
       (MOVE 2 (SPECIAL PDLDEPTH) S) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG6) 
       (MOVE 1 0 P) 
       (CALL 1 (E PRINTMSG) S) 
       (MOVEI 1 (QUOTE (NOTONPDL-GETSLOT)) S) 
       (CALL 17 (E COMPERR) S) 
       (JRST 0 TAG1) 
 TAG6  (MOVE 1 0 P) 
       (CALL 1 (E MINUS) S) 
       (MOVE 2 (SPECIAL PDL) S) 
       (CALL 2 (E NTHCDR) S) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP GUARDLOCS SUBR) 
       (PUSH P (SPECIAL LDLST) S) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVE 1 -2 P) 
       (JUMPE 1 TAG6) 
       (MOVE 2 (SPECIAL LOCVARS) S) 
       (HLRZ@ 1 -2 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E ASSOC) S) 
       (JUMPN 1 TAG3) 
 TAG2  (HRRZ@ 1 -2 P) 
       (MOVEM 1 -2 P) 
       (JRST 0 TAG1) 
 TAG3  (HLRZ@ 1 -2 P) 
       (CALL 1 (E LOC) S) 
       (MOVEM 1 0 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG4) 
       (MOVE 1 0 P) 
       (CALL 1 (E SLOTCONT) S) 
       (MOVEM 1 -1 P) 
       (CALL 1 (E DVP) S) 
       (JUMPN 1 TAG16) 
       (MOVE 2 (SPECIAL P2CNT) S) 
       (HLRZ@ 1 -2 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 1) 
       (MOVE 1 0 P) 
       (CALL 2 (E SETSLOT) S) 
       (JRST 0 TAG2) 
 TAG16 (HRRZ@ 1 -1 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPN 1 TAG2) 
 TAG4  (MOVE 2 (SPECIAL P2CNT) S) 
       (HLRZ@ 1 -2 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E SLOTPUSH) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E OUTPUSH) S) 
       (JRST 0 TAG2) 
 TAG6  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP ILOC 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)) 
       (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)) 
       (JUMPE 2 TAG1) 
       (MOVE 1 2) 
       (CALL 1 (E SLOTCONT) S) 
       (MOVE 2 -10 P) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 TAG15) 
       (MOVE 1 -7 P) 
       (JRST 0 TAG7) 
 TAG15 
 TAG1  (HRRZ@ 1 -10 P) 
       (CAIE 1 (QUOTE QT) S) 
       (JRST 0 TAG17) 
       (HLRZ@ 1 -10 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE QUOTE) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E NCONS) S) 
       (JRST 0 TAG7) 
 TAG17 (MOVE 2 (SPECIAL PDL) S) 
       (MOVE 1 (SPECIAL ACS) S) 
       (CALL 2 (E *APPEND) S) 
       (MOVEI 2 (QUOTE 1)) 
       (MOVEM 1 -3 P) 
       (MOVE 1 (SPECIAL P2CNT) S) 
       (MOVEM 2 0 P) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 -2 P) 
       (HRRZ@ 1 -10 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG21) 
       (HRRZ@ 2 -10 P) 
       (JRST 0 TAG20) 
 TAG21 (MOVE 2 (SPECIAL P2CNT) S) 
 TAG20 (MOVEM 2 -6 P) 
 TAG2  (MOVE 1 -3 P) 
       (JUMPE 1 TAG4) 
       (HLRZ@ 1 -3 P) 
       (MOVEM 1 -4 P) 
       (JUMPE 1 TAG30) 
       (HLRZ@ 1 1) 
       (HLRZ@ 2 -10 P) 
       (CAMN 2 1) 
       (JRST 0 TAG5) 
 TAG30 
 TAG3  (HRRZ@ 1 -3 P) 
       (MOVEM 1 -3 P) 
       (MOVE 1 0 P) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG2) 
 TAG4  (MOVE 2 (SPECIAL P2CNT) S) 
       (MOVE 1 -2 P) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG6) 
       (HLRZ@ 1 -10 P) 
       (CALL 1 (E SPECVARP) S) 
       (JUMPE 1 TAG34) 
       (HLRZ@ 1 -10 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE SPECIAL) S) 
       (CALL 2 (E XCONS) S) 
       (JRST 0 TAG7) 
 TAG34 (JRST 0 TAG10) 
 TAG5  (MOVE 2 -4 P) 
       (MOVE 1 -10 P) 
       (CALL 2 (E EQUAL) S) 
       (JUMPN 1 TAG40) 
       (MOVEI 2 (QUOTE (QT TAKEN)) S) 
       (HRRZ@ 1 -4 P) 
       (CALL 2 (E MEMQ) S) 
       (JUMPN 1 TAG36) 
 TAG40 (HRRZ@ 1 -4 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG43) 
       (HRRZ@ 1 -4 P) 
       (JRST 0 TAG42) 
 TAG43 (MOVE 1 (SPECIAL P2CNT) S) 
 TAG42 (MOVEM 1 -5 P) 
       (MOVE 2 -6 P) 
       (CALL 2 (E *LESS) S) 
       (JUMPN 1 TAG47) 
       (MOVE 2 -2 P) 
       (MOVE 1 -5 P) 
       (CALL 2 (E *LESS) S) 
       (JUMPE 1 TAG47) 
       (MOVE 1 -5 P) 
       (MOVE 2 0 P) 
       (MOVEM 1 -2 P) 
       (MOVEM 2 -1 P) 
 TAG47 
 TAG36 (JRST 0 TAG3) 
 TAG6  (MOVE 2 (SPECIAL NACS) S) 
       (MOVE 1 -1 P) 
       (CALL 2 (E *GREAT) S) 
       (JUMPN 1 TAG54) 
       (MOVE 1 -1 P) 
       (JRST 0 TAG53) 
 TAG54 (MOVE 1 -1 P) 
       (CALL 1 (E MINUS) S) 
       (MOVE 2 (SPECIAL NACS) S) 
       (CALL 2 (E *PLUS) S) 
       (MOVEI 2 (QUOTE 1)) 
       (CALL 2 (E *PLUS) S) 
 TAG53 (JRST 0 TAG7) 
 TAG10 (MOVEI 1 (QUOTE NIL)) 
 TAG7  (SUB P (C 11 0 11 0)) 
       (POPJ P) 
       NIL 

(LAP ILOC1 SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (CALL 2 (E ILOC) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG5) 
       (JRST 0 TAG1) 
 TAG5  (MOVE 2 (SPECIAL PROGVARS) S) 
       (HLRZ@ 1 -2 P) 
       (CALL 2 (E MEMBER) S) 
       (JUMPE 1 TAG7) 
       (MOVEI 1 (QUOTE ((QUOTE NIL))) S) 
       (JRST 0 TAG1) 
 TAG7  (MOVE 2 (SPECIAL VARLIST) S) 
       (HLRZ@ 1 -2 P) 
       (CALL 2 (E ASSOCR) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG11) 
       (HRRZ@ 2 -2 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E ILOC1) S) 
       (JRST 0 TAG1) 
 TAG11 (MOVE 2 (SPECIAL CCLST) S) 
       (HLRZ@ 1 -2 P) 
       (CALL 2 (E ASSOC) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG13) 
       (PUSH P 1) 
       (MOVE 1 -2 P) 
       (JUMPN 1 TAG15) 
       (CALL 0 (E FREEAC) S) 
       (MOVE 2 1) 
       (JRST 0 TAG14) 
 TAG15 (MOVE 2 -2 P) 
 TAG14 (POP P 1) 
       (CALL 2 (E LOADCARCDR) S) 
       (JRST 0 TAG1) 
 TAG13 (MOVE 1 -2 P) 
       (CALL 1 (E NCONS) S) 
       (CALL 1 (E PRINTMSG) S) 
       (MOVEI 1 (QUOTE (LOSTVAR-ILOC1)) S) 
       (CALL 17 (E COMPERR) S) 
       (MOVEI 1 (QUOTE NIL)) 
 TAG1  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP INITZ SUBR) 
       (CALL 1 (E NCONS) S) 
       (CALL 1 (E SLOTPUSH) S) 
       (MOVEI 1 (QUOTE ((QUOTE NIL))) S) 
       (JCALL 1 (E OUTPUSH) S) 
       NIL 

(LAP INTERNALLAMBDA SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (CALL 1 (E CADDAR) S) 
       (HLRZ@ 2 -2 P) 
       (HRRZ@ 2 2) 
       (HLRZ@ 2 2) 
       (PUSH P 1) 
       (HRRZ@ 1 -3 P) 
       (PUSH P 2) 
       (CALL 1 (E COMPARGS) S) 
       (CALL 1 (E REVERSE) S) 
       (PUSH P (SPECIAL P2CNT) S) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL P2CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P2CNT) S) 
       (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)) 
 TAG1  (MOVE 1 -6 P) 
       (JUMPE 1 TAG2) 
       (HLRZ@ 1 -4 P) 
       (CALL 1 (E LOC) S) 
       (MOVEM 1 -2 P) 
       (HLRZ@ 1 -4 P) 
       (CALL 1 (E REMOVE) S) 
       (HLRZ@ 1 -6 P) 
       (CALL 1 (E SPECVARP) S) 
       (JUMPE 1 TAG13) 
       (MOVEI 1 (QUOTE T) S) 
       (MOVEM 1 0 P) 
       (HLRZ@ 1 -6 P) 
       (CALL 1 (E FREEZE) S) 
       (HLRZ@ 1 -4 P) 
       (PUSH P 1) 
       (CALL 0 (E FREEAC) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E PUTINAC) S) 
       (MOVEM 1 -2 P) 
       (JRST 0 TAG12) 
 TAG13 (MOVE 1 -2 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG16) 
       (MOVE 1 -2 P) 
       (CALL 1 (E SLOTCONT) S) 
       (MOVEM 1 -3 P) 
       (CALL 1 (E DVP) S) 
       (JUMPE 1 TAG14) 
 TAG16 (MOVE 1 -3 P) 
       (CALL 1 (E SLOTPUSH) S) 
       (MOVE 1 -2 P) 
       (CALL 1 (E OUTPUSH) S) 
       (MOVEI 1 (QUOTE 0)) 
       (MOVEM 1 -2 P) 
 TAG14 
 TAG12 (MOVEI 2 (QUOTE TAKEN) S) 
       (HLRZ@ 1 -6 P) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 1) 
       (MOVE 1 -2 P) 
       (CALL 2 (E SETSLOT) S) 
       (HRRZ@ 1 -4 P) 
       (HRRZ@ 2 -6 P) 
       (MOVEM 1 -4 P) 
       (MOVEM 2 -6 P) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 1 0 P) 
       (JUMPE 1 TAG21) 
       (MOVEI 1 (QUOTE (JSP 6 SPECBIND)) S) 
       (CALL 1 (E OUTSTAT) S) 
 TAG21 (HLRZ@ 1 -12 P) 
       (CALL 1 (E CADR) S) 
       (MOVEM 1 -6 P) 
 TAG3  (MOVE 1 -6 P) 
       (JUMPE 1 TAG4) 
       (MOVEI 2 (QUOTE TAKEN) S) 
       (HLRZ@ 1 -6 P) 
       (CALL 2 (E CONS) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (CALL 2 (E ILOC) S) 
       (MOVEM 1 -2 P) 
       (HLRZ@ 1 -6 P) 
       (CALL 1 (E SPECVARP) S) 
       (JUMPE 1 TAG25) 
       (HLRZ@ 1 -6 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE SPECIAL) S) 
       (CALL 2 (E XCONS) S) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE S) S) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 -2 P) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE 0)) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E OUTSTAT) S) 
 TAG25 (MOVE 1 -2 P) 
       (CALL 1 (E SLOTCONT) S) 
       (HLLZS@ 0 1) 
       (HRRZ@ 1 -6 P) 
       (MOVEM 1 -6 P) 
       (JRST 0 TAG3) 
 TAG4  (CLEARM 0 -2 P) 
       (PUSH P -7 P) 
       (MOVE 2 -12 P) 
       (JUMPN 2 TAG30) 
       (MOVE 1 -11 P) 
       (JUMPE 1 TAG32) 
       (CALL 0 (E FREEAC) S) 
       (MOVE 2 1) 
       (JRST 0 TAG31) 
 TAG32 (MOVEI 2 (QUOTE NIL)) 
 TAG31 
 TAG30 (POP P 1) 
       (CALL 2 (E COMPEXPR) S) 
       (MOVEM 1 -3 P) 
       (JUMPE 1 TAG27) 
       (CALL 1 (E LOC) S) 
       (MOVEM 1 -2 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPN 1 TAG34) 
       (CALL 0 (E FREEAC) S) 
       (MOVE 2 1) 
       (MOVE 1 -3 P) 
       (CALL 2 (E PUTINAC) S) 
       (MOVEM 1 -2 P) 
 TAG34 
 TAG27 (MOVE 1 0 P) 
       (JUMPE 1 TAG37) 
       (MOVEI 1 (QUOTE (PUSHJ P SPECSTR)) S) 
       (CALL 1 (E OUTSTAT) S) 
 TAG37 (MOVE 1 (SPECIAL P2CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P2CNT) S) 
       (HLRZ@ 1 -12 P) 
       (CALL 1 (E CADR) S) 
       (MOVE 3 -5 P) 
       (MOVE 2 1) 
       (MOVEM 1 -6 P) 
       (MOVE 1 (SPECIAL ACS) S) 
       (CALL 3 (E INTLAM1) S) 
       (MOVE 3 -5 P) 
       (MOVE 2 -6 P) 
       (MOVE 1 (SPECIAL PDL) S) 
       (CALL 3 (E INTLAM1) S) 
       (MOVE 1 -2 P) 
       (JUMPE 1 TAG41) 
       (CALL 1 (E SLOTCONT) S) 
       (MOVEM 1 -1 P) 
       (JUMPE 1 TAG45) 
       (MOVE 2 -6 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E MEMQ) S) 
       (JUMPE 1 TAG43) 
 TAG45 (MOVE 2 -2 P) 
       (MOVE 1 -3 P) 
       (CALL 2 (E MARKVAL) S) 
       (MOVEM 1 -1 P) 
       (MOVE 1 -3 P) 
       (CALL 1 (E REMOVE) S) 
 TAG43 
 TAG41 (MOVE 2 -10 P) 
       (MOVE 1 -1 P) 
       (SUB P (C 13 0 13 0)) 
       (JCALL 2 (E TESTJUMP) S) 
       NIL 

(LAP INTLAM1 SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
 TAG1  (MOVE 1 -2 P) 
       (JUMPE 1 TAG3) 
       (HLRZ@ 1 -2 P) 
       (JUMPE 1 TAG10) 
       (HLRZ@ 1 -2 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E SPECVARP) S) 
       (JUMPE 1 TAG10) 
       (MOVE 2 -1 P) 
       (HLRZ@ 1 -2 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E MEMQ) S) 
       (JUMPE 1 TAG10) 
       (HLRZ@ 1 -2 P) 
       (HRRZ@ 1 1) 
       (JUMPE 1 TAG16) 
       (MOVE 2 0 P) 
       (HLRZ@ 1 -2 P) 
       (HRRZ@ 1 1) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG10) 
 TAG16 (HRRZS@ 0 -2 P) 
 TAG10 (HRRZ@ 1 -2 P) 
       (MOVEM 1 -2 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP KILLPDL SUBR) 
       (MOVEI 1 (QUOTE NIL)) 
       (JCALL 1 (E RESTORE) S) 
       NIL 

(LAP LISTNILS SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVE 1 -1 P) 
       (CAIE 1 (QUOTE 0)) 
       (JRST 0 TAG6) 
       (MOVE 1 0 P) 
       (JRST 0 TAG2) 
 TAG6  (MOVE 2 0 P) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 0 P) 
       (MOVE 1 -1 P) 
       (CALL 1 (E SUB1) S) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG1) 
 TAG2  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP LOADARG SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVE 1 2) 
       (CALL 1 (E REMOVE) S) 
       (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)) 
       (MOVE 1 -6 P) 
       (JUMPE 1 TAG7) 
       (MOVE 2 -6 P) 
       (MOVE 1 -5 P) 
       (CALL 2 (E ILOC1) S) 
       (MOVEM 1 0 P) 
       (MOVE 1 -6 P) 
       (CALL 1 (E SLOTCONT) S) 
       (MOVEM 1 -1 P) 
       (MOVE 1 0 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG14) 
       (MOVE 1 0 P) 
       (CALL 1 (E SLOTCONT) S) 
       (MOVE 2 1) 
       (JRST 0 TAG13) 
 TAG14 (MOVEI 2 (QUOTE NIL)) 
 TAG13 (MOVE 1 -1 P) 
       (MOVEM 2 -2 P) 
       (CALL 1 (E DVP) S) 
       (MOVEM 1 -3 P) 
       (MOVE 1 -2 P) 
       (CALL 1 (E DVP) S) 
       (MOVEM 1 -4 P) 
       (MOVE 1 -6 P) 
       (CAME 1 0 P) 
       (JRST 0 TAG16) 
       (MOVE 1 -3 P) 
       (JUMPE 1 TAG20) 
       (MOVE 1 -6 P) 
       (CALL 1 (E CPUSH) S) 
 TAG20 (JRST 0 TAG7) 
 TAG16 (MOVE 1 0 P) 
       (CAIE 1 (QUOTE 0)) 
       (JRST 0 TAG23) 
       (MOVE 1 -4 P) 
       (JUMPN 1 TAG23) 
       (MOVE 1 -3 P) 
       (JUMPN 1 TAG23) 
       (MOVE 2 (SPECIAL MINDEPTH) S) 
       (MOVE 1 (SPECIAL PDLDEPTH) S) 
       (CALL 2 (E *GREAT) S) 
       (JUMPN 1 TAG4) 
 TAG23 (MOVE 1 -4 P) 
       (JUMPN 1 TAG30) 
       (MOVE 1 -1 P) 
       (JUMPE 1 TAG30) 
       (MOVE 1 0 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG30) 
       (MOVE 2 -6 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E *LESS) S) 
       (JUMPN 1 TAG1) 
 TAG30 (MOVE 1 -3 P) 
       (JUMPE 1 TAG3) 
       (JRST 0 TAG2) 
 TAG1  (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E SETSLOT) S) 
       (MOVE 2 -2 P) 
       (MOVE 1 -6 P) 
       (CALL 2 (E SETSLOT) S) 
       (MOVE 3 0 P) 
       (MOVE 2 -6 P) 
       (MOVEI 1 (QUOTE EXCH) S) 
       (CALL 3 (E OUT1) S) 
       (JRST 0 TAG7) 
 TAG2  (MOVE 1 -6 P) 
       (CALL 1 (E CPUSH) S) 
       (MOVE 1 -5 P) 
       (CALL 1 (E LOC) S) 
       (MOVEM 1 0 P) 
 TAG3  (MOVE 1 0 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG5) 
       (PUSH P -6 P) 
       (HRRZ@ 1 -3 P) 
       (JUMPN 1 TAG41) 
       (MOVEI 2 (QUOTE DUP) S) 
       (HLRZ@ 1 -3 P) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 1) 
       (JRST 0 TAG40) 
 TAG41 (MOVE 2 -3 P) 
 TAG40 (POP P 1) 
       (CALL 2 (E SETSLOT) S) 
       (MOVE 2 0 P) 
       (MOVE 1 -6 P) 
       (CALL 2 (E OUTMOVE) S) 
       (JRST 0 TAG7) 
 TAG4  (MOVE 2 -2 P) 
       (MOVE 1 -6 P) 
       (CALL 2 (E SETSLOT) S) 
       (MOVE 1 -6 P) 
       (CALL 1 (E OUTPOP) S) 
       (JRST 0 TAG7) 
 TAG5  (PUSH P -6 P) 
       (HLRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (CAIE 1 (QUOTE QUOTE) S) 
       (JRST 0 TAG46) 
       (MOVEI 2 (QUOTE QT) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E CADR) S) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 1) 
       (JRST 0 TAG45) 
 TAG46 (HLRZ@ 1 -6 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
 TAG45 (POP P 1) 
       (CALL 2 (E SETSLOT) S) 
       (MOVE 2 0 P) 
       (MOVE 1 -6 P) 
       (CALL 2 (E OUTMOVE) S) 
 TAG7  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 7 0 7 0)) 
       (POPJ P) 
       NIL 

(LAP LOADCARCDR 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 1 (E CDDR) S) 
       (MOVEM 1 0 P) 
       (CALL 2 (E ILOC1) S) 
       (CAME 1 -3 P) 
       (JRST 0 TAG10) 
       (MOVE 1 0 P) 
       (CALL 1 (E REMOVE) S) 
 TAG10 (MOVE 3 0 P) 
       (MOVE 2 -3 P) 
       (HRRZ@ 1 -4 P) 
       (HLRZ@ 1 1) 
       (CALL 3 (E CSTEP) S) 
       (MOVEM 1 -1 P) 
       (HRRZ@ 1 1) 
       (JUMPN 1 TAG12) 
       (HLRZ@ 2 -4 P) 
       (HLRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 (SPECIAL VARLIST) S) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL VARLIST) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E REMOVE) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E LOC) S) 
       (JRST 0 TAG4) 
 TAG12 (MOVE 1 -1 P) 
       (CALL 1 (E REVERSE) S) 
       (MOVEM 1 -1 P) 
       (MOVE 1 -3 P) 
       (CALL 1 (E CPUSH) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E LOC) S) 
       (HRRZ@ 2 -1 P) 
       (MOVEM 1 -2 P) 
       (MOVE 1 0 P) 
       (MOVEM 2 -1 P) 
       (CALL 1 (E REMOVE) S) 
 TAG1  (MOVE 1 -1 P) 
       (JUMPE 1 TAG3) 
       (HRRZ@ 1 -1 P) 
       (JUMPE 1 TAG2) 
       (MOVE 1 -3 P) 
       (CAME 1 (SPECIAL VALUEAC) S) 
       (JRST 0 TAG21) 
       (MOVE 1 -2 P) 
       (CAME 1 (SPECIAL VALUEAC) S) 
       (JRST 0 TAG21) 
       (MOVE 2 -1 P) 
       (MOVEI 1 (QUOTE R) S) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E REVERSE) S) 
       (MOVEI 2 (QUOTE C) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E READLIST) S) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE 1)) 
       (CALL 2 (E OUTCALL) S) 
       (JRST 0 TAG3) 
 TAG21 
 TAG2  (MOVEI 2 (QUOTE ((A HLRZ@) (D HRRZ@))) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 2 (E ASSOC) S) 
       (MOVE 3 -2 P) 
       (MOVE 2 -3 P) 
       (CALL 1 (E CADR) S) 
       (CALL 3 (E OUT1) S) 
       (HRRZ@ 1 -1 P) 
       (MOVE 2 -3 P) 
       (MOVEM 1 -1 P) 
       (MOVEM 2 -2 P) 
       (JRST 0 TAG1) 
 TAG3  (HLRZ@ 1 -4 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVE 1 -3 P) 
       (CALL 2 (E SETSLOT) S) 
       (MOVE 1 -3 P) 
 TAG4  (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(LAP LOADCOMP SUBR) 
       (PUSH P 2) 
       (CALL 2 (E COMPEXPR) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (JCALL 2 (E LOADARG) S) 
       NIL 

(LAP LOADSUBRARGS SUBR) 
       (PUSH P 1) 
       (CALL 1 (E LENGTH) S) 
       (PUSH P 1) 
 TAG1  (MOVE 1 -1 P) 
       (JUMPE 1 TAG3) 
       (HLRZ@ 2 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E LOADARG) S) 
       (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (MOVE 1 0 P) 
       (CALL 1 (E SUB1) S) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP LOC SUBR) 
       (MOVEI 2 (QUOTE NIL)) 
       (JCALL 2 (E ILOC1) S) 
       NIL 

(LAP MARKVAL SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (JUMPE 2 TAG2) 
       (MOVEI 1 (QUOTE (VAL)) S) 
       (CALL 17 (E NEXTSYM) S) 
       (MOVEM 1 -1 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVE 1 -2 P) 
       (CALL 2 (E SETSLOT) S) 
       (HLRZ@ 2 1) 
       (MOVEM 2 0 P) 
       (MOVE 1 -3 P) 
       (JUMPE 1 TAG7) 
       (MOVE 2 (SPECIAL LDLST) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL LDLST) S) 
 TAG7  (MOVE 1 0 P) 
       (JRST 0 TAG1) 
 TAG2  (MOVEI 1 (QUOTE NIL)) 
 TAG1  (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(LAP NONSPECVARS SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVE 1 -1 P) 
       (JUMPN 1 TAG6) 
       (MOVE 1 0 P) 
       (JRST 0 TAG2) 
 TAG6  (HLRZ@ 1 1) 
       (CALL 1 (E SPECVARP) S) 
       (JUMPN 1 TAG5) 
       (MOVE 2 0 P) 
       (HLRZ@ 1 -1 P) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 0 P) 
 TAG5  (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG1) 
 TAG2  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP OUT1 SUBR) 
       (CALL 3 (E TRANSOUT) S) 
       (JCALL 1 (E OUTSTAT) S) 
       NIL 

(LAP OUTCALL SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVEI 2 (QUOTE NOCALL) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E GET) S) 
       (JUMPE 1 TAG2) 
       (MOVE 3 0 P) 
       (MOVEI 2 (QUOTE P) S) 
       (MOVEI 1 (QUOTE PUSHJ) S) 
       (CALL 3 (E OUT1) S) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 3 0 P) 
       (MOVE 2 -1 P) 
       (MOVEI 1 (QUOTE CALL) S) 
       (CALL 3 (E OUTFUNCALL) S) 
 TAG1  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP OUTCALLF SUBR) 
       (MOVE 3 2) 
       (EXCH 2 1) 
       (MOVEI 1 (QUOTE CALLF@) S) 
       (JCALL 3 (E OUT1) S) 
       NIL 

(LAP OUTCJMP SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (JUMPE 1 TAG2) 
       (MOVEI 1 (QUOTE JUMPN) S) 
       (JRST 0 TAG1) 
 TAG2  (MOVEI 1 (QUOTE JUMPE) S) 
 TAG1  (POP P 3) 
       (POP P 2) 
       (SUB P (C 1 0 1 0)) 
       (JCALL 3 (E OUTJMP) S) 
       NIL 

(LAP OUTENDTAG SUBR) 
       (PUSH P 1) 
       (CALL 1 (E USEDTAGP) S) 
       (JUMPE 1 TAG2) 
       (CALL 0 (E CLEARITALL) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E RST) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E OUTSTAT) S) 
 TAG2  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP OUTFUNCALL SUBR) 
       (PUSH P 1) 
       (MOVE 1 3) 
       (PUSH P 2) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE E) S) 
       (CALL 2 (E XCONS) S) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE S) S) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (JCALL 1 (E OUTSTAT) S) 
       NIL 

(LAP OUTGOTAB SUBR) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE (TAG)) S) 
       (CALL 17 (E NEXTSYM) S) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL PDL) S) 
       (CALL 1 (E TOPCOPY) S) 
       (MOVEI 3 (QUOTE LEVEL) S) 
       (MOVE 2 1) 
       (MOVE 1 0 P) 
       (CALL 3 (E PUTPROP) S) 
       (HLRZ@ 1 (SPECIAL LASTOUT) S) 
       (HLRZ@ 1 1) 
       (CAIN 1 (QUOTE JRST) S) 
       (JRST 0 TAG6) 
       (MOVE 1 0 P) 
       (CALL 1 (E OUTJRST) S) 
 TAG6  (HLRZ@ 1 -1 P) 
       (CALL 1 (E OUTSTAT) S) 
 TAG1  (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JUMPN 1 TAG11) 
       (MOVEI 1 (QUOTE (PUSHJ P *UDT)) S) 
       (CALL 1 (E OUTSTAT) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E OUTSTAT) S) 
       (JRST 0 TAG3) 
 TAG11 (HLRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE QUOTE) S) 
       (CALL 2 (E XCONS) S) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE S) S) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 (SPECIAL GOTABAC) S) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE CAIN) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E OUTSTAT) S) 
       (HLRZ@ 1 -1 P) 
       (HRRZ@ 1 1) 
       (CALL 1 (E OUTJRST) S) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP OUTJCALL SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVEI 2 (QUOTE NOCALL) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E GET) S) 
       (JUMPE 1 TAG2) 
       (MOVE 1 0 P) 
       (CALL 1 (E OUTJRST) S) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 3 0 P) 
       (MOVE 2 -1 P) 
       (MOVEI 1 (QUOTE JCALL) S) 
       (CALL 3 (E OUTFUNCALL) S) 
 TAG1  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP OUTJMP SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (CALL 0 (E SAVEACS) S) 
       (CALL 0 (E CLEARBOTH) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E RST) S) 
       (MOVEI 3 (QUOTE USED) S) 
       (MOVEI 2 (QUOTE T) S) 
       (MOVE 1 0 P) 
       (CALL 3 (E PUTPROP) S) 
       (POP P 1) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (JCALL 1 (E OUTSTAT) S) 
       NIL 

(LAP OUTJRST SUBR) 
       (MOVE 3 1) 
       (MOVEI 2 (QUOTE 0)) 
       (MOVEI 1 (QUOTE JRST) S) 
       (JCALL 3 (E OUTJMP) S) 
       NIL 

(LAP OUTMOVE SUBR) 
       (MOVE 3 2) 
       (EXCH 2 1) 
       (MOVEI 1 (QUOTE MOVE) S) 
       (JCALL 3 (E OUT1) S) 
       NIL 

(LAP OUTMOVEM SUBR) 
       (MOVE 3 2) 
       (EXCH 2 1) 
       (MOVEI 1 (QUOTE MOVEM) S) 
       (JCALL 3 (E OUT1) S) 
       NIL 

(LAP OUTPOP SUBR) 
       (PUSH P 1) 
       (CALL 0 (E SLOTPOP) S) 
       (POP P 3) 
       (MOVEI 2 (QUOTE P) S) 
       (MOVEI 1 (QUOTE POP) S) 
       (JCALL 3 (E OUT1) S) 
       NIL 

(LAP OUTPUSH SUBR) 
       (MOVE 3 1) 
       (MOVEI 2 (QUOTE P) S) 
       (MOVEI 1 (QUOTE PUSH) S) 
       (JCALL 3 (E OUT1) S) 
       NIL 

(LAP OUTPUTSTAT SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG1) 
       (HLRZ@ 1 -1 P) 
       (CAIN 1 (QUOTE LAP) S) 
       (JRST 0 TAG1) 
       (MOVE 1 (SPECIAL CODESIZE) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL CODESIZE) S) 
       (HRRZ@ 1 -1 P) 
       (CALL 1 (E CADR) S) 
       (MOVEM 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG10) 
       (HLRZ@ 1 0 P) 
       (CAIE 1 (QUOTE C) S) 
       (JRST 0 TAG10) 
       (MOVE 1 (SPECIAL CONSTSIZE) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL CONSTSIZE) S) 
 TAG10 
 TAG1  (MOVE 1 -1 P) 
       (CALL 1 (E PRINTSTAT) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP OUTSTAT SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVE 1 (SPECIAL LASTOUT) S) 
       (JUMPE 1 TAG2) 
       (HLRZ@ 1 (SPECIAL LASTOUT) S) 
       (CALL 1 (E OUTPUTSTAT) S) 
       (CALL 0 (E CURCOL) S) 
       (HRRZ@ 2 (SPECIAL LASTOUT) S) 
       (MOVEM 2 -1 P) 
       (MOVEM 1 0 P) 
 TAG1  (MOVE 1 -1 P) 
       (JUMPE 1 TAG2) 
       (MOVE 1 0 P) 
       (CALL 1 (E TABTO) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E PRINTEXPR) S) 
       (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG1) 
 TAG2  (CALL 0 (E LAPNOTES) S) 
       (MOVE 2 -2 P) 
       (CALL 2 (E XCONS) S) 
       (MOVEM 1 (SPECIAL LASTOUT) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP P2*EVAL SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (CALL 1 (E CADR) S) 
       (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 CONS) S) 
       (JRST 0 TAG7) 
       (HRRZ@ 1 -2 P) 
       (CALL 1 (E CAAR) S) 
       (CAIE 1 (QUOTE QUOTE) S) 
       (JRST 0 TAG7) 
       (HRRZ@ 1 -2 P) 
       (CALL 1 (E CADAR) S) 
       (MOVEI 2 (QUOTE (FEXPR FSUBR *FSUBR)) S) 
       (MOVEM 1 0 P) 
       (CALL 2 (E GETL) S) 
       (JUMPN 1 TAG1) 
 TAG7  (MOVE 3 -3 P) 
       (MOVE 2 -4 P) 
       (MOVE 1 -5 P) 
       (CALL 3 (E CALLSUBR) S) 
       (JRST 0 TAG2) 
 TAG1  (MOVE 2 (SPECIAL VALUEAC) S) 
       (HRRZ@ 1 -2 P) 
       (CALL 1 (E CADR) S) 
       (CALL 2 (E LOADCOMP) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E PROTECTACS) S) 
       (MOVE 1 -4 P) 
       (JUMPN 1 TAG10) 
       (TDZA 1 1) 
 TAG10 (MOVEI 1 (QUOTE T) S) 
       (MOVE 2 (SPECIAL VALUEAC) S) 
       (CALL 2 (E MARKVAL) S) 
       (MOVEM 1 -1 P) 
       (MOVE 1 0 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE E) S) 
       (CALL 2 (E XCONS) S) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE S) S) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE 17)) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE CALL) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E OUTSTAT) S) 
       (MOVE 1 -1 P) 
 TAG2  (SUB P (C 6 0 6 0)) 
       (POPJ P) 
       NIL 

(LAP P2ARG SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CALL 1 (E CADR) S) 
       (CALL 2 (E COMPEXPR) S) 
       (PUSH P 1) 
       (HRRZ@ 1 1) 
       (CAIE 1 (QUOTE QT) S) 
       (JRST 0 TAG5) 
       (MOVE 1 -1 P) 
       (CALL 1 (E CPUSH) S) 
       (MOVE 1 (SPECIAL PDLDEPTH) S) 
       (CALL 1 (E ADD1) S) 
       (CALL 1 (E MINUS) S) 
       (MOVE 2 1) 
       (MOVE 1 -1 P) 
       (CALL 2 (E OUTMOVE) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E REMOVE) S) 
       (MOVE 1 -1 P) 
       (CALL 1 (E NCONS) S) 
       (HLRZ@ 2 0 P) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE HRRZ) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E OUTSTAT) S) 
       (MOVE 1 -1 P) 
       (JUMPN 1 TAG6) 
       (TDZA 1 1) 
 TAG6  (MOVEI 1 (QUOTE T) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E MARKVAL) S) 
       (JRST 0 TAG1) 
 TAG5  (MOVE 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E LOADARG) S) 
       (MOVE 1 (SPECIAL PDLDEPTH) S) 
       (CALL 1 (E ADD1) S) 
       (CALL 1 (E MINUS) S) 
       (MOVE 3 1) 
       (MOVE 2 -1 P) 
       (MOVEI 1 (QUOTE ADD) S) 
       (CALL 3 (E OUT1) S) 
       (MOVE 1 (SPECIAL INUM0) S) 
       (CALL 1 (E MINUS) S) 
       (PUSH P 1) 
       (MOVE 1 -2 P) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE HRRZ) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E OUTSTAT) S) 
       (MOVE 1 -1 P) 
       (JUMPN 1 TAG10) 
       (TDZA 1 1) 
 TAG10 (MOVEI 1 (QUOTE T) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E MARKVAL) S) 
 TAG1  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP P2CARCDR 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)) 
       (HRRZ@ 1 1) 
       (CALL 1 (E LENGTH) S) 
       (CAIN 1 (QUOTE 1)) 
       (JRST 0 TAG5) 
       (MOVEI 1 (QUOTE (ARGNOERR-P2CARCDR)) S) 
       (CALL 17 (E USERERR) S) 
 TAG5  (MOVE 1 -3 P) 
       (JUMPN 1 TAG10) 
       (MOVE 1 -2 P) 
       (JUMPN 1 TAG10) 
       (HRRZ@ 1 -4 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E COMPSTAT) S) 
       (JRST 0 TAG1) 
 TAG10 (MOVE 1 -3 P) 
       (JUMPN 1 TAG16) 
       (CALL 0 (E FREEAC) S) 
       (JRST 0 TAG15) 
 TAG16 (MOVE 1 -3 P) 
 TAG15 (MOVEM 1 -1 P) 
       (CALL 0 (E GENSYM) S) 
       (MOVEM 1 0 P) 
       (HLRZ@ 1 -4 P) 
       (MOVE 2 -1 P) 
       (PUSH P 1) 
       (HRRZ@ 1 -5 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E COMPEXPR) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 0 P) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 (SPECIAL CCLST) S) 
       (MOVEM 1 -4 P) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL CCLST) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 0 P) 
       (MOVE 1 -3 P) 
       (JUMPE 1 TAG23) 
       (MOVE 2 (SPECIAL LDLST) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL LDLST) S) 
 TAG23 (MOVE 2 -2 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E TESTJUMP) S) 
 TAG1  (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(LAP P2COND SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL CTAG) S) 
       (0 0 (SPECIAL RSL) S) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (CALL 0 (E GUARDLOCS) S) 
       (CALL 0 (E CLEAR1) S) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVE 1 -3 P) 
       (JUMPN 1 TAG4) 
       (MOVE 1 -2 P) 
       (JUMPN 1 TAG4) 
       (TDZA 1 1) 
 TAG4  (MOVEI 1 (QUOTE T) S) 
       (MOVEM 1 -1 P) 
       (MOVE 1 -3 P) 
       (JUMPN 1 TAG13) 
       (CALL 0 (E FREEAC) S) 
       (MOVE 2 1) 
       (JRST 0 TAG12) 
 TAG13 (MOVE 2 -3 P) 
 TAG12 (MOVE 4 (SPECIAL MINDEPTH) S) 
       (MOVE 3 2) 
       (MOVEM 2 0 P) 
       (MOVE 2 -1 P) 
       (HRRZ@ 1 -4 P) 
       (CALL 4 (E P2COND1) S) 
       (MOVE 1 (SPECIAL P2CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P2CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P2CNT) S) 
       (MOVE 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E MARKVAL) S) 
       (SUB P (C 5 0 5 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP P2COND1 SUBR) 
       (JSP 6 SPECBIND) 
       (0 4 (SPECIAL MINDEPTH) S) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (MOVEI 1 (QUOTE (TAG)) S) 
       (CALL 17 (E NEXTSYM) S) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL PDL) S) 
       (CALL 1 (E TOPCOPY) S) 
       (MOVE 2 (SPECIAL PDLDEPTH) S) 
       (MOVEM 2 (SPECIAL MINDEPTH) S) 
       (MOVEI 3 (QUOTE LEVEL) S) 
       (MOVE 2 1) 
       (PUSH P 1) 
       (MOVE 1 -1 P) 
       (CALL 3 (E PUTPROP) S) 
       (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)) 
       (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  (CLEARM 0 (SPECIAL RSL) S) 
       (MOVE 1 -14 P) 
       (JUMPN 1 TAG13) 
       (MOVE 1 -3 P) 
       (JUMPE 1 TAG16) 
       (MOVEI 2 (QUOTE (NIL . QT)) S) 
       (MOVE 1 -12 P) 
       (CALL 2 (E LOADARG) S) 
 TAG16 (MOVE 1 -11 P) 
       (CALL 1 (E OUTENDTAG) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E USEDTAGP) S) 
       (JUMPE 1 TAG20) 
       (CALL 0 (E CLEARITALL) S) 
 TAG20 (MOVE 1 -10 P) 
       (CALL 1 (E RESTORE) S) 
       (JRST 0 TAG10) 
 TAG13 (HLRZ@ 1 -14 P) 
       (MOVEM 1 -5 P) 
       (HRRZ@ 1 1) 
       (JUMPN 1 TAG22) 
       (MOVE 2 -12 P) 
       (HLRZ@ 1 -5 P) 
       (CALL 2 (E LOADCOMP) S) 
       (HRRZ@ 1 -14 P) 
       (JUMPE 1 TAG25) 
       (MOVE 3 -11 P) 
       (MOVE 2 -12 P) 
       (MOVEI 1 (QUOTE T) S) 
       (CALL 3 (E OUTCJMP) S) 
       (JRST 0 TAG24) 
 TAG25 (MOVE 1 -10 P) 
       (CALL 1 (E RESTORE) S) 
 TAG24 (JRST 0 TAG5) 
 TAG22 (MOVEI 2 (QUOTE ((QUOTE NIL))) S) 
       (HRRZ@ 1 -5 P) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 TAG33) 
       (HLRZ@ 1 -5 P) 
       (HLRZ@ 1 1) 
       (CAIE 1 (QUOTE NULL) S) 
       (JRST 0 TAG33) 
       (HLRZ@ 1 -5 P) 
       (CALL 1 (E CADR) S) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG37) 
       (MOVEI 2 (QUOTE BOOL) S) 
       (HLRZ@ 1 -5 P) 
       (CALL 1 (E CAADR) S) 
       (CALL 2 (E HASPROP) S) 
       (JUMPN 1 TAG33) 
 TAG37 (MOVE 2 -12 P) 
       (HLRZ@ 1 -5 P) 
       (CALL 1 (E CADR) S) 
       (CALL 2 (E LOADCOMP) S) 
       (MOVE 3 -11 P) 
       (MOVE 2 -12 P) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 3 (E OUTCJMP) S) 
       (MOVEI 1 (QUOTE T) S) 
       (MOVEM 1 -3 P) 
       (JRST 0 TAG6) 
 TAG33 (MOVE 1 (SPECIAL LDLST) S) 
       (JUMPN 1 TAG2) 
       (HRRZ@ 1 -5 P) 
       (HRRZ@ 1 1) 
       (JUMPN 1 TAG2) 
       (HRRZ@ 1 -5 P) 
       (CALL 1 (E CAAR) S) 
       (CAIE 1 (QUOTE GO) S) 
       (JRST 0 TAG47) 
       (HRRZ@ 1 -5 P) 
       (CALL 1 (E CADAR) S) 
       (MOVEM 1 -6 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG47) 
       (HLRZ@ 1 -5 P) 
       (PUSH P 1) 
       (MOVE 1 -7 P) 
       (CALL 1 (E EQUIVTAG) S) 
       (MOVEI 2 (QUOTE T) S) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E COMPPRED) S) 
       (JRST 0 TAG5) 
 TAG47 (MOVEI 2 (QUOTE (RETURN (QUOTE NIL))) S) 
       (HRRZ@ 1 -5 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 TAG53) 
       (MOVE 2 (SPECIAL EXITN) S) 
       (MOVEI 1 (QUOTE T) S) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 1) 
       (HLRZ@ 1 -5 P) 
       (CALL 2 (E COMPPRED) S) 
       (JRST 0 TAG5) 
 TAG53 
 TAG2  (MOVEI 1 (QUOTE (TAG)) S) 
       (CALL 17 (E NEXTSYM) S) 
       (MOVEM 1 (SPECIAL CTAG) S) 
       (MOVEI 3 (QUOTE LEVEL) S) 
       (MOVE 2 -10 P) 
       (MOVEM 1 0 P) 
       (CALL 3 (E PUTPROP) S) 
       (CLEARM 0 (SPECIAL RSL) S) 
       (MOVE 2 0 P) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 1) 
       (HLRZ@ 1 -5 P) 
       (CALL 2 (E COMPPRED) S) 
       (MOVE 1 (SPECIAL RSL) S) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG55) 
       (MOVE 1 (SPECIAL RSL) S) 
       (JRST 0 TAG54) 
 TAG55 (MOVE 1 (SPECIAL ACS) S) 
       (CALL 1 (E TOPCOPY) S) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL PDL) S) 
       (CALL 1 (E TOPCOPY) S) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
 TAG54 (MOVEM 1 -2 P) 
       (MOVE 1 (SPECIAL CCLST) S) 
       (CALL 1 (E TOPCOPY) S) 
       (HRRZ@ 2 -5 P) 
       (MOVEM 2 -7 P) 
       (MOVEM 1 -1 P) 
 TAG3  (HRRZ@ 1 -7 P) 
       (JUMPE 1 TAG4) 
       (HLRZ@ 1 -7 P) 
       (CALL 1 (E COMPSTAT) S) 
       (HRRZ@ 1 -7 P) 
       (MOVEM 1 -7 P) 
       (JRST 0 TAG3) 
 TAG4  (MOVE 1 -13 P) 
       (JUMPN 1 TAG64) 
       (HLRZ@ 1 -7 P) 
       (CALL 1 (E COMPSTAT) S) 
       (JRST 0 TAG63) 
 TAG64 (MOVE 2 -12 P) 
       (HLRZ@ 1 -7 P) 
       (CALL 2 (E LOADCOMP) S) 
 TAG63 (CALL 0 (E SAVEACS) S) 
       (MOVE 1 -1 P) 
       (MOVEM 1 (SPECIAL CCLST) S) 
       (MOVE 1 (SPECIAL ACS) S) 
       (HLRZ@ 2 -2 P) 
       (MOVEM 2 (SPECIAL ACS) S) 
       (MOVEM 1 -1 P) 
       (MOVE 1 -12 P) 
       (CALL 1 (E SLOTCONT) S) 
       (MOVEI 2 (QUOTE (NIL . QT)) S) 
       (CALL 2 (E EQUAL) S) 
       (MOVE 2 -1 P) 
       (MOVEM 2 (SPECIAL ACS) S) 
       (CLEARM 0 -3 P) 
       (MOVEM 1 -4 P) 
       (MOVEI 2 (QUOTE (GO RETURN)) S) 
       (HLRZ@ 1 -7 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E MEMQ) S) 
       (JUMPN 1 TAG71) 
       (HRRZ@ 1 -14 P) 
       (JUMPN 1 TAG76) 
       (MOVE 1 -13 P) 
       (JUMPE 1 TAG74) 
       (MOVE 1 -4 P) 
       (JUMPN 1 TAG74) 
       (MOVE 1 0 P) 
       (CALL 1 (E USEDTAGP) S) 
       (MOVEM 1 -3 P) 
       (JUMPE 1 TAG74) 
 TAG76 (MOVE 1 -11 P) 
       (CALL 1 (E OUTJRST) S) 
       (JRST 0 TAG73) 
 TAG74 (MOVE 1 -10 P) 
       (CALL 1 (E RESTORE) S) 
 TAG73 
 TAG71 (HLRZ@ 1 -2 P) 
       (MOVEM 1 (SPECIAL ACS) S) 
       (HRRZ@ 1 -2 P) 
       (HLRZ@ 1 1) 
       (MOVEM 1 (SPECIAL PDL) S) 
       (CALL 1 (E LENGTH) S) 
       (MOVEM 1 (SPECIAL PDLDEPTH) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E USEDTAGP) S) 
       (JUMPE 1 TAG107) 
       (MOVE 1 0 P) 
       (CALL 1 (E OUTSTAT) S) 
 TAG107 
       (JRST 0 TAG6) 
 TAG5  (CLEARM 0 -3 P) 
 TAG6  (HRRZ@ 1 -14 P) 
       (MOVEM 1 -14 P) 
       (JRST 0 TAG1) 
 TAG10 (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 15 0 15 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP P2GO SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CALL 1 (E CADR) S) 
       (PUSH P 1) 
       (CALL 0 (E SAVEACS) S) 
       (CALL 0 (E CLRPVARS) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG5) 
       (MOVE 1 0 P) 
       (CALL 1 (E EQUIVTAG) S) 
       (CALL 1 (E OUTJRST) S) 
       (JRST 0 TAG4) 
 TAG5  (MOVE 2 (SPECIAL GOTABAC) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E LOADCOMP) S) 
       (MOVE 1 (SPECIAL VGO) S) 
       (CALL 1 (E OUTJRST) S) 
 TAG4  (MOVE 1 -1 P) 
       (JUMPN 1 TAG10) 
       (TDZA 1 1) 
 TAG10 (MOVEI 1 (QUOTE T) S) 
       (MOVE 2 (SPECIAL VALUEAC) S) 
       (SUB P (C 3 0 3 0)) 
       (JCALL 2 (E MARKVAL) S) 
       NIL 

(LAP P2PROG SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL PVR) S) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (JUMPE 2 TAG10) 
       (MOVE 1 2) 
       (JRST 0 TAG7) 
 TAG10 (JUMPE 3 TAG13) 
       (CALL 0 (E FREEAC) S) 
       (JRST 0 TAG7) 
 TAG13 (MOVEI 1 (QUOTE NIL)) 
 TAG7  (MOVEM 1 (SPECIAL PVR) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (HRRZ@ 1 -3 P) 
       (CALL 1 (E CADR) S) 
       (CALL 2 (E SPECBIND) S) 
       (CLEARM 0 (SPECIAL PRGSPFLG) S) 
       (MOVEM 1 0 P) 
       (CALL 0 (E CLEAR1) S) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL GOLIST) S) 
       (0 0 (SPECIAL EXIT) S) 
       (0 0 (SPECIAL EXITN) S) 
       (0 0 (SPECIAL PRSSL) S) 
       (0 0 (SPECIAL PROGSW) S) 
       (0 0 (SPECIAL VGO) S) 
       (CALL 0 (E GUARDLOCS) S) 
       (MOVE 1 (SPECIAL P2CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P2CNT) S) 
       (MOVEI 1 (QUOTE T) S) 
       (MOVEM 1 (SPECIAL PROGSW) S) 
       (MOVEI 1 (QUOTE (TAG)) S) 
       (CALL 17 (E NEXTSYM) S) 
       (MOVEM 1 (SPECIAL EXIT) S) 
       (MOVEI 1 (QUOTE (TAG)) S) 
       (CALL 17 (E NEXTSYM) S) 
       (MOVEM 1 (SPECIAL EXITN) S) 
       (MOVEI 1 (QUOTE (TAG)) S) 
       (CALL 17 (E NEXTSYM) S) 
       (MOVEM 1 (SPECIAL VGO) S) 
       (MOVE 2 (SPECIAL EXIT) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 (SPECIAL EXITN) S) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 (SPECIAL VGO) S) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E CONS) S) 
       (HRRZ@ 2 -5 P) 
       (HLRZ@ 2 2) 
       (CALL 2 (E CONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEM 1 (SPECIAL GOLIST) S) 
       (HRRZ@ 1 -3 P) 
       (CALL 1 (E CADR) S) 
       (CALL 1 (E NONSPECVARS) S) 
       (MOVEM 1 (SPECIAL PROGVARS) S) 
       (HRRZ@ 1 -3 P) 
       (CALL 1 (E CDDR) S) 
       (MOVEM 1 -3 P) 
 TAG1  (MOVE 1 -3 P) 
       (JUMPE 1 TAG2) 
       (MOVE 1 (SPECIAL P2CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P2CNT) S) 
       (MOVE 1 (SPECIAL PROGSW) S) 
       (JUMPN 1 TAG26) 
       (MOVE 1 (SPECIAL PRSSL) S) 
       (CALL 1 (E RESTORE) S) 
 TAG26 (HLRZ@ 1 -3 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG31) 
       (HLRZ@ 1 -3 P) 
       (CALL 1 (E PROGTAG) S) 
       (JRST 0 TAG30) 
 TAG31 (HRRZ@ 1 -3 P) 
       (JUMPN 1 TAG32) 
       (HLRZ@ 1 -3 P) 
       (HLRZ@ 1 1) 
       (CAIE 1 (QUOTE RETURN) S) 
       (JRST 0 TAG32) 
       (MOVEI 2 (QUOTE ((QUOTE NIL))) S) 
       (HLRZ@ 1 -3 P) 
       (HRRZ@ 1 1) 
       (CALL 2 (E EQUAL) S) 
       (JUMPN 1 TAG2) 
       (MOVE 2 (SPECIAL PVR) S) 
       (HLRZ@ 1 -3 P) 
       (CALL 1 (E CADR) S) 
       (CALL 2 (E LOADCOMP) S) 
       (MOVE 1 (SPECIAL EXITN) S) 
       (CALL 1 (E USEDTAGP) S) 
       (JUMPE 1 TAG42) 
       (MOVE 1 (SPECIAL EXIT) S) 
       (CALL 1 (E OUTJRST) S) 
       (JRST 0 TAG2) 
 TAG42 (JRST 0 TAG3) 
       (JRST 0 TAG30) 
 TAG32 (HLRZ@ 1 -3 P) 
       (CALL 1 (E COMPSTAT) S) 
 TAG30 (HRRZ@ 1 -3 P) 
       (MOVEM 1 -3 P) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 1 (SPECIAL EXITN) S) 
       (CALL 1 (E OUTENDTAG) S) 
       (HLRZ@ 1 (SPECIAL LASTOUT) S) 
       (HLRZ@ 1 1) 
       (CAIN 1 (QUOTE JRST) S) 
       (JRST 0 TAG47) 
       (MOVEI 2 (QUOTE (NIL . QT)) S) 
       (MOVE 1 (SPECIAL PVR) S) 
       (CALL 2 (E LOADARG) S) 
 TAG47 
 TAG3  (MOVE 1 (SPECIAL EXIT) S) 
       (CALL 1 (E OUTENDTAG) S) 
       (MOVE 1 (SPECIAL P2CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P2CNT) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P2CNT) S) 
       (MOVE 1 (SPECIAL VGO) S) 
       (CALL 1 (E USEDTAGP) S) 
       (JUMPE 1 TAG52) 
       (HRRZ@ 2 (SPECIAL GOLIST) S) 
       (HRRZ@ 2 2) 
       (HRRZ@ 2 2) 
       (MOVE 1 (SPECIAL VGO) S) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E OUTGOTAB) S) 
 TAG52 (PUSHJ P SPECSTR) 
       (MOVE 1 0 P) 
       (JUMPE 1 TAG54) 
       (MOVEI 1 (QUOTE (PUSHJ P SPECSTR)) S) 
       (CALL 1 (E OUTSTAT) S) 
 TAG54 (MOVE 1 (SPECIAL PVR) S) 
       (JUMPN 1 TAG55) 
       (TDZA 1 1) 
 TAG55 (MOVEI 1 (QUOTE T) S) 
       (MOVE 2 (SPECIAL PVR) S) 
       (CALL 2 (E MARKVAL) S) 
       (SUB P (C 4 0 4 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP P2PROG2 SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (HRRZ@ 1 1) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (CALL 1 (E LENGTH) S) 
       (MOVEI 2 (QUOTE 2)) 
       (CALL 2 (E *LESS) S) 
       (JUMPE 1 TAG6) 
       (MOVEI 1 (QUOTE (TOFEWARGS-P2PROG2)) S) 
       (CALL 17 (E USERERR) S) 
 TAG6  (HLRZ@ 1 -1 P) 
       (CALL 1 (E COMPSTAT) S) 
       (HRRZ@ 1 -1 P) 
       (HRRZ@ 1 1) 
       (JUMPN 1 TAG10) 
       (MOVE 3 -2 P) 
       (MOVE 2 -3 P) 
       (HRRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (CALL 3 (E COMPFORM) S) 
       (JRST 0 TAG2) 
 TAG10 (MOVE 1 -3 P) 
       (JUMPN 1 TAG15) 
       (MOVE 1 -2 P) 
       (JUMPE 1 TAG13) 
 TAG15 (PUSH P -1 P) 
       (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (PUSH P 1) 
       (MOVE 2 -5 P) 
       (JUMPN 2 TAG22) 
       (CALL 0 (E FREEAC) S) 
       (MOVE 2 1) 
 TAG22 (POP P 1) 
       (CALL 2 (E COMPEXPR) S) 
       (MOVE 2 (SPECIAL LDLST) S) 
       (MOVEM 1 -1 P) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL LDLST) S) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG12) 
 TAG13 (HRRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E COMPSTAT) S) 
 TAG12 (HRRZ@ 1 -1 P) 
       (HRRZ@ 1 1) 
       (MOVEM 1 -1 P) 
 TAG1  (MOVE 1 -1 P) 
       (JUMPN 1 TAG26) 
       (MOVE 2 -2 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E TESTJUMP) S) 
       (JRST 0 TAG2) 
 TAG26 (HLRZ@ 1 -1 P) 
       (CALL 1 (E COMPSTAT) S) 
       (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG1) 
 TAG2  (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(LAP P2PROGN SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (HRRZ@ 1 1) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG3) 
 TAG1  (HRRZ@ 1 0 P) 
       (JUMPN 1 TAG10) 
       (MOVE 3 -1 P) 
       (MOVE 2 -2 P) 
       (HLRZ@ 1 0 P) 
       (CALL 3 (E COMPFORM) S) 
       (JRST 0 TAG2) 
 TAG10 (HLRZ@ 1 0 P) 
       (CALL 1 (E COMPSTAT) S) 
       (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
 TAG2  (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(LAP P2QUOTE SUBR) 
       (PUSH P 1) 
       (PUSH P 3) 
       (JUMPE 3 TAG2) 
       (HLRZ@ 1 3) 
       (JUMPE 1 TAG6) 
       (HRRZ@ 2 -1 P) 
       (HLRZ@ 2 2) 
       (JRST 0 TAG5) 
 TAG6  (HRRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (JUMPE 1 TAG11) 
       (TDZA 2 2) 
 TAG11 (MOVEI 2 (QUOTE T) S) 
 TAG5  (MOVEI 4 (QUOTE NIL)) 
       (HRRZ@ 3 0 P) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 4 (E BOOLARGS) S) 
 TAG2  (MOVEI 2 (QUOTE QT) S) 
       (HRRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (SUB P (C 2 0 2 0)) 
       (JCALL 2 (E CONS) S) 
       NIL 

(LAP P2RETURN SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CALL 0 (E SAVEACS) S) 
       (CALL 0 (E CLRPVARS) S) 
       (MOVEI 2 (QUOTE (QUOTE NIL)) S) 
       (HRRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 TAG2) 
       (MOVE 1 (SPECIAL EXITN) S) 
       (CALL 1 (E OUTJRST) S) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 2 (SPECIAL PVR) S) 
       (HRRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E LOADCOMP) S) 
       (MOVE 1 (SPECIAL EXIT) S) 
       (CALL 1 (E OUTJRST) S) 
 TAG1  (POP P 1) 
       (JUMPN 1 TAG5) 
       (TDZA 1 1) 
 TAG5  (MOVEI 1 (QUOTE T) S) 
       (MOVE 2 (SPECIAL VALUEAC) S) 
       (SUB P (C 1 0 1 0)) 
       (JCALL 2 (E MARKVAL) S) 
       NIL 

(LAP P2RPLAC SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CALL 1 (E CADR) S) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P 1) 
       (CALL 0 (E FREEAC) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E COMPEXPR) S) 
       (MOVEM 1 0 P) 
       (HRRZ@ 1 -3 P) 
       (CALL 1 (E CADR) S) 
       (PUSH P 1) 
       (CALL 0 (E FREEAC) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E COMPEXPR) S) 
       (MOVE 2 -2 P) 
       (MOVEM 1 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E ILOC1) S) 
       (MOVE 1 -1 P) 
       (CALL 1 (E LOC) S) 
       (CALL 0 (E CLEARBOTH) S) 
       (MOVEI 2 (QUOTE (NIL . QT)) S) 
       (MOVE 1 -1 P) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 TAG5) 
       (MOVEI 2 (QUOTE ((RPLACA HRRZS@) (RPLACD HLLZS@))) S) 
       (HLRZ@ 1 -3 P) 
       (CALL 2 (E ASSOC) S) 
       (CALL 1 (E CADR) S) 
       (PUSH P 1) 
       (MOVE 1 -1 P) 
       (CALL 1 (E LOC) S) 
       (MOVE 3 1) 
       (MOVEI 2 (QUOTE 0)) 
       (POP P 1) 
       (CALL 3 (E OUT1) S) 
       (JRST 0 TAG4) 
 TAG5  (MOVEI 2 (QUOTE ((RPLACA HRLM@) (RPLACD HRRM@))) S) 
       (HLRZ@ 1 -3 P) 
       (CALL 2 (E ASSOC) S) 
       (CALL 1 (E CADR) S) 
       (PUSH P 1) 
       (CALL 0 (E FREEAC) S) 
       (MOVE 2 1) 
       (MOVE 1 -2 P) 
       (CALL 2 (E PUTINAC) S) 
       (PUSH P 1) 
       (MOVE 1 -2 P) 
       (CALL 1 (E LOC) S) 
       (MOVE 3 1) 
       (POP P 2) 
       (POP P 1) 
       (CALL 3 (E OUT1) S) 
 TAG4  (MOVE 1 -1 P) 
       (CALL 1 (E REMOVE) S) 
       (MOVE 1 -2 P) 
       (JUMPN 1 TAG11) 
       (MOVE 1 0 P) 
       (CALL 1 (E REMOVE) S) 
 TAG11 (MOVE 1 0 P) 
       (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(LAP P2SETARG SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CALL 1 (E CADDR) S) 
       (CALL 2 (E COMPEXPR) S) 
       (PUSH P 1) 
       (CALL 1 (E LOC) S) 
       (HRRZ@ 1 -2 P) 
       (CALL 1 (E CAAR) S) 
       (CAIE 1 (QUOTE QUOTE) S) 
       (JRST 0 TAG5) 
       (MOVE 1 (SPECIAL PDLDEPTH) S) 
       (CALL 1 (E ADD1) S) 
       (CALL 1 (E MINUS) S) 
       (MOVE 3 1) 
       (MOVEI 2 (QUOTE 2)) 
       (MOVEI 1 (QUOTE MOVE) S) 
       (CALL 3 (E OUT1) S) 
       (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E PUTINAC) S) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE 2)) 
       (CALL 1 (E NCONS) S) 
       (HRRZ@ 2 -3 P) 
       (HLRZ@ 2 2) 
       (HRRZ@ 2 2) 
       (HLRZ@ 2 2) 
       (CALL 2 (E XCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE HRRM) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E OUTSTAT) S) 
       (JRST 0 TAG1) 
 TAG5  (HRRZ@ 1 -2 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E COMPEXPR) S) 
       (MOVEI 2 (QUOTE 2)) 
       (CALL 2 (E LOADCOMP) S) 
       (CALL 0 (E CLEARACS) S) 
       (MOVE 1 (SPECIAL PDLDEPTH) S) 
       (CALL 1 (E ADD1) S) 
       (CALL 1 (E MINUS) S) 
       (MOVE 3 1) 
       (MOVEI 2 (QUOTE 2)) 
       (MOVEI 1 (QUOTE ADD) S) 
       (CALL 3 (E OUT1) S) 
       (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E PUTINAC) S) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL INUM0) S) 
       (CALL 1 (E MINUS) S) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE 2)) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE HRRM) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E OUTSTAT) S) 
       (MOVEI 1 (QUOTE NIL)) 
 TAG1  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP P2SETQ 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)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (JUMPN 2 TAG6) 
       (CALL 0 (E FREEAC) S) 
       (JRST 0 TAG5) 
 TAG6  (MOVE 1 -10 P) 
 TAG5  (HRRZ@ 2 -11 P) 
       (HLRZ@ 2 2) 
       (MOVEM 2 -3 P) 
       (MOVE 2 1) 
       (MOVEM 1 -6 P) 
       (HRRZ@ 1 -11 P) 
       (CALL 1 (E CADR) S) 
       (CALL 2 (E COMPEXPR) S) 
       (MOVE 2 -6 P) 
       (MOVEM 1 -4 P) 
       (CALL 2 (E ILOC1) S) 
       (MOVE 1 -3 P) 
       (CALL 1 (E SPECVARP) S) 
       (JUMPE 1 TAG13) 
       (MOVE 2 (SPECIAL LDLST) S) 
       (MOVE 1 -3 P) 
       (CALL 2 (E ASSOC) S) 
       (MOVEM 1 -5 P) 
       (JUMPE 1 TAG13) 
       (MOVE 1 -5 P) 
       (CALL 1 (E CLRSPVAR) S) 
 TAG13 (MOVE 1 -4 P) 
       (CALL 1 (E REMOVE) S) 
       (MOVE 1 -3 P) 
       (CALL 1 (E FREEZE) S) 
       (MOVE 1 -4 P) 
       (CALL 1 (E LOC) S) 
       (MOVEM 1 -1 P) 
       (MOVE 1 -3 P) 
       (CALL 1 (E SPECVARP) S) 
       (JUMPE 1 TAG17) 
       (MOVEI 2 (QUOTE T) S) 
       (JRST 0 TAG16) 
 TAG17 (MOVE 2 (SPECIAL P2CNT) S) 
       (MOVE 1 -3 P) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 -6 P) 
       (MOVEM 1 0 P) 
       (CALL 2 (E ILOC) S) 
       (MOVE 2 1) 
       (JUMPE 2 TAG16) 
       (MOVE 1 0 P) 
       (CALL 1 (E LOC) S) 
       (CALL 1 (E SLOTCONT) S) 
       (CALL 1 (E DVP) S) 
       (JUMPE 1 TAG22) 
       (TDZA 2 2) 
 TAG22 (MOVEI 2 (QUOTE T) S) 
 TAG16 (MOVE 1 (SPECIAL P2CNT) S) 
       (MOVEM 2 -2 P) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL P2CNT) S) 
       (MOVE 1 -10 P) 
       (JUMPN 1 TAG24) 
       (MOVE 1 -2 P) 
       (JUMPN 1 TAG24) 
       (MOVE 1 -1 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG32) 
       (MOVE 1 -1 P) 
       (CALL 1 (E SLOTCONT) S) 
       (CALL 1 (E DVP) S) 
       (JUMPN 1 TAG32) 
       (MOVE 1 -3 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVE 1 -1 P) 
       (CALL 2 (E SETSLOT) S) 
       (JRST 0 TAG1) 
 TAG32 (MOVE 1 -3 P) 
       (CALL 1 (E NCONS) S) 
       (CALL 1 (E SLOTPUSH) S) 
       (MOVE 1 -1 P) 
       (CALL 1 (E OUTPUSH) S) 
       (JRST 0 TAG1) 
 TAG24 (MOVE 1 -2 P) 
       (JUMPE 1 TAG41) 
       (MOVEI 2 (QUOTE (NIL . QT)) S) 
       (MOVE 1 -4 P) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 TAG41) 
       (MOVE 1 -3 P) 
       (CALL 1 (E SPECVARP) S) 
       (JUMPE 1 TAG45) 
       (MOVE 1 -3 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE SPECIAL) S) 
       (CALL 2 (E XCONS) S) 
       (JRST 0 TAG44) 
 TAG45 (MOVE 1 (SPECIAL P2CNT) S) 
       (CALL 1 (E SUB1) S) 
       (MOVE 2 -3 P) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 -6 P) 
       (CALL 2 (E ILOC) S) 
 TAG44 (MOVEM 1 -4 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG51) 
       (MOVE 1 -3 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVE 1 -4 P) 
       (CALL 2 (E SETSLOT) S) 
 TAG51 (MOVE 1 -10 P) 
       (JUMPE 1 TAG55) 
       (MOVE 1 -6 P) 
       (CALL 1 (E SLOTCONT) S) 
       (CALL 1 (E DVP) S) 
       (JUMPE 1 TAG53) 
 TAG55 (MOVE 3 -4 P) 
       (MOVEI 2 (QUOTE 0)) 
       (MOVEI 1 (QUOTE CLEARM) S) 
       (CALL 3 (E OUT1) S) 
       (JRST 0 TAG52) 
 TAG53 (MOVEI 2 (QUOTE DUP) S) 
       (MOVE 1 -3 P) 
       (CALL 2 (E CONS) S) 
       (MOVE 2 1) 
       (MOVE 1 -6 P) 
       (CALL 2 (E SETSLOT) S) 
       (MOVE 3 -4 P) 
       (MOVE 2 -6 P) 
       (MOVEI 1 (QUOTE CLEARB) S) 
       (CALL 3 (E OUT1) S) 
 TAG52 (JRST 0 TAG1) 
 TAG41 (MOVE 1 -1 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG64) 
       (MOVEI 2 (QUOTE 0)) 
       (MOVE 1 -1 P) 
       (CALL 2 (E *LESS) S) 
       (JUMPN 1 TAG64) 
       (MOVE 1 -1 P) 
       (CALL 1 (E SLOTCONT) S) 
       (CALL 1 (E DVP) S) 
       (JUMPE 1 TAG62) 
 TAG64 (MOVE 2 -4 P) 
       (MOVE 1 -6 P) 
       (CALL 2 (E LOADARG) S) 
       (MOVE 1 -6 P) 
       (MOVEM 1 -1 P) 
 TAG62 (MOVE 1 -3 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVE 1 -1 P) 
       (CALL 2 (E SETSLOT) S) 
       (MOVE 1 -3 P) 
       (CALL 1 (E SPECVARP) S) 
       (JUMPE 1 TAG67) 
       (MOVE 1 -1 P) 
       (CAIE 1 (QUOTE 0)) 
       (JRST 0 TAG71) 
       (MOVE 1 -3 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE SPECIAL) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E OUTPOP) S) 
       (JRST 0 TAG70) 
 TAG71 (MOVE 1 -3 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE SPECIAL) S) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 1) 
       (MOVE 1 -1 P) 
       (CALL 2 (E OUTMOVEM) S) 
 TAG70 
 TAG67 
 TAG1  (MOVE 3 -7 P) 
       (MOVE 2 -10 P) 
       (MOVE 1 -3 P) 
       (SUB P (C 12 0 12 0)) 
       (JCALL 3 (E COMPFORM) S) 
       NIL 

(LAP P2STORE SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CALL 1 (E CADDR) S) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P 1) 
       (JUMPN 2 TAG5) 
       (CALL 0 (E FREEAC) S) 
       (MOVE 2 1) 
       (JRST 0 TAG4) 
 TAG5  (MOVE 2 -2 P) 
 TAG4  (POP P 1) 
       (CALL 2 (E COMPEXPR) S) 
       (MOVEM 1 0 P) 
       (CALL 1 (E LOC) S) 
       (HRRZ@ 1 -2 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E COMPSTAT) S) 
       (MOVE 2 0 P) 
       (MOVE 1 (SPECIAL ARRAYAC) S) 
       (CALL 2 (E LOADARG) S) 
       (MOVEI 1 (QUOTE (PUSHJ P NSTR)) S) 
       (CALL 1 (E OUTSTAT) S) 
       (MOVE 1 0 P) 
       (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP PASS2 SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL ACS) S) 
       (0 0 (SPECIAL PDL) S) 
       (0 0 (SPECIAL PDLDEPTH) S) 
       (0 0 (SPECIAL MINDEPTH) S) 
       (0 0 (SPECIAL LDLST) S) 
       (0 0 (SPECIAL PRGSPFLG) S) 
       (0 0 (SPECIAL CCLST) S) 
       (0 0 (SPECIAL VARLIST) S) 
       (0 0 (SPECIAL PROGVARS) S) 
       (0 0 (SPECIAL PROGSW) S) 
       (0 0 (SPECIAL GOLIST) S) 
       (0 0 (SPECIAL CTAG) S) 
       (0 0 (SPECIAL RSL) S) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (MOVEI 1 (QUOTE 1)) 
       (MOVEM 1 (SPECIAL P2CNT) S) 
       (MOVE 1 (SPECIAL NACS) S) 
       (CALL 1 (E LISTNILS) S) 
       (MOVEM 1 (SPECIAL ACS) S) 
       (MOVE 2 (SPECIAL NACS) S) 
       (MOVEI 1 (QUOTE 1)) 
       (CALL 2 (E LSH) S) 
       (CALL 1 (E SUB1) S) 
       (MOVEM 1 (SPECIAL ALLACS) S) 
       (CLEARM 0 (SPECIAL PDL) S) 
       (MOVE 1 (SPECIAL PDL) S) 
       (CALL 1 (E LENGTH) S) 
       (MOVEM 1 (SPECIAL PDLDEPTH) S) 
       (MOVEM 1 (SPECIAL MINDEPTH) S) 
       (HRRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E BINDARGS) S) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (CALL 0 (E ATMARGIN) S) 
       (JUMPN 1 TAG5) 
       (MOVEI 1 (QUOTE 2)) 
       (CALL 1 (E LINEF) S) 
 TAG5  (MOVE 1 -1 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 -3 P) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE LAP) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E OUTSTAT) S) 
       (HLRZ@ 1 -2 P) 
       (CAIE 1 (QUOTE FSUBR) S) 
       (JRST 0 TAG10) 
       (HRRZ@ 1 -2 P) 
       (CALL 1 (E CDAR) S) 
       (JUMPE 1 TAG12) 
       (MOVEI 1 (QUOTE (PUSHJ P *AMAKE)) S) 
       (CALL 1 (E OUTSTAT) S) 
 TAG12 (JRST 0 TAG7) 
 TAG10 (HLRZ@ 1 -2 P) 
       (CAIE 1 (QUOTE LSUBR) S) 
       (JRST 0 TAG15) 
       (MOVEI 1 (QUOTE (JSP 3 *LCALL)) S) 
       (CALL 1 (E OUTSTAT) S) 
       (MOVEI 3 (QUOTE P2ARG) S) 
       (MOVEI 2 (QUOTE P2) S) 
       (MOVEI 1 (QUOTE ARG) S) 
       (CALL 3 (E INITPROP) S) 
 TAG15 
 TAG7  (MOVEI 2 (QUOTE T) S) 
       (HRRZ@ 1 -2 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E SPECBIND) S) 
       (MOVEM 1 0 P) 
       (HRRZ@ 1 -2 P) 
       (CALL 1 (E CAADR) S) 
       (CAIN 1 (QUOTE PROG) S) 
       (JRST 0 TAG17) 
       (CLEARM 0 (SPECIAL PRGSPFLG) S) 
 TAG17 (MOVE 2 (SPECIAL VALUEAC) S) 
       (HRRZ@ 1 -2 P) 
       (CALL 1 (E CADR) S) 
       (CALL 2 (E LOADCOMP) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E EXITBUM) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E OUTSTAT) S) 
       (CALL 1 (E OUTSTAT) S) 
       (HLRZ@ 1 -2 P) 
       (CAIE 1 (QUOTE LSUBR) S) 
       (JRST 0 TAG22) 
       (MOVEI 2 (QUOTE P2) S) 
       (MOVEI 1 (QUOTE ARG) S) 
       (CALL 2 (E DELETEPROP) S) 
 TAG22 (MOVE 1 (SPECIAL LDLST) S) 
       (JUMPE 1 TAG24) 
       (MOVEI 1 (QUOTE (LDLSTLEFT-PASS2)) S) 
       (CALL 17 (E COMPERR) S) 
 TAG24 (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 4 0 4 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP PROGTAG SUBR) 
       (PUSH P 1) 
       (CALL 0 (E CLEARBOTH) S) 
       (CALL 0 (E CLEARACS) S) 
       (CALL 0 (E CLRPVARS) S) 
       (MOVE 1 (SPECIAL PRSSL) S) 
       (CALL 1 (E RESTORE) S) 
       (POP P 1) 
       (CALL 1 (E EQUIVTAG) S) 
       (JCALL 1 (E OUTSTAT) S) 
       NIL 

(LAP PROTECTACS SUBR) 
       (PUSH P 1) 
       (CALL 1 (E ACEFFECTS) S) 
       (PUSH P (C 0 0 (QUOTE 0) 0)) 
       (PUSH P 1) 
 TAG1  (MOVE 1 -1 P) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 -1 P) 
       (MOVE 1 0 P) 
       (CAIN 1 (QUOTE 0)) 
       (JRST 0 TAG3) 
       (PUSH P (C 0 0 TAG10 0)) 
       (PUSH P (C 0 0 (QUOTE 1) 0)) 
       (PUSH P (C 0 0 (QUOTE 1) 0)) 
       (PUSH P 1) 
       (MOVNI 6 3) 
       (JCALL 16 (E BOOLE) S) 
 TAG10 (CAIN 1 (QUOTE 0)) 
       (JRST 0 TAG6) 
       (MOVE 1 -1 P) 
       (CALL 1 (E CLEARAC) S) 
 TAG6  (MOVEI 2 (QUOTE -1)) 
       (MOVE 1 0 P) 
       (CALL 2 (E LSH) S) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP PUTINAC SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CALL 1 (E LOC) S) 
       (PUSH P 1) 
       (CALL 1 (E ACNUMP) S) 
       (JUMPN 1 TAG5) 
       (MOVE 1 -1 P) 
       (MOVE 2 -2 P) 
       (MOVEM 1 0 P) 
       (CALL 2 (E LOADARG) S) 
 TAG5  (MOVE 1 -2 P) 
       (CALL 1 (E REMOVE) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E CPUSH) S) 
       (MOVE 1 0 P) 
       (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP REMOVE SUBR) 
       (PUSH P 1) 
       (MOVEI 2 (QUOTE VALUE) S) 
       (MOVEI 1 (QUOTE LDLST) S) 
       (CALL 2 (E GET) S) 
       (PUSH P 1) 
 TAG1  (HRRZ@ 1 0 P) 
       (JUMPE 1 TAG3) 
       (MOVE 2 -1 P) 
       (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 TAG10) 
       (HRRZ@ 1 0 P) 
       (HRRZ@ 1 1) 
       (HRRM@ 1 0 P) 
       (JRST 0 TAG7) 
 TAG10 (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
 TAG7  (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP RESTORE SUBR) 
       (PUSH P 1) 
       (CALL 1 (E LENGTH) 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)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVE 2 (SPECIAL PDLDEPTH) S) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG13) 
       (MOVE 1 (SPECIAL PDL) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 -6 P) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E PRINTMSG) S) 
       (MOVEI 1 (QUOTE (PDLSHORT-RESTORE)) S) 
       (CALL 17 (E COMPERR) S) 
 TAG13 
 TAG1  (MOVEI 1 (QUOTE 0)) 
       (MOVEM 1 0 P) 
 TAG2  (MOVE 2 (SPECIAL PDLDEPTH) S) 
       (MOVE 1 -5 P) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 TAG15) 
       (MOVE 1 0 P) 
       (CALL 1 (E SHRINKPDL) S) 
       (JRST 0 TAG7) 
 TAG15 (HLRZ@ 1 (SPECIAL PDL) S) 
       (MOVEM 1 -2 P) 
       (CALL 1 (E DVP) S) 
       (JUMPN 1 TAG3) 
       (MOVE 1 0 P) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 0 P) 
       (CALL 0 (E SLOTPOP) S) 
       (JRST 0 TAG2) 
 TAG3  (MOVE 1 0 P) 
       (CALL 1 (E SHRINKPDL) S) 
 TAG4  (MOVE 1 -6 P) 
       (MOVEI 2 (QUOTE 0)) 
       (MOVEM 2 0 P) 
       (MOVE 2 -5 P) 
       (MOVEM 1 -1 P) 
       (MOVE 1 (SPECIAL PDLDEPTH) S) 
       (CALL 2 (E *DIF) S) 
       (MOVEM 1 -4 P) 
 TAG5  (MOVE 1 -1 P) 
       (JUMPN 1 TAG17) 
       (CALL 0 (E FINDFREEAC) S) 
       (MOVEM 1 -1 P) 
       (JUMPN 1 TAG22) 
       (MOVEI 1 (QUOTE (NOAC-RESTORE)) S) 
       (CALL 17 (E COMPERR) S) 
 TAG22 (MOVE 2 -2 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E SETSLOT) S) 
       (MOVE 1 -1 P) 
       (CALL 1 (E OUTPOP) S) 
       (JRST 0 TAG1) 
 TAG17 (HLRZ@ 1 1) 
       (JUMPE 1 TAG25) 
       (HLRZ@ 1 -2 P) 
       (HLRZ@ 2 -1 P) 
       (HLRZ@ 2 2) 
       (CAME 2 1) 
       (JRST 0 TAG25) 
       (MOVE 2 -4 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E *PLUS) S) 
       (CALL 1 (E MINUS) S) 
       (MOVEM 1 -3 P) 
       (CALL 1 (E SLOTCONT) S) 
       (CALL 1 (E DVP) S) 
       (JUMPE 1 TAG6) 
 TAG25 (MOVE 1 0 P) 
       (CALL 1 (E ADD1) S) 
       (HRRZ@ 2 -1 P) 
       (MOVEM 1 0 P) 
       (MOVEM 2 -1 P) 
       (JRST 0 TAG5) 
 TAG6  (MOVE 2 -2 P) 
       (MOVE 1 -3 P) 
       (CALL 2 (E SETSLOT) S) 
       (MOVE 1 -3 P) 
       (CALL 1 (E OUTPOP) S) 
       (JRST 0 TAG1) 
 TAG7  (SUB P (C 7 0 7 0)) 
       (POPJ P) 
       NIL 

(LAP RSLSET SUBR) 
       (PUSH P 1) 
       (CAME 1 (SPECIAL CTAG) S) 
       (JRST 0 TAG2) 
       (MOVE 1 (SPECIAL RSL) S) 
       (JUMPE 1 TAG4) 
       (MOVE 2 (SPECIAL ACS) S) 
       (HLRZ@ 1 1) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 TAG11) 
       (MOVE 2 (SPECIAL PDL) S) 
       (HRRZ@ 1 (SPECIAL RSL) S) 
       (HLRZ@ 1 1) 
       (CALL 2 (E EQUAL) S) 
       (JUMPN 1 TAG4) 
 TAG11 (MOVEI 1 (QUOTE LOSE) S) 
       (JRST 0 TAG3) 
 TAG4  (MOVE 1 (SPECIAL ACS) S) 
       (CALL 1 (E TOPCOPY) S) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL PDL) S) 
       (CALL 1 (E TOPCOPY) S) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
 TAG3  (MOVEM 1 (SPECIAL RSL) S) 
       (JRST 0 TAG1) 
 TAG2  (MOVEI 1 (QUOTE NIL)) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP RST SUBR) 
       (PUSH P 1) 
       (JUMPE 1 TAG1) 
       (MOVE 2 (SPECIAL GOLIST) S) 
       (CALL 2 (E ASSOCR) S) 
       (JUMPE 1 TAG2) 
       (MOVE 1 (SPECIAL PRSSL) S) 
       (CALL 1 (E RESTORE) S) 
       (JRST 0 TAG1) 
 TAG2  (MOVEI 2 (QUOTE SET) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E REMPROP) S) 
       (JUMPE 1 TAG3) 
       (CALL 0 (E SAVEACS) S) 
       (MOVE 1 (SPECIAL PDL) S) 
       (CALL 1 (E TOPCOPY) S) 
       (MOVEI 3 (QUOTE LEVEL) S) 
       (MOVE 2 1) 
       (MOVE 1 0 P) 
       (CALL 3 (E PUTPROP) S) 
       (MOVE 1 (SPECIAL PDLDEPTH) S) 
       (MOVEM 1 (SPECIAL MINDEPTH) S) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 2 (QUOTE LEVEL) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E SEEKPROP) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG4) 
       (CALL 1 (E CADR) S) 
       (CALL 1 (E RESTORE) S) 
       (JRST 0 TAG1) 
 TAG4  (MOVEI 1 (QUOTE (NIL-RST)) S) 
       (CALL 17 (E COMPERR) S) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP SAVEACS SUBR) 
       (PUSH P (C 0 0 (QUOTE 0) 0)) 
 TAG1  (MOVE 1 0 P) 
       (CAMN 1 (SPECIAL NACS) S) 
       (JRST 0 TAG3) 
       (MOVE 1 0 P) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 0 P) 
       (CALL 1 (E CPUSH) S) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP SETSLOT SUBR) 
       (PUSH P 2) 
       (CALL 1 (E GETSLOT) S) 
       (POP P 2) 
       (HRLM@ 2 1) 
       (POPJ P) 
       NIL 

(LAP SHRINKPDL SUBR) 
       (PUSH P 1) 
       (CAIN 1 (QUOTE 0)) 
       (JRST 0 TAG2) 
       (MOVEI 5 (QUOTE 0)) 
       (MOVEI 4 (QUOTE 0)) 
       (MOVE 3 1) 
       (MOVEI 2 (QUOTE 0)) 
       (CALL 5 (E GENCONST) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE P) S) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE SUB) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E OUTSTAT) S) 
       (JRST 0 TAG1) 
 TAG2  (MOVEI 1 (QUOTE NIL)) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP SIDEEFFECTS SUBR) 
       (MOVEI 2 (QUOTE ACS) S) 
       (CALL 2 (E HASPROP) S) 
       (JUMPE 1 TAG1) 
       (TDZA 1 1) 
 TAG1  (MOVEI 1 (QUOTE T) S) 
       (POPJ P) 
       NIL 

(LAP SLOTCONT SUBR) 
       (CALL 1 (E GETSLOT) S) 
       (HLRZ@ 1 1) 
       (POPJ P) 
       NIL 

(LAP SLOTPOP SUBR) 
       (MOVE 1 (SPECIAL PDLDEPTH) S) 
       (CALL 1 (E SUB1) S) 
       (MOVEM 1 (SPECIAL PDLDEPTH) S) 
       (HRRZ@ 1 (SPECIAL PDL) S) 
       (MOVEM 1 (SPECIAL PDL) S) 
       (POPJ P) 
       NIL 

(LAP SLOTPUSH SUBR) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL PDLDEPTH) S) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 (SPECIAL PDLDEPTH) S) 
       (MOVE 2 (SPECIAL PDL) S) 
       (POP P 1) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 (SPECIAL PDL) S) 
       (POPJ P) 
       NIL 

(LAP SPECBIND SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P (C 0 0 (QUOTE 1) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVE 1 -3 P) 
       (JUMPN 1 TAG7) 
       (MOVE 1 0 P) 
       (JRST 0 TAG3) 
 TAG7  (HLRZ@ 1 -3 P) 
       (CALL 1 (E SPECVARP) S) 
       (JUMPE 1 TAG2) 
       (MOVE 1 (SPECIAL PRGSPFLG) S) 
       (JUMPN 1 TAG14) 
       (MOVEI 1 (QUOTE T) S) 
       (MOVEM 1 0 P) 
       (MOVEM 1 (SPECIAL PRGSPFLG) S) 
       (MOVEI 1 (QUOTE (JSP 6 SPECBIND)) S) 
       (CALL 1 (E OUTSTAT) S) 
 TAG14 (MOVE 1 -2 P) 
       (JUMPE 1 TAG17) 
       (MOVE 1 -1 P) 
       (JRST 0 TAG16) 
 TAG17 (MOVEI 1 (QUOTE 0)) 
 TAG16 (PUSH P 1) 
       (HLRZ@ 1 -4 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE SPECIAL) S) 
       (CALL 2 (E XCONS) S) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE S) S) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE 0)) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E OUTSTAT) S) 
 TAG2  (MOVE 1 -1 P) 
       (CALL 1 (E ADD1) S) 
       (HRRZ@ 2 -3 P) 
       (MOVEM 1 -1 P) 
       (MOVEM 2 -3 P) 
       (JRST 0 TAG1) 
 TAG3  (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(LAP SPECVARP SUBR) 
       (MOVE 2 (SPECIAL SPECVARS) S) 
       (JCALL 2 (E MEMBER) S) 
       NIL 

(LAP TESTJUMP 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)) 
       (JUMPN 2 TAG5) 
       (JRST 0 TAG1) 
 TAG5  (HLRZ@ 1 -3 P) 
       (HRRZ@ 2 -3 P) 
       (MOVEM 1 -1 P) 
       (MOVEM 2 -2 P) 
       (CALL 0 (E FREEAC) S) 
       (MOVE 2 1) 
       (MOVE 1 -4 P) 
       (CALL 2 (E PUTINAC) S) 
       (MOVE 3 -2 P) 
       (MOVE 2 1) 
       (MOVEM 1 0 P) 
       (MOVE 1 -1 P) 
       (CALL 3 (E OUTCJMP) S) 
       (MOVE 1 -1 P) 
       (JUMPE 1 TAG10) 
       (MOVE 1 -2 P) 
       (CALL 1 (E RSLSET) S) 
       (MOVEI 2 (QUOTE (NIL . QT)) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E SETSLOT) S) 
       (JRST 0 TAG7) 
 TAG10 (MOVE 1 0 P) 
       (CALL 1 (E SLOTCONT) S) 
       (MOVEI 2 (QUOTE (NIL . QT)) S) 
       (MOVEM 1 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E SETSLOT) S) 
       (MOVE 1 -2 P) 
       (CALL 1 (E RSLSET) S) 
       (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E SETSLOT) S) 
 TAG7  (MOVE 1 -4 P) 
 TAG1  (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(LAP TRANSOUT 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)) 
       (MOVE 1 3) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG1) 
       (HLRZ@ 1 3) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG1) 
       (HLRZ@ 1 -2 P) 
       (MOVEM 1 -2 P) 
       (MOVEI 2 (QUOTE IMMED) S) 
       (MOVE 1 -4 P) 
       (CALL 2 (E SEEKPROP) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG11) 
       (CALL 1 (E CADR) S) 
       (MOVEM 1 -4 P) 
       (JRST 0 TAG1) 
 TAG11 (MOVEI 5 (QUOTE 0)) 
       (MOVEI 4 (QUOTE 0)) 
       (MOVE 3 -2 P) 
       (MOVEI 2 (QUOTE 0)) 
       (MOVEI 1 (QUOTE 0)) 
       (CALL 5 (E GENCONST) S) 
       (MOVEM 1 -2 P) 
 TAG1  (MOVE 1 -2 P) 
       (CALL 1 (E NEEDS) S) 
       (JUMPE 1 TAG13) 
       (MOVEI 1 (QUOTE S) S) 
       (CALL 1 (E NCONS) S) 
       (JRST 0 TAG12) 
 TAG13 (MOVE 1 -2 P) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPE 1 TAG16) 
       (MOVEI 2 (QUOTE 0)) 
       (MOVE 1 -2 P) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG14) 
 TAG16 (MOVEI 1 (QUOTE NIL)) 
       (JRST 0 TAG12) 
 TAG14 (MOVEI 1 (QUOTE P) S) 
       (CALL 1 (E NCONS) S) 
 TAG12 (MOVE 2 -2 P) 
       (MOVEM 1 -1 P) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 -3 P) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 -4 P) 
       (SUB P (C 5 0 5 0)) 
       (JCALL 2 (E XCONS) S) 
       NIL 

(LAP USEDTAGP SUBR) 
       (MOVEI 2 (QUOTE USED) S) 
       (JCALL 2 (E HASPROP) S) 
       NIL 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE PASS2)))) (QUOTE ((EXPR CALLSUBR) (SUBR 
CALLSUBR) (*SUBR CALLSUBR) (*UNDEF CALLSUBR) (LSUBR CALLLSUBR) (*LSUBR CALLLSUBR) (FEXPR CALLFSUBR) (FSUBR CALLF
SUBR) (*FSUBR CALLFSUBR) (FUNVAR CALLFUNARGS) (CARCDR P2CARCDR) (P2BOOL DOP2BOOL) (P2ELSE DOP2ELSE) (P2VAL DOP2V
AL)))) 

(DEFPROP NULL BOOLNULL P2BOOL) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE P2ELSE)))) (QUOTE ((EQ BOOLEQ) (GO P2GO)
 (QUOTE P2QUOTE) (PROG2 P2PROG2) (RETURN P2RETURN) (SETQ P2SETQ)))) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE P2VAL)))) (QUOTE ((ARG P2ARG) (*EVAL P2*
EVAL) (COND P2COND) (PROG P2PROG) (RETURN P2RETURN) (RPLACA P2RPLAC) (RPLACD P2RPLAC) (SETARG P2SETARG) (STORE P
2STORE)))) 

(SETQ CARCDRDEPTH 4) 

(PROG (BASE COUNT LIMIT MIDDLE NAME) (SETQ BASE 2) (SETQ LIMIT (SUB1 (LSH 1 (ADD1 CARCDRDEPTH)))) (SETQ COUNT (L
SH 1 1)) LOOP (COND ((GREATERP COUNT LIMIT) (RETURN NIL))) (SETQ MIDDLE (SUBST (QUOTE A) 0 (SUBST (QUOTE D) 1 (C
DR (EXPLODE COUNT))))) (SETQ NAME (READLIST (APPEND (QUOTE (C)) MIDDLE (QUOTE (R))))) (PUTPROP NAME (CONS (CAR M
IDDLE) (COND ((CDR MIDDLE) (READLIST (APPEND (QUOTE (C)) (CDR MIDDLE) (QUOTE (R))))))) (QUOTE CARCDR)) (SETQ COU
NT (ADD1 COUNT)) (GO LOOP)) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE ACS)))) (QUOTE ((*APPEND 37) (ATOM 1) (C
ONS 3) (GENSYM 7) (GET 1) (LAST 3) (LENGTH 7) (MEMBER 37) (NCONS 3) (XCONS 3)))) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE COMMU)))) (QUOTE ((CONS XCONS) (EQUAL EQ
UAL) (*GREAT *LESS) (*LESS *GREAT) (*PLUS *PLUS) (*TIMES *TIMES)))) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE IMMED)))) (QUOTE ((CAME CAIE) (CAMN CAIN
) (HLLZS@ HLLZS) (HLRZ@ HLRZ) (HRLM@ HRLM) (HRRM@ HRRM) (HRRZ@ HRRZ) (HRRZS@ HRRZS) (MOVE MOVEI)))) 

(SETQ NACS 5) 

(SETQ VALUEAC 1) 

(SETQ FARGAC 1) 

(SETQ GOTABAC 1) 

(SETQ ARRAYAC 1) 

(SETQ INUM0 (MAKNUM 0 (QUOTE FIXNUM))) 

(ENDBLOCK PASS2) 

(BEGINBLOCK DEBUG) 

(LAP CMPBREAK SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVEI 2 (QUOTE T) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E INC) S) 
       (MOVEI 2 (QUOTE T) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E OUTC) S) 
       (CALL 0 (E ATMARGIN) S) 
       (JUMPE 1 TAG6) 
       (MOVEI 1 (QUOTE 1)) 
       (CALL 1 (E LINEF) S) 
       (JRST 0 TAG5) 
 TAG6  (MOVEI 1 (QUOTE 2)) 
       (CALL 1 (E LINEF) S) 
 TAG5  (MOVE 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E *APPEND) S) 
       (CALL 1 (E PRINL) S) 
       (MOVEI 1 (QUOTE 1)) 
       (CALL 1 (E LINEF) S) 
 TAG1  (MOVEI 1 (QUOTE ((EVALREAD))) S) 
       (CALL 17 (E ERRSET) S) 
       (MOVEI 2 (QUOTE (PROCEED)) S) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 TAG12) 
       (MOVEI 1 (QUOTE DONE) S) 
       (JRST 0 TAG2) 
 TAG12 (JRST 0 TAG1) 
 TAG2  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP COMPERR FSUBR) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE (*COMPILER ERROR*)) S) 
       (JCALL 2 (E CMPBREAK) S) 
       NIL 

(LAP EVALREAD SUBR) 
       (MOVEI 1 (QUOTE 1)) 
       (CALL 1 (E LINEF) S) 
       (CALL 0 (E READ) S) 
       (PUSH P 1) 
       (MOVE 1 (SPECIAL *SP) S) 
       (CALL 1 (E PRINC) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E *EVAL) S) 
       (SUB P (C 1 0 1 0)) 
       (JCALL 1 (E PRINC) S) 
       NIL 

(LAP LAPNOTES SUBR) 
       (PUSH P (C 0 0 TAG1 0)) 
       (MOVEI D (QUOTE EVAL) S) 
       (PUSH P D) 
       (PUSH P (SPECIAL TRACELIST) S) 
       (MOVNI 6 2) 
       (JCALL 16 (E MAPCAR) S) 
 TAG1  (JCALL 1 (E COPY) S) 
       NIL 

(LAP USERERR FSUBR) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE (*USER ERROR*)) S) 
       (JCALL 2 (E CMPBREAK) S) 
       NIL 

(SETQ TRACELIST NIL) 

(ENDBLOCK DEBUG) 

(BEGINBLOCK IO) 

(LAP ATMARGIN SUBR) 
       (CALL 0 (E CHRCT) S) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E LINELENGTH) S) 
       (CAME 1 0 P) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP CARRETN SUBR) 
       (CALL 0 (E ATMARGIN) S) 
       (JUMPN 1 TAG2) 
       (MOVEI 1 (QUOTE 1)) 
       (CALL 1 (E LINEF) S) 
       (JRST 0 TAG1) 
 TAG2  (MOVEI 1 (QUOTE NIL)) 
 TAG1  (POPJ P) 
       NIL 

(LAP CURCOL SUBR) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E LINELENGTH) S) 
       (CALL 1 (E ADD1) S) 
       (PUSH P 1) 
       (CALL 0 (E CHRCT) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (JCALL 2 (E *DIF) S) 
       NIL 

(LAP FORMF SUBR) 
       (MOVE 1 (SPECIAL *FF) S) 
       (CALL 1 (E PRINC) S) 
       (MOVE 1 (SPECIAL PAGEHEIGHT) S) 
       (MOVEM 1 (SPECIAL LINCNT) S) 
       (POPJ P) 
       NIL 

(LAP LINEF SUBR) 
       (PUSH P 1) 
 TAG1  (MOVE 1 0 P) 
       (CAIN 1 (QUOTE 0)) 
       (JRST 0 TAG3) 
       (CALL 0 (E TERPRI) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E SUB1) S) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP PRINL SUBR) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE PRINS) S) 
       (JRST 0 *MAPC) 
       NIL 

(LAP PRINS SUBR) 
       (PUSH P 1) 
       (CALL 1 (E FLATSIZE) S) 
       (CALL 1 (E ADD1) S) 
       (PUSH P 1) 
       (CALL 0 (E CHRCT) S) 
       (POP P 2) 
       (CALL 2 (E *LESS) S) 
       (JUMPE 1 TAG2) 
       (MOVEI 1 (QUOTE 1)) 
       (CALL 1 (E LINEF) S) 
 TAG2  (POP P 1) 
       (JCALL 1 (E PRINTEXPR) S) 
       NIL 

(LAP PRINTEXPR SUBR) 
       (CALL 1 (E PRIN1) S) 
       (MOVE 1 (SPECIAL *SP) S) 
       (JCALL 1 (E PRINC) S) 
       NIL 

(LAP PRINTN SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P (C 0 0 (QUOTE 1) 0)) 
 TAG1  (MOVE 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E *LESS) S) 
       (JUMPE 1 TAG6) 
       (MOVE 1 -1 P) 
       (JRST 0 TAG2) 
 TAG6  (MOVE 1 -2 P) 
       (CALL 1 (E PRINC) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E ADD1) S) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG2  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP PRINTSTAT SUBR) 
       (PUSH P 1) 
       (JUMPN 1 TAG2) 
       (CALL 0 (E CARRETN) S) 
       (MOVEI 1 (QUOTE 10)) 
       (CALL 1 (E TABTO) S) 
       (JRST 0 TAG1) 
 TAG2  (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG4) 
       (MOVEI 1 (QUOTE 2)) 
       (CALL 1 (E TABTO) S) 
       (JRST 0 TAG1) 
 TAG4  (HLRZ@ 1 0 P) 
       (CAIE 1 (QUOTE LAP) S) 
       (JRST 0 TAG5) 
       (MOVEI 1 (QUOTE 1)) 
       (CALL 1 (E TABTO) S) 
       (JRST 0 TAG1) 
 TAG5  (MOVEI 1 (QUOTE 10)) 
       (CALL 1 (E TABTO) S) 
 TAG1  (POP P 1) 
       (JCALL 1 (E PRINTEXPR) S) 
       NIL 

(LAP TABTO SUBR) 
       (PUSH P 1) 
       (CALL 0 (E CURCOL) S) 
       (MOVE 2 0 P) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG2) 
       (MOVEI 1 (QUOTE 1)) 
       (CALL 1 (E LINEF) S) 
 TAG2  (MOVE 1 0 P) 
       (PUSH P (SPECIAL *TB) S) 
       (CALL 1 (E SUB1) S) 
       (MOVEI 2 (QUOTE -3)) 
       (CALL 2 (E LSH) S) 
       (PUSH P 1) 
       (CALL 0 (E CURCOL) S) 
       (CALL 1 (E SUB1) S) 
       (MOVEI 2 (QUOTE -3)) 
       (CALL 2 (E LSH) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E *DIF) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E PRINTN) S) 
       (PUSH P (SPECIAL *SP) S) 
       (CALL 0 (E CURCOL) S) 
       (MOVE 2 1) 
       (EXCH 1 -1 P) 
       (CALL 2 (E *DIF) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (SUB P (C 1 0 1 0)) 
       (JCALL 2 (E PRINTN) S) 
       NIL 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PROG2 (SET (CAR PAIR) (INTERN (ASCII (CADR PAIR)))) (CAR PAIR)))) (QUOTE ((*SP
 40) (*TB 11) (*CR 15) (*LF 12) (*VT 13) (*FF 14) (*CO 54) (*PT 56) (*LP 50) (*RP 51) (*SL 57) (*AM 33) (*AT 100
) (*RO 177) (*COLON 72)))) 

(SETQ LINCNT 0) 

(SETQ PAGEHEIGHT 74) 

(SETQ PAGEWIDTH 120) 

(ENDBLOCK IO) 

(BEGINBLOCK GENERAL) 

(LAP ADDTOLIST SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CALL 2 (E MEMBER) S) 
       (JUMPE 1 TAG2) 
       (MOVE 1 0 P) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E CONS) S) 
 TAG1  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP ASSOCR SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
 TAG1  (MOVE 1 0 P) 
       (JUMPE 1 TAG3) 
       (CALL 1 (E CDAR) S) 
       (CAME 1 -1 P) 
       (JRST 0 TAG7) 
       (HLRZ@ 1 0 P) 
       (JRST 0 TAG2) 
 TAG7  (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
 TAG2  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP CONSTANTP SUBR) 
       (PUSH P 1) 
       (CALL 1 (E NUMBERP) S) 
       (JUMPN 1 TAG1) 
       (MOVEI 2 (QUOTE (T NIL)) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E MEMBER) S) 
       (JUMPN 1 TAG1) 
       (TDZA 1 1) 
 TAG1  (MOVEI 1 (QUOTE T) S) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP DEINITSYM SUBR) 
       (MOVEI 2 (QUOTE SYMNO) S) 
       (JCALL 2 (E DELETEPROP) S) 
       NIL 

(LAP FSUBRP SUBR) 
       (MOVEI 2 (QUOTE (FEXPR *FSUBR FSUBR)) S) 
       (JCALL 2 (E GETL) S) 
       NIL 

(LAP GETGET SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (HRRZ@ 1 1) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVE 1 -1 P) 
       (JUMPE 1 TAG3) 
       (MOVE 2 -2 P) 
       (HLRZ@ 1 -1 P) 
       (CALL 2 (E SEEKPROP) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG10) 
       (JRST 0 TAG2) 
 TAG10 (HRRZ@ 1 -1 P) 
       (HRRZ@ 1 1) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
 TAG2  (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(LAP LSUBRP SUBR) 
       (MOVEI 2 (QUOTE (LSUBR *LSUBR)) S) 
       (JCALL 2 (E GETL) S) 
       NIL 

(LAP MAKESPECIAL SUBR) 
       (PUSH P 1) 
       (MOVEI 2 (QUOTE LOCAL) S) 
       (CALL 2 (E HASPROP) S) 
       (JUMPE 1 TAG2) 
       (MOVEI 2 (QUOTE (LOCAL AND SPECIAL)) S) 
       (MOVE 1 0 P) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E PRINTMSG) S) 
 TAG2  (MOVEI 3 (QUOTE T) S) 
       (MOVEI 2 (QUOTE SPECIAL) S) 
       (MOVE 1 0 P) 
       (CALL 3 (E SETPROP) S) 
       (POP P 1) 
       (POPJ P) 
       NIL 

(LAP MAKESYM SUBR) 
       (JSP 6 SPECBIND) 
       (0 0 (SPECIAL *NOPOINT) S) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVEI 1 (QUOTE T) S) 
       (MOVEM 1 (SPECIAL *NOPOINT) S) 
       (MOVE 1 -1 P) 
       (CALL 1 (E EXPLODE) S) 
       (PUSH P 1) 
       (MOVE 1 -1 P) 
       (CALL 1 (E EXPLODE) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E *APPEND) S) 
       (CALL 1 (E MAKNAM) S) 
       (SUB P (C 2 0 2 0)) 
       (JRST 0 SPECSTR) 
       NIL 

(LAP MAKEUNSPECIAL SUBR) 
       (PUSH P 1) 
       (MOVEI 2 (QUOTE SPECIAL) S) 
       (CALL 2 (E REMPROP) S) 
       (JUMPE 1 TAG2) 
       (MOVE 1 0 P) 
 TAG2  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP NEXTSYM FSUBR) 
       (PUSH P 1) 
       (MOVEI 2 (QUOTE SYMNO) S) 
       (HLRZ@ 1 1) 
       (CALL 2 (E GET) S) 
       (PUSH P 1) 
       (HLRZ@ 1 -1 P) 
       (PUSH P 1) 
       (MOVE 1 -1 P) 
       (CALL 1 (E ADD1) S) 
       (MOVEI 3 (QUOTE SYMNO) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 3 (E PUTPROP) S) 
       (MOVE 2 0 P) 
       (HLRZ@ 1 -1 P) 
       (SUB P (C 2 0 2 0)) 
       (JCALL 2 (E MAKESYM) S) 
       NIL 

(LAP NTHCDR SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CALL 1 (E MINUSP) S) 
       (JUMPE 1 TAG6) 
       (MOVEI 1 (QUOTE (NEGNUM-NTHCDR)) S) 
       (CALL 17 (E COMPERR) S) 
 TAG6 
 TAG1  (MOVE 1 -1 P) 
       (CAIE 1 (QUOTE 0)) 
       (JRST 0 TAG10) 
       (MOVE 1 0 P) 
       (JRST 0 TAG2) 
 TAG10 (MOVE 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG12) 
       (MOVEI 1 (QUOTE (ATOM-NTHCDR)) S) 
       (CALL 17 (E COMPERR) S) 
 TAG12 (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (MOVE 1 -1 P) 
       (CALL 1 (E SUB1) S) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG1) 
 TAG2  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP STARTSYM FSUBR) 
       (PUSH P 1) 
 TAG1  (MOVE 1 0 P) 
       (JUMPE 1 TAG3) 
       (MOVEI 3 (QUOTE 1)) 
       (MOVEI 2 (QUOTE SYMNO) S) 
       (HLRZ@ 1 0 P) 
       (CALL 3 (E INITPROP) S) 
       (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP STOPSYM FSUBR) 
       (PUSH P 1) 
 TAG1  (MOVE 1 0 P) 
       (JUMPE 1 TAG3) 
       (MOVEI 2 (QUOTE SYMNO) S) 
       (HLRZ@ 1 0 P) 
       (CALL 2 (E DELETEPROP) S) 
       (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP SUBRP SUBR) 
       (MOVEI 2 (QUOTE (EXPR SUBR ARRAY *SUBR *UNDEF)) S) 
       (JCALL 2 (E GETL) S) 
       NIL 

(LAP TOPCOPY SUBR) 
       (MOVEI 2 (QUOTE NIL)) 
       (JCALL 2 (E *APPEND) S) 
       NIL 

(ENDBLOCK GENERAL) 

(ENDBLOCK COMPILER) 

(BEGINBLOCK UCI-ADDITIONS) 

(LAP NOCALL FSUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVE 1 -3 P) 
       (JUMPE 1 TAG6) 
       (HLRZ@ 1 -3 P) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE NOCALL) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE T) S) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 0 P) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE DEFPROP) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E NOCALL1) S) 
       (POP P 1) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 -2 P) 
       (MOVE 1 -1 P) 
       (JUMPE 1 TAG12) 
       (MOVE 1 -2 P) 
       (HRRM@ 1 -1 P) 
       (HRRZ@ 2 -1 P) 
       (JRST 0 TAG11) 
 TAG12 (MOVE 2 -2 P) 
       (MOVEM 2 0 P) 
 TAG11 (HRRZ@ 1 -3 P) 
       (MOVEM 1 -3 P) 
       (MOVEM 2 -1 P) 
       (JRST 0 TAG1) 
 TAG6  (MOVE 1 0 P) 
       (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(DEFPROP NOCALL EVAL COMPACTION) 

(PUTPROP (QUOTE NOCALL) (QUOTE NOCALL1) (QUOTE DEFACTION)) 

(LAP NOCALL1 SUBR) 
       (PUSH P 1) 
       (CALL 1 (E *EVAL) S) 
       (POP P 1) 
       (JCALL 1 (E FLUSHEXPR) S) 
       NIL 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE COMMU)))) (QUOTE ((*MIN *MIN) (*MAX *MAX
)))) 

(LAP CADDRLAM SUBR) 
       (PUSH P 1) 
       (CALL 1 (E CDDDR) S) 
       (JUMPE 1 TAG2) 
       (HRRZ@ 2 0 P) 
       (HRRZ@ 2 2) 
       (MOVEI 1 (QUOTE PROGN) S) 
       (CALL 2 (E CONS) S) 
       (JRST 0 TAG1) 
 TAG2  (HRRZ@ 1 0 P) 
       (CALL 1 (E CADR) S) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP NEQ INMACRO) 
       (MOVEI 2 (QUOTE EQ) S) 
       (HRLM@ 2 1) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE NOT) S) 
       (JCALL 2 (E XCONS) S) 
       NIL 

(LAP AND# INMACRO) 
       (PUSH P 1) 
       (HRRZ@ 1 1) 
       (JUMPE 1 TAG2) 
       (HRRZ@ 1 0 P) 
       (HRRZ@ 1 1) 
       (JUMPE 1 TAG4) 
       (HRRZ@ 1 0 P) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (MOVEI 2 (QUOTE AND#) S) 
       (HRLM@ 2 0 P) 
       (EXCH 1 0 P) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE COND) S) 
       (CALL 2 (E XCONS) S) 
       (JRST 0 TAG3) 
 TAG4  (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
 TAG3  (JRST 0 TAG1) 
 TAG2  (MOVEI 1 (QUOTE T) S) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP OR# INMACRO) 
       (PUSH P 1) 
       (HRRZ@ 1 1) 
       (JUMPE 1 TAG2) 
       (PUSH P (C 0 0 TAG3 0)) 
       (MOVEI D (QUOTE NCONS) S) 
       (PUSH P D) 
       (HRRZ@ 1 -2 P) 
       (PUSH P 1) 
       (MOVNI 6 2) 
       (JCALL 16 (E MAPCAR) S) 
 TAG3  (MOVEI 2 (QUOTE COND) S) 
       (CALL 2 (E XCONS) S) 
 TAG2  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP PROG1 INMACRO) 
       (PUSH P 1) 
       (HRRZ@ 1 1) 
       (CALL 1 (E LENGTH) S) 
       (MOVEI 2 (QUOTE 5)) 
       (CALL 2 (E *LESS) S) 
       (JUMPE 1 TAG2) 
       (HRRZ@ 2 0 P) 
       (MOVEI 1 (QUOTE 0)) 
       (CALL 2 (E CONS) S) 
       (MOVEI 2 (QUOTE PROG2) S) 
       (CALL 2 (E XCONS) S) 
       (JRST 0 TAG1) 
 TAG2  (HRRZ@ 2 0 P) 
       (HRRZ@ 2 2) 
       (MOVEI 1 (QUOTE PROG2) S) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E NCONS) S) 
       (HRRZ@ 2 0 P) 
       (HLRZ@ 2 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE 0)) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE PROG2) S) 
       (CALL 2 (E XCONS) S) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP NEEDS SUBR) 
       (PUSH P 1) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG2) 
       (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (JUMPE 1 TAG2) 
       (MOVEI 2 (QUOTE (QUOTE E SPECIAL)) S) 
       (HLRZ@ 1 0 P) 
       (CALL 2 (E MEMQ) S) 
       (JUMPE 1 TAG2) 
       (MOVEI 2 (QUOTE FIXNUM) S) 
       (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CALL 2 (E MAKNUM) S) 
       (MOVEI 2 (QUOTE 377777) S) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG1) 
 TAG2  (TDZA 1 1) 
 TAG1  (MOVEI 1 (QUOTE T) S) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(PUTPROP (QUOTE SELECTQ) T (QUOTE SPECIAL)) 

(LAP SELECTQ INMACRO) 
       (PUSH P 1) 
       (MOVEI 1 (QUOTE COND) S) 
       (CALL 1 (E NCONS) S) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (HRRZ@ 1 -3 P) 
       (MOVEM 1 -3 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG6) 
       (HLRZ@ 1 -3 P) 
       (MOVEM 1 -1 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG5) 
 TAG6  (HLRZ@ 1 -3 P) 
       (HLRZ@ 1 1) 
       (CAIE 1 (QUOTE SETQ) S) 
       (JRST 0 TAG7) 
       (HLRZ@ 1 -3 P) 
       (HLRZ@ 2 -3 P) 
       (HRRZ@ 2 2) 
       (HLRZ@ 2 2) 
       (MOVEM 1 0 P) 
       (MOVEM 2 -1 P) 
       (JRST 0 TAG5) 
 TAG7  (MOVEI 1 (QUOTE SELECTQ) S) 
       (MOVEM 1 -1 P) 
       (HLRZ@ 1 -3 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE SETQ) S) 
       (CALL 2 (E XCONS) S) 
       (MOVEM 1 0 P) 
 TAG5 
 TAG1  (HRRZ@ 1 -3 P) 
       (HRRZ@ 2 1) 
       (MOVEM 1 -3 P) 
       (JUMPE 2 TAG13) 
       (PUSH P (C 0 0 TAG14 0)) 
       (PUSH P -3 P) 
       (CALL 1 (E CAAR) S) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG16) 
       (MOVEI 1 (QUOTE EQ) S) 
       (JRST 0 TAG15) 
 TAG16 (MOVEI 1 (QUOTE MEMQ) S) 
 TAG15 (PUSH P 1) 
       (HLRZ@ 1 -6 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE QUOTE) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 -3 P) 
       (CALL 2 (E XCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (HLRZ@ 2 -5 P) 
       (HRRZ@ 2 2) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E NCONS) S) 
       (PUSH P 1) 
       (MOVNI 6 2) 
       (JCALL 16 (E NCONC) S) 
 TAG14 (MOVE 1 -1 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG13 (PUSH P (C 0 0 TAG21 0)) 
       (PUSH P -3 P) 
       (MOVE 2 -5 P) 
       (MOVEI 1 (QUOTE T) S) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E NCONS) S) 
       (PUSH P 1) 
       (MOVNI 6 2) 
       (JCALL 16 (E NCONC) S) 
 TAG21 (MOVE 1 -2 P) 
       (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(LAP P1MAPC SUBR) 
       (MOVEI 2 (QUOTE (PROG NIL L1 (COND ((AND ALLARGS) (FN CARALLARGS) ALLSETQS (GO L1))))) S) 
       (JCALL 2 (E ALLMAP) S) 
       NIL 

(LAP P1MAP SUBR) 
       (MOVEI 2 (QUOTE (PROG NIL L1 (COND ((AND ALLARGS) (FN ALLARGS) ALLSETQS (GO L1))))) S) 
       (JCALL 2 (E ALLMAP) S) 
       NIL 

(LAP P1MAPCAR SUBR) 
       (PUSH P 1) 
       (CALL 0 (E MAPTMP) S) 
       (PUSH P 1) 
       (CALL 0 (E MAPTMP) S) 
       (PUSH P 1) 
       (CALL 0 (E MAPTMP) S) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 3 (QUOTE (PROG (TM1 TM2 TM3) L1 (COND ((AND ALLARGS) (SETQ TM3 (NCONS (FN CARALLARGS))) (SETQ TM2 
(COND (TM2 (CDR (RPLACD TM2 TM3))) (T (SETQ TM1 TM3)))) ALLSETQS (GO L1))) (RETURN TM1))) S) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE (TM1 TM2 TM3)) S) 
       (CALL 3 (E SUBPAIR) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (JCALL 2 (E ALLMAP) S) 
       NIL 

(LAP P1MAPLIST SUBR) 
       (PUSH P 1) 
       (CALL 0 (E MAPTMP) S) 
       (PUSH P 1) 
       (CALL 0 (E MAPTMP) S) 
       (PUSH P 1) 
       (CALL 0 (E MAPTMP) S) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 3 (QUOTE (PROG (TM1 TM2 TM3) L1 (COND ((AND ALLARGS) (SETQ TM3 (NCONS (FN ALLARGS))) (SETQ TM2 (CO
ND (TM2 (CDR (RPLACD TM2 TM3))) (T (SETQ TM1 TM3)))) ALLSETQS (GO L1))) (RETURN TM1))) S) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE (TM1 TM2 TM3)) S) 
       (CALL 3 (E SUBPAIR) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (JCALL 2 (E ALLMAP) S) 
       NIL 

(LAP P1MAPCONC SUBR) 
       (PUSH P 1) 
       (CALL 0 (E MAPTMP) S) 
       (PUSH P 1) 
       (CALL 0 (E MAPTMP) S) 
       (PUSH P 1) 
       (CALL 0 (E MAPTMP) S) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 3 (QUOTE (PROG (TM1 TM2 TM3) L1 (COND ((AND ALLARGS) (COND ((SETQ TM3 (FN CARALLARGS)) (SETQ TM2 (
LAST (COND (TM2 (RPLACD TM2 TM3)) (T (SETQ TM1 TM3))))))) ALLSETQS (GO L1))) (RETURN TM1))) S) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE (TM1 TM2 TM3)) S) 
       (CALL 3 (E SUBPAIR) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (JCALL 2 (E ALLMAP) S) 
       NIL 

(LAP P1MAPCON SUBR) 
       (PUSH P 1) 
       (CALL 0 (E MAPTMP) S) 
       (PUSH P 1) 
       (CALL 0 (E MAPTMP) S) 
       (PUSH P 1) 
       (CALL 0 (E MAPTMP) S) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 3 (QUOTE (PROG (TM1 TM2 TM3) L1 (COND ((AND ALLARGS) (COND ((SETQ TM3 (FN ALLARGS)) (SETQ TM2 (LAS
T (COND (TM2 (RPLACD TM2 TM3)) (T (SETQ TM1 TM3))))))) ALLSETQS (GO L1))) (RETURN TM1))) S) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE (TM1 TM2 TM3)) S) 
       (CALL 3 (E SUBPAIR) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (JCALL 2 (E ALLMAP) S) 
       NIL 

(DEFPROP MAPC P1MAPC P1) 

(DEFPROP MAP P1MAP P1) 

(DEFPROP MAPCAR P1MAPCAR P1) 

(DEFPROP MAPLIST P1MAPLIST P1) 

(DEFPROP MAPCONC P1MAPCONC P1) 

(DEFPROP MAPCAN P1MAPCONC P1) 

(DEFPROP MAPCON P1MAPCON P1) 

(LAP ALLMAP SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CALL 1 (E CADR) S) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG7) 
       (MOVEI 2 (QUOTE (QUOTE FUNCTION)) S) 
       (HRRZ@ 1 -1 P) 
       (CALL 1 (E CAAR) S) 
       (CALL 2 (E MEMQ) S) 
       (JUMPE 1 TAG7) 
       (HRRZ@ 1 -1 P) 
       (CALL 1 (E CADAR) S) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG5) 
 TAG7  (HLRZ@ 1 -1 P) 
       (PUSH P 1) 
       (HRRZ@ 1 -2 P) 
       (CALL 1 (E P1SUBRARGS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (JRST 0 TAG4) 
 TAG5  (HRRZ@ 1 -1 P) 
       (HRRZ@ 1 1) 
       (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)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVE 1 -4 P) 
       (JUMPE 1 TAG22) 
       (HLRZ@ 1 -4 P) 
       (CALL 0 (E MAPTMP) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 -2 P) 
       (MOVE 1 -1 P) 
       (JUMPE 1 TAG26) 
       (MOVE 1 -2 P) 
       (HRRM@ 1 -1 P) 
       (HRRZ@ 2 -1 P) 
       (JRST 0 TAG25) 
 TAG26 (MOVE 2 -2 P) 
       (MOVEM 2 0 P) 
 TAG25 (HRRZ@ 1 -4 P) 
       (MOVEM 1 -4 P) 
       (MOVEM 2 -1 P) 
       (JRST 0 TAG1) 
 TAG22 (MOVE 1 0 P) 
       (SUB P (C 3 0 3 0)) 
       (PUSH P 1) 
       (MOVEM 1 -1 P) 
       (HRRZ@ 1 -4 P) 
       (CALL 1 (E CADAR) S) 
       (MOVEM 1 -2 P) 
       (PUSH P -1 P) 
       (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 -4 P) 
       (JUMPE 1 TAG35) 
       (HLRZ@ 1 -4 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE CAR) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 -2 P) 
       (MOVE 1 -1 P) 
       (JUMPE 1 TAG41) 
       (MOVE 1 -2 P) 
       (HRRM@ 1 -1 P) 
       (HRRZ@ 2 -1 P) 
       (JRST 0 TAG40) 
 TAG41 (MOVE 2 -2 P) 
       (MOVEM 2 0 P) 
 TAG40 (HRRZ@ 1 -4 P) 
       (MOVEM 1 -4 P) 
       (MOVEM 2 -1 P) 
       (JRST 0 TAG2) 
 TAG35 (MOVE 3 0 P) 
       (PUSH P -5 P) 
       (MOVEM 3 -5 P) 
       (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 TAG50) 
       (HLRZ@ 1 -3 P) 
       (MOVEM 1 -6 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE CDR) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 -6 P) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE SETQ) S) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 -2 P) 
       (MOVE 1 -1 P) 
       (JUMPE 1 TAG54) 
       (MOVE 1 -2 P) 
       (HRRM@ 1 -1 P) 
       (HRRZ@ 2 -1 P) 
       (JRST 0 TAG53) 
 TAG54 (MOVE 2 -2 P) 
       (MOVEM 2 0 P) 
 TAG53 (HRRZ@ 1 -3 P) 
       (MOVEM 1 -3 P) 
       (MOVEM 2 -1 P) 
       (JRST 0 TAG3) 
 TAG50 (MOVE 4 0 P) 
       (MOVE 5 -13 P) 
       (MOVE 3 -10 P) 
       (MOVE 2 -7 P) 
       (EXCH 1 -12 P) 
       (MOVEM 2 -12 P) 
       (CALL 5 (E FORMSUBST) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 -7 P) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE LAMBDA) S) 
       (CALL 2 (E XCONS) S) 
       (HRRZ@ 2 -14 P) 
       (HRRZ@ 2 2) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E P1) S) 
       (SUB P (C 13 0 13 0)) 
 TAG4  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP FORMSUBST SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (PUSH P 4) 
       (PUSH P 5) 
       (MOVE 1 5) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG2) 
       (MOVE 1 5) 
       (JRST 0 TAG1) 
 TAG2  (HLRZ@ 1 5) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG3) 
       (PUSH P (C 0 0 TAG4 0)) 
       (HLRZ@ 1 5) 
       (MOVEM 1 (SPECIAL SELECTQ) S) 
       (CAIE 1 (QUOTE FN) S) 
       (JRST 0 TAG6) 
       (MOVE 1 -5 P) 
       (CALL 1 (E NCONS) S) 
       (JRST 0 TAG5) 
 TAG6  (CAIE 1 (QUOTE ALLARGS) S) 
       (JRST 0 TAG7) 
       (MOVE 1 2) 
       (CALL 1 (E COPY) S) 
       (JRST 0 TAG5) 
 TAG7  (CAIE 1 (QUOTE CARALLARGS) S) 
       (JRST 0 TAG10) 
       (MOVE 1 3) 
       (CALL 1 (E COPY) S) 
       (JRST 0 TAG5) 
 TAG10 (CAIE 1 (QUOTE ALLSETQS) S) 
       (JRST 0 TAG11) 
       (MOVE 1 4) 
       (CALL 1 (E COPY) S) 
       (JRST 0 TAG5) 
 TAG11 (HLRZ@ 1 -1 P) 
       (CALL 1 (E NCONS) S) 
 TAG5  (PUSH P 1) 
       (HRRZ@ 5 -2 P) 
       (MOVE 4 -3 P) 
       (MOVE 3 -4 P) 
       (MOVE 2 -5 P) 
       (MOVE 1 -6 P) 
       (CALL 5 (E FORMSUBST) S) 
       (PUSH P 1) 
       (MOVNI 6 2) 
       (JCALL 16 (E NCONC) S) 
 TAG4  (JRST 0 TAG1) 
 TAG3  (HLRZ@ 5 0 P) 
       (MOVE 4 -1 P) 
       (MOVE 3 -2 P) 
       (MOVE 2 -3 P) 
       (MOVE 1 -4 P) 
       (CALL 5 (E FORMSUBST) S) 
       (HRRZ@ 5 0 P) 
       (MOVE 4 -1 P) 
       (MOVE 3 -2 P) 
       (MOVE 2 -3 P) 
       (PUSH P 1) 
       (MOVE 1 -5 P) 
       (CALL 5 (E FORMSUBST) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
 TAG1  (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(LAP MAPTMP SUBR) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVEI 1 (QUOTE (MAPTMP)) S) 
       (CALL 17 (E NEXTSYM) S) 
       (MOVEM 1 0 P) 
       (MOVE 2 (SPECIAL CURBIND) S) 
       (CALL 2 (E MEMQ) S) 
       (JUMPN 1 TAG1) 
       (MOVE 1 0 P) 
       (CALL 1 (E SPECIALP) S) 
       (JUMPN 1 TAG1) 
       (MOVE 1 0 P) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(DEFPROP MAPTMP 0 SYMNO) 

(LAP P2MAPC SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (HRRZ@ 1 1) 
       (CALL 1 (E LENGTH) S) 
       (CAIE 1 (QUOTE 2)) 
       (JRST 0 TAG2) 
       (MOVEI 1 (QUOTE *MAPC) S) 
       (HRLM@ 1 -2 P) 
       (MOVE 3 0 P) 
       (MOVE 2 -1 P) 
       (MOVE 1 -2 P) 
       (CALL 3 (E CALLSUBR) S) 
       (PUSH P (SPECIAL LASTOUT) S) 
       (MOVEI 2 (QUOTE (PUSHJ P *MAPC)) S) 
       (HRLM@ 2 0 P) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 3 0 P) 
       (MOVE 2 -1 P) 
       (MOVE 1 -2 P) 
       (CALL 3 (E CALLLSUBR) S) 
 TAG1  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(DEFPROP MAPC P2MAPC P2ELSE) 

(LAP P2MAP SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (HRRZ@ 1 1) 
       (CALL 1 (E LENGTH) S) 
       (CAIE 1 (QUOTE 2)) 
       (JRST 0 TAG2) 
       (MOVEI 1 (QUOTE *MAP) S) 
       (HRLM@ 1 -2 P) 
       (MOVE 3 0 P) 
       (MOVE 2 -1 P) 
       (MOVE 1 -2 P) 
       (CALL 3 (E CALLSUBR) S) 
       (PUSH P (SPECIAL LASTOUT) S) 
       (MOVEI 2 (QUOTE (PUSHJ P *MAP)) S) 
       (HRLM@ 2 0 P) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 3 0 P) 
       (MOVE 2 -1 P) 
       (MOVE 1 -2 P) 
       (CALL 3 (E CALLLSUBR) S) 
 TAG1  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(DEFPROP MAP P2MAP P2ELSE) 

(LAP PROGN INMACRO) 
       (HRRZ@ 2 1) 
       (MOVEI 1 (QUOTE T) S) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE COND) S) 
       (JCALL 2 (E XCONS) S) 
       NIL 

(LAP AND INMACRO) 
       (PUSH P 1) 
       (HRRZ@ 1 1) 
       (JUMPE 1 TAG2) 
       (HRRZ@ 1 0 P) 
       (HRRZ@ 1 1) 
       (JUMPE 1 TAG4) 
       (HRRZ@ 1 0 P) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (MOVEI 2 (QUOTE AND) S) 
       (HRLM@ 2 0 P) 
       (EXCH 1 0 P) 
       (CALL 1 (E NCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE COND) S) 
       (CALL 2 (E XCONS) S) 
       (JRST 0 TAG3) 
 TAG4  (HRRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
 TAG3  (JRST 0 TAG1) 
 TAG2  (MOVEI 1 (QUOTE T) S) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP OR INMACRO) 
       (PUSH P 1) 
       (HRRZ@ 1 1) 
       (JUMPE 1 TAG2) 
       (PUSH P (C 0 0 TAG3 0)) 
       (MOVEI D (QUOTE NCONS) S) 
       (PUSH P D) 
       (HRRZ@ 1 -2 P) 
       (PUSH P 1) 
       (MOVNI 6 2) 
       (JCALL 16 (E MAPCAR) S) 
 TAG3  (MOVEI 2 (QUOTE COND) S) 
       (CALL 2 (E XCONS) S) 
 TAG2  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(MAPC (FUNCTION (LAMBDA (X) (REMPROP X (QUOTE P1)) (REMPROP X (QUOTE P2BOOL)))) (QUOTE (AND OR))) 

(DEFPROP CONSP 3 ACS) 

(ENDBLOCK UCI-ADDITIONS)