perm filename EXPORT.DO[X,AIL] blob
sn#277767 filedate 1977-04-19 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 BATCH COMMANDS TO CREATE EXPORT SAIL (BATCH/NOW/DO @EXPORT.DO[X,AIL]) ↔
C00005 ENDMK
C⊗;
;BATCH COMMANDS TO CREATE EXPORT SAIL (BATCH/NOW/DO @EXPORT.DO[X,AIL]) ↔
;It might not be necessary to do all this cruft, unless either ↔
;(a) someone has deleted some of the files (DIR @FILES[X,AIL] should ↔
; give no "FILE NOT FOUND" messages), or ↔
;(b) some change has been made to SAIL or its friends since the last ↔
; time the export files were created (this is quite likely). ↔
ALIAS X,AIL↔
LOAD/SAV FAIL.SAV←NOSTAN+FAIL[CSP,SYS] ;export FAIL↔
SAV FAIL ;until MJC gets alternate processors with extensions working↔
;get files for runtime routines↔
RESOURCES ;should show at least 300 tracks left for DSK↔
COPY/Q SCISS.DMP[S,AIL],HEAD,ORDER,GOGOL,TRIGS,STRSER,IOSER,ARYSER,RECSER↔
COPY/Q NWORLD[S,AIL],LEPRUN,MESPRO,WRDGET,SPARES↔
COPY/Q HEAD←NOSTAN,HEAD↔ ;Prefix export switch settings before scissoring
;assemble library↔
RU SCISS↔
DEC↔
Y↔
↔
Y↔
;runtimes with symbols↔
COM/PROC DSK:FAIL RUNTIM=HEAD(LR)+ORDER+GOGOL+TRIGS+STRSER+IOSER
+ARYSER+RECSER+NWORLD+LEPRUN+MESPRO+WRDGET+SPARES↔
DEL/Q SCISS.DMP,ORDER,GOGOL,TRIGS,STRSER,IOSER,ARYSER,RECSER↔
DEL/Q NWORLD,LEPRUN,MESPRO,WRDGET,SPARES↔
;get files for compiler, assemble and load debugging version↔
COPY/Q DB[S,AIL],SAIL,PARSE,HEL,SYM,GEN,ARRAY,EXPRS,STATS,LEAP,TOTAL,PROCSS,COMSER↔
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↔
DEL/Q FAIL.DMP↔
;export BAIL↔
RU SAIL↔
BAIL←BAIL↔
λ
ALIAS↔
;Now do this:↔
;COPY MTA:←@FILES[X,AIL]↔
;good luck!