#TITLE 信長の野望・武将風雲録(OPN) / 本城での合戦
#ARTIST Yoko Kanno
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT JASRAC work code：- / MML coded: 2014/12/28 rev.0 


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

/* All part 1 */  $ALL1  = t81.82 ; /* (32time/23.465sec)*60sec %1=7.638ms */
/* All part 2 */  $ALL2  = x2     ; /* 96dB dynamic range */
/*  Tone part */  $ALLT  =        ; /* expect ns */
/*     Repeat */  $LOOP  = 48     ;

/* Volume @V0～127 (default=121) */
/* YM2203 FM_a  */  $FMa  = @V121 ;
/* YM2203 FM_b  */  $FMb  = @V121 ;
/* YM2203 FM_c  */  $FMc  = @V121 ;
/* YM2203 SSG_a */  $SSGa = @V121 ;


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

/* --FM-- */

#OPN@1 {
  5,  7,
 14, 10,  0,  5,  2, 28,  0,  1,  0,  0,
 12, 31,  0,  5,  0,  0,  0,  1,  1,  0,
 16, 31,  0,  0,  0,  0,  0,  1,  5,  0,
 31, 31,  0,  5,  0,  0,  0,  1,  1,  0,
 15 } /* TL+=25 */

#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 } /* TL+=16 */

#OPN@3 {
  2,  7,
 31, 28,  0, 10, 15, 25,  0,  2,  0,  0,
 31, 28,  0, 10, 15, 40,  0, 10,  1,  0,
 31, 15,  0,  4, 15, 10,  0,  0,  1,  0,
 31, 15,  0,  4, 15,  0,  0,  0,  0,  0,
 15 } /* TL+=17 */

#OPN@4 {
  4,  7,
 31, 25,  5,  2,  0,  0,  0, 15,  0,  0,
 31, 18, 18, 12,  7,  0,  0,  1,  0,  0,
 31, 25,  0,  0, 15, 10,  0,  3,  0,  0,
 31, 17, 15, 10, 15,  0,  0,  1,  0,  0,
 15 } /* TL+=20 */

#OPN@5 {
  5,  6,
 24,  6, 31,  3, 15,  0,  0,  5,  1,  0,
 31, 20,  0,  5, 15,  0,  0,  2,  2,  0,
 26, 11, 31,  5, 15,  0,  0,  8,  6,  0,
 31, 21, 31,  9, 15,  0,  0, 15,  7,  0,
 15 } /* TL+=19 */

$V11 = @X116 ; /* 127-17 +6 */
$V13 = @X114 ; /* 127-19 +6 */
$V14 = @X113 ; /* 127-20 +6 */
$V16 = @X111 ; /* 127-22 +6 */
$V19 = @X108 ; /* 127-25 +6 */

/* --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

$W0D = @X122 ; /* 127-(15-13)x4-3 +6 */


/* FM_a ===================================================================== */

$fa0 = o3 q5 e- q10 <g-6g-6 q4 g- g- q10 g-6 >a-6.;
$fa1 = o3 q5 g q10 <g6g6 q4 g g q10 g6 >c6.;

$ALL1 $ALL2 $ALLT $FMa @14-1 @Q0 l12 $V19
/:$LOOP
$fa0 ns-2 $fa0 ns-4 $fa0 ns0 
q1 a6. q16 f6. q1 a6. q16 d6.
$fa1 ns-2 $fa1 ns-4 $fa1 ns0
q1 d-6. q16 >a6. q1 <d6. q16 >b-6.
:/;


/* FM_b ===================================================================== */

$fb0 = o3 q6 e-12 q13 <<e-de-f g-g-g-g-g-a- b-b-b-b-b-b <c>a-g-e-c>a-;
$fb1 = o5 q6 e-12 q13 e-de-f g-g-g-g-g-a- b-b-b-b-b-b <c>a-g-e-c>a-;

/:$LOOP
$ALL1 $ALL2 $ALLT $FMb @14-2 @Q0 l24 $V16
$fb0 ns-2 $fb1 ns-4 $fb1 ns0
q6 a12 q13 ea<ce q6 e-12 q13 >e-a<ce- q6 e12 q13 >ea<ce q6 g-12 q13 >g-<cdg-
ns4 $fb1 ns2 $fb1 ns0 $fb1
q6 <d-12 q13 >a-<d-ea- q6 a12 q13 >a<c+ea q6 a12 q13 >a<dfa q6 b-12 q13 >b-<dfb-
:/;


/* FM_c ===================================================================== */

$b12 = @14-3 $V11 o3 q3 a12;
$s12 = @14-4 $V14 o3 q16 c12;
$s24x3 = @14-4 $V14 o3 q8 ccc;
$s24x4 = @14-4 $V14 o4 q8 cccc;
$c12 = @14-5 $V11 o6 q16 c12;
$b36_s36x8 = @14-3 $V11 o3 q16 a%11 @14-4 $V14 o4 q16 d-%10 c%11 c%11 d-%10 c%11 c%11 d-%10 c%11;

$fc0 = $b12 $s24x3 r $b12 $c12 $s12 $b12 $s24x3 r $b36_s36x8;
$fc1 = /:2 $b12 $s24x4 $c12 $s24x4 :/;

$ALL1 $ALL2 $ALLT $FMc @Q0 l24
/:$LOOP
/:2 $fc0 $fc0 $fc0 $fc1 :/
:/;


/* SSG_a ==================================================================== */

$ls0 = @L16,28,-0,80,0,0;
$l0 = @L0,0;

$sa0 = q4 g- q10 b-6 b-6 q4 b- b- q10 b-6 g-6 q3 g-;
$sa1 = q4 g q10 b-6 b-6 q4 b- b- q10 b-6 b-6 q3 b-;
$sa2 = q4 a- q10 a-6 a-6 q4 a- a- q10 a-6 a-6 q3 a-;

$ALL1 $ALL2 $ALLT $SSGa @13-0 q16 @Q0 @E1,0,0,127,0 $W0D l12
/:$LOOP
o4 $sa0 ns-2 $sa0 ns-4 $sa0 ns0 q3 c r6 q16 $ls0 e-4& $l0 q3 e r6 q16 $ls0 g-4& $l0
$sa1 $sa2 ns-2 $sa2 ns0 q3 $ls0 e r6 q16 $ls0 e4& $l0 q3 f r6 q15 $ls0 a-4 $l0
:/ a%1 ;