X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libsrc%2Fatari%2Fcolor.s;h=52432499dc4b625f279a4983d9d5dacda05adbdf;hb=4233f92e9a96f1e0c4ed12e0f5015b0cd45c60a5;hp=ea398edb24f586cefd445d781f34acb1716e31d8;hpb=53dd513176425872128ef26031d00952ef7a0628;p=cc65

diff --git a/libsrc/atari/color.s b/libsrc/atari/color.s
index ea398edb2..52432499d 100644
--- a/libsrc/atari/color.s
+++ b/libsrc/atari/color.s
@@ -1,27 +1,27 @@
 ;
-; Ullrich von Bassewitz, 06.08.1998
+; Christian Groessler, 27-Dec-2002
 ;
-; unsigned char __fastcall__ textcolor (unsigned char color);
-; unsigned char __fastcall__ bgcolor (unsigned char color);
-; unsigned char __fastcall__ bordercolor (unsigned char color);
-;
-
 
  	.export		_textcolor, _bgcolor, _bordercolor
+	.import		return1
 
 	.include	"atari.inc"
 
-_textcolor:
-	ldx	COLOR1	; get old value
- 	sta	COLOR1	; set new value
-	txa
-	rts
 
+_textcolor	=	return1
 
 _bgcolor:
 	ldx	COLOR2	; get old value
 	sta	COLOR2	; set new value
+	and	#$0e
+	cmp	#8
+	bcs	bright
+	lda	#$0e
+	.byte	$2c	; bit opcode, eats the next 2 bytes
+bright:	lda	#0
+	sta	COLOR1
 	txa
+	ldx	#0	; fix X
 	rts
 
 
@@ -29,5 +29,6 @@ _bordercolor:
 	ldx	COLOR4	; get old value
 	sta	COLOR4	; set new value
 	txa
+	ldx	#0	; fix X
 	rts