42 lines
505 B
ArmAsm
42 lines
505 B
ArmAsm
;
|
|
; Runtime code for cc65.
|
|
;
|
|
|
|
|
|
.import popax
|
|
.importzp tmp1, tmp2, tmp3, ptr4
|
|
|
|
|
|
;
|
|
; Various kinds of store operators
|
|
;
|
|
; store AX at SP@@(Y)
|
|
|
|
.export staxspidx, staspidx, staspic
|
|
staxspidx:
|
|
jsr staspic ; use common part
|
|
pha
|
|
iny
|
|
lda tmp2
|
|
sta (ptr4),y
|
|
tax
|
|
pla
|
|
rts
|
|
staspidx:
|
|
jsr staspic ; use common part
|
|
ldx tmp2
|
|
rts
|
|
|
|
staspic:
|
|
sta tmp1
|
|
stx tmp2
|
|
sty tmp3
|
|
jsr popax ; get the pointer
|
|
sta ptr4
|
|
stx ptr4+1
|
|
ldy tmp3
|
|
lda tmp1
|
|
sta (ptr4),y
|
|
rts
|
|
|