From e3fb1b3d3d761866e06433e20a75a4ef9d380d1f Mon Sep 17 00:00:00 2001
From: Christian Groessler <chris@groessler.org>
Date: Fri, 21 Jun 2013 01:53:13 +0200
Subject: [PATCH] Fix writing one byte beyond screen buffer.

---
 libsrc/atari/clrscr.s | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/libsrc/atari/clrscr.s b/libsrc/atari/clrscr.s
index 58fb63137..483cd047e 100644
--- a/libsrc/atari/clrscr.s
+++ b/libsrc/atari/clrscr.s
@@ -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