mirror of
https://github.com/a2-4am/4cade.git
synced 2024-11-27 08:50:01 +00:00
fix Tetris 128k
This commit is contained in:
parent
27b5e5c53d
commit
bf9d236f75
@ -17,8 +17,8 @@
|
|||||||
; LC RAM BANK 2
|
; LC RAM BANK 2
|
||||||
; D000..D3FF - ProRWTS data
|
; D000..D3FF - ProRWTS data
|
||||||
; D400..D66F - ProRWTS code
|
; D400..D66F - ProRWTS code
|
||||||
; D670..DB9C - HGR font code & ProRWTS glue code
|
; D670..DB9B - HGR font code & ProRWTS glue code
|
||||||
; DB9D..DBAB - backup of stack (during gameplay and self-running demos)
|
; DB9C..DBAA - backup of stack (during gameplay and self-running demos)
|
||||||
; ...unused...
|
; ...unused...
|
||||||
; DBB4..DBFF - (de)acceleration function
|
; DBB4..DBFF - (de)acceleration function
|
||||||
; DC00..DFFF - HGR font data
|
; DC00..DFFF - HGR font data
|
||||||
|
@ -193,7 +193,7 @@ ProDOS_enter
|
|||||||
sta (buffer), y
|
sta (buffer), y
|
||||||
ldy #1
|
ldy #1
|
||||||
sta (buffer), y
|
sta (buffer), y
|
||||||
bne @jmp_zp2
|
bne @jmp_zp2 ;always
|
||||||
|
|
||||||
@imp_open
|
@imp_open
|
||||||
ldx #namlo
|
ldx #namlo
|
||||||
@ -213,26 +213,26 @@ ProDOS_enter
|
|||||||
sta sizehi
|
sta sizehi
|
||||||
sta sizelo
|
sta sizelo
|
||||||
jsr hddopendir
|
jsr hddopendir
|
||||||
lda #0
|
stx blkidx
|
||||||
sta blkidx
|
|
||||||
beq @jmp_zp ;always
|
beq @jmp_zp ;always
|
||||||
|
|
||||||
|
resetval=$f0
|
||||||
@imp_seek
|
@imp_seek
|
||||||
jsr @set_rdwrbuff
|
jsr @set_rdwrbuff
|
||||||
lda #0
|
ldx #0
|
||||||
sta blkidx
|
stx blkidx
|
||||||
sta blkofflo
|
stx blkofflo
|
||||||
sta blkoffhi
|
stx blkoffhi
|
||||||
sta reqcmd
|
stx reqcmd
|
||||||
jsr @reset
|
jsr @reset
|
||||||
ldx sizelo
|
ldx sizelo
|
||||||
beq @seek64
|
beq @seek64
|
||||||
sta sizehi
|
sta sizehi
|
||||||
sta sizelo
|
sta sizelo
|
||||||
jsr @seekreset
|
jsr @seekreset
|
||||||
inc ldrlo
|
lda ldrhi
|
||||||
bne @seek64
|
sbc #resetval
|
||||||
inc ldrhi
|
sta ldrhi
|
||||||
|
|
||||||
@seek64
|
@seek64
|
||||||
lda ldrhi
|
lda ldrhi
|
||||||
@ -249,9 +249,9 @@ ProDOS_enter
|
|||||||
@seekreset
|
@seekreset
|
||||||
jsr hddrdwrpart
|
jsr hddrdwrpart
|
||||||
@reset
|
@reset
|
||||||
lda #$f0
|
lda #resetval
|
||||||
sta blefthi
|
sta blefthi
|
||||||
sta bleftlo
|
stx bleftlo
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@imp_read
|
@imp_read
|
||||||
|
Loading…
Reference in New Issue
Block a user