;           Create a SYSDUMP tape to increase the code segment size.
;
; This script creates a SYSDUMP tape from the previously generated system disc.
; The reconfiguration dialog is used to increase 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.  The resulting tape may
; be used to COLDSTART the system and install the change.
;
;
; NOTES:
;
;  - 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-2-sysdump.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 a new, blank tape image file.

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


; Cold load MPE from the disc.

deposit SWCH 000004
load


; Speed-sense the system console.

send "\r"

expect "? "
go


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

send "COOLSTART\r"

expect "? "
go


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

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 "FILE T;DEV=TAPE\r"

expect "\r\n:"
go


; Reply to ":"

send "SYSDUMP *T\r"

expect "? "
go


; Reply to "ANY CHANGES? "

send "YES\r"

expect "?"
go


; Reply to "SYSTEM ID = HP32002E.01.00.?"
;
; Note that this question does NOT end with a space after the question mark.

send "\r"

expect -p "? "
go


; Reply to "MEMORY SIZE = 512.? "

send "\r"
go


; Reply to "I/O CONFIGURATION CHANGES? "

send "\r"
go


; Reply to "SYSTEM TABLE CHANGES? "

send "\r"
go


; Reply to "MISC CONFIGURATION CHANGES? "

send "\r"
go


; Reply to "LOGGING CHANGES? "

send "\r"
go


; Reply to "DISC ALLOCATION CHANGES? "

send "\r"
go


; Reply to "SCHEDULING CHANGES? "

send "\r"
go


; Reply to "SEGMENT LIMIT CHANGES? "

send "YES\r"
go


; Reply to "MAX # OF CONCURRENT RUNNING PROGRAMS = 24.? "

send "\r"
go


; Reply to "MAX CODE SEG SIZE = 8192.? "

send "16384\r"
go


; Reply to "MAX # OF CODE SEGMENTS/PROCESS = 63.? "

send "\r"
go


; Reply to "MAX STACK SIZE = 31232.? "

send "\r"
go


; Reply to "MAX EXTRA DATA SEG SIZE = 8192.? "

send "\r"
go


; Reply to "MAX # OF EXTRA DATA SEGMENTS/PROCESS = 4.? "

send "\r"
go


; Reply to "STD STACK SIZE = 1200.? "

send "\r"
go


; Reply to "SYSTEM PROGRAM CHANGES? "

send "\r"
go


; Reply to "SYSTEM SL CHANGES? "

send "\r"
go


; Reply to "ENTER DUMP DATE? "

send "\r"

noexpect
expect ")?"
go


; Reply to "?18:41/#S1/15/LDEV# FOR "T" ON TAPE (NUM)?"

send "\001"

expect "="
go


; Reply to "="

send "REPLY 15,7\r"

expect "M\r\n:"
go


; Reply to "END OF PROGRAM"
; 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