Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-12-25 13:33:13 +00:00
Code Issues Projects Releases Wiki Activity

fix Tetrisk 128k

Browse Source
This commit is contained in:
Peter Ferrie 2019-01-16 13:12:57 -08:00
parent 9d104061f4
commit 329f867fd6
1 changed files with 21 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/glue.prorwts2.a
View File

@ -524,38 +524,47 @@ ProDOS_enter
sta sizehi
sta sizelo
jsr hddopendir
ldx @handles+1
lda bleftlo
sta @sizelo-1, x
lda blefthi
sta @sizehi-1, x
lda #0
sta blkidx
beq @jmp_zp ;always
@imp_seek
ldx @handles+1
lda @sizelo-1, x
sta bleftlo
lda @sizehi-1, x
sta blefthi
jsr @set_rdwrbuff
lda #0
sta blkidx
sta blkofflo
sta blkoffhi
sta reqcmd
jsr @set_rdwrbuff
jsr @reset
ldx sizelo
beq @seek64
sta sizehi
sta sizelo
jsr @seekreset
inc ldrlo
bne @seek64
inc ldrhi
@seek64
lda ldrhi
sta sizehi
lda ldrlo
sta sizelo
jsr hddrdwrpart
jsr @seekreset
lda ldrhi
ora ldrlo
bne @jmp_zp
dec blkidx
beq @jmp_zp ;always
@seekreset
jsr hddrdwrpart
@reset
lda #$ff
sta blefthi
sta bleftlo
rts
@imp_read
lda #cmdread
!byte $2c
@ -670,10 +679,5 @@ ProDOS_enter
@handle
!byte 0, 0 ;only up to two handles at a time
@sizelo
!byte 0, 0 ;only up to two files at a time
@sizehi
!byte 0, 0 ;only up to two files at a time
@saved_zp
!fill (last_zp - first_zp) + 1