.ENABLE SUBSTITUTION
.ASK ASMDRV ASSEMBLE DRIVER CODE
.ASK ASMTAB ASSEMBLE DATA BASE
.SETS RSXMC ""
.IFF ASMDRV .IFF ASMTAB .GOTO SKIPMC
.ASKS RSXMC WHERE IS RSXMC.MAC (DDUU:[GGG,MMM])
.SKIPMC:
.ASKS SYSUIC WHERE IS RSX11M.STB (DDUU:[GGG,MMM])
.SETS UIC <UIC>
.IFT ASMDRV MAC VSDRV,VSDRV/-SP/CR=LB:[1,1]EXEMC/ML,'RSXMC'RSXMC/PA:1,SY:'UIC'VSDRV
.IFT ASMTAB MAC VSTAB,VSTAB/-SP/CR=LB:[1,1]EXEMC/ML,'RSXMC'RSXMC/PA:1,SY:'UIC'VSTAB
.OPEN VSDRVBLD.CMD
.DATA 'SYSUIC'VSDRV/-HD/-MM,,VSDRV=
.DATA 'UIC'VSDRV,VSTAB
.DATA 'SYSUIC'RSX11M.STB/SS
.DATA LB:[1,1]EXELIB/LB
.DATA /
.DATA STACK=0
.DATA PAR=DRVPAR:120000:20000
.DATA //
.CLOSE
SET /UIC='<SYSUIC>'
TKB @'UIC'VSDRVBLD
SET /UIC='UIC'
PIP VSDRVBLD.CMD;*/DE
.OPEN TI:
.DATA VSDRV.TSK AND VSDRV.STB ARE NOW IN 'SYSUIC'
.CLOSE
