aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/colon-noname.asm
blob: 8c47fb35e211b2e877685a0c8e302ed167662181 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
; ( -- xt )
; Compiler
; create an unnamed entry in the dictionary, XT is DO_COLON
VE_COLONNONAME:
    .dw $ff07
    .db ":noname",0
    .dw VE_HEAD
    .set VE_HEAD = VE_COLONNONAME
XT_COLONNONAME:
    .dw DO_COLON
PFA_COLONNONAME:
    .dw XT_DP
    .dw XT_DUP
    .dw XT_LATEST
    .dw XT_STORE

    .dw XT_COMPILE
    .dw DO_COLON

    .dw XT_RBRACKET
    .dw XT_EXIT