starred/scorch_src
1
0
Fork 0
mirror of https://github.com/pkali/scorch_src.git synced 2026-05-20 22:34:21 +02:00
Code Issues 29 Packages Projects Releases 10 Wiki Activity

Speedup native PutChar (8x8 and 4x4) procedures.

Browse Source
This commit is contained in:
Pecusx
2023-04-06 19:52:30 +02:00
parent 1e5530579f
commit bc31fa0ea1
1 changed files with 20 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
grafproc.asm
+20 -20
View File
@@ -1938,9 +1938,9 @@ CharLoopi
cpx #8 cpx #8
bne CharLoopi bne CharLoopi
.ELSE .ELSE
mvx #7 char2 ; line counter (Y) mvx #7 temp ; line counter (Y)
CharLoop1 CharLoop1
mva #7 mask2 ; pixel counter (X) mva #7 temp+1 ; pixel counter (X)
CharLoop2 CharLoop2
mva #0 color mva #0 color
rol mask1,x rol mask1,x
@@ -1953,18 +1953,18 @@ MakeCharPlot
inc color inc color
ErasingChar ErasingChar
NoPlot NoPlot
jsr plot jsr plot.MakePlot
AfterCharPlot AfterCharPlot
inw xdraw inw xdraw
ldx char2 ldx temp
dec mask2 dec temp+1
bpl CharLoop2 bpl CharLoop2
sec sec
sbw xdraw #8 sbw xdraw #8
dec ydraw dec ydraw
ldx char2 ldx temp
dex dex
stx char2 stx temp
bpl CharLoop1 bpl CharLoop1
clc clc
lda ydraw lda ydraw
@@ -2093,14 +2093,14 @@ PutInColor0_2
cpx #4 cpx #4
bne CharLoopi4x4 bne CharLoopi4x4
.ELSE .ELSE
mwa xdraw char2+1 mwa xdraw char2
mwa ydraw mask2+1 mwa ydraw mask2
mva color mask2+3 mva color mask2+2
mwa dx xdraw mwa dx xdraw
mwa dy ydraw mwa dy ydraw
mvx #3 char2 ; line counter (Y) mvx #3 temp ; line counter (Y)
CharLoop1 CharLoop1
mva #3 mask2 ; pixel counter (X) mva #3 temp+1 ; pixel counter (X)
CharLoop2 CharLoop2
mva #0 color mva #0 color
rol mask1,x rol mask1,x
@@ -2113,22 +2113,22 @@ MakeCharPlot
inc color inc color
ErasingChar ErasingChar
NoPlot NoPlot
jsr plot jsr plot.MakePlot
AfterCharPlot AfterCharPlot
inw xdraw inw xdraw
ldx char2 ldx temp
dec mask2 dec temp+1
bpl CharLoop2 bpl CharLoop2
sec sec
sbw xdraw #4 sbw xdraw #4
dec ydraw dec ydraw
ldx char2 ldx temp
dex dex
stx char2 stx temp
bpl CharLoop1 bpl CharLoop1
mwa char2+1 xdraw mwa char2 xdraw
mwa mask2+1 ydraw mwa mask2 ydraw
mva mask2+3 color mva mask2+2 color
bpl EndPut4x4 bpl EndPut4x4
NoMaskNoPlot NoMaskNoPlot
rol char1,x rol char1,x