movem.l d3/a2,-(a7)
 moveq #20,d3
 move.l ($C8).w,a2
 move.l 4*DrawLine(a0),a2
  move.w  #1,-(a7)
  move.w  #80,-(a7)  ; peut s'optimiser en move.l #80<<16 + 1,-(a7)
  move.w  d0,-(a7)
  move.w  #40,-(a7)
  move.w  d0,-(a7)
\for:
 move.w  d3,(a7)
 move.w  d3,4(a7)
  jsr     (a2)
  addq.w  #5,d3
  addq.w  #5,d3
  cmp.w   #81,d3
  blt.s   \for
 lea    10(a7),a7
 movem.l (a7)+,d3/a2

merci Nerick