Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-01-08 23:31:13 +00:00
Code Issues Projects Releases Wiki Activity

More SHRLINELO/HI speedup from qkumba

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2023-01-04 17:10:14 -05:00
parent 2a26cbfe2d
commit 36b9e747bb
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

20
mainmem.shr.s
View File

@ -499,21 +499,21 @@ SHRLINELO MX %00 ; Tell merlin 16 bit M & X
EOR :DY ; Negate dy EOR :DY ; Negate dy
INC A INC A
STA :DY ; dy = -dy STA :DY ; dy = -dy
:S1 ASL ; 2 * dy
:S1 TAY ; dy
ASL ; 2 * dy
STA :DY ; DY now (2 * dy)
SEC SEC
SBC :DX ; (2 * dy) - dx SBC :DX ; (2 * dy) - dx
STA :D ; D = (2 * dy) - dx STA :D ; D = (2 * dy) - dx
LDA SHRYPIXEL ; y0 LDA SHRYPIXEL ; y0
STA A2L ; y = y0 (re-using A2L/H) STA A2L ; y = y0 (re-using A2L/H)
LDA :DY TYA
SEC SEC
SBC :DX SBC :DX
ASL ASL
STA :DX ; DX now (2 * (dy - dx) STA :DX ; DX now (2 * (dy - dx)
LDA :DY
ASL
STA :DY ; DY now (2 * dy)
LDX SHRXPIXEL ; x = x0 LDX SHRXPIXEL ; x = x0
:L1 STX A1L ; Store x-coord for SHRPOINT :L1 STX A1L ; Store x-coord for SHRPOINT
PHX PHX
@ -574,21 +574,21 @@ SHRLINEHI MX %00 ; Tell Merlin 16 bit M & X
EOR :DX ; Negate dx EOR :DX ; Negate dx
INC A INC A
STA :DX ; dx = -dx STA :DX ; dx = -dx
:S1 ASL ; 2 * dx
:S1 TAX ; dx
ASL ; 2 * dx
STA :DX ; DX now (2 * dx)
SEC SEC
SBC :DY ; (2 * dx) - dy SBC :DY ; (2 * dx) - dy
STA :D ; D = (2 * dx) - dy STA :D ; D = (2 * dx) - dy
LDA SHRXPIXEL ; x0 LDA SHRXPIXEL ; x0
STA :X ; x = x0 STA :X ; x = x0
LDA :DX TXA
SEC SEC
SBC :DY SBC :DY
ASL ASL
STA :DY ; DY now (2 * (dx - dy) STA :DY ; DY now (2 * (dx - dy)
LDA :DX
ASL
STA :DX ; DX now (2 * dx)
LDX SHRYPIXEL ; y = y0 LDX SHRYPIXEL ; y = y0
:L1 LDA :X :L1 LDA :X
STA A1L ; Store x-coord for SHRPOINT STA A1L ; Store x-coord for SHRPOINT