; Load DUS-III from the tape.


; Set up the log(s).

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

set iop debug=dio;irq,filter=0-87
set imba debug
set gic debug
set dc  debug
set cpp debug


; Establish the initial environment.

echo
echo Configuring the simulation environment.

set CPU 512K,CIS

set console DEL=177

set IMBA ENABLED

break delay 30 milliseconds


; Set up the CS/80 device.

set DC0 7911
set DC1 ENABLED,7911,BUS=0,UNIT=1

attach DC0 scratch.7911.disc


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


echo
echo Configuring the diagnostic.

deposit SWCH 2


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

echo
echo Starting the diagnostic.

reply "\r" delay 2 seconds

go until "\r\n:" ; reply "AID\r"


; Run the CS80DIAG program and proceed to the CS80EXER section.

go until "\r\n> "     ; reply "LOAD CS80DIAG\r"


; The program needs a fix to set CPVA 0 = 0 during the IOMAP section.
; Otherwise, the CPVA abort from missing devices will be seen when the
; program attempts its first post-IOMAP channel program.
;
;go until "\r\n>8900 " ; reply "1837 LET YY(0):=0\r"


; The program needs a fix for unit selection.  It erroneously checks
; the user response to "WHAT UNIT DO YOU WISH TO TEST" against the unit
; field of DESCRIBE, which is a bitmap of units, not unit numbers!  The
; fix is copied from CS80DIAG version 0.16.

go until "\r\n>8900 " ; reply '8300 PRINT "WHAT UNIT DO YOU WISH TO TEST?"\r'
go until "\r\n>8900 " ; reply "8313 IFN -1 LT U LT 16 THEN 8330\r"
go until "\r\n>8900 " ; reply "8316 LET U:=1 LSL U\r"


; OK, that should do it.

go until "\r\n>8900 " ; reply "RUN\r"


; Respond to "WHAT UNIT DO YOU WISH TO TEST?"
; and "? "

go until "?\r\n? " ; reply "0\r"


; Respond to "DEFAULT SECTIONS ARE 1-4"
;
; Select test 6, which is the exerciser.

go until "\r\n>" ; reply "TEST 6\r"
go until "\r\n>" ; reply "GO\r"


; Respond to "SELECTED DATA DESTRUCTIVE TEST, SHOULD USE SCRATCH MEDIA"

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