call setcursur when finished

git-svn-id: svn://svn.cc65.org/cc65/trunk@1662 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/libsrc/atari/clrscr.s b/libsrc/atari/clrscr.s
index 946f3a2da35e92f5083b54c0f02b273429c4e2ca..b352a83de8d629f8573cb027c308494daeaacf35 100644 (file)
--- a/libsrc/atari/clrscr.s
+++ b/libsrc/atari/clrscr.s
@@ -7,6 +7,7 @@
        .export         _clrscr
        .include        "atari.inc"
        .importzp       ptr1
+       .import         setcursor
 
 _clrscr:lda    SAVMSC          ; screen memory
        sta     ptr1
@@ -15,6 +16,7 @@ _clrscr:lda   SAVMSC          ; screen memory
        adc     #>(40*24)
        sta     ptr1+1
        lda     #0              ; screen code of space char
+       sta     OLDCHR
        ldy     #<(40*24)       ; 40x24: size of default atari screen
        ldx     #>(40*24)
 _clr1: sta     (ptr1),y
@@ -31,5 +33,4 @@ _clr1:        sta     (ptr1),y
 
 done:  sta     COLCRS
        sta     ROWCRS
-       rts
-
+       jmp     setcursor