; ( -- addr ) Control Structure
; R( -- )
; places current dictionary position for backward resolves
;VE_GMARK:
; .db 5, ">mark"
; .dw VE_HEAD
; .set VE_HEAD = VE_GMARK
XT_GMARK:
.dw DO_COLON
PFA_GMARK:
.dw XT_HERE
.dw XT_COMPILE
.dw -1 ; ffff does not erase flash
.dw XT_EXIT