home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Steel Sky Amiga Bass Water Data / Lowe_SteelSkyAmigaBassWaterData.adf / sswalter.bak < prev    next >
Encoding:
Text File  |  1978-10-05  |  6.0 KB  |  453 lines
  1.  
  2. develop    equ 1        ;set to zero for assembling data blks
  3.             ;or testing length of current data
  4.             ;set to 1 for music development
  5.  
  6.  
  7.  
  8.     ifne develop
  9.  
  10.     include c:ssig/driver.s
  11.  
  12.     endc
  13.  
  14.     opt p+
  15.             ;STEEL SKY WALTER DATA
  16.  
  17. b1
  18.  
  19.     dc.w    song_table-b1
  20.     dc.w    fxjump_table-b1
  21.  
  22.  
  23.  
  24.     ifeq develop
  25.  
  26.         ;  ALL EQUs
  27.  
  28. a00  equ  508*2
  29. bb00  equ  480*2
  30. b00  equ  453*2
  31.  
  32. c01  equ  428*2
  33. db01  equ  404*2
  34. d01 equ  381*2
  35. eb01  equ  360*2
  36. e01  equ  339*2
  37. f01  equ  320*2
  38. gb01  equ  302*2
  39. g01  equ  285*2
  40. ab01 equ 269*2
  41. a01  equ  508
  42. bb01  equ  480
  43. b01  equ  453
  44.  
  45. c02  equ  428
  46. db02  equ  404
  47. d02  equ  381
  48. eb02  equ  360
  49. e02  equ  339
  50. f02  equ  320
  51. gb02  equ  302
  52. g02  equ  285
  53. ab02 equ 269
  54. a02  equ  254
  55. bb02  equ  240
  56. b02  equ  226
  57.  
  58. c03  equ  214
  59. db03  equ  202
  60. d03  equ  190
  61. eb03  equ  180
  62. e03  equ  170
  63. f03  equ  160
  64. gb03  equ  151
  65. g03  equ  143
  66. ab03 equ 135
  67. a03  equ  127
  68.  
  69. bb03  equ  480*2
  70. b03  equ  453*2
  71.  
  72. c04  equ  428*2
  73. db04  equ  404*2
  74. d04 equ  381*2
  75. eb04  equ  360*2
  76. e04  equ  339*2
  77. f04  equ  320*2
  78. gb04  equ  302*2
  79. g04  equ  285*2
  80. ab04 equ 269*2
  81. a04  equ  508
  82. bb04  equ  480
  83. b04  equ  453
  84.  
  85. c05  equ  428
  86. db05  equ  404
  87. d05  equ  381
  88. eb05  equ  360
  89. e05  equ  339
  90. f05  equ  320
  91. gb05  equ  302
  92. g05  equ  285
  93. ab05 equ 269
  94. a05  equ  254
  95. bb05  equ  240
  96. b05  equ  226
  97.  
  98. c06  equ  214
  99. db06  equ  202
  100. d06  equ  190
  101. eb06  equ  180
  102. e06  equ  170
  103. f06  equ  160
  104. gb06  equ  151
  105. g06  equ  143
  106. ab06 equ 135
  107. a06  equ  127
  108. bb06  equ  480*2
  109. b06  equ  453*2
  110.  
  111. c07  equ  428*2
  112. db07  equ  404*2
  113. d07 equ  381*2
  114. eb07  equ  360*2
  115. e07  equ  339*2
  116. f07  equ  320*2
  117. gb07  equ  302*2
  118. g07  equ  285*2
  119. ab07 equ 269*2
  120. a07  equ  508
  121. bb07  equ  480
  122. b07  equ  453
  123.  
  124. c08  equ  428
  125. db08  equ  404
  126. d08  equ  381
  127. eb08  equ  360
  128. e08  equ  339
  129. f08  equ  320
  130. gb08  equ  302
  131. g08  equ  285
  132. ab08 equ 269
  133. a08  equ  254
  134. bb08  equ  240
  135. b08  equ  226
  136.  
  137.  
  138. v equ 0
  139.  
  140. no_loop equ 0
  141. loop equ 0
  142. chann1reg   equ $dff0a0    
  143. chann2reg   equ $dff0b0
  144. chann3reg   equ $dff0c0
  145. chann4reg   equ $dff0d0
  146. dmacon     equ $dff096
  147. int_bf_int   equ   $dff01e
  148. int_bf_w    equ   $dff09a
  149. vhposr     equ   $dff006
  150. in_line    equ   0
  151. new_snd    equ   4
  152. end_song     equ   1
  153. end_patt    equ   8
  154. new_env    equ   12
  155. pbend     equ   16
  156.  
  157.  
  158.  
  159. hi: equ 223
  160. lo:  equ 446
  161.  
  162. r22    equ 134
  163. r20    equ 179        ;correctum
  164. r19    equ 150
  165. r18    equ 178
  166. r17    equ 200
  167. r16:    equ 227        ;correctum
  168. r15:    equ 249
  169. r14    equ 280
  170. r13:    equ 305
  171. r12:    equ 333
  172. r11:    equ 361
  173. r10:    equ 389
  174. r9:    equ 419
  175. r8:    equ 446
  176. r7:    equ 446+112
  177. r6:    equ 446+223
  178. r5:    equ 446+223+112
  179. r4:    equ 446*2
  180. r3:    equ 446*3
  181. r2:    equ 446*4
  182. r1:    equ 446*8
  183.  
  184.  
  185. filter: equ $bfe001
  186. filter_on equ 44
  187. filter_off equ 48
  188.  
  189. modon     equ   20
  190. pboff     equ   24
  191. modoff     equ   28
  192. rest     equ 32
  193. end_fxp  equ 36
  194. end_fx3  equ 36
  195. end_fx4  equ 40
  196. acc    equ 52
  197. repeat    equ 56
  198. down      equ   1
  199. up       equ   2
  200.  
  201. fx    equ 0
  202.  
  203.     endc
  204.  
  205.     ;"""""""""""""""""""""""""""""""""""""""""""""""""
  206.  
  207. max_songs:    dc.l  3
  208.  
  209.     ;;; DATA
  210.  
  211. song_table:
  212.         dc.l s1_b-b1,s2_b-b1,s3_b-b1,s4_b-b1    ;beach
  213.         dc.l ss1-b1,ss1-b1,ss1-b1,ss1-b1    ;silence
  214.  
  215.  
  216. fxp:
  217.  
  218.  
  219. fxjump_table:  
  220.  
  221. max_fx    dc.l    10    ;number + 1 for test routines only
  222. ;______________________________________________________________________
  223.  
  224.  
  225. ;sstart: dc.l 0,end_song
  226.  
  227. ;pstart: dc.w end_patt
  228.  
  229.  
  230. ;----------------------------------
  231.  
  232. ;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  233.  
  234. cr  set   24
  235. q set  cr/2
  236. sq set q/2
  237. dsq set sq/4
  238.  
  239. tq1 set      7
  240. tq2 set   6
  241. tsq1 set  3
  242. tsq2 set 4
  243.  
  244. ss1:            ;;;;;;silence tune for test only
  245.  
  246.     dc.l    pr-b1
  247.       dc.l     0,end_song
  248.  
  249.  
  250. pr:
  251.     dc.w    new_env
  252.     dc.l    rest_env-b1
  253.     dc.w    c03,cr*4
  254.     dc.w     end_patt
  255.  
  256.  
  257. ;************************************************
  258.  
  259. songs:
  260.  
  261. cr  set   24    ;=112 beats per min
  262. q set  cr/2
  263. sq set q/2
  264. dsq set sq/4
  265.  
  266. tq1 set      9
  267. tq2 set   10
  268. tsq1 set  3
  269. tsq2 set 4
  270.  
  271.  
  272. ;------
  273. s1_b:
  274.  
  275.     dc.l    main_loop-b1
  276.     dc.l    main_loop-b1
  277.     dc.l    main_loop-b1
  278.     dc.l    main_loop-b1
  279.     dc.l    end_bit-b1
  280.     dc.l    pri-b1
  281.  
  282.       dc.l     0,end_song
  283.  
  284. s2_b:
  285.     dc.l    string_snd-b1
  286.     dc.l    main_tune-b1
  287.     dc.l    pri-b1
  288.  
  289.         DC.L    0,end_song
  290.  
  291. s3_b:
  292.  
  293.  
  294.     dc.l    main_loop-b1
  295.     dc.l    main_loop-b1
  296.     dc.l    main_loop-b1
  297.     dc.l    main_loop-b1
  298.     dc.l    end_bit-b1
  299.     dc.l    pri-b1
  300.  
  301.     dc.l     0,end_song
  302.  
  303. s4_b:
  304.  
  305.     dc.l    pri-b1
  306.  
  307.     dc.l     0,end_song
  308.  
  309. ;----------
  310. pri:
  311.     dc.w    rest,65000
  312.     dc.w    rest,65000
  313.     dc.w    rest,65000
  314.     dc.w    rest,65000
  315.     dc.w    rest,65000
  316.     dc.w    rest,65000
  317.     dc.w    rest,65000
  318.     dc.w end_patt
  319.  
  320. vr equ 0
  321. main_loop
  322.     dc.w    new_env
  323.     dc.l    loop_env-b1
  324.  
  325.     dc.w    new_snd
  326.     dc.l    loopp-b1
  327.     dc.w    r16-vr,cr*6
  328.  
  329.     dc.w    end_patt
  330.  
  331. main_tune
  332.     dc.w modon,1,1,4,4,4,4
  333.     dc.w    g01,cr*3,ab01,cr*3,c02,cr*3,d02,cr*3
  334.     dc.w    b01,cr*3,c02,cr+q,g01,cr+q+cr
  335.     dc.w    b01,cr,c02,cr,eb02,cr+q,c02,cr+q
  336.     dc.w    rest,cr
  337.     dc.w    end_patt
  338.  
  339. end_bit
  340.     dc.w    new_env
  341.     dc.l    loop_env-b1
  342.  
  343.     dc.w    new_snd
  344.     dc.l    endp-b1
  345.     dc.w    r16-vr,cr*18
  346.  
  347.     dc.w    end_patt
  348.  
  349.  
  350. ;--------------------
  351.  
  352. sounds:
  353.  
  354.  
  355. string_snd:
  356.     dc.w    new_env
  357.     dc.l    strings_env-b1
  358.     dc.w    new_snd
  359.     dc.l    stringsp-b1
  360.     dc.w     end_patt
  361.  
  362.  
  363.  
  364.  
  365.  
  366. ;***********************************************
  367.  
  368. parameters:
  369.  
  370. iff    equ 108
  371.  
  372.     ; sample parameters
  373.  
  374.  
  375.  
  376. stringsp
  377.         dc.w 1
  378.              dc.l strings1d+104-b1
  379.              dc.w 23572-iff/2 
  380.              dc.l rest_data-b1
  381.              dc.w 16/2 
  382.  
  383.  
  384. loopp:
  385.         dc.w 1  
  386.              dc.l loopd+iff-b1
  387.              dc.w (45736-iff)/2 
  388.              dc.l loopd+iff-b1
  389.              dc.w (45736-iff)/2 
  390.  
  391. endp:
  392.         dc.w 1  
  393.              dc.l endd+iff-b1
  394.              dc.w (64452-iff)/2 
  395.              dc.l rest_data-b1
  396.              dc.w 16/2 
  397.  
  398.  
  399.  
  400. envelopes:
  401.  
  402.  
  403. rest_env:            dc.w 0,0,0,0,0,0,0,0,255
  404. flute_env:            dc.w 0,48,255
  405. strings_env:            dc.w 0,25,255
  406. fhorn_env:            dc.w 0,18,255
  407.  
  408. flute_envq:            dc.w 0,18,255
  409. sine_env_short:            dc.w 0,50,45,40,35,30,25,20,15,10,0,255
  410.  
  411.  
  412. loop_env:            dc.w 0,60,255
  413.  
  414.  
  415. ;**************************************************
  416.  
  417. ;;THE FX SAMPLES ARE PULLED IN HERE...THis section can be anywhere
  418. ;; in lower memory,and in any order
  419.  
  420.  
  421. loopd            incbin c:ssig/walter/loop1.sam
  422. endd            incbin c:ssig/walter/end.sam
  423.  
  424.  
  425. strings1d        incbin c:instruments/big_cello.sam
  426.  
  427.  
  428.  
  429. ;********************************************
  430.  
  431.  
  432. restd:
  433. rest_data:
  434.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  435. sined:
  436. sine_datad:
  437.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  438.              dc.w -127,-100,-50,-35,0,35,50,80,127
  439.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  440.              dc.w -127,-100,-50,-35,0,35,50,80,127
  441.  
  442. endb1
  443. ;*************************************************
  444.  
  445.     end
  446.  
  447.  
  448.  
  449.  
  450.     dc.w modon,1,1,8,8,6,6
  451.     dc.w pbend,down,1,60000,32
  452.  
  453.