driver name is ataristd.joy

[cc65] / libsrc / atari / clrscr.s

diff --git a/libsrc/atari/clrscr.s b/libsrc/atari/clrscr.s
index ac8f896192fddef02ad15ea07cd304f8c06e4925..b352a83de8d629f8573cb027c308494daeaacf35 100644 (file)
--- a/libsrc/atari/clrscr.s
+++ b/libsrc/atari/clrscr.s
@@ -5,12 +5,9 @@
 ;
 
        .export         _clrscr
-
        .include        "atari.inc"
-
-.ifdef DIRECT_SCREEN
-
        .importzp       ptr1
+       .import         setcursor
 
 _clrscr:lda    SAVMSC          ; screen memory
        sta     ptr1
@@ -19,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
@@ -35,13 +33,4 @@ _clr1:       sta     (ptr1),y
 
 done:  sta     COLCRS
        sta     ROWCRS
-       rts
-
-.else
-
-       .import         putchar
-_clrscr:
-       lda     #ATCLR
-       jmp     putchar
-
-.endif
+       jmp     setcursor