home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Amiga KQ 6 Levels Data / Lowe_AmigaKQ6LevelsData.adf / death / death.data < prev    next >
Encoding:
Text File  |  2000-01-01  |  4.8 KB  |  341 lines
  1. ;DEATH
  2.         opt p+
  3. b
  4.  
  5.         dc.w    song_table-b
  6.         dc.w    fxjump_table-b
  7.  
  8.  
  9.  
  10.  
  11.  
  12. ;*****************************************
  13.  
  14.  
  15. select_tunes    equ 0        ;for conditional assembly whilst testing
  16.                 ; zero to step tunes on mouse button
  17.                 ; can be deleted..not essential
  18.  
  19.         ;  ALL EQUs
  20.  
  21. a00  equ  508*2
  22. bb00  equ  480*2
  23. b00  equ  453*2
  24.  
  25. c01  equ  428*2
  26. db01  equ  404*2
  27. d01 equ  381*2
  28. eb01  equ  360*2
  29. e01  equ  339*2
  30. f01  equ  320*2
  31. gb01  equ  302*2
  32. g01  equ  285*2
  33. ab01 equ 269*2
  34. a01  equ  508
  35. bb01  equ  480
  36. b01  equ  453
  37.  
  38. c02  equ  428
  39. db02  equ  404
  40. d02  equ  381
  41. eb02  equ  360
  42. e02  equ  339
  43. f02  equ  320
  44. gb02  equ  302
  45. g02  equ  285
  46. ab02 equ 269
  47. a02  equ  254
  48. bb02  equ  240
  49. b02  equ  226
  50.  
  51. c03  equ  214
  52. db03  equ  202
  53. d03  equ  190
  54. eb03  equ  180
  55. e03  equ  170
  56. f03  equ  160
  57. gb03  equ  151
  58. g03  equ  143
  59. ab03 equ 135
  60. a03  equ  127
  61.  
  62. bb03  equ  480*2
  63. b03  equ  453*2
  64.  
  65. c04  equ  428*2
  66. db04  equ  404*2
  67. d04 equ  381*2
  68. eb04  equ  360*2
  69. e04  equ  339*2
  70. f04  equ  320*2
  71. gb04  equ  302*2
  72. g04  equ  285*2
  73. ab04 equ 269*2
  74. a04  equ  508
  75. bb04  equ  480
  76. b04  equ  453
  77.  
  78. c05  equ  428
  79. db05  equ  404
  80. d05  equ  381
  81. eb05  equ  360
  82. e05  equ  339
  83. f05  equ  320
  84. gb05  equ  302
  85. g05  equ  285
  86. ab05 equ 269
  87. a05  equ  254
  88. bb05  equ  240
  89. b05  equ  226
  90.  
  91. c06  equ  214
  92. db06  equ  202
  93. d06  equ  190
  94. eb06  equ  180
  95. e06  equ  170
  96. f06  equ  160
  97. gb06  equ  151
  98. g06  equ  143
  99. ab06 equ 135
  100. a06  equ  127
  101. bb06  equ  480*2
  102. b06  equ  453*2
  103.  
  104. c07  equ  428*2
  105. db07  equ  404*2
  106. d07 equ  381*2
  107. eb07  equ  360*2
  108. e07  equ  339*2
  109. f07  equ  320*2
  110. gb07  equ  302*2
  111. g07  equ  285*2
  112. ab07 equ 269*2
  113. a07  equ  508
  114. bb07  equ  480
  115. b07  equ  453
  116.  
  117. c08  equ  428
  118. db08  equ  404
  119. d08  equ  381
  120. eb08  equ  360
  121. e08  equ  339
  122. f08  equ  320
  123. gb08  equ  302
  124. g08  equ  285
  125. ab08 equ 269
  126. a08  equ  254
  127. bb08  equ  240
  128. b08  equ  226
  129.  
  130.  
  131. v equ 0
  132.  
  133. no_loop equ 0
  134. loop equ 0
  135. chann1reg   equ $dff0a0    
  136. chann2reg   equ $dff0b0
  137. chann3reg   equ $dff0c0
  138. chann4reg   equ $dff0d0
  139. dmacon     equ $dff096
  140. int_bf_int   equ   $dff01e
  141. int_bf_w    equ   $dff09a
  142. vhposr     equ   $dff006
  143. in_line    equ   0
  144. new_snd    equ   4
  145. end_song     equ   1
  146. end_patt    equ   8
  147. new_env    equ   12
  148. pbend     equ   16
  149.  
  150.  
  151.  
  152. hi: equ 223
  153. lo:  equ 446
  154.  
  155. r22    equ 134
  156. r20    equ 179        ;correctum
  157. r19    equ 150
  158. r18    equ 178
  159. r17    equ 200
  160. r16:    equ 227        ;correctum
  161. r15:    equ 249
  162. r14    equ 280
  163. r13:    equ 305
  164. r12:    equ 333
  165. r11:    equ 361
  166. r10:    equ 389
  167. r9:    equ 419
  168. r8:    equ 446
  169. r7:    equ 446+112
  170. r6:    equ 446+223
  171. r5:    equ 446+223+112
  172. r4:    equ 446*2
  173. r3:    equ 446*3
  174. r2:    equ 446*4
  175. r1:    equ 446*8
  176.  
  177.  
  178. filter: equ $bfe001
  179. filter_on equ 44
  180. filter_off equ 48
  181.  
  182. modon     equ   20
  183. pboff     equ   24
  184. modoff     equ   28
  185. rest     equ 32
  186. end_fxp  equ 36
  187. end_fx3  equ 36
  188. end_fx4  equ 40
  189. acc    equ 52
  190. repeat    equ 56
  191. down      equ   1
  192. up       equ   2
  193.  
  194. fx    equ 0
  195.  
  196.  
  197.  
  198. ;**************************************************************************
  199. ;**************************************************************************
  200.  
  201.  
  202.     ;"""""""""""""""""""""""""""""""""""""""""""""""""
  203.         ;DATA HERE
  204.  
  205.  
  206.     ;"""""""""""""""""""""""""""""""""""""""""""""""""
  207.  
  208.     ;;; DATA
  209.  
  210.  
  211. max_songs    dc.l    2
  212.  
  213. song_table:
  214.  
  215.         dc.l s1_d-b,s2_d-b,s3_d-b,s4_d-b    ;death
  216.  
  217.  
  218. ;************************************************************
  219.  
  220. ;       THESE ARE THE FX PATTERNS................
  221.  
  222. ; The interrupt counter in these patterns is dependent on the
  223. ; playback speed.The figure is calculated as follows
  224. ; (length/playback speed) *50
  225. ; the figure then needs rounding up to give a clear finish
  226. ; if you have the count longer than needed it will cut
  227. ; out the music on the relevent channel for longer than
  228. ; neccessary and make it sound jerky
  229. ; The fx table is below the patterns
  230.  
  231.  
  232. ;fight:
  233.       ;dc.w new_env
  234.       ;dc.l fight_env
  235.       ;dc.w new_snd
  236.       ;dc.l fightp
  237.     ;dc.w r8,8        ;r8=8000 playback speed/8=int counter
  238.       ;dc.w end_fxp
  239.  
  240. ;fight_env:            dc.w 0,64,64,64,255
  241.  
  242. ;*************************
  243.  
  244.  
  245. fxjump_table:  
  246.  
  247.     dc.l 0        ;fx number 1
  248.  
  249. max_fx    dc.l    30
  250. ;______________________________________________________________________
  251.  
  252.  
  253. sstart: dc.l 0,end_song
  254.  
  255. pstart: dc.w end_patt
  256.  
  257.  
  258. ;----------------------------------
  259.  
  260. ;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  261.  
  262. cr  set   32
  263. q set  cr/2
  264. sq set q/2
  265. dsq set sq/4
  266.  
  267. tq1 set      7
  268. tq2 set   6
  269. tsq1 set  3
  270. tsq2 set 4
  271.  
  272. ssilence:
  273.     dc.l    pr-b
  274.       dc.l     0,end_song
  275.  
  276.  
  277. ;************************************************
  278.  
  279.  
  280. patterns:
  281.  
  282. pr:
  283.     dc.w rest,cr*4
  284.     dc.w end_patt
  285.  
  286. cp:
  287.  
  288. pri
  289.     dc.w    rest,65000
  290.     dc.w    rest,65000
  291.     dc.w    rest,65000
  292.     dc.w    rest,65000
  293.     dc.w    rest,65000
  294.     dc.w     end_patt
  295.  
  296.  
  297.  
  298. ;----------------
  299.         ;DEATH MUSIC
  300.  
  301. cr  set   32
  302. q set  cr/2
  303. sq set q/2
  304. dsq set sq/4
  305.  
  306. tcr1 set  0
  307. tq1 set      11
  308. tq2 set      10
  309. tsq1 set  5
  310. tsq2 set  6
  311.  
  312.  
  313.  
  314. s1_d:
  315.     dc.l    flute_snd-b
  316.     dc.l    death_strings-b
  317.     dc.l    pri-b
  318.       dc.l     0,end_song
  319.  
  320. s2_d:
  321.     dc.l    trumpet_snd-b
  322.     dc.l    death_bass-b
  323.     dc.l    pri-b
  324.       dc.l     0,end_song
  325.  
  326.  
  327. s3_d:
  328.  
  329.     dc.l    trumpet_snd-b
  330.     dc.l    death_tune-b
  331.     dc.l    pri-b
  332.       dc.l     0,end_song
  333.  
  334.  
  335. s4_d:
  336.     dc.l    abass_snd-b
  337.     dc.l    death_bass2-b
  338.     dc.l    pri-b
  339.       dc.l     0,end_song
  340.  
  341. ;--