/*
   [AC] GRADIUS - Beginning of the History - [空中戦BGM] (C)KONAMI 1985
   FlMML coded by LinearDrive
   date: 2011-11-20
   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 l16 q16 @q0;
$IPSG= x1 @3@w50 $INIT;
$IWSG= x1 @10-0  $INIT;

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

/* エンベロープ定義 */
$EP1=@e1,0,0,127,64;
$EP2=@e1,0,0,127,40;
$EW1=@e1,0,0,127,80;
$EW2=@e1,0,0,127,60;


$LOOP= 56;


/* AY3-8910 ch.1 (iv11) */
$MA=
   $IPSG $V11 o5
   $EP1
   $R b4.&$V12 b4.rr $Q br $V11
   $R a4.&$V12 a4.rr $Q ar $V11
   $R g4.&$V12 g4.rr $Q gr $V11
   $R a4.&$V10 a4.rr $Q ar $V11 <
   $EP2 $Q
   /:8 bb>ee< :/ aa>dd<aa>dd<aa>dd<eeaa   eeaaeeaaeeaaeeaa
   /:8 bb>ee< :/ aa>dd<aa>dd<aa>dd<gg>cc< gg>cc<ffa+a+ffa+a+d+d+g+g+
/:$LOOP
   /:8 bb>ee< :/ aa>dd<aa>dd<aa>dd<eeaa   eeaaeeaaeeaaeeaa
   /:8 bb>ee< :/ aa>dd<aa>dd<aa>dd<gg>cc< gg>cc<ffa+a+ffa+a+d+d+g+g+
:/;


/* AY3-8910 ch.2 (iv11) */
$MB=
   $IPSG $V11 o7
   $EP1 $Q
   /:3 e<b>ef+rbrf+rer<b>e<b>ef+ :/
   e<b>e $V10 f+rbrf+r $V9 er<b>e< $V8 b>ef+ $V11 <
   g+f+g+a+rbra+rg+rf+g+f+g+e g+f+g+a+rbra+rg+rf+g+f+g+e 
   f+ef+g+rarg+rf+rg+f+ e  $R  $V9 e8& $V10 e8& $V11 e4r8  $Q  c+d+ef+red+c+
   g+f+g+a+rbra+rg+rf+g+f+g+e g+f+g+a+rbra+rg+rf+g+f+g+e 
   f+ef+g+rar $R g+.r. $Q f+rg+ $R e4r $Q f+e $R d4&dr $Q edccd+g g+ 
/:$LOOP
   r f+g+a+rbra+rg+rf+g+f+g+e g+f+g+a+rbra+rg+rf+g+f+g+e 
   f+ef+g+rarg+rf+rg+f+ e  $R  $V9 e8& $V10 e8& $V11 e4r8  $Q  c+d+ef+red+c+
   g+f+g+a+rbra+rg+rf+g+f+g+e g+f+g+a+rbra+rg+rf+g+f+g+e 
   f+ef+g+rar $R g+.r. $Q f+rg+ $R e4r $Q f+e $R d4/*&d*/r $Q edccd+g g+
:/;


/* AY3-8910 ch.3 (iv9) */
$MC=
   $IPSG $V9 o5
   $EP1
   $R e4.&$V10 e4.rr $Q er $V9
   $R d4.&$V10 d4.rr $Q dr $V9
   $R c4.&$V10 c4.rr $Q cr $V9
   $R d4.&$V8  d4.rr $Q dr $V9
   $R
   /:8 e8rr :/ /:3 d8rr :/ < /:5 a8rr :/ >
   /:8 e8rr :/ /:3 d8rr :/ c8rr c8rr < a+8rr a+8rr g+8rr >
/:$LOOP
   /:8 e8rr :/ /:3 d8rr :/ < /:5 a8rr :/ >
   /:8 e8rr :/ /:3 d8rr :/ c8rr c8rr < a+8rr a+8rr g+8rr >
:/;


/* 0005289 ch.1 (iv12) */
$MD=
   $IWSG @10-11 $U12 o5 @d12
   $EW1
   $R b4.& b4.rr $Q br
   $R a4.& a4.rr $Q ar
   $R g4.& g4.rr $Q gr
   $R a4.& a4.rr $Q ar
   $EW2 $Q
   /:8 bb>ee< :/ aa>dd<aa>dd<aa>dd<eeaa   eeaaeeaaeeaaeeaa
   /:8 bb>ee< :/ aa>dd<aa>dd<aa>dd<gg>cc< gg>cc<ffa+a+ffa+a+d+d+g+g+
/:$LOOP
   /:8 bb>ee< :/ aa>dd<aa>dd<aa>dd<eeaa   eeaaeeaaeeaaeeaa
   /:8 bb>ee< :/ aa>dd<aa>dd<aa>dd<gg>cc< gg>cc<ffa+a+ffa+a+d+d+g+g+
:/;


/* 0005289 ch.2 (iv12) */
$ME=
   $IWSG @10-14 $U12 o6 @d6
   $EW1 $Q
   /:3 e<b>ef+rbrf+rer<b>e<b>ef+ :/
   e<b>e $U11 f+rbrf+r $U10 er<b>e< $U9 b>ef+ $U12 <
   g+f+g+a+rbra+rg+rf+g+f+g+e g+f+g+a+rbra+rg+rf+g+f+g+e 
   f+ef+g+rarg+rf+rg+f+ e $R $U10 e8& $U11 e8& $U12 e4r8 $Q c+d+ef+red+c+
   g+f+g+a+rbra+rg+rf+g+f+g+e g+f+g+a+rbra+rg+rf+g+f+g+e 
   f+ef+g+rar $R g+.r. $Q f+rg+ $R e4r $Q f+e $R d4&dr $Q edccd+g g+
/:$LOOP
   r f+g+a+rbra+rg+rf+g+f+g+e g+f+g+a+rbra+rg+rf+g+f+g+e 
   f+ef+g+rarg+rf+rg+f+ e $R $U10 e8& $U11 e8& $U12 e4r8 $Q c+d+ef+red+c+
   g+f+g+a+rbra+rg+rf+g+f+g+e g+f+g+a+rbra+rg+rf+g+f+g+e 
   f+ef+g+rar $R g+.r. $Q f+rg+ $R e4r $Q f+e $R d4/*&d*/r $Q edccd+g g+
:/;


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


/* EOF */