aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/reveal.asm
blob: b0b4931d23d6a7950686434919aae0c41f84d144 (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
; ( -- ) 
; Dictionary
; makes an entry in a wordlist visible, if not already done.

.if cpu_msp430==1
  HEADER(XT_REVEAL,6,"reveal",DOCOLON)
.endif

.if cpu_avr8==1
VE_REVEAL:
    .dw $ff06
    .db "reveal"
    .dw VE_HEAD
    .set VE_HEAD = VE_REVEAL
XT_REVEAL:
    .dw DO_COLON
PFA_REVEAL:
.endif
    .DW XT_NEWEST,XT_CELLPLUS,XT_FETCH ; only if wordlist is in use
    .DW XT_QDUP,XT_DOCONDBRANCH
    DEST(REVEAL1)
    .DW XT_NEWEST,XT_FETCH,XT_SWAP,XT_STOREE
;    .DW XT_ZERO,XT_NEWEST,XT_CELLPLUS,XT_STORE ; clean wordlist entry
REVEAL1:
    .DW XT_EXIT