;script name: rdmod32
;reads module 32 on WD Marvell drives
;
reset
waitnbsy

; VSC enable

regs = $45 $0b $00 $44 $57 $a0 $80
waitnbsy

; send VSC to read module 32

regs = $d6 $01 $be $4f $c2 $a0 $b0
waitnbsy
checkdrq
sectorsfrom = rm32.bin

%modsec = 0

; reads module 32, one sector at a time
; and creates one file for each sector

@loop:

%modsec = %modsec + 1
if %modsec = 9 @end

waitnbsy
regs = $d5 $01 $bf $4f $c2 $a0 $b0
waitnbsy
%error = iserror
if %error = 1 @loop
checkdrq
sectorsto = 32%modsec.bin

goto @loop

@end: