;                       HP 1000 ONLINE DIAGNOSTICS SUITE
;                               RTE-IVB VERSION
;
; This version of the HP Diagnostics Suite executes the diagnostics that run
; under the RTE-IVB operating system.  The RTE-IVB Rev. 5010 Diagnostics System
; is used as a host.
;
; Invocation:
;
;    hp2100 diag-online-4 [ <path-to-diagnostics> ]
;
; If <path-to-diagnostics> is null, the current directory is assumed.
; The path should end with a backslash if it is specified.
; The path must not contain embedded spaces, even if it is quoted.
;
; The diagnostic programs are driven by the individual include files.  The
; system WELCOM file ends with a File Manager prompt (":").  A console halt is
; established to break execution after each prompt is output.  Each include
; file must start with a command to run its diagnostic program, supply whatever
; user input is required by the diagnostic, and then end with a console halt at
; the File Manager prompt.
;
; For responses generated by REPLY, a delay of 100,000 instructions is needed
; to ensure that the read is pending after the appropriate GO UNTIL halt.


; Capture the execution console log.

set -n console log=DIAG-ONLINE-4.log


; Report the simulator version.

echo
echo
show version


;  **************************
;  *                        *
;  *  Configure the System  *
;  *                        *
;  **************************

echo
echo
echo --------------------
echo System Configuration
echo --------------------


; Establish the initial environment.

echo
echo Configuring the simulation environment.

set CPU 1000-F,256K,EMA,VIS

if "%SIM_MAJOR%" != "3" set env reply=send
reply after=100000


; Configure the I/O card cage for the diagnostic system.
;
;   I/O SLOT 10 = 12531C TTY INTERFACE
;   I/O SLOT 11 = 12539C TIME BASE GENERATOR
;   I/O SLOT 12 = 12821A ICD DISC INTERFACE
;   I/O SLOT 13 = 13183A 7970E MAG TAPE DATA INTERFACE
;   I/O SLOT 14 = 13183A 7970E MAG TAPE CONTROL INTERFACE
;   I/O SLOT 15 = 12597A 2784A PAPER TAPE READER
;   I/O SLOT 16 = 12597A 2785A PAPER TAPE PUNCH
;   I/O SLOT 17 = 12966A BACI

set TTY  SC=10
set TBG  SC=11
set DA   SC=12
set MSC  SC=13
set PTR  SC=15
set PTP  SC=16
set BACI SC=17


; Disable unused devices.

set DPC DISABLED
set DQC DISABLED
set DRC DISABLED
set DS  DISABLED
set IPL DISABLED
set LPS DISABLED
set LPT DISABLED
set MPX DISABLED
set MTC DISABLED
set MUX DISABLED
set PIF DISABLED


; Configure the simulation environment.

set MSC 13183A

set console DEL=177

set TTY0 UC
set TTY1 7P


; Attach the RTE-IVB diagnostic system disc to the 7906H.

set DA0 7906H
attach -e DA0 %1RTE-IVB-DIAGNOSTICS.U0.7906H.disc


; Bootstrap the system.

if "%SIM_MAJOR%" == "3" break after=100000 ":"
if "%SIM_MAJOR%" != "3" expect haltafter=100000 ":"

echo
echo Bootstrapping the operating system.

deposit S 0
boot DA0




;  ********************************************
;  *                                          *
;  *  HP 1000 Online Diagnostics for RTE-IVB  *
;  *                                          *
;  ********************************************

echo
echo
echo
echo
echo --------------------------------------
echo HP 1000 Online Diagnostics for RTE-IVB
echo --------------------------------------



; 12824-16002 Rev. 2026  VIS Firmware Diagnostic (RTE-IVB)

do %1VIS-4.inc


; 91711-12032 Rev. 2201  ICD/MAC Disc Diagnostic (RTE-IVB)

do %1ICD.inc


; 92067-16013 Rev. 1805  EMA Firmware Diagnostic (RTE-IVB)

do %1EMA.inc



; Diagnostics suite run complete.
;
; Respond to ":"

echo
echo
echo
echo ------------------------------
echo Diagnostics Suite Run Complete
echo ------------------------------
echo

reply "EX\r"
go until "$END FMGR\r\n"


; Respond to "$END FMGR"

echo
exit