mirror of
https://github.com/cc65/cc65.git
synced 2024-11-05 08:05:51 +00:00
66 lines
1.8 KiB
ArmAsm
66 lines
1.8 KiB
ArmAsm
|
;
|
||
|
|
; Groepaz/Hitmen, 19.10.2015
|
||
|
|
;
|
||
|
|
; high level implementation for the monochrome soft80 implementation
|
||
|
|
;
|
||
|
|
; unsigned char __fastcall__ textcolor (unsigned char color);
|
||
|
|
; unsigned char __fastcall__ bgcolor (unsigned char color);
|
||
|
|
;
|
||
|
|
|
||
|
|
.export soft80mono_textcolor, soft80mono_bgcolor
|
||
|
|
.import soft80mono_internal_cellcolor, soft80mono_internal_bgcolor
|
||
|
|
|
||
|
|
.importzp tmp1
|
||
|
|
|
||
|
|
.include "c64.inc"
|
||
|
|
.include "soft80.inc"
|
||
|
|
|
||
|
|
soft80mono_textcolor:
|
||
|
|
ldx CHARCOLOR ; get old value
|
||
|
|
stx tmp1 ; save old value
|
||
|
|
sta CHARCOLOR ; set new value
|
||
|
|
|
||
|
|
mkcharcolor:
|
||
|
|
lda soft80mono_internal_bgcolor
|
||
|
|
asl a
|
||
|
|
asl a
|
||
|
|
asl a
|
||
|
|
asl a
|
||
|
|
ora CHARCOLOR
|
||
|
|
sta soft80mono_internal_cellcolor ; text/bg combo for new chars
|
||
|
|
|
||
|
|
sei
|
||
|
|
ldy $01
|
||
|
|
lda #$34 ; enable RAM under I/O
|
||
|
|
sta $01
|
||
|
|
|
||
|
|
lda soft80mono_internal_cellcolor
|
||
|
|
; clear loop for vram
|
||
|
|
ldx #$00
|
||
|
|
@lp1:
|
||
|
|
sta soft80_vram,x
|
||
|
|
sta soft80_vram+$100,x
|
||
|
|
sta soft80_vram+$200,x
|
||
|
|
sta soft80_vram+$2e8,x
|
||
|
|
inx
|
||
|
|
bne @lp1
|
||
|
|
|
||
|
|
sty $01
|
||
|
|
cli
|
||
|
|
|
||
|
|
lda tmp1 ; get old value
|
||
|
|
rts
|
||
|
|
|
||
|
|
soft80mono_bgcolor:
|
||
|
|
ldx soft80mono_internal_bgcolor ; get old value
|
||
|
|
stx tmp1 ; save old value
|
||
|
|
sta soft80mono_internal_bgcolor ; set new value
|
||
|
|
|
||
|
|
jmp mkcharcolor
|
||
|
|
|
||
|
|
;-------------------------------------------------------------------------------
|
||
|
|
; force the init constructor to be imported
|
||
|
|
|
||
|
|
.import soft80mono_init
|
||
|
|
conio_init = soft80mono_init
|