Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-11-23 14:17:51 +00:00
Code Issues Projects Releases Wiki Activity

optimize word pointer indexing and fix long pointer indexing assignment (pokel)

Browse Source
This commit is contained in:
Irmen de Jong
2025-10-11 15:49:42 +02:00
parent 1e8ff6f82a
commit 796d3242e1
11 changed files with 95 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/res/prog8lib/prog8_funcs.asm
View File

@@ -488,8 +488,21 @@ func_pokew .proc
rts
.pend
func_pokew_scratchW2 .proc
; -- store the word value in AY in the address in P8ZP_SCRATCH_W2
sty P8ZP_SCRATCH_REG
ldy #0
sta (P8ZP_SCRATCH_W2),y
iny
lda P8ZP_SCRATCH_REG
sta (P8ZP_SCRATCH_W2),y
rts
.pend
func_pokel .proc
; -- store the long value in R0:R1 in the address in AY
sta P8ZP_SCRATCH_W1
sty P8ZP_SCRATCH_W1+1
ldy #0
lda cx16.r0
sta (P8ZP_SCRATCH_W1),y