COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.ENABLE SUBSTITUTION
C00008 ENDMK
C⊗;
.ENABLE SUBSTITUTION
.ENABLE LOWERCASE
.;
PIP *.*/PU
.ASK DELOBJ ABOUT TO DELETE ALL OBJECT FILES.  OK?
.IFT DELOBJ PIP *.OBJ;*/DE
.;
; First compile the separate modules
.;
; Main program
.;
.SETS P "ALMAIN"
.GOSUB PCOMP
.;
; Support modules
.;
.SETS P "ALLOC"
.GOSUB PCOMP
.SETS P "FREE"
.GOSUB PCOMP
.SETS P "PP"
.GOSUB PCOMP
.SETS P "CALLER"
.GOSUB PCOMP
.SETS P "ARITH1"
.GOSUB PCOMP
.SETS P "ARITH2"
.GOSUB PCOMP
.SETS P "RSXMSG"
.GOSUB PCOMP
.SETS P "RSXRUT"
.GOSUB MCOMP
.SETS P "DISP"
.GOSUB MCOMP
.;
; Interpreter
.;
.SETS P "IROOT"
.GOSUB PCOMP
.SETS P "IMAIN"
.GOSUB PCOMP
.SETS P "IAUX1A"
.GOSUB PCOMP
.SETS P "IAUX1B"
.GOSUB PCOMP
.SETS P "IAUX1C"
.GOSUB MCOMP
.SETS P "IAUX2A"
.GOSUB PCOMP
.SETS P "IAUX2B"
.GOSUB PCOMP
.SETS P "IINIT"
.GOSUB PCOMP
.SETS P "IFLUSH"
.GOSUB PCOMP
.SETS P "IEXPR"
.GOSUB PCOMP
.SETS P "IMOVRT"
.GOSUB PCOMP
.SETS P "IMOVE1"
.GOSUB PCOMP
.SETS P "IMOVE2"
.GOSUB PCOMP
.SETS P "IOV1"
.GOSUB PCOMP
.SETS P "IOV2"
.GOSUB PCOMP
.SETS P "IOV3"
.GOSUB PCOMP
.SETS P "IOV4"
.GOSUB PCOMP
.SETS P "IOV5"
.GOSUB PCOMP
.;
; Now for the Editor.  Hold onto your hat!
.;
.SETS P "EROOT"
.GOSUB PCOMP
.SETS P "EAUX1A"
.GOSUB PCOMP
.SETS P "EAUX1B"
.GOSUB PCOMP
.SETS P "EAUX1C"
.GOSUB PCOMP
.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 "EAUX2D"
.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
.SETS P "EINIT1"
.GOSUB PCOMP
.SETS P "EINIT2"
.GOSUB PCOMP
.SETS P "EINIT3"
.GOSUB PCOMP
.; Level 3 routines
.SETS P "EEXPAR"
.GOSUB PCOMP
.SETS P "EPAR3A"
.GOSUB PCOMP
.SETS P "EPAR3B"
.GOSUB PCOMP
.SETS P "EPAR3C"
.GOSUB PCOMP
.SETS P "EPAR3D"
.GOSUB PCOMP
.SETS P "EPAR3E"
.GOSUB PCOMP
.SETS P "EPAR3F"
.GOSUB PCOMP
.SETS P "EPAR3G"
.GOSUB PCOMP
.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
.; Level 4 routines
.SETS P "EMAIN"
.GOSUB PCOMP
.SETS P "EMAIN1"
.GOSUB PCOMP
.SETS P "EMAIN2"
.GOSUB PCOMP
.SETS P "EMAIN3"
.GOSUB PCOMP
.SETS P "EMAIN4"
.GOSUB PCOMP
.SETS P "EMAIN5"
.GOSUB PCOMP
.SETS P "EEDITS"
.GOSUB PCOMP
.SETS P "EEDIT1"
.GOSUB PCOMP
.SETS P "EEDIT2"
.GOSUB PCOMP
.SETS P "EEDIT3"
.GOSUB PCOMP
.SETS P "EEDIT4"
.GOSUB PCOMP
.SETS P "EADDST"
.GOSUB PCOMP
.SETS P "EADD1"
.GOSUB PCOMP
.SETS P "EADD2"
.GOSUB PCOMP
.SETS P "EADD3"
.GOSUB PCOMP
.SETS P "EADD4"
.GOSUB PCOMP
.SETS P "EADD5"
.GOSUB PCOMP
.SETS P "EADD6"
.GOSUB PCOMP
.SETS P "EADD7"
.GOSUB PCOMP
.SETS P "EADD8"
.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...