;                RELOAD a new MPE-V/E system from the FOS tape.
;
;
; This command file RELOADs MPE from the Fundamental Operating Software tape to
; a new, blank system disc image.  The default system configuration is changed
; to match the simulated hardware available, mostly by deleting devices that do
; not exist in the simulation configuration.
;
; The command file is invoked as follows:
;
;    hp3000 mpe-ve-1-reload [ <disc-model> ]
;
; ...where the optional disc-model is 7911, 7912, 7914, 7933, 7935, 7936, 7937,
; 7945, 7957B, 7958B, or 7959B.  If the model is omitted, the 7914 is used.
;
; The following media image is used and must be present:
;
;    Tape Image Filename
;    -------------------------
;    32033-10452_Rev-3419.tape
;
; Execution of this command file creates these device media image files:
;
;    Disc Image Filename            Tape Image Filename
;    --------------------------     -------------------------
;    mpe-ve-reload.<model>.disc     mpe-coldload-G.3P.00.tape
;
;    Line Printer Image Filename
;    ---------------------------
;    mpe-ve-1-reload.lst
;
; The printer listing file contains the job commands executed by the AUTOINST
; process.
;
;
; NOTES:
;
;  - An HP 9144A cartridge tape drive is configured as LDEV 5, DRT 89.  It may
;    be used as a serial disc.


; Determine the type of system disc to use.

do configure-disc.inc %1


; Set up the console log.

set -N console log=mpe-ve-1-reload.log


; Verify the presence of the FOS tape image.

if exist "32033-10452_Rev-3419.tape" goto tapeok

echo
echo The FOS tape image file 32033-10452_Rev-3419.tape is not present.
echo The file must be present before this command file can be run.
echo See the accompanying "readme.txt" file for details.
echo

exit


; Configure the CPU.

:tapeok

set CPU S58,4096K
set CPU STOP=COLDLOAD


; Configure the simulation environment.
;
; We configure SCP's "GO UNTIL" command to break execution after a delay to
; allow MPE's I/O driver to turn the ATC port around for input.  With this
; configuration, no reply delay is needed.
;
; We also configure the console DELETE key to send the ASCII DEL character.

break delay 100 milliseconds

set console DEL=177


; Configure the I/O devices.

set GIC COUNT=2
set GICA CHANNEL=11
set GICB CHANNEL=9


; Set the disc mode and attach a blank disc image file.

if "%DEV%" == "DC" set DC0 %MODEL%,BUS=0
set DC1 ENABLED,9144,BUS=1

attach -N %DEV%0 mpe-ve-reload.%MODEL%.disc


; Attach the FOS tape image file.

attach -R MA0 32033-10452_Rev-3419.tape


; Load paper into the system line printer.

attach -N LPA mpe-ve-reload.%MODEL%.list


; Cold load the FOS installation tape.

load


; Run the INITIAL program and reply to the configuration questions.

echo
echo
echo -------------------
echo MPE V/E %MODEL% Reload
echo -------------------
echo


go until "WHICH OPTION <COLDSTART/RELOAD/UPDATE>? "              ; reply "RELOAD\r"
go until "WHICH OPTION <SPREAD/COMPACT/RESTORE/ACCOUNTS/NULL>? " ; reply "SPREAD\r"
go until "ANY CHANGES? "                                         ; reply "YES\r"
go until "LOAD MAP? "                                            ; reply "YES\r"
go until "MEMORY SIZE = 1536 (MIN=256, MAX=8192)?"               ; reply "4096\r"


; Change the I/O configuration.

go until "I/O CONFIGURATION CHANGES? "        ; reply "YES\r"
go until "I/O MAP? "                          ; reply "YES\r"
go until "LIST I/O DEVICES? "                 ; reply "YES\r"
go until "LIST CS DEVICES? "                  ; reply "YES\r"
go until "LIST DEVICE DEFAULTS? "             ; reply "NO\r"
go until "HIGHEST DRT = 63 (MIN=8, MAX=127)?" ; reply "95\r"


; Change the system disc to match the requested model.

go until "LOGICAL DEVICE #? "           ; reply "1\r"
go until "DEVICE NAME? "                ; reply "HP%MODEL%\r"
go until "DRT # = 88?"                  ; reply "\r"
go until "UNIT # = 0?"                  ; reply "\r"
go until "SOFTWARE CHANNEL # = 0?"      ; reply "\r"
go until "TYPE = %TYPE%?"               ; reply "\r"
go until "SUB TYPE = %SUBTYPE%?"        ; reply "\r"
go until "RECORD WIDTH = 128?"          ; reply "\r"
go until "OUTPUT DEVICE = 0? "          ; reply "\r"
go until "ACCEPT JOBS/SESSIONS =  N ? " ; reply "\r"
go until "ACCEPT DATA =  N ? "          ; reply "\r"
go until "INTERACTIVE =  N ? "          ; reply "\r"
go until "DUPLICATIVE =  N ? "          ; reply "\r"
go until "INITIALLY SPOOLED =  N ? "    ; reply "\r"
go until "AUTO REPLY =  N ? "           ; reply "\r"
go until "DRIVER NAME = %DRIVER%? "     ; reply "\r"
go until "DEVICE CLASSES = DISC?"       ; reply "SYSDISC,DISC,SPOOL\r"

go until "IS SYSDISC A SERIAL DISC CLASS? " ; reply "NO\r"
go until "IS SYSDISC A FOREIGN DISC CLASS?" ; reply "NO\r"


; Remove the second (unused) disc drive.

go until "LOGICAL DEVICE #? " ; reply "2\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"


; Change the auxiliary tape drive to an HP 9144 cartridge tape drive.

go until "LOGICAL DEVICE #? "             ; reply "5\r"
go until "DEVICE NAME? "                  ; reply "HP9144\r"
go until "DRT # = 89?"                    ; reply "89\r"
go until "UNIT # = 0?"                    ; reply "0\r"
go until "SOFTWARE CHANNEL # = 0?"        ; reply "\r"
go until "TYPE = 3?"                      ; reply "\r"
go until "SUB TYPE = 3?"                  ; reply "\r"
go until "RECORD WIDTH = 128?"            ; reply "\r"
go until "OUTPUT DEVICE = 0? "            ; reply "\r"
go until "ACCEPT JOBS/SESSIONS =  N ? "   ; reply "\r"
go until "ACCEPT DATA =  N ? "            ; reply "\r"
go until "INTERACTIVE =  N ? "            ; reply "\r"
go until "DUPLICATIVE =  N ? "            ; reply "\r"
go until "INITIALLY SPOOLED =  N ? "      ; reply "\r"
go until "AUTO REPLY =  N ? "             ; reply "\r"
go until "DRIVER NAME = HIOCTAP1? "       ; reply "\r"
go until "DEVICE CLASSES = CTAPE, SDISC?" ; reply "\r"

go until "IS CTAPE A SERIAL DISC CLASS? " ; reply "YES\r"
go until "IS SDISC A SERIAL DISC CLASS? " ; reply "YES\r"


; Change the system line printer to an HP 2617.

go until "LOGICAL DEVICE #? "           ; reply "6\r"
go until "DEVICE NAME? "                ; reply "HP2617\r"
go until "DRT # = 92?"                  ; reply "\r"
go until "UNIT # = 0?"                  ; reply "0\r"
go until "SOFTWARE CHANNEL # = 0?"      ; reply "\r"
go until "TYPE = 32?"                   ; reply "\r"
go until "SUB TYPE = 2?"                ; reply "\r"
go until "RECORD WIDTH = 66?"           ; reply "\r"
go until "OUTPUT DEVICE = 0? "          ; reply "\r"
go until "ACCEPT JOBS/SESSIONS =  N ? " ; reply "\r"
go until "ACCEPT DATA =  N ? "          ; reply "\r"
go until "INTERACTIVE =  N ? "          ; reply "\r"
go until "DUPLICATIVE =  N ? "          ; reply "\r"
go until "INITIALLY SPOOLED =  Y ? "    ; reply "\r"
go until "AUTO REPLY =  N ? "           ; reply "\r"
go until "DRIVER NAME = HIOLPRT2? "     ; reply "\r"
go until "DEVICE CLASSES = LP?"         ; reply "\r"


; Change the primary tape drive.

go until "LOGICAL DEVICE #? "           ; reply "7\r"
go until "DEVICE NAME? "                ; reply "HP7970\r"
go until "DRT # = 72?"                  ; reply "\r"
go until "UNIT # = 0?"                  ; reply "\r"
go until "SOFTWARE CHANNEL # = 0?"      ; reply "\r"
go until "TYPE = 24?"                   ; reply "\r"
go until "SUB TYPE = 0?"                ; reply "\r"
go until "RECORD WIDTH = 128?"          ; reply "\r"
go until "OUTPUT DEVICE = 0? "          ; reply "\r"
go until "ACCEPT JOBS/SESSIONS =  N ? " ; reply "\r"
go until "ACCEPT DATA =  N ? "          ; reply "\r"
go until "INTERACTIVE =  N ? "          ; reply "\r"
go until "DUPLICATIVE =  N ? "          ; reply "\r"
go until "INITIALLY SPOOLED =  N ? "    ; reply "\r"
go until "AUTO REPLY =  N ? "           ; reply "\r"
go until "DRIVER NAME = HIOTAPE0? "     ; reply "\r"
go until "DEVICE CLASSES = TAPE?"       ; reply "TAPE,DDUMP\r"


; Change the secondary tape drives.

go until "LOGICAL DEVICE #? "           ; reply "8\r"
go until "DEVICE NAME? "                ; reply "HP7970\r"
go until "DRT # = 72?"                  ; reply "\r"
go until "UNIT # = 1?"                  ; reply "\r"
go until "SOFTWARE CHANNEL # = 0?"      ; reply "\r"
go until "TYPE = 24?"                   ; reply "\r"
go until "SUB TYPE = 0?"                ; reply "\r"
go until "RECORD WIDTH = 128?"          ; reply "\r"
go until "OUTPUT DEVICE = 0? "          ; reply "\r"
go until "ACCEPT JOBS/SESSIONS =  N ? " ; reply "\r"
go until "ACCEPT DATA =  N ? "          ; reply "\r"
go until "INTERACTIVE =  N ? "          ; reply "\r"
go until "DUPLICATIVE =  N ? "          ; reply "\r"
go until "INITIALLY SPOOLED =  N ? "    ; reply "\r"
go until "AUTO REPLY =  N ? "           ; reply "\r"
go until "DRIVER NAME = HIOTAPE0? "     ; reply "\r"
go until "DEVICE CLASSES = TAPE?"       ; reply "TAPE\r"

go until "LOGICAL DEVICE #? "           ; reply "9\r"
go until "DEVICE NAME? "                ; reply "HP7970\r"
go until "DRT # = 72?"                  ; reply "\r"
go until "UNIT # = 2?"                  ; reply "\r"
go until "SOFTWARE CHANNEL # = 0?"      ; reply "\r"
go until "TYPE = 24?"                   ; reply "\r"
go until "SUB TYPE = 0?"                ; reply "\r"
go until "RECORD WIDTH = 128?"          ; reply "\r"
go until "OUTPUT DEVICE = 0? "          ; reply "\r"
go until "ACCEPT JOBS/SESSIONS =  N ? " ; reply "\r"
go until "ACCEPT DATA =  N ? "          ; reply "\r"
go until "INTERACTIVE =  N ? "          ; reply "\r"
go until "DUPLICATIVE =  N ? "          ; reply "\r"
go until "INITIALLY SPOOLED =  N ? "    ; reply "\r"
go until "AUTO REPLY =  N ? "           ; reply "\r"
go until "DRIVER NAME = HIOTAPE0? "     ; reply "\r"
go until "DEVICE CLASSES = TAPE?"       ; reply "TAPE\r"


; Change the job stream device.

go until "LOGICAL DEVICE #? "           ; reply "10\r"
go until "DEVICE NAME? "                ; reply "HP7970\r"
go until "DRT # = 72?"                  ; reply "\r"
go until "UNIT # = 3?"                  ; reply "\r"
go until "SOFTWARE CHANNEL # = 0?"      ; reply "\r"
go until "TYPE = 24?"                   ; reply "\r"
go until "SUB TYPE = 0?"                ; reply "\r"
go until "RECORD WIDTH = 128?"          ; reply "\r"
go until "OUTPUT DEVICE = 0? "          ; reply "LP\r"
go until "ACCEPT JOBS/SESSIONS =  N ? " ; reply "YES\r"
go until "ACCEPT DATA =  N ? "          ; reply "YES\r"
go until "INTERACTIVE =  N ? "          ; reply "\r"
go until "DUPLICATIVE =  N ? "          ; reply "\r"
go until "INITIALLY SPOOLED =  N ? "    ; reply "\r"
go until "AUTO REPLY =  N ? "           ; reply "\r"
go until "DRIVER NAME = HIOTAPE0? "     ; reply "\r"
go until "DEVICE CLASSES = TAPE?"       ; reply "JOBTAPE\r"


; Remove unused tape and INP devices.

go until "LOGICAL DEVICE #? " ; reply "12\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "15\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "16\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "17\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "18\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"


; Change the terminals from ATP to ADCC.
;
; Subtype 0 = Direct connection with speed sensing (used for ports 0 and 2-7)
; Subtype 1 = Modem connection with speed sensing  (used for port 1)
;
; Term type 10 = HP 264x, HP 262x terminal (used for ports 0-7)
; Term type 18 = Non-HP terminal


go until "LOGICAL DEVICE #? "                                   ; reply "20\r"
go until "DEVICE NAME? "                                        ; reply "HPTERMADCC\r"
go until "DRT # = 9?"                                           ; reply "8\r"
go until "UNIT #? "                                             ; reply "0\r"
go until "SOFTWARE CHANNEL # = 0?"                              ; reply "\r"
go until "TYPE = 16?"                                           ; reply "\r"
go until "SUB TYPE = 0?"                                        ; reply "\r"
go until "ENTER [TERM TYPE #],[DESCRIPTOR FILENAME] = ( 10 ) ?" ; reply "\r"
go until "SPEED IN CHARACTERS PER SECOND = 960?"                ; reply "\r"
go until "RECORD WIDTH = 40?"                                   ; reply "\r"
go until "OUTPUT DEVICE = 20? "                                 ; reply "\r"
go until "ACCEPT JOBS/SESSIONS =  Y ? "                         ; reply "\r"
go until "ACCEPT DATA =  Y ? "                                  ; reply "\r"
go until "INTERACTIVE =  Y ? "                                  ; reply "\r"
go until "DUPLICATIVE =  Y ? "                                  ; reply "\r"
go until "INITIALLY SPOOLED =  N ? "                            ; reply "\r"
go until "AUTO REPLY =  N ? "                                   ; reply "\r"
go until "DRIVER NAME = HIOTERM2? "                             ; reply "\r"
go until "DEVICE CLASSES = TERM?"                               ; reply "CONSOLE\r"

go until "LOGICAL DEVICE #? "                                   ; reply "21\r"
go until "DEVICE NAME? "                                        ; reply "HPTERMADCC\r"
go until "DRT # = 9?"                                           ; reply "\r"
go until "UNIT # = 0?"                                          ; reply "\r"
go until "SOFTWARE CHANNEL # = 0?"                              ; reply "\r"
go until "TYPE = 16?"                                           ; reply "\r"
go until "SUB TYPE = 0?"                                        ; reply "1\r"
go until "ENTER [TERM TYPE #],[DESCRIPTOR FILENAME] = ( 10 ) ?" ; reply "\r"
go until "SPEED IN CHARACTERS PER SECOND = 960?"                ; reply "\r"
go until "RECORD WIDTH = 40?"                                   ; reply "\r"
go until "OUTPUT DEVICE = 21? "                                 ; reply "\r"
go until "ACCEPT JOBS/SESSIONS =  Y ? "                         ; reply "\r"
go until "ACCEPT DATA =  Y ? "                                  ; reply "\r"
go until "INTERACTIVE =  Y ? "                                  ; reply "\r"
go until "DUPLICATIVE =  Y ? "                                  ; reply "\r"
go until "INITIALLY SPOOLED =  N ? "                            ; reply "\r"
go until "AUTO REPLY =  N ? "                                   ; reply "\r"
go until "DRIVER NAME = HIOTERM2? "                             ; reply "\r"
go until "DEVICE CLASSES = TERM?"                               ; reply "\r"

go until "LOGICAL DEVICE #? "                                   ; reply "22\r"
go until "DEVICE NAME? "                                        ; reply "HPTERMADCC\r"
go until "DRT # = 10?"                                          ; reply "\r"
go until "UNIT # = 0?"                                          ; reply "\r"
go until "SOFTWARE CHANNEL # = 0?"                              ; reply "\r"
go until "TYPE = 16?"                                           ; reply "\r"
go until "SUB TYPE = 0?"                                        ; reply "\r"
go until "ENTER [TERM TYPE #],[DESCRIPTOR FILENAME] = ( 10 ) ?" ; reply "\r"
go until "SPEED IN CHARACTERS PER SECOND = 960?"                ; reply "\r"
go until "RECORD WIDTH = 40?"                                   ; reply "\r"
go until "OUTPUT DEVICE = 22? "                                 ; reply "\r"
go until "ACCEPT JOBS/SESSIONS =  Y ? "                         ; reply "\r"
go until "ACCEPT DATA =  Y ? "                                  ; reply "\r"
go until "INTERACTIVE =  Y ? "                                  ; reply "\r"
go until "DUPLICATIVE =  Y ? "                                  ; reply "\r"
go until "INITIALLY SPOOLED =  N ? "                            ; reply "\r"
go until "AUTO REPLY =  N ? "                                   ; reply "\r"
go until "DRIVER NAME = HIOTERM2? "                             ; reply "\r"
go until "DEVICE CLASSES = TERM?"                               ; reply "\r"

go until "LOGICAL DEVICE #? "                                   ; reply "23\r"
go until "DEVICE NAME? "                                        ; reply "HPTERMADCC\r"
go until "DRT # = 11?"                                          ; reply "\r"
go until "UNIT # = 0?"                                          ; reply "\r"
go until "SOFTWARE CHANNEL # = 0?"                              ; reply "\r"
go until "TYPE = 16?"                                           ; reply "\r"
go until "SUB TYPE = 0?"                                        ; reply "\r"
go until "ENTER [TERM TYPE #],[DESCRIPTOR FILENAME] = ( 10 ) ?" ; reply "\r"
go until "SPEED IN CHARACTERS PER SECOND = 960?"                ; reply "\r"
go until "RECORD WIDTH = 40?"                                   ; reply "\r"
go until "OUTPUT DEVICE = 23? "                                 ; reply "\r"
go until "ACCEPT JOBS/SESSIONS =  Y ? "                         ; reply "\r"
go until "ACCEPT DATA =  Y ? "                                  ; reply "\r"
go until "INTERACTIVE =  Y ? "                                  ; reply "\r"
go until "DUPLICATIVE =  Y ? "                                  ; reply "\r"
go until "INITIALLY SPOOLED =  N ? "                            ; reply "\r"
go until "AUTO REPLY =  N ? "                                   ; reply "\r"
go until "DRIVER NAME = HIOTERM2? "                             ; reply "\r"
go until "DEVICE CLASSES = TERM?"                               ; reply "\r"

go until "LOGICAL DEVICE #? "                                   ; reply "24\r"
go until "DEVICE NAME? "                                        ; reply "HPTERMADCC\r"
go until "DRT # = 12?"                                          ; reply "\r"
go until "UNIT # = 0?"                                          ; reply "\r"
go until "SOFTWARE CHANNEL # = 0?"                              ; reply "\r"
go until "TYPE = 16?"                                           ; reply "\r"
go until "SUB TYPE = 0?"                                        ; reply "\r"
go until "ENTER [TERM TYPE #],[DESCRIPTOR FILENAME] = ( 10 ) ?" ; reply "\r"
go until "SPEED IN CHARACTERS PER SECOND = 960?"                ; reply "\r"
go until "RECORD WIDTH = 40?"                                   ; reply "\r"
go until "OUTPUT DEVICE = 24? "                                 ; reply "\r"
go until "ACCEPT JOBS/SESSIONS =  Y ? "                         ; reply "\r"
go until "ACCEPT DATA =  Y ? "                                  ; reply "\r"
go until "INTERACTIVE =  Y ? "                                  ; reply "\r"
go until "DUPLICATIVE =  Y ? "                                  ; reply "\r"
go until "INITIALLY SPOOLED =  N ? "                            ; reply "\r"
go until "AUTO REPLY =  N ? "                                   ; reply "\r"
go until "DRIVER NAME = HIOTERM2? "                             ; reply "\r"
go until "DEVICE CLASSES = TERM?"                               ; reply "\r"

go until "LOGICAL DEVICE #? "                                   ; reply "25\r"
go until "DEVICE NAME? "                                        ; reply "HPTERMADCC\r"
go until "DRT # = 13?"                                          ; reply "\r"
go until "UNIT # = 0?"                                          ; reply "\r"
go until "SOFTWARE CHANNEL # = 0?"                              ; reply "\r"
go until "TYPE = 16?"                                           ; reply "\r"
go until "SUB TYPE = 0?"                                        ; reply "\r"
go until "ENTER [TERM TYPE #],[DESCRIPTOR FILENAME] = ( 10 ) ?" ; reply "\r"
go until "SPEED IN CHARACTERS PER SECOND = 960?"                ; reply "\r"
go until "RECORD WIDTH = 40?"                                   ; reply "\r"
go until "OUTPUT DEVICE = 25? "                                 ; reply "\r"
go until "ACCEPT JOBS/SESSIONS =  Y ? "                         ; reply "\r"
go until "ACCEPT DATA =  Y ? "                                  ; reply "\r"
go until "INTERACTIVE =  Y ? "                                  ; reply "\r"
go until "DUPLICATIVE =  Y ? "                                  ; reply "\r"
go until "INITIALLY SPOOLED =  N ? "                            ; reply "\r"
go until "AUTO REPLY =  N ? "                                   ; reply "\r"
go until "DRIVER NAME = HIOTERM2? "                             ; reply "\r"
go until "DEVICE CLASSES = TERM?"                               ; reply "\r"

go until "LOGICAL DEVICE #? "                                   ; reply "26\r"
go until "DEVICE NAME? "                                        ; reply "HPTERMADCC\r"
go until "DRT # = 14?"                                          ; reply "\r"
go until "UNIT # = 0?"                                          ; reply "\r"
go until "SOFTWARE CHANNEL # = 0?"                              ; reply "\r"
go until "TYPE = 16?"                                           ; reply "\r"
go until "SUB TYPE = 0?"                                        ; reply "\r"
go until "ENTER [TERM TYPE #],[DESCRIPTOR FILENAME] = ( 10 ) ?" ; reply "\r"
go until "SPEED IN CHARACTERS PER SECOND = 960?"                ; reply "\r"
go until "RECORD WIDTH = 40?"                                   ; reply "\r"
go until "OUTPUT DEVICE = 26? "                                 ; reply "\r"
go until "ACCEPT JOBS/SESSIONS =  Y ? "                         ; reply "\r"
go until "ACCEPT DATA =  Y ? "                                  ; reply "\r"
go until "INTERACTIVE =  Y ? "                                  ; reply "\r"
go until "DUPLICATIVE =  Y ? "                                  ; reply "\r"
go until "INITIALLY SPOOLED =  N ? "                            ; reply "\r"
go until "AUTO REPLY =  N ? "                                   ; reply "\r"
go until "DRIVER NAME = HIOTERM2? "                             ; reply "\r"
go until "DEVICE CLASSES = TERM?"                               ; reply "\r"

go until "LOGICAL DEVICE #? "                                   ; reply "27\r"
go until "DEVICE NAME? "                                        ; reply "HPTERMADCC\r"
go until "DRT # = 15?"                                          ; reply "\r"
go until "UNIT # = 0?"                                          ; reply "\r"
go until "SOFTWARE CHANNEL # = 0?"                              ; reply "\r"
go until "TYPE = 16?"                                           ; reply "\r"
go until "SUB TYPE = 0?"                                        ; reply "\r"
go until "ENTER [TERM TYPE #],[DESCRIPTOR FILENAME] = ( 10 ) ?" ; reply "\r"
go until "SPEED IN CHARACTERS PER SECOND = 960?"                ; reply "\r"
go until "RECORD WIDTH = 40?"                                   ; reply "\r"
go until "OUTPUT DEVICE = 27? "                                 ; reply "\r"
go until "ACCEPT JOBS/SESSIONS =  Y ? "                         ; reply "\r"
go until "ACCEPT DATA =  Y ? "                                  ; reply "\r"
go until "INTERACTIVE =  Y ? "                                  ; reply "\r"
go until "DUPLICATIVE =  Y ? "                                  ; reply "\r"
go until "INITIALLY SPOOLED =  N ? "                            ; reply "\r"
go until "AUTO REPLY =  N ? "                                   ; reply "\r"
go until "DRIVER NAME = HIOTERM2? "                             ; reply "\r"
go until "DEVICE CLASSES = TERM?"                               ; reply "\r"


; Remove unused terminals 8-47.

go until "LOGICAL DEVICE #? " ; reply "28\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "29\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "30\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "31\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "32\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "33\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "34\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "35\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "36\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "37\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "38\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "39\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "40\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "41\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "42\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "43\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "44\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "45\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "46\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "47\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "48\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "49\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "50\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "51\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "52\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "53\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "54\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "55\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "56\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "57\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "58\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "59\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "60\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "61\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "62\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "63\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "64\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "65\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "66\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "67\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"


; Remove these other devices.

go until "LOGICAL DEVICE #? " ; reply "82\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "83\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "90\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "91\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "92\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "93\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "95\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "120\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "121\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "122\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "123\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "130\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "137\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"

go until "LOGICAL DEVICE #? " ; reply "138\r"
go until "DEVICE NAME? "      ; reply "\r"
go until "DRT #? "            ; reply "0\r"


; Finished with the changes to the I/O devices.

go until "LOGICAL DEVICE #? " ; reply "0\r"


; Set the number of spool files.
; Note that the maximum number changes with I/O device count changes.

go until "MAX # OF OPEN SPOOLFILES = 72 (MIN=0, MAX=1008)?" ; reply "\r"

go until "LIST I/O DEVICES? "          ; reply "YES\r"
go until "TERMINAL TYPE CHANGES? "     ; reply "NO\r"
go until "CLASS CHANGES? "             ; reply "NO\r"
go until "LIST I/O DEVICES? "          ; reply "NO\r"
go until "I/O CONFIGURATION CHANGES? " ; reply "NO\r"


; Change the disc volume table.
;
; Note that the number of USED directory sectors will change with different FOS tapes.

go until "DISC VOLUME CHANGES? "                                               ; reply "YES\r"
go until "MAX DIRECTORY SIZE (SECTORS) = 6000 (MIN=769, MAX=65000, USED=769)?" ; reply "\r"
go until "LIST VOLUME TABLE? "                                                 ; reply "YES\r"


; Delete the existing disc volumes.

go until "DELETE VOLUME? "     ; reply "YES\r"
go until "ENTER VOLUME NAME? " ; reply "MH2202U1\r"
go until "ENTER VOLUME NAME? " ; reply "MH7935U0\r"
go until "ENTER VOLUME NAME? " ; reply "MH7935U1\r"
go until "ENTER VOLUME NAME? " ; reply "\r"


; Add the system volume.

go until "ADD VOLUME? "        ; reply "YES\r"
go until "ENTER VOLUME NAME? " ; reply "MH%VOLUME%U0\r"
go until "ENTER VOLUME NAME? " ; reply "\r"
go until "LIST VOLUME TABLE? " ; reply "YES\r"


; Reply to "NON-SYSTEM VOLUME ON LDEV 1"

go until "ADD TO SYSTEM VOLUME SET? " ; reply "YES\r"
go until "ENTER VOLUME NAME? "        ; reply "MH%VOLUME%U0\r"

go until "LIST DEFECTIVE TRACK/SECTOR INFORMATION? " ; reply "YES\r"
go until "LOGICAL DEVICE #? "                        ; reply "1\r"
go until "LOGICAL DEVICE #? "                        ; reply "0\r"
go until "DELETE TRACK? "                            ; reply "NO\r"
go until "LIST VOLUME TABLE? "                       ; reply "NO\r"


; List the virtual memory allocation.

go until "LIST VIRTUAL MEMORY DEVICE ALLOCATION? "                 ; reply "YES\r"
go until "ENTER VOLUME NAME , SIZE IN KILOSECTORS ( MAX = 255 )? " ; reply "MH%VOLUME%U0,32\r"
go until "ENTER VOLUME NAME , SIZE IN KILOSECTORS ( MAX = 255 )? " ; reply "\r"
go until "VIRTUAL MEMORY CHANGES? "                                ; reply "NO\r"
go until "DISABLE LOGGING? "                                       ; reply "NO\r"


; Change the system table settings.

go until "SYSTEM TABLE CHANGES? " ; reply "YES\r"

go until "CST = 224 (MIN=80, MAX=2048)?"                       ; reply "384\r"
go until "EXTENDED CST = 255 (MIN=16, MAX=8191)?"              ; reply "512\r"
go until "DST = 1024 (MIN=70, MAX=4096)?"                      ; reply "\r"
go until "PCB = 150 (MIN=12, MAX=1024)?"                       ; reply "\r"
go until "I/O QUEUE = 256 (MIN=20, MAX=1300)?"                 ; reply "\r"
go until "DISC REQUEST QUEUE = 512 (MIN=20, MAX=900)?"         ; reply "\r"
go until "TERMINAL BUFFERS PER PORT = 3 (MIN=1, MAX=99)?"      ; reply "10\r"
go until "SYSTEM BUFFERS = 8 (MIN=8, MAX=253)?"                ; reply "\r"
go until "SWAP TABLE = 1024 (MIN=128, MAX=5400)?"              ; reply "\r"
go until "PRIMARY MESSAGE TABLE = 64 (MIN=10, MAX=1023)?"      ; reply "\r"
go until "SECONDARY MESSAGE TABLE = 64 (MIN=10, MAX=1023)?"    ; reply "\r"
go until "SPECIAL REQUEST TABLE = 64 (MIN=10, MAX=2048)?"      ; reply "\r"
go until "ICS = 1024 (MIN=256, MAX=4096)?"                     ; reply "\r"
go until "LOADER SEGMENT TABLE = 16384 (MIN=2048, MAX=32760)?" ; reply "\r"
go until "UCOP REQUEST QUEUE = 150 (MIN=1, MAX=1024)?"         ; reply "\r"
go until "TIMER REQUEST QUEUE = 150 (MIN=6, MAX=1023)?"        ; reply "\r"
go until "BREAKPOINT TABLE = 32 (MIN=1, MAX=1024)?"            ; reply "\r"


; Complete the reload.

go until "MAX # OF SPOOLFILE KILOSECTORS = 128 (MIN=0, MAX=777777)?"     ; reply "\r"
go until "# OF SECTORS PER SPOOLFILE EXTENT = 384 (MIN=128, MAX=32767)?" ; reply "\r"


; The FOS tape is now read, and files are copied to the disc.
;
; The FOS tape directory contains entries for files that are not present on the
; tape.  INITIAL reports that these files are not found and asks whether
; another tape image is available.  The missing files are mostly support files
; that do not affect MPE operation.

go until "FILES NOT FOUND - ANOTHER TAPE SET AVAILABLE? " ; reply "NO\r"
go until "NOT ALL FILES FOUND - LIST? "                   ; reply "YES\r"


; The allocation of system code segments is reported, and system
; configuration is complete.  INITIAL now boots up MPE for the first
; time.
;
; Set the current date and time.

go until "DATE (M/D/Y)?" ; reply "%DATE_MM%/%DATE_DD%/%DATE_AA%\r"
go until "TIME (H:M)?"   ; reply "%TIME_HH%:%TIME_MM%\r"
go until "(Y/N)"         ; reply "Y\r"


; Wait until the system manager is logged on.

go until "LOGON FOR: MANAGER.SYS,PUB ON LDEV #20"


; Run AUTOINST

go until "\r\n:" ; reply "RUN AUTOINST\r"


; Respond to "HAS A SUBSYS TAPE BEEN INCLUDED IN YOUR"
;            "INSTALLATION PACKAGE (Y/N)?"
;            ">>"

go until "\r\n>>" ; reply "NO\r"


; Respond to "TO CREATE A COLD LOAD TAPE, ENSURE THAT WRITE IS "
;            "ENABLED ON A BLANK TAPE.  MOUNT THE TAPE AND PUT"
;            "THE TAPE DRIVE ONLINE. "

go until "\r\nTHE TAPE DRIVE ONLINE. "

attach -N MA0 mpe-coldload-G.3P.00.tape


; Log the system manager off and shut the system down.

go until "\r\n:"                  ; reply "BYE\r"
go until "LOGOFF ON LDEV #20\r\n" ; reply "\001"
go until "="                      ; reply "SHUTDOWN\r"
go


; Verify "Programmed halt, CIR: 030377 (HALT 17)"

assert CIR=030377


; Now restart to load the cold-load tape.

set MA0 ONLINE
load


echo
echo
echo ----------------------
echo MPE-V/E %MODEL% Coldstart
echo ----------------------
echo


; Specify the startup options.

go until "WHICH OPTION <COLDSTART/RELOAD/UPDATE>? " ; reply "COLDSTART\r"
go until "ANY CHANGES? "                            ; reply "NO\r"


; System reconfiguration is complete.  INITIAL now boots up MPE.
;
; Set the current date and time.

go until "DATE (M/D/Y)?" ; reply "%DATE_MM%/%DATE_DD%/%DATE_AA%\r"
go until "TIME (H:M)?"   ; reply "%TIME_HH%:%TIME_MM%\r"
go until "(Y/N)"         ; reply "Y\r"


; Wait until the system operator is logged on.

go until "LOGON FOR: OPERATOR.SYS,OPERATOR ON LDEV #20"


; Log the system operator off and shut the system down.

go until "\r\n:"                  ; reply "BYE\r"
go until "LOGOFF ON LDEV #20\r\n" ; reply "\001"
go until "="                      ; reply "SHUTDOWN\r"
go


; Verify "Programmed halt, CIR: 030377 (HALT 17)"

assert CIR=030377

exit