home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Steel Sky Amiga Walkway / Lowe_SteelSkyAmigaWalkway.adf / walkway.bak < prev    next >
Encoding:
Text File  |  1978-10-31  |  19.7 KB  |  1,207 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.     dc.l    sample1pt-b1
  270.  
  271.  
  272.  
  273.  
  274.       dc.l     0,end_song
  275. s2_i:
  276.  
  277.       dc.l    sample1pt-b1
  278.     dc.l    sample1pt-b1
  279.        DC.L    0,end_song
  280.  
  281.  
  282. s3_i:
  283.  
  284.     dc.l    pri-b1
  285.     dc.l     0,end_song
  286.  
  287. s4_i:
  288.  
  289.     dc.l    pri-b1
  290.  
  291.  
  292.     dc.l     0,end_song
  293.  
  294.  
  295. ;--------
  296. temp_rest
  297.  
  298.     dc.w    rest,(cr*4)*44    
  299.     dc.w    end_patt
  300. ;---------
  301.             ;bass patterns
  302.  
  303. sample1pt:
  304.     dc.w    new_env
  305.     dc.l    sample_env-b1
  306.     dc.w    new_snd
  307.     dc.l    sample1p-b1
  308.  
  309.     dc.w    r8,400
  310.  
  311.     dc.w    new_snd
  312.     dc.l    sample1p-b1
  313.  
  314.     dc.w    r8,400
  315.  
  316.     dc.w    new_snd
  317.     dc.l    sample2ap-b1
  318.  
  319.     dc.w    r8,400
  320.  
  321.     dc.w    new_snd
  322.     dc.l    sample2bp-b1
  323.  
  324.     dc.w    r8,400
  325.  
  326.     dc.w    end_patt
  327.  
  328.  
  329. ;---------
  330.  
  331.         ;oboe patterns
  332.  
  333. oboe_tune
  334.     dc.w    rest,cr*2+q+sq
  335.     dc.w    g02,sq+sq,ab02,sq+q,bb02,cr*2+q
  336.     dc.w    ab02,sq,bb02,sq,ab02,q,g02,q
  337.     dc.w    ab02,cr*3,g02,q,f02,q,g02,q,f02,q,eb02,cr*3
  338.     dc.w    c02,cr+q,d02,q+cr,eb02,cr,ab02,cr*3,g02,q,f02,q
  339.     dc.w    g02,cr*3,f02,q,eb02,q,f02,cr*7
  340.     dc.w    g02,q,ab02,q,bb02,cr*2+q,ab02,sq,bb02,sq,ab02,q
  341.     dc.w    g02,q,ab02,cr*3,g02,q,f02,q,g02,q,f02,q,eb02,cr*3
  342.     dc.w    e02,cr+q,f02,q+cr,g02,cr,ab02,cr*3,g02,q,f02,q
  343.     dc.w    g02,cr*3,f02,q,eb02,q,f02,cr*7
  344.     dc.w    g02,q,ab02,q,g02,cr*4,bb02,cr*3,ab02,q,g02,q,f02,cr
  345.     dc.w    g02,cr+sq,eb02,sq+q+cr*3+sq
  346.     dc.w    f02,q+sq+cr,g02,cr*4,bb02,cr*3,bb02,q,c03,q,c03,cr*2
  347.     dc.w    bb02,cr*2,ab02,cr*2,g02,cr*2-q,rest,q,g02,cr*4
  348.     dc.w    bb02,cr*3,ab02,q,g02,q,f02,cr,g02,cr+sq,eb02,q+sq+cr*3+sq
  349.     dc.w    f02,q+sq+cr,gb02,cr*4+sq,a02,q+sq+cr*2
  350.     dc.w    bb02,q,c03,q+sq,bb02,q+sq+cr*3+sq
  351.     dc.w    f02,q+sq+cr*3,gb02,cr*4+sq,a02,q+sq+cr*2
  352.     dc.w    bb02,q,c03,q,a02,cr*4+sq,c03,q+sq+cr*2
  353.     dc.w    db03,q,eb02,q    
  354.  
  355.     dc.w    end_patt
  356.  
  357. ;-------------
  358.         ;flute patt
  359. flute1
  360.     dc.w    new_env
  361.     dc.l    flute_envq-b1
  362.     dc.w    rest,cr,eb02,q,f02,q,g02,cr,eb02,cr,rest,cr
  363.     dc.w    d02,q,eb02,q,f02,cr,d02,cr*2
  364.     dc.w    c02,q,bb01,q,c02,cr,g01,cr
  365.     dc.w    c02,cr,rest,q,d02,q,rest,cr,eb02,cr
  366.     dc.w    rest,cr,ab02,q,g02,q,ab02,cr,f02,cr
  367.     dc.w    rest,cr,g02,q,f02,q,g02,cr,eb02,cr
  368.     dc.w    f02,cr*4,rest,cr*4
  369.  
  370.     dc.w    end_patt
  371.  
  372. ;----------------
  373.         ;string patterns
  374.  
  375. end_strings1:
  376.     dc.w    g02,q,d02,q,g01,q,a02,q,d02,q,g01,q
  377.     dc.w    bb02,q,d02,q
  378.     dc.w    g01,q,c03,q,d02,q,g01,q,d03,q,d02,q
  379.     dc.w    f03,cr,g03,cr*4
  380.     dc.w    end_patt
  381.  
  382.  
  383. end_stabs
  384.     dc.w    g02,tq1,g02,tq2,g02,tq1
  385.     dc.w    g02,tq1,g02,tq2,g02,tq1
  386.     dc.w    g02,cr*2
  387.     dc.w    end_patt
  388.  
  389. tune1
  390.     dc.w     modon,1,1,1,1,8,8
  391.     dc.w    rest,cr*2+q
  392.     dc.w    c02,cr,eb02,q,g02,cr*2+q+sq
  393.     dc.w    f02,q,eb02,q+sq,f02,cr*2+q,eb02,cr,d02,q
  394.     dc.w    eb02,q,d02,q,c02,cr*5+q+sq
  395.     dc.w    c02,sq+q,eb02,q
  396.     dc.w    f02,cr*2+q
  397.     dc.w    eb02,cr,d02,q,eb02,cr*2+q
  398.     dc.w    d02,cr,c02,q,ab01,cr*3,rest,cr
  399.     dc.w    ab01,q,bb01,q,c02,q,d02,q,eb02,q,f02,q
  400.     dc.w    g02,q,ab02,q,g02,cr*2+q+sq
  401.     dc.w    f02,sq+sq,eb02,q+sq
  402.  
  403.     dc.w    f02,cr*2+q
  404.     dc.w    eb02,cr,d02,q,eb02,q
  405.     dc.w    d02,q,c02,cr*5+q,rest,sq
  406.  
  407.     dc.w    c02,sq+q,eb02,q,f02,cr*4
  408.     dc.w    eb02,cr*3,d02,q,c02,q,d02,q+sq,c02,sq,bb01,cr*5
  409.     dc.w    g01,cr*2,ab01,cr*4,c02,cr*2,eb02,cr*2,g02,cr*4
  410.  
  411.  
  412.     dc.w    new_env
  413.     dc.l    pizpiano_env-b1
  414.     dc.w    new_snd
  415.     dc.l    pizpianop-b1
  416.  
  417.     dc.w    c03,tcr1,g02,tcr2,bb02,tcr1
  418.     dc.w    f02,tcr1,g02,tcr2,c02,tcr1
  419.  
  420.     dc.w    new_env
  421.     dc.l    strings_env-b1
  422.     dc.w    new_snd
  423.     dc.l    stringsp-b1
  424.  
  425.  
  426.     dc.w    c03,cr,bb02,cr,ab02,cr,g02,cr,f02,cr
  427.     dc.w    eb02,cr,d02,cr,c02,cr,d02,cr*4
  428.                         ;bar 28 starts here
  429.  
  430.     dc.w    end_patt
  431.  
  432.  
  433. fast_strings1
  434.     dc.w    new_env
  435.     dc.l    strings_envq-b1
  436.     dc.w    rest,q,c02,sq,d02,sq,eb02,sq,f02,sq,g02,sq,f02,sq,g02,sq
  437.     dc.w    bb02,sq,c03,sq,d03,sq,eb03,sq,rest,sq
  438.     dc.w    eb03,sq,c03,sq,bb02,cr,g02,q,bb02,cr,f02,sq
  439.     dc.w    eb02,sq,d02,sq,c02,sq,bb01,q        
  440.     dc.w    ab01,sq,g01,sq,ab01,sq,bb01,sq,c02,sq                        ;bar 47
  441.     dc.w    bb01,sq,c02,sq,d02,sq,eb02,sq,c02,sq
  442.     dc.w    d02,sq,eb02,sq,f02,sq,d02,sq,eb02,sq,f02,sq
  443.     dc.w    g02,cr,f02,q,eb02,q+cr,d02,cr
  444.     dc.w    end_patt
  445.  
  446. fast_strings2
  447.     dc.w    rest,q,c02,sq,d02,sq,eb02,sq,d02,sq,eb02,sq,f02,q
  448.     dc.w    gb02,sq,ab02,sq,gb02,sq,a02,q,f02,q
  449.     dc.w    c03,cr,a02,q,c03,cr,a02,sq,gb02,sq,eb02,q,c02,q
  450.  
  451.     dc.w    ab01,sq,g01,sq,ab01,sq,bb01,sq,c02,sq                        ;bar 47
  452.     dc.w    bb01,sq,c02,sq,d02,sq,eb02,sq,c02,sq
  453.     dc.w    d02,sq,eb02,sq,f02,sq,d02,sq,eb02,sq,f02,sq
  454.  
  455.     dc.w    ab02,cr,g02,q,f02,q,rest,cr,eb02,cr
  456.  
  457.     dc.w    rest,q,c02,sq,d02,sq,eb02,sq,d02,sq,eb02,sq,f02,q
  458.     dc.w    gb02,sq,ab02,sq,gb02,sq,a02,q,f02,q
  459.  
  460.     dc.w    c03,cr,a02,q,c03,cr,a02,sq,gb02,sq,eb02,q,c02,cr    ;bar 63
  461.  
  462.     dc.w    eb02,sq,f02,sq,gb02,sq,f02,sq,gb02,sq,ab02,q
  463.     dc.w    a02,sq,b02,sq,a02,sq,c03,q,a02,q
  464.  
  465.     dc.w    eb03,cr,c03,q,eb03,cr,c03,sq,a02,sq,gb02,q,eb02,q
  466.  
  467.     dc.w    g01,tq1,f01,tq2,g01,tq1
  468.     dc.w    bb01,tq1,g01,tq2,bb01,tq1
  469.     dc.w    c02,tq1,bb01,tq2,c02,tq1
  470.     dc.w    d02,tq1,c02,tq2,d02,tq1
  471.  
  472.     dc.w    f02,tq1,d02,tq2,f02,tq1
  473.     dc.w    g02,tq1,f02,tq2,g02,tq1
  474.     dc.w    bb02,tq1,a02,tq2,bb02,tq1
  475.     dc.w    a02,tq1,bb02,tq2,a02,tq1
  476.     dc.w    g02,cr*4
  477.  
  478.     dc.w    g01,tq1,g01,tq2,g01,tq1
  479.     dc.w    g01,tq1,g01,tq2,g01,tq1
  480.     dc.w    g01,q
  481.  
  482.     dc.w    end_patt
  483.  
  484.  
  485.  
  486. ;-------------------------chord patterns---------
  487. chamber_part1:
  488.     dc.w    new_env
  489.     dc.l    chord_env-b1
  490.     dc.w    new_snd
  491.     dc.l    ebgp-b1
  492.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q,r,q,r,cr,r,q    
  493.     dc.w    new_snd
  494.     dc.l    ebbbp-b1
  495.     dc.w    r,q,r,cr,r,q
  496.     dc.w    new_snd
  497.     dc.l    cebabp-b1
  498.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q,r,q,r,cr,r,q    
  499.     dc.w    new_snd
  500.     dc.l    debbbp-b1
  501.     dc.w    r,q,r,cr,r,q
  502.  
  503.  
  504. chamber_part1r:
  505.  
  506.     dc.w    new_snd
  507.     dc.l    ebgp-b1
  508.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q,r,q,r,cr,r,q    
  509.     dc.w    new_snd
  510.     dc.l    ebbbp-b1
  511.     dc.w    r,q,r,cr,r,q
  512.  
  513.     dc.w    new_snd
  514.     dc.l    cebp-b1
  515.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q,r,q,r,cr,r,q    
  516.  
  517.     dc.w    new_snd
  518.     dc.l    debp-b1
  519.     dc.w    r,q,r,cr,r,q
  520.     dc.w    end_patt
  521.  
  522.  
  523. chamber_part2:
  524.  
  525.     dc.w    new_snd
  526.     dc.l    acebp-b1
  527.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  528.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  529.     dc.w    new_snd
  530.     dc.l    abcfp-b1
  531.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  532.     dc.w    r,q,r,cr,r,q,r,sq,r,sq,r,q,r,q,r,q
  533.  
  534.     dc.w    end_patt
  535.  
  536.  
  537. chamber_part3:        ;bar 17
  538.     dc.w    new_snd
  539.     dc.l    abcfp-b1;????  no f on score
  540.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  541.     dc.w    new_snd
  542.     dc.l    cebp-b1
  543.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  544.     dc.w    new_snd        ;bar 19
  545.     dc.l    debbbp-b1    ;????  no eb on score
  546.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  547.     dc.w    r,q,r,cr,r,q
  548.     dc.w    new_snd        ;bar 20/2
  549.     dc.l    ebbbp-b1    ;????  added g on score
  550.     dc.w    r,q,r,cr,r,q
  551.  
  552.     dc.w    new_snd        ;bar 21
  553.     dc.l    cebabp-b1        ;????  different inversion on score
  554.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  555.     dc.w    r,q,r,cr,r,q
  556.     dc.w    end_patt
  557.  
  558. ch1_stabs
  559.     dc.w    bb01,cr*2,c02,cr*4
  560.     dc.w    new_env
  561.     dc.l    orchhit_envq-b1
  562.     dc.w    c03,tcr1,g02,tcr2,bb02,tcr1
  563.     dc.w    f02,tcr1,g02,tcr2,c02,tcr1
  564.     dc.w    end_patt
  565.  
  566. ;-----------
  567.  
  568. cp:
  569. tymproll        
  570.     dc.w    new_env
  571.     dc.l    tymproll_env-b1
  572.     dc.w    new_snd
  573.     dc.l    tymprollp-b1
  574.     dc.w    r8,cr*2,r8,cr*2
  575.     dc.w    end_patt
  576.  
  577. snare_trip
  578.     dc.w    new_env
  579.     dc.l    snare_env-b1
  580.     dc.w    new_snd
  581.     dc.l    snarep-b1
  582.     dc.w    r16,tq1,r16,tq2,r16,tq1
  583.     dc.w    r16,tq1,r16,tq2,r16,tq1
  584.     dc.w    r16,tq1,r16,tq2,r16,tq1
  585.     dc.w    r16,tq1,r16,tq2,r16,tq1
  586.  
  587.     dc.w    r16,tq1,r16,tq2,r16,tq1
  588.     dc.w    r16,tq1,r16,tq2,r16,tq1
  589.     dc.w    r16,tq1,r16,tq2,r16,tq1
  590.     dc.w    r16,tq1,r16,tq2,r16,tq1
  591.  
  592.     dc.w    new_env
  593.     dc.l    crash_env-b1
  594.     dc.w    new_snd
  595.     dc.l    crashp-b1
  596.     dc.w    r14,cr*4
  597.  
  598.     dc.w    end_patt
  599.  
  600.  
  601.  
  602.  
  603.  
  604.  
  605. start_perc:
  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    r6,q,r4,cr*6
  616.     dc.w    end_patt
  617.  
  618. start_perc1b:
  619.     dc.w    new_env
  620.     dc.l    crash_env-b1
  621.     dc.w    new_snd
  622.     dc.l    crashp-b1
  623.     dc.w    r16,cr*2-q    
  624.     dc.w    new_env
  625.     dc.l    tymp_env-b1
  626.     dc.w    new_snd
  627.     dc.l    tympp-b1
  628.     dc.w    rest,q,rest,cr*2
  629.     dc.w    end_patt
  630.  
  631. crash_stab
  632.     dc.w    new_env
  633.     dc.l    crash_env-b1
  634.     dc.w    new_snd
  635.     dc.l    crashp-b1
  636.     dc.w    r12,cr*4    
  637.  
  638.     dc.w    new_env
  639.     dc.l    flute_env-b1
  640.     dc.w    new_snd
  641.     dc.l    flutep-b1
  642.     dc.w    c03,tcr1,g02,tcr2,bb02,tcr1
  643.     dc.w    f02,tcr1,g02,tcr2,c02,tcr1
  644.     dc.w    end_patt
  645.  
  646. snare1
  647.     dc.w    r16,q,r16,cr,r16,q,r16,cr*2
  648.     dc.w    r16,q,r16,cr,r16,q,r16,cr*2
  649.     dc.w    r16,q,r16,cr,r16,q,r16,cr*2
  650.     dc.w    end_patt
  651.  
  652. snare2
  653.     dc.w    r16,q,r16,q,r16,cr
  654.     dc.w    r16,q,r16,q,r16,cr
  655.     dc.w    r16,q,r16,q,r16,q,r16,q
  656.     dc.w    r16,q,r16,q,r16,cr
  657.     dc.w    end_patt
  658.  
  659.  
  660.  
  661. ;--------------
  662.  
  663.  
  664. chamber_part4
  665.     dc.w    new_snd        ;
  666.     dc.l    cebabp-b1
  667.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q,r,q,r,cr,r,q    
  668.     dc.w    new_snd        ;
  669.     dc.l    bbdfbbp-b1
  670.     dc.w    r,sq,r,sq,r,q,r,q,r,q
  671.     dc.w    new_snd        ;
  672.     dc.l    gcdgp-b1
  673.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  674.     dc.w    new_snd        ;
  675.     dc.l    gbdgp-b1
  676.     dc.w    r,q,r,cr,r,q,r,q,r,q,rest,cr
  677.     dc.w    end_patt
  678.  
  679.  
  680. chamber_part5
  681.     dc.w    new_env
  682.     dc.l    chord_envq-b1
  683.     dc.w    new_snd        ;bar 29
  684.     dc.l    ebgp-b1
  685.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,cr
  686.     dc.w    new_snd        ;
  687.     dc.l    ebfabbp-b1
  688.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,q
  689.     dc.w    new_snd        ;
  690.     dc.l    ebgp-b1
  691.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  692.     dc.w    new_snd        ;
  693.     dc.l    ebbbp-b1
  694.     dc.w    r,q,r,cr,r,q,r,sq,r,sq,r,q,r,q,r,cr
  695.     dc.w    new_snd        ;
  696.     dc.l    abcfp-b1
  697.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,cr
  698.     dc.w    new_snd        ;
  699.     dc.l    ebbbp-b1
  700.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,cr
  701.     dc.w    new_snd        ;
  702.     dc.l    ebfabbbp-b1
  703.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,cr
  704.     dc.w    new_snd        ;
  705.     dc.l    fabbbp-b1
  706.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,q
  707.     dc.w    new_snd        ;
  708.     dc.l    ebgp-b1
  709.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,cr
  710.     dc.w    new_snd        ;
  711.     dc.l    ebfabbp-b1
  712.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,q
  713.     dc.w    new_snd        ;
  714.     dc.l    ebgp-b1
  715.     dc.w    r,q,r,cr,r,q,r,q,r,cr,r,q
  716.     dc.w    new_snd        ;
  717.     dc.l    ebbbp-b1
  718.     dc.w    r,q,r,cr
  719.     dc.w    new_snd        ;
  720.     dc.l    egbbcp-b1
  721.     dc.w    r,q,r,sq,r,sq,r,q,r,q,r,cr
  722.     dc.w    new_snd        ;
  723.     dc.l    abcfp-b1
  724.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,cr
  725.     dc.w    new_snd        ;
  726.     dc.l    ebbbp-b1
  727.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,cr
  728.     dc.w    new_snd        ;
  729.     dc.l    ebfabbbp-b1
  730.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,cr
  731.     dc.w    new_snd        ;
  732.     dc.l    fabbbp-b1
  733.     dc.w    r,q,r,q,r,cr,r,q,r,q,r,cr
  734.     dc.w    end_patt
  735.  
  736. chamber_part6
  737.     dc.w    new_env
  738.     dc.l    chord_env-b1
  739.     dc.w    new_snd        ;
  740.     dc.l    ebgp-b1
  741.     dc.w    r,cr,r,cr,r,cr,r,cr
  742.     dc.w    r,cr,r,cr
  743.     dc.w    new_snd        ;
  744.     dc.l    ebbbp-b1
  745.     dc.w    r,cr,r,cr
  746.     dc.w    new_snd        ;
  747.     dc.l    cebp-b1
  748.     dc.w    r,cr,r,cr,r,cr,r,cr
  749.     dc.w    r,cr,r,cr
  750.     dc.w    new_snd        ;
  751.     dc.l    debp-b1
  752.     dc.w    r,cr,r,cr
  753.     dc.w    end_patt
  754.  
  755.  
  756. chamber_part7        ;bar 57
  757.     dc.w    new_snd        ;
  758.     dc.l    adbebgbp-b1
  759.     dc.w    r,cr,r,cr,r,cr,r,cr
  760.     dc.w    new_snd        ;
  761.     dc.l    acebgbp-b1
  762.     dc.w    r,cr,r,cr,r,cr,r,cr
  763.     dc.w    new_snd        ;
  764.     dc.l    bbdbp-b1
  765.     dc.w    r,cr,r,cr,r,cr,r,cr
  766.     dc.w    new_snd        ;
  767.     dc.l    cebp-b1
  768.     dc.w    r,cr,r,cr,r,cr,r,q
  769.     dc.w     end_patt    
  770.  
  771.  
  772. chord_env    dc.w 0,48,255
  773. chord_envq    dc.w 0,32,255
  774. orchhit_env    dc.w 0,60,255
  775. orchhit_envq    dc.w 0,55,255
  776. strings_env    dc.w 0,48,255
  777. strings_envq    dc.w 0,38,255
  778. oboe_env    dc.w 0,53,255
  779. histrg_env    dc.w 0,48,255
  780. flute_env    dc.w 0,40,255
  781. flute_envq    dc.w 0,30,255
  782. pizpiano_env    dc.w 0,28,255
  783. tymproll_env    dc.w 0,40,255
  784. tymp_env    dc.w 0,50,255
  785. tymp_envl    dc.w 0,60,255
  786. cello_env    dc.w 0,38,255
  787. cello_envq    dc.w 0,32,255
  788. crash_env    dc.w 0,40,255
  789. snare_env:    dc.w 0,35,255
  790. snare_envl:    dc.w 0,45,255
  791. sample_env:    dc.w 0,55,255
  792.  
  793. ;----------------
  794. pri:
  795.     dc.w    rest,65000
  796.     dc.w    rest,65000
  797.     dc.w    rest,65000
  798.     dc.w    rest,65000
  799.     dc.w    rest,65000
  800.     dc.w    rest,65000
  801.     dc.w    rest,65000
  802.     dc.w end_patt
  803.  
  804. pr:
  805.     dc.w    rest,cr*4
  806.     dc.w end_patt
  807.  
  808. ;--------------------
  809.  
  810. sounds:
  811.  
  812. flute_snd:
  813.     dc.w    new_env
  814.     dc.l    flute_env-b1
  815.     dc.w    new_snd
  816.     dc.l    flutep-b1
  817.     dc.w     end_patt
  818.  
  819. orchhit_snd:
  820.     dc.w    new_env
  821.     dc.l    orchhit_env-b1
  822.     dc.w    new_snd
  823.     dc.l    orchhitp-b1
  824.     dc.w     end_patt
  825.  
  826. pizpiano_snd:
  827.     dc.w    new_env
  828.     dc.l    pizpiano_env-b1
  829.     dc.w    new_snd
  830.     dc.l    pizpianop-b1
  831.     dc.w     end_patt
  832.  
  833.  
  834.  
  835.  
  836.  
  837. string_snd:
  838.     dc.w    new_env
  839.     dc.l    strings_env-b1
  840.     dc.w    new_snd
  841.     dc.l    stringsp-b1
  842.     dc.w     end_patt
  843.  
  844. oboe_snd:
  845.     dc.w    new_env
  846.     dc.l    oboe_env-b1
  847.     dc.w    new_snd
  848.     dc.l    oboep-b1
  849.     dc.w     end_patt
  850.  
  851.  
  852.  
  853.  
  854. flute_sndq:
  855.     dc.w    new_env
  856.     dc.l    flute_envq-b1
  857.     dc.w    new_snd
  858.     dc.l    flutep-b1
  859.     dc.w     end_patt
  860.  
  861. snare_snd:
  862.     dc.w    new_env
  863.     dc.l    snare_env-b1
  864.     dc.w    new_snd
  865.     dc.l    snarep-b1
  866.     dc.w     end_patt
  867.  
  868. snare_sndl:
  869.     dc.w    new_env
  870.     dc.l    snare_envl-b1
  871.     dc.w    new_snd
  872.     dc.l    snarep-b1
  873.     dc.w     end_patt
  874.  
  875.  
  876. cello_snd:
  877.     dc.w    new_env
  878.     dc.l    cello_env-b1
  879.     dc.w    new_snd
  880.     dc.l    cellop-b1
  881.     dc.w     end_patt
  882.  
  883. crash_snd:
  884.     dc.w    new_env
  885.     dc.l    crash_env-b1
  886.     dc.w    new_snd
  887.     dc.l    crashp-b1
  888.     dc.w     end_patt
  889.  
  890.  
  891. ;***********************************************
  892.  
  893. parameters:
  894.  
  895. iff    equ 108
  896.  
  897.     ; sample parameters
  898.  
  899.  
  900. snarep
  901.         dc.w 1  
  902.              dc.l snared-b1
  903.              dc.w 2240/2  
  904.              dc.l restd-b1
  905.              dc.w 16/2
  906.  
  907.  
  908.  
  909. flutep
  910.         dc.w 1  
  911.              dc.l fluted+iff-b1
  912.              dc.w 7278/2
  913.              dc.l fluted+4173+iff-b1
  914.              dc.w 3106/2
  915.  
  916. sinep
  917.         dc.w 1  
  918.              dc.l sined-b1
  919.              dc.w 16/2 
  920.              dc.l sined-b1
  921.              dc.w 16/2
  922.  
  923. ;-----
  924. ebgp
  925.         dc.w 1  
  926.              dc.l ebgd+104-b1
  927.              dc.w 4669/2 
  928.              dc.l restd-b1
  929.              dc.w 16/2
  930.  
  931. ebbbp
  932.         dc.w 1  
  933.              dc.l ebbbd+104-b1
  934.              dc.w 4819/2 
  935.              dc.l restd-b1
  936.              dc.w 16/2
  937.  
  938.  
  939. cebp
  940.         dc.w 1  
  941.              dc.l cebd+104-b1
  942.              dc.w 5155/2 
  943.              dc.l restd-b1
  944.              dc.w 16/2
  945.  
  946. cebabp
  947.         dc.w 1  
  948.              dc.l cebabd+104-b1
  949.              dc.w 5226/2 
  950.              dc.l restd-b1
  951.              dc.w 16/2
  952.  
  953. debbbp
  954.         dc.w 1  
  955.              dc.l debbbd+104-b1
  956.              dc.w 4547/2 
  957.              dc.l restd-b1
  958.              dc.w 16/2
  959.  
  960. debp
  961.         dc.w 1  
  962.              dc.l debd+104-b1
  963.              dc.w 4267/2 
  964.              dc.l restd-b1
  965.              dc.w 16/2
  966.  
  967. acebp
  968.         dc.w 1  
  969.              dc.l acebd+104-b1
  970.              dc.w 4273/2 
  971.              dc.l restd-b1
  972.              dc.w 16/2
  973.  
  974. abcfp
  975.         dc.w 1  
  976.              dc.l abcfd+104-b1
  977.              dc.w 4076/2 
  978.              dc.l restd-b1
  979.              dc.w 16/2
  980.  
  981. bbdfbbp
  982.         dc.w 1  
  983.              dc.l bbdfbbd+104-b1
  984.              dc.w 3150/2 
  985.              dc.l restd-b1
  986.              dc.w 16/2
  987.  
  988. gcdgp
  989.         dc.w 1  
  990.              dc.l gcdgd+104-b1
  991.              dc.w 2664/2 
  992.              dc.l restd-b1
  993.              dc.w 16/2
  994.  
  995. gbdgp
  996.         dc.w 1  
  997.              dc.l gbdgd+104-b1
  998.              dc.w 2795/2 
  999.              dc.l restd-b1
  1000.              dc.w 16/2
  1001.  
  1002. ebfabbp
  1003.         dc.w 1  
  1004.              dc.l ebfabbd+104-b1
  1005.              dc.w 3465/2 
  1006.              dc.l restd-b1
  1007.              dc.w 16/2
  1008.  
  1009. ebfabbbp
  1010.         dc.w 1  
  1011.              dc.l ebfabbbd+104-b1
  1012.              dc.w 3208/2 
  1013.              dc.l restd-b1
  1014.              dc.w 16/2
  1015.  
  1016. fabbbp
  1017.         dc.w 1  
  1018.              dc.l fabbbd+104-b1
  1019.              dc.w 3219/2 
  1020.              dc.l restd-b1
  1021.              dc.w 16/2
  1022.  
  1023. egbbcp
  1024.         dc.w 1  
  1025.              dc.l egbbcd+104-b1
  1026.              dc.w 3048/2 
  1027.              dc.l restd-b1
  1028.              dc.w 16/2
  1029.  
  1030. adbebgbp
  1031.         dc.w 1  
  1032.              dc.l adbebgbd+104-b1
  1033.              dc.w 3049/2 
  1034.              dc.l restd-b1
  1035.              dc.w 16/2
  1036.  
  1037.  
  1038. acebgbp
  1039.         dc.w 1  
  1040.              dc.l acebgbd+104-b1
  1041.              dc.w 2621/2 
  1042.              dc.l restd-b1
  1043.              dc.w 16/2
  1044.  
  1045. bbdbp
  1046.         dc.w 1  
  1047.              dc.l bbdbd+104-b1
  1048.              dc.w 2620/2 
  1049.              dc.l restd-b1
  1050.              dc.w 16/2
  1051.  
  1052. orchhitp
  1053.         dc.w 1  
  1054.              dc.l orchhit8d+104-b1
  1055.              dc.w 5214/2 
  1056.              dc.l restd-b1
  1057.              dc.w 16/2
  1058.  
  1059. tymprollp
  1060.         dc.w 1  
  1061.              dc.l tymprolld+104-b1
  1062.              dc.w 11234/2 
  1063.              dc.l restd-b1
  1064.              dc.w 16/2
  1065.  
  1066. tympp
  1067.         dc.w 1  
  1068.              dc.l tymprolld+104+5504-b1
  1069.              dc.w 5730/2 
  1070.              dc.l restd-b1
  1071.              dc.w 16/2
  1072.  
  1073.  
  1074.  
  1075.  
  1076.  
  1077. stringsp
  1078.         dc.w 1  
  1079.              dc.l strings1d+104+3208-b1
  1080.              dc.w 6438/2 
  1081.              dc.l strings1d+104+3208-b1
  1082.              dc.w 6438/2 
  1083.  
  1084. oboep
  1085.         dc.w 1  
  1086.              dc.l oboed+104+300-b1
  1087.              dc.w 10514/2 
  1088.              dc.l oboed+104+4002-b1
  1089.              dc.w 6512/2 
  1090.  
  1091.  
  1092. pizpianop
  1093.         dc.w 1  
  1094.              dc.l pizpianod-b1
  1095.              dc.w 4032/2
  1096.              dc.l restd-b1
  1097.              dc.w 16/2 
  1098.  
  1099. cellop
  1100.         dc.w 1  
  1101.              dc.l cellod+104-b1
  1102.              dc.w 9810/2
  1103.              dc.l restd-b1
  1104.              dc.w 16/2 
  1105.  
  1106. crashp
  1107.         dc.w 1  
  1108.              dc.l crashd+104-b1
  1109.              dc.w 14701/2
  1110.              dc.l restd-b1
  1111.              dc.w 16/2 
  1112.  
  1113. sample1p
  1114.         dc.w 1  
  1115.              dc.l sample1d+104-b1
  1116.              dc.w 65000/2
  1117.              dc.l restd-b1
  1118.              dc.w 16/2 
  1119.  
  1120.  
  1121.  
  1122. sample2ap
  1123.         dc.w 1  
  1124.              dc.l sample2d+104-b1
  1125.              dc.w 65000/2
  1126.              dc.l restd-b1
  1127.              dc.w 16/2 
  1128.  
  1129. sample2bp
  1130.         dc.w 1  
  1131.              dc.l sample2d+104+64000-b1
  1132.              dc.w 65000/2
  1133.              dc.l restd-b1
  1134.              dc.w 16/2 
  1135.  
  1136.  
  1137.  
  1138. ;-----------
  1139.  
  1140. rest_env:            dc.w 0,0,0,0,0,0,0,0,255
  1141.  
  1142. ;**************************************************
  1143.  
  1144. ;;THE FX SAMPLES ARE PULLED IN HERE...THis section can be anywhere
  1145. ;; in lower memory,and in any order
  1146.  
  1147. ebgd            ;incbin c:steel_sky/samples/ebg8.sam 
  1148. ebbbd            ;incbin c:steel_sky/samples/ebbb8.sam 
  1149. cebabd            ;incbin c:steel_sky/samples/cebab8.sam 
  1150. debbbd            ;incbin c:steel_sky/samples/debbb8.sam 
  1151. cebd            ;incbin c:steel_sky/samples/ceb8.sam 
  1152. debd            ;incbin c:steel_sky/samples/deb8.sam 
  1153. acebd            ;incbin c:steel_sky/samples/aceb.sam 
  1154. abcfd            ;incbin c:steel_sky/samples/abcf.sam 
  1155. bbdfbbd            ;incbin c:steel_sky/samples/bbdfbb.sam 
  1156. gcdgd            ;incbin c:steel_sky/samples/gcdg.sam 
  1157. gbdgd            ;incbin c:steel_sky/samples/gbdg.sam 
  1158. ebfabbd            ;incbin c:steel_sky/samples/ebfabb.sam 
  1159. ebfabbbd        ;incbin c:steel_sky/samples/ebfabbb.sam 
  1160. fabbbd            ;incbin c:steel_sky/samples/fabbb.sam 
  1161. egbbcd            ;incbin c:steel_sky/samples/egbbc.sam 
  1162. adbebgbd        ;incbin c:steel_sky/samples/adbebgb.sam 
  1163. acebgbd            ;incbin c:steel_sky/samples/acebgb.sam 
  1164. bbdbd            ;incbin c:steel_sky/samples/bbdb.sam 
  1165. tymprolld        ;incbin c:steel_sky/samples/tymproll.sam 
  1166. sample1d        incbin c:ssig/walkway/sample1
  1167. sample2d        incbin c:ssig/walkway/sample2 
  1168.  
  1169.  
  1170.  
  1171. fluted            ;incbin c:instruments/flute.sam 
  1172. snared            ;incbin c:instruments/snare.sam 
  1173. orchhit8d        ;incbin c:instruments/orchhit8.sam 
  1174. strings1d        ;incbin c:instruments/strings1.sam 
  1175. oboed            ;incbin c:instruments/oboe.sam 
  1176. pizpianod        ;incbin c:instruments/pizpiano.sam 
  1177. cellod            ;incbin c:instruments/cello1.sam 
  1178. crashd            ;incbin c:instruments/crash.sam 
  1179.  
  1180.  
  1181. ;********************************************
  1182.  
  1183.  
  1184. restd:
  1185. rest_data:
  1186.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1187. sined:
  1188. sine_datad:
  1189.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  1190.              dc.w -127,-100,-50,-35,0,35,50,80,127
  1191.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  1192.              dc.w -127,-100,-50,-35,0,35,50,80,127
  1193.  
  1194.  
  1195. ;*************************************************
  1196.  
  1197.  
  1198.  
  1199.     end
  1200.  
  1201.  
  1202.  
  1203.  
  1204.     dc.w modon,1,1,8,8,6,6
  1205.     dc.w pbend,down,1,60000,32
  1206.  
  1207.