Bu sayfadaki yazılar
Sayfanın metni
Sayfa 47
move.w $10(a6),$6(a5) ris mt. vib: move.b $3(a6),d0 beg.s — mt vi move.b mt vi: move.b
lea mt İsr.w #$2,d0 and.w — #$if,dO moveg
#0,d2 move.b (a4,d0.w),d2 move.b $ta(a6),d0
and.w mulu İsr.w #$6,d2 move.w Üy tstb — $ibla6) bmi.s mt vibmin add.w — d2,d0 bra.s mt vib2 mt vibmin:
sub.w — d2,d0 mt vib2:move.w d0,$6(a5) move.b $ia(a6),d0 İsr.w #$2,d0 and.w — #$3c,d0 add.b — d0,$ib(a6)
mt nop: move.w $10(a6),$6(a5) rts
mt checkcom: move.w $2(a6),d0 and.w #$fff,dO beg.s mt nop move.b and.b #$f,dO e dü eg mt arpeggio cmp.b #$1,dO beg.s mt portup cmp.b #$2,d0 beg mt portdown cmp.b #$3,d0 beg mt myport cmp.b beg mt vib move.w $10(a6),$6(a5) cmp.b #$a,d0 beg.s mt volslide rts mt volslide: move.b $3(a6),d0 İsr.b #4,d0 tstb dO mt voldown add.w cmp.w #$40,$12(a6) bmi.s mt vol2 move.w #540.812120) mt vol2:move.w $12(a6),$8(a5)
rts mt voldown: moveg — #0,d0 move.b ml andb — subw — d0,$12(a6) bpl.s — mt vol3
$i5(a6) mt vol3:move.w $12(a6),$8(a5) ris mt portup: moveg — #0,d0
move.b $3(a6),d0 sub.w — d0,$10(a6) move.w and.w — #$fff,d0 cmp.w — #$71,d0
bpl.s — mt por2 andw — orw — #$71,$10(a6) mt por2:move.w and.w mt portdown: cirw do move.b $3(a6),d0
add.w move.w and.w CMp.Ww bmi.s and.w mt por3:move.w and.w move.w rts mt checkcom2: move.b and.b cmp.b beg.s bene cmp.b beg.s cmp.b beg.s cmp.b beg.s
rts mt setfilt: move.b and.b asl.b and.b or.b rts mt pattbreak: not.b ris mt posjmp: move.b move.b not.b
move.b mt vol4:move.b
mt setspeed: Cm)
ble.s move.b mt sets:move.b beg.s move.b cir.b mt rts2:rts
mt sin:
mt. periods:
mt speed: mt songpos: mt pattpos: mt counter: mt break: mt dmacon: mt samplestarts: mt voicei:
mt voice2: mt voice3:
mt, voiced:
d0,$10(a6) $10(a6),d0 d0
#$358,d0
mt por3 #$1000,$10(a6) #$358,$10(a6) $iİ ci ,d0 d0,$6(a5)
#Sİ,dO #$e,d0 mt settilt
,d0 mt pattbreak |
mt posjimp | #$C,dO | mt. setvol mt 'setspeed
$3(a6),d0 #$1.dO
mt break
$3(a6),d0 #$İ,d0 dü,mt songpos mt break
#$40,$3(a6) mt volâ $3(a6),$8(a5)
#$11,$3(a6) mt sets $3(a6),d0 mt rts2 dü,mt speed mt coünter
dc.b — deb — $b4 $c5,$d4,$e0,$eb,$f4,$fa,$fd dcb —$b4,$a1,$8d,$78,$61,$4a,$31,$18 dcw $0358,$0328,$02fa,$02d0,$02a6,$0280 decw $025c,$023a,$021a,$01fc,$01e0,$01c5 dew dcw $012e,$0110d,$0100,$00fe,$00f0,$00e2 $00d6,$00ca,$00be,$00b4,$00aa,$00a0 dec.w — $0097,$008f,50087,$0071,$0078,$0071 de.w — $0000,$0000
dc.b dc.b dc.w dc.b dc.b dc.w bik. bik.w bik.w bik.w bik.w bik.w dc.w bik.w bik.w bik.w
26 S4 o 95
So o
Klavyeyle gezinmek için ← ve → tuşları.
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)