mirror of
https://github.com/cc65/cc65.git
synced 2024-12-23 19:29:37 +00:00
Fix writing one byte beyond screen buffer.
This commit is contained in:
parent
f16516047a
commit
73c4566ca7
@ -9,26 +9,26 @@
|
||||
.importzp ptr1
|
||||
.import setcursor
|
||||
|
||||
SCRSIZE = 960 ; 40x24: size of default atari screen
|
||||
|
||||
_clrscr:lda SAVMSC ; screen memory
|
||||
sta ptr1
|
||||
lda SAVMSC+1
|
||||
clc
|
||||
adc #>(40*24)
|
||||
adc #>(SCRSIZE-1)
|
||||
sta ptr1+1
|
||||
lda #0 ; screen code of space char
|
||||
sta OLDCHR
|
||||
ldy #<(40*24) ; 40x24: size of default atari screen
|
||||
ldx #>(40*24)
|
||||
ldy #<(SCRSIZE-1)
|
||||
ldx #>(SCRSIZE-1)
|
||||
_clr1: sta (ptr1),y
|
||||
dey
|
||||
bne _clr1
|
||||
sta (ptr1),y
|
||||
dex
|
||||
bmi done
|
||||
ldy ptr1+1
|
||||
dec ptr1+1
|
||||
dey
|
||||
sty ptr1+1
|
||||
ldy #255
|
||||
jmp _clr1
|
||||
|
||||
done: sta COLCRS
|
||||
|
Loading…
Reference in New Issue
Block a user