; ( -- addr ) ; R( -- ) ; runtime part of user ;VE_DOUSER: ; .db $06, "(user)", 0 ; .dw VE_HEAD ; .set VE_HEAD = VE_DOUSER XT_DOUSER: .dw PFA_DOUSER PFA_DOUSER: savetos movw zl, wl adiw zl, 1 lsl zl rol zh lpm tosl, Z+ lpm tosh, Z add tosl, upl adc tosh, uph rjmp DO_NEXT