.ENABLE SUBSTITUTION
;
;	VIRTUAL DISK PACKAGE
;
; THIS COMMAND FILE REQUIRES THE FOLLOWING DEVICE ASSIGNMENTS:
;
;	SY0:	SOURCE DISK
;	LB0:	SYSTEM LIBRARY DISK
;	LI0:	LISTING DEVICE
;
; NOTE, LB0: IS USED TO SUPPLY THE EXECTUIVE CONFIGURATION AND
; SYMBOL TABLE FILE. THE RESULTING TASKS AND DRIVERS ARE PLACED
; ARE LEFT IN THIS UIC.
;
; IF THE CURRENT DEVICE ASSIGNMENTS ARE CORRECT, ANSWER THE NEXT
; QUESTION 'YES'. IF 'NO', THE COMMAND FILE WILL PAUSE WHILE YOU
; MAKE THE ASSIGNMENTS. THE CURRENT ASSIGNMENTS ARE SHOWN BELOW:
;
;ASN
;
.ASK FLAG ASSIGNMENTS CORRECT
.IFT FLAG .GOTO 100
.PAUSE
.100: ;
	.IF P1 <> "" .GOTO 'P1'
; ASSEMBLE VIRTUAL DISK SOURCES.
;
.SETS MACSW "/-SP"
;
MAC AVD,LI0:AVD'MACSW'=LB0:[1,1]EXEMC/ML,SY0:'<UIC>'VDPRE,AVD
MAC DVD,LI0:DVD'MACSW'=LB0:[1,1]EXEMC/ML,SY0:'<UIC>'VDPRE,DVD
.VDDRV:
MAC VDDRV,VDDRV'MACSW'=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,SY0:'<UIC>'VDPRE,VDDRV
MAC VDTAB,VDTAB'MACSW'=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,SY0:'<UIC>'VDPRE,VDTAB
;
; BUILD VIRTUAL DISK TASKS AND DRIVER.
;
.SETS TKBSW "/-SP"
.;
.OPEN VDDRV.TKB
.DATA VDDRV/-MM/-HD,LI0:VDDRV'TKBSW',VDDRV=VDDRV,VDTAB
.DATA LB:[1,54]RSX11M.STB/SS
.DATA LB:[1,1]EXELIB/LB
.DATA /
.DATA STACK=0
.DATA PAR=DRVPAR:120000:14000
.DATA //
.CLOSE
TKB @VDDRV.TKB
.TKB:
.SETS TKBSW "/-SP"
.OPEN AVD.TKB
.DATA AVD/-XH/MM/CP/-FP/PR:5,LI0:AVD'TKBSW'=AVD,LB:[1,54]RSX11M.STB/SS
.DATA /
.DATA UNITS=3
.DATA ASG=TI:2
.DATA ASG=SY:3
.DATA TASK=...AVD
.DATA PRI=100
.DATA PAR=GEN
.DATA /
.CLOSE
TKB @AVD.TKB
.OPEN DVD.TKB
.DATA DVD/-XH/MM/CP/-FP/PR:5,LI0:DVD'TKBSW'=DVD,LB:[1,54]RSX11M.STB/SS
.DATA /
.DATA UNITS=3
.DATA ASG=TI:2
.DATA ASG=SY:3
.DATA TASK=...DVD
.DATA PRI=100
.DATA PAR=GEN
.DATA /
.CLOSE
TKB @DVD.TKB
;
; ALL DONE, EXIT.
;
