From: Stephan Mühlstrasser <stephan.muehlstrasser@web.de>
Date: Mon, 23 Feb 2015 18:06:22 +0000 (+0100)
Subject: Clear bottom line when scrolling.
X-Git-Tag: V2.15~20^2~6^2~1^2
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=73ae95bd1c11ccfca9f98d6941ee2600d901c033;p=cc65

Clear bottom line when scrolling.

Fix provided by Jeff Tranter.
---

diff --git a/libsrc/osic1p/cputc.s b/libsrc/osic1p/cputc.s
index 47969df15..058964573 100644
--- a/libsrc/osic1p/cputc.s
+++ b/libsrc/osic1p/cputc.s
@@ -58,6 +58,12 @@ scroll: lda     SCRNBASE+$00A5,x
         sta     SCRNBASE+$0285,x
         inx
         bne scroll
+bottom:
+        lda     #' '            ; Clear bottom line of screen
+        sta     SCRNBASE+$0385,x
+        inx
+        cpx     #SCR_LINELEN+1
+        bne     bottom
 
 plot:   ldy     CURS_Y
         lda     ScrLo,y