; ( 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