;                       HP 3000 DUS-III DIAGNOSTICS SUITE
;
; This part of the HP Diagnostics Suite executes the diagnostics that run under
; the DUS-III operating system on an HP 3000 Series III and the HP 30341A HP-IB
; Adapter ("Starfish").
;
; Invocation:
;
;    hp3000 diag-dus-iii [ <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.
;
; There are two types of DUS-III diagnostics: those that run standalone, and
; those that run under the DUS file manager.  Standalone programs are
; cold-loaded individually from the DUS tape and return to their configuration
; dialog after each execution pass.  Programs that run under the file manager
; 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 for standalone programs begin with a cold-load from the DUS tape image
; and end with the program being halted externally.
;
; Each file manager include file 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 ATC after the appropriate GO UNTIL halt.


; Capture the execution console log.

set -N console log=DIAG-DUS-III.log


; Report the simulator version.

echo
echo
show version


; Establish the initial environment.

echo
echo Configuring the simulation environment.

set CPU III,512K

set IMBA ENABLED

set console DEL=177

break delay 30 milliseconds


;  ***************************************
;  *                                     *
;  *  HP 3000 DUS-III Diagnostics Suite  *
;  *                                     *
;  ***************************************

echo
echo
echo
echo --------------------------------
echo HP 3000 Standalone DUS-III Suite
echo --------------------------------
echo


; General I/O Channel (GICDIAG)

do %1GICDIAG-III.inc %1


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


; Cold load the DUS-III tape.

attach -e MS0 %1DUS-III.tape
boot MS0


; Configure the diagnostic.

echo
echo Configuring DUS-III.

deposit SWCH 2


; Load and start the diagnostic.
;
; DUS-III loads from tape and then waits for a <CR>.

echo
echo Starting DUS-III.

reply "\r" delay 2 seconds

go until ":"


; CS/80 Diagnostic (CS80DIAG).

do %1CS80DIAG-III.inc %1


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

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

exit