;            Restore the language compilers and examples from tape.
;
; This script does a RESTORE to load selected SUBSYS language processors from a
; partial SUBSYS tape onto the previously generated system disc.  The compilers
; selected are BASIC, BASICOMP, COBOL, COBOLII, FORTRAN, PASCAL, RPG, and SPL.
; It also loads a few example programs into the OPERATOR.SYS account from an
; example tape.  Finally, it sets up UDCs for the COBOLII compiler.
;
;
; 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-4-restore.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 modes and attach the tape image files.

set ms0 7970E
attach -r ms0 subsys-compilers.tape

set ms1 7970E
attach -r ms1 examples.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 "RESTORE *T;@.@.@;SHOW\r"

expect ")?"
go


; Reply to "?19:11/#S1/14/LDEV# FOR "T" ON TAPE (NUM)?" (e.g.)

send "\001"

expect "="
go


; Reply to "="

send "REPLY 14,7\r"

expect "\r\n\n:"
go


; Reply to ":"

send "RESTORE *T;@.@.@;SHOW\r"

expect ")?"
go


; Reply to "?19:11/#S1/14/LDEV# FOR "T" ON TAPE (NUM)?" (e.g.)

send "\001"

expect "="
go


; Reply to "="

send "REPLY 14,8\r"

expect "\r\n\n:"
go


; Reply to ":"

send "BYE\r"

expect "20\r\n"
go


; Reply to "19:11/#S1/14/LOGOFF ON LDEV #20" (e.g.)
;
; OPERATOR.SYS has been logged off.  Now log on MANAGER.SYS to set up the
; system-wide UDCs.
;
; There needs to be a delay here before sending CR to get the system prompt, as
; we have to wait for speed-sensing to be set up on the ATC channel before
; attempting to log on.

send after=100000 "\r"

expect "\n:"
go


; Reply to ":"

send "HELLO MANAGER.SYS\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 "BUILD COMMAND;REC=20,32;DISC=500\r"

expect "\r\n:"
go


; Reply to ":"

send "ALTSEC COMMAND;(X:ANY;R,L,W,A:CR)\r"

expect "\r\n:"
go


; Reply to ":"

send "RELEASE COBIIUDC\r"

expect "\r\n:"
go


; Reply to ":"

send "RELEASE COBUDC\r"

expect "\r\n:"
go


; Reply to ":"

send "SETCATALOG COBIIUDC,COBUDC;SYSTEM\r"

expect "\r\n:"
go


; Reply to ":"

send "BYE\r"

expect "20\r\n"
go


; Reply to "19:11/#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