; ( -- 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