home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Kings Quest Backup 2 / Lowe_KingsQuestBackup2.adf / opening / open.data < prev    next >
Encoding:
Text File  |  1978-08-04  |  19.4 KB  |  1,224 lines

  1. ;OPENING
  2.  
  3.         opt p+
  4. b
  5.         dc.w    song_table-b
  6.         dc.w    fxjump_table-b
  7.  
  8.  
  9. song_table
  10.         dc.l s1_o-b,s2_o-b,s3_o-b,s4_o-b
  11.  
  12.  
  13. select_tunes    equ 0        ;for conditional assembly whilst testing
  14.                 ; zero to step tunes on mouse button
  15.                 ; can be deleted..not essential
  16.  
  17.         ;  ALL EQUs
  18.  
  19. a00  equ  508*2
  20. bb00  equ  480*2
  21. b00  equ  453*2
  22.  
  23. c01  equ  428*2
  24. db01  equ  404*2
  25. d01 equ  381*2
  26. eb01  equ  360*2
  27. e01  equ  339*2
  28. f01  equ  320*2
  29. gb01  equ  302*2
  30. g01  equ  285*2
  31. ab01 equ 269*2
  32. a01  equ  508
  33. bb01  equ  480
  34. b01  equ  453
  35.  
  36. c02  equ  428
  37. db02  equ  404
  38. d02  equ  381
  39. eb02  equ  360
  40. e02  equ  339
  41. f02  equ  320
  42. gb02  equ  302
  43. g02  equ  285
  44. ab02 equ 269
  45. a02  equ  254
  46. bb02  equ  240
  47. b02  equ  226
  48.  
  49. c03  equ  214
  50. db03  equ  202
  51. d03  equ  190
  52. eb03  equ  180
  53. e03  equ  170
  54. f03  equ  160
  55. gb03  equ  151
  56. g03  equ  143
  57. ab03 equ 135
  58. a03  equ  127
  59.  
  60. bb03  equ  480*2
  61. b03  equ  453*2
  62.  
  63. c04  equ  428*2
  64. db04  equ  404*2
  65. d04 equ  381*2
  66. eb04  equ  360*2
  67. e04  equ  339*2
  68. f04  equ  320*2
  69. gb04  equ  302*2
  70. g04  equ  285*2
  71. ab04 equ 269*2
  72. a04  equ  508
  73. bb04  equ  480
  74. b04  equ  453
  75.  
  76. c05  equ  428
  77. db05  equ  404
  78. d05  equ  381
  79. eb05  equ  360
  80. e05  equ  339
  81. f05  equ  320
  82. gb05  equ  302
  83. g05  equ  285
  84. ab05 equ 269
  85. a05  equ  254
  86. bb05  equ  240
  87. b05  equ  226
  88.  
  89. c06  equ  214
  90. db06  equ  202
  91. d06  equ  190
  92. eb06  equ  180
  93. e06  equ  170
  94. f06  equ  160
  95. gb06  equ  151
  96. g06  equ  143
  97. ab06 equ 135
  98. a06  equ  127
  99. bb06  equ  480*2
  100. b06  equ  453*2
  101.  
  102. c07  equ  428*2
  103. db07  equ  404*2
  104. d07 equ  381*2
  105. eb07  equ  360*2
  106. e07  equ  339*2
  107. f07  equ  320*2
  108. gb07  equ  302*2
  109. g07  equ  285*2
  110. ab07 equ 269*2
  111. a07  equ  508
  112. bb07  equ  480
  113. b07  equ  453
  114.  
  115. c08  equ  428
  116. db08  equ  404
  117. d08  equ  381
  118. eb08  equ  360
  119. e08  equ  339
  120. f08  equ  320
  121. gb08  equ  302
  122. g08  equ  285
  123. ab08 equ 269
  124. a08  equ  254
  125. bb08  equ  240
  126. b08  equ  226
  127.  
  128.  
  129. v equ 0
  130.  
  131. no_loop equ 0
  132. loop equ 0
  133. chann1reg   equ $dff0a0    
  134. chann2reg   equ $dff0b0
  135. chann3reg   equ $dff0c0
  136. chann4reg   equ $dff0d0
  137. dmacon     equ $dff096
  138. int_bf_int   equ   $dff01e
  139. int_bf_w    equ   $dff09a
  140. vhposr     equ   $dff006
  141. in_line    equ   0
  142. new_snd    equ   4
  143. end_song     equ   1
  144. end_patt    equ   8
  145. new_env    equ   12
  146. pbend     equ   16
  147.  
  148.  
  149.  
  150. hi: equ 223
  151. lo:  equ 446
  152.  
  153. r22    equ 134
  154. r20    equ 179        ;correctum
  155. r19    equ 150
  156. r18    equ 178
  157. r17    equ 200
  158. r16:    equ 227        ;correctum
  159. r15:    equ 249
  160. r14    equ 280
  161. r13:    equ 305
  162. r12:    equ 333
  163. r11:    equ 361
  164. r10:    equ 389
  165. r9:    equ 419
  166. r8:    equ 446
  167. r7:    equ 446+112
  168. r6:    equ 446+223
  169. r5:    equ 446+223+112
  170. r4:    equ 446*2
  171. r3:    equ 446*3
  172. r2:    equ 446*4
  173. r1:    equ 446*8
  174.  
  175.  
  176. filter: equ $bfe001
  177. filter_on equ 44
  178. filter_off equ 48
  179.  
  180. modon     equ   20
  181. pboff     equ   24
  182. modoff     equ   28
  183. rest     equ 32
  184. end_fxp  equ 36
  185. end_fx3  equ 36
  186. end_fx4  equ 40
  187. acc    equ 52
  188. repeat    equ 56
  189. down      equ   1
  190. up       equ   2
  191.  
  192. fx    equ 0
  193.  
  194.  
  195.  
  196. ;**************************************************************************
  197. ;**************************************************************************
  198.  
  199. ;       THESE ARE THE FX PATTERNS................
  200.  
  201. ; The interrupt counter in these patterns is dependent on the
  202. ; playback speed.The figure is calculated as follows
  203. ; (length/playback speed) *50
  204. ; the figure then needs rounding up to give a clear finish
  205. ; if you have the count longer than needed it will cut
  206. ; out the music on the relevent channel for longer than
  207. ; neccessary and make it sound jerky
  208. ; The fx table is below the patterns
  209.  
  210.  
  211. ;*************************
  212. sined:
  213. sine_datad:
  214.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  215.              dc.w -127,-100,-50,-35,0,35,50,80,127
  216.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  217.              dc.w -127,-100,-50,-35,0,35,50,80,127
  218.  
  219.  
  220. ;*************************
  221.  
  222.  
  223. fxjump_table:  
  224.     dc.l 0
  225.  
  226.  
  227. max_fx    dc.l    0    ;number + 1 for test routines only
  228. ;______________________________________________________________________
  229.  
  230.  
  231. sstart: dc.l 0,end_song
  232.  
  233. pstart: dc.w end_patt
  234.  
  235.  
  236. ;----------------------------------
  237.  
  238. ;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  239.  
  240. cr  set   24
  241. q set  cr/2
  242. sq set q/2
  243. dsq set sq/4
  244.  
  245. tq1 set      7
  246. tq2 set   6
  247. tsq1 set  3
  248. tsq2 set 4
  249.  
  250. ssilence:
  251.     dc.l    pr-b
  252.       dc.l     0,end_song
  253.  
  254.  
  255. ;************************************************
  256.  
  257. songs:
  258. ;--------
  259. ;*****************************************
  260.  
  261.  
  262. cr  set   24
  263. q set  cr/2
  264. sq set q/2
  265. dsq set sq/2
  266.  
  267.  
  268.  
  269. tq1 set      8
  270. tq2 set   8
  271. tsq1 set  3
  272. tsq2 set 4
  273.  
  274.  
  275.  
  276. cp:
  277.             ;opening music
  278.  
  279. s1_o:
  280.  
  281.  
  282.     dc.l    strings1_snd-b
  283.     dc.l    start1-b
  284.     dc.l    strings1_snd-b
  285.     dc.l    otune1-b
  286.  
  287.     dc.l    gliss_snd-b
  288.     dc.l    gliss-b
  289.  
  290.     dc.l    strings1_snd-b
  291.     dc.l    otune1-b
  292.  
  293.     dc.l    pizzo_snd-b
  294.     dc.l    mid_acc-b
  295.  
  296. ;   2nd time
  297.  
  298.     dc.l    flute_sndl-b
  299.     dc.l    otune1-b
  300.  
  301.     dc.l    gliss_snd-b
  302.     dc.l    gliss-b
  303.  
  304.     dc.l    flute_sndl-b
  305.     dc.l    otune1-b
  306.  
  307.     dc.l    pizzo_snd-b
  308.     dc.l    mid_acc-b
  309.  
  310.     dc.l    strings1_snd-b
  311.     dc.l    otune1-b
  312.  
  313.     dc.l    gliss_snd-b
  314.     dc.l    gliss-b
  315.  
  316.     dc.l    strings1_snd-b
  317.     dc.l    otune1-b
  318.  
  319.     dc.l    pizzo_snd-b
  320.     dc.l    mid_acc-b
  321.  
  322.  
  323.  
  324.  
  325.       dc.l     0,end_song
  326.  
  327. s2_o:
  328.  
  329.  
  330.     dc.l    strings1_snd-b
  331.     dc.l    start2-b
  332.  
  333.     dc.l    strings1_snd-b
  334.     dc.l    ostrings-b
  335.     dc.l    ostrings_middle-b
  336.  
  337.  
  338.     dc.l    pizzo_sndl-b
  339.     ;dc.l    strings1_snd-b
  340.     dc.l    ostringsx-b
  341.     dc.l    strings1_snd-b
  342.  
  343.     dc.l    ostrings_middle-b
  344.  
  345.     dc.l    strings1_snd-b
  346.     dc.l    ostrings-b
  347.     dc.l    ostrings_middle-b
  348.  
  349.  
  350.         DC.L    0,end_song
  351.  
  352. s3_o:
  353.  
  354.     dc.l    strings1_snd-b
  355.     dc.l    start2-b
  356.  
  357.     dc.l    flute_snd-b
  358.     dc.l    oguitar-b
  359.     dc.l    gliss_snd-b
  360.     dc.l    gliss-b
  361.     dc.l    flute_snd-b
  362.     dc.l    oguitar2-b
  363.     dc.l    strings1_snd-b
  364.     dc.l    oguitar3-b
  365.  
  366.  
  367.     dc.l    strings1_snd-b
  368.     dc.l    oguitar-b
  369.     dc.l    gliss_snd-b
  370.     dc.l    gliss-b
  371.     dc.l    strings1_snd-b
  372.     dc.l    oguitar2-b
  373.     dc.l    strings1_snd-b
  374.     dc.l    oguitar3-b
  375.  
  376.  
  377.     dc.l    flute_snd-b
  378.     dc.l    oguitar-b
  379.     dc.l    gliss_snd-b
  380.     dc.l    gliss-b
  381.     dc.l    flute_snd-b
  382.     dc.l    oguitar2-b
  383.     dc.l    strings1_snd-b
  384.     dc.l    oguitar3-b
  385.  
  386.  
  387.  
  388.     dc.l     0,end_song
  389.  
  390. s4_o:
  391.  
  392.     dc.l    flute_snd-b
  393.     dc.l    start_flute-b
  394.     dc.l    gliss_snd-b
  395.     dc.l    gliss-b
  396.  
  397.     dc.l    verse_chords-b
  398.     dc.l    gliss_chords-b
  399.     dc.l    verse_chords-b
  400.     dc.l    flute_sndq-b
  401.     dc.l    omidd_harp-b
  402.     dc.l    gliss_snd-b
  403.     dc.l    gliss-b
  404.  
  405.     dc.l    verse_chords-b
  406.     dc.l    gliss_chords-b
  407.     dc.l    verse_chords-b
  408.     dc.l    flute_sndq-b
  409.     dc.l    omidd_harp-b
  410.     dc.l    gliss_snd-b
  411.     dc.l    gliss-b
  412.  
  413.     dc.l    verse_chords-b
  414.     dc.l    gliss_chords-b
  415.     dc.l    verse_chords-b
  416.     dc.l    flute_sndq-b
  417.     dc.l    omidd_harp-b
  418.     dc.l    gliss_snd-b
  419.     dc.l    gliss-b
  420.  
  421.  
  422.     dc.l     0,end_song
  423.  
  424.  
  425. flute_rests
  426.     dc.w    rest,cr*40
  427.     dc.w    end_patt
  428.  
  429. pr
  430.     dc.w    rest,cr*4
  431.     dc.w    end_patt
  432.  
  433.  
  434. start1
  435.     dc.w    modoff
  436.     dc.w    f01,q,f01,q,g01,q,g01,q,f01,q,f01,q,g01,q,g01,q
  437.     dc.w    ab01,q,ab01,q,bb01,q,bb01,q,ab01,q,ab01,q,bb01,q,bb01,q
  438.     dc.w    c02,q,c02,q,db02,q,db02,q,c02,q,c02,q,db02,q,db02,q
  439.     dc.w    eb02,q,eb02,q,f02,q,f02,q,eb02,q,eb02,q,f02,q,f02,q
  440.     dc.w    end_patt
  441.  
  442.  
  443. start2
  444.     dc.w    modoff
  445.     dc.w    a01,q,a01,q,b01,q,b01,q,a01,q,a01,q,b01,q,b01,q
  446.     dc.w    c02,q,c02,q,d02,q,d02,q,c02,q,c02,q,d02,q,d02,q
  447.     dc.w    eb02,q,eb02,q,f02,q,f02,q,eb02,q,eb02,q,f02,q,f02,q
  448.     dc.w    g02,q,g02,q,g02,q,g02,q,g02,q,g02,q,ab02,q,ab02,q
  449.  
  450.     dc.w    end_patt
  451.  
  452.  
  453. start3
  454.     dc.w    modoff
  455.     dc.w    c02,q,c02,q,d02,q,d02,q,c02,q,c02,q,d02,q,d02,q
  456.     dc.w    eb02,q,eb02,q,f02,q,f02,q,eb02,q,eb02,q,f02,q,f02,q
  457.     dc.w    g02,q,g02,q,ab02,q,ab02,q,g02,q,g02,q,ab02,q,ab02,q
  458.     dc.w    bb02,q,b02,q,c03,q,c03,q,bb02,q,bb02,q,c03,q,c03,q
  459.     dc.w    end_patt
  460.  
  461. start_flute
  462.     dc.w modon,1,1,2,2,6,6
  463.     dc.w    f02,sq,g02,sq,f02,sq,g02,sq
  464.     dc.w    f02,sq,g02,sq,f02,sq,g02,sq
  465.     dc.w    f02,sq,g02,sq,f02,sq,g02,sq
  466.     dc.w    f02,sq,g02,sq,f02,sq,g02,sq
  467.  
  468.     dc.w    ab02,sq,bb02,sq,ab02,sq,bb02,sq
  469.     dc.w    ab02,sq,bb02,sq,ab02,sq,bb02,sq
  470.     dc.w    ab02,sq,bb02,sq,ab02,sq,bb02,sq
  471.     dc.w    ab02,sq,bb02,sq,ab02,sq,bb02,sq
  472.  
  473.     dc.w    c03,sq,db03,sq,c03,sq,db03,sq
  474.     dc.w    c03,sq,db03,sq,c03,sq,db03,sq
  475.     dc.w    c03,sq,db03,sq,c03,sq,db03,sq
  476.     dc.w    c03,sq,db03,sq,c03,sq,db03,sq
  477.  
  478.     ;dc.w    eb03,sq,f03,sq,eb03,sq,f03,sq
  479.     ;dc.w    eb03,sq,f03,sq,eb03,sq,f03,sq
  480.     ;dc.w    eb03,sq,f03,sq,eb03,sq,f03,sq
  481.     ;dc.w    eb03,sq,f03,sq,eb03,sq,f03,sq
  482.     dc.w    end_patt
  483.  
  484.  
  485.  
  486.  
  487.  
  488.  
  489.     dc.w    end_patt
  490.  
  491.  
  492.  
  493.  
  494.  
  495.  
  496.  
  497.  
  498.  
  499.  
  500. mid_acc
  501.     dc.w    d03,q,d03,cr,d03,q,d03,q,d03,cr,d03,q
  502.     dc.w    eb03,q,eb03,cr,eb03,q,d03,q,d03,cr,d03,q
  503.     dc.w    c03,q,c03,cr,c03,q,eb03,q,eb03,cr,eb03,q
  504.     
  505.     dc.w    f03,q,f03,cr,f03,q,eb03,q,eb03,cr,eb03,q
  506.  
  507.     dc.w    d03,q,d03,cr,d03,q,f03,q,f03,cr,f03,q
  508.  
  509.     dc.w    g03,q,g03,cr,g03,q,f03,q,f03,cr,f03,q
  510.  
  511.     dc.w    g03,q,g03,cr,g03,q,f03,q,f03,cr,f03,q
  512.  
  513.     dc.w    eb03,q,eb03,cr,eb03,q,c03,q,c03,cr,c03,q
  514.  
  515.     dc.w    g03,q,g03,cr,g03,q,g03,q,g03,cr,g03,q
  516.     dc.w    gb03,q,gb03,cr,gb03,q,gb03,q,gb03,cr,gb03,q
  517.     dc.w    end_patt
  518.  
  519.  
  520.  
  521. otune1
  522.     dc.w     d02,cr*2,g02,cr*3,f02,cr,g02,cr,ab02,cr,g02,cr*2,d02,cr*3
  523.     dc.w    c02,cr,d02,cr,eb02,cr,eb02,cr*2,ab02,cr*3
  524.     dc.w    g02,cr,ab02,cr,bb02,cr-2,rest,2,bb02,cr*8
  525.  
  526.     dc.w    end_patt
  527.  
  528. otune1f
  529.     dc.w     d02,cr*2,g02,cr*3,f02,cr,g02,cr,ab02,cr,g02,cr*2,d02,cr*3
  530.     dc.w    c02,cr,d02,cr,eb02,cr,eb02,cr*2,ab02,cr*3
  531.     dc.w    g02,cr,ab02,cr,bb02,cr-2,rest,2,bb02,cr*2,rest,cr*6
  532.  
  533.     dc.w    end_patt
  534.  
  535. ostringsx
  536.     dc.w    g02,cr*2,g02,cr*2,f03,cr*4,g03,cr*4,c03,cr*3
  537.     dc.w    bb02,cr,ab02,cr*3,g02,cr,f02,cr*4,bb02,cr*8
  538.     dc.w    d03,cr*2,d02,cr*2
  539.  
  540.     dc.w    g03,cr*2,g03,cr*2,f03,cr*4,g03,cr*4,c03,cr*3
  541.     dc.w    bb02,cr,ab02,cr*3,g02,cr,f02,cr*4,bb02,cr*3
  542.     dc.w    rest,cr*4,ab02,cr,g02,cr*4
  543.     dc.w    end_patt
  544.  
  545.  
  546.  
  547. ostrings
  548.     dc.w    g01,cr*2,g01,cr*2,f02,cr*4,g02,cr*4,c02,cr*3
  549.     dc.w    bb01,cr,ab01,cr*3,g01,cr,f01,cr*4,bb01,cr*8
  550.     dc.w    d02,cr*2,d01,cr*2
  551.  
  552.     dc.w    g01,cr*2,g02,cr*2,f02,cr*4,g02,cr*4,c02,cr*3
  553.     dc.w    bb01,cr,ab01,cr*3,g01,cr,f01,cr*4,bb01,cr*3
  554.     dc.w    rest,cr*4,ab01,cr,g01,cr*4
  555.     dc.w    end_patt
  556.  
  557. ostrings1
  558.  
  559.  
  560.     dc.w    rest,cr*4,rest,cr*4,rest,cr*3
  561.     dc.w    rest,cr,rest,cr*3
  562.     dc.w    rest,cr,rest,cr*4,bb01,cr*8
  563.     dc.w    rest,cr*2,rest,cr*2
  564.     dc.w    new_env
  565.     dc.l    flute_envq-b
  566.     dc.w    g02,cr*2,g03,cr*2,f03,cr*4,g03,cr*4,c03,cr*3
  567.     dc.w    bb02,cr,ab02,cr*3,g02,cr,f02,cr*4,bb01,cr*4
  568.     
  569.     dc.w    end_patt
  570.  
  571. ocrash
  572.     dc.w    r10,cr*8
  573.     dc.w    rest,cr*4,rest,cr*3
  574.     ;dc.w    rest,cr,rest,cr*3
  575.     dc.w    r8,cr*4
  576.  
  577.     dc.w    end_patt
  578.  
  579.  
  580.     ;middle tune
  581. ostrings_middle
  582.     dc.w    c02,cr*2,bb01,cr*2,ab01,cr*4,f01,cr*2,a01,cr*2
  583.     dc.w    bb01,cr*4,b01,cr*2,g01,cr*2,c01,cr*2
  584.     dc.w    bb01,cr*2,ab01,cr*2,f01,cr,eb01,cr,d01,cr*8
  585.  
  586.     dc.w    end_patt
  587.  
  588.  
  589. oguitar
  590.     dc.w modon,1,1,2,2,6,6
  591.     dc.w    d02,cr,g02,cr,a02,cr,b02,cr,c03,cr*4
  592.     dc.w    d02,cr,g02,cr,a02,cr,b02,cr,a02,cr*4
  593.     dc.w    eb02,cr,ab02,cr,bb02,cr,c03,cr,d03,cr*3
  594.     dc.w    eb03,cr,f03,cr*4,rest,cr*4
  595.     dc.w    end_patt
  596.  
  597. oguitar2
  598.     dc.w modon,1,1,2,2,6,6
  599.     dc.w    d02,cr,g02,cr,a02,cr,b02,cr,c03,cr*4
  600.     dc.w    d02,cr,g02,cr,a02,cr,b02,cr,a02,cr*4
  601.     dc.w    eb02,cr,ab02,cr,bb02,cr,c03,cr,d03,cr*3
  602.     dc.w    eb03,cr,f03,cr*4,rest,cr*3
  603.     dc.w    end_patt
  604.  
  605. oguitar3
  606.     dc.w    bb01,cr,b01,cr*2,b01,q,c02,q,d02,cr
  607.     dc.w    eb02,cr+q,f02,sq,eb02,sq,d02,cr+q
  608.     dc.w    eb02,sq,d02,sq
  609.  
  610.     dc.w    c02,cr*2,c02,q,d02,q,eb02,cr,f02,cr+q,g02,sq
  611.     dc.w    f02,sq,eb02,cr+q,f02,sq,eb02,sq
  612.     
  613.     dc.w    d02,cr*2,d02,q,eb02,q,f02,cr,g02,cr+q,ab02,sq
  614.     dc.w    g02,sq,f02,cr+q,g02,sq,f02,sq,eb02,cr+q
  615.     dc.w    f02,sq,eb02,sq,d02,cr+q,eb02,sq,d02,sq
  616.     dc.w    c02,cr*3,d02,cr,d02,cr*4,rest,cr*4
  617.     dc.w    end_patt
  618.  
  619.  
  620.  
  621. omidd_harp
  622.     dc.w    g01,sq,b01,sq,g02,sq,b02,sq,d03,sq
  623.     dc.w    b02,sq,g02,sq,b01,sq
  624.     dc.w    g01,sq,b01,sq,g02,sq,b02,sq,d03,sq
  625.     dc.w    b02,sq,g02,sq,b01,sq
  626.  
  627. ;19
  628.     dc.w    g01,sq,c02,sq,g02,sq,c03,sq,eb03,sq
  629.     dc.w    c03,sq,g02,sq,c02,sq
  630.     dc.w    f01,sq,bb01,sq,f02,sq,bb02,sq,d03,sq
  631.     dc.w    bb02,sq,f02,sq,bb01,sq
  632. ;20
  633.     dc.w    eb01,sq,ab01,sq,d02,sq,ab02,sq
  634.     dc.w    c03,sq,g02,sq,d02,sq,ab01,sq
  635.     dc.w    eb01,sq,ab01,sq,d02,sq,ab02,sq
  636.     dc.w    c03,sq,g02,sq,d02,sq,ab01,sq
  637.  
  638. ;21    
  639.     dc.w    f01,sq,a01,sq,c02,sq,a02,sq,c03,sq
  640.     dc.w    a02,sq,f02,sq,a01,sq
  641.     dc.w    a01,sq,c02,sq,f02,sq,c03,sq,f03,sq,c03,sq
  642.     dc.w    a02,sq,c02,sq
  643.  
  644. ;22
  645.     dc.w    bb01,sq,d02,sq,f02,sq,d03,sq,f03,sq,d03,sq
  646.     dc.w    f02,sq,d02,sq
  647.     dc.w    bb01,sq,d02,sq,f02,sq,d03,sq,f03,sq,d03,sq
  648.     dc.w    f02,sq,d02,sq
  649. ;23
  650.     dc.w    b01,sq,d02,sq,b02,sq,d03,sq,g03,sq,d03,sq
  651.     dc.w    b02,sq,d02,sq
  652.     dc.w    b01,sq,d02,sq,b02,sq,d03,sq,g03,sq,d03,sq
  653.     dc.w    b02,sq,d02,sq
  654. ;24
  655.     dc.w    c02,sq,eb02,sq,c03,sq,eb03,sq,g03,sq
  656.     dc.w    eb03,sq,c03,sq,d02,sq
  657.     dc.w    bb01,sq,d02,sq,bb02,sq,d03,sq,f03,sq
  658.     dc.w    d03,sq,bb02,sq,d02,sq
  659. ;25
  660.     dc.w    ab01,sq,c02,sq,ab02,sq,c03,sq,eb03,sq,c03,sq
  661.     dc.w    ab02,sq,c02,sq
  662.     dc.w    ab01,sq,c02,sq,ab02,sq,c03,sq,f03,sq,c03,sq
  663.     dc.w    ab02,sq,c02,sq
  664. ;26
  665.     dc.w    d02,sq,g02,sq,d03,sq,g03,sq,a03,sq
  666.     dc.w    g03,sq,d03,sq,g02,sq
  667.     dc.w    d02,sq,g02,sq,d03,sq,g03,sq,a03,sq
  668.     dc.w    g03,sq,d03,sq,g02,sq
  669.  
  670.     dc.w    end_patt
  671.  
  672.  
  673. osnare
  674.     dc.w    r20,cr,r20,tq1,r20,tq2,r20,tq1
  675.     dc.w    r20,cr,r20,tq1,r20,tq2,r20,tq1
  676.     dc.w    end_patt
  677.  
  678.  
  679.  
  680. gliss
  681.     dc.w    r8,cr*4
  682.     dc.w    end_patt
  683.  
  684. ;----chord patterns
  685.     
  686. verse_chords
  687.  
  688.     dc.w     new_env
  689.     dc.l    chord_env-b
  690.  
  691.     dc.w    new_snd
  692.     dc.l    gbdp-b
  693.     dc.w    r8,q,r8,cr,r8,cr,r8,cr,r8,q
  694.  
  695.     dc.w    new_snd
  696.     dc.l    abcfp-b    
  697.     dc.w    r8,q,r8,cr,r8,cr,r8,cr,r8,q
  698.  
  699.     dc.w    new_snd
  700.     dc.l    gbdp-b
  701.     dc.w    r8,q,r8,cr,r8,cr,r8,cr,r8,q
  702.  
  703.     dc.w    new_snd
  704.     dc.l    gcebp-b    
  705.     dc.w    r8,q,r8,cr,r8,cr,r8,cr,r8,q
  706.  
  707.     dc.w    new_snd
  708.     dc.l    abcebp-b    
  709.     dc.w    r8,q,r8,cr,r8,cr,r8,cr,r8,q
  710.  
  711.     dc.w    new_snd
  712.     dc.l    abcfp-b
  713.     dc.w    r8,q,r8,cr,r8,cr,r8,cr,r8,q
  714.  
  715.     dc.w    new_snd
  716.     dc.l    bbebfp-b    
  717.     dc.w    r8,q,r8,cr,r8,cr,r8,cr,r8,q
  718.  
  719.     dc.w    new_snd
  720.     dc.l    bbdfp-b
  721.     dc.w    r8,q,r8,cr,r8,cr,r8,cr,r8,q
  722.     dc.w    end_patt
  723.  
  724. gliss_chords:
  725.     dc.w    new_snd
  726.     dc.l    adgp-b
  727.     dc.w    r8,q,r8,cr,r8,q
  728.  
  729.     dc.w    new_snd
  730.     dc.l    adgbp-b    
  731.     dc.w    r8,q,r8,cr,r8,q
  732.  
  733.     dc.w    end_patt
  734.  
  735.  
  736. ;-----------------
  737.  
  738. sounds:
  739.  
  740. flute_snd:
  741.     dc.w    new_env
  742.     dc.l    flute_env-b
  743.     dc.w    new_snd
  744.     dc.l    flutep-b
  745.     dc.w     end_patt
  746.  
  747. flute_sndl:
  748.     dc.w    new_env
  749.     dc.l    flute_envl-b
  750.     dc.w    new_snd
  751.     dc.l    flutep-b
  752.     dc.w     end_patt
  753.  
  754.  
  755.  
  756. flute_sndq:
  757.     dc.w    new_env
  758.     dc.l    flute_envq-b
  759.     dc.w    new_snd
  760.     dc.l    flutep-b
  761.     dc.w     end_patt
  762.  
  763. flute_sndmq:
  764.     dc.w    new_env
  765.     ;dc.l    flute_envmq-b
  766.     ;dc.w    new_snd
  767.     ;dc.l    flutep-b
  768.     ;dc.w     end_patt
  769.  
  770.  
  771. aguitar_snd:
  772.     dc.w    new_env
  773.     dc.l    aguitar_env-b
  774.     dc.w    new_snd
  775.     dc.l    aguitp-b
  776.     dc.w     end_patt
  777.  
  778. aguitar_sndq:
  779. aguitar_snd_quiet:
  780.     dc.w    new_env
  781.     dc.l    aguitar_env_quiet-b
  782.     dc.w    new_snd
  783.     dc.l    aguitp-b
  784.     dc.w     end_patt
  785.  
  786.  
  787. tamb_snd:
  788.     dc.w    new_env
  789.     ;dc.l    tamb_env-b
  790.     ;dc.w    new_snd
  791.     ;dc.l    tambp-b
  792.     ;dc.w     end_patt
  793.  
  794.  
  795.  
  796. abass_snd:
  797.     ;dc.w    new_env
  798.     ;dc.l    abass_env
  799.     ;dc.w    new_snd
  800.     ;dc.l    abassp
  801.     ;dc.w     end_patt
  802.  
  803. sitar_snd:
  804.     ;dc.w    new_env
  805.     ;dc.l    sitar_env
  806.     ;dc.w    new_snd
  807.     ;dc.l    sitarp
  808.     ;dc.w     end_patt
  809.  
  810. bassoon_snd:
  811.     ;dc.w    new_env
  812.     ;dc.l    bassoon_env
  813.     ;dc.w    new_snd
  814.     ;dc.l    bassoonp
  815.     ;dc.w     end_patt
  816.  
  817. bassoon_snd_short:
  818.     ;dc.w    new_env
  819.     ;dc.l    bassoon_env
  820.     ;dc.w    new_snd
  821.     ;dc.l    bassoonsp
  822.     ;dc.w     end_patt
  823.  
  824. snare_snd:
  825.     ;dc.w    new_env
  826.     ;dc.l    snare_env
  827.     ;dc.w    new_snd
  828.     ;dc.l    snarep
  829.     ;dc.w     end_patt
  830.  
  831. crash_snd:
  832.     ;dc.w    new_env
  833.     ;dc.l    crash_env
  834.     ;dc.w    new_snd
  835.     ;dc.l    crashp
  836.     ;dc.w     end_patt
  837.  
  838.  
  839.  
  840. snare_sndq:
  841.     ;dc.w    new_env
  842.     ;dc.l    snare_envq
  843.     ;dc.w    new_snd
  844.     ;dc.l    snarep
  845.     ;dc.w     end_patt
  846.  
  847. trumpet_snd:
  848.     ;dc.w    new_env
  849.     ;dc.l    trumpet_env
  850.     ;dc.w    new_snd
  851.     ;dc.l    trumpetp
  852.     ;dc.w     end_patt
  853.  
  854. trumpet_sndq:
  855.     ;dc.w    new_env
  856.     ;dc.l    trumpet_envq
  857.     ;dc.w    new_snd
  858.     ;dc.l    trumpetp
  859.     ;dc.w     end_patt
  860.  
  861. pizzo_snd:
  862.     dc.w    new_env
  863.     dc.l    pizzo_env-b
  864.     dc.w    new_snd
  865.     dc.l    pizzop-b
  866.     dc.w     end_patt
  867.  
  868. pizzo_sndl:
  869.     dc.w    new_env
  870.     dc.l    pizzo_envl-b
  871.     dc.w    new_snd
  872.     dc.l    pizzop-b
  873.     dc.w     end_patt
  874.  
  875.  
  876.  
  877. pizzoh_snd:
  878.     dc.w    new_env
  879.     dc.l    pizzo_env-b
  880.     dc.w    new_snd
  881.     dc.l    pizzohp-b
  882.     dc.w     end_patt
  883.  
  884.  
  885. fhorn_snd:
  886.     ;dc.w    new_env
  887.     ;dc.l    fhorn_env
  888.     ;dc.w    new_snd
  889.     ;dc.l    fhornp
  890.     ;dc.w     end_patt
  891.  
  892. fhorn_sndq:
  893.     ;dc.w    new_env
  894.     ;dc.l    fhorn_envq
  895.     ;dc.w    new_snd
  896.     ;dc.l    fhornp
  897.     ;dc.w     end_patt
  898.  
  899.  
  900.  
  901. strings_snd:
  902.     dc.w    new_env
  903.     dc.l    strings_env-b
  904.     dc.w    new_snd
  905.     dc.l    stringsp-b
  906.     dc.w     end_patt
  907.  
  908. harp_snd:
  909.     ;dc.w    new_env
  910.     ;dc.l    harp_env
  911.     ;dc.w    new_snd
  912.     ;dc.l    harpp
  913.     ;dc.w     end_patt
  914.  
  915. xylo_snd:
  916.     ;dc.w    new_env
  917.     ;dc.l    xylo_env
  918.     ;dc.w    new_snd
  919.     ;dc.l    xylop
  920.     ;dc.w     end_patt
  921.  
  922. gliss_snd:
  923.     dc.w    new_env
  924.     dc.l    gliss_env-b
  925.     dc.w    new_snd
  926.     dc.l    glissp-b
  927.     dc.w     end_patt
  928.  
  929. strings1_snd:
  930.     dc.w    new_env
  931.     dc.l    strings1_env-b
  932.     dc.w    new_snd
  933.     dc.l    strings1p-b
  934.     dc.w     end_patt
  935.  
  936. cello_snd:
  937.     ;dc.w    new_env
  938.     ;dc.l    cello_env
  939.     ;dc.w    new_snd
  940.     ;dc.l    cellop
  941.     ;dc.w     end_patt
  942.  
  943.  
  944. ;***********************************************
  945.  
  946. parameters:
  947.  
  948. iff    equ 108
  949.  
  950.     ; sample parameters
  951.  
  952.  
  953. snarep
  954.         ;dc.w 1  
  955.              ;dc.l snared
  956.              ;dc.w 2240/2  
  957.              ;dc.l restd
  958.              ;dc.w 16/2
  959.  
  960.  
  961. trumpetp
  962.         ;dc.w 1  
  963.              ;dc.l synbras1d
  964.              ;dc.w 3338/2  
  965.              ;dc.l synbras1d
  966.              ;dc.w 3338/2  
  967.  
  968. abassp
  969.         ;dc.w 1  
  970.              ;dc.l abassd+iff
  971.              ;dc.w 8000/2 
  972.              ;dc.l restd
  973.              ;dc.w 16/2
  974.  
  975. flutep
  976.         dc.w 1  
  977.              dc.l fluted+iff-b
  978.              dc.w 7278/2
  979.              dc.l fluted+4173+iff-b
  980.              dc.w 3106/2
  981.  
  982. tambp
  983.         ;dc.w 1  
  984.              ;dc.l tambd
  985.              ;dc.w 1457/2 
  986.              ;dc.l restd
  987.              ;dc.w 16/2
  988.  
  989. sitarp
  990.         ;dc.w 1  
  991.              ;dc.l sitard
  992.              ;dc.w 7708/2 
  993.              ;dc.l restd
  994.              ;dc.w 16/2
  995.  
  996. aguitp
  997.         ;dc.w 1  
  998.              ;dc.l aguitd+iff
  999.              ;dc.w 9576/2 
  1000.              ;dc.l restd
  1001.              ;dc.w 16/2
  1002.  
  1003. bassoonlp
  1004.         ;dc.w 1  
  1005.              ;dc.l bassoond+iff
  1006.              ;dc.w 4788/2 
  1007.              ;dc.l bassoond+iff+2033
  1008.              ;dc.w 2755/2
  1009.  
  1010.  
  1011. bassoonp
  1012.         ;dc.w 1  
  1013.              ;dc.l bassoond+iff
  1014.              ;dc.w 4788/2 
  1015.              ;dc.l restd
  1016.              ;dc.w 16/2
  1017.  
  1018. bassoonsp
  1019.         ;dc.w 1  
  1020.              ;dc.l bassoond+iff
  1021.              ;dc.w 4788/2-1000 
  1022.              ;dc.l restd
  1023.              ;dc.w 16/2
  1024.  
  1025. pizzop:
  1026.         dc.w 1  
  1027.              dc.l pizzod-b
  1028.              dc.w 5550/2 
  1029.              dc.l restd-b
  1030.              dc.w 16/2
  1031.  
  1032. pizzohp:
  1033.         ;dc.w 1  
  1034.              ;dc.l pizzohd
  1035.              ;dc.w 3796/2 
  1036.              ;dc.l restd
  1037.              ;dc.w 16/2
  1038.  
  1039. fhornp:
  1040.         ;dc.w 1  
  1041.              ;dc.l fhornd+iff
  1042.              ;dc.w (6684-iff)/2 
  1043.              ;dc.l fhornd+iff
  1044.              ;dc.w (6684-iff)/2
  1045.  
  1046. stringsp:
  1047.         dc.w 1  
  1048.              dc.l stringsd-b
  1049.              dc.w (8668)/2 
  1050.              dc.l restd-b
  1051.              dc.w 16/2
  1052.  
  1053. harpp:
  1054.         dc.w 1  
  1055.              dc.l harpd-b
  1056.              dc.w (7294)/2 
  1057.              dc.l restd-b
  1058.              dc.w 16/2
  1059.  
  1060. xylop:
  1061.         ;dc.w 1  
  1062.              ;dc.l xylod
  1063.              ;dc.w (1744)/2 
  1064.              ;dc.l restd
  1065.              ;dc.w 16/2
  1066.  
  1067. glissp:
  1068.         dc.w 1  
  1069.              dc.l glissd+103-b
  1070.              dc.w (15925)/2 
  1071.              dc.l restd-b
  1072.              dc.w 16/2
  1073.  
  1074. crashp:
  1075.         ;dc.w 1  
  1076.              ;dc.l crashd+103
  1077.              ;dc.w (14804)/2 
  1078.              ;dc.l restd
  1079.              ;dc.w 16/2
  1080.  
  1081.  
  1082. strings1p
  1083.         dc.w 1  
  1084.              dc.l strings1d+104+3208-b
  1085.              dc.w 6438/2 
  1086.              dc.l strings1d+104+3208-b
  1087.              dc.w 6438/2 
  1088.  
  1089.  
  1090. cellop
  1091.         ;dc.w 1  
  1092.              ;dc.l cellod+104
  1093.              ;dc.w 9810/2
  1094.              ;dc.l restd
  1095.              ; dc.w 16/2 
  1096.  
  1097. ;------------------
  1098. gbdp
  1099.         dc.w 1  
  1100.              dc.l gbdd+104-b
  1101.              dc.w 2558/2
  1102.              dc.l restd-b
  1103.              dc.w 16/2 
  1104.  
  1105. abcfp
  1106.         dc.w 1  
  1107.              dc.l abcfd+104-b
  1108.              dc.w 3237/2
  1109.              dc.l restd-b
  1110.              dc.w 16/2 
  1111.  
  1112. gcebp
  1113.         dc.w 1  
  1114.              dc.l gcebd+104-b
  1115.              dc.w 3423/2
  1116.              dc.l restd-b
  1117.              dc.w 16/2 
  1118.  
  1119. abcebp
  1120.         dc.w 1  
  1121.              dc.l abcebd+104-b
  1122.              dc.w 3070/2
  1123.              dc.l restd-b
  1124.              dc.w 16/2 
  1125.  
  1126. bbebfp
  1127.         dc.w 1  
  1128.              dc.l bbebfd+104-b
  1129.              dc.w 3340/2
  1130.              dc.l restd-b
  1131.              dc.w 16/2 
  1132.  
  1133. bbdfp
  1134.         dc.w 1  
  1135.              dc.l bbdfd+104-b
  1136.              dc.w 2841/2
  1137.              dc.l restd-b
  1138.              dc.w 16/2 
  1139.  
  1140. adgp
  1141.         dc.w 1  
  1142.              dc.l adgd+104-b
  1143.              dc.w 3553/2
  1144.              dc.l restd-b
  1145.              dc.w 16/2 
  1146.  
  1147. adgbp
  1148.         dc.w 1  
  1149.              dc.l adgbd+104-b
  1150.              dc.w 3201/2
  1151.              dc.l restd-b
  1152.              dc.w 16/2 
  1153.  
  1154. ;-----------------
  1155. envelopes:
  1156.  
  1157.  
  1158. rest_env:            dc.w 0,0,0,0,0,0,0,0,255
  1159. flute_env:            dc.w 0,32,255
  1160. flute_envl:            dc.w 0,52,255
  1161. flute_envq:            dc.w 0,25,255
  1162. aguitar_env:            dc.w 0,60,255
  1163. aguitar_env_quiet:        dc.w 0,30,255
  1164. pizzo_env:            dc.w 0,25,255
  1165. pizzo_envl:            dc.w 0,50,255
  1166. strings_env:            dc.w 0,28,255
  1167. sine_env:            dc.w 0,48,255
  1168. gliss_env:            dc.w 0,48,255
  1169. strings1_env:            dc.w 0,28,255
  1170. chord_env:            dc.w 0,30,255
  1171.  
  1172.  
  1173.  
  1174. ;guit.sam                    6191 rwed Today     01:27:11
  1175. ;tamb.sam                    1457 rwed Today     01:27:10
  1176. ;flute.sam                   8410 rwed Today     01:27:08
  1177. ;sitar.sam                   8993 rwed Today     01:27:07
  1178. ;bass.sam                    8583 rwed Today     01:27:05
  1179. ;7 files - 207 blocks used
  1180.  
  1181. ;**************************************************
  1182.  
  1183.  
  1184. fluted            incbin c:instruments/flute.sam 
  1185. pizzod            incbin c:instruments/pizzo1.sam 
  1186. stringsd        ;incbin c:instruments/strings2.sam
  1187. harpd            ;incbin c:instruments/harp.sam
  1188. glissd            incbin c:instruments/gliss.sam
  1189. strings1d        incbin c:instruments/strings1.sam
  1190.  
  1191. gbdd            incbin c:kq6/opening/gbd.sam
  1192. abcfd            incbin c:kq6/opening/abcf.sam
  1193. gcebd            incbin c:kq6/opening/gceb.sam
  1194. abcebd            incbin c:kq6/opening/abceb.sam
  1195. bbebfd            incbin c:kq6/opening/bbebf.sam
  1196. bbdfd            incbin c:kq6/opening/bbdf.sam
  1197. adgd            incbin c:kq6/opening/adg.sam
  1198. adgbd            incbin c:kq6/opening/adgb.sam
  1199.  
  1200.  
  1201.  
  1202.  
  1203.  
  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.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1213.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1214.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1215.  
  1216.  
  1217. ;*************************************************
  1218.  
  1219.     end
  1220.  
  1221.  
  1222.  
  1223.     end
  1224.