; ( -- addr) Stackpointer
; R( -- )
; start value of return stack
VE_RP0:
.db $03, "rp0"
.dw VE_HEAD
.set VE_HEAD = VE_RP0
XT_RP0:
.dw DO_COLON
PFA_RP0:
.dw XT_DORP0
.dw XT_FETCH
.dw XT_EXIT
XT_DORP0:
.dw PFA_DOUSER
PFA_DORP0:
.dw 2
; ( -- addr) Stackpointer
; R( -- )
; address of variable to store the return stack pointer for inactive tasks
VE_RP:
.db $02, "rp",0
.dw VE_HEAD
.set VE_HEAD = VE_RP
XT_RP:
.dw PFA_DOUSER
PFA_RP:
.dw 4