home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Amiga KQ 6 Levels Data / Lowe_AmigaKQ6LevelsData.adf / death / data.blk next >
Encoding:
Text File  |  1978-08-04  |  10.9 KB  |  662 lines
  1.     ;"""""""""""""""""""""""""""""""""""""""""""""""""
  2.  
  3.     ;;; DATA
  4.  
  5.  
  6. max_songs    dc.l    2
  7.  
  8. song_table:
  9.  
  10.         dc.l s1_d,s2_d,s3_d,s4_d    ;death
  11.         dc.l ssilence,ssilence,ssilence,ssilence
  12.  
  13.  
  14. ;************************************************************
  15. gvars:
  16. ch1vars     
  17.     dc.w 0     
  18.         dc.w 0,0,0,0,0,0,0,0,0,0     
  19. pattr1: dc.l 0    
  20. songr1: dc.l 0    
  21. wsong1: dc.l 0   
  22.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  23.  
  24. ch2vars     
  25.     dc.w 0     
  26.         dc.w 0,0,0,0,0,0,0,0,0,0     
  27. pattr2: dc.l 0    
  28. songr2: dc.l 0    
  29. wsong2: dc.l 0    
  30.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  31.  
  32. ch3vars 
  33.     dc.w 0     
  34.         dc.w 0,0,0,0,0,0,0,0,0,0     
  35. pattr3: dc.l 0    
  36. songr3: dc.l 0    
  37. wsong3: dc.l 0    
  38.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  39.  
  40. ch4vars 
  41.     dc.w 0     
  42.         dc.w 0,0,0,0,0,0,0,0,0,0     
  43. pattr4: dc.l 0    
  44. songr4: dc.l 0    
  45. wsong4: dc.l 0    
  46.         dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0   
  47.  
  48.  
  49. ch1fxvars 
  50.     dc.w 0     
  51. fxintc1:
  52.     dc.w 0,0,0,0,0,0,0,0,0,0     
  53. currfx1:
  54.     dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0    
  55.  
  56. ch2fxvars 
  57.     dc.w 0     
  58. fxintc2:
  59.     dc.w 0,0,0,0,0,0,0,0,0,0     
  60. currfx2:
  61.     dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0    
  62.  
  63.  
  64. ch3fxvars
  65.     dc.w 0     
  66. fxintc3:
  67.     dc.w 0,0,0,0,0,0,0,0,0,0     
  68. currfx3:
  69.     dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0    
  70.  
  71. ch4fxvars 
  72.     dc.w 0     
  73. fxintc4:
  74.     dc.w 0,0,0,0,0,0,0,0,0,0     
  75. currfx4:
  76.     dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0    
  77. ;************************************************************
  78.  
  79. dummy_reg dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  80.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  81.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  82.         dc.l  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  83. ;************************************************************
  84.  
  85. ;       THESE ARE THE FX PATTERNS................
  86.  
  87. ; The interrupt counter in these patterns is dependent on the
  88. ; playback speed.The figure is calculated as follows
  89. ; (length/playback speed) *50
  90. ; the figure then needs rounding up to give a clear finish
  91. ; if you have the count longer than needed it will cut
  92. ; out the music on the relevent channel for longer than
  93. ; neccessary and make it sound jerky
  94. ; The fx table is below the patterns
  95.  
  96.  
  97. ;fight:
  98.       ;dc.w new_env
  99.       ;dc.l fight_env
  100.       ;dc.w new_snd
  101.       ;dc.l fightp
  102.     ;dc.w r8,8        ;r8=8000 playback speed/8=int counter
  103.       ;dc.w end_fxp
  104.  
  105. ;fight_env:            dc.w 0,64,64,64,255
  106.  
  107. ;*************************
  108.  
  109.  
  110. fxjump_table:  
  111.  
  112.     dc.l 0            ;fx number 1
  113.  
  114. max_fx    dc.l    30
  115. ;______________________________________________________________________
  116.  
  117.  
  118. sstart: dc.l 0,end_song
  119.  
  120. pstart: dc.w end_patt
  121.  
  122.  
  123. ;----------------------------------
  124.  
  125. ;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  126.  
  127. cr  set   32
  128. q set  cr/2
  129. sq set q/2
  130. dsq set sq/4
  131.  
  132. tq1 set      7
  133. tq2 set   6
  134. tsq1 set  3
  135. tsq2 set 4
  136.  
  137. ssilence:
  138.     dc.l    pr
  139.       dc.l     0,end_song
  140.  
  141.  
  142. ;************************************************
  143.  
  144.  
  145. patterns:
  146.  
  147. pr:
  148.     dc.w rest,cr*4
  149.     dc.w end_patt
  150.  
  151. cp:
  152.  
  153. pri
  154.     dc.w    rest,65000
  155.     dc.w    rest,65000
  156.     dc.w    rest,65000
  157.     dc.w    rest,65000
  158.     dc.w    rest,65000
  159.     dc.w     end_patt
  160.  
  161.  
  162.  
  163. ;----------------
  164.         ;DEATH MUSIC
  165.  
  166. cr  set   32
  167. q set  cr/2
  168. sq set q/2
  169. dsq set sq/4
  170.  
  171. tcr1 set  0
  172. tq1 set      11
  173. tq2 set      10
  174. tsq1 set  5
  175. tsq2 set  6
  176.  
  177.  
  178.  
  179. s1_d:
  180.     dc.l    flute_snd
  181.     dc.l    death_strings
  182.     dc.l    pri
  183.       dc.l     0,end_song
  184.  
  185. s2_d:
  186.     dc.l    trumpet_snd
  187.     dc.l    death_bass
  188.     dc.l    pri
  189.       dc.l     0,end_song
  190.  
  191.  
  192. s3_d:
  193.  
  194.     dc.l    trumpet_snd
  195.     dc.l    death_tune
  196.     dc.l    pri
  197.       dc.l     0,end_song
  198.  
  199.  
  200. s4_d:
  201.     dc.l    abass_snd
  202.     dc.l    death_bass2
  203.     dc.l    pri
  204.       dc.l     0,end_song
  205.  
  206. ;----------
  207.  
  208. death_strings:
  209.     dc.w c03,$0004,bb02,$0004,ab02,$0004,g02,$0004,f02,$0004
  210.     dc.w eb02,$0004,d02,$0004,db02,$0004
  211.     dc.w c02,cr
  212.     dc.w d02,$0004
  213.     dc.w eb02,$0004,f02,$0004,g02,$0004,a02,$0004,b02,$0004
  214.     dc.w c03,$0004,bb02,$0004,ab02,$0004,g02,$0004,ab02,$0004
  215.     dc.w g02,$0004,f02,$0004,eb02,$0004,f02,$0004,eb02,$0004
  216.     dc.w d02,$0004
  217.     dc.w eb02,$0004,f02,$0004,g02,$0004,a02,$0004,b02,$0004
  218.     dc.w eb02,4,c03,4
  219.     dc.w eb02,cr
  220.     dc.w d02,$0004
  221.     dc.w eb02,$0004,f02,$0004,g02,$0004,a02,$0004,b02,$0004
  222.     dc.w c03,$0004,bb02,$0004,ab02,$0004,g02,$0004,ab02,$0004
  223.     dc.w g02,$0004,f02,$0004,eb02,$0004,f02,$0004,eb02,$0004
  224.     dc.w d02,$0004
  225.     dc.w eb02,$0004,f02,$0004,g02,$0004,a02,$0004,b02,$0004
  226.     dc.w eb02,4,c03,4
  227.     dc.w    f02,cr*2,g02,cr*2,eb03,cr*4
  228.     dc.w end_patt
  229.  
  230. death_bass:
  231.     dc.w rest,cr,c01,$0080,ab01,$0080,f01,$0040,g01,$0040
  232.     dc.w g02,cr*4 
  233.     dc.w end_patt
  234.  
  235. death_tune:
  236.     dc.w    rest,cr
  237.     dc.w c02,cr*3,c02,tq1,eb02,tq2,g02,tq1,c03,cr*3
  238.     dc.w c02,tq1,eb02,tq2,g02,tq1,c03,cr,b02,tq1,c03,tq2,d03,tq1+dsq+cr
  239.     dc.w eb03,cr,c03,cr*4
  240.     dc.w end_patt
  241.  
  242. death_bass2:
  243.     dc.w rest,cr
  244.     dc.w c02,cr,c02,cr,c02,cr,c02,cr
  245.     dc.w c02,cr,c02,cr,c02,cr,c02,cr
  246.     dc.w c02,cr,c02,cr,g02,cr*2
  247.     dc.w    new_env
  248.     dc.l    snare_env
  249.     dc.w    new_snd
  250.     dc.l    snarep
  251.  
  252.  
  253.     dc.w 4000,cr*4
  254.     dc.w end_patt
  255.  
  256.  
  257.  
  258.  
  259. ;-----------------
  260.  
  261. sounds:
  262.  
  263. flute_snd:
  264.     dc.w    new_env
  265.     dc.l    flute_env
  266.     dc.w    new_snd
  267.     dc.l    flutep
  268.     dc.w     end_patt
  269.  
  270. flute_sndq:
  271.     dc.w    new_env
  272.     dc.l    flute_envq
  273.     dc.w    new_snd
  274.     dc.l    flutep
  275.     dc.w     end_patt
  276.  
  277. flute_sndmq:
  278.     dc.w    new_env
  279.     dc.l    flute_envmq
  280.     dc.w    new_snd
  281.     dc.l    flutep
  282.     dc.w     end_patt
  283.  
  284.  
  285. aguitar_snd:
  286.     dc.w    new_env
  287.     dc.l    aguitar_env
  288.     dc.w    new_snd
  289.     dc.l    aguitp
  290.     dc.w     end_patt
  291.  
  292. aguitar_sndq:
  293. aguitar_snd_quiet:
  294.     dc.w    new_env
  295.     dc.l    aguitar_env_quiet
  296.     dc.w    new_snd
  297.     dc.l    aguitp
  298.     dc.w     end_patt
  299.  
  300.  
  301. tamb_snd:
  302.     dc.w    new_env
  303.     dc.l    tamb_env
  304.     dc.w    new_snd
  305.     dc.l    tambp
  306.     dc.w     end_patt
  307.  
  308.  
  309.  
  310. abass_snd:
  311.     dc.w    new_env
  312.     dc.l    abass_env
  313.     dc.w    new_snd
  314.     dc.l    abassp
  315.     dc.w     end_patt
  316.  
  317. sitar_snd:
  318.     dc.w    new_env
  319.     dc.l    sitar_env
  320.     dc.w    new_snd
  321.     dc.l    sitarp
  322.     dc.w     end_patt
  323.  
  324. bassoon_snd:
  325.     dc.w    new_env
  326.     dc.l    bassoon_env
  327.     dc.w    new_snd
  328.     dc.l    bassoonp
  329.     dc.w     end_patt
  330.  
  331. bassoon_snd_short:
  332.     dc.w    new_env
  333.     dc.l    bassoon_env
  334.     dc.w    new_snd
  335.     dc.l    bassoonsp
  336.     dc.w     end_patt
  337.  
  338. snare_snd:
  339.     dc.w    new_env
  340.     dc.l    snare_env
  341.     dc.w    new_snd
  342.     dc.l    snarep
  343.     dc.w     end_patt
  344.  
  345. snare_sndq:
  346.     dc.w    new_env
  347.     dc.l    snare_envq
  348.     dc.w    new_snd
  349.     dc.l    snarep
  350.     dc.w     end_patt
  351.  
  352. trumpet_snd:
  353.     dc.w    new_env
  354.     dc.l    trumpet_env
  355.     dc.w    new_snd
  356.     dc.l    trumpetp
  357.     dc.w     end_patt
  358.  
  359. trumpet_sndq:
  360.     dc.w    new_env
  361.     dc.l    trumpet_envq
  362.     dc.w    new_snd
  363.     dc.l    trumpetp
  364.     dc.w     end_patt
  365.  
  366. pizzo_snd:
  367.     dc.w    new_env
  368.     dc.l    pizzo_env
  369.     dc.w    new_snd
  370.     dc.l    pizzop
  371.     dc.w     end_patt
  372.  
  373. pizzoh_snd:
  374.     dc.w    new_env
  375.     dc.l    pizzo_env
  376.     dc.w    new_snd
  377.     dc.l    pizzohp
  378.     dc.w     end_patt
  379.  
  380.  
  381. fhorn_snd:
  382.     dc.w    new_env
  383.     dc.l    fhorn_env
  384.     dc.w    new_snd
  385.     dc.l    fhornp
  386.     dc.w     end_patt
  387.  
  388. fhorn_sndq:
  389.     dc.w    new_env
  390.     dc.l    fhorn_envq
  391.     dc.w    new_snd
  392.     dc.l    fhornp
  393.     dc.w     end_patt
  394.  
  395.  
  396.  
  397. strings_snd:
  398.     dc.w    new_env
  399.     dc.l    strings_env
  400.     dc.w    new_snd
  401.     dc.l    stringsp
  402.     dc.w     end_patt
  403.  
  404. tymp_snd:
  405.     dc.w    new_env
  406.     dc.l    tymp_env
  407.     dc.w    new_snd
  408.     dc.l    tympp
  409.     dc.w     end_patt
  410.  
  411. taiko_snd:
  412.     dc.w    new_env
  413.     dc.l    taiko_env
  414.     dc.w    new_snd
  415.     dc.l    taikop
  416.     dc.w     end_patt
  417.  
  418.  
  419. monk_snd:
  420.     dc.w    new_env
  421.     dc.l    monk_env
  422.     dc.w    new_snd
  423.     dc.l    monkp
  424.     dc.w     end_patt
  425.  
  426. wave_snd:
  427.     dc.w    new_env
  428.     dc.l    wave_envq
  429.     dc.w    new_snd
  430.     dc.l    wavep
  431.     dc.w     end_patt
  432.  
  433.  
  434.  
  435.  
  436. ;***********************************************
  437.  
  438. parameters:
  439.  
  440. iff    equ 108
  441.  
  442.     ; sample parameters
  443.  
  444.  
  445. snarep
  446.         dc.w 1  
  447.              dc.l snared
  448.              dc.w 2240/2  
  449.              dc.l restd
  450.              dc.w 16/2
  451.  
  452.  
  453. trumpetp
  454.         dc.w 1  
  455.              dc.l synbras1d
  456.              dc.w 3338/2  
  457.              dc.l synbras1d
  458.              dc.w 3338/2  
  459.  
  460. abassp
  461.         dc.w 1  
  462.              dc.l abassd+iff
  463.              dc.w 8000/2 
  464.              dc.l restd
  465.              dc.w 16/2
  466.  
  467. flutep
  468.         dc.w 1  
  469.              dc.l fluted+iff
  470.              dc.w 7278/2
  471.              dc.l fluted+4173+iff
  472.              dc.w 3106/2
  473.  
  474. tambp
  475.         dc.w 1  
  476.              dc.l tambd
  477.              dc.w 1457/2 
  478.              dc.l restd
  479.              dc.w 16/2
  480.  
  481. sitarp
  482.         dc.w 1  
  483.              dc.l sitard
  484.              dc.w 7708/2 
  485.              dc.l restd
  486.              dc.w 16/2
  487.  
  488. aguitp
  489.         dc.w 1  
  490.              dc.l aguitd+iff
  491.              dc.w 9576/2 
  492.              dc.l restd
  493.              dc.w 16/2
  494.  
  495. bassoonlp
  496.         dc.w 1  
  497.              dc.l bassoond+iff
  498.              dc.w 4788/2 
  499.              dc.l bassoond+iff+2033
  500.              dc.w 2755/2
  501.  
  502.  
  503. bassoonp
  504.         dc.w 1  
  505.              dc.l bassoond+iff
  506.              dc.w 4788/2 
  507.              dc.l restd
  508.              dc.w 16/2
  509.  
  510. bassoonsp
  511.         dc.w 1  
  512.              dc.l bassoond+iff
  513.              dc.w 4788/2-1000 
  514.              dc.l restd
  515.              dc.w 16/2
  516.  
  517. pizzop:
  518.         dc.w 1  
  519.              dc.l pizzod
  520.              dc.w 5550/2 
  521.              dc.l restd
  522.              dc.w 16/2
  523.  
  524. pizzohp:
  525.         dc.w 1  
  526.              dc.l pizzohd
  527.              dc.w 3796/2 
  528.              dc.l restd
  529.              dc.w 16/2
  530.  
  531. fhornp:
  532.         dc.w 1  
  533.              dc.l fhornd+iff
  534.              dc.w (6684-iff)/2 
  535.              dc.l fhornd+iff
  536.              dc.w (6684-iff)/2
  537.  
  538. stringsp:
  539.         dc.w 1  
  540.              dc.l stringsd
  541.              dc.w (8668)/2 
  542.              dc.l restd
  543.              dc.w 16/2
  544.  
  545. tympp:
  546.         dc.w 1  
  547.              dc.l tympd
  548.              dc.w 7378/2 
  549.              dc.l restd
  550.              dc.w 16/2
  551.  
  552. taikop:
  553.         dc.w 1  
  554.              dc.l taikod+iff
  555.              dc.w (4118-iff)/2 
  556.              dc.l restd
  557.              dc.w 16/2
  558.  
  559. monkp:
  560.         dc.w 1  
  561.              dc.l monkd+iff
  562.              dc.w (6290-iff)/2 
  563.              dc.l restd
  564.              dc.w 16/2
  565.  
  566. wavep:
  567.         dc.w 1  
  568.              dc.l waved+iff
  569.              dc.w (9094-iff)/2 
  570.              dc.l restd
  571.              dc.w 16/2
  572.  
  573.  
  574.  
  575.  
  576. envelopes:
  577.  
  578.  
  579. rest_env:            dc.w 0,0,0,0,0,0,0,0,255
  580. flute_env:            dc.w 0,32,255
  581. tymp_env:            dc.w 0,48,255
  582. flute_envq:            dc.w 0,8,255
  583. flute_envmq:            dc.w 0,18,255
  584. tamb_env:            dc.w 0,62,255
  585. aguitar_env:            dc.w 0,45,255
  586. aguitar_env_quiet:        dc.w 0,30,255
  587. sitar_env:            dc.w 0,42,255
  588. abass_env:            dc.w 0,54,255
  589. snare_env:            dc.w 0,35,255
  590. snare_envq:            dc.w 0,15,255
  591. trumpet_env:            dc.w 0,35,255
  592. trumpet_envq:            dc.w 0,25,255
  593. bassoon_env:            dc.w 0,40,255
  594. pizzo_env:            dc.w 0,35,255
  595. fhorn_env:            dc.w 0,40,255
  596. fhorn_envq:            dc.w 0,28,255
  597. strings_env:            dc.w 0,48,255
  598. taiko_env:            dc.w 0,38,255
  599. taiko_envq:            dc.w 0,38,255
  600. bird2_env:            dc.w 0,28,255
  601. bird_env:            dc.w 0,18,255
  602. monk_env:            dc.w 0,38,255
  603. wave_env:            dc.w 0,38,255
  604. wave_envq:            dc.w 0,18,255
  605.  
  606.  
  607.  
  608. ;guit.sam                    6191 rwed Today     01:27:11
  609. ;tamb.sam                    1457 rwed Today     01:27:10
  610. ;flute.sam                   8410 rwed Today     01:27:08
  611. ;sitar.sam                   8993 rwed Today     01:27:07
  612. ;bass.sam                    8583 rwed Today     01:27:05
  613. ;7 files - 207 blocks used
  614.  
  615. ;**************************************************
  616.  
  617.  
  618. aguitd            ;incbin c:instruments/aguit.sam 
  619. tambd            ;incbin c:instruments/tamb.sam 
  620. fluted            incbin c:instruments/flute.sam 
  621. sitard            ;incbin c:instruments/sitar.sam 
  622. abassd            incbin c:instruments/abass.sam 
  623. snared            incbin c:instruments/snare.sam 
  624. synbras1d        incbin c:instruments/hbrass3l.sam 
  625. bassoond        ;incbin c:instruments/bassoonl.sam 
  626. pizzod            ;incbin c:instruments/pizzo1.sam 
  627. pizzohd            ;incbin c:instruments/pizzo2.sam 
  628.  
  629. fhornd            ;incbin c:instruments/fhorn.sam 
  630. stringsd        ;incbin c:instruments/strings2.sam
  631. tympd            ;incbin c:instruments/tymp1.sam
  632. taikod            ;incbin c:instruments/taiko.sam
  633. monkd            ;incbin c:instruments/monk.sam
  634. waved            ;incbin c:instruments/wave.sam
  635.  
  636.  
  637. ;********************************************
  638.  
  639. ;;THE FX SAMPLES ARE PULLED IN HERE...THis section can be anywhere
  640. ;; in lower memory,and in any order
  641.  
  642.  
  643.  
  644.  
  645.  
  646.  
  647. ;***********************
  648.  
  649. restd:
  650. rest_data:
  651.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  652.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  653.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  654.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  655. sined:
  656. sine_datad:
  657.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  658.              dc.w -127,-100,-50,-35,0,35,50,80,127
  659.  
  660.  
  661. ;*************************************************
  662.