; Load DUS-III from the tape and run the CS80DIAG program.


; Set up the log(s).

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

set imba debug=csrw;data
set gic  debug
set cpp  debug
set dc   debug=cmd;inco


; Establish the initial environment.

echo
echo Configuring the simulation environment.

set CPU 512K,CIS

set console DEL=177

set IMBA ENABLED
set ADCC DISABLED

break delay 30 milliseconds


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


; Cold load the DUS-III tape.

attach -e -r MS0 DUS-III.tape
boot MS0


; Configure the diagnostic.
;
; A Device Clear reset is required to clear the power-on status in the disc
; controller (unit 15).  If this is not done, the diagnostic will report the
; status as an error in section 3.  This is a bug in the diagnostic.

echo
echo Configuring the diagnostic.

deposit SWCH 2

attach DC0 scratch.7933.disc

reset -C DC


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

echo
echo Starting the diagnostic.

reply "\r" delay 2 seconds


; Run the CS/80 diagnostic.

go until ":" ; reply "CS80DIAG\r"


; Respond to "DEFAULT SECTIONS ARE 1-4, TYPE 'GO' TO CONTINUE"

go until ">" ; reply "TEST 1/5\r"
go until ">" ; reply "GO\r"


; Test 5 is destructive and adds an extra prompt.
;
; Respond to "SELECTED DATA DESTRUCTIVE TEST, SHOULD USE SCRATCH MEDIA"

go until ">" ; reply "GO\r"


; Exit the diagnostic.

go until ">" ; reply "EXIT\r"


; Exit DUS.

go until ":"

exit