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