;                         HP 3000 DUS DIAGNOSTICS SUITE
;
; This part of the HP Diagnostics Suite executes the diagnostics that run under
; the DUS operating system on an HP 3000 Series 58.
;
; Invocation:
;
;    hp3000 diag-dus [ <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.
;
; Diagnostic programs run under the DUS file manager.  They are initiated after
; DUS loading from the file manager command prompt and exit back to the command
; prompt when done.  These programs may be executed sequentially without
; reloading DUS.
;
; The diagnostics programs are driven by individual include files.  Include
; files must start with a command to run the diagnostic, supply whatever user
; input is required by the diagnostic, and then end with the DUS prompt
; pending.
;
; For automated replies, a delay of 30 milliseconds is needed to ensure that
; the read is pending on the ADCC after the appropriate GO UNTIL halt.
;

; Capture the execution console log.

set -N console log=DIAG-DUS.log


; Report the simulator version.

echo
echo
show version


; Establish the initial environment.
;
; REALTIME mode is necessary; otherwise, DUS output via the ADCC is sluggish.

echo
echo Configuring the simulation environment.

set CPU S58,2048K,REALTIME
set CPU STOP=COLDLOAD

set console DEL=177

set GIC CHANNEL=9

break delay 30 milliseconds


;  ***********************************
;  *                                 *
;  *  HP 3000 DUS Diagnostics Suite  *
;  *                                 *
;  ***********************************

echo
echo
echo
echo -------------------------------
echo Diagnostic Utility System Suite
echo -------------------------------
echo
echo Loading DUS.


; Cold load the DUS tape from channel 9 device 0.

attach -R MA0 DUS_Rev-2913.tape

load


; Start the diagnostic.

echo
echo Starting DUS.

go until ":"


; ADCC Diagnostic (ADCCDIAG).

do %1ADCCDIAG.inc %1


; GIC Diagnostic (GICDIAG).

do %1GICDIAG.inc %1


; 7970E Diagnostic (D7970S--).

do %1D7970.inc %1


; Diagnostics suite run is complete.
;
; Exit the simulator.

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

exit