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

fix Tetris 48kb

Browse Source
This commit is contained in:
Peter Ferrie 2019-01-15 21:55:40 -08:00
parent 0422b260c9
commit 9d104061f4
1 changed files with 33 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
src/glue.prorwts2.a
View File

@ -524,32 +524,46 @@ 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
lda #cmdseek
!byte $2c
ldx @handles+1
lda @sizelo-1, x
sta bleftlo
lda @sizehi-1, x
sta blefthi
lda #0
sta blkidx
sta blkofflo
sta blkoffhi
sta reqcmd
jsr @set_rdwrbuff
lda ldrhi
sta sizehi
lda ldrlo
sta sizelo
jsr hddrdwrpart
lda ldrhi
ora ldrlo
bne @jmp_zp
dec blkidx
beq @jmp_zp ;always
@imp_read
lda #cmdread
!byte $2c
@imp_write
lda #cmdwrite
sta reqcmd
pha
jsr @set_rdwrbuff
pla
pha
bne @set_blocks
lda ldrhi
sta sizehi
lda ldrlo
sta sizelo
@set_blocks
jsr hddrdwrpart
pla
beq @jmp_zp ;seek doesn't return size
ldy #6
lda sizelo2
sta (packet), y
@ -566,7 +580,7 @@ ProDOS_enter
iny
lda blefthi
sta (packet), y
jmp @restore_zp
bcs @restore_zp ;always
@imp_close
lda @handles+1
@ -656,5 +670,10 @@ 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