/*
   [AC] GRADIUS - Final Attack - [Stage7] (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;

/* 音長制御用 */
$O= q4;
$P= q6;
$Q= q2;
$R= q16;

/* エンベロープ定義 */
$EP1=@e1,0,0,127,79;
$EP2=@e1,0,0,127,33;
$EW1=@e1,0,0,127,95;


$LOOP= 80;


/* AY3-8910 ch.1 (iv10) */
$MA=
   $IPSG $EP1 $V10 o6
/:$LOOP
   $R $V12 c4rr $V10 <g8r4> $Q crrr<  $R  a+8r4 g8r4 $Q frrr>
   $R $V11 c4rr $V10 <g8r4  $Q eg>ce  $R $V12 f4&f4r8 $V10  $Q errr dr 
   $R $V12 c4rr $V10 <g8r4> $Q crrr<  $R  a+8r4 g8r4 $Q fr
   $R  g8&g2&grrr  r $Q d+f  $R  g&g2  rr $Q de fgab>

   $R $V12 c4rr  $V10 <g8r4> $Q crrr<   $R a+8r4  g8r4  $Q frrr>
   $R      c4rr       <g8r4  $Q ceg>c   $R $V12 d2r4     r $V10 $Q <a+>cd
   $R $V12 d+4rr $V10 <a+8r4 $Q a+>cdd+    $V12 f8&fr8. $R $V10 c+8r4  $Q c+d+fr
   $R $V12 g2r4  $V10 $Q cdef  $R $V12 g2r4 $V10 $Q cdef
   $P a+6 $V11 a6 $V12 g+6 $V10 g6 $V11 f+6 $V12 f6 $V10  $Q ed+rd  $R c+4.rr
:/;


/* AY3-8910 ch.2 (iv12) */
$MB=
   $IPSG $EP2 $V12 o4
/:$LOOP
   $Q
   cr<brargr> cr<brargr a+rargrfr a+rargrfr>
   cr<brargr> cr<brargr frerdrcr frerdrcr>
   cr<brargr> cr<brargr a+rargrfr a+rargrfr
   d+rdrcr<br> d+rdrcr<br> drcr<brar> grfrerdr>
   cr<brargr> cr<brargr a+rargrfr a+rargrfr>
   cr<brargr> cr<brargr a+rargrfr a+rg+rgrfr>
   d+rdrcr<a+r> d+rdrcr<a+r> c+rcr<a+rg+r> c+rcr<a+rg+r
   grdrgr>dr<gr>drgrdr <grdrgr>dr<gr>drgrdr<
   grrr grrr grrr grrr g gr g  $R  g4.rr >
:/;


/* AY3-8910 ch.3 (iv12) */
$MC=
   $IPSG $EP2 $V12 o5
/:$LOOP
   $Q
   cr<brargr> cr<brargr a+rargrfr a+rargrfr>
   cr<brargr> cr<brargr frerdrcr frerdrcr>
   cr<brargr> cr<brargr a+rargrfr a+rargrfr
   d+rdrcr<br> d+rdrcr<br> drcr<brar> grfrerdr>
   cr<brargr> cr<brargr a+rargrfr a+rargrfr>
   cr<brargr> cr<brargr a+rargrfr a+rg+rgrfr>
   d+rdrcr<a+r> d+rdrcr<a+r> c+rcr<a+rg+r> c+rcr<a+rg+r
   grdrgr>dr<gr>drgrdr <grdrgr>dr<gr>drgrdr<
   grrr grrr grrr grrr g gr g  $R  g4.rr >
:/;


/* 0005289 ch.1 (iv14) */
$MD=
   $IWSG @10-1 $EW1 $U14 o5 @d6
/:$LOOP
   $R d8r4 e2rr c8r4 d2rr
   $R d8r4 e2rr  $O  grrr  $Q >cr<  $R a8 r4  $Q frrr
   $R d8r4 e2rr c8r4 d2rr
   $Q <a+rrr>d+r<a+rrr>d+r<a+rrr ar>dr<ar brrr b>c defg
   $Q drrr gr  $R  e2rr  $Q  crrr  fr     $R  d2 rr
   $Q drrr gr  $R  e2rr  $Q  frrr  a+rfr rra+r g+rrr
   $Q frrr a+r $R  g2rr  $Q  g+rrr >c+r<  $R  g+8 r4  $Q  >c+rrr
   $R c8r4<b8r4 $Q ab>cd
   $R c8r4<b8r4 $Q ab>cd
   $P c6 <b6 a+6 a6 g+6 g6  $Q  f+fre  $R  d+4.rr
:/;


/* 0005289 ch.2 (iv11) */
$ME=
   $IWSG @10-13 $EW1 $U11 o6 @d12
/:$LOOP
   $R $U13 c4rr $U11 <g8r4> $Q crrr<  $R a+8r4 g8r4  $Q frrr>
   $R $U12 c4rr $U11 <g8r4  $Q eg>ce  $R $U13 f4&f4r8 $U11  $Q errr dr 
   $R $U13 c4rr $U11 <g8r4> $Q crrr<  $R a+8r4 g8r4  $Q fr
   $R  g8&g2&grrr   r $Q d+f   $R  g&g2   rr $Q de fgab>

   $R $U13 c4rr  $U11 <g8r4> $Q crrr<   $R    a+8r4  g8r4       $Q frrr>
   $R      c4rr       <g8r4  $Q ceg>c   $R $U13 d2r4     r $U11 $Q <a+>cd
   $R $U13 d+4rr $U11 <a+8r4 $Q a+>cdd+    $U13 f8&fr8. $R $U11 c+8r4 $Q c+d+fr
   $R $U13 g2r4  $U11  $Q cdef  $R $U13 g2r4 $U11  $Q cdef
   $P a+6 $U12 a6 $U13 g+6 $U11 g6 $U12 f+6 $U13 f6 $U11 $Q ed+rd  $R c+4.rr
:/;


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


/* EOF */