;:ts=8 ;*************************************************************************** ;* * ;* PLAY - module for Packed TME song-files (AZTEC version) * ;* * ;* Made by N.J. (1/1/90) * ;* * ;*************************************************************************** ;* * ;* * ;* MUSIC_Load Is a routine that can be called to load the packed * ;* data. The parameter is the songname. * ;* * ;* MUSIC_Free Must be called when your program is finished !! * ;* To free all used memory. * ;* * ;* MUSIC_Stop Must/can be called to (temporarily) stop the player * ;* * ;* MUSIC_Play Can be called to start a tune. * ;* Parameter is the number of the tune to be played. * ;* * ;* MUSIC_Continue Can be called to continue a tune after MUSIC_Stop * ;* * ;* MUSIC_Times Sets the number of times to play a tune. * ;* Parameter is this number (0 means forever) * ;* * ;*************************************************************************** INCLUDE playmodule.i bss tune,4 bss firstentry,4 bss lastentry,4 bss entry,4 bss spdcount,4 bss trkcount,4 bss times,4 bss dmacon,2 bss voice,voic_SIZE*4 bss song,song_SIZE bss tableentry,4 bss event,4 bss fx,inuc_SIZE*MAXFX bss data,4 bss vtbintr,22 bss intradded,4 dseg NoteTable dc.w 856,808,762,720,678,640,604,570,538,508,480,453 dc.w 428,404,381,360,339,320,302,285,269,254,240,226 dc.w 214,202,190,180,170,160,151,143,135,127,120,113 tabel dc.w 1,2,1 cseg ;*************************************************************************** ;* * ;* NEWTRACK handles the jump over tracks, pointers are recalculated. * ;* * ;*************************************************************************** NewTrack move.l #TRACKLEN,trkcount ; whole track must be done move.l entry,a1 ; A1 is current entry lea voice,a0 ; A0 is voice move.l #3,d1 vloop5 move.l #0,d0 move.b (a1)+,d0 asl.l #5,d0 ; Put mulu.w #6,d0 ; track*6 << 5 + event add.l event,d0 ; into voicedata move.l d0,voic_event(a0) ; and move.l a1,voic_add(a0) ; address of add is copied add.l #2,a1 add.l #voic_SIZE,a0 dbra d1,vloop5 cmp.l lastentry,a1 bne nstrt ; Is it the last move.l firstentry,a1 ; then make first sub.l #1,times ; and one less to play nstrt move.l a1,entry ; store for next time rts ;*************************************************************************** ;* * ;* NEWNOTES handles the new notes, every time the spdcounter reaches 0 * ;* * ;*************************************************************************** NewNotes movem.l a2/a3/a5/a6,-(sp) lea voice,a2 ; a2 is at current voicedata lea NoteTable,a5 ; a5 is at NoteTable move.l tune,a0 move.l #0,d3 move.b tune_mask(a0),d3 ; d3 is mask for voices move.l #3,d2 ; 4 voices (so dbra from 3) vloop3 move.l voic_event(a2),a3 ; a3 is at current event move.l voic_add(a2),a6 ; a6 is at table-adds move.l voic_instr(a2),a1 ; a1 is at instrument add.l #even_SIZE,voic_event(a2) tst.b voic_nouse(a2) ; is it a superglide-dest ? beq weluse ; then next will be used clr.b voic_nouse(a2) ; and goto next voice bra nxtv3 weluse move.b even_note(a3),d0 ; d0 is (long) note and.l #127,d0 ; is it 0 ? beq nxtv3 ; then try next voice cmp.b #VOICE_OFF,d0 bne voicon ; is it VOICE_OFF ? move.w voic_dma(a2),d0 ; then and.w d3,d0 ; custom.dmacon=mask|dma move.w d0,$dff096 ; and goto next voice bra nxtv3 voicon cmp.b #RELEASE,d0 ; is it RELEASE ? bne norel ; then set egphase move.w #REL_PHASE,voic_egphase(a2) bra nxtv3 norel btst.b #BIT_NONOTEADD,even_flags(a3) bne noad1 add.b 1(a6),d0 ; try to add the noteadd noad1 sub.b #1,d0 ; is the note not legal ? bcs nxtv3 ; then try next voice move.b d0,voic_basearpnote(a2) ; put in basearpnote asl.l #1,d0 ; get period from table move.w (a5,d0.l),voic_vibrato+fxda_src(a2) move.l #0,d0 btst.b #BIT_SIMPLEGLIDE,even_flags(a3) ; get simpleglide-add in D0 beq pokeadd move.b even_par(a3),d0 ext.w d0 pokeadd move.w d0,voic_simplegldadd(a2) clr.b voic_doarpeggio(a2) ; clear doarpeggio move.l #0,d1 move.b even_par(a3),d1 ; get unsigned par in D1 btst.b #BIT_SUPERGLIDE,even_flags(a3) ; is it SUPERGLIDE ? beq nosuper ; then move.b even_SIZE+even_note(a3),d0 ; get next note and.l #127,d0 btst.b #BIT_NONOTEADD,even_flags(a3) ; and add the noteadd bne noadd2 add.b 1(a6),d0 noadd2 sub.b #1,d0 ; is note not legal ? bcs clrgld ; then no glide, no arp asl.l #1,d0 move.w (a5,d0.l),voic_toperiod(a2) ; get period add.l #1,d1 move.l d1,voic_gldcount(a2) ; glidecount is par+1 move.b #1,voic_nouse(a2) ; next note is not used bra noarp nosuper btst.b #BIT_ARPEGGIO,even_flags(a3) ; is it ARPEGGIO ? beq clrgld ; then clr.b voic_arponce(a2) ; get ARPONCE-value btst.b #BIT_ARPONCE,even_flags(a3) ; (1 when once) beq notonce move.b #1,voic_arponce(a2) notonce move.b even_flags(a3),d0 ; get ARPBLOW-tstvalue and.b #64,d0 move.b d0,voic_arpblow(a2) mulu.w #ARPLEN,d1 lea song+song_arpeggio+1,a0 ; get start of arpeggio add.l d1,a0 move.l a0,voic_arpeggio(a2) move.b -1(a0),d0 ; before this stands move.l #0,d1 ; - len<<4|speed - move.b d0,d1 and.b #15,d0 move.b d0,voic_arpspeed(a2) ; get speed add.b #1,d0 ; for the first: move.b d0,voic_arpcount(a2) ; count = speed + 1 lsr.w #4,d1 bne pokelen move.l #8,d1 ; default len is 8 pokelen move.w d1,voic_arplen(a2) ; poke len sub.w #1,d1 move.b d1,voic_doarpeggio(a2) ; doarpeggio is len-1 clr.w voic_arpat(a2) ; start at begin of arp clrgld clr.l voic_gldcount(a2) ; no glide here noarp btst.b #7,even_note(a3) bne noblow ; is the note blown ? clr.w voic_egphase(a2) ; then clr.w voic_egvolume(a2) ; set new EG-values clr.l voic_egcount(a2) ; and sample-phase move.w #STARTSAMPLE,voic_startphase(a2) move.l #0,d0 move.b even_sample(a3),d0 beq samein ; a new instrument ? sub.b #1,d0 ; then btst.b #BIT_NOINSTADD,even_flags(a3) ; get instr-no bne noadd3 ; (plus add) add.b (a6),d0 and.b #$1f,d0 ; (ensure legality) noadd3 asl.l #7,d0 lea song+song_instr,a1 ; to instr-pointer add.l d0,a1 ; into A1 move.l a1,voic_instr(a2) ; and the structure samein move.w voic_dma(a2),d0 and.w d3,d0 ; clr custom.dmacon, or.w d0,dmacon ; and prepare to set move.w d0,$dff096 move.l #0,d0 move.b even_fx(a3),d0 ; get fx-pointer beq deffx asl.l #2,d0 ; non-default is from lea fx,a0 ; the song structure move.l (a0,d0.l),a0 bra pokefx ; default comes from deffx lea inst_fxmem(a1),a0 ; the instrument pokefx move.l a0,voic_insp(a2) clr.b voic_vibrato+fxda_level(a2) ; clear all fx-levels clr.b voic_vibrato+fxda_speed(a2) ; and fx-speeds clr.b voic_tremolo+fxda_level(a2) clr.b voic_tremolo+fxda_speed(a2) clr.b voic_special+fxda_level(a2) clr.b voic_special+fxda_speed(a2) clr.l voic_vibrato+fxda_pointer(a2) clr.l voic_tremolo+fxda_pointer(a2) clr.l voic_special+fxda_pointer(a2) ; let TryNewFx do it... move.b #1,voic_waitforfx(a2) ; we are ready with waiting clr.w voic_fxcount(a2) noblow move.b inst_volume(a1),d0 ; get instr-volume add.b even_vol(a3),d0 ; and add the volume-add ext.w d0 ; into the basevolume move.w d0,voic_basevolume(a2) nxtv3 add.l #voic_SIZE,a2 ; next voicedata dbra d2,vloop3 ; go again until all 4 voices movem.l (sp)+,a2/a3/a5/a6 ; are done rts ;*************************************************************************** ;* * ;* TRYNEWFX walks over the fx, every time the fxcounter reaches 0 * ;* * ;*************************************************************************** TryNewFx movem.l a2/a3,-(sp) lea voice,a2 ; A2 is at voicedata lea song+song_lfo,a1 ; A1 is at lfo move.l #3,d3 vloop4 tst.b voic_waitforfx(a2) ; are we waiting ? beq nxtv4 ; if not then next voice sub.w #1,voic_fxcount(a2) ; dec fxcount bcc nxtv4 ; if not ready then next voice move.l voic_insp(a2),a3 ; A3 is instruction-pointer iloop move.b inuc_ins(a3),d0 and.l #$f0,d0 lsr.l #3,d0 ; instruction in D0 move.w jmptab(pc,d0.w),d0 ; get jump-offset jmpfrom jmp (pc,d0.w) ; jump to right routine nxtv4 add.l #voic_SIZE,a2 ; get next voicedata dbra d3,vloop4 ; for all 4 voices movem.l (sp)+,a2/a3 rts jmptab dc.w stop-jmpfrom-2 ; 0 = STOP dc.w vlev-jmpfrom-2 ; 1 = VIBRATO.level dc.w vspd-jmpfrom-2 ; 2 = VIBRATO.speed dc.w tlev-jmpfrom-2 ; 3 = TREMOLO.level dc.w tspd-jmpfrom-2 ; 4 = TREMOLO.speed dc.w slev-jmpfrom-2 ; 5 = SPECIAL.level dc.w sspd-jmpfrom-2 ; 6 = SPECIAL.speed dc.w dela-jmpfrom-2 ; 7 = DELAY dc.w goto-jmpfrom-2 ; 8 = GOTO stop clr.b voic_waitforfx(a2) bra nxtv4 vlev move.b inuc_value(a3),voic_vibrato+fxda_tolevel(a2) move.w inuc_time(a3),voic_vibrato+fxda_levelcount(a2) add.w #1,voic_vibrato+fxda_levelcount(a2) move.b inuc_ins(a3),d0 and.l #15,d0 asl.l #7,d0 add.l a1,d0 move.l d0,voic_vibrato+fxda_lfo(a2) add.l #inuc_SIZE,a3 bra iloop vspd move.b inuc_value(a3),voic_vibrato+fxda_tospeed(a2) move.w inuc_time(a3),voic_vibrato+fxda_speedcount(a2) add.w #1,voic_vibrato+fxda_speedcount(a2) add.l #inuc_SIZE,a3 bra iloop tlev move.b inuc_value(a3),voic_tremolo+fxda_tolevel(a2) move.w inuc_time(a3),voic_tremolo+fxda_levelcount(a2) add.w #1,voic_tremolo+fxda_levelcount(a2) move.b inuc_ins(a3),d0 and.l #15,d0 asl.l #7,d0 add.l a1,d0 move.l d0,voic_tremolo+fxda_lfo(a2) add.l #inuc_SIZE,a3 bra iloop tspd move.b inuc_value(a3),voic_tremolo+fxda_tospeed(a2) move.w inuc_time(a3),voic_tremolo+fxda_speedcount(a2) add.w #1,voic_tremolo+fxda_speedcount(a2) add.l #inuc_SIZE,a3 bra iloop slev move.b inuc_value(a3),voic_special+fxda_tolevel(a2) move.w inuc_time(a3),voic_special+fxda_levelcount(a2) add.w #1,voic_special+fxda_levelcount(a2) move.b inuc_ins(a3),d0 and.l #15,d0 asl.l #7,d0 add.l a1,d0 move.l d0,voic_special+fxda_lfo(a2) add.l #inuc_SIZE,a3 bra iloop sspd move.b inuc_value(a3),voic_special+fxda_tospeed(a2) move.w inuc_time(a3),voic_special+fxda_speedcount(a2) add.w #1,voic_special+fxda_speedcount(a2) add.l #inuc_SIZE,a3 bra iloop dela move.w inuc_time(a3),voic_fxcount(a2) add.l #inuc_SIZE,a3 move.l a3,voic_insp(a2) bra nxtv4 goto move.l #0,d0 move.b inuc_value(a3),d0 asl.l #2,d0 lea fx,a0 move.l (a0,d0.l),a3 bra iloop ;*************************************************************************** ;* * ;* CALCFXDATA calculates vibrato/tremolo fxvalues, every frame 2x * ;* * ;*************************************************************************** CalcFxData move.b fxda_tolevel(a1),d0 ; are we going somewhere ? beq jcopy ; if not then just copy src to dst tst.w fxda_levelcount(a1) beq levred ; is level not yet OK ? sub.b fxda_level(a1),d0 ; then get difference with tolevel ext.w d0 ext.l d0 ; (into LONG) divs.w fxda_levelcount(a1),d0 ; and part of it add.b d0,fxda_level(a1) ; must be added to the level sub.w #1,fxda_levelcount(a1) ; (less to go) levred tst.w fxda_speedcount(a1) beq spdred ; is speed not yet OK ? move.b fxda_tospeed(a1),d0 ; then get difference from sub.b fxda_speed(a1),d0 ; tospeed and speed ext.w d0 ext.l d0 ; (into LONG) divs.w fxda_speedcount(a1),d0 ; and part of it add.b d0,fxda_speed(a1) ; must be added to the speed sub.w #1,fxda_speedcount(a1) ; (less to go) spdred move.l fxda_pointer(a1),d1 move.l fxda_lfo(a1),a0 move.b (a0,d1.l),d0 ; get current lfo-value ext.w d0 ; into word D0 move.l #0,d1 move.b fxda_level(a1),d1 ; multiply muls.w d1,d0 ; with unsigned word-level lsr.l d2,d0 ; shift by second parameter add.w fxda_src(a1),d0 ; and add source to it move.w d0,fxda_dst(a1) ; into destination move.b fxda_speed(a1),d0 add.b d0,fxda_pointer+3(a1) ; add speed to pointer and.l #127,fxda_pointer(a1) ; keep it within range rts jcopy move.w fxda_src(a1),fxda_dst(a1) rts ;*************************************************************************** ;* * ;* CALCFX calculates all (new) dma-values, every frame again * ;* * ;*************************************************************************** CalcFx movem.l d5/a2/a3/a5/a6,-(sp) lea voice,a2 ; A2 is at voicedata lea NoteTable,a5 ; A5 is at NoteTable lea tabel,a6 ; A6 is at phase-add table move.l tune,a0 move.l #0,d3 move.b tune_mask(a0),d3 ; D3 is mask move.l #3,d5 vloop1 move.l voic_instr(a2),a3 ; A3 is at instrument move.w voic_simplegldadd(a2),d0 ; add simplegldadd add.w d0,voic_vibrato+fxda_src(a2) ; to vibrato.src move.l voic_gldcount(a2),d1 beq nogld move.l #0,d0 ; do we have SUPERGLIDE ? move.l #0,d2 ; then move.w voic_toperiod(a2),d0 ; get difference of move.w voic_vibrato+fxda_src(a2),d2 ; unsigned values sub.l d2,d0 ; and part of it divs.w d1,d0 ; is added to the add.w d0,voic_vibrato+fxda_src(a2) ; vibrato.src sub.l #1,voic_gldcount(a2) ; (less to go) bra dovibr ; no arpeggio... nogld tst.b voic_doarpeggio(a2) beq dovibr ; do we have ARPEGGIO ? move.l #0,d0 ; then move.w voic_arpat(a2),d1 ; get pointer in D1 sub.b #1,voic_arpcount(a2) ; switch to next arpnote ? bcc hanarp ; then add.w #1,d1 ; move pointer divu.w voic_arplen(a2),d1 ; through arpeggio swap d1 ; (MOD arplen) move.w d1,voic_arpat(a2) move.b voic_arpspeed(a2),voic_arpcount(a2) move.b voic_arponce(a2),d0 ; reset counter sub.b d0,voic_doarpeggio(a2) ; (dec doarpeggio) tst.b voic_arpblow(a2) beq hanarp ; should arp be blown ? move.w #STARTSAMPLE,voic_startphase(a2); then clr.w voic_egphase(a2) ; set startphase clr.l voic_egcount(a2) ; set new EG-values clr.w voic_egvolume(a2) ; and clr dmabit move.w voic_dma(a2),d0 ; (prepare for set) and.w d3,d0 or.w d0,dmacon move.w d0,$dff096 ; and hanarp move.b voic_basearpnote(a2),d0 ; Handle ARPEGGIO-period move.l voic_arpeggio(a2),a0 add.b (a0,d1.w),d0 asl.l #1,d0 move.w (a5,d0.l),voic_vibrato+fxda_src(a2) dovibr move.l #7,d2 ; Calc vibrato with lea voic_vibrato(a2),a1 ; shift is 7 bsr CalcFxData move.w voic_vibrato+fxda_dst(a2),d0 cmp.w #113,d0 bge okper move.w #113,d0 ; set period to minimum okper move.w d0,voic_shadow+audi_period(a2) ; of 113 move.l voic_egcount(a2),d1 beq newpha ; busy in EG-phase ? move.l #0,d0 ; then move.l #0,d2 ; get difference of move.w voic_egtovolume(a2),d0 ; unsigned values move.w voic_egvolume(a2),d2 ; and add sub.l d2,d0 ; part of it divs.w d1,d0 ; to the current volume add.w d0,voic_egvolume(a2) ; (less to go) sub.l #1,voic_egcount(a2) bra nocha ; else newpha move.w voic_egphase(a2),d2 ; D2 is egphase cmp.l #SUS_PHASE,d2 ; is it in SUSTAIN ? beq nocha ; then nothing changes move.l #0,d0 move.b inst_eg+envl_rate(a3,d2.w),d0 add.l #1,d0 ; egcount := rate + 1 move.l d0,voic_egcount(a2) ; egtovolume := level move.b inst_eg+envl_level(a3,d2.w),voic_egtovolume+1(a2) asl.w #1,d2 ; get next egphase move.w (a6,d2.w),d1 ; with adds-tabel add.w d1,voic_egphase(a2) nocha move.w voic_basevolume(a2),d0 muls.w voic_egvolume(a2),d0 ; get src-volume asr.w #8,d0 ; from base- and egvolume move.w d0,voic_tremolo+fxda_src(a2) ; and calc the tremolo move.l #9,d2 ; with shift 9 lea voic_tremolo(a2),a1 bsr CalcFxData move.w voic_tremolo+fxda_dst(a2),d0 cmp.w #64,d0 ble okvol ; maximize volume to 64 move.l #64,d0 okvol move.w d0,voic_shadow+audi_volume(a2) tst.w voic_startphase(a2) ; get start and length beq nxtv1 ; according to current cmp.w #STARTSAMPLE,voic_startphase(a2); startphase bne repsam move.l inst_sample+samp_start(a3),voic_shadow+audi_start(a2) move.w inst_sample+samp_stlen+2(a3),voic_shadow+audi_len(a2) move.w #1,voic_startphase(a2) bra nxtv1 repsam move.l inst_sample+samp_start(a3),voic_shadow+audi_start(a2) move.l inst_sample+samp_restoff(a3),d0 asl.l #1,d0 add.l d0,voic_shadow+audi_start(a2) move.w inst_sample+samp_restlen+2(a3),voic_shadow+audi_len(a2) clr.w voic_startphase(a2) nxtv1 add.l #voic_SIZE,a2 dbra d5,vloop1 movem.l (sp)+,d5/a2/a3/a5/a6 rts ;*************************************************************************** ;* * ;* PLAYER is the main interrupt loop which controls the music * ;* * ;*************************************************************************** Player movem.l d0-d7/a0-a6,-(a7) move.l a1,a4 ; Get the right A4 move.l times,d0 beq return ; if !times return (no play). move.l tune,a2 ; A2 is at tune move.l #0,d4 ; D4 is mask move.b tune_mask(a2),d4 tst.w dmacon beq nodma ; must we set some bits ? move.w dmacon,d0 ; then or.w #$8200,d0 ; set them move.w d0,$dff096 ; (already masked) clr.w dmacon nodma sub.b #1,spdcount ; time for new notes ? bcc nonewno ; then move.b 2(a2),spdcount ; reset spdcount sub.l #1,trkcount ; time for new track ? bne nonewtr bsr NewTrack ; then New Track nonewtr bsr NewNotes ; New Notes nonewno bsr TryNewFx ; walk through fx bsr CalcFx ; calc all dma-values move.l #3,d1 lea voice,a0 ; A0 is at voicedata move.l #$dff0a0,a1 ; A1 is at hardware-audio vloop2 move.w d4,d0 ; if mask is set ? and.w voic_dma(a0),d0 ; then poke dma-values beq nxtv2 move.l voic_shadow+audi_start(a0),audi_start(a1) move.w voic_shadow+audi_len(a0),audi_len(a1) move.w voic_shadow+audi_period(a0),audi_period(a1) move.w voic_shadow+audi_volume(a0),audi_volume(a1) nxtv2 add.l #voic_SIZE,a0 ; get next voicedata add.l #audi_SIZE,a1 ; and next audio-channel dbra d1,vloop2 ; until all voices are done return movem.l (sp)+,d0-d7/a0-a6 move.l #0,d0 rts ;*************************************************************************** ;* * ;* GLOBAL routines * ;* * ;*************************************************************************** public _MUSIC_Load public _MUSIC_Free public _MUSIC_Play public _MUSIC_Times public _MUSIC_Stop public _MUSIC_Continue ;********************************** The following must be in your library public _Close public _AllocMem public _Read public _Open public _FreeMem public _AddIntServer public _RemIntServer _MUSIC_Stop tst.l intradded ; must we remove the server ? beq endrm ; if yes pea vtbintr ; then do it pea 5 jsr _RemIntServer add.w #8,sp move.l #0,intradded endrm move.w #15,$dff096 ; and clear dma clr.w dmacon rts _MUSIC_Play bsr _MUSIC_Stop ; first stop the music move.l 4(sp),d0 asl.l #2,d0 lea song+song_tune,a1 add.l d0,a1 move.l a1,tune ; get pointer to current tune move.b tune_start(a1),d0 or.b tune_end(a1),d0 bne normal ; not from 0 to 0 ... rts normal move.l #$ffffffff,times ; play endlessly move.l #0,d0 move.b tune_start(a1),d0 mulu.w #entr_SIZE,d0 add.l tableentry,d0 move.l d0,firstentry ; set first, move.l #0,d0 ; and lastentry move.b tune_end(a1),d0 mulu.w #entr_SIZE,d0 add.l tableentry,d0 move.l d0,lastentry btst.b #4,tune_mask(a1) ; handle LED for this tune beq ledon bset #1,$bfe001 bra okled ledon bclr #1,$bfe001 okled move.w #1,voice+voic_SIZE*0+voic_dma move.w #2,voice+voic_SIZE*1+voic_dma move.w #4,voice+voic_SIZE*2+voic_dma move.w #8,voice+voic_SIZE*3+voic_dma move.w #0,voice+voic_SIZE*0+voic_egtovolume move.w #0,voice+voic_SIZE*1+voic_egtovolume move.w #0,voice+voic_SIZE*2+voic_egtovolume move.w #0,voice+voic_SIZE*3+voic_egtovolume move.l firstentry,d0 add.l #entr_SIZE,d0 move.l d0,entry ; entry is firstentry+1 ; directly followed by continue _MUSIC_Continue bsr _MUSIC_Stop ; first stop the music move.l tune,a0 ; set new spdcount clr.l spdcount move.b tune_speed(a0),spdcount+3 move.l entry,a0 cmp.l firstentry,a0 ; go back one entry bne okentr move.l lastentry,a0 okentr sub.l #entr_SIZE,a0 move.l a0,entry bsr NewTrack ; and prepare for this track add.l #1,trkcount tst.l intradded ; must we add the server ? bne endad lea vtbintr+14,a0 ; then do it move.l a4,(a0) lea vtbintr+18,a0 lea Player,a1 move.l a1,(a0) move.b #100,vtbintr+9 move.b #2,vtbintr+8 pea vtbintr pea 5 jsr _AddIntServer add.w #8,sp move.l #1,intradded endad rts _MUSIC_Times ; nr of times to play the song move.l 4(sp),d0 ; 0 means forever bne oktime move.l #$ffffffff,d0 oktime move.l d0,times rts _MUSIC_Free jsr _MUSIC_Stop bclr #1,$bfe001 ; LED on tst.l data ; And free the memory beq endfr ; if neccesary. move.l song,-(sp) move.l data,-(sp) jsr _FreeMem add.w #8,sp clr.l data endfr rts _MUSIC_Load ; parameter = pointer to filename movem.l d4/d5/a2,-(sp) move.l #0,d4 jsr _MUSIC_Free ; Free the previous song pea 1005 move.l 20(sp),-(sp) jsr _Open ; Open File (d5 is filehandler) add.w #8,sp move.l d0,d5 beq endlo ; if it doesn't work then stop pea song_SIZE pea song move.l d5,-(sp) jsr _Read ; Read song-structure lea 12(sp),sp pea 2 move.l song+song_len,-(sp) jsr _AllocMem ; Allocate CHIP_MEM add.w #8,sp move.l d0,data move.l d0,a2 ; if it doesn't work then close file beq close move.l song+song_len,-(sp) move.l a2,-(sp) move.l d5,-(sp) jsr _Read ; Read rest of data lea 12(sp),sp move.l a2,tableentry ; -> TableEntries move.w song+song_tableentries,d0 mulu.w #entr_SIZE,d0 add.l d0,a2 move.l a2,event ; -> Events move.w song+song_events,d0 mulu.w #even_SIZE,d0 add.l d0,a2 lea fx,a0 ; -> Fx fxloop move.l a2,(a0,d4.l) inloop add.l #inuc_SIZE,a2 tst.b inuc_ins-inuc_SIZE(a2) bne inloop add.l #inuc_SIZE,d4 cmp.l #inuc_SIZE*MAXFX,d4 blt fxloop move.l #0,d4 lea song+song_instr,a0 instl tst.b inst_name(a0,d4.l) ; -> Sample Data beq nextin move.l a2,inst_sample+samp_start(a0,d4.l) add.l inst_sample+samp_len(a0,d4.l),a2 nextin add.l #inst_SIZE,d4 cmp.l #inst_SIZE*MAXINSTR,d4 blt instl close move.l d5,-(sp) ; and close the file jsr _Close add.w #4,sp endlo move.l d4,d0 movem.l (sp)+,d4/d5/a2 rts end ; READY !