6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-21 15:32:41 +00:00
Code Issues Projects Releases Wiki Activity

_bgcolor now also sets the fg luminance to max. contrast; _textcolor

Browse Source 
is empty


git-svn-id: svn://svn.cc65.org/cc65/trunk@1854 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg 2002-12-27 20:45:01 +00:00
parent a72745267b
commit b0abf68505
1 changed files with 27 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
libsrc/atari/color.s
View File

@ -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
_textcolor = return1
_bgcolor = return0
_bordercolor = return0
.include "atari.inc"
_textcolor = return1
_bgcolor:
ldx COLOR2 ; get old value
sta COLOR2 ; set new value
and #$0e
cmp #8
bcs bright
lda #$0e
sta COLOR1
txa
rts
bright: lda #0
sta COLOR1
txa
rts
_bordercolor:
ldx COLOR4 ; get old value
sta COLOR4 ; set new value
txa
rts