;                       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 300 milliseconds 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

reply delay 300 milliseconds


; 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 ALL  DISABLED

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


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

break -T ":" delay 100 milliseconds

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