split regular color.s into color.s and bordercolor.s
This commit is contained in:
parent
d4f88c8f71
commit
59dd15aa55
2 changed files with 18 additions and 9 deletions
17
libsrc/c64/bordercolor.s
Normal file
17
libsrc/c64/bordercolor.s
Normal file
|
@ -0,0 +1,17 @@
|
||||||
|
;
|
||||||
|
; Ullrich von Bassewitz, 06.08.1998
|
||||||
|
;
|
||||||
|
; unsigned char __fastcall__ bordercolor (unsigned char color);
|
||||||
|
;
|
||||||
|
|
||||||
|
|
||||||
|
.export _bordercolor
|
||||||
|
|
||||||
|
.include "c64.inc"
|
||||||
|
|
||||||
|
_bordercolor:
|
||||||
|
ldx VIC_BORDERCOLOR ; get old value
|
||||||
|
sta VIC_BORDERCOLOR ; set new value
|
||||||
|
txa
|
||||||
|
rts
|
||||||
|
|
|
@ -7,7 +7,7 @@
|
||||||
;
|
;
|
||||||
|
|
||||||
|
|
||||||
.export _textcolor, _bgcolor, _bordercolor
|
.export _textcolor, _bgcolor
|
||||||
|
|
||||||
.include "c64.inc"
|
.include "c64.inc"
|
||||||
|
|
||||||
|
@ -23,11 +23,3 @@ _bgcolor:
|
||||||
sta VIC_BG_COLOR0 ; set new value
|
sta VIC_BG_COLOR0 ; set new value
|
||||||
txa
|
txa
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
_bordercolor:
|
|
||||||
ldx VIC_BORDERCOLOR ; get old value
|
|
||||||
sta VIC_BORDERCOLOR ; set new value
|
|
||||||
txa
|
|
||||||
rts
|
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue