/*
   [AC] GRADIUS - 未使用曲 - (C)KONAMI 1985
   FlMML coded by LinearDrive
   date: 2011-11-22
   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= q1;
$R= q16;

/* エンベロープ定義 */
$EP1=@e1,0,0,127,97;
$EP2=@e1,0,0,127,39;
$EW1=@e1,0,0,127,105;


$LOOP= 80;


/* AY3-8910 ch.1 (iv10) */
$MA=
   $IPSG $EP1 $V10 o6
/:$LOOP
   $R g2r4  $Q  g  $R  f+rr  $Q  er er f+r
   rr gr g gr  $R  f+rr  $Q  er dc<b>c
   r<b  $R  arr  $Q  gr a b>ef+gr <g a
   $R g2 r
   $Q d<gg>cr
   $R grr $Q g  r2>
   $R crr $Q <b r2>
   $R frr $Q ec<ba>
   $Q ar br >dc<b  $R a2rr $Q dad
   $Q gr ar >c<a+a $R g2rr $Q cg<a>
   $R f+rr grr g+rr arr $Q g+r ar
:/;


/* AY3-8910 ch.2 (iv12) */
$MB=
   $IPSG $EP2 $V12 o4
/:$LOOP
   $Q
   g>gdg< g>gdg< g>gcg< c>c<d>d<
   g>gdg< g>gdg< g>gcg< g>gdg<
   f>fcf< f>fcf< e>e<b>e< d>d<a>d<
   g> $R brr $Q b<gg>c
   r> $R crr $Q c<ccd<
   g>>$R drr $Q d<<g>g<b>
   c  $R grr $Q gc<ba
   d>d<d>d<d>d<d>d<d>d<d>d<d>d<c+>c+<
   c>c<c>c<c>c<c>c<c>c<c>c<c>c<c+>c+<
   da>d< da+>d< db>d< d>cd< d>d<d>d<
:/;


/* AY3-8910 ch.3 (iv12) */
$MC=
   $IPSG $EP2 $V12 o3
/:$LOOP
   $Q
   g>gdg< g>gdg< g>gcg< c>c<d>d<
   g>gdg< g>gdg< g>gcg< g>gdg<
   f>fcf< f>fcf< e>e<b>e< d>d<a>d<
   g> $R brr $Q b<gg>c
   r> $R crr $Q c<ccd<
   g>>$R drr $Q d<<g>g<b>
   c  $R grr $Q gc<ba
   d>d<d>d<d>d<d>d<d>d<d>d<d>d<c+>c+<
   c>c<c>c<c>c<c>c<c>c<c>c<c>c<c+>c+<
   da>d< da+>d< db>d< d>cd< d>d<d>d<
:/;


/* 0005289 ch.1 (iv14) */
$MD=
   $IWSG @10-1 $EW1 $U14 o5 @d6
/:$LOOP
   $Q
   bd>c<dbdab   >c<e>d<e>c<g>d<a
   bd>c<dbd>c<b >c<e>dc<bdgd
   acgcfced     g<b>e<b>acdc
   r  $R drr $Q d<gg>c
   r  $R frr $Q eccd<
   g> $R grr $Q g<g>g<b>
   c> $R crr $Q c<c<ba>>
   drdr<b>cc+dr gf+d<  $R  a4r4  $Q >
   crcr<aa+b>cr fec<grgr
   a>d<a a+>d<a+ b>d<b> cdc< b>e cf+ <
:/;


/* 0005289 ch.2 (iv13) */
$ME=
   $IWSG @10-12 $EW1 $U13 o6 @d12
/:$LOOP
   $R g2r4  $Q  g  $R  f+rr  $Q  er er f+r
   rr gr g gr  $R  f+rr  $Q  er dc<b>c
   r<b  $R  arr  $Q  gr a b>ef+gr <g a
   $R g2 r
     rrrrr
   $R grr $Q g  r2>
   $R crr $Q <b r2>
   $R frr $Q ec<ba>
   $Q ar br >dc<b  $R a2rr $Q dad
   $Q gr ar >c<a+a $R g2rr $Q cg<a>
   $R f+rr grr g+rr arr $Q g+r ar
:/;


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


/* EOF */