;                       HP 1000 ONLINE DIAGNOSTICS SUITE
;                               RTE-6/VM VERSION
;
; This version of the HP Diagnostics Suite executes the diagnostics that run
; under the RTE-6/VM operating system.  The RTE-6/VM Rev. 6200 Diagnostics
; System is used as a host.
;
; Invocation:
;
;    hp2100 diag-online-6 [ <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-6.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,VMA,VIS,SIGNAL
set CPU INDIR=1000

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 = 13175D MAC 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 DS   SC=12
set MSC  SC=13
set PTR  SC=15
set PTP  SC=16
set BACI SC=17


; Disable unused devices.

set DA  DISABLED
set DPC DISABLED
set DQC DISABLED
set DRC 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-6/VM diagnostic system disc to the 7906.

set DS0 7906
attach -e DS0 %1RTE-6VM-DIAGNOSTICS.U0.7906.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 DS0




;  *********************************************
;  *                                           *
;  *  HP 1000 Online Diagnostics for RTE-6/VM  *
;  *                                           *
;  *********************************************

echo
echo
echo
echo
echo ---------------------------------------
echo HP 1000 Online Diagnostics for RTE-6/VM
echo ---------------------------------------



; 12829-16006 Rev. 2226  VIS Firmware Diagnostic (RTE-6/VM)

do %1VIS-6.inc


; 92084-16423 Rev. 2121  VMA Firmware Diagnostic (RTE-6/VM)

do %1VMA.inc


; 92835-16006 Rev. 2040  SIGNAL/1000 Firmware Diagnostic (RTE-6/VM)

do %1SIGNAL.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