home *** CD-ROM | disk | FTP | other *** search
- *************************************************************************
- ** Future Composer Version 1.0-1.3 Player for Eagleplayer/Delitracker **
- ** adapted 1993 by Buggs of DEFECT (using ASM-ONE) **
- *************************************************************************
- ;
- incdir Include:
- include "misc/EaglePlayer.i"
-
- section 0,code
-
- PLAYERHEADER PlayerTags
-
- dc.b '$VER: FutureComposer 1.0-1.3 Eagleplayer V1.3 (jan/26/93)',0
- even
-
- PlayerTags
- Tags:
- dc.l DTP_RequestDTVersion,$ffff
- dc.l EP_PlayerVersion,4
- dc.l DTP_Volume,SetVoices
- dc.l DTP_Balance,SetVoices
- dc.l EP_Voices,SetVoices
- dc.l EP_Flags,EPB_Packable!EPB_VolVoices!EPB_Save!EPB_Restart!EPB_Songend!EPB_Volume!EPB_Balance!EPB_Voices!EPB_Analyzer
- dc.l DTP_PlayerVersion,4
- dc.l DTP_PlayerName,FC_Name
- dc.l DTP_Creator,FC_SUPERIONS
- dc.l DTP_Check2,TESTMOD
- dc.l DTP_Interrupt,FC_Music
- dc.l DTP_InitPlayer,GetAudio
- dc.l DTP_EndPlayer,Freeaudio
- dc.l DTP_InitSound,init_music
- dc.l DTP_EndSound,FC_END
-
- dc.l EP_StructInit,StrukInit
- dc.l EP_StructEnd,StrukEnd
- dc.l 0
-
- FC_Name dc.b 'FutureComposer 1.3',0
- FC_SUPERIONS
- dc.b `SuperSero of Superions,`,$0a
- dc.b 'adapted by Buggs of DEFECT',0
- even
- FC_MODULE dc.l 0
- DTBase dc.l 0
- FC_Structadr: ds.l UPS_Sizeof
- FC_VolVoice1 dc.w 1
- FC_VolVoice2 dc.w 1
- FC_VolVoice3 dc.w 1
- FC_VolVoice4 dc.w 1
- ;============ Testet,ob es sich um FC1.3 handelt =====================
- TESTMOD
- moveq #-1,d0
- move.l dtg_ChkData(a5),a0
- cmp.l #`SMOD`,(a0)
- bne.s .no
- moveq #0,d0
- .no rts
- ;=========== Struktur übergeben und Sampleadressen löschen ==============
- Strukinit:
- lea FC_StructAdr(pc),a0
- StrukEnd:
- rts
- *-----------------------------------------------------------------------*
- * 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
- ;======================================================================
- FC_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
- 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 FC_Play
-
- lea FC_StructAdr(pc),a1
- clr.w UPS_Enabled(a1)
-
- movem.l (sp)+,d1-a6
- moveq #0,d0
- rts
-
- GetAudio
- move.l a5,dtbase
-
- moveq #0,d0
- move.l dtg_GetListData(a5),a0 ;Get whole Module
- jsr (a0)
- move.l a0,FC_MODULE
-
- move.l dtg_AudioAlloc(a5),a0 ;Alloc Audio Channels
- jmp (a0)
- FreeAudio
- move.l dtg_AudioFree(a5),a0 ; Function
- jmp (a0)
-
- ***************************************************************
- ** Amiga FUTURE COMPOSER V1.0 / 1.2 / 1.3 Replay routine **
- ***************************************************************
-
- FC_END:
- clr.w onoff
- clr.l $dff0a6
- clr.l $dff0b6
- clr.l $dff0c6
- clr.l $dff0d6
- move.w #$000f,$dff096
- rts
-
- INIT_MUSIC:
- move.w #1,onoff
- move.l FC_MODULE,a0
- lea 100(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)+
- addq.w #4,a2
- dbf d1,initloop
- moveq #0,d2
- move.l a0,d1
- add.l 32(a0),d1
- sub.l #WAVEFORMS,d1
- lea SOUNDINFO,a0
- move.l d1,(a0)+
- moveq #9-1,d3
- initloop1:
- move.w (a0),d2
- add.l d2,d1
- add.l d2,d1
- addq.w #6,a0
- move.l d1,(a0)+
- dbf d3,initloop1
-
- 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 o4a0c8(pc),a2
- initloop2:
- move.l a1,10(a0)
- move.l a1,18(a0)
- clr.l 14(a0)
- clr.b 45(a0)
- clr.b 47(a0)
- clr.w 8(a0)
- clr.l 48(a0)
- move.b #$01,23(a0)
- move.b #$01,24(a0)
- clr.b 25(a0)
- clr.l 26(a0)
- clr.w 30(a0)
- moveq #$00,d3
- move.w (a2)+,d1
- move.w (a2)+,d3
- divu #$0003,d3
- move.b d3,32(a0)
- mulu #$0003,d3
- andi.l #$00ff,d3
- andi.l #$00ff,d1
- addi.l #$dff0a0,d1
- move.l d1,a6
- move.l #$0000,(a6)
- move.w #$0100,4(a6)
- move.w #$0000,6(a6)
- move.w #$0000,8(a6)
- move.l d1,60(a0)
- clr.w 64(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.w #$000d,6(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)
- clr.l 38(a0)
- move.b #$01,33(a0)
- move.b #$02,42(a0)
- move.b 1(a3),44(a0)
- move.b 2(a3),22(a0)
- clr.b 43(a0)
- clr.b 45(a0)
- clr.w 56(a0)
- adda.w #$004a,a0 ;Point to next voice's data area
- dbf d6,initloop2
- rts
-
- FC_PLAY:
- lea pervol(pc),a6
- tst.w onoff
- bne.s music_on
- rts
- music_on:
- subq.w #1,respcnt ;Decrease replayspeed counter
- bne.s nonewnote
- move.w repspd(pc),respcnt ;Restore replayspeed counter
- 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 audtemp
- lea V1data(pc),a0
- bsr effects
- move.w d0,(a6)+
- move.w d1,(a6)+
- lea V2data(pc),a0
- bsr effects
- move.w d0,(a6)+
- move.w d1,(a6)+
- lea V3data(pc),a0
- bsr effects
- move.w d0,(a6)+
- move.w d1,(a6)+
- lea V4data(pc),a0
- bsr effects
- move.w d0,(a6)+
- move.w d1,(a6)+
- lea pervol(pc),a6
- move.w audtemp(pc),d0
- ori.w #$8000,d0 ;Set/clr bit = 1
- move.w d0,-(a7)
- moveq #0,d1
- move.l start1(pc),d2 ;Get samplepointers
- move.w offset1(pc),d1 ;Get offset
- add.l d1,d2 ;Add offset
- move.l start2(pc),d3
- move.w offset2(pc),d1
- add.l d1,d3
- move.l start3(pc),d4
- move.w offset3(pc),d1
- add.l d1,d4
- move.l start4(pc),d5
- move.w offset4(pc),d1
- add.l d1,d5
- move.w ssize1(pc),d0 ;Get sound lengths
- move.w ssize2(pc),d1
- move.w ssize3(pc),d6
- move.w ssize4(pc),d7
-
- bsr waitdma
- move.w (a7)+,$dff096 ;Enable audio DMA
- bsr waitdma
- chan1:
- lea V1data(pc),a0
- tst.w 72(a0)
- beq.s chan2
- subq.w #1,72(a0)
- cmpi.w #1,72(a0)
- bne.s chan2
- clr.w 72(a0)
- move.l d2,$dff0a0 ;Set soundstart
- move.l d2,FC_structadr+UPS_Voice1adr
- move.w d0,$dff0a4 ;Set soundlength
- move.w d0,FC_structadr+UPS_Voice1len
- chan2:
- lea V2data(pc),a0
- tst.w 72(a0)
- beq.s chan3
- subq.w #1,72(a0)
- cmpi.w #1,72(a0)
- bne.s chan3
- clr.w 72(a0)
- move.l d3,$dff0b0
- move.w d1,$dff0b4
- move.l d3,FC_structadr+UPS_Voice2adr
- move.w d1,FC_structadr+UPS_Voice2len
- chan3:
- lea V3data(pc),a0
- tst.w 72(a0)
- beq.s chan4
- subq.w #1,72(a0)
- cmpi.w #1,72(a0)
- bne.s chan4
- clr.w 72(a0)
- move.l d4,$dff0c0
- move.w d6,$dff0c4
- move.l d4,FC_structadr+UPS_Voice3adr
- move.w d6,FC_structadr+UPS_Voice3len
- chan4:
- lea V4data(pc),a0
- tst.w 72(a0)
- beq.s setpervol
- subq.w #1,72(a0)
- cmpi.w #1,72(a0)
- bne.s setpervol
- clr.w 72(a0)
- move.l d5,$dff0d0
- move.w d7,$dff0d4
- move.l d5,FC_structadr+UPS_Voice4adr
- move.w d7,FC_structadr+UPS_Voice4len
- setpervol:
- lea $dff0a6,a5
- move.w (a6)+,d0
- move.w d0,(a5) ;Sampleperiod
- move.w d0,FC_Structadr+UPS_Voice1per
-
- move.w (a6)+,d0 ;Volume
- move.w d0,FC_Structadr+UPS_Voice1vol
- mulu FC_VolVoice1(pc),d0
- lsr.w #6,d0
- move.w d0,2(a5)
-
- move.w (a6)+,d0
- move.w d0,16(a5) ;Sampleperiod
- move.w d0,FC_Structadr+UPS_Voice2per
-
- move.w (a6)+,d0 ;Volume
- move.w d0,FC_StructAdr+UPS_Voice2Vol
- mulu FC_VolVoice2(pc),d0
- lsr.w #6,d0
- move.w d0,18(a5)
-
- move.w (a6)+,d0
- move.w d0,32(a5) ;Sampleperiod
- move.w d0,FC_Structadr+UPS_Voice3per
-
- move.w (a6)+,d0 ;Volume
- move.w d0,FC_StructAdr+UPS_Voice3Vol
- mulu FC_VolVoice3,d0
- lsr.w #6,d0
- move.w d0,34(a5)
-
- move.w (a6)+,d0
- move.w d0,48(a5) ;Sampleperiod
- move.w d0,FC_Structadr+UPS_Voice4per
-
- move.w (a6)+,d0 ;Volume
- move.w d0,FC_StructAdr+UPS_Voice4Vol
- mulu FC_Volvoice4,d0
- asr.w #6,d0
- move.w d0,50(a5)
- rts
-
- new_note:
- moveq #0,d5
- move.l 34(a0),a1
- adda.w 40(a0),a1
- cmp.w #64,40(a0)
- bne samepat
- 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
-
- move.l dtbase(pc),a2
- move.l dtg_SongEnd(a2),a2
- jsr (a2) ;End of Song for Playerprogram
-
- move.w d5,6(a0) ;yes!
- move.l (a0),a2 ;Point to first sequence
- notend:
- moveq #1,d1
- addq.b #1,spdtemp
- cmpi.b #5,spdtemp
- bne.s nonewspd
- move.b d1,spdtemp
- move.b 12(a2),d1 ;Get new replay speed
- beq.s nonewspd
- move.w d1,respcnt ;store in counter
- move.w d1,repspd
- nonewspd:
- move.b (a2),d1 ;Pattern to play
- move.b 1(a2),44(a0) ;Transpose value
- move.b 2(a2),22(a0) ;Soundtranspose value
-
- move.w d5,40(a0)
- lsl.w #6,d1
- add.l PATpoint(pc),d1 ;Get pattern pointer
- move.l d1,34(a0)
- addi.w #$000d,6(a0)
- move.l d1,a1
- 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)
- move.b (a1),31(a0)
-
- ;31(a0) = PORTAMENTO/INSTR. info
- ;Bit 7 = portamento on
- ;Bit 6 = portamento off
- ;Bit 5-0 = instrument number
- ;47(a0) = portamento value
- ;Bit 7-5 = always zero
- ;Bit 4 = up/down
- ;Bit 3-0 = value
- t_porton:
- 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),9(a0)
- move.b 32(a0),d2
- moveq #0,d3
- bset d2,d3
- or.w d3,audtemp
- move.w d3,$dff096
- move.b (a1),d1
- andi.w #$003f,d1 ;Max 64 instruments
- add.b 22(a0),d1
- move.l VOLpoint(pc),a2
- lsl.w #6,d1
- adda.w d1,a2
- move.w d5,16(a0)
- move.b (a2),23(a0)
- move.b (a2)+,24(a0)
- move.b (a2)+,d1
- andi.w #$00ff,d1
- move.b (a2)+,27(a0)
- move.b #$40,46(a0)
- move.b (a2)+,d0
- move.b d0,28(a0)
- move.b d0,29(a0)
- move.b (a2)+,30(a0)
- move.l a2,10(a0)
- move.l FRQpoint(pc),a2
- lsl.w #6,d1
- adda.w d1,a2
- move.l a2,18(a0)
- move.w d5,50(a0)
- move.b d5,26(a0)
- move.b d5,25(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
- cmpi.b #$e0,(a1) ;E0 = loop to other part of sequence
- bne.s testnewsound
- move.b 1(a1),d0 ;loop to start of sequence + 1(a1)
- andi.w #$003f,d0
- move.w d0,50(a0)
- move.l 18(a0),a1
- adda.w d0,a1
- testnewsound:
- cmpi.b #$e2,(a1) ;E2 = set waveform
- bne.s o49c64
- moveq #0,d0
- moveq #0,d1
- move.b 32(a0),d1
- bset d1,d0
- or.w d0,audtemp
- move.w d0,$dff096
- move.b 1(a1),d0
- andi.w #$00ff,d0
- lea SOUNDINFO,a4
- add.w d0,d0
- move.w d0,d1
- add.w d1,d1
- add.w d1,d1
- add.w d1,d0
- adda.w d0,a4
- move.l 60(a0),a3
- move.l (a4),d1
- add.l #WAVEFORMS,d1
- move.l d1,(a3)
- move.l d1,68(a0)
- move.w 4(a4),4(a3)
- move.l 6(a4),64(a0)
- swap d1
- move.w #$0003,72(a0)
- tst.w d1
- bne.s o49c52
- move.w #$0002,72(a0)
- o49c52:
- clr.w 16(a0)
- move.b #$01,23(a0)
- addq.w #2,50(a0)
- bra o49d02
- o49c64:
- cmpi.b #$e4,(a1)
- bne.s testpatjmp
- move.b 1(a1),d0
- andi.w #$00ff,d0
- lea SOUNDINFO,a4
- add.w d0,d0
- move.w d0,d1
- add.w d1,d1
- add.w d1,d1
- add.w d1,d0
- adda.w d0,a4
- move.l 60(a0),a3
- move.l (a4),d1
- add.l #WAVEFORMS,d1
- move.l d1,(a3)
- move.l d1,68(a0)
- move.w 4(a4),4(a3)
- move.l 6(a4),64(a0)
-
- swap d1
- move.w #$0003,72(a0)
- tst.w d1
- bne.s o49cae
- move.w #$0002,72(a0)
- o49cae:
- addq.w #2,50(a0)
- bra.s o49d02
- testpatjmp:
- cmpi.b #$e7,(a1)
- bne.s testnewsustain
- move.b 1(a1),d0
- andi.w #$00ff,d0
- lsl.w #6,d0
- move.l FRQpoint(pc),a1
- adda.w d0,a1
- move.l a1,18(a0)
- move.w d7,50(a0)
- bra testeffects
- testnewsustain:
- cmpi.b #$e8,(a1) ;E8 = set sustain time
- bne.s o49cea
- move.b 1(a1),26(a0)
- addq.w #2,50(a0)
- bra testsustain
- o49cea:
- cmpi.b #$e3,(a1)
- bne.s o49d02
- addq.w #3,50(a0)
- move.b 1(a1),27(a0)
- move.b 2(a1),28(a0)
- o49d02:
- 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 o49d1e
- subq.b #1,25(a0)
- bra.s o49d70
- o49d1e:
- subq.b #1,23(a0)
- bne.s o49d70
- move.b 24(a0),23(a0)
- o49d2a:
- move.l 10(a0),a1
- adda.w 16(a0),a1
- move.b (a1),d0
- cmpi.b #$e8,d0
- bne.s o49d4a
- addq.w #2,16(a0)
- move.b 1(a1),25(a0)
- bra.s VOLUfx
- o49d4a:
- cmpi.b #$e1,d0
- beq.s o49d70
- cmpi.b #$e0,d0
- bne.s o49d68
- move.b 1(a1),d0
- andi.l #$003f,d0
- subq.b #5,d0
- move.w d0,16(a0)
- bra.s o49d2a
- o49d68:
- move.b (a1),45(a0)
- addq.w #1,16(a0)
- o49d70:
- move.b 43(a0),d0
- bmi.s o49d7e
- add.b 8(a0),d0
- add.b 44(a0),d0
- o49d7e:
- andi.w #$007f,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)
- beq.s o49d9e
- subq.b #1,30(a0)
-
- bra.s o49df4
- o49d9e:
- move.b d1,d5
- move.b 28(a0),d4
- add.b d4,d4
- move.b 29(a0),d1
- tst.b d7
- bpl.s o49db4
- btst #0,d7
- bne.s o49dda
- o49db4:
- btst #5,d7
- bne.s o49dc8
- sub.b 27(a0),d1
- bcc.s o49dd6
- bset #5,d7
- moveq #0,d1
- bra.s o49dd6
- o49dc8:
- add.b 27(a0),d1
- cmp.b d4,d1
- bcs.s o49dd6
- bclr #5,d7
- move.b d4,d1
- o49dd6:
- move.b d1,29(a0)
- o49dda:
- lsr.b #1,d4
- sub.b d4,d1
- bcc.s o49de4
- subi.w #$0100,d1
- o49de4:
- addi.b #$a0,d5
- bcs.s o49df2
- o49dea:
- add.w d1,d1
- addi.b #$18,d5
- bcc.s o49dea
- o49df2:
- add.w d1,d0
- o49df4:
- eori.b #$01,d7
- move.b d7,46(a0)
-
- ; DO THE PORTAMENTO THING
- moveq #0,d1
- move.b 47(a0),d1 ;get portavalue
- beq.s a56d0 ;0=no portamento
- cmpi.b #$1f,d1
- bls.s portaup
- portadown:
- andi.w #$1f,d1
- neg.w d1
- portaup:
- sub.w d1,56(a0)
- a56d0:
- add.w 56(a0),d0
- o49e3e:
- cmpi.w #$0070,d0
- bhi.s nn1
- move.w #$0071,d0
- nn1:
- cmpi.w #$06b0,d0
- bls.s nn2
- move.w #$06b0,d0
- nn2:
- moveq #0,d1
- move.b 45(a0),d1
- rts
- waitdma move.l a0,-(sp)
- move.l dtbase(pc),a0
- move.l DTG_waitaudiodma(a0),a0
- jsr (a0)
- move.l (sp)+,a0
- rts
-
-
-
- pervol: dcb.b 16,0 ;Periods & Volumes temp. store
- respcnt: dc.w 0 ;Replay speed counter
- repspd: dc.w 0 ;Replay speed counter temp
- onoff: dc.w 0 ;Music on/off flag.
- firseq: dc.w 0 ;First sequence
- lasseq: dc.w 0 ;Last sequence
- audtemp: dc.w 0
- spdtemp: dc.w 0
-
- 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
-
- o4a0c8: dc.l $00000000,$00100003,$00200006,$00300009
- SEQpoint: dc.l 0
- PATpoint: dc.l 0
- FRQpoint: dc.l 0
- VOLpoint: dc.l 0
-
- section fcdatas,data_c
-
- even
- SILENT: dc.w $0100,$0000,$0000,$00e1
-
- 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
-
- SOUNDINFO:
- ;Offset.l , Sound-length.w , Start-offset.w , Repeat-length.w
-
- ;Reserved for samples
- dc.w $0000,$0000,$0000,$0000,$0001
- dc.w $0000,$0000,$0000,$0000,$0001
- dc.w $0000,$0000,$0000,$0000,$0001
- dc.w $0000,$0000,$0000,$0000,$0001
- dc.w $0000,$0000,$0000,$0000,$0001
- dc.w $0000,$0000,$0000,$0000,$0001
- dc.w $0000,$0000,$0000,$0000,$0001
- dc.w $0000,$0000,$0000,$0000,$0001
- dc.w $0000,$0000,$0000,$0000,$0001
- dc.w $0000,$0000,$0000,$0000,$0001
- ;Reserved for synth sounds
- dc.w $0000,$0000,$0010,$0000,$0010
- dc.w $0000,$0020,$0010,$0000,$0010
- dc.w $0000,$0040,$0010,$0000,$0010
- dc.w $0000,$0060,$0010,$0000,$0010
- dc.w $0000,$0080,$0010,$0000,$0010
- dc.w $0000,$00a0,$0010,$0000,$0010
- dc.w $0000,$00c0,$0010,$0000,$0010
- dc.w $0000,$00e0,$0010,$0000,$0010
- dc.w $0000,$0100,$0010,$0000,$0010
- dc.w $0000,$0120,$0010,$0000,$0010
- dc.w $0000,$0140,$0010,$0000,$0010
- dc.w $0000,$0160,$0010,$0000,$0010
- dc.w $0000,$0180,$0010,$0000,$0010
- dc.w $0000,$01a0,$0010,$0000,$0010
- dc.w $0000,$01c0,$0010,$0000,$0010
- dc.w $0000,$01e0,$0010,$0000,$0010
- dc.w $0000,$0200,$0010,$0000,$0010
- dc.w $0000,$0220,$0010,$0000,$0010
- dc.w $0000,$0240,$0010,$0000,$0010
- dc.w $0000,$0260,$0010,$0000,$0010
- dc.w $0000,$0280,$0010,$0000,$0010
- dc.w $0000,$02a0,$0010,$0000,$0010
- dc.w $0000,$02c0,$0010,$0000,$0010
- dc.w $0000,$02e0,$0010,$0000,$0010
- dc.w $0000,$0300,$0010,$0000,$0010
- dc.w $0000,$0320,$0010,$0000,$0010
- dc.w $0000,$0340,$0010,$0000,$0010
- dc.w $0000,$0360,$0010,$0000,$0010
- dc.w $0000,$0380,$0010,$0000,$0010
- dc.w $0000,$03a0,$0010,$0000,$0010
- dc.w $0000,$03c0,$0010,$0000,$0010
- dc.w $0000,$03e0,$0010,$0000,$0010
- dc.w $0000,$0400,$0008,$0000,$0008
- dc.w $0000,$0410,$0008,$0000,$0008
- dc.w $0000,$0420,$0008,$0000,$0008
- dc.w $0000,$0430,$0008,$0000,$0008
- dc.w $0000,$0440,$0008,$0000,$0008
- dc.w $0000,$0450,$0008,$0000,$0008
- dc.w $0000,$0460,$0008,$0000,$0008
- dc.w $0000,$0470,$0008,$0000,$0008
- dc.w $0000,$0480,$0010,$0000,$0010
- dc.w $0000,$04a0,$0008,$0000,$0008
- dc.w $0000,$04b0,$0010,$0000,$0010
- dc.w $0000,$04d0,$0010,$0000,$0010
- dc.w $0000,$04f0,$0008,$0000,$0008
- dc.w $0000,$0500,$0008,$0000,$0008
- dc.w $0000,$0510,$0018,$0000,$0018
-
-
- WAVEFORMS:
- dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
- dc.w $3f37,$2f27,$1f17,$0f07,$ff07,$0f17,$1f27,$2f37
- dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
- dc.w $c037,$2f27,$1f17,$0f07,$ff07,$0f17,$1f27,$2f37
- dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
- dc.w $c0b8,$2f27,$1f17,$0f07,$ff07,$0f17,$1f27,$2f37
- dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
- dc.w $c0b8,$b027,$1f17,$0f07,$ff07,$0f17,$1f27,$2f37
- dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
- dc.w $c0b8,$b0a8,$1f17,$0f07,$ff07,$0f17,$1f27,$2f37
- dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
- dc.w $c0b8,$b0a8,$a017,$0f07,$ff07,$0f17,$1f27,$2f37
- dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
- dc.w $c0b8,$b0a8,$a098,$0f07,$ff07,$0f17,$1f27,$2f37
- dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
- dc.w $c0b8,$b0a8,$a098,$9007,$ff07,$0f17,$1f27,$2f37
- dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
- dc.w $c0b8,$b0a8,$a098,$9088,$ff07,$0f17,$1f27,$2f37
- dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
- dc.w $c0b8,$b0a8,$a098,$9088,$8007,$0f17,$1f27,$2f37
- dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
- dc.w $c0b8,$b0a8,$a098,$9088,$8088,$0f17,$1f27,$2f37
- dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
- dc.w $c0b8,$b0a8,$a098,$9088,$8088,$9017,$1f27,$2f37
- dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
- dc.w $c0b8,$b0a8,$a098,$9088,$8088,$9098,$1f27,$2f37
- dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
- dc.w $c0b8,$b0a8,$a098,$9088,$8088,$9098,$a027,$2f37
- dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
- dc.w $c0b8,$b0a8,$a098,$9088,$8088,$9098,$a0a8,$2f37
- dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
- dc.w $c0b8,$b0a8,$a098,$9088,$8088,$9098,$a0a8,$b037
- dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
- dc.w $7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
- dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
- dc.w $817f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
- dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
- dc.w $8181,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
- dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
- dc.w $8181,$817f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
- dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
- dc.w $8181,$8181,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
- dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
- dc.w $8181,$8181,$817f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
- dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
- dc.w $8181,$8181,$8181,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
- dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
- dc.w $8181,$8181,$8181,$817f,$7f7f,$7f7f,$7f7f,$7f7f
- dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
- dc.w $8181,$8181,$8181,$8181,$7f7f,$7f7f,$7f7f,$7f7f
- dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
- dc.w $8181,$8181,$8181,$8181,$817f,$7f7f,$7f7f,$7f7f
- dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
- dc.w $8181,$8181,$8181,$8181,$8181,$7f7f,$7f7f,$7f7f
- dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
- dc.w $8181,$8181,$8181,$8181,$8181,$817f,$7f7f,$7f7f
- dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
- dc.w $8181,$8181,$8181,$8181,$8181,$8181,$7f7f,$7f7f
- dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
- dc.w $8181,$8181,$8181,$8181,$8181,$8181,$817f,$7f7f
- dc.w $8080,$8080,$8080,$8080,$8080,$8080,$8080,$8080
- dc.w $8080,$8080,$8080,$8080,$8080,$8080,$8080,$7f7f
- dc.w $8080,$8080,$8080,$8080,$8080,$8080,$8080,$8080
- dc.w $8080,$8080,$8080,$8080,$8080,$8080,$8080,$807f
- dc.w $8080,$8080,$8080,$8080,$7f7f,$7f7f,$7f7f,$7f7f
- dc.w $8080,$8080,$8080,$807f,$7f7f,$7f7f,$7f7f,$7f7f
- dc.w $8080,$8080,$8080,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
- dc.w $8080,$8080,$807f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
- dc.w $8080,$8080,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
- dc.w $8080,$807f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
- dc.w $8080,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
- dc.w $8080,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
- dc.w $8080,$9098,$a0a8,$b0b8,$c0c8,$d0d8,$e0e8,$f0f8
- dc.w $0008,$1018,$2028,$3038,$4048,$5058,$6068,$707f
- dc.w $8080,$a0b0,$c0d0,$e0f0,$0010,$2030,$4050,$6070
- dc.w $4545,$797d,$7a77,$7066,$6158,$534d,$2c20,$1812
- dc.w $04db,$d3cd,$c6bc,$b5ae,$a8a3,$9d99,$938e,$8b8a
- dc.w $4545,$797d,$7a77,$7066,$5b4b,$4337,$2c20,$1812
- dc.w $04f8,$e8db,$cfc6,$beb0,$a8a4,$9e9a,$9594,$8d83
- dc.w $0000,$4060,$7f60,$4020,$00e0,$c0a0,$80a0,$c0e0
- dc.w $0000,$4060,$7f60,$4020,$00e0,$c0a0,$80a0,$c0e0
- dc.w $8080,$9098,$a0a8,$b0b8,$c0c8,$d0d8,$e0e8,$f0f8
- dc.w $0008,$1018,$2028,$3038,$4048,$5058,$6068,$707f
- dc.w $8080,$a0b0,$c0d0,$e0f0,$0010,$2030,$4050,$6070
- end
-