;
;   Indirect command stream to build QT: driver.
;
	.ENABLE SUBSTITUTION

.; Figure out working directory for named or unnamed
	.IF <SYSTEM> <> 6 .GOTO NONAM		! If not RSX-11M-PLUS
	.IF <DIRECT> = "[]" .GOTO NONAM		! If not NAMED
.; Named mode: use default directory.
	.SETS QTDIR "'<DIRECT>'"
	.GOTO QTGEN
.; Nonamed mode: use UIC.
.NONAM:
	.SETS QTDIR "'<UIC>'"
.QTGEN:
.ASKN [1:4:1] QTUCNT How many QT: units do you want?
.ASKS [::"[200,200]"] MCDIR What directory on LB: contains RSXMC.MAC?
.ASK [<FALSE>] LIST Do you desire listings

	.IF LIST = <TRUE> .GOTO ASNLS
	ASN NL:=LS:
	.GOTO WRTQTU

.ASNLS:
	ASN SY:=LS:

.WRTQTU:
	.OPEN #1 QTU.MAC
	.DATA #1 UNITS = 'QTUCNT'
	.CLOSE #1

PIP QTU.MAC/AP=QTPRE.MAC
	.IFNINS	...MAC INS $MAC
MAC QTA,LS:QTA=LB:[1,1]EXEMC/ML,'MCDIR'RSXMC/PA:1,SY:'QTDIR'QTU/PA:1,QTA
MAC QTDRV,LS:QTDRV=LB:[1,1]EXEMC/ML,'MCDIR'RSXMC/PA:1,SY:'QTDIR'QTU/PA:1,QTDRV
MAC QTTAB,LS:QTTAB=LB:[1,1]EXEMC/ML,'MCDIR'RSXMC/PA:1,SY:'QTDIR'QTU,QTTAB
PIP QTU.MAC;*/DE
TKB @QTABLD.TKB
TKB @QTDRVBLD.TKB