mov   a,r7
   add   a,#-offset
   clr   c
   rrc   a
   djnz  acc,$
   jnc   xxx
   nop
xxx:
   ret