mirror of
https://github.com/cc65/cc65.git
synced 2024-08-28 18:29:20 +00:00
moved bordercolor function into a seperate file
This commit is contained in:
parent
7f2df8e8e6
commit
2a0f6c420b
@ -17,9 +17,11 @@
|
|||||||
; soft80_color.s
|
; soft80_color.s
|
||||||
.import soft80_textcolor
|
.import soft80_textcolor
|
||||||
.import soft80_bgcolor
|
.import soft80_bgcolor
|
||||||
.import soft80_bordercolor
|
|
||||||
.export _textcolor := soft80_textcolor
|
.export _textcolor := soft80_textcolor
|
||||||
.export _bgcolor := soft80_bgcolor
|
.export _bgcolor := soft80_bgcolor
|
||||||
|
|
||||||
|
; soft80_bordercolor.s
|
||||||
|
.import soft80_bordercolor
|
||||||
.export _bordercolor := soft80_bordercolor
|
.export _bordercolor := soft80_bordercolor
|
||||||
|
|
||||||
; soft80_cputc.s
|
; soft80_cputc.s
|
||||||
|
17
libsrc/c64/soft80_bordercolor.s
Normal file
17
libsrc/c64/soft80_bordercolor.s
Normal file
@ -0,0 +1,17 @@
|
|||||||
|
;
|
||||||
|
; Groepaz/Hitmen, 12.10.2015
|
||||||
|
;
|
||||||
|
; unsigned char __fastcall__ bordercolor (unsigned char color);
|
||||||
|
;
|
||||||
|
|
||||||
|
.export soft80_bordercolor
|
||||||
|
|
||||||
|
.include "c64.inc"
|
||||||
|
|
||||||
|
; FIXME: if we'd move this function into a seperate file in the regular
|
||||||
|
; conio lib, then we dont need this override at all.
|
||||||
|
soft80_bordercolor:
|
||||||
|
ldx VIC_BORDERCOLOR ; get old value
|
||||||
|
sta VIC_BORDERCOLOR ; set new value
|
||||||
|
txa
|
||||||
|
rts
|
@ -3,10 +3,9 @@
|
|||||||
;
|
;
|
||||||
; unsigned char __fastcall__ textcolor (unsigned char color);
|
; unsigned char __fastcall__ textcolor (unsigned char color);
|
||||||
; unsigned char __fastcall__ bgcolor (unsigned char color);
|
; unsigned char __fastcall__ bgcolor (unsigned char color);
|
||||||
; unsigned char __fastcall__ bordercolor (unsigned char color);
|
|
||||||
;
|
;
|
||||||
|
|
||||||
.export soft80_textcolor, soft80_bgcolor, soft80_bordercolor
|
.export soft80_textcolor, soft80_bgcolor
|
||||||
.import soft80_internal_textcolor, soft80_internal_bgcolor
|
.import soft80_internal_textcolor, soft80_internal_bgcolor
|
||||||
|
|
||||||
.importzp tmp1, tmp2
|
.importzp tmp1, tmp2
|
||||||
@ -96,12 +95,6 @@ mkcharcolor:
|
|||||||
sta CHARCOLOR ; text/bg combo for new chars
|
sta CHARCOLOR ; text/bg combo for new chars
|
||||||
rts
|
rts
|
||||||
|
|
||||||
soft80_bordercolor:
|
|
||||||
ldx VIC_BORDERCOLOR ; get old value
|
|
||||||
sta VIC_BORDERCOLOR ; set new value
|
|
||||||
txa
|
|
||||||
rts
|
|
||||||
|
|
||||||
;-------------------------------------------------------------------------------
|
;-------------------------------------------------------------------------------
|
||||||
; force the init constructor to be imported
|
; force the init constructor to be imported
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user