; ( addr -- ) Control Structure
; R( -- )
; compile +loop and resolve branch
VE_PLOOP:
.db $85, "+loop"
.dw VE_HEAD
.set VE_HEAD = VE_PLOOP
XT_PLOOP:
.dw DO_COLON
PFA_PLOOP:
.dw XT_COMPILE
.dw XT_DOPLUSLOOP
.dw XT_LRESOLVE
.dw XT_GRESOLVE
.dw XT_EXIT