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