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))