git.sur5r.net Git - cc65/blob - libsrc/apple2/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         .import         return0
  11
  12 _bgcolor     := return0
  13
  14 _bordercolor := return0
  15
  16 _textcolor:
  17         ldx     #$00
  18         lda     #$03            ; COLOR_WHITE
  19         rts
  20
  21