home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Amiga KQ 6 Levels Data / Lowe_AmigaKQ6LevelsData.adf / isle_of_mists / iom.data next >
Encoding:
Text File  |  1978-08-04  |  15.8 KB  |  1,054 lines
  1. ;ISLE OF MISTS
  2.     opt p+
  3.  
  4.  
  5. b
  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. ;**************************************************************************
  192.  
  193.  
  194.     ;;; DATA
  195.  
  196.  
  197. max_songs    dc.l    7
  198.  
  199. song_table:
  200.         dc.l s1_dr-b,s2_dr-b,s3_dr-b,s4_dr-b        ; 1] drums from beach
  201.         dc.l s1_dw-b,s2_dw-b,s3_dw-b,s4_dw-b        ; 2] druid woods
  202.         dc.l s1_sc-b,s2_sc-b,s3_sc-b,s4_sc-b        ; 3] stone circle
  203.         dc.l s1_sc1-b,s2_sc1-b,s3_sc1-b,s4_sc1-b    ; 4] stone_circle_inset
  204.         dc.l s1_sc2-b,s2_sc2-b,s3_sc2-b,s4_sc2-b    ; 5] boiling
  205.         dc.l s1_die-b,s2_die-b,s3_die-b,s4_die-b    ; 6] die
  206.  
  207.  
  208. ;************************************************************
  209.  
  210. ;       THESE ARE THE FX PATTERNS................
  211.  
  212.  
  213.  
  214. clunk1
  215.       dc.w new_env
  216.       dc.l clunk_env-b
  217.       dc.w new_snd
  218.       dc.l snarep-b
  219.     dc.w pbend,down,20,50000,1
  220.     dc.w    r2,14
  221.     dc.w    pboff
  222.       dc.w end_fxp
  223.  
  224. clunk2
  225.       dc.w new_env
  226.       dc.l clunk_env-b
  227.       dc.w new_snd
  228.       dc.l snarep-b
  229.     dc.w pbend,down,2,50000,1
  230.     dc.w    r1,14
  231.     dc.w    pboff
  232.       dc.w end_fxp
  233.  
  234.  
  235. clunk_env:
  236. score_env1    dc.w    54,53,52,51,50,49,48,47,46,45,44
  237.  
  238. ;*************************
  239.  
  240.  
  241. fxp:
  242.  
  243. danger:
  244.       dc.w new_env
  245.       dc.l danger_env-b
  246.       dc.w new_snd
  247.       dc.l sinep-b
  248. danger_loop:
  249.     dc.w r16,4,r16,4,r16,4,r16,4
  250.     dc.w repeat
  251.     dc.l danger_loop-b
  252.       dc.w end_fxp
  253.  
  254. danger_env:            dc.w 0,35,28,25,20,15,10,0,255
  255.  
  256. score1
  257.       dc.w new_env
  258.       dc.l score_env1-b
  259.       dc.w new_snd
  260.       dc.l sinep-b
  261.     dc.w modon,1,1,2,2,1,1
  262.     dc.w 130,50
  263.       dc.w end_fxp
  264.  
  265.  
  266. score2
  267.       dc.w new_env
  268.       dc.l score_envs-b
  269.       dc.w new_snd
  270.       dc.l sinep-b
  271.     dc.w modon,1,1,1,1,1,1
  272.     dc.w    a03,5,a02,5
  273.       dc.w new_env
  274.       dc.l score_env2-b
  275.     dc.w e03,50
  276.       dc.w end_fxp
  277.  
  278. score3
  279.       dc.w new_env
  280.       dc.l score_envs-b
  281.       dc.w new_snd
  282.       dc.l sinep-b
  283.     dc.w modon,1,1,1,1,1,1
  284.     dc.w    a03,4,a02,4
  285.     dc.w    a03,4,a02,4
  286.       dc.w new_env
  287.       dc.l score_env2-b
  288.     dc.w e03,50
  289.       dc.w end_fxp
  290.  
  291. score4
  292.       dc.w new_env
  293.       dc.l score_envs-b
  294.       dc.w new_snd
  295.       dc.l sinep-b
  296.     dc.w modon,1,1,1,1,1,1
  297.     dc.w    c03,4,d03,4
  298.     dc.w    e03,4,f03,4
  299.     dc.w    g03,4
  300.       dc.w new_env
  301.       dc.l score_env2-b
  302.     dc.w a03,50
  303.       dc.w end_fxp
  304.  
  305. score5
  306.       dc.w new_env
  307.       dc.l score_envs-b
  308.       dc.w new_snd
  309.       dc.l sinep-b
  310.     ;dc.w pbend,up,20,a03,1
  311.     dc.w    a03,4,g03,4,a03,4,g03,4
  312.     dc.w    a03,4,g03,4,a03,4,g03,4
  313.     dc.w    a03,4,g03,4,a03,4,g03,4
  314.       dc.w new_env
  315.       dc.l score_env2-b
  316.     dc.w    a03,50
  317.       dc.w end_fxp
  318.  
  319.  
  320. magic_map:
  321.       dc.w new_env
  322.       dc.l score_env1-b
  323.       dc.w new_snd
  324.       dc.l flutep-b
  325.     dc.w c02,4,d02,4,e02,4,f02,4,g02,4,a02,4,b02,4,c03,4
  326.     dc.w d03,4,e03,4,f03,4,g03,4,a03,10
  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. score_env2        dc.w     43,42,41,40,39,38,37,36,35,34,33,32,31,30
  335.         dc.w    29,28,27,26,25,24,23,22,21,20,19,18,17,16
  336.         dc.w    15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0,255
  337.  
  338. ;*************************
  339.  
  340. fx_table:
  341. fxjump_table:  
  342.  
  343.     dc.l clunk1-b        ;1 ]
  344.     dc.l clunk2-b        ;2 ]
  345.  
  346.     dc.l score1-b        ;1 ]
  347.     dc.l score2-b        ;2 ]
  348.     dc.l score3-b        ;3 ]
  349.     dc.l score4-b        ;4 ]
  350.     dc.l score5-b        ;5 ]
  351.     dc.l magic_map-b        ;6 ]
  352.     dc.l danger-b        ;7 ] standing in water    
  353.     dc.l winch_fx-b        ;8 ] hoisting up cage
  354.  
  355.  
  356. max_fx    dc.l    9    ;number + 1 for test routines only
  357. ;______________________________________________________________________
  358.  
  359. winch_fx:
  360.       dc.w new_env
  361.       dc.l winch_env-b
  362.       dc.w new_snd
  363.       dc.l winchp-b
  364.     dc.w r8,4        
  365.       dc.w end_fxp
  366.  
  367. winch_env:            dc.w 0,64,64,64,255
  368.  
  369. ;*************************
  370.  
  371.  
  372. sstart: dc.l 0,end_song
  373.  
  374. pstart: dc.w end_patt
  375.  
  376. ;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  377.  
  378. cr  set   28
  379. q set  cr/2
  380. sq set q/2
  381. dsq set sq/4
  382.  
  383. tq1 set      7
  384. tq2 set   6
  385. tsq1 set  3
  386. tsq2 set 4
  387.  
  388. ssilence:
  389.     dc.l    pr-b
  390.       dc.l     0,end_song
  391.  
  392.  
  393. ;************************************************
  394.  
  395. songs:
  396.  
  397. cr  set   28
  398. q set  cr/2
  399. sq set q/2
  400. dsq set sq/4
  401.  
  402. tq1 set      7
  403. tq2 set   6
  404. tsq1 set  3
  405. tsq2 set 4
  406.  
  407. s1_sc:
  408.  
  409.     dc.l    strings_snd-b
  410.     dc.l    stone_circle_riff-b
  411.       dc.l     0,end_song
  412. s2_sc:
  413.  
  414.     dc.l    taiko_snd_loud-b
  415.     dc.l    scdrums1-b
  416.         DC.L    0,end_song
  417.  
  418.  
  419. s3_sc:
  420.  
  421.  
  422.     dc.l    abass_snd-b
  423.     dc.l    stone_circle_bass-b
  424.     dc.l     0,end_song
  425.  
  426.  
  427. s4_sc:
  428.  
  429.     dc.l    pr-b
  430.     dc.l     0,end_song
  431.  
  432.  
  433. stone_circle_riff:
  434.     dc.w    d02,cr,d02,q,d02,q,d02,cr*2
  435.     dc.w    d02,cr,d02,q,d02,q,d02,cr*2
  436.     dc.w    d02,cr,d02,q,d02,q,d02,cr
  437.     dc.w    d02,q,eb02,cr,eb02,q,c02,cr
  438.     dc.w end_patt
  439.  
  440.  
  441. stone_circle_bass
  442.     dc.w    d01,cr,d01,q,d01,q,d01,cr*2
  443.     dc.w    d01,cr,d01,q,d01,q,d01,cr*2
  444.     dc.w    d01,cr,d01,q,d01,q,d01,cr
  445.     dc.w    d01,q,eb01,cr,eb01,q,c01,cr
  446.     dc.w end_patt
  447.  
  448.  
  449. scdrums1:
  450.     dc.w  r8,q,r6,q,r8,q,r6,q,r8,cr,r4,q,r4,q
  451.     dc.w    repeat
  452.     dc.l    scdrums1-b
  453.     dc.w end_patt
  454.  
  455.  
  456.  
  457. cr  set   24
  458. q set  cr/2
  459. sq set q/2
  460. dsq set sq/4
  461.  
  462. tq1 set      7
  463. tq2 set   6
  464. tsq1 set  3
  465. tsq2 set 4
  466.  
  467. s1_sc1:
  468.  
  469.     dc.l    strings_snd-b
  470.     dc.l    stone_circle_riff1-b
  471.       dc.l     0,end_song
  472. s2_sc1:
  473.  
  474.     dc.l    taiko_snd_loud-b
  475.     dc.l    scdrums11-b
  476.         DC.L    0,end_song
  477.  
  478.  
  479. s3_sc1:
  480.  
  481.  
  482.     dc.l    abass_snd-b
  483.     dc.l    stone_circle_bass1-b
  484.     dc.l     0,end_song
  485.  
  486.  
  487. s4_sc1:
  488.  
  489.     dc.l    flute_snd-b
  490.     dc.l    sc1_flute-b
  491.     dc.l     0,end_song
  492.  
  493.  
  494. stone_circle_riff1:
  495.     dc.w    eb02,cr,eb02,q,eb02,q,eb02,cr*2
  496.     dc.w    eb02,cr,eb02,q,eb02,q,eb02,cr*2
  497.     dc.w    eb02,cr,eb02,q,eb02,q,eb02,cr
  498.     dc.w    eb02,q,e02,cr,e02,q,db02,cr
  499.     dc.w end_patt
  500.  
  501.  
  502. stone_circle_bass1
  503.     dc.w    eb01,cr,eb01,q,eb01,q,eb01,cr*2
  504.     dc.w    eb01,cr,eb01,q,eb01,q,eb01,cr*2
  505.     dc.w    eb01,cr,eb01,q,eb01,q,e01,cr
  506.     dc.w    eb01,q,e01,cr,e01,q,db01,cr
  507.     dc.w end_patt
  508.  
  509. sc1_flute:
  510.     dc.w modon,1,1,3,3,6,6
  511.     dc.w    f02,dsq,ab02,cr*2,a03,sq,f03,sq,eb03,sq
  512.     dc.w    gb03,sq,db03,sq,c03,sq,e03,sq,bb02,sq
  513.     dc.w    ab02,sq,db02,sq,g02,sq,f02,sq,gb02,sq,eb02,cr*4,rest,cr*4
  514.  
  515.     dc.w    g02,dsq,bb02,cr*4,g03,sq,e03,sq,gb03,sq
  516.     dc.w    f03,sq,db03,sq,c03,sq,eb03,sq,gb03,sq
  517.     dc.w    bb02,sq,d03,sq,b02,sq,ab02,sq,gb02,sq,ab02,cr*4
  518.     dc.w    rest,cr*8
  519.     dc.w end_patt
  520.  
  521.  
  522. scdrums11:
  523.     dc.w  r12,q,r8,q,r12,q,r8,q,r12,cr,r8,q,r8,q
  524.     dc.w    repeat
  525.     dc.l    scdrums11-b
  526.     dc.w end_patt
  527.  
  528.  
  529.  
  530. cr  set   16
  531. q set  cr/2
  532. sq set q/2
  533. dsq set sq/4
  534.  
  535. tq1 set      7
  536. tq2 set   6
  537. tsq1 set  3
  538. tsq2 set 4
  539.  
  540. s1_sc2:
  541.  
  542.     dc.l    strings_snd-b
  543.     dc.l    stone_circle_riff2-b
  544.       dc.l     0,end_song
  545. s2_sc2:
  546.  
  547.     dc.l    taiko_snd_loud-b
  548.     dc.l    scdrums111-b
  549.         DC.L    0,end_song
  550.  
  551.  
  552. s3_sc2:
  553.  
  554.  
  555.     dc.l    abass_snd-b
  556.     dc.l    stone_circle_bass2-b
  557.     dc.l     0,end_song
  558.  
  559.  
  560. s4_sc2:
  561.  
  562.     dc.l    flute_snd-b
  563.     dc.l    sc2_flute-b
  564.     dc.l     0,end_song
  565.  
  566.  
  567. stone_circle_riff2:
  568.     dc.w    f02,cr,f02,q,f02,q,f02,cr*2
  569.     dc.w    f02,cr,f02,q,f02,q,f02,cr*2
  570.     dc.w    f02,cr,f02,q,f02,q,f02,cr
  571.     dc.w    f02,q,gb02,cr,gb02,q,eb02,cr
  572.     dc.w end_patt
  573.  
  574.  
  575. stone_circle_bass2
  576.     dc.w    f01,cr,f01,q,f01,q,f01,cr*2
  577.     dc.w    f01,cr,f01,q,f01,q,f01,cr*2
  578.     dc.w    f01,cr,f01,q,f01,q,f01,cr
  579.     dc.w    f01,q,gb01,cr,gb01,q,eb01,cr
  580.     dc.w end_patt
  581.  
  582. sc2_flute:
  583.     dc.w modon,1,1,3,3,6,6
  584.  
  585.     dc.w c03,$0004,bb02,$0004,ab02,$0004,g02,$0004,f02,$0004
  586.     dc.w eb02,$0004,d02,$0004,db02,$0004
  587.     dc.w d02,$0004
  588.     dc.w eb02,$0004,f02,$0004,g02,$0004,a02,$0004,b02,$0004
  589.     dc.w c03,$0004,bb02,$0004,ab02,$0004,g02,$0004,ab02,$0004
  590.     dc.w g02,$0004,f02,$0004,eb02,$0004,f02,$0004,eb02,$0004
  591.     dc.w d02,$0004
  592.     dc.w eb02,$0004,f02,$0004,g02,$0004,a02,$0004,b02,$0004
  593.     dc.w eb02,4,c03,4
  594.     dc.w d02,$0004
  595.     dc.w eb02,$0004,f02,$0004,g02,$0004,a02,$0004,b02,$0004
  596.     dc.w c03,$0004,bb02,$0004,ab02,$0004,g02,$0004,ab02,$0004
  597.     dc.w g02,$0004,f02,$0004,eb02,$0004,f02,$0004,eb02,$0004
  598.     dc.w d02,$0004
  599.     dc.w eb02,$0004,f02,$0004,g02,$0004,a02,$0004,b02,$0004
  600.  
  601.     dc.w end_patt
  602.  
  603.  
  604. scdrums111:
  605.     dc.w  r12,q,r8,q,r12,q,r8,q,r12,cr,r8,q,r8,q
  606.     dc.w    repeat
  607.     dc.l    scdrums111-b
  608.     dc.w end_patt
  609.  
  610.  
  611.  
  612.  
  613. cr  set   24
  614. q set  cr/2
  615. sq set q/2
  616. dsq set sq/4
  617.  
  618. tq1 set      7
  619. tq2 set   6
  620. tsq1 set  3
  621. tsq2 set 4
  622.  
  623. s1_die:
  624.  
  625.     dc.l    strings_sndl-b
  626.     dc.l    die_strings-b
  627.     dc.l    pri-b
  628.  
  629.  
  630.       dc.l     0,end_song
  631. s2_die:
  632.  
  633.     dc.l    taiko_snd_loud-b
  634.     dc.l    die_drums-b
  635.     dc.l    pri-b
  636.         DC.L    0,end_song
  637.  
  638.  
  639. s3_die:
  640.  
  641.  
  642.     dc.l    abass_snd-b
  643.     dc.l    die_bass-b
  644.     dc.l    pri-b
  645.     dc.l     0,end_song
  646.  
  647.  
  648. s4_die:
  649.  
  650.     dc.l    flute_snd-b
  651.     dc.l    die_flute-b
  652.     dc.l    pri-b
  653.     dc.l     0,end_song
  654.  
  655.  
  656. die_strings:
  657.     dc.w    c03,q,d03,q,b02,q,c03,q,a02,q,b02,q
  658.     dc.w    d02,cr*4
  659.     dc.w end_patt
  660.  
  661. die_bass:
  662.     dc.w    c02,q,d02,q,b01,q,c02,q,a01,q,b01,q
  663.     dc.w    d01,cr*4
  664.     dc.w end_patt
  665.  
  666. die_flute:
  667.     dc.w    c03,q,d03,q,b02,q,c03,q,a02,q,b02,q
  668.     dc.w    d02,cr*4
  669.     dc.w end_patt
  670.  
  671. die_drums:
  672.     dc.w    r12,q,r12,q,r12,q,r12,q,r12,q,r12,q
  673.     dc.w    r4,cr*4
  674.     dc.w end_patt
  675.  
  676.  
  677. ;--------------
  678. cr  set   32
  679. q set  cr/2
  680. sq set q/2
  681. dsq set sq/4
  682.  
  683. tq1 set      7
  684. tq2 set   6
  685. tsq1 set  3
  686. tsq2 set 4
  687.  
  688.  
  689.             ;drums
  690.  
  691. s1_dr:
  692.  
  693.     dc.l    taiko_snd-b
  694.     dc.l    drums1-b
  695.       dc.l     0,end_song
  696. s2_dr:
  697.  
  698.     dc.l    wave_snd-b
  699.     dc.l    wave-b
  700.         DC.L    0,end_song
  701.  
  702.  
  703. s3_dr:
  704.  
  705.     dc.l    monk_snd-b
  706.     dc.l    monk-b
  707.     dc.l     0,end_song
  708.  
  709.  
  710. s4_dr:
  711.     dc.l    flute_sndq-b
  712.     dc.l    monkx-b
  713.     dc.l     0,end_song
  714.  
  715.  
  716.  
  717. s1_dw:
  718.  
  719.     dc.l    taiko_snd-b
  720.     dc.l    drest-b
  721.     dc.l    drums1-b
  722.       dc.l     0,end_song
  723. s2_dw:
  724.  
  725.     dc.l    flute_snd-b
  726.     dc.l    dw_flute-b
  727.     dc.l    pri-b
  728.         DC.L    0,end_song
  729.  
  730.  
  731. s3_dw:
  732.  
  733.     dc.l    pr-b
  734.     dc.l     0,end_song
  735.  
  736.  
  737. s4_dw:
  738.     dc.l    pr-b
  739.     dc.l     0,end_song
  740.  
  741.  
  742.  
  743. dw_flute
  744.     dc.w modon,1,1,3,3,6,6
  745.     dc.w    a03,sq,f03,sq,d03,sq,e03,sq,c03,q,d03,cr,a02,cr*4
  746.     dc.w end_patt
  747.  
  748.  
  749.  
  750.  
  751. patterns:
  752.  
  753. pr:
  754.     dc.w rest,cr*4
  755.     dc.w end_patt
  756.  
  757. drest:
  758.     dc.w rest,cr*4+q
  759.     dc.w end_patt
  760.  
  761.  
  762. drums1:
  763.     dc.w    g01,cr,g01,q,g01,q,g01,cr*2
  764.     dc.w    repeat
  765.     dc.l    drums1-b
  766.     dc.w end_patt
  767.  
  768. monk
  769.     dc.w    rest,cr*4
  770.     dc.w     rest,cr*4,c02,cr*3,d02,cr,eb02,cr*3,d02,cr,c02,cr*8
  771.     dc.w    rest,cr*4
  772.     dc.w     rest,cr*4,c02,cr*3,d02,cr,eb02,cr*3,d02,cr,c02,cr*8
  773.     dc.w    rest,cr*24
  774.     dc.w end_patt
  775.  
  776. monkx
  777.     dc.w    rest,cr*4
  778.     dc.w     rest,cr*4,c01,cr,rest,cr*2,d01,cr,eb01,cr,rest,cr*2
  779.     dc.w    d01,cr,c01,cr,rest,cr*7,rest,cr*4
  780.     dc.w     rest,cr*4,c01,cr,rest,cr*2,d01,cr,eb01,cr,rest,cr*2
  781.     dc.w    d01,cr,c01,cr,rest,cr*7,rest,cr*24
  782.     dc.w end_patt
  783.  
  784. wave
  785.  
  786.     dc.w    r4,150,r5,170,r3,180,r3,200,r2,190
  787.     dc.w end_patt
  788.  
  789. ;-------------------
  790.  
  791.  
  792. pri
  793.     dc.w    rest,65000
  794.     dc.w    rest,65000
  795.     dc.w    rest,65000
  796.     dc.w    rest,65000
  797.     dc.w    rest,65000
  798.     dc.w     end_patt
  799.  
  800.  
  801. ;-----------------
  802.  
  803. sounds:
  804.  
  805. flute_snd:
  806.     dc.w    new_env
  807.     dc.l    flute_env-b
  808.     dc.w    new_snd
  809.     dc.l    flutep-b
  810.     dc.w     end_patt
  811.  
  812. flute_sndq:
  813.     dc.w    new_env
  814.     dc.l    flute_envq-b
  815.     dc.w    new_snd
  816.     dc.l    flutep-b
  817.     dc.w     end_patt
  818.  
  819. flute_sndmq:
  820.     dc.w    new_env
  821.     dc.l    flute_envmq-b
  822.     dc.w    new_snd
  823.     dc.l    flutep-b
  824.     dc.w     end_patt
  825.  
  826.  
  827. abass_snd:
  828.     dc.w    new_env
  829.     dc.l    abass_env-b
  830.     dc.w    new_snd
  831.     dc.l    abassp-b
  832.     dc.w     end_patt
  833.  
  834. strings_snd:
  835.     dc.w    new_env
  836.     dc.l    strings_env-b
  837.     dc.w    new_snd
  838.     dc.l    stringsp-b
  839.     dc.w     end_patt
  840.  
  841. strings_sndl:
  842.     dc.w    new_env
  843.     dc.l    strings_envl-b
  844.     dc.w    new_snd
  845.     dc.l    stringsp-b
  846.     dc.w     end_patt
  847.  
  848.  
  849.  
  850. taiko_snd:
  851.     dc.w    new_env
  852.     dc.l    taiko_env-b
  853.     dc.w    new_snd
  854.     dc.l    taikop-b
  855.     dc.w     end_patt
  856.  
  857. taiko_snd_loud:
  858.     dc.w    new_env
  859.     dc.l    taiko_env_loud-b
  860.     dc.w    new_snd
  861.     dc.l    taikop-b
  862.     dc.w     end_patt
  863.  
  864.  
  865. monk_snd:
  866.     dc.w    new_env
  867.     dc.l    monk_env-b
  868.     dc.w    new_snd
  869.     dc.l    monkp-b
  870.     dc.w     end_patt
  871.  
  872. wave_snd:
  873.     dc.w    new_env
  874.     dc.l    wave_envq-b
  875.     dc.w    new_snd
  876.     dc.l    wavep-b
  877.     dc.w     end_patt
  878.  
  879.  
  880.  
  881.  
  882. ;***********************************************
  883.  
  884. parameters:
  885.  
  886. iff    equ 108
  887.  
  888.     ; sample parameters
  889.  
  890.  
  891. abassp
  892.         dc.w 1  
  893.              dc.l abassd+iff-b
  894.              dc.w 8000/2 
  895.              dc.l restd-b
  896.              dc.w 16/2
  897.  
  898. flutep
  899.         dc.w 1  
  900.              dc.l fluted+iff-b
  901.              dc.w 7278/2
  902.              dc.l fluted+4173+iff-b
  903.              dc.w 3106/2
  904.  
  905.              dc.w (6684-iff)/2
  906.  
  907. stringsp:
  908.         dc.w 1  
  909.              dc.l stringsd-b
  910.              dc.w (8668)/2 
  911.              dc.l restd-b
  912.              dc.w 16/2
  913.  
  914.  
  915. taikop:
  916.         dc.w 1  
  917.              dc.l taikod+iff-b
  918.              dc.w (4118-iff)/2 
  919.              dc.l restd-b
  920.              dc.w 16/2
  921.  
  922. monkp:
  923.         dc.w 1  
  924.              dc.l monkd+iff-b
  925.              dc.w (6290-iff)/2 
  926.              dc.l restd-b
  927.              dc.w 16/2
  928.  
  929. wavep:
  930.         dc.w 1  
  931.              dc.l waved+iff-b
  932.              dc.w (9094-iff)/2 
  933.              dc.l restd-b
  934.              dc.w 16/2
  935.  
  936. winchp:
  937.         dc.w 1  
  938.              dc.l waved+iff+3000-b
  939.              dc.w (500)/2 
  940.              dc.l restd-b
  941.              dc.w 16/2
  942.  
  943. sinep:
  944.         dc.w 1  
  945.              dc.l sined-b
  946.              dc.w 16/2 
  947.              dc.l sined-b
  948.              dc.w 16/2
  949.  
  950.  
  951.  
  952. snarep
  953.         dc.w 1  
  954.              dc.l c-b
  955.              dc.w 2240/2  
  956.              dc.l restd-b
  957.              dc.w 16/2
  958.  
  959.  
  960.  
  961. sined:
  962. sine_datad:
  963.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  964.              dc.w -127,-100,-50,-35,0,35,50,80,127
  965.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  966.              dc.w -127,-100,-50,-35,0,35,50,80,127
  967.  
  968.  
  969.  
  970.  
  971.  
  972. envelopes:
  973.  
  974.  
  975. rest_env:            dc.w 0,0,0,0,0,0,0,0,255
  976. flute_env:            dc.w 0,32,255
  977. tymp_env:            dc.w 0,48,255
  978. flute_envq:            dc.w 0,8,255
  979. flute_envmq:            dc.w 0,18,255
  980. tamb_env:            dc.w 0,62,255
  981. aguitar_env:            dc.w 0,45,255
  982. aguitar_env_quiet:        dc.w 0,30,255
  983. sitar_env:            dc.w 0,42,255
  984. abass_env:            dc.w 0,44,255
  985. snare_env:            dc.w 0,35,255
  986. snare_envq:            dc.w 0,15,255
  987. trumpet_env:            dc.w 0,35,255
  988. trumpet_envq:            dc.w 0,25,255
  989. bassoon_env:            dc.w 0,40,255
  990. pizzo_env:            dc.w 0,35,255
  991. fhorn_env:            dc.w 0,40,255
  992. fhorn_envq:            dc.w 0,28,255
  993. strings_env:            dc.w 0,18,255
  994. strings_envl:            dc.w 0,38,255
  995. taiko_env:            dc.w 0,38,255
  996. taiko_env_loud:            dc.w 0,64,255
  997. taiko_envq:            dc.w 0,38,255
  998. bird2_env:            dc.w 0,28,255
  999. bird_env:            dc.w 0,18,255
  1000. monk_env:            dc.w 0,38,255
  1001. wave_env:            dc.w 0,38,255
  1002. wave_envq:            dc.w 0,18,255
  1003.  
  1004.  
  1005.  
  1006. ;guit.sam                    6191 rwed Today     01:27:11
  1007. ;tamb.sam                    1457 rwed Today     01:27:10
  1008. ;flute.sam                   8410 rwed Today     01:27:08
  1009. ;sitar.sam                   8993 rwed Today     01:27:07
  1010. ;bass.sam                    8583 rwed Today     01:27:05
  1011. ;7 files - 207 blocks used
  1012.  
  1013. ;**************************************************
  1014.  
  1015.  
  1016. fluted            incbin c:instruments/flute.sam 
  1017. abassd            incbin c:instruments/abass.sam 
  1018. stringsd        incbin c:instruments/strings2.sam
  1019. taikod            incbin c:instruments/taiko.sam
  1020. monkd            incbin c:instruments/monk.sam
  1021. waved            incbin c:instruments/wave.sam
  1022.  
  1023.  
  1024. ;********************************************
  1025.  
  1026. ;;THE FX SAMPLES ARE PULLED IN HERE...THis section can be anywhere
  1027. ;; in lower memory,and in any order
  1028.  
  1029.  
  1030.  
  1031.  
  1032.  
  1033.  
  1034. ;***********************
  1035.  
  1036. restd:
  1037. rest_data:
  1038.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1039.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1040.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1041.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1042.  
  1043. c
  1044. ;*************************************************
  1045.  
  1046.     end
  1047.  
  1048.  
  1049.  
  1050.  
  1051.     dc.w modon,1,1,8,8,6,6
  1052.     dc.w pbend,down,1,60000,32
  1053.  
  1054.