#TITLE 信長の野望・覇王伝(OPN) / 伊達政宗のテーマ
#ARTIST Yoko Kanno
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT JASRAC work code：023-3701-1 / MML coded: 2014/09/13 rev.0 / B minor


/* Ini ====================================================================== */

/* All part 1 */  $ALL1  = t72.21 ; /* (96time/79.769sec)x60sec %1=8.655ms */
/* All part 2 */  $ALL2  = x2     ; /* 96dB dynamic range */
/*  Tone part */  $ALLT  = ns0    ;
/*     Repeat */  $LOOP  = 28     ;

/* Volume @V0～127 */
/* YM2203 FM_0  */  $FM0  = @V116 ; /*      120→116 / Peak -6.3dB (MV=127) */
/* YM2203 FM_1  */  $FM1  = @V116 ;
/* YM2203 FM_2  */  $FM2  = @V116 ;
/* YM2203 SSG_0 */  $SSG0 = @V104 ; /* 111→108→104 */


/* Data ===================================================================== */

/* FM */

#OPN@1 {
     0,  7,
    26,  8,  5,  7,  2, 30,  3,  3,  3,  0,
    29,  5,  4,  4,  1, 30,  3,  4,  3,  0,
    28,  4,  2,  6,  3, 30,  3,  1,  3,  0,
    31, 10,  3,  5,  1,  0,  3,  1,  3,  0,   15 }

#OPN@2 {
     5,  0,
    31, 18, 18, 10, 15, 23,  3,  5,  0,  0,
    26, 12,  8,  6, 15,  8,  2,  3,  0,  0,
    24, 12,  8,  6, 15, 14,  3,  6,  0,  0,
    31, 12,  8,  6, 15,  0,  0,  3,  0,  0,  15 }

/* all +7 */
$V18 = @X110 ; /* -24 */
$V07 = @X127 ; /* -7  */

/* SSG */

#WAV13 0,80 F2 F7 F9 FA FA F9 F8 F7 F6 F5 F4 F3 F2 F1 F0 EF EE EC EB EA E9 E8 E7 E6 E5 E4 E4 E3 E1 E0 E0 DF DE DD DD DC DB DB DA D9 D8 D8 D7 D6 D6 D5 D5 D4 D3 D3 D2 D1 D1 D0 D0 CF CF CE CE CD CD CC CB CB CA CA C9 C9 C9 C8 C8 C7 C7 C6 C6 C5 C5 C4 C4 C4 C3 C3 C2 C2 C1 C1 C1 C0 C0 C0 BF BF BE BE BE BD BD BC BC A3 0D 09 06 05 05 05 06 07 08 0A 0B 0C 0D 0E 0F 10 11 12 14 15 16 17 18 19 1A 1A 1B 1C 1D 1E 1F 20 21 21 22 23 23 24 25 25 26 27 28 29 29 2A 2A 2B 2B 2C 2D 2D 2E 2F 2F 30 30 31 31 32 32 33 33 34 35 35 35 36 36 37 37 38 38 38 39 3A 3A 3A 3B 3B 3C 3C 3C 3D 3D 3E 3E 3F 3F 3F 40 40 40 41 41 42 42 43 43 43

/* all +16 */
$W0B = @X127 ; /* 127-(15-11)x4=111 */


/* FM_0 ===================================================================== */

$ALL1 $ALL2 $ALLT $FM0 q16 @Q0 @14-1 o3
r%24 /:$LOOP
$V18 /:5 b%85r%11 b%184r%8 b%85r%11 :/ a%85r%11 < e%85r%11 d%184r%8
>g%85r%11 g%85r%11 f+%184r%8 e%85r%11 e%285r%3
/:2 a%85r%11 a%184r%8 a%85r%11 / g%85r%11 g%184r%8 e%85r%11 :/
g%85r%11 g%85r%11 f+%160 r%8 @X0 r%24
:/ ;


/* FM_1 ===================================================================== */

$ALL1 $ALL2 $ALLT $FM1 q16 @Q0 @14-1 o4
r%24 /:$LOOP
$V18 /:2 f+%85r%11 f+%184r%8 f+%85r%11 / e%85r%11 e%184r%8 a%85r%11 
f+%85r%11 f+%184r%8 f+%85r%11 g%85r%11 g%184r%8 a%85r%11 :/
e%85r%11 <c%84r%12 >a%85r%11 <d%84r%12 >f+%85r%11 d%85r%11 e%85r%11 a%85r%11
g+%183r%9 g+%69r%3 f+%21r%3 e%85r%11
/:2 e%85r%11 e%184r%8 e%85r%11 / d%85r%11 d%184r%8 g%69r%3 f+%21r%3 :/
d%85r%11 d%85r%11 c+%85r%11 f+%68r%4 @X0 r%24
:/ ;


/* FM_2 ===================================================================== */

$F2A = crcccrrrrrrrcrcc ;
$F2B = crrccrrrrrrrcrcc ;
$F2C = crcccrrrrrrrcr q16 c16 @X0 r16 @X127 q8 ;

$ALL1 $ALL2 $ALLT $FM2 @Q0 @14-2 $V07 @X127 o2 l16 q8
r%24 /:$LOOP
$F2A $F2B /:9 $F2A :/ $F2C 
:/ ;


/* SSG_0 ==================================================================== */

$ALL1 $ALL2 $ALLT $SSG0 q16 @Q0 @13-0 @E1,0,0,127,0 $W0B @L7,20,-0,72,0,0

o4 b%19r%5
/:$LOOP <f+%264e%24f+%72g%16r%8 a%262r%2b%24a%72g%24
f+%264e%24d%72e%12f+%12 >b%94r%2b%240r%24b%19r%5
<f+%264e%20r%4f+%72g%24 a%264b%24a%72g%22r%2
f+%262r%2e%24d%72e%12f+%12 >b%84r%12b%264a%12b%8r%4
<c+%264>b%22r%2<c+%72e%20r%4 >b%356r%4a%12b%12
<c+%262r%2d%24e%72f+%24 >b%192<c+%160r%8>b%20r%4
:/ ;