perm filename JFR.DO[X,AIL] blob sn#231296 filedate 1976-08-13 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	ALIAS X,AIL↔
C00005 ENDMK
C⊗;
ALIAS X,AIL↔
;get files for compiler, assemble and load debugging version↔
COM/COM @THAT↔
DEL/Q DB,HEAD,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↔
COPY/Q BPDAHD.FAI[S,AIL],BSM1HD.FAI↔

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


;export BAIL↔
RU SAIL↔
BAIL←BAIL↔
λ

ALIAS↔
;good luck!