moveq  #15,d0;2
\loop:
 clr.l    -(a7);4
 dbra   d0,\loop;8
 movem.l (a7)+,d0-d7/a0-a6;10