; ( addr -- i*x) Stackpointer
; R( -- )
; data stack pointer changed to addr
VE_SP_STORE:
.db $03, "sp!"
.dw VE_HEAD
.set VE_HEAD = VE_SP_STORE
XT_SP_STORE:
.dw PFA_SP_STORE
PFA_SP_STORE:
movw yl, tosl
loadtos
rjmp DO_NEXT