; 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


; Verify the DSN.

echo
echo Verifying DSN 151403.

deposit M 126
assert T=151403


; Configure the diagnostic.

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

set DS0 7905

attach -N DS0 scratch.U0.7905.disc

deposit S 000034
reset
go 100

assert T=102074


; Select the test set.

echo
echo Configuring the test parameters.

deposit S 040010
reset
go until "CHANGE?\r\n"


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

echo
echo Executing the diagnostic in OPDSN mode.
echo

reply "NO\r"
go


; End of the diagnostic.
;
; Restore the hardware configuration.

detach DS0
delete scratch.U0.7905.disc