TIM
.ENABLE SUBSTITUTION
.ASKS BIN WHAT IS THE BINARY TOOLS UIC [ G,M - DEFAULT IS 105,1 ]
.IF <STRLEN> = 0 .SETS BIN "105,1"
.ASKS SYS WHAT UIC IS RSXMC.MAC ON [ G,M - DEFAULT IS 11,10 ]
.IF <STRLEN> = 0 .SETS SYS "11,10"
.ASKS SDV DEVICE FOR RSXMC AND EXEMC [ DDN - DEFAULT IS LB0 ]
.IF <STRLEN> = 0 .SETS SDV "LB0"
.SETS LDV "SY:"
.ASK IFLIST DO YOU DESIRE ASSEMBLY LISTINGS
.IFF IFLIST .SETS LDV "NL:"
.ASKN [1.:16.:4.] BTS NO OF SIMULTANEOUS BACKGR PROCESSES PERMITTED
.ASKN [1.:'BTS'.:2.] MAXBCK MAX NO OF SIMULT BACKGR PROCS/USER
.SETS RESLIB ";"
.ASK IFRESL DO YOU WISH TO LINK BSPAWN TO AN FCS RESIDENT LIBRARY
.IFF IFRESL .GOTO 10
.ASKS RESLIB WHAT IS ITS NAME [EG. FCSRES]
.10:
PIP BSPAWN.MAC;*/DE/NM,BTTAB.MAC;*,BTDRV.MAC;*,BTPRE.MAC;*
.OPEN BTPRE.MAC
.DATA B$$T11='BTS'.
.DATA MAXBCK='MAXBCK'.
.CLOSE
PIP BTPRE.MAC/AP=ST0:['BIN']ASM.PRE
PIP BSPAWN.MAC=ST0:['BIN']BSPAWN.SRC
PIP BTTAB.MAC=ST0:['BIN']BTTAB.SRC
PIP BTDRV.MAC=ST0:['BIN']BTDRV.SRC
.ASK V4 IS THIS RSX-11M V4.0
.IFF V4 .GOTO NOV4
.SETF REMSLP
.IFNINS ...SLP .SETT REMSLP
.IFT REMSLP INS $SLP
SLP @ST0:['BIN']BSPAWN.COR
SLP @ST0:['BIN']BTTAB.COR
.IFT REMSLP REM ...SLP
.NOV4:
PIP BSP.OBJ;*/DE/NM,BSP.LST;*
MAC BSP,'LDV'BSP/-SP='SDV':[1,1]EXEMC/ML,['SYS']RSXMC,SY:'<UIC>'BTPRE,BSPAWN
PIP BTTAB.OBJ;*/DE/NM,BTTAB.LST;*
MAC BTTAB,'LDV'BTTAB/-SP='SDV':[1,1]EXEMC/ML,['SYS']RSXMC,SY:'<UIC>'BTPRE,BTTAB
PIP BTDRV.OBJ;*/DE/NM,BTDRV.LST;*
MAC BTDRV,'LDV'BTDRV/-SP='SDV':[1,1]EXEMC/ML,['SYS']RSXMC,SY:'<UIC>'BTPRE,BTDRV
PIP BTDRV.TKB;*/DE/NM
.OPEN BTDRV.TKB
.DATA BTDRV/-HD/-MM,BTDRV/-SP,BTDRV=BTDRV,BTTAB
.DATA LB0:[1,54]RSX11M.STB/SS
.DATA LB0:[1,1]EXELIB/LB
.DATA /
.DATA STACK=0
.DATA PAR=DRVPAR:120000:4000
.DATA //
.CLOSE
PIP BTDRV.TSK;*/DE/NM,BTDRV.MAP;*,BTDRV.STB;*
TKB @BTDRV.TKB
PIP BSPAWN.TKB;*/DE/NM
.OPEN BSPAWN.TKB
.DATA BSPAWN/-FP/CP/PR:5,BSPAWN/MA=
.DATA BSP
.DATA LB0:[1,54]RSX11M.STB/SS
.DATA LB0:[1,1]EXELIB/LB
.DATA /
.DATA UNITS=3
.IFT IFRESL .DATA LIBR='RESLIB':RO
.DATA STACK=64
.DATA TASK=BSPAWN
.DATA //
.CLOSE
PIP BSPAWN.TSK;*/DE/NM,BSPAWN.MAP;*
TKB @BSPAWN.TKB
;
;
;	IT IS NOW NECESSARY TO COPY BTDRV.TSK AND BTDRV.STB INTO
;	YOUR SYSTEM UIC.  THE EQUIVALENT OF THE FOLLOWING THREE
;	COMMANDS MUST BE PERFORMED NOW AND MUST BE ADDED TO
;	LB0:[1,2]TOOLS.CMD.
;
;	>LOA BT:/PAR=GEN/HIGH	! FOR EXAMPLE
;	>INS '<UIC>'BSPAWN	! INSTALL BSPAWN WHEN BOOTING
;	>RUN BSPAWN 1T		! START IT RUNNING
;
