.; .MODULE AI,VERSION=45,COMMENT= .; .; COPYRIGHT (c) 1989, 1992 BY .; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. .; ALL RIGHTS RESERVED .; .;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED .;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE .;INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER .;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY .;OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY .;TRANSFERRED. .; .;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE .;AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT .;CORPORATION. .; .;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS .;SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. .;*********************************************************************** .; STARTA.COM .; RT-11 AUTOMATIC INSTALLATION PROGRAM .;*********************************************************************** .; INITIALIZATION CODE FOR ALL CONFIGURATIONS .;*********************************************************************** .SETS RTVERS "V5.6" .SETS SYVOL "RT-11 'RTVERS' BIN " .SETN CCVAL 7 .SETS BEEP "'CCVAL%V'" .SETN CCVAL 27. .SETS ESC "'CCVAL%V'" .SETN TRGNUM 0 .SETF RL01S .SETF RL02S .SETF DL2 .SETF DL1 .SETF FIXD .SETF VMRX .SETN RX33 0 .ENABLE QUIET .DISABLE PREFIX,SUFFIX,TYPEAHEAD,ABORT $SET TT QUIET $SET EXIT NOSWAP .SETF VT100 .TESTFILE TERMID.SAV .SETS ERRTYP " running TERMID.SAV" .IF NE .GOTO CRASH $TERMID .IF EQ 1 .SETT VT100 .IFT VT100 ; 'ESC'<'ESC'[?5h'ESC'[?4l'ESC'[H'ESC'[2J'ESC'[4;22r .SETS HEDSTR "RT-11 Automatic Installation Process" .GOSUB HEADER .TESTFILE RX.TMP .IF EQ .SETT VMRX ; ; Determining system configuration, please wait... .SETF HELP .SETS SYSTEM "''''" .SETF DL .SETF DU .SETF DY .SETF VM .SETF RK .SETT '' .IFF DU .IFF DY .IFF DL .IFF VM .GOTO FEXIT .SETS DISK "diskette" .IFT DL .SETS DISK "disk" .TESTFILE CONFIG.SAV .SETS ERRTYP "running CONFIG.SAV" .IF NE .GOTO CRASH .; .; this procedure determines valid source devices .; .IFT DU .OR .IFT VMRX .SETS DEFSRC "DU0,DU1,DU2,DU3" .IFT DL .SETS VALSRC "DL0,DL1" .IFT DY .SETS VALSRC "DY0,DY1" .IFT VM .IFF VMRX .SETS VALSRC "MU0" .IFF DU .IFF VMRX .GOTO NXTSRC .NXTDU: .PARSE DEFSRC "," TRYDU DEFSRC $CONFIG 'TRYDU':/N:"RX 33" .IF EQ 1 .INC RX33 .IF NE 1 $CONFIG 'TRYDU':/N:"RX 50" .IF EQ 1 .SETS VALSRC VALSRC+TRYDU+"," .IF DEFSRC NE "" .GOTO NXTDU .IFNDF VALSRC .GOTO FEXIT .IFT DU .IF RX33 EQ 1 .GOTO INRX33 .NXTSRC: .PARSE VALSRC "," LEFT RIGHT .IFT VM .SETS SYSTEM LEFT .IFT VM .SETS RIGHT LEFT .SETS OTHER LEFT .IF RIGHT NE SYSTEM .SETS OTHER RIGHT .IF OTHER EQ "" .GOTO FEXIT ; .; this procedure determines valid target devices .; .SETF DLCHK .SETF DUCHK .SETF DMCHK $CONFIG /A:174400 .IF EQ 1 .SETT DLCHK $CONFIG /A:172150 .IF EQ 1 .SETT DUCHK $CONFIG /A:177440 .IF EQ 1 .SETT DMCHK .IFT DLCHK .SETS TRIALS "DL0,DL1," .IFT DUCHK .SETS TRIALS "DU0,DU1,DU2,DU3,"+TRIALS .IFT DMCHK .SETS TRIALS "DM0,DM1,DM2,DM3,DM4,DM5,DM6,DM7,"+TRIALS .IFNDF TRIALS .GOTO FEXIT .TRYNXT: .IF TRIALS = "" .GOTO PREX .PARSE TRIALS "," TRY TRIALS .SETS TRYD TRY[1:2] .IF TRYD NE "DU" .GOTO NOTDU $CONFIG 'TRY':/Q .IF NE .GOTO TRYNXT .GOTO ADDTRY .NOTDU: .TESTDEVICE 'TRY' .PARSE "," DNAME DSIZE REST .IFT DL .IF DNAME EQ SYSTEM .IF DSIZE EQ "20450." .SETT RL02S .IFT DL .IF DNAME EQ SYSTEM .IF DSIZE EQ "10210." .SETT RL01S .IFT RL01S .GOTO FEXIT .IF DNAME = "NSD" .OR .IF DNAME = SYSTEM .GOTO TRYNXT .IF DSIZE EQ "20450." .SETT DL2 .IF DSIZE EQ "10210." .SETT DL1 .ADDTRY: .SETN TRGNUM TRGNUM+1 .IF TRGNUM EQ 1 .SETS TRGVAL TRY .IF TRGNUM GT 1 .SETS TRGVAL TRGVAL+", "+TRY .IF TRIALS NE "" .GOTO TRYNXT .PREX: .IFF RL02S .IFT DL2 .SETF DL2 .IFT RL01S .IFT DL1 .SETT DL2 .IFNDF TRGVAL .GOTO FEXIT .GOSUB HEADER .IFT VMRX .GOTO PREDU .GOTO PRE'' .PREVM: .;IDs and OWNERs for working system volume .SETS DISK "Tape" .SETS VITD0 "HU21J " .SETS PRSNAM "MU0,T" .GOTO PREALL ; .PREDY: .;IDs and OWNERs for RX02 distribution .SETS VIYD0 "BA-P732P-BC " .SETS VIYD1 "BA-P727P-BC " .SETS VIYD2 "BA-P728P-BC " .SETS VIYD3 "BA-P729P-BC " .SETS VIYD4 "BA-P730P-BC " .SETS VIYD5 "BA-P731P-BC " .SETS VIYD6 "BA-JG81J-BC " .SETS VIYD7 "BA-KN41H-BC " .SETS VIYD8 "BA-LC47B-BC " .;LABELS FOR RX02 ORIGINAL DISTRIBUTIONS .SETS PRSNAM "RX02,Y" .SETN MAXVOL 8. .GOTO PREALL ; .PREDL: .;IDs, OWNERs and LABELs for RL02/RL01 original distribution .SETS VILD0 "BC-P607P-BC " .IFF RL02S .SETS VILD0 "AX-P608P-BC " .SETS RLNUM "2" .IFF RL02S .SETS RLNUM "1" .;IDs, OWNERs and LABELs for RL02/RL01 distribution backup .SETS VILB1 "RTV5 BKUP " .SETS VOLB1 "RL'RLNUM' 1/1" .SETS PRSNAM "RL0'RLNUM',L" .GOTO PREALL .PREDU: .;IDs and OWNERs for RX50 distribution .SETS VIFD0 "BL-P746P-BC " .SETS VIFD1 "BL-P741P-BC " .SETS VIFD2 "BL-P742P-BC " .SETS VIFD3 "BL-P743P-BC " .SETS VIFD4 "BL-P744P-BC " .SETS VIFD5 "BL-P745P-BC " .SETS VIFD6 "BL-AV43P-BC " .SETS VIFD7 "BL-ED30L-BC " .SETS VIFD8 "BL-JR60J-BC " .SETS VIFD9 "BL-LC49B-BC " .SETS VIFD10 "BL-PHZUA-BC " .;LABELS FOR RX50 ORIGINAL DISTRIBUTIONS .SETS PRSNAM "RX50,F" .SETN MAXVOL 10. .; Constant - number of floppies in RX50 .; Drop down to PREALL .PREALL: .PARSE PRSNAM "," DTYPE MIDDLE .SETS LAB SYVOL+DTYPE+" - " .IFT DL .SETS LAB SYVOL+DTYPE+" 1/1" .SETF DLMOUT .SETF DLBACK .SETS ERRTYP ": Installation 'DISK' contains invalid volume ID." .ONERR CRASH .VOL VOLID 'SYSTEM' .ONERR .SETN COUNT 0. .IF VOLID NE VI'MIDDLE'D'COUNT' .GOTO CRASH .SETS OTHERD OTHER+" (Drive "+OTHER[3:3]+")" .SETS SYSTMD SYSTEM+" (Drive '')" .IFT VM .SETS SYSTMD SYSTEM+" (Drive "+SYSTEM[3:3]+")" ; .INIALL: ; Welcome to RT-11 'RTVERS' ; .IFT DL .GOSUB INIDL .IFT VM .IFF VMRX .GOSUB INIDL .IFF DL .IFF VM .OR .IFT VMRX .GOSUB INIWYZ .IFF DL .GOSUB RURTC .INTRG: .SETF FIXD .SETF DLMOUT .SETS HEDSTR "RT-11 Automatic Installation Process" .GOSUB HEADER .DISABLE LOWERCASE .IF TRGNUM GT 1 .GOSUB VALDEV .ENABLE LOWERCASE .IF TRGNUM LE 1 .GOSUB DEFDEV .SETS OUTD RDUNIT[1:2] .IF OUTD EQ "DL" .OR .IF OUTD EQ "DM" .SETT DLMOUT .IF OUTD NE "DU" .GOTO INTRTC $CONFIG 'RDUNIT':/T:FIX .IF EQ .SETT FIXD ; .INTRTC: .GOSUB GETDAT .SETS HEDSTR "Building a Working System" .GOSUB HEADER .SETS OUVID "RT11 'RTVERS'" .SETS OUOWN RDUNIT+" WORK" .SETS LABEL "RT-11 'RTVERS' BIN WORKING" .IFT VM .IFF VMRX .OR .IFT DL .GOSUB INSTDL .IFT VMRX .OR .IFF DL .IFF VM .GOSUB INSTRX .INTBOT: .;Boot the working volume. .; .SETS HEDSTR "RT-11 'RTVERS' Installation Complete" .GOSUB HEADER ; ; Your working system disk will now be bootstrapped. .GOSUB RURTC .IFT VT100 ;'ESC'[2J'ESC'[?5l'ESC'[r .BOOT: $BOOT 'RDUNIT': .SETS DCLCMD "BOOT" .SETS ERRTYP " bootstrapping 'RDUNIT'" .GOTO DCLERR .INIWYZ: ; You have bootstrapped the RT-11 'RTVERS' Installation Diskette. ; ; Your RT-11 'RTVERS' software package has two sets of 'DTYPE' diskettes ; containing identical copies of the RT-11 software. Each set ; consists of a 'MAXVOL' diskette operating system and one installation ; diskette. ; ; One set is your master copy; store it in a safe place. The ; other set, from which the installation diskette is now mounted, ; is the set you will use to build your working system volume. ; .GOSUB GUIDE .IFT VMRX .RETURN ; ; Remember that the 'DTYPE' drives are numbered from top to bottom on a ; horizontally mounted unit, and left to right on a vertically mounted ; unit. The top or left-hand drive is 'LEFT' and the bottom or ; right-hand drive is drive 'RIGHT'. .RETURN .INIDL: ; You have bootstrapped the RT-11 Distribution 'disk'. Use this 'disk' to ; install your RT-11 system, then store it in a safe place. ; ; ; RT-11 'RTVERS' provides an automatic installation procedure which will .IFT DL2; back up your distribution disk and build a working system disk to .IFT DL2; be used for your work with RT-11. .IFF DL2; build a working system disk to be used for your work with RT-11. ; ; This working system disk will only contain the RT-11 operating ; system. After the RT-11 installation is complete, follow the ; installation instructions packaged with any optional languages or ; utility software that you will be using. ; .IFT DL .GOSUB RTMNL .IFT VM .SETS DISK "disk" .GOSUB GUIDE ; ; Do not remove any disk until specifically instructed to do so. ; Once a disk is mounted in a drive, it must remain in the drive ; until a message appears asking you to remove the disk. .IFF VM .GOSUB RURTC .IFT DL2 .GOSUB BACKDL .RETURN .RTMNL: ; .GOSUB RURTC .GOSUB HEADER ; You can choose to install RT-11 manually. This procedure is ; described in the RT-11 Installation Guide. ; ; If you are a new user of RT-11, DIGITAL highly recommends that you ; use the automatic installation procedure. ; .INTUSE: ; Do you want to use the automatic installation procedure? .ASK USE (Type YES or NO and press the "RETURN" key): .IFT .GOTO INTUSE .IFF USE .GOTO INTMNL .RETURN .;****************************** .; RL02 CONFIGURATION PROCEDURES .;****************************** .; .BACKDL: .;Backup a RL02 distribution kit .; .SETS HEDSTR "Backing Up Distribution Disk .GOSUB HEADER ; ; A backup copy of the distribution disk will now be built. .SETS OUVID VILB1 .SETS OUOWN VOLB1 .SETT HELP .SETT DLMOUT .SETS RDUNIT OTHER .SETS OUTD RDUNIT[1:2] .SETS LABEL "BACKUP" .GOSUB MNTLAB .SETF HELP .GOSUB HEADER ; ; Now copying the distribution disk from 'SYSTMD' to 'OTHERD'. ; ; This may take up to five minutes. Please wait... ; .GOSUB COPYSY .GOSUB COPBOT .GOSUB HEADER ; ; Your backup copy of the distribution disk is in 'OTHERD'. ; ; Refer to the Installation Guide for instructions to dismount a disk. .GOSUB YHR .SETF DLMOUT .SETS HEDSTR "RT-11 Automatic Installation Process" .RETURN .INSTDL: .;Install RT-11 on a working system disk from a single distribution volume. .; ; ; Your working system disk will now be built automatically. This disk ; will contain the RT-11 Operating System. ; .GOSUB MNTLAB .GOSUB HEADER ; ; Now copying RT-11 from 'SYSTMD' to 'RDUNIT'. ; .IFT VM .GOSUB INSVM .IFF VM; This can take approximately two minutes. Please wait... .IFT DL .GOSUB COPYSY .GOSUB COPBOT .SETS INSPEC RDUNIT+":*.*" .GOSUB UNPROT .RETURN .INSVM: ; This can take approximately one hour. Please wait... .;??? here force a rewind??? .SETS INSPEC DTYPE+":*.*/SYS/POS:-1" .SETS OUSPEC RDUNIT+":/NOREP" .GOSUB COPY .RETURN .;*********************************************************************** .; MICRO PDP-11 AND PC300 PROCEDURES .;*********************************************************************** .INSTRX: .SETS PRODSK "" .GOSUB MNTLAB .SETS INSPEC "'OTHER':*.*" .SETS OUSPEC "'RDUNIT':*.*" .RX10: .GOSUB HEADER ;'BEEP' .INC COUNT ; Mount 'LAB''COUNT' in 'OTHERD'. .SETS VID VI'MIDDLE'D'COUNT' .GOSUB MOUNT .GOSUB HEADER ; ; Now copying 'LAB''COUNT' to the output disk ('RDUNIT'). ; ; This can take approximately two minutes. Please wait... .GOSUB COPY'PRODSK' .SETS PRODSK "" .IFF DU .IFF VMRX .GOTO RX11 .IF COUNT EQ MAXVOL-1 .SETS PRODSK "PR" .RX11: .IF COUNT LT MAXVOL .GOTO RX10 ; ; Remove 'LAB''COUNT' from 'OTHER'. .GOSUB YHR .IFF VMRX .GOTO COPLST .GOSUB HEADER ; Mount 'SYVOL' AUTO in 'OTHERD' .SETS VID VIFD0 .GOSUB MOUNT .COPLST: ;'BEEP' .GOSUB COPBOT $COPY/NOLOG/SYS 'SYSTEM':(RT11AI.SYS,TERMID) 'OUSPEC' $COPY/NOLOG 'SYSTEM':(STARTA,IVP,CONFIG) 'OUSPEC' .IFF DU .IFF VMRX .GOTO RX12 $COPY/NOLOG 'SYSTEM':(SYSGEN.COM) 'OUSPEC' .RX12: .IFF DY .RETURN $COPY/NOLOG 'SYSTEM':(RT*.MAP,CUSTOM.TXT,HELP.SAV,VTCOM.REL) 'OUSPEC' .RETURN .COPYPR: $COPY/NOLOG/SYS 'OTHER':(DW,DZ,PI,XC).SYS 'OUSPEC' .IF NE .GOTO COPERR $COPY/NOLOG/SYS 'OTHER':(DW,DZ,NC,PI,XC)X.SYS 'OUSPEC' .IF NE .GOTO COPERR $COPY/NOLOG 'OTHER':(DW,DZ,NC,XC).MAC 'OUSPEC' .IF NE .GOTO COPERR $COPY/NOLOG 'OTHER':(GIDIS.SAV,ALPH00.FNT) 'OUSPEC' .IF NE .GOTO COPERR .RETURN .;****************** .; COMMON PROCEDURES .;****************** .HEADER: .; .; Clear the Screen and Display Heading .; .IFF VT100 .RETURN ;'ESC'[H'ESC'[2J'ESC'[4;22r ; 'ESC'#3 'HEDSTR' ; 'ESC'#4 'HEDSTR' ; 'ESC'[4;1H'ESC'[m .RETURN ; .GUIDE: ; .IFF DL .GOSUB RURTC .GOSUB HEADER ; You will be guided through the installation process by a series of ; instructions and questions; you will have an interactive dialog with ; the RT-11 installation program. All you need to do is follow the ; instructions carefully. If the instructions ask you to mount a ; 'disk' in a specified drive, find the 'disk' with the correct ; label and mount it in the drive, as shown in the RT-11 Automatic ; Installation Guide. .RETURN ; .VALDEV: .PARSE TRGVAL "," TRY VALD ; ; The following devices are valid for RT-11 System Installation: ; ; 'TRGVAL' ; ; Please enter the device name you wish the working system built on. ; If the default device is correct, press RETURN. ; .ASKS [3:3:TRY] DNAME What device is the working system to be built on ('TRY')? .IFT .OR .IF DNAME EQ TRY .GOTO VALEX .VALCH: .PARSE VALD "," TRY VALD .IF DNAME EQ TRY[2:4] .GOTO VALEX .IF VALD NE "" .GOTO VALCH ; ; Not a valid target device 'DNAME'... ; .GOTO VALDEV .VALEX: .SETS RDUNIT DNAME .RETURN .DEFDEV: ; ; Your working system will be built on 'TRGVAL'... ; .SETS RDUNIT TRGVAL .GOSUB RURTC .RETURN .YHR: .SETS READY "you have removed the 'DISK'" .GOTO CONTIN .YHM: .SETS READY "you have mounted the 'DISK'" .GOTO CONTIN .RURTC: .SETS READY "ready to continue" .CONTIN: .SETF REPEAT ; .ASK [] CONT Press the "RETURN" key when 'READY'. ; .IFT CONT .RETURN ; .CON10: .SETT REPEAT .ASK CONT Do you want to continue with this installation? .IFT .GOTO CON10 .IFT CONT .RETURN .SETS HEDSTR "Installation Aborted" .GOSUB HEADER ; ; Installation aborted by operator. ; ; Reboot 'SYVOL''DTYPE' AUTO to begin again. .EXIT ; .GETDAT: .IF NE " " .RETURN .SETS HEDSTR "Enter Today''s Date" .GOSUB HEADER ; ; Please enter today''s date in the following format: ; ; DD-MMM-YY ; ; where DD is the day of the month ; MMM is the first 3 letters in the name of the month ; YY is the last two numbers of the year ; ; For example: January 1, 1989 is 1-JAN-89 ; ; Type in the date, then press the "RETURN" key. ; .ASKS DAT ; ; .IF DAT EQ "" .RETURN $DATE 'DAT' .IF EQ .GOTO MODDAT ; ; Wrong format for date. .GOSUB RURTC .GOTO GETDAT .MODDAT: .PARSE DAT "-" DAY MON YEA .SETS DAT ":"+DAY+":"+MON+":"+YEA .RETURN ; .MOUNT: .GOSUB YHM .ONERR CRASH .VOL VOLID 'OTHER' .ONERR .IF VOLID EQ VID .RETURN ; Wrong diskette is mounted in 'OTHERD' or the diskette ; mounted in 'OTHERD' is not properly mounted. See the ; RT-11 Automatic Installation Guide for mounting instructions. ; .GOTO MOUNT ; .MNTLAB: ; .IFT FIXD .GOTO TESTRD ; Select a blank disk, label it "'LABEL'" and ; mount it in 'RDUNIT'. ; .SETS READY "you have mounted the disk" .GOSUB CONTIN ; .TESTRD: ; Please be sure the 'RDUNIT' device is on line... ; .GOSUB RURTC .TESTDEVICE 'RDUNIT' .TEST "ONL" .IF NE 0 .GOTO MNTCOM ; ; 'RDUNIT' device is not on line... ; See your 'OUTD' device User''s Guide for instructions to mount a disk. ; .GOTO TESTRD ; .MNTCOM: .IFT REPEAT .GOTO MNTLAB .STRUCTURE TYPE 'RDUNIT': .SETN NTYPE 'TYPE'/10 .IF NTYPE = 0 .GOTO INIBLK .IF NTYPE = 1 .SETS STRUCT " PDP/8 " .; this part of code is position dependent and should not be replaced .IF NTYPE = 2 .GOTO FLCHK .IF NTYPE = 3 .SETS STRUCT " RSTS " .IF NTYPE = 4 .SETS STRUCT "FILES-11" .IF NTYPE = 5 .SETS STRUCT " UNIX " .IF NTYPE = 6 .SETS STRUCT " DSM " .IF NTYPE = 10 .SETS STRUCT " CP/M " .IF NTYPE = 11 .SETS STRUCT " UCSD " .IF NTYPE = 12 .SETS STRUCT " MS-DOS " .IFNDF STRUCT .SETS STRUCT "UNKNOWN " .GOSUB HEADER ; The Automatic Installation Procedure has detected that the working ; volume you specified has been previously used as a 'STRUCT' disk. .GOTO MNT20 .FLCHK: ; ; Please be sure your output device in 'RDUNIT' is not write protected... ; .GOSUB RURTC .SETS INSPEC "'RDUNIT':CI.TMP" .TESTFILE 'INSPEC' .IF EQ $DELETE/NOQ 'INSPEC' $DIR/OUT:'INSPEC' 'RDUNIT': .IF EQ 1 .TESTFILE 'INSPEC' .IF EQ .GOTO FLCHK1 ; ; An error occurred in attempt to access 'RDUNIT'. .GOSUB BADMNT .IFF FIXD ; - Output disk is not backup disk .GOSUB CON10 .GOTO INTRG .FLCHK1: .SETS INSPEC "'RDUNIT':CI.TMP" .OPENR 'INSPEC' .READ LINE .READ LINE .CLOSE .GOSUB DELETE .IF LINE EQ "" .GOTO INIBLK .GOSUB HEADER .IFF DL .GOTO MNT15 .VOL VOLID 'RDUNIT' .SETS NOBLK " contains files." .IF VOLID EQ VILD0 .SETS NOBLK "is an original distribution " .IF VOLID EQ VILB1 .SETS NOBLK "is a backup disk" ;'BEEP' ; Your output device in 'RDUNIT' 'NOBLK' .GOTO MNT20 .MNT15: ; ; The Automatic Installation Procedure has detected RT-11 files on ; your working system volume. .MNT20:; ; The next procedure initializes 'RDUNIT'. As a result, any files ; that currently reside on 'RDUNIT' will be permanently lost. If you ; would like to retain any files, EXIT from Automatic Installation ; Procedure and copy them to another volume. ; ; .ASK [] CONT Do you want to EXIT from Automatic Installation (Y)? .IFT CONT .GOTO FAEXIT .; drop to iniblk ; .INIBLK: .GOSUB HEADER .IFF HELP .GOTO INI3 ; ; Before a blank disk can be used it must be prepared so that ; the software can write data to it. This preparation is called ; initialization. ; .INI3: ; The disk in 'RDUNIT' is now being initialized. ; ; The following procedure should produce informational messages ; in the form ?FORMAT-I-Message, or ?DUP-I-Message. No action ; is required as a result of these messages. If BAD blocks are ; detected, the block number will be provided. This information ; should be noted for future reference. ; ; This can take approximately fifteen minutes. Please wait... ; ; .OPEN CI.TMP .SETS ERRTYP " creating CI.TMP." .IF NE .GOTO CRASH .SETS REP "/BAD" .IFT DLMOUT .SETS REP "/REPLACE" .ENABLE DATA $INIT/NOQUERY'REP'/VOL 'RDUNIT': 'OUVID' 'OUOWN' .DISABLE DATA .CLOSE .SETS INSPEC "CI.TMP" $@CI.TMP .SETN CISTAT .GOSUB DELETE .IF CISTAT EQ .RETURN .IF CISTAT NE .GOTO BADINI ; ; If the above warning message is ?DUP-W-Bad blocks detected nnnnnn ; it may be possible to use the volume in 'RDUNIT'. Otherwise, you ; should not continue using it. .REASK1: ; .ASK RETRY Do you want to continue using the volume in 'RDUNIT'? .IFT .GOTO REASK1 .IFF RETRY .GOTO BADRTY .RETURN .BADINI: .IFT FIXD .GOTO BADQIT ; ; An error occurred while initializing 'RDUNIT'. .IFF DL .GOTO BADRTY .GOSUB BADMNT .REASK2: ; .ASK RETRY Do you want to try again? .IFT .GOTO REASK2 .IFF RETRY .GOTO BADRTY .GOSUB RURTC .GOTO INIBLK .BADRTY: ; .ASK RETRY Do you want to try another blank disk? .IFT .GOTO BADRTY .IFF RETRY .GOTO BADQIT .GOTO MNTLAB .BADQIT: .SETS ERRTYP " initializing 'RDUNIT'" .GOTO CRASH .BADMNT: ; This may have been caused by an incorrectly mounted disk. ; Be sure that: ; - Volume is positioned correctly in drive ; - Protective cover(if any) is in place and drive door is closed ; - Drive is write enabled (WRITE PROT light is NOT lit) ; - Yellow LOAD button is pushed and drive is ready .RETURN .BADBLK: .GOSUB HEADER ;'BEEP' ; ; The 'DISK' in 'RDUNIT' contains bad blocks, however this will ; not prevent you from performing a successful RT-11 Installation. ; .GOSUB CON10 .RETURN .COPYSY: $SQU/NOQ/OUT:'RDUNIT': 'SYSTEM': .SETS ERRTYP " copying 'SYSTMD' to 'OTHERD'" .IF GT 1 .GOTO CRASH .RETURN .COPBOT: $COPY/BOOT 'RDUNIT':RT11FB 'RDUNIT': .IF EQ .RETURN .SETS DCLCMD "COPBOT" .SETS ERRTYP " copying the bootstrap to 'RDUNIT' .GOTO DCLERR .DELETE: $DELETE/NOQ 'INSPEC' .IF LE 1 .RETURN .SETS DCLCMD "DELETE" .SETS ERRTYP " deleting 'INSPEC'" .GOTO DCLERR .COPY: $COPY/NOREPL/NOLOG/SYS 'INSPEC' 'OUSPEC' .IF LE 1 .RETURN .COPERR: .SETS DCLCMD "COPY" .SETS ERRTYP " copying 'INSPEC' to 'OUSPEC'" .GOTO DCLERR .UNPROT: $UNPROTECT/NOLOG/SYS 'INSPEC' .IF EQ .RETURN .SETS DCLCMD "UNPROT" .SETS ERRTYP " unprotecting 'INSPEC'" .GOTO DCLERR .DCLERR: ; ; An error occurred'ERRTYP' ; .ASK RETRY Do you want to try again? .IFT RETRY .GOTO 'DCLCMD' .CRASH: .SETS HEDSTR "Installation Error" .GOSUB HEADER ; ;'BEEP' ; Error 'ERRTYP' ; ; If you cannot immediately identify and correct the error, ; please call the HOTLINE number on your instruction sheet ; for assistance. .EXIT .FEXIT: .SETS HEDSTR "Fatal RT-11 Installation Error .GOSUB HEADER ; ; The Installation procedures on this disk cannot be used ; with this hardware configuration. ; .GOSUB RURTC .IFT RK .OR .IFT DL .OR .IFT VM .GOTO INTMNL .IFT DU .IFNDF VALSRC .GOTO INTMNL .;DU = RC25 ; ; At the following prompt, please replace AUTO diskette with ; diskette 1. Then type YES to continue and press the "RETURN" key. ; $BOOT/WAIT SY: ; .EXIT .INTMNL: ; .GOSUB HEADER ; .IFF VM ; The standard RT-11 monitor bootstrap (RT11FB) will now be .IFF VM ; copied to this disk and this system disk will be rebooted. .IFT VM ; RT-11 is currently running from VM. VM also contains the .IFT VM ; utility programs and handlers required for an installation. ; Please refer to the RT-11 Installation Guide for assistance ; while manually installing RT-11 'RTVERS'. .IFT VM .EXIT .SETS RDUNIT SYSTEM .GOSUB COPBOT .GOSUB RURTC .IFT VT100 ;'ESC'[2J'ESC'[?5l'ESC'[r $BOOT 'SYSTEM': .SETS ERRTYP " booting 'SYSTEM'" .GOTO CRASH .FAEXIT: .SETS HEDSTR "Installation Aborted" .GOSUB HEADER ; ; Make a copy of the files on 'RDUNIT' that you want to keep and ; begin the Automatic Installation procedure again. ; .EXIT .INRX33: $INIT/NOQUERY/BAD VM: $COPY/NOLOG 'SYSTEM':(SWAP.SYS,RT11AI.SYS,TT.SYS,VM.SYS,LP.SYS) VM: $COPY/NOLOG 'SYSTEM':(PIP.SAV,DUP.SAV,DIR.SAV,DL.SYS,DM.SYS,DU.SYS) VM: $COPY/NOLOG 'SYSTEM':(STARTA.COM,IND.SAV,FORMAT.SAV,TERMID.SAV,CONFIG.SAV) VM: $CREATE VM:RX.TMP/ALLO:0 $COPY/BOOT VM:RT11AI VM: $BOOT VM: .EXIT