home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Steel Sky Recycle / Lowe_SteelSkyRecycle.adf / recycle.data < prev    next >
Encoding:
Text File  |  1978-10-30  |  19.5 KB  |  1,184 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 GROUND 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.  
  31.  
  32. ab00 equ 269*4
  33. a00  equ  508*2
  34. bb00  equ  480*2
  35. b00  equ  453*2
  36.  
  37. c01  equ  428*2
  38. db01  equ  404*2
  39. d01 equ  381*2
  40. eb01  equ  360*2
  41. e01  equ  339*2
  42. f01  equ  320*2
  43. gb01  equ  302*2
  44. g01  equ  285*2
  45. ab01 equ 269*2
  46. a01  equ  508
  47. bb01  equ  480
  48. b01  equ  453
  49.  
  50. c02  equ  428
  51. db02  equ  404
  52. d02  equ  381
  53. eb02  equ  360
  54. e02  equ  339
  55. f02  equ  320
  56. gb02  equ  302
  57. g02  equ  285
  58. ab02 equ 269
  59. a02  equ  254
  60. bb02  equ  240
  61. b02  equ  226
  62.  
  63. c03  equ  214
  64. db03  equ  202
  65. d03  equ  190
  66. eb03  equ  180
  67. e03  equ  170
  68. f03  equ  160
  69. gb03  equ  151
  70. g03  equ  143
  71. ab03 equ 135
  72. a03  equ  127
  73.  
  74. bb03  equ  480*2
  75. b03  equ  453*2
  76.  
  77. c04  equ  428*2
  78. db04  equ  404*2
  79. d04 equ  381*2
  80. eb04  equ  360*2
  81. e04  equ  339*2
  82. f04  equ  320*2
  83. gb04  equ  302*2
  84. g04  equ  285*2
  85. ab04 equ 269*2
  86. a04  equ  508
  87. bb04  equ  480
  88. b04  equ  453
  89.  
  90. c05  equ  428
  91. db05  equ  404
  92. d05  equ  381
  93. eb05  equ  360
  94. e05  equ  339
  95. f05  equ  320
  96. gb05  equ  302
  97. g05  equ  285
  98. ab05 equ 269
  99. a05  equ  254
  100. bb05  equ  240
  101. b05  equ  226
  102.  
  103. c06  equ  214
  104. db06  equ  202
  105. d06  equ  190
  106. eb06  equ  180
  107. e06  equ  170
  108. f06  equ  160
  109. gb06  equ  151
  110. g06  equ  143
  111. ab06 equ 135
  112. a06  equ  127
  113. bb06  equ  480*2
  114. b06  equ  453*2
  115.  
  116. c07  equ  428*2
  117. db07  equ  404*2
  118. d07 equ  381*2
  119. eb07  equ  360*2
  120. e07  equ  339*2
  121. f07  equ  320*2
  122. gb07  equ  302*2
  123. g07  equ  285*2
  124. ab07 equ 269*2
  125. a07  equ  508
  126. bb07  equ  480
  127. b07  equ  453
  128.  
  129. c08  equ  428
  130. db08  equ  404
  131. d08  equ  381
  132. eb08  equ  360
  133. e08  equ  339
  134. f08  equ  320
  135. gb08  equ  302
  136. g08  equ  285
  137. ab08 equ 269
  138. a08  equ  254
  139. bb08  equ  240
  140. b08  equ  226
  141.  
  142.  
  143. v equ 0
  144.  
  145. no_loop equ 0
  146. loop equ 0
  147. chann1reg   equ $dff0a0    
  148. chann2reg   equ $dff0b0
  149. chann3reg   equ $dff0c0
  150. chann4reg   equ $dff0d0
  151. dmacon     equ $dff096
  152. int_bf_int   equ   $dff01e
  153. int_bf_w    equ   $dff09a
  154. vhposr     equ   $dff006
  155. in_line    equ   0
  156. new_snd    equ   4
  157. end_song     equ   1
  158. end_patt    equ   8
  159. new_env    equ   12
  160. pbend     equ   16
  161.  
  162.  
  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 224        ;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.  
  210.  
  211.  
  212. max_songs:    dc.l  3
  213.  
  214.     ;;; DATA
  215.  
  216. song_table:
  217.         dc.l s1_i-b1,s2_i-b1,s3_i-b1,s4_i-b1    ;danielle with loop
  218.  
  219.  
  220. fxp:
  221.  
  222.  
  223. fxjump_table:  
  224.  
  225. max_fx    dc.l    10    ;number + 1 for test routines only
  226. ;______________________________________________________________________
  227.  
  228.  
  229. ;sstart: dc.l 0,end_song
  230.  
  231. ;pstart: dc.w end_patt
  232.  
  233.  
  234. ;----------------------------------
  235.  
  236.  
  237. ;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  238.  
  239. ;************************************************
  240.  
  241. r    equ  r8-10
  242. ro    equ  r16
  243.  
  244.  
  245.  
  246. cr  set   20
  247. q set  cr/2
  248. sq set q/2
  249. dsq set sq/4
  250.  
  251. tcr1 set  13
  252. tcr2 set  14
  253.  
  254. tq1 set      7
  255. tq2 set   6
  256.  
  257. ssilence:
  258.     dc.l    pr-b1
  259.       dc.l     0,end_song
  260.  
  261.  
  262.  
  263. songs:
  264.  
  265.             ;intro tune
  266. s1_i:
  267.  
  268.     dc.l    sample1pt-b1
  269.  
  270.       dc.l     0,end_song
  271. s2_i:
  272.  
  273.     dc.l    sample1pt-b1
  274.  
  275.         DC.L    0,end_song
  276.  
  277.  
  278. s3_i:
  279.  
  280.     dc.l    pri-b1
  281.     dc.l     0,end_song
  282.  
  283. s4_i:
  284.  
  285.     dc.l    pri-b1
  286.  
  287.  
  288.     dc.l     0,end_song
  289.  
  290.  
  291. ;--------
  292. temp_rest
  293.  
  294.     dc.w    rest,(cr*4)*44    
  295.     dc.w    end_patt
  296. ;---------
  297.             ;bass patterns
  298.  
  299. sample1pt:
  300.     dc.w    new_env
  301.     dc.l    sample_env-b1
  302.     dc.w    new_snd
  303.     dc.l    sample1ap-b1
  304.  
  305.     dc.w    r8+10,748
  306.  
  307.     dc.w    new_snd
  308.     dc.l    sample1bp-b1
  309.  
  310.     dc.w    r8+10,749
  311.  
  312.  
  313.     dc.w    end_patt
  314.  
  315.  
  316. ;---------
  317.  
  318.         ;oboe patterns
  319.  
  320. oboe_tune
  321.     dc.w    rest,cr*2+q+sq
  322.     dc.w    g02,sq+sq,ab02,sq+q,bb02,cr*2+q
  323.     dc.w    ab02,sq,bb02,sq,ab02,q,g02,q
  324.     dc.w    ab02,cr*3,g02,q,f02,q,g02,q,f02,q,eb02,cr*3
  325.     dc.w    c02,cr+q,d02,q+cr,eb02,cr,ab02,cr*3,g02,q,f02,q
  326.     dc.w    g02,cr*3,f02,q,eb02,q,f02,cr*7
  327.     dc.w    g02,q,ab02,q,bb02,cr*2+q,ab02,sq,bb02,sq,ab02,q
  328.     dc.w    g02,q,ab02,cr*3,g02,q,f02,q,g02,q,f02,q,eb02,cr*3
  329.     dc.w    e02,cr+q,f02,q+cr,g02,cr,ab02,cr*3,g02,q,f02,q
  330.     dc.w    g02,cr*3,f02,q,eb02,q,f02,cr*7
  331.     dc.w    g02,q,ab02,q,g02,cr*4,bb02,cr*3,ab02,q,g02,q,f02,cr
  332.     dc.w    g02,cr+sq,eb02,sq+q+cr*3+sq
  333.     dc.w    f02,q+sq+cr,g02,cr*4,bb02,cr*3,bb02,q,c03,q,c03,cr*2
  334.     dc.w    bb02,cr*2,ab02,cr*2,g02,cr*2-q,rest,q,g02,cr*4
  335.     dc.w    bb02,cr*3,ab02,q,g02,q,f02,cr,g02,cr+sq,eb02,q+sq+cr*3+sq
  336.     dc.w    f02,q+sq+cr,gb02,cr*4+sq,a02,q+sq+cr*2
  337.     dc.w    bb02,q,c03,q+sq,bb02,q+sq+cr*3+sq
  338.     dc.w    f02,q+sq+cr*3,gb02,cr*4+sq,a02,q+sq+cr*2
  339.     dc.w    bb02,q,c03,q,a02,cr*4+sq,c03,q+sq+cr*2
  340.     dc.w    db03,q,eb02,q    
  341.  
  342.     dc.w    end_patt
  343.  
  344. ;-------------
  345.         ;flute patt
  346. flute1
  347.     dc.w    new_env
  348.     dc.l    flute_envq-b1
  349.     dc.w    rest,cr,eb02,q,f02,q,g02,cr,eb02,cr,rest,cr
  350.     dc.w    d02,q,eb02,q,f02,cr,d02,cr*2
  351.     dc.w    c02,q,bb01,q,c02,cr,g01,cr
  352.     dc.w    c02,cr,rest,q,d02,q,rest,cr,eb02,cr
  353.     dc.w    rest,cr,ab02,q,g02,q,ab02,cr,f02,cr
  354.     dc.w    rest,cr,g02,q,f02,q,g02,cr,eb02,cr
  355.     dc.w    f02,cr*4,rest,cr*4
  356.  
  357.     dc.w    end_patt
  358.  
  359. ;----------------
  360.         ;string patterns
  361.  
  362. end_strings1:
  363.     dc.w    g02,q,d02,q,g01,q,a02,q,d02,q,g01,q
  364.     dc.w    bb02,q,d02,q
  365.     dc.w    g01,q,c03,q,d02,q,g01,q,d03,q,d02,q
  366.     dc.w    f03,cr,g03,cr*4
  367.     dc.w    end_patt
  368.  
  369.  
  370. end_stabs
  371.     dc.w    g02,tq1,g02,tq2,g02,tq1
  372.     dc.w    g02,tq1,g02,tq2,g02,tq1
  373.     dc.w    g02,cr*2
  374.     dc.w    end_patt
  375.  
  376. tune1
  377.     dc.w     modon,1,1,1,1,8,8
  378.     dc.w    rest,cr*2+q
  379.     dc.w    c02,cr,eb02,q,g02,cr*2+q+sq
  380.     dc.w    f02,q,eb02,q+sq,f02,cr*2+q,eb02,cr,d02,q
  381.     dc.w    eb02,q,d02,q,c02,cr*5+q+sq
  382.     dc.w    c02,sq+q,eb02,q
  383.     dc.w    f02,cr*2+q
  384.     dc.w    eb02,cr,d02,q,eb02,cr*2+q
  385.     dc.w    d02,cr,c02,q,ab01,cr*3,rest,cr
  386.     dc.w    ab01,q,bb01,q,c02,q,d02,q,eb02,q,f02,q
  387.     dc.w    g02,q,ab02,q,g02,cr*2+q+sq
  388.     dc.w    f02,sq+sq,eb02,q+sq
  389.  
  390.     dc.w    f02,cr*2+q
  391.     dc.w    eb02,cr,d02,q,eb02,q
  392.     dc.w    d02,q,c02,cr*5+q,rest,sq
  393.  
  394.     dc.w    c02,sq+q,eb02,q,f02,cr*4
  395.     dc.w    eb02,cr*3,d02,q,c02,q,d02,q+sq,c02,sq,bb01,cr*5
  396.     dc.w    g01,cr*2,ab01,cr*4,c02,cr*2,eb02,cr*2,g02,cr*4
  397.  
  398.  
  399.     dc.w    new_env
  400.     dc.l    pizpiano_env-b1
  401.     dc.w    new_snd
  402.     dc.l    pizpianop-b1
  403.  
  404.     dc.w    c03,tcr1,g02,tcr2,bb02,tcr1
  405.     dc.w    f02,tcr1,g02,tcr2,c02,tcr1
  406.  
  407.     dc.w    new_env
  408.     dc.l    strings_env-b1
  409.     dc.w    new_snd
  410.     dc.l    stringsp-b1
  411.  
  412.  
  413.     dc.w    c03,cr,bb02,cr,ab02,cr,g02,cr,f02,cr
  414.     dc.w    eb02,cr,d02,cr,c02,cr,d02,cr*4
  415.                         ;bar 28 starts here
  416.  
  417.     dc.w    end_patt
  418.  
  419.  
  420. fast_strings1
  421.     dc.w    new_env
  422.     dc.l    strings_envq-b1
  423.     dc.w    rest,q,c02,sq,d02,sq,eb02,sq,f02,sq,g02,sq,f02,sq,g02,sq
  424.     dc.w    bb02,sq,c03,sq,d03,sq,eb03,sq,rest,sq
  425.     dc.w    eb03,sq,c03,sq,bb02,cr,g02,q,bb02,cr,f02,sq
  426.     dc.w    eb02,sq,d02,sq,c02,sq,bb01,q        
  427.     dc.w    ab01,sq,g01,sq,ab01,sq,bb01,sq,c02,sq                        ;bar 47
  428.     dc.w    bb01,sq,c02,sq,d02,sq,eb02,sq,c02,sq
  429.     dc.w    d02,sq,eb02,sq,f02,sq,d02,sq,eb02,sq,f02,sq
  430.     dc.w    g02,cr,f02,q,eb02,q+cr,d02,cr
  431.     dc.w    end_patt
  432.  
  433. fast_strings2
  434.     dc.w    rest,q,c02,sq,d02,sq,eb02,sq,d02,sq,eb02,sq,f02,q
  435.     dc.w    gb02,sq,ab02,sq,gb02,sq,a02,q,f02,q
  436.     dc.w    c03,cr,a02,q,c03,cr,a02,sq,gb02,sq,eb02,q,c02,q
  437.  
  438.     dc.w    ab01,sq,g01,sq,ab01,sq,bb01,sq,c02,sq                        ;bar 47
  439.     dc.w    bb01,sq,c02,sq,d02,sq,eb02,sq,c02,sq
  440.     dc.w    d02,sq,eb02,sq,f02,sq,d02,sq,eb02,sq,f02,sq
  441.  
  442.     dc.w    ab02,cr,g02,q,f02,q,rest,cr,eb02,cr
  443.  
  444.     dc.w    rest,q,c02,sq,d02,sq,eb02,sq,d02,sq,eb02,sq,f02,q
  445.     dc.w    gb02,sq,ab02,sq,gb02,sq,a02,q,f02,q
  446.  
  447.     dc.w    c03,cr,a02,q,c03,cr,a02,sq,gb02,sq,eb02,q,c02,cr    ;bar 63
  448.  
  449.     dc.w    eb02,sq,f02,sq,gb02,sq,f02,sq,gb02,sq,ab02,q
  450.     dc.w    a02,sq,b02,sq,a02,sq,c03,q,a02,q
  451.  
  452.     dc.w    eb03,cr,c03,q,eb03,cr,c03,sq,a02,sq,gb02,q,eb02,q
  453.  
  454.     dc.w    g01,tq1,f01,tq2,g01,tq1
  455.     dc.w    bb01,tq1,g01,tq2,bb01,tq1
  456.     dc.w    c02,tq1,bb01,tq2,c02,tq1
  457.     dc.w    d02,tq1,c02,tq2,d02,tq1
  458.  
  459.     dc.w    f02,tq1,d02,tq2,f02,tq1
  460.     dc.w    g02,tq1,f02,tq2,g02,tq1
  461.     dc.w    bb02,tq1,a02,tq2,bb02,tq1
  462.     dc.w    a02,tq1,bb02,tq2,a02,tq1
  463.     dc.w    g02,cr*4
  464.  
  465.     dc.w    g01,tq1,g01,tq2,g01,tq1
  466.     dc.w    g01,tq1,g01,tq2,g01,tq1
  467.     dc.w    g01,q
  468.  
  469.     dc.w    end_patt
  470.  
  471.  
  472.  
  473. ;-------------------------chord patterns---------
  474. chamber_part1:
  475.     dc.w    new_env
  476.     dc.l    chord_env-b1
  477.     dc.w    new_snd
  478.     dc.l    ebgp-b1
  479.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q,r,q,r,cr,r,q    
  480.     dc.w    new_snd
  481.     dc.l    ebbbp-b1
  482.     dc.w    r,q,r,cr,r,q
  483.     dc.w    new_snd
  484.     dc.l    cebabp-b1
  485.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q,r,q,r,cr,r,q    
  486.     dc.w    new_snd
  487.     dc.l    debbbp-b1
  488.     dc.w    r,q,r,cr,r,q
  489.  
  490.  
  491. chamber_part1r:
  492.  
  493.     dc.w    new_snd
  494.     dc.l    ebgp-b1
  495.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q,r,q,r,cr,r,q    
  496.     dc.w    new_snd
  497.     dc.l    ebbbp-b1
  498.     dc.w    r,q,r,cr,r,q
  499.  
  500.     dc.w    new_snd
  501.     dc.l    cebp-b1
  502.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q,r,q,r,cr,r,q    
  503.  
  504.     dc.w    new_snd
  505.     dc.l    debp-b1
  506.     dc.w    r,q,r,cr,r,q
  507.     dc.w    end_patt
  508.  
  509.  
  510. chamber_part2:
  511.  
  512.     dc.w    new_snd
  513.     dc.l    acebp-b1
  514.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  515.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  516.     dc.w    new_snd
  517.     dc.l    abcfp-b1
  518.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  519.     dc.w    r,q,r,cr,r,q,r,sq,r,sq,r,q,r,q,r,q
  520.  
  521.     dc.w    end_patt
  522.  
  523.  
  524. chamber_part3:        ;bar 17
  525.     dc.w    new_snd
  526.     dc.l    abcfp-b1;????  no f on score
  527.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  528.     dc.w    new_snd
  529.     dc.l    cebp-b1
  530.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  531.     dc.w    new_snd        ;bar 19
  532.     dc.l    debbbp-b1    ;????  no eb on score
  533.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  534.     dc.w    r,q,r,cr,r,q
  535.     dc.w    new_snd        ;bar 20/2
  536.     dc.l    ebbbp-b1    ;????  added g on score
  537.     dc.w    r,q,r,cr,r,q
  538.  
  539.     dc.w    new_snd        ;bar 21
  540.     dc.l    cebabp-b1        ;????  different inversion on score
  541.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  542.     dc.w    r,q,r,cr,r,q
  543.     dc.w    end_patt
  544.  
  545. ch1_stabs
  546.     dc.w    bb01,cr*2,c02,cr*4
  547.     dc.w    new_env
  548.     dc.l    orchhit_envq-b1
  549.     dc.w    c03,tcr1,g02,tcr2,bb02,tcr1
  550.     dc.w    f02,tcr1,g02,tcr2,c02,tcr1
  551.     dc.w    end_patt
  552.  
  553. ;-----------
  554.  
  555. cp:
  556. tymproll        
  557.     dc.w    new_env
  558.     dc.l    tymproll_env-b1
  559.     dc.w    new_snd
  560.     dc.l    tymprollp-b1
  561.     dc.w    r8,cr*2,r8,cr*2
  562.     dc.w    end_patt
  563.  
  564. snare_trip
  565.     dc.w    new_env
  566.     dc.l    snare_env-b1
  567.     dc.w    new_snd
  568.     dc.l    snarep-b1
  569.     dc.w    r16,tq1,r16,tq2,r16,tq1
  570.     dc.w    r16,tq1,r16,tq2,r16,tq1
  571.     dc.w    r16,tq1,r16,tq2,r16,tq1
  572.     dc.w    r16,tq1,r16,tq2,r16,tq1
  573.  
  574.     dc.w    r16,tq1,r16,tq2,r16,tq1
  575.     dc.w    r16,tq1,r16,tq2,r16,tq1
  576.     dc.w    r16,tq1,r16,tq2,r16,tq1
  577.     dc.w    r16,tq1,r16,tq2,r16,tq1
  578.  
  579.     dc.w    new_env
  580.     dc.l    crash_env-b1
  581.     dc.w    new_snd
  582.     dc.l    crashp-b1
  583.     dc.w    r14,cr*4
  584.  
  585.     dc.w    end_patt
  586.  
  587.  
  588.  
  589.  
  590.  
  591.  
  592. start_perc:
  593.     dc.w    new_env
  594.     dc.l    crash_env-b1
  595.     dc.w    new_snd
  596.     dc.l    crashp-b1
  597.     dc.w    r16,cr*2-q    
  598.     dc.w    new_env
  599.     dc.l    tymp_env-b1
  600.     dc.w    new_snd
  601.     dc.l    tympp-b1
  602.     dc.w    r6,q,r4,cr*6
  603.     dc.w    end_patt
  604.  
  605. start_perc1b:
  606.     dc.w    new_env
  607.     dc.l    crash_env-b1
  608.     dc.w    new_snd
  609.     dc.l    crashp-b1
  610.     dc.w    r16,cr*2-q    
  611.     dc.w    new_env
  612.     dc.l    tymp_env-b1
  613.     dc.w    new_snd
  614.     dc.l    tympp-b1
  615.     dc.w    rest,q,rest,cr*2
  616.     dc.w    end_patt
  617.  
  618. crash_stab
  619.     dc.w    new_env
  620.     dc.l    crash_env-b1
  621.     dc.w    new_snd
  622.     dc.l    crashp-b1
  623.     dc.w    r12,cr*4    
  624.  
  625.     dc.w    new_env
  626.     dc.l    flute_env-b1
  627.     dc.w    new_snd
  628.     dc.l    flutep-b1
  629.     dc.w    c03,tcr1,g02,tcr2,bb02,tcr1
  630.     dc.w    f02,tcr1,g02,tcr2,c02,tcr1
  631.     dc.w    end_patt
  632.  
  633. snare1
  634.     dc.w    r16,q,r16,cr,r16,q,r16,cr*2
  635.     dc.w    r16,q,r16,cr,r16,q,r16,cr*2
  636.     dc.w    r16,q,r16,cr,r16,q,r16,cr*2
  637.     dc.w    end_patt
  638.  
  639. snare2
  640.     dc.w    r16,q,r16,q,r16,cr
  641.     dc.w    r16,q,r16,q,r16,cr
  642.     dc.w    r16,q,r16,q,r16,q,r16,q
  643.     dc.w    r16,q,r16,q,r16,cr
  644.     dc.w    end_patt
  645.  
  646.  
  647.  
  648. ;--------------
  649.  
  650.  
  651. chamber_part4
  652.     dc.w    new_snd        ;
  653.     dc.l    cebabp-b1
  654.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q,r,q,r,cr,r,q    
  655.     dc.w    new_snd        ;
  656.     dc.l    bbdfbbp-b1
  657.     dc.w    r,sq,r,sq,r,q,r,q,r,q
  658.     dc.w    new_snd        ;
  659.     dc.l    gcdgp-b1
  660.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  661.     dc.w    new_snd        ;
  662.     dc.l    gbdgp-b1
  663.     dc.w    r,q,r,cr,r,q,r,q,r,q,rest,cr
  664.     dc.w    end_patt
  665.  
  666.  
  667. chamber_part5
  668.     dc.w    new_env
  669.     dc.l    chord_envq-b1
  670.     dc.w    new_snd        ;bar 29
  671.     dc.l    ebgp-b1
  672.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,cr
  673.     dc.w    new_snd        ;
  674.     dc.l    ebfabbp-b1
  675.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,q
  676.     dc.w    new_snd        ;
  677.     dc.l    ebgp-b1
  678.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  679.     dc.w    new_snd        ;
  680.     dc.l    ebbbp-b1
  681.     dc.w    r,q,r,cr,r,q,r,sq,r,sq,r,q,r,q,r,cr
  682.     dc.w    new_snd        ;
  683.     dc.l    abcfp-b1
  684.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,cr
  685.     dc.w    new_snd        ;
  686.     dc.l    ebbbp-b1
  687.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,cr
  688.     dc.w    new_snd        ;
  689.     dc.l    ebfabbbp-b1
  690.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,cr
  691.     dc.w    new_snd        ;
  692.     dc.l    fabbbp-b1
  693.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,q
  694.     dc.w    new_snd        ;
  695.     dc.l    ebgp-b1
  696.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,cr
  697.     dc.w    new_snd        ;
  698.     dc.l    ebfabbp-b1
  699.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,q
  700.     dc.w    new_snd        ;
  701.     dc.l    ebgp-b1
  702.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  703.     dc.w    new_snd        ;
  704.     dc.l    ebbbp-b1
  705.     dc.w    r,q,r,cr
  706.     dc.w    new_snd        ;
  707.     dc.l    egbbcp-b1
  708.     dc.w    r,q,r,sq,r,sq,r,q,r,q,r,cr
  709.     dc.w    new_snd        ;
  710.     dc.l    abcfp-b1
  711.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,cr
  712.     dc.w    new_snd        ;
  713.     dc.l    ebbbp-b1
  714.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,cr
  715.     dc.w    new_snd        ;
  716.     dc.l    ebfabbbp-b1
  717.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,cr
  718.     dc.w    new_snd        ;
  719.     dc.l    fabbbp-b1
  720.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,cr
  721.     dc.w    end_patt
  722.  
  723. chamber_part6
  724.     dc.w    new_env
  725.     dc.l    chord_env-b1
  726.     dc.w    new_snd        ;
  727.     dc.l    ebgp-b1
  728.     dc.w    r,cr,r,cr,r,cr,r,cr
  729.     dc.w    r,cr,r,cr
  730.     dc.w    new_snd        ;
  731.     dc.l    ebbbp-b1
  732.     dc.w    r,cr,r,cr
  733.     dc.w    new_snd        ;
  734.     dc.l    cebp-b1
  735.     dc.w    r,cr,r,cr,r,cr,r,cr
  736.     dc.w    r,cr,r,cr
  737.     dc.w    new_snd        ;
  738.     dc.l    debp-b1
  739.     dc.w    r,cr,r,cr
  740.     dc.w    end_patt
  741.  
  742.  
  743. chamber_part7        ;bar 57
  744.     dc.w    new_snd        ;
  745.     dc.l    adbebgbp-b1
  746.     dc.w    r,cr,r,cr,r,cr,r,cr
  747.     dc.w    new_snd        ;
  748.     dc.l    acebgbp-b1
  749.     dc.w    r,cr,r,cr,r,cr,r,cr
  750.     dc.w    new_snd        ;
  751.     dc.l    bbdbp-b1
  752.     dc.w    r,cr,r,cr,r,cr,r,cr
  753.     dc.w    new_snd        ;
  754.     dc.l    cebp-b1
  755.     dc.w    r,cr,r,cr,r,cr,r,q
  756.     dc.w     end_patt    
  757.  
  758.  
  759. chord_env    dc.w 0,48,255
  760. chord_envq    dc.w 0,32,255
  761. orchhit_env    dc.w 0,60,255
  762. orchhit_envq    dc.w 0,55,255
  763. strings_env    dc.w 0,48,255
  764. strings_envq    dc.w 0,38,255
  765. oboe_env    dc.w 0,53,255
  766. histrg_env    dc.w 0,48,255
  767. flute_env    dc.w 0,40,255
  768. flute_envq    dc.w 0,30,255
  769. pizpiano_env    dc.w 0,28,255
  770. tymproll_env    dc.w 0,40,255
  771. tymp_env    dc.w 0,50,255
  772. tymp_envl    dc.w 0,60,255
  773. cello_env    dc.w 0,38,255
  774. cello_envq    dc.w 0,32,255
  775. crash_env    dc.w 0,40,255
  776. snare_env:    dc.w 0,35,255
  777. snare_envl:    dc.w 0,45,255
  778. sample_env:    dc.w 0,55,255
  779.  
  780. ;----------------
  781. pri:
  782.     dc.w    rest,65000
  783.     dc.w    rest,65000
  784.     dc.w    rest,65000
  785.     dc.w    rest,65000
  786.     dc.w    rest,65000
  787.     dc.w    rest,65000
  788.     dc.w    rest,65000
  789.     dc.w end_patt
  790.  
  791. pr:
  792.     dc.w    rest,cr*4
  793.     dc.w end_patt
  794.  
  795. ;--------------------
  796.  
  797. sounds:
  798.  
  799. flute_snd:
  800.     dc.w    new_env
  801.     dc.l    flute_env-b1
  802.     dc.w    new_snd
  803.     dc.l    flutep-b1
  804.     dc.w     end_patt
  805.  
  806. orchhit_snd:
  807.     dc.w    new_env
  808.     dc.l    orchhit_env-b1
  809.     dc.w    new_snd
  810.     dc.l    orchhitp-b1
  811.     dc.w     end_patt
  812.  
  813. pizpiano_snd:
  814.     dc.w    new_env
  815.     dc.l    pizpiano_env-b1
  816.     dc.w    new_snd
  817.     dc.l    pizpianop-b1
  818.     dc.w     end_patt
  819.  
  820.  
  821.  
  822.  
  823.  
  824. string_snd:
  825.     dc.w    new_env
  826.     dc.l    strings_env-b1
  827.     dc.w    new_snd
  828.     dc.l    stringsp-b1
  829.     dc.w     end_patt
  830.  
  831. oboe_snd:
  832.     dc.w    new_env
  833.     dc.l    oboe_env-b1
  834.     dc.w    new_snd
  835.     dc.l    oboep-b1
  836.     dc.w     end_patt
  837.  
  838.  
  839.  
  840.  
  841. flute_sndq:
  842.     dc.w    new_env
  843.     dc.l    flute_envq-b1
  844.     dc.w    new_snd
  845.     dc.l    flutep-b1
  846.     dc.w     end_patt
  847.  
  848. snare_snd:
  849.     dc.w    new_env
  850.     dc.l    snare_env-b1
  851.     dc.w    new_snd
  852.     dc.l    snarep-b1
  853.     dc.w     end_patt
  854.  
  855. snare_sndl:
  856.     dc.w    new_env
  857.     dc.l    snare_envl-b1
  858.     dc.w    new_snd
  859.     dc.l    snarep-b1
  860.     dc.w     end_patt
  861.  
  862.  
  863. cello_snd:
  864.     dc.w    new_env
  865.     dc.l    cello_env-b1
  866.     dc.w    new_snd
  867.     dc.l    cellop-b1
  868.     dc.w     end_patt
  869.  
  870. crash_snd:
  871.     dc.w    new_env
  872.     dc.l    crash_env-b1
  873.     dc.w    new_snd
  874.     dc.l    crashp-b1
  875.     dc.w     end_patt
  876.  
  877.  
  878. ;***********************************************
  879.  
  880. parameters:
  881.  
  882. iff    equ 108
  883.  
  884.     ; sample parameters
  885.  
  886.  
  887. snarep
  888.         dc.w 1  
  889.              dc.l snared-b1
  890.              dc.w 2240/2  
  891.              dc.l restd-b1
  892.              dc.w 16/2
  893.  
  894.  
  895.  
  896. flutep
  897.         dc.w 1  
  898.              dc.l fluted+iff-b1
  899.              dc.w 7278/2
  900.              dc.l fluted+4173+iff-b1
  901.              dc.w 3106/2
  902.  
  903. sinep
  904.         dc.w 1  
  905.              dc.l sined-b1
  906.              dc.w 16/2 
  907.              dc.l sined-b1
  908.              dc.w 16/2
  909.  
  910. ;-----
  911. ebgp
  912.         dc.w 1  
  913.              dc.l ebgd+104-b1
  914.              dc.w 4669/2 
  915.              dc.l restd-b1
  916.              dc.w 16/2
  917.  
  918. ebbbp
  919.         dc.w 1  
  920.              dc.l ebbbd+104-b1
  921.              dc.w 4819/2 
  922.              dc.l restd-b1
  923.              dc.w 16/2
  924.  
  925.  
  926. cebp
  927.         dc.w 1  
  928.              dc.l cebd+104-b1
  929.              dc.w 5155/2 
  930.              dc.l restd-b1
  931.              dc.w 16/2
  932.  
  933. cebabp
  934.         dc.w 1  
  935.              dc.l cebabd+104-b1
  936.              dc.w 5226/2 
  937.              dc.l restd-b1
  938.              dc.w 16/2
  939.  
  940. debbbp
  941.         dc.w 1  
  942.              dc.l debbbd+104-b1
  943.              dc.w 4547/2 
  944.              dc.l restd-b1
  945.              dc.w 16/2
  946.  
  947. debp
  948.         dc.w 1  
  949.              dc.l debd+104-b1
  950.              dc.w 4267/2 
  951.              dc.l restd-b1
  952.              dc.w 16/2
  953.  
  954. acebp
  955.         dc.w 1  
  956.              dc.l acebd+104-b1
  957.              dc.w 4273/2 
  958.              dc.l restd-b1
  959.              dc.w 16/2
  960.  
  961. abcfp
  962.         dc.w 1  
  963.              dc.l abcfd+104-b1
  964.              dc.w 4076/2 
  965.              dc.l restd-b1
  966.              dc.w 16/2
  967.  
  968. bbdfbbp
  969.         dc.w 1  
  970.              dc.l bbdfbbd+104-b1
  971.              dc.w 3150/2 
  972.              dc.l restd-b1
  973.              dc.w 16/2
  974.  
  975. gcdgp
  976.         dc.w 1  
  977.              dc.l gcdgd+104-b1
  978.              dc.w 2664/2 
  979.              dc.l restd-b1
  980.              dc.w 16/2
  981.  
  982. gbdgp
  983.         dc.w 1  
  984.              dc.l gbdgd+104-b1
  985.              dc.w 2795/2 
  986.              dc.l restd-b1
  987.              dc.w 16/2
  988.  
  989. ebfabbp
  990.         dc.w 1  
  991.              dc.l ebfabbd+104-b1
  992.              dc.w 3465/2 
  993.              dc.l restd-b1
  994.              dc.w 16/2
  995.  
  996. ebfabbbp
  997.         dc.w 1  
  998.              dc.l ebfabbbd+104-b1
  999.              dc.w 3208/2 
  1000.              dc.l restd-b1
  1001.              dc.w 16/2
  1002.  
  1003. fabbbp
  1004.         dc.w 1  
  1005.              dc.l fabbbd+104-b1
  1006.              dc.w 3219/2 
  1007.              dc.l restd-b1
  1008.              dc.w 16/2
  1009.  
  1010. egbbcp
  1011.         dc.w 1  
  1012.              dc.l egbbcd+104-b1
  1013.              dc.w 3048/2 
  1014.              dc.l restd-b1
  1015.              dc.w 16/2
  1016.  
  1017. adbebgbp
  1018.         dc.w 1  
  1019.              dc.l adbebgbd+104-b1
  1020.              dc.w 3049/2 
  1021.              dc.l restd-b1
  1022.              dc.w 16/2
  1023.  
  1024.  
  1025. acebgbp
  1026.         dc.w 1  
  1027.              dc.l acebgbd+104-b1
  1028.              dc.w 2621/2 
  1029.              dc.l restd-b1
  1030.              dc.w 16/2
  1031.  
  1032. bbdbp
  1033.         dc.w 1  
  1034.              dc.l bbdbd+104-b1
  1035.              dc.w 2620/2 
  1036.              dc.l restd-b1
  1037.              dc.w 16/2
  1038.  
  1039. orchhitp
  1040.         dc.w 1  
  1041.              dc.l orchhit8d+104-b1
  1042.              dc.w 5214/2 
  1043.              dc.l restd-b1
  1044.              dc.w 16/2
  1045.  
  1046. tymprollp
  1047.         dc.w 1  
  1048.              dc.l tymprolld+104-b1
  1049.              dc.w 11234/2 
  1050.              dc.l restd-b1
  1051.              dc.w 16/2
  1052.  
  1053. tympp
  1054.         dc.w 1  
  1055.              dc.l tymprolld+104+5504-b1
  1056.              dc.w 5730/2 
  1057.              dc.l restd-b1
  1058.              dc.w 16/2
  1059.  
  1060.  
  1061.  
  1062.  
  1063.  
  1064. stringsp
  1065.         dc.w 1  
  1066.              dc.l strings1d+104+3208-b1
  1067.              dc.w 6438/2 
  1068.              dc.l strings1d+104+3208-b1
  1069.              dc.w 6438/2 
  1070.  
  1071. oboep
  1072.         dc.w 1  
  1073.              dc.l oboed+104+300-b1
  1074.              dc.w 10514/2 
  1075.              dc.l oboed+104+4002-b1
  1076.              dc.w 6512/2 
  1077.  
  1078.  
  1079. pizpianop
  1080.         dc.w 1  
  1081.              dc.l pizpianod-b1
  1082.              dc.w 4032/2
  1083.              dc.l restd-b1
  1084.              dc.w 16/2 
  1085.  
  1086. cellop
  1087.         dc.w 1  
  1088.              dc.l cellod+104-b1
  1089.              dc.w 9810/2
  1090.              dc.l restd-b1
  1091.              dc.w 16/2 
  1092.  
  1093. crashp
  1094.         dc.w 1  
  1095.              dc.l crashd+104-b1
  1096.              dc.w 14701/2
  1097.              dc.l restd-b1
  1098.              dc.w 16/2 
  1099.  
  1100. sample1ap
  1101.         dc.w 1  
  1102.              dc.l sample1ad+104-b1
  1103.              dc.w 65000
  1104.              dc.l restd-b1
  1105.              dc.w 65000
  1106. sample1bp
  1107.         dc.w 1  
  1108.              dc.l sample1bd+104-b1
  1109.              dc.w 65000
  1110.              dc.l restd-b1
  1111.              dc.w 16/2 
  1112.  
  1113.  
  1114.  
  1115. ;-----------
  1116.  
  1117. rest_env:            dc.w 0,0,0,0,0,0,0,0,255
  1118.  
  1119. ;**************************************************
  1120.  
  1121. ;;THE FX SAMPLES ARE PULLED IN HERE...THis section can be anywhere
  1122. ;; in lower memory,and in any order
  1123.  
  1124. ebgd            ;incbin c:steel_sky/samples/ebg8.sam 
  1125. ebbbd            ;incbin c:steel_sky/samples/ebbb8.sam 
  1126. cebabd            ;incbin c:steel_sky/samples/cebab8.sam 
  1127. debbbd            ;incbin c:steel_sky/samples/debbb8.sam 
  1128. cebd            ;incbin c:steel_sky/samples/ceb8.sam 
  1129. debd            ;incbin c:steel_sky/samples/deb8.sam 
  1130. acebd            ;incbin c:steel_sky/samples/aceb.sam 
  1131. abcfd            ;incbin c:steel_sky/samples/abcf.sam 
  1132. bbdfbbd            ;incbin c:steel_sky/samples/bbdfbb.sam 
  1133. gcdgd            ;incbin c:steel_sky/samples/gcdg.sam 
  1134. gbdgd            ;incbin c:steel_sky/samples/gbdg.sam 
  1135. ebfabbd            ;incbin c:steel_sky/samples/ebfabb.sam 
  1136. ebfabbbd        ;incbin c:steel_sky/samples/ebfabbb.sam 
  1137. fabbbd            ;incbin c:steel_sky/samples/fabbb.sam 
  1138. egbbcd            ;incbin c:steel_sky/samples/egbbc.sam 
  1139. adbebgbd        ;incbin c:steel_sky/samples/adbebgb.sam 
  1140. acebgbd            ;incbin c:steel_sky/samples/acebgb.sam 
  1141. bbdbd            ;incbin c:steel_sky/samples/bbdb.sam 
  1142. tymprolld        ;incbin c:steel_sky/samples/tymproll.sam 
  1143. sample1ad        incbin c:ssig/recycle/rsample1
  1144. sample1bd        incbin c:ssig/recycle/rsample2
  1145.  
  1146.  
  1147.  
  1148. fluted            ;incbin c:instruments/flute.sam 
  1149. snared            ;incbin c:instruments/snare.sam 
  1150. orchhit8d        ;incbin c:instruments/orchhit8.sam 
  1151. strings1d        ;incbin c:instruments/strings1.sam 
  1152. oboed            ;incbin c:instruments/oboe.sam 
  1153. pizpianod        ;incbin c:instruments/pizpiano.sam 
  1154. cellod            ;incbin c:instruments/cello1.sam 
  1155. crashd            ;incbin c:instruments/crash.sam 
  1156.  
  1157.  
  1158. ;********************************************
  1159.  
  1160.  
  1161. restd:
  1162. rest_data:
  1163.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1164. sined:
  1165. sine_datad:
  1166.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  1167.              dc.w -127,-100,-50,-35,0,35,50,80,127
  1168.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  1169.              dc.w -127,-100,-50,-35,0,35,50,80,127
  1170.  
  1171.  
  1172. ;*************************************************
  1173.  
  1174.  
  1175.  
  1176.     end
  1177.  
  1178.  
  1179.  
  1180.  
  1181.     dc.w modon,1,1,8,8,6,6
  1182.     dc.w pbend,down,1,60000,32
  1183.  
  1184.