.ENABLE SUBSTITUTION
.ASKS SYS UIC FOR RSXMC.MAC [ G,M - DEFAULT: 11,10 ]
.IF <STRLEN> = 0 .SETS SYS "11,10"
.ASKS SDV DEVICE FOR RSXMC & EXEMC [ DDN - DEFAULT: LB0 ]
.IF <STRLEN> = 0 .SETS SDV "LB0"
.ASKN [1.:50.:25.] NHDRS NUMBER OF SIMULTANEOUSLY QUEUED MESSAGES
.ASKN [32.:1024.:512.] MAXBUF MAXIMUM MESSAGE SIZE
.ASKN [1.:10.:5.] TINTPT SECONDS BETWEEN CLOCK INTERRUPTS
PIP SRPRE.MAC;*/DE/NM
.OPEN SRPRE.MAC
.DATA 	.NLIST
.DATA NHDRS='NHDRS'.
.DATA MAXBUF='MAXBUF'.
.DATA TINTPT='TINTPT'.
.DATA 	.LIST
.CLOSE
PIP SRDRV.OBJ;*/DE/NM,SRDRV.LST;*
MAC SRDRV,SRDRV/-SP='SDV':[1,1]EXEMC/ML,['SYS']RSXMC/PA:1,SY:'<UIC>'SRPRE,SRDRV
PIP SRTAB.OBJ;*/DE/NM,SRTAB.LST;*
MAC SRTAB,SRTAB/-SP='SDV':[1,1]EXEMC/ML,['SYS']RSXMC/PA:1,SY:'<UIC>'SRPRE,SRTAB
PIP SRDRV.TKB;*/DE/NM
.OPEN SRDRV.TKB
.DATA SRDRV/-HD/-MM,SRDRV/-SP,SRDRV=SRDRV,SRTAB
.DATA 'SDV':'<SYSUIC>'RSX11M.STB/SS
.DATA 'SDV':[1,1]EXELIB/LB
.DATA /
.DATA STACK=0
.DATA PAR=DRVPAR:120000:20000
.DATA //
.CLOSE
PIP SRDRV.TSK;*/DE/NM,SRDRV.MAP;*,SRDRV.STB;*
TKB @SRDRV.TKB
;
;	NOW YOU MUST COPY SRDRV.TSK AND SRDRV.STB TO 'SDV':'<SYSUIC>'
;	YOU MAY THEN LOAD IT INTO GEN, OR MAY VMR ANOTHER SYSTEM
;	IMAGE TO PLACE SR: INTO DRVPAR
;
