/*
   [AC] GRADIUS - Mechanical Globule - [Stage6] (C)KONAMI 1985
   FlMML coded by LinearDrive
   date: 2011-11-21
   notes: 音量スケール・エンベロープ・その他修正
   JASRAC: 033-1694-7
*/

#OCTAVE REVERSE
#VELOCITY REVERSE

/* 0005289 波形データ */
/*        |---.---l---.---|---.---l---.--- */
#WAV10 00,707ACDEDCA742101247BDEDB7310137E
#WAV10 01,317EC9CEA7CFD8AB728D945720385136
#WAV10 02,47ACCA778BDEDA655799841013677422
#WAV10 03,4579ABCDDEEEDDCBA975432110001123
#WAV10 04,0088888FF880008888FFF8008888FF88
#WAV10 05,0088808FFF8880888000080088880008
#WAV10 06,FF00112233445566778899AABBCCDDEE
#WAV10 07,00EEEEEEEE00000000EEE000EEEEE000
#WAV10 08,707ACDEDCA742101247BDEDB7310137E
#WAV10 09,317EC9CEA7CFD8AB728D945720385136
#WAV10 10,47ACCA778BDEDA655799841013677422
#WAV10 11,ED21112233445566778899AABBCCDDEE
#WAV10 12,00FFFF00000000000000000000000000
#WAV10 13,00FFFFFFFF0000000000000000000000
#WAV10 14,7578AB7DD7E7DD7BA975737170707173
#WAV10 15,00FFE01100CCB01100AA901100887011


/* 音量スケール定義 */
$V13=@x127;
$V12=@x119;
$V11=@x111;
$V10=@x103;
$V9=@x95;
$V8=@x87;
$V7=@x79;
$V6=@x71;
$V5=@x63;
$V4=@x55;
$V3=@x47;
$V2=@x39;
$V1=@x31;
$V0=@x0;

$U15=@x123;
$U14=@x119;
$U13=@x115;
$U12=@x111;
$U11=@x107;
$U10=@x103;
$U9=@x99;
$U8=@x95;
$U7=@x91;
$U6=@x87;
$U5=@x83;
$U4=@x79;
$U3=@x75;
$U2=@x71;
$U1=@x67;
$U0=@x0;


/* シーケンサ初期化用 */
$INIT= r8 o4 ns0 @d0 @v127 @x127 l8 q16 @q0;
$IPSG= x1 @3@w50 $INIT;
$IWSG= x1 @10-0  $INIT;

/* 音長制御用 */
$Q= q2;
$R= q16;

/* エンベロープ定義 */
$EP1=@e1,0,0,127,85;
$EW1=@e1,0,0,127,90;
$EW2=@e1,0,0,127,148;


$LOOP= 56;


/* AY3-8910 ch.1 (iv10) */
$MA=
   $IPSG $EP1 $V10 o5
/:$LOOP
   $Q eaear $R e  rr $Q ef+rg  $R g2.   rr $Q ef+gf+
      eaear $R e  rr $Q abr    $R >c2.  rr $Q <b>c<bag
      a>d<a>dr< $R a  rr $Q >dc<ba  >cfcfr $R c  rr $Q fedc
   $R e2&er  r $Q dgcf<b  $R >e2&er  rrrrrr
   $Q ccr $R crr  r $Q d+rd+rd  <crdrd+r  drcrdr
      rbrbr>d  c+rdc+<ba  <br>c+rdr  c+rdrc+r>
      rcr $R crr $Q ggggf+g  <crdrd+r  drd+r>fr
   $R a2r $Q a   $R f+2r $Q f+  $R d+&d+rr $Q dc+  cr<bra+r
   $R a2.&a2rr
:/;


/* AY3-8910 ch.2 (iv10) */
$MB=
   $IPSG $EP1 $V10 o4 $Q
/:$LOOP
   /:6 a>e< :/ > /:4 cg :/ c<b>f+<b
   /:6 a>e< :/ > /:6 cg :/
   /:6 da :/     /:6 f>c< :/ 
   /:9 eb :/ <b>e<b>d<b>e<
   f>c<f>d+<f>f<f>c<f>d+<f>f<
   f>c<g>d<g+>d+<g>d<g+>d+<g>d<
   ebe>d<e>e<ebe>d<e>e<
   ebf+>c+<g>d<f+>c+<g>d<f+>c+<
   f>c<f>d+<f>f<f>c<f>d+<f>f<
   f>c<g>d<g+>d+<g>d<g+>d+<a+>f<
   a>e<a>g<a>a<f+>c+<f+>e<f+>f+<
   d+a+d+>c+<d+>d+<cgca+c>c<
   a>e<a>g<a>a<a>e<a>g<a>a<
:/;


/* AY3-8910 ch.3 (iv10) */
$MC=
   $IPSG $EP1 $V10 o3 $Q
/:$LOOP
   /:6 a>e< :/ > /:4 cg :/ c<b>f+<b
   /:6 a>e< :/ > /:6 cg :/
   /:6 da :/     /:6 f>c< :/ 
   /:9 eb :/ <b>e<b>d<b>e<
   f>c<f>d+<f>f<f>c<f>d+<f>f<
   f>c<g>d<g+>d+<g>d<g+>d+<g>d<
   ebe>d<e>e<ebe>d<e>e<
   ebf+>c+<g>d<f+>c+<g>d<f+>c+<
   f>c<f>d+<f>f<f>c<f>d+<f>f<
   f>c<g>d<g+>d+<g>d<g+>d+<a+>f<
   a>e<a>g<a>a<f+>c+<f+>e<f+>f+<
   d+a+d+>c+<d+>d+<cgca+c>c<
   a>e<a>g<a>a<a>e<a>g<a>a<
:/;


/* 0005289 ch.1 (iv12) */
$MD=
   $IWSG @10-5 $EW1 $U12 o5 @d6
/:$LOOP
   $R c2rr <arrbrr   $Q >cecer $R c&crr $Q ded
   $R c2rr <arr>crr  $Q egegre  rgagf+e
   $R f+rr $Q dad  $R arrdrr  arr $Q f>c<f>  $R crr<frr
   $Q ababab $R a2&ar r $Q babab  <b>e<b>d<b>e
   $Q g+g+r  $R g+rr  r $Q >crcr<a+  <g+ra+r>cr  <a+rg+ra+r>
      rgrgrb  arbagf+  <grarbr  arbrar>
      rg+r $R g+rr>  $Q d+d+d+d+dd+  <<g+ra+r>cr<  a+r>crdr>
   $R e2r $Q e  $R c+2r $Q c+  $R <a+&a+rr $Q ag+  grf+rfr
   $R e2.&e2rr
:/;


/* 0005289 ch.2 (iv12) */
$ME=
   $IWSG @10-13 $EW1 $U12 o5 @d12
/:$LOOP
   $Q eaear $R $EW2 e  rr $Q ef+r  g  $R $EW1 g2. rr $Q ef+gf+
   $Q eaear $R e       rr $Q abr      $R     >c2. rr $Q <b>c<bag
      a>d<a>dr< $R a  rr $Q >dc<ba  >cfcfr $R c  rr $Q fedc
   $R e2&er  r $Q dgcf<b  $R >e2&er  rrrrrr
   $Q ccr $R crr  r $Q d+rd+rd  <crdrd+r  drcrdr
      rbrbr>d  c+rdc+<ba  <br>c+rdr  c+rdrc+r>
      rcr $R crr $Q ggggf+g  <crdrd+r drd+r>fr
   $R a2r $Q a   $R f+2r $Q f+  $R d+&d+rr $Q dc+  cr<bra+r
   $R a2.&a2rr
:/;


/* 再生 */
t182.00
$MA;
$MB;
$MC;
$MD;
$ME;


/* EOF */