;                         HP 3000 DUS DIAGNOSTICS SUITE
;
; This part of the HP Diagnostics Suite executes the diagnostics that run under
; the DUS operating system.
; 
; 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.
;
; There are two types of DUS 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 include
; file must start with a command to run its verifier program,
; supply whatever user input is required by the verifier, 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 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.

echo
echo Configuring the simulation environment.

set IMBA ENABLED

break delay 30 milliseconds


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

echo
echo
echo
echo -------------------------------
echo Diagnostic Utility System 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 ":"


; HP-IB 7970E (D7970Snn).

do %1D7970.inc %1


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

echo
echo
echo
echo --------------------------------------------
echo Diagnostic Utility System Suite Run Complete
echo --------------------------------------------
echo

exit