From: cpg <cpg@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Thu, 12 Dec 2002 23:52:48 +0000 (+0000)
Subject: old color.s implementation for convenience
X-Git-Tag: V2.12.0~1910
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=844f5a1a865402f59f37a9a194ca1f7bba1a2a97;p=cc65

old color.s implementation for convenience


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

diff --git a/libsrc/atari/atari_color.s b/libsrc/atari/atari_color.s
new file mode 100644
index 000000000..388669224
--- /dev/null
+++ b/libsrc/atari/atari_color.s
@@ -0,0 +1,33 @@
+;
+; Christian Groessler, 13-Dec-2002
+;
+; unsigned char __fastcall__ _atari_textcolor (unsigned char color);
+; unsigned char __fastcall__ _atari_bgcolor (unsigned char color);
+; unsigned char __fastcall__ _atari_bordercolor (unsigned char color);
+;
+
+
+ 	.export		__atari_textcolor, __atari_bgcolor, __atari_bordercolor
+
+	.include	"atari.inc"
+
+__atari_textcolor:
+	ldx	COLOR1	; get old value
+ 	sta	COLOR1	; set new value
+	txa
+	rts
+
+
+__atari_bgcolor:
+	ldx	COLOR2	; get old value
+	sta	COLOR2	; set new value
+	txa
+	rts
+
+
+__atari_bordercolor:
+	ldx	COLOR4	; get old value
+	sta	COLOR4	; set new value
+	txa
+	rts
+