;BUILD THE XQ: DRIVER
.ENABLE SUBSTITUTION
.ENABLE DECIMAL
;
.SETS MYUIC <UIC>
.SETS 11SUIC "[330,64]"		;11S SYSTEM UIC(RSXMC.MAC,RSX11S.STB)
.SETS NODUIC "[100,30"		;HIGH ORDER PART OF NODE TASK UIC
;
.ASK $11S DO YOU WANT TO BUILD AN 11S DRIVER
;
.ASKS NODNUM ENTER NODE ADDRESS
.SETN NADR 'NODNUM'
.SETO NADR
;
.IFT $11S .GOTO 5
.SETS $SYUIC "[1,54]"
.SETS $SRUIC "[11,10]"
.SETS SYTYP "11M"
.GOTO 6
.5:
.SETS $SRUIC "'11SUIC'"
.SETS $SYUIC "'11SUIC'"
.SETS $DBUIC "'NODUIC''NODNUM']"
.SETS SYTYP "11S"
.SETT $11S
.6:
;
.OPEN XQDRV.ASM
.ENABLE DATA
'MYUIC'XQDRV,XQDRV/-SP/CR=SY:[1,1]EXEMC/ML,'$SRUIC'RSXMC,-
'MYUIC'XQMAC/ML,XQDRV
'MYUIC'XQTAB,XQTAB/-SP/CR=SY:[1,1]EXEMC/ML,'$SRUIC'RSXMC,-
'MYUIC'XQTAB
'MYUIC'NODE'NODNUM'='MYUIC'NODE'NODNUM'
.DISABLE DATA
.CLOSE
;
MAC @XQDRV.ASM
.IF <EXSTAT> NE 1 .GOTO 10
;
.OPEN XQDRV.TKB
.ENABLE DATA
'MYUIC'XQDRV/-MM/-HD,XQDRV/-SP,SY:'MYUIC'XQDRV=
'MYUIC'XQDRV,NODE'NODNUM',XQTAB
'$SYUIC'RSX'SYTYP'.STB/SS
[1,1]EXELIB/LB
/
STACK=0
PAR=GEN:120000:20000
GBLPAT=XQDRV:NODE:'NADR'
/
.DISABLE DATA
.CLOSE
;
TKB @XQDRV.TKB
.IF <EXSTAT> NE 1 .GOTO 10
;
PIP XQDRV.LST,.OBJ,.MAP,.TSK,.STB,.TKB,.ASM/PU
PIP XQTAB.LST,.OBJ/PU
PIP NODE'NODNUM'.OBJ/PU
.IFF $11S .GOTO 7
SET /UIC='$DBUIC'
PIP /NV/CD/FO='MYUIC'XQDRV.TSK,.STB
SET /UIC='MYUIC'
.GOTO 10
.7:
.ASK XFR DO YOU WANT TO TRANSFER THE DRIVER TO THE SYSTEM UIC
.IFF XFR .GOTO 10
SET /UIC=[1,54]
PIP /NV/CD/FO='MYUIC'XQDRV.TSK,.STB
SET /UIC='MYUIC'
.10: