Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50322/sys1.lap
There are no other files named sys1.lap in the archive.
(DEFPROP SYS1FNS (SYS1FNS (NOCALL SELECTQ1 SUBPR MEMCDR) (SPECIAL %PREVFN% $%DOTFLG LPTLENGTH GRINPROPS FILBAK D
SKIN %DEFINE) (REMOB SYS1FNS) DIR *RENAME FILBAK %DEFINE DE DF DM %DEREAD DRM DSM %DEVP %READIN DSKIN PUTSYM GET
SYM DSKOUT LPTLENGTH GRINL TCONC LCONC DREVERSE REMOVE DREMOVE TAILP ASSOC# PRINTLEV PRINLEV MEMCDR %PREVFN% %LO
OKDPTH $%DOTFLG LSUBST SELECTQ SELECTQ1 SUBLIS SUBPAIR SUBPR DSUBST RETFROM LDIFF NTH SUBST RPUTSYM RGETSYM COPY
 GRINDEF GRINPROPS FILBAK (PUTPROP (QUOTE PP) (GET (QUOTE GRINDEF) (QUOTE FSUBR)) (QUOTE FSUBR))) VALUE) 

(DEFPROP SELECTQ1 T NOCALL) 

(DEFPROP SUBPR T NOCALL) 

(DEFPROP MEMCDR T NOCALL) 

(REMOB SYS1FNS) 

(LAP DIR SUBR) 
       (PUSH P 1) 
       (CALL 0 (E GENSYM) S) 
       (MOVE 2 0 P) 
       (CALL 2 (E UFDINP) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (CALL 2 (E INC) S) 
       (MOVEM 1 0 P) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVEI 1 (QUOTE ((RDFILE))) S) 
       (CALL 17 (E ERRSET) S) 
       (MOVEM 1 -1 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG11) 
       (MOVEI 2 (QUOTE T) S) 
       (MOVE 1 -2 P) 
       (CALL 2 (E INC) S) 
       (MOVE 1 0 P) 
       (JRST 0 TAG5) 
 TAG11 (MOVE 2 0 P) 
       (HLRZ@ 1 -1 P) 
       (CALL 2 (E CONS) S) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG5  (SUB P (C 2 0 2 0)) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP *RENAME SUBR) 
       (CALL 2 (E *APPEND) S) 
       (JCALL 17 (E RENAME) S) 
       NIL 

(LAP FILBAK SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG5) 
       (MOVE 1 -2 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 -2 P) 
       (HLRZ@ 1 1) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG4) 
 TAG5  (HRRZ@ 1 -2 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG6) 
       (MOVE 1 -2 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 -2 P) 
       (CALL 1 (E CAAR) S) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG4) 
 TAG6  (HRRZ@ 1 -2 P) 
       (HLRZ@ 1 1) 
       (MOVEM 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG11) 
       (HLRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
 TAG11 
 TAG4  (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVEM 1 0 P) 
       (MOVEI 1 (QUOTE DELETE) S) 
       (CALL 2 (E APPLY#) S) 
       (MOVE 2 0 P) 
       (MOVE 1 -2 P) 
       (SUB P (C 3 0 3 0)) 
       (JCALL 2 (E *RENAME) S) 
       NIL 

(DEFPROP FILBAK (NIL . LBK) VALUE) 

(LAP %DEFINE SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (PUSH P 4) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVEI 2 (QUOTE (EXPR FEXPR SUBR FSUBR LSUBR MACRO)) S) 
       (CALL 2 (E GETL) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG5) 
       (MOVE 1 (SPECIAL %DEFINE) S) 
       (JUMPE 1 TAG7) 
       (HRRZ@ 2 0 P) 
       (HLRZ@ 2 2) 
       (HLRZ@ 1 0 P) 
       (CALL 2 (E CONS) S) 
       (MOVEI 3 (QUOTE %DEFINE) S) 
       (MOVE 2 1) 
       (MOVE 1 -4 P) 
       (CALL 3 (E PUTPROP) S) 
       (MOVEI 1 (QUOTE T) S) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG12) 
       (MOVE 2 (SPECIAL %DEFINE) S) 
       (HLRZ@ 1 0 P) 
       (CALL 2 (E MEMQ) S) 
 TAG12 (JUMPE 1 TAG11) 
       (HLRZ@ 2 0 P) 
       (MOVE 1 -4 P) 
       (CALL 2 (E REMPROP) S) 
 TAG11 
 TAG7  (MOVEI 1 (QUOTE REDEFINED) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 -4 P) 
       (CALL 2 (E XCONS) S) 
       (JRST 0 TAG4) 
 TAG5  (MOVE 1 -4 P) 
 TAG4  (MOVE 2 -2 P) 
       (MOVEM 1 0 P) 
       (MOVE 1 -3 P) 
       (CALL 2 (E CONS) S) 
       (MOVEI 2 (QUOTE LAMBDA) S) 
       (CALL 2 (E XCONS) S) 
       (MOVE 3 -1 P) 
       (MOVE 2 1) 
       (MOVE 1 -4 P) 
       (CALL 3 (E PUTPROP) S) 
       (MOVE 1 0 P) 
       (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(DEFPROP %DEFINE (%DEFINE . T) VALUE) 

(LAP DE FSUBR) 
       (MOVEI 4 (QUOTE EXPR) S) 
       (HRRZ@ 3 1) 
       (HRRZ@ 3 3) 
       (HRRZ@ 2 1) 
       (HLRZ@ 2 2) 
       (HLRZ@ 1 1) 
       (JCALL 4 (E %DEFINE) S) 
       NIL 

(LAP DF FSUBR) 
       (MOVEI 4 (QUOTE FEXPR) S) 
       (HRRZ@ 3 1) 
       (HRRZ@ 3 3) 
       (HRRZ@ 2 1) 
       (HLRZ@ 2 2) 
       (HLRZ@ 1 1) 
       (JCALL 4 (E %DEFINE) S) 
       NIL 

(LAP DM FSUBR) 
       (MOVEI 4 (QUOTE MACRO) S) 
       (HRRZ@ 3 1) 
       (HRRZ@ 3 3) 
       (HRRZ@ 2 1) 
       (HLRZ@ 2 2) 
       (HLRZ@ 1 1) 
       (JCALL 4 (E %DEFINE) S) 
       NIL 

(LAP %DEREAD SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (MOVE 1 -2 P) 
       (CALL 1 (E ASCII) S) 
       (CALL 1 (E INTERN) S) 
       (MOVEI 3 (QUOTE READMACRO) S) 
       (MOVE 2 -1 P) 
       (MOVEM 1 -2 P) 
       (CALL 3 (E PUTPROP) S) 
       (MOVE 2 0 P) 
       (MOVE 1 -2 P) 
       (CALL 2 (E SETCHR) S) 
       (MOVE 1 -2 P) 
       (SUB P (C 3 0 3 0)) 
       (JCALL 1 (E CHRVAL) S) 
       NIL 

(LAP DRM FSUBR) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (CALL 1 (E CHRVAL) S) 
       (MOVEI 3 (QUOTE 12)) 
       (HRRZ@ 2 0 P) 
       (HLRZ@ 2 2) 
       (CALL 3 (E %DEREAD) S) 
       (SUB P (C 1 0 1 0)) 
       (JCALL 1 (E ASCII) S) 
       NIL 

(LAP DSM FSUBR) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (CALL 1 (E CHRVAL) S) 
       (MOVEI 3 (QUOTE 13)) 
       (HRRZ@ 2 0 P) 
       (HLRZ@ 2 2) 
       (CALL 3 (E %DEREAD) S) 
       (SUB P (C 1 0 1 0)) 
       (JCALL 1 (E ASCII) S) 
       NIL 

(LAP %DEVP SUBR) 
       (PUSH P 1) 
       (MOVEI 2 (QUOTE -1)) 
       (CALL 2 (E NTHCHAR) S) 
       (CAIE 1 (QUOTE :) S) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG1) 
       (MOVE 1 0 P) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG3) 
       (HRRZ@ 1 0 P) 
       (CALL 1 (E CONSP) S) 
 TAG3 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP %READIN SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVEI 2 (QUOTE NIL)) 
       (CALL 2 (E INC) S) 
       (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) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG2) 
       (HLRZ@ 1 0 P) 
       (CALL 1 (E *EVAL) S) 
       (MOVEM 1 0 P) 
       (MOVE 1 -2 P) 
       (JUMPE 1 TAG10) 
       (MOVE 1 0 P) 
       (CALL 1 (E PRINT) S) 
 TAG10 (JRST 0 TAG1) 
 TAG2  (MOVEI 2 (QUOTE T) S) 
       (MOVE 1 -1 P) 
       (CALL 2 (E INC) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(LAP DSKIN FSUBR) 
       (PUSH P 1) 
       (CALL 0 (E GENSYM) S) 
       (MOVE 2 0 P) 
       (CALL 2 (E CONS) S) 
       (CALL 17 (E INPUT) S) 
       (MOVE 2 (SPECIAL DSKIN) S) 
       (PUSH P 1) 
       (CALL 2 (E %READIN) S) 
       (MOVEI 1 (QUOTE FILES-LOADED) S) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(DEFPROP DSKIN (DSKIN . T) VALUE) 

(LAP PUTSYM FSUBR) 
       (PUSH P 1) 
 TAG1  (MOVE 1 0 P) 
       (JUMPE 1 TAG6) 
       (HLRZ@ 1 1) 
       (PUSH P 1) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG10) 
       (MOVE 2 0 P) 
       (MOVE 1 2) 
       (CALL 2 (E *PUTSYM) S) 
       (JRST 0 TAG7) 
 TAG10 (HLRZ@ 1 0 P) 
       (PUSH P 1) 
       (HRRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E *EVAL) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E *PUTSYM) S) 
 TAG7  (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG1) 
 TAG6  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP GETSYM FSUBR) 
       (HRRZ@ 2 1) 
       (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)) 
 TAG1  (MOVE 1 -3 P) 
       (JUMPE 1 TAG6) 
       (HLRZ@ 1 1) 
       (PUSH P 1) 
       (CALL 1 (E *GETSYM) S) 
       (PUSH P 1) 
       (JUMPE 1 TAG13) 
       (CALL 1 (E NUMVAL) S) 
       (HLRZ@ 3 -6 P) 
       (MOVE 2 1) 
       (MOVE 1 -1 P) 
       (CALL 3 (E PUTPROP) S) 
       (JRST 0 TAG12) 
 TAG13 (MOVE 1 -1 P) 
       (CALL 1 (E PRINT) S) 
       (MOVEI 1 (QUOTE NOT/ IN/ SYMBOL/ TABLE) S) 
       (CALL 1 (E PRINC) S) 
 TAG12 (MOVE 1 0 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 -4 P) 
       (MOVE 1 -3 P) 
       (JUMPE 1 TAG17) 
       (MOVE 1 -4 P) 
       (HRRM@ 1 -3 P) 
       (HRRZ@ 2 -3 P) 
       (JRST 0 TAG16) 
 TAG17 (MOVE 2 -4 P) 
       (MOVEM 2 -2 P) 
 TAG16 (HRRZ@ 1 -5 P) 
       (MOVEM 1 -5 P) 
       (MOVEM 2 -3 P) 
       (SUB P (C 2 0 2 0)) 
       (JRST 0 TAG1) 
 TAG6  (MOVE 1 0 P) 
       (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(LAP DSKOUT FSUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (HLRZ@ 1 1) 
       (MOVEM 1 0 P) 
       (CALL 1 (E %DEVP) S) 
       (JUMPE 1 TAG6) 
       (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG5) 
 TAG6  (MOVEI 1 (QUOTE DSK:) S) 
       (MOVEM 1 0 P) 
 TAG5  (MOVE 1 (SPECIAL FILBAK) S) 
       (JUMPE 1 TAG14) 
       (HLRZ@ 2 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E LOOKUP) S) 
       (JUMPE 1 TAG16) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 0 P) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 (SPECIAL FILBAK) S) 
       (CALL 2 (E FILBAK) S) 
       (JUMPE 1 TAG17) 
       (TDZA 1 1) 
 TAG17 (MOVEI 1 (QUOTE T) S) 
 TAG16 
 TAG14 (JUMPE 1 TAG12) 
       (MOVEI 1 (QUOTE NO/ BACKUP/ ) S) 
       (CALL 1 (E PRINC) S) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E PRINC) S) 
       (CALL 0 (E TERPRI) S) 
 TAG12 (CALL 0 (E GENSYM) S) 
       (PUSH P 1) 
       (HLRZ@ 1 -2 P) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 -1 P) 
       (CALL 2 (E XCONS) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
       (CALL 17 (E OUTPUT) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (CALL 2 (E OUTC) S) 
       (MOVEM 1 0 P) 
       (MOVE 1 (SPECIAL LPTLENGTH) S) 
       (CALL 1 (E LINELENGTH) S) 
 TAG1  (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JUMPE 1 TAG21) 
       (HLRZ@ 1 1) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG23) 
       (HLRZ@ 1 -1 P) 
       (CALL 1 (E NCONS) S) 
       (CALL 17 (E GRINL) S) 
       (JRST 0 TAG22) 
 TAG23 (HLRZ@ 1 -1 P) 
       (CALL 1 (E *EVAL) S) 
 TAG22 (JRST 0 TAG1) 
 TAG21 (MOVEI 2 (QUOTE T) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E OUTC) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(DEFPROP LPTLENGTH (NIL . 160) VALUE) 

(LAP GRINL 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 TAG5) 
       (HLRZ@ 1 -3 P) 
       (CALL 1 (E *EVAL) S) 
       (HLRZ@ 2 -3 P) 
       (MOVEM 1 0 P) 
       (CALL 2 (E XCONS) S) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE GRINDEF) S) 
       (CALL 2 (E APPLY#) S) 
 TAG2  (MOVE 1 0 P) 
       (JUMPE 1 TAG3) 
       (HLRZ@ 1 0 P) 
       (MOVEM 1 -1 P) 
       (MOVEI 2 (QUOTE READMACRO) S) 
       (CALL 2 (E GET) S) 
       (MOVEM 1 -2 P) 
       (JUMPE 1 TAG14) 
       (CALL 0 (E TERPRI) S) 
       (MOVE 1 -1 P) 
       (CALL 1 (E CHRVAL) S) 
       (PUSH P 1) 
       (MOVE 1 -3 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEI 2 (QUOTE FUNCTION) S) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (PUSH P 1) 
       (MOVE 1 -3 P) 
       (CALL 2 (E SETCHR) 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 %DEREAD) S) 
       (CALL 2 (E XCONS) S) 
       (MOVEI 2 (QUOTE 1)) 
       (CALL 2 (E SPRINT) S) 
       (CALL 0 (E TERPRI) S) 
 TAG14 (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG2) 
 TAG3  (HRRZ@ 1 -3 P) 
       (MOVEM 1 -3 P) 
       (JRST 0 TAG1) 
 TAG5  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(LAP TCONC SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (JUMPN 1 TAG2) 
       (MOVE 1 2) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVEM 1 0 P) 
       (CALL 2 (E XCONS) S) 
       (JRST 0 TAG1) 
 TAG2  (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG4) 
       (MOVE 1 -1 P) 
       (CALL 1 (E PRINT) S) 
       (MOVEI 1 (QUOTE BAD/ ARGUMENT/ -/ TCONC) S) 
       (CALL 1 (E ERROR) S) 
       (JRST 0 TAG1) 
 TAG4  (HRRZ@ 1 -1 P) 
       (JUMPE 1 TAG5) 
       (MOVE 1 2) 
       (CALL 1 (E NCONS) S) 
       (PUSH P 1) 
       (HRRZ@ 1 -2 P) 
       (POP P 2) 
       (HRRM@ 2 1) 
       (HRRZ@ 2 1) 
       (HRRM@ 2 -1 P) 
       (MOVE 1 -1 P) 
       (JRST 0 TAG1) 
 TAG5  (MOVE 1 0 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 0 P) 
       (HRRM@ 1 -1 P) 
       (HRLM@ 1 -1 P) 
       (MOVE 1 -1 P) 
 TAG1  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP LCONC SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (JUMPN 2 TAG6) 
       (JRST 0 TAG2) 
 TAG6  (MOVE 1 2) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG11) 
       (MOVE 1 2) 
       (CALL 1 (E LAST) S) 
       (MOVEM 1 0 P) 
       (HRRZ@ 1 1) 
 TAG11 (JUMPE 1 TAG10) 
       (MOVE 1 -1 P) 
       (CALL 1 (E PRINT) S) 
       (JRST 0 TAG1) 
 TAG10 (MOVE 1 -2 P) 
       (JUMPN 1 TAG12) 
       (MOVE 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E CONS) S) 
       (JRST 0 TAG2) 
 TAG12 (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG14) 
       (MOVE 1 -2 P) 
       (CALL 1 (E PRINT) S) 
       (JRST 0 TAG1) 
 TAG14 (HLRZ@ 1 -2 P) 
       (JUMPN 1 TAG15) 
       (MOVE 1 0 P) 
       (HRRM@ 1 -2 P) 
       (MOVE 1 -1 P) 
       (HRLM@ 1 -2 P) 
       (MOVE 1 -2 P) 
       (JRST 0 TAG2) 
 TAG15 (HRRZ@ 1 -2 P) 
       (MOVE 2 -1 P) 
       (HRRM@ 2 1) 
       (MOVE 1 0 P) 
       (HRRM@ 1 -2 P) 
       (MOVE 1 -2 P) 
       (JRST 0 TAG2) 
 TAG1  (MOVEI 1 (QUOTE BAD/ ARGUMENT/ -/ LCONC) S) 
       (CALL 1 (E ERROR) S) 
       (MOVEI 1 (QUOTE NIL)) 
 TAG2  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP DREVERSE SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVE 1 -2 P) 
       (MOVEM 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG6) 
       (MOVE 1 -1 P) 
       (JRST 0 TAG2) 
 TAG6  (HRRZ@ 1 -2 P) 
       (MOVE 2 -1 P) 
       (HRRM@ 2 0 P) 
       (MOVE 2 0 P) 
       (MOVEM 1 -2 P) 
       (MOVEM 2 -1 P) 
       (JRST 0 TAG1) 
 TAG2  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP REMOVE SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVE 1 2) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG2) 
       (MOVE 1 2) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 2 -1 P) 
       (HLRZ@ 1 0 P) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 TAG3) 
       (HRRZ@ 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E REMOVE) S) 
       (JRST 0 TAG1) 
 TAG3  (HLRZ@ 1 0 P) 
       (HRRZ@ 2 0 P) 
       (PUSH P 1) 
       (MOVE 1 -2 P) 
       (CALL 2 (E REMOVE) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
 TAG1  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP DREMOVE SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVE 1 2) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG3) 
       (MOVEI 1 (QUOTE NIL)) 
       (JRST 0 TAG2) 
 TAG3  (HLRZ@ 1 2) 
       (CAME 1 -1 P) 
       (JRST 0 TAG4) 
       (HRRZ@ 1 2) 
       (JUMPE 1 TAG6) 
       (HRRZ@ 1 2) 
       (HLRZ@ 1 1) 
       (HRLM@ 1 2) 
       (HRRZ@ 1 2) 
       (HRRZ@ 1 1) 
       (HRRM@ 1 2) 
       (MOVE 1 -1 P) 
       (CALL 2 (E DREMOVE) S) 
 TAG6  (JRST 0 TAG2) 
 TAG4  (PUSH P 0 P) 
 TAG1  (HRRZ@ 1 -1 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG15) 
       (MOVE 1 0 P) 
       (JRST 0 TAG11) 
 TAG15 (HRRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (CAME 1 -2 P) 
       (JRST 0 TAG16) 
       (HRRZ@ 1 -1 P) 
       (HRRZ@ 1 1) 
       (HRRM@ 1 -1 P) 
       (JRST 0 TAG14) 
 TAG16 (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
 TAG14 (JRST 0 TAG1) 
 TAG11 (SUB P (C 1 0 1 0)) 
 TAG2  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP TAILP SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (JUMPE 1 TAG3) 
 TAG1  (MOVE 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG5) 
       (MOVE 1 -1 P) 
       (CAME 1 0 P) 
       (JRST 0 TAG10) 
       (JRST 0 TAG4) 
 TAG10 (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG5  (MOVEI 1 (QUOTE NIL)) 
 TAG4 
 TAG3  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP ASSOC# SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
 TAG1  (MOVE 1 0 P) 
       (JUMPE 1 TAG3) 
       (HLRZ@ 2 1) 
       (HLRZ@ 2 2) 
       (MOVE 1 -1 P) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 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 PRINTLEV SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CALL 0 (E TERPRI) S) 
       (MOVE 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E PRINLEV) S) 
       (MOVE 1 -1 P) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP PRINLEV SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CALL 1 (E PATOM) S) 
       (JUMPE 1 TAG3) 
       (MOVE 1 -1 P) 
       (CALL 1 (E PRIN1) S) 
       (JRST 0 TAG2) 
 TAG3  (MOVE 1 (SPECIAL %PREVFN%) S) 
       (CAME 1 -1 P) 
       (JRST 0 TAG4) 
       (MOVEI 1 (QUOTE \#\/ ) S) 
       (CALL 1 (E PRINC) S) 
       (JRST 0 TAG2) 
 TAG4  (MOVE 1 0 P) 
       (CAIE 1 (QUOTE 0)) 
       (JRST 0 TAG5) 
       (MOVEI 1 (QUOTE &/ ) S) 
       (CALL 1 (E PRINC) S) 
       (JRST 0 TAG2) 
 TAG5  (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVE 1 (SPECIAL $%DOTFLG) S) 
       (JUMPE 1 TAG14) 
       (CLEARM 0 (SPECIAL $%DOTFLG) S) 
       (MOVEI 1 (QUOTE /./././ ) S) 
       (JRST 0 TAG13) 
 TAG14 (MOVEI 1 (QUOTE /() S) 
 TAG13 (CALL 1 (E PRINC) S) 
       (HLRZ@ 1 -3 P) 
       (PUSH P 1) 
       (MOVE 1 -3 P) 
       (CALL 1 (E SUB1) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E PRINLEV) S) 
       (MOVE 1 -3 P) 
       (MOVEM 1 0 P) 
 TAG1  (MOVE 2 0 P) 
       (MOVE 1 -3 P) 
       (PUSHJ P MEMCDR) 
       (JUMPE 1 TAG20) 
       (MOVE 1 -1 P) 
       (JUMPE 1 TAG22) 
       (MOVEI 1 (QUOTE / /./././]) S) 
       (CALL 1 (E PRINC) S) 
       (JRST 0 TAG11) 
 TAG22 (MOVEI 1 (QUOTE T) S) 
       (MOVEM 1 -1 P) 
 TAG20 (HRRZ@ 1 0 P) 
       (PUSH P 1) 
       (CALL 0 (E UNBOUND) S) 
       (POP P 2) 
       (CAMN 1 2) 
       (JRST 0 TAG26) 
       (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG25) 
 TAG26 (MOVEI 1 (QUOTE / /./ UNBOUND/)) S) 
       (CALL 1 (E PRINC) S) 
       (JRST 0 TAG11) 
 TAG25 (MOVE 1 0 P) 
       (JUMPN 1 TAG33) 
       (MOVEI 1 (QUOTE /)) S) 
       (CALL 1 (E PRINC) S) 
       (JRST 0 TAG11) 
 TAG33 (CALL 1 (E PATOM) S) 
       (JUMPE 1 TAG35) 
       (MOVEI 1 (QUOTE / /./ ) S) 
       (CALL 1 (E PRINC) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E PRIN1) S) 
       (MOVEI 1 (QUOTE /)) S) 
       (CALL 1 (E PRINC) S) 
       (JRST 0 TAG11) 
 TAG35 (MOVEI 1 (QUOTE / ) S) 
       (CALL 1 (E PRINC) S) 
       (HLRZ@ 1 0 P) 
       (CALL 1 (E PATOM) S) 
       (JUMPN 1 TAG37) 
       (HLRZ@ 1 0 P) 
       (PUSH P 1) 
       (MOVE 1 -3 P) 
       (CALL 1 (E SUB1) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E PRINLEV) S) 
       (JRST 0 TAG36) 
 TAG37 (HLRZ@ 1 0 P) 
       (CALL 1 (E PRIN1) S) 
 TAG36 (JRST 0 TAG1) 
 TAG11 (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
 TAG2  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP MEMCDR SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
 TAG1  (HRRZ@ 1 0 P) 
       (CAME 1 -1 P) 
       (JRST 0 TAG6) 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG2) 
 TAG6  (MOVE 1 -1 P) 
       (CAMN 1 0 P) 
       (JRST 0 TAG3) 
       (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
 TAG2  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(DEFPROP %PREVFN% (NIL . " ") VALUE) 

(DEFPROP %LOOKDPTH (NIL . 6) VALUE) 

(DEFPROP $%DOTFLG (NIL) VALUE) 

(LAP LSUBST SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (MOVE 1 3) 
       (JUMPE 1 TAG1) 
       (CALL 1 (E PATOM) S) 
       (JUMPE 1 TAG2) 
       (MOVE 1 -1 P) 
       (CAME 1 0 P) 
       (JRST 0 TAG4) 
       (MOVE 1 -2 P) 
       (JRST 0 TAG3) 
 TAG4  (MOVE 1 0 P) 
 TAG3  (JRST 0 TAG1) 
 TAG2  (HLRZ@ 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 TAG7) 
       (PUSH P (C 0 0 TAG10 0)) 
       (MOVE 1 -3 P) 
       (CALL 1 (E COPY) S) 
       (PUSH P 1) 
       (HRRZ@ 3 -2 P) 
       (MOVE 2 -3 P) 
       (MOVE 1 -4 P) 
       (CALL 3 (E LSUBST) S) 
       (PUSH P 1) 
       (MOVNI 6 2) 
       (JCALL 16 (E NCONC) S) 
 TAG10 (JRST 0 TAG1) 
 TAG7  (HLRZ@ 3 0 P) 
       (MOVE 2 -1 P) 
       (MOVE 1 -2 P) 
       (CALL 3 (E LSUBST) S) 
       (HRRZ@ 3 0 P) 
       (MOVE 2 -1 P) 
       (PUSH P 1) 
       (MOVE 1 -3 P) 
       (CALL 3 (E LSUBST) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
 TAG1  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP SELECTQ FSUBR) 
       (PUSH P 1) 
       (HLRZ@ 1 1) 
       (CALL 1 (E *EVAL) S) 
       (HRRZ@ 2 0 P) 
       (PUSHJ P SELECTQ1) 
       (MOVE 2 1) 
       (MOVEI 1 (QUOTE PROGN) S) 
       (SUB P (C 1 0 1 0)) 
       (JCALL 2 (E APPLY#) S) 
       NIL 

(DEFPROP SELECTQ (NIL . N) VALUE) 

(LAP SELECTQ1 SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (MOVE 1 -1 P) 
       (MOVEM 1 0 P) 
       (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JUMPN 1 TAG6) 
       (MOVE 1 0 P) 
       (JRST 0 TAG2) 
 TAG6  (HLRZ@ 1 0 P) 
       (HLRZ@ 2 1) 
       (MOVEM 1 0 P) 
       (CAME 2 -2 P) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG11) 
       (HLRZ@ 1 0 P) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG13) 
       (HLRZ@ 2 0 P) 
       (MOVE 1 -2 P) 
       (CALL 2 (E MEMQ) S) 
 TAG13 
 TAG11 (JUMPE 1 TAG10) 
       (HRRZ@ 1 0 P) 
       (JRST 0 TAG2) 
 TAG10 (JRST 0 TAG1) 
 TAG2  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP SUBLIS SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (JUMPE 1 TAG2) 
       (MOVEI 3 (QUOTE NIL)) 
       (EXCH 2 1) 
       (PUSHJ P SUBPR) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 1 0 P) 
 TAG1  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP SUBPAIR SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (JUMPE 1 TAG2) 
       (PUSH P 1) 
       (PUSH P 3) 
       (MOVE 3 2) 
       (JUMPN 3 TAG3) 
       (MOVEI 3 (QUOTE (NIL)) S) 
 TAG3  (MOVE 2 -1 P) 
       (POP P 1) 
       (PUSHJ P SUBPR) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 1 0 P) 
 TAG1  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP SUBPR SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG1) 
       (HRRZ@ 1 -4 P) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG6) 
       (PUSHJ P SUBPR) 
       (MOVEM 1 0 P) 
 TAG6  (MOVE 3 -2 P) 
       (MOVE 2 -3 P) 
       (HLRZ@ 1 -4 P) 
       (PUSHJ P SUBPR) 
       (MOVEM 1 -1 P) 
       (HLRZ@ 1 -4 P) 
       (PUSH P 1) 
       (CAME 1 -2 P) 
       (JRST 0 TAG12) 
       (TDZA 1 1) 
 TAG12 (MOVEI 1 (QUOTE T) S) 
       (SUB P (C 1 0 1 0)) 
       (JUMPN 1 TAG11) 
       (HRRZ@ 1 -4 P) 
       (PUSH P 1) 
       (CAME 1 -1 P) 
       (JRST 0 TAG13) 
       (TDZA 1 1) 
 TAG13 (MOVEI 1 (QUOTE T) S) 
       (SUB P (C 1 0 1 0)) 
 TAG11 (JUMPE 1 TAG10) 
       (MOVE 2 0 P) 
       (MOVE 1 -1 P) 
       (CALL 2 (E CONS) S) 
       (JRST 0 TAG7) 
 TAG10 (MOVE 1 -4 P) 
 TAG7  (JRST 0 TAG2) 
 TAG1  (MOVE 1 -3 P) 
       (JUMPN 1 TAG17) 
       (MOVE 1 -4 P) 
       (JRST 0 TAG2) 
 TAG17 (MOVE 1 -2 P) 
       (JUMPE 1 TAG21) 
       (HLRZ@ 1 -3 P) 
       (CAME 1 -4 P) 
       (JRST 0 TAG23) 
       (HLRZ@ 1 -2 P) 
       (JRST 0 TAG2) 
 TAG23 (JRST 0 TAG16) 
 TAG21 (HLRZ@ 1 -3 P) 
       (HLRZ@ 1 1) 
       (CAME 1 -4 P) 
       (JRST 0 TAG27) 
       (HLRZ@ 1 -3 P) 
       (HRRZ@ 1 1) 
       (JRST 0 TAG2) 
 TAG27 
 TAG16 (HRRZ@ 1 -3 P) 
       (MOVEM 1 -3 P) 
       (MOVE 1 -2 P) 
       (JUMPE 1 TAG31) 
       (HRRZ@ 1 1) 
       (JUMPN 1 TAG32) 
       (MOVEI 1 (QUOTE (NIL)) S) 
 TAG32 (MOVEM 1 -2 P) 
 TAG31 (JRST 0 TAG1) 
 TAG2  (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(LAP DSUBST SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (MOVEM 3 0 P) 
       (CAME 2 3) 
       (JRST 0 TAG6) 
       (CALL 1 (E COPY) S) 
       (JRST 0 TAG2) 
 TAG6 
 TAG1  (MOVE 1 -1 P) 
       (CALL 1 (E PATOM) S) 
       (JUMPE 1 TAG10) 
       (MOVE 1 0 P) 
       (JRST 0 TAG2) 
 TAG10 (MOVE 1 -2 P) 
       (CALL 1 (E LITATOM) S) 
       (JUMPE 1 TAG13) 
       (HLRZ@ 1 -1 P) 
       (CAME 1 -2 P) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
       (JRST 0 TAG12) 
 TAG13 (HLRZ@ 2 -1 P) 
       (MOVE 1 -2 P) 
       (CALL 2 (E EQUAL) S) 
 TAG12 (JUMPE 1 TAG11) 
       (MOVE 1 -3 P) 
       (CALL 1 (E COPY) S) 
       (HRLM@ 1 -1 P) 
       (JRST 0 TAG7) 
 TAG11 (HLRZ@ 3 -1 P) 
       (MOVE 2 -2 P) 
       (MOVE 1 -3 P) 
       (CALL 3 (E DSUBST) S) 
 TAG7  (MOVE 1 -2 P) 
       (JUMPE 1 TAG23) 
       (HRRZ@ 1 -1 P) 
       (CAME 1 -2 P) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
 TAG23 (JUMPE 1 TAG21) 
       (MOVE 1 -3 P) 
       (CALL 1 (E COPY) S) 
       (HRRM@ 1 -1 P) 
       (MOVE 1 0 P) 
       (JRST 0 TAG2) 
 TAG21 (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (JRST 0 TAG1) 
 TAG2  (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(LAP RETFROM SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CALL 0 (E SPDLPT) S) 
       (MOVEI 3 (QUOTE NIL)) 
       (MOVE 2 1) 
       (MOVE 1 -1 P) 
       (CALL 3 (E STKSRCH) S) 
       (MOVEM 1 -1 P) 
       (JUMPE 1 TAG2) 
       (MOVE 2 0 P) 
       (CALL 2 (E OUTVAL) S) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 1 -1 P) 
       (CALL 1 (E PRINT) S) 
       (MOVEI 1 (QUOTE NO/ EVAL/ BLIP/ -/ RETFROM) S) 
       (CALL 1 (E ERROR) S) 
 TAG1  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP LDIFF SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (CAME 1 2) 
       (JRST 0 TAG3) 
       (MOVEI 1 (QUOTE NIL)) 
       (JRST 0 TAG2) 
 TAG3  (JUMPN 2 TAG4) 
       (JRST 0 TAG2) 
 TAG4  (HLRZ@ 1 -1 P) 
       (CALL 1 (E NCONS) S) 
       (PUSH P 1) 
       (PUSH P 1) 
 TAG1  (HRRZ@ 1 -3 P) 
       (MOVEM 1 -3 P) 
       (CAME 1 -2 P) 
       (JRST 0 TAG14) 
       (MOVE 1 -1 P) 
       (JRST 0 TAG10) 
 TAG14 (JUMPN 1 TAG15) 
       (MOVEI 1 (QUOTE NOT/ A/ TAIL/ -/ LDIFF) S) 
       (CALL 1 (E ERROR) S) 
 TAG15 (HLRZ@ 1 -3 P) 
       (CALL 1 (E NCONS) S) 
       (HRRM@ 1 0 P) 
       (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG10 (SUB P (C 2 0 2 0)) 
 TAG2  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP NTH SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (MOVEI 1 (QUOTE 1)) 
       (CALL 2 (E *GREAT) S) 
       (JUMPE 1 TAG3) 
       (MOVE 2 -1 P) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 2 (E CONS) S) 
       (JRST 0 TAG2) 
 TAG3 
 TAG1  (MOVE 1 -1 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG13) 
       (MOVE 1 0 P) 
       (CAIE 1 (QUOTE 1)) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
 TAG13 (JUMPE 1 TAG12) 
       (MOVE 1 -1 P) 
       (JRST 0 TAG6) 
 TAG12 (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (MOVE 1 0 P) 
       (CALL 1 (E SUB1) S) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG1) 
 TAG6 
 TAG2  (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP SUBST SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (MOVE 2 3) 
       (MOVE 1 -1 P) 
       (CALL 2 (E EQUAL) S) 
       (JUMPE 1 TAG2) 
       (MOVE 1 -2 P) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG3) 
       (MOVE 1 0 P) 
       (JRST 0 TAG1) 
 TAG3  (HLRZ@ 3 0 P) 
       (MOVE 2 -1 P) 
       (MOVE 1 -2 P) 
       (CALL 3 (E SUBST) S) 
       (HRRZ@ 3 0 P) 
       (MOVE 2 -1 P) 
       (PUSH P 1) 
       (MOVE 1 -3 P) 
       (CALL 3 (E SUBST) S) 
       (POP P 2) 
       (CALL 2 (E XCONS) S) 
 TAG1  (SUB P (C 3 0 3 0)) 
       (POPJ P) 
       NIL 

(LAP RPUTSYM FSUBR) 
       (PUSH P 1) 
 TAG1  (MOVE 1 0 P) 
       (JUMPE 1 TAG6) 
       (HLRZ@ 1 1) 
       (PUSH P 1) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG10) 
       (MOVE 2 0 P) 
       (MOVE 1 2) 
       (CALL 2 (E *RPUTSYM) S) 
       (JRST 0 TAG7) 
 TAG10 (HLRZ@ 1 0 P) 
       (PUSH P 1) 
       (HRRZ@ 1 -1 P) 
       (HLRZ@ 1 1) 
       (CALL 1 (E *EVAL) S) 
       (MOVE 2 1) 
       (POP P 1) 
       (CALL 2 (E *RPUTSYM) S) 
 TAG7  (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG1) 
 TAG6  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP RGETSYM FSUBR) 
       (HRRZ@ 2 1) 
       (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)) 
 TAG1  (MOVE 1 -3 P) 
       (JUMPE 1 TAG6) 
       (HLRZ@ 1 1) 
       (PUSH P 1) 
       (CALL 1 (E *RGETSYM) S) 
       (PUSH P 1) 
       (JUMPE 1 TAG13) 
       (CALL 1 (E NUMVAL) S) 
       (HLRZ@ 3 -6 P) 
       (MOVE 2 1) 
       (MOVE 1 -1 P) 
       (CALL 3 (E PUTPROP) S) 
       (JRST 0 TAG12) 
 TAG13 (MOVE 1 -1 P) 
       (CALL 1 (E PRINT) S) 
       (MOVEI 1 (QUOTE NOT/ IN/ SYMBOL/ TABLE) S) 
       (CALL 1 (E PRINC) S) 
 TAG12 (MOVE 1 0 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 -4 P) 
       (MOVE 1 -3 P) 
       (JUMPE 1 TAG17) 
       (MOVE 1 -4 P) 
       (HRRM@ 1 -3 P) 
       (HRRZ@ 2 -3 P) 
       (JRST 0 TAG16) 
 TAG17 (MOVE 2 -4 P) 
       (MOVEM 2 -2 P) 
 TAG16 (HRRZ@ 1 -5 P) 
       (MOVEM 1 -5 P) 
       (MOVEM 2 -3 P) 
       (SUB P (C 2 0 2 0)) 
       (JRST 0 TAG1) 
 TAG6  (MOVE 1 0 P) 
       (SUB P (C 5 0 5 0)) 
       (POPJ P) 
       NIL 

(LAP COPY SUBR) 
       (MOVE 3 1) 
       (MOVEI 2 (QUOTE 0)) 
       (MOVEI 1 (QUOTE 0)) 
       (JCALL 3 (E SUBST) S) 
       NIL 

(LAP GRINDEF 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) 
       (JUMPN 1 TAG11) 
       (CALL 0 (E TERPRI) S) 
       (JRST 0 TAG6) 
 TAG11 (HLRZ@ 1 -3 P) 
       (MOVEM 1 0 P) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG14) 
       (CALL 0 (E TERPRI) S) 
       (CALL 0 (E TERPRI) S) 
       (HLRZ@ 1 0 P) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG20) 
       (HLRZ@ 1 0 P) 
       (HLRZ@ 1 1) 
       (CAIE 1 (QUOTE LAP) S) 
       (TDZA 1 1) 
       (MOVEI 1 (QUOTE T) S) 
 TAG20 (JUMPE 1 TAG16) 
       (HLRZ@ 1 0 P) 
       (CALL 1 (E PRIN1) S) 
       (HRRZ@ 1 0 P) 
       (PUSH P 1) 
 TAG2  (MOVE 1 0 P) 
       (JUMPE 1 TAG25) 
       (HLRZ@ 1 1) 
       (PUSH P 1) 
       (MOVE 1 0 P) 
       (JUMPE 1 TAG34) 
       (CALL 1 (E ATOM) S) 
 TAG34 (JUMPE 1 TAG32) 
       (MOVEI 1 (QUOTE 1)) 
       (JRST 0 TAG31) 
 TAG32 (MOVEI 1 (QUOTE 10)) 
 TAG31 (CALL 1 (E TAB) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E PRIN1) S) 
       (MOVEM 1 -2 P) 
       (HRRZ@ 1 -1 P) 
       (MOVEM 1 -1 P) 
       (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG2) 
 TAG25 (MOVE 1 -1 P) 
       (JUMPE 1 TAG40) 
       (MOVEI 1 (QUOTE 10)) 
       (CALL 1 (E TAB) S) 
       (MOVEI 1 (QUOTE NIL)) 
       (CALL 1 (E PRIN1) S) 
 TAG40 (SUB P (C 1 0 1 0)) 
       (JRST 0 TAG15) 
 TAG16 (MOVEI 2 (QUOTE 1)) 
       (MOVE 1 0 P) 
       (CALL 2 (E SPRINT) S) 
 TAG15 (JRST 0 TAG4) 
 TAG14 (MOVE 1 (SPECIAL GRINPROPS) S) 
       (MOVEM 1 0 P) 
 TAG3  (HLRZ@ 2 0 P) 
       (HLRZ@ 1 -3 P) 
       (CALL 2 (E GET) S) 
       (MOVEM 1 -1 P) 
       (JUMPE 1 TAG46) 
       (CALL 1 (E PATOM) S) 
       (JUMPN 1 TAG47) 
       (HLRZ@ 1 -1 P) 
       (CAIE 1 (QUOTE LAMBDA) S) 
       (JRST 0 TAG53) 
       (HRRZ@ 1 -1 P) 
       (CALL 1 (E CADR) S) 
       (CALL 1 (E CONSP) S) 
       (JUMPE 1 TAG55) 
       (HRRZ@ 1 -1 P) 
       (CALL 1 (E CAADR) S) 
       (CAIE 1 (QUOTE BREAK1) S) 
       (JRST 0 TAG57) 
       (MOVEI 2 (QUOTE (EXPR FEXPR MACRO)) S) 
       (HLRZ@ 1 0 P) 
       (CALL 2 (E MEMQ) S) 
       (JUMPE 1 TAG61) 
       (MOVEI 2 (QUOTE TRACE) S) 
       (HLRZ@ 1 -3 P) 
       (CALL 2 (E GET) S) 
       (MOVEM 1 -2 P) 
 TAG61 (JRST 0 TAG56) 
 TAG57 (MOVEI 1 (QUOTE NIL)) 
 TAG56 
 TAG55 (JRST 0 TAG52) 
 TAG53 (MOVEI 1 (QUOTE NIL)) 
 TAG52 (JUMPE 1 TAG51) 
       (MOVEI 2 (QUOTE (EXPR FEXPR MACRO)) S) 
       (HRRZ@ 1 -2 P) 
       (CALL 2 (E GETL) S) 
       (MOVEM 1 -2 P) 
       (JUMPE 1 TAG63) 
       (CALL 1 (E CADR) S) 
       (MOVEM 1 -1 P) 
 TAG63 (JRST 0 TAG50) 
 TAG51 (HRRZ@ 1 -1 P) 
       (PUSH P 1) 
       (CALL 0 (E UNBOUND) S) 
       (PUSH P 1) 
       (CAME 1 -1 P) 
       (JRST 0 TAG64) 
       (TDZA 1 1) 
 TAG64 (MOVEI 1 (QUOTE T) S) 
       (SUB P (C 2 0 2 0)) 
 TAG50 
 TAG47 
 TAG46 (JUMPE 1 TAG44) 
       (CALL 0 (E TERPRI) S) 
       (CALL 0 (E TERPRI) S) 
       (MOVEI 1 (QUOTE /(DEFPROP/ ) S) 
       (CALL 1 (E PRINC) S) 
       (HLRZ@ 1 -3 P) 
       (CALL 1 (E PRIN1) S) 
       (CALL 0 (E TERPRI) S) 
       (MOVEI 2 (QUOTE 2)) 
       (MOVE 1 -1 P) 
       (CALL 2 (E SPRINT) S) 
       (CALL 0 (E TERPRI) S) 
       (HLRZ@ 1 0 P) 
       (CALL 1 (E PRIN1) S) 
       (MOVEI 1 (QUOTE /)) S) 
       (CALL 1 (E PRINC) S) 
 TAG44 (HRRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
       (JUMPN 1 TAG3) 
 TAG4  (HRRZ@ 1 -3 P) 
       (MOVEM 1 -3 P) 
       (JRST 0 TAG1) 
 TAG6  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 4 0 4 0)) 
       (POPJ P) 
       NIL 

(DEFPROP GRINPROPS (NIL EXPR FEXPR MACRO VALUE SPECIAL) VALUE) 

(LAP FILBAK SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG5) 
       (MOVE 1 -2 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 -2 P) 
       (HLRZ@ 1 1) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG4) 
 TAG5  (HRRZ@ 1 -2 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG6) 
       (MOVE 1 -2 P) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 -2 P) 
       (CALL 1 (E CAAR) S) 
       (MOVEM 1 0 P) 
       (JRST 0 TAG4) 
 TAG6  (HRRZ@ 1 -2 P) 
       (HLRZ@ 1 1) 
       (MOVEM 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPN 1 TAG11) 
       (HLRZ@ 1 0 P) 
       (MOVEM 1 0 P) 
 TAG11 
 TAG4  (MOVE 2 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E CONS) S) 
       (CALL 1 (E NCONS) S) 
       (MOVE 2 1) 
       (MOVEM 1 0 P) 
       (MOVEI 1 (QUOTE DELETE) S) 
       (CALL 2 (E APPLY#) S) 
       (MOVE 2 0 P) 
       (MOVE 1 -2 P) 
       (SUB P (C 3 0 3 0)) 
       (JCALL 2 (E *RENAME) S) 
       NIL 

(DEFPROP FILBAK (NIL . LBK) VALUE) 

(PUTPROP (QUOTE PP) (GET (QUOTE GRINDEF) (QUOTE FSUBR)) (QUOTE FSUBR))