1
0
mirror of https://github.com/cc65/cc65.git synced 2024-10-30 12:28:25 +00:00
cc65/libsrc/runtime/steaxspp.s

38 lines
377 B
ArmAsm
Raw Normal View History

;
; Ullrich von Bassewitz, 22.06.1998
;
; CC65 runtime: Store eax at the address on top of stack.
;
.export steaxspp
.import popax
.importzp sreg, ptr1
.proc steaxspp
pha
txa
pha
jsr popax ; get address
sta ptr1
stx ptr1+1
ldy #3
lda sreg+1
sta (ptr1),y
dey
lda sreg
sta (ptr1),y
dey
pla
tax
sta (ptr1),y
dey
pla
sta (ptr1),y
rts
.endproc