#TITLE 信長の野望・覇王伝(OPN) / 初期設定
#ARTIST Yoko Kanno
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT JASRAC work code：023-3683-9 / MML coded: 2014/08/26 rev.1 異音バグ対応など / F minor→B- minor


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

/* All part 1 */  $ALL1  = t131.24 ; /* (90time/41.144sec)x60sec %1=4.762ms */
/* All part 2 */  $ALL2  = x2      ; /* 96dB dynamic range */
/*  Tone part */  $ALLT  = ns0     ;
/*     Repeat */  $LOOP  = 28      ;

/* Volume @V0～127 */
/* YM2203 FM_0  */  $FM0  = @V105 ; /*      104→105 / Peak -6.5dB (MV=127) */
/* YM2203 FM_1  */  $FM1  = @V105 ;
/* YM2203 FM_2  */  $FM2  = @V105 ;
/* YM2203 SSG_0 */  $SSG0 = @V114 ; /* 115→113→114 */


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

#OPN@1 {
     5,  7,
    12, 11,  1,  8,  2, 29,  1,  1,  0,  0,
    15,  5,  0,  9,  2,  0,  0,  1,  0,  0,
    16,  1,  0, 10,  2,  6,  1,  2,  0,  0,
    18,  2,  0,  9,  1,  0,  0,  1,  0,  0,  15 }

#OPN@2 {
     4,  7,
    15,  0,  0,  2,  0, 30,  3,  1,  0,  0,
    13,  2,  0,  7,  3,  0,  0,  2,  0,  0,
    15,  0,  0,  2,  0, 31,  3,  1,  0,  0,
    12,  2,  0,  8,  3,  0,  0,  2,  0,  0,  15 }

/* all +23 */
$V18 = @X127 ; /* -23 */
$V1B = @X124 ; /* -26 */
$V1D = @X122 ; /* -28 */

/* 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 +12 */
$W0C = @X127 ; /* 127-(15-12)x4=115 */


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

$Loff    = @L0,0 ;
$LonF0   = @L19,34,-0,168,0,0 ;
$LrF0{a} = $Loff %a $LonF0 ;

$ALL1 $ALL2 $ALLT $FM0 q16 @14-1 $V1D
/:$LOOP o4 l2
$Loff /:8 r2. :/
$LonF0 @Q2 a-.< @Q0 d-%275 $LrF0{r%13} @Q2 g4c8>b-8<c4>b-4.<c8>a-8b-8< @Q0 c%86 $LrF0{r%10} @Q2 >g8f8g8c8d-e-4
f.g.a-.b-.a-.g.f. @Q0 g%263 $LrF0{r%25}
@Q2 l4 b-<f @Q0 e-%85 $LrF0{r%11} @Q2 e-b-a- b-f8e-8fe-e-8f8d-8e-8 f>b-8a-8b-4 <f.g-8d-8e-8
f2c @Q0 d%276 $LrF0{r%12}
:/ ;


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

$LonF1   = @L13,50,-0,168,0,0 ;
$LrF1{a} = $Loff %a $LonF1 ;

$ALL1 $ALL2 $ALLT $FM1 q16 @14-2 $V1B $LonF1
/:$LOOP o4 l2
@Q2 f.& /:2 e-.d-.c. >b-.<c.d-. / c. >f.b-.<c.>b-. <c.>b-<c4 >f.< :/ @Q0 c%253 $LrF1{r%35}
@Q2 >g-.b.b-.a-. g-.<e-.cf4 > @Q0 b-%243 $LrF1{r%45}
:/ ;


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

$LonF2   = @L13,50,-0,168,0,0 ;
$LrF2{a} = $Loff %a $LonF2 ;

$ALL1 $ALL2 $ALLT $FM2 q16 @14-2 $V18 $LonF2
/:$LOOP o5 l4
@Q2 cf2 @Q0 g @Q2 a-b- <c.>b-8f @Q0 g%164 $LrF2{r%28} @Q2 c
d-<d-.e-8 @Q0 c%178 $LrF2{r%14} @Q2 c @Q0 >b-%132 $LrF2{r%12} @Q2 <c8>a-8b-8 @Q0 <c%244 $LrF2{r%44}
@Q3 cg @Q0 f%84 $LrF2{r%12} @Q2 f<c @Q4 >b- @Q2 <c @Q3 >g8 @Q2 f8g f.g8e-8f8
@Q0 g%86 $LrF2{r%10} @Q2 c8>b-8<c8>g8 f8g8e-8f8g8 @Q0 c%54 $LrF2{r%90}
@Q2 cfga-b- <c.>b-8fg2c d-<d-.e-8 @Q0 c%170 $LrF2{r%22} @Q2 c >b-. <c8>a-8b-8 @Q0 <c%268 $LrF2{r%20}
@Q3 >b-<f @Q0 e-%84 $LrF2{r%12} @Q2 e-b-a- b- @Q4 f8 @Q2 e-8fe-.f8d-8e-8 @Q3 f @Q2 >b-8a-8b-f.g-8d-8e-8
f>b-8<c8>a- @Q0 b-%258 $LrF2{r%30}
:/ ;


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

$ALL1 $ALL2 $ALLT $SSG0 q15 @Q0 @13-0 @E1,0,0,127,0 $W0C
/:$LOOP l12
/:2 o4 rcfga-b-<cd-e- fge-d-e-c>b-a-g rcfga-b-<cd-e- fge-d-e-c>b-a-g
rfb-<cd-e-fe->b- <c>b-a-gfe-d-c>b- ra-<d-e-fb-<c>b-f r>g<cdeg<c>ge /
rcfga-b-<c>gf rfb-<cd-e-fe->b- <cgfgc>b-<c>gf g<c>b-<c>gfgc>b-
r<cg<cgcgc>g rfb-<c>b-fcg<c :/
r>b-<e-fg-b-<e->b-g- re-a-b-b<d-e->b-a- ra-<d-e-d->a-<fd->a- <g-fe-d->bb-a-g-e-
re-fb-fb-<d->b-<d- fg-e-d-e-c>b-<c>a- b-e-fb-<e->b-<c>a-e- dfb-<c>b-fb-fd 
:/ ;