; ( -- ) ; R( -- ) ; creates the vocabulary header without XT and data field (PF) ;VE_DOCREATE: ; .db $08, "(create)",0 ; .dw VE_HEAD ; .set VE_HEAD = VE_DOCREATE XT_DOCREATE: .dw DO_COLON PFA_DOCREATE: .dw XT_HERE ; ( -- here) .dw XT_BL .dw XT_WORD ; ( -- here addr) .dw XT_COUNT ; ( -- here addr' n) .dw XT_DUP ; ( -- here addr' n n ) .dw XT_GREATERZERO ;( -- here addr' n f ) .dw XT_DOCONDBRANCH .dw PFA_DOCREATE4 ; ( -- here addr' n ) .dw XT_SCOMMA ; make voc link .dw XT_HEAD ; ( -- here head ) .dw XT_EFETCH .dw XT_COMMA ; ( -- here) .dw XT_HEAD ; ( -- here head ) .dw XT_ESTORE ; ( -- ) .dw XT_EXIT PFA_DOCREATE4: .dw XT_DROP .dw XT_DROP .dw XT_DROP .dw XT_EXIT