home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Railroad Tycoon Amiga Music FX / Lowe_RailroadTycoonAmigaMusicFX.adf / gamesa.blk < prev    next >
Encoding:
Text File  |  1978-11-27  |  19.5 KB  |  1,084 lines
  1.  
  2. song1:
  3.     dc.l ap2,prinf
  4.       dc.l 0,end_song
  5.  
  6. song2:
  7.     dc.l ap3,prinf
  8.       dc.l 0,end_song
  9. song3:
  10.     dc.l ap1,prinf
  11.       dc.l 0,end_song
  12.  
  13. song4:
  14.     dc.l ap2,prinf
  15.       dc.l 0,end_song
  16.  
  17.  
  18. prinf
  19.     dc.w rest,65000
  20.       dc.w end_patt
  21.  
  22.  
  23. apcr:
  24.   dc.w rest,cr
  25.   dc.w end_patt
  26. apr:
  27.   dc.w rest,cr*4
  28.   dc.w end_patt
  29. apra:
  30.   dc.w rest,q*7
  31.   dc.w end_patt
  32. apqr:
  33.   dc.w rest,q
  34.   dc.w end_patt
  35. ap1:
  36.       dc.w new_env
  37.       dc.l sax_env
  38.     dc.w new_snd
  39.     dc.l sax
  40.  
  41.     dc.w F05,sq*3,D05,sq,Bb04,cr,D05,cr,F05,cr
  42.     dc.w Bb05,cr*2,D06,sq*3,C06,sq,Bb05,cr,D05,cr,E05,cr
  43.     dc.w F05,cr*2,F05,q,F05,q,D06,q*3,C06,q,Bb05,cr
  44.     dc.w A05,cr*2,G05,q,A05,q,Bb05,cr,Bb05,cr,F05,cr,D05,cr,Bb04,cr*2
  45.       dc.w end_patt
  46.  
  47. ap2:
  48.       dc.w new_env
  49.       dc.l sax_env
  50.     dc.w new_snd
  51.     dc.l sax
  52.  
  53.  
  54.     dc.w F05,sq*3,D05,sq,Bb04,cr,Bb04,cr,C05,cr,D05,cr*2,D05,cr
  55.     dc.w D05,cr,Bb04,cr,C05,cr,A04,cr*3,F05,q*3,Eb05,q,D05,cr
  56.     dc.w C05,cr*2,Bb04,q,C05,q,D05,cr,D05,cr,D05,cr,Bb04,cr,F04,cr*2
  57.     dc.w end_patt
  58. ap3:
  59.  
  60.       dc.w new_env
  61.       dc.l sax_env
  62.     dc.w new_snd
  63.     dc.l sax
  64.  
  65.  
  66.     dc.w F03,sq*3,Eb03,sq,Bb02,cr,Bb02,cr,A02,cr,G02,cr*2
  67.     dc.w Gb02,cr,G02,cr,G02,cr,C03,cr,F02,cr*2,F03,q,F03,q
  68.     dc.w Bb02,cr*3,F02,cr*3,Bb02,cr,Bb02,cr,F03,cr,D03,cr,Bb02,cr*2
  69.     dc.w end_patt
  70.  
  71.  
  72. ******
  73.  
  74.  
  75.  
  76. ;;;;;;;;;;;;;;;;;;;;;    FRANCE   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  77. song5:
  78.     dc.l pfrance2,prinf
  79.       dc.l 0,end_song
  80.  
  81. song6:
  82.     dc.l pfrance3,prinf
  83.       dc.l 0,end_song
  84. song7:
  85.     dc.l pfrance1,prinf
  86.       dc.l 0,end_song
  87.  
  88. song8:
  89.     dc.l pfrance2,prinf
  90.       dc.l 0,end_song
  91.  
  92.  
  93. pfrance1:
  94.     
  95.     dc.w new_env
  96.     dc.l sax_env
  97.     dc.w new_snd
  98.     dc.l sax
  99.  
  100.  
  101.     dc.w B04,sq,B04,sq*3,B04,sq
  102.     dc.w E05,cr,E05,cr,Gb05,cr,Gb05,cr,B05,cr+q+sq,Ab05,sq
  103.     dc.w E05,sq*3,E05,sq,Ab05,sq*3,E05,sq
  104.     dc.w Db05,cr,A05,cr*2,Gb05,sq*3,Eb05,sq,E05,cr*4
  105.       dc.w end_patt
  106. pfrance2:
  107.  
  108.     
  109.     dc.w new_env
  110.     dc.l sax_env
  111.     dc.w new_snd
  112.     dc.l sax
  113.  
  114.  
  115.  
  116.     dc.w rest,sq*5
  117.     dc.w Ab04,cr,Ab04,cr,B04,cr,B04,cr
  118.     dc.w Ab04,cr+q+sq,Ab04,sq,Ab04,sq*3,Ab04,sq,B04,sq*3,Ab04,sq
  119.     dc.w A04,cr,Db05,cr,Eb04,cr,A04,cr
  120.     dc.w Ab04,cr*4
  121.     dc.w end_patt
  122. pfrance3:
  123.  
  124.     
  125.     dc.w new_env
  126.     dc.l sax_env
  127.     dc.w new_snd
  128.     dc.l sax
  129.  
  130.     dc.w B02,sq,B02,sq*3,B02,sq
  131.     dc.w E03,cr,E03,cr,Eb03,cr,Eb03,cr
  132.     dc.w E03,cr+q+sq,E03,sq,E03,sq*3,E03,sq,E03,sq*3,E03,sq
  133.     dc.w A02,cr,Gb02,cr,B02,cr*2,E03,cr*4
  134.     dc.w end_patt
  135.  
  136.  
  137. ***********
  138.  
  139. cr set   28
  140. q set cr/2
  141. sq set q/2
  142.  
  143.  
  144.  
  145.  
  146. ;;;;;;;;;;;;;;;;;;;;;    G.B.    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  147. song9:
  148.     dc.l pgb2,prinf
  149.       dc.l 0,end_song
  150.  
  151. song10:
  152.     dc.l pgb3,prinf
  153.       dc.l 0,end_song
  154. song11:
  155.     dc.l pgb1,prinf
  156.       dc.l 0,end_song
  157.  
  158. song12:
  159.     dc.l pgb1,prinf
  160.       dc.l 0,end_song
  161.  
  162.  
  163.  
  164. pgb1:
  165.  
  166.     
  167.     dc.w new_env
  168.     dc.l sax_env
  169.     dc.w new_snd
  170.     dc.l sax
  171.  
  172.  
  173.     dc.w E05,cr,E05,cr,Gb05,cr
  174.     dc.w Eb05,q*3,E05,q,Gb05,cr
  175.     dc.w Ab05,cr,Ab05,cr,A05,cr
  176.     dc.w Ab05,q*3,Gb05,q,E05,cr
  177.     dc.w Gb05,cr,E05,cr,Eb05,cr
  178.     dc.w E05,cr,E05,q,Gb05,q,Ab05,q,A05,q
  179.     dc.w B05,cr,B05,cr,B05,cr
  180.     dc.w B05,q*3,A05,q,Ab05,cr
  181.     dc.w A05,cr,A05,cr,A05,cr
  182.     dc.w A05,q*3,Ab05,q,Gb05,cr
  183.     dc.w Ab05,cr,A05,q,Ab05,q,Gb05,q,E05,q
  184.     dc.w Ab05,q*3,A05,q,B05,cr    
  185.     dc.w Db06,q,A05,q,Ab05,cr,Gb05,cr,E05,cr*3
  186.       dc.w end_patt
  187. pgb2:
  188.     
  189.     dc.w new_env
  190.     dc.l sax_envq
  191.     dc.w new_snd
  192.     dc.l sax
  193.  
  194.  
  195.  
  196.     dc.w Ab02,cr,B02,cr,Db03,cr
  197.     dc.w B02,q*3,A02,q,B02,cr
  198.     dc.w B02,cr,E03,cr,Db03,cr
  199.     dc.w E03,q*3,Ab02,q,Ab02,cr
  200.     dc.w Db03,cr,Ab02,cr,Gb02,cr
  201.     dc.w Ab02,cr,Ab02,q,A02,q,B02,q,Db03,q
  202.     dc.w Ab02,cr,B02,cr,E03,cr
  203.     dc.w Ab03,q*3,Eb03,q,B02,cr
  204.     dc.w Eb03,cr,B02,cr,B02,cr
  205.     dc.w Eb03,q*3,B02,q,Eb03,cr
  206.     dc.w B02,cr,Db03,cr,B02,cr
  207.     dc.w E03,q*3,Gb03,q,Ab03,cr
  208.     dc.w Gb03,cr,E03,cr,Eb03,q,A02,q,Ab02,cr*3
  209.     dc.w end_patt
  210. pgb3:
  211.  
  212.     
  213.     dc.w new_env
  214.     dc.l sax_env
  215.     dc.w new_snd
  216.     dc.l sax
  217.  
  218.  
  219.     dc.w E02,cr,Ab02,cr,A02,cr
  220.     dc.w B02,q*3,Db03,q,Eb03,cr
  221.     dc.w E03,cr,Db03,cr,A02,cr
  222.     dc.w B02,q*3,C03,q,Db03,cr
  223.     dc.w A02,cr,B02,cr,B02,cr
  224.     dc.w E03,cr*3
  225.     dc.w E02,cr,Ab02,cr,B02,cr
  226.     dc.w E03,q*3,B02,q,E03,cr,B02,cr,Eb03,cr,Gb03,cr
  227.     dc.w B02,q*3,E03,q,B02,cr,E03,cr,Gb03,q,E03,q,Eb03,q,Db03,q
  228.     dc.w B02,q,A02,q,Ab02,q,Gb02,q,E02,cr,A02,cr,B02,cr,B02,cr,E02,cr*3
  229.     dc.w end_patt
  230.  
  231. ****************
  232.  
  233.  
  234. ;;;;;;;;;;;;;;;;;;;;;    CANADA    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  235. song17:
  236.     dc.l pcanada2,prinf
  237.       dc.l 0,end_song
  238.  
  239. song18:
  240.     dc.l pcanada3,prinf
  241.       dc.l 0,end_song
  242. song19:
  243.     dc.l pcanada1,prinf
  244.       dc.l 0,end_song
  245.  
  246. song20:
  247.     dc.l pcanada2,prinf
  248.       dc.l 0,end_song
  249.  
  250.  
  251.  
  252. pcanada1:
  253.  
  254.     dc.w new_env
  255.     dc.l sax_env
  256.     dc.w new_snd
  257.     dc.l sax
  258.  
  259.  
  260.     dc.w D05,cr*2,F05,cr*2,Bb04,cr*3,C05,cr
  261.     dc.w D05,cr,Eb05,cr,F05,cr,G05,cr
  262.     dc.w C05,cr*4,D05,cr*2,E05,cr*2,F05,cr*3,G05,cr
  263.     dc.w A05,cr,A05,cr,G05,cr,G05,cr,F05,cr*4
  264.       dc.w end_patt
  265. pcanada2:
  266.  
  267.     dc.w new_env
  268.     dc.l sax_env
  269.     dc.w new_snd
  270.     dc.l sax
  271.  
  272.     dc.w F04,cr*2,A04,cr*2,G04,cr*3,F04,cr,F04,cr,F04,cr
  273.     dc.w Bb04,cr,Bb04,cr,Bb04,cr,Bb04,q,G04,q,A04,cr*2
  274.     dc.w Bb04,cr*2,D05,cr,Db05,cr,D05,cr*3,E05,cr
  275.     dc.w F05,cr,C05,cr,E05,cr,Bb04,cr,A04,cr*4
  276.     dc.w end_patt
  277. pcanada3:
  278.  
  279.     dc.w new_env
  280.     dc.l sax_env
  281.     dc.w new_snd
  282.     dc.l sax
  283.  
  284.     dc.w Bb02,cr*2,D03,cr*2,G02,cr,D02,cr,G02,cr,A02,cr
  285.     dc.w Bb02,cr,C03,cr,D03,cr,E03,cr,F03,cr*4,Bb02,cr*2,A02,cr*2
  286.     dc.w D03,cr*3,Db03,cr,C03,cr,C03,cr,C03,cr,C03,cr,F02,cr*4
  287.     dc.w end_patt
  288.  
  289. *******
  290.  
  291. ;;;;;;;;;;;;;;;;;;;;;    MEXICO   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  292. song21:
  293.     dc.l pmexico2,prinf
  294.       dc.l 0,end_song
  295.  
  296. song22:
  297.     dc.l pmexico3,prinf
  298.       dc.l 0,end_song
  299. song23:
  300.     dc.l pmexico1,prinf
  301.       dc.l 0,end_song
  302.  
  303. song24:
  304.     dc.l pmexico2,prinf
  305.       dc.l 0,end_song
  306.  
  307.  
  308. pmexico1:
  309.  
  310.     
  311.     dc.w new_env
  312.     dc.l sax_env
  313.     dc.w new_snd
  314.     dc.l sax
  315.  
  316.     dc.w F04,cr,A04,q,C05,q*3,C05,cr,C05,q
  317.     dc.w C05,q*3,C05,q,D05,q,E05,q,F05,q*3,E05,q*3
  318.     dc.w C05,q*3,A04,cr,F04,q,F04,q*3,A04,cr,A04,q
  319.     dc.w Bb04,q*3,C05,cr,C05,q,A04,cr,G04,q,F04,q*3
  320.       dc.w end_patt
  321. pmexico2:
  322.  
  323.     
  324.     dc.w new_env
  325.     dc.l sax_env
  326.     dc.w new_snd
  327.     dc.l sax
  328.     dc.w rest,q*3,A04,q*3,A04,cr,A04,q,A04,q*3,A04,q,A04,q,A04,q
  329.     dc.w A04,q*3,A04,q*3,A04,q*3,F04,cr,C04,q,Bb03,q*3,C04,cr,C04,q
  330.     dc.w D04,q*3,E04,cr,E04,q,C04,cr,Bb03,q,A03,q*3 
  331.     dc.w end_patt
  332. pmexico3:
  333.  
  334.     
  335.     dc.w new_env
  336.     dc.l sax_env
  337.     dc.w new_snd
  338.     dc.l sax
  339.  
  340.     dc.w rest,q*3,F03,q*3,C03,cr,C03,q,F03,q*3,F03,q,F03,q,F03,q
  341.     dc.w F03,q*3,C03,q*3,F03,q*3,C03,cr,C03,q,C03,q*3,C03,cr,C03,q
  342.     dc.w C03,q*3,C03,cr,C03,q,F03,q*3,F03,q*3
  343.     dc.w end_patt
  344.  
  345.  
  346. ***********
  347.  
  348.  
  349. ;;;;;;;;;;;;;;;;;;;;;    JAPAN   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  350. song25:
  351.     dc.l pjapan2,prinf
  352.       dc.l 0,end_song
  353.  
  354. song26:
  355.     dc.l pjapan3,prinf
  356.       dc.l 0,end_song
  357. song27:
  358.     dc.l pjapan1,prinf
  359.       dc.l 0,end_song
  360.  
  361. song28:
  362.     dc.l pjapan2,prinf
  363.       dc.l 0,end_song
  364.  
  365.  
  366. pjapan1:
  367.     
  368.     dc.w new_env
  369.     dc.l sax_env
  370.     dc.w new_snd
  371.     dc.l sax
  372.     dc.w G04,cr,F04,cr,G04,cr,A04,cr,C05,cr,A04,cr,G04,cr*2
  373.     dc.w A04,cr,C05,cr,D05,cr,C05,q,D05,q
  374.     dc.w G05,cr,E05,cr,D05,cr,C05,cr,A04,cr,C05,cr,D05,cr*2
  375.     dc.w G05,cr,F05,cr,G05,cr*2,A04,cr,C05,cr,D05,cr,C05,cr
  376.     dc.w A04,q*3,C05,q,G04,cr*2,D05,cr,F05,cr,G05,cr,G05,cr
  377.     dc.w F05,cr,G05,cr,D05,cr,C05,cr,D05,cr,C05,q,A04,q,G04,cr*2
  378.       dc.w end_patt
  379.  
  380. pjapan2:
  381.     
  382.     dc.w new_env
  383.     dc.l sax_env
  384.     dc.w new_snd
  385.     dc.l sax
  386.     dc.w rest,cr*8,F04,cr,F04,cr,F04,cr,E04,q,F04,q
  387.     dc.w Db05,cr,Db05,cr,Bb04,cr,G04,cr
  388.     dc.w F04,cr,F04,cr,F04,cr*2,Bb04,cr,A04,cr,Bb04,cr*2
  389.     dc.w F04,cr,F04,cr,F04,cr,F04,cr
  390.     dc.w F04,cr*2,E04,cr*2,F04,cr,Bb04,cr,Bb04,cr,Bb04,cr
  391.     dc.w A04,cr,Bb04,cr,rest,cr*6
  392.     dc.w end_patt
  393. pjapan3:
  394.     
  395.     dc.w new_env
  396.     dc.l sax_env
  397.     dc.w new_snd
  398.     dc.l sax
  399.     dc.w rest,cr*8,F02,cr,A02,cr,Bb02,cr,A02,q,Bb02,q
  400.     dc.w G02,cr,C03,cr,G02,cr,C03,cr
  401.     dc.w F02,cr,A02,cr,Bb02,cr*2,G02,cr,D02,cr,G02,cr*2
  402.     dc.w F02,cr,A02,cr,Bb02,cr,A02,cr
  403.     dc.w F02,cr*2,C03,cr*2,Bb02,cr,D03,cr,C03,cr,D03,cr
  404.     dc.w D03,cr,D03,cr,D03,cr,C03,cr,C03,cr,C03,q,A02,q,G02,cr*2
  405.     dc.w end_patt
  406.  
  407.  
  408.  
  409.  
  410.  
  411.  
  412. ***********
  413. ;;;;;;;;;;;;;;;;;;;;;    HOLLANDS  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  414. song29:
  415.     dc.l pholland2,prinf
  416.       dc.l 0,end_song
  417.  
  418. song30:
  419.     dc.l pholland3,prinf
  420.       dc.l 0,end_song
  421. song31:
  422.     dc.l pholland1,prinf
  423.       dc.l 0,end_song
  424.  
  425. song32:
  426.     dc.l pholland2,prinf
  427.       dc.l 0,end_song
  428.  
  429.  
  430. pholland1:
  431.     
  432.     dc.w new_env
  433.     dc.l sax_env
  434.     dc.w new_snd
  435.     dc.l sax
  436.     dc.w C05,cr,F05,cr,F05,cr,G05,q,A05,q,Bb05,q,G05,q
  437.     dc.w A05,cr,G05,q,A05,q,Bb05,cr,A05,cr,G05,q,F05,q,G05,cr,F05,cr*3
  438.       dc.w end_patt
  439. pholland2:
  440.     
  441.     dc.w new_env
  442.     dc.l sax_env
  443.     dc.w new_snd
  444.     dc.l sax
  445.     dc.w Bb03,cr,A03,cr,A03,cr,D04,cr,E04,cr,C04,cr
  446.     dc.w Bb03,q,C04,q,D04,cr,F04,cr,E04,q,D04,q,E04,cr,C04,cr*3
  447.     dc.w end_patt
  448. pholland3:
  449.     
  450.     dc.w new_env
  451.     dc.l sax_env
  452.     dc.w new_snd
  453.     dc.l sax
  454.     dc.w E03,cr,F03,cr,C03,cr,Bb02,cr,C03,cr,F03,cr,D03,q,C03,q
  455.     dc.w Bb02,cr,C03,cr,C03,q,C03,q,C03,cr,F02,cr*3
  456.     dc.w end_patt
  457.  
  458. ******
  459.  
  460.  
  461.  
  462.  
  463. ;;;;;;;;;;;;;;;;;;;;;    GERMANY   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  464. song33:
  465.     dc.l pgermany1,prinf
  466.       dc.l 0,end_song
  467.  
  468. song34:
  469.     dc.l pgermany3,prinf
  470.       dc.l 0,end_song
  471. song35:
  472.     dc.l pgermany1,prinf
  473.       dc.l 0,end_song
  474.  
  475. song36:
  476.     dc.l pgermany2,prinf
  477.       dc.l 0,end_song
  478.  
  479.  
  480. pgermany1:
  481.     
  482.     dc.w new_env
  483.     dc.l sax_env
  484.     dc.w new_snd
  485.     dc.l sax
  486.     dc.w C02,q*3,D02,q,E02,cr,D02,cr
  487.     dc.w F02,cr,E02,cr,D02,q,B01,q,C02,cr
  488.     dc.w A02,cr,G02,cr,F02,cr,E02,cr
  489.     dc.w D02,cr,E02,q,C02,q,G02,cr*2
  490.     dc.w C02,q*3,B01,q,B01,q,A01,q,G01,cr
  491.     dc.w A01,q*3,G01,q,G01,q,F01,q,E01,cr
  492.     dc.w D01,q*3,E01,sq,F01,sq,G01,q,A01,q,F01,q,D01,q
  493.     dc.w C01,cr,E01,q,D01,q,C01,cr*2
  494.       dc.w end_patt
  495. pgermany2:
  496.     
  497.     dc.w new_env
  498.     dc.l sax_envq
  499.     dc.w new_snd
  500.     dc.l sax
  501.     dc.w E02,q*3,F02,q,G02,cr,A02,cr
  502.     dc.w A02,cr,G02,cr,G02,q,F02,q,E02,cr
  503.     dc.w C02,cr,C02,cr,A01,cr,C02,cr
  504.     dc.w Gb02,cr,G02,cr,B02,cr*2
  505.     dc.w D03,q,E03,q,G03,cr,C03,cr,C03,cr
  506.     dc.w C03,q,D03,q,E03,cr,B02,cr,C03,cr
  507.     dc.w B02,cr*2,E03,cr,A02,cr
  508.     dc.w E02,cr,F02,cr,E02,cr*2
  509.     dc.w end_patt
  510. pgermany3:
  511.     
  512.     dc.w new_env
  513.     dc.l sax_envq
  514.     dc.w new_snd
  515.     dc.l sax
  516.     dc.w C03,q*3,C03,q,C03,cr,F02,cr
  517.     dc.w F02,cr,C03,cr,G02,cr,C03,cr
  518.     dc.w F03,cr,E03,cr,D03,cr,C03,cr
  519.     dc.w D03,cr,C03,cr,G02,cr*2
  520.     dc.w C03,cr,E03,cr,F03,cr,E03,cr
  521.     dc.w F03,cr,E03,cr,G03,cr,C03,cr
  522.     dc.w G02,cr*2,C03,cr,F02,cr
  523.     dc.w G02,cr,G02,cr,C03,cr*2
  524.     dc.w end_patt
  525.  
  526. *******
  527.  
  528. ;;;;;;;;;;;;;;;;;;;;;    SPAIN   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  529. song37:
  530.     dc.l pspain2,prinf
  531.       dc.l 0,end_song
  532.  
  533. song38:
  534.     dc.l pspain3,prinf
  535.       dc.l 0,end_song
  536. song39:
  537.     dc.l pspain1,prinf
  538.       dc.l 0,end_song
  539.  
  540. song40:
  541.     dc.l pspain2,prinf
  542.       dc.l 0,end_song
  543.  
  544.  
  545. pspain1:
  546.     
  547.     dc.w new_env
  548.     dc.l sax_env
  549.     dc.w new_snd
  550.     dc.l sax
  551.     dc.w Ab05,cr,Eb05,cr,C06,cr,Ab05,q,Eb06,q
  552.     dc.w Db06,q,C06,q,Bb05,q,Ab05,q,Ab05,q,G05,q,F05,q,Eb05,q
  553.     dc.w Ab05,cr,Bb05,cr,C06,q*3,Eb06,q
  554.     dc.w Db06,q,C06,q,Bb05,q,Ab05,q,G05,cr*2
  555.     dc.w Ab05,cr,Eb05,cr,C06,cr,Ab05,q,Eb06,q
  556.     dc.w Db06,q,C06,q,Bb05,q,Ab05,q,Ab05,q,G05,q,F05,q,Eb05,q
  557.     dc.w Ab05,cr,Bb05,cr,C06,q*3,Eb06,q
  558.     dc.w Db06,q,C06,q,Bb05,q,Ab05,q,Ab05,cr*2
  559.       dc.w end_patt
  560. pspain2:
  561.     
  562.     dc.w new_env
  563.     dc.l sax_env
  564.     dc.w new_snd
  565.     dc.l sax
  566.     dc.w C05,cr,C05,cr,Eb05,cr,C05,cr
  567.     dc.w F05,cr*2,Eb05,cr,Db05,cr
  568.     dc.w C05,cr,Db05,cr,Eb05,q*3,C05,q
  569.     dc.w Ab04,cr,F04,cr,G04,cr*2
  570.     dc.w C05,cr,C05,cr,Eb05,cr,C05,cr
  571.     dc.w F05,cr*2,Eb05,cr,Db05,cr
  572.     dc.w C05,cr,Db05,cr,Eb05,q*3,C05,q
  573.     dc.w Ab04,cr,G04,cr,Ab04,cr*2
  574.     dc.w end_patt
  575. pspain3:
  576.     
  577.     dc.w new_env
  578.     dc.l sax_env
  579.     dc.w new_snd
  580.     dc.l sax
  581.     dc.w Ab02,cr,Ab02,cr,Ab02,cr,Ab02,cr
  582.     dc.w Ab02,q,Bb02,q,C03,q,D03,q,Eb03,cr*2
  583.     dc.w Ab02,cr,Eb03,cr,Ab02,cr,G02,cr
  584.     dc.w F02,cr,Db02,cr,Eb02,cr*2
  585.     dc.w Ab02,cr,Ab02,cr,Ab02,cr,Ab02,cr
  586.     dc.w Ab02,q,Bb02,q,C03,q,D03,q,Eb03,cr*2
  587.     dc.w Ab02,cr,Eb03,cr,Ab02,cr,G02,cr
  588.     dc.w F02,cr,Eb02,cr,Ab02,cr*2
  589.     dc.w end_patt
  590.  
  591. *******
  592.  
  593.  
  594. ;;;;;;;;;;;;;;;;;;;;;    NORWAY  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  595. song41:
  596.     dc.l pnw21,prinf
  597.       dc.l 0,end_song
  598.  
  599. song42:
  600.     dc.l pnw23,prinf
  601.       dc.l 0,end_song
  602. song43:
  603.     dc.l pnw21,prinf
  604.       dc.l 0,end_song
  605.  
  606. song44:
  607.     dc.l pnw22,prinf
  608.       dc.l 0,end_song
  609.  
  610. pnw21:
  611.     
  612.     dc.w new_env
  613.     dc.l sax_env
  614.     dc.w new_snd
  615.     dc.l sax
  616.     dc.w Bb04,cr,Eb05,q*3,Db05,q,C05,cr,Bb04,cr
  617.     dc.w Ab04,cr,Bb04,cr,C05,cr,Db05,cr
  618.     dc.w Eb05,q*3,F05,q,Eb05,cr,Db05,cr,C05,cr*4
  619.     dc.w F05,q*3,Eb05,q,Db05,cr,C05,cr
  620.     dc.w Bb04,cr,C05,cr,Db05,cr,Eb05,q*5,F05,q
  621.     dc.w Db05,cr,G05,cr,Ab05,cr*4
  622.       dc.w end_patt
  623. pnw22:
  624.     
  625.     dc.w new_env
  626.     dc.l sax_env
  627.     dc.w new_snd
  628.     dc.l sax
  629.     dc.w rest,cr*8,Ab04,cr,G04,q*3,Db05,q,C05,cr,Bb04,cr
  630.     dc.w Ab04,cr*4,rest,cr*7,G04,cr,Ab04,cr*2,F04,cr,Bb04,cr
  631.     dc.w C05,cr*4
  632.     dc.w end_patt
  633. pnw23:
  634.     
  635.     dc.w new_env
  636.     dc.l sax_env
  637.     dc.w new_snd
  638.     dc.l sax
  639.     dc.w rest,cr*8,F03,cr,Eb03,q*3,Eb02,q,F02,cr,G02,cr
  640.     dc.w Ab02,cr*4,rest,cr*7,Db03,cr,C03,cr*2,Bb02,cr,Eb03,cr
  641.     dc.w Ab02,cr*4
  642.     dc.w end_patt
  643.  
  644. *******
  645.  
  646.  
  647.  
  648. ;;;;;;;;;;;;;;;;;;;;;    AUSTRIA    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  649. song45:
  650.     dc.l paustria1,prinf
  651.       dc.l 0,end_song
  652.  
  653. song46:
  654.     dc.l paustria3,prinf
  655.       dc.l 0,end_song
  656. song47:
  657.     dc.l paustria1,prinf
  658.       dc.l 0,end_song
  659.  
  660. song48:
  661.     dc.l paustria2,prinf
  662.       dc.l 0,end_song
  663.  
  664.  
  665. paustria1:
  666.     
  667.     dc.w new_env
  668.     dc.l sax_env
  669.     dc.w new_snd
  670.     dc.l sax
  671.     dc.w Bb02,cr*2,A02,cr,G02,cr*2,A02,q,Bb02,q
  672.     dc.w C03,cr*2,Bb02,cr,Bb02,cr,A02,cr*2
  673.     dc.w A02,cr*2,G02,cr,F02,cr*2,G02,q,A02,q
  674.     dc.w Bb02,cr*2,A02,cr,A02,q,G02,q,G02,cr*2
  675.       dc.w end_patt
  676. paustria2:
  677.     
  678.     dc.w new_env
  679.     dc.l sax_envq
  680.     dc.w new_snd
  681.     dc.l sax
  682.     dc.w G02,cr*2,F02,cr,Eb02,cr*2,F02,q,G02,q
  683.     dc.w eb02,cr*2,G02,cr,G02,cr,F02,cr*2
  684.     dc.w F02,cr*2,Eb02,cr,D02,cr*2,Eb02,q,F02,q
  685.     dc.w G02,cr*2,F02,cr,Bb01,cr,Bb01,cr*2
  686.     dc.w end_patt
  687. paustria3:
  688.     
  689.     dc.w new_env
  690.     dc.l sax_envq
  691.     dc.w new_snd
  692.     dc.l sax
  693.     dc.w Eb01,cr,G01,cr,Bb01,cr,Eb02,cr*2,Eb02,cr
  694.     dc.w ab01,cr,Bb01,cr,C02,cr,g01,q,F01,q,F01,cr*2
  695.     dc.w Bb01,cr,D02,cr,Bb01,cr,Bb01,cr*2,Bb01,cr
  696.     dc.w Bb01,cr*2,Bb01,cr,Eb01,cr,Eb01,cr*2
  697.     dc.w end_patt
  698.  
  699. ************
  700.  
  701. ;;;;;;;;;;;;;;;;;;;;;    EIRE     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  702. song49:
  703.     dc.l peire2,prinf
  704.       dc.l 0,end_song
  705.  
  706. song50:
  707.     dc.l peire3,prinf
  708.       dc.l 0,end_song
  709. song51:
  710.     dc.l peire1,prinf
  711.       dc.l 0,end_song
  712.  
  713. song52:
  714.     dc.l peire2,prinf
  715.       dc.l 0,end_song
  716.  
  717.  
  718. peire1:
  719.     dc.w new_env
  720.     dc.l sax_env
  721.     dc.w new_snd
  722.     dc.l sax
  723.     dc.w A05,cr,Gb05,cr,D05,q,Gb05,q,A05,q*3,A05,q
  724.     dc.w B05,q,Db06,q,D06,q,E06,q,Gb06,q*3,E06,q
  725.     dc.w D06,cr,B05,sq*3,B05,sq,A05,cr,Gb05,cr
  726.     dc.w A05,q*3,G05,q,E05,cr,A04,cr
  727.     dc.w Gb05,cr,D05,q,Gb05,q,A05,q*3,A05,q
  728.     dc.w B05,q,Db06,q,D06,q,E06,q,Gb06,q*3,D06,q
  729.     dc.w Db06,q*3,Db06,q,B05,q*3,B05,q,A05,cr,A05,cr*3
  730.       dc.w end_patt
  731.  
  732. peire2:
  733.     dc.w new_env
  734.     dc.l sax_env
  735.     dc.w new_snd
  736.     dc.l sax
  737.     dc.w rest,cr,A04,cr,rest,cr,E05,cr,rest,q,E05,q
  738.     dc.w G05,cr,B05,cr,A05,q*3,A05,q,B05,cr,G05,sq*3,G05,sq
  739.     dc.w D05,cr,D05,cr,Db05,q*3,Db05,q,Db05,cr,Db05,cr
  740.     dc.w A04,cr,rest,cr,E05,cr,rest,q,E05,q
  741.     dc.w G05,cr,B05,cr,A05,q*3,A05,q,A05,q*3,A05,q,Ab05,q*3,Ab05,q
  742.     dc.w E05,cr,E05,cr*3
  743.     dc.w end_patt
  744. peire3:
  745.     dc.w new_env
  746.     dc.l sax_env
  747.     dc.w new_snd
  748.     dc.l sax
  749.     dc.w rest,cr,D03,cr,rest,cr,Db03,cr,rest,q,Db03,q
  750.     dc.w B02,cr,G03,cr,D03,q*3,Gb03,q,G03,cr,G03,sq*3,G03,sq
  751.     dc.w Gb03,cr,D03,cr,A03,q*3,A03,q,A03,cr,A03,cr
  752.     dc.w D03,cr,rest,cr,Db03,cr,rest,q,Db03,q
  753.     dc.w B02,cr,G03,cr,D03,q*3,D03,q
  754.     dc.w E03,q*3,E03,q,E03,q*3,E03,q,A02,cr,A02,cr*3
  755.     dc.w end_patt
  756.  
  757. ******
  758.  
  759.  
  760.  
  761. ;;;;;;;;;;;;;;;;;;;;;    ITALY   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  762. song53:
  763.     dc.l pitaly2,prinf
  764.       dc.l 0,end_song
  765.  
  766. song54:
  767.     dc.l pitaly3,prinf
  768.       dc.l 0,end_song
  769. song55:
  770.     dc.l pitaly1,prinf
  771.       dc.l 0,end_song
  772.  
  773. song56:
  774.     dc.l pitaly2,prinf
  775.       dc.l 0,end_song
  776.  
  777. pitaly1:
  778.     dc.w new_env
  779.     dc.l sax_env
  780.     dc.w new_snd
  781.     dc.l sax
  782.     dc.w G04,cr,G04,sq*3,A04,sq,G04,cr*2
  783.     dc.w E05,cr,E05,sq*3,F05,sq,E05,cr*2
  784.     dc.w E05,cr,G05,sq*3,F05,sq,E05,cr*2
  785.     dc.w D05,cr,E05,sq*3,D05,sq,C05,cr*2
  786.       dc.w end_patt
  787. pitaly2:
  788.     dc.w new_env
  789.     dc.l sax_env
  790.     dc.w new_snd
  791.     dc.l sax
  792.     dc.w E04,cr,E04,sq*3,F04,sq,E04,sq*3,E04,sq,E04,cr
  793.     dc.w G04,cr,G04,sq*3,A04,sq,G04,sq*3,G04,sq,G04,cr
  794.     dc.w C05,cr,E05,sq*3,D05,sq,C05,cr*2
  795.     dc.w B04,cr,C05,sq*3,B04,sq,E04,cr*2
  796.     dc.w end_patt
  797. pitaly3:
  798.     dc.w new_env
  799.     dc.l sax_env
  800.     dc.w new_snd
  801.     dc.l sax
  802.     dc.w C04,cr,C04,sq*3,C04,sq,C04,sq*3,C04,sq,C04,cr
  803.     dc.w C04,cr,C04,sq*3,C04,sq,C04,sq*3,C04,sq,C04,cr
  804.     dc.w C04,cr,C04,sq*3,C04,sq,C04,cr,G03,cr
  805.     dc.w G03,cr,G03,sq*3,G03,sq,C04,cr,C03,cr
  806.     dc.w end_patt
  807.  
  808. **********
  809.  
  810.  
  811. ;;;;;;;;;;;;;;;;;;;;;    AUSTRALIA    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  812. song57:
  813.     dc.l pau2,prinf
  814.       dc.l 0,end_song
  815.  
  816. song58:
  817.     dc.l pau3,prinf
  818.       dc.l 0,end_song
  819. song59:
  820.     dc.l pau1,prinf
  821.       dc.l 0,end_song
  822.  
  823. song60:
  824.     dc.l pau2,prinf
  825.       dc.l 0,end_song
  826.  
  827. pau1:
  828.     dc.w new_env
  829.     dc.l sax_env
  830.     dc.w new_snd
  831.     dc.l sax
  832.  
  833.     dc.w C03,q,D03,q,E03,cr,E03,q,E03,q,D03,cr,D03,cr
  834.     dc.w C03,q,D03,q,E03,q,C03,q,A02,q,B02,q,C03,cr
  835.     dc.w G04,cr,C03,q,E03,q,G03,cr,F03,q,E03,q
  836.     dc.w D03,cr,D03,q,D03,q,C03,cr*2
  837.       dc.w end_patt
  838. pau2:
  839.     dc.w new_env
  840.     dc.l sax_env
  841.     dc.w new_snd
  842.     dc.l sax
  843.  
  844.     dc.w rest,cr,C02,cr,C02,q,C02,q,B01,cr,B01,cr
  845.     dc.w A01,q,B01,q,C02,q,A01,q,F01,q,G01,q,A01,cr
  846.     dc.w E01,cr,G01,q,C02,q,E02,cr,D02,q,C02,q
  847.     dc.w B01,cr,B01,q,B01,q,G01,cr*2
  848.     dc.w end_patt
  849. pau3:
  850.     dc.w new_env
  851.     dc.l sax_env
  852.     dc.w new_snd
  853.     dc.l sax
  854.  
  855.     dc.w rest,cr,C03,cr,G02,cr,D03,cr,G02,cr
  856.     dc.w A02,cr,G02,cr,F02,cr,Gb02,cr
  857.     dc.w G02,cr*2,G02,cr*2,G02,cr,G02,q,G02,q,C03,cr*2
  858.     dc.w end_patt
  859. ********
  860.  
  861.  
  862.  
  863. ;;;;;;;;;;;;;;;;;;;;;    BRAZIL    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  864. song61:
  865.     dc.l pbrazil2,prinf
  866.       dc.l 0,end_song
  867.  
  868. song62:
  869.     dc.l pbrazil3,prinf
  870.       dc.l 0,end_song
  871. song63:
  872.     dc.l pbrazil1,prinf
  873.       dc.l 0,end_song
  874.  
  875. song64:
  876.     dc.l pbrazil2,prinf
  877.       dc.l 0,end_song
  878.  
  879.  
  880. pbrazil1:
  881.     dc.w new_env
  882.     dc.l sax_env
  883.     dc.w new_snd
  884.     dc.l sax
  885.  
  886.     dc.w Bb04,cr,Bb04,q*2,Bb04,cr,Bb04,cr
  887.     dc.w Eb05,sq*3,D05,sq,Eb05,sq*3,F05,sq
  888.     dc.w G05,sq*3,F05,sq,G05,sq*3,Ab05,sq
  889.     dc.w A05,q*3,Bb05,q,Eb05,cr,Bb04,cr
  890.     dc.w Eb05,sq*3,D05,sq,F05,sq*3,Eb05,sq
  891.     dc.w G05,sq*3,F05,sq,Ab05,sq*3,G05,sq
  892.     dc.w E05,cr,F05,cr*3
  893.       dc.w end_patt
  894. pbrazil2:
  895.     dc.w new_env
  896.     dc.l sax_env
  897.     dc.w new_snd
  898.     dc.l sax
  899.  
  900.     dc.w G04,cr,G04,q*2,G04,cr,rest,cr
  901.     dc.w G04,cr*2,Bb04,cr*2,Gb05,q*3,G05,q
  902.     dc.w Bb04,cr,Bb04,cr,G04,cr,Ab04,cr,Bb04,cr,C05,cr
  903.     dc.w Db05,cr,D05,cr*3
  904.     dc.w end_patt
  905. pbrazil3:
  906.     dc.w new_env
  907.     dc.l sax_env
  908.     dc.w new_snd
  909.     dc.l sax
  910.  
  911.     dc.w Eb03,cr,Eb03,q*2,Eb03,cr,rest,cr
  912.     dc.w Eb03,sq*3,D03,sq,Eb03,sq*3,F03,sq
  913.     dc.w G03,sq*3,F03,sq,G03,sq*3,Ab03,sq
  914.     dc.w A03,q*3,Bb03,q,Eb03,cr,Bb02,cr
  915.     dc.w Eb03,sq*3,D03,sq,F03,sq*3,Eb03,sq
  916.     dc.w G03,sq*3,F03,sq,Ab03,sq*3,G03,sq
  917.     dc.w G03,cr,Ab03,cr*3
  918.     dc.w end_patt
  919.  
  920.  
  921. **********
  922.  
  923.         ;  russia    
  924.  
  925.  
  926.  
  927. song65:
  928.     dc.l pred1,prinf
  929.       dc.l 0,end_song
  930.  
  931. song66:
  932.     dc.l pred2,prinf
  933.       dc.l 0,end_song
  934. song67:
  935.     dc.l pred3,prinf
  936.       dc.l 0,end_song
  937.  
  938. song68:
  939.     dc.l pred1,prinf
  940.       dc.l 0,end_song
  941.  
  942.  
  943. pred1:
  944.     dc.w new_env
  945.     dc.l sax_env
  946.     dc.w new_snd
  947.     dc.l sax
  948.  
  949.     dc.w e03,cr,e03,cr,f03,cr,g03,cr,g03,cr,f03,cr
  950.     dc.w e03,cr,d03,cr,c03,cr,c03,cr,d03,cr,e03,cr
  951.     dc.w e03,cr+q,d03,q,d03,cr*2
  952.  
  953.     dc.w e03,cr,e03,cr,f03,cr,g03,cr,g03,cr,f03,cr
  954.     dc.w e03,cr,d03,cr,c03,cr,c03,cr,d03,cr,e03,cr
  955.     dc.w d03,cr+q,c03,q,c03,cr*2
  956.  
  957.  
  958.       dc.w end_patt
  959. pred2:
  960.     dc.w new_env
  961.     dc.l sax_env
  962.     dc.w new_snd
  963.     dc.l sax
  964.     dc.w c02,cr*4,g02,cr*4,c02,cr*4,g02,cr*4
  965.     dc.w c02,cr*4,g02,cr*4,f02,cr*4,g02,cr*2,c02,cr*2
  966.       dc.w end_patt
  967.  
  968.  
  969. pred3:
  970.     dc.w new_env
  971.     dc.l sax_env
  972.     dc.w new_snd
  973.     dc.l sax
  974.     dc.w g02,cr*4,d02,cr*4,g02,cr*4,d02,cr*4
  975.     dc.w g02,cr*4,d02,cr*4,a02,cr*4,b02,cr*2,g02,cr*2
  976.     dc.w end_patt
  977.  
  978. *****
  979.  
  980. **********
  981.  
  982.         ;  holland 
  983.  
  984.  
  985.  
  986. song69:
  987.     dc.l phol1,prinf
  988.       dc.l 0,end_song
  989.  
  990. song70:
  991.     dc.l phol2,prinf
  992.       dc.l 0,end_song
  993. song71:
  994.     dc.l phol3,prinf
  995.       dc.l 0,end_song
  996.  
  997. song72:
  998.     dc.l phol1,prinf
  999.       dc.l 0,end_song
  1000.  
  1001.  
  1002. phol1:
  1003.     dc.w new_env
  1004.     dc.l sax_env
  1005.     dc.w new_snd
  1006.     dc.l sax
  1007.  
  1008.     dc.w  g02,cr,c03,cr,c03,cr,d03,q,e03,q,f03,q,d03,q,e03,cr
  1009.     dc.w  d03,q,e03,q,f03,cr,e03,cr,d03,q,c03,q,d03,cr,c03,cr*4
  1010.  
  1011.       dc.w end_patt
  1012.  
  1013.  
  1014.  
  1015. phol2:
  1016.     dc.w new_env
  1017.     dc.l sax_env
  1018.     dc.w new_snd
  1019.     dc.l sax
  1020.  
  1021.     dc.w   rest,cr,e02,cr*8,d02,cr*4,e03,cr*4
  1022.  
  1023.  
  1024.       dc.w end_patt
  1025.  
  1026.  
  1027.  
  1028. phol3:
  1029.     dc.w new_env
  1030.     dc.l sax_env
  1031.     dc.w new_snd
  1032.     dc.l sax
  1033.  
  1034.     dc.w   rest,cr,g02,cr*8,b02,cr*4,g03,cr*4
  1035.  
  1036.  
  1037.       dc.w end_patt
  1038.  
  1039.  
  1040.  
  1041. songusg1:
  1042.     dc.l usg1,prinf
  1043.       dc.l 0,end_song
  1044.  
  1045. songusg2:
  1046.     dc.l usg2,prinf
  1047.       dc.l 0,end_song
  1048. songusg3:
  1049.     dc.l usg3,prinf
  1050.       dc.l 0,end_song
  1051.  
  1052. songusg4:
  1053.     dc.l usg1,prinf
  1054.       dc.l 0,end_song
  1055.  
  1056.  
  1057. usg1:
  1058.       dc.w new_env
  1059.       dc.l sax_env
  1060.     dc.w new_snd
  1061.     dc.l sax
  1062.     dc.w c02,cr,d02,cr,g02,cr,f02,cr,e02,cr
  1063.     dc.w c02,q,d02,q,f02,cr,e02,cr,d02,cr,c02,cr*4
  1064.     dc.w end_patt
  1065.  
  1066. usg2:
  1067.       dc.w new_env
  1068.       dc.l sax_env
  1069.     dc.w new_snd
  1070.     dc.l sax
  1071.     dc.w a01,cr*6,g01,cr*3,c01,cr*4
  1072.     dc.w end_patt
  1073.  
  1074.  
  1075. usg3:
  1076.       dc.w new_env
  1077.       dc.l sax_env
  1078.     dc.w new_snd
  1079.     dc.l sax
  1080.     dc.w e02,cr,f02,cr,c03,cr,b02,cr,a02,cr
  1081.     dc.w e02,q,f02,q,b02,cr,a02,cr,g02,cr,e02,cr*4
  1082.     dc.w end_patt
  1083.  
  1084.