aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/wordlist.asm
blob: d2b550c3957bafe15b1857f938fc712611ed6888 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
; ( -- wid ) 
; Search Order
; create a new, empty wordlist
HEADER(XT_WORDLIST,8,"wordlist",DOCOLON)
    .dw XT_INFODP
    .dw XT_FETCH 
    .dw XT_ZERO  
    .dw XT_OVER
    .dw XT_STORE
    .dw XT_DUP  
    .dw XT_CELLPLUS
    .dw XT_INFODP
    .dw XT_STORE
    .dw XT_EXIT