Sayfa 40

(a0)

inter

-396(a6) Tts ScrollDatas move.l — #2,DeltaX move.l — #0,DeltaY move.l — #0,FirstX move.l — #230,FirstY move.l — #360,SecondX move.l — #250,SecondY Tts Clear lea $70000,a0 move.l — #$1400,d7 CLS (A0)4 dbf d7,CLS TİS

; Amiga FUTURE COMPOSER V1.0 / 1.2/1.3 Replay routine Init Music move.w #l,onoff bset #1,$bfe00l

lea Module,a0 lea 100(a0),al move.l — al,SegPoint move.l — a0,al add.l 8(a0),al move.l — al,PatPoint move.l a0,al add.l 16(a0),al move.l — al,FrgPoint move.l — a0,al add.l 24(a0),al move.l — al,VolPoint move.l — 4(a0),d0 divu #13,d0 lea 40(a0),al lea SoundInfo--4(pc),a2

moveg InitLoop move.w

move.l — (al)4,(a2)4 addg.w dbf di ,İnitLoop moveg ,d2 move.l — a0,di add.l 32(a0),d1 sub.l #WaveForms,d1 lea SoundInfo(pc),a0 move.l — d1,(a0)4

moveg — #9-1,d3 InitLoopl move.w (a0),d2 d2,d1

add.l d2,d1 addg.w #6,a0 move.l — dbf d3,InitLoop1 move.l — SegPoint(pc),a0 moveg ,d2 move.b — 12(a0),d2 bne.s SpeedOk move.b — #3,d2

SpeedOk move.w d2,RespCnt move.w d2,RepSpd Init2 clr.w AudTemp move.w move.w #$0780,$dff09a

moveg — #0,d7 mulu #13,d0 moveg — #4-1,d6 lea V1Data(pc),a0 lea Silent(pc),al lea o4a0c8(pc),a2 TnitLoop2 move.l a1,10(a0) move.l — al,18(a0) 14(a0) 45(a0) clr.b 47(a0) 8(a0) 48(a0)

dovel

25(a0) 26(a0) clr.w 30(a0) moveg — #0,d3 move.w move.w divu #3,d3 move.b — d3,32(a0) mulu 3,d3 andi.l #$ff,d3 andi.l #$ff,dI addi.l #$dff0a0,d1 move.l — dl1,a6 move.l — #0,(a6)

move.w #$100,4(a6) move.w #0,6(a6) move.w #0,8(a6)

move.l — d1,60(a0) 64(a0) move.l — SegPoint(pc),(a0) move.l — SegPoint(pc),52(a0) add.l d0,52(a0) add.l d3,52(a0) add.l d7,(a0) d3,(a0) move.w #$d,6(a0) move.l (a0),a3 move.b (a3),di andi.l #$ff,dI #6,d1 move.l — PatPoint(pc),a4 adda.w dl,a4 move.l — a4,34(a0) 38(a0)

move.b — #1,33(a0)) move.b — #2,42(a0) 1(a3),44(a0) move.b — 2(a3),22(a0) clr.b 43(a0) cir.b 45(a0) 56(a0) adda.w — #$4a,a0

dbf d6,InitLoop2 Tt:

Ss Play PerVol(pc),a6 tst.w OnOff bne.s Music On BackToLife

Tits Music On subg.w #1,RespCnt bne.s NoNewNote move.w RepSpd(pc),RespCnt

lea VI Data(pc),a0 bsr.W New Note lea V2Data(pc),a0 bsr.W New Note lea V3Data(pc),a0 bsr.W . New Note lea V4Data(pc),a0 bsr.W New Note NoNewNote AudTemp lea V1Data(pc),a0 bsr.W Effects move.w d0,(a6)4- move.w d1,(a6)4 lea V2Data(pc),a0 bsr.W Effects move.w d0,(a6)-4- move.w d1,(a6)4 lea V3Data(pc),a0 Effects move.w d0,(a6)-4- move.w lea V4Data(pc),a0 bsr.W Effects move.w d0,(a6)4- möve.w lea PerVol(pc),a6 move.w AudTemp(pc),d0 Ori.w move.w d0,-(a7) moveg move.l Startl(pc),d2 move.w add.l di,d2 move.l — Start2(pc),d3 move.w add.l 1,d3 move.l Start3(pc),d4 move.w Offset3(pc),di add.l 1; move.l Start4(pc),d5 move.w Offset4(pc),dI add.l d1,d5 move.w SSizel(pc),d0 move.w SSize2(pc),dl move.w SSize3(pc),d6 move.w SSize4(pc),d7 move.w (a7)4,$dff096 Chani lea — VIData(pc),a0 tst.w 72(a0) beg.b Chan2 subg.w — #1,72(a0) cmpi.w #1,72(a0) bne.s Chan2 clr.w 72(a0) move.l — d2,$dffOa0 move.w d0,$dff0a4 Chan2 lea V2Data(pc),a0 tst.w 72(a0) beg.s Chan3 subg.w — #1,72(a0) cmpi.w #1,72(a0)