; ( -- n ) Stack ; R( -- ) ; currently used data stack size in cells VE_DEPTH: .db $05, "depth" .dw VE_HEAD .set VE_HEAD = VE_DEPTH XT_DEPTH: .dw DO_COLON PFA_DEPTH: .dw XT_SP0 .dw XT_SP_FETCH .dw XT_MINUS .dw XT_1MINUS .dw XT_1MINUS .dw XT_2SLASH .dw XT_EXIT