; HP2100A Cartridge Disc Memory (DSN none, 24203-60001_Rev-A), multiple unit test
;
; Parameter 1 = path to diagnostics
;
; NOTE!  THIS DIAGNOSTIC OVERLAYS THE CONFIGURATOR LOADER!

echo
echo
echo -----------------------------------------------------------------
echo DSN (none) - HP2100A Cartridge Disc Memory (2870) (multiple unit)
echo -----------------------------------------------------------------
echo
echo Reloading the diagnostic configurator from magnetic tape.
echo Expect halt 102077 if successful.

deposit S 000001
boot MSC0

assert T=102077


; Verify the DSN.

echo
echo Verifying DSN 000200.

deposit M 126
assert T=000200


; Load the diagnostic.

echo
echo Loading the diagnostic.
echo Expect halt 102077 if successful.

attach -E -R PTR %124203-60001_Rev-A.abin

deposit S 001011
reset
go 100

assert T=102077

detach PTR


; Configure the diagnostic.

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

set DPC 12557A

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

deposit S 002211
reset
go 2

assert T=107077


; Select the test set.

echo
echo Configuring the test parameters.
echo Expect message "H33 RESET SWITCH 8" and halt 102002 for user intervention.

deposit S 000400
reset
go 100 until "COMMAS\r\n"


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

reply "0,1,2,3\r"
go

assert T=102002

; Respond to "H33 RESET SWITCH 8"

echo
echo [Switch 8 reset, switch 2 set, RUN pressed]
echo Expect message "H32 RESET SWITCH 2" and halt 102002 for user intervention.
echo

deposit S 000004
go until "TABLE?\r\n"


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

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


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

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

assert T=102002


; Respond to "H32 RESET SWITCH 2"

echo
echo [Switch 2 reset, RUN pressed]
echo
echo Executing the diagnostic.
echo Expect message "H65 PASS  0004"

deposit S 000000
reset
go 100 until "PASS  0004\r\n"


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

detach DPC0
detach DPC1
detach DPC2
detach DPC3

set DPC 13210A

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