mirror of
https://github.com/cc65/cc65.git
synced 2024-11-18 00:07:21 +00:00
44 lines
1.0 KiB
ArmAsm
44 lines
1.0 KiB
ArmAsm
;
|
|
; 2019-09-16, Greg King
|
|
;
|
|
; unsigned char __fastcall__ textcolor (unsigned char color);
|
|
; unsigned char __fastcall__ bgcolor (unsigned char color);
|
|
;
|
|
|
|
|
|
.export _textcolor, _bgcolor
|
|
|
|
.importzp tmp1
|
|
.include "cx16.inc"
|
|
|
|
_textcolor:
|
|
and #$0F
|
|
sta tmp1
|
|
ldx CHARCOLOR ; get old values
|
|
txa
|
|
and #<~$0F ; keep screen color, remove text color
|
|
ora tmp1
|
|
sta CHARCOLOR ; set new values
|
|
txa
|
|
and #$0F
|
|
rts
|
|
|
|
|
|
_bgcolor:
|
|
asl a ; move number to screen-color nybble
|
|
asl a
|
|
asl a
|
|
asl a
|
|
sta tmp1
|
|
ldx CHARCOLOR ; get old values
|
|
txa
|
|
and #<~$F0 ; remove screen color, keep text color
|
|
ora tmp1
|
|
sta CHARCOLOR ; set new values
|
|
txa
|
|
lsr a ; get old background color
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
rts
|