conio and most other stuff working now

[cc65] / libsrc / gamate / color.s

diff --git a/libsrc/gamate/color.s b/libsrc/gamate/color.s
new file mode 100644 (file)
index 0000000..07bc25a
--- /dev/null
+++ b/libsrc/gamate/color.s
@@ -0,0 +1,34 @@
+;
+; 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
+
+        .include        "gamate.inc"
+        .include        "extzp.inc"
+
+_textcolor:
+        ldx     CHARCOLOR       ; get old value
+        sta     CHARCOLOR       ; set new value
+        txa
+        rts
+
+_bgcolor:
+        ldx     BGCOLOR         ; get old value
+        sta     BGCOLOR         ; set new value
+        txa
+        rts
+
+_bordercolor:
+        lda     #0
+        tax
+        rts
+
+;-------------------------------------------------------------------------------
+; force the init constructor to be imported
+
+        .import initconio
+conio_init      = initconio