fix Tetris 128k

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

View File

@ -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

View File

@ -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