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