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

   1 ;
   2 ; Christian Groessler, 27-Dec-2002
   3 ;
   4
   5         .export         _textcolor, _bgcolor, _bordercolor
   6         .import         return1
   7
   8         .include        "atari.inc"
   9
  10
  11 _textcolor      =       return1
  12
  13 _bgcolor:
  14         ldx     COLOR2  ; get old value
  15         sta     COLOR2  ; set new value
  16         and     #$0e
  17         cmp     #8
  18         bcs     bright
  19         lda     #$0e
  20         .byte   $2c     ; bit opcode, eats the next 2 bytes
  21 bright: lda     #0
  22         sta     COLOR1
  23         txa
  24         ldx     #0      ; fix X
  25         rts
  26
  27
  28 _bordercolor:
  29         ldx     COLOR4  ; get old value
  30         sta     COLOR4  ; set new value
  31         txa
  32         ldx     #0      ; fix X
  33         rts
  34