; Load DUS from the tape and run GIGDIAG.


; Set up the log(s).

set -N console log=DUSD.log
set -N console debug=DUSD-debug.log


; Establish the initial environment.

echo
echo Configuring the simulation environment.


; REALTIME is needed until flexible TCLK handling is implemented

set CPU S58,REALTIME


set CPU STOP=UNIMPL

deposit CPU CONFIG 1

set ADCC CHANNEL=1
set GIC CHANNEL=12
set MA CHANNEL=12

set ATCD DISABLED
set ATCC DISABLED

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.

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

; boot MA

deposit SWCH 000140
load


; Load and start the diagnostic.

echo
echo Starting the diagnostic.

go until "\r\n:"

if "%1" == "" do gicdiag.inc
if "%1" != "" do gictest.inc %1

go until "\r\n:"

exit