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