| 123456789101112131415161718192021222324252627282930 |
- 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$
|
