home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Amiga KQ 6 Levels Data / Lowe_AmigaKQ6LevelsData.adf / isle_of_sacred_mountain / iosm.data next >
Encoding:
Text File  |  1978-08-04  |  23.0 KB  |  1,563 lines
  1.  
  2. ;*****************************************
  3. ;ISLE OF SACRED MOUNTAIN
  4.  
  5.     opt p+
  6. b
  7.  
  8.     dc.w    song_table-b
  9.     dc.w    fxjump_table-b
  10.  
  11.  
  12.  
  13. select_tunes    equ 0        ;for conditional assembly whilst testing
  14.                 ; zero to step tunes on mouse button
  15.                 ; can be deleted..not essential
  16.  
  17.         ;  ALL EQUs
  18.  
  19. a00  equ  508*2
  20. bb00  equ  480*2
  21. b00  equ  453*2
  22.  
  23. c01  equ  428*2
  24. db01  equ  404*2
  25. d01 equ  381*2
  26. eb01  equ  360*2
  27. e01  equ  339*2
  28. f01  equ  320*2
  29. gb01  equ  302*2
  30. g01  equ  285*2
  31. ab01 equ 269*2
  32. a01  equ  508
  33. bb01  equ  480
  34. b01  equ  453
  35.  
  36. c02  equ  428
  37. db02  equ  404
  38. d02  equ  381
  39. eb02  equ  360
  40. e02  equ  339
  41. f02  equ  320
  42. gb02  equ  302
  43. g02  equ  285
  44. ab02 equ 269
  45. a02  equ  254
  46. bb02  equ  240
  47. b02  equ  226
  48.  
  49. c03  equ  214
  50. db03  equ  202
  51. d03  equ  190
  52. eb03  equ  180
  53. e03  equ  170
  54. f03  equ  160
  55. gb03  equ  151
  56. g03  equ  143
  57. ab03 equ 135
  58. a03  equ  127
  59.  
  60. bb03  equ  480*2
  61. b03  equ  453*2
  62.  
  63. c04  equ  428*2
  64. db04  equ  404*2
  65. d04 equ  381*2
  66. eb04  equ  360*2
  67. e04  equ  339*2
  68. f04  equ  320*2
  69. gb04  equ  302*2
  70. g04  equ  285*2
  71. ab04 equ 269*2
  72. a04  equ  508
  73. bb04  equ  480
  74. b04  equ  453
  75.  
  76. c05  equ  428
  77. db05  equ  404
  78. d05  equ  381
  79. eb05  equ  360
  80. e05  equ  339
  81. f05  equ  320
  82. gb05  equ  302
  83. g05  equ  285
  84. ab05 equ 269
  85. a05  equ  254
  86. bb05  equ  240
  87. b05  equ  226
  88.  
  89. c06  equ  214
  90. db06  equ  202
  91. d06  equ  190
  92. eb06  equ  180
  93. e06  equ  170
  94. f06  equ  160
  95. gb06  equ  151
  96. g06  equ  143
  97. ab06 equ 135
  98. a06  equ  127
  99. bb06  equ  480*2
  100. b06  equ  453*2
  101.  
  102. c07  equ  428*2
  103. db07  equ  404*2
  104. d07 equ  381*2
  105. eb07  equ  360*2
  106. e07  equ  339*2
  107. f07  equ  320*2
  108. gb07  equ  302*2
  109. g07  equ  285*2
  110. ab07 equ 269*2
  111. a07  equ  508
  112. bb07  equ  480
  113. b07  equ  453
  114.  
  115. c08  equ  428
  116. db08  equ  404
  117. d08  equ  381
  118. eb08  equ  360
  119. e08  equ  339
  120. f08  equ  320
  121. gb08  equ  302
  122. g08  equ  285
  123. ab08 equ 269
  124. a08  equ  254
  125. bb08  equ  240
  126. b08  equ  226
  127.  
  128.  
  129. v equ 0
  130.  
  131. no_loop equ 0
  132. loop equ 0
  133. chann1reg   equ $dff0a0    
  134. chann2reg   equ $dff0b0
  135. chann3reg   equ $dff0c0
  136. chann4reg   equ $dff0d0
  137. dmacon     equ $dff096
  138. int_bf_int   equ   $dff01e
  139. int_bf_w    equ   $dff09a
  140. vhposr     equ   $dff006
  141. in_line    equ   0
  142. new_snd    equ   4
  143. end_song     equ   1
  144. end_patt    equ   8
  145. new_env    equ   12
  146. pbend     equ   16
  147.  
  148.  
  149.  
  150. hi: equ 223
  151. lo:  equ 446
  152.  
  153. r22    equ 134
  154. r20    equ 179        ;correctum
  155. r19    equ 150
  156. r18    equ 178
  157. r17    equ 200
  158. r16:    equ 227        ;correctum
  159. r15:    equ 249
  160. r14    equ 280
  161. r13:    equ 305
  162. r12:    equ 333
  163. r11:    equ 361
  164. r10:    equ 389
  165. r9:    equ 419
  166. r8:    equ 446
  167. r7:    equ 446+112
  168. r6:    equ 446+223
  169. r5:    equ 446+223+112
  170. r4:    equ 446*2
  171. r3:    equ 446*3
  172. r2:    equ 446*4
  173. r1:    equ 446*8
  174.  
  175.  
  176. filter: equ $bfe001
  177. filter_on equ 44
  178. filter_off equ 48
  179.  
  180. modon     equ   20
  181. pboff     equ   24
  182. modoff     equ   28
  183. rest     equ 32
  184. end_fxp  equ 36
  185. end_fx3  equ 36
  186. end_fx4  equ 40
  187. acc    equ 52
  188. repeat    equ 56
  189. down      equ   1
  190. up       equ   2
  191.  
  192. fx    equ 0
  193.  
  194.  
  195.  
  196. ;**************************************************************************
  197. ;**************************************************************************
  198.  
  199.     ;"""""""""""""""""""""""""""""""""""""""""""""""""
  200.  
  201.     ;;; DATA
  202.  
  203.  
  204. max_songs    dc.l    9
  205.  
  206. song_table:
  207.  
  208.         dc.l s1_b-b,s2_b-b,s3_b-b,s4_b-b        ;beach
  209.         dc.l s1_g-b,s2_g-b,s3_g-b,s4_g-b        ;gates
  210.         dc.l s1_ne-b,s2_ne-b,s3_ne-b,s4_ne-b        ;nest
  211.         dc.l s1_c-b,s2_c-b,s3_c-b,s4_c-b        ;cave
  212.         dc.l s1_o-b,s2_o-b,s3_o-b,s4_o-b        ;oracle
  213.         dc.l s1_d-b,s2_d-b,s3_d-b,s4_d-b        ;drown
  214.         dc.l s1_f-b,s2_f-b,s3_f-b,s4_f-b        ;flute
  215.         dc.l s1_n-b,s2_n-b,s3_n-b,s4_n-b        ;nightingale
  216.  
  217.  
  218. ;************************************************************
  219.  
  220.  
  221. fxp:
  222.  
  223. danger:
  224.       dc.w new_env
  225.       dc.l danger_env-b
  226.       dc.w new_snd
  227.       dc.l sinep-b
  228. danger_loop:
  229.     dc.w r16,4,r16,4,r16,4,r16,4
  230.     dc.w repeat
  231.     dc.l danger_loop-b
  232.       dc.w end_fxp
  233.  
  234. danger_env:            dc.w 0,35,28,25,20,15,10,0,255
  235.  
  236. score1
  237.       dc.w new_env
  238.       dc.l score_env1-b
  239.       dc.w new_snd
  240.       dc.l sinep-b
  241.     dc.w modon,1,1,2,2,1,1
  242.     dc.w 130,50
  243.       dc.w end_fxp
  244.  
  245.  
  246. score2
  247.       dc.w new_env
  248.       dc.l score_envs-b
  249.       dc.w new_snd
  250.       dc.l sinep-b
  251.     dc.w modon,1,1,1,1,1,1
  252.     dc.w    a03,5,a02,5
  253.       dc.w new_env
  254.       dc.l score_env2-b
  255.     dc.w e03,50
  256.       dc.w end_fxp
  257.  
  258. score3
  259.       dc.w new_env
  260.       dc.l score_envs-b
  261.       dc.w new_snd
  262.       dc.l sinep-b
  263.     dc.w modon,1,1,1,1,1,1
  264.     dc.w    a03,4,a02,4
  265.     dc.w    a03,4,a02,4
  266.       dc.w new_env
  267.       dc.l score_env2-b
  268.     dc.w e03,50
  269.       dc.w end_fxp
  270.  
  271. score4
  272.       dc.w new_env
  273.       dc.l score_envs-b
  274.       dc.w new_snd
  275.       dc.l sinep-b
  276.     dc.w modon,1,1,1,1,1,1
  277.     dc.w    c03,4,d03,4
  278.     dc.w    e03,4,f03,4
  279.     dc.w    g03,4
  280.       dc.w new_env
  281.       dc.l score_env2-b
  282.     dc.w a03,50
  283.       dc.w end_fxp
  284.  
  285. score5
  286.       dc.w new_env
  287.       dc.l score_envs-b
  288.       dc.w new_snd
  289.       dc.l sinep-b
  290.     ;dc.w pbend,up,20,a03,1
  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    a03,4,g03,4,a03,4,g03,4
  294.       dc.w new_env
  295.       dc.l score_env2-b
  296.     dc.w    a03,50
  297.       dc.w end_fxp
  298.  
  299.  
  300. magic_map:
  301.       dc.w new_env
  302.       dc.l score_env1-b
  303.       dc.w new_snd
  304.       dc.l harpp-b
  305.     dc.w c02,4,d02,4,e02,4,f02,4,g02,4,a02,4,b02,4,c03,4
  306.     dc.w d03,4,e03,4,f03,4,g03,4,a03,10
  307.       dc.w end_fxp
  308.  
  309.  
  310. logic_cliff1:
  311.       dc.w new_env
  312.       dc.l score_env1-b
  313.       dc.w new_snd
  314.       dc.l pizzop-b
  315.     dc.w c03,12,d03,12
  316.       dc.w end_fxp
  317.  
  318. logic_cliff2:
  319.       dc.w new_env
  320.       dc.l score_env1-b
  321.       dc.w new_snd
  322.       dc.l pizzop-b
  323.     dc.w c03,12,d03,12,e03,12
  324.       dc.w end_fxp
  325.  
  326. logic_cliff3:
  327.       dc.w new_env
  328.       dc.l score_env1-b
  329.       dc.w new_snd
  330.       dc.l pizzop-b
  331.     dc.w d03,12,e03,12
  332.       dc.w end_fxp
  333.  
  334. logic_cliff4:
  335.       dc.w new_env
  336.       dc.l score_env1-b
  337.       dc.w new_snd
  338.       dc.l pizzop-b
  339.     dc.w e03,12,f03,12
  340.       dc.w end_fxp
  341.  
  342. logic_cliff5:
  343.       dc.w new_env
  344.       dc.l score_env1-b
  345.       dc.w new_snd
  346.       dc.l pizzop-b
  347.     dc.w f03,12,g03,12,a03,12
  348.       dc.w end_fxp
  349.  
  350.  
  351. lose_balance
  352.       dc.w new_env
  353.       dc.l score_env1-b
  354.       dc.w new_snd
  355.       dc.l sinep-b
  356.     dc.w modon,3,3,12,12,1,1
  357.     dc.w f01,60
  358.     dc.w    modoff
  359.       dc.w end_fxp
  360.  
  361. fall
  362.       dc.w new_env
  363.       dc.l score_env1-b
  364.       dc.w new_snd
  365.       dc.l sinep-b
  366.     dc.w    modoff
  367.     dc.w pbend,down,32,60000,1
  368.     dc.w f03,50
  369.     dc.w    pboff
  370.       dc.w end_fxp
  371.  
  372.  
  373.  
  374.  
  375.  
  376.  
  377. clunk1
  378.       dc.w new_env
  379.       dc.l clunk_env-b
  380.       dc.w new_snd
  381.       dc.l snarep-b
  382.     dc.w pbend,down,20,50000,1
  383.     dc.w    r2,14
  384.     dc.w    pboff
  385.       dc.w end_fxp
  386.  
  387. clunk2
  388.       dc.w new_env
  389.       dc.l clunk_env-b
  390.       dc.w new_snd
  391.       dc.l snarep-b
  392.     dc.w pbend,down,2,50000,1
  393.     dc.w    r1,14
  394.     dc.w    pboff
  395.       dc.w end_fxp
  396.  
  397.  
  398. score_envs:    dc.w 55,50,45,40,35,30,25,20,15,10,0,255
  399.  
  400. score_env:
  401.         dc.w    64,64,63,62,60,61,60,59,58,57,56,55
  402. clunk_env:
  403. score_env1    dc.w    54,53,52,51,50,49,48,47,46,45,44
  404. score_env2        dc.w     43,42,41,40,39,38,37,36,35,34,33,32,31,30
  405.         dc.w    29,28,27,26,25,24,23,22,21,20,19,18,17,16
  406.         dc.w    15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0,255
  407.  
  408. ;*************************
  409.  
  410.  
  411. fxjump_table:  
  412.  
  413.     dc.l clunk1-b
  414.     dc.l clunk2-b
  415.  
  416.     dc.l score1-b
  417.     dc.l score2-b
  418.     dc.l score3-b
  419.     dc.l score4-b
  420.     dc.l score5-b
  421.     dc.l magic_map-b
  422.     dc.l danger-b
  423.  
  424.     dc.l lose_balance-b
  425.     dc.l fall-b
  426.  
  427.     dc.l logic_cliff1-b
  428.     dc.l logic_cliff2-b
  429.     dc.l logic_cliff3-b
  430.     dc.l logic_cliff4-b
  431.     dc.l logic_cliff5-b
  432.  
  433. max_fx    dc.l    15    ;number + 1 for test routines only
  434. ;______________________________________________________________________
  435.  
  436. sstart: dc.l 0,end_song
  437.  
  438. pstart: dc.w end_patt
  439.  
  440.  
  441. ;----------------------------------
  442.  
  443. ;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  444.  
  445. cr  set   20
  446. q set  cr/2
  447. sq set q/2
  448. dsq set sq/4
  449.  
  450. tq1 set      7
  451. tq2 set   6
  452. tsq1 set  3
  453. tsq2 set 4
  454.  
  455. ssilence:
  456.     dc.l    pr-b
  457.       dc.l     0,end_song
  458.  
  459. ;---------------
  460.  
  461.  
  462.             ;drown you bastard
  463. s1_d:
  464.  
  465.     dc.l    pr-b
  466.     dc.l    flute_snd-b
  467.     dc.l    die1-b
  468.     dc.l    die2-b
  469.     dc.l    die3-b
  470.     dc.l    pri-b
  471.  
  472.       dc.l     0,end_song
  473. s2_d:
  474.  
  475.     dc.l    trumpet_snd-b
  476.     dc.l    die1-b
  477.     dc.l    die2-b
  478.     dc.l    die2-b
  479.     dc.l    die3-b
  480.     dc.l    pri-b
  481.  
  482.         DC.L    0,end_song
  483.  
  484. s3_d:
  485.  
  486.     dc.l    pizzo_snd-b
  487.     dc.l    die_bass-b
  488.     dc.l    die3-b
  489.     dc.l    pri-b
  490.  
  491.     dc.l     0,end_song
  492.  
  493. s4_d:
  494.  
  495.     dc.l    trumpet_snd-b
  496.     dc.l    die_sus-b
  497.     dc.l    die3-b
  498.     dc.l    pri-b
  499.  
  500.     dc.l     0,end_song
  501.  
  502. die1:
  503.     dc.w    c02,sq,d02,sq,eb02,sq,f02,sq
  504.     dc.w end_patt
  505. die2:
  506.     dc.w    g02,sq,gb02,sq,g02,sq,gb02,sq,g02,sq,gb02,sq,g02,sq,gb02,sq
  507.     dc.w    g02,sq,gb02,sq,g02,sq,gb02,sq,g02,sq,gb02,sq,g02,sq,gb02,sq
  508.     dc.w    g02,sq,gb02,sq,g02,sq,gb02,sq,g02,sq,gb02,sq,g02,sq,gb02,sq
  509.     dc.w    g02,sq,gb02,sq,g02,sq,gb02,sq,g02,sq,gb02,sq,g02,sq,gb02,sq
  510.     dc.w end_patt
  511.  
  512.  
  513. die3:
  514.     dc.w    c03,sq,b02,sq,bb02,sq,a02,sq,ab02,sq,g02,sq,gb02,sq,f02,sq
  515.     dc.w    e02,sq,eb02,sq,d02,sq,db02,sq,c02,sq
  516.     dc.w    b01,sq,bb01,sq,a01,sq,ab01,sq,g01,sq,gb01,sq,f01,sq
  517.     dc.w    e01,sq,db01,sq,c01,cr*4
  518.     dc.w end_patt
  519.  
  520. die_bass:
  521.     dc.w    c02,sq,d02,sq,eb02,sq,f02,sq
  522.     dc.w    c01,cr*16
  523.     dc.w end_patt
  524. die_sus:
  525.     dc.w    rest,sq*4,c01,cr*16
  526.     dc.w end_patt
  527.  
  528.  
  529.  
  530.  
  531. ;************************************************
  532.  
  533. s1_n:
  534.  
  535.     dc.l    click_snd-b
  536.     dc.l    ng_click-b
  537.  
  538.       dc.l     0,end_song
  539. s2_n:
  540.  
  541.     dc.l    flute_sndq-b
  542.     dc.l    ntune-b
  543.  
  544.         DC.L    0,end_song
  545.  
  546. s3_n:
  547.  
  548.     dc.l    pr-b
  549.  
  550.     dc.l     0,end_song
  551.  
  552. s4_n:
  553.  
  554.     dc.l    pr-b
  555.  
  556.     dc.l     0,end_song
  557.  
  558.  
  559. ng_click:
  560.     dc.w    4000,2,2000,2,rest,8,4000,1,2000,1,4000,1
  561.     dc.w    4000,1,2000,1,4000,1,rest,6
  562.     dc.w    end_patt
  563.  
  564. ntune:
  565.     dc.    rest,cr
  566.     dc.w    a03,cr,g03,cr*3,d03,cr,e03,cr*4,rest,cr*3
  567.     dc.w    a03,cr,g03,cr*3,e03,cr,d03,cr,g03,cr,e03,cr*4
  568.     dc.w    end_patt
  569.  
  570.  
  571.  
  572. ;        flute
  573.  
  574. s1_f:
  575.  
  576.  
  577.     dc.l    flute_snd-b
  578.     dc.l    flute_tune-b
  579.     dc.l    pri-b
  580.  
  581.       dc.l     0,end_song
  582. s2_f:
  583.  
  584.     dc.l    pr-b
  585.         DC.L    0,end_song
  586.  
  587.  
  588. s3_f:
  589.  
  590.     dc.l    pr-b
  591.         DC.L    0,end_song
  592.  
  593.  
  594. s4_f:
  595.     dc.l    pr-b
  596.     dc.l     0,end_song
  597.  
  598.  
  599. flute_tune:
  600.     dc.w modon,1,1,3,3,6,6
  601.     dc.w    g03,cr+sq,gb03,5,g03,5,gb03,cr
  602.     dc.w    eb03,cr,b02,cr,c03,cr,b02,5,c03,5,b02,cr*3
  603.     dc.w end_patt
  604.  
  605.  
  606. click_snd:
  607.     dc.w    new_env
  608.     dc.l    click_env-b
  609.     dc.w    new_snd
  610.     dc.l    clickp-b
  611.     dc.w     end_patt
  612.  
  613.  
  614. clickp
  615.         dc.w 1  
  616.              dc.l b-b
  617.              dc.w 16/2 
  618.              dc.l b-b
  619.              dc.w 16/2
  620.  
  621.  
  622. click_env:
  623.         dc.w    15,10,5,4,3,2,2,1,0,255
  624.  
  625.  
  626.  
  627.  
  628.  
  629.  
  630.  
  631. ;-------------
  632.  
  633. songs:
  634.  
  635. cr  set   24
  636. q set  cr/2
  637. sq set q/2
  638. dsq set sq/4
  639.  
  640. tq1 set      7
  641. tq2 set   6
  642. tsq1 set  3
  643. tsq2 set 4
  644.  
  645. s1_o:
  646.  
  647.     dc.l    harp_snd-b
  648.     dc.l    arp1-b
  649.     dc.l    o_tune-b
  650.     dc.l    o_tune1-b
  651.     dc.l    o_tune-b
  652.     dc.l    o_tune1-b
  653.       dc.l     0,end_song
  654. s2_o:
  655.  
  656.     dc.l    harp_snd-b
  657.     dc.l    arp2-b
  658.     dc.l    pizzo_snd-b
  659.     dc.l    obass-b
  660.     dc.l    obass2-b
  661.     dc.l    obass-b
  662.     dc.l    obass2-b
  663.         DC.L    0,end_song
  664.  
  665. s3_o:
  666.     dc.l    harp_snd-b
  667.     dc.l    arp3-b
  668.     dc.l    tamb_snd-b
  669.     dc.l    operc-b
  670.     dc.l    operc-b
  671.     dc.l    operc-b
  672.     dc.l    operc-b
  673.     dc.l     0,end_song
  674.  
  675. s4_o:
  676.  
  677.     dc.l    harp_snd-b
  678.     dc.l    arp4-b
  679.     dc.l    flute_snd-b
  680.     dc.l    oacc-b
  681.     dc.l    obass-b
  682.     dc.l    oacc-b
  683.     dc.l    obass2-b
  684.     dc.l     0,end_song
  685.  
  686.  
  687. o_tune
  688.     dc.w     c03,cr,d03,cr,c03,cr,d03,cr
  689.     dc.w    eb03,cr,f03,cr,eb03,cr,f03,cr
  690.     dc.w    g03,cr,ab03,cr,g03,cr,ab03,cr
  691.     dc.w    g03,cr,f03,cr,eb03,cr,d03,cr
  692.     dc.w    end_patt
  693.  
  694. o_tune1
  695.     dc.w     d02,cr,f02,cr,d02,cr,f02,cr
  696.     dc.w    g02,cr,ab02,cr,g02,cr,ab02,cr
  697.     dc.w    bb02,cr,c03,cr,bb02,cr,c03,cr
  698.     dc.w    bb02,cr,ab02,cr,g02,cr,f02,cr
  699.     dc.w    end_patt
  700.  
  701. obass
  702.     dc.w    c02,cr*4,eb02,cr*4,f02,cr*4
  703.     dc.w    eb02,cr*4
  704.     dc.w    end_patt
  705. obass2
  706.     dc.w    c02,cr*4,f02,cr*4,g02,cr*4,ab02,cr*4
  707.     dc.w    end_patt
  708.  
  709. oacc
  710.     dc.w    eb01,cr*4,f01,cr*4,g01,cr*4,ab01,cr*4
  711.     dc.w    end_patt
  712.  
  713. operc
  714.     dc.w    rest,cr*2,r20,q,r20,q,r20,cr
  715.     dc.w    rest,cr*2,r20,q,r20,q,r20,cr
  716.     dc.w    rest,cr*2,r20,q,r20,q,r20,cr
  717.     dc.w    rest,cr*2,r20,q,r20,q,r20,cr
  718.     dc.w    end_patt
  719.  
  720. arp1
  721.     dc.w    g01,cr,d02,cr,a02,cr,e03,cr
  722.     dc.w    end_patt
  723.  
  724. arp2
  725.     dc.w    rest,sq,a01,cr,e02,cr,b02,cr,f03,cr-sq
  726.     dc.w    end_patt
  727.  
  728. arp3
  729.     dc.w    rest,sq*2,b01,cr,f02,cr,c03,cr,g03,cr-sq*2
  730.     dc.w    end_patt
  731.  
  732. arp4
  733.     dc.w    rest,sq*3,c02,cr,g02,cr,d03,cr,a03,cr-sq*3
  734.     dc.w    end_patt
  735.  
  736.  
  737.  
  738. ;------------------
  739. cr  set   48
  740. q set  cr/2
  741. sq set q/2
  742. dsq set sq/4
  743.  
  744. tq1 set      7
  745. tq2 set   6
  746. tsq1 set  3
  747. tsq2 set 4
  748.  
  749. s1_c:
  750.  
  751.     dc.l    flute_snd-b
  752.     dc.l    cave_tune-b
  753.       dc.l     0,end_song
  754. s2_c:
  755.  
  756.     dc.l    pizzo_snd-b
  757.     dc.l    cave_bass-b
  758.         DC.L    0,end_song
  759.  
  760. s3_c:
  761.     dc.l    harp_snd-b
  762.     dc.l    cave_harp1-b
  763.     dc.l     0,end_song
  764.  
  765. s4_c:
  766.  
  767.     dc.l    harp_snd-b
  768.     dc.l    cave_harp2-b
  769.  
  770.     dc.l     0,end_song
  771.  
  772.  
  773. ;----------
  774.  
  775. pr:
  776.     dc.w    rest,cr*4
  777.     dc.w    end_patt
  778.  
  779. cave_tune:
  780.     dc.w modon,1,1,2,2,6,6
  781.     dc.w     rest,cr*3
  782.     dc.w    ab02,cr,g02,cr,d02,cr*3,rest,cr*5
  783.     dc.w    gb02,cr,f02,cr,c02,cr*3,rest,cr*5
  784.     dc.w    e02,cr,eb02,cr,bb01,cr*3,rest,cr*5
  785.     dc.w    db02,cr,c02,cr,g01,cr*3,rest,cr*4
  786.     dc.w     end_patt
  787.  
  788.  
  789. cave_bass
  790.     dc.w    g02,q,g02,cr*9-q
  791.     dc.w    f02,cr*3
  792.     dc.w    g02,q,g02,cr*5-q
  793.     dc.w    ab02,cr*3,g02,q,g02,cr*9-q,f02,cr*3,g02,q,g02,cr*5-q
  794.     dc.w    ab02,cr*5
  795.     dc.w     end_patt
  796.  
  797. cave_harp1:
  798.     dc.w    e03,q,c03,q,ab02,q,e02,q
  799.     dc.w    c03,q,ab02,q,e02,q,c02,q,ab01,cr*5
  800.     dc.w    d03,q,bb02,q,gb02,q,d02,q
  801.     dc.w    bb02,q,gb02,q,g02,q,eb02,q,b01,q,g01,q,eb01,cr*3
  802.     dc.w    ab03,q,d03,q,bb02,q,gb02,q
  803.     dc.w    d03,q,bb02,q,b02,q,g02,q,eb02,q,b01,q,g01,cr*7
  804.     dc.w    d03,q,bb02,q,gb02,q,d02,q
  805.     dc.w    bb02,q,gb02,q,g02,q,eb02,q,b01,q,g01,q,eb01,cr*3
  806.     dc.w    gb03,q,d03,q,bb02,q,gb02,q,d02,cr*3
  807.     dc.w     end_patt
  808.  
  809.  
  810. cave_harp2:
  811.     dc.w    c03,q,ab02,q,e02,q,c02,q
  812.     dc.w    ab02,q,e02,q,c02,q,ab01,q,e01,cr*5
  813.     dc.w    bb02,q,gb02,q,d02,q,bb01,q
  814.     dc.w    gb02,q,d02,q,eb02,q,b01,q,g01,q,eb01,q,b01,cr*3
  815.     dc.w    d03,q,bb02,q,gb02,q,d02,q
  816.     dc.w    bb02,q,gb02,q,g02,q,eb02,q,b01,q,g01,q,d01,cr*7
  817.     dc.w    bb02,q,gb02,q,d02,q,bb01,q
  818.     dc.w    gb02,q,d02,q,eb02,q,b01,q,g01,q,eb01,q,b01,cr*3
  819.     dc.w    d03,q,bb02,q,gb02,q,d02,q,bb02,cr*3
  820.     dc.w     end_patt
  821.  
  822. ;-------------------
  823.  
  824. cr  set   36
  825. q set  cr/2
  826. sq set q/2
  827. dsq set sq/4
  828.  
  829. tq1 set     12
  830. tq2 set   12
  831. tsq1 set  3
  832. tsq2 set 4
  833.  
  834. s1_ne:
  835.  
  836.     dc.l    flute_snd-b
  837.     dc.l    mod_patt-b
  838.     dc.l    gate_tune-b
  839.     dc.l    harp_snd-b
  840.     dc.l    gate_tune-b
  841.  
  842.  
  843.  
  844.       dc.l     0,end_song
  845. s2_ne:
  846.  
  847.     dc.l    harp_sndq-b
  848.     dc.l    gate_acc1-b
  849.  
  850.         DC.L    0,end_song
  851.  
  852. s3_ne:
  853.  
  854.     dc.l    harp_sndq-b
  855.     dc.l    gate_acc2-b
  856.  
  857.     dc.l     0,end_song
  858.  
  859. s4_ne:
  860.  
  861.     dc.l    harp_sndq-b
  862.     dc.l    gate_acc1x-b
  863.     dc.l    gate_acc2x-b
  864.  
  865.     dc.l     0,end_song
  866. ;----------
  867.  
  868.         ;gates
  869. s1_g:
  870.  
  871.     dc.l    trumpet_snd-b
  872.     dc.l    gate_tune-b
  873.  
  874.       dc.l     0,end_song
  875. s2_g:
  876.  
  877.     dc.l    flute_sndg-b
  878.     dc.l    gate_acc1-b
  879.  
  880.         DC.L    0,end_song
  881.  
  882. s3_g:
  883.  
  884.     dc.l    flute_sndg-b
  885.     dc.l    gate_acc2-b
  886.  
  887.     dc.l     0,end_song
  888.  
  889. s4_g:
  890.  
  891.     dc.l    tymp_snd-b
  892.     dc.l    gate_tymp-b
  893.  
  894.     dc.l     0,end_song
  895. ;----------
  896.  
  897.  
  898. s1_b:
  899.  
  900.     dc.l    wave_snd-b
  901.     dc.l    wave-b
  902.  
  903.       dc.l     0,end_song
  904. s2_b:
  905.  
  906.     dc.l    wave_snd-b
  907.     dc.l    wavex-b
  908.  
  909.         DC.L    0,end_song
  910.  
  911. s3_b:
  912.  
  913.     dc.l    seagull1_snd-b
  914.     dc.l    seagull1-b
  915.     dc.l     0,end_song
  916.  
  917. s4_b:
  918.  
  919.     dc.l    seagull2_snd-b
  920.     dc.l    seagull2-b
  921.  
  922.     dc.l     0,end_song
  923. ;----------
  924.  
  925.  
  926. wave
  927.  
  928.     dc.w    r4,150,r5,170,r3,180,r3,200,r2,190
  929.     dc.w end_patt
  930.  
  931. wavex
  932.  
  933.     dc.w    rest,12,r4,150,r5,170,r3,180,r3,200,r2,190-12
  934.     dc.w end_patt
  935.  
  936. seagull1
  937.     dc.w pbend,down,2,10000,1
  938.     dc.w  a03,10,a03,12
  939.     dc.w    rest,300
  940.     dc.w  f03,16,a03,8
  941.     dc.w  a03,8,g03,12
  942.     dc.w    rest,250
  943.  
  944.     dc.w end_patt
  945.  
  946.  
  947. seagull2
  948.     dc.w pbend,down,1,10000,1
  949.     dc.w  g03,5,rest,100,g03,15,f03,10
  950.     dc.w    rest,200
  951.     dc.w  e03,15,rest,100,e03,8,f03,10
  952.     dc.w    rest,450
  953.     dc.w end_patt
  954.  
  955.  
  956.  
  957.  
  958.  
  959. mod_patt
  960.     dc.w modon,1,1,4,4,8,8
  961.     dc.w     end_patt
  962.  
  963.  
  964. gate_tymp:
  965.     dc.w    r12,q,r8,q,r12,cr
  966.     dc.w    r12,q,r8,q,r12,cr
  967.     dc.w    r12,q,r8,q,r12,cr
  968.     dc.w    r12,q,r8,q,r12,cr
  969.     dc.w    r8,cr*8
  970.     dc.w     end_patt
  971.  
  972.  
  973. gate_tune:
  974.     dc.w    c03,tq1,g02,tq2,c03,tq1
  975.     dc.w    d03,tq1,g02,tq2,d03,tq1
  976.     dc.w    c03,tq1,g02,tq2,c03,tq1
  977.     dc.w    ab02,tq1,f02,tq2,ab02,tq1
  978.  
  979.     dc.w    g02,cr*4,rest,cr*8-q
  980.     dc.w    g02,q
  981.  
  982.     dc.w    c03,tq1,g02,tq2,c03,tq1
  983.     dc.w    d03,tq1,g02,tq2,d03,tq1
  984.     dc.w    c03,tq1,g02,tq2,c03,tq1
  985.     dc.w    ab02,tq1,f02,tq2,ab02,tq1
  986.  
  987.     dc.w    g02,tq1,d02,tq2,g02,tq1
  988.     dc.w    f02,tq1,c02,tq2,f02,tq1
  989.     dc.w    d02,tq1,g01,tq2,d02,tq1
  990.     dc.w    g01,tq1+tq2,d02,tq1
  991.  
  992.     dc.w    g01,tq1+tq2,d02,tq1
  993.     dc.w    g01,cr*3,rest,cr*4
  994.     dc.w     end_patt
  995.  
  996.  
  997.  
  998.  
  999. gate_acc1:
  1000.     dc.w    c02,q,c03,q,c02,cr
  1001.     dc.w    bb01,q,bb02,q,bb01,cr
  1002.     dc.w    g01,q,g02,q,g01,cr
  1003.     dc.w    f01,q,f02,q,f01,cr
  1004.     dc.w     end_patt
  1005.  
  1006. gate_acc2:
  1007.  
  1008.     dc.w    rest,2
  1009.     dc.w    g01,q,g02,q,g01,cr
  1010.     dc.w    f01,q,f02,q,f01,cr
  1011.     dc.w    c01,q,c02,q,c01,cr
  1012.     dc.w    bb00,q,bb01,q,bb00,cr-2
  1013.     dc.w     end_patt
  1014.  
  1015. gate_acc1x:
  1016.     dc.w    rest,4,c02,q,c03,q,c02,cr
  1017.     dc.w    bb01,q,bb02,q,bb01,cr
  1018.     dc.w    g01,q,g02,q,g01,cr
  1019.     dc.w    f01,q,f02,q,f01,cr-4
  1020.     dc.w     end_patt
  1021.  
  1022. gate_acc2x:
  1023.     dc.w    rest,4,g01,q,g02,q,g01,cr
  1024.     dc.w    f01,q,f02,q,f01,cr
  1025.     dc.w    c01,q,c02,q,c01,cr
  1026.     dc.w    bb00,q,bb01,q,bb00,cr-4
  1027.     dc.w     end_patt
  1028.  
  1029.  
  1030.  
  1031.  
  1032.  
  1033.  
  1034. acc_rest
  1035.     dc.w    rest,cr+q
  1036.     dc.w     end_patt
  1037.  
  1038.  
  1039. pri
  1040.     dc.w    rest,65000
  1041.     dc.w    rest,65000
  1042.     dc.w    rest,65000
  1043.     dc.w    rest,65000
  1044.     dc.w    rest,65000
  1045.     dc.w     end_patt
  1046.  
  1047.  
  1048. ;-----------------
  1049.  
  1050. sounds:
  1051.  
  1052. flute_snd:
  1053.     dc.w    new_env
  1054.     dc.l    flute_envcq-b
  1055.     dc.w    new_snd
  1056.     dc.l    flutep-b
  1057.     dc.w     end_patt
  1058.  
  1059. seagull1_snd:
  1060.     dc.w    new_env
  1061.     dc.l    flute_envvq-b
  1062.     dc.w    new_snd
  1063.     dc.l    flutep-b
  1064.     dc.w     end_patt
  1065.  
  1066. seagull2_snd:
  1067.     dc.w    new_env
  1068.     dc.l    flute_envq-b
  1069.     dc.w    new_snd
  1070.     dc.l    flutep-b
  1071.     dc.w     end_patt
  1072.  
  1073.  
  1074.  
  1075.  
  1076. flute_sndg:
  1077.     dc.w    new_env
  1078.     dc.l    flute_envg-b
  1079.     dc.w    new_snd
  1080.     dc.l    flutep-b
  1081.     dc.w     end_patt
  1082.  
  1083.  
  1084.  
  1085.  
  1086. glock_snd:
  1087.     dc.w    new_env
  1088.     dc.l    glock_env-b
  1089.     dc.w    new_snd
  1090.     dc.l    glockp-b
  1091.     dc.w     end_patt
  1092.  
  1093.  
  1094. flute_sndq:
  1095.     dc.w    new_env
  1096.     dc.l    flute_envq-b
  1097.     dc.w    new_snd
  1098.     dc.l    flutep-b
  1099.     dc.w     end_patt
  1100.  
  1101. flute_sndmq:
  1102.     dc.w    new_env
  1103.     dc.l    flute_envmq-b
  1104.     dc.w    new_snd
  1105.     dc.l    flutep-b
  1106.     dc.w     end_patt
  1107.  
  1108.  
  1109. aguitar_snd:
  1110.     dc.w    new_env
  1111.     dc.l    aguitar_env-b
  1112.     dc.w    new_snd
  1113.     dc.l    aguitp-b
  1114.     dc.w     end_patt
  1115.  
  1116. aguitar_sndq:
  1117. aguitar_snd_quiet:
  1118.     dc.w    new_env
  1119.     dc.l    aguitar_env_quiet-b
  1120.     dc.w    new_snd
  1121.     dc.l    aguitp-b
  1122.     dc.w     end_patt
  1123.  
  1124.  
  1125. tamb_snd:
  1126.     dc.w    new_env
  1127.     dc.l    tamb_env-b
  1128.     dc.w    new_snd
  1129.     dc.l    tambp-b
  1130.     dc.w     end_patt
  1131.  
  1132.  
  1133.  
  1134. abass_snd:
  1135.     dc.w    new_env
  1136.     dc.l    abass_env-b
  1137.     dc.w    new_snd
  1138.     dc.l    abassp-b
  1139.     dc.w     end_patt
  1140.  
  1141. sitar_snd:
  1142.     dc.w    new_env
  1143.     dc.l    sitar_env-b
  1144.     dc.w    new_snd
  1145.     dc.l    sitarp-b
  1146.     dc.w     end_patt
  1147.  
  1148. bassoon_snd:
  1149.     dc.w    new_env
  1150.     dc.l    bassoon_env-b
  1151.     dc.w    new_snd
  1152.     dc.l    bassoonp-b
  1153.     dc.w     end_patt
  1154.  
  1155. bassoon_snd_short:
  1156.     dc.w    new_env
  1157.     dc.l    bassoon_env-b
  1158.     dc.w    new_snd
  1159.     dc.l    bassoonsp-b
  1160.     dc.w     end_patt
  1161.  
  1162. snare_snd:
  1163.     dc.w    new_env
  1164.     dc.l    snare_env-b
  1165.     dc.w    new_snd
  1166.     dc.l    snarep-b
  1167.     dc.w     end_patt
  1168.  
  1169. snare_sndq:
  1170.     dc.w    new_env
  1171.     dc.l    snare_envq-b
  1172.     dc.w    new_snd
  1173.     dc.l    snarep-b
  1174.     dc.w     end_patt
  1175.  
  1176. trumpet_snd:
  1177.     dc.w    new_env
  1178.     dc.l    trumpet_env-b
  1179.     dc.w    new_snd
  1180.     dc.l    trumpetp-b
  1181.     dc.w     end_patt
  1182.  
  1183. trumpet_sndq:
  1184.     dc.w    new_env
  1185.     dc.l    trumpet_envq-b
  1186.     dc.w    new_snd
  1187.     dc.l    trumpetp-b
  1188.     dc.w     end_patt
  1189.  
  1190. pizzo_snd:
  1191.     dc.w    new_env
  1192.     dc.l    pizzo_env-b
  1193.     dc.w    new_snd
  1194.     dc.l    pizzop-b
  1195.     dc.w     end_patt
  1196.  
  1197. pizzoh_snd:
  1198.     dc.w    new_env
  1199.     dc.l    pizzo_env-b
  1200.     dc.w    new_snd
  1201.     dc.l    pizzohp-b
  1202.     dc.w     end_patt
  1203.  
  1204.  
  1205. fhorn_snd:
  1206.     dc.w    new_env
  1207.     dc.l    fhorn_env-b
  1208.     dc.w    new_snd
  1209.     dc.l    fhornp-b
  1210.     dc.w     end_patt
  1211.  
  1212. fhorn_sndq:
  1213.     dc.w    new_env
  1214.     dc.l    fhorn_envq-b
  1215.     dc.w    new_snd
  1216.     dc.l    fhornp-b
  1217.     dc.w     end_patt
  1218.  
  1219.  
  1220.  
  1221. strings_snd:
  1222.     dc.w    new_env
  1223.     dc.l    strings_env-b
  1224.     dc.w    new_snd
  1225.     dc.l    stringsp-b
  1226.     dc.w     end_patt
  1227.  
  1228. strings_sndl:
  1229.     dc.w    new_env
  1230.     dc.l    strings_envl-b
  1231.     dc.w    new_snd
  1232.     dc.l    stringsp-b
  1233.     dc.w     end_patt
  1234.  
  1235.  
  1236.  
  1237. tymp_snd:
  1238.     dc.w    new_env
  1239.     dc.l    tymp_env-b
  1240.     dc.w    new_snd
  1241.     dc.l    tympp-b
  1242.     dc.w     end_patt
  1243.  
  1244. taiko_snd:
  1245.     dc.w    new_env
  1246.     dc.l    taiko_env-b
  1247.     dc.w    new_snd
  1248.     dc.l    taikop-b
  1249.     dc.w     end_patt
  1250.  
  1251. taiko_snd_loud:
  1252.     dc.w    new_env
  1253.     dc.l    taiko_env_loud-b
  1254.     dc.w    new_snd
  1255.     dc.l    taikop-b
  1256.     dc.w     end_patt
  1257.  
  1258.  
  1259. monk_snd:
  1260.     dc.w    new_env
  1261.     dc.l    monk_env-b
  1262.     dc.w    new_snd
  1263.     dc.l    monkp-b
  1264.     dc.w     end_patt
  1265.  
  1266. wave_snd:
  1267.     dc.w    new_env
  1268.     dc.l    wave_envq-b
  1269.     dc.w    new_snd
  1270.     dc.l    wavep-b
  1271.     dc.w     end_patt
  1272.  
  1273.  
  1274. harp_snd:
  1275.     dc.w    new_env
  1276.     dc.l    harp_env-b
  1277.     dc.w    new_snd
  1278.     dc.l    harpp-b
  1279.     dc.w     end_patt
  1280.  
  1281.  
  1282. harp_sndq:
  1283.     dc.w    new_env
  1284.     dc.l    harp_envq-b
  1285.     dc.w    new_snd
  1286.     dc.l    harpp-b
  1287.     dc.w     end_patt
  1288.  
  1289.  
  1290.  
  1291. ;***********************************************
  1292.  
  1293. parameters:
  1294.  
  1295. iff    equ 108
  1296.  
  1297.     ; sample parameters
  1298.  
  1299.  
  1300. snarep
  1301.         dc.w 1  
  1302.              dc.l snared-b
  1303.              dc.w 2240/2  
  1304.              dc.l restd-b
  1305.              dc.w 16/2
  1306.  
  1307.  
  1308. trumpetp
  1309.         dc.w 1  
  1310.              dc.l synbras1d-b
  1311.              dc.w 3338/2  
  1312.              dc.l synbras1d-b
  1313.              dc.w 3338/2  
  1314.  
  1315. abassp
  1316.         dc.w 1  
  1317.              dc.l abassd+iff-b
  1318.              dc.w 8000/2 
  1319.              dc.l restd-b
  1320.              dc.w 16/2
  1321.  
  1322. flutep
  1323.         dc.w 1  
  1324.              dc.l fluted+iff-b
  1325.              dc.w 7278/2
  1326.              dc.l fluted+4173+iff-b
  1327.              dc.w 3106/2
  1328.  
  1329. tambp
  1330.         dc.w 1  
  1331.              dc.l tambd-b
  1332.              dc.w 1457/2 
  1333.              dc.l restd-b
  1334.              dc.w 16/2
  1335.  
  1336. sitarp
  1337.         dc.w 1  
  1338.              dc.l sitard-b
  1339.              dc.w 7708/2 
  1340.              dc.l restd-b
  1341.              dc.w 16/2
  1342.  
  1343. aguitp
  1344.         dc.w 1  
  1345.              dc.l aguitd+iff-b
  1346.              dc.w 9576/2 
  1347.              dc.l restd-b
  1348.              dc.w 16/2
  1349.  
  1350. bassoonlp
  1351.         dc.w 1  
  1352.              dc.l bassoond+iff-b
  1353.              dc.w 4788/2 
  1354.              dc.l bassoond+iff+2033-b
  1355.              dc.w 2755/2
  1356.  
  1357.  
  1358. bassoonp
  1359.         dc.w 1  
  1360.              dc.l bassoond+iff-b
  1361.              dc.w 4788/2 
  1362.              dc.l restd-b
  1363.              dc.w 16/2
  1364.  
  1365. bassoonsp
  1366.         dc.w 1  
  1367.              dc.l bassoond+iff-b
  1368.              dc.w 4788/2-1000 
  1369.              dc.l restd-b
  1370.              dc.w 16/2
  1371.  
  1372. pizzop:
  1373.         dc.w 1  
  1374.              dc.l pizzod-b
  1375.              dc.w 5550/2 
  1376.              dc.l restd-b
  1377.              dc.w 16/2
  1378.  
  1379. pizzohp:
  1380.         dc.w 1  
  1381.              dc.l pizzohd-b
  1382.              dc.w 3796/2 
  1383.              dc.l restd-b
  1384.              dc.w 16/2
  1385.  
  1386. fhornp:
  1387.         dc.w 1  
  1388.              dc.l fhornd+iff-b
  1389.              dc.w (6684-iff)/2 
  1390.              dc.l fhornd+iff-b
  1391.              dc.w (6684-iff)/2
  1392.  
  1393. stringsp:
  1394.         dc.w 1  
  1395.              dc.l stringsd-b
  1396.              dc.w (8668)/2 
  1397.              dc.l restd-b
  1398.              dc.w 16/2
  1399.  
  1400. tympp:
  1401.         dc.w 1  
  1402.              dc.l tympd-b
  1403.              dc.w 7378/2 
  1404.              dc.l restd-b
  1405.              dc.w 16/2
  1406.  
  1407. taikop:
  1408.         dc.w 1  
  1409.              dc.l taikod+iff-b
  1410.              dc.w (4118-iff)/2 
  1411.              dc.l restd-b
  1412.              dc.w 16/2
  1413.  
  1414. monkp:
  1415.         dc.w 1  
  1416.              dc.l monkd+iff-b
  1417.              dc.w (6290-iff)/2 
  1418.              dc.l restd-b
  1419.              dc.w 16/2
  1420.  
  1421. wavep:
  1422.         dc.w 1  
  1423.              dc.l waved+iff-b
  1424.              dc.w (9094-iff)/2 
  1425.              dc.l restd-b
  1426.              dc.w 16/2
  1427.  
  1428. glockp:
  1429.         dc.w 1  
  1430.              dc.l glockd+iff-b
  1431.              dc.w (9113-iff)/2 
  1432.              dc.l restd-b
  1433.              dc.w 16/2
  1434.  
  1435. harpp:
  1436.         dc.w 1  
  1437.              dc.l harpd+iff-b
  1438.              dc.w (7191-iff)/2 
  1439.              dc.l restd-b
  1440.              dc.w 16/2
  1441.  
  1442. fantasyp:
  1443.         dc.w 1  
  1444.              dc.l glockd+iff-b
  1445.              dc.w (9113-iff)/2 
  1446.              dc.l fluted+4173+iff-b
  1447.              dc.w 3106/2
  1448.  
  1449. sinep:
  1450.         dc.w 1  
  1451.              dc.l sined-b
  1452.              dc.w 16/2 
  1453.              dc.l sined-b
  1454.              dc.w 16/2
  1455.  
  1456.  
  1457.  
  1458. sined:
  1459. sine_datad:
  1460.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  1461.              dc.w -127,-100,-50,-35,0,35,50,80,127
  1462.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  1463.              dc.w -127,-100,-50,-35,0,35,50,80,127
  1464.  
  1465.  
  1466.  
  1467. envelopes:
  1468.  
  1469.  
  1470. rest_env:            dc.w 0,0,0,0,0,0,0,0,255
  1471. flute_env:            dc.w 0,40,255
  1472. flute_envcq:            dc.w 0,40,255
  1473. tymp_env:            dc.w 0,48,255
  1474. flute_envq:            dc.w 0,8,255
  1475. flute_envvq:            dc.w 0,4,255
  1476. flute_envmq:            dc.w 0,18,255
  1477. flute_envg:            dc.w 0,13,255
  1478. tamb_env:            dc.w 0,62,255
  1479. aguitar_env:            dc.w 0,45,255
  1480. aguitar_env_quiet:        dc.w 0,30,255
  1481. sitar_env:            dc.w 0,42,255
  1482. abass_env:            dc.w 0,44,255
  1483. snare_env:            dc.w 0,35,255
  1484. snare_envq:            dc.w 0,15,255
  1485. trumpet_env:            dc.w 0,35,255
  1486. trumpet_envq:            dc.w 0,15,255
  1487. bassoon_env:            dc.w 0,40,255
  1488. pizzo_env:            dc.w 0,35,255
  1489. fhorn_env:            dc.w 0,40,255
  1490. fhorn_envq:            dc.w 0,28,255
  1491. strings_env:            dc.w 0,18,255
  1492. strings_envl:            dc.w 0,38,255
  1493. taiko_env:            dc.w 0,38,255
  1494. taiko_env_loud:            dc.w 0,64,255
  1495. taiko_envq:            dc.w 0,38,255
  1496. bird2_env:            dc.w 0,28,255
  1497. bird_env:            dc.w 0,18,255
  1498. monk_env:            dc.w 0,38,255
  1499. wave_env:            dc.w 0,38,255
  1500. wave_envq:            dc.w 0,18,255
  1501. glock_env:            dc.w 0,32,255
  1502. harp_env:            dc.w 0,32,255
  1503. harp_envq:            dc.w 0,15,255
  1504. fantasy_env:            dc.w 0,48,255
  1505.  
  1506.  
  1507.  
  1508. ;guit.sam                    6191 rwed Today     01:27:11
  1509. ;tamb.sam                    1457 rwed Today     01:27:10
  1510. ;flute.sam                   8410 rwed Today     01:27:08
  1511. ;sitar.sam                   8993 rwed Today     01:27:07
  1512. ;bass.sam                    8583 rwed Today     01:27:05
  1513. ;7 files - 207 blocks used
  1514.  
  1515. ;**************************************************
  1516.  
  1517.  
  1518. aguitd            ;incbin c:instruments/aguit.sam 
  1519. tambd            incbin c:instruments/tamb.sam 
  1520. fluted            incbin c:instruments/flute.sam 
  1521. sitard            ;incbin c:instruments/sitar.sam 
  1522. abassd            ;incbin c:instruments/abass.sam 
  1523. snared            ;incbin c:instruments/snare.sam 
  1524. synbras1d        incbin c:instruments/hbrass3l.sam 
  1525. bassoond        ;incbin c:instruments/bassoonl.sam 
  1526. pizzod            incbin c:instruments/pizzo1.sam 
  1527. pizzohd            ;incbin c:instruments/pizzo2.sam 
  1528.  
  1529. fhornd            ;incbin c:instruments/fhorn.sam 
  1530. stringsd        ;incbin c:instruments/strings2.sam
  1531. tympd            incbin c:instruments/tymp1.sam
  1532. taikod            ;incbin c:instruments/taiko.sam
  1533. monkd            ;incbin c:instruments/monk.sam
  1534. waved            incbin c:instruments/wave.sam
  1535. glockd            ;incbin c:instruments/glock.sam
  1536. harpd            incbin c:instruments/harp.sam
  1537.  
  1538.  
  1539. ;********************************************
  1540.  
  1541. ;;THE FX SAMPLES ARE PULLED IN HERE...THis section can be anywhere
  1542. ;; in lower memory,and in any order
  1543.  
  1544.  
  1545.  
  1546.  
  1547.  
  1548.  
  1549. ;***********************
  1550.  
  1551. restd:
  1552. rest_data:
  1553.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1554.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1555.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1556.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1557.  
  1558. c
  1559. ;*************************************************
  1560.  
  1561.  
  1562.  
  1563.