.;MODULE BLDV5,RELEASE=V05,VERSION=22,COMMENT=<Kit builder>
	.;
	.;Last edit: 12-JUL-84
	.;BLDV5.COM builds RT-11 V5.1 kits automatically.
	.;Kits can be built on any of the media which RT-11
	.;distributes on.
	.;
	.ENABLE LOWERCASE
	.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
	.SETT $FMT$
	.SETN COUNT 1
	.SETS VOL1 "first"
	.SETS VOL1T "1T"
	.SETS VOL2 "second"
	.SETS VOL3 "third"
	.SETS VOL4 "fourth"
	.SETS VOL5 "fifth"
	.SETS VOL6 "sixth"
	.SETS VOL7 "seventh"
	.SETS BOTFIL "RT11FB.SYS"
	;
	;
	.SETS BT ""
	.SETS POS ""
	.DISABLE LOWERCASE
.ABCMAS:
.1A:	.ASKS [2:3:"  "] DEV In which device is the Master RT-11 V5.1 KIT?
	.IFT	<DEFAUL> .GOTO ABCMAS
	.ENABLE LOWERCASE
.1A:
.1:	.SETS MASTER DEV
.2:	;
	;
	.DISABLE LOWERCASE
.ABCEMP:
	.ASKS [2:3:"  "] DEV In which device will you mount the empty volume(s)?
	.IFT	<DEFAUL> .GOTO ABCEMP
	.GOSUB CHKDEV
	.IFF DEVOK .GOTO 2
	.SETT	DKRT
	.IFT DZRT .OR .IFT RXRT .OR .IFT DYRT .OR .IFT DXRT .SETF DKRT
	.IFT DDRT .SETF DKRT
	.SETF PROT
	.IFT MTRT .GOTO 3
	;
	;
	.ASK PROT Do you want the files on the new RT-11 V5.1 kit protected
	;
	;
	.SETS PRT ""
	.IFF PROT .SETS PRT "NO"
.3:	.ENABLE LOWERCASE
	.SETN NUM 1
	.SETS ARG ""
	.SETN TOTVOL 1
	.SETS	VOLID "TEST"
	.IFT MTRT .SETS POS "/POS:-1"
	.SETS TEM DEV[1:2]+":"

	.SETS KITMAP ""
	.ASK DIR Do you want to create kit maps
	;
	.IFF DIR .GOTO 4
	;
	;
.ABCXD:
	.ASKS [2:3:"  "] KITMAP Where is the KITMAP disk mounted?
	.IFT	<DEFAUL> .GOTO ABCXD


.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.;we may have a RT Magetape bug here
.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

.4:
	.IFT MTRT UNLOAD MT
	.IFLOA 'TEM' .GOTO 5
	.ENABLE QUIET
	LOAD 'TEM'
	.DISABLE QUIET
.5:	.;

 	.;If the RT-11 V5.1 kit is going to be on RX50's
	.IFT RXRT .OR .IFT DZRT .GOTO 30
	.;If the RT-11 V5.1 test kit is going to be on RX02's
	.IFT DYRT .GOTO 35
	.;If the RT-11 V5.1 test kit is going to be on RX01's 
	.IFT DXRT .GOTO 40
	.;If the RT-11 V5.1 test kit is going to be on either RK, or DL
	.;

.10:
	.IFT AZRT .SETS VOLID "BK-P633D-BC"
	.IFT AZRT .SETS OWNER "RC25 1/1
	.IFT DMRT .SETS VOLID "SUE"
	.IFT DMRT .SETS OWNER "DM 1/1
	.IFT RKRT .SETS VOLID "AN-P606D-BC"
	.IFT RKRT .SETS OWNER "RK5 1/1"
	.IFT DLRT .SETS VOLID "AX-P608D-BC"
	.IFT DLRT .SETS OWNER "RL1 1/1"
	.IFT DNRT .SETS VOLID "BC-P607D-BC"
	.IFT DNRT .SETS OWNER "RL2 1/1"
	.GOSUB NEWVOL
	.SETS FILE "SWAP.SYS"
	.GOSUB COPY
	.SETS FILE "RT11XM.SYS"
	.GOSUB COPY
	.SETS FILE "RT11FB.SYS"
	.GOSUB COPY
	.SETS FILE "RT11SJ.SYS"
	.GOSUB COPY
	.SETS FILE "RT11BL.SYS"
	.GOSUB COPY
	.SETS FILE "RT11PI.SYS"
	.GOSUB COPY
	.SETS FILE "RT11AI.SYS"
	.GOSUB COPY
	.SETS FILE "DYX.SYS"
	.GOSUB COPY
	.SETS FILE "DDX.SYS"
	.GOSUB COPY
	.SETS FILE "DLX.SYS"
	.GOSUB COPY
	.SETS FILE "DXX.SYS"
	.GOSUB COPY
	.SETS FILE "LSX.SYS"
	.GOSUB COPY
	.SETS FILE "LPX.SYS"
	.GOSUB COPY
	.SETS FILE "MSX.SYS"
	.GOSUB COPY
	.SETS FILE "DUX.SYS"
	.GOSUB COPY
	.SETS FILE "DZX.SYS"
	.GOSUB COPY
	.SETS FILE "DWX.SYS"
	.GOSUB COPY
	.SETS FILE "XLX.SYS"
	.GOSUB COPY
	.SETS FILE "SPX.SYS"
	.GOSUB COPY
	.SETS FILE "XCX.SYS"
	.GOSUB COPY
	.SETS FILE "PIX.SYS"
	.GOSUB COPY
	.SETS FILE "NLX.SYS"
	.GOSUB COPY
	.SETS FILE "LDX.SYS"
	.GOSUB COPY
	.SETS FILE "DMX.SYS"
	.GOSUB COPY
	.SETS FILE "VMX.SYS"
	.GOSUB COPY
	.SETS FILE "RKX.SYS"
	.GOSUB COPY
	.SETS FILE "SLX.SYS"
	.GOSUB COPY
	.SETS FILE "MTX.SYS"
	.GOSUB COPY
	.SETS FILE "MMX.SYS"
	.GOSUB COPY
	.SETS FILE "TT.SYS"
	.GOSUB COPY
	.SETS FILE "DT.SYS"
	.GOSUB COPY
	.SETS FILE "DP.SYS"
	.GOSUB COPY
	.SETS FILE "DX.SYS"
	.GOSUB COPY
	.SETS FILE "DY.SYS"
	.GOSUB COPY
	.SETS FILE "RF.SYS"
	.GOSUB COPY
	.SETS FILE "RK.SYS"
	.GOSUB COPY
	.SETS FILE "DL.SYS"
	.GOSUB COPY
	.SETS FILE "DZ.SYS"
	.GOSUB COPY
	.SETS FILE "DW.SYS"
	.GOSUB COPY
	.SETS FILE "PI.SYS"
	.GOSUB COPY
	.SETS FILE "XL.SYS"
	.GOSUB COPY
	.SETS FILE "XC.SYS"
	.GOSUB COPY
	.SETS FILE "SP.SYS"
	.GOSUB COPY
	.SETS FILE "SLMIN.SYS"
	.GOSUB COPY	
	.SETS FILE "DU.SYS"
	.GOSUB COPY
	.SETS FILE "DM.SYS"
	.GOSUB COPY
	.SETS FILE "DS.SYS"
	.GOSUB COPY
	.SETS FILE "DD.SYS"
	.GOSUB COPY
	.SETS FILE "LP.SYS"
	.GOSUB COPY
	.SETS FILE "LS.SYS"
	.GOSUB COPY
	.SETS FILE "CR.SYS"
	.GOSUB COPY
	.SETS FILE "MT.SYS"
	.GOSUB COPY
	.SETS FILE "MM.SYS"
	.GOSUB COPY
	.SETS FILE "MS.SYS"
	.GOSUB COPY
	.SETS FILE "NL.SYS"
	.GOSUB COPY
	.SETS FILE "PC.SYS"
	.GOSUB COPY
	.SETS FILE "PD.SYS"
	.GOSUB COPY
	.SETS FILE "CT.SYS"
	.GOSUB COPY
	.SETS FILE "LD.SYS"
	.GOSUB COPY
	.SETS FILE "SL.SYS"
	.GOSUB COPY
	.SETS FILE "VM.SYS"
	.GOSUB COPY

	.SETS FILE "PIP.SAV"
	.GOSUB COPY
	.SETS FILE "DUP.SAV"
	.GOSUB COPY
	.SETS FILE "DIR.SAV"
	.GOSUB COPY
	.SETS FILE "IND.SAV"
	.GOSUB COPY
	.SETS FILE "RESORC.SAV"
	.GOSUB COPY
	.SETS FILE "SYSMAC.SML"
	.GOSUB COPY
	.SETS FILE "EDIT.SAV"
	.GOSUB COPY
	.SETS FILE "KED.SAV"
	.GOSUB COPY
	.SETS FILE "K52.SAV"
	.GOSUB COPY
	.SETS FILE "KEX.SAV"
	.GOSUB COPY
	.SETS FILE "SAMPLE.KED"
	.GOSUB COPY
	.SETS FILE "MACRO.SAV"
	.GOSUB COPY
	.SETS FILE "CREF.SAV"
	.GOSUB COPY
	.SETS FILE "LINK.SAV"
	.GOSUB COPY
	.SETS FILE "LIBR.SAV"
	.GOSUB COPY
	.SETS FILE "FILEX.SAV"
	.GOSUB COPY
	.SETS FILE "SRCCOM.SAV"
	.GOSUB COPY
	.SETS FILE "BINCOM.SAV"
	.GOSUB COPY
	.SETS FILE "SLP.SAV"
	.GOSUB COPY
	.SETS FILE "DUMP.SAV"
	.GOSUB COPY
	.SETS FILE "SIPP.SAV"
	.GOSUB COPY
	.SETS FILE "BUP.SAV"
	.GOSUB COPY
	.SETS FILE "PAT.SAV"
	.GOSUB COPY
	.SETS FILE "HELP.SAV"
	.GOSUB COPY
	.SETS FILE "SPOOL.REL"
	.GOSUB COPY
	.SETS FILE "BATCH.SAV"
	.GOSUB COPY
	.SETS FILE "ERROUT.SAV"
	.GOSUB COPY
	.SETS FILE "QUEMAN.SAV"
	.GOSUB COPY
	.SETS FILE "FORMAT.SAV"
	.GOSUB COPY
	.SETS FILE "SPEED.SAV"
	.GOSUB COPY
	.SETS FILE "VTCOM.SAV"
	.GOSUB COPY
	.SETS FILE "VTCOM.REL"
	.GOSUB COPY
	.SETS FILE "TRANSF.SAV"
	.GOSUB COPY
	.SETS FILE "SETUP.SAV"
	.GOSUB COPY
	.SETS FILE "SPLIT.SAV"
	.GOSUB COPY
	.SETS FILE "DATIME.SAV"
	.GOSUB COPY
	.SETS FILE "DATIME.COM"
	.GOSUB COPY
	.SETS FILE "CONFIG.SAV"
	.GOSUB COPY
	.SETS FILE "CONFIG.COM"
	.GOSUB COPY
	.SETS FILE "LET.SAV"
	.GOSUB COPY
	.SETS FILE "UNSUP.TXT"
	.GOSUB COPY
	.SETS FILE "UCL.SAV"
	.GOSUB COPY
	.SETS FILE "VBGEXE.SAV"
	.GOSUB COPY
	.SETS FILE "RTMON.REL"
	.GOSUB COPY
	.SETS FILE "QUEUE.REL"
	.GOSUB COPY
	.SETS FILE "ODT.OBJ"
	.GOSUB COPY
	.SETS FILE "VDT.OBJ"
	.GOSUB COPY
	.SETS FILE "VTMAC.MAC"
	.GOSUB COPY
	.SETS FILE "VTHDLR.OBJ"
	.GOSUB COPY
	.SETS FILE "SYSLIB.OBJ"
	.GOSUB COPY
	.SETS FILE "PUTSTR.FOR"
	.GOSUB COPY
	.SETS FILE "GETSTR.FOR"
	.GOSUB COPY
	.SETS FILE "MDUP.SAV"
	.GOSUB COPY
	.SETS FILE "MBOOT.BOT"
	.GOSUB COPY
	.SETS FILE "MBOT16.BOT"
	.GOSUB COPY
	.SETS FILE "MSBOOT.BOT"
	.GOSUB COPY
	.SETS FILE "DEMOBG.MAC"
	.GOSUB COPY
	.SETS FILE "DEMOFG.MAC"
	.GOSUB COPY
	.SETS FILE "DEMOX1.MAC"
	.GOSUB COPY
	.SETS FILE "DEMOF1.FOR"
	.GOSUB COPY
	.SETS FILE "DEMOED.TXT"
	.GOSUB COPY
	.SETS FILE "STARTS.COM"
	.GOSUB COPY
	.SETS FILE "STARTA.COM"
	.GOSUB COPY
	.SETS FILE "STARTF.COM"
	.GOSUB COPY
	.SETS FILE "STARTX.COM"
	.GOSUB COPY
	.SETS FILE "VERIFY.COM"
	.GOSUB COPY
	.SETS FILE "IVP.COM"
	.GOSUB COPY
	.SETS FILE "IVP.MAC"
	.GOSUB COPY
	.SETS FILE "V5USER.TXT"
	.GOSUB COPY
	.SETS FILE "DISMT1.COM"
	.GOSUB COPY
	.SETS FILE "DISMT2.COM"
	.GOSUB COPY
	.SETS FILE "SJ.MAC"
	.GOSUB COPY
	.SETS FILE "FB.MAC"
	.GOSUB COPY
	.SETS FILE "XM.MAC"
	.GOSUB COPY
	.SETS FILE "XL.MAC"
	.GOSUB COPY
	.SETS FILE "XC.MAC"
	.GOSUB COPY
	.SETS FILE "SP.MAC"
	.GOSUB COPY
	.SETS FILE "KMON.MAC"
	.GOSUB COPY
	.SETS FILE "USR.MAC"
	.GOSUB COPY
	.SETS FILE "RMONSJ.MAC
	.GOSUB COPY
	.SETS FILE "RMONFB.MAC"
	.GOSUB COPY
	.SETS FILE "XMSUBS.MAC"
	.GOSUB COPY
	.SETS FILE "KMOVLY.MAC"
	.GOSUB COPY
	.SETS FILE "EDTGBL.MAC"
	.GOSUB COPY
	.SETS FILE "BSTRAP.MAC"
	.GOSUB COPY
	.SETS FILE "MTTEMT.MAC"
	.GOSUB COPY
	.SETS FILE "MTTINT.MAC"
	.GOSUB COPY
.;	.SETS FILE "UCL.MAC"
.;	.GOSUB COPY
.;	.SETS FILE "UCLTAB.MAC"
.;	.GOSUB COPY
	.SETS FILE "TRMTBL.MAC"
	.GOSUB COPY
	.SETS FILE "TT.MAC"
	.GOSUB COPY
	.SETS FILE "BA.MAC"
	.GOSUB COPY
	.SETS FILE "LP.MAC"
	.GOSUB COPY
	.SETS FILE "LS.MAC"
	.GOSUB COPY
	.SETS FILE "DD.MAC"
	.GOSUB COPY
	.SETS FILE "DL.MAC"
	.GOSUB COPY
	.SETS FILE "DU.MAC"
	.GOSUB COPY
	.SETS FILE "DZ.MAC"
	.GOSUB COPY
	.SETS FILE "DW.MAC"
	.GOSUB COPY
	.SETS FILE "RK.MAC"
	.GOSUB COPY
	.SETS FILE "DT.MAC"
	.GOSUB COPY
	.SETS FILE "DS.MAC"
	.GOSUB COPY
	.SETS FILE "PC.MAC"
	.GOSUB COPY
	.SETS FILE "PD.MAC"
	.GOSUB COPY
	.SETS FILE "RF.MAC"
	.GOSUB COPY
	.SETS FILE "DM.MAC"
	.GOSUB COPY
	.SETS FILE "DX.MAC"
	.GOSUB COPY
	.SETS FILE "DY.MAC"
	.GOSUB COPY
	.SETS FILE "CR.MAC"
	.GOSUB COPY
	.SETS FILE "DP.MAC"
	.GOSUB COPY
	.SETS FILE "CT.MAC"
	.GOSUB COPY
	.SETS FILE "TM.MAC"
	.GOSUB COPY
	.SETS FILE "TJ.MAC"
	.GOSUB COPY
	.SETS FILE "TS.MAC"
	.GOSUB COPY
	.SETS FILE "NL.MAC"
	.GOSUB COPY
	.SETS FILE "VM.MAC"
	.GOSUB COPY
	.SETS FILE "EL.MAC"
	.GOSUB COPY
	.SETS FILE "FSM.MAC"
	.GOSUB COPY
	.SETS FILE "ELCOPY.MAC"
	.GOSUB COPY
	.SETS FILE "ELINIT.MAC"
	.GOSUB COPY
	.SETS FILE "ELTASK.MAC"
	.GOSUB COPY
	.SETS FILE "ERROUT.OBJ"
	.GOSUB COPY
	.SETS FILE "ERRTXT.MAC"
	.GOSUB COPY
	.SETS FILE "LD.MAC"
	.GOSUB COPY
	.SETS FILE "CONSOL.MAC"
	.GOSUB COPY
	.SETS FILE "RTBL.MAP"
	.GOSUB COPY
	.SETS FILE "RTSJ.MAP"
	.GOSUB COPY
	.SETS FILE "RTFB.MAP"
	.GOSUB COPY
	.SETS FILE "RTXM.MAP"
	.GOSUB COPY
	.SETS FILE "MDUP.MT"
	.GOSUB COPY
	.SETS FILE "MDUP.MM"
	.GOSUB COPY
	.SETS FILE "MDUP.MS"
	.GOSUB COPY
	.SETS FILE "SYSGEN.COM"
	.GOSUB COPY
	.SETS FILE "XM.ANS"
	.GOSUB COPY
	.SETS FILE "SJFB.ANS"
	.GOSUB COPY
	.SETS FILE "BL.ANS"
	.GOSUB COPY
	.SETS FILE "V5NOTE.TXT"
	.GOSUB COPY
	.SETS FILE "CUSTOM.TXT"
	.GOSUB COPY
	.SETS FILE "TERMID.SAV"
	.GOSUB COPY
	.IFF DNRT .GOTO 12
	.IFT DNRT .SETS BOTFIL "RT11AI.SYS"

.12:	.GOSUB COPBOT
	.IFT DIR DIR/VOL/OUT:'KITMAP':RKRT1.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':RKRT1.COM/CO:1/FAST 'DEV':
	;
	;The RT-11 V5.1 BINARY kit has been created successfully
	;Good bye.
	.STOP

	.;RX50 BEGINS HERE
.RXBEG:
.30:
	;
	;
	.ASKS $VOL$ Which volume (AUTO, 1,2,3,4,5,6 or ALL)
	;
	;
	.IF $VOL$ EQ "ALL" .GOTO 3030
	.IF $VOL$ EQ "AUTO" .GOTO 3030
	.IF $VOL$ EQ "1" .GOTO RX1
	.IF $VOL$ EQ "2" .GOTO RX2
	.IF $VOL$ EQ "3" .GOTO RX3
	.IF $VOL$ EQ "4" .GOTO RX4
	.IF $VOL$ EQ "5" .GOTO RX5
	.IF $VOL$ EQ "6" .GOTO RX6
	;
	; Invalid response, please try again.
	;
	.GOTO 30
.3030:
	.IFT RXRT .SETS VOLID "BL-P746D-BC"
	.IFT RXRT .SETS OWNER "RX5 I"
	.IFT DZRT .SETS VOLID "BL-AI39C-BH"
	.IFT DZRT .SETS OWNER "RTPC I"
	.GOSUB NEWVOL
	.SETS FILE "SWAP.SYS"
	.GOSUB COPY
	.SETS FILE "RT11AI.SYS"
	.GOSUB COPY
	.SETS FILE "RT11PI.SYS"
	.GOSUB COPY
	.SETS FILE "TT.SYS"
	.GOSUB COPY
	.SETS FILE "DL.SYS"
	.GOSUB COPY
	.SETS FILE "DU.SYS"
	.GOSUB COPY
	.SETS FILE "DZ.SYS"
	.GOSUB COPY
	.SETS FILE "DW.SYS"
	.GOSUB COPY
	.SETS FILE "PI.SYS"
	.GOSUB COPY
	.SETS FILE "DY.SYS"
	.GOSUB COPY
	.SETS FILE "TERMID.SAV"
	.GOSUB COPY
	.SETS FILE "PIP.SAV"
	.GOSUB COPY
	.SETS FILE "DIR.SAV"
	.GOSUB COPY
	.SETS FILE "IND.SAV"
	.GOSUB COPY
	.SETS FILE "DUP.SAV"
	.GOSUB COPY
	.SETS FILE "SETUP.SAV"
	.GOSUB COPY
	.SETS FILE "FORMAT.SAV"
	.GOSUB COPY
	.SETS FILE "QUEUE.REL"
	.GOSUB COPY
	.SETS FILE "QUEMAN.SAV"
	.GOSUB COPY
	.SETS FILE "STARTA.COM"
	.GOSUB COPY
	.SETS FILE "IVP.MAC"
	.GOSUB COPY
	.SETS FILE "IVP.COM"
	.GOSUB COPY
	.SETS FILE "CONFIG.SAV"
	.GOSUB COPY
	.SETS FILE "CONFIG.COM"
	.GOSUB COPY
	.SETS FILE "RTBL.MAP"
	.GOSUB COPY
	.SETS FILE "RTFB.MAP"
	.GOSUB COPY
	.SETS FILE "RTSJ.MAP"
	.GOSUB COPY
	.SETS FILE "RTXM.MAP"
	.GOSUB COPY
	.SETS FILE "CUSTOM.TXT"
	.GOSUB COPY
	.SETS FILE "V5NOTE.TXT"
	.GOSUB COPY
	.SETS BOTFIL "RT11PI.SYS"
	.IFT DZRT .SETS BT ":DZ"
	.GOSUB COPBOT

	.IFT DIR DIR/VOL/OUT:'KITMAP':RXRT0.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':RXRT0.COM/CO:1/FAST 'DEV':

	.IF $VOL$ NE "ALL" .GOTO RXEND

.RX1:
	.IFT RXRT .SETS VOLID "BL-P741D-BC"
	.IFT RXRT .SETS OWNER "RX5 1"
	.IFT DZRT .SETS VOLID "BL-AI30C-BH"
	.IFT DZRT .SETS OWNER "RTPC 1"
	.GOSUB NEWVOL
	.SETS FILE "SWAP.SYS"
	.GOSUB COPY
	.SETS FILE "RT11XM.SYS"
	.GOSUB COPY
	.SETS FILE "DUX.SYS"
	.GOSUB COPY
	.SETS FILE "DZX.SYS"
	.GOSUB COPY
	.SETS FILE "DWX.SYS"
	.GOSUB COPY
	.SETS FILE "NLX.SYS"
	.GOSUB COPY
	.SETS FILE "PIX.SYS"
	.GOSUB COPY
	.SETS FILE "DDX.SYS"
	.GOSUB COPY
	.SETS FILE "DLX.SYS"
	.GOSUB COPY
	.SETS FILE "DMX.SYS"
	.GOSUB COPY
	.SETS FILE "DXX.SYS"
	.GOSUB COPY
	.SETS FILE "DYX.SYS"
	.GOSUB COPY
	.SETS FILE "LDX.SYS"
	.GOSUB COPY
	.SETS FILE "LPX.SYS"
	.GOSUB COPY
	.SETS FILE "LSX.SYS"
	.GOSUB COPY
	.SETS FILE "MMX.SYS"
	.GOSUB COPY
	.SETS FILE "MSX.SYS"
	.GOSUB COPY
	.SETS FILE "MTX.SYS"
	.GOSUB COPY
	.SETS FILE "RKX.SYS"
	.GOSUB COPY
	.SETS FILE "SLX.SYS"
	.GOSUB COPY
	.SETS FILE "VMX.SYS"
	.GOSUB COPY
	.SETS FILE "XLX.SYS"
	.GOSUB COPY
	.SETS FILE "SPX.SYS"
	.GOSUB COPY
	.SETS FILE "XCX.SYS"
	.GOSUB COPY
	.SETS FILE "KEX.SAV"
	.GOSUB COPY
	.SETS FILE "IND.SAV"
	.GOSUB COPY
	.SETS FILE "PIP.SAV"
	.GOSUB COPY
	.SETS FILE "DUP.SAV"
	.GOSUB COPY
	.SETS FILE "DIR.SAV"
	.GOSUB COPY
	.SETS FILE "RESORC.SAV"
	.GOSUB COPY
	.SETS FILE "HELP.SAV"
	.GOSUB COPY
	.SETS FILE "SETUP.SAV"
	.GOSUB COPY
	.SETS FILE "LET.SAV"
	.GOSUB COPY
	.SETS FILE "UCL.SAV"
	.GOSUB COPY
	.SETS FILE "VTCOM.SAV"
	.GOSUB COPY
	.SETS FILE "VERIFY.COM"
	.GOSUB COPY
	.SETS FILE "V5USER.TXT"
	.GOSUB COPY
	.SETS FILE "STARTX.COM"
	.GOSUB COPY
	.SETS BOTFIL "RT11XM.SYS"
	.IFT DZRT .SETS BT ":DZ"
	.GOSUB COPBOT

	.IFT DIR DIR/VOL/OUT:'KITMAP':RXRT1.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':RXRT1.COM/CO:1/FAST 'DEV':

	.IF $VOL$ NE "ALL" .GOTO RXEND

.RX2:
	.IFT RXRT .SETS VOLID "BL-P742D-BC"
	.IFT RXRT .SETS OWNER "RX5 2"
	.IFT DZRT .SETS VOLID "BL-AI31C-BH"
	.IFT DZRT .SETS OWNER "RTPC 2"
	.GOSUB NEWVOL

	.SETS FILE "FORMAT.SAV"
	.GOSUB COPY
	.SETS FILE "KED.SAV"
	.GOSUB COPY
	.SETS FILE "EDIT.SAV"
	.GOSUB COPY
	.SETS FILE "ERROUT.SAV"
	.GOSUB COPY
	.SETS FILE "VBGEXE.SAV"
	.GOSUB COPY
	.SETS FILE "MACRO.SAV"
	.GOSUB COPY
	.SETS FILE "CREF.SAV"
	.GOSUB COPY
	.SETS FILE "LINK.SAV"
	.GOSUB COPY
	.SETS FILE "SYSMAC.SML"
	.GOSUB COPY
	.SETS FILE "SYSLIB.OBJ"
	.GOSUB COPY
	.SETS FILE "SRCCOM.SAV"
	.GOSUB COPY
	.SETS FILE "SPOOL.REL"
	.GOSUB COPY
	.SETS FILE "DATIME.SAV"
	.GOSUB COPY
	.SETS FILE "DATIME.COM"
	.GOSUB COPY
	.SETS FILE "SPLIT.SAV"
	.GOSUB COPY
	.SETS FILE "TRANSF.SAV"
	.GOSUB COPY
	.SETS FILE "VTCOM.REL"
	.GOSUB COPY
	.SETS FILE "ODT.OBJ"
	.GOSUB COPY
	.SETS FILE "VDT.OBJ"
	.GOSUB COPY
	.SETS FILE "QUEUE.REL"
	.GOSUB COPY
	.SETS FILE "RTMON.REL"
	.GOSUB COPY
	.SETS FILE "BATCH.SAV"
	.GOSUB COPY
	.SETS FILE "BINCOM.SAV"
	.GOSUB COPY
	.SETS FILE "BUP.SAV"
	.GOSUB COPY
	.SETS FILE "DUMP.SAV"
	.GOSUB COPY
	.SETS FILE "FILEX.SAV"
	.GOSUB COPY
	.SETS FILE "K52.SAV"
	.GOSUB COPY
	.SETS FILE "LIBR.SAV"
	.GOSUB COPY
	.SETS FILE "MDUP.SAV"
	.GOSUB COPY
	.SETS FILE "PAT.SAV"
	.GOSUB COPY
	.SETS FILE "QUEMAN.SAV"
	.GOSUB COPY
	.SETS FILE "SIPP.SAV"
	.GOSUB COPY
	.SETS FILE "SLP.SAV"
	.GOSUB COPY
	.SETS FILE "SPEED.SAV"
	.GOSUB COPY

	.IFT DIR DIR/VOL/OUT:'KITMAP':RXRT2.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':RXRT2.COM/CO:1/FAST 'DEV':

	.IF $VOL$ NE "ALL" .GOTO RXEND

.RX3:
	.IFT RXRT .SETS VOLID "BL-P743D-BC"
	.IFT RXRT .SETS OWNER "RX5 3"
	.IFT DZRT .SETS VOLID "BL-AI32C-BH"
	.IFT DZRT .SETS OWNER "RTPC 3"
	.GOSUB NEWVOL

	.SETS FILE "RT11SJ.SYS"
	.GOSUB COPY
	.SETS FILE "RT11BL.SYS"
	.GOSUB COPY
	.SETS FILE "RT11FB.SYS"
	.GOSUB COPY
	.SETS FILE "SLMIN.SYS"
	.GOSUB COPY
	.SETS FILE "DY.SYS"
	.GOSUB COPY
	.SETS FILE "VM.SYS"
	.GOSUB COPY
	.SETS FILE "CR.SYS"
	.GOSUB COPY
	.SETS FILE "CT.SYS"
	.GOSUB COPY
	.SETS FILE "DD.SYS"
	.GOSUB COPY
	.SETS FILE "DL.SYS"
	.GOSUB COPY
	.SETS FILE "DM.SYS"
	.GOSUB COPY
	.SETS FILE "DP.SYS"
	.GOSUB COPY
	.SETS FILE "DS.SYS"
	.GOSUB COPY
	.SETS FILE "DT.SYS"
	.GOSUB COPY
	.SETS FILE "DU.SYS"
	.GOSUB COPY
	.SETS FILE "DZ.SYS"
	.GOSUB COPY
	.SETS FILE "DW.SYS"
	.GOSUB COPY
	.SETS FILE "DX.SYS"
	.GOSUB COPY
	.SETS FILE "PI.SYS"
	.GOSUB COPY
	.SETS FILE "XL.SYS"
	.GOSUB COPY
	.SETS FILE "XC.SYS"
	.GOSUB COPY
	.SETS FILE "SP.SYS"
	.GOSUB COPY
	.SETS FILE "LD.SYS"
	.GOSUB COPY
	.SETS FILE "LP.SYS"
	.GOSUB COPY
	.SETS FILE "LS.SYS"
	.GOSUB COPY
	.SETS FILE "MM.SYS"
	.GOSUB COPY
	.SETS FILE "MS.SYS"
	.GOSUB COPY
	.SETS FILE "MT.SYS"
	.GOSUB COPY
	.SETS FILE "NL.SYS"
	.GOSUB COPY
	.SETS FILE "TT.SYS"
	.GOSUB COPY
	.SETS FILE "PC.SYS"
	.GOSUB COPY
	.SETS FILE "PD.SYS"
	.GOSUB COPY
	.SETS FILE "RF.SYS"
	.GOSUB COPY
	.SETS FILE "RK.SYS"
	.GOSUB COPY
	.SETS FILE "SL.SYS"
	.GOSUB COPY
	.SETS FILE "STARTF.COM"
	.GOSUB COPY
	.SETS FILE "STARTS.COM"
	.GOSUB COPY

	.IFT DIR DIR/VOL/OUT:'KITMAP':RXRT3.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':RXRT3.COM/CO:1/FAST 'DEV':

	.IF $VOL$ NE "ALL" .GOTO RXEND

.RX4:
	.IFT RXRT .SETS VOLID "BL-P744D-BC"
	.IFT RXRT .SETS OWNER "RX5 4"
	.IFT DZRT .SETS VOLID "BL-AI33C-BH"
	.IFT DZRT .SETS OWNER "RTPC 4"
	.GOSUB NEWVOL

	.SETS FILE "SYSGEN.COM"
	.GOSUB COPY
	.SETS FILE "BL.ANS"
	.GOSUB COPY
	.SETS FILE "SJFB.ANS"
	.GOSUB COPY
	.SETS FILE "XM.ANS"
	.GOSUB COPY
	.SETS FILE "MBOOT.BOT"
	.GOSUB COPY
	.SETS FILE "MBOT16.BOT"
	.GOSUB COPY
	.SETS FILE "MSBOOT.BOT"
	.GOSUB COPY
	.SETS FILE "DISMT1.COM"
	.GOSUB COPY
	.SETS FILE "DISMT2.COM"
	.GOSUB COPY
	.SETS FILE "ERROUT.OBJ"
	.GOSUB COPY
	.SETS FILE "SAMPLE.KED"
	.GOSUB COPY
	.SETS FILE "DEMOED.TXT"
	.GOSUB COPY
	.SETS FILE "DEMOBG.MAC"
	.GOSUB COPY
	.SETS FILE "DEMOFG.MAC"
	.GOSUB COPY
	.SETS FILE "DEMOX1.MAC"
	.GOSUB COPY
	.SETS FILE "DEMOF1.FOR"
	.GOSUB COPY

	.SETS FILE "MDUP.MM"
	.GOSUB COPY
	.SETS FILE "MDUP.MS"
	.GOSUB COPY
	.SETS FILE "MDUP.MT"
	.GOSUB COPY

	.SETS FILE "VTHDLR.OBJ"
	.GOSUB COPY
	.SETS FILE "PUTSTR.FOR"
	.GOSUB COPY
	.SETS FILE "GETSTR.FOR"
	.GOSUB COPY
	.SETS FILE "CONSOL.MAC"
	.GOSUB COPY
	.SETS FILE "UNSUP.TXT"
	.GOSUB COPY

	.IFT DIR DIR/VOL/OUT:'KITMAP':RXRT4.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':RXRT4.COM/CO:1/FAST 'DEV':

	.IF $VOL$ NE "ALL" .GOTO RXEND

.RX5:
	.IFT RXRT .SETS VOLID "BL-P745D-BC"
	.IFT RXRT .SETS OWNER "RX5 5"
	.IFT DZRT .SETS VOLID "BL-AI34C-BH"
	.IFT DZRT .SETS OWNER "RTPC 5"

	.GOSUB NEWVOL
	.SETS FILE "TRMTBL.MAC"
	.GOSUB COPY
	.SETS FILE "USR.MAC"
	.GOSUB COPY
	.SETS FILE "BSTRAP.MAC"
	.GOSUB COPY
	.SETS FILE "EDTGBL.MAC"
	.GOSUB COPY
	.SETS FILE "KMON.MAC"
	.GOSUB COPY
	.SETS FILE "KMOVLY.MAC"
	.GOSUB COPY
	.SETS FILE "RMONFB.MAC"
	.GOSUB COPY
	.SETS FILE "RMONSJ.MAC"
	.GOSUB COPY
	.SETS FILE "XMSUBS.MAC"
	.GOSUB COPY

	.IFT DIR DIR/VOL/OUT:'KITMAP':RXRT5.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':RXRT5.COM/CO:1/FAST 'DEV':

	.IF $VOL$ NE "ALL" .GOTO RXEND

.RX6:
	.IFT RXRT .SETS VOLID "BL-AV43C-BC"
	.IFT RXRT .SETS OWNER "RX5 6"
	.IFT DZRT .SETS VOLID "BL-AI35C-BH"
	.IFT DZRT .SETS OWNER "RTPC 6"
	.GOSUB NEWVOL

	.SETS FILE "SJ.MAC"
	.GOSUB COPY
	.SETS FILE "XM.MAC"
	.GOSUB COPY
	.SETS FILE "FB.MAC"
	.GOSUB COPY
	.SETS FILE "TM.MAC"
	.GOSUB COPY
	.SETS FILE "TJ.MAC"
	.GOSUB COPY
	.SETS FILE "XC.MAC"
	.GOSUB COPY
	.SETS FILE "TS.MAC"
	.GOSUB COPY
	.SETS FILE "FSM.MAC"
	.GOSUB COPY
	.SETS FILE "BA.MAC"
	.GOSUB COPY
	.SETS FILE "CR.MAC"
	.GOSUB COPY
	.SETS FILE "CT.MAC"
	.GOSUB COPY
	.SETS FILE "DD.MAC"
	.GOSUB COPY
	.SETS FILE "DL.MAC"
	.GOSUB COPY
	.SETS FILE "DM.MAC"
	.GOSUB COPY
	.SETS FILE "DP.MAC"
	.GOSUB COPY
	.SETS FILE "DS.MAC"
	.GOSUB COPY
	.SETS FILE "DT.MAC"
	.GOSUB COPY
	.SETS FILE "DZ.MAC"
	.GOSUB COPY
	.SETS FILE "DW.MAC"
	.GOSUB COPY
	.SETS FILE "XL.MAC"
	.GOSUB COPY
	.SETS FILE "SP.MAC"
	.GOSUB COPY
	.SETS FILE "DU.MAC"
	.GOSUB COPY
	.SETS FILE "DX.MAC"
	.GOSUB COPY
	.SETS FILE "DY.MAC"
	.GOSUB COPY
	.SETS FILE "LD.MAC"
	.GOSUB COPY
	.SETS FILE "LP.MAC"
	.GOSUB COPY
	.SETS FILE "LS.MAC"
	.GOSUB COPY
	.SETS FILE "NL.MAC"
	.GOSUB COPY
	.SETS FILE "PC.MAC"
	.GOSUB COPY
	.SETS FILE "PD.MAC"
	.GOSUB COPY
	.SETS FILE "RF.MAC"
	.GOSUB COPY
	.SETS FILE "EL.MAC"
	.GOSUB COPY
	.SETS FILE "RK.MAC"
	.GOSUB COPY
	.SETS FILE "TT.MAC"
	.GOSUB COPY
	.SETS FILE "VM.MAC"
	.GOSUB COPY
	.SETS FILE "VTMAC.MAC"
	.GOSUB COPY
	.SETS FILE "ELCOPY.MAC"
	.GOSUB COPY
	.SETS FILE "ELINIT.MAC"
	.GOSUB COPY
	.SETS FILE "ELTASK.MAC"
	.GOSUB COPY
	.SETS FILE "ERRTXT.MAC"
	.GOSUB COPY
	.SETS FILE "MTTEMT.MAC"
	.GOSUB COPY
	.SETS FILE "MTTINT.MAC"
	.GOSUB COPY

	.IFT DIR DIR/VOL/OUT:'KITMAP':RXRT5.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':RXRT5.COM/CO:1/FAST 'DEV':

	.IF $VOL$ EQ "ALL" .GOTO TRMIN8
.RXEND:
	;
	.ASK VOL$ Do you want to build another volume
	.IFT VOL$ .GOTO RXBEG

.TRMIN8:
	;
	;The RT-11 V5.1 RX50 Binary kit has been created successfully
	;Good bye.
	.STOP


.35:
	.;RX02 KIT BEGINS HERE
	;
	.ASK $FMT$ Do you want the volumes formatted
	;
.DYBEG:
	;
	.ASKS $VOL$ Which volume (AUTO, 1,2,3,4,5 or ALL)
	;
	;
	.IF $VOL$ EQ "ALL" .GOTO 4040
	.IF $VOL$ EQ "AUTO" .GOTO 4040
	.IF $VOL$ EQ "1" .GOTO DY1
	.IF $VOL$ EQ "2" .GOTO DY2
	.IF $VOL$ EQ "3" .GOTO DY3
	.IF $VOL$ EQ "4" .GOTO DY4
	.IF $VOL$ EQ "5" .GOTO DY5
	;
	; Invalid response, please try again.
	;
	.GOTO 35
.4040:

	.IFT DYRT .SETS VOLID "BA-P732D-BC"
	.IFT DYRT .SETS OWNER "RX2 AUTO"

	.GOSUB NEWVOL
	.SETS FILE "SWAP.SYS"
	.GOSUB COPY
	.SETS FILE "RT11AI.SYS"
	.GOSUB COPY
	.SETS FILE "RT11PI.SYS"
	.GOSUB COPY
	.SETS FILE "TT.SYS"
	.GOSUB COPY
	.SETS FILE "DL.SYS"
	.GOSUB COPY
	.SETS FILE "DU.SYS"
	.GOSUB COPY
	.SETS FILE "DZ.SYS"
	.GOSUB COPY
	.SETS FILE "DW.SYS"
	.GOSUB COPY
	.SETS FILE "PI.SYS"
	.GOSUB COPY
	.SETS FILE "DY.SYS"
	.GOSUB COPY
	.SETS FILE "TERMID.SAV"
	.GOSUB COPY
	.SETS FILE "PIP.SAV"
	.GOSUB COPY
	.SETS FILE "DIR.SAV"
	.GOSUB COPY
	.SETS FILE "IND.SAV"
	.GOSUB COPY
	.SETS FILE "DUP.SAV"
	.GOSUB COPY
	.SETS FILE "QUEUE.REL"
	.GOSUB COPY
	.SETS FILE "QUEMAN.SAV"
	.GOSUB COPY
	.SETS FILE "STARTA.COM"
	.GOSUB COPY
	.SETS FILE "IVP.MAC"
	.GOSUB COPY
	.SETS FILE "CONFIG.SAV"
	.GOSUB COPY
	.SETS FILE "CONFIG.COM"
	.GOSUB COPY
	.SETS FILE "IVP.COM"
	.GOSUB COPY
	.SETS FILE "RTBL.MAP"
	.GOSUB COPY
	.SETS FILE "RTFB.MAP"
	.GOSUB COPY
	.SETS FILE "RTSJ.MAP"
	.GOSUB COPY
	.SETS FILE "RTXM.MAP"
	.GOSUB COPY
	.SETS FILE "CUSTOM.TXT"
	.GOSUB COPY
	.SETS FILE "V5NOTE.TXT"
	.GOSUB COPY
	.SETS BOTFIL "RT11AI.SYS"
	.IFT DZRT .SETS BT ":DZ"
	.GOSUB COPBOT
	.IFT DIR DIR/VOL/OUT:'KITMAP':DYRT0.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':DYRT0.COM/CO:1/FAST 'DEV':

	.IF $VOL$ NE "ALL" .GOTO DYEND

.DY1:
	.IFT DYRT .SETS VOLID "BA-P727D-BC"
	.IFT DYRT .SETS OWNER "RX2 1/5"
	.GOSUB NEWVOL
	.SETS FILE "SWAP.SYS"
	.GOSUB COPY
	.SETS FILE "RT11FB.SYS"
	.GOSUB COPY
	.SETS FILE "DY.SYS"
	.GOSUB COPY
	.SETS FILE "VM.SYS"
	.GOSUB COPY
	.SETS FILE "CR.SYS"
	.GOSUB COPY
	.SETS FILE "CT.SYS"
	.GOSUB COPY
	.SETS FILE "DD.SYS"
	.GOSUB COPY
	.SETS FILE "DL.SYS"
	.GOSUB COPY
	.SETS FILE "DM.SYS"
	.GOSUB COPY
	.SETS FILE "DP.SYS"
	.GOSUB COPY
	.SETS FILE "DS.SYS"
	.GOSUB COPY
	.SETS FILE "DT.SYS"
	.GOSUB COPY
	.SETS FILE "DU.SYS"
	.GOSUB COPY
	.SETS FILE "DZ.SYS"
	.GOSUB COPY
	.SETS FILE "DW.SYS"
	.GOSUB COPY
	.SETS FILE "DX.SYS"
	.GOSUB COPY
	.SETS FILE "PI.SYS"
	.GOSUB COPY
	.SETS FILE "XL.SYS"
	.GOSUB COPY
	.SETS FILE "XC.SYS"
	.GOSUB COPY
	.SETS FILE "SP.SYS"
	.GOSUB COPY
	.SETS FILE "SLMIN.SYS"
	.GOSUB COPY	
	.SETS FILE "LD.SYS"
	.GOSUB COPY
	.SETS FILE "LP.SYS"
	.GOSUB COPY
	.SETS FILE "LS.SYS"
	.GOSUB COPY
	.SETS FILE "MM.SYS"
	.GOSUB COPY
	.SETS FILE "MS.SYS"
	.GOSUB COPY
	.SETS FILE "MT.SYS"
	.GOSUB COPY
	.SETS FILE "NL.SYS"
	.GOSUB COPY
	.SETS FILE "TT.SYS"
	.GOSUB COPY
	.SETS FILE "PC.SYS"
	.GOSUB COPY
	.SETS FILE "PD.SYS"
	.GOSUB COPY
	.SETS FILE "RF.SYS"
	.GOSUB COPY
	.SETS FILE "RK.SYS"
	.GOSUB COPY
	.SETS FILE "SL.SYS"
	.GOSUB COPY

	.SETS FILE "IND.SAV"
	.GOSUB COPY
	.SETS FILE "PIP.SAV"
	.GOSUB COPY
	.SETS FILE "DUP.SAV"
	.GOSUB COPY
	.SETS FILE "DIR.SAV"
	.GOSUB COPY
	.SETS FILE "RESORC.SAV"
	.GOSUB COPY
	.SETS FILE "KED.SAV"
	.GOSUB COPY
	.SETS FILE "EDIT.SAV"
	.GOSUB COPY
	.SETS FILE "MACRO.SAV"
	.GOSUB COPY
	.SETS FILE "CREF.SAV"
	.GOSUB COPY
	.SETS FILE "LINK.SAV"
	.GOSUB COPY
	.SETS FILE "SYSMAC.SML"
	.GOSUB COPY
	.SETS FILE "SYSLIB.OBJ"
	.GOSUB COPY
	.SETS FILE "SPOOL.REL"
	.GOSUB COPY
	.SETS FILE "SRCCOM.SAV"
	.GOSUB COPY
	.SETS FILE "DATIME.SAV"
	.GOSUB COPY
	.SETS FILE "DATIME.COM"
	.GOSUB COPY
	.SETS FILE "SAMPLE.KED"
	.GOSUB COPY
	.SETS FILE "DEMOED.TXT"
	.GOSUB COPY
	.SETS FILE "DEMOBG.MAC"
	.GOSUB COPY
	.SETS FILE "DEMOFG.MAC"
	.GOSUB COPY
	.SETS FILE "DEMOX1.MAC"
	.GOSUB COPY
	.SETS FILE "DEMOF1.FOR"
	.GOSUB COPY
	.SETS FILE "VERIFY.COM"
	.GOSUB COPY
	.SETS FILE "V5USER.TXT"
	.GOSUB COPY
	.SETS FILE "STARTF.COM"
	.GOSUB COPY
	.SETS BOTFIL "RT11FB.SYS"
	.GOSUB COPBOT
	.IFT DIR DIR/VOL/OUT:'KITMAP':DYRT1.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':DYRT1.COM/CO:1/FAST 'DEV':
	.IF $VOL$ NE "ALL" .GOTO DYEND

.DY2:
	.IFT DYRT .SETS VOLID "BA-P728D-BC"
	.IFT DYRT .SETS OWNER "RX2 2/5"
	.GOSUB NEWVOL
	.SETS FILE "RT11XM.SYS"
	.GOSUB COPY
	.SETS FILE "RT11BL.SYS"
	.GOSUB COPY
	.SETS FILE "RT11SJ.SYS"
	.GOSUB COPY
	.SETS FILE "DDX.SYS"
	.GOSUB COPY
	.SETS FILE "DLX.SYS"
	.GOSUB COPY
	.SETS FILE "DMX.SYS"
	.GOSUB COPY
	.SETS FILE "DUX.SYS"
	.GOSUB COPY
	.SETS FILE "DZX.SYS"
	.GOSUB COPY
	.SETS FILE "DWX.SYS"
	.GOSUB COPY
	.SETS FILE "DXX.SYS"
	.GOSUB COPY
	.SETS FILE "DYX.SYS"
	.GOSUB COPY
	.SETS FILE "LDX.SYS"
	.GOSUB COPY
	.SETS FILE "LPX.SYS"
	.GOSUB COPY
	.SETS FILE "LSX.SYS"
	.GOSUB COPY
	.SETS FILE "MMX.SYS"
	.GOSUB COPY
	.SETS FILE "MSX.SYS"
	.GOSUB COPY
	.SETS FILE "MTX.SYS"
	.GOSUB COPY
	.SETS FILE "NLX.SYS"
	.GOSUB COPY
	.SETS FILE "RKX.SYS"
	.GOSUB COPY
	.SETS FILE "SLX.SYS"
	.GOSUB COPY
	.SETS FILE "VMX.SYS"
	.GOSUB COPY
	.SETS FILE "XLX.SYS"
	.GOSUB COPY
	.SETS FILE "SPX.SYS"
	.GOSUB COPY
	.SETS FILE "XCX.SYS"
	.GOSUB COPY
	.SETS FILE "PIX.SYS"
	.GOSUB COPY
	.SETS FILE "KEX.SAV"
	.GOSUB COPY
	.SETS FILE "STARTX.COM"
	.GOSUB COPY
	.SETS FILE "STARTS.COM"
	.GOSUB COPY
	.SETS FILE "ODT.OBJ"
	.GOSUB COPY
	.SETS FILE "VDT.OBJ"
	.GOSUB COPY
	.SETS FILE "QUEUE.REL"
	.GOSUB COPY
	.SETS FILE "RTMON.REL"
	.GOSUB COPY
	.SETS FILE "BATCH.SAV"
	.GOSUB COPY
	.SETS FILE "BINCOM.SAV"
	.GOSUB COPY
	.SETS FILE "BUP.SAV"
	.GOSUB COPY
	.SETS FILE "DUMP.SAV"
	.GOSUB COPY
	.SETS FILE "FILEX.SAV"
	.GOSUB COPY
	.SETS FILE "K52.SAV"
	.GOSUB COPY
	.SETS FILE "LIBR.SAV"
	.GOSUB COPY
	.SETS FILE "MDUP.SAV"
	.GOSUB COPY
	.SETS FILE "UCL.SAV"
	.GOSUB COPY
	.SETS FILE "VBGEXE.SAV"
	.GOSUB COPY
	.SETS FILE "LET.SAV"
	.GOSUB COPY
	.SETS FILE "PAT.SAV"
	.GOSUB COPY
	.SETS FILE "QUEMAN.SAV"
	.GOSUB COPY
	.SETS FILE "SIPP.SAV"
	.GOSUB COPY
	.SETS FILE "SLP.SAV"
	.GOSUB COPY
	.SETS FILE "SPEED.SAV"
	.GOSUB COPY
	.SETS FILE "SETUP.SAV"
	.GOSUB COPY
	.SETS FILE "SPLIT.SAV"
	.GOSUB COPY
	.SETS FILE "TRANSF.SAV"
	.GOSUB COPY
	.SETS FILE "VTCOM.SAV"
	.GOSUB COPY
	.SETS FILE "VTCOM.REL"
	.GOSUB COPY
	.IFT DIR DIR/VOL/OUT:'KITMAP':DYRT2.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':DYRT2.COM/CO:1/FAST 'DEV':

	.IF $VOL$ NE "ALL" .GOTO DYEND

.DY3:
	.IFT DYRT .SETS VOLID "BA-P729D-BC"
	.IFT DYRT .SETS OWNER "RX2 3/5"
	.GOSUB NEWVOL
	.SETS FILE "HELP.SAV"
	.GOSUB COPY
	.SETS FILE "FORMAT.SAV"
	.GOSUB COPY
	.SETS FILE "MTTEMT.MAC"
	.GOSUB COPY
	.SETS FILE "MTTINT.MAC"
	.GOSUB COPY
	.SETS FILE "TRMTBL.MAC"
	.GOSUB COPY
	.SETS FILE "SYSGEN.COM"
	.GOSUB COPY
	.SETS FILE "BL.ANS"
	.GOSUB COPY
	.SETS FILE "SJFB.ANS"
	.GOSUB COPY
	.SETS FILE "XM.ANS"
	.GOSUB COPY
	.SETS FILE "MBOOT.BOT"
	.GOSUB COPY
	.SETS FILE "MBOT16.BOT"
	.GOSUB COPY
	.SETS FILE "MSBOOT.BOT"
	.GOSUB COPY
	.SETS FILE "DISMT1.COM"
	.GOSUB COPY
	.SETS FILE "DISMT2.COM"
	.GOSUB COPY
	.SETS FILE "MDUP.MM"
	.GOSUB COPY
	.SETS FILE "MDUP.MS"
	.GOSUB COPY
	.SETS FILE "MDUP.MT"
	.GOSUB COPY
	.SETS FILE "EL.MAC"
	.GOSUB COPY
	.SETS FILE "ELCOPY.MAC"
	.GOSUB COPY
	.SETS FILE "ELINIT.MAC"
	.GOSUB COPY
	.SETS FILE "ELTASK.MAC"
	.GOSUB COPY
	.SETS FILE "ERRTXT.MAC"
	.GOSUB COPY
	.SETS FILE "ERROUT.SAV"
	.GOSUB COPY
	.SETS FILE "ERROUT.OBJ"
	.GOSUB COPY
	.IFT DIR DIR/VOL/OUT:'KITMAP':DYRT3.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':DYRT3.COM/CO:1/FAST 'DEV':

	.IF $VOL$ NE "ALL" .GOTO DYEND

.DY4:
	.IFT DYRT .SETS VOLID "BA-P730D-BC"
	.IFT DYRT .SETS OWNER "RX2 4/5"
	.GOSUB NEWVOL
	.SETS FILE "SJ.MAC"
	.GOSUB COPY
	.SETS FILE "XM.MAC"
	.GOSUB COPY
	.SETS FILE "FB.MAC"
	.GOSUB COPY
	.SETS FILE "BSTRAP.MAC"
	.GOSUB COPY
	.SETS FILE "EDTGBL.MAC"
	.GOSUB COPY
	.SETS FILE "KMON.MAC"
	.GOSUB COPY
	.SETS FILE "KMOVLY.MAC"
	.GOSUB COPY
	.SETS FILE "RMONFB.MAC"
	.GOSUB COPY
	.SETS FILE "RMONSJ.MAC"
	.GOSUB COPY
	.SETS FILE "XMSUBS.MAC"
	.GOSUB COPY
	.IFT DIR DIR/VOL/OUT:'KITMAP':DYRT4.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':DYRT4.COM/CO:1/FAST 'DEV':

	.IF $VOL$ NE "ALL" .GOTO DYEND

.DY5:
	.IFT DYRT .SETS VOLID "BA-P731D-BC"
	.IFT DYRT .SETS OWNER "RX2 5/5"
	.GOSUB NEWVOL
	.SETS FILE "USR.MAC"
	.GOSUB COPY
	.SETS FILE "FSM.MAC"
	.GOSUB COPY
	.SETS FILE "TM.MAC"
	.GOSUB COPY
	.SETS FILE "TJ.MAC"
	.GOSUB COPY
	.SETS FILE "XC.MAC"
	.GOSUB COPY
	.SETS FILE "TS.MAC"
	.GOSUB COPY
	.SETS FILE "BA.MAC"
	.GOSUB COPY
	.SETS FILE "CR.MAC"
	.GOSUB COPY
	.SETS FILE "CT.MAC"
	.GOSUB COPY
	.SETS FILE "DD.MAC"
	.GOSUB COPY
	.SETS FILE "DL.MAC"
	.GOSUB COPY
	.SETS FILE "DM.MAC"
	.GOSUB COPY
	.SETS FILE "DP.MAC"
	.GOSUB COPY
	.SETS FILE "DS.MAC"
	.GOSUB COPY
	.SETS FILE "DT.MAC"
	.GOSUB COPY
	.SETS FILE "DZ.MAC"
	.GOSUB COPY
	.SETS FILE "DW.MAC"
	.GOSUB COPY
	.SETS FILE "XL.MAC"
	.GOSUB COPY
	.SETS FILE "SP.MAC"
	.GOSUB COPY
	.SETS FILE "DU.MAC"
	.GOSUB COPY
	.SETS FILE "DX.MAC"
	.GOSUB COPY
	.SETS FILE "DY.MAC"
	.GOSUB COPY
	.SETS FILE "LD.MAC"
	.GOSUB COPY
	.SETS FILE "LP.MAC"
	.GOSUB COPY
	.SETS FILE "LS.MAC"
	.GOSUB COPY
	.SETS FILE "NL.MAC"
	.GOSUB COPY
	.SETS FILE "PC.MAC"
	.GOSUB COPY
	.SETS FILE "PD.MAC"
	.GOSUB COPY
	.SETS FILE "RF.MAC"
	.GOSUB COPY
	.SETS FILE "RK.MAC"
	.GOSUB COPY
	.SETS FILE "TT.MAC"
	.GOSUB COPY
	.SETS FILE "VM.MAC"
	.GOSUB COPY
	.SETS FILE "VTMAC.MAC"
	.GOSUB COPY
	.SETS FILE "VTHDLR.OBJ"
	.GOSUB COPY
	.SETS FILE "PUTSTR.FOR"
	.GOSUB COPY
	.SETS FILE "GETSTR.FOR"
	.GOSUB COPY
	.SETS FILE "CONSOL.MAC"
	.GOSUB COPY
	.SETS FILE "UNSUP.TXT"
	.GOSUB COPY
	.IFT DIR DIR/VOL/OUT:'KITMAP':DYRT5.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':dyRT5.COM/CO:1/FAST 'DEV':

	.IF $VOL$ EQ "ALL" .GOTO TRMIN9
.DYEND:
	;
	.ASK VOL$ Do you want to build another volume
	.IFT VOL$ .GOTO DYBEG

.TRMIN9:
	;
	;
	;The RT-11 V5.1 RX02 Binary kit has been created successfully
	;Good bye.
	.STOP

.
.40:

	.;RX01 kit begins here*****************************

	.IFT DXRT .SETS VOLID "AS-P733D-BC"
	.IFT DXRT .SETS OWNER "RX1 1"
	.GOSUB NEWVOL
	.SETS FILE "SWAP.SYS"
	.GOSUB COPY
	.SETS FILE "RT11FB.SYS"
	.GOSUB COPY
	.SETS FILE "DY.SYS"
	.GOSUB COPY
	.SETS FILE "DL.SYS"
	.GOSUB COPY
	.SETS FILE "DU.SYS"
	.GOSUB COPY
	.SETS FILE "LD.SYS"
	.GOSUB COPY
	.SETS FILE "SL.SYS"
	.GOSUB COPY
	.SETS FILE "VM.SYS"
	.GOSUB COPY
	.SETS FILE "RK.SYS"
	.GOSUB COPY
	.SETS FILE "DM.SYS"
	.GOSUB COPY
	.SETS FILE "DD.SYS"
	.GOSUB COPY
	.SETS FILE "TT.SYS"
	.GOSUB COPY
	.SETS FILE "LP.SYS"
	.GOSUB COPY
	.SETS FILE "LS.SYS"
	.GOSUB COPY
	.SETS FILE "NL.SYS"
	.GOSUB COPY
	.SETS FILE "MT.SYS"
	.GOSUB COPY
	.SETS FILE "MM.SYS"
	.GOSUB COPY
	.SETS FILE "MS.SYS"
	.GOSUB COPY
	.SETS FILE "DS.SYS"
	.GOSUB COPY
	.SETS FILE "DT.SYS"
	.GOSUB COPY
	.SETS FILE "DP.SYS"
	.GOSUB COPY
	.SETS FILE "DX.SYS"
	.GOSUB COPY
	.SETS FILE "RF.SYS"
	.GOSUB COPY
	.SETS FILE "PC.SYS"
	.GOSUB COPY
	.SETS FILE "PD.SYS"
	.GOSUB COPY
	.SETS FILE "CT.SYS"
	.GOSUB COPY
	.SETS FILE "CR.SYS"
	.GOSUB COPY
	.SETS FILE "SP.SYS"
	.GOSUB COPY
	.SETS FILE "XL.SYS"
	.GOSUB COPY
	.SETS FILE "XC.SYS"
	.GOSUB COPY
	.SETS FILE "IND.SAV"
	.GOSUB COPY
	.SETS FILE "PIP.SAV"
	.GOSUB COPY
	.SETS FILE "DUP.SAV"
	.GOSUB COPY
	.SETS FILE "DIR.SAV"
	.GOSUB COPY
	.SETS FILE "KED.SAV"
	.GOSUB COPY
	.SETS FILE "RESORC.SAV"
	.GOSUB COPY
	.SETS FILE "STARTF.COM"
	.GOSUB COPY
	.SETS FILE "V5USER.TXT"
	.GOSUB COPY
	.SETS BOTFIL "RT11FB.SYS"
	.GOSUB COPBOT
	.IFT DIR DIR/VOL/OUT:'KITMAP':DXRT1.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':DXRT1.COM/CO:1/FAST 'DEV':
.DX2:
	.IFT DXRT .SETS VOLID "AS-P734D-BC"
	.IFT DXRT .SETS OWNER "RX1 2"
	.GOSUB NEWVOL
	.SETS FILE "RT11BL.SYS"
	.GOSUB COPY
	.SETS FILE "RT11SJ.SYS"
	.GOSUB COPY
	.SETS FILE "RT11XM.SYS"
	.GOSUB COPY
	.SETS FILE "SLMIN.SYS"
	.GOSUB COPY	
	.SETS FILE "DYX.SYS"
	.GOSUB COPY
	.SETS FILE "DLX.SYS"
	.GOSUB COPY
	.SETS FILE "DZX.SYS"
	.GOSUB COPY
	.SETS FILE "DWX.SYS"
	.GOSUB COPY
	.SETS FILE "XLX.SYS"
	.GOSUB COPY
	.SETS FILE "SPX.SYS"
	.GOSUB COPY
	.SETS FILE "XCX.SYS"
	.GOSUB COPY
	.SETS FILE "PIX.SYS"
	.GOSUB COPY
	.SETS FILE "DUX.SYS"
	.GOSUB COPY
	.SETS FILE "LDX.SYS"
	.GOSUB COPY
	.SETS FILE "VMX.SYS"
	.GOSUB COPY
	.SETS FILE "DMX.SYS"
	.GOSUB COPY
	.SETS FILE "DDX.SYS"
	.GOSUB COPY
	.SETS FILE "LPX.SYS"
	.GOSUB COPY
	.SETS FILE "LSX.SYS"
	.GOSUB COPY
	.SETS FILE "DXX.SYS"
	.GOSUB COPY
	.SETS FILE "RKX.SYS"
	.GOSUB COPY
	.SETS FILE "SLX.SYS"
	.GOSUB COPY
	.SETS FILE "NLX.SYS"
	.GOSUB COPY
	.SETS FILE "MSX.SYS"
	.GOSUB COPY
	.SETS FILE "MTX.SYS"
	.GOSUB COPY
	.SETS FILE "MMX.SYS"
	.GOSUB COPY
	.SETS FILE "STARTS.COM"
	.GOSUB COPY
	.SETS FILE "STARTX.COM"
	.GOSUB COPY
	.IFT DIR DIR/VOL/OUT:'KITMAP':DXRT2.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':DXRT2.COM/CO:1/FAST 'DEV':

.DX3:
	.IFT DXRT .SETS VOLID "AS-P735D-BC"
	.IFT DXRT .SETS OWNER "RX1 3"
	.GOSUB NEWVOL	
	.SETS FILE "PI.SYS"
	.GOSUB COPY
	.SETS FILE "DZ.SYS"
	.GOSUB COPY
	.SETS FILE "DW.SYS"
	.GOSUB COPY
	.SETS FILE "EDIT.SAV"
	.GOSUB COPY
	.SETS FILE "K52.SAV"
	.GOSUB COPY
	.SETS FILE "MACRO.SAV"
	.GOSUB COPY
	.SETS FILE "CREF.SAV"
	.GOSUB COPY
	.SETS FILE "LINK.SAV"
	.GOSUB COPY
	.SETS FILE "LIBR.SAV"
	.GOSUB COPY
	.SETS FILE "SYSMAC.SML"
	.GOSUB COPY
	.SETS FILE "SYSLIB.OBJ"
	.GOSUB COPY
	.SETS FILE "ODT.OBJ"
	.GOSUB COPY
	.SETS FILE "VDT.OBJ"
	.GOSUB COPY
	.SETS FILE "PAT.SAV"
	.GOSUB COPY
	.SETS FILE "BINCOM.SAV"
	.GOSUB COPY
	.SETS FILE "SRCCOM.SAV"
	.GOSUB COPY
	.SETS FILE "DUMP.SAV"
	.GOSUB COPY
	.SETS FILE "FORMAT.SAV"
	.GOSUB COPY
	.IFT DIR DIR/VOL/OUT:'KITMAP':DXRT3.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':DXRT3.COM/CO:1/FAST 'DEV':

.DX4:
	.IFT DXRT .SETS VOLID "AS-P736D-BC"
	.IFT DXRT .SETS OWNER "RX1 4"
	.GOSUB NEWVOL
	.SETS FILE "BUP.SAV"
	.GOSUB COPY
	.SETS FILE "FILEX.SAV"
	.GOSUB COPY
	.SETS FILE "SIPP.SAV"
	.GOSUB COPY
	.SETS FILE "SLP.SAV"
	.GOSUB COPY
	.SETS FILE "HELP.SAV"
	.GOSUB COPY
	.SETS FILE "SYSGEN.COM"
	.GOSUB COPY
	.SETS FILE "BL.ANS"
	.GOSUB COPY
	.SETS FILE "SJFB.ANS"
	.GOSUB COPY
	.SETS FILE "XM.ANS"
	.GOSUB COPY
	.IFT DIR DIR/VOL/OUT:'KITMAP':DXRT4.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':DXRT4.COM/CO:1/FAST 'DEV':

.DX5:
	.IFT DXRT .SETS VOLID "AS-P737D-BC"
	.IFT DXRT .SETS OWNER "RX1 5"
	.GOSUB NEWVOL
	.SETS FILE "SJ.MAC"
	.GOSUB COPY
	.SETS FILE "FB.MAC"
	.GOSUB COPY
	.SETS FILE "XM.MAC"
	.GOSUB COPY
	.SETS FILE "XL.MAC"
	.GOSUB COPY
	.SETS FILE "EDTGBL.MAC"
	.GOSUB COPY
	.SETS FILE "BSTRAP.MAC"
	.GOSUB COPY
	.SETS FILE "KMON.MAC"
	.GOSUB COPY
	.SETS FILE "KMOVLY.MAC"
	.GOSUB COPY
	.IFT DIR DIR/VOL/OUT:'KITMAP':DXRT5.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':DXRT5.COM/CO:1/FAST 'DEV':
.DX6:

	.IFT DXRT .SETS VOLID "AS-P738D-BC"
	.IFT DXRT .SETS OWNER "RX1 6"
	.GOSUB NEWVOL
	.SETS FILE "SP.MAC"
	.GOSUB COPY
	.SETS FILE "USR.MAC"
	.GOSUB COPY
	.SETS FILE "RMONSJ.MAC"
	.GOSUB COPY
	.SETS FILE "RMONFB.MAC"
	.GOSUB COPY
	.SETS FILE "XMSUBS.MAC"
	.GOSUB COPY
	.SETS FILE "MTTEMT.MAC"
	.GOSUB COPY
	.SETS FILE "MTTINT.MAC"
	.GOSUB COPY
	.SETS FILE "CR.MAC"
	.GOSUB COPY
	.SETS FILE "CT.MAC"
	.GOSUB COPY
	.SETS FILE "DT.MAC"
	.GOSUB COPY
	.SETS FILE "PC.MAC"
	.GOSUB COPY

	.IFT DIR DIR/VOL/OUT:'KITMAP':DXRT6.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':DXRT6.COM/CO:1/FAST 'DEV':

.DX7:
	.IFT DXRT .SETS VOLID "AS-P739D-BC"
	.IFT DXRT .SETS OWNER "RX1 7"
	.GOSUB NEWVOL
	.SETS FILE "TRMTBL.MAC"
	.GOSUB COPY
	.SETS FILE "BA.MAC"
	.GOSUB COPY
	.SETS FILE "DD.MAC"
	.GOSUB COPY
	.SETS FILE "DL.MAC"
	.GOSUB COPY
	.SETS FILE "DM.MAC"
	.GOSUB COPY
	.SETS FILE "DP.MAC"
	.GOSUB COPY
	.SETS FILE "DZ.MAC"
	.GOSUB COPY
	.SETS FILE "DW.MAC"
	.GOSUB COPY
	.SETS FILE "DU.MAC"
	.GOSUB COPY
	.SETS FILE "DX.MAC"
	.GOSUB COPY
	.SETS FILE "DY.MAC"
	.GOSUB COPY
	.SETS FILE "EL.MAC"
	.GOSUB COPY
	.SETS FILE "ELCOPY.MAC"
	.GOSUB COPY
	.SETS FILE "ELINIT.MAC"
	.GOSUB COPY
	.SETS FILE "ELTASK.MAC"
	.GOSUB COPY
	.SETS FILE "FSM.MAC"
	.GOSUB COPY
	.SETS FILE "LD.MAC"
	.GOSUB COPY
	.SETS FILE "LP.MAC"
	.GOSUB COPY
	.SETS FILE "LS.MAC"
	.GOSUB COPY
	.SETS FILE "NL.MAC"
	.GOSUB COPY
	.SETS FILE "PD.MAC"
	.GOSUB COPY
	.SETS FILE "RK.MAC"
	.GOSUB COPY
	.SETS FILE "TJ.MAC"
	.GOSUB COPY
	.SETS FILE "XC.MAC"
	.GOSUB COPY
	.SETS FILE "TT.MAC"
	.GOSUB COPY

	.IFT DIR DIR/VOL/OUT:'KITMAP':DXRT7.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':DXRT7.COM/CO:1/FAST 'DEV':


.DX8:
	.IFT DXRT .SETS VOLID "AS-P740D-BC"
	.IFT DXRT .SETS OWNER "RX1 8"

	.GOSUB NEWVOL
	.SETS FILE "DS.MAC"
	.GOSUB COPY
	.SETS FILE "RF.MAC"
	.GOSUB COPY
	.SETS FILE "ERROUT.SAV"
	.GOSUB COPY
	.SETS FILE "ERROUT.OBJ"
	.GOSUB COPY
	.SETS FILE "ERRTXT.MAC"
	.GOSUB COPY
	.SETS FILE "MDUP.SAV"
	.GOSUB COPY
	.SETS FILE "MDUP.MM"
	.GOSUB COPY
	.SETS FILE "MDUP.MT"
	.GOSUB COPY
	.SETS FILE "MDUP.MS"
	.GOSUB COPY
	.SETS FILE "MBOT16.BOT"
	.GOSUB COPY
	.SETS FILE "MBOOT.BOT"
	.GOSUB COPY
	.SETS FILE "MSBOOT.BOT"
	.GOSUB COPY
	.SETS FILE "DISMT1.COM"
	.GOSUB COPY
	.SETS FILE "DISMT2.COM"
	.GOSUB COPY
	.SETS FILE "V5NOTE.TXT"
	.GOSUB COPY
	.SETS FILE "CUSTOM.TXT"
	.GOSUB COPY
	.SETS FILE "RTBL.MAP"
	.GOSUB COPY
	.SETS FILE "RTFB.MAP"
	.GOSUB COPY
	.SETS FILE "RTSJ.MAP"
	.GOSUB COPY
	.SETS FILE "RTXM.MAP"
	.GOSUB COPY
	.IFT DIR DIR/VOL/OUT:'KITMAP':DXRT8.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':DXRT8.COM/CO:1/FAST 'DEV':

.DX9:
	.IFT DXRT .SETS VOLID "AS-P753D-BA"
	.IFT DXRT .SETS OWNER "RX1 9"
	.GOSUB NEWVOL
	.SETS FILE "BATCH.SAV"
	.GOSUB COPY
	.SETS FILE "QUEMAN.SAV"
	.GOSUB COPY
	.SETS FILE "TS.MAC"
	.GOSUB COPY
	.SETS FILE "TM.MAC"
	.GOSUB COPY
	.SETS FILE "VM.MAC"
	.GOSUB COPY
	.SETS FILE "SPEED.SAV"
	.GOSUB COPY
	.SETS FILE "SETUP.SAV"
	.GOSUB COPY
	.SETS FILE "SPLIT.SAV"
	.GOSUB COPY
	.SETS FILE "UCL.SAV"
	.GOSUB COPY
	.SETS FILE "VBGEXE.SAV"
	.GOSUB COPY
	.SETS FILE "KEX.SAV"
	.GOSUB COPY
	.SETS FILE "LET.SAV"
	.GOSUB COPY
	.SETS FILE "UNSUP.TXT"
	.GOSUB COPY
	.SETS FILE "QUEUE.REL
	.GOSUB COPY
	.SETS FILE "RTMON.REL"
	.GOSUB COPY
	.SETS FILE "CONSOL.MAC"
	.GOSUB COPY
	.SETS FILE "SAMPLE.KED"
	.GOSUB COPY
	.SETS FILE "DATIME.SAV"
	.GOSUB COPY
	.SETS FILE "DATIME.COM"
	.GOSUB COPY
	.SETS FILE "VTCOM.SAV"
	.GOSUB COPY
	.SETS FILE "VTCOM.REL"
	.GOSUB COPY
	.SETS FILE "TRANSF.SAV"
	.GOSUB COPY
	.SETS FILE "SPOOL.REL"
	.GOSUB COPY
	.SETS FILE "VTMAC.MAC"
	.GOSUB COPY
	.SETS FILE "VTHDLR.OBJ"
	.GOSUB COPY
	.SETS FILE "DEMOBG.MAC"
	.GOSUB COPY
	.SETS FILE "DEMOFG.MAC"
	.GOSUB COPY
	.SETS FILE "DEMOX1.MAC"
	.GOSUB COPY
	.SETS FILE "DEMOF1.FOR"
	.GOSUB COPY
	.SETS FILE "DEMOED.TXT"
	.GOSUB COPY
	.SETS FILE "PUTSTR.FOR"
	.GOSUB COPY
	.SETS FILE "GETSTR.FOR"
	.GOSUB COPY
	.IFT DIR DIR/VOL/OUT:'KITMAP':DXRT9.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':DXRT9.COM/CO:1/FAST 'DEV':

.DX10:
	.IFT DXRT .SETS VOLID "AS-V032D-BC"
	.IFT DXRT .SETS OWNER "RX1 10"
	.GOSUB NEWVOL
	.SETS FILE "SWAP.SYS"
	.GOSUB COPY
	.SETS FILE "RT11AI.SYS"
	.GOSUB COPY
	.SETS FILE "RT11PI.SYS"
	.GOSUB COPY
	.SETS FILE "TT.SYS"
	.GOSUB COPY
	.SETS FILE "PD.SYS"
	.GOSUB COPY
	.SETS FILE "TERMID.SAV"
	.GOSUB COPY
	.SETS FILE "PIP.SAV"
	.GOSUB COPY
	.SETS FILE "DIR.SAV"
	.GOSUB COPY
	.SETS FILE "IND.SAV"
	.GOSUB COPY
	.SETS FILE "DUP.SAV"
	.GOSUB COPY
	.SETS FILE "STARTA.COM"
	.GOSUB COPY
	.SETS FILE "VERIFY.COM"
	.GOSUB COPY
	.SETS FILE "IVP.MAC"
	.GOSUB COPY
	.SETS FILE "IVP.COM"
	.GOSUB COPY
	.SETS FILE "CONFIG.SAV"
	.GOSUB COPY
	.SETS FILE "CONFIG.COM"
	.GOSUB COPY
	.SETS BOTFIL "RT11AI.SYS"
	.SETS BT ":PD"
	.GOSUB COPBOT
	.IFT DIR DIR/VOL/OUT:'KITMAP':DXRT10.DIR 'DEV':
	.IFT DIR DIR/OUT:'KITMAP':DXRT10.COM/CO:1/FAST 'DEV':
	;
	;The RT-11 V5.1 RX01 Binary kit has been created successfully
	;Good bye.
	.STOP



.CHKDEV:.;CHKDEV checks whether a device is legal, and supplies a default
	.;unit number 0 if no unit was given by the user. It will also change
	.;a device such as DX: to DX0. If the device DEV is legal, DEVOK
	.;will be set true, otherwise it will be set false, and an
	.;appropriate message will be printed.  If a RL02 kit is being build,
	.;DNRT is set true instead of DLRT
	.;
	.SETT DEVOK
	.SETS TEMP DEV[1:2]
	.IF TEMP = "DX" .OR .IF TEMP = "DY" .GOTO 503
	.IF TEMP = "RX" .OR .IF TEMP = "DZ" .GOTO 503
	.IF TEMP = "DL" .OR .IF TEMP = "RK" .GOTO 503
	.IF TEMP = "DM" .OR .IF TEMP = "DP" .GOTO 503
	.IF TEMP = "DD" .OR .IF TEMP = "MT" .GOTO 503
	.IF TEMP = "DU" .GOTO 503
	.GOTO 598
.503:
	.SETF DXRT
	.SETF DYRT
	.SETF DZRT
	.SETF DLRT
	.SETF DNRT
	.SETF RKRT
	.SETF DMRT
	.SETF DPRT
	.SETF DDRT
	.SETF MTRT
	.SETF RXRT
	.SETF DURT
	.SETF AZRT
	.SETT 'TEMP'RT
	.IFF DLRT .GOTO 505
	;
	;
	; Which type of RT-11 V5 kit are you building?
	;     1 = RL01		2 = RL02
	.ASKN TYP Enter 1 or 2
	.IF TYP EQ 1 .GOTO 505
	.SETF DLRT
	.SETT DNRT
.505:
	.IFF DURT .GOTO 506
	;
	;
	; Which type of RT-11 V5 kit are you building?
	;	1 = RX50 (PDP-11)	
	;	2 = RX50 (PROFESSIONAL 300)
	;	3 = RC25 (Aztec)
	.ASKN TYP Enter 1, 2 or 3
	.IF TYP EQ 1 .SETT RXRT
	.IF TYP EQ 2 .SETT DZRT
	.IF TYP EQ 3 .SETT AZRT

.506:	.IF <STRLEN> = 2 .SETS DEV DEV+"0"
	.SETS TEMP ":"
	.IF TEMP = DEV[3:3] .SETS DEV DEV[1:2]+"0"
	.SETS TEMP DEV[3:3]
	.IF TEMP LT "0" .GOTO 598
	.GOTO 599
.598:	;
	;
	;?RT-11-Unsupported device 'DEV':
	.SETF DEVOK
.599:	.RETURN
	.;End of CHKDEV


..;SETVOL:.;This procedure sets up the volume id and owner name for the first
	.;volume to be created.  For additional volumes these values must be
	.;incremented.
.NEWVOL:
	.;This procedure mounts a new volume in DEV and initializes it.
.5N:	;
	;
	; Mount the blank volume in 'DEV'.
	.ASK REDY Press RETURN when ready
	.IFF $FMT$ .GOTO 7N
	.IFF RKRT .IFF DYRT .GOTO 7N
	FORMAT/NOQ 'DEV':
	.IF <EXSTAT> LE 1 .GOTO 7N
	;
	;
	;ERROR FORMATTING 'DEV':
	.ASK RETRY TRY AGAIN
	.IFT RETRY .GOTO 5N
	.STOP

.7N:	.OPEN BILDRT.TMP
	.IFT MTRT .DATA INIT/VOL/NOQ 'DEV':
	.IFF MTRT .DATA INIT/BAD/VOL/NOQ 'DEV':
	.DATA 'VOLID'
	.DATA 'OWNER'
	.CLOSE BILDRT.TMP
	$@BILDRT.TMP
	.IF <EXSTAT> LE 1 .GOTO 10N
	;
	;
	;Error initializing 'DEV'
	.GOTO 5N
.10N:	.TESTFILE 'DEV':FILE.BAD
	.IF <FILERR> NE 1 .GOTO 15N
	;
	;
	;This volume contains bad blocks.
	.ASK USE Do you still want to use it
	.IFF USE .GOTO 5N
.15N:	.IFT MTRT .OR .IFT DKRT .GOTO LLL
	.IFT DYRT .GOTO XYZ
	.IF NUM <> 1 .GOTO XYZ
	.IF ARG = "-T" .GOTO SUE
	.SETS ARG "-T"
	.GOTO LLL
.SUE:	.SETS ARG ""
.XYZ:	
.LLL:	.IF	ARG	EQ "-T" ;HELLO
	.RETURN

.COPY:	
	.IFF MTRT .GOTO COP10
	.ENABLE QUIET
	UNLOAD MT
	LOAD MT
	.DISABLE QUIET
.COP10:	.;THIS PROCEDURE COPYS THE FILE IN 'FILE' TO THE NEW RT-11
	.;VOLUME.
	COPY/SYS/NOLOG/'PRT'PROTECT 'MASTER':'FILE' 'DEV':'POS'
	.IF <EXSTAT> LE 1 .RETURN
	;
	;
	;ERROR COPYING 'MASTER':'FILE' TO 'DEV':
	.ASK RETRY Try again
	.IFT RETRY .GOTO COPY
	.STOP

.RENAME:	
	.;THIS PROCEDURE RENAMES 'DEV':'INSPEC' TO 'DEV':'OUSPEC'
	UNPROTECT/SYS/INFO 'DEV':('OUSPEC','INSPEC')
	.IF <EXSTAT> LE 1 .GOTO REN10
	;
	;ERROR UNPROTECTING 'DEV':('OUSPEC','INSPEC')
	.ASK RETRY Try again?
	.IFT RETRY .GOTO RENAME
.REN10:	
	RENAME/SYS/'PRT'PROTECT 'DEV':'INSPEC' 'DEV':'OUSPEC'
	.IF <EXSTAT> LE 1 .RETURN
	;
	;
	;ERROR RENAMEING 'DEV':'INSPEC' TO 'DEV':'OUSPEC'
	.ASK RETRY Try again
	.IFT RETRY .GOTO REN10
	.STOP

.COP:	
	.;THIS PROCEDURE COPIES 'DEV':'INSPEC' TO 'DEV':'OUSPEC'
	UNPROTECT/SYS/INFO 'DEV':'OUSPEC'
	.IF <EXSTAT> LE 1 .GOTO C10
	;
	;ERROR UNPROTECTING 'DEV':'OUSPEC'
	.ASK RETRY Try again?
	.IFT RETRY .GOTO COP
.C10:	
	COPY/SYS/VERIFY/'PRT'PROTECT 'DEV':'INSPEC' 'DEV':'OUSPEC'
	.IF <EXSTAT> LE 1 .RETURN
	;
	;
	;ERROR COPYING 'DEV':'INSPEC' TO 'DEV':'OUSPEC'
	.ASK RETRY Try again
	.IFT RETRY .GOTO C10
	.STOP

.COPBOT:
	.;THIS PROCEDURE COPIES THE BOOTSTRAP TO VOLUME 1.
	.IFT MTRT .RETURN
	.IF TOTVOL <> 7 .GOTO 5A
.5A:	COPY/BOOT'BT' 'DEV':'BOTFIL' 'DEV':
	.SETS BT ""
	.IF <EXSTAT> LE 1 .RETURN
	;
	;
	;Error copying bootstrap.
	.STOP