Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-11-23 07:32:10 +00:00
Code Issues Projects Releases Wiki Activity

added cx16 txt.clear_screencolors

Browse Source
This commit is contained in:
Irmen de Jong 2020-09-21 18:42:28 +02:00
parent ae2619602d
commit ca9588380a
2 changed files with 44 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
compiler/res/prog8lib/cx16/textio.p8
View File

@ -63,31 +63,63 @@ asmsub clear_screenchars (ubyte char @ A) clobbers(Y) {
; (assumes screen matrix is at the default address)
; TODO this can be done more efficiently with the VERA auto increment mode?
%asm {{
pha
phx
pha
jsr c64.SCREEN ; get dimensions in X/Y
dex
dey
txa
asl a
sta P8ZP_SCRATCH_B1
sta _mod+1
pla
- ldx P8ZP_SCRATCH_B1
_mod ldx #0 ; modified
- stz cx16.VERA_ADDR_H
stx cx16.VERA_ADDR_L
sty cx16.VERA_ADDR_M
sta cx16.VERA_DATA0
dex
dex
cpx #254
cpx #-2
bne -
dey
bpl --
bpl _mod
plx
rts
}}
}
asmsub clear_screencolors (ubyte scrcolor @ A) clobbers(Y) {
; ---- clear the character screen colors with the given color (leaves characters).
; (assumes color matrix is at the default address)
; TODO this can be done more efficiently with the VERA auto increment mode?
%asm {{
phx
pha
jsr c64.SCREEN ; get dimensions in X/Y
dex
dey
txa
asl a
ina
sta _mod+1
pla
_mod ldx #0 ; modified
- stz cx16.VERA_ADDR_H
stx cx16.VERA_ADDR_L
sty cx16.VERA_ADDR_M
sta cx16.VERA_DATA0
dex
dex
cpx #-1
bne -
dey
bpl _mod
plx
rts
}}
}
ubyte[16] color_to_charcode = [$90,$05,$1c,$9f,$9c,$1e,$1f,$9e,$81,$95,$96,$97,$98,$99,$9a,$9b]
sub color (ubyte txtcol) {
@ -108,7 +140,6 @@ sub uppercase() {
cx16.screen_set_charset(2, 0) ; uppercase charset
}
; TODO implement clear_screencolors
; TODO implement the "missing" txtio scroll subroutines: scroll_left_full, (also right, up, down)
romsub $FFD2 = chrout(ubyte char @ A) ; for consistency. You can also use c64.CHROUT directly ofcourse.

29
examples/test.p8
View File

@ -1,6 +1,5 @@
%target c64
%import syslib
%import graphics
; %import graphics
%import textio
%import floats
%zeropage basicsafe
@ -10,25 +9,11 @@ main {
sub start() {
const ubyte cbvalue = 40
const uword cwvalue = cbvalue
uword wvalue = 40
ubyte x
ubyte bb = 99
x = msb(sin8u(bb) * cwvalue)
txt.print_ub(x)
txt.chrout('\n')
x = msb(sin8u(bb) * wvalue)
txt.print_ub(x)
txt.chrout('\n')
txt.chrout('\n')
x = msb(cwvalue*sin8u(bb))
txt.print_ub(x)
txt.chrout('\n')
x = msb(wvalue*sin8u(bb))
txt.print_ub(x)
txt.chrout('\n')
txt.clear_screenchars('*')
ubyte i
repeat {
txt.clear_screencolors(i)
i++
}
}
}