/*
   [AC] GRADIUS - Mazed Music - [Stage5] (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 l12 q16 @q0;
$IPSG= x1 @3@w50 $INIT;
$IWSG= x1 @10-0  $INIT;

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

/* エンベロープ定義 */
$EP1=@e1,0,0,127,79;
$EP2=@e1,0,0,127,35;
$EP3=@e1,0,0,127,83;
$EP4=@e1,0,0,127,41;
$EW1=@e1,0,0,127,95;
$EW2=@e1,0,0,127,87;


$LOOP= 102;


/* AY3-8910 ch.1 (iv11) */
$MA=
   $IPSG $EP1 $V11 o5
/:$LOOP
   $Q
   rrrrrr a+>d+<a+>d+r<a+ rrrrrr a>d<a>dr<a
   rrrrrr a+>d+<a+>d+r<a+ rrr >frd+rc+rcc+c+
   rrrrrr d+a+d+a+d+a+    rrrrrr dadada
   rrr <g+r>c+  rrr <f+r>c 
   r<bbbbra+rbrr> $R c&c&c&c&c&c&c&c&c&c&crr <
:/;


/* AY3-8910 ch.2 (iv8) */
$MB=
   $IPSG $EP1 $V8 o5
/:$LOOP
   $Q d+a+d+a+r $R $V10 d+&d+&d+&d+&d+rr $V8
   $Q dadar     $R $V10 d&d&d&d&drr $V8
   $Q d+a+d+a+r $R $V10 d+&d+&d+&d+&d+rr $V8
   $Q $V10 f+>c+<f+> c+r cr <a+r g+a+g+  $V8
   d+a+d+a+d+   $R $V10 a+&a+&a+&a+&a+rr $V8
   $Q dadad     $R $V10 a&a&a&a&arr $V8
   $V10
   $Q c+g+ $R c+&c+rr
   $Q cg   $R c&crr
   <<
   r $Q g+g+g+g+r gr f+rr $R a&a&a&a&a&a&a&a&arr $Q a+ b
   >>
   $V8
:/;


/* AY3-8910 ch.3 (iv13) */
$MC=
   $IPSG $EP2 $V13 o4
/:$LOOP
   $Q
   cf+a+ cf+a+ cf+a+ cf+a+
   <b>fa <b>fa <b>fa <b>fa
   cf+a+ cf+a+ cf+a+ cf+a+
   d+a+>c+< d+a+>c+< d+a+>c+< d+a+>c+<
   cf+a+ cf+a+ cf+a+ cf+a+
   <b>fa <b>fa <b>fa <b>fa
   <a+>eg+ <a+>eg+ <a>d+g <a>d+g
   rdd ddr c+rd rr   $EP3  $R  d+
   rr  $Q  c d+r> c  $EP4  $R  c&c&c&crr  $EP2 <
:/;


/* 0005289 ch.1 (iv9) */
$MD=
   $IWSG @10-5 $EW1 $U9 o5 @d12
/:$LOOP
   $Q d+a+d+a+r $R $U11 d+&d+&d+&d+&d+rr $U9
   $Q dadar     $R $U11 d&d&d&d&drr $U9
   $Q d+a+d+a+r $R $U11 d+&d+&d+&d+&d+rr $U9
   $Q $U11 f+>c+<f+> c+r cr <a+r g+a+g+  $U9
   d+a+d+a+d+   $R $U11 a+&a+&a+&a+&a+rr $U9
   $Q dadad     $R $U11 a&a&a&a&arr $U9
   $U11
   $Q c+g+ $R c+&c+rr
   $Q cg   $R c&crr
   r $Q f+f+f+f+r fr f+rr $R grr $Q d+ gr $R f+&f+&f+&f+&f+rr
   $U9
:/;


/* 0005289 ch.2 (iv12) */
$ME=
   $IWSG @10-13 $EW2 $U12 o5 @d12
/:$LOOP
   $Q
   rrrrrr a+>d+<a+>d+r<a+ rrrrrr a>d<a>dr<a
   rrrrrr a+>d+<a+>d+r<a+ rrr >frd+rc+rcc+c+
   rrrrrr d+a+d+a+d+a+    rrrrrr dadada
   rrr <g+r>c+  rrr <f+r>c 
   r<bb bbr a+rb rr> $R c&c&c&c&c&c&c&c&c&c&crr <
:/;


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


/* EOF */