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