;
; Ullrich von Bassewitz, 26.10.2000
;
; CC65 runtime: Store a indirect into address at top of stack with index
;
.export staspidx
.import incsp2
.importzp sp, tmp1, ptr1
.proc staspidx
pha
sty tmp1 ; Save Index
ldy #1
lda (sp),y
sta ptr1+1
dey
lda (sp),y
sta ptr1 ; Pointer now in ptr1
ldy tmp1 ; Restore offset
pla ; Restore value
sta (ptr1),y ; Store
jmp incsp2 ; Drop address
.endproc
staspidx.s.html; generated on Sat Oct 13 22:41:32 2001 by ca65html