/*
   [AC] GRADIUS - Beat Back - [Stage2] (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 l16 q16 @q0;
$IPSG= x1 @3@w50 $INIT;
$IWSG= x1 @10-0  $INIT;

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

/* エンベロープ定義 */
$EP1=@e1,0,0,127,106;
$EP2=@e1,0,0,127,47;
$EP3=@e1,0,0,127,63;
$EW1=@e1,0,0,127,141;
$EW2=@e1,0,0,127,128;


$LOOP= 80;


/* AY3-8910 ch.1 (iv12) */
$MA=
   $IPSG $EP1 o6
/:$LOOP
   r2. $V12 $Q crcr  r2.c<b>cr  r<cr $R c r2 $Q >c<b>cr $V11
   $R err d+rr drr d+rr $Q er fr 
   r4 f+rrr r4 $V12 f+ff+r r $R $V11 f+rr $Q f+rrr rf+rf+ arar
   r $R f+rr $Q f+rrr rf+rf+ ar a
   $R a+&a+4&$V12a+4 r4$V11 $Q a+a+r 
   $R a& a4& $V12a4  r4$V11 $Q a ar
   $R g+&g+4&$V12g+4 r4$V11 $Q f fr
   $R c&c4.rr       r $Q <crc d+rd+r>
   $R c4.rr         r $Q $V12 <crc f+rf+r
   r $V11 f+ f+r f+r f $R f+ rrrr $Q f+ f d+ $R c&c2 r4 $Q d+rd+r >
:/;


/* AY3-8910 ch.2 (iv11) */
$MB=
   $IPSG $EP2 $V11 o4
/:$LOOP
   $Q
   drdr>dr<ddrdrd>drdr<  drdr>dr<ddrdrd>drdr<
   drdr>dr<ddrdrd>drdr   drd c+rc+ crc c+c+r dd d+r<
   erer>er<eerere>ed+er< erer>er<eereregrgr 
   erer>er<eerere grgg+
   $Q g+>d+f+a+>cd+f+d+c<a+f+d+<
   $P g+24> d+24 f+24 a+24 >c24 d+24 <<
   $Q g>dfab>dfd<bgfd< 
   $P g24> d24 f24 a24 b24 >d24 <<
   $Q f+>c+e g+a+>c+ ec+<a+ fec+ <d+a+>c+<  $R  d
   rr  $Q  dr >dr<dd rdrd frfr
   drdr >dr<dd rdrd g+rg+r
   rg+g+r g+rg  $EP3 $R  g+ rrrr  $EP2 $Q  g+gf  $R  d
   rr  $Q  a>c rdrc rdrc frfr <
:/;


/* AY3-8910 ch.3 (iv11) */
$MC=
   $IPSG $EP2 $V11 o3
/:$LOOP
   $Q
   drdr>dr<ddrdrd>drdr<  drdr>dr<ddrdrd>drdr<
   drdr>dr<ddrdrd>drdr   drd c+rc+ crc c+c+r dd d+r<
   erer>er<eerere>ed+er< erer>er<eereregrgr 
   erer>er<eerere grgg+
   $Q g+>d+f+a+>cd+f+d+c<a+f+d+<
   $P g+24> d+24 f+24 a+24 >c24 d+24 <<
   $Q g>dfab>dfd<bgfd< 
   $P g24> d24 f24 a24 b24 >d24 <<
   $Q f+>c+e g+a+>c+ ec+<a+ fec+ <d+a+>c+<  $R  d
   rr  $Q  dr >dr<dd rdrd frfr
   drdr >dr<dd rdrd g+rg+r
   rg+g+r g+rg  $EP3 $R  g+ rrrr  $EP2 $Q  g+gf  $R  d
   rr  $Q  a>c rdrc rdrc frfr <
:/;


/* 0005289 ch.1 (iv14) */
$MD=
   $IWSG @10-3 $EW1 o6 @d6
/:$LOOP
   r2. $U14 $Q crcr  r2.c<b>cr  r<cr $R c r2 $Q >c<b>cr $U13
   $R err d+rr drr d+rr $Q er fr 
   r4 f+rrr r4 $U14 f+ff+r r $R $U13 f+rr $Q f+rrr rf+rf+ arar
   r $R f+rr $Q f+rrr rf+rf+ ar a
   $R a+&a+4&$U14 a+4 r4$U13 $Q a+a+r 
   $R a& a4& $U14 a4  r4$U13 $Q a ar
   $R g+&g+4&$U14 g+4 r4$U13 $Q f fr
   $R c&c4.rr         r  $Q <crc d+rd+r>
   $R c4.rr           r  $Q $U14 <crc f+rf+r
   r $U13 f+ f+r f+r f $R f+ rrrr $Q f+ f d+ $R c&c2 r4 $Q d+rd+r >
:/;


/* 0005289 ch.2 (iv12) */
$ME=
   $IWSG @10-14 $EW2 o6 @d6
/:$LOOP
   r2. $U12 $Q arar r2.agar r<<fr $R f r2 $Q >ag+ar
   $R >crr< brr a+rr brr $Q >cr c+r 
   r4 drrr r4 $U13 dc+dr r $R $U12 drr $Q drrr rdrd frfr
   r $R drr $Q drrr rdrd fr f
   $R f+&f+4&     f+4 r4     $Q f+f+r 
   $R f& f4& $U13 f4  r4$U12 $Q f fr
   $R e& e4& $U13 e4  r4$U12 $Q c+c+r <
   $R a&a4.rr         r  $Q <ara> crcr
   $R a4.rr           r  $Q <ara> d+rd+r
   r d+ d+r d+r d $R d+rrrr $Q d+ d c< $R a&a2 r4 $Q >crcr >
:/;


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


/* EOF */