Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-21 14:49:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

Optimize plot and point

Browse Source
This commit is contained in:
Piotr Fusik
2022-07-13 17:58:04 +02:00
parent 93b16bd55a
commit af797029f9
1 changed files with 21 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
grafproc.asm
+21 -28
View File
@@ -1268,28 +1268,24 @@ CheckX02
bcs EndOfPlot ;nearest RTS
MakePlot
; let's calculate coordinates from xdraw and ydraw
mwa xdraw xbyte
lda xbyte
and #$7
sta ybit
;xbyte = xbyte/8
lda xbyte
lsr xbyte+1
ror ;just one bit over 256. Max screenwidth = 512!!!
lsr
lda xdraw+1
lsr
tay ;save
lda xdraw
ror ;just one bit over 256. Max screenwidth = 512!!!
lsr
lsr
sta xbyte
;---
ldx ydraw
lda linetableL,x
sta xbyte
ldy linetableL,x
lda linetableH,x
sta xbyte+1
ldx ybit
lda xdraw
and #$7
tax
lda color
bne ClearPlot
@@ -1312,31 +1308,28 @@ ClearPlot
; result is in A (zero or appropriate bit is set)
; let's calculate coordinates from xdraw and ydraw
mwa xdraw xbyte
lda xbyte
and #$7
sta ybit
;xbyte = xbyte/8
lda xbyte
lsr xbyte+1
ror ;just one bit over 256. Max screenwidht = 512!!!
lsr
lda xdraw+1
lsr
tay ;save
lda xdraw
ror ;just one bit over 256. Max screenwidht = 512!!!
lsr
lsr
sta xbyte
;---
ldx ydraw
lda linetableL,x
sta xbyte
ldy linetableL,x
lda linetableH,x
sta xbyte+1
ldx ybit
lda xdraw
and #$7
tax
lda (xbyte),y
eor #$ff
and bittable,x
eor bittable,x
rts
.endp