aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/do-create.asm
blob: 3f78729270ddfc77dc18e3cb4ce4b9d710e77409 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
; ( --  ) (C: "<spaces>name" -- )
; Compiler
; parse the input and create an empty vocabulary entry without XT and data field (PF)

.if cpu_msp430==1
   HEADER(XT_DOCREATE,8,"(create)",DOCOLON)
.endif

.if cpu_avr8==1
VE_DOCREATE:
    .dw $ff08
    .db "(create)"
    .dw VE_HEAD
    .set VE_HEAD = VE_DOCREATE
XT_DOCREATE:
    .dw DO_COLON
PFA_DOCREATE:
.endif
    .DW XT_PARSENAME,XT_WLSCOPE  ; ( -- addr len wid)
    .DW XT_DUP,XT_NEWEST,XT_CELLPLUS,XT_STORE ; save the wid
    .DW XT_HEADER,XT_NEWEST,XT_STORE          ; save the nt
    .DW XT_EXIT