From: cpg <cpg@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Fri, 27 Dec 2002 20:45:01 +0000 (+0000)
Subject: _bgcolor now also sets the fg luminance to max. contrast; _textcolor
X-Git-Tag: V2.12.0~1818
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=b0abf6850568381b6a100618479c7cad53b2447d;p=cc65

_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 6fbca5682..daff5c63a 100644
--- 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