andi.w  #1,d0    ; sens
 beq.s   right
 lsl.l   #1,d1     ; <<1
 bra.s   next
right:
 lsr.l   #1,d1     ; >>1

ça pourrait prendre moins de place avec ça (je n'ai pas verifié):

 andi.w #1,d0
 add.b d0,\shift
\shift
 lsr.l #1,d1