Fix writing one byte beyond screen buffer.

This commit is contained in:
Christian Groessler 2013-06-21 01:53:13 +02:00
parent 93bd9a8e51
commit e3fb1b3d3d
1 changed files with 6 additions and 6 deletions

View File

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