.ENABLE SUBSTITUTION
;
;	Batch System Version 2 assembly file. '<DATE>' '<TIME>'
;
.SETS EXE "LB:[1,1]"
.SETS RSX "LB:[200,200]"
.SETS APR "SY:[10,207]"
.SETS SRC "SY:'<UIC>'"
.SETF LIST
.ASKS SRC1 Where are the source files if not 'SRC' (ddnn:[g,m])
.IF SRC1 NE "" .SETS SRC SRC1
.ASK LIST Do you want listing files
.ASKS EXE1 Where is EXEMC.MLB if not 'EXE' (ddnn:[g,m])
.IF EXE1 NE "" .SETS EXE EXE1
.ASKS RSX1 Where is RSXMC.MAC if not 'RSX' (ddnn:[g,m])
.IF RSX1 NE "" .SETS RSX RSX1
.ASKS APR1 Where is ACCPRE.MAC if not 'APR' (ddnn:[g,m])
.IF APR1 NE "" .SETS APR APR1
.SETF PRE
.SETS FILE "BAT"
.GOSUB ASM
.SETT PRE
.SETS FILE "BATMAN"
.GOSUB ASM
.SETF PRE
.SETS FILE "STACK"
.GOSUB ASM
.SETS FILE "CQR"
.GOSUB ASM
.SETS FILE "BQSTOP"
.GOSUB ASM
.SETS FILE "BATSAVE"
.GOSUB ASM
.SETS FILE "BATREST"
.GOSUB ASM
PIP *.ASM/TR
.EXIT
.ASM:
.SETS LST ""
.SETS PREFIL ""
.IFT PRE .SETS PREFIL "'APR'ACCPRE/PA:1,"
.IFT LIST .SETS LST ",'FILE'/SP"
.OPEN 'FILE'.ASM
.ENABLE DATA
'FILE''LST'='PREFIL''EXE'EXEMC/ML,-
'RSX'RSXMC/PA:1,'SRC''FILE'
.DISABLE DATA
.CLOSE
MAC @'FILE'.ASM
.RETURN
