; testing DX, select code 54B

; 7905/06/20/25 Disc diagnostic (DSN = 151403), multiple unit test

echo
echo
echo -----------------------------------------------
echo DSN 151403 - 7905/06/20/25 Disc (multiple unit)
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
set DX1 7906
set DX2 7920
set DX3 7925
set DX4 7905
set DX5 7906
set DX6 7920
set DX7 7925

attach DX0 scratch.U0.7905.disc
attach DX1 scratch.U1.7906.disc
attach DX2 scratch.U2.7920.disc
attach DX3 scratch.U3.7925.disc
attach DX4 scratch.U4.7905.disc
attach DX5 scratch.U5.7906.disc
attach DX6 scratch.U6.7920.disc
attach DX7 scratch.U7.7925.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 000004
reset
go

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

echo
set console response=YES~m
set console halt=H34
go

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

echo
set console response=0,1,2,3,4,5,6,7~m
set console halt=H25
go

; Respond to "H37 UNIT TABLE: 08 DRIVE(S); 0 1 2 3 4 5 6 7"
;            "H25 WISH TO CHANGE?"

echo
set console response=NO~m
set console halt=ENTER:
go

; Respond to "ENTER:(U)NIT,(?) ERRS,(H)EAD,(O)UTPUT,(P)ATT,(S)OFT,(C)YL,(M)CPU,(E)XIT"

echo
set console response=H~m
set console halt=H25
go

; Respond to "H62 HEAD TABLE..."
;            "H25 WISH TO CHANGE?"

echo
set console response=YES~m
set console halt=H132
go

; Respond to "H132 TYPE UNITS YOU WISH TO CHANGE SEPERATED BY COMMAS"

echo
set console response=0,1,4,5~m
set console halt=H106
go

; Respond to "H62 HEAD TABLE;  UNIT  0  7905A , 02 HEAD(S) 0 1"
;            "H106 ENTER HEADS SEPARATED BY COMMAS"

echo
set console response=0,1,2~m
set console halt=H25
go

; Respond to "H62 HEAD TABLE;  UNIT  0  7905A , 03 HEAD(S) 0 1 2"
;            "H25 WISH TO CHANGE?"

echo
set console response=NO~m
set console halt=H106
go

; Respond to "H62 HEAD TABLE;  UNIT  1  7906A , 02 HEAD(S) 0 1"
;            "H106 ENTER HEADS SEPARATED BY COMMAS"

echo
set console response=0,1,2,3~m
set console halt=H25
go


; Respond to "H62 HEAD TABLE;  UNIT  1  7906A , 04 HEAD(S) 0 1 2 3"
;            "H25 WISH TO CHANGE?"

echo
set console response=NO~m
set console halt=H106
go

; Respond to "H62 HEAD TABLE;  UNIT  4  7905A , 02 HEAD(S) 0 1"
;            "H106 ENTER HEADS SEPARATED BY COMMAS"

echo
set console response=0,1,2~m
set console halt=H25
go

; Respond to "H62 HEAD TABLE;  UNIT  4  7905A , 03 HEAD(S) 0 1 2"
;            "H25 WISH TO CHANGE?"

echo
set console response=NO~m
set console halt=H106
go

; Respond to "H62 HEAD TABLE;  UNIT  5  7906A , 02 HEAD(S) 0 1"
;            "H106 ENTER HEADS SEPARATED BY COMMAS"

echo
set console response=0,1,2,3~m
set console halt=H25
go

; Respond to "H62 HEAD TABLE;  UNIT  5  7906A , 04 HEAD(S) 0 1 2 3"
;            "H25 WISH TO CHANGE?"

echo
set console response=NO~m
set console halt=ENTER:
go

; Respond to "ENTER:(U)NIT,(?) ERRS,(H)EAD,(O)UTPUT,(P)ATT,(S)OFT,(C)YL,(M)CPU,(E)XIT"

echo
set console response=E~m
set console halt=~j

deposit S 000000
go

echo
echo Executing the diagnostic.
echo Expect messages "H121 WARNING-FORMAT SWITCH OFF"
echo and "H65 LONG PASS 0008,HEAD 012345678,UNIT 7,0000 ERRORS-0000 SOFT,MULTI-UNIT"
echo

set console halt=H65 LONG  PASS 0008
go


; Diagnostic complete.  Restore hardware configuration.

detach DX0
detach DX1
detach DX2
detach DX3
detach DX4
detach DX5
detach DX6
detach DX7

! del scratch.U0.7905.disc scratch.U1.7906.disc scratch.U2.7920.disc scratch.U3.7925.disc
! del scratch.U4.7905.disc scratch.U5.7906.disc scratch.U6.7920.disc scratch.U7.7925.disc