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

   1 ;
   2 ; unsigned char __fastcall__ textcolor (unsigned char color);
   3 ; unsigned char __fastcall__ bgcolor (unsigned char color);
   4 ; unsigned char __fastcall__ bordercolor (unsigned char color);
   5 ;
   6
   7
   8         .export     _textcolor, _bgcolor, _bordercolor
   9
  10         .include        "gamate.inc"
  11         .include        "extzp.inc"
  12
  13 _textcolor:
  14         ldx     CHARCOLOR       ; get old value
  15         sta     CHARCOLOR       ; set new value
  16         txa
  17         rts
  18
  19 _bgcolor:
  20         ldx     BGCOLOR         ; get old value
  21         sta     BGCOLOR         ; set new value
  22         txa
  23         rts
  24
  25 _bordercolor:
  26         lda     #0
  27         tax
  28         rts
  29
  30 ;-------------------------------------------------------------------------------
  31 ; force the init constructor to be imported
  32
  33         .import initconio
  34 conio_init      = initconio