; Cold Load Read command, 4 sectors.


; Set up the log(s).

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

set ds debug
set sel debug


; 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,0~m
go

; NOTE: this Seek doesn't cause a seek check because it's executed
;       in a separate SIO program that waits for the seek completion interrupt
;       before continuing with the CLR.

set console response=SEEK 0~m
go

set console response=CLR 0,AA~m
go

set console response=END~m
go

set console response=RUN~m
go