mirror of
https://github.com/cc65/cc65.git
synced 2025-08-08 06:25:17 +00:00
used version from pet -- Atari is now a monochrome target
git-svn-id: svn://svn.cc65.org/cc65/trunk@1749 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
@@ -6,28 +6,13 @@
|
|||||||
; unsigned char __fastcall__ bordercolor (unsigned char color);
|
; unsigned char __fastcall__ bordercolor (unsigned char color);
|
||||||
;
|
;
|
||||||
|
|
||||||
|
|
||||||
.export _textcolor, _bgcolor, _bordercolor
|
.export _textcolor, _bgcolor, _bordercolor
|
||||||
|
.import return0, return1
|
||||||
|
|
||||||
.include "atari.inc"
|
_textcolor = return1
|
||||||
|
|
||||||
_textcolor:
|
_bgcolor = return0
|
||||||
ldx COLOR1 ; get old value
|
|
||||||
sta COLOR1 ; set new value
|
_bordercolor = return0
|
||||||
txa
|
|
||||||
rts
|
|
||||||
|
|
||||||
|
|
||||||
_bgcolor:
|
|
||||||
ldx COLOR2 ; get old value
|
|
||||||
sta COLOR2 ; set new value
|
|
||||||
txa
|
|
||||||
rts
|
|
||||||
|
|
||||||
|
|
||||||
_bordercolor:
|
|
||||||
ldx COLOR4 ; get old value
|
|
||||||
sta COLOR4 ; set new value
|
|
||||||
txa
|
|
||||||
rts
|
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user