Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
00100 (PROG (SEXPR IBASE)
00200 (SETQ IBASE (ADD1 7))
00300 LOOP (SETQ SEXPR (ERRSET (READ)))
00400 (COND ((EQ SEXPR (QUOTE $EOF$)) (RETURN (QUOTE COMPILER-LOADED))))
00500 (COND ((MEMQ (CAAR SEXPR) (QUOTE (BEGINBLOCK ENDBLOCK))) (GO LOOP)))
00600 (PRINT (EVAL (CAR SEXPR)))
00700 (GO LOOP))
00800
00900 (BEGINBLOCK COMPILER)
01000
01100 (COND ((EQ (CDR (GET (QUOTE COMPILING) (QUOTE VALUE))) (QUOTE NOW))
01200 (SPECIAL LASTOUT LOCVARS SPECVARS TAGCNT P1CNT P2CNT)
01300 (SPECIAL ALLVARS RENAMELIST INPROG P1SCNT P1SCV FOUNDFREE)
01400 (SPECIAL COMPILING CODESIZE CONSTSIZE LISTING INDEV OUTDEV)
01500 (SPECIAL ARGACS REGPDL PDLDEPTH MINDEPTH)
01600 (SPECIAL LDLST PRGSPFLG PROGVARS SPLDLST CCLST RSL)
01700 (SPECIAL CTAG RSL)
01800 (SPECIAL PROGSW GOLIST VARLIST)
01900 (SPECIAL GOLIST EXIT EXITN PRSSL PROGSW VGO PVR)
02000 (SPECIAL FUNNAME FUNTYPE FUNFLAG)
02100 (SPECIAL NACS VALUEAC PDLAC ALLACS INUM0 MSGDEV GOTABAC FARGAC ARRAYAC)
02200 (SPECIAL LINCNT PAGEWIDTH PAGEHEIGHT)
02300 (SPECIAL ALLFUNS GENFUNS UNDFUNS STARTTIME)
02400 (SPECIAL P1FUN P2FUN BOOLFUN ACTFUN)
02500 (SPECIAL *SP *TB *CR *LF *VT *FF *CO *PT *LP *RP *SL *AM *AT *RO *COLON)
02600 (SPECIAL IBASE BASE *NOPOINT)
02700 (SPECIAL TRACELIST DB)
02800 (PRINTMSG (QUOTE DECLARATIONS-MADE))))
02900