;               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 [ <disc-model> ]
;
; ...where the optional disc-model is 7911, 7912, 7914, 7933, 7935, 7936, 7937,
; 7945, 7957B, 7958B, or 7959B.  If the model is omitted, the 7914 is used.
;
; 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-ve-reload.<model>.disc
;
;
; NOTES:
;
;  - 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 SET ADCC7 LOG 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 ADCC 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.
;
;  - MPE-V/E accepts years only through 2027 before rolling over to 1900.  This
;    For years starting in 2028, this script selects a year in the range
;    2000-2027 whose days of the week and leap-year status are identical to the
;    current year.  For example, February 29, 2028 is a Tuesday, as is February
;    29, 2000.


; Determine the type of system disc to use.

do configure-disc.inc %1


; Set up the console log(s).

set -N console log=mpe-vex.log

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


; 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 ATC 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


; Configure the CPU.

set CPU S58,4096K,IDLE=10
set CPU STOP=COLDLOAD

set CPU CSTX


; Configure the I/O devices.

set GIC COUNT=3
set GICA CHANNEL=11
set GICB CHANNEL=9
set GICC CHANNEL=10

set ADCC LINEORDER=1-7

set LPA CHANNEL=10,BUS=0


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

if "%DEV%" == "DC" set DC0 %VOLUME%,BUS=0
set DC1 ENABLED,9144,BUS=1

attach -E %DEV%0 mpe-ve-reload.%VOLUME%.disc


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

attach ADCC 1054


; Load paper into the system line printer.

;set cpp filter=1;9;11
;set cpp debug=cmd;opnd
;set gicc debug
;set lpa debug

;set cpu exec=030000;177760
;set cpu debug=exec

attach -N LPA printer.txt


; Cold load MPE from the disc.

start


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


; Specify the startup options.

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

;go until "SYSTEM PROCESS CREATION\r\n"
;
;set cpu debug,nodebug=fetch;imbus;pserv


; Set the current date and time.

go until "DATE (M/D/Y)?" ; reply "%DATE_MM%/%DATE_DD%/%DATE_AA%\r"

; set console nodebug

go until "TIME (H:M)?"   ; reply "%TIME_HH%:%TIME_MM%\r"
go until "(Y/N)"         ; reply "Y\r"

go until "*WELCOME* \r\n"

set cpu debug,nodebug=fetch;imbus;pserv

go until "\r\n:"

set console nodebug

go