*************************************************************************** * Future Compose 1.4 Eagleplayer/Deliplayer1.3+ ,Playroutine by Supersero * * adapted by Buggs of DEFECT * *************************************************************************** incdir Include: include "misc/EaglePlayer.i" SECTION Player,Code PLAYERHEADER PlayerTagArray dc.b '$VER: FutureComposer 1.4 Eagleplayer module V1.3 (Jan/26/93)',0 even PlayerTagArray dc.l DTP_RequestDTVersion,$ffff dc.l EP_PlayerVersion,4 dc.l DTP_PlayerVersion,6 dc.l DTP_PlayerName,Fcname dc.l DTP_Creator,Creator dc.l DTP_Check2,testifitis dc.l DTP_Interrupt,FC14_Music dc.l DTP_InitPlayer,GetAudio dc.l DTP_EndPlayer,Freeaudio dc.l DTP_InitSound,init_Music dc.l DTP_EndSound,End_Music dc.l DTP_Volume,SetVoices dc.l DTP_Balance,SetVoices dc.l EP_Voices,SetVoices ; dc.l DTP_Nextpatt,nextpatt dc.l EP_StructInit,StrukInit dc.l EP_StructEnd,StrukEnd dc.l EP_Flags,EPB_Packable!EPB_VolVoices!EPB_Save!EPB_Restart!EPB_Songend!EPB_Volume!EPB_Balance!EPB_Voices!EPB_Analyzer dc.l 0 ;======================================================================== FCName dc.b 'FutureComposer 1.4',0 Creator dc.b 'SuperSero of the Superions,',10 dc.b 'adapted by Buggs of DEFECT',0 even FC14_Data dc.l 0 Dtbase dc.l 0 FC_Structadr: ds.b UPS_Sizeof FC_VolVoice1 dc.w 1 FC_VolVoice2 dc.w 1 FC_VolVoice3 dc.w 1 FC_VolVoice4 dc.w 1 Nextpatt ; lea audtemp(pc),a5 ; move.w 6(a5),4(a5) ;Restore replayspeed counter ; moveq #0,d5 ; lea V1data(pc),a0 ;Point to voice1 data area ; cmp.w #64,40(a0) ; bsr new_note ; lea V2data(pc),a0 ;Point to voice2 data area ; cmp.w #64,40(a0) ; bsr new_note ; lea V3data(pc),a0 ;Point to voice3 data area ; cmp.w #64,40(a0) ; bsr new_note ; lea V4data(pc),a0 ;Point to voice4 data area ; cmp.w #64,40(a0) ; bra new_note ;=========== Struktur übergeben und Sampleadressen löschen ============== Strukinit: lea FC_StructAdr(pc),a0 StrukEnd: rts ;========= Load Module & Get Audio Channels =========================== Getaudio moveq #0,d0 move.l dtg_GetListData(a5),a0 ; Function jsr (a0) move.l a0,FC14_Data move.l a5,dtbase move.l dtg_AudioAlloc(a5),a0 jmp (a0) ;=============== Free Audio Channels =================================== Freeaudio move.l dtg_AudioFree(a5),a0 jmp (a0) ;========================== Is is a Futurecomposer 1.4 Module ??? ======== testifitis move.l dtg_ChkData(a5),a0 move.l (a0),d0 sub.l #"FC14",d0 rts ;======================================================================== ;== d0 Bit 0-3 = Set Voices Bit=1 Voice on == *-----------------------------------------------------------------------* * d0 Bit 0-3 = Set Voices Bit=1 Voice on * SetVoices: lea FC_StructAdr+UPS_DmaCon(pc),a0 move.w EPG_Voices(a5),(a0) ;Voices retten lea FC_VolVoice1(pc),a1 move.l EPG_Voice1Vol(a5),(a1) move.l EPG_Voice3Vol(a5),4(a1) lea FC_StructAdr+UPS_Voice1Vol(pc),a0 lea $dff0a0,a5 moveq #3,d1 .SetNew moveq #0,d0 move.w (a0),d0 bsr.s FC_SetVoices moveq #UPS_Modulo,d0 add.l d0,a0 addq.l #8,a5 addq.l #8,a5 dbf d1,.SetNew rts *-----------------------------------------------------------------------* FC_SetVoices: movem.l a0/d0,-(a7) and.w #$7f,d0 lea FC_StructAdr(pc),a0 cmp.l #$dff0a0,a5 ;Left Volume bne.s .NoVoice1 move.w d0,UPS_Voice1Vol(a0) mulu.w FC_VolVoice1(pc),d0 bra.b .SetIt .NoVoice1: cmp.l #$dff0b0,a5 ;Right Volume bne.s .NoVoice2 move.w d0,UPS_Voice2Vol(a0) mulu.w FC_VolVoice2(pc),d0 bra.b .SetIt .NoVoice2: cmp.l #$dff0c0,a5 ;Right Volume bne.s .NoVoice3 move.w d0,UPS_Voice3Vol(a0) mulu.w FC_VolVoice3(pc),d0 bra.b .SetIt .NoVoice3: move.w d0,UPS_Voice4Vol(a0) mulu.w FC_VolVoice4(pc),d0 .SetIt: lsr.w #6,d0 move.w d0,8(a5) .Return: movem.l (a7)+,a0/d0 rts ********************************************************* ** Amiga FUTURE COMPOSER »» V1.4 «« Replay routine ** ********************************************************* ;Doesn't work with V1.0 - V1.3 modules !! END_MUSIC: clr.w onoff lea $dff096,a0 clr.l $10(A0) clr.l $20(A0) clr.l $30(A0) clr.l $40(A0) move.w #$000f,(a0) rts INIT_MUSIC: move.w #1,onoff move.l FC14_Data,a0 lea 180(a0),a1 move.l a1,SEQpoint move.l a0,a1 add.l 8(a0),a1 move.l a1,PATpoint move.l a0,a1 add.l 16(a0),a1 move.l a1,FRQpoint move.l a0,a1 add.l 24(a0),a1 move.l a1,VOLpoint move.l 4(a0),d0 divu #13,d0 lea 40(a0),a1 lea SOUNDINFO+4,a2 moveq #10-1,d1 initloop: move.w (a1)+,(a2)+ move.l (a1)+,(a2)+ adda.w #10,a2 dbf d1,initloop move.l a0,d1 add.l 32(a0),d1 lea SOUNDINFO,a3 move.l d1,(a3)+ moveq #9-1,d3 moveq #0,d2 initloop1: move.w (a3),d2 add.l d2,d1 add.l d2,d1 addq.l #2,d1 adda.w #12,a3 move.l d1,(a3)+ dbf d3,initloop1 lea 100(a0),a1 lea SOUNDINFO+(10*16),a2 move.l a0,a3 add.l 36(a0),a3 moveq #80-1,d1 moveq #0,d2 initloop2: move.l a3,(a2)+ move.b (a1)+,d2 move.w d2,(a2)+ clr.w (a2)+ move.w d2,(a2)+ addq.w #6,a2 add.w d2,a3 add.w d2,a3 dbf d1,initloop2 move.l SEQpoint(pc),a0 moveq #0,d2 move.b 12(a0),d2 ;Get replay speed bne.s speedok move.b #3,d2 ;Set default speed speedok: move.w d2,respcnt ;Init repspeed counter move.w d2,repspd INIT2: clr.w audtemp clr.w spdtemp move.w #$000f,$dff096 ;Disable audio DMA move.w #$0780,$dff09a ;Disable audio IRQ moveq #0,d7 mulu #13,d0 moveq #4-1,d6 ;Number of soundchannels-1 lea V1data(pc),a0 ;Point to 1st voice data area lea silent,a1 lea Chandata(pc),a2 initloop3: move.l a1,10(a0) move.l a1,18(a0) clr.w 4(a0) move.w #$000d,6(a0) clr.w 8(a0) clr.l 14(a0) move.b #$01,23(a0) move.b #$01,24(a0) clr.b 25(a0) clr.l 26(a0) clr.w 30(a0) clr.l 38(a0) clr.w 42(a0) clr.l 44(a0) clr.l 48(a0) clr.w 56(a0) moveq #$00,d3 move.w (a2)+,d1 move.w (a2),d3 divu #$0003,d3 moveq #0,d4 bset d3,d4 move.w d4,32(a0) move.w (a2)+,d3 andi.l #$00ff,d3 andi.l #$00ff,d1 lea $dff0a0,a6 add.w d1,a6 move.l #$0000,(a6) move.w #$0100,4(a6) move.w #$0000,6(a6) move.w #$0000,8(a6) move.l a6,60(a0) move.l SEQpoint(pc),(a0) move.l SEQpoint(pc),52(a0) add.l d0,52(a0) add.l d3,52(a0) add.l d7,(a0) add.l d3,(a0) move.l (a0),a3 move.b (a3),d1 andi.l #$00ff,d1 lsl.w #6,d1 move.l PATpoint(pc),a4 adda.w d1,a4 move.l a4,34(a0) move.b 1(a3),44(a0) move.b 2(a3),22(a0) lea $4a(a0),a0 ;Point to next voice's data area dbf d6,initloop3 rts FC14_Music movem.l d1-a6,-(sp) lea FC_StructAdr(pc),a1 moveq #-1,d0 move.w d0,UPS_Enabled(a1) move.w #UPSB_Adr!UPSB_LEN!UPSB_Per!UPSB_Vol!UPSB_DMACON,d0 ;UPSB_Note;UPSB_SNr;UPSB_STy;UPSB_Res move.w d0,UPS_Flags(a1) clr.w UPS_Voice1Per(a1) clr.w UPS_Voice2Per(a1) clr.w UPS_Voice3Per(a1) clr.w UPS_Voice4Per(a1) bsr.s PLAY lea FC_StructAdr(pc),a1 clr.w UPS_Enabled(a1) movem.l (a7)+,d1-a6 moveq #0,d0 rts PLAY: lea audtemp(pc),a5 tst.w 8(a5) bne.s music_on rts music_on: moveq #6,d6 subq.w #1,4(a5) ;Decrease replayspeed counter bne.s nonewnote move.w 6(a5),4(a5) ;Restore replayspeed counter moveq #0,d5 lea V1data(pc),a0 ;Point to voice1 data area bsr new_note lea V2data(pc),a0 ;Point to voice2 data area bsr new_note lea V3data(pc),a0 ;Point to voice3 data area bsr new_note lea V4data(pc),a0 ;Point to voice4 data area bsr new_note nonewnote: clr.w (a5) lea $dff000,a6 lea V1data(pc),a0 bsr effects swap d0 move.w d0,$a6(a6) move.w d0,FC_StructAdr+UPS_Voice1per swap d0 move.w d0,FC_StructAdr+UPS_Voice1Vol mulu FC_Volvoice1(pc),d0 lsr.w #6,d0 move.w d0,$a8(a6) lea V2data(pc),a0 bsr effects swap d0 move.w d0,$b6(a6) move.w d0,FC_StructAdr+UPS_Voice2per swap d0 move.w d0,FC_StructAdr+UPS_Voice2Vol mulu FC_volvoice2(pc),d0 lsr.w #6,d0 move.w d0,$b8(a6) lea V3data(pc),a0 bsr effects swap d0 move.w d0,$c6(a6) move.w d0,FC_StructAdr+UPS_Voice3per swap d0 move.w d0,FC_StructAdr+UPS_Voice3Vol mulu FC_Volvoice3(pc),d0 lsr.w #6,d0 move.w d0,$c8(a6) lea V4data(pc),a0 bsr effects swap d0 move.w d0,$d6(a6) move.w d0,FC_StructAdr+UPS_Voice4per swap d0 move.w d0,FC_StructAdr+UPS_Voice4Vol mulu FC_Volvoice4(pc),d0 lsr.w #6,d0 move.w d0,$d8(a6) lea V1data(pc),a0 move.l 68+(0*74)(a0),a1 ;Get samplepointer adda.w 64+(0*74)(a0),a1 ;add repeat_start move.l 68+(1*74)(a0),a2 adda.w 64+(1*74)(a0),a2 move.l 68+(2*74)(a0),a3 adda.w 64+(2*74)(a0),a3 move.l 68+(3*74)(a0),a4 adda.w 64+(3*74)(a0),a4 move.w 66+(0*74)(a0),d1 ;Get repeat_length move.w 66+(1*74)(a0),d2 move.w 66+(2*74)(a0),d3 move.w 66+(3*74)(a0),d4 moveq #2,d0 moveq #0,d5 move.w (a5),d7 ori.w #$8000,d7 ;Set/clr bit = 1 move.w d7,$dff096 ;Enable audio DMA chan1: lea V1data+72(pc),a0 move.w (a0),d7 beq.s chan2 subq.w #1,(a0) cmp.w d0,d7 bne.s chan2 move.w d5,(a0) move.l a1,$a0(a6) ;Set samplestart move.w d1,$a4(a6) ;Set samplelength move.l a1,FC_structadr+UPS_Voice1adr move.w d1,FC_structadr+UPS_Voice1len chan2: lea V2data+72(pc),a0 move.w (a0),d7 beq.s chan3 subq.w #1,(a0) cmp.w d0,d7 bne.s chan3 move.w d5,(a0) move.l a2,$b0(a6) move.w d2,$b4(a6) move.l a2,FC_structadr+UPS_Voice2adr move.w d2,FC_structadr+UPS_Voice2len chan3: lea V3data+72(pc),a0 move.w (a0),d7 beq.s chan4 subq.w #1,(a0) cmp.w d0,d7 bne.s chan4 move.w d5,(a0) move.l a3,$c0(a6) move.w d3,$c4(a6) move.l a3,FC_structadr+UPS_Voice3adr move.w d3,FC_structadr+UPS_Voice3len chan4: lea V4data+72(pc),a0 move.w (a0),d7 beq.s endplay subq.w #1,(a0) cmp.w d0,d7 bne.s endplay move.w d5,(a0) move.l a4,$d0(a6) move.w d4,$d4(a6) move.l a4,FC_structadr+UPS_Voice4adr move.w d4,FC_structadr+UPS_Voice4len endplay: rts new_note: move.l 34(a0),a1 adda.w 40(a0),a1 cmp.b #$49,(a1) ;Check "END" mark in pattern beq.s patend cmp.w #64,40(a0) ;Have all the notes been played? bne samepat patend: move.w d5,40(a0) move.l (a0),a2 adda.w 6(a0),a2 ;Point to next sequence row cmpa.l 52(a0),a2 ;Is it the end? bne.s notend movem.l d0-a6,-(sp) move.l dtbase(pc),a5 move.l dtg_SongEnd(a5),a2 jsr (a2) ;End Of Song My Master movem.l (sp)+,d0-a6 move.w d5,6(a0) ;yes! move.l (a0),a2 ;Point to first sequence notend: lea spdtemp(pc),a3 moveq #1,d1 addq.b #1,(a3) cmpi.b #5,(a3) bne.s nonewspd move.b d1,(a3) move.b 12(a2),d1 ;Get new replay speed beq.s nonewspd move.w d1,2(a3) ;store in counter move.w d1,4(a3) nonewspd: move.b (a2)+,d1 ;Pattern to play move.b (a2)+,44(a0) ;Transpose value move.b (a2)+,22(a0) ;Soundtranspose value lsl.w d6,d1 move.l PATpoint(pc),a1 ;Get pattern pointer add.w d1,a1 move.l a1,34(a0) addi.w #$000d,6(a0) samepat: move.b 1(a1),d1 ;Get info byte move.b (a1)+,d0 ;Get note bne.s ww1 andi.w #%11000000,d1 beq.s noport bra.s ww11 ww1: move.w d5,56(a0) ww11: move.b d5,47(a0) btst #7,d1 beq.s noport move.b 2(a1),47(a0) noport: andi.w #$007f,d0 beq nextnote move.b d0,8(a0) move.b (a1),d1 move.b d1,9(a0) move.w 32(a0),d3 or.w d3,(a5) move.w d3,$dff096 andi.w #$003f,d1 ;Max 64 instruments add.b 22(a0),d1 ;add Soundtranspose move.l VOLpoint(pc),a2 lsl.w d6,d1 adda.w d1,a2 move.w d5,16(a0) move.b (a2),23(a0) move.b (a2)+,24(a0) moveq #0,d1 move.b (a2)+,d1 move.b (a2)+,27(a0) move.b #$40,46(a0) move.b (a2),28(a0) move.b (a2)+,29(a0) move.b (a2)+,30(a0) move.l a2,10(a0) move.l FRQpoint(pc),a2 lsl.w d6,d1 adda.w d1,a2 move.l a2,18(a0) move.w d5,50(a0) move.b d5,25(a0) move.b d5,26(a0) nextnote: addq.w #2,40(a0) rts effects: moveq #0,d7 testsustain: tst.b 26(a0) ;Is sustain counter = 0 beq.s sustzero subq.b #1,26(a0) ;if no, decrease counter bra VOLUfx sustzero: ;Next part of effect sequence move.l 18(a0),a1 ;can be executed now. adda.w 50(a0),a1 testeffects: cmpi.b #$e1,(a1) ;E1 = end of FREQseq sequence beq VOLUfx move.b (a1),d0 cmpi.b #$e0,d0 ;E0 = loop to other part of sequence bne.s testnewsound move.b 1(a1),d1 ;loop to start of sequence + 1(a1) andi.w #$003f,d1 move.w d1,50(a0) move.l 18(a0),a1 adda.w d1,a1 move.b (a1),d0 testnewsound: cmpi.b #$e2,d0 ;E2 = set waveform bne.s testE4 move.w 32(a0),d1 or.w d1,(a5) move.w d1,$dff096 moveq #0,d0 move.b 1(a1),d0 lea SOUNDINFO,a4 lsl.w #4,d0 adda.w d0,a4 move.l 60(a0),a3 move.l (a4)+,d1 move.l d1,(a3) move.l d1,68(a0) move.w (a4)+,4(a3) move.l (a4),64(a0) move.w #$0003,72(a0) move.w d7,16(a0) move.b #$01,23(a0) addq.w #2,50(a0) bra transpose testE4: cmpi.b #$e4,d0 bne.s testE9 moveq #0,d0 move.b 1(a1),d0 lea SOUNDINFO,a4 lsl.w #4,d0 adda.w d0,a4 move.l 60(a0),a3 move.l (a4)+,d1 move.l d1,(a3) move.l d1,68(a0) move.w (a4)+,4(a3) move.l (a4),64(a0) move.w #$0003,72(a0) addq.w #2,50(a0) bra transpose testE9: cmpi.b #$e9,d0 bne testpatjmp move.w 32(a0),d1 or.w d1,(a5) move.w d1,$dff096 moveq #0,d0 move.b 1(a1),d0 lea SOUNDINFO,a4 lsl.w #4,d0 adda.w d0,a4 move.l (a4),a2 cmpi.l #"SSMP",(a2)+ bne.s nossmp lea 320(a2),a4 moveq #0,d1 move.b 2(a1),d1 lsl.w #4,d1 add.w d1,a2 add.l (a2),a4 move.l 60(a0),a3 move.l a4,(a3) move.l 4(a2),4(a3) move.l a4,68(a0) move.l 6(a2),64(a0) move.w d7,16(a0) move.b #1,23(a0) move.w #3,72(a0) nossmp: addq.w #3,50(a0) bra.s transpose testpatjmp: cmpi.b #$e7,d0 bne.s testpitchbend moveq #0,d0 move.b 1(a1),d0 lsl.w d6,d0 move.l FRQpoint(pc),a1 adda.w d0,a1 move.l a1,18(a0) move.w d7,50(a0) bra testeffects testpitchbend: cmpi.b #$ea,d0 bne.s testnewsustain move.b 1(a1),4(a0) move.b 2(a1),5(a0) addq.w #3,50(a0) bra.s transpose testnewsustain: cmpi.b #$e8,d0 bne.s testnewvib move.b 1(a1),26(a0) addq.w #2,50(a0) bra testsustain testnewvib: cmpi.b #$e3,(a1)+ bne.s transpose addq.w #3,50(a0) move.b (a1)+,27(a0) move.b (a1),28(a0) transpose: move.l 18(a0),a1 adda.w 50(a0),a1 move.b (a1),43(a0) addq.w #1,50(a0) VOLUfx: tst.b 25(a0) beq.s volsustzero subq.b #1,25(a0) bra calcperiod volsustzero: tst.b 15(a0) bne.s do_VOLbend subq.b #1,23(a0) bne.s calcperiod move.b 24(a0),23(a0) volu_cmd: move.l 10(a0),a1 adda.w 16(a0),a1 move.b (a1),d0 testvoluend: cmpi.b #$e1,d0 beq.s calcperiod cmpi.b #$ea,d0 bne.s testVOLsustain move.b 1(a1),14(a0) move.b 2(a1),15(a0) addq.w #3,16(a0) bra.s do_VOLbend testVOLsustain: cmpi.b #$e8,d0 bne.s testVOLloop addq.w #2,16(a0) move.b 1(a1),25(a0) bra.s calcperiod testVOLloop: cmpi.b #$e0,d0 bne.s setvolume move.b 1(a1),d0 andi.w #$003f,d0 subq.b #5,d0 move.w d0,16(a0) bra.s volu_cmd do_VOLbend: not.b 38(a0) beq.s calcperiod subq.b #1,15(a0) move.b 14(a0),d1 add.b d1,45(a0) bpl.s calcperiod moveq #0,d1 move.b d1,15(a0) move.b d1,45(a0) bra.s calcperiod setvolume: move.b (a1),45(a0) addq.w #1,16(a0) calcperiod: move.b 43(a0),d0 bmi.s lockednote add.b 8(a0),d0 add.b 44(a0),d0 lockednote: moveq #$7f,d1 and.l d1,d0 lea PERIODS,a1 add.w d0,d0 move.w d0,d1 adda.w d0,a1 move.w (a1),d0 move.b 46(a0),d7 tst.b 30(a0) ;Vibrato_delay = zero ? beq.s vibrator subq.b #1,30(a0) bra.s novibrato vibrator: moveq #5,d2 move.b d1,d5 move.b 28(a0),d4 add.b d4,d4 move.b 29(a0),d1 tst.b d7 bpl.s vib1 btst #0,d7 bne.s vib4 vib1: btst d2,d7 bne.s vib2 sub.b 27(a0),d1 bcc.s vib3 bset d2,d7 moveq #0,d1 bra.s vib3 vib2: add.b 27(a0),d1 cmp.b d4,d1 bcs.s vib3 bclr d2,d7 move.b d4,d1 vib3: move.b d1,29(a0) vib4: lsr.b #1,d4 sub.b d4,d1 bcc.s vib5 subi.w #$0100,d1 vib5: addi.b #$a0,d5 bcs.s vib7 vib6: add.w d1,d1 addi.b #$18,d5 bcc.s vib6 vib7: add.w d1,d0 novibrato: eori.b #$01,d7 move.b d7,46(a0) ; DO THE PORTAMENTO THING not.b 39(a0) beq.s pitchbend moveq #0,d1 move.b 47(a0),d1 ;get portavalue beq.s pitchbend ;0=no portamento cmpi.b #$1f,d1 bls.s portaup portadown: andi.w #$1f,d1 neg.w d1 portaup: sub.w d1,56(a0) pitchbend: not.b 42(a0) beq.s addporta tst.b 5(a0) beq.s addporta subq.b #1,5(a0) moveq #0,d1 move.b 4(a0),d1 bpl.s pitchup ext.w d1 pitchup: sub.w d1,56(a0) addporta: add.w 56(a0),d0 cmpi.w #$0070,d0 bhi.s nn1 move.w #$0071,d0 nn1: cmpi.w #$0d60,d0 bls.s nn2 move.w #$0d60,d0 nn2: swap d0 move.b 45(a0),d0 rts V1data: dcb.b 64,0 ;Voice 1 data area offset1: dcb.b 02,0 ;Is added to start of sound ssize1: dcb.b 02,0 ;Length of sound start1: dcb.b 06,0 ;Start of sound V2data: dcb.b 64,0 ;Voice 2 data area offset2: dcb.b 02,0 ssize2: dcb.b 02,0 start2: dcb.b 06,0 V3data: dcb.b 64,0 ;Voice 3 data area offset3: dcb.b 02,0 ssize3: dcb.b 02,0 start3: dcb.b 06,0 V4data: dcb.b 64,0 ;Voice 4 data area offset4: dcb.b 02,0 ssize4: dcb.b 02,0 start4: dcb.b 06,0 audtemp: dc.w 0 ;DMACON spdtemp: dc.w 0 respcnt: dc.w 0 ;Replay speed counter repspd: dc.w 0 ;Replay speed counter temp onoff: dc.w 0 ;Music on/off flag. Chandata: dc.l $00000000,$00100003,$00200006,$00300009 SEQpoint: dc.l 0 PATpoint: dc.l 0 FRQpoint: dc.l 0 VOLpoint: dc.l 0 PERIODS:dc.w $06b0,$0650,$05f4,$05a0,$054c,$0500,$04b8,$0474 dc.w $0434,$03f8,$03c0,$038a,$0358,$0328,$02fa,$02d0 dc.w $02a6,$0280,$025c,$023a,$021a,$01fc,$01e0,$01c5 dc.w $01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d dc.w $010d,$00fe,$00f0,$00e2,$00d6,$00ca,$00be,$00b4 dc.w $00aa,$00a0,$0097,$008f,$0087,$007f,$0078,$0071 dc.w $0071,$0071,$0071,$0071,$0071,$0071,$0071,$0071 dc.w $0071,$0071,$0071,$0071,$0d60,$0ca0,$0be8,$0b40 dc.w $0a98,$0a00,$0970,$08e8,$0868,$07f0,$0780,$0714 dc.w $1ac0,$1940,$17d0,$1680,$1530,$1400,$12e0,$11d0 dc.w $10d0,$0fe0,$0f00,$0e28,$06b0,$0650,$05f4,$05a0 dc.w $054c,$0500,$04b8,$0474,$0434,$03f8,$03c0,$038a dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a dc.w $021a,$01fc,$01e0,$01c5,$01ac,$0194,$017d,$0168 dc.w $0153,$0140,$012e,$011d,$010d,$00fe,$00f0,$00e2 dc.w $00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f dc.w $0087,$007f,$0078,$0071 section FCchip,data_c silent: dc.w $0100,$0000,$0000,$00e1 SOUNDINFO: ;Start.l , Length.w , Repeat start.w , Repeat-length.w , blk.b 6,0 dcb.b 10*16,0 ;Reserved for samples dcb.b 80*16,0 ;Reserved for waveforms end