home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Railroad Tycoon Amiga Music FX / Lowe_RailroadTycoonAmigaMusicFX.adf / rail.blk < prev    next >
Encoding:
Text File  |  1978-09-03  |  13.7 KB  |  537 lines
  1.  
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;; AULD LANG SYNE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3.  
  4. CR      set 32
  5. tcr1     set 9
  6. tcr2     set 8
  7. Q       set cr/2
  8. tq      set 8
  9. SQ      set cr/4
  10.  
  11.  
  12. s5:
  13.     dc.l kpcr,kp3,kp3g,kp3,kp3f
  14.     dc.l kp3,kp3g,kp3fa,kp3
  15.     dc.l kp3,kp3g,kp3,kp3f
  16.     dc.l kp3,kp3g,kp3fa,kp3a
  17.     dc.l 0,end_song
  18. s6:
  19.     dc.l kp1
  20.     dc.l 0,end_song
  21. s7:
  22.         dc.l kp2
  23.     dc.l 0,end_song
  24. s8:
  25.         dc.l kp2a
  26.     dc.l 0,end_song
  27. kpcr:
  28.       dc.w new_env
  29.       dc.l rest_env
  30.       dc.w rest,cr
  31.       dc.w end_patt
  32. kp1:
  33.     dc.w new_snd
  34.     dc.l bas4
  35.       dc.w new_env
  36.       dc.l tune_env
  37.     dc.w G01,cr,C02,cr,rest,cr,G01,cr,rest,cr
  38.     dc.w G02,cr,rest,cr,D02,cr,rest,cr
  39.     dc.w C02,cr,rest,cr,G01,cr,rest,cr
  40.     dc.w F02,cr,rest,cr,C02,cr,rest,cr
  41.     dc.w C02,cr,rest,cr,G01,cr,rest,cr
  42.     dc.w G02,cr,rest,cr,D02,cr,rest,cr
  43.     dc.w F02,cr,rest,cr,C02,cr,rest,cr
  44.     dc.w C02,cr,rest,cr,G01,cr,F01,cr
  45.     dc.w C02,cr,rest,cr,G01,cr,rest,cr
  46.     dc.w G02,cr,rest,cr,D02,cr,rest,cr
  47.     dc.w C02,cr,rest,cr,G01,cr,rest,cr
  48.     dc.w F02,cr,rest,cr,C02,cr,rest,cr
  49.     dc.w C02,cr,rest,cr,G01,cr,rest,cr
  50.     dc.w G02,cr,rest,cr,D02,cr,rest,cr
  51.     dc.w F02,cr,rest,cr,C02,cr,rest,cr
  52.     dc.w C02,cr,G01,cr,C01,cr
  53.       dc.w end_patt
  54. kp3:
  55.     dc.w new_snd
  56.     dc.l bango
  57.       dc.w new_env
  58.       dc.l tune_env
  59.     dc.w C01,q,E01,q,G01,q,E01,q
  60.     dc.w C02,q,E01,q,G01,q,E01,q
  61.       dc.w end_patt
  62. kp3a:
  63.     dc.w C01,q,E01,q,G01,q,E01,q
  64.     dc.w C02,q,rest,q
  65.       dc.w end_patt
  66. kp3f:
  67.     dc.w F01,q,A01,q,C02,q,A01,q
  68.     dc.w F02,q,A01,q,C02,q,A01,q
  69.       dc.w end_patt
  70. kp3g:
  71.     dc.w G01,q,B01,q,D02,q,B01,q
  72.     dc.w G02,q,B01,q,D02,q,B01,q
  73.       dc.w end_patt
  74. kp3fa:
  75.     dc.w F01,q,A01,q,C02,q,A01,q
  76.     dc.w G01,q,B01,q,D02,q,B01,q
  77.       dc.w end_patt
  78. kp2a:
  79.     dc.w new_snd
  80.     dc.l fiddle
  81.       dc.w new_env
  82.       dc.l tune_env
  83. ;      dc.w modon,1,1
  84. ;      dc.w 1,1,8
  85.     dc.w rest,cr,e05,sq*5,rest,sq,e05,sq,rest,sq,e05,cr*2
  86.     dc.w G05,sq*5,rest,sq,G05,sq,rest,sq
  87.     dc.w G05,cr*2,e05,sq*5,rest,sq,e05,q
  88.     dc.w g05,cr,C06,cr,c06,(cr*2)+q,rest,q,c06,cr,e06,q*3,c06,sq
  89.     dc.w rest,sq,c06,cr,g05,cr,g05,q*3,rest,q,g05,cr,rest,cr
  90.  
  91.     dc.w f05,q*3,f05,sq,rest,sq,f05,cr,d05,cr,e05,cr*3
  92.  
  93.     dc.w rest,cr,c06,q*3,g05,sq,rest,sq,g05,cr*2,f05,q*3,rest,q
  94.     dc.w f05,cr*2,c06,q*3,g05,sq,rest,sq,g05,cr,c06,cr
  95.     dc.w c06,q*5,rest,q
  96.     dc.w rest,cr,c06,q*3,g05,sq,rest,sq,g05,cr*2,f05,cr*2
  97.     dc.w G05,cr*2
  98.     dc.w f05,cr*2,d05,cr*2,e05,cr*3
  99.       dc.w end_patt
  100. kp2:
  101.     dc.w new_snd
  102.     dc.l fiddle
  103.       dc.w new_env
  104.       dc.l tune_env
  105. ;      dc.w modon,1,1
  106. ;      dc.w 1,1,8
  107.     dc.w pbend,up,3,c06,16
  108.     dc.w G05,sq*9
  109.     dc.w rest,sq,C06,sq,rest,sq,C06,cr,E06,cr
  110.     dc.w D06,q*3,C06,q,D06,cr,E06,q,D06,q,C06,sq*5,rest,sq,C06,q
  111.     dc.w E06,cr
  112.     dc.w pbend,up,1,a06,16
  113.     dc.w G06,q*7
  114.     dc.w rest,q,A06,cr,G06,q*3,E06,sq
  115.     dc.w rest,sq,E06,cr,C06,cr,D06,q*3,C06,q,D06,cr,E06,q,D06,q
  116.     dc.w C06,q*3,A05,sq,rest,sq,A05,cr
  117.  
  118.     dc.w pbend,up,3,c06,16
  119.     dc.w G05,cr*4
  120.  
  121.     dc.w A06,cr,G06,q*3,E06,sq,rest,sq,E06,cr
  122.     dc.w pbend,up,1,d06,16
  123.     dc.w c06,q*5
  124.     dc.w C06,q
  125.     dc.w D06,cr,A06,cr,G06,q*3,E06,sq,rest,sq,E06,cr
  126.     dc.w pbend,up,1,a06,16
  127.     dc.w G06,q*7
  128.     dc.w rest,q
  129.     dc.w A06,cr,G06,q*3,E06,sq,rest,sq,E06,cr,C06,cr,D06,q*3,C06,q
  130.     dc.w D06,cr,E06,q,D06,q
  131.     dc.w C06,q*3,A05,sq,rest,sq,A05,cr
  132.     dc.w pbend,up,3,c06,16
  133.     dc.w G05,cr*4
  134.       dc.w end_patt
  135.  
  136. ;;;;;;;;;;;;;;;;;;;;;;;;;; small tune 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  137.  
  138. s9:
  139.     dc.l pat1
  140.     dc.l 0,end_song
  141. s10:
  142.     dc.l pat1a,pat1a,pat1b,pat1a
  143.     dc.l pat1c,pat1a
  144.     dc.l 0,end_song
  145. s11:
  146.         dc.l hat3
  147.     dc.l 0,end_song
  148. s12:
  149.         dc.l patr
  150.     dc.l 0,end_song
  151.  
  152. patr:
  153.     dc.w rest,cr*4
  154.     dc.w end_patt
  155.  
  156. pat1:               
  157.     dc.w new_snd
  158.     dc.l fiddle
  159.       dc.w new_env
  160.       dc.l tune_env                                           
  161.     dc.w c02,$0008,c02,$0008,c02,$0004,g01,$0004
  162.     dc.w a01,$0004,g01,$0004,e02,$0008,e02,$0004,e02,$0008
  163.     dc.w c02,$0004,d02,$0004,c02,$0004,e02,$0008,e02,$0008
  164.     dc.w e02,$0004,c02,$0004,d02,$0008,c02,$0020,c02,$0008
  165.     dc.w c02,$0008,c02,$0004,g01,$0004,a01,$0004,g01,$0004
  166.     dc.w e02,$0008,e02,$0004,e02,$0008,c02,$0004,d02,$0004
  167.     dc.w c02,$0004,e02,$0008,e02,$0008,e02,$0004,c02,$0004
  168.     dc.w d02,$0008,c02,$0020,f02,$0008,f02,$0008,f02,$0004
  169.     dc.w c02,$0004,d02,$0004,c02,$0004,a02,$0008,g02,$0004
  170.     dc.w f02,$0008,f02,$0004,g02,$0004,f02,$0004,a02,$0008
  171.     dc.w a02,$0008,a02,$0004,f02,$0004,g02,$0008,f02,$0020
  172.     dc.w c02,$0008,c02,$0008,c02,$0004,g01,$0004,a01,$0004
  173.     dc.w g01,$0004,e02,$0008,d02,$0004,c02,$0008,c02,$0004
  174.     dc.w d02,$0008,e02,$0008,e02,$0008,e02,$0004,c02,$0004
  175.     dc.w d02,$0008,c02,$0008,c02,$0008,d02,$0008,e02,$0004
  176.     dc.w b01,$0004,g02,$0008,d02,$0004,e02,$0008,d02,$0004
  177.     dc.w e02,$0004,d02,$0004,g02,$0008,d02,$0004,e02,$0008
  178.     dc.w d02,$0004,e02,$0004,d02,$0004,f02,$0008,f02,$0008
  179.     dc.w f02,$0008,d02,$0008,c02,$0020,e02,$0008,e02,$0008
  180.     dc.w e02,$0004,c02,$0004,d02,$0004,c02,$0004,d02,$0008
  181.     dc.w c02,$0004,c02,$0008,a01,$0004,c02,$0004,g01,$0004
  182.     dc.w a01,$0008,c02,$0008,c02,$0004,g01,$0004,a01,$0008
  183.     dc.w c02,$0008,g01,$0008,a01,$0008,c02,$0008,c02,$0004
  184.     dc.w g01,$0004,a01,$0004,c02,$0004,eb02,$0004,e02,$0004
  185.     dc.w g02,$0004,a02,$0004,c04,$0004,bb02,$0004,a02,$0004
  186.     dc.w g02,$0004,e02,$0004,eb02,$0004,e02,$0004,g02,$0004
  187.     dc.w eb02,$0008,e02,$0008,g02,$0004,e02,$0008,c02,$0024
  188.     dc.w eb02,$0004,e02,$0004,g02,$0004,eb02,$0004,e02,$0004
  189.     dc.w g02,$0004,a02,$0008,c04,$0004,bb02,$0004,a02,$0004
  190.     dc.w g02,$0004,e02,$0004,eb02,$0004,e02,$0004,g02,$0004
  191.     dc.w eb02,$0004,d02,$0004,c02,$0004,bb01,$0004,a01,$0004
  192.     dc.w g01,$0004,e01,$0008,c02,$0008,g01,$0008,a01,$0004
  193.     dc.w c02,$0004,ab01,$0004,a01,$0004,c02,$0004,ab01,$0004
  194.     dc.w a01,$0004,c02,$0004,ab01,$0004,a01,$0004,c02,$0004
  195.     dc.w ab01,$0004,a01,$0004,c02,$0004,ab01,$0004,a01,$0004
  196.     dc.w c02,$0004,ab01,$0004,a01,$0004,c02,$0004,d02,$0004
  197.     dc.w f02,$0004,eb02,$0004,d02,$0004,c02,$0004,a01,$0004
  198.     dc.w ab01,$0004,a01,$0004,c02,$0004,ab01,$0004,a01,$0004
  199.     dc.w c02,$0004,a01,$0004,ab01,$0004,g01,$0004,f01,$0004
  200.     dc.w gb01,$0004,g01,$0004,c02,$0004,e01,$0004,eb01,$0004
  201.     dc.w e01,$0004,g01,$0004,a01,$0004,c02,$0004,eb02,$0004
  202.     dc.w e02,$0004,g02,$0004,a02,$0004,c04,$0004,a02,$0004
  203.     dc.w g02,$0004,a02,$0004,g02,$0004,e02,$0004,eb02,$0004
  204.     dc.w e02,$0004,g02,$0004,eb02,$0004,e02,$0004,g02,$0004
  205.     dc.w eb02,$0004,e02,$0004,g02,$0004,eb02,$0004,e02,$0004
  206.     dc.w g02,$0004,db02,$0004,d02,$0004,g02,$0004,db02,$0004
  207.     dc.w d02,$0004,g02,$0004,b01,$0004,bb01,$0004,b01,$0004
  208.     dc.w d02,$0004,e02,$0004,g02,$0004,e02,$0004,d02,$0004
  209.     dc.w b01,$0004,d02,$0004,e02,$0004,f02,$0004,eb02,$0004
  210.     dc.w d02,$0004,c02,$0004,a01,$0004,ab01,$0004,a01,$0004
  211.     dc.w c02,$0004,ab01,$0004,g01,$0004,f01,$0004,eb01,$0004
  212.     dc.w d01,$000c,eb01,$0004,e01,$0004,g01,$0004,a01,$0004
  213.     dc.w c02,$0004,eb02,$0004,e02,$0004,g02,$0004,a02,$0004
  214.     dc.w c03,$0004,g02,$0004,a02,$0004,c03,$0004,g02,$0004
  215.     dc.w a02,$0004,c03,$0004,g02,$0004,b02,$0004,g02,$0004
  216.     dc.w a02,$0008,g02,$0008,g02,$0008,g02,cr
  217.     dc.w end_patt
  218.  
  219. pat1a:               
  220.     dc.w new_snd
  221.     dc.l bas4
  222.       dc.w new_env
  223.       dc.l tune_env 
  224.     dc.w C03,q,G02,q,C03,q,G02,q
  225.     dc.w C03,q,G02,q,C03,sq,G02,sq,A02,sq,B02,sq
  226.     dc.w end_patt
  227. pat1b:               
  228.     dc.w new_snd
  229.     dc.l bas4
  230.       dc.w new_env
  231.       dc.l tune_env 
  232.     dc.w F02,q,C02,q,F02,q,C02,q
  233.     dc.w F02,q,C02,q,F02,sq,C02,sq,D02,sq,E02,sq
  234.     dc.w end_patt
  235. pat1c:               
  236.     dc.w new_snd
  237.     dc.l bas4
  238.       dc.w new_env
  239.       dc.l tune_env 
  240.     dc.w G02,q,D02,q,G02,q,D02,q
  241.     dc.w F02,q,C02,q,F02,sq,F02,sq,E02,sq,D02,sq
  242.     dc.w end_patt
  243. hat3:
  244.       dc.w new_snd
  245.     dc.l hatcl
  246.     dc.w new_env
  247.     dc.l fiddle_env
  248.     dc.w r16,4,r13,4,r16,4,r13,4
  249.     dc.w r16,8,r16,4,r13,4
  250.     dc.w r16,4,r13,4,r16,4,r13,4
  251.     dc.w r16,8,r16,4,r13,4
  252.     dc.w end_patt
  253.  
  254. ;;;;;;;;;;;;;;;;;;;;;;;;;; small tune 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  255.  
  256. CR      set 20
  257. Q       set cr/2
  258. SQ      set cr/4
  259.  
  260. s13:
  261.     dc.l pat2
  262.     dc.l 0,end_song
  263. s14:
  264.     dc.l pat2b
  265.     dc.l 0,end_song
  266. s15:
  267.         dc.l hat7
  268.     dc.l 0,end_song
  269. s16:
  270.         dc.l pat22
  271.     dc.l 0,end_song
  272.  
  273. pat2  ;                                                  
  274.     dc.w new_snd
  275.     dc.l fiddle
  276.       dc.w new_env
  277.       dc.l tune_env                                           
  278.     dc.w a02,q*5,g02,q,f02,q,g02,q
  279.     dc.w a02,q*5,g02,q,a02,q,c03,q
  280.     dc.w g02,q*5,f02,q,e02,q,f02,q
  281.     dc.w g02,q*5,a02,cr,g02,q
  282.     dc.w f02,q*3,bb02,q*3,d03,cr
  283.     dc.w c03,q*3,g02,q*3,a02,cr
  284.     dc.w f02,q*5,g02,q,a02,cr
  285.     dc.w g02,cr*4
  286.     dc.w end_patt
  287. pat22  ;                                                  
  288.     dc.w new_snd
  289.     dc.l fiddle
  290.       dc.w new_env
  291.       dc.l tune_env                                           
  292.     dc.w C03,q*5,Bb02,q,A02,q,Bb02,q
  293.     dc.w C03,q*5,Bb02,q,C03,q,F03,q
  294.     dc.w Bb02,q*5,A02,q,G02,q,A02,q
  295.     dc.w Bb02,q*5,C03,cr,Bb02,q
  296.     dc.w Bb02,q*3,D03,q*3,F03,cr
  297.     dc.w E03,q*3,C03,q*5
  298.     dc.w A02,q*5,Bb02,q,C03,cr
  299.     dc.w C03,cr*4
  300.     dc.w end_patt
  301. pat2b:               
  302.     dc.w new_snd
  303.     dc.l bas4
  304.       dc.w new_env
  305.       dc.l tune_env 
  306.     dc.w F02,q*3,F02,q,F02,cr,C02,cr
  307.     dc.w F02,q*3,F02,q,F02,cr,C02,cr
  308.     dc.w C02,q*3,C02,q,C02,cr,G01,cr
  309.     dc.w C02,q*3,C02,q,C02,cr,B01,cr
  310.     dc.w Bb01,q*3,Bb01,q,Bb01,cr,Bb01,cr
  311.     dc.w C02,q*3,C02,q,C02,cr,G01,cr
  312.     dc.w F02,q*3,F02,q,F02,cr,C02,cr
  313.     dc.w C02,q*3,C02,q,C02,cr,G01,cr
  314.     dc.w end_patt
  315. hat7:
  316.       dc.w new_snd
  317.     dc.l hatcl
  318.     dc.w new_env
  319.     dc.l fiddle_env
  320.     dc.w r16,sq,r13,sq,r16,sq,r13,sq
  321.     dc.w r16,sq,r13,sq,r16,sq,r13,sq
  322.     dc.w r16,sq,r13,sq,r16,sq,r13,sq
  323.     dc.w r16,sq,r13,sq,r16,sq,r13,sq
  324.     dc.w end_patt
  325.  
  326. ;;;;;;;;;;;;;;;;;;;;;;;;;; small tune 3 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  327.  
  328. CR      set 20
  329. Q       set cr/2
  330. SQ      set cr/4
  331.  
  332. s17:
  333.     dc.l pat3
  334.     dc.l 0,end_song
  335. s18:
  336.     dc.l pat3a,pat3a,pat3b,pat3a
  337.     dc.l pat3c,pat3a
  338.     dc.l 0,end_song
  339. s19:
  340.         dc.l hat4
  341.     dc.l 0,end_song
  342. s20:
  343.         dc.l pat32
  344.     dc.l 0,end_song
  345.  
  346. pat3         ;                                                  
  347.     dc.w new_snd
  348.     dc.l fiddle
  349.       dc.w new_env
  350.       dc.l tune_env                                           
  351.     dc.w c03,cr,bb02,cr,a02,sq,bb02,sq
  352.     dc.w g02,q,e02,cr,e02,q,g02,q,e02,sq
  353.     dc.w f02,sq,d02,q,c02,cr*2,c03,cr,bb02,cr
  354.     dc.w a02,sq,bb02,sq,g02,q,e02,cr,e02,q
  355.     dc.w g02,q,e02,sq,f02,sq,d02,q,c02,cr*2
  356.     dc.w ab02,sq,a02,sq,c03,q,ab02,q,a02,q
  357.     dc.w c03,q,f02,q,g02,q,a02,q,ab02,sq
  358.     dc.w a02,sq,c03,q,ab02,q,a02,q,c03,cr*2
  359.     dc.w c03,cr,bb02,cr,a02,sq,bb02,sq,g02,q
  360.     dc.w e02,cr,e02,q,g02,q,e02,sq,f02,sq
  361.     dc.w d02,q,c02,cr*2,db02,sq,d02,sq,g02,sq
  362.     dc.w db02,sq,d02,q,g02,sq,d02,q,g02,sq
  363.     dc.w d02,q,g02,$001e,f02,q,eb02,sq,d02,sq
  364.     dc.w c02,q,f02,q,eb02,q,d02,q,c02,q
  365.     dc.w c03,cr,bb02,cr,a02,sq,bb02,sq,g02,q
  366.     dc.w e02,cr,e02,q,g02,q,e02,sq,f02,sq
  367.     dc.w d02,q,c02,cr*2
  368.     dc.w end_patt
  369. pat32         ;                                                  
  370.     dc.w new_snd
  371.     dc.l fiddle
  372.       dc.w new_env
  373.       dc.l tune_env                                           
  374.     dc.w E03,cr,D03,cr,C03,sq,D03,sq
  375.     dc.w Bb02,q,G02,cr,G02,q,Bb02,q,G02,sq
  376.     dc.w A02,sq,F02,q,E02,cr*2
  377.     dc.w E03,cr,D03,cr,C03,sq,D03,sq
  378.     dc.w Bb02,q,G02,cr,G02,q,Bb02,q,G02,sq
  379.     dc.w A02,sq,F02,q,E02,cr*2
  380.  
  381. ;    dc.w ab02,sq,a02,sq,c03,q,ab02,q,a02,q
  382. ;    dc.w c03,q,f02,q,g02,q,a02,q,ab02,sq
  383. ;    dc.w a02,sq,c03,q,ab02,q,a02,q,c03,cr*2
  384.  
  385.     dc.w rest,cr*8
  386.  
  387.     dc.w E03,cr,D03,cr,C03,sq,D03,sq
  388.     dc.w Bb02,q,G02,cr,G02,q,Bb02,q,G02,sq
  389.     dc.w A02,sq,F02,q,E02,cr*2
  390.  
  391. ;    dc.w db02,sq,d02,sq,g02,sq
  392. ;    dc.w db02,sq,d02,q,g02,sq,d02,q,g02,sq
  393. ;    dc.w d02,q,g02,$001e,f02,q,eb02,sq,d02,sq
  394. ;    dc.w c02,q,f02,q,eb02,q,d02,q,c02,q
  395.  
  396.     dc.w rest,cr*8    
  397.  
  398.     dc.w E03,cr,D03,cr,C03,sq,D03,sq
  399.     dc.w Bb02,q,G02,cr,G02,q,Bb02,q,G02,sq
  400.     dc.w A02,sq,F02,q,E02,cr*2
  401.     dc.w end_patt
  402. pat3a:               
  403.     dc.w new_snd
  404.     dc.l bas4
  405.       dc.w new_env
  406.       dc.l tune_env 
  407.     dc.w C03,cr,G02,cr,C03,cr,G02,cr
  408.     dc.w C03,cr,G02,cr,C03,q,G02,q,A02,q,B02,q
  409.     dc.w end_patt
  410. pat3b:               
  411.     dc.w new_snd
  412.     dc.l bas4
  413.       dc.w new_env
  414.       dc.l tune_env 
  415.     dc.w F02,cr,C02,cr,F02,cr,C02,cr
  416.     dc.w F02,cr,C02,cr,F02,q,C02,q,D02,q,E02,q
  417.     dc.w end_patt
  418. pat3c:               
  419.     dc.w new_snd
  420.     dc.l bas4
  421.       dc.w new_env
  422.       dc.l tune_env 
  423.     dc.w G02,cr,D02,cr,G02,cr,D02,cr
  424.     dc.w F02,cr,C02,cr,F02,q,F02,q,E02,q,D02,q
  425.     dc.w end_patt
  426. hat4:
  427.       dc.w new_snd
  428.     dc.l hatcl
  429.     dc.w new_env
  430.     dc.l tune_env
  431.     dc.w r16,sq,r13,sq,r16,sq,r13,sq
  432.     dc.w r16,sq,r13,sq,r16,sq,r13,sq
  433.     dc.w r16,sq,r13,sq,r16,sq,r13,sq
  434.     dc.w r16,sq,r13,sq,r16,sq,r13,sq
  435.     dc.w end_patt
  436. ;;;;;;;;;;;;;;;;;;;;;;;;;; small tune 4 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  437. s21:
  438.     dc.l pat4
  439.     dc.l 0,end_song
  440. s22:
  441.     dc.l pat4a,pat4a,pat4c,pat4d,pat4e
  442.     dc.l pat4a,pat4e,pat4b,pat4e,pat4f,pat4e
  443.     dc.l 0,end_song
  444. s23:
  445.         dc.l pat4g,pat4g
  446.     dc.l 0,end_song
  447. s24:
  448.         dc.l hat5
  449.     dc.l 0,end_song
  450.  
  451. ;    dc.w pbend,up,3,f03,1
  452. ;    dc.w d03,q*5
  453.  
  454. pat4         ;                                                  
  455.     dc.w new_snd
  456.     dc.l fiddle
  457.       dc.w new_env
  458.       dc.l tune_env                                           
  459.     dc.w d03,q,db03,q,c03,q,b02,cr
  460.     dc.w g02,q,a02,q
  461.     dc.w pbend,up,3,d03,5
  462.     dc.w b02,cr,db03,q
  463.     dc.w c03,q,b02,cr,g02,q,a02,q
  464.     dc.w pbend,up,3,d03,5
  465.     dc.w b02,cr,db03,q
  466.     dc.w c03,q,b02,cr,g02,q
  467.     dc.w a02,q,b02,q,d02,cr*4,gb02,q,e02,q
  468.     dc.w d02,q,a02,cr,gb02,q,d02,cr,gb02,q
  469.     dc.w e02,q,d02,q,a02,cr,f02,q,gb02,q
  470.     dc.w a02,q,eb02,q,e02,q,g02,q,c02,cr
  471.     dc.w d02,q,e02,q,g02,q
  472.     dc.w pbend,up,9,d03,60
  473.     dc.w d02,q*9
  474.     dc.w db03,q,c03,q,b02,cr,g02,q,a02,q
  475. ;    dc.w b02,q
  476.     dc.w pbend,up,3,d03,5
  477.     dc.w b02,cr,db03,q
  478.     dc.w c03,q,b02,cr
  479.     dc.w g02,q,a02,q,b02,q,b02,q,a02,q
  480.     dc.w g02,q,d03,cr,b02,q,a02,q
  481.  
  482.     ;dc.w pbend,up,1,e03,5
  483.     ;dc.w g02,q*9
  484.  
  485.     dc.w g02,q,e03,cr*4
  486.  
  487.     dc.w e03,q,d03,q,c03,q,g03,cr
  488.     dc.w e03,q,d03,cr,d03,q,b02,q,g02,q
  489.     dc.w g02,cr,a02,q,b02,cr,a02,q,gb02,q
  490.     dc.w d02,q,d03,cr,a02,q,gb02,q,d03,q
  491.     dc.w b02,cr,g02,cr,g02,cr*2
  492.     dc.w end_patt
  493. pat4a:               
  494.     dc.w new_snd
  495.     dc.l bas4
  496.       dc.w new_env
  497.       dc.l tune_env 
  498.     dc.w G02,cr,D02,cr,G02,cr,D02,cr
  499. pat4e    dc.w G02,cr,D02,cr,G02,cr,D02,cr
  500.     dc.w end_patt
  501. pat4b:               
  502.     dc.w new_snd
  503.     dc.l bas4
  504.       dc.w new_env
  505.       dc.l tune_env 
  506.     dc.w C03,cr,G02,cr,C03,cr,G02,cr
  507. pat4d    dc.w C03,cr,G02,cr,C03,cr,G02,cr
  508.     dc.w end_patt
  509. pat4c:               
  510.     dc.w new_snd
  511.     dc.l bas4
  512.       dc.w new_env
  513.       dc.l tune_env 
  514.     dc.w D03,cr,A02,cr,D03,cr,A02,cr
  515. pat4f    dc.w D03,cr,A02,cr,D03,cr,A02,cr
  516.     dc.w end_patt
  517. pat4g:               
  518.     dc.w new_snd
  519.     dc.l snr1
  520.       dc.w new_env
  521.       dc.l tune_env 
  522.     dc.w rest,q,127,q
  523.     dc.w rest,q,127,q
  524.     dc.w rest,q,127,q
  525.     dc.w rest,q,127,q
  526.     dc.w end_patt
  527. hat5:
  528.       dc.w new_snd
  529.     dc.l hatcl
  530.     dc.w new_env
  531.     dc.l tune_env
  532.     dc.w r19,sq,r18,sq,r19,sq,r18,sq
  533.     dc.w r19,sq,r18,sq,r19,sq,r18,sq
  534.     dc.w r19,sq,r18,sq,r19,sq,r18,sq
  535.     dc.w r19,sq,r18,sq,r19,sq,r18,sq
  536.     dc.w end_patt
  537.