; Load DUS from the tape.
; With no parameter, runs GICDIAG.INC
; With a parameter, runs GICTEST<param>.INC if it exists.
;   Otherwise, runs GICTEST.INC.


; Set up the log(s).

set -N console log=DUS.log
if "%1" != "" set -N console debug=DUS-debug.log


; Establish the initial environment.

echo
echo Configuring the simulation environment.


set CPU S58,4096K,REALTIME
set CPU STOP=COLDLOAD;UNIMPL

set GIC COUNT=2
set GICA CHANNEL=9

set console DEL=177

break delay 30 milliseconds


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


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

attach -e -r MA0 \engineering\hpdxx\3000\DUS_Rev-2913.tape

load


; Load and start the diagnostic.

echo
echo Starting the diagnostic.

go until ":"

if "%1" != "" && exist "GICTEST%1.inc" do GICTEST%1.inc
if "%1" != "" && not exist "GICTEST%1.inc" do GICTEST.inc %1
if "%1" == "" do gicdiag.inc