; ( n1 n2 -- n3 ) Arithmetics ; R( -- ) ; logical shift right VE_RSHIFT: .db $06, "rshift",0 .dw VE_HEAD .set VE_HEAD = VE_RSHIFT XT_RSHIFT: .dw PFA_RSHIFT PFA_RSHIFT: movw zl, tosl loadtos PFA_RSHIFT1: sbiw zl, 1 brmi PFA_RSHIFT2 lsr tosh ror tosl rjmp PFA_RSHIFT1 PFA_RSHIFT2: rjmp DO_NEXT