home *** CD-ROM | disk | FTP | other *** search
Text File | 1978-08-04 | 19.4 KB | 1,224 lines |
- ;OPENING
-
- opt p+
- b
- dc.w song_table-b
- dc.w fxjump_table-b
-
-
- song_table
- dc.l s1_o-b,s2_o-b,s3_o-b,s4_o-b
-
-
- select_tunes equ 0 ;for conditional assembly whilst testing
- ; zero to step tunes on mouse button
- ; can be deleted..not essential
-
- ; ALL EQUs
-
- 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
-
-
-
- hi: equ 223
- lo: equ 446
-
- r22 equ 134
- r20 equ 179 ;correctum
- r19 equ 150
- r18 equ 178
- r17 equ 200
- r16: equ 227 ;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
-
-
-
- ;**************************************************************************
- ;**************************************************************************
-
- ; THESE ARE THE FX PATTERNS................
-
- ; The interrupt counter in these patterns is dependent on the
- ; playback speed.The figure is calculated as follows
- ; (length/playback speed) *50
- ; the figure then needs rounding up to give a clear finish
- ; if you have the count longer than needed it will cut
- ; out the music on the relevent channel for longer than
- ; neccessary and make it sound jerky
- ; The fx table is below the patterns
-
-
- ;*************************
- 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
-
-
- ;*************************
-
-
- fxjump_table:
- dc.l 0
-
-
- max_fx dc.l 0 ;number + 1 for test routines only
- ;______________________________________________________________________
-
-
- sstart: dc.l 0,end_song
-
- pstart: dc.w end_patt
-
-
- ;----------------------------------
-
- ;;;;;;;;;;;;;;;;;;;;; Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
- cr set 24
- q set cr/2
- sq set q/2
- dsq set sq/4
-
- tq1 set 7
- tq2 set 6
- tsq1 set 3
- tsq2 set 4
-
- ssilence:
- dc.l pr-b
- dc.l 0,end_song
-
-
- ;************************************************
-
- songs:
- ;--------
- ;*****************************************
-
-
- cr set 24
- q set cr/2
- sq set q/2
- dsq set sq/2
-
-
-
- tq1 set 8
- tq2 set 8
- tsq1 set 3
- tsq2 set 4
-
-
-
- cp:
- ;opening music
-
- s1_o:
-
-
- dc.l strings1_snd-b
- dc.l start1-b
- dc.l strings1_snd-b
- dc.l otune1-b
-
- dc.l gliss_snd-b
- dc.l gliss-b
-
- dc.l strings1_snd-b
- dc.l otune1-b
-
- dc.l pizzo_snd-b
- dc.l mid_acc-b
-
- ; 2nd time
-
- dc.l flute_sndl-b
- dc.l otune1-b
-
- dc.l gliss_snd-b
- dc.l gliss-b
-
- dc.l flute_sndl-b
- dc.l otune1-b
-
- dc.l pizzo_snd-b
- dc.l mid_acc-b
-
- dc.l strings1_snd-b
- dc.l otune1-b
-
- dc.l gliss_snd-b
- dc.l gliss-b
-
- dc.l strings1_snd-b
- dc.l otune1-b
-
- dc.l pizzo_snd-b
- dc.l mid_acc-b
-
-
-
-
- dc.l 0,end_song
-
- s2_o:
-
-
- dc.l strings1_snd-b
- dc.l start2-b
-
- dc.l strings1_snd-b
- dc.l ostrings-b
- dc.l ostrings_middle-b
-
-
- dc.l pizzo_sndl-b
- ;dc.l strings1_snd-b
- dc.l ostringsx-b
- dc.l strings1_snd-b
-
- dc.l ostrings_middle-b
-
- dc.l strings1_snd-b
- dc.l ostrings-b
- dc.l ostrings_middle-b
-
-
- DC.L 0,end_song
-
- s3_o:
-
- dc.l strings1_snd-b
- dc.l start2-b
-
- dc.l flute_snd-b
- dc.l oguitar-b
- dc.l gliss_snd-b
- dc.l gliss-b
- dc.l flute_snd-b
- dc.l oguitar2-b
- dc.l strings1_snd-b
- dc.l oguitar3-b
-
-
- dc.l strings1_snd-b
- dc.l oguitar-b
- dc.l gliss_snd-b
- dc.l gliss-b
- dc.l strings1_snd-b
- dc.l oguitar2-b
- dc.l strings1_snd-b
- dc.l oguitar3-b
-
-
- dc.l flute_snd-b
- dc.l oguitar-b
- dc.l gliss_snd-b
- dc.l gliss-b
- dc.l flute_snd-b
- dc.l oguitar2-b
- dc.l strings1_snd-b
- dc.l oguitar3-b
-
-
-
- dc.l 0,end_song
-
- s4_o:
-
- dc.l flute_snd-b
- dc.l start_flute-b
- dc.l gliss_snd-b
- dc.l gliss-b
-
- dc.l verse_chords-b
- dc.l gliss_chords-b
- dc.l verse_chords-b
- dc.l flute_sndq-b
- dc.l omidd_harp-b
- dc.l gliss_snd-b
- dc.l gliss-b
-
- dc.l verse_chords-b
- dc.l gliss_chords-b
- dc.l verse_chords-b
- dc.l flute_sndq-b
- dc.l omidd_harp-b
- dc.l gliss_snd-b
- dc.l gliss-b
-
- dc.l verse_chords-b
- dc.l gliss_chords-b
- dc.l verse_chords-b
- dc.l flute_sndq-b
- dc.l omidd_harp-b
- dc.l gliss_snd-b
- dc.l gliss-b
-
-
- dc.l 0,end_song
-
-
- flute_rests
- dc.w rest,cr*40
- dc.w end_patt
-
- pr
- dc.w rest,cr*4
- dc.w end_patt
-
-
- start1
- dc.w modoff
- dc.w f01,q,f01,q,g01,q,g01,q,f01,q,f01,q,g01,q,g01,q
- dc.w ab01,q,ab01,q,bb01,q,bb01,q,ab01,q,ab01,q,bb01,q,bb01,q
- dc.w c02,q,c02,q,db02,q,db02,q,c02,q,c02,q,db02,q,db02,q
- dc.w eb02,q,eb02,q,f02,q,f02,q,eb02,q,eb02,q,f02,q,f02,q
- dc.w end_patt
-
-
- start2
- dc.w modoff
- dc.w a01,q,a01,q,b01,q,b01,q,a01,q,a01,q,b01,q,b01,q
- dc.w c02,q,c02,q,d02,q,d02,q,c02,q,c02,q,d02,q,d02,q
- dc.w eb02,q,eb02,q,f02,q,f02,q,eb02,q,eb02,q,f02,q,f02,q
- dc.w g02,q,g02,q,g02,q,g02,q,g02,q,g02,q,ab02,q,ab02,q
-
- dc.w end_patt
-
-
- start3
- dc.w modoff
- dc.w c02,q,c02,q,d02,q,d02,q,c02,q,c02,q,d02,q,d02,q
- dc.w eb02,q,eb02,q,f02,q,f02,q,eb02,q,eb02,q,f02,q,f02,q
- dc.w g02,q,g02,q,ab02,q,ab02,q,g02,q,g02,q,ab02,q,ab02,q
- dc.w bb02,q,b02,q,c03,q,c03,q,bb02,q,bb02,q,c03,q,c03,q
- dc.w end_patt
-
- start_flute
- dc.w modon,1,1,2,2,6,6
- dc.w f02,sq,g02,sq,f02,sq,g02,sq
- dc.w f02,sq,g02,sq,f02,sq,g02,sq
- dc.w f02,sq,g02,sq,f02,sq,g02,sq
- dc.w f02,sq,g02,sq,f02,sq,g02,sq
-
- dc.w ab02,sq,bb02,sq,ab02,sq,bb02,sq
- dc.w ab02,sq,bb02,sq,ab02,sq,bb02,sq
- dc.w ab02,sq,bb02,sq,ab02,sq,bb02,sq
- dc.w ab02,sq,bb02,sq,ab02,sq,bb02,sq
-
- dc.w c03,sq,db03,sq,c03,sq,db03,sq
- dc.w c03,sq,db03,sq,c03,sq,db03,sq
- dc.w c03,sq,db03,sq,c03,sq,db03,sq
- dc.w c03,sq,db03,sq,c03,sq,db03,sq
-
- ;dc.w eb03,sq,f03,sq,eb03,sq,f03,sq
- ;dc.w eb03,sq,f03,sq,eb03,sq,f03,sq
- ;dc.w eb03,sq,f03,sq,eb03,sq,f03,sq
- ;dc.w eb03,sq,f03,sq,eb03,sq,f03,sq
- dc.w end_patt
-
-
-
-
-
-
- dc.w end_patt
-
-
-
-
-
-
-
-
-
-
- mid_acc
- dc.w d03,q,d03,cr,d03,q,d03,q,d03,cr,d03,q
- dc.w eb03,q,eb03,cr,eb03,q,d03,q,d03,cr,d03,q
- dc.w c03,q,c03,cr,c03,q,eb03,q,eb03,cr,eb03,q
-
- dc.w f03,q,f03,cr,f03,q,eb03,q,eb03,cr,eb03,q
-
- dc.w d03,q,d03,cr,d03,q,f03,q,f03,cr,f03,q
-
- dc.w g03,q,g03,cr,g03,q,f03,q,f03,cr,f03,q
-
- dc.w g03,q,g03,cr,g03,q,f03,q,f03,cr,f03,q
-
- dc.w eb03,q,eb03,cr,eb03,q,c03,q,c03,cr,c03,q
-
- dc.w g03,q,g03,cr,g03,q,g03,q,g03,cr,g03,q
- dc.w gb03,q,gb03,cr,gb03,q,gb03,q,gb03,cr,gb03,q
- dc.w end_patt
-
-
-
- otune1
- dc.w d02,cr*2,g02,cr*3,f02,cr,g02,cr,ab02,cr,g02,cr*2,d02,cr*3
- dc.w c02,cr,d02,cr,eb02,cr,eb02,cr*2,ab02,cr*3
- dc.w g02,cr,ab02,cr,bb02,cr-2,rest,2,bb02,cr*8
-
- dc.w end_patt
-
- otune1f
- dc.w d02,cr*2,g02,cr*3,f02,cr,g02,cr,ab02,cr,g02,cr*2,d02,cr*3
- dc.w c02,cr,d02,cr,eb02,cr,eb02,cr*2,ab02,cr*3
- dc.w g02,cr,ab02,cr,bb02,cr-2,rest,2,bb02,cr*2,rest,cr*6
-
- dc.w end_patt
-
- ostringsx
- dc.w g02,cr*2,g02,cr*2,f03,cr*4,g03,cr*4,c03,cr*3
- dc.w bb02,cr,ab02,cr*3,g02,cr,f02,cr*4,bb02,cr*8
- dc.w d03,cr*2,d02,cr*2
-
- dc.w g03,cr*2,g03,cr*2,f03,cr*4,g03,cr*4,c03,cr*3
- dc.w bb02,cr,ab02,cr*3,g02,cr,f02,cr*4,bb02,cr*3
- dc.w rest,cr*4,ab02,cr,g02,cr*4
- dc.w end_patt
-
-
-
- ostrings
- dc.w g01,cr*2,g01,cr*2,f02,cr*4,g02,cr*4,c02,cr*3
- dc.w bb01,cr,ab01,cr*3,g01,cr,f01,cr*4,bb01,cr*8
- dc.w d02,cr*2,d01,cr*2
-
- dc.w g01,cr*2,g02,cr*2,f02,cr*4,g02,cr*4,c02,cr*3
- dc.w bb01,cr,ab01,cr*3,g01,cr,f01,cr*4,bb01,cr*3
- dc.w rest,cr*4,ab01,cr,g01,cr*4
- dc.w end_patt
-
- ostrings1
-
-
- dc.w rest,cr*4,rest,cr*4,rest,cr*3
- dc.w rest,cr,rest,cr*3
- dc.w rest,cr,rest,cr*4,bb01,cr*8
- dc.w rest,cr*2,rest,cr*2
- dc.w new_env
- dc.l flute_envq-b
- dc.w g02,cr*2,g03,cr*2,f03,cr*4,g03,cr*4,c03,cr*3
- dc.w bb02,cr,ab02,cr*3,g02,cr,f02,cr*4,bb01,cr*4
-
- dc.w end_patt
-
- ocrash
- dc.w r10,cr*8
- dc.w rest,cr*4,rest,cr*3
- ;dc.w rest,cr,rest,cr*3
- dc.w r8,cr*4
-
- dc.w end_patt
-
-
- ;middle tune
- ostrings_middle
- dc.w c02,cr*2,bb01,cr*2,ab01,cr*4,f01,cr*2,a01,cr*2
- dc.w bb01,cr*4,b01,cr*2,g01,cr*2,c01,cr*2
- dc.w bb01,cr*2,ab01,cr*2,f01,cr,eb01,cr,d01,cr*8
-
- dc.w end_patt
-
-
- oguitar
- dc.w modon,1,1,2,2,6,6
- dc.w d02,cr,g02,cr,a02,cr,b02,cr,c03,cr*4
- dc.w d02,cr,g02,cr,a02,cr,b02,cr,a02,cr*4
- dc.w eb02,cr,ab02,cr,bb02,cr,c03,cr,d03,cr*3
- dc.w eb03,cr,f03,cr*4,rest,cr*4
- dc.w end_patt
-
- oguitar2
- dc.w modon,1,1,2,2,6,6
- dc.w d02,cr,g02,cr,a02,cr,b02,cr,c03,cr*4
- dc.w d02,cr,g02,cr,a02,cr,b02,cr,a02,cr*4
- dc.w eb02,cr,ab02,cr,bb02,cr,c03,cr,d03,cr*3
- dc.w eb03,cr,f03,cr*4,rest,cr*3
- dc.w end_patt
-
- oguitar3
- dc.w bb01,cr,b01,cr*2,b01,q,c02,q,d02,cr
- dc.w eb02,cr+q,f02,sq,eb02,sq,d02,cr+q
- dc.w eb02,sq,d02,sq
-
- dc.w c02,cr*2,c02,q,d02,q,eb02,cr,f02,cr+q,g02,sq
- dc.w f02,sq,eb02,cr+q,f02,sq,eb02,sq
-
- dc.w d02,cr*2,d02,q,eb02,q,f02,cr,g02,cr+q,ab02,sq
- dc.w g02,sq,f02,cr+q,g02,sq,f02,sq,eb02,cr+q
- dc.w f02,sq,eb02,sq,d02,cr+q,eb02,sq,d02,sq
- dc.w c02,cr*3,d02,cr,d02,cr*4,rest,cr*4
- dc.w end_patt
-
-
-
- omidd_harp
- dc.w g01,sq,b01,sq,g02,sq,b02,sq,d03,sq
- dc.w b02,sq,g02,sq,b01,sq
- dc.w g01,sq,b01,sq,g02,sq,b02,sq,d03,sq
- dc.w b02,sq,g02,sq,b01,sq
-
- ;19
- dc.w g01,sq,c02,sq,g02,sq,c03,sq,eb03,sq
- dc.w c03,sq,g02,sq,c02,sq
- dc.w f01,sq,bb01,sq,f02,sq,bb02,sq,d03,sq
- dc.w bb02,sq,f02,sq,bb01,sq
- ;20
- dc.w eb01,sq,ab01,sq,d02,sq,ab02,sq
- dc.w c03,sq,g02,sq,d02,sq,ab01,sq
- dc.w eb01,sq,ab01,sq,d02,sq,ab02,sq
- dc.w c03,sq,g02,sq,d02,sq,ab01,sq
-
- ;21
- dc.w f01,sq,a01,sq,c02,sq,a02,sq,c03,sq
- dc.w a02,sq,f02,sq,a01,sq
- dc.w a01,sq,c02,sq,f02,sq,c03,sq,f03,sq,c03,sq
- dc.w a02,sq,c02,sq
-
- ;22
- dc.w bb01,sq,d02,sq,f02,sq,d03,sq,f03,sq,d03,sq
- dc.w f02,sq,d02,sq
- dc.w bb01,sq,d02,sq,f02,sq,d03,sq,f03,sq,d03,sq
- dc.w f02,sq,d02,sq
- ;23
- dc.w b01,sq,d02,sq,b02,sq,d03,sq,g03,sq,d03,sq
- dc.w b02,sq,d02,sq
- dc.w b01,sq,d02,sq,b02,sq,d03,sq,g03,sq,d03,sq
- dc.w b02,sq,d02,sq
- ;24
- dc.w c02,sq,eb02,sq,c03,sq,eb03,sq,g03,sq
- dc.w eb03,sq,c03,sq,d02,sq
- dc.w bb01,sq,d02,sq,bb02,sq,d03,sq,f03,sq
- dc.w d03,sq,bb02,sq,d02,sq
- ;25
- dc.w ab01,sq,c02,sq,ab02,sq,c03,sq,eb03,sq,c03,sq
- dc.w ab02,sq,c02,sq
- dc.w ab01,sq,c02,sq,ab02,sq,c03,sq,f03,sq,c03,sq
- dc.w ab02,sq,c02,sq
- ;26
- dc.w d02,sq,g02,sq,d03,sq,g03,sq,a03,sq
- dc.w g03,sq,d03,sq,g02,sq
- dc.w d02,sq,g02,sq,d03,sq,g03,sq,a03,sq
- dc.w g03,sq,d03,sq,g02,sq
-
- dc.w end_patt
-
-
- osnare
- dc.w r20,cr,r20,tq1,r20,tq2,r20,tq1
- dc.w r20,cr,r20,tq1,r20,tq2,r20,tq1
- dc.w end_patt
-
-
-
- gliss
- dc.w r8,cr*4
- dc.w end_patt
-
- ;----chord patterns
-
- verse_chords
-
- dc.w new_env
- dc.l chord_env-b
-
- dc.w new_snd
- dc.l gbdp-b
- dc.w r8,q,r8,cr,r8,cr,r8,cr,r8,q
-
- dc.w new_snd
- dc.l abcfp-b
- dc.w r8,q,r8,cr,r8,cr,r8,cr,r8,q
-
- dc.w new_snd
- dc.l gbdp-b
- dc.w r8,q,r8,cr,r8,cr,r8,cr,r8,q
-
- dc.w new_snd
- dc.l gcebp-b
- dc.w r8,q,r8,cr,r8,cr,r8,cr,r8,q
-
- dc.w new_snd
- dc.l abcebp-b
- dc.w r8,q,r8,cr,r8,cr,r8,cr,r8,q
-
- dc.w new_snd
- dc.l abcfp-b
- dc.w r8,q,r8,cr,r8,cr,r8,cr,r8,q
-
- dc.w new_snd
- dc.l bbebfp-b
- dc.w r8,q,r8,cr,r8,cr,r8,cr,r8,q
-
- dc.w new_snd
- dc.l bbdfp-b
- dc.w r8,q,r8,cr,r8,cr,r8,cr,r8,q
- dc.w end_patt
-
- gliss_chords:
- dc.w new_snd
- dc.l adgp-b
- dc.w r8,q,r8,cr,r8,q
-
- dc.w new_snd
- dc.l adgbp-b
- dc.w r8,q,r8,cr,r8,q
-
- dc.w end_patt
-
-
- ;-----------------
-
- sounds:
-
- flute_snd:
- dc.w new_env
- dc.l flute_env-b
- dc.w new_snd
- dc.l flutep-b
- dc.w end_patt
-
- flute_sndl:
- dc.w new_env
- dc.l flute_envl-b
- dc.w new_snd
- dc.l flutep-b
- dc.w end_patt
-
-
-
- flute_sndq:
- dc.w new_env
- dc.l flute_envq-b
- dc.w new_snd
- dc.l flutep-b
- dc.w end_patt
-
- flute_sndmq:
- dc.w new_env
- ;dc.l flute_envmq-b
- ;dc.w new_snd
- ;dc.l flutep-b
- ;dc.w end_patt
-
-
- aguitar_snd:
- dc.w new_env
- dc.l aguitar_env-b
- dc.w new_snd
- dc.l aguitp-b
- dc.w end_patt
-
- aguitar_sndq:
- aguitar_snd_quiet:
- dc.w new_env
- dc.l aguitar_env_quiet-b
- dc.w new_snd
- dc.l aguitp-b
- dc.w end_patt
-
-
- tamb_snd:
- dc.w new_env
- ;dc.l tamb_env-b
- ;dc.w new_snd
- ;dc.l tambp-b
- ;dc.w end_patt
-
-
-
- abass_snd:
- ;dc.w new_env
- ;dc.l abass_env
- ;dc.w new_snd
- ;dc.l abassp
- ;dc.w end_patt
-
- sitar_snd:
- ;dc.w new_env
- ;dc.l sitar_env
- ;dc.w new_snd
- ;dc.l sitarp
- ;dc.w end_patt
-
- bassoon_snd:
- ;dc.w new_env
- ;dc.l bassoon_env
- ;dc.w new_snd
- ;dc.l bassoonp
- ;dc.w end_patt
-
- bassoon_snd_short:
- ;dc.w new_env
- ;dc.l bassoon_env
- ;dc.w new_snd
- ;dc.l bassoonsp
- ;dc.w end_patt
-
- snare_snd:
- ;dc.w new_env
- ;dc.l snare_env
- ;dc.w new_snd
- ;dc.l snarep
- ;dc.w end_patt
-
- crash_snd:
- ;dc.w new_env
- ;dc.l crash_env
- ;dc.w new_snd
- ;dc.l crashp
- ;dc.w end_patt
-
-
-
- snare_sndq:
- ;dc.w new_env
- ;dc.l snare_envq
- ;dc.w new_snd
- ;dc.l snarep
- ;dc.w end_patt
-
- trumpet_snd:
- ;dc.w new_env
- ;dc.l trumpet_env
- ;dc.w new_snd
- ;dc.l trumpetp
- ;dc.w end_patt
-
- trumpet_sndq:
- ;dc.w new_env
- ;dc.l trumpet_envq
- ;dc.w new_snd
- ;dc.l trumpetp
- ;dc.w end_patt
-
- pizzo_snd:
- dc.w new_env
- dc.l pizzo_env-b
- dc.w new_snd
- dc.l pizzop-b
- dc.w end_patt
-
- pizzo_sndl:
- dc.w new_env
- dc.l pizzo_envl-b
- dc.w new_snd
- dc.l pizzop-b
- dc.w end_patt
-
-
-
- pizzoh_snd:
- dc.w new_env
- dc.l pizzo_env-b
- dc.w new_snd
- dc.l pizzohp-b
- dc.w end_patt
-
-
- fhorn_snd:
- ;dc.w new_env
- ;dc.l fhorn_env
- ;dc.w new_snd
- ;dc.l fhornp
- ;dc.w end_patt
-
- fhorn_sndq:
- ;dc.w new_env
- ;dc.l fhorn_envq
- ;dc.w new_snd
- ;dc.l fhornp
- ;dc.w end_patt
-
-
-
- strings_snd:
- dc.w new_env
- dc.l strings_env-b
- dc.w new_snd
- dc.l stringsp-b
- dc.w end_patt
-
- harp_snd:
- ;dc.w new_env
- ;dc.l harp_env
- ;dc.w new_snd
- ;dc.l harpp
- ;dc.w end_patt
-
- xylo_snd:
- ;dc.w new_env
- ;dc.l xylo_env
- ;dc.w new_snd
- ;dc.l xylop
- ;dc.w end_patt
-
- gliss_snd:
- dc.w new_env
- dc.l gliss_env-b
- dc.w new_snd
- dc.l glissp-b
- dc.w end_patt
-
- strings1_snd:
- dc.w new_env
- dc.l strings1_env-b
- dc.w new_snd
- dc.l strings1p-b
- dc.w end_patt
-
- cello_snd:
- ;dc.w new_env
- ;dc.l cello_env
- ;dc.w new_snd
- ;dc.l cellop
- ;dc.w end_patt
-
-
- ;***********************************************
-
- parameters:
-
- iff equ 108
-
- ; sample parameters
-
-
- snarep
- ;dc.w 1
- ;dc.l snared
- ;dc.w 2240/2
- ;dc.l restd
- ;dc.w 16/2
-
-
- trumpetp
- ;dc.w 1
- ;dc.l synbras1d
- ;dc.w 3338/2
- ;dc.l synbras1d
- ;dc.w 3338/2
-
- abassp
- ;dc.w 1
- ;dc.l abassd+iff
- ;dc.w 8000/2
- ;dc.l restd
- ;dc.w 16/2
-
- flutep
- dc.w 1
- dc.l fluted+iff-b
- dc.w 7278/2
- dc.l fluted+4173+iff-b
- dc.w 3106/2
-
- tambp
- ;dc.w 1
- ;dc.l tambd
- ;dc.w 1457/2
- ;dc.l restd
- ;dc.w 16/2
-
- sitarp
- ;dc.w 1
- ;dc.l sitard
- ;dc.w 7708/2
- ;dc.l restd
- ;dc.w 16/2
-
- aguitp
- ;dc.w 1
- ;dc.l aguitd+iff
- ;dc.w 9576/2
- ;dc.l restd
- ;dc.w 16/2
-
- bassoonlp
- ;dc.w 1
- ;dc.l bassoond+iff
- ;dc.w 4788/2
- ;dc.l bassoond+iff+2033
- ;dc.w 2755/2
-
-
- bassoonp
- ;dc.w 1
- ;dc.l bassoond+iff
- ;dc.w 4788/2
- ;dc.l restd
- ;dc.w 16/2
-
- bassoonsp
- ;dc.w 1
- ;dc.l bassoond+iff
- ;dc.w 4788/2-1000
- ;dc.l restd
- ;dc.w 16/2
-
- pizzop:
- dc.w 1
- dc.l pizzod-b
- dc.w 5550/2
- dc.l restd-b
- dc.w 16/2
-
- pizzohp:
- ;dc.w 1
- ;dc.l pizzohd
- ;dc.w 3796/2
- ;dc.l restd
- ;dc.w 16/2
-
- fhornp:
- ;dc.w 1
- ;dc.l fhornd+iff
- ;dc.w (6684-iff)/2
- ;dc.l fhornd+iff
- ;dc.w (6684-iff)/2
-
- stringsp:
- dc.w 1
- dc.l stringsd-b
- dc.w (8668)/2
- dc.l restd-b
- dc.w 16/2
-
- harpp:
- dc.w 1
- dc.l harpd-b
- dc.w (7294)/2
- dc.l restd-b
- dc.w 16/2
-
- xylop:
- ;dc.w 1
- ;dc.l xylod
- ;dc.w (1744)/2
- ;dc.l restd
- ;dc.w 16/2
-
- glissp:
- dc.w 1
- dc.l glissd+103-b
- dc.w (15925)/2
- dc.l restd-b
- dc.w 16/2
-
- crashp:
- ;dc.w 1
- ;dc.l crashd+103
- ;dc.w (14804)/2
- ;dc.l restd
- ;dc.w 16/2
-
-
- strings1p
- dc.w 1
- dc.l strings1d+104+3208-b
- dc.w 6438/2
- dc.l strings1d+104+3208-b
- dc.w 6438/2
-
-
- cellop
- ;dc.w 1
- ;dc.l cellod+104
- ;dc.w 9810/2
- ;dc.l restd
- ; dc.w 16/2
-
- ;------------------
- gbdp
- dc.w 1
- dc.l gbdd+104-b
- dc.w 2558/2
- dc.l restd-b
- dc.w 16/2
-
- abcfp
- dc.w 1
- dc.l abcfd+104-b
- dc.w 3237/2
- dc.l restd-b
- dc.w 16/2
-
- gcebp
- dc.w 1
- dc.l gcebd+104-b
- dc.w 3423/2
- dc.l restd-b
- dc.w 16/2
-
- abcebp
- dc.w 1
- dc.l abcebd+104-b
- dc.w 3070/2
- dc.l restd-b
- dc.w 16/2
-
- bbebfp
- dc.w 1
- dc.l bbebfd+104-b
- dc.w 3340/2
- dc.l restd-b
- dc.w 16/2
-
- bbdfp
- dc.w 1
- dc.l bbdfd+104-b
- dc.w 2841/2
- dc.l restd-b
- dc.w 16/2
-
- adgp
- dc.w 1
- dc.l adgd+104-b
- dc.w 3553/2
- dc.l restd-b
- dc.w 16/2
-
- adgbp
- dc.w 1
- dc.l adgbd+104-b
- dc.w 3201/2
- dc.l restd-b
- dc.w 16/2
-
- ;-----------------
- envelopes:
-
-
- rest_env: dc.w 0,0,0,0,0,0,0,0,255
- flute_env: dc.w 0,32,255
- flute_envl: dc.w 0,52,255
- flute_envq: dc.w 0,25,255
- aguitar_env: dc.w 0,60,255
- aguitar_env_quiet: dc.w 0,30,255
- pizzo_env: dc.w 0,25,255
- pizzo_envl: dc.w 0,50,255
- strings_env: dc.w 0,28,255
- sine_env: dc.w 0,48,255
- gliss_env: dc.w 0,48,255
- strings1_env: dc.w 0,28,255
- chord_env: dc.w 0,30,255
-
-
-
- ;guit.sam 6191 rwed Today 01:27:11
- ;tamb.sam 1457 rwed Today 01:27:10
- ;flute.sam 8410 rwed Today 01:27:08
- ;sitar.sam 8993 rwed Today 01:27:07
- ;bass.sam 8583 rwed Today 01:27:05
- ;7 files - 207 blocks used
-
- ;**************************************************
-
-
- fluted incbin c:instruments/flute.sam
- pizzod incbin c:instruments/pizzo1.sam
- stringsd ;incbin c:instruments/strings2.sam
- harpd ;incbin c:instruments/harp.sam
- glissd incbin c:instruments/gliss.sam
- strings1d incbin c:instruments/strings1.sam
-
- gbdd incbin c:kq6/opening/gbd.sam
- abcfd incbin c:kq6/opening/abcf.sam
- gcebd incbin c:kq6/opening/gceb.sam
- abcebd incbin c:kq6/opening/abceb.sam
- bbebfd incbin c:kq6/opening/bbebf.sam
- bbdfd incbin c:kq6/opening/bbdf.sam
- adgd incbin c:kq6/opening/adg.sam
- adgbd incbin c:kq6/opening/adgb.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
- dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
- dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
- dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
-
-
- ;*************************************************
-
- end
-
-
-
- end
-