;               Automatically boot the MPE system from the disc.
;
; This script cold loads MPE from the system disc and executes a COOLSTART to
; bring the system up.  The date and time are set, and MPE logs OPERATOR.SYS
; into the system console.  The ATC 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).
;
;
; NOTES:
;
;  - A newly RESTOREd system disc will be named "mpe-reload.7920.disc".  The
;    file must be renamed "mpe.7920.disc" for use with this script (this
;    prevents a new system generation from overwriting a good system disc).
;
;  - Line printer output goes to the file "lp.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.
;
;  - The SIMH EXPECT commands below do not require regular expression support.
;
;  - 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 SEND "\r" command below is not needed,
;    although it is harmless.  However, if the setting is changed to REMOTEACK,
;    then the SEND is required.


; Set up the console log.

set -n console log=mpe-auto.log


; Configure the simulation environment.

set console DEL=177
set cpu idle=10


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

attach atcd 1054


; Load paper into the line printer.

attach -n lp lp.txt


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

set ds0 7925
attach -e ds0 mpe.7925.disc


; Cold load MPE from the disc.

deposit SWCH 000004
load


; Speed-sense the system console.

echo
echo Press <CR> to start MPE.

expect "? "
go


; Respond to "WHICH OPTION <WARMSTART/COOLSTART>? "

send "COOLSTART\r"

expect "? "
go


; Respond to "ANY CHANGES? "

send "NO\r"

expect "?"
go


; Respond to "DATE (M/D/Y)?"

send "%DATE_MM%/%DATE_DD%/%DATE_19XX_YY%\r"

expect "?"
go


; Respond to "TIME (H:M)?"

send "%TIME_HH%:%TIME_MM%\r"

expect ")"
go


; Respond to "SUN, APR  5, 1987,  1:31 AM? (Y/N)"

send "Y\r"

go