; Read Without Verify command, 4 sectors.


; Set up the log(s).

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


; Set the CLK into diagnostic mode.

set clk 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,512,\%011111~m
go

set console response=DB BB,512,0~m
go

set console response=DB CC,512,W~m
go

set console response=256(\%011111),256(\%022222)~m
go

set console response=SKWD 0,AA,\%007403,0,0,46~m
go

set console response=CHB AA,\%022222~m
go

set console response=SKWD 0,AA,\%007403,1,0,46~m
go

set console response=SEEK 0,0,0,46~m
go

set console response=AR 0,1,0,46~m
go

set console response=RWVI 0,BB,\%007403~m
go

set console response=CB 0,BB,CC,10~m
go

set console response=END~m
go


; Run the program.

set console response=RUN~m
;set console nohalt
go