DEF s: <SCRATCH>
DEF DSK: DSK:,SYS:
DEF SYS: DSK:,SYS:
pas:PASCMP
OFF SYSLISP$
OFF MSG$
OFF NOUUO$
ON DOMOVE$
ON NOFIXFRM;
ON MACECHO$		%OFF cuts down size of output file.
PUT('CAR,'ANYREG,'T)$
PUT('CDR,'ANYREG,'T)$

IN PAS0.SYM$		% Pre Symbol Table
OUT PAS1.PAS$
DRT1('PAS1,PAS0IDS,PAS0CSTS,PAS0LITS,PAS0FNS)$
IN PAS1.RED$
DRT2()$
SHUT PAS1.PAS$

OUT PAS1.SYM$		% Post SYMBOL Table
DUMPSYMS('PAS1)$
SHUT PAS1.SYM$

OUT PAS1.SLI$	 % Sexpressions and declarations
DRT3()$
SHUT PAS1.SLI$
QUIT$

