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 (file)
index 0000000..3886692
--- /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
+