no TGI_ERR_NO_MEM or TGI_ERR_NO_IOCB anymore: replaced by TGI_ERR_NO_RES

[cc65] / libsrc / atari / color.s

diff --git a/libsrc/atari/color.s b/libsrc/atari/color.s
index 6fbca5682d58bc7084b3e297b71199852891565a..52432499dc4b625f279a4983d9d5dacda05adbdf 100644 (file)
--- 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
+       .byte   $2c     ; bit opcode, eats the next 2 bytes
+bright:        lda     #0
+       sta     COLOR1
+       txa
+       ldx     #0      ; fix X
+       rts
 
-_bordercolor   = return0
 
+_bordercolor:
+       ldx     COLOR4  ; get old value
+       sta     COLOR4  ; set new value
+       txa
+       ldx     #0      ; fix X
+       rts