perm filename EXPORT.DO[X,AIL]2 blob sn#215577 filedate 1976-05-20 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BATCH COMMANDS TO CREATE EXPORT SAIL↔
C00006 ENDMK
C⊗;
;BATCH COMMANDS TO CREATE EXPORT SAIL↔
ALIAS X,AIL↔

LOAD/SAV FAIL=NOSTAN+FAIL[CSP,SYS]	;export FAIL↔

;get files for runtime routines↔
DEL/Q FAIL.REL,SCISS.DMP,HEAD,ORDER,GOGOL,TRIGS,STRSER,IOSER,ARYSER,RECSER↔
DEL/Q NWORLD,LEPRUN,MESPRO,WRDGET,SPARES↔
RESOURCES	;should show at least 300 tracks left for DSK↔
COPY SCISS.DMP[S,AIL]↔
;use E on text files because it's faster↔
ET HEAD←HEAD[S,AIL]↔
αβεORDER←ORDER[S,AIL]↔αβεGOGOL←GOGOL[S,AIL]↔αβεTRIGS←TRIGS[S,AIL]↔
αβεSTRSER←STRSER[S,AIL]↔αβεIOSER←IOSER[S,AIL]↔αβεARYSER←ARYSER[S,AIL]↔
αβεRECSER←RECSER[S,AIL]↔αβεNWORLD←NWORLD[S,AIL]↔αβεLEPRUN←LEPRUN[S,AIL]↔
αβεMESPRO←MESPRO[S,AIL]↔αβεWRDGET←WRDGET[S,AIL]↔αβεSPARES←SPARES[S,AIL]↔
αβE

;assemble library↔
RU SCISS↔
DEC↔
Y↔
↔
Y↔

;runtimes with symbols↔
COM RUNTIM=NOSTAN(LR)+HEAD+ORDER+FOFOL+TRIGS+STRSER+IOSER+ARYSER+RECSER+
	NWORLD+LEPRUN+MESPRO+WRDGET+SPARES/processor DSK:FAIL↔
DEL/Q SCISS.DMP,	ORDER,GOGOL,TRIGS,STRSER,IOSER,ARYSER,RECSER,
	NWORLD,LEPRUN,MESPRO,WRDGET,SPARES↔


;get files for compiler, assemble and load debugging version↔
DEL/Q DB,SAIL,PARSE,HEL,PROD,	SYM,GEN,ARRAY,EXPRS,STATS,LEAP,
	TOTAL,PROCSS,COMSER↔
ET DB←DB[S,AIL]
αβεSAIL←SAIL[S,AIL]↔αβεPARSE←PARSE[S,AIL]↔αβεHEL←HEL[S,AIL]↔
αβεSYM←SYM[S,AIL]↔αβεGEN←GEN[S,AIL]↔αβεARRAY←ARRAY[S,AIL]↔
αβεEXPRS←EXPRS[S,AIL]↔αβεSTATS←STATS[S,AIL]↔αβεLEAP←LEAP[S,AIL]↔
αβεTOTAL←TOTAL[S,AIL]↔αβεPROCSS←PROCSS[S,AIL]↔αβεCOMSER←COMSER[S,AIL]↔
αβE

COM @THAT↔
DEL/Q DB,SAIL,PARSE,HEL,PROD,	SYM,GEN,ARRAY,EXPRS,STATS,LEAP,
	TOTAL,PROCSS,COMSER↔
R LOADER↔
/SSAIL,/LLIBSA8,/V≠
SAV SAIL↔


;procedure descriptors for BAIL predeclared runtimes
DEL/Q BPDAHD.FAI,BSM1HD,FAI↔
ET BPDAHD.FAI←BPDAHD.FAI[S,AIL]↔
αβεBSM1HD.FAI←BSM1HD.FAI[S,AIL]↔
αβE

COMPILE RESTAB=PROD+FOO2/processor RTRAN[S,AIL]↔
COMPILE BPDAHD+<BAICLC,BAIIO1,BAIIO2,BAIMSC,BAIPRC>/processor DSK:FAIL↔
EXECUTE BAISM1=BSM1HD+BAISM1/processor DSK:FAIL↔
DEL/Q BPDAHD.FAI,BSM1HD,FAI↔


;export BAIL↔
RU SAIL↔
BAIL←BAIL
λ

ALIAS↔
;good luck!