; HP2100A Disc File (2883) (DSN 111001, 24396-13601_Rev-1713), user interaction test

echo
echo
echo --------------------------------------------------------
echo DSN 111001 - HP2100A Disc File (2883) (user interaction)
echo --------------------------------------------------------
echo
echo Loading the diagnostic.
echo Expect halt 102077 if successful.

deposit A 111001
deposit B 000000
reset
go 120

assert T=102077


; Verify the DSN.

echo
echo Verifying DSN 111001.

deposit M 126
assert T=111001

echo
echo Initializing the diagnostic.
echo Expect halt 107001 for user intervention.

attach -N DQC0 scratch.U0.2883.disc

reset
go 100

assert T=107001


; Configure the diagnostic.

echo
echo Configuring the diagnostic.
echo Expect halt 107077 for user intervention.

deposit S 002411
go

assert T=107077


; Start the diagnostic.

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

deposit S 000142
go

assert T=102002


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

echo
echo [RUN pressed]
echo Expect message "E47 DATA WORD 0000 IS 000000 SHOULD BE  100000" and halt 102001.
echo

go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "E47 DATA WORD 0000 IS 000000 SHOULD BE  100001" and halt 102001.
echo

go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "E64 STATUS IS 000000 SHOULD BE  000031" and halt 102001.
echo

go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "E64 STATUS IS 000000 SHOULD BE  000031" 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 [RUN pressed]
echo Expect message "E64 STATUS IS 000000 SHOULD BE  000031" and halt 102001.
echo

go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "E64 STATUS IS 000000 SHOULD BE  000031" and halt 102001.
echo

go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "E64 STATUS IS 000000 SHOULD BE  000011" and halt 102001.
echo

go

assert T=102001


; Respond to the error.

echo
echo Resuming from error.
echo Expect message "E64 STATUS IS 000000 SHOULD BE  000011" 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 [RUN pressed]
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 [RUN pressed]
echo Expect halt 102002 for user intervention.
echo

go

assert T=102002


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

echo
echo [Unit disabled, RUN pressed]
echo Expect message "H40 ENABLE UNIT  0".
echo

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


; Respond to "H40 ENABLE UNIT  0"

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

set DQC0 LOAD
go

assert T=102002


; Respond to "H71 PRESS PRESET THEN PRESS RUN"

echo
echo [PRESET pressed, RUN pressed]
echo Expect halt 102077 for successful completion.
echo

deposit S 010140
reset
go


; End of the diagnostic.
;
; Verify HLT 77B for a successful pass.

assert T=102077


; Restore the hardware configuration.

detach DQC0
delete scratch.U0.2883.disc