; --> (a) insists on 9144 ready, (b) adds it to sys disc table!


;                RELOAD a new MPE-V/P 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-1-reload [ <disc-model> ]
;
; ...where the optional disc-model is ...
;
;
;
; The following media image is used and must be present:
;
;    Tape Image Filename
;    -------------------------
;    32033-11010_vp-d-1_fos.tape
;
; Execution of this command file creates this device media image file:
;
;    Disc Image Filename
;    --------------------------
;    mpe-vp-reload.<model>.disc
;
;
; NOTES:
;
;  - An HP 9144A cartridge tape drive is configured as LDEV n.
;    
;  - Port 7 of the ADCC on channel 1 (LDEV 6, DRT 15) is configured as a non-HP serial printer.
;    The port log file must be specified before output is attempted, or the
;    simulator will stop with a "Connection lost" error.  Recovery consists of
;    setting the port log file and entering the CONTINUE command at the SCP
;    prompt.


; Set up the console log.

:setuplog

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


; Verify the presence of the FOS tape image.

if exist "32033-11010_Rev-2424.tape" goto tapeok

echo
echo The FOS tape image file 32033-11010_Rev-2424.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

quit


; Configure the CPU.

:tapeok

set CPU S58,4096K
set CPU STOP=COLDLOAD


; Configure the I/O devices.

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

set DC0 7914,BUS=0
set DC1 ENABLED,9144,BUS=1


; 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 ADCC 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


; Attach a blank disc image file.

attach -N DC0 mpe-vp-reload.7914.disc

; attach -N DC1 mpe-vp-reload.9144.cart


; Attach the FOS tape image file.

attach -R MA0 32033-11010_Rev-2424.tape


; Cold load the FOS installation tape.

load


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

echo
echo
echo -------------------
echo MPE V/P 7914 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 = 128.? "                                  ; reply "4096\r"


; Change the I/O configuration.

go until "I/O CONFIGURATION CHANGES? "        ; reply "YES\r"
go until "LIST I/O DEVICES? "                 ; reply "YES\r"
go until "LIST CS DEVICES? "                  ; reply "YES\r"
go until "HIGHEST DRT = 63.? "                ; reply "95\r"


; Change the system disc to match the requested model.

go until "LOGICAL DEVICE #? "     ; reply "1\r"
go until "DRT #? "                ; reply "88\r"
go until "UNIT #? "               ; reply "0\r"
go until "SOFTWARE CHANNEL #? "   ; reply "0\r"
go until "TYPE? "                 ; reply "3\r"
go until "SUB TYPE? "             ; reply "4\r"
go until "RECORD WIDTH? "         ; reply "128\r"
go until "OUTPUT DEVICE? "        ; reply "0\r"
go until "ACCEPT JOBS/SESSIONS? " ; reply "NO\r"
go until "ACCEPT DATA? "          ; reply "NO\r"
go until "INTERACTIVE? "          ; reply "NO\r"
go until "DUPLICATIVE? "          ; reply "NO\r"
go until "INITIALLY SPOOLED? "    ; reply "NO\r"
go until "DRIVER NAME? "          ; reply "HIOMDSC2\r"
go until "DEVICE CLASSES? "       ; reply "DISC,SPOOL,SYSDISC\r"


; Remove the unused disc drives.

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

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

go until "LOGICAL DEVICE #? " ; reply "4\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 "DRT #? "                ; reply "89\r"
;go until "UNIT #? "               ; reply "0\r"
;go until "SOFTWARE CHANNEL #? "   ; reply "0\r"
;go until "TYPE? "                 ; reply "3\r"
;go until "SUB TYPE? "             ; reply "3\r"
;go until "RECORD WIDTH? "         ; reply "128\r"
;go until "OUTPUT DEVICE? "        ; reply "0\r"
;go until "ACCEPT JOBS/SESSIONS? " ; reply "NO\r"
;go until "ACCEPT DATA? "          ; reply "NO\r"
;go until "INTERACTIVE? "          ; reply "NO\r"
;go until "DUPLICATIVE? "          ; reply "NO\r"
;go until "INITIALLY SPOOLED? "    ; reply "NO\r"
;go until "DRIVER NAME? "          ; reply "HIOCTAP0\r"
;go until "DEVICE CLASSES? "       ; reply "CTAPE,SDISC\r"


; Change the printer to an HP 2613.
 
go until "LOGICAL DEVICE #? "     ; reply "6\r"
go until "DRT #? "                ; reply "90\r"
go until "UNIT #? "               ; reply "0\r"
go until "SOFTWARE CHANNEL #? "   ; reply "0\r"
go until "TYPE? "                 ; reply "32\r"
go until "SUB TYPE? "             ; reply "2\r"
go until "RECORD WIDTH? "         ; reply "66\r"
go until "OUTPUT DEVICE? "        ; reply "0\r"
go until "ACCEPT JOBS/SESSIONS? " ; reply "NO\r"
go until "ACCEPT DATA? "          ; reply "NO\r"
go until "INTERACTIVE? "          ; reply "NO\r"
go until "DUPLICATIVE? "          ; reply "NO\r"
go until "INITIALLY SPOOLED? "    ; reply "YES\r"
go until "DRIVER NAME? "          ; reply "HIOLPRT2\r"
go until "DEVICE CLASSES? "       ; reply "LP\r"


; Change the primary tape drive.

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


; Remove tape drive units 1 and 2.

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

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


; Change the job stream device.

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


; Remove unused printer and INP device.

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

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

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

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

go until "LOGICAL DEVICE #? " ; reply "18\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 "DRT #? "                ; reply "8\r"
go until "UNIT #? "               ; reply "0\r"
go until "SOFTWARE CHANNEL #? "   ; reply "0\r"
go until "TYPE? "                 ; reply "16\r"
go until "SUB TYPE? "             ; reply "0\r"
go until "TERM TYPE? "            ; reply "10\r"
go until "SPEED IN CHARACTERS PER SECOND? " ; reply "960\r"
go until "RECORD WIDTH? "         ; reply "40\r"
go until "OUTPUT DEVICE? "        ; reply "20\r"
go until "ACCEPT JOBS/SESSIONS? " ; reply "YES\r"
go until "ACCEPT DATA? "          ; reply "YES\r"
go until "INTERACTIVE? "          ; reply "YES\r"
go until "DUPLICATIVE? "          ; reply "YES\r"
go until "INITIALLY SPOOLED? "    ; reply "NO\r"
go until "DRIVER NAME? "          ; reply "HIOTERM0\r"
go until "DEVICE CLASSES? "       ; reply "CONSOLE\r"

go until "LOGICAL DEVICE #? "     ; reply "21\r"
go until "DRT #? "                ; reply "9\r"
go until "UNIT #? "               ; reply "0\r"
go until "SOFTWARE CHANNEL #? "   ; reply "0\r"
go until "TYPE? "                 ; reply "16\r"
go until "SUB TYPE? "             ; reply "0\r"
go until "TERM TYPE? "            ; reply "10\r"
go until "SPEED IN CHARACTERS PER SECOND? " ; reply "960\r"
go until "RECORD WIDTH? "         ; reply "40\r"
go until "OUTPUT DEVICE? "        ; reply "21\r"
go until "ACCEPT JOBS/SESSIONS? " ; reply "YES\r"
go until "ACCEPT DATA? "          ; reply "YES\r"
go until "INTERACTIVE? "          ; reply "YES\r"
go until "DUPLICATIVE? "          ; reply "YES\r"
go until "INITIALLY SPOOLED? "    ; reply "NO\r"
go until "DRIVER NAME? "          ; reply "HIOTERM0\r"
go until "DEVICE CLASSES? "       ; reply "TERM\r"

go until "LOGICAL DEVICE #? "     ; reply "22\r"
go until "DRT #? "                ; reply "10\r"
go until "UNIT #? "               ; reply "0\r"
go until "SOFTWARE CHANNEL #? "   ; reply "0\r"
go until "TYPE? "                 ; reply "16\r"
go until "SUB TYPE? "             ; reply "0\r"
go until "TERM TYPE? "            ; reply "10\r"
go until "SPEED IN CHARACTERS PER SECOND? " ; reply "960\r"
go until "RECORD WIDTH? "         ; reply "40\r"
go until "OUTPUT DEVICE? "        ; reply "22\r"
go until "ACCEPT JOBS/SESSIONS? " ; reply "YES\r"
go until "ACCEPT DATA? "          ; reply "YES\r"
go until "INTERACTIVE? "          ; reply "YES\r"
go until "DUPLICATIVE? "          ; reply "YES\r"
go until "INITIALLY SPOOLED? "    ; reply "NO\r"
go until "DRIVER NAME? "          ; reply "HIOTERM0\r"
go until "DEVICE CLASSES? "       ; reply "TERM\r"

go until "LOGICAL DEVICE #? "     ; reply "23\r"
go until "DRT #? "                ; reply "11\r"
go until "UNIT #? "               ; reply "0\r"
go until "SOFTWARE CHANNEL #? "   ; reply "0\r"
go until "TYPE? "                 ; reply "16\r"
go until "SUB TYPE? "             ; reply "0\r"
go until "TERM TYPE? "            ; reply "10\r"
go until "SPEED IN CHARACTERS PER SECOND? " ; reply "960\r"
go until "RECORD WIDTH? "         ; reply "40\r"
go until "OUTPUT DEVICE? "        ; reply "23\r"
go until "ACCEPT JOBS/SESSIONS? " ; reply "YES\r"
go until "ACCEPT DATA? "          ; reply "YES\r"
go until "INTERACTIVE? "          ; reply "YES\r"
go until "DUPLICATIVE? "          ; reply "YES\r"
go until "INITIALLY SPOOLED? "    ; reply "NO\r"
go until "DRIVER NAME? "          ; reply "HIOTERM0\r"
go until "DEVICE CLASSES? "       ; reply "TERM\r"

go until "LOGICAL DEVICE #? "     ; reply "24\r"
go until "DRT #? "                ; reply "12\r"
go until "UNIT #? "               ; reply "0\r"
go until "SOFTWARE CHANNEL #? "   ; reply "0\r"
go until "TYPE? "                 ; reply "16\r"
go until "SUB TYPE? "             ; reply "0\r"
go until "TERM TYPE? "            ; reply "10\r"
go until "SPEED IN CHARACTERS PER SECOND? " ; reply "960\r"
go until "RECORD WIDTH? "         ; reply "40\r"
go until "OUTPUT DEVICE? "        ; reply "24\r"
go until "ACCEPT JOBS/SESSIONS? " ; reply "YES\r"
go until "ACCEPT DATA? "          ; reply "YES\r"
go until "INTERACTIVE? "          ; reply "YES\r"
go until "DUPLICATIVE? "          ; reply "YES\r"
go until "INITIALLY SPOOLED? "    ; reply "NO\r"
go until "DRIVER NAME? "          ; reply "HIOTERM0\r"
go until "DEVICE CLASSES? "       ; reply "TERM\r"

go until "LOGICAL DEVICE #? "     ; reply "25\r"
go until "DRT #? "                ; reply "13\r"
go until "UNIT #? "               ; reply "0\r"
go until "SOFTWARE CHANNEL #? "   ; reply "0\r"
go until "TYPE? "                 ; reply "16\r"
go until "SUB TYPE? "             ; reply "0\r"
go until "TERM TYPE? "            ; reply "10\r"
go until "SPEED IN CHARACTERS PER SECOND? " ; reply "960\r"
go until "RECORD WIDTH? "         ; reply "40\r"
go until "OUTPUT DEVICE? "        ; reply "25\r"
go until "ACCEPT JOBS/SESSIONS? " ; reply "YES\r"
go until "ACCEPT DATA? "          ; reply "YES\r"
go until "INTERACTIVE? "          ; reply "YES\r"
go until "DUPLICATIVE? "          ; reply "YES\r"
go until "INITIALLY SPOOLED? "    ; reply "NO\r"
go until "DRIVER NAME? "          ; reply "HIOTERM0\r"
go until "DEVICE CLASSES? "       ; reply "TERM\r"

go until "LOGICAL DEVICE #? "     ; reply "26\r"
go until "DRT #? "                ; reply "14\r"
go until "UNIT #? "               ; reply "0\r"
go until "SOFTWARE CHANNEL #? "   ; reply "0\r"
go until "TYPE? "                 ; reply "16\r"
go until "SUB TYPE? "             ; reply "0\r"
go until "TERM TYPE? "            ; reply "10\r"
go until "SPEED IN CHARACTERS PER SECOND? " ; reply "960\r"
go until "RECORD WIDTH? "         ; reply "40\r"
go until "OUTPUT DEVICE? "        ; reply "26\r"
go until "ACCEPT JOBS/SESSIONS? " ; reply "YES\r"
go until "ACCEPT DATA? "          ; reply "YES\r"
go until "INTERACTIVE? "          ; reply "YES\r"
go until "DUPLICATIVE? "          ; reply "YES\r"
go until "INITIALLY SPOOLED? "    ; reply "NO\r"
go until "DRIVER NAME? "          ; reply "HIOTERM0\r"
go until "DEVICE CLASSES? "       ; reply "TERM\r"

go until "LOGICAL DEVICE #? "     ; reply "27\r"
go until "DRT #? "                ; reply "15\r"
go until "UNIT #? "               ; reply "0\r"
go until "SOFTWARE CHANNEL #? "   ; reply "0\r"
go until "TYPE? "                 ; reply "16\r"
go until "SUB TYPE? "             ; reply "0\r"
go until "TERM TYPE? "            ; reply "10\r"
go until "SPEED IN CHARACTERS PER SECOND? " ; reply "960\r"
go until "RECORD WIDTH? "         ; reply "40\r"
go until "OUTPUT DEVICE? "        ; reply "27\r"
go until "ACCEPT JOBS/SESSIONS? " ; reply "YES\r"
go until "ACCEPT DATA? "          ; reply "YES\r"
go until "INTERACTIVE? "          ; reply "YES\r"
go until "DUPLICATIVE? "          ; reply "YES\r"
go until "INITIALLY SPOOLED? "    ; reply "NO\r"
go until "DRIVER NAME? "          ; reply "HIOTERM0\r"
go until "DEVICE CLASSES? "       ; reply "TERM\r"


; Remove these other devices.

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

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

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

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

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

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

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

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

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

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

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

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

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

go until "LOGICAL DEVICE #? " ; reply "138\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 = 20.? " ; reply "\r"

go until "LIST I/O DEVICES? "          ; reply "YES\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 "LIST VOLUME TABLE? "   ; reply "YES\r"


; Delete the existing disc volumes.

go until "DELETE VOLUME? "     ; reply "YES\r"
go until "ENTER VOLUME NAME? " ; reply "MH7906FP\r"
go until "ENTER VOLUME NAME? " ; reply "MH7906RP\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 "MH7914U0\r"
;go until "ENTER VOLUME NAME? " ; reply "MH9144U0\r"
go until "ENTER VOLUME NAME? " ; reply "\r"
go until "LIST VOLUME TABLE? " ; reply "YES\r"


; Reply to "INVALID LABEL FOR DEVICE 1"

go until "ENTER VOLUME NAME? " ; reply "MH7914U0\r"

; Reply to "INVALID LABEL FOR DEVICE 5"

;go until "ENTER VOLUME NAME? " ; reply "MH9144U0\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? " ; reply "MH7914U0,5\r"
go until "ENTER VOLUME NAME , SIZE IN KILOSECTORS? " ; reply "\r"
go until "VIRTUAL MEMORY CHANGES? "                  ; reply "NO\r"
go until "DISABLE LOGGING? "                         ; reply "NO\r"


; Complete the reload.

go until "MAX # OF SPOOLFILE KILOSECTORS? =128?"      ; reply "\r"
go until "# OF SECTORS PER SPOOLFILE EXTENT = 384.? " ; 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 "2002 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_RR%\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: OPERATOR.SYS,TEST ON LDEV #20"


; 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

exit