aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/nfa2cfa.asm
blob: ab1b2304844bac4f66f09f9593555853e9fc83cd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
; ( nt -- xt ) 
; Tools
; get the XT from a name token
VE_NFA2CFA:
    .dw $ff07
    .db "nfa>cfa"
    .dw VE_HEAD
    .set VE_HEAD = VE_NFA2CFA
XT_NFA2CFA:
    .dw DO_COLON
PFA_NFA2CFA:
    .dw XT_NFA2LFA ; skip to link field
    .dw XT_1PLUS   ; next is the execution token
    .dw XT_EXIT