; ( n -- ) Stackpointer
; R( -- xy)
; set return stack pointer
VE_RP_STORE:
.db $03, "rp!"
.dw VE_HEAD
.set VE_HEAD = VE_RP_STORE
XT_RP_STORE:
.dw PFA_RP_STORE
PFA_RP_STORE:
in temp2, SREG
cli
out SPL, tosl
out SPH, tosh
out SREG, temp2
loadtos
rjmp DO_NEXT