; testing DX, select code 54B

; 7905/06/20/25 Disc diagnostic (DSN = 151403), operator design

echo
echo
echo -------------------------------------------------
echo DSN 151403 - 7905/06/20/25 Disc (operator design)
echo -------------------------------------------------
echo
echo Loading the diagnostic.
echo Expect halt 102077 if successful.

deposit A 151403
deposit B 000000
reset
go 120

assert T=102077

echo
echo Verifying DSN 151403.

deposit M 126
assert T=151403

echo
echo Configuring the diagnostic.
echo Expect halt 102074 if successful.

set DX0 7905
attach DX0 scratch.U0.7905.disc

deposit S 000054
reset
go 100

assert T=102074

echo
echo Configuring the test parameters.

set console delay=425000
set console halt=H25

deposit S 040010
reset
go

; Respond to "H37 UNIT TABLE: 01 DRIVE(S); 0"
;            "H25 WISH TO CHANGE?"

echo
echo Executing the diagnostic in OPDSN mode.
echo

set console response=NO~m
set console nohalt
go


; Diagnostic complete.  Restore hardware configuration.

detach DX0

! del scratch.U0.7905.disc