git.sur5r.net Git - cc65/blob - libsrc/atari/clrscr.s

   1 ;
   2 ; Christian Groessler, Apr-2000
   3 ;
   4 ; void clrscr (void);
   5 ;
   6
   7         .export         _clrscr
   8         .include        "atari.inc"
   9         .importzp       ptr1
  10
  11 _clrscr:lda     SAVMSC          ; screen memory
  12         sta     ptr1
  13         lda     SAVMSC+1
  14         clc
  15         adc     #>(40*24)
  16         sta     ptr1+1
  17         lda     #0              ; screen code of space char
  18         ldy     #<(40*24)       ; 40x24: size of default atari screen
  19         ldx     #>(40*24)
  20 _clr1:  sta     (ptr1),y
  21         dey
  22         bne     _clr1
  23         sta     (ptr1),y
  24         dex
  25         bmi     done
  26         ldy     ptr1+1
  27         dey
  28         sty     ptr1+1
  29         ldy     #255
  30         jmp     _clr1
  31
  32 done:   sta     COLCRS
  33         sta     ROWCRS
  34         rts
  35