_bgcolor now also sets the fg luminance to max. contrast; _textcolor

is empty

git-svn-id: svn://svn.cc65.org/cc65/trunk@1854 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/libsrc/atari/color.s b/libsrc/atari/color.s
index 6fbca5682d58bc7084b3e297b71199852891565a..daff5c63ad9b6e783022e291756e33423c1ee3fe 100644 (file)
--- a/libsrc/atari/color.s
+++ b/libsrc/atari/color.s
@@ -1,18 +1,34 @@
 ;
-; Ullrich von Bassewitz, 06.08.1998
-;
-; unsigned char __fastcall__ textcolor (unsigned char color);
-; unsigned char __fastcall__ bgcolor (unsigned char color);
-; unsigned char __fastcall__ bordercolor (unsigned char color);
+; Christian Groessler, 27-Dec-2002
 ;
 
        .export         _textcolor, _bgcolor, _bordercolor
-       .import         return0, return1
+       .import         return1
+
+       .include        "atari.inc"
+
 
-_textcolor     = return1
+_textcolor     =       return1
 
-_bgcolor       = return0
+_bgcolor:
+       ldx     COLOR2  ; get old value
+       sta     COLOR2  ; set new value
+       and     #$0e
+       cmp     #8
+       bcs     bright
+       lda     #$0e
+       sta     COLOR1
+       txa
+       rts
+bright:        lda     #0
+       sta     COLOR1
+       txa
+       rts
 
-_bordercolor   = return0
 
+_bordercolor:
+       ldx     COLOR4  ; get old value
+       sta     COLOR4  ; set new value
+       txa
+       rts