aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/dovariable.asm
blob: 6866ef4659fe9b42049c7d3a7b64e3a6309ca33b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
; ( -- addr )
; System
; puts content of parameter field (1 cell) to TOS
;VE_DOVARIABLE:
;    .dw $ff0a
;    .db "(variable)"
;    .dw VE_HEAD
;    .set VE_HEAD = VE_DOVARIABLE
XT_DOVARIABLE:
    .dw PFA_DOVARIABLE
PFA_DOVARIABLE:
    savetos
    movw zl, wl
    adiw zl,1
    readflashcell tosl,tosh
    jmp_ DO_NEXT