; 7900/01 Cartridge Disc diagnostic (DSN 151302. 24396-13601_Rev-2326), multiple unit test

echo
echo
echo ---------------------------------------------------
echo DSN 151302 - 7900/01 Cartridge Disc (multiple unit)
echo ---------------------------------------------------
echo
echo Loading the diagnostic.
echo Expect halt 102077 if successful.

deposit A 151302
deposit B 000000
reset
go 120

assert T=102077


; Verify the DSN.

echo
echo Verifying DSN 151302.

deposit M 126
assert T=151302


; Configure the diagnostic.

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

attach -N DPC0 scratch.U0.7900.disc
attach -N DPC1 scratch.U1.7900.disc
attach -N DPC2 scratch.U2.7900.disc
attach -N DPC3 scratch.U3.7900.disc

deposit S 000022
reset
go 100

assert T=102074


; Select the test set.

echo
echo Configuring the test parameters.

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


; Respond to "H24 CYLINDER TABLE
;             H25 WISH TO CHANGE?"

reply "NO\r"
go until "CHANGE?\r\n"


; Respond to "H27 PATTERN TABLE
;             H25 WISH TO CHANGE?"

reply "NO\r"
go until "2,3\r\n"


; Respond to "H62 TYPE A FOR HEADS 0,1;B FOR 2,3;C FOR ALTERNATELY 0,1 THEN 2,3"

reply "C\r"
go until "CHANGE?\r\n"


; Respond to "H23  00020 ERRORS/PASS ALLOWED
;             H25 WISH TO CHANGE?"

reply "NO\r"
go until "CHANGE?\r\n"


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

reply "YES\r"
go until "COMMAS\r\n"


; Respond to "H34 ENTER UNIT NUMBERS(0-3)SEPARATED BY COMMAS"

reply "0,1,2,3\r"
go until "CHANGE?\r\n"


; Respond to "H37 UNIT TABLE/ 04 DRIVE(S); 0 1 2 3
;             H25 WISH TO CHANGE?"

deposit S 000000

reply "NO\r"
go until "\n"


; Start the diagnostic.

echo
echo Executing the diagnostic.
echo Expect message "H65 LONG PASS 0008,HEADS 2/3,UNIT 03, 0000 ERRORS,MULTI-DRIVE"
echo

go until "HEADS 2/3,UNIT 03, 0000 ERRORS,MULTI-DRIVE\r\n"


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

detach DPC0
detach DPC1
detach DPC2
detach DPC3

delete scratch.U0.7900.disc
delete scratch.U1.7900.disc
delete scratch.U2.7900.disc
delete scratch.U3.7900.disc