Dave Lowe: Amiga Underworld Data + Samples

home *** CD-ROM | disk | FTP | other *** search

/ Dave Lowe: Amiga Underworld Data + Samples / Lowe_AmigaUnderworldData+Samples.adf / underworld.data < prev

Wrap

Text File | 1978-10-31 | 20.5 KB | 1,261 lines

demo equ 1 ;set to 0 to make returnable demo develop equ 1 ;set to zero for assembling data blks ;or testing length of current data ;set to 1 for music development ifne develop include c:ssig/driver.s endc opt p+ ;STEEL SKY GROUND DATA b1 dc.w song_table-b1 dc.w fxjump_table-b1 ifeq develop ; ALL EQUs ab00 equ 269*4 a00 equ 508*2 bb00 equ 480*2 b00 equ 453*2 c01 equ 428*2 db01 equ 404*2 d01 equ 381*2 eb01 equ 360*2 e01 equ 339*2 f01 equ 320*2 gb01 equ 302*2 g01 equ 285*2 ab01 equ 269*2 a01 equ 508 bb01 equ 480 b01 equ 453 c02 equ 428 db02 equ 404 d02 equ 381 eb02 equ 360 e02 equ 339 f02 equ 320 gb02 equ 302 g02 equ 285 ab02 equ 269 a02 equ 254 bb02 equ 240 b02 equ 226 c03 equ 214 db03 equ 202 d03 equ 190 eb03 equ 180 e03 equ 170 f03 equ 160 gb03 equ 151 g03 equ 143 ab03 equ 135 a03 equ 127 bb03 equ 480*2 b03 equ 453*2 c04 equ 428*2 db04 equ 404*2 d04 equ 381*2 eb04 equ 360*2 e04 equ 339*2 f04 equ 320*2 gb04 equ 302*2 g04 equ 285*2 ab04 equ 269*2 a04 equ 508 bb04 equ 480 b04 equ 453 c05 equ 428 db05 equ 404 d05 equ 381 eb05 equ 360 e05 equ 339 f05 equ 320 gb05 equ 302 g05 equ 285 ab05 equ 269 a05 equ 254 bb05 equ 240 b05 equ 226 c06 equ 214 db06 equ 202 d06 equ 190 eb06 equ 180 e06 equ 170 f06 equ 160 gb06 equ 151 g06 equ 143 ab06 equ 135 a06 equ 127 bb06 equ 480*2 b06 equ 453*2 c07 equ 428*2 db07 equ 404*2 d07 equ 381*2 eb07 equ 360*2 e07 equ 339*2 f07 equ 320*2 gb07 equ 302*2 g07 equ 285*2 ab07 equ 269*2 a07 equ 508 bb07 equ 480 b07 equ 453 c08 equ 428 db08 equ 404 d08 equ 381 eb08 equ 360 e08 equ 339 f08 equ 320 gb08 equ 302 g08 equ 285 ab08 equ 269 a08 equ 254 bb08 equ 240 b08 equ 226 v equ 0 no_loop equ 0 loop equ 0 chann1reg equ $dff0a0 chann2reg equ $dff0b0 chann3reg equ $dff0c0 chann4reg equ $dff0d0 dmacon equ $dff096 int_bf_int equ $dff01e int_bf_w equ $dff09a vhposr equ $dff006 in_line equ 0 new_snd equ 4 end_song equ 1 end_patt equ 8 new_env equ 12 pbend equ 16 r22 equ 134 r20 equ 179 ;correctum r19 equ 150 r18 equ 178 r17 equ 200 r16: equ 224 ;correctum r15: equ 249 r14 equ 280 r13: equ 305 r12: equ 333 r11: equ 361 r10: equ 389 r9: equ 419 r8: equ 446 r7: equ 446+112 r6: equ 446+223 r5: equ 446+223+112 r4: equ 446*2 r3: equ 446*3 r2: equ 446*4 r1: equ 446*8 filter: equ $bfe001 filter_on equ 44 filter_off equ 48 modon equ 20 pboff equ 24 modoff equ 28 rest equ 32 end_fxp equ 36 end_fx3 equ 36 end_fx4 equ 40 acc equ 52 repeat equ 56 down equ 1 up equ 2 fx equ 0 endc ;""""""""""""""""""""""""""""""""""""""""""""""""" max_songs: dc.l 3 ;;; DATA song_table: dc.l s1_i-b1,s2_i-b1,s3_i-b1,s4_i-b1 ;danielle with loop fxp: fxjump_table: max_fx dc.l 10 ;number + 1 for test routines only ;______________________________________________________________________ ;sstart: dc.l 0,end_song ;pstart: dc.w end_patt ;---------------------------------- ;;;;;;;;;;;;;;;;;;;;; Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;************************************************ r equ r8-10 ro equ r16 cr set 20 q set cr/2 sq set q/2 dsq set sq/4 tcr1 set 13 tcr2 set 14 tq1 set 7 tq2 set 6 ssilence: dc.l pr-b1 dc.l 0,end_song songs: ;intro tune s1_i: dc.l sample1pt-b1 dc.l 0,end_song s2_i: dc.l sample1pt-b1 DC.L 0,end_song s3_i: dc.l pri-b1 dc.l 0,end_song s4_i: dc.l pri-b1 dc.l 0,end_song ;-------- temp_rest dc.w rest,(cr*4)*44 dc.w end_patt ;--------- ;bass patterns rx equ r12-20 sample1pt: dc.w new_env dc.l sample_env-b1 dc.w new_snd dc.l sample1p-b1 dc.w rx,150 dc.w rx,150 dc.w rx,150-21 dc.w rx,21 dc.w rx,150 dc.w new_snd dc.l sample2p-b1 dc.w rx,350 dc.w new_snd dc.l sample3p-b1 dc.w rx,395 dc.w new_snd dc.l sample4p-b1 dc.w rx,86 dc.w new_snd dc.l sample4p-b1 dc.w rx,129 dc.w new_snd dc.l sample2p-b1 dc.w rx,350 dc.w new_snd dc.l sample3p-b1 dc.w rx,395 dc.w new_snd dc.l sample4p-b1 dc.w rx,86 dc.w new_snd dc.l sample4p-b1 dc.w rx,86 dc.w new_snd dc.l sample4p-b1 dc.w rx,43 dc.w new_snd dc.l sample4p-b1 dc.w rx,43 dc.w new_snd dc.l sample4p-b1 dc.w rx,129-21 dc.w new_env dc.l sample_env-b1 dc.w new_snd dc.l sample1p-b1 dc.w rx,21 dc.w new_env dc.l sample_env-b1 dc.w new_snd dc.l sample1p-b1 dc.w rx,150 dc.w new_env dc.l sample_env-b1 dc.w new_snd dc.l sample1p-b1 dc.w rx,21 dc.w end_patt ;--------- ;oboe patterns oboe_tune dc.w rest,cr*2+q+sq dc.w g02,sq+sq,ab02,sq+q,bb02,cr*2+q dc.w ab02,sq,bb02,sq,ab02,q,g02,q dc.w ab02,cr*3,g02,q,f02,q,g02,q,f02,q,eb02,cr*3 dc.w c02,cr+q,d02,q+cr,eb02,cr,ab02,cr*3,g02,q,f02,q dc.w g02,cr*3,f02,q,eb02,q,f02,cr*7 dc.w g02,q,ab02,q,bb02,cr*2+q,ab02,sq,bb02,sq,ab02,q dc.w g02,q,ab02,cr*3,g02,q,f02,q,g02,q,f02,q,eb02,cr*3 dc.w e02,cr+q,f02,q+cr,g02,cr,ab02,cr*3,g02,q,f02,q dc.w g02,cr*3,f02,q,eb02,q,f02,cr*7 dc.w g02,q,ab02,q,g02,cr*4,bb02,cr*3,ab02,q,g02,q,f02,cr dc.w g02,cr+sq,eb02,sq+q+cr*3+sq dc.w f02,q+sq+cr,g02,cr*4,bb02,cr*3,bb02,q,c03,q,c03,cr*2 dc.w bb02,cr*2,ab02,cr*2,g02,cr*2-q,rest,q,g02,cr*4 dc.w bb02,cr*3,ab02,q,g02,q,f02,cr,g02,cr+sq,eb02,q+sq+cr*3+sq dc.w f02,q+sq+cr,gb02,cr*4+sq,a02,q+sq+cr*2 dc.w bb02,q,c03,q+sq,bb02,q+sq+cr*3+sq dc.w f02,q+sq+cr*3,gb02,cr*4+sq,a02,q+sq+cr*2 dc.w bb02,q,c03,q,a02,cr*4+sq,c03,q+sq+cr*2 dc.w db03,q,eb02,q dc.w end_patt ;------------- ;flute patt flute1 dc.w new_env dc.l flute_envq-b1 dc.w rest,cr,eb02,q,f02,q,g02,cr,eb02,cr,rest,cr dc.w d02,q,eb02,q,f02,cr,d02,cr*2 dc.w c02,q,bb01,q,c02,cr,g01,cr dc.w c02,cr,rest,q,d02,q,rest,cr,eb02,cr dc.w rest,cr,ab02,q,g02,q,ab02,cr,f02,cr dc.w rest,cr,g02,q,f02,q,g02,cr,eb02,cr dc.w f02,cr*4,rest,cr*4 dc.w end_patt ;---------------- ;string patterns end_strings1: dc.w g02,q,d02,q,g01,q,a02,q,d02,q,g01,q dc.w bb02,q,d02,q dc.w g01,q,c03,q,d02,q,g01,q,d03,q,d02,q dc.w f03,cr,g03,cr*4 dc.w end_patt end_stabs dc.w g02,tq1,g02,tq2,g02,tq1 dc.w g02,tq1,g02,tq2,g02,tq1 dc.w g02,cr*2 dc.w end_patt tune1 dc.w modon,1,1,1,1,8,8 dc.w rest,cr*2+q dc.w c02,cr,eb02,q,g02,cr*2+q+sq dc.w f02,q,eb02,q+sq,f02,cr*2+q,eb02,cr,d02,q dc.w eb02,q,d02,q,c02,cr*5+q+sq dc.w c02,sq+q,eb02,q dc.w f02,cr*2+q dc.w eb02,cr,d02,q,eb02,cr*2+q dc.w d02,cr,c02,q,ab01,cr*3,rest,cr dc.w ab01,q,bb01,q,c02,q,d02,q,eb02,q,f02,q dc.w g02,q,ab02,q,g02,cr*2+q+sq dc.w f02,sq+sq,eb02,q+sq dc.w f02,cr*2+q dc.w eb02,cr,d02,q,eb02,q dc.w d02,q,c02,cr*5+q,rest,sq dc.w c02,sq+q,eb02,q,f02,cr*4 dc.w eb02,cr*3,d02,q,c02,q,d02,q+sq,c02,sq,bb01,cr*5 dc.w g01,cr*2,ab01,cr*4,c02,cr*2,eb02,cr*2,g02,cr*4 dc.w new_env dc.l pizpiano_env-b1 dc.w new_snd dc.l pizpianop-b1 dc.w c03,tcr1,g02,tcr2,bb02,tcr1 dc.w f02,tcr1,g02,tcr2,c02,tcr1 dc.w new_env dc.l strings_env-b1 dc.w new_snd dc.l stringsp-b1 dc.w c03,cr,bb02,cr,ab02,cr,g02,cr,f02,cr dc.w eb02,cr,d02,cr,c02,cr,d02,cr*4 ;bar 28 starts here dc.w end_patt fast_strings1 dc.w new_env dc.l strings_envq-b1 dc.w rest,q,c02,sq,d02,sq,eb02,sq,f02,sq,g02,sq,f02,sq,g02,sq dc.w bb02,sq,c03,sq,d03,sq,eb03,sq,rest,sq dc.w eb03,sq,c03,sq,bb02,cr,g02,q,bb02,cr,f02,sq dc.w eb02,sq,d02,sq,c02,sq,bb01,q dc.w ab01,sq,g01,sq,ab01,sq,bb01,sq,c02,sq ;bar 47 dc.w bb01,sq,c02,sq,d02,sq,eb02,sq,c02,sq dc.w d02,sq,eb02,sq,f02,sq,d02,sq,eb02,sq,f02,sq dc.w g02,cr,f02,q,eb02,q+cr,d02,cr dc.w end_patt fast_strings2 dc.w rest,q,c02,sq,d02,sq,eb02,sq,d02,sq,eb02,sq,f02,q dc.w gb02,sq,ab02,sq,gb02,sq,a02,q,f02,q dc.w c03,cr,a02,q,c03,cr,a02,sq,gb02,sq,eb02,q,c02,q dc.w ab01,sq,g01,sq,ab01,sq,bb01,sq,c02,sq ;bar 47 dc.w bb01,sq,c02,sq,d02,sq,eb02,sq,c02,sq dc.w d02,sq,eb02,sq,f02,sq,d02,sq,eb02,sq,f02,sq dc.w ab02,cr,g02,q,f02,q,rest,cr,eb02,cr dc.w rest,q,c02,sq,d02,sq,eb02,sq,d02,sq,eb02,sq,f02,q dc.w gb02,sq,ab02,sq,gb02,sq,a02,q,f02,q dc.w c03,cr,a02,q,c03,cr,a02,sq,gb02,sq,eb02,q,c02,cr ;bar 63 dc.w eb02,sq,f02,sq,gb02,sq,f02,sq,gb02,sq,ab02,q dc.w a02,sq,b02,sq,a02,sq,c03,q,a02,q dc.w eb03,cr,c03,q,eb03,cr,c03,sq,a02,sq,gb02,q,eb02,q dc.w g01,tq1,f01,tq2,g01,tq1 dc.w bb01,tq1,g01,tq2,bb01,tq1 dc.w c02,tq1,bb01,tq2,c02,tq1 dc.w d02,tq1,c02,tq2,d02,tq1 dc.w f02,tq1,d02,tq2,f02,tq1 dc.w g02,tq1,f02,tq2,g02,tq1 dc.w bb02,tq1,a02,tq2,bb02,tq1 dc.w a02,tq1,bb02,tq2,a02,tq1 dc.w g02,cr*4 dc.w g01,tq1,g01,tq2,g01,tq1 dc.w g01,tq1,g01,tq2,g01,tq1 dc.w g01,q dc.w end_patt ;-------------------------chord patterns--------- chamber_part1: dc.w new_env dc.l chord_env-b1 dc.w new_snd dc.l ebgp-b1 dc.w r,q,r,cr,r,q,r,q,r,cr,r,q,r,q,r,cr,r,q dc.w new_snd dc.l ebbbp-b1 dc.w r,q,r,cr,r,q dc.w new_snd dc.l cebabp-b1 dc.w r,q,r,cr,r,q,r,q,r,cr,r,q,r,q,r,cr,r,q dc.w new_snd dc.l debbbp-b1 dc.w r,q,r,cr,r,q chamber_part1r: dc.w new_snd dc.l ebgp-b1 dc.w r,q,r,cr,r,q,r,q,r,cr,r,q,r,q,r,cr,r,q dc.w new_snd dc.l ebbbp-b1 dc.w r,q,r,cr,r,q dc.w new_snd dc.l cebp-b1 dc.w r,q,r,cr,r,q,r,q,r,cr,r,q,r,q,r,cr,r,q dc.w new_snd dc.l debp-b1 dc.w r,q,r,cr,r,q dc.w end_patt chamber_part2: dc.w new_snd dc.l acebp-b1 dc.w r,q,r,cr,r,q,r,q,r,cr,r,q dc.w r,q,r,cr,r,q,r,q,r,cr,r,q dc.w new_snd dc.l abcfp-b1 dc.w r,q,r,cr,r,q,r,q,r,cr,r,q dc.w r,q,r,cr,r,q,r,sq,r,sq,r,q,r,q,r,q dc.w end_patt chamber_part3: ;bar 17 dc.w new_snd dc.l abcfp-b1;???? no f on score dc.w r,q,r,cr,r,q,r,q,r,cr,r,q dc.w new_snd dc.l cebp-b1 dc.w r,q,r,cr,r,q,r,q,r,cr,r,q dc.w new_snd ;bar 19 dc.l debbbp-b1 ;???? no eb on score dc.w r,q,r,cr,r,q,r,q,r,cr,r,q dc.w r,q,r,cr,r,q dc.w new_snd ;bar 20/2 dc.l ebbbp-b1 ;???? added g on score dc.w r,q,r,cr,r,q dc.w new_snd ;bar 21 dc.l cebabp-b1 ;???? different inversion on score dc.w r,q,r,cr,r,q,r,q,r,cr,r,q dc.w r,q,r,cr,r,q dc.w end_patt ch1_stabs dc.w bb01,cr*2,c02,cr*4 dc.w new_env dc.l orchhit_envq-b1 dc.w c03,tcr1,g02,tcr2,bb02,tcr1 dc.w f02,tcr1,g02,tcr2,c02,tcr1 dc.w end_patt ;----------- cp: tymproll dc.w new_env dc.l tymproll_env-b1 dc.w new_snd dc.l tymprollp-b1 dc.w r8,cr*2,r8,cr*2 dc.w end_patt snare_trip dc.w new_env dc.l snare_env-b1 dc.w new_snd dc.l snarep-b1 dc.w r16,tq1,r16,tq2,r16,tq1 dc.w r16,tq1,r16,tq2,r16,tq1 dc.w r16,tq1,r16,tq2,r16,tq1 dc.w r16,tq1,r16,tq2,r16,tq1 dc.w r16,tq1,r16,tq2,r16,tq1 dc.w r16,tq1,r16,tq2,r16,tq1 dc.w r16,tq1,r16,tq2,r16,tq1 dc.w r16,tq1,r16,tq2,r16,tq1 dc.w new_env dc.l crash_env-b1 dc.w new_snd dc.l crashp-b1 dc.w r14,cr*4 dc.w end_patt start_perc: dc.w new_env dc.l crash_env-b1 dc.w new_snd dc.l crashp-b1 dc.w r16,cr*2-q dc.w new_env dc.l tymp_env-b1 dc.w new_snd dc.l tympp-b1 dc.w r6,q,r4,cr*6 dc.w end_patt start_perc1b: dc.w new_env dc.l crash_env-b1 dc.w new_snd dc.l crashp-b1 dc.w r16,cr*2-q dc.w new_env dc.l tymp_env-b1 dc.w new_snd dc.l tympp-b1 dc.w rest,q,rest,cr*2 dc.w end_patt crash_stab dc.w new_env dc.l crash_env-b1 dc.w new_snd dc.l crashp-b1 dc.w r12,cr*4 dc.w new_env dc.l flute_env-b1 dc.w new_snd dc.l flutep-b1 dc.w c03,tcr1,g02,tcr2,bb02,tcr1 dc.w f02,tcr1,g02,tcr2,c02,tcr1 dc.w end_patt snare1 dc.w r16,q,r16,cr,r16,q,r16,cr*2 dc.w r16,q,r16,cr,r16,q,r16,cr*2 dc.w r16,q,r16,cr,r16,q,r16,cr*2 dc.w end_patt snare2 dc.w r16,q,r16,q,r16,cr dc.w r16,q,r16,q,r16,cr dc.w r16,q,r16,q,r16,q,r16,q dc.w r16,q,r16,q,r16,cr dc.w end_patt ;-------------- chamber_part4 dc.w new_snd ; dc.l cebabp-b1 dc.w r,q,r,cr,r,q,r,q,r,cr,r,q,r,q,r,cr,r,q dc.w new_snd ; dc.l bbdfbbp-b1 dc.w r,sq,r,sq,r,q,r,q,r,q dc.w new_snd ; dc.l gcdgp-b1 dc.w r,q,r,cr,r,q,r,q,r,cr,r,q dc.w new_snd ; dc.l gbdgp-b1 dc.w r,q,r,cr,r,q,r,q,r,q,rest,cr dc.w end_patt chamber_part5 dc.w new_env dc.l chord_envq-b1 dc.w new_snd ;bar 29 dc.l ebgp-b1 dc.w r,q,r,cr,r,q,r,q,r,cr,r,cr dc.w new_snd ; dc.l ebfabbp-b1 dc.w r,q,r,q,r,cr,r,q,r,q,r,q dc.w new_snd ; dc.l ebgp-b1 dc.w r,q,r,cr,r,q,r,q,r,cr,r,q dc.w new_snd ; dc.l ebbbp-b1 dc.w r,q,r,cr,r,q,r,sq,r,sq,r,q,r,q,r,cr dc.w new_snd ; dc.l abcfp-b1 dc.w r,q,r,q,r,cr,r,q,r,q,r,cr dc.w new_snd ; dc.l ebbbp-b1 dc.w r,q,r,q,r,cr,r,q,r,q,r,cr dc.w new_snd ; dc.l ebfabbbp-b1 dc.w r,q,r,q,r,cr,r,q,r,q,r,cr dc.w new_snd ; dc.l fabbbp-b1 dc.w r,q,r,q,r,cr,r,q,r,q,r,q dc.w new_snd ; dc.l ebgp-b1 dc.w r,q,r,cr,r,q,r,q,r,cr,r,cr dc.w new_snd ; dc.l ebfabbp-b1 dc.w r,q,r,q,r,cr,r,q,r,q,r,q dc.w new_snd ; dc.l ebgp-b1 dc.w r,q,r,cr,r,q,r,q,r,cr,r,q dc.w new_snd ; dc.l ebbbp-b1 dc.w r,q,r,cr dc.w new_snd ; dc.l egbbcp-b1 dc.w r,q,r,sq,r,sq,r,q,r,q,r,cr dc.w new_snd ; dc.l abcfp-b1 dc.w r,q,r,q,r,cr,r,q,r,q,r,cr dc.w new_snd ; dc.l ebbbp-b1 dc.w r,q,r,q,r,cr,r,q,r,q,r,cr dc.w new_snd ; dc.l ebfabbbp-b1 dc.w r,q,r,q,r,cr,r,q,r,q,r,cr dc.w new_snd ; dc.l fabbbp-b1 dc.w r,q,r,q,r,cr,r,q,r,q,r,cr dc.w end_patt chamber_part6 dc.w new_env dc.l chord_env-b1 dc.w new_snd ; dc.l ebgp-b1 dc.w r,cr,r,cr,r,cr,r,cr dc.w r,cr,r,cr dc.w new_snd ; dc.l ebbbp-b1 dc.w r,cr,r,cr dc.w new_snd ; dc.l cebp-b1 dc.w r,cr,r,cr,r,cr,r,cr dc.w r,cr,r,cr dc.w new_snd ; dc.l debp-b1 dc.w r,cr,r,cr dc.w end_patt chamber_part7 ;bar 57 dc.w new_snd ; dc.l adbebgbp-b1 dc.w r,cr,r,cr,r,cr,r,cr dc.w new_snd ; dc.l acebgbp-b1 dc.w r,cr,r,cr,r,cr,r,cr dc.w new_snd ; dc.l bbdbp-b1 dc.w r,cr,r,cr,r,cr,r,cr dc.w new_snd ; dc.l cebp-b1 dc.w r,cr,r,cr,r,cr,r,q dc.w end_patt chord_env dc.w 0,48,255 chord_envq dc.w 0,32,255 orchhit_env dc.w 0,60,255 orchhit_envq dc.w 0,55,255 strings_env dc.w 0,48,255 strings_envq dc.w 0,38,255 oboe_env dc.w 0,53,255 histrg_env dc.w 0,48,255 flute_env dc.w 0,40,255 flute_envq dc.w 0,30,255 pizpiano_env dc.w 0,28,255 tymproll_env dc.w 0,40,255 tymp_env dc.w 0,50,255 tymp_envl dc.w 0,60,255 cello_env dc.w 0,38,255 cello_envq dc.w 0,32,255 crash_env dc.w 0,40,255 snare_env: dc.w 0,35,255 snare_envl: dc.w 0,45,255 sample_env: dc.w 0,60,255 ;---------------- pri: dc.w rest,65000 dc.w rest,65000 dc.w rest,65000 dc.w rest,65000 dc.w rest,65000 dc.w rest,65000 dc.w rest,65000 dc.w end_patt pr: dc.w rest,cr*4 dc.w end_patt ;-------------------- sounds: flute_snd: dc.w new_env dc.l flute_env-b1 dc.w new_snd dc.l flutep-b1 dc.w end_patt orchhit_snd: dc.w new_env dc.l orchhit_env-b1 dc.w new_snd dc.l orchhitp-b1 dc.w end_patt pizpiano_snd: dc.w new_env dc.l pizpiano_env-b1 dc.w new_snd dc.l pizpianop-b1 dc.w end_patt string_snd: dc.w new_env dc.l strings_env-b1 dc.w new_snd dc.l stringsp-b1 dc.w end_patt oboe_snd: dc.w new_env dc.l oboe_env-b1 dc.w new_snd dc.l oboep-b1 dc.w end_patt flute_sndq: dc.w new_env dc.l flute_envq-b1 dc.w new_snd dc.l flutep-b1 dc.w end_patt snare_snd: dc.w new_env dc.l snare_env-b1 dc.w new_snd dc.l snarep-b1 dc.w end_patt snare_sndl: dc.w new_env dc.l snare_envl-b1 dc.w new_snd dc.l snarep-b1 dc.w end_patt cello_snd: dc.w new_env dc.l cello_env-b1 dc.w new_snd dc.l cellop-b1 dc.w end_patt crash_snd: dc.w new_env dc.l crash_env-b1 dc.w new_snd dc.l crashp-b1 dc.w end_patt ;*********************************************** parameters: iff equ 108 ; sample parameters snarep dc.w 1 dc.l snared-b1 dc.w 2240/2 dc.l restd-b1 dc.w 16/2 flutep dc.w 1 dc.l fluted+iff-b1 dc.w 7278/2 dc.l fluted+4173+iff-b1 dc.w 3106/2 sinep dc.w 1 dc.l sined-b1 dc.w 16/2 dc.l sined-b1 dc.w 16/2 ;----- ebgp dc.w 1 dc.l ebgd+104-b1 dc.w 4669/2 dc.l restd-b1 dc.w 16/2 ebbbp dc.w 1 dc.l ebbbd+104-b1 dc.w 4819/2 dc.l restd-b1 dc.w 16/2 cebp dc.w 1 dc.l cebd+104-b1 dc.w 5155/2 dc.l restd-b1 dc.w 16/2 cebabp dc.w 1 dc.l cebabd+104-b1 dc.w 5226/2 dc.l restd-b1 dc.w 16/2 debbbp dc.w 1 dc.l debbbd+104-b1 dc.w 4547/2 dc.l restd-b1 dc.w 16/2 debp dc.w 1 dc.l debd+104-b1 dc.w 4267/2 dc.l restd-b1 dc.w 16/2 acebp dc.w 1 dc.l acebd+104-b1 dc.w 4273/2 dc.l restd-b1 dc.w 16/2 abcfp dc.w 1 dc.l abcfd+104-b1 dc.w 4076/2 dc.l restd-b1 dc.w 16/2 bbdfbbp dc.w 1 dc.l bbdfbbd+104-b1 dc.w 3150/2 dc.l restd-b1 dc.w 16/2 gcdgp dc.w 1 dc.l gcdgd+104-b1 dc.w 2664/2 dc.l restd-b1 dc.w 16/2 gbdgp dc.w 1 dc.l gbdgd+104-b1 dc.w 2795/2 dc.l restd-b1 dc.w 16/2 ebfabbp dc.w 1 dc.l ebfabbd+104-b1 dc.w 3465/2 dc.l restd-b1 dc.w 16/2 ebfabbbp dc.w 1 dc.l ebfabbbd+104-b1 dc.w 3208/2 dc.l restd-b1 dc.w 16/2 fabbbp dc.w 1 dc.l fabbbd+104-b1 dc.w 3219/2 dc.l restd-b1 dc.w 16/2 egbbcp dc.w 1 dc.l egbbcd+104-b1 dc.w 3048/2 dc.l restd-b1 dc.w 16/2 adbebgbp dc.w 1 dc.l adbebgbd+104-b1 dc.w 3049/2 dc.l restd-b1 dc.w 16/2 acebgbp dc.w 1 dc.l acebgbd+104-b1 dc.w 2621/2 dc.l restd-b1 dc.w 16/2 bbdbp dc.w 1 dc.l bbdbd+104-b1 dc.w 2620/2 dc.l restd-b1 dc.w 16/2 orchhitp dc.w 1 dc.l orchhit8d+104-b1 dc.w 5214/2 dc.l restd-b1 dc.w 16/2 tymprollp dc.w 1 dc.l tymprolld+104-b1 dc.w 11234/2 dc.l restd-b1 dc.w 16/2 tympp dc.w 1 dc.l tymprolld+104+5504-b1 dc.w 5730/2 dc.l restd-b1 dc.w 16/2 stringsp dc.w 1 dc.l strings1d+104+3208-b1 dc.w 6438/2 dc.l strings1d+104+3208-b1 dc.w 6438/2 oboep dc.w 1 dc.l oboed+104+300-b1 dc.w 10514/2 dc.l oboed+104+4002-b1 dc.w 6512/2 pizpianop dc.w 1 dc.l pizpianod-b1 dc.w 4032/2 dc.l restd-b1 dc.w 16/2 cellop dc.w 1 dc.l cellod+104-b1 dc.w 9810/2 dc.l restd-b1 dc.w 16/2 crashp dc.w 1 dc.l crashd+104-b1 dc.w 14701/2 dc.l restd-b1 dc.w 16/2 sample1p dc.w 1 dc.l sample1d+104-b1 dc.w 65000 dc.l restd-b1 dc.w 16/2 sample2p dc.w 1 dc.l sample2d+104-b1 dc.w 65000 dc.l restd-b1 dc.w 16/2 sample3p dc.w 1 dc.l sample3d+104-b1 dc.w 65000 dc.l restd-b1 dc.w 16/2 sample4p dc.w 1 dc.l sample4d+104-b1 dc.w 65000 dc.l restd-b1 dc.w 16/2 ;----------- rest_env: dc.w 0,0,0,0,0,0,0,0,255 ;************************************************** ;;THE FX SAMPLES ARE PULLED IN HERE...THis section can be anywhere ;; in lower memory,and in any order ebgd ;incbin c:steel_sky/samples/ebg8.sam ebbbd ;incbin c:steel_sky/samples/ebbb8.sam cebabd ;incbin c:steel_sky/samples/cebab8.sam debbbd ;incbin c:steel_sky/samples/debbb8.sam cebd ;incbin c:steel_sky/samples/ceb8.sam debd ;incbin c:steel_sky/samples/deb8.sam acebd ;incbin c:steel_sky/samples/aceb.sam abcfd ;incbin c:steel_sky/samples/abcf.sam bbdfbbd ;incbin c:steel_sky/samples/bbdfbb.sam gcdgd ;incbin c:steel_sky/samples/gcdg.sam gbdgd ;incbin c:steel_sky/samples/gbdg.sam ebfabbd ;incbin c:steel_sky/samples/ebfabb.sam ebfabbbd ;incbin c:steel_sky/samples/ebfabbb.sam fabbbd ;incbin c:steel_sky/samples/fabbb.sam egbbcd ;incbin c:steel_sky/samples/egbbc.sam adbebgbd ;incbin c:steel_sky/samples/adbebgb.sam acebgbd ;incbin c:steel_sky/samples/acebgb.sam bbdbd ;incbin c:steel_sky/samples/bbdb.sam tymprolld ;incbin c:steel_sky/samples/tymproll.sam sample1d incbin c:ssig/underworld/sample1 sample2d incbin c:ssig/underworld/sample2 sample3d incbin c:ssig/underworld/sample3 sample4d incbin c:ssig/underworld/sample4 fluted ;incbin c:instruments/flute.sam snared ;incbin c:instruments/snare.sam orchhit8d ;incbin c:instruments/orchhit8.sam strings1d ;incbin c:instruments/strings1.sam oboed ;incbin c:instruments/oboe.sam pizpianod ;incbin c:instruments/pizpiano.sam cellod ;incbin c:instruments/cello1.sam crashd ;incbin c:instruments/crash.sam ;******************************************** restd: rest_data: dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 sined: sine_datad: dc.w 127,80,50,25,0,-25,-50,-100,-127 dc.w -127,-100,-50,-35,0,35,50,80,127 dc.w 127,80,50,25,0,-25,-50,-100,-127 dc.w -127,-100,-50,-35,0,35,50,80,127 ;************************************************* end dc.w modon,1,1,8,8,6,6 dc.w pbend,down,1,60000,32