;
; ASSEMBLE AND BUILD COMMAND FILE FOR THE ZQ: DRIVER
; INTERFACE TO THE QUEUEING ACP.
; 
; THIS UIC IS ASSUMED TO CONTAIN THE FOLLOWING FILES:
; 	1) ZQTAB.MAC
;	2) ZQDRV.MAC
;
; ADDITIONALLY, THE FOLLOWING FILES MUST ALSO BE
; PRESENT AT THE DESIRED UIC'S.
;	1) [11,10]RSXMC.MAC
;	2) [1,1]EXEMC.MLB
;	3) [1,1]RSXSML.MLB
;	4) [1,54]RSX11M.STB
;	5) [1,1]EXELIB.OLB
; 
;
.ASK READY Are all necessary files present
.iff READY .exit
;
.enable substitution
.sets uic "'<uic>'"
.;
.; ASSEMBLE
.;
MAC ZQTAB,ZQTAB/-SP=[1,1]EXEMC/ML,[11,10]RSXMC,'uic'ZQTAB
MAC ZQDRV,ZQDRV/-SP=[1,1]EXEMC/ML,[11,10]RSXMC,'uic'ZQDRV
.;
.;
.; TASK BUILD
.;
;
.OPEN ZQDRVBLD.CMD
.ENABLE DATA
ZQDRV/-HD/-MM,ZQDRV/-SH/CR/-SP,ZQDRV=ZQDRV,
[1,1]EXELIB/LB,
[1,1]SYSLIB/LB,
'<UIC>'ZQTAB
[1,54]RSX11M.STB/SS
/
STACK=0
PAR=DRVPAR:120000:40000
//
.DISABLE DATA 
.CLOSE ZQDRVBLD.CMD
TKB @ZQDRVBLD.CMD
PIP ZQDRVBLD.CMD;*/DE
PIP ZQDRV.OBJ;*/DE,ZQTAB.OBJ;*
;
.;
.ASK IMV Do you want to move to [1,54]
.IFF IMV .EXIT
SET /UIC=[1,54]
PIP /NV='UIC'ZQDRV.TSK,ZQDRV.STB
PIP ZQDRV.*/PU/LD
SET /UIC='UIC'