Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-06-01 08:41:31 +00:00
Code Issues Projects Releases Wiki Activity

fix Tetris 128k

Browse Source
This commit is contained in:
Peter Ferrie 2020-05-22 13:06:37 -07:00
parent 27b5e5c53d
commit bf9d236f75
2 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/constants.a
View File

@ -17,8 +17,8 @@
; LC RAM BANK 2
; D000..D3FF - ProRWTS data
; D400..D66F - ProRWTS code
; D670..DB9C - HGR font code & ProRWTS glue code
; DB9D..DBAB - backup of stack (during gameplay and self-running demos)
; D670..DB9B - HGR font code & ProRWTS glue code
; DB9C..DBAA - backup of stack (during gameplay and self-running demos)
; ...unused...
; DBB4..DBFF - (de)acceleration function
; DC00..DFFF - HGR font data

26
src/prodos.impl.lc2.a
View File

@ -193,7 +193,7 @@ ProDOS_enter
sta (buffer), y
ldy #1
sta (buffer), y
bne @jmp_zp2
bne @jmp_zp2 ;always
@imp_open
ldx #namlo
@ -213,26 +213,26 @@ ProDOS_enter
sta sizehi
sta sizelo
jsr hddopendir
lda #0
sta blkidx
stx blkidx
beq @jmp_zp ;always
resetval=$f0
@imp_seek
jsr @set_rdwrbuff
lda #0
sta blkidx
sta blkofflo
sta blkoffhi
sta reqcmd
ldx #0
stx blkidx
stx blkofflo
stx blkoffhi
stx reqcmd
jsr @reset
ldx sizelo
beq @seek64
sta sizehi
sta sizelo
jsr @seekreset
inc ldrlo
bne @seek64
inc ldrhi
lda ldrhi
sbc #resetval
sta ldrhi
@seek64
lda ldrhi
@ -249,9 +249,9 @@ ProDOS_enter
@seekreset
jsr hddrdwrpart
@reset
lda #$f0
lda #resetval
sta blefthi
sta bleftlo
stx bleftlo
rts
@imp_read