git.sur5r.net Git - cc65/blob - libsrc/plus4/color.s

   1 ;
   2 ; Ullrich von Bassewitz, 06.08.1998
   3 ;
   4 ; unsigned char __fastcall__ textcolor (unsigned char color);
   5 ; unsigned char __fastcall__ bgcolor (unsigned char color);
   6 ; unsigned char __fastcall__ bordercolor (unsigned char color);
   7 ;
   8
   9         .export         _textcolor, _bgcolor, _bordercolor
  10
  11         .include        "plus4.inc"
  12
  13 _textcolor:
  14         ldx     CHARCOLOR       ; get old value
  15         sta     CHARCOLOR       ; set new value
  16         txa
  17         rts
  18
  19
  20 _bgcolor:
  21         ldx     TED_BGCOLOR     ; get old value
  22         sta     TED_BGCOLOR     ; set new value
  23         txa
  24         rts
  25
  26
  27 _bordercolor:
  28         ldx     TED_BORDERCOLOR ; get old value
  29         sta     TED_BORDERCOLOR ; set new value
  30         txa
  31         rts
  32
  33