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-31  |  22.9 KB  |  1,603 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  6
  210.  
  211.     ;;; DATA
  212.  
  213. song_table:
  214.  
  215.  
  216.         dc.l s1l_b-b1,s2l_b-b1,s3l_b-b1,s4l_b-b1    ;club long
  217.         dc.l s1_b-b1,s2_b-b1,s3_b-b1,s4_b-b1    ;club short
  218.         dc.l s1_lb-b1,s2_lb-b1,s3_lb-b1,s4_lb-b1    ;longbeech
  219.         dc.l s1_ls-b1,s2_ls-b1,s3_ls-b1,s4_ls-b1    ;stuck
  220.         dc.l s1_lc-b1,s2_lc-b1,s3_lc-b1,s4_lc-b1    ;chutney
  221.  
  222.  
  223.  
  224. fxp:
  225.  
  226.  
  227. fxjump_table:  
  228.  
  229. max_fx    dc.l    10    ;number + 1 for test routines only
  230. ;______________________________________________________________________
  231.  
  232.  
  233. ;sstart: dc.l 0,end_song
  234.  
  235. ;pstart: dc.w end_patt
  236.  
  237.  
  238. ;----------------------------------
  239.  
  240. ;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  241.  
  242. cr  set   24
  243. q set  cr/2
  244. sq set q/2
  245. dsq set sq/4
  246.  
  247. tq1 set      7
  248. tq2 set   6
  249. tsq1 set  3
  250. tsq2 set 4
  251.  
  252. ss1:            ;;;;;;silence tune for test only
  253.  
  254.     dc.l    pr-b1
  255.       dc.l     0,end_song
  256.  
  257.  
  258. pr:
  259.     dc.w    new_env
  260.     dc.l    rest_env-b1
  261.     dc.w    c03,cr*4
  262.     dc.w     end_patt
  263.  
  264.  
  265. ;************************************************
  266.  
  267. cr  set   24    ;=112 beats per min
  268. q set  cr/2
  269. sq set q/2
  270. dsq set sq/4
  271.  
  272. tq1 set      7
  273. tq2 set   6
  274.  
  275. tsq1 set  4
  276. tsq2 set 4
  277.  
  278. tcr1 set 16
  279. tcr2 set 16
  280.  
  281. ;------
  282. s1_ls:
  283.     dc.l    piano_snd-b1
  284.     dc.l    stune-b1
  285.     dc.l    stuck_tune-b1
  286.     dc.l    stuck_tune-b1
  287.     dc.l    stuck_tune-b1
  288.     dc.l    stuck_tune-b1
  289.     dc.l    stuck_tune-b1
  290.     dc.l    stuck_tune-b1
  291.     dc.l    stuck_tune-b1
  292.     dc.l    stuck_tune-b1
  293.     dc.l    stuck_tune-b1
  294.     dc.l    stuck_tune-b1
  295.     dc.l    stuck_tune-b1
  296.     dc.l    stuck_tune-b1
  297.  
  298.  
  299.  
  300.       dc.l     0,end_song
  301.  
  302. s2_ls:
  303.  
  304.     dc.l    abass_snd-b1
  305.     dc.l    sbass-b1
  306.     dc.l    stuck_bass-b1
  307.     dc.l    stuck_bass-b1
  308.     dc.l    stuck_bass-b1
  309.     dc.l    stuck_bass-b1
  310.     dc.l    stuck_bass-b1
  311.     dc.l    stuck_bass-b1
  312.     dc.l    stuck_bass-b1
  313.     dc.l    stuck_bass-b1
  314.     dc.l    stuck_bass-b1
  315.     dc.l    stuck_bass-b1
  316.     dc.l    stuck_bass-b1
  317.     dc.l    stuck_bass-b1
  318.  
  319.  
  320.  
  321.         DC.L    0,end_song
  322.  
  323. s3_ls:
  324.     dc.l    hatp-b1
  325.     dc.l    hatp-b1
  326.     dc.l    hatp-b1
  327.     dc.l    hatp-b1
  328.     dc.l    hatp-b1
  329.     dc.l    hatp-b1
  330.     dc.l    hatp-b1
  331.     dc.l    hatp-b1
  332.     dc.l    hatp-b1
  333.     dc.l    hatp-b1
  334.  
  335.     dc.l    stuck_hat-b1
  336.     dc.l    stuck_hat-b1
  337.     dc.l    stuck_hat-b1
  338.     dc.l    stuck_hat-b1
  339.     dc.l    stuck_hat-b1
  340.     dc.l    stuck_hat-b1
  341.     dc.l    stuck_hat-b1
  342.     dc.l    stuck_hat-b1
  343.     dc.l    stuck_hat-b1
  344.     dc.l    stuck_hat-b1
  345.     dc.l    stuck_hat-b1
  346.     dc.l    stuck_hat-b1
  347.     dc.l    stuck_hat-b1
  348.     dc.l    stuck_hat-b1
  349.     dc.l    stuck_hat-b1
  350.     dc.l    stuck_hat-b1
  351.     dc.l    stuck_hat-b1
  352.     dc.l    stuck_hat-b1
  353.  
  354.  
  355.  
  356.  
  357.     dc.l     0,end_song
  358.  
  359. s4_ls:
  360.  
  361.     dc.l    pri-b1
  362.  
  363.     dc.l     0,end_song
  364.  
  365.  
  366.  
  367. hatp
  368.     dc.w    new_env
  369.     dc.l    hato_env-b1
  370.  
  371.  
  372.     dc.w    new_snd
  373.     dc.l    hatcp-b1
  374.     dc.w    r20,cr
  375.     dc.w    new_snd
  376.     dc.l    hatop-b1
  377.     dc.w    r20,cr
  378.     dc.w    new_snd
  379.     dc.l    hatcp-b1
  380.     dc.w    r20,q,r20,q
  381.     dc.w    new_snd
  382.     dc.l    hatop-b1
  383.     dc.w    r20,cr
  384.     dc.w    end_patt
  385.  
  386.  
  387. stuck_hat
  388.  
  389.     dc.w    new_snd
  390.     dc.l    hatcp-b1
  391.     dc.w    r20,q,r20,q
  392.     dc.w    new_snd
  393.     dc.l    hatop-b1
  394.     dc.w    r20,cr-5
  395.     dc.w    new_snd
  396.     dc.l    hatcp-b1
  397.     dc.w    r20,q,r20,q
  398.     dc.w    new_snd
  399.     dc.l    hatop-b1
  400.     dc.w    r20,cr-5
  401.     dc.w    new_snd
  402.     dc.l    hatcp-b1
  403.     dc.w    r20,q,r20,q
  404.     dc.w    new_snd
  405.     dc.l    hatop-b1
  406.     dc.w    r20,cr-5
  407.     dc.w    new_snd
  408.     dc.l    hatcp-b1
  409.     dc.w    r20,q,r20,q
  410.     dc.w    new_snd
  411.     dc.l    hatop-b1
  412.     dc.w    r20,cr-5
  413.     dc.w    new_snd
  414.     dc.l    hatcp-b1
  415.     dc.w    r20,q,r20,q
  416.     dc.w    new_snd
  417.     dc.l    hatop-b1
  418.     dc.w    r20,cr-5
  419.     dc.w    new_snd
  420.     dc.l    hatcp-b1
  421.     dc.w    r20,q,r20,q
  422.     dc.w    new_snd
  423.     dc.l    hatop-b1
  424.     dc.w    r20,cr-5
  425.     dc.w    new_snd
  426.     dc.l    hatcp-b1
  427.     dc.w    r20,q,r20,q
  428.     dc.w    new_snd
  429.     dc.l    hatop-b1
  430.     dc.w    r20,cr-5
  431.     dc.w    new_snd
  432.     dc.l    hatcp-b1
  433.     dc.w    r20,q,r20,q
  434.     dc.w    new_snd
  435.     dc.l    hatop-b1
  436.     dc.w    r20,cr-5
  437.     dc.w    new_snd
  438.     dc.l    hatcp-b1
  439.     dc.w    r20,q,r20,q
  440.     dc.w    new_snd
  441.     dc.l    hatop-b1
  442.     dc.w    r20,cr-5
  443.     dc.w    new_snd
  444.     dc.l    hatcp-b1
  445.     dc.w    r20,q,r20,q
  446.     dc.w    new_snd
  447.     dc.l    hatop-b1
  448.     dc.w    r20,cr-5
  449.     dc.w    new_snd
  450.     dc.l    hatcp-b1
  451.     dc.w    r20,q,r20,q
  452.     dc.w    new_snd
  453.     dc.l    hatop-b1
  454.     dc.w    r20,cr-5
  455.     dc.w    new_snd
  456.     dc.l    hatcp-b1
  457.     dc.w    r20,q,r20,q
  458.     dc.w    new_snd
  459.     dc.l    hatop-b1
  460.     dc.w    r20,cr-5
  461.  
  462.     dc.w    end_patt
  463.  
  464.  
  465.  
  466.  
  467.  
  468.  
  469.  
  470.  
  471. sbass
  472.     dc.w    g02,cr+q,g02,q,g02,cr*2    
  473.     dc.w    g02,cr+q,g02,q,g02,cr*2    
  474.     dc.w    f02,cr+q,f02,q,f02,cr*2    
  475.     dc.w    f02,cr+q,f02,q,f02,cr*2    
  476.  
  477.     dc.w    g02,cr+q,g02,q,g02,cr*2    
  478.     dc.w    g02,cr+q,g02,q,g02,cr*2    
  479.     dc.w    f02,cr+q,d02,q,c02,cr    
  480.     dc.w    g02,cr*2+q,g02,q,d02,cr,f02,cr    
  481.  
  482.     dc.w    g02,cr+q,g02,q,g02,cr*2    
  483.     dc.w    g02,cr+q,g02,q,g02,cr*2    
  484.  
  485.     dc.w    end_patt
  486.  
  487. stuck_bass
  488.     dc.w    f02,cr,f02,cr-5
  489.     dc.w    f02,cr,f02,cr-5
  490.     dc.w    f02,cr,f02,cr-5
  491.     dc.w    f02,cr,f02,cr-5
  492.     dc.w    f02,cr,f02,cr-5
  493.     dc.w    f02,cr,f02,cr-5
  494.     dc.w    f02,cr,f02,cr-5
  495.     dc.w    f02,cr,f02,cr-5
  496.     dc.w    f02,cr,f02,cr-5
  497.     dc.w    f02,cr,f02,cr-5
  498.     dc.w    f02,cr,f02,cr-5
  499.     dc.w    f02,cr,f02,cr-5
  500.     dc.w    f02,cr,f02,cr-5
  501.     dc.w    end_patt
  502.  
  503. stune
  504.     dc.w    g02,cr,d02,q,g02,q,a02,q,b02,cr,d03,cr
  505.     dc.w    c03,cr,b02,cr,a02,cr,g02,q,f02,cr
  506.     dc.w    f02,q,c02,q,f02,q,a02,cr,f02,cr
  507.     dc.w    a02,cr,c03,cr,f03,cr+q
  508.  
  509.     dc.w    g02,q,d02,q,f02,q,g02,cr,a02,cr,f02,cr
  510.     dc.w    c02,cr+q,f02,cr,g02,cr,f02,q,e02,q,c02,q
  511.     dc.w    d02,cr,e02,q,d02,cr*5
  512.  
  513.     dc.w    g02,cr,d02,q,g02,q,a02,q,b02,cr,d03,cr
  514.     dc.w    c03,cr,b02,cr,a02,cr,g02,cr-q
  515.  
  516.     dc.w    end_patt
  517.  
  518. stuck_tune
  519.     dc.w    a02,cr,g02,cr-5
  520.     dc.w    a02,cr,g02,cr-5
  521.     dc.w    a02,cr,g02,cr-5
  522.     dc.w    a02,cr,g02,cr-5
  523.     dc.w    a02,cr,g02,cr-5
  524.     dc.w    a02,cr,g02,cr-5
  525.     dc.w    a02,cr,g02,cr-5
  526.     dc.w    a02,cr,g02,cr-5
  527.     dc.w    a02,cr,g02,cr-5
  528.     dc.w    a02,cr,g02,cr-5
  529.     dc.w    a02,cr,g02,cr-5
  530.     dc.w    a02,cr,g02,cr-5
  531.  
  532.     dc.w    end_patt
  533.  
  534. ;************************************
  535. songs:
  536.  
  537. cr  set   20    ;=112 beats per min
  538. q set  cr/2
  539. sq set q/2
  540. dsq set sq/4
  541.  
  542. tq1 set      7
  543. tq2 set   6
  544.  
  545. tsq1 set  4
  546. tsq2 set 4
  547.  
  548. tcr1 set 16
  549. tcr2 set 16
  550.  
  551. ;------
  552. s1_lc:
  553.     dc.l    piano_snd-b1
  554.     dc.l    ctoon-b1
  555.     dc.l    pri-b1
  556.       dc.l     0,end_song
  557.  
  558. s2_lc:
  559.  
  560.     dc.l    abass_snd-b1
  561.     dc.l    cbass-b1
  562.  
  563.         DC.L    0,end_song
  564.  
  565. s3_lc:
  566.     dc.l    chat-b1
  567.     dc.l    chat-b1
  568.     dc.l    chat1-b1
  569.     dc.l    pri-b1
  570.  
  571.  
  572.     dc.l     0,end_song
  573.  
  574. s4_lc:
  575.  
  576.     dc.l    pri-b1
  577.  
  578.     dc.l     0,end_song
  579.  
  580. ctoon
  581.     dc.w    c02,cr,c02,cr,e02,q,c02,q+cr
  582.     dc.w    f02,cr+q,gb02,cr+q,g02,cr
  583.     dc.w    e02,q,c02,q,rest,cr*2-sq,a01,q,c02,q
  584.     dc.w    rest,cr*100
  585.     dc.w    end_patt
  586.  
  587. cbass
  588.     dc.w    c02,cr*2,bb02,cr*2
  589.     dc.w    a02,cr*2,ab02,cr*2
  590.     dc.w    g02,q,rest,cr*3-sq-q
  591.     dc.w    a02,q,c01,q
  592.     dc.w    rest,cr*100
  593.     dc.w    end_patt
  594.  
  595. chat1
  596.  
  597.     dc.w    new_env
  598.     dc.l    hato_env-b1
  599.     dc.w    new_snd
  600.     dc.l    hatop-b1
  601.     dc.w    r20,q,r20,q
  602.  
  603.     dc.w    rest,cr*2-sq
  604.  
  605.     dc.w    r20,q,r20,q
  606.  
  607.     dc.w    end_patt
  608.  
  609.  
  610.  
  611. chat
  612.  
  613.     dc.w    new_env
  614.     dc.l    hato_env-b1
  615.     dc.w    new_snd
  616.     dc.l    hatop-b1
  617.     dc.w    r20,cr
  618.  
  619.     dc.w    new_env
  620.     dc.l    hatc_env-b1
  621.     dc.w    new_snd
  622.     dc.l    hatcp-b1
  623.     dc.w    r20,tq1+tq2
  624.  
  625.     dc.w    new_env
  626.     dc.l    hatc_env-b1
  627.     dc.w    new_snd
  628.     dc.l    hatcp-b1
  629.     dc.w    r20,tq1
  630.  
  631.     dc.w    new_env
  632.     dc.l    hato_env-b1
  633.     dc.w    new_snd
  634.     dc.l    hatop-b1
  635.     dc.w    r20,cr
  636.  
  637.     dc.w    new_env
  638.     dc.l    hatc_env-b1
  639.     dc.w    new_snd
  640.     dc.l    hatcp-b1
  641.     dc.w    r20,tq1+tq2
  642.  
  643.     dc.w    new_env
  644.     dc.l    hatc_env-b1
  645.     dc.w    new_snd
  646.     dc.l    hatcp-b1
  647.     dc.w    r20,tq1
  648.     dc.w     end_patt
  649.  
  650.  
  651.  
  652.  
  653. cr  set   24    ;=112 beats per min
  654. q set  cr/2
  655. sq set q/2
  656. dsq set sq/4
  657.  
  658. tq1 set      8
  659. tq2 set   8
  660.  
  661. tsq1 set  4
  662. tsq2 set 4
  663.  
  664. tcr1 set 16
  665. tcr2 set 16
  666.  
  667. ;------
  668. s1_lb:
  669.  
  670.     dc.l    dloop1-b1
  671.       dc.l     0,end_song
  672.  
  673. s2_lb:
  674.  
  675.     dc.l    abass_snd-b1
  676.     dc.l    long_beech_bassx-b1
  677.  
  678.  
  679.         DC.L    0,end_song
  680.  
  681. s3_lb:
  682.     dc.l    piano_snd-b1
  683.     dc.l    toon-b1
  684.  
  685.  
  686.     dc.l     0,end_song
  687.  
  688. s4_lb:
  689.  
  690.     dc.l    pri-b1
  691.  
  692.     dc.l     0,end_song
  693.  
  694. ;------------------------
  695.  
  696. dloop1
  697.     dc.w    new_env
  698.     dc.l    dloop_env-b1
  699.  
  700.     dc.w    new_snd
  701.     dc.l    dloop1p-b1
  702.     
  703.     dc.w    183,cr*3
  704.     dc.w    183,cr*3
  705.     dc.w    183,cr*3
  706.     dc.w    183,cr*3
  707.     dc.w    183,cr*3
  708.     dc.w    183,cr*3
  709.     dc.w    183,cr*3
  710.     dc.w    183,cr*3
  711.     dc.w    183,cr*3
  712.     dc.w    183,cr*3
  713.     dc.w    183,cr*3
  714.     dc.w    183,cr*3
  715.     dc.w    183,cr*3
  716.     dc.w    183,cr*3
  717.     dc.w    183,cr*3
  718.     dc.w    183,cr*3
  719.  
  720.  
  721.     dc.w    new_snd
  722.     dc.l    dloop2p-b1
  723.  
  724.     dc.w    183,cr*3
  725.     dc.w    183,cr*3
  726.     dc.w    183,cr*3
  727.     dc.w    183,cr*3
  728.     dc.w    183,cr*3
  729.     dc.w    183,cr*3
  730.     dc.w    183,cr*3
  731.     dc.w    183,cr*3
  732.     dc.w    183,cr*3
  733.     dc.w    183,cr*3
  734.     dc.w    183,cr*3
  735.     dc.w    183,cr*3
  736.     dc.w    183,cr*3
  737.     dc.w    183,cr*3
  738.     dc.w    183,cr*3
  739.     dc.w    183,cr*3
  740.  
  741.  
  742.     dc.w    end_patt
  743.  
  744.  
  745. dloop2
  746.     dc.w    new_env
  747.     dc.l    dloop_env-b1
  748.  
  749.     dc.w    new_snd
  750.     dc.l    dloop2p-b1
  751.     
  752.     dc.w    183,cr*3
  753.     dc.w    end_patt
  754.  
  755.  
  756. long_beech_bassx
  757.     dc.w modon,1,1,3,3,4,4
  758.     dc.w    f01,cr+q,f02,q+cr
  759.     dc.w    d02,cr*2,c02,cr
  760.     dc.w    bb01,cr+q,bb01,cr+q,bb01,cr*2
  761.     dc.w    c02,cr
  762.  
  763.  
  764.     dc.w    d02,cr+q,e02,cr,f02,q
  765.     dc.w    bb01,cr*2,c02,q,d02,q
  766.  
  767.     dc.w    a01,cr+q,a01,cr,e01,q
  768.     dc.w    g01,q,a01,q,rest,q,c02,cr,a01,q
  769.  
  770.  
  771.     dc.w    g01,cr,bb01,cr,d02,cr
  772.  
  773.     dc.w    f02,cr,g02,cr,bb02,cr
  774.  
  775.     dc.w    d03,cr*2,c03,cr
  776.  
  777.     dc.w    a02,cr*3,bb02,cr+q,g02,cr+q
  778.     dc.w    a02,cr+q,f02,cr+q
  779.     dc.w    d02,cr,rest,q,d02,cr,a02,q
  780.  
  781.  
  782.     dc.w    d02,cr+q,d02,cr+q
  783.  
  784.  
  785. ;long_beech_bassx
  786.  
  787.     dc.w    f01,cr+q,f02,cr+q
  788.     dc.w    d02,cr*2,c02,cr
  789.     dc.w    bb01,cr+q
  790.     dc.w    bb01,cr+q
  791.     dc.w    bb01,cr*2
  792.  
  793.  
  794.     dc.w    c02,cr
  795.  
  796.     dc.w    f01,cr+q,f02,cr+q
  797.     dc.w    d02,cr*2,c02,cr
  798.     dc.w    bb01,cr+q
  799.     dc.w    bb01,cr+q
  800.     dc.w    bb01,cr*2
  801.  
  802.     dc.w    c02,cr
  803.  
  804.  
  805.     dc.w    g01,cr,bb01,cr,d02,cr,f02,cr,g02,cr,bb02,cr,e03,cr+q
  806.     dc.w    db03,cr+q,a02,cr*3
  807.  
  808.  
  809.     dc.w    bb02,cr+q,g02,cr+q,a02,cr+q,f02,cr+q
  810.  
  811.     dc.w    d02,cr+q,d02,cr,a01,q,d02,cr+q,d02,cr+q
  812.  
  813.     ;dc.w    rest,cr*10
  814.  
  815.     dc.w    end_patt
  816.  
  817. toon
  818.     dc.w modon,1,1,2,2,4,4
  819.  
  820.     dc.w    g01,2,a01,cr-2+q,c02,cr+q
  821.     dc.w    f01,cr*2,g01,q,a01,q
  822.  
  823.     dc.w    d01,cr*4+q,e01,q,f01,q,g01,q
  824.  
  825.     dc.w    a01,cr+q,c02,cr+q,f02,cr*2,e02,q,d02,q
  826.     dc.w    e02,cr*3+q+sq
  827.  
  828.     dc.w    ab01,2,a01,q-2,c02,q,d02,q,e02,q+sq
  829.     dc.w    rest,cr,f02,sq,e02,sq,d02,q,e02,cr,d02,cr*2+sq
  830.     dc.w    c02,q+sq
  831.             ;bar 11
  832.     dc.w    d02,cr+q,c02,cr+q,a01,cr*3
  833.     dc.w    g01,q,a01,cr,a01,cr,a01,q
  834.     dc.w    g01,q,a01,cr,a01,cr,f01,q        
  835.     dc.w    f01,cr*3,rest,cr*2
  836.  
  837.     dc.w    new_env
  838.     dc.l    hato_envl-b1
  839.     dc.w    new_snd
  840.     dc.l    hatop-b1
  841.     dc.w    r20,cr
  842.  
  843.  
  844.  
  845.  
  846. ;toon
  847.                 ;next 16 bars
  848.  
  849.  
  850.     dc.w    new_env
  851.     dc.l    piano_env-b1
  852.     dc.w    new_snd
  853.     dc.l    pianop-b1
  854.  
  855.  
  856.  
  857.  
  858.     dc.w    d01,q+sq,c01,q+sq,f01,q+sq,g01,q+sq
  859.     dc.w    a01,cr+q,rest,q,a01,q,bb01,q,a01,cr+q,g01,q
  860.     dc.w    f01,cr*4
  861.  
  862.     dc.w    c02,cr*2,a01,q,bb01,q,c02,cr*2,f02,cr
  863.     dc.w    d02,cr*6
  864.  
  865.     dc.w    rest,cr+q,db02,sq,d02,sq,f02,q,g02,q
  866.     dc.w    bb02,q,a02,q,g02,q,f02,q,d02,cr
  867.     dc.w    db02,cr+q,e02,cr+q,a02,cr*3
  868.     dc.w    g02,q,a02,cr-2,rest,2,a02,cr-2,rest,2,a02,q
  869.     dc.w    g02,q,a02,cr-2,rest,2,a02,cr-2,rest,2,c03,q
  870.     dc.w    d03,cr*6-q-cr-q
  871.  
  872.     dc.w    new_env
  873.     dc.l    hatc_envl-b1
  874.     dc.w    new_snd
  875.     dc.l    hatcp-b1
  876.     dc.w    r20,q
  877.  
  878.     dc.w    new_env
  879.     dc.l    hato_envl-b1
  880.     dc.w    new_snd
  881.     dc.l    hatop-b1
  882.     dc.w    r20,q+sq,r20,q+sq
  883.  
  884.  
  885.  
  886.  
  887.     dc.w    end_patt
  888.  
  889.  
  890.  
  891.  
  892. ;--------------------------
  893. cr  set   24    ;=112 beats per min
  894. q set  cr/2
  895. sq set q/2
  896. dsq set sq/4
  897.  
  898. tq1 set      8
  899. tq2 set   8
  900.  
  901. tsq1 set  4
  902. tsq2 set 4
  903.  
  904. tcr1 set 16
  905. tcr2 set 16
  906.  
  907. ;------
  908. s1_b:
  909.     ;dc.l    pri-b1
  910.  
  911.     dc.l    chords1-b1
  912.  
  913.     dc.l    chords2-b1
  914.  
  915.       dc.l     0,end_song
  916.  
  917. s2_b:
  918.  
  919.     dc.l    abass_snd-b1
  920.     dc.l    bass-b1
  921.  
  922.  
  923.         DC.L    0,end_song
  924.  
  925. s3_b:
  926.     dc.l    piano_snd-b1
  927.     dc.l    tune-b1
  928.  
  929.  
  930.     dc.l     0,end_song
  931.  
  932. s4_b:
  933.  
  934.     dc.l    pri-b1
  935.  
  936.     dc.l     0,end_song
  937.  
  938. ;------------------------
  939.  
  940. s1l_b:
  941.     ;dc.l    pri-b1
  942.  
  943.     dc.l    chords1-b1
  944.  
  945.     dc.l    chords2-b1
  946.  
  947.       dc.l     0,end_song
  948.  
  949. s2l_b:
  950.  
  951.     dc.l    abass_snd-b1
  952.     dc.l    bass-b1
  953.  
  954.     dc.l    bass_solo-b1
  955.  
  956.         DC.L    0,end_song
  957.  
  958. s3l_b:
  959.     dc.l    piano_snd-b1
  960.     dc.l    tune-b1
  961.  
  962.     dc.l    perc1-b1,perc1-b1,perc1-b1,perc1-b1
  963.     dc.l    perc1-b1,perc1-b1,perc1-b1,perc1-b1
  964.     dc.l    perc1-b1,perc1-b1,perc1-b1,perc1-b1
  965.     dc.l    perc1-b1,perc1-b1,perc1-b1,perc1-b1
  966.     dc.l    perc1-b1,perc1-b1,perc1-b1,perc1-b1
  967.  
  968.     dc.l     0,end_song
  969.  
  970. s4l_b:
  971.  
  972.     dc.l    pri-b1
  973.  
  974.     dc.l     0,end_song
  975.  
  976.  
  977.  
  978.  
  979.  
  980. ;----------
  981. pri:
  982.     dc.w    rest,65000
  983.     dc.w    rest,65000
  984.     dc.w    rest,65000
  985.     dc.w    rest,65000
  986.     dc.w    rest,65000
  987.     dc.w    rest,65000
  988.     dc.w    rest,65000
  989.     dc.w end_patt
  990.  
  991.  
  992.  
  993. perc1
  994.  
  995.     dc.w    new_env
  996.     dc.l    hato_env-b1
  997.     dc.w    new_snd
  998.     dc.l    hatop-b1
  999.     dc.w    r20,cr
  1000.  
  1001.     dc.w    new_env
  1002.     dc.l    hatc_env-b1
  1003.     dc.w    new_snd
  1004.     dc.l    hatcp-b1
  1005.     dc.w    r20,tq1+tq1
  1006.  
  1007.     dc.w    new_env
  1008.     dc.l    hatc_env-b1
  1009.     dc.w    new_snd
  1010.     dc.l    hatcp-b1
  1011.     dc.w    r20,tq1
  1012.  
  1013.     dc.w    new_env
  1014.     dc.l    hato_env-b1
  1015.     dc.w    new_snd
  1016.     dc.l    hatop-b1
  1017.     dc.w    r20,cr
  1018.  
  1019.     dc.w    new_env
  1020.     dc.l    hatc_env-b1
  1021.     dc.w    new_snd
  1022.     dc.l    hatcp-b1
  1023.     dc.w    r20,tq1+tq1
  1024.  
  1025.     dc.w    new_env
  1026.     dc.l    hatc_env-b1
  1027.     dc.w    new_snd
  1028.     dc.l    hatcp-b1
  1029.     dc.w    r20,tq1
  1030.     dc.w     end_patt
  1031.  
  1032.  
  1033. bass_solo
  1034.     dc.w modon,1,1,2,2,4,4
  1035.  
  1036.     dc.w     pbend,up,15
  1037.     dc.w    c02,4
  1038.  
  1039.     dc.w    g01,cr+tq1+tq2,d02,tq1,e02,cr,g02,cr
  1040.     dc.w    f02,cr,e02,cr-tq1,e01,tq1,d02,cr-tq1,d03,tq1,c02,cr-tq1,c03,tq1-tsq1
  1041.     dc.w    c02,tsq1
  1042.     dc.w    b01,cr
  1043.     dc.w     pbend,up,15
  1044.     dc.w    c02,4
  1045.  
  1046.     dc.w    e02,cr
  1047.  
  1048.     dc.w     pbend,up,15
  1049.     dc.w    g02,4
  1050.     dc.w    e02,cr*2        ;,b02,cr
  1051.  
  1052.     dc.w    bb02,cr,gb02,cr,f02,cr,eb01,cr
  1053.  
  1054.     dc.w    d02,cr*2-tq1,d03,tq1,e02,tq1+tq2,f02,cr-tq1,f03,tq1,g02,cr
  1055.     dc.w    g01,tq1+cr,g03,cr,g02,tq1,rest,tq1+tq2 
  1056.  
  1057.     dc.w    c02,cr-tq1,c03,tq1,e02,cr-tq1,e03,tq1,f02,cr,gb02,cr
  1058.     dc.w    g02,cr,a02,cr,bb02,cr,b02,cr-tq1,b01,tq1
  1059.  
  1060.  
  1061.     dc.w    c02,cr-tq1,c03,tq1,d02,cr-tq1,d03,tq1,e02,cr-tq1,e01,tq1,g02,cr
  1062.     dc.w    f02,cr,e02,cr,d02,cr,c02,cr
  1063.  
  1064.     dc.w    b01,cr,e02,cr,g02,cr,b02,cr
  1065.  
  1066.  
  1067.     dc.w     pbend,up,25
  1068.     dc.w    c03,4
  1069.     dc.w    g02,cr,f02,cr,a02,cr,eb02,cr
  1070.  
  1071.     dc.w    d02,cr*2,e02,tq1+tq2,f02,cr,g02,cr
  1072.     dc.w    g01,tq1,g02,cr,g03,cr,g02,cr
  1073.  
  1074.     dc.w    e02,cr*2,gb02,tq1,gb01,tq2,g02,cr,a02,cr
  1075.     dc.w    a01,tq1+cr,a02,cr,a02,cr-tq1,a01,tq1
  1076.  
  1077.     dc.w    d02,cr*2,e02,tq1+tq2,f02,cr,g02,cr
  1078.     dc.w    g01,tq1+cr,g03,cr,g02,cr
  1079.  
  1080.     dc.w    c02,cr,e01,cr,f01,cr,gb01,cr
  1081.     dc.w    g01,cr,a01,cr,bb01,cr,b01,cr
  1082.  
  1083.     dc.w    end_patt
  1084.  
  1085.  
  1086.  
  1087. vr equ 8
  1088. chords1
  1089.     dc.w    new_env
  1090.     dc.l    chord_env-b1
  1091.  
  1092.     dc.w    new_snd
  1093.     dc.l    c1p-b1
  1094.     dc.w    r8+vr,cr*3,r8,tq1+tq2
  1095.  
  1096.     dc.w    new_snd
  1097.     dc.l    c2p-b1
  1098.     dc.w    r8+vr,cr*4+tq1
  1099.  
  1100.     dc.w    new_snd
  1101.     dc.l    c3p-b1
  1102.     dc.w    r8+vr,cr*3,r8+vr,tq1+tq2
  1103.  
  1104.     dc.w    new_snd
  1105.     dc.l    c4p-b1
  1106.     dc.w    r8+vr,cr*4+tq1
  1107.  
  1108.  
  1109.     dc.w    new_snd
  1110.     dc.l    c2p-b1
  1111.     dc.w    r8+vr,cr*4+tq1+tq2
  1112.  
  1113.     dc.w    new_snd
  1114.     dc.l    c5p-b1
  1115.     dc.w    r8+vr,cr+tq1,r8+vr,cr*2
  1116.  
  1117.     dc.w    new_snd
  1118.     dc.l    c1p-b1
  1119.     dc.w    r8+vr,cr*3,r8+vr,+tq1+tq2
  1120.  
  1121.     dc.w    new_snd
  1122.     dc.l    c5p-b1
  1123.     dc.w    r8+vr,cr*4+tq1
  1124.  
  1125.  
  1126.     dc.w    end_patt
  1127.  
  1128.  
  1129. chords2
  1130.     dc.w    new_env
  1131.     dc.l    chord_env-b1
  1132.  
  1133.     dc.w    new_snd
  1134.     dc.l    c1p-b1
  1135.     dc.w    r8+vr,cr*3,r8+vr,tq1+tq2
  1136.  
  1137.     dc.w    new_snd
  1138.     dc.l    c2p-b1
  1139.     dc.w    r8+vr,cr*4+tq1
  1140.  
  1141.     dc.w    new_snd
  1142.     dc.l    c3p-b1
  1143.     dc.w    r8+vr,cr*3,r8+vr,tq1+tq2
  1144.  
  1145.     dc.w    new_snd
  1146.     dc.l    c6p-b1
  1147.     dc.w    r8+vr,cr*4+tq1
  1148.  
  1149.  
  1150.  
  1151.     dc.w    new_snd
  1152.     dc.l    c2p-b1
  1153.     dc.w    r8+vr,cr*4+tq1+tq2
  1154.  
  1155.     dc.w    new_snd
  1156.     dc.l    c5p-b1
  1157.     dc.w    r8+vr,cr+tq1,r8+vr,cr*2
  1158.  
  1159.     dc.w    new_snd
  1160.     dc.l    c3p-b1
  1161.     dc.w    r8+vr,cr*4+tq1+tq2
  1162.  
  1163.     dc.w    new_snd
  1164.     dc.l    c7p-b1
  1165.     dc.w    r8+vr,cr+tq1,r8+vr,cr*2
  1166.  
  1167.  
  1168.     dc.w    new_snd
  1169.     dc.l    c2p-b1
  1170.     dc.w    r8+vr,cr*4+tq1+tq2
  1171.  
  1172.     dc.w    new_snd
  1173.     dc.l    c5p-b1
  1174.     dc.w    r8+vr,cr+tq1,r8+vr,cr*2
  1175.  
  1176.     dc.w    new_snd
  1177.     dc.l    c8p-b1
  1178.     dc.w    r8+vr,cr*4-tq1
  1179.  
  1180.     dc.w    new_snd
  1181.     dc.l    c5p-b1
  1182.     dc.w    r8+vr,cr*4+tq1
  1183.  
  1184.  
  1185.     dc.w    end_patt
  1186.  
  1187. bass
  1188.     dc.w modon,1,1,2,2,4,4
  1189.     dc.w    c02,cr,d02,cr,e02,cr,g02,cr
  1190.     dc.w    f02,cr,e02,cr,d02,cr,c02,cr
  1191.  
  1192.     dc.w    b01,cr,e02,cr,g02,cr,b02,cr
  1193.  
  1194.     dc.w    bb02,cr,gb02,cr,f02,cr,eb02,cr
  1195.  
  1196.     dc.w    d02,cr*2,e02,tq1+tq2,f02,cr,g02,cr
  1197.     dc.w    g01,tq1+cr,g03,cr,g02,cr
  1198.  
  1199.     dc.w    c02,cr,e01,cr,f01,cr,gb01,cr
  1200.     dc.w    g01,cr,a01,cr,bb01,cr,b01,cr
  1201.  
  1202.  
  1203.     dc.w    c02,cr,d02,cr,e02,cr,g02,cr
  1204.     dc.w    f02,cr,e02,cr,d02,cr,c02,cr
  1205.  
  1206.     dc.w    b01,cr,e02,cr,g02,cr,b02,cr
  1207.  
  1208.     dc.w    c03,cr,f02,cr,a02,cr,eb02,cr
  1209.  
  1210.     dc.w    d02,cr*2,e02,tq1+tq2,f02,cr,g02,cr
  1211.     dc.w    g01,tq1+cr,g03,cr,g02,cr
  1212.  
  1213.     dc.w    e02,cr*2,gb02,tq1+tq2,g02,cr,a02,cr
  1214.     dc.w    a01,tq1+cr,a02,cr,a02,cr
  1215.  
  1216.     dc.w    d02,cr*2,e02,tq1+tq2,f02,cr,g02,cr
  1217.     dc.w    g01,tq1+cr,g03,cr,g02,cr
  1218.  
  1219.     dc.w    c02,cr,e01,cr,f01,cr,gb01,cr
  1220.     dc.w    g01,cr,a01,cr,bb01,cr,b01,cr
  1221.  
  1222.     dc.w    end_patt
  1223.  
  1224.  
  1225. tune
  1226.     dc.w    eb02,2,e02,cr*2-2,c02,cr-tq1,a01,cr,c02,cr*3
  1227.     dc.w    a01,tq1,c02,cr
  1228.  
  1229.     dc.w    eb02,2,e02,2,g02,cr*2-4-tq1
  1230.     dc.w    eb02,tq1,e02,tq1+tq2,c02,tq1,g02,tq1+tq2
  1231.     dc.w    eb02,cr*4+tq1
  1232.  
  1233.     dc.w    a01,cr*2,b01,tq1+tq2,c02,cr,d02,cr    ;bar 9
  1234.     dc.w    g01,tq1+cr
  1235.  
  1236.     dc.w    d02,tq1+tq2,g02,cr,e02,cr*8+tq1
  1237. tunex
  1238.     dc.w    eb02,2,e02,cr*2-2,c02,cr-tq1,a01,cr,c02,cr*3
  1239.     dc.w    a01,tq1,c02,cr
  1240.  
  1241.     dc.w    eb02,2,e02,2,g02,cr*3-4-tq1
  1242.     
  1243.     dc.w    e02,tq1+tq2,g02,tq1+tq2,b02,cr,c03,cr-tq1
  1244.     dc.w    a02,cr
  1245.  
  1246.     dc.w    g02,cr
  1247.  
  1248.     dc.w    a01,cr*2+tq1
  1249.     dc.w    b01,tq1+tq2,c02,cr,d02,cr    
  1250.     dc.w    g01,tq1+cr
  1251.     dc.w    d02,tq1+tq2,g02,cr+tq1
  1252.  
  1253.     dc.w    b01,cr*2
  1254.     dc.w    db02,tq1+tq2,d02,cr,e02,cr    
  1255.     dc.w    a01,tq1+cr
  1256.     dc.w    e02,tq1+tq2,b02,cr+tq1
  1257.  
  1258.     dc.w    a01,cr*2
  1259.     dc.w    b01,tq1+tq2,c02,cr,d02,cr    
  1260.     dc.w    g01,tq1+cr
  1261.     dc.w    d02,tq1+tq2,g02,cr+tq1
  1262.  
  1263.     dc.w    e01,cr*8
  1264.  
  1265.  
  1266.     dc.w    end_patt
  1267.  
  1268.  
  1269. ;-------------------------------------
  1270.  
  1271. sounds:
  1272.  
  1273. flute_snd:
  1274.     dc.w    new_env
  1275.     dc.l    flute_env-b1
  1276.     dc.w    new_snd
  1277.     dc.l    flutep-b1
  1278.     dc.w     end_patt
  1279.  
  1280. string_snd:
  1281.     dc.w    new_env
  1282.     dc.l    strings_env-b1
  1283.     dc.w    new_snd
  1284.     dc.l    stringsp-b1
  1285.     dc.w     end_patt
  1286.  
  1287.  
  1288. sine_snd:
  1289.     dc.w    new_env
  1290.     dc.l    sine_env_short-b1
  1291.     dc.w    new_snd
  1292.     dc.l    sinep-b1
  1293.     dc.w     end_patt
  1294.  
  1295. piano_snd:
  1296.     dc.w    new_env
  1297.     dc.l    piano_env-b1
  1298.     dc.w    new_snd
  1299.     dc.l    pianop-b1
  1300.     dc.w     end_patt
  1301.  
  1302.  
  1303.  
  1304. flute_sndq:
  1305.     dc.w    new_env
  1306.     dc.l    flute_envq-b1
  1307.     dc.w    new_snd
  1308.     dc.l    flutep-b1
  1309.     dc.w     end_patt
  1310.  
  1311. fhorn_snd:
  1312.     dc.w    new_env
  1313.     dc.l    fhorn_env-b1
  1314.     dc.w    new_snd
  1315.     dc.l    fhornp-b1
  1316.     dc.w     end_patt
  1317.  
  1318.  
  1319.  
  1320.  
  1321. ;***********************************************
  1322.  
  1323. parameters:
  1324.  
  1325. iff    equ 108
  1326.  
  1327.     ; sample parameters
  1328.  
  1329.  
  1330. flutep
  1331.         dc.w 1  
  1332.              dc.l fluted+iff-b1
  1333.              dc.w 7278/2
  1334.              dc.l fluted+4173+iff-b1
  1335.              dc.w 3106/2
  1336.  
  1337. sinep
  1338.         dc.w 1  
  1339.              dc.l sined-b1
  1340.              dc.w 16/2 
  1341.              dc.l sined-b1
  1342.              dc.w 16/2
  1343.  
  1344.  
  1345. c1p
  1346.         dc.w 1  
  1347.              dc.l c1d+iff-b1
  1348.              dc.w (7104-iff)/2
  1349.              dc.l rest_data-b1
  1350.              dc.w 16/2
  1351.  
  1352.  
  1353. c2p
  1354.         dc.w 1  
  1355.              dc.l c2d+iff-b1
  1356.              dc.w (8879-iff)/2
  1357.              dc.l rest_data-b1
  1358.              dc.w 16/2
  1359.  
  1360.  
  1361. c3p
  1362.         dc.w 1  
  1363.              dc.l c3d+iff-b1
  1364.              dc.w (6874-iff)/2
  1365.              dc.l rest_data-b1
  1366.              dc.w 16/2
  1367.  
  1368. c4p
  1369.         dc.w 1  
  1370.              dc.l c4d+iff-b1
  1371.              dc.w (6918-iff)/2
  1372.              dc.l rest_data-b1
  1373.              dc.w 16/2
  1374.  
  1375. c5p
  1376.         dc.w 1  
  1377.              dc.l c5d+iff-b1
  1378.              dc.w (3069-iff)/2
  1379.              dc.l rest_data-b1
  1380.              dc.w 16/2
  1381.  
  1382. c6p
  1383.         dc.w 1  
  1384.              dc.l c6d+iff-b1
  1385.              dc.w (8353-iff)/2
  1386.              dc.l rest_data-b1
  1387.              dc.w 16/2
  1388.  
  1389. c7p
  1390.         dc.w 1  
  1391.              dc.l c7d+iff-b1
  1392.              dc.w (6445-iff)/2
  1393.              dc.l rest_data-b1
  1394.              dc.w 16/2
  1395.  
  1396.  
  1397. c8p
  1398.         dc.w 1  
  1399.              dc.l c8d+iff-b1
  1400.              dc.w (9310-iff)/2
  1401.              dc.l rest_data-b1
  1402.              dc.w 16/2
  1403.  
  1404. ;*******************************************
  1405. chord1p
  1406. ;        dc.w 1  
  1407. ;             dc.l chord1d+iff-b1
  1408. ;             dc.w 7104/2
  1409. ;             dc.l rest_data-b1
  1410. ;             dc.w 16/2
  1411.  
  1412. chord2p
  1413. ;        dc.w 1  
  1414. ;             dc.l chord2d+iff-b1
  1415. ;             dc.w 36000/2
  1416. ;             dc.l chord2d+iff-b1
  1417. ;             dc.w 34601/2
  1418.  
  1419. chord3p
  1420. ;        dc.w 1  
  1421. ;             dc.l chord3d+iff-b1
  1422. ;             dc.w 18000/2
  1423. ;             dc.l chord3d+iff-b1
  1424. ;             dc.w 18000/2
  1425.  
  1426. chord4p
  1427. ;        dc.w 1  
  1428. ;             dc.l chord4d+iff-b1
  1429. ;             dc.w 18000/2
  1430. ;             dc.l chord4d+iff-b1
  1431. ;             dc.w 18000/2
  1432.  
  1433. chord5p
  1434. ;        dc.w 1  
  1435. ;             dc.l chord5d+iff-b1
  1436. ;             dc.w 18000/2
  1437. ;             dc.l chord5d+iff-b1
  1438. ;             dc.w 18000/2
  1439.  
  1440. chord6p
  1441. ;        dc.w 1  
  1442. ;             dc.l chord6d+iff-b1
  1443. ;             dc.w 18000/2
  1444. ;             dc.l chord6d+iff-b1
  1445. ;             dc.w 18000/2
  1446.  
  1447.  
  1448. stringsp
  1449.         dc.w 1
  1450.              dc.l strings1d+104-b1
  1451.              dc.w 9892/2 
  1452.              dc.l strings1d+104+3208-b1
  1453.              dc.w 6438/2 
  1454.  
  1455.  
  1456. fhornp:
  1457.         dc.w 1  
  1458.              dc.l fhornd+iff-b1
  1459.              dc.w (11204-iff)/2 
  1460.              dc.l fhornd+iff+1490-b1
  1461.              dc.w (11204-1490-iff)/2
  1462.  
  1463. abassp
  1464.         dc.w 1  
  1465.              dc.l abassd+iff-b1
  1466.              dc.w (13356-iff)/2 
  1467.              dc.l rest_data-b1
  1468.              dc.w 16/2
  1469.  
  1470. pianop
  1471.         dc.w 1  
  1472.              dc.l pianod+iff-b1
  1473.              dc.w (8524-iff)/2 
  1474.              dc.l rest_data-b1
  1475.              dc.w 16/2
  1476.  
  1477. dloop1p
  1478.         dc.w 1  
  1479.              dc.l dloop1d+iff-b1
  1480.              dc.w (27672-iff)/2 
  1481.              dc.l rest_data-b1
  1482.              dc.w 16/2
  1483.  
  1484. dloop2p
  1485.         dc.w 1  
  1486.              dc.l dloop2d+iff-b1
  1487.              dc.w (28180-iff)/2 
  1488.              dc.l rest_data-b1
  1489.              dc.w 16/2
  1490.  
  1491.  
  1492. hatop
  1493.         dc.w 1  
  1494.              dc.l hatod+104-b1
  1495.              dc.w (6035-iff)/2 
  1496.              dc.l rest_data-b1
  1497.              dc.w 16/2 
  1498.  
  1499. hatcp
  1500.         dc.w 1  
  1501.              dc.l hatcd+104-b1
  1502.              dc.w (1127-iff)/2 
  1503.              dc.l rest_data-b1
  1504.              dc.w 16/2 
  1505.  
  1506.  
  1507. abass_snd:
  1508.     dc.w    new_env
  1509.     dc.l    abass_env-b1
  1510.     dc.w    new_snd
  1511.     dc.l    abassp-b1
  1512.     dc.w     end_patt
  1513.  
  1514.  
  1515.  
  1516. envelopes:
  1517.  
  1518.  
  1519. rest_env:            dc.w 0,0,0,0,0,0,0,0,255
  1520. flute_env:            dc.w 0,18,255
  1521. dloop_env:            dc.w 0,38,255
  1522. strings_env:            dc.w 0,15,255
  1523. fhorn_env:            dc.w 0,18,255
  1524. abass_env:            dc.w 0,28,255
  1525. piano_env:            dc.w 0,8,255
  1526. hato_env:            dc.w 0,28,255
  1527. hatc_env:            dc.w 0,28,255
  1528. hato_envl:            dc.w 0,48,255
  1529. hatc_envl:            dc.w 0,48,255
  1530.  
  1531.  
  1532. flute_envq:            dc.w 0,18,255
  1533. sine_env_short:            dc.w 0,50,45,40,35,30,25,20,15,10,0,255
  1534.  
  1535.  
  1536. chord_env:            dc.w 0,64,255
  1537.  
  1538.  
  1539. ;**************************************************
  1540.  
  1541. ;;THE FX SAMPLES ARE PULLED IN HERE...THis section can be anywhere
  1542. ;; in lower memory,and in any order
  1543.  
  1544. fluted            incbin c:instruments/flute.sam 
  1545.  
  1546. abassd            incbin c:ssig/club/bassl.sam 
  1547. pianod            incbin c:ssig/club/piano.sam 
  1548. hatod            incbin c:ssig/danielle/hato.sam 
  1549. hatcd            incbin c:ssig/danielle/hatc.sam 
  1550. c1d            incbin c:ssig/club/c1.sam
  1551. c2d            incbin c:ssig/club/c2.sam
  1552. c3d            incbin c:ssig/club/c3.sam
  1553. c4d            incbin c:ssig/club/c4.sam
  1554. c5d            incbin c:ssig/club/c5.sam
  1555. c6d            incbin c:ssig/club/c6.sam
  1556. c7d            incbin c:ssig/club/c7.sam
  1557. c8d            incbin c:ssig/club/c8.sam
  1558.  
  1559. dloop1d            incbin c:ssig/club/dloop1
  1560. dloop2d            incbin c:ssig/club/dloop2
  1561.  
  1562. chord2d            ;incbin c:ssig/death/chord2
  1563. chord3d            ;incbin c:ssig/death/chord3
  1564. chord4d            ;incbin c:ssig/death/chord4
  1565. chord5d            ;incbin c:ssig/death/chord5
  1566. chord6d            ;incbin c:ssig/death/chord6
  1567.  
  1568. strings1d        ;incbin c:instruments/strings1.sam
  1569. fhornd            ;incbin c:instruments/fhorn.sam
  1570.  
  1571.  
  1572.  
  1573. ;********************************************
  1574.  
  1575.  
  1576. restd:
  1577. rest_data:
  1578.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1579.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1580.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1581.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1582.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1583.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1584. sined:
  1585. sine_datad:
  1586.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  1587.              dc.w -127,-100,-50,-35,0,35,50,80,127
  1588.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  1589.              dc.w -127,-100,-50,-35,0,35,50,80,127
  1590.  
  1591. endb1
  1592. ;*************************************************
  1593.  
  1594.     end
  1595.  
  1596.  
  1597.  
  1598.     dc.w modon,1,1,8,8,6,6
  1599.     dc.w pbend,down,1,60000,32
  1600.  
  1601.  
  1602.  
  1603.