,loop move.l (a7)+,d0

En fait, je peux faire :  move.l d0,-(a7)
  moveq.l #15,d0
loop:
  addq.l #1,d1
  addq.b #1,loop+1
  dbf d0

Et ça prend 18 octets.

[edit] Non, c'est complètement idiot.