.Enable Substitution
;
;  Assemble and build Volume Valid Control task for your system.
;
.Sets CLI <CLI>
.If CLI EQ "DCL" Set Term MCR
.Sets UIC <UIC>

.Sets RSXMC "LB:[11,10]RSXMC.MAC"
.Testfile 'RSXMC'
.If <Filerr> NE 1 .Goto ASKRSX

.Ask L Use the system prefix file 'RSXMC'
;
.Ift L .Goto GETSYS
.ASKRSX:
.Asks RSXMC Enter full file specification for RSXMC file
;
.Testfile 'RSXMC'
.If <Filerr> EQ 1 .Goto GETSYS
; 'RSXMC' not found...
;
.Goto ASKRSX

.GETSYS:
.Sets RSX11M "LB:'<SYSUIC>'RSX11M.STB"
.;

.Testfile 'RSX11M'
.If <Filerr> NE 1 .Goto ASKSYS
.Ask L Use the system symbol table file 'RSX11M'
;
.Ift L .Goto ASSEM
.ASKSYS:
.Asks RSX11M Enter full file specification for system symbol table
;
.Testfile 'RSX11M'
.If <Filerr> EQ 1 .Goto ASSEM
; 'RSX11M' not found...
;
.Goto ASKSYS

.ASSEM:
Mac VVC,VVC/-SP=Lb:[1,1]Exemc/ml,'RSXMC'/pa:1,Sy:'UIC'VVC
.If <Exstat> NE 1 .Exit '<Exstat>'

.Open VVCBLD.CMD
.Enable Data
vvc/pr/-cp,vvc/-sp=vvc
'RSX11M'/ss
lb:[1,1]exelib/lb
/
task=vvc...
units=2
asg=lb:1,co:2
stack=32
pri=200
//
.Disable Data
.CLOSE
;
Tkb @VVCBLD
;
; Build complete
;
; To use VVC, install it and run it as a detached task:
;
;       >INSTALL VVC
;       >RUN VVC... 1S
;       >
;
.If CLI EQ "DCL" Set /DCL=Ti:
.Exit 1
