git.sur5r.net Git - cc65/blob - libsrc/atari5200/bgcolor.s

   1 ;
   2 ; Christian Groessler, 05-Apr-2019
   3 ;
   4
   5         .import         conio_colors
   6         .export         _bgcolor
   7
   8         .include        "atari5200.inc"
   9
  10         .constructor    init_old_bgcolor
  11
  12 .bss
  13
  14 old_bg_color:
  15         .res    1
  16
  17 .code
  18
  19 _bgcolor:
  20         and     #3
  21         tax
  22         lda     conio_colors,x
  23         ldx     old_bg_color
  24         sta     COLOR4                  ; set new value
  25         sta     old_bg_color
  26         txa
  27         ldx     #0                      ; fix X
  28         rts
  29
  30 .segment        "ONCE"
  31
  32 init_old_bgcolor:
  33         lda     conio_colors+3          ; see also conioscreen.s for initialization
  34         sta     old_bg_color
  35         rts
  36
  37         .end