aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/doconstant.asm
blob: 0ecdf27df5931210fcc1cfce68a4a11eeade1f9e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
; ( -- addr )
; System
; place data field address on TOS
;VE_DOCONSTANT:
;    .dw $ff0a
;    .db "(constant)"
;    .dw VE_HEAD
;    .set VE_HEAD = VE_DOCONSTANT
XT_DOCONSTANT:
    .dw PFA_DOCONSTANT
PFA_DOCONSTANT:
    savetos
    movw tosl, wl
    adiw tosl, 1
    jmp_ DO_NEXT