home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Steel Sky Amiga Various Samples / Lowe_SteelSkyAmigaVariousSamples.adf / club_data < prev    next >
Encoding:
Text File  |  1978-10-11  |  17.6 KB  |  1,226 lines
  1.  
  2. demo    equ 1        ;set to 0 to make returnable demo        
  3.  
  4. develop    equ 1        ;set to zero for assembling data blks
  5.             ;or testing length of current data
  6.             ;set to 1 for music development
  7.  
  8.  
  9.  
  10.     ifne develop
  11.  
  12.     include c:ssig/driver.s
  13.  
  14.     endc
  15.  
  16.     opt p+
  17.             ;STEEL SKY CLUB DATA
  18.  
  19. b1
  20.  
  21.     dc.w    song_table-b1
  22.     dc.w    fxjump_table-b1
  23.  
  24.  
  25.  
  26.     ifeq develop
  27.  
  28.         ;  ALL EQUs
  29.  
  30. a00  equ  508*2
  31. bb00  equ  480*2
  32. b00  equ  453*2
  33.  
  34. c01  equ  428*2
  35. db01  equ  404*2
  36. d01 equ  381*2
  37. eb01  equ  360*2
  38. e01  equ  339*2
  39. f01  equ  320*2
  40. gb01  equ  302*2
  41. g01  equ  285*2
  42. ab01 equ 269*2
  43. a01  equ  508
  44. bb01  equ  480
  45. b01  equ  453
  46.  
  47. c02  equ  428
  48. db02  equ  404
  49. d02  equ  381
  50. eb02  equ  360
  51. e02  equ  339
  52. f02  equ  320
  53. gb02  equ  302
  54. g02  equ  285
  55. ab02 equ 269
  56. a02  equ  254
  57. bb02  equ  240
  58. b02  equ  226
  59.  
  60. c03  equ  214
  61. db03  equ  202
  62. d03  equ  190
  63. eb03  equ  180
  64. e03  equ  170
  65. f03  equ  160
  66. gb03  equ  151
  67. g03  equ  143
  68. ab03 equ 135
  69. a03  equ  127
  70.  
  71. bb03  equ  480*2
  72. b03  equ  453*2
  73.  
  74. c04  equ  428*2
  75. db04  equ  404*2
  76. d04 equ  381*2
  77. eb04  equ  360*2
  78. e04  equ  339*2
  79. f04  equ  320*2
  80. gb04  equ  302*2
  81. g04  equ  285*2
  82. ab04 equ 269*2
  83. a04  equ  508
  84. bb04  equ  480
  85. b04  equ  453
  86.  
  87. c05  equ  428
  88. db05  equ  404
  89. d05  equ  381
  90. eb05  equ  360
  91. e05  equ  339
  92. f05  equ  320
  93. gb05  equ  302
  94. g05  equ  285
  95. ab05 equ 269
  96. a05  equ  254
  97. bb05  equ  240
  98. b05  equ  226
  99.  
  100. c06  equ  214
  101. db06  equ  202
  102. d06  equ  190
  103. eb06  equ  180
  104. e06  equ  170
  105. f06  equ  160
  106. gb06  equ  151
  107. g06  equ  143
  108. ab06 equ 135
  109. a06  equ  127
  110. bb06  equ  480*2
  111. b06  equ  453*2
  112.  
  113. c07  equ  428*2
  114. db07  equ  404*2
  115. d07 equ  381*2
  116. eb07  equ  360*2
  117. e07  equ  339*2
  118. f07  equ  320*2
  119. gb07  equ  302*2
  120. g07  equ  285*2
  121. ab07 equ 269*2
  122. a07  equ  508
  123. bb07  equ  480
  124. b07  equ  453
  125.  
  126. c08  equ  428
  127. db08  equ  404
  128. d08  equ  381
  129. eb08  equ  360
  130. e08  equ  339
  131. f08  equ  320
  132. gb08  equ  302
  133. g08  equ  285
  134. ab08 equ 269
  135. a08  equ  254
  136. bb08  equ  240
  137. b08  equ  226
  138.  
  139.  
  140. v equ 0
  141.  
  142. no_loop equ 0
  143. loop equ 0
  144. chann1reg   equ $dff0a0    
  145. chann2reg   equ $dff0b0
  146. chann3reg   equ $dff0c0
  147. chann4reg   equ $dff0d0
  148. dmacon     equ $dff096
  149. int_bf_int   equ   $dff01e
  150. int_bf_w    equ   $dff09a
  151. vhposr     equ   $dff006
  152. in_line    equ   0
  153. new_snd    equ   4
  154. end_song     equ   1
  155. end_patt    equ   8
  156. new_env    equ   12
  157. pbend     equ   16
  158.  
  159.  
  160.  
  161. hi: equ 223
  162. lo:  equ 446
  163.  
  164. r22    equ 134
  165. r20    equ 179        ;correctum
  166. r19    equ 150
  167. r18    equ 178
  168. r17    equ 200
  169. r16:    equ 227        ;correctum
  170. r15:    equ 249
  171. r14    equ 280
  172. r13:    equ 305
  173. r12:    equ 333
  174. r11:    equ 361
  175. r10:    equ 389
  176. r9:    equ 419
  177. r8:    equ 446
  178. r7:    equ 446+112
  179. r6:    equ 446+223
  180. r5:    equ 446+223+112
  181. r4:    equ 446*2
  182. r3:    equ 446*3
  183. r2:    equ 446*4
  184. r1:    equ 446*8
  185.  
  186.  
  187. filter: equ $bfe001
  188. filter_on equ 44
  189. filter_off equ 48
  190.  
  191. modon     equ   20
  192. pboff     equ   24
  193. modoff     equ   28
  194. rest     equ 32
  195. end_fxp  equ 36
  196. end_fx3  equ 36
  197. end_fx4  equ 40
  198. acc    equ 52
  199. repeat    equ 56
  200. down      equ   1
  201. up       equ   2
  202.  
  203. fx    equ 0
  204.  
  205.     endc
  206.  
  207.     ;"""""""""""""""""""""""""""""""""""""""""""""""""
  208.  
  209. max_songs:    dc.l  3
  210.  
  211.     ;;; DATA
  212.  
  213. song_table:
  214.  
  215.         dc.l s1_lb-b1,s2_lb-b1,s3_lb-b1,s4_lb-b1    ;club
  216.  
  217.  
  218.         dc.l s1_b-b1,s2_b-b1,s3_b-b1,s4_b-b1    ;club
  219.         dc.l s1l_b-b1,s2l_b-b1,s3l_b-b1,s4l_b-b1    ;club
  220.         dc.l ss1-b1,ss1-b1,ss1-b1,ss1-b1    ;silence
  221.  
  222.  
  223. fxp:
  224.  
  225.  
  226. fxjump_table:  
  227.  
  228. max_fx    dc.l    10    ;number + 1 for test routines only
  229. ;______________________________________________________________________
  230.  
  231.  
  232. ;sstart: dc.l 0,end_song
  233.  
  234. ;pstart: dc.w end_patt
  235.  
  236.  
  237. ;----------------------------------
  238.  
  239. ;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  240.  
  241. cr  set   24
  242. q set  cr/2
  243. sq set q/2
  244. dsq set sq/4
  245.  
  246. tq1 set      7
  247. tq2 set   6
  248. tsq1 set  3
  249. tsq2 set 4
  250.  
  251. ss1:            ;;;;;;silence tune for test only
  252.  
  253.     dc.l    pr-b1
  254.       dc.l     0,end_song
  255.  
  256.  
  257. pr:
  258.     dc.w    new_env
  259.     dc.l    rest_env-b1
  260.     dc.w    c03,cr*4
  261.     dc.w     end_patt
  262.  
  263.  
  264. ;************************************************
  265.  
  266. songs:
  267.  
  268. cr  set   24    ;=112 beats per min
  269. q set  cr/2
  270. sq set q/2
  271. dsq set sq/4
  272.  
  273. tq1 set      8
  274. tq2 set   8
  275.  
  276. tsq1 set  4
  277. tsq2 set 4
  278.  
  279. tcr1 set 16
  280. tcr2 set 16
  281.  
  282. ;------
  283. s1_lb:
  284.  
  285.     dc.l    dloop1-b1
  286.       dc.l     0,end_song
  287.  
  288. s2_lb:
  289.  
  290.     dc.l    abass_snd-b1
  291.     dc.l    long_beech_bassx-b1
  292.  
  293.  
  294.         DC.L    0,end_song
  295.  
  296. s3_lb:
  297.     dc.l    piano_snd-b1
  298.     dc.l    toon-b1
  299.  
  300.  
  301.     dc.l     0,end_song
  302.  
  303. s4_lb:
  304.  
  305.     dc.l    pri-b1
  306.  
  307.     dc.l     0,end_song
  308.  
  309. ;------------------------
  310.  
  311. dloop1
  312.     dc.w    new_env
  313.     dc.l    dloop_env-b1
  314.  
  315.     dc.w    new_snd
  316.     dc.l    dloop1p-b1
  317.     
  318.     dc.w    183,cr*3
  319.     dc.w    183,cr*3
  320.     dc.w    183,cr*3
  321.     dc.w    183,cr*3
  322.     dc.w    183,cr*3
  323.     dc.w    183,cr*3
  324.     dc.w    183,cr*3
  325.     dc.w    183,cr*3
  326.     dc.w    183,cr*3
  327.     dc.w    183,cr*3
  328.     dc.w    183,cr*3
  329.     dc.w    183,cr*3
  330.     dc.w    183,cr*3
  331.     dc.w    183,cr*3
  332.     dc.w    183,cr*3
  333.     dc.w    183,cr*3
  334.  
  335.  
  336.     dc.w    new_snd
  337.     dc.l    dloop2p-b1
  338.  
  339.     dc.w    183,cr*3
  340.     dc.w    183,cr*3
  341.     dc.w    183,cr*3
  342.     dc.w    183,cr*3
  343.     dc.w    183,cr*3
  344.     dc.w    183,cr*3
  345.     dc.w    183,cr*3
  346.     dc.w    183,cr*3
  347.     dc.w    183,cr*3
  348.     dc.w    183,cr*3
  349.     dc.w    183,cr*3
  350.     dc.w    183,cr*3
  351.     dc.w    183,cr*3
  352.     dc.w    183,cr*3
  353.     dc.w    183,cr*3
  354.     dc.w    183,cr*3
  355.  
  356.  
  357.     dc.w    end_patt
  358.  
  359.  
  360. dloop2
  361.     dc.w    new_env
  362.     dc.l    dloop_env-b1
  363.  
  364.     dc.w    new_snd
  365.     dc.l    dloop2p-b1
  366.     
  367.     dc.w    183,cr*3
  368.     dc.w    end_patt
  369.  
  370.  
  371. long_beech_bassx
  372.     dc.w modon,1,1,3,3,4,4
  373.     dc.w    f01,cr+q,f02,q+cr
  374.     dc.w    d02,cr*2,c02,cr
  375.     dc.w    bb01,cr+q,bb01,cr+q,bb01,cr*2
  376.     dc.w    c02,cr
  377.  
  378.  
  379.     dc.w    d02,cr+q,e02,cr,f02,q
  380.     dc.w    bb01,cr*2,c02,q,d02,q
  381.  
  382.     dc.w    a01,cr+q,a01,cr,e01,q
  383.     dc.w    g01,q,a01,q,rest,q,c02,cr,a01,q
  384.  
  385.  
  386.     dc.w    g01,cr,bb01,cr,d02,cr
  387.  
  388.     dc.w    f02,cr,g02,cr,bb02,cr
  389.  
  390.     dc.w    d03,cr*2,c03,cr
  391.  
  392.     dc.w    a02,cr*3,bb02,cr+q,g02,cr+q
  393.     dc.w    a02,cr+q,f02,cr+q
  394.     dc.w    d02,cr,rest,q,d02,cr,a02,q
  395.  
  396.  
  397.     dc.w    d02,cr+q,d02,cr+q
  398.  
  399.  
  400. ;long_beech_bassx
  401.  
  402.     dc.w    f01,cr+q,f02,cr+q
  403.     dc.w    d02,cr*2,c02,cr
  404.     dc.w    bb01,cr+q
  405.     dc.w    bb01,cr+q
  406.     dc.w    bb01,cr*2
  407.  
  408.  
  409.     dc.w    c02,cr
  410.  
  411.     dc.w    f01,cr+q,f02,cr+q
  412.     dc.w    d02,cr*2,c02,cr
  413.     dc.w    bb01,cr+q
  414.     dc.w    bb01,cr+q
  415.     dc.w    bb01,cr*2
  416.  
  417.     dc.w    c02,cr
  418.  
  419.  
  420.     dc.w    g01,cr,bb01,cr,d02,cr,f02,cr,g02,cr,bb02,cr,e03,cr+q
  421.     dc.w    db03,cr+q,a02,cr*3
  422.  
  423.  
  424.     dc.w    bb02,cr+q,g02,cr+q,a02,cr+q,f02,cr+q
  425.  
  426.     dc.w    d02,cr+q,d02,cr,a01,q,d02,cr+q,d02,cr+q
  427.  
  428.     ;dc.w    rest,cr*10
  429.  
  430.     dc.w    end_patt
  431.  
  432. toon
  433.     dc.w modon,1,1,2,2,4,4
  434.  
  435.     dc.w    g01,2,a01,cr-2+q,c02,cr+q
  436.     dc.w    f01,cr*2,g01,q,a01,q
  437.  
  438.     dc.w    d01,cr*4+q,e01,q,f01,q,g01,q
  439.  
  440.     dc.w    a01,cr+q,c02,cr+q,f02,cr*2,e02,q,d02,q
  441.     dc.w    e02,cr*3+q+sq
  442.  
  443.     dc.w    ab01,2,a01,q-2,c02,q,d02,q,e02,q+sq
  444.     dc.w    rest,cr,f02,sq,e02,sq,d02,q,e02,cr,d02,cr*2+sq
  445.     dc.w    c02,q+sq
  446.             ;bar 11
  447.     dc.w    d02,cr+q,c02,cr+q,a01,cr*3
  448.     dc.w    g01,q,a01,cr,a01,cr,a01,q
  449.     dc.w    g01,q,a01,cr,a01,cr,f01,q        
  450.     dc.w    f01,cr*3,rest,cr*2
  451.  
  452.     dc.w    new_env
  453.     dc.l    hato_envl-b1
  454.     dc.w    new_snd
  455.     dc.l    hatop-b1
  456.     dc.w    r20,cr
  457.  
  458.  
  459.  
  460.  
  461. ;toon
  462.                 ;next 16 bars
  463.  
  464.  
  465.     dc.w    new_env
  466.     dc.l    piano_env-b1
  467.     dc.w    new_snd
  468.     dc.l    pianop-b1
  469.  
  470.  
  471.  
  472.  
  473.     dc.w    d01,q+sq,c01,q+sq,f01,q+sq,g01,q+sq
  474.     dc.w    a01,cr+q,rest,q,a01,q,bb01,q,a01,cr+q,g01,q
  475.     dc.w    f01,cr*4
  476.  
  477.     dc.w    c02,cr*2,a01,q,bb01,q,c02,cr*2,f02,cr
  478.     dc.w    d02,cr*6
  479.  
  480.     dc.w    rest,cr+q,db02,sq,d02,sq,f02,q,g02,q
  481.     dc.w    bb02,q,a02,q,g02,q,f02,q,d02,cr
  482.     dc.w    db02,cr+q,e02,cr+q,a02,cr*3
  483.     dc.w    g02,q,a02,cr-2,rest,2,a02,cr-2,rest,2,a02,q
  484.     dc.w    g02,q,a02,cr-2,rest,2,a02,cr-2,rest,2,c03,q
  485.     dc.w    d03,cr*6-q-cr-q
  486.  
  487.     dc.w    new_env
  488.     dc.l    hatc_envl-b1
  489.     dc.w    new_snd
  490.     dc.l    hatcp-b1
  491.     dc.w    r20,q
  492.  
  493.     dc.w    new_env
  494.     dc.l    hato_envl-b1
  495.     dc.w    new_snd
  496.     dc.l    hatop-b1
  497.     dc.w    r20,q+sq,r20,q+sq
  498.  
  499.  
  500.  
  501.  
  502.     dc.w    end_patt
  503.  
  504.  
  505.  
  506.  
  507. ;--------------------------
  508. cr  set   24    ;=112 beats per min
  509. q set  cr/2
  510. sq set q/2
  511. dsq set sq/4
  512.  
  513. tq1 set      8
  514. tq2 set   8
  515.  
  516. tsq1 set  4
  517. tsq2 set 4
  518.  
  519. tcr1 set 16
  520. tcr2 set 16
  521.  
  522. ;------
  523. s1_b:
  524.     ;dc.l    pri-b1
  525.  
  526.     dc.l    chords1-b1
  527.  
  528.     dc.l    chords2-b1
  529.  
  530.       dc.l     0,end_song
  531.  
  532. s2_b:
  533.  
  534.     dc.l    abass_snd-b1
  535.     dc.l    bass-b1
  536.  
  537.  
  538.         DC.L    0,end_song
  539.  
  540. s3_b:
  541.     dc.l    piano_snd-b1
  542.     dc.l    tune-b1
  543.  
  544.  
  545.     dc.l     0,end_song
  546.  
  547. s4_b:
  548.  
  549.     dc.l    pri-b1
  550.  
  551.     dc.l     0,end_song
  552.  
  553. ;------------------------
  554.  
  555. s1l_b:
  556.     ;dc.l    pri-b1
  557.  
  558.     dc.l    chords1-b1
  559.  
  560.     dc.l    chords2-b1
  561.  
  562.       dc.l     0,end_song
  563.  
  564. s2l_b:
  565.  
  566.     dc.l    abass_snd-b1
  567.     dc.l    bass-b1
  568.  
  569.     dc.l    bass_solo-b1
  570.  
  571.         DC.L    0,end_song
  572.  
  573. s3l_b:
  574.     dc.l    piano_snd-b1
  575.     dc.l    tune-b1
  576.  
  577.     dc.l    perc1-b1,perc1-b1,perc1-b1,perc1-b1
  578.     dc.l    perc1-b1,perc1-b1,perc1-b1,perc1-b1
  579.     dc.l    perc1-b1,perc1-b1,perc1-b1,perc1-b1
  580.     dc.l    perc1-b1,perc1-b1,perc1-b1,perc1-b1
  581.     dc.l    perc1-b1,perc1-b1,perc1-b1,perc1-b1
  582.  
  583.     dc.l     0,end_song
  584.  
  585. s4l_b:
  586.  
  587.     dc.l    pri-b1
  588.  
  589.     dc.l     0,end_song
  590.  
  591.  
  592.  
  593.  
  594.  
  595. ;----------
  596. pri:
  597.     dc.w    rest,65000
  598.     dc.w    rest,65000
  599.     dc.w    rest,65000
  600.     dc.w    rest,65000
  601.     dc.w    rest,65000
  602.     dc.w    rest,65000
  603.     dc.w    rest,65000
  604.     dc.w end_patt
  605.  
  606.  
  607.  
  608. perc1
  609.  
  610.     dc.w    new_env
  611.     dc.l    hato_env-b1
  612.     dc.w    new_snd
  613.     dc.l    hatop-b1
  614.     dc.w    r20,cr
  615.  
  616.     dc.w    new_env
  617.     dc.l    hatc_env-b1
  618.     dc.w    new_snd
  619.     dc.l    hatcp-b1
  620.     dc.w    r20,tq1+tq1
  621.  
  622.     dc.w    new_env
  623.     dc.l    hatc_env-b1
  624.     dc.w    new_snd
  625.     dc.l    hatcp-b1
  626.     dc.w    r20,tq1
  627.  
  628.     dc.w    new_env
  629.     dc.l    hato_env-b1
  630.     dc.w    new_snd
  631.     dc.l    hatop-b1
  632.     dc.w    r20,cr
  633.  
  634.     dc.w    new_env
  635.     dc.l    hatc_env-b1
  636.     dc.w    new_snd
  637.     dc.l    hatcp-b1
  638.     dc.w    r20,tq1+tq1
  639.  
  640.     dc.w    new_env
  641.     dc.l    hatc_env-b1
  642.     dc.w    new_snd
  643.     dc.l    hatcp-b1
  644.     dc.w    r20,tq1
  645.     dc.w     end_patt
  646.  
  647.  
  648. bass_solo
  649.     dc.w modon,1,1,2,2,4,4
  650.  
  651.     dc.w     pbend,up,15
  652.     dc.w    c02,4
  653.  
  654.     dc.w    g01,cr+tq1+tq2,d02,tq1,e02,cr,g02,cr
  655.     dc.w    f02,cr,e02,cr-tq1,e01,tq1,d02,cr-tq1,d03,tq1,c02,cr-tq1,c03,tq1-tsq1
  656.     dc.w    c02,tsq1
  657.     dc.w    b01,cr
  658.     dc.w     pbend,up,15
  659.     dc.w    c02,4
  660.  
  661.     dc.w    e02,cr
  662.  
  663.     dc.w     pbend,up,15
  664.     dc.w    g02,4
  665.     dc.w    e02,cr*2        ;,b02,cr
  666.  
  667.     dc.w    bb02,cr,gb02,cr,f02,cr,eb01,cr
  668.  
  669.     dc.w    d02,cr*2-tq1,d03,tq1,e02,tq1+tq2,f02,cr-tq1,f03,tq1,g02,cr
  670.     dc.w    g01,tq1+cr,g03,cr,g02,tq1,rest,tq1+tq2 
  671.  
  672.     dc.w    c02,cr-tq1,c03,tq1,e02,cr-tq1,e03,tq1,f02,cr,gb02,cr
  673.     dc.w    g02,cr,a02,cr,bb02,cr,b02,cr-tq1,b01,tq1
  674.  
  675.  
  676.     dc.w    c02,cr-tq1,c03,tq1,d02,cr-tq1,d03,tq1,e02,cr-tq1,e01,tq1,g02,cr
  677.     dc.w    f02,cr,e02,cr,d02,cr,c02,cr
  678.  
  679.     dc.w    b01,cr,e02,cr,g02,cr,b02,cr
  680.  
  681.  
  682.     dc.w     pbend,up,25
  683.     dc.w    c03,4
  684.     dc.w    g02,cr,f02,cr,a02,cr,eb02,cr
  685.  
  686.     dc.w    d02,cr*2,e02,tq1+tq2,f02,cr,g02,cr
  687.     dc.w    g01,tq1,g02,cr,g03,cr,g02,cr
  688.  
  689.     dc.w    e02,cr*2,gb02,tq1,gb01,tq2,g02,cr,a02,cr
  690.     dc.w    a01,tq1+cr,a02,cr,a02,cr-tq1,a01,tq1
  691.  
  692.     dc.w    d02,cr*2,e02,tq1+tq2,f02,cr,g02,cr
  693.     dc.w    g01,tq1+cr,g03,cr,g02,cr
  694.  
  695.     dc.w    c02,cr,e01,cr,f01,cr,gb01,cr
  696.     dc.w    g01,cr,a01,cr,bb01,cr,b01,cr
  697.  
  698.     dc.w    end_patt
  699.  
  700.  
  701.  
  702. vr equ 8
  703. chords1
  704.     dc.w    new_env
  705.     dc.l    chord_env-b1
  706.  
  707.     dc.w    new_snd
  708.     dc.l    c1p-b1
  709.     dc.w    r8+vr,cr*3,r8,tq1+tq2
  710.  
  711.     dc.w    new_snd
  712.     dc.l    c2p-b1
  713.     dc.w    r8+vr,cr*4+tq1
  714.  
  715.     dc.w    new_snd
  716.     dc.l    c3p-b1
  717.     dc.w    r8+vr,cr*3,r8+vr,tq1+tq2
  718.  
  719.     dc.w    new_snd
  720.     dc.l    c4p-b1
  721.     dc.w    r8+vr,cr*4+tq1
  722.  
  723.  
  724.     dc.w    new_snd
  725.     dc.l    c2p-b1
  726.     dc.w    r8+vr,cr*4+tq1+tq2
  727.  
  728.     dc.w    new_snd
  729.     dc.l    c5p-b1
  730.     dc.w    r8+vr,cr+tq1,r8+vr,cr*2
  731.  
  732.     dc.w    new_snd
  733.     dc.l    c1p-b1
  734.     dc.w    r8+vr,cr*3,r8+vr,+tq1+tq2
  735.  
  736.     dc.w    new_snd
  737.     dc.l    c5p-b1
  738.     dc.w    r8+vr,cr*4+tq1
  739.  
  740.  
  741.     dc.w    end_patt
  742.  
  743.  
  744. chords2
  745.     dc.w    new_env
  746.     dc.l    chord_env-b1
  747.  
  748.     dc.w    new_snd
  749.     dc.l    c1p-b1
  750.     dc.w    r8+vr,cr*3,r8+vr,tq1+tq2
  751.  
  752.     dc.w    new_snd
  753.     dc.l    c2p-b1
  754.     dc.w    r8+vr,cr*4+tq1
  755.  
  756.     dc.w    new_snd
  757.     dc.l    c3p-b1
  758.     dc.w    r8+vr,cr*3,r8+vr,tq1+tq2
  759.  
  760.     dc.w    new_snd
  761.     dc.l    c6p-b1
  762.     dc.w    r8+vr,cr*4+tq1
  763.  
  764.  
  765.  
  766.     dc.w    new_snd
  767.     dc.l    c2p-b1
  768.     dc.w    r8+vr,cr*4+tq1+tq2
  769.  
  770.     dc.w    new_snd
  771.     dc.l    c5p-b1
  772.     dc.w    r8+vr,cr+tq1,r8+vr,cr*2
  773.  
  774.     dc.w    new_snd
  775.     dc.l    c3p-b1
  776.     dc.w    r8+vr,cr*4+tq1+tq2
  777.  
  778.     dc.w    new_snd
  779.     dc.l    c7p-b1
  780.     dc.w    r8+vr,cr+tq1,r8+vr,cr*2
  781.  
  782.  
  783.     dc.w    new_snd
  784.     dc.l    c2p-b1
  785.     dc.w    r8+vr,cr*4+tq1+tq2
  786.  
  787.     dc.w    new_snd
  788.     dc.l    c5p-b1
  789.     dc.w    r8+vr,cr+tq1,r8+vr,cr*2
  790.  
  791.     dc.w    new_snd
  792.     dc.l    c8p-b1
  793.     dc.w    r8+vr,cr*4-tq1
  794.  
  795.     dc.w    new_snd
  796.     dc.l    c5p-b1
  797.     dc.w    r8+vr,cr*4+tq1
  798.  
  799.  
  800.     dc.w    end_patt
  801.  
  802. bass
  803.     dc.w modon,1,1,2,2,4,4
  804.     dc.w    c02,cr,d02,cr,e02,cr,g02,cr
  805.     dc.w    f02,cr,e02,cr,d02,cr,c02,cr
  806.  
  807.     dc.w    b01,cr,e02,cr,g02,cr,b02,cr
  808.  
  809.     dc.w    bb02,cr,gb02,cr,f02,cr,eb02,cr
  810.  
  811.     dc.w    d02,cr*2,e02,tq1+tq2,f02,cr,g02,cr
  812.     dc.w    g01,tq1+cr,g03,cr,g02,cr
  813.  
  814.     dc.w    c02,cr,e01,cr,f01,cr,gb01,cr
  815.     dc.w    g01,cr,a01,cr,bb01,cr,b01,cr
  816.  
  817.  
  818.     dc.w    c02,cr,d02,cr,e02,cr,g02,cr
  819.     dc.w    f02,cr,e02,cr,d02,cr,c02,cr
  820.  
  821.     dc.w    b01,cr,e02,cr,g02,cr,b02,cr
  822.  
  823.     dc.w    c03,cr,f02,cr,a02,cr,eb02,cr
  824.  
  825.     dc.w    d02,cr*2,e02,tq1+tq2,f02,cr,g02,cr
  826.     dc.w    g01,tq1+cr,g03,cr,g02,cr
  827.  
  828.     dc.w    e02,cr*2,gb02,tq1+tq2,g02,cr,a02,cr
  829.     dc.w    a01,tq1+cr,a02,cr,a02,cr
  830.  
  831.     dc.w    d02,cr*2,e02,tq1+tq2,f02,cr,g02,cr
  832.     dc.w    g01,tq1+cr,g03,cr,g02,cr
  833.  
  834.     dc.w    c02,cr,e01,cr,f01,cr,gb01,cr
  835.     dc.w    g01,cr,a01,cr,bb01,cr,b01,cr
  836.  
  837.     dc.w    end_patt
  838.  
  839.  
  840. tune
  841.     dc.w    eb02,2,e02,cr*2-2,c02,cr-tq1,a01,cr,c02,cr*3
  842.     dc.w    a01,tq1,c02,cr
  843.  
  844.     dc.w    eb02,2,e02,2,g02,cr*2-4-tq1
  845.     dc.w    eb02,tq1,e02,tq1+tq2,c02,tq1,g02,tq1+tq2
  846.     dc.w    eb02,cr*4+tq1
  847.  
  848.     dc.w    a01,cr*2,b01,tq1+tq2,c02,cr,d02,cr    ;bar 9
  849.     dc.w    g01,tq1+cr
  850.  
  851.     dc.w    d02,tq1+tq2,g02,cr,e02,cr*8+tq1
  852. tunex
  853.     dc.w    eb02,2,e02,cr*2-2,c02,cr-tq1,a01,cr,c02,cr*3
  854.     dc.w    a01,tq1,c02,cr
  855.  
  856.     dc.w    eb02,2,e02,2,g02,cr*3-4-tq1
  857.     
  858.     dc.w    e02,tq1+tq2,g02,tq1+tq2,b02,cr,c03,cr-tq1
  859.     dc.w    a02,cr
  860.  
  861.     dc.w    g02,cr
  862.  
  863.     dc.w    a01,cr*2+tq1
  864.     dc.w    b01,tq1+tq2,c02,cr,d02,cr    
  865.     dc.w    g01,tq1+cr
  866.     dc.w    d02,tq1+tq2,g02,cr+tq1
  867.  
  868.     dc.w    b01,cr*2
  869.     dc.w    db02,tq1+tq2,d02,cr,e02,cr    
  870.     dc.w    a01,tq1+cr
  871.     dc.w    e02,tq1+tq2,b02,cr+tq1
  872.  
  873.     dc.w    a01,cr*2
  874.     dc.w    b01,tq1+tq2,c02,cr,d02,cr    
  875.     dc.w    g01,tq1+cr
  876.     dc.w    d02,tq1+tq2,g02,cr+tq1
  877.  
  878.     dc.w    e01,cr*8
  879.  
  880.  
  881.     dc.w    end_patt
  882.  
  883.  
  884. ;-------------------------------------
  885.  
  886. sounds:
  887.  
  888. flute_snd:
  889.     dc.w    new_env
  890.     dc.l    flute_env-b1
  891.     dc.w    new_snd
  892.     dc.l    flutep-b1
  893.     dc.w     end_patt
  894.  
  895. string_snd:
  896.     dc.w    new_env
  897.     dc.l    strings_env-b1
  898.     dc.w    new_snd
  899.     dc.l    stringsp-b1
  900.     dc.w     end_patt
  901.  
  902.  
  903. sine_snd:
  904.     dc.w    new_env
  905.     dc.l    sine_env_short-b1
  906.     dc.w    new_snd
  907.     dc.l    sinep-b1
  908.     dc.w     end_patt
  909.  
  910. piano_snd:
  911.     dc.w    new_env
  912.     dc.l    piano_env-b1
  913.     dc.w    new_snd
  914.     dc.l    pianop-b1
  915.     dc.w     end_patt
  916.  
  917.  
  918.  
  919. flute_sndq:
  920.     dc.w    new_env
  921.     dc.l    flute_envq-b1
  922.     dc.w    new_snd
  923.     dc.l    flutep-b1
  924.     dc.w     end_patt
  925.  
  926. fhorn_snd:
  927.     dc.w    new_env
  928.     dc.l    fhorn_env-b1
  929.     dc.w    new_snd
  930.     dc.l    fhornp-b1
  931.     dc.w     end_patt
  932.  
  933.  
  934.  
  935.  
  936. ;***********************************************
  937.  
  938. parameters:
  939.  
  940. iff    equ 108
  941.  
  942.     ; sample parameters
  943.  
  944.  
  945. flutep
  946.         dc.w 1  
  947.              dc.l fluted+iff-b1
  948.              dc.w 7278/2
  949.              dc.l fluted+4173+iff-b1
  950.              dc.w 3106/2
  951.  
  952. sinep
  953.         dc.w 1  
  954.              dc.l sined-b1
  955.              dc.w 16/2 
  956.              dc.l sined-b1
  957.              dc.w 16/2
  958.  
  959.  
  960. c1p
  961.         dc.w 1  
  962.              dc.l c1d+iff-b1
  963.              dc.w (7104-iff)/2
  964.              dc.l rest_data-b1
  965.              dc.w 16/2
  966.  
  967.  
  968. c2p
  969.         dc.w 1  
  970.              dc.l c2d+iff-b1
  971.              dc.w (8879-iff)/2
  972.              dc.l rest_data-b1
  973.              dc.w 16/2
  974.  
  975.  
  976. c3p
  977.         dc.w 1  
  978.              dc.l c3d+iff-b1
  979.              dc.w (6874-iff)/2
  980.              dc.l rest_data-b1
  981.              dc.w 16/2
  982.  
  983. c4p
  984.         dc.w 1  
  985.              dc.l c4d+iff-b1
  986.              dc.w (6918-iff)/2
  987.              dc.l rest_data-b1
  988.              dc.w 16/2
  989.  
  990. c5p
  991.         dc.w 1  
  992.              dc.l c5d+iff-b1
  993.              dc.w (3069-iff)/2
  994.              dc.l rest_data-b1
  995.              dc.w 16/2
  996.  
  997. c6p
  998.         dc.w 1  
  999.              dc.l c6d+iff-b1
  1000.              dc.w (8353-iff)/2
  1001.              dc.l rest_data-b1
  1002.              dc.w 16/2
  1003.  
  1004. c7p
  1005.         dc.w 1  
  1006.              dc.l c7d+iff-b1
  1007.              dc.w (6445-iff)/2
  1008.              dc.l rest_data-b1
  1009.              dc.w 16/2
  1010.  
  1011.  
  1012. c8p
  1013.         dc.w 1  
  1014.              dc.l c8d+iff-b1
  1015.              dc.w (9310-iff)/2
  1016.              dc.l rest_data-b1
  1017.              dc.w 16/2
  1018.  
  1019. ;*******************************************
  1020. chord1p
  1021. ;        dc.w 1  
  1022. ;             dc.l chord1d+iff-b1
  1023. ;             dc.w 7104/2
  1024. ;             dc.l rest_data-b1
  1025. ;             dc.w 16/2
  1026.  
  1027. chord2p
  1028. ;        dc.w 1  
  1029. ;             dc.l chord2d+iff-b1
  1030. ;             dc.w 36000/2
  1031. ;             dc.l chord2d+iff-b1
  1032. ;             dc.w 34601/2
  1033.  
  1034. chord3p
  1035. ;        dc.w 1  
  1036. ;             dc.l chord3d+iff-b1
  1037. ;             dc.w 18000/2
  1038. ;             dc.l chord3d+iff-b1
  1039. ;             dc.w 18000/2
  1040.  
  1041. chord4p
  1042. ;        dc.w 1  
  1043. ;             dc.l chord4d+iff-b1
  1044. ;             dc.w 18000/2
  1045. ;             dc.l chord4d+iff-b1
  1046. ;             dc.w 18000/2
  1047.  
  1048. chord5p
  1049. ;        dc.w 1  
  1050. ;             dc.l chord5d+iff-b1
  1051. ;             dc.w 18000/2
  1052. ;             dc.l chord5d+iff-b1
  1053. ;             dc.w 18000/2
  1054.  
  1055. chord6p
  1056. ;        dc.w 1  
  1057. ;             dc.l chord6d+iff-b1
  1058. ;             dc.w 18000/2
  1059. ;             dc.l chord6d+iff-b1
  1060. ;             dc.w 18000/2
  1061.  
  1062.  
  1063. stringsp
  1064.         dc.w 1
  1065.              dc.l strings1d+104-b1
  1066.              dc.w 9892/2 
  1067.              dc.l strings1d+104+3208-b1
  1068.              dc.w 6438/2 
  1069.  
  1070.  
  1071. fhornp:
  1072.         dc.w 1  
  1073.              dc.l fhornd+iff-b1
  1074.              dc.w (11204-iff)/2 
  1075.              dc.l fhornd+iff+1490-b1
  1076.              dc.w (11204-1490-iff)/2
  1077.  
  1078. abassp
  1079.         dc.w 1  
  1080.              dc.l abassd+iff-b1
  1081.              dc.w (13356-iff)/2 
  1082.              dc.l rest_data-b1
  1083.              dc.w 16/2
  1084.  
  1085. pianop
  1086.         dc.w 1  
  1087.              dc.l pianod+iff-b1
  1088.              dc.w (8524-iff)/2 
  1089.              dc.l rest_data-b1
  1090.              dc.w 16/2
  1091.  
  1092. dloop1p
  1093.         dc.w 1  
  1094.              dc.l dloop1d+iff-b1
  1095.              dc.w (27672-iff)/2 
  1096.              dc.l rest_data-b1
  1097.              dc.w 16/2
  1098.  
  1099. dloop2p
  1100.         dc.w 1  
  1101.              dc.l dloop2d+iff-b1
  1102.              dc.w (28180-iff)/2 
  1103.              dc.l rest_data-b1
  1104.              dc.w 16/2
  1105.  
  1106.  
  1107.  
  1108.  
  1109. hatop
  1110.         dc.w 1  
  1111.              dc.l hatod+104-b1
  1112.              dc.w (6035-iff)/2 
  1113.              dc.l rest_data-b1
  1114.              dc.w 16/2 
  1115.  
  1116. hatcp
  1117.         dc.w 1  
  1118.              dc.l hatcd+104-b1
  1119.              dc.w (1127-iff)/2 
  1120.              dc.l rest_data-b1
  1121.              dc.w 16/2 
  1122.  
  1123.  
  1124.  
  1125.  
  1126.  
  1127. abass_snd:
  1128.     dc.w    new_env
  1129.     dc.l    abass_env-b1
  1130.     dc.w    new_snd
  1131.     dc.l    abassp-b1
  1132.     dc.w     end_patt
  1133.  
  1134.  
  1135.  
  1136. envelopes:
  1137.  
  1138.  
  1139. rest_env:            dc.w 0,0,0,0,0,0,0,0,255
  1140. flute_env:            dc.w 0,18,255
  1141. dloop_env:            dc.w 0,38,255
  1142. strings_env:            dc.w 0,15,255
  1143. fhorn_env:            dc.w 0,18,255
  1144. abass_env:            dc.w 0,28,255
  1145. piano_env:            dc.w 0,8,255
  1146. hato_env:            dc.w 0,28,255
  1147. hatc_env:            dc.w 0,28,255
  1148. hato_envl:            dc.w 0,48,255
  1149. hatc_envl:            dc.w 0,48,255
  1150.  
  1151.  
  1152. flute_envq:            dc.w 0,18,255
  1153. sine_env_short:            dc.w 0,50,45,40,35,30,25,20,15,10,0,255
  1154.  
  1155.  
  1156. chord_env:            dc.w 0,64,255
  1157.  
  1158.  
  1159. ;**************************************************
  1160.  
  1161. ;;THE FX SAMPLES ARE PULLED IN HERE...THis section can be anywhere
  1162. ;; in lower memory,and in any order
  1163.  
  1164. fluted            incbin c:instruments/flute.sam 
  1165.  
  1166. abassd            incbin c:ssig/club/bassl.sam 
  1167. pianod            incbin c:ssig/club/piano.sam 
  1168. hatod            incbin c:ssig/danielle/hato.sam 
  1169. hatcd            incbin c:ssig/danielle/hatc.sam 
  1170. c1d            incbin c:ssig/club/c1.sam
  1171. c2d            incbin c:ssig/club/c2.sam
  1172. c3d            incbin c:ssig/club/c3.sam
  1173. c4d            incbin c:ssig/club/c4.sam
  1174. c5d            incbin c:ssig/club/c5.sam
  1175. c6d            incbin c:ssig/club/c6.sam
  1176. c7d            incbin c:ssig/club/c7.sam
  1177. c8d            incbin c:ssig/club/c8.sam
  1178.  
  1179. dloop1d            incbin c:ssig/club/dloop1
  1180. dloop2d            incbin c:ssig/club/dloop2
  1181.  
  1182.  
  1183.  
  1184.  
  1185. chord2d            ;incbin c:ssig/death/chord2
  1186. chord3d            ;incbin c:ssig/death/chord3
  1187. chord4d            ;incbin c:ssig/death/chord4
  1188. chord5d            ;incbin c:ssig/death/chord5
  1189. chord6d            ;incbin c:ssig/death/chord6
  1190.  
  1191. strings1d        ;incbin c:instruments/strings1.sam
  1192. fhornd            ;incbin c:instruments/fhorn.sam
  1193.  
  1194.  
  1195.  
  1196. ;********************************************
  1197.  
  1198.  
  1199. restd:
  1200. rest_data:
  1201.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1202.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1203.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1204.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1205.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1206.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1207. sined:
  1208. sine_datad:
  1209.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  1210.              dc.w -127,-100,-50,-35,0,35,50,80,127
  1211.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  1212.              dc.w -127,-100,-50,-35,0,35,50,80,127
  1213.  
  1214. endb1
  1215. ;*************************************************
  1216.  
  1217.     end
  1218.  
  1219.  
  1220.  
  1221.     dc.w modon,1,1,8,8,6,6
  1222.     dc.w pbend,down,1,60000,32
  1223.  
  1224.  
  1225.  
  1226.