aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/nfa2lfa.asm
blob: 945fb64ea1661788ad811d464485f580d80339b3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
; ( nfa -- lfa )
; System
; get the link field address from the name field address
VE_NFA2LFA:
   .dw $ff07
   .db "nfa>lfa",0
   .dw VE_HEAD
   .set VE_HEAD = VE_NFA2LFA
XT_NFA2LFA:
    .dw DO_COLON
PFA_NFA2LFA:
    .dw XT_NAME2STRING
    .dw XT_1PLUS
    .dw XT_2SLASH
    .dw XT_PLUS
    .dw XT_EXIT