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

optimized gfx2.plot() for hires-4c

Browse Source
This commit is contained in:
Irmen de Jong 2021-04-28 02:39:35 +02:00
parent 7f0e25cb50
commit 2575263438
2 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/res/prog8lib/cx16/gfx2.p8
View File

@ -277,9 +277,9 @@ _done
ora colorbits,y ora colorbits,y
sta cx16.VERA_DATA0 sta cx16.VERA_DATA0
cpy #%00000011 ; next vera byte? cpy #%00000011 ; next vera byte?
bne + bne + ; TODO should be ++?
inc cx16.VERA_ADDR_L inc cx16.VERA_ADDR_L
bne + bne + ; TODO should be ++?
inc cx16.VERA_ADDR_M inc cx16.VERA_ADDR_M
+ bne + + bne +
inc cx16.VERA_ADDR_H inc cx16.VERA_ADDR_H
@ -634,13 +634,24 @@ _done
6 -> { 6 -> {
; highres 4c ; highres 4c
; TODO also mostly usable for lores 4c? ; TODO also mostly usable for lores 4c?
; TODO get rid of all the vpoke calls to optimize all plot() ?
void addr_mul_24_for_highres_4c(y, x) ; 24 bits result is in r0 and r1L (highest byte) void addr_mul_24_for_highres_4c(y, x) ; 24 bits result is in r0 and r1L (highest byte)
cx16.r2L = lsb(x) & 3 ; xbits
color &= 3 color &= 3
color <<= shift4c[lsb(x) & 3] color <<= shift4c[cx16.r2L]
cx16.VERA_ADDR_H &= %00000111 ; no auto advance %asm {{
ubyte value2 = cx16.vpeek(lsb(cx16.r1), cx16.r0) & mask4c[lsb(x) & 3] | color stz cx16.VERA_CTRL
cx16.vpoke(lsb(cx16.r1), cx16.r0, value2) lda cx16.r1L
sta cx16.VERA_ADDR_H
lda cx16.r0H
sta cx16.VERA_ADDR_M
lda cx16.r0L
sta cx16.VERA_ADDR_L
ldy cx16.r2L ; xbits
lda mask4c,y
and cx16.VERA_DATA0
ora color
sta cx16.VERA_DATA0
}}
} }
} }
} }

1
examples/test.p8
View File

@ -14,7 +14,6 @@ main {
ubyte yy ubyte yy
uword rw uword rw
; 520 jiffies (hires 4c)
repeat 20000 { repeat 20000 {
rw = rndw() rw = rndw()
yy = (lsb(rw) & 127) + 20 yy = (lsb(rw) & 127) + 20