;      COLDSTART from the SYSDUMP tape to increase the code segment size.
;
; This script copies the system from the previously created SYSDUMP tape to the
; system disc.  The tape contains a configuration change for the code segment
; size from the default 8K to the maximum 16K.  This is necessary to be able to
; run the DPAN4 program, which has several segments larger than 8K.
;
;
; NOTES:
;
;  - The SIMH EXPECT commands do not require regular expression support.


; Set up the console log.

set -n console log=mpe-3-coldstart.log


; Configure the simulation environment.

set console DEL=177
set cpu idle=10


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

set ds0 7920
attach -e ds0 mpe-reload.7920.disc


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

set ms0 7970E
attach -r ms0 mpe-coldstart.tape


; Cold load MPE from the SYSDUMP tape.

deposit SWCH 003006
load


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

expect "? "
go


; Reply to "WHICH OPTION <COLDSTART/RELOAD/UPDATE>? "

send "COLDSTART\r"

expect "? "
go


; Reply to "ANY CHANGES? "

send "NO\r"

expect "?"
go


; System reconfiguration is complete.  INITIAL now boots up MPE.
;
; 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"

expect "M\r\n:"
go


; Reply to "HP3000 / MPE V  E.01.00 (BASE E.01.00).  THU, FEB 11, 1988,  1:52 PM" (e.g.)
; and then ":"

send "BYE\r"

expect "20\r\n"
go


; Reply to "13:52/#S1/14/LOGOFF ON LDEV #20" (e.g.)

send "\001"

expect "="
go


; Reply to "="

send "SHUTDOWN\r"

noexpect
go


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

assert CIR=030377

quit