/*
   [AC] GRADIUS - Free Flyer - [Stage4] (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,113;
$EW1=@e1,0,0,127,137;


$LOOP= 80;


/* AY3-8910 ch.1 (iv11) */
$MA=
   $IPSG $EP1 $V11 o3
/:$LOOP
   $Q r2. grgr r2 rrgr ggrg >
   /:8 cr>cr< :/  <  /:8 a+r>a+r< :/ 
   /:4 ar>ar< :/  dr>dr<dr>dr< er>er<er>er<
   /:4 fr>fr< :/  /:4 gr>gr< :/
   /:4 cr>cr< :/  d+r>d+r<d+r>d+d+<  fr>fr<fr>ff ccrcrc  $R c4.r4 <
:/;


/* AY3-8910 ch.2 (iv11) */
$MB=
   $IPSG $EP1 $V11 o5
/:$LOOP
   $R arr $Q ar a fr brbr r4> $R cr8 cr8 $Q drdr r4.
   $R $V12 g4& $V11 g8rr $Q fec< $R gr4 $Q fec< $R gr4 > err grr  $Q >cr
   $R $V12 g4& $V11 g8rr $Q fec< $R gr4 $Q fec< $R gr4 > grr >crr $Q er
   $R $V12 g4& $V11 g8rr $Q fec< $R frr $Q de 
   $O f6 e6 $P f6 $O g6 f6 $P g6
   $Q g+a+>cdd+dc<a+g+a+g+gfgfd+
   $R drr frr a+rr >d+rr $Q g+rrr
   $R $V12 g4& $V11 g8rr  $Q fec< gr g >cr 
   $Q d d+r $R d+r4 $Q d+ fr $R fr4 $Q f gr gr f $R g4.r4 <
:/;


/* AY3-8910 ch.3 (iv11) */
$MC=
   $IPSG $EP1 $V11 o4
/:$LOOP
   $Q r2. grgr r2 rrgr ggrg >
   /:8 cr>cr< :/  <  /:8 a+r>a+r< :/ 
   /:4 ar>ar< :/  dr>dr<dr>dr< er>er<er>er<
   /:4 fr>fr< :/  /:4 gr>gr< :/
   /:4 cr>cr< :/  d+r>d+r<d+r>d+d+<  fr>fr<fr>ff ccrcrc  $R c4.r4 <
:/;


/* 0005289 ch.1 (iv12) */
$MD=
   $IWSG @10-3 $EW1 $U12 o5 @d6
/:$LOOP
   $R frr $Q fr f fr grgr r4 $R g+r8 g+r8 $Q a+ra+r r4. >
   $R $U13 e4& $U12 e8rr $Q >fec< $R gr4 $Q fec< $R gr4 drr err $Q gr>
   $R $U13 e4& $U12 e8rr $Q >fec< $R gr4 $Q fec< $R gr4 crr err $Q gr>
   $R $U13 c4& $U12 c8rr $Q  fec< $R frr $Q de 
   $R $U10 c4.r8 $U12 c4.r8 $U11 c4& $U12 c4& $U13 c4 r4 $U12
   $R crr crr frr a+rr> $Q d+r r8
   $R $U13 e4& $U12 e8rr $Q >fec< gr g >cr<<
   $Q f gr $R gr4 $Q g ar $R ar4 > $Q d er er d  $R e4.r4 <
:/;


/* 0005289 ch.2 (iv12) */
$ME=
   $IWSG @10-13 $EW1 $U12 o6 @d12
/:$LOOP
   $R crr $Q cr c cr drdr r4 $R d+r8 d+r8 $Q frfr r4.
   $R $U13 g4& $U12 g8rr $Q fec< $R gr4 $Q fec< $R gr4 >err grr  $Q >cr
   $R $U13 g4& $U12 g8rr $Q fec< $R gr4 $Q fec< $R gr4 >grr >crr $Q er
   $R $U13 g4& $U12 g8rr $Q fec< $R frr $Q de 
   $O f6 e6 $P f6 $O g6 f6 $P g6
   $Q g+a+>cdd+dc<a+g+a+g+gfgfd+
   $R drr frr a+rr >d+rr $Q g+r r8
   $R $U13 g4& $U12 g8rr $Q fec< gr g>cr
   $Q d d+r $R d+r4 $Q d+ fr $R fr4 $Q f gr gr f  $R g4.r4
:/;


/* 再生 */
t136.08
$MA;
$MB;
$MC;
$MD;
$ME;


/* EOF */