moveq.l #20,d0
 move.l ($C8).w,a0
 move.l 4*DrawLine(a0),a0
for:
  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)
  jsr     (a0)
  lea.l   10(a7),a7
  addq.w  #1,d0
  cmp.w   #81,d0
  blt.s   for