COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.ENABLE SUBSTITUTION
C00008 ENDMK
C⊗;
.ENABLE SUBSTITUTION
.ENABLE LOWERCASE
.;
PIP *.*/PU
.;
; First compile the separate modules
; Support modules
.;
; Now for the Editor.  Hold onto your hat!
.;
.SETS P "EPUT"
.GOSUB PCOMP
.SETS P "EEXPED"
.GOSUB PCOMP
.; Level 2 routines
.SETS P "EAUX2A"
.GOSUB PCOMP
.SETS P "EAUX2B"
.GOSUB PCOMP
.SETS P "EAUX2C"
.GOSUB PCOMP
.SETS P "ETOKEN"
.GOSUB PCOMP
.SETS P "EPUTST"
.GOSUB PCOMP
.SETS P "EPUTS1"
.GOSUB PCOMP
.SETS P "EPUTS2"
.GOSUB PCOMP
.SETS P "EPUTS3"
.GOSUB PCOMP
.SETS P "EMOVEO"
.GOSUB PCOMP
.; Level 3 routines
.SETS P "EAUX3A"
.GOSUB PCOMP
.SETS P "EAUX3B"
.GOSUB PCOMP
.SETS P "EAUX3C"
.GOSUB PCOMP
.SETS P "EAUX3D"
.GOSUB PCOMP
.SETS P "EDEBUG"
.GOSUB PCOMP
;
; Now task build it
;
PIP *.*/PU
.ASK DOTKB Ready for task build?
.IFF DOTKB .GOTO 1000
PIP EAL.TSK;*/DE
TKB @EAL
.GOTO 1000
.;
.; Routine which compiles a single PASCAL module
.;
.PCOMP: .;
;
;	Compiling 'P'
PS2 'P'.2
PIP 'P'.2;*/DE
.RETURN
.;
.;
.; Routine which compiles a single MACRO module
.;
.MCOMP: .;
;
;	Compiling 'P'
MAC 'P'=PASMAC,'P'.MAC
PIP 'P'.MAC;*/DE
.RETURN
.;
.1000: .;
;ππALL DONE NOW...