; 9-Track Magnetic Tape (7970E, 13183) diagnostic (DSN = 112200)
;
; Operator Design

echo
echo
echo -------------------------------------------------------
echo DSN 112200 - 9-Track Magnetic Tape (7970E, 13183) OPDSN
echo -------------------------------------------------------
echo
echo Loading the diagnostic.
echo Expect halt 102077 if successful.

deposit A 112200
deposit B 000000
reset
go 120

assert T=102077


; Verify the DSN.

echo
echo Verifying DSN 112200.

deposit M 126
assert T=112200


; Establish the standard break time for diagnostic responses.

break delay 5000


; Configure the diagnostic.

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

detach MSC0

set MSC 13183A,REALTIME

set MSC DEBUG
set -N console debug=op.log

attach -N MSC0 scratch.U0.7970.tape

deposit S 104016
reset
go 100

assert T=102074


; Select the test set.

echo
echo Selecting the test set.
echo Expect halt 102075 if successful.

deposit S 001000
reset
go

assert T=102075


; Start the diagnostic.

echo
echo Executing the diagnostic.
echo Enter OPDSN commands.
echo

deposit A 000000
deposit B 100000
deposit S 000021

reset
go until "@"


; Call the include file to process commands.

do opdsn-ms.inc