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