perm filename BB.LAP[206,LSP] blob
sn#175985 filedate 1975-09-04 generic text, type T, neo UTF8
(DEFPROP BBFCNS (BBFCNS ALPHABETIC ALPHANUM BBARGS BBCOND BBELSE BBEX BBEXL BBFUN BBFUNCTION BBFUNDEF BBINIT BBL→
AMBDA BBLAMBDAF BBLIST BBLISTF BBLPT BBPPROP BBPPROPS BBPROG BBPROGA BBPROPS BBPUB BBQUOTE BBQUOTEL BBSELECTA BB→
SELECTQ BBTTY BBTTYLPT BBVALDEF BBVARS BBXGP BBXGPPUB BINOPB BRACKET CARLIST CHARW CHVAL CLEARBB CLEARBITS CLEAR→
FONTS FIN FONT FSIZE HIN INOPB INOPBB INPUNA LABL LCASE LINL MAK MAXF NEWLINE PARENS PRA PREH PREX PRF PRINDEC P→
RINFONTFILE PRINTC PRINX PRINXX PRT PSIZE READFONT SCANPOP SCANPUSH SCANTABLE SETBITS SETCARLIST SETSCANTABLE SE→
TSLASHES SETUPFONT SIMPLEPRINT SIN SLASHIFY SMALL SMALLNAM SUMLEN TTYMSG ULINE UNOP VALIDPUBCODES XA XBLANK XBOL→
D XCONST XGP XGPLINL XSPACE XSYM XVAR) VALUE)
(LAP ALPHABETIC SUBR)
(PUSH P 1)
(MOVEI 2 (QUOTE 100))
(CALL 2 (E *GREAT) S)
(JUMPE 1 TAG2)
(MOVEI 2 (QUOTE 133))
(MOVE 1 0 P)
(CALL 2 (E *LESS) S)
TAG2 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP ALPHANUM SUBR)
(PUSH P 1)
(JUMPE 1 TAG2)
(TDZA 1 1)
TAG2 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG1)
(HLRZ@ 1 0 P)
(CALL 1 (E NUMBERP) S)
(JUMPN 1 TAG5)
(HLRZ@ 1 0 P)
(CALL 1 (E CHRVAL) S)
(CALL 1 (E ALPHABETIC) S)
TAG5 (JUMPE 1 TAG4)
(HRRZ@ 1 0 P)
(CALL 1 (E ALPHANUM) S)
TAG4
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BBARGS SUBR)
(PUSH P 1)
(PUSH P (C 0 0 TAG1 0))
(MOVEI D (QUOTE BBEX) 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 BBCOND SUBR)
(PUSH P 1)
(JUMPN 1 TAG2)
(CALL 1 (E XVAR) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(MOVE 2 1)
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE if) S)
(CALL 1 (E XBOLD) S)
(PUSH P 1)
(CALL 0 (E XBLANK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(HLRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CALL 1 (E BBEX) S)
(MOVEI 2 (QUOTE 12))
(CALL 2 (E BRACKET) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE B) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(CALL 0 (E XBLANK) S)
(PUSH P 1)
(MOVEI 1 (QUOTE then) S)
(CALL 1 (E XBOLD) S)
(PUSH P 1)
(CALL 0 (E XBLANK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(HLRZ@ 1 -2 P)
(HRRZ@ 1 1)
(CALL 1 (E BBEXL) S)
(MOVEI 2 (QUOTE 12))
(CALL 2 (E BRACKET) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE B) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE T) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E BBELSE) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE E) S)
(CALL 2 (E MAK) S)
(MOVE 2 1)
TAG1 (MOVEI 1 (QUOTE 12))
(SUB P (C 1 0 1 0))
(JCALL 2 (E CONS) S)
NIL
(LAP BBELSE SUBR)
(PUSH P 1)
(JUMPE 1 TAG1)
(CALL 1 (E CAAR) S)
(CAIE 1 (QUOTE T) S)
(JRST 0 TAG2)
(CALL 0 (E XBLANK) S)
(PUSH P 1)
(MOVEI 1 (QUOTE else) S)
(CALL 1 (E XBOLD) S)
(PUSH P 1)
(CALL 0 (E XBLANK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(HLRZ@ 1 -1 P)
(HRRZ@ 1 1)
(CALL 1 (E BBEXL) S)
(MOVEI 2 (QUOTE 5))
(CALL 2 (E BRACKET) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE B) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(JRST 0 TAG1)
TAG2 (CALL 0 (E XBLANK) S)
(PUSH P 1)
(MOVEI 1 (QUOTE else/ if) S)
(CALL 1 (E XBOLD) S)
(PUSH P 1)
(CALL 0 (E XBLANK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(HLRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CALL 1 (E BBEX) S)
(MOVEI 2 (QUOTE 12))
(CALL 2 (E BRACKET) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE B) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(CALL 0 (E XBLANK) S)
(PUSH P 1)
(MOVEI 1 (QUOTE then) S)
(CALL 1 (E XBOLD) S)
(PUSH P 1)
(CALL 0 (E XBLANK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(HLRZ@ 1 -2 P)
(HRRZ@ 1 1)
(CALL 1 (E BBEXL) S)
(MOVEI 2 (QUOTE 12))
(CALL 2 (E BRACKET) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE B) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE T) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E BBELSE) S)
(POP P 2)
(CALL 2 (E XCONS) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BBEX SUBR)
(PUSH P 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(CALL 1 (E XVAR) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(MOVEI 2 (QUOTE 144))
(CALL 2 (E XCONS) S)
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG3)
(MOVEI 2 (QUOTE CARBB) S)
(HLRZ@ 1 0 P)
(CALL 2 (E GET) S)
(PUSH P 1)
(JUMPN 1 TAG5)
(HLRZ@ 1 -1 P)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(CALL 1 (E BBARGS) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E BBFUN) S)
(JRST 0 TAG4)
TAG5 (HRRZ@ 1 1)
(JUMPN 1 TAG7)
(HLRZ@ 1 0 P)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(CALLF@ 1 0 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG4)
TAG7 (HLRZ@ 1 0 P)
(HRRZ@ 2 0 P)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(CALLF@ 2 0 P)
(SUB P (C 1 0 1 0))
TAG4 (SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG3 (HLRZ@ 1 0 P)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE LAMBDA) S)
(JRST 0 TAG13)
(HLRZ@ 1 0 P)
(HRRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E BBARGS) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E BBLAMBDA) S)
(JRST 0 TAG1)
TAG13 (MOVE 1 0 P)
(CALL 1 (E BBARGS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE APPLY$) S)
(CALL 2 (E BBFUN) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BBEXL SUBR)
(PUSH P 1)
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE ****) S)
(CALL 1 (E BBEX) S)
(JRST 0 TAG1)
TAG2 (HRRZ@ 1 1)
(JUMPN 1 TAG4)
(HLRZ@ 1 0 P)
(CALL 1 (E BBEX) S)
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE /,/ ) S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 1 (E BBARGS) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E INPUNA) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE E) S)
(CALL 2 (E MAK) S)
(MOVEI 2 (QUOTE 5))
(CALL 2 (E XCONS) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BBFUN SUBR)
(PUSH P 1)
(PUSH P 2)
(JUMPN 2 TAG2)
(CALL 1 (E XVAR) S)
(PUSH P 1)
(MOVEI 1 (QUOTE /[/]) S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(MOVE 2 1)
(JRST 0 TAG1)
TAG2 (HRRZ@ 1 2)
(JUMPN 1 TAG4)
(MOVE 1 -1 P)
(CALL 1 (E XVAR) S)
(PUSH P 1)
(CALL 0 (E XBLANK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(HLRZ@ 1 -1 P)
(HRRZ@ 1 1)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE F) S)
(CALL 2 (E MAK) S)
(MOVE 2 1)
(JRST 0 TAG1)
TAG4 (MOVE 1 -1 P)
(CALL 1 (E XVAR) S)
(PUSH P 1)
(MOVEI 1 (QUOTE /[) S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(MOVEI 1 (QUOTE /,/ ) S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(MOVE 2 -1 P)
(CALL 2 (E INPUNA) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE E) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(MOVEI 1 (QUOTE /]) S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE A) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE F) S)
(CALL 2 (E MAK) S)
(MOVE 2 1)
TAG1 (MOVEI 1 (QUOTE 132))
(SUB P (C 2 0 2 0))
(JCALL 2 (E CONS) S)
NIL
(LAP BBFUNCTION SUBR)
(HLRZ@ 1 1)
(JCALL 1 (E BBEX) S)
NIL
(LAP BBFUNDEF SUBR)
(PUSH P 1)
(MOVE 1 2)
(PUSH P 3)
(PUSH P 4)
(CALL 1 (E BBARGS) S)
(MOVE 2 1)
(EXCH 1 -2 P)
(CALL 2 (E BBFUN) S)
(HRRZ@ 1 1)
(MOVEM 1 -2 P)
(MOVE 1 0 P)
(CAIE 1 (QUOTE EXPR) S)
(JRST 0 TAG2)
(CALL 0 (E XBLANK) S)
(PUSH P 1)
(MOVEI 1 (QUOTE ←/ ) S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(JRST 0 TAG1)
TAG2 (CALL 0 (E XBLANK) S)
(PUSH P 1)
(MOVEI 1 (QUOTE /() S)
(CALL 1 (E XSYM) S)
(PUSH P 1)
(MOVEI 1 (QUOTE FEXPR) S)
(CALL 1 (E XCONST) S)
(PUSH P 1)
(MOVEI 1 (QUOTE /)/ ←/ ) S)
(CALL 1 (E XSYM) 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)
(MOVE 2 1)
TAG1 (MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(MOVE 2 -2 P)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE A) S)
(CALL 2 (E MAK) S)
(EXCH 1 -1 P)
(CALL 1 (E BBEXL) S)
(MOVEI 2 (QUOTE 5))
(CALL 2 (E BRACKET) S)
(CALL 1 (E NCONS) S)
(MOVE 2 -1 P)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE F) S)
(SUB P (C 3 0 3 0))
(JCALL 2 (E MAK) S)
NIL
(LAP BBINIT FSUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE (BBNAME NIL)) S)
(CALL 17 (E ERRSET) S)
(JUMPE 1 TAG7)
(TDZA 1 1)
TAG7 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG6)
(MOVE 1 (SPECIAL BBNAME) S)
(JUMPE 1 TAG10)
(TDZA 1 1)
TAG10 (MOVEI 1 (QUOTE T) S)
TAG6 (JUMPE 1 TAG5)
(MOVEI 1 (QUOTE (DSKIN)) S)
(CALL 17 (E NILL) S)
(CLEARM 0 (SPECIAL FONTARRAYS) S)
(CLEARM 0 (SPECIAL FONTSYMBOLS) S)
(CLEARM 0 (SPECIAL FONTPROPS) S)
(CLEARM 0 (SPECIAL CARBBLIST) S)
TAG5 (HLRZ@ 1 0 P)
(MOVEM 1 (SPECIAL BBNAME) S)
(SUB P (C 1 0 1 0))
(JCALL 0 (E CLEARBB) S)
NIL
(LAP BBLAMBDA SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE {) S)
(PUSH P 2)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(MOVEI 1 (QUOTE }) S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(MOVE 3 -1 P)
(MOVE 2 1)
(POP P 1)
(CALL 3 (E PARENS) S)
(EXCH 1 -1 P)
(CALL 1 (E BBLAMBDAF) S)
(HRRZ@ 1 1)
(CALL 1 (E NCONS) S)
(MOVE 2 -1 P)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE T) S)
(CALL 2 (E MAK) S)
(MOVEI 2 (QUOTE 144))
(SUB P (C 2 0 2 0))
(JCALL 2 (E XCONS) S)
NIL
(LAP BBLAMBDAF SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE /[λ) S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(HLRZ@ 1 -1 P)
(CALL 1 (E BBVARS) S)
(PUSH P 1)
(MOVEI 1 (QUOTE /./ ) S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE A) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE B) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E BBEXL) S)
(MOVEI 2 (QUOTE 5))
(CALL 2 (E BRACKET) S)
(MOVEM 1 -1 P)
(MOVEI 1 (QUOTE /]) S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(MOVE 2 -1 P)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE A) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE F) S)
(CALL 2 (E MAK) S)
(MOVEI 2 (QUOTE 144))
(SUB P (C 1 0 1 0))
(JCALL 2 (E XCONS) S)
NIL
(DEFPROP BBLIST (BBLIST (CONS BINOPB 24 (BBSYM / ) (BBSYM /.) (BBSYM / )) (APPEND BINOPB 12 (BBSYM / ) (BBSYM *)→
(BBSYM / )) (COND BBCOND) (QUOTE BBQUOTE) (OR BINOPB 24 (BBSYM / ) (BBSYM ∨) (BBSYM / )) (AND BINOPB 24 (BBSYM →
/ ) (BBSYM ∧/ )) (LIST BBLISTF) (LAMBDA BBLAMBDAF) (FUNCTION BBFUNCTION) (PLUS BINOPB 40 (BBSYM / ) (BBSYM +) (B→
BSYM / )) (GREATERP BINOPB 30 (BBSYM / ) (BBSYM >) (BBSYM / )) (LESSP BINOPB 30 (BBSYM / ) (BBSYM <) (BBSYM / ))→
(PROG BBPROG) (NULL UNOP 132 (BBBOLD n/ )) (MINUS UNOP 132 (BBSYM -)) (CAR UNOP 132 (BBBOLD a/ )) (CDR UNOP 132→
(BBBOLD d/ )) (CADR UNOP 132 (BBBOLD ad/ )) (CDAR UNOP 132 (BBBOLD da/ )) (CDDR UNOP 132 (BBBOLD dd/ )) (CAAR U→
NOP 132 (BBBOLD aa/ )) (CAAAR UNOP 132 (BBBOLD aaa/ )) (CAADR UNOP 132 (BBBOLD aad/ )) (CADAR UNOP 132 (BBBOLD a→
da/ )) (CADDR UNOP 132 (BBBOLD add/ )) (CDAAR UNOP 132 (BBBOLD daa/ )) (CDADR UNOP 132 (BBBOLD dad/ )) (CDDAR UN→
OP 132 (BBBOLD dda/ )) (CDDDR UNOP 132 (BBBOLD ddd/ )) (CAAAAR UNOP 132 (BBBOLD aaaa/ )) (CAAADR UNOP 132 (BBBOL→
D aaad/ )) (CAADAR UNOP 132 (BBBOLD aada/ )) (CAADDR UNOP 132 (BBBOLD aadd/ )) (CADAAR UNOP 132 (BBBOLD adaa/ ))→
(CADADR UNOP 132 (BBBOLD adad/ )) (CADDAR UNOP 132 (BBBOLD adda/ )) (CADDDR UNOP 132 (BBBOLD addd/ )) (CDAAAR U→
NOP 132 (BBBOLD daaa/ )) (CDAADR UNOP 132 (BBBOLD daad/ )) (CDADAR UNOP 132 (BBBOLD dada/ )) (CDADDR UNOP 132 (B→
BBOLD dadd/ )) (CDDAAR UNOP 132 (BBBOLD ddaa/ )) (CDDADR UNOP 132 (BBBOLD ddad/ )) (CDDDAR UNOP 132 (BBBOLD ddda→
/ )) (CDDDDR UNOP 132 (BBBOLD dddd/ )) (ATOM UNOP 132 (BBBOLD at/ )) (EQ BINOPB 30 (BBSYM / ) (BBBOLD eq/ )) (ME→
MBER BINOPB 30 (BBSYM / ) (BBSYM ε/ )) (NOT UNOP 132 (BBSYM ¬)) (DIFFERENCE BINOPB 40 (BBSYM / ) (BBSYM -/ )) (S→
ETQ BINOPB 20 (BBSYM / ) (BBSYM ←/ )) (SELECTQ BBSELECTQ)) VALUE)
(LAP BBLISTF SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE <) S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(MOVEI 1 (QUOTE >) S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(EXCH 1 -1 P)
(CALL 1 (E BBARGS) S)
(MOVE 3 1)
(MOVE 2 -1 P)
(POP P 1)
(CALL 3 (E PARENS) S)
(MOVEI 2 (QUOTE 144))
(SUB P (C 1 0 1 0))
(JCALL 2 (E XCONS) S)
NIL
(LAP BBLPT SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE 160))
(MOVEM 1 (SPECIAL LINL) S)
(MOVE 1 0 P)
(SUB P (C 1 0 1 0))
(JCALL 1 (E BBTTYLPT) S)
NIL
(LAP BBPPROP SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(MOVE 1 3)
(JUMPE 1 TAG1)
(MOVE 1 -2 P)
(CALL 1 (E TTYMSG) S)
(CALL 0 (E TERPRI) S)
(CALL 0 (E TERPRI) S)
(MOVE 1 (SPECIAL XGP) S)
(JUMPE 1 TAG5)
(MOVEI 1 (QUOTE 60))
(JRST 0 TAG4)
TAG5 (MOVEI 1 (QUOTE 3))
TAG4 (CALL 1 (E NEWLINE) S)
(MOVE 1 -1 P)
(JUMPN 1 TAG11)
(MOVE 1 0 P)
(CALL 1 (E BBEX) S)
(HRRZ@ 1 1)
(JRST 0 TAG10)
TAG11 (CAIE 1 (QUOTE VALUE) S)
(JRST 0 TAG13)
(HRRZ@ 2 0 P)
(MOVE 1 -2 P)
(CALL 2 (E BBVALDEF) S)
(JRST 0 TAG10)
TAG13 (MOVE 4 -1 P)
(HRRZ@ 3 0 P)
(HRRZ@ 3 3)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(MOVE 1 -2 P)
(CALL 4 (E BBFUNDEF) S)
TAG10 (MOVEI 3 (QUOTE 0))
(MOVEI 2 (QUOTE 0))
(CALL 3 (E PREX) S)
(CALL 0 (E TERPRI) S)
TAG1 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP BBPPROPS SUBR)
(PUSH P 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG3)
(PUSH P (SPECIAL BBPROPS) S)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG10)
(HLRZ@ 1 1)
(MOVE 2 1)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 2 (E GET) S)
(MOVE 3 1)
(MOVE 1 -2 P)
(CALL 3 (E BBPPROP) S)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG10 (MOVEI 1 (QUOTE NIL))
(SUB P (C 1 0 1 0))
(JRST 0 TAG2)
TAG3 (MOVE 3 0 P)
(MOVEI 2 (QUOTE NIL))
(MOVEI 1 (QUOTE NIL))
(CALL 3 (E BBPPROP) S)
TAG2 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BBPROG SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE prog) S)
(CALL 1 (E XBOLD) S)
(PUSH P 1)
(CALL 0 (E XBLANK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(HLRZ@ 1 -1 P)
(CALL 1 (E BBVARS) S)
(MOVEI 2 (QUOTE 0))
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE 0))
(CALL 2 (E BRACKET) S)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(CALL 1 (E BBPROGA) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE E) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE 10000))
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE B) S)
(CALL 2 (E MAK) S)
(MOVEI 2 (QUOTE 12))
(SUB P (C 1 0 1 0))
(JCALL 2 (E XCONS) S)
NIL
(LAP BBPROGA SUBR)
(PUSH P 1)
(JUMPE 1 TAG1)
(HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(HRRZ@ 1 0 P)
(JUMPN 1 TAG4)
(HLRZ@ 1 0 P)
(CALL 1 (E LABL) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE U) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(JRST 0 TAG3)
TAG4 (HLRZ@ 1 0 P)
(CALL 1 (E LABL) S)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CALL 1 (E BBEX) S)
(HRRZ@ 1 1)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE U) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(HRRZ@ 1 1)
(CALL 1 (E BBPROGA) S)
(POP P 2)
(CALL 2 (E XCONS) S)
TAG3 (JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(CALL 1 (E BBEX) S)
(HRRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E BBPROGA) S)
(POP P 2)
(CALL 2 (E XCONS) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(DEFPROP BBPROPS (BBPROPS EXPR FEXPR) VALUE) (LAP BBPUB SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE %) S)
(MOVEM 1 (SPECIAL SELECTCHAR) S)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL PUB) S)
(MOVEI 1 (QUOTE (∂ { % //)) S)
(CALL 1 (E SETSLASHES) S)
(MOVEI 1 (QUOTE /.DEVICE/ XGP) S)
(CALL 1 (E PRINTC) S)
(PUSH P (SPECIAL PUBFONTS) S)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 1)
(PUSH P 1)
(MOVEI 1 (QUOTE /.FONT/ ) S)
(CALL 1 (E PRINTC) S)
(HLRZ@ 1 0 P)
(CALL 1 (E PRINC) S)
(MOVEI 1 (QUOTE / /") S)
(CALL 1 (E PRINC) S)
(HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(CALL 1 (E PRINFONTFILE) S)
(MOVEI 1 (QUOTE /") S)
(CALL 1 (E PRINC) S)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG11 (MOVEI 1 (QUOTE /.EVENLEFTBORDER←ODDLEFTBORDER←1000) S)
(CALL 1 (E PRINTC) S)
(MOVEI 1 (QUOTE /.PAGE/ FRAME/ 52/ HIGH/ 83/ HIGH;) S)
(CALL 1 (E PRINTC) S)
(MOVEI 1 (QUOTE /.AREA/ TEXT/ LINES/ 4/ TO/ 50;) S)
(CALL 1 (E PRINTC) S)
(MOVEI 1 (QUOTE /.TITLE/ AREA/ HEADING/ LINES/ 1/ TO/ 3;) S)
(CALL 1 (E PRINTC) S)
(MOVEI 1 (QUOTE /.PLACE/ TEXT;) S)
(CALL 1 (E PRINTC) S)
(MOVEI 1 (QUOTE /.EVERY/ HEADING/(/,/,{PAGE}/);) S)
(CALL 1 (E PRINTC) S)
(MOVEI 1 (QUOTE /.BEGIN/ NOFILL) S)
(CALL 1 (E PRINTC) S)
(MOVEI 1 (QUOTE /.VARIABLE/ CHW) S)
(CALL 1 (E PRINTC) S)
(MOVEI 1 (QUOTE /.CHW/ ←/ CHARW) S)
(CALL 1 (E PRINTC) S)
(MOVEI 1 (QUOTE /.TURN/ OFF/ /"βα#\←∞↑↓∪/") S)
(CALL 1 (E PRINTC) S)
(MOVEI 1 (QUOTE /.TURN/ ON/ /"∂{%/") S)
(CALL 1 (E PRINTC) S)
(MOVEI 1 (QUOTE /.TURN/ ON/ /"///"/ FOR/ /"α/") S)
(CALL 1 (E PRINTC) S)
(MOVEI 1 (QUOTE /.AT/ /"∂∂/(/"/ CH/ /"/)/"/ ⊂/ CHARW←CH}∂/(2/){CHARW←CHW/ ⊃) S)
(CALL 1 (E PRINTC) S)
(MOVE 1 -1 P)
(CALL 1 (E BBXGPPUB) S)
(MOVEI 1 (QUOTE /.END) S)
(CALL 1 (E PRINTC) S)
(CALL 0 (E SCANPUSH) S)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP BBQUOTE SUBR)
(PUSH P 1)
(HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(HLRZ@ 1 0 P)
(CALL 1 (E NUMBERP) S)
(JUMPN 1 TAG5)
(HLRZ@ 1 0 P)
(CALL 1 (E CHRVAL) S)
(CALL 1 (E ALPHABETIC) S)
(JUMPE 1 TAG7)
(HLRZ@ 1 0 P)
(CALL 1 (E EXPLODEC) S)
(HRRZ@ 1 1)
(CALL 1 (E ALPHANUM) S)
TAG7
TAG5 (JUMPE 1 TAG4)
(HLRZ@ 1 0 P)
(CALL 1 (E XCONST) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(JRST 0 TAG3)
TAG4 (HLRZ@ 1 0 P)
(CALL 1 (E STRINGP) S)
(JUMPE 1 TAG10)
(MOVE 1 (SPECIAL PUB) S)
(JUMPE 1 TAG12)
(HLRZ@ 1 0 P)
(CALL 1 (E XCONST) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(JRST 0 TAG11)
TAG12 (MOVEI 1 (QUOTE /") S)
(CALL 1 (E XSYM) S)
(PUSH P 1)
(HLRZ@ 1 -1 P)
(CALL 1 (E XCONST) S)
(PUSH P 1)
(MOVEI 1 (QUOTE /") S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
TAG11 (JRST 0 TAG3)
TAG10 (CALL 0 (E XBLANK) S)
(PUSH P 1)
(MOVEI 1 (QUOTE `) S)
(CALL 1 (E XSYM) S)
(PUSH P 1)
(HLRZ@ 1 -2 P)
(CALL 1 (E XCONST) S)
(PUSH P 1)
(MOVEI 1 (QUOTE '/ ) S)
(CALL 1 (E XSYM) 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)
(MOVE 2 1)
TAG3 (MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(MOVE 2 1)
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE /() S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(HLRZ@ 1 -1 P)
(CALL 1 (E BBQUOTEL) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE E) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(MOVEI 1 (QUOTE /)) S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE A) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE B) S)
(CALL 2 (E MAK) S)
(MOVE 2 1)
TAG1 (MOVEI 1 (QUOTE 144))
(SUB P (C 1 0 1 0))
(JCALL 2 (E CONS) S)
NIL
(LAP BBQUOTEL SUBR)
(PUSH P 1)
(HRRZ@ 1 1)
(JUMPN 1 TAG2)
(MOVE 1 0 P)
(CALL 1 (E BBQUOTE) S)
(HRRZ@ 1 1)
(CALL 1 (E NCONS) S)
(JRST 0 TAG1)
TAG2 (HRRZ@ 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG4)
(MOVE 1 0 P)
(CALL 1 (E BBQUOTE) S)
(HRRZ@ 1 1)
(PUSH P 1)
(CALL 0 (E XBLANK) S)
(PUSH P 1)
(MOVEI 1 (QUOTE /./ ) S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(CALL 1 (E NCONS) S)
(CALL 1 (E BBQUOTE) S)
(HRRZ@ 1 1)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE B) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(CALL 1 (E BBQUOTE) S)
(HRRZ@ 1 1)
(PUSH P 1)
(CALL 0 (E XBLANK) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE A) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E BBQUOTEL) S)
(POP P 2)
(CALL 2 (E XCONS) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BBSELECTA SUBR)
(PUSH P 1)
(HRRZ@ 1 1)
(JUMPN 1 TAG2)
(HLRZ@ 1 0 P)
(CALL 1 (E BBEX) S)
(CALL 1 (E NCONS) S)
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(CALL 1 (E BBQUOTE) S)
(HRRZ@ 1 1)
(PUSH P 1)
(CALL 0 (E XBLANK) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE A) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(HLRZ@ 1 -1 P)
(HRRZ@ 1 1)
(CALL 1 (E BBEXL) S)
(MOVEI 2 (QUOTE 5))
(CALL 2 (E BRACKET) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE B) S)
(CALL 2 (E MAK) S)
(MOVEI 2 (QUOTE 0))
(CALL 2 (E XCONS) S)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E BBSELECTA) S)
(POP P 2)
(CALL 2 (E XCONS) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BBSELECTQ SUBR)
(PUSH P 1)
(CALL 1 (E LENGTH) S)
(MOVEI 2 (QUOTE 3))
(CALL 2 (E *LESS) S)
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(CALL 1 (E BBARGS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE SELECTQ) S)
(CALL 2 (E BBFUN) S)
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(CALL 1 (E BBEX) S)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E BBSELECTA) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE SELECTQ) S)
(CALL 2 (E BBFUN) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BBTTY SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE 105))
(MOVEM 1 (SPECIAL LINL) S)
(MOVE 1 0 P)
(SUB P (C 1 0 1 0))
(JCALL 1 (E BBTTYLPT) S)
NIL
(LAP BBTTYLPT SUBR)
(PUSH P 1)
(MOVE 1 (SPECIAL LINL) S)
(CALL 1 (E LINELENGTH) S)
(MOVE 1 (SPECIAL SIN) S)
(MOVEM 1 (SPECIAL SINDENT) S)
(MOVE 1 (SPECIAL FIN) S)
(MOVEM 1 (SPECIAL FINDENT) S)
(MOVE 1 (SPECIAL HIN) S)
(MOVEM 1 (SPECIAL HINDENT) S)
(MOVE 1 (SPECIAL MAXF) S)
(MOVEM 1 (SPECIAL FMAX) S)
(MOVE 1 (SPECIAL XGP) S)
(JUMPE 1 TAG6)
(PUSH P (SPECIAL FONTPROPS) S)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG13)
(HLRZ@ 1 1)
(HRRZ@ 2 1)
(HLRZ@ 1 1)
(CALL 2 (E REMPROP) S)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG13 (SUB P (C 1 0 1 0))
TAG6 (CLEARM 0 (SPECIAL XGP) S)
(CLEARM 0 (SPECIAL PUB) S)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE BBPPROPS) S)
(PUSHJ P *MAPC)
(MOVEI 1 (QUOTE 105))
(CALL 1 (E LINELENGTH) S)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BBVALDEF SUBR)
(PUSH P 1)
(MOVE 1 2)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE SETQ) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E BBEX) S)
(HRRZ@ 1 1)
(POPJ P)
NIL
(LAP BBVARS SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE /,/ ) S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) 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))
TAG1 (MOVE 1 -4 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 1)
(CALL 1 (E XVAR) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(MOVEI 2 (QUOTE 144))
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(MOVEM 1 -2 P)
(MOVE 1 -1 P)
(JUMPE 1 TAG10)
(MOVE 1 -2 P)
(HRRM@ 1 -1 P)
(HRRZ@ 2 -1 P)
(JRST 0 TAG7)
TAG10 (MOVE 2 -2 P)
(MOVEM 2 0 P)
TAG7 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(MOVEM 2 -1 P)
(JRST 0 TAG1)
TAG6 (MOVE 2 0 P)
(EXCH 1 -3 P)
(CALL 2 (E INPUNA) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE E) S)
(SUB P (C 5 0 5 0))
(JCALL 2 (E MAK) S)
NIL
(LAP BBXGP SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE 177))
(CALL 1 (E ASCII) S)
(PUSH P 1)
(MOVEI 1 (QUOTE ↓) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE //) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E MAKNAM) S)
(MOVEM 1 (SPECIAL SELECTCHAR) S)
(MOVEI 1 (QUOTE 7))
(CALL 1 (E ASCII) S)
(PUSH P 1)
(MOVEI 1 (QUOTE 11))
(CALL 1 (E ASCII) S)
(PUSH P 1)
(MOVEI 1 (QUOTE 12))
(CALL 1 (E ASCII) S)
(PUSH P 1)
(MOVEI 1 (QUOTE 13))
(CALL 1 (E ASCII) S)
(PUSH P 1)
(MOVEI 1 (QUOTE 14))
(CALL 1 (E ASCII) S)
(PUSH P 1)
(MOVEI 1 (QUOTE 15))
(CALL 1 (E ASCII) S)
(PUSH P 1)
(MOVEI 1 (QUOTE 16))
(CALL 1 (E ASCII) S)
(PUSH P 1)
(MOVEI 1 (QUOTE 17))
(CALL 1 (E ASCII) 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)
(POP P 2)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE λ) S)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE ε) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE ¬) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE ∧) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE β) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE α) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE ↓) S)
(CALL 2 (E XCONS) S)
(MOVEM 1 (SPECIAL FONTSYMS) S)
(CLEARM 0 (SPECIAL PUB) S)
(MOVE 1 0 P)
(CALL 1 (E BBXGPPUB) S)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BBXGPPUB SUBR)
(PUSH P 1)
(MOVE 1 (SPECIAL XGPLINL) S)
(MOVEM 1 (SPECIAL LINL) S)
(MOVEI 1 (QUOTE 10000))
(CALL 1 (E LINELENGTH) S)
(MOVE 2 (SPECIAL CHARW) S)
(MOVE 1 (SPECIAL SIN) S)
(CALL 2 (E *TIMES) S)
(MOVEM 1 (SPECIAL SINDENT) S)
(MOVE 2 (SPECIAL CHARW) S)
(MOVE 1 (SPECIAL FIN) S)
(CALL 2 (E *TIMES) S)
(MOVEM 1 (SPECIAL FINDENT) S)
(MOVE 2 (SPECIAL CHARW) S)
(MOVE 1 (SPECIAL HIN) S)
(CALL 2 (E *TIMES) S)
(MOVEM 1 (SPECIAL HINDENT) S)
(MOVE 2 (SPECIAL CHARW) S)
(MOVE 1 (SPECIAL MAXF) S)
(CALL 2 (E *TIMES) S)
(MOVEM 1 (SPECIAL FMAX) S)
(CLEARM 0 (SPECIAL CURFONT) S)
(MOVE 1 (SPECIAL XGP) S)
(JUMPN 1 TAG6)
(PUSH P (SPECIAL FONTPROPS) S)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG14)
(HLRZ@ 1 1)
(HRRZ@ 2 1)
(HLRZ@ 1 1)
(CALL 2 (E REMPROP) S)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG14 (SUB P (C 1 0 1 0))
TAG6 (MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL XGP) S)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE BBPPROPS) S)
(PUSHJ P *MAPC)
(MOVEI 1 (QUOTE 105))
(SUB P (C 1 0 1 0))
(JCALL 1 (E LINELENGTH) S)
NIL
(LAP BINOPB SUBR)
(HRRZ@ 3 2)
(PUSH P 1)
(HLRZ@ 1 2)
(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))
TAG1 (MOVE 1 -3 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 1)
(HRRZ@ 2 1)
(HLRZ@ 2 2)
(HLRZ@ 1 1)
(CALL 2 (E XA) S)
(CALL 1 (E NCONS) S)
(MOVEM 1 -2 P)
(MOVE 1 -1 P)
(JUMPE 1 TAG10)
(MOVE 1 -2 P)
(HRRM@ 1 -1 P)
(HRRZ@ 2 -1 P)
(JRST 0 TAG7)
TAG10 (MOVE 2 -2 P)
(MOVEM 2 0 P)
TAG7 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(MOVEM 2 -1 P)
(JRST 0 TAG1)
TAG6 (MOVE 2 0 P)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(EXCH 1 -6 P)
(CALL 1 (E BBARGS) S)
(HLRZ@ 3 -4 P)
(MOVE 2 1)
(EXCH 1 -6 P)
(CALL 3 (E INOPB) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE E) S)
(CALL 2 (E MAK) S)
(MOVE 2 -5 P)
(SUB P (C 7 0 7 0))
(JCALL 2 (E XCONS) S)
NIL
(LAP BRACKET SUBR)
(PUSH P 1)
(PUSH P 2)
(HLRZ@ 1 1)
(CALL 2 (E *GREAT) S)
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE /[) S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(PUSH P 1)
(MOVEI 1 (QUOTE /]) S)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE A) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE B) S)
(CALL 2 (E MAK) S)
(JRST 0 TAG1)
TAG2 (HRRZ@ 1 -1 P)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP CARLIST FSUBR)
(JCALL 1 (E SETCARLIST) S)
NIL
(DEFPROP CHARW (CHARW . 20) VALUE)
(LAP CHVAL SUBR)
(PUSH P 1)
(CALL 1 (E NUMBERP) S)
(JUMPE 1 TAG2)
(MOVEI 2 (QUOTE 60))
(MOVE 1 0 P)
(CALL 2 (E *PLUS) S)
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
(CALL 1 (E CHRVAL) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP CLEARBB SUBR)
(CALL 0 (E CLEARFONTS) S)
(PUSH P (SPECIAL CARBBLIST) S)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 1)
(MOVEI 2 (QUOTE CARBB) S)
(HLRZ@ 1 1)
(CALL 2 (E REMPROP) S)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG11 (CLEARB 1 (SPECIAL CARBBLIST) S)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP CLEARBITS SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 TAG1 0))
(PUSH P (C 0 0 (QUOTE 2) 0))
(PUSH P 2)
(PUSH P 1)
(MOVNI 6 3)
(JCALL 16 (E BOOLE) S)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP CLEARFONTS SUBR)
(CLEARM 0 (SPECIAL XGP) S)
(CLEARM 0 (SPECIAL PUBFONTS) S)
(CLEARM 0 (SPECIAL FONTLIST) S)
(CLEARM 0 (SPECIAL LCFONTS) S)
(MOVEI 1 (QUOTE 0))
(MOVEM 1 (SPECIAL XGPFONT) S)
(MOVE 1 (SPECIAL FONTARRAYS) S)
(MOVEM 1 (SPECIAL FREEFONTARRAYS) S)
(PUSH P (SPECIAL FONTSYMBOLS) S)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG12)
(HLRZ@ 1 1)
(MOVEI 2 (QUOTE FONT) S)
(CALL 2 (E REMPROP) S)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG12 (CLEARM 0 (SPECIAL FONTSYMBOLS) S)
(PUSH P (SPECIAL FONTPROPS) S)
TAG2 (MOVE 1 0 P)
(JUMPE 1 TAG17)
(HLRZ@ 1 1)
(HRRZ@ 2 1)
(HLRZ@ 1 1)
(CALL 2 (E REMPROP) S)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG2)
TAG17 (CLEARB 1 (SPECIAL FONTPROPS) S)
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(DEFPROP FIN (FIN . 2) VALUE)
(LAP FONT FSUBR)
(PUSH P 1)
(HRRZ@ 3 0 P)
(HRRZ@ 3 3)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(HLRZ@ 1 0 P)
(CALL 3 (E SETUPFONT) S)
(HLRZ@ 1 0 P)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP FSIZE SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVE 1 (SPECIAL XGP) S)
(JUMPE 1 TAG2)
(MOVE 1 -1 P)
(CALL 1 (E EXPLODEC) S)
(MOVE 2 0 P)
(CALL 2 (E PSIZE) S)
(JRST 0 TAG1)
TAG2 (MOVE 1 -1 P)
(CALL 1 (E FLATSIZEC) S)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(DEFPROP HIN (HIN . 2) VALUE)
(LAP INOPB SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(MOVE 1 2)
(JUMPE 1 TAG1)
(MOVE 2 0 P)
(HLRZ@ 1 -1 P)
(CALL 2 (E BRACKET) S)
(MOVE 3 0 P)
(HRRZ@ 2 -1 P)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 3 (E INOPBB) S)
(POP P 2)
(CALL 2 (E XCONS) S)
TAG1 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP INOPBB SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(MOVE 1 2)
(JUMPE 1 TAG1)
(MOVE 2 0 P)
(HLRZ@ 1 -1 P)
(CALL 2 (E BRACKET) S)
(CALL 1 (E NCONS) S)
(MOVE 2 -2 P)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE B) S)
(CALL 2 (E MAK) S)
(MOVE 3 0 P)
(HRRZ@ 2 -1 P)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 3 (E INOPBB) S)
(POP P 2)
(CALL 2 (E XCONS) S)
TAG1 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP INPUNA SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVE 1 2)
(JUMPE 1 TAG1)
(HRRZ@ 1 1)
(JUMPN 1 TAG2)
(HLRZ@ 1 2)
(HRRZ@ 1 1)
(CALL 1 (E NCONS) S)
(JRST 0 TAG1)
TAG2 (MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
(HLRZ@ 2 0 P)
(HRRZ@ 2 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE A) S)
(CALL 2 (E MAK) S)
(HRRZ@ 2 0 P)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 2 (E INPUNA) S)
(POP P 2)
(CALL 2 (E XCONS) S)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP LABL SUBR)
(CALL 1 (E XVAR) S)
(PUSH P 1)
(CALL 0 (E XBLANK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(JCALL 2 (E MAK) S)
NIL
(LAP LCASE FSUBR)
(PUSH P 1)
(PUSH P 0 P)
(PUSH P (SPECIAL LCFONTS) 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))
TAG1 (MOVE 1 -4 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 1)
(CALL 1 (E EXPLODE) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE (B B)) S)
(CALL 2 (E *APPEND) S)
(CALL 1 (E READLIST) S)
(CALL 1 (E NCONS) S)
(MOVEM 1 -2 P)
(MOVE 1 -1 P)
(JUMPE 1 TAG13)
(MOVE 1 -2 P)
(HRRM@ 1 -1 P)
(HRRZ@ 2 -1 P)
(JRST 0 TAG12)
TAG13 (MOVE 2 -2 P)
(MOVEM 2 0 P)
TAG12 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(MOVEM 2 -1 P)
(JRST 0 TAG1)
TAG11 (MOVE 2 0 P)
(EXCH 1 -3 P)
(CALL 2 (E *APPEND) S)
(MOVEM 1 (SPECIAL LCFONTS) S)
(MOVE 1 -5 P)
(SUB P (C 5 0 5 0))
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(DEFPROP LINL (LINL . 105) VALUE)
(LAP MAK SUBR)
(PUSH P 1)
(MOVE 1 2)
(PUSH P 2)
(CALL 1 (E SUMLEN) S)
(POP P 2)
(EXCH 1 0 P)
(CALL 2 (E CONS) S)
(POP P 2)
(JCALL 2 (E XCONS) S)
NIL
(DEFPROP MAXF (MAXF . 10) VALUE)
(LAP NEWLINE SUBR)
(PUSH P 1)
(MOVE 1 (SPECIAL PUB) S)
(JUMPE 1 TAG4)
(CALL 0 (E TERPRI) S)
(MOVE 1 0 P)
(MOVEM 1 (SPECIAL IND) S)
(MOVEM 1 (SPECIAL POS) S)
(MOVEI 1 (QUOTE ∂∂) S)
(CALL 1 (E PRINC) S)
(MOVE 1 0 P)
(CALL 1 (E NCONS) S)
(CALL 1 (E PRINDEC) S)
(JRST 0 TAG3)
TAG4 (MOVE 1 (SPECIAL XGP) S)
(JUMPE 1 TAG5)
(CALL 0 (E TERPRI) S)
(MOVE 1 0 P)
(MOVEM 1 (SPECIAL IND) S)
(MOVEI 1 (QUOTE 0))
(MOVEM 1 (SPECIAL POS) S)
TAG1 (MOVE 1 (SPECIAL POS) S)
(CAMN 1 (SPECIAL IND) S)
(JRST 0 TAG7)
(MOVE 2 1)
(MOVE 1 (SPECIAL IND) S)
(CALL 2 (E *DIF) S)
(MOVEI 2 (QUOTE 100))
(CALL 2 (E *LESS) S)
(JUMPE 1 TAG12)
(MOVE 2 (SPECIAL POS) S)
(MOVE 1 (SPECIAL IND) S)
(CALL 2 (E *DIF) S)
(CALL 1 (E XSPACE) S)
(MOVE 1 (SPECIAL IND) S)
(MOVEM 1 (SPECIAL POS) S)
(JRST 0 TAG7)
TAG12 (MOVEI 1 (QUOTE 77))
(CALL 1 (E XSPACE) S)
(MOVEI 2 (QUOTE 77))
(MOVE 1 (SPECIAL POS) S)
(CALL 2 (E *PLUS) S)
(MOVEM 1 (SPECIAL POS) S)
(JRST 0 TAG1)
TAG7 (MOVEI 1 (QUOTE NIL))
(JRST 0 TAG3)
TAG5 (CALL 0 (E TERPRI) S)
(MOVE 1 0 P)
(MOVEM 1 (SPECIAL IND) S)
(MOVEI 1 (QUOTE 0))
(MOVEM 1 (SPECIAL POS) S)
TAG2 (MOVE 1 (SPECIAL POS) S)
(CAMN 1 (SPECIAL IND) S)
(JRST 0 TAG20)
(MOVEI 1 (QUOTE / ) S)
(CALL 1 (E PRINC) S)
(MOVE 1 (SPECIAL POS) S)
(CALL 1 (E ADD1) S)
(MOVEM 1 (SPECIAL POS) S)
(JRST 0 TAG2)
TAG20 (MOVEI 1 (QUOTE NIL))
TAG3 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP PARENS SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE /,/ ) S)
(PUSH P 2)
(PUSH P 3)
(CALL 1 (E XSYM) S)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(POP P 2)
(CALL 2 (E INPUNA) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE E) S)
(CALL 2 (E MAK) S)
(EXCH 1 0 P)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE A) S)
(CALL 2 (E MAK) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE B) S)
(JCALL 2 (E MAK) S)
NIL
(LAP PRA SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(HRRZ@ 1 -2 P)
(CALL 1 (E CDDR) S)
(PUSH P 1)
(HRRZ@ 1 -3 P)
(CALL 1 (E CADR) S)
(HLRZ@ 2 0 P)
(HLRZ@ 2 2)
(MOVEM 1 0 P)
(MOVE 1 -1 P)
(CALL 2 (E *PLUS) S)
(MOVE 3 1)
(MOVE 2 -2 P)
(POP P 1)
(CALL 3 (E PREX) S)
(MOVE 3 0 P)
(MOVE 2 -1 P)
(HRRZ@ 1 -2 P)
(CALL 1 (E CADDR) S)
(SUB P (C 3 0 3 0))
(JCALL 3 (E PREX) S)
NIL
(LAP PREH SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(MOVE 1 4)
(CALL 2 (E *MAX) S)
(MOVE 2 (SPECIAL SINDENT) S)
(PUSH P 1)
(CALL 2 (E *PLUS) S)
(HRRZ@ 2 -4 P)
(HRRZ@ 2 2)
(PUSH P 1)
(MOVEM 2 -5 P)
(JUMPE 2 TAG3)
TAG1 (PUSH P 0 P)
(PUSH P -6 P)
(HLRZ@ 1 0 P)
(PUSH P 1)
(HRRZ@ 1 -10 P)
(JUMPN 1 TAG10)
(MOVE 3 -6 P)
(JRST 0 TAG7)
TAG10 (MOVEI 3 (QUOTE 0))
TAG7 (MOVE 2 -2 P)
(POP P 1)
(CALL 3 (E PREX) S)
(SUB P (C 2 0 2 0))
(HRRZ@ 1 -5 P)
(MOVEM 1 -5 P)
(JUMPE 1 TAG3)
(HLRZ@ 2 -5 P)
(MOVE 1 -1 P)
(CALL 2 (E ULINE) S)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
(SUB P (C 6 0 6 0))
(POPJ P)
NIL
(LAP PREX SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(MOVE 2 (SPECIAL POS) S)
(HLRZ@ 1 1)
(CALL 2 (E *PLUS) S)
(MOVE 2 0 P)
(CALL 2 (E *PLUS) S)
(MOVE 2 (SPECIAL LINL) S)
(CALL 2 (E *GREAT) S)
(JUMPN 1 TAG2)
(MOVE 1 -2 P)
(CALL 1 (E SIMPLEPRINT) S)
(JRST 0 TAG1)
TAG2 (HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL SELECTQ) S)
(CAIE 1 (QUOTE E) S)
(JRST 0 TAG7)
(MOVE 4 (SPECIAL POS) S)
(MOVE 3 0 P)
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 4 (E PREH) S)
(JRST 0 TAG6)
TAG7 (CAIE 1 (QUOTE H) S)
(JRST 0 TAG10)
(MOVE 2 (SPECIAL HINDENT) S)
(MOVE 1 (SPECIAL POS) S)
(CALL 2 (E *PLUS) S)
(MOVE 4 1)
(MOVE 3 0 P)
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 4 (E PREH) S)
(JRST 0 TAG6)
TAG10 (CAIE 1 (QUOTE A) S)
(JRST 0 TAG11)
(MOVE 3 0 P)
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 3 (E PRA) S)
(JRST 0 TAG6)
TAG11 (MOVEI 2 (QUOTE (B U)) S)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG12)
(MOVE 4 (SPECIAL LINL) S)
(MOVE 3 0 P)
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 4 (E PRF) S)
(JRST 0 TAG6)
TAG12 (MOVE 1 (SPECIAL SELECTQ) S)
(CAIE 1 (QUOTE F) S)
(JRST 0 TAG13)
(MOVE 4 (SPECIAL FMAX) S)
(MOVE 3 0 P)
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 4 (E PRF) S)
(JRST 0 TAG6)
TAG13 (CAIE 1 (QUOTE T) S)
(JRST 0 TAG14)
(MOVE 3 0 P)
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 3 (E PRT) S)
(JRST 0 TAG6)
TAG14 (MOVE 1 -2 P)
(CALL 1 (E PRINX) S)
TAG6
TAG1 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP PRF SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(MOVE 2 (SPECIAL POS) S)
(CALL 1 (E CAADDR) S)
(CALL 2 (E *PLUS) S)
(PUSH P 1)
(MOVE 1 (SPECIAL IND) S)
(CALL 1 (E MINUS) S)
(POP P 2)
(CALL 2 (E *PLUS) S)
(MOVE 2 0 P)
(CALL 2 (E *GREAT) S)
(JUMPN 1 TAG3)
(MOVE 2 (SPECIAL POS) S)
(HRRZ@ 1 -3 P)
(CALL 1 (E CAADR) S)
(CALL 2 (E *PLUS) S)
(MOVE 2 (SPECIAL LINL) S)
(CALL 2 (E *GREAT) S)
TAG3 (JUMPE 1 TAG2)
(MOVE 2 (SPECIAL FINDENT) S)
(MOVE 1 (SPECIAL IND) S)
(CALL 2 (E *PLUS) S)
(MOVE 2 -2 P)
(CALL 2 (E *MAX) S)
(PUSH P 1)
(HRRZ@ 1 -4 P)
(CALL 1 (E CADR) S)
(MOVE 2 (SPECIAL SINDENT) S)
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 2 (E *PLUS) S)
(MOVEI 3 (QUOTE 0))
(MOVE 2 1)
(POP P 1)
(CALL 3 (E PREX) S)
(MOVE 1 0 P)
(CALL 1 (E NEWLINE) S)
(MOVE 3 -2 P)
(MOVE 2 0 P)
(HRRZ@ 1 -4 P)
(CALL 1 (E CADDR) S)
(CALL 3 (E PREX) S)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG2 (MOVEI 3 (QUOTE 0))
(MOVEI 2 (QUOTE 0))
(HRRZ@ 1 -3 P)
(CALL 1 (E CADR) S)
(CALL 3 (E PREX) S)
(MOVE 3 -1 P)
(MOVE 2 -2 P)
(HRRZ@ 1 -3 P)
(CALL 1 (E CADDR) S)
(CALL 3 (E PREX) S)
TAG1 (SUB P (C 4 0 4 0))
(POPJ P)
NIL
(LAP PRINDEC SUBR)
(PUSH P 1)
(PUSH P (SPECIAL BASE) S)
(PUSH P (SPECIAL *NOPOINT) S)
(MOVEI 1 (QUOTE 12))
(MOVEM 1 (SPECIAL BASE) S)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL *NOPOINT) S)
(MOVE 1 -2 P)
(CALL 1 (E PRINC) S)
(MOVE 1 -1 P)
(MOVEM 1 (SPECIAL BASE) S)
(MOVE 1 0 P)
(MOVEM 1 (SPECIAL *NOPOINT) S)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP PRINFONTFILE SUBR)
(PUSH P 1)
(HRRZ@ 1 0 P)
(CALL 1 (E CAAR) S)
(CALL 1 (E PRINC) S)
(HRRZ@ 1 0 P)
(CALL 1 (E CDAR) S)
(CAIN 1 (QUOTE FNT) S)
(JRST 0 TAG5)
(MOVEI 1 (QUOTE /.) S)
(CALL 1 (E PRINC) S)
(HRRZ@ 1 0 P)
(CALL 1 (E CDAR) S)
(CALL 1 (E PRINC) S)
TAG5 (MOVEI 2 (QUOTE (XGP SYS)) S)
(HLRZ@ 1 0 P)
(CALL 2 (E EQUAL) S)
(JUMPN 1 TAG10)
(MOVEI 1 (QUOTE /[) S)
(CALL 1 (E PRINC) S)
(HLRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E PRINC) S)
(MOVEI 1 (QUOTE /,) S)
(CALL 1 (E PRINC) S)
(HLRZ@ 1 0 P)
(CALL 1 (E CADR) S)
(CALL 1 (E PRINC) S)
(MOVEI 1 (QUOTE /]) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG7)
TAG10 (MOVEI 1 (QUOTE NIL))
TAG7 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP PRINTC SUBR)
(PUSH P 1)
(CALL 0 (E TERPRI) S)
(MOVE 1 0 P)
(SUB P (C 1 0 1 0))
(JCALL 1 (E PRINC) S)
NIL
(LAP PRINX SUBR)
(HRRZ@ 2 1)
(HRRZ@ 2 2)
(MOVEI 1 (QUOTE PRINXX) S)
(JRST 0 *MAPC)
NIL
(LAP PRINXX SUBR)
(PUSH P 1)
(MOVE 1 (SPECIAL POS) S)
(CAME 1 (SPECIAL IND) S)
(JRST 0 TAG4)
(HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(CAIE 1 (QUOTE / ) S)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG3)
TAG4 (MOVEI 1 (QUOTE NIL))
TAG3 (JUMPE 1 TAG2)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL XGP) S)
(JUMPE 1 TAG10)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CAMN 1 (SPECIAL CURFONT) S)
(JRST 0 TAG12)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL CURFONT) S)
(MOVE 1 (SPECIAL SELECTCHAR) S)
(CALL 1 (E PRINC) S)
(MOVE 1 (SPECIAL CURFONT) S)
(CALL 1 (E PRINC) S)
TAG12 (MOVE 1 (SPECIAL PUB) S)
(JUMPE 1 TAG15)
(HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(CALL 1 (E PRIN1) S)
(JRST 0 TAG14)
TAG15 (HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(CALL 1 (E PRINC) S)
TAG14 (JRST 0 TAG7)
TAG10 (HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(CALL 1 (E PRINC) S)
TAG7 (HLRZ@ 2 0 P)
(MOVE 1 (SPECIAL POS) S)
(CALL 2 (E *PLUS) S)
(MOVEM 1 (SPECIAL POS) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP PRT SUBR)
(PUSH P 2)
(MOVE 2 (SPECIAL HINDENT) S)
(PUSH P 1)
(MOVE 1 (SPECIAL IND) S)
(PUSH P 3)
(CALL 2 (E *PLUS) S)
(MOVE 2 -2 P)
(CALL 2 (E *MAX) S)
(MOVEM 1 -2 P)
(HRRZ@ 1 -1 P)
(CALL 1 (E CADDR) S)
(HRRZ@ 2 1)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(HLRZ@ 2 2)
(HRRZ@ 1 -1 P)
(CALL 1 (E CAADR) S)
(CALL 2 (E *PLUS) S)
(MOVE 2 (SPECIAL POS) S)
(CALL 2 (E *PLUS) S)
(MOVE 2 (SPECIAL LINL) S)
(CALL 2 (E *GREAT) S)
(JUMPN 1 TAG2)
(MOVEI 3 (QUOTE 0))
(MOVEI 2 (QUOTE 0))
(HRRZ@ 1 -1 P)
(CALL 1 (E CADR) S)
(CALL 3 (E PREX) S)
(HRRZ@ 1 -1 P)
(CALL 1 (E CADDR) S)
(MOVEI 3 (QUOTE 0))
(MOVEI 2 (QUOTE 0))
(CALL 1 (E CADDR) S)
(CALL 3 (E PREX) S)
(MOVE 1 -2 P)
(CALL 1 (E NEWLINE) S)
(HRRZ@ 1 -1 P)
(CALL 1 (E CADDR) S)
(MOVE 3 0 P)
(MOVE 2 -2 P)
(CALL 1 (E CADDDR) S)
(CALL 3 (E PREX) S)
(JRST 0 TAG1)
TAG2 (HRRZ@ 1 -1 P)
(CALL 1 (E CADR) S)
(MOVE 2 (SPECIAL SINDENT) S)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 2 (E *PLUS) S)
(MOVEI 3 (QUOTE 0))
(MOVE 2 1)
(POP P 1)
(CALL 3 (E PREX) S)
(MOVE 1 -2 P)
(CALL 1 (E NEWLINE) S)
(HRRZ@ 1 -1 P)
(CALL 1 (E CADDR) S)
(MOVE 2 (SPECIAL SINDENT) S)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 2 (E *PLUS) S)
(MOVE 3 -1 P)
(MOVE 2 1)
(POP P 1)
(CALL 3 (E PREX) S)
TAG1 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP PSIZE SUBR)
(PUSH P 1)
(PUSH P 2)
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE 0))
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 -1 P)
(CALL 1 (E CHVAL) S)
(CALLF@ 1 0 P)
(MOVE 2 0 P)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(CALL 2 (E PSIZE) S)
(POP P 2)
(CALL 2 (E *PLUS) S)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP READFONT SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL FREEFONTARRAYS) S)
(JUMPN 1 TAG6)
(CALL 0 (E GENSYM) S)
(MOVEM 1 0 P)
(MOVEI 1 (QUOTE 200))
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE 22))
(CALL 2 (E XCONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(CALL 17 (E ARRAY) S)
(MOVE 2 (SPECIAL FONTARRAYS) S)
(MOVE 1 0 P)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL FONTARRAYS) S)
(JRST 0 TAG5)
TAG6 (HLRZ@ 1 (SPECIAL FREEFONTARRAYS) S)
(HRRZ@ 2 (SPECIAL FREEFONTARRAYS) S)
(MOVEM 2 (SPECIAL FREEFONTARRAYS) S)
(MOVEM 1 0 P)
TAG5 (MOVE 2 -2 P)
(MOVEI 1 (QUOTE FCH) S)
(CALL 2 (E CONS) S)
(CALL 17 (E INPUT) S)
(MOVEI 2 (QUOTE NIL))
(MOVEI 1 (QUOTE FCH) S)
(CALL 2 (E INC) S)
(MOVEI 1 (QUOTE 0))
(MOVEM 1 -1 P)
TAG1 (MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(CALL 0 (E WORDIN) S)
(CALL 1 (E MAKNUM) S)
(MOVEI 2 (QUOTE -22))
(CALL 2 (E LSH) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(CALL 17 (E STORE) S)
(MOVE 1 -1 P)
(CALL 1 (E ADD1) S)
(MOVEM 1 -1 P)
(MOVEI 2 (QUOTE 200))
(CALL 2 (E *LESS) S)
(JUMPN 1 TAG1)
(MOVEI 2 (QUOTE T) S)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E INC) S)
(MOVE 1 0 P)
(SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP SCANPOP SUBR)
(MOVE 1 (SPECIAL PROGSCAN) S)
(JCALL 1 (E SETSCANTABLE) S)
NIL
(LAP SCANPUSH SUBR)
(MOVE 1 (SPECIAL LISPSCAN) S)
(JCALL 1 (E SETSCANTABLE) S)
NIL
(LAP SCANTABLE SUBR)
(PUSH P (C 0 0 (QUOTE 200) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(CALL 1 (E SUB1) S)
(MOVEI 2 (QUOTE NIL))
(MOVEM 1 -1 P)
(CALL 2 (E MODCHR) S)
(MOVE 2 0 P)
(CALL 2 (E CONS) S)
(MOVEM 1 0 P)
(MOVEI 2 (QUOTE 0))
(MOVE 1 -1 P)
(CALL 2 (E *GREAT) S)
(JUMPN 1 TAG1)
(MOVE 1 0 P)
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP SETBITS SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 TAG1 0))
(PUSH P (C 0 0 (QUOTE 7) 0))
(PUSH P 1)
(PUSH P 2)
(MOVNI 6 3)
(JCALL 16 (E BOOLE) S)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP SETCARLIST SUBR)
(PUSH P 1)
(MOVE 1 0 P)
(MOVEM 1 (SPECIAL CARBBLIST) S)
(PUSH P 0 P)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 1)
(MOVEI 3 (QUOTE CARBB) S)
(HRRZ@ 2 1)
(HLRZ@ 1 1)
(CALL 3 (E PUTPROP) S)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG11 (MOVEI 1 (QUOTE NIL))
(SUB P (C 1 0 1 0))
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP SETSCANTABLE SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE 0) 0))
TAG1 (HLRZ@ 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E MODCHR) S)
(MOVE 1 0 P)
(CALL 1 (E ADD1) S)
(HRRZ@ 2 -1 P)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(JUMPN 2 TAG1)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP SETSLASHES SUBR)
(PUSH P 1)
(CALL 0 (E SCANTABLE) S)
(MOVEM 1 (SPECIAL LISPSCAN) S)
(PUSH P (C 0 0 TAG4 0))
(MOVEI D (QUOTE CHRVAL) S)
(PUSH P D)
(PUSH P -2 P)
(MOVNI 6 2)
(JCALL 16 (E MAPCAR) S)
TAG4 (CALL 1 (E SLASHIFY) S)
(CALL 0 (E SCANTABLE) S)
(MOVEM 1 (SPECIAL PROGSCAN) S)
(MOVEI 2 (QUOTE SUBR) S)
(MOVEI 1 (QUOTE SCANPUSH) S)
(CALL 2 (E GET) S)
(MOVEM 1 (SPECIAL %SCANSETFLAG%) S)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP SETUPFONT SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(CALL 1 (E EXPLODE) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE (B B)) S)
(CALL 2 (E *APPEND) S)
(CALL 1 (E READLIST) S)
(MOVEM 1 -2 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 2 (SPECIAL FONTSYMBOLS) S)
(CALL 2 (E MEMBER) S)
(JUMPE 1 TAG5)
(MOVEI 1 (QUOTE "FONT SYMBOL DEFINED TWICE") S)
(CALL 1 (E ERROR) S)
(JRST 0 TAG4)
TAG5 (MOVE 2 (SPECIAL FONTSYMBOLS) S)
(MOVE 1 -4 P)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL FONTSYMBOLS) S)
TAG4 (MOVE 1 -2 P)
(JUMPE 1 TAG11)
(HRRZ@ 1 1)
(JUMPN 1 TAG15)
(MOVE 2 -2 P)
(MOVEI 1 (QUOTE (XGP SYS)) S)
(CALL 2 (E CONS) S)
(MOVEM 1 -2 P)
TAG15 (HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG20)
(MOVEI 2 (QUOTE FNT) S)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(CALL 2 (E CONS) S)
(CALL 1 (E NCONS) S)
(HLRZ@ 2 -2 P)
(CALL 2 (E XCONS) S)
(MOVEM 1 -2 P)
TAG20
TAG11 (MOVE 1 -3 P)
(CALL 1 (E NUMBERP) S)
(JUMPE 1 TAG24)
(MOVEI 2 (QUOTE 12))
(MOVE 1 -3 P)
(CALL 2 (E *LESS) S)
(JUMPE 1 TAG26)
(MOVEI 2 (QUOTE 0))
(MOVE 1 -3 P)
(CALL 2 (E *GREAT) S)
TAG26
TAG24 (JUMPE 1 TAG22)
(MOVEI 2 (QUOTE 60))
(MOVE 1 -3 P)
(CALL 2 (E *PLUS) S)
(CALL 1 (E ASCII) S)
(CALL 1 (E INTERN) S)
(MOVEM 1 -3 P)
TAG22 (MOVE 2 (SPECIAL VALIDPUBCODES) S)
(MOVE 1 -3 P)
(CALL 2 (E MEMBER) S)
(JUMPN 1 TAG30)
(MOVEI 1 (QUOTE "INVALID PUB CODE") S)
(CALL 1 (E ERROR) S)
(JRST 0 TAG27)
TAG30 (MOVE 2 (SPECIAL PUBFONTS) S)
(MOVE 1 -3 P)
(CALL 2 (E ASSOC) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG32)
(MOVE 1 -2 P)
(JUMPE 1 TAG36)
(TDZA 1 1)
TAG36 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG35)
(HRRZ@ 2 0 P)
(HRRZ@ 2 2)
(MOVE 1 -2 P)
(CALL 2 (E EQUAL) S)
TAG35 (JUMPE 1 TAG34)
(MOVE 2 (SPECIAL FONTLIST) S)
(HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(CALL 2 (E ASSOC#) S)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(PUSH P 1)
(MOVE 1 -4 P)
(CALL 2 (E CONS) S)
(HRRZ@ 2 0 P)
(CALL 2 (E XCONS) S)
(MOVEI 3 (QUOTE FONT) S)
(MOVE 2 1)
(MOVE 1 -5 P)
(CALL 3 (E PUTPROP) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG33)
TAG34 (HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(CALL 1 (E PRINT) S)
(MOVE 1 -2 P)
(CALL 1 (E PRINT) S)
(MOVE 1 (SPECIAL "TWO FONT FILES FOR SAME PUBCODE") S)
(CALL 1 (E ERROR) S)
TAG33 (JRST 0 TAG27)
TAG32 (MOVE 1 -2 P)
(JUMPN 1 TAG41)
(MOVEI 1 (QUOTE "NO FILE SPECIFIED WHEN REQUIRED") S)
(CALL 1 (E ERROR) S)
(JRST 0 TAG27)
TAG41 (MOVE 2 (SPECIAL FONTLIST) S)
(MOVE 1 -2 P)
(CALL 2 (E ASSOC#) S)
(MOVEM 1 0 P)
(JUMPN 1 TAG46)
(MOVE 1 -2 P)
(CALL 1 (E READFONT) S)
(MOVE 2 -2 P)
(MOVEM 1 -1 P)
(CALL 2 (E XCONS) S)
(MOVE 2 (SPECIAL FONTLIST) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL FONTLIST) S)
(JRST 0 TAG45)
TAG46 (HRRZ@ 1 0 P)
(MOVEM 1 -1 P)
TAG45 (MOVE 1 (SPECIAL XGPFONT) S)
(CALL 1 (E ADD1) S)
(MOVEM 1 (SPECIAL XGPFONT) S)
(CALL 1 (E ASCII) S)
(CALL 1 (E INTERN) S)
(MOVE 2 -2 P)
(CALL 2 (E CONS) S)
(MOVE 2 -3 P)
(CALL 2 (E XCONS) S)
(MOVE 2 (SPECIAL PUBFONTS) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL PUBFONTS) S)
(HLRZ@ 2 1)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(MOVE 1 -3 P)
(CALL 2 (E CONS) S)
(MOVE 2 -1 P)
(CALL 2 (E XCONS) S)
(MOVEI 3 (QUOTE FONT) S)
(MOVE 2 1)
(MOVE 1 -4 P)
(CALL 3 (E PUTPROP) S)
TAG27 (MOVE 1 -4 P)
(SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP SIMPLEPRINT SUBR)
(PUSH P 1)
(CALL 1 (E CADR) S)
(CAIE 1 (QUOTE X) S)
(JRST 0 TAG2)
(MOVE 1 0 P)
(CALL 1 (E PRINX) S)
(JRST 0 TAG1)
TAG2 (HRRZ@ 2 0 P)
(HRRZ@ 2 2)
(MOVEI 1 (QUOTE SIMPLEPRINT) S)
(PUSHJ P *MAPC)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(DEFPROP SIN (SIN . 1) VALUE)
(LAP SLASHIFY SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE 0) 0))
TAG1 (MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E MEMBER) S)
(JUMPE 1 TAG6)
(MOVEI 2 (QUOTE NIL))
(MOVE 1 0 P)
(CALL 2 (E MODCHR) S)
(MOVEI 2 (QUOTE -200000000000) S)
(CALL 2 (E CLEARBITS) S)
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 2 (E MODCHR) S)
(JRST 0 TAG5)
TAG6 (MOVEI 2 (QUOTE NIL))
(MOVE 1 0 P)
(CALL 2 (E MODCHR) S)
(MOVEI 2 (QUOTE -200000000000) S)
(CALL 2 (E SETBITS) S)
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 2 (E MODCHR) S)
TAG5 (MOVE 1 0 P)
(CALL 1 (E ADD1) S)
(MOVEM 1 0 P)
(MOVEI 2 (QUOTE 200))
(CALL 2 (E *LESS) S)
(JUMPN 1 TAG1)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP SMALL SUBR)
(PUSH P 1)
(CALL 1 (E NUMBERP) S)
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
(CALL 1 (E CHRVAL) S)
(PUSH P 1)
(MOVEI 2 (QUOTE 100))
(CALL 2 (E *GREAT) S)
(JUMPE 1 TAG10)
(MOVEI 2 (QUOTE 133))
(MOVE 1 0 P)
(CALL 2 (E *LESS) S)
TAG10 (JUMPE 1 TAG6)
(MOVEI 2 (QUOTE 40))
(MOVE 1 0 P)
(CALL 2 (E *PLUS) S)
(CALL 1 (E ASCII) S)
(JRST 0 TAG5)
TAG6 (MOVE 1 -1 P)
TAG5 (SUB P (C 1 0 1 0))
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP SMALLNAM SUBR)
(PUSH P 1)
(PUSH P (C 0 0 TAG1 0))
(MOVEI D (QUOTE SMALL) S)
(PUSH P D)
(CALL 1 (E EXPLODE) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E MAPCAR) S)
TAG1 (SUB P (C 1 0 1 0))
(JCALL 1 (E MAKNAM) S)
NIL
(LAP SUMLEN SUBR)
(PUSH P 1)
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE 0))
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(HLRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E SUMLEN) S)
(POP P 2)
(CALL 2 (E *PLUS) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP TTYMSG SUBR)
(PUSH P 1)
(MOVEI 2 (QUOTE NIL))
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E OUTC) S)
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 1 (E PRINT) 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))
(POPJ P)
NIL
(LAP ULINE SUBR)
(PUSH P 1)
(PUSH P 2)
(HRRZ@ 1 2)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE U) S)
(JRST 0 TAG2)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(HLRZ@ 2 2)
(MOVE 1 -1 P)
(CALL 2 (E *DIF) S)
(MOVEI 2 (QUOTE 0))
(CALL 2 (E *MAX) S)
(CALL 1 (E NEWLINE) S)
(JRST 0 TAG1)
TAG2 (MOVE 1 -1 P)
(CALL 1 (E NEWLINE) S)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP UNOP SUBR)
(HRRZ@ 3 2)
(PUSH P 1)
(HLRZ@ 1 2)
(PUSH P 1)
(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))
TAG1 (MOVE 1 -3 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 1)
(HRRZ@ 2 1)
(HLRZ@ 2 2)
(HLRZ@ 1 1)
(CALL 2 (E XA) S)
(CALL 1 (E NCONS) S)
(MOVEM 1 -2 P)
(MOVE 1 -1 P)
(JUMPE 1 TAG10)
(MOVE 1 -2 P)
(HRRM@ 1 -1 P)
(HRRZ@ 2 -1 P)
(JRST 0 TAG7)
TAG10 (MOVE 2 -2 P)
(MOVEM 2 0 P)
TAG7 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(MOVEM 2 -1 P)
(JRST 0 TAG1)
TAG6 (MOVE 2 0 P)
(MOVEI 1 (QUOTE X) S)
(CALL 2 (E MAK) S)
(MOVEM 1 -3 P)
(HLRZ@ 1 -5 P)
(CALL 1 (E BBEX) S)
(MOVEI 2 (QUOTE 131))
(CALL 2 (E BRACKET) S)
(CALL 1 (E NCONS) S)
(MOVE 2 -3 P)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE F) S)
(CALL 2 (E MAK) S)
(MOVE 2 -4 P)
(SUB P (C 6 0 6 0))
(JCALL 2 (E XCONS) S)
NIL
(DEFPROP VALIDPUBCODES (NIL /2 /3 /4 /5 /6 /7 /8 /9 A B C D E F G) VALUE)
(LAP XA SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVE 1 2)
(CALL 1 (E NUMBERP) S)
(JUMPE 1 TAG2)
(MOVEI 2 (QUOTE FONT) S)
(MOVE 1 -1 P)
(CALL 2 (E GET) S)
(HLRZ@ 2 1)
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 2 (E FSIZE) S)
(PUSH P 1)
(MOVE 1 (SPECIAL PUB) S)
(JUMPE 1 TAG7)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(JRST 0 TAG6)
TAG7 (MOVE 1 (SPECIAL XGP) S)
(JUMPE 1 TAG10)
(HRRZ@ 1 -1 P)
(HRRZ@ 1 1)
(JRST 0 TAG6)
TAG10 (MOVEI 1 (QUOTE NIL))
TAG6 (MOVE 2 -2 P)
(CALL 2 (E CONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG2 (MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E GET) S)
(JUMPN 1 TAG1)
(MOVEI 2 (QUOTE FONT) S)
(MOVE 1 -1 P)
(CALL 2 (E GET) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 2 (SPECIAL LCFONTS) S)
(MOVE 1 -3 P)
(CALL 2 (E MEMBER) S)
(JUMPE 1 TAG21)
(MOVE 1 -2 P)
(CALL 1 (E SMALLNAM) S)
(MOVE 2 1)
(JRST 0 TAG20)
TAG21 (MOVE 2 -2 P)
TAG20 (MOVEM 2 0 P)
(MOVE 2 -3 P)
(MOVE 1 -2 P)
(CALL 2 (E CONS) S)
(MOVE 2 (SPECIAL FONTPROPS) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL FONTPROPS) S)
(HLRZ@ 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E FSIZE) S)
(PUSH P -2 P)
(PUSH P 1)
(MOVE 1 (SPECIAL PUB) S)
(JUMPE 1 TAG25)
(HRRZ@ 1 -3 P)
(HLRZ@ 1 1)
(JRST 0 TAG24)
TAG25 (MOVE 1 (SPECIAL XGP) S)
(JUMPE 1 TAG26)
(HRRZ@ 1 -3 P)
(HRRZ@ 1 1)
(JRST 0 TAG24)
TAG26 (MOVEI 1 (QUOTE NIL))
TAG24 (MOVE 2 -2 P)
(CALL 2 (E CONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 3 -4 P)
(MOVE 2 1)
(POP P 1)
(CALL 3 (E PUTPROP) S)
(SUB P (C 2 0 2 0))
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP XBLANK SUBR)
(MOVEI 2 (QUOTE / ) S)
(MOVEI 1 (QUOTE BBSYM) S)
(JCALL 2 (E XA) S)
NIL
(LAP XBOLD SUBR)
(MOVE 2 1)
(MOVEI 1 (QUOTE BBBOLD) S)
(JCALL 2 (E XA) S)
NIL
(LAP XCONST SUBR)
(MOVE 2 1)
(MOVEI 1 (QUOTE BBCONST) S)
(JCALL 2 (E XA) S)
NIL
(DEFPROP XGP (XGP) VALUE)
(DEFPROP XGPLINL (XGPLINL . 2424) VALUE)
(LAP XSPACE SUBR)
(PUSH P 1)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG2)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE 177))
(CALL 1 (E ASCII) S)
(CALL 1 (E PRINC) S)
(MOVEI 1 (QUOTE α) S)
(CALL 1 (E PRINC) S)
(MOVE 1 0 P)
(CALL 1 (E ASCII) S)
(CALL 1 (E PRINC) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP XSYM SUBR)
(MOVE 2 1)
(MOVEI 1 (QUOTE BBSYM) S)
(JCALL 2 (E XA) S)
NIL
(LAP XVAR SUBR)
(PUSH P 1)
(JUMPE 1 TAG4)
(TDZA 1 1)
TAG4 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG3)
(MOVE 1 0 P)
(CAIE 1 (QUOTE T) S)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG3)
(MOVE 1 0 P)
(CALL 1 (E NUMBERP) S)
TAG3 (JUMPE 1 TAG2)
(MOVE 1 0 P)
(CALL 1 (E XCONST) S)
(JRST 0 TAG1)
TAG2 (MOVE 2 0 P)
(MOVEI 1 (QUOTE BBVAR) S)
(CALL 2 (E XA) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL