Just out of my head, untested:

 clrf Y
 bsf Y,0
loop:
 rrf X,f
 rlf Y,f
 skpnc
  goto loop

6 instructions, does not affect W, isosynchronous, not very fast

Wouter