Sayfa 46

moveg mt İoop:move.|

subg.w mt l0p2:move.b

moveg mt lop3:clr.| move.| moveg move.w asl.| add.| add.| dbf or.b move.b cİr.w cİr.b cir.b çİr.w Tits mt end: cir.w Cİr.w cir.w Cİr.w move.w

mt music: movem.| lea addg.b bit.s cir.b bra mt nonew: lea lea bsr lea lea bsr lea lea bsr lea lea bsr bra mt arpeggio: moveg move.b divs swap CMp.w beg.s beg.s movet move. İsr.b bra.s mt move.b and.b bra.s mt arp2:move.w a.s mt arp3:asi.w moveg move.w lea

moveg Mt arploop: move.w

#0,d1 di,d2 (af)4,di mt. loop d0,mt İop2 #1,d2 mt samplestarts(pc),at

#2,d2 #$43c,d2 a0,d2 d2,a2 (a2) #0di

42(a0),di

#i,di di,a2 dü,mt lop3 #$2,$bfe001 #$6,mt speed

$dffob8 $dffoc8 $dffod8 mt songpos mt counter mt pattpos

$dffoa8 $dffob8 $dffoc8 $dffod8

d0-d4/a0-a3/a5-a6,-(a7) mt data,a0 counter mt counter,DO mt speed,DO mt nonew mt counter mt getnew

mt mt checkcom mt voice2(pc),a6 mt checkcom mt voice3(pc),a6 mt checkcom mt voice4(pc),a6 $dffOdo,a5 mt checkcom mt endr

#0,d0 mt counter,d0 dü mt arp2 #$2,d0 mt arpi #4, mt arp3 #0,dO $3(a6),do #$İ,dO mt arp3 $10(a6),d2

#0di $10(a6),di mt. periods(pc),a0 #$24,07

(a0,d0.w),d2

bge.s dbf rts mt arp4:move.w ri

is mt getnew:

move.b asl.| asl. add.w cİr.w lea lea bsr.s lea lea bsr.s lea lea bsr.s lea lea bsr.s

bra mt playvoice: move.| mover move. and.b İsr.b move.b and.b or.b tst.b beg.s moveg lea

bra.s mt noloop: add.| move.| move.w move.w mt setregs: mMove.w and.w beg move.b and.b cmp.b bne.s bsr bra mt setperiod: Move.w and.w

mt arp4 #2,a0 d7,mt arploop

d2,$6(a5)

mt data,a0 a0,a2 #$c,a3 #$3b8,a2 #$43c,a0 #0,dO dü,di mt songpos,d0 #8,di

#2,di mt pattpos,di mt dmacon mt playvoice $dffOb0,a5 mt voice2(pc),a6 mt playvoice $dffüco,a5 mt voice3(pc),a6 mt playvoice mt Voice4(pc),a6 mt playvoice mt setdma

0,d1.1), (a6)

#0,d2 $2(a6),d2 #$f0,d2 #4,d2 (a6),do #$fO,dO dü,d2 d2 mt setregs #0,d3 mt samplestarts(pc),at d2,d4

#$1,d2

#$te,dâ a3,d4.)),$8(a6) ağda. 12(a6) 13

mt noloop $4(a6),d2 #1,d3 d3,d2 d2,$a(a6) $4(a3,d4.1),d0 d0,8(a6) $6(a3,d4.1),$e(a6) $12(a6),$8(a5| mt setregs

$4(a6),d2 d3,d2

$12(a6),$8(a5)

(a6),do mt checkcom2 #$3,dO mt setperiod mt setmyport mt checkcom2

16),$10(a6)

move.w cirb $1b(a6) move.| (a5) move.w move.w and.w move.w d0,$6(a5) move.w $14(a6),do dü,mt dmacon bra mt checkcom2 mt setdma: move.w mt wait:dbf dü,mt wait move.w mt dmacon,d0 Or.Ww #$8000,dO move.w d0,$dffo96 move.w #$12c,d0 mt wai2:dbf dü,mt wai2 lea $dffOOO,a5 lea mt voice4(pc),a6 move.| — move.w $e(a6),$d4(a5) lea mt voice3(pc),a6 move.l — $afa6),$col 2) move w lea mt voice2(pc),a6 move.| ) $e(a6) $b4(a5) lea mt voicet (pc),a6 move.| Salaş) move.w $e(a6),$a4(a5) — #$10,mt pattpos cmp.w — #$400,mt pattpos bne.s mt endr mt nex: cir.w mt pattpos clr.b mt break addg.b —#i,mt songpos and.b ink move.b mt songpos,di cmp.b — mt data*$3b6,di bna.s mt endr move.b mt data*$3b7,mt songpos mt endr:tst.b mt break bne.s — mt nex movem.| (a7)4,d0-d4/a0-a3/a5-a6 Tts mt setmyport: move.w (a6),d2 and.w — #$fff,d2 move.w d2,$18(a6) cirb — $16(a6) cmp.w — dü,d2 beg.s — mt cirport bge.s mt rt move.b #$1,$16(a6) rts mt. cirport: $18(a6) mt rt: rts mt myport: beg.s mt myalide cirb $3(a6) mt myslide: tstw — $18(a6) beg.s mt rt moveg — move.b $17(a6),d0 tst.b $16(a6) bne.s mt mysub d0,$10(a6) move.w cmp.w — $10(a6),do bgt.s — mt myok move.w $18(a6),$10(a6) $18(a6)

mt myok:move.w $10(a6),$6(a5) Tits

mt mysub: sub.w move.w CMp.w bit.s move.w cir.w

d0,$10(a6) m

mt myok $18(a6)