aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/show-wordlist.asm
blob: d150639eed3ceec8cb19995132b15ead8c83b1a4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
; ( wid -- ) 
; Tools
; prints the name of the words in a wordlist

.if cpu_msp430==1
    HEADER(XT_SHOWWORDLIST,13,"show-wordlist",DOCOLON)
.endif

.if cpu_avr8==1
VE_SHOWWORDLIST:
    .dw $ff0d
    .db "show-wordlist",0
    .dw VE_HEAD
    .set VE_HEAD = VE_SHOWWORDLIST
XT_SHOWWORDLIST:
    .dw DO_COLON
PFA_SHOWWORDLIST:
.endif
    .dw XT_DOLITERAL
    .dw XT_SHOWWORD
    .dw XT_SWAP
    .dw XT_TRAVERSEWORDLIST
    .dw XT_EXIT

.if cpu_msp430==1
    HEADLESS(XT_SHOWWORD,DOCOLON)
.endif

.if cpu_avr8==1
XT_SHOWWORD:
    .dw DO_COLON
PFA_SHOWWORD:
.endif
    .dw XT_NAME2STRING
    .dw XT_ITYPE
    .dw XT_SPACE         ; ( -- addr n)
    .dw XT_TRUE
    .dw XT_EXIT