aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/icount.asm
blob: d2a8ae23cd913b08ed5b71af1c29de9a53aa7991 (plain)
1
2
3
;C COUNT   c-addr1 -- c-addr2 u  counted->adr/len
    HEADER(XT_ICOUNT,6,"icount",DOCOLON)
        DW XT_DUP,XT_1PLUS,XT_SWAP,XT_CFETCH,XT_EXIT