aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/nfa-to-cfa.asm
blob: 160e22fa1fdce3c55060348cffef056322cb8ecd (plain)
1
2
3
4
5
;Z NFA>CFA   nfa -- cfa    name adr -> code field
;   HCOUNT 7F AND + ALIGNED ;   mask off 'smudge' bit
    HEADER(XT_NFA2CFA,7,"nfa>cfa",DOCOLON)
        DW XT_ICOUNT
        DW XT_DOLITERAL,07Fh,XT_AND,XT_PLUS,XT_ALIGNED,XT_EXIT