sty sreg
sty sreg+1
pusheax:
+ pha ; decsp will destroy A (but not X)
jsr decsp4
- pha
- ldy #0
- sta (sp),y
- iny
- txa
+ ldy #3
+ lda sreg+1
sta (sp),y
- iny
+ dey
lda sreg
sta (sp),y
- iny
- lda sreg+1
+ dey
+ txa
sta (sp),y
+ dey
pla
+ sta (sp),y
rts