;               Automatically boot the MPE system from the disc.
;
;
; This command file cold loads MPE from the system disc and executes a
; COOLSTART to bring the system up.  It is invoked as follows:
;
;   hp3000 mpe-ve-auto [ <disc-model> ]
;
; ...where the optional disc-model is ...


;
; The date and time are set, and MPE logs OPERATOR.SYS into the system console.
;
; The ADCC is configured to listen for Telnet connections on local port 1054.
; Connecting an HP terminal emulator (for ENQ/ACK support) to the port and
; pressing ENTER will bring up the MPE logon prompt.  The MANAGER.SYS account is
; provided (with no password).
;
; The following media image is used and must be present:
;
;    Disc Image Filename
;    -------------------
;    mpe.<model>.disc
;
;
; NOTES:
;
;  - A newly RESTOREd system disc will be named "mpe-reload.<model>.disc".  The
;    file must be renamed "mpe.<model>.disc" for use with this command file
;    (this prevents a new system generation from overwriting a good system
;    disc).
;
;  - Line printer output goes to the file "printer.txt", which is cleared or
;    recreated each time the simulator is restarted.  If you prefer to append
;    each session's output onto the file's previous contents, then remove the
;    "-N" switch from the LP attach line.
;
;  - If the terminal used for the system console responds to the ENQ/ACK
;    protocol, speed-sensing does not require the user to enter a carriage
;    return.  The default setting for ATC channel 0 (LOCALACK) is to reply to
;    ENQ with an ACK internally, so the REPLY "\r" command below is not needed,
;    although it is harmless.  However, if the setting is changed to REMOTEACK,
;    then the REPLY will be required.
;
;  - Concurrent mode is enabled on the system console so that ATTACH commands do
;    not require stopping the simulator and so cause the MPE system clock to
;    lose time.
;
;  - MPE-V/R is not year-2000 compliant.  As such, only dates from 1999 and
;    earlier are accepted.  This script selects a year whose days of the week
;    and leap-year status are identical to the current year.  For example,
;    February 29, 2016 is a Monday, as is February 29, 1988.


;; Determine the type of system disc to use.
;
;do configure-disc.inc %1


; Set up the console log.

set -N console log=mpe-vp-auto.log
if "%1" != "" set -N console debug=mpe-vp-debug.log


; Configure the CPU.

set CPU S58,4096K,IDLE=10
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

set ADCC LINEORDER=1-6


; 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


; Set up the ADCC to listen for Telnet connections on local port 1054.

attach ADCC 1054


;; Load paper into the serial line printer.
;
;set -n ADCC7 LOG=printer.txt


; Attach the configured disc image file.

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

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


; Cold load MPE from the disc.

start


echo
echo
echo -------------------
echo MPE-V/P %MODEL% System
echo -------------------
echo


; Specify the startup options.

go until "WHICH OPTION <WARMSTART/COOLSTART>? " ; reply "COOLSTART\r"
go until "ANY CHANGES? "                        ; reply "NO\r"

set console nodebug


; 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"
go