; ( xt|0 -- ) System
; R( -- )
; execute XT if non-zero
VE_QEXECUTE:
.db $08, "?execute",0
.dw VE_HEAD
.set VE_HEAD = VE_QEXECUTE
XT_QEXECUTE:
.dw DO_COLON
PFA_QEXECUTE:
.dw XT_QDUP
.dw XT_DOCONDBRANCH
.dw PFA_EXECUTE1
.dw XT_EXECUTE
PFA_EXECUTE1:
.dw XT_EXIT