home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Kings Quest Backup 2 / Lowe_KingsQuestBackup2.adf / castle_beauty / data.blk next >
Encoding:
Text File  |  1978-08-04  |  21.1 KB  |  1,344 lines
  1. b
  2.  
  3.     opt p+
  4.  
  5.  
  6.     dc.w    song_table-b    
  7.     dc.w    fxjump_table-b
  8.  
  9.  
  10.  
  11.         ;  ALL EQUs
  12.  
  13. a00  equ  508*2
  14. bb00  equ  480*2
  15. b00  equ  453*2
  16.  
  17. c01  equ  428*2
  18. db01  equ  404*2
  19. d01 equ  381*2
  20. eb01  equ  360*2
  21. e01  equ  339*2
  22. f01  equ  320*2
  23. gb01  equ  302*2
  24. g01  equ  285*2
  25. ab01 equ 269*2
  26. a01  equ  508
  27. bb01  equ  480
  28. b01  equ  453
  29.  
  30. c02  equ  428
  31. db02  equ  404
  32. d02  equ  381
  33. eb02  equ  360
  34. e02  equ  339
  35. f02  equ  320
  36. gb02  equ  302
  37. g02  equ  285
  38. ab02 equ 269
  39. a02  equ  254
  40. bb02  equ  240
  41. b02  equ  226
  42.  
  43. c03  equ  214
  44. db03  equ  202
  45. d03  equ  190
  46. eb03  equ  180
  47. e03  equ  170
  48. f03  equ  160
  49. gb03  equ  151
  50. g03  equ  143
  51. ab03 equ 135
  52. a03  equ  127
  53.  
  54. bb03  equ  480*2
  55. b03  equ  453*2
  56.  
  57. c04  equ  428*2
  58. db04  equ  404*2
  59. d04 equ  381*2
  60. eb04  equ  360*2
  61. e04  equ  339*2
  62. f04  equ  320*2
  63. gb04  equ  302*2
  64. g04  equ  285*2
  65. ab04 equ 269*2
  66. a04  equ  508
  67. bb04  equ  480
  68. b04  equ  453
  69.  
  70. c05  equ  428
  71. db05  equ  404
  72. d05  equ  381
  73. eb05  equ  360
  74. e05  equ  339
  75. f05  equ  320
  76. gb05  equ  302
  77. g05  equ  285
  78. ab05 equ 269
  79. a05  equ  254
  80. bb05  equ  240
  81. b05  equ  226
  82.  
  83. c06  equ  214
  84. db06  equ  202
  85. d06  equ  190
  86. eb06  equ  180
  87. e06  equ  170
  88. f06  equ  160
  89. gb06  equ  151
  90. g06  equ  143
  91. ab06 equ 135
  92. a06  equ  127
  93. bb06  equ  480*2
  94. b06  equ  453*2
  95.  
  96. c07  equ  428*2
  97. db07  equ  404*2
  98. d07 equ  381*2
  99. eb07  equ  360*2
  100. e07  equ  339*2
  101. f07  equ  320*2
  102. gb07  equ  302*2
  103. g07  equ  285*2
  104. ab07 equ 269*2
  105. a07  equ  508
  106. bb07  equ  480
  107. b07  equ  453
  108.  
  109. c08  equ  428
  110. db08  equ  404
  111. d08  equ  381
  112. eb08  equ  360
  113. e08  equ  339
  114. f08  equ  320
  115. gb08  equ  302
  116. g08  equ  285
  117. ab08 equ 269
  118. a08  equ  254
  119. bb08  equ  240
  120. b08  equ  226
  121.  
  122.  
  123. v equ 0
  124.  
  125. no_loop equ 0
  126. loop equ 0
  127. chann1reg   equ $dff0a0    
  128. chann2reg   equ $dff0b0
  129. chann3reg   equ $dff0c0
  130. chann4reg   equ $dff0d0
  131. dmacon     equ $dff096
  132. int_bf_int   equ   $dff01e
  133. int_bf_w    equ   $dff09a
  134. vhposr     equ   $dff006
  135. in_line    equ   0
  136. new_snd    equ   4
  137. end_song     equ   1
  138. end_patt    equ   8
  139. new_env    equ   12
  140. pbend     equ   16
  141.  
  142.  
  143.  
  144. hi: equ 223
  145. lo:  equ 446
  146.  
  147. r22    equ 134
  148. r20    equ 179        ;correctum
  149. r19    equ 150
  150. r18    equ 178
  151. r17    equ 200
  152. r16:    equ 227        ;correctum
  153. r15:    equ 249
  154. r14    equ 280
  155. r13:    equ 305
  156. r12:    equ 333
  157. r11:    equ 361
  158. r10:    equ 389
  159. r9:    equ 419
  160. r8:    equ 446
  161. r7:    equ 446+112
  162. r6:    equ 446+223
  163. r5:    equ 446+223+112
  164. r4:    equ 446*2
  165. r3:    equ 446*3
  166. r2:    equ 446*4
  167. r1:    equ 446*8
  168.  
  169.  
  170. filter: equ $bfe001
  171. filter_on equ 44
  172. filter_off equ 48
  173.  
  174. modon     equ   20
  175. pboff     equ   24
  176. modoff     equ   28
  177. rest     equ 32
  178. end_fxp  equ 36
  179. end_fx3  equ 36
  180. end_fx4  equ 40
  181. acc    equ 52
  182. repeat    equ 56
  183. down      equ   1
  184. up       equ   2
  185.  
  186. fx    equ 0
  187.  
  188.  
  189.  
  190.     ;"""""""""""""""""""""""""""""""""""""""""""""""""
  191.         ;DATA HERE
  192. ;------------
  193.  
  194.  
  195.     ;;; DATA
  196.  
  197.  
  198. max_songs    dc.l    12
  199.  
  200. song_table:
  201.  
  202.         dc.l    s1_c-b,s2_c-b,s3_c-b,s4_c-b    ;inside castle tune
  203.         dc.l    s1_wed-b,s2_wed-b,s3_wed-b,s4_wed-b    ;wedding march happy
  204.         dc.l    s1_wedx-b,s2_wedx-b,s3_wedx-b,s4_wedx-b    ;wedding march sad
  205.         dc.l    s1_gd-b,s2_gd-b,s3_gd-b,s4_gd-b    ;guard dogs
  206.         dc.l    s1_d-b,s2_d-b,s3_d-b,s4_d-b    ;locked in dungeon inset
  207.         dc.l     s1_n-b,s2_n-b,s3_n-b,s4_n-b    ;nightingale
  208.         dc.l     s1_fl-b,s2_fl-b,s3_fl-b,s4_fl-b    ;alexanders flute
  209.  
  210.  
  211. ;************************************************************
  212.  
  213.  
  214. sstart: dc.l 0,end_song
  215.  
  216. pstart: dc.w end_patt
  217.  
  218.  
  219. ;----------------------------------
  220. fxp:
  221.  
  222. danger:
  223.       dc.w new_env
  224.       dc.l danger_env-b
  225.       dc.w new_snd
  226.       dc.l sinep-b
  227. danger_loop:
  228.     dc.w r16,4,r16,4,r16,4,r16,4
  229.     dc.w repeat
  230. xl    dc.l danger_loop-b
  231.       dc.w end_fxp
  232.  
  233. danger_env:            dc.w 0,35,28,25,20,15,10,0,255
  234.  
  235. score1
  236.       dc.w new_env
  237.       dc.l score_env1-b
  238.       dc.w new_snd
  239.       dc.l sinep-b
  240.     dc.w modon,1,1,2,2,1,1
  241.     dc.w 130,50
  242.       dc.w end_fxp
  243.  
  244.  
  245. score2
  246.       dc.w new_env
  247.       dc.l score_envs-b
  248.       dc.w new_snd
  249.       dc.l sinep-b
  250.     dc.w modon,1,1,1,1,1,1
  251.     dc.w    a03,5,a02,5
  252.       dc.w new_env
  253.       dc.l score_env2-b
  254.     dc.w e03,50
  255.       dc.w end_fxp
  256.  
  257. score3
  258.       dc.w new_env
  259.       dc.l score_envs-b
  260.       dc.w new_snd
  261.       dc.l sinep-b
  262.     dc.w modon,1,1,1,1,1,1
  263.     dc.w    a03,4,a02,4
  264.     dc.w    a03,4,a02,4
  265.       dc.w new_env
  266.       dc.l score_env2-b
  267.     dc.w e03,50
  268.       dc.w end_fxp
  269.  
  270. score4
  271.       dc.w new_env
  272.       dc.l score_envs-b
  273.       dc.w new_snd
  274.       dc.l sinep-b
  275.     dc.w modon,1,1,1,1,1,1
  276.     dc.w    c03,4,d03,4
  277.     dc.w    e03,4,f03,4
  278.     dc.w    g03,4
  279.       dc.w new_env
  280.       dc.l score_env2-b
  281.     dc.w a03,50
  282.       dc.w end_fxp
  283.  
  284. score5
  285.       dc.w new_env
  286.       dc.l score_envs-b
  287.       dc.w new_snd
  288.       dc.l sinep-b
  289.     ;dc.w pbend,up,20,a03,1
  290.     dc.w    a03,4,g03,4,a03,4,g03,4
  291.     dc.w    a03,4,g03,4,a03,4,g03,4
  292.     dc.w    a03,4,g03,4,a03,4,g03,4
  293.       dc.w new_env
  294.       dc.l score_env2-b
  295.     dc.w    a03,50
  296.       dc.w end_fxp
  297.  
  298.  
  299. magic_map:
  300.       dc.w new_env
  301.       dc.l score_env1-b
  302.       dc.w new_snd
  303.       dc.l aguitp-b
  304.     dc.w c02,4,d02,4,e02,4,f02,4,g02,4,a02,4,b02,4,c03,4
  305.     dc.w d03,4,e03,4,f03,4,g03,4,a03,10
  306.       dc.w end_fxp
  307.  
  308.  
  309. clunk1
  310.       dc.w new_env
  311.       dc.l clunk_env-b
  312.       dc.w new_snd
  313.       dc.l snarep-b
  314.     dc.w pbend,down,20,50000,1
  315.     dc.w    r2,14
  316.     dc.w    pboff
  317.       dc.w end_fxp
  318.  
  319. clunk2
  320.       dc.w new_env
  321.       dc.l clunk_env-b
  322.       dc.w new_snd
  323.       dc.l snarep-b
  324.     dc.w pbend,down,2,50000,1
  325.     dc.w    r1,14
  326.     dc.w    pboff
  327.       dc.w end_fxp
  328.  
  329.  
  330. score_envs:    dc.w 55,50,45,40,35,30,25,20,15,10,0,255
  331.  
  332. score_env:
  333.         dc.w    64,64,63,62,60,61,60,59,58,57,56,55
  334. clunk_env:
  335. score_env1    dc.w    54,53,52,51,50,49,48,47,46,45,44
  336. score_env2        dc.w     43,42,41,40,39,38,37,36,35,34,33,32,31,30
  337.         dc.w    29,28,27,26,25,24,23,22,21,20,19,18,17,16
  338.         dc.w    15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0,255
  339.  
  340. ;*************************
  341.  
  342.  
  343. fxjump_table:  
  344.     dc.l clunk1-b
  345.     dc.l clunk2-b
  346.     dc.l score1-b
  347.     dc.l score2-b
  348.     dc.l score3-b
  349.     dc.l score4-b
  350.     dc.l score5-b
  351.     dc.l magic_map-b
  352.     dc.l danger-b            ;fx number 1
  353.  
  354.  
  355. max_fx    dc.l    10    ;number + 1 for test routines only
  356. ;______________________________________________________________________
  357.  
  358.  
  359.  
  360.  
  361. ;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  362.  
  363. cr  set   24
  364. q set  cr/2
  365. sq set q/2
  366. dsq set sq/4
  367.  
  368. tq1 set      7
  369. tq2 set   6
  370. tsq1 set  3
  371. tsq2 set 4
  372.  
  373.  
  374.  
  375. ;************************************************
  376.  
  377. songs:
  378.  
  379.  
  380. cr  set   32
  381. q set  cr/2
  382. sq set q/2
  383. dsq set sq/4
  384.  
  385. tcr1 set  0
  386. tq1 set      11
  387. tq2 set      10
  388. tsq1 set  5
  389. tsq2 set  6
  390.  
  391.  
  392.  
  393. s1_d:
  394.     dc.l    aguitar_snd-b
  395.     ;dc.l    death_strings-b
  396.     dc.l    pri-b
  397.       dc.l     0,end_song
  398.  
  399. s2_d:
  400.     dc.l    aguitar_snd-b
  401.     dc.l    death_bass-b
  402.     dc.l    pri-b
  403.       dc.l     0,end_song
  404.  
  405.  
  406. s3_d:
  407.  
  408.     dc.l    aguitar_snd-b
  409.     dc.l    death_tune-b
  410.     dc.l    pri-b
  411.       dc.l     0,end_song
  412.  
  413.  
  414. s4_d:
  415.     dc.l    pizzo_snd-b
  416.     dc.l    death_bass2-b
  417.     dc.l    pri-b
  418.       dc.l     0,end_song
  419.  
  420. ;----------
  421.  
  422. death_strings:
  423.     dc.w c03,$0004,bb02,$0004,ab02,$0004,g02,$0004,f02,$0004
  424.     dc.w eb02,$0004,d02,$0004,db02,$0004
  425.     dc.w c02,cr
  426.     dc.w d02,$0004
  427.     dc.w eb02,$0004,f02,$0004,g02,$0004,a02,$0004,b02,$0004
  428.     dc.w c03,$0004,bb02,$0004,ab02,$0004,g02,$0004,ab02,$0004
  429.     dc.w g02,$0004,f02,$0004,eb02,$0004,f02,$0004,eb02,$0004
  430.     dc.w d02,$0004
  431.     dc.w eb02,$0004,f02,$0004,g02,$0004,a02,$0004,b02,$0004
  432.     dc.w eb02,4,c03,4
  433.     dc.w eb02,cr
  434.     dc.w d02,$0004
  435.     dc.w eb02,$0004,f02,$0004,g02,$0004,a02,$0004,b02,$0004
  436.     dc.w c03,$0004,bb02,$0004,ab02,$0004,g02,$0004,ab02,$0004
  437.     dc.w g02,$0004,f02,$0004,eb02,$0004,f02,$0004,eb02,$0004
  438.     dc.w d02,$0004
  439.     dc.w eb02,$0004,f02,$0004,g02,$0004,a02,$0004,b02,$0004
  440.     dc.w eb02,4,c03,4
  441.     dc.w    f02,cr*2,g02,cr*2,eb03,cr*4
  442.     dc.w end_patt
  443.  
  444. death_bass:
  445.     dc.w rest,cr,c01,$0080,ab01,$0080,f01,$0040,g01,$0040
  446.     dc.w g02,cr*4 
  447.     dc.w end_patt
  448.  
  449. death_tune:
  450.     dc.w    rest,cr
  451.     dc.w c02,cr*3,c02,tq1,eb02,tq2,g02,tq1,c03,cr*3
  452.     dc.w c02,tq1,eb02,tq2,g02,tq1,c03,cr,b02,tq1,c03,tq2,d03,tq1+dsq+cr
  453.     dc.w eb03,cr,c03,cr*4
  454.     dc.w end_patt
  455.  
  456. death_bass2:
  457.     dc.w rest,cr
  458.     dc.w c02,cr,c02,cr,c02,cr,c02,cr
  459.     dc.w c02,cr,c02,cr,c02,cr,c02,cr
  460.     dc.w c02,cr,c02,cr,g02,cr*6
  461.     ;dc.w    new_env
  462.     ;dc.l    snare_env
  463.     ;dc.w    new_snd
  464.     ;dc.l    snarep
  465.  
  466.  
  467.     ;dc.w 4000,cr*4
  468.     dc.w end_patt
  469.  
  470.  
  471.  
  472. ;--------
  473.  
  474. s1_n:
  475.  
  476.     dc.l    click_snd-b
  477.     dc.l    ng_click-b
  478.  
  479.       dc.l     0,end_song
  480. s2_n:
  481.  
  482.     dc.l    flute_sndq-b
  483.     dc.l    ntune-b
  484.  
  485.         DC.L    0,end_song
  486.  
  487. s3_n:
  488.  
  489.     dc.l    pr-b
  490.  
  491.     dc.l     0,end_song
  492.  
  493. s4_n:
  494.  
  495.     dc.l    pr-b
  496.  
  497.     dc.l     0,end_song
  498.  
  499.  
  500. ng_click:
  501.     dc.w    4000,2,2000,2,rest,8,4000,1,2000,1,4000,1
  502.     dc.w    4000,1,2000,1,4000,1,rest,6
  503.     dc.w    end_patt
  504.  
  505. ntune:
  506.     dc.    rest,cr
  507.     dc.w    a03,cr,g03,cr*3,d03,cr,e03,cr*4,rest,cr*3
  508.     dc.w    a03,cr,g03,cr*3,e03,cr,d03,cr,g03,cr,e03,cr*4
  509.     dc.w    end_patt
  510.  
  511.  
  512.  
  513. ;        flute
  514.  
  515. s1_fl:
  516.  
  517.  
  518.     dc.l    flute_snd-b
  519.     dc.l    flute_tune-b
  520.     dc.l    pri-b
  521.  
  522.       dc.l     0,end_song
  523. s2_fl:
  524.  
  525.     dc.l    pr-b
  526.         DC.L    0,end_song
  527.  
  528.  
  529. s3_fl:
  530.  
  531.     dc.l    pr-b
  532.         DC.L    0,end_song
  533.  
  534.  
  535. s4_fl:
  536.     dc.l    pr-b
  537.     dc.l     0,end_song
  538.  
  539.  
  540. flute_tune:
  541.     dc.w modon,1,1,3,3,6,6
  542.     dc.w    g03,cr+sq,gb03,5,g03,5,gb03,cr
  543.     dc.w    eb03,cr,b02,cr,c03,cr,b02,5,c03,5,b02,cr*3
  544.     dc.w end_patt
  545.  
  546.  
  547. clickp
  548.         dc.w 1  
  549.              dc.l b-b
  550.              dc.w 16/2 
  551.              dc.l b-b
  552.              dc.w 16/2
  553.  
  554. click_env:
  555.         dc.w    15,10,5,4,3,2,2,1,0,255
  556.  
  557. click_snd
  558.     dc.w    new_env
  559.     dc.l    click_env-b
  560.     dc.w    new_snd
  561.     dc.l    clickp-b
  562.     dc.w     end_patt
  563.  
  564.  
  565. ;********************
  566.  
  567. cr  set   40
  568. q set  cr/2
  569. sq set q/2
  570. dsq set sq/4
  571.  
  572. tq1 set      7
  573. tq2 set   6
  574. tsq1 set  3
  575. tsq2 set 4
  576.  
  577. ;---------
  578. s1_c:
  579.  
  580.     dc.l    pizzo_snd-b
  581.     dc.l    cbass-b
  582.  
  583.  
  584.  
  585.  
  586.       dc.l     0,end_song
  587. s2_c:
  588.  
  589.     dc.l    fhorn_snd-b
  590.     dc.l    cstring-b
  591.     dc.l    cstring-b
  592.     dc.l    cstring-b
  593.     dc.l    snare_sndq-b
  594.     dc.l    csnare-b
  595.     dc.l    csnare-b
  596.         DC.L    0,end_song
  597.  
  598.  
  599. s3_c:
  600.  
  601.     dc.l    bassoon_snd-b
  602.  
  603.     dc.l    crest-b
  604.     dc.l    crest-b
  605.  
  606.  
  607.     dc.l    ctune-b
  608.     dc.l    flute_snd-b
  609.     dc.l    cflute-b
  610.     dc.l    bassoon_snd-b
  611.     dc.l    ctune-b
  612.     dc.l    flute_snd-b
  613.     dc.l    cflute-b
  614.     dc.l    strings1_snd-b
  615.     dc.l    ctune-b
  616.     dc.l    flute_snd-b
  617.     dc.l    cflute-b
  618.  
  619.     dc.l    aguitar_snd-b
  620.     dc.l    ctune-b
  621.  
  622.  
  623.  
  624.     dc.l     0,end_song
  625.  
  626.  
  627. s4_c:
  628.     dc.l    fhorn_snd-b
  629.     dc.l    cstring1-b
  630.     dc.l     0,end_song
  631.  
  632.  
  633.  
  634. crest
  635.     dc.w    rest,cr*8
  636.     dc.w    end_patt
  637.  
  638.  
  639. patterns:
  640.  
  641. csnare
  642.     dc.w    r16,q,r16,q+cr*2+q+sq,r16,sq
  643.     dc.w    r16,q,r16,q+cr*2+q+sq,r16,sq
  644.     dc.w    r16,q,r16,q+sq+q,r16,sq,r16,q,r16,q+sq+q,r16,sq
  645.     dc.w    r16,q,r16,q+cr*2+q+sq+sq
  646.  
  647.     dc.w    end_patt
  648.  
  649.  
  650.  
  651.  
  652.  
  653.  
  654. cbass
  655.     dc.w    g02,q,g02,q+cr*3
  656.     dc.w    g02,q,g02,q+cr*3
  657.     dc.w    g02,q,g02,q+cr,f02,q,f02,q+cr
  658.     dc.w    g02,q,g02,q+cr*3
  659.  
  660.  
  661.  
  662.     dc.w    g02,q,g02,q+cr*3
  663.     dc.w    g02,q,g02,q+cr*3
  664.     dc.w    g02,q,g02,q+cr,ab02,q,ab02,q+cr
  665.     dc.w    g02,q,g02,q+cr*3
  666.  
  667.     dc.w    end_patt
  668.  
  669. cstring
  670.     dc.w modon,1,1,3,3,6,6
  671.     dc.w    d01,cr*10
  672.     dc.w    c01,cr*2
  673.     dc.w    d01,cr*4
  674.     dc.w    d01,cr*10
  675.     dc.w    c01,cr*2
  676.     dc.w    d01,cr*4
  677.  
  678.     dc.w    end_patt
  679.  
  680. cstring1
  681.     dc.w modon,1,1,3,3,6,6
  682.     dc.w    b01,cr*10
  683.     dc.w    a01,cr*2
  684.     dc.w    b01,cr*4
  685.     dc.w    b01,cr*10
  686.     dc.w    ab01,cr*2
  687.     dc.w    b01,cr*4
  688.  
  689.     dc.w    end_patt
  690.  
  691.  
  692.  
  693.  
  694. ctune
  695.     dc.w    rest,cr,d02,sq,eb02,sq,d02,sq,eb02,sq,d02,cr*2
  696.     dc.w    rest,cr,d02,sq,eb02,sq,d02,sq,eb02,sq,d02,cr*2
  697.     dc.w    rest,cr,d02,sq,eb02,sq,d02,sq,eb02,sq,f02,sq
  698.     dc.w    g02,sq,f02,sq,g02,sq,f02,sq,eb02,sq,d02,sq,c02,sq
  699.     dc.w    d02,cr
  700.     dc.w    d02,sq,eb02,sq,d02,sq,eb02,sq,d02,cr*2
  701.     dc.w    end_patt
  702.  
  703. cflute
  704.     dc.w    g02,cr+q+sq,d02,sq-2,g02,2,d02,cr+q
  705.     dc.w    rest,sq,eb02,sq
  706.  
  707.     dc.w    f02,cr+q+sq,d02,sq-2,f02,2,d02,cr+q+sq,d02,sq
  708.     dc.w    eb02,cr+q+sq-2,d02,2,eb02,sq,d02,q,c02,q,b01,sq
  709.     dc.w    ab01,sq-2,b01,2,ab01,sq,g01,sq
  710.     dc.w    d02,cr+q+sq,g01,sq-2,d02,2,g01,cr*2
  711.  
  712.  
  713.     dc.w    end_patt
  714.  
  715.  
  716. pr:
  717.     dc.w rest,cr*4
  718.     dc.w end_patt
  719.  
  720. pri:
  721.     dc.w rest,cr*200
  722.     dc.w end_patt
  723.  
  724.  
  725. ;-------------------
  726.  
  727. ;--------
  728. cr  set   28
  729. q set  cr/2
  730. sq set q/2
  731. dsq set sq/2
  732.  
  733. tq1 set      7
  734. tq2 set   6
  735. tsq1 set  3
  736. tsq2 set 4
  737.  
  738. s1_gd:
  739.  
  740.     dc.l    bassoon_snd-b
  741.     dc.l    gdtune-b
  742.  
  743.       dc.l     0,end_song
  744. s2_gd:
  745.  
  746.     dc.l    pizzo_snd-b
  747.     dc.l    gdbass-b
  748.  
  749.         DC.L    0,end_song
  750.  
  751. s3_gd:
  752.  
  753.     dc.l    snare_snd-b
  754.     dc.l    gdsnare-b
  755.  
  756.     dc.l     0,end_song
  757.  
  758. s4_gd:
  759.  
  760.     dc.l    flute_snd-b
  761.     dc.l    pr-b
  762.  
  763.     dc.l     0,end_song
  764.  
  765.  
  766. gdtune
  767.     dc.w    c03,cr,g02,q+sq,c03,sq,g02,cr,rest,q+sq,g02,sq
  768.     dc.w    bb02,cr,g02,q+sq,bb02,sq,g02,cr,rest,q+sq,g02,sq
  769.     dc.w    ab02,cr,g02,q+sq,ab02,sq,g02,q,f02,q,eb02,q,d02,q
  770.     dc.w    g02,cr,eb02,q+sq,g02,sq,d02,cr,rest,q+sq,g02,sq
  771.  
  772.     dc.w    c03,cr,g02,q+sq,c03,sq,g02,cr,rest,q+sq,g02,sq
  773.     dc.w    bb02,cr,g02,q+sq,bb02,sq,g02,cr,rest,q+sq,g02,sq
  774.     dc.w    ab02,cr,g02,q+sq,ab02,sq,g02,q,f02,q,eb02,q,d02,q
  775.     
  776.     dc.w    g02,cr,db02,q+sq,g02,sq,c02,cr*2
  777.  
  778.     dc.w    end_patt
  779.  
  780.  
  781. gdbass
  782.     dc.w    c02,q,c03,q,rest,cr,d02,q,d03,q,rest,cr
  783.     dc.w    eb02,q,eb03,q,rest,cr,e02,q,e03,q,rest,cr
  784.     dc.w    f02,q,f03,q,rest,cr,gb02,q,gb03,q,rest,cr
  785.     dc.w    g02,q,g03,q,f02,q,f03,q,eb02,q,eb03,q,d02,q,d03,q
  786.  
  787.     dc.w    c02,q,c03,q,rest,cr,d02,q,d03,q,rest,cr
  788.     dc.w    eb02,q,eb03,q,rest,cr,e02,q,e03,q,rest,cr
  789.     dc.w    f02,q,f03,q,rest,cr,gb02,q,gb03,q,rest,cr
  790.     dc.w    g02,q,g03,q,g01,q,g02,q,c02,q,c03,q,rest,cr
  791.     dc.w    end_patt
  792.  
  793. gdsnare
  794.     dc.w    r16,q,r16,q,r16,q,r16,sq,r16,sq
  795.     dc.w    r16,q,r16,q,r16,q,r16,sq,r16,sq
  796.  
  797.     dc.w    r16,q,r16,q,r16,sq,r16,q,r16,sq,r16,q,r16,q
  798.     dc.w    r16,q,r16,sq,r16,sq
  799.     dc.w    end_patt
  800.  
  801. ;--------------------
  802. cr  set   40
  803. q set  cr/2
  804. sq set q/2
  805. dsq set sq/2
  806.  
  807. tq1 set      7
  808. tq2 set   6
  809. tsq1 set  3
  810. tsq2 set 4
  811.  
  812. s1_wed:
  813.  
  814.     dc.l    strings1_snd-b
  815.     dc.l    wedtune1-b
  816.     dc.l    pri-b
  817.       dc.l     0,end_song
  818. s2_wed:
  819.  
  820.     dc.l    strings1_snd-b
  821.     dc.l    wedtune2-b
  822.     dc.l    pri-b
  823.  
  824.         DC.L    0,end_song
  825.  
  826. s3_wed:
  827.  
  828.     dc.l    strings1_snd-b
  829.     dc.l    wedtune3-b
  830.  
  831.     dc.l    pri-b
  832.     dc.l     0,end_song
  833.  
  834. s4_wed:
  835.  
  836.     dc.l    pizzo_snd-b
  837.     dc.l    wedbass-b
  838.     dc.l    pri-b
  839.  
  840.     dc.l     0,end_song
  841.  
  842.  
  843. wedtune1
  844.     dc.w    a02,cr,d03,q+sq,d03,sq,d03,cr*2
  845.     dc.w    a02,cr,e03,q+sq,db03,sq,d03,cr*2
  846.     dc.w    a02,cr,d03,q+sq,g03,sq,g03,cr,gb03,q,e03,q
  847.     dc.w    d03,q+sq,e03,dsq,d03,dsq,db03,q+sq,d03,sq,e03,cr*2
  848.  
  849.     dc.w    a02,cr,d03,q+sq,d03,sq,d03,cr*2
  850.     dc.w    a02,cr,e03,q+sq,db03,sq,d03,cr*2
  851.     dc.w    a02,cr,d03,q+sq,gb03,sq,a03,cr,gb03,q,d03,q
  852.     dc.w    b02,cr,e03,q+sq,gb03,sq,d03,cr*2
  853.  
  854.     dc.w    end_patt
  855.  
  856. wedtune2
  857.     dc.w    a01,cr,a01,q+sq,a01,sq,a01,cr*2
  858.     dc.w    a01,cr,a01,q+sq,a01,sq,a01,cr*2
  859.     dc.w    a01,cr,a01,q+sq,d02,sq,d02,cr,d02,q,b01,q
  860.     dc.w    a01,q+sq,ab01,sq,ab01,cr,a01,cr*2
  861.  
  862.     dc.w    a01,cr,a01,q+sq,a01,sq,a01,cr*2
  863.     dc.w    a01,cr,a01,q+sq,a01,sq,a01,cr*2
  864.     dc.w    a01,cr,a01,q+sq,a01,sq,db02,cr,b01,q,b01,q
  865.     dc.w    b01,cr,a01,q+sq,a01,sq,gb01,cr*2
  866.     dc.w    end_patt
  867.  
  868. wedtune3
  869.     dc.w    gb01,cr,gb01,q+sq,gb01,sq,gb01,cr*2
  870.     dc.w    gb01,cr,g01,q+sq,g01,sq,gb01,cr*2
  871.     dc.w    gb01,cr,gb01,q+sq,b01,sq,b01,cr,a01,q,g01,q
  872.     dc.w    e01,q+sq,d01,sq,d01,cr,db01,cr*2
  873.  
  874.     dc.w    gb01,cr,gb01,q+sq,gb01,sq,gb01,cr*2
  875.     dc.w    gb01,cr,g01,q+sq,g01,sq,gb01,cr*2
  876.     dc.w    gb01,cr,gb01,q+sq,gb01,sq,gb02,cr,d01,q,gb01,q
  877.     dc.w    e01,cr,db01,q+sq,db01,sq,d01,cr*2
  878.     dc.w    end_patt
  879.  
  880. wedbass
  881.     dc.w    d03,cr,d03,q+sq,d03,sq,d03,cr*2
  882.     dc.w    d03,cr,a02,q+sq,a02,sq,d03,cr*2
  883.     dc.w    d03,cr,d03,q+sq,d03,sq,d03,cr*2
  884.     dc.w    a02,cr,e02,q+sq,e02,sq,a02,cr*2
  885.  
  886.     dc.w    d03,cr,d03,q+sq,d03,sq,d03,cr*2
  887.     dc.w    d03,cr,a02,q+sq,a02,sq,d03,cr*2
  888.  
  889.     dc.w    d03,cr,d03,q+sq,d03,sq,gb02,cr,b02,cr
  890.     dc.w    g02,cr,a02,q+sq,a02,sq,d02,cr*2
  891.     dc.w    end_patt
  892. ;-----------------
  893. cr  set   56
  894. q set  cr/2
  895. sq set q/2
  896. dsq set sq/2
  897.  
  898. tq1 set      7
  899. tq2 set   6
  900. tsq1 set  3
  901. tsq2 set 4
  902.  
  903. s1_wedx:
  904.  
  905.     dc.l    trumpet_sndq-b
  906.     dc.l    wedtune1x-b
  907.     dc.l    pri-b
  908.       dc.l     0,end_song
  909. s2_wedx:
  910.  
  911.     dc.l    trumpet_sndq-b
  912.     dc.l    wedtune2x-b
  913.     dc.l    pri-b
  914.  
  915.         DC.L    0,end_song
  916.  
  917. s3_wedx:
  918.  
  919.     dc.l    trumpet_sndq-b
  920.     dc.l    wedtune3x-b
  921.  
  922.     dc.l    pri-b
  923.     dc.l     0,end_song
  924.  
  925. s4_wedx:
  926.  
  927.     dc.l    pizzo_snd-b
  928.     dc.l    wedbassx-b
  929.     dc.l    pri-b
  930.  
  931.     dc.l     0,end_song
  932.  
  933.  
  934. wedtune1x
  935.     dc.w    a02,cr,d03,q+sq,d03,sq,d03,cr*2
  936.     dc.w    a02,cr,e03,q+sq,db03,sq,d03,cr*2
  937.     dc.w    a02,cr,d03,q+sq,g03,sq,g03,cr,gb03,q,e03,q
  938.     dc.w    d03,q+sq,e03,dsq,d03,dsq,db03,q+sq,d03,sq,e03,cr*2
  939.  
  940.     dc.w    a02,cr,d03,q+sq,d03,sq,d03,cr*2
  941.     dc.w    a02,cr,e03,q+sq,db03,sq,d03,cr*2
  942.     dc.w    a02,cr,d03,q+sq,gb03,sq,a03,cr,gb03,q,d03,q
  943.     dc.w    b02,cr,e03,q+sq,gb03,sq,d03,cr*2
  944.  
  945.     dc.w    end_patt
  946.  
  947. wedtune2x
  948.     dc.w    a01,cr,a01,q+sq,a01,sq,a01,cr*2
  949.     dc.w    a01,cr,a01,q+sq,a01,sq,a01,cr*2
  950.     dc.w    a01,cr,a01,q+sq,d02,sq,d02,cr,d02,q,b01,q
  951.     dc.w    a01,q+sq,ab01,sq,ab01,cr,a01,cr*2
  952.  
  953.     dc.w    a01,cr,a01,q+sq,a01,sq,a01,cr*2
  954.     dc.w    a01,cr,a01,q+sq,a01,sq,a01,cr*2
  955.     dc.w    a01,cr,a01,q+sq,a01,sq,db02,cr,b01,q,b01,q
  956.     dc.w    b01,cr,a01,q+sq,a01,sq,gb01,cr*2
  957.     dc.w    end_patt
  958.  
  959. wedtune3x
  960.     dc.w    gb01,cr,gb01,q+sq,gb01,sq,gb01,cr*2
  961.     dc.w    gb01,cr,g01,q+sq,g01,sq,gb01,cr*2
  962.     dc.w    gb01,cr,gb01,q+sq,b01,sq,b01,cr,a01,q,g01,q
  963.     dc.w    e01,q+sq,d01,sq,d01,cr,db01,cr*2
  964.  
  965.     dc.w    gb01,cr,gb01,q+sq,gb01,sq,gb01,cr*2
  966.     dc.w    gb01,cr,g01,q+sq,g01,sq,gb01,cr*2
  967.     dc.w    gb01,cr,gb01,q+sq,gb01,sq,gb02,cr,d01,q,gb01,q
  968.     dc.w    e01,cr,db01,q+sq,db01,sq,d01,cr*2
  969.     dc.w    end_patt
  970.  
  971. wedbassx
  972.     dc.w    d03,cr,d03,q+sq,d03,sq,d03,cr*2
  973.     dc.w    d03,cr,a02,q+sq,a02,sq,d03,cr*2
  974.     dc.w    d03,cr,d03,q+sq,d03,sq,d03,cr*2
  975.     dc.w    a02,cr,e02,q+sq,e02,sq,a02,cr*2
  976.  
  977.     dc.w    d03,cr,d03,q+sq,d03,sq,d03,cr*2
  978.     dc.w    d03,cr,a02,q+sq,a02,sq,d03,cr*2
  979.  
  980.     dc.w    d03,cr,d03,q+sq,d03,sq,gb02,cr,b02,cr
  981.     dc.w    g02,cr,a02,q+sq,a02,sq,d02,cr*2
  982.     dc.w    end_patt
  983.  
  984. ;-----------------
  985.  
  986. sounds:
  987.  
  988. flute_snd:
  989.     dc.w    new_env
  990.     dc.l    flute_env-b
  991.     dc.w    new_snd
  992.     dc.l    flutep-b
  993.     dc.w     end_patt
  994.  
  995. flute_sndq:
  996.     dc.w    new_env
  997.     dc.l    flute_envq-b
  998.     dc.w    new_snd
  999.     dc.l    flutep-b
  1000.     dc.w     end_patt
  1001.  
  1002. flute_sndmq:
  1003.     dc.w    new_env
  1004.     dc.l    flute_envmq-b
  1005.     dc.w    new_snd
  1006.     dc.l    flutep-b
  1007.     dc.w     end_patt
  1008.  
  1009.  
  1010. aguitar_snd:
  1011.     dc.w    new_env
  1012.     dc.l    aguitar_env-b
  1013.     dc.w    new_snd
  1014.     dc.l    aguitp-b
  1015.     dc.w     end_patt
  1016.  
  1017. aguitar_sndq:
  1018. aguitar_snd_quiet:
  1019.     dc.w    new_env
  1020.     dc.l    aguitar_env_quiet-b
  1021.     dc.w    new_snd
  1022.     dc.l    aguitp-b
  1023.     dc.w     end_patt
  1024.  
  1025.  
  1026. tamb_snd:
  1027.     dc.w    new_env
  1028.     dc.l    tamb_env-b
  1029.     dc.w    new_snd
  1030.     dc.l    tambp-b
  1031.     dc.w     end_patt
  1032.  
  1033.  
  1034. sinep:
  1035.         dc.w 1  
  1036.              dc.l sined-b
  1037.              dc.w 16/2 
  1038.              dc.l sined-b
  1039.              dc.w 16/2
  1040.  
  1041.  
  1042.  
  1043. sined:
  1044. sine_datad:
  1045.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  1046.              dc.w -127,-100,-50,-35,0,35,50,80,127
  1047.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  1048.              dc.w -127,-100,-50,-35,0,35,50,80,127
  1049.  
  1050.  
  1051.  
  1052.  
  1053.  
  1054.  
  1055.  
  1056. abass_snd:
  1057.     dc.w    new_env
  1058.     dc.l    abass_env-b
  1059.     dc.w    new_snd
  1060.     dc.l    abassp-b
  1061.     dc.w     end_patt
  1062.  
  1063. sitar_snd:
  1064.     dc.w    new_env
  1065.     dc.l    sitar_env-b
  1066.     dc.w    new_snd
  1067.     dc.l    sitarp-b
  1068.     dc.w     end_patt
  1069.  
  1070. bassoon_snd:
  1071.     dc.w    new_env
  1072.     dc.l    bassoon_env-b
  1073.     dc.w    new_snd
  1074.     dc.l    bassoonp-b
  1075.     dc.w     end_patt
  1076.  
  1077. bassoon_snd_short:
  1078.     dc.w    new_env
  1079.     dc.l    bassoon_env-b
  1080.     dc.w    new_snd
  1081.     dc.l    bassoonsp-b
  1082.     dc.w     end_patt
  1083.  
  1084. snare_snd:
  1085.     dc.w    new_env
  1086.     dc.l    snare_env-b
  1087.     dc.w    new_snd
  1088.     dc.l    snarep-b
  1089.     dc.w     end_patt
  1090.  
  1091. snare_sndq:
  1092.     dc.w    new_env
  1093.     dc.l    snare_envq-b
  1094.     dc.w    new_snd
  1095.     dc.l    snarep-b
  1096.     dc.w     end_patt
  1097.  
  1098. trumpet_snd:
  1099.     dc.w    new_env
  1100.     dc.l    trumpet_env-b
  1101.     dc.w    new_snd
  1102.     dc.l    trumpetp-b
  1103.     dc.w     end_patt
  1104.  
  1105. trumpet_sndq:
  1106.     dc.w    new_env
  1107.     dc.l    trumpet_envq-b
  1108.     dc.w    new_snd
  1109.     dc.l    trumpetp-b
  1110.     dc.w     end_patt
  1111.  
  1112. pizzo_snd:
  1113.     dc.w    new_env
  1114.     dc.l    pizzo_env-b
  1115.     dc.w    new_snd
  1116.     dc.l    pizzop-b
  1117.     dc.w     end_patt
  1118.  
  1119. pizzoh_snd:
  1120.     dc.w    new_env
  1121.     dc.l    pizzo_env-b
  1122.     dc.w    new_snd
  1123.     dc.l    pizzohp-b
  1124.     dc.w     end_patt
  1125.  
  1126.  
  1127. fhorn_snd:
  1128.     dc.w    new_env
  1129.     dc.l    fhorn_env-b
  1130.     dc.w    new_snd
  1131.     dc.l    fhornp-b
  1132.     dc.w     end_patt
  1133.  
  1134. fhorn_sndq:
  1135.     dc.w    new_env
  1136.     dc.l    fhorn_envq-b
  1137.     dc.w    new_snd
  1138.     dc.l    fhornp-b
  1139.     dc.w     end_patt
  1140.  
  1141.  
  1142.  
  1143. strings_snd:
  1144.     dc.w    new_env
  1145.     dc.l    strings_env-b
  1146.     dc.w    new_snd
  1147.     dc.l    stringsp-b
  1148.     dc.w     end_patt
  1149.  
  1150. strings1_snd:
  1151.     dc.w    new_env
  1152.     dc.l    strings1_env-b
  1153.     dc.w    new_snd
  1154.     dc.l    strings1p-b
  1155.     dc.w     end_patt
  1156.  
  1157.  
  1158. ;***********************************************
  1159.  
  1160. parameters:
  1161.  
  1162. iff    equ 108
  1163.  
  1164.     ; sample parameters
  1165.  
  1166.  
  1167. snarep
  1168.         dc.w 1  
  1169.              dc.l snared-b
  1170.              dc.w 2240/2  
  1171.              dc.l restd-b
  1172.              dc.w 16/2
  1173.  
  1174.  
  1175. trumpetp
  1176.         dc.w 1  
  1177.              dc.l synbras1d-b
  1178.              dc.w 3338/2  
  1179.              dc.l synbras1d-b
  1180.              dc.w 3338/2  
  1181.  
  1182. abassp
  1183.         dc.w 1  
  1184.              dc.l abassd+iff-b
  1185.              dc.w 8000/2 
  1186.              dc.l restd-b
  1187.              dc.w 16/2
  1188.  
  1189. flutep
  1190.         dc.w 1  
  1191.              dc.l fluted+iff-b
  1192.              dc.w 7278/2
  1193.              dc.l fluted+4173+iff-b
  1194.              dc.w 3106/2
  1195.  
  1196. tambp
  1197.         dc.w 1  
  1198.              dc.l tambd-b
  1199.              dc.w 1457/2 
  1200.              dc.l restd-b
  1201.              dc.w 16/2
  1202.  
  1203. sitarp
  1204.         dc.w 1  
  1205.              dc.l sitard-b
  1206.              dc.w 7708/2 
  1207.              dc.l restd-b
  1208.              dc.w 16/2
  1209.  
  1210. aguitp
  1211.         dc.w 1  
  1212.              dc.l aguitd+iff-b
  1213.              dc.w 9576/2 
  1214.              dc.l restd-b
  1215.              dc.w 16/2
  1216.  
  1217. bassoonlp
  1218.         dc.w 1  
  1219.              dc.l bassoond+iff-b
  1220.              dc.w 4788/2 
  1221.              dc.l bassoond+iff+2033-b
  1222.              dc.w 2755/2
  1223.  
  1224.  
  1225. bassoonp
  1226.         dc.w 1  
  1227.              dc.l bassoond+iff-b
  1228.              dc.w 4788/2 
  1229.              dc.l restd-b
  1230.              dc.w 16/2
  1231.  
  1232. bassoonsp
  1233.         dc.w 1  
  1234.              dc.l bassoond+iff-b
  1235.              dc.w 4788/2-1000 
  1236.              dc.l restd-b
  1237.              dc.w 16/2
  1238.  
  1239. pizzop:
  1240.         dc.w 1  
  1241.              dc.l pizzod-b
  1242.              dc.w 5550/2 
  1243.              dc.l restd-b
  1244.              dc.w 16/2
  1245.  
  1246. pizzohp:
  1247.         dc.w 1  
  1248.              dc.l pizzohd-b
  1249.              dc.w 3796/2 
  1250.              dc.l restd-b
  1251.              dc.w 16/2
  1252.  
  1253. fhornp:
  1254.         dc.w 1  
  1255.              dc.l fhornd+iff-b
  1256.              dc.w (6684-iff)/2 
  1257.              dc.l fhornd+iff-b
  1258.              dc.w (6684-iff)/2
  1259.  
  1260. stringsp:
  1261.         dc.w 1  
  1262.              dc.l stringsd-b
  1263.              dc.w (8668)/2 
  1264.              dc.l restd-b
  1265.              dc.w 16/2
  1266.  
  1267. strings1p
  1268.         dc.w 1  
  1269.              dc.l strings1d+104+3208-b
  1270.              dc.w 6438/2 
  1271.              dc.l strings1d+104+3208-b
  1272.              dc.w 6438/2 
  1273.  
  1274. envelopes:
  1275.  
  1276.  
  1277. rest_env:            dc.w 0,0,0,0,0,0,0,0,255
  1278. flute_env:            dc.w 0,32,255
  1279. flute_envq:            dc.w 0,8,255
  1280. flute_envmq:            dc.w 0,18,255
  1281. tamb_env:            dc.w 0,62,255
  1282. aguitar_env:            dc.w 0,45,255
  1283. aguitar_env_quiet:        dc.w 0,30,255
  1284. sitar_env:            dc.w 0,42,255
  1285. abass_env:            dc.w 0,54,255
  1286. snare_env:            dc.w 0,35,255
  1287. snare_envq:            dc.w 0,15,255
  1288. trumpet_env:            dc.w 0,35,255
  1289. trumpet_envq:            dc.w 0,25,255
  1290. bassoon_env:            dc.w 0,30,255
  1291. pizzo_env:            dc.w 0,35,255
  1292. fhorn_env:            dc.w 0,20,255
  1293. fhorn_envq:            dc.w 0,28,255
  1294. strings_env:            dc.w 0,48,255
  1295. sine_env:            dc.w 0,48,255
  1296.  
  1297. strings1_env:            dc.w 0,28,255
  1298.  
  1299.  
  1300.  
  1301. ;guit.sam                    6191 rwed Today     01:27:11
  1302. ;tamb.sam                    1457 rwed Today     01:27:10
  1303. ;flute.sam                   8410 rwed Today     01:27:08
  1304. ;sitar.sam                   8993 rwed Today     01:27:07
  1305. ;bass.sam                    8583 rwed Today     01:27:05
  1306. ;7 files - 207 blocks used
  1307.  
  1308. ;**************************************************
  1309.  
  1310.  
  1311. aguitd            incbin c:instruments/aguit.sam 
  1312. tambd            ;incbin c:instruments/tamb.sam 
  1313. fluted            incbin c:instruments/flute.sam 
  1314. sitard            ;incbin c:instruments/sitar.sam 
  1315. abassd            ;incbin c:instruments/abass.sam 
  1316. snared            incbin c:instruments/snare.sam 
  1317. synbras1d        incbin c:instruments/hbrass3l.sam 
  1318. bassoond        incbin c:instruments/bassoonl.sam 
  1319. pizzod            incbin c:instruments/pizzo1.sam 
  1320. pizzohd            ;incbin c:instruments/pizzo2.sam 
  1321.  
  1322. fhornd            incbin c:instruments/fhorn.sam 
  1323. stringsd        ;incbin c:instruments/strings2.sam
  1324. waved            ;incbin c:instruments/wave.sam
  1325.  
  1326. strings1d        incbin c:instruments/strings1.sam
  1327.  
  1328.  
  1329.  
  1330. ;********************************************
  1331.  
  1332.  
  1333. restd:
  1334. rest_data:
  1335.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1336.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1337.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1338.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1339.  
  1340.  
  1341. ;*************************************************
  1342. c
  1343.     end
  1344.