; 7905/06/20/25 Disc diagnostic (DSN 151403, 24396-13601_Rev-2326), user interaction

echo
echo
echo --------------------------------------------------
echo DSN 151403 - 7905/06/20/25 Disc (user interaction)
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


; Start the diagnostic.

echo
echo Executing the diagnostic.
echo Expect halt 102002 for user intervention.

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


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

reply "NO\r"
go

assert T=102002


; Respond to "H66 SET FORMAT SWITCH ON UNIT  0,PUSH RUN"

echo
echo [FORMAT switch set, RUN pressed]
echo Expect message "H46 READ IN STEP  04" and halt 102001.
echo

set DS0 FORMAT
go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "H22 VERIFY IN STEP  04" and halt 102001.
echo

go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect halt 102002 for user intervention.
echo

go

assert T=102002


; Respond to "H67 CLEAR FORMAT SWITCH ON UNIT  0,PUSH RUN"

echo
echo [FORMAT switch cleared, RUN pressed]
echo Expect message "H46 READ IN STEP  07" and halt 102001.
echo

set DS0 NOFORMAT
go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "H45 WRITE  IN STEP  08" and halt 102001.
echo

go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect halt 102002 for user intervention.
echo

go

assert T=102002


; Respond to "H66 SET FORMAT SWITCH ON UNIT  0,PUSH RUN"

echo
echo [FORMAT switch set, RUN pressed]
echo Expect message "H45 WRITE  IN STEP  10" and halt 102001.
echo

set DS0 FORMAT
go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect halt 102002 for user intervention.
echo

go

assert T=102002


; Respond to "H70 UNLOAD UNIT  0,PUSH RUN"

echo
echo [Unit unloaded, RUN pressed]
echo Expect message "H107 READY UNIT  0".
echo

set DS0 UNLOAD
go until "UNIT  0\r\n"


; Respond to "H107 READY UNIT  0"

echo
echo [Unit readied]
echo Expect halt 102002 for user intervention.
echo

set DS0 LOAD
go

assert T=102002


; Respond to "H142 PROTECT  U/D,PUSH RUN"

echo
echo [U/D protected, RUN pressed]
echo Expect halt 102002 for user intervention.
echo

set DS0 PROTECT
go

assert T=102002


; Respond to "H143 CLEAR  U/D PROTECT,PUSH RUN"

echo
echo [U/D protect cleared, RUN pressed]
echo Expect halt 102002 for user intervention.
echo

set DS0 UNPROTECT
go

assert T=102002


; Respond to "H110 PRESS PRESET(S),PRESS RUN"

echo
echo [PRESET pressed, RUN pressed]
echo Expect message "H46 READ IN STEP  38" and halt 102001.
echo

reset
go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "H46 READ IN STEP  39" and halt 102001.
echo

go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "H46 READ IN STEP  40" and halt 102001.
echo

go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "H46 READ IN STEP  41" and halt 102001.
echo

go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "H46 READ IN STEP  42" and halt 102001.
echo

go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "H22 VERIFY IN STEP  43" and halt 102001.
echo

go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "H22 VERIFY IN STEP  43" and halt 102001.
echo

go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "H45 WRITE  IN STEP  43" and halt 102001.
echo

go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "H46 READ IN STEP  43" and halt 102001.
echo

go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "H46 READ IN STEP  43" and halt 102001.
echo

go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "H65 SHORT PASS 0001,HEAD 01       ,UNIT 0,0015 ERRORS-0015 SOFT"
echo

deposit S 000140
go until "SOFT\r\n"


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

detach DS0
delete scratch.U0.7905.disc