git.sur5r.net Git - cc65/blob - libsrc/c128/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        "c128.inc"
  12
  13
  14 _textcolor:
  15         ldx     CHARCOLOR       ; get old value
  16         sta     CHARCOLOR       ; set new value
  17         txa
  18         rts
  19
  20
  21 _bgcolor:
  22         ldx     VIC_BG_COLOR0   ; get old value
  23         sta     VIC_BG_COLOR0   ; set new value
  24         txa
  25         rts
  26
  27
  28 _bordercolor:
  29         ldx     VIC_BG_COLOR0   ; get old value
  30         sta     VIC_BORDERCOLOR ; set new value
  31         txa
  32         rts
  33