... it draw jsr mk_tt init x scroll lea start_a0(pc),a0 ladda mainpekare move.l #right,a4 y start move.l #bottom,a5 x start move.l #left,d1 y slut move.l #top,d2 x slut sub.l a4,d1 divs #max_x,d1 x diff sub.l a5,d2 divs #max_y,d2 y diff move.w d1,8(a0) spara diffs move.w d2,10(a0) move.w #max_y-1,d5 y_loop move.w #max_x-1,d6 x_loop jsr iter calc point jsr draw draw point add.w 8(a0),a4 ka x dbf d6,x_loop move.w #right,a4 x reset add.w 10(a0),a5 ka y cmp.b #$39,$fffffc02 space? beq.s wait dbf d5,y_loop lea $ffff8240.w,a0 load colors movem.l pal3,d0-d7 movem.l d0-d7,(a0) wait move.b 3(a0),$ff8201 high byte move.b 4(a0),$ff8203 middle byte move.b 5(a ...