; Load DUS-III from the tape.


; Set up the log(s).

set -N console debug=LOCWRITE-debug.log
set -N console log=LOCWRITE.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

attach -n DC0 write.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"


; do a LOCWRITE on device 0 unit 0

go until "\r\n> " ; reply "DB AA,10,0\r"
go until "\r\n> " ; reply "DB BB,40,0\r"
go until "\r\n> " ; reply "DB CC,10,0\r"
go until "\r\n> " ; reply "DB DD,256,!1111\r"
go until "\r\n> " ; reply "ASSIGN CC(0),!0D,!18,!0000,!0100,!0200\r"
go until "\r\n> " ; reply "ASSIGN DD(127),!2233\r"
go until "\r\n> " ; reply "LET CHANNEL:=11,DEVICE:=0\r"
go until "\r\n> " ; reply "BSIO ZZ\r"
go until "\r\n> " ; reply "DSJ 90\r             . QSTAT REPORTING\r"
;
go until "\r\n> " ; reply "WR !5,CC(0),1,,R    . REQUEST STATUS COMMAND\r"
go until "\r\n> " ; reply "WAIT\r"
go until "\r\n> " ; reply "RR !E,BB(0),20      . REQUEST STATUS EXECUTION\r"
go until "\r\n> " ; reply "WAIT\r"
go until "\r\n> " ; reply "DSJ 150\r           . QSTAT REPORTING\r"
;
go until "\r\n> " ; reply "WR !5,CC(1),6,,R    . LOCWRITE COMMAND\r"
go until "\r\n> " ; reply "WAIT\r"
go until "\r\n> " ; reply "WR !E,DD(0),256     . LOCWRITE EXECUTION\r"
go until "\r\n> " ; reply "WAIT\r"
go until "\r\n> " ; reply "DSJ 200\r           . QSTAT REPORTING\r"
;
go until "\r\n> " ; reply "IN H\r"
go until "\r\n> " ; reply "RSIO\r"
go until "\r\n> " ; reply "END\r"

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