; ( "name" -- XT ) ; Dictionary ; search dictionary for name, return XT or throw an exception -13 .if cpu_msp430==1 HEADER(XT_TICK,1,27h,DOCOLON) .endif .if cpu_avr8==1 VE_TICK: .dw $ff01 .db "'",0 .dw VE_HEAD .set VE_HEAD = VE_TICK XT_TICK: .dw DO_COLON PFA_TICK: .endif .dw XT_PARSENAME .dw XT_FORTHRECOGNIZER .dw XT_RECOGNIZE ; a word is tickable unless DT:TOKEN is DT:NULL or ; the interpret action is a NOOP .dw XT_DUP .dw XT_DT_NULL .dw XT_EQUAL .dw XT_SWAP .dw XT_FETCHI .dw XT_DOLITERAL .dw XT_NOOP .dw XT_EQUAL .dw XT_OR .dw XT_DOCONDBRANCH DEST(PFA_TICK1) .dw XT_DOLITERAL .dw -13 .dw XT_THROW PFA_TICK1: .dw XT_DROP .dw XT_EXIT