Apple-2-SW/FocusDrive3
1
0
Fork 0
mirror of https://github.com/david-schmidt/FocusDrive3.git synced 2024-06-10 21:29:28 +00:00
Code Issues Projects Releases Wiki Activity

Correct multi-block buffer handling

Browse Source
This commit is contained in:
david-schmidt 2019-01-28 19:02:59 -05:00
parent fd1f0e874d
commit 9b01d5663f
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/focus3.s
View File

@ -6,7 +6,7 @@
.setcpu "6502"
.reloc
DriverVersion = $003B ; Version number
DriverVersion = $004B ; Version number
DriverMfgr = $4453 ; Driver Manufacturer - DS
DriverType = $E1 ; No formatter present for the time being
DriverSubtype = $02 ;
@ -449,6 +449,8 @@ ReadOne: jsr ReadBlock
bne SkipReadMSBIncrement
inc ProBlock+1
SkipReadMSBIncrement:
inc SosBuf+1 ; Go get the next block in the buffer
jsr BumpSosBuf ; ...512 bytes in, and check the pointer
dec Num_Blks
bne ReadOne
ldy #$00
@ -492,6 +494,8 @@ WriteOne: jsr WriteBlock
bne SkipWriteMSBIncrement
inc ProBlock+1
SkipWriteMSBIncrement:
inc SosBuf+1 ; Go get the next block in the buffer
jsr BumpSosBuf ; ...512 bytes in, and check the pointer
dec Num_Blks
bne WriteOne
clc
@ -581,6 +585,9 @@ CvtBlk:
BlkErr: lda #XBLKNUM
jsr SysErr ; Return to SOS with error in A
BumpSosBuf: inc SosBuf+1 ; Increment SosBuf MSB
; fallthrough to FixUp
;
; Fix up the buffer pointer to correct for addressing
; anomalies. We just need to do the initial checking
@ -935,7 +942,7 @@ Read1Block:
sta (SosBuf),y
iny
bne @1
inc SosBuf+1
jsr BumpSosBuf
@2: lda ATData16,x
sta (SosBuf),y
iny
@ -963,7 +970,7 @@ WriteSector:
sta ATData16+1,x
iny
bne WriteSector
inc SosBuf+1
jsr BumpSosBuf
Local:
lda (SosBuf),y
sta ATData16,x