;script name: read MOD
;reads MOD 02 and MOD 802F plus first sector of MOD 01
;
;RD_02.bin    0x0000 08 00 01 00 02 00 00 00 00 00 00 00 00 00 00 00
;RD_802F.bin  0x0000 08 00 01 00 2F 80 00 00 00 00 00 00 00 00 00 00
;RD_01.bin    0x0000 08 00 01 00 01 00 00 00 00 00 00 00 00 00 00 00
;
reset
waitnbsy

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

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

regs = $d5 $04 $bf $4f $c2 $a0 $b0
waitnbsy
checkdrq
sectorsto = MOD_02.bin

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

regs = $d5 $05 $bf $4f $c2 $a0 $b0
waitnbsy
checkdrq
sectorsto = MOD_802F.bin

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

regs = $d5 $01 $bf $4f $c2 $a0 $b0
waitnbsy
checkdrq
sectorsto = MOD_01.bin

; end
