home *** CD-ROM | disk | FTP | other *** search
Text File | 1978-10-31 | 19.7 KB | 1,207 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 sample1pt-b1
-
-
-
-
- dc.l 0,end_song
- s2_i:
-
- dc.l sample1pt-b1
- 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
-
- sample1pt:
- dc.w new_env
- dc.l sample_env-b1
- dc.w new_snd
- dc.l sample1p-b1
-
- dc.w r8,400
-
- dc.w new_snd
- dc.l sample1p-b1
-
- dc.w r8,400
-
- dc.w new_snd
- dc.l sample2ap-b1
-
- dc.w r8,400
-
- dc.w new_snd
- dc.l sample2bp-b1
-
- dc.w r8,400
-
- 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,55,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/2
- dc.l restd-b1
- dc.w 16/2
-
-
-
- sample2ap
- dc.w 1
- dc.l sample2d+104-b1
- dc.w 65000/2
- dc.l restd-b1
- dc.w 16/2
-
- sample2bp
- dc.w 1
- dc.l sample2d+104+64000-b1
- dc.w 65000/2
- 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/walkway/sample1
- sample2d incbin c:ssig/walkway/sample2
-
-
-
- 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
-
-