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

   1 ;
   2 ; Christian Groessler, 13-Dec-2002
   3 ;
   4 ; unsigned char __fastcall__ _atari_textcolor (unsigned char color);
   5 ; unsigned char __fastcall__ _atari_bgcolor (unsigned char color);
   6 ; unsigned char __fastcall__ _atari_bordercolor (unsigned char color);
   7 ;
   8
   9
  10         .export         __atari_textcolor, __atari_bgcolor, __atari_bordercolor
  11
  12         .include        "atari.inc"
  13
  14 __atari_textcolor:
  15         ldx     COLOR1  ; get old value
  16         sta     COLOR1  ; set new value
  17         txa
  18         rts
  19
  20
  21 __atari_bgcolor:
  22         ldx     COLOR2  ; get old value
  23         sta     COLOR2  ; set new value
  24         txa
  25         rts
  26
  27
  28 __atari_bordercolor:
  29         ldx     COLOR4  ; get old value
  30         sta     COLOR4  ; set new value
  31         txa
  32         rts
  33