; ( -- addr ) ; R( -- ) ; puts content of parameter field (1 cell) to TOS ;VE_DOVARIABLE: ; .db $0a, "(variable)", 0 ; .dw VE_HEAD ; .set VE_HEAD = VE_DOVARIABLE XT_DOVARIABLE: .dw PFA_DOVARIABLE PFA_DOVARIABLE: savetos movw zl, wl adiw zl,1 lsl zl rol zh lpm tosl, Z+ lpm tosh, Z rjmp DO_NEXT