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

implement peekl() and pokel()

Browse Source
This commit is contained in:
Irmen de Jong
2025-10-07 00:53:00 +02:00
parent f4f34fc2ed
commit 0f564b301d
5 changed files with 72 additions and 132 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -454,6 +454,25 @@ func_peekw .proc
rts
.pend
func_peekl .proc
; -- read the ;pmg value on the address in AY, into R0:R1
sta P8ZP_SCRATCH_W1
sty P8ZP_SCRATCH_W1+1
ldy #0
lda (P8ZP_SCRATCH_W1),y
sta cx16.r0
iny
lda (P8ZP_SCRATCH_W1),y
sta cx16.r0+1
iny
lda (P8ZP_SCRATCH_W1),y
sta cx16.r0+2
iny
lda (P8ZP_SCRATCH_W1),y
sta cx16.r0+3
rts
.pend
func_pokew .proc
; -- store the word value in AY in the address in P8ZP_SCRATCH_W1
@@ -466,6 +485,22 @@ func_pokew .proc
rts
.pend
func_pokel .proc
; -- store the long value in R0:R1 in the address in AY
ldy #0
lda cx16.r0
sta (P8ZP_SCRATCH_W1),y
iny
lda cx16.r0+1
sta (P8ZP_SCRATCH_W1),y
iny
lda cx16.r0+2
sta (P8ZP_SCRATCH_W1),y
iny
lda cx16.r0+3
sta (P8ZP_SCRATCH_W1),y
rts
.pend
func_clamp_byte .proc
; signed value in A, result in A