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