; Test seek checks on seeks-in-progress.


; Set up the log(s).

set -n console log=yseeks.log
set -n console debug=debug.log

set ds debug
set sel debug


; Set the CLK into diagnostic mode.

set clk realtime
set ds realtime


; Configure the disc drive.

set ds0 7905,format

attach -n ds0 scratch.0.disc


; Enter the diagnostic.

set console delay=100000
set -a -i console halt=>

set console response=~m
go

set console response=DEV 0,4,15,99,0~m
go

set console response=DB AA,6144,0~m
go

set console response=DB CA,2,W~m
go

set console response=1(400),1(0)~m
go

set console response=DB CB,2,0~m
go

set console response=NAME SK~m
go

; Seek unit 0 to 400/0/0

set console response=CONT 0,\%001000~m
go

set console response=WRIT CA~m
go

; Seek unit 0 to 0/0/0; should cause a seek check

set console response=CONT 0,\%001000~m
go

set console response=WRIT CB~m
go

; End

set console response=CONT 0,\%012400~m
go

set console response=ENDS~m
go

; Interrupt status expected is <don't care> | Drive Attention | unit 0

set console response=SIO 0,SK,1,5,\%017400,\%100000~m
go

set console response=RQST 0~m
go

set console response=DISP 0,R~m
go

set console response=END~m
go

set console response=RUN~m
go