mirror of https://github.com/cc65/cc65.git
29 lines
650 B
ArmAsm
29 lines
650 B
ArmAsm
;
|
|
; Christian Groessler, 02-Apr-2019
|
|
;
|
|
; unsigned char __fastcall__ textcolor (unsigned char color);
|
|
|
|
.export _textcolor
|
|
.import conio_color
|
|
|
|
.include "atari.inc"
|
|
|
|
|
|
_textcolor:
|
|
; move bits #0 and #1 to bits #6 and #7
|
|
and #3
|
|
clc
|
|
ror a
|
|
ror a
|
|
ror a ; new conio_color value
|
|
ldx conio_color ; get old value
|
|
sta conio_color ; store new value
|
|
txa
|
|
; move bits #6 and #7 to bits #0 and #1
|
|
clc
|
|
rol a
|
|
rol a
|
|
rol a
|
|
ldx #0
|
|
rts
|