#TITLE 英雄伝説Ⅲ 白き魔女 (OPNA) / 哀しみのメロディ
#ARTIST Falcom Sound Team J.D.K. (old name for 'jdk')
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT JASRAC work code：062-4105-1 / MML coded: 2015/11/22 rev.2 / B- minor


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

$TEMPO = t69.88 ; /* (80time/68.685sec)*60sec %1=8.943ms */
$RANGE = x2     ; /* 96dB dynamic range */
$NS    = ns0    ; /* note shift (expect noise part) */
$LOOP  = 20     ; /* repeat */  

/* Volume @V0～127 */
$FMa  = @V122 ; /* YM2608 FM_a  [122] */
$FMb  = @V122 ; /* YM2608 FM_b  [122] */
$FMc  = @V122 ; /* YM2608 FM_c  [122] */
$FMd  = @V122 ; /* YM2608 FM_d  [122] */
$FMe  = @V122 ; /* YM2608 FM_e  [122] */
$FMf  = @V122 ; /* YM2608 FM_f  [122] */
$SSGa = @V122 ; /* YM2608 SSG_a [122] */
$SSGb = @V122 ; /* YM2608 SSG_b [122] */
$SSGc = @V122 ; /* YM2608 SSG_c [122] (tone) */
$NOIa = @V119 ; /* YM2608 SSG_c [119] (noise-tone @3) */
$NOIb = @V110 ; /* YM2608 SSG_c [110] (noise-tone @13) */

$DT0  = @D4  ; /* detune default */
$DTF1 = @D0  ; /* FM_b  */ 
$DTF4 = @D8  ; /* FM_e  */
$DTF5 = @D0  ; /* FM_f  */
$DTS0 = @D-2 ; /* SSG_a */
$DTS1 = @D10 ; /* SSG_b */
$DTS2 = @D7  ; /* SSG_c */ 


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

/* --FM-- */

#OPN@1 { /* music box 1 */
  4,  0,
 31,  8,  0, 15,  4, 32,  0,  1,  3,  0,
 31, 22,  9, 15,  2,  0,  0,  1,  0,  0,
 31,  8,  0, 15,  4, 41,  0, 10,  0,  0,
 31, 18,  6, 15,  2,  0,  0,  1,  7,  0,  15 }

#OPN@2 { /* music box 2 */
  4,  0,
 31,  8,  0, 15,  4, 32,  0,  1,  3,  0,
 31, 22,  9, 15,  2,  0,  0,  1,  0,  0,
 31,  8,  0, 15,  4, 41,  0, 10,  0,  0,
 31, 22, 10, 15,  2,  0,  0,  1,  7,  0,  15 }

#OPN@3 { /* whistle */
  6,  7,
  4,  1,  3,  9,  1, 85,  3,  4,  3,  0,
  4,  8,  3,  9,  1,  0,  3,  2,  3,  0,
  4,  1,  3,  9,  1,  0,  3,  2,  7,  0,
  4,  1,  3,  9,  1,  0,  0,  2,  7,  0,  15 }

#OPN@4 { /* fretless bass */
  4,  6,
 31, 13, 19, 15,  3, 28,  3,  1,  3,  0,
 31,  0,  0, 15,  0,  0,  0,  2,  3,  0,
 31,  0,  0, 15,  0, 23,  0,  1,  7,  0,
 31,  7,  6, 15,  0,  0,  0,  1,  7,  0,  15 }

$CE = @P64  ;
$V16   = @X108 ; /* 127-22 +5 */
$V19   = @X107 ;
$V1B   = @X105 ;
$V1E   = @X100 ;
$V1F   = @X101 ;
$V24   = @X96  ;

$LE = @P1   ; /* use $Vxx_F */
$RI = @P127 ;
$V21_F = @X91  ; /* 127-33 +5 -8 */
$V23_F = @X89  ;
$V26_F = @X84  ;
$V29_F = @X83  ;
$V2C_F = @X80  ;
$V2F_F = @X77  ;
$V32_F = @X72  ;

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

$Ex0 = @E1,0,0,127,0 ;
$L2{a} = %a%a ;


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

$F00 = q16 @Q0 @14-1 $V16 o6 l8 d-e- ;
$F01 = /:2 $V19 r48 f4d-4c4>a-4 <f4d-4c4d-e- f4d-4c4>a-4 b-4.b-& b-2 b-4.b-8& b-8.&b-24 < / $V16 d-e- :/ @14-2 $V16 d-e- ;
$F02 = f2&f ffb- a-d-e-f& f4e-f g-fe-d- c4d-e- f2& f4g-f ;
$F03 = e-4&e-16e-16 $V1F e-16 $V16 e-16 fg-16fe-. e-d-cd- b-4&b-16>b-16b-16<c16 ;
$F04 = d-.>g-b-16b-16<c16 d-.>a-<d-16e-16f16 g-fe-d- d-4c4 r48 @14-1 $V19 > b-4.b-& b-2 b-4.b-& b-.&b-24 ;
$F05 = <d-8e-8 ;
$F06 = & b-4 ;

$TEMPO $RANGE $NS $FMa $DT0
$F00 /:$LOOP $F01 $F02 $F03 $F04 / $F05 :/ $F06
;

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

$F10 = q16 @Q0 l8 r4 ;
$F11 = @14-1 $V19 $DT0 o6 /:2 r96 d-4>b-4a-4e-4 <d-4>b-4a-4r4 <d-4>b-4a-4e-4 f4.g&g2 f4.g& g.&g24&g96 < / r4 :/ @14-3 $LE $V21_F $DTF1 @Q2 d-e- ;
$F12 = e-*f8&f4.& fffb- a-d-e-f& f4e-f g-fe-d- c4d-e- e-*f8&f4.& f4g-f ;
$F13 = e-4&e-16e-16e-16e-16 e-*f16&f16g-16fe-. e-d-cd- b-4& b-16>b-16b-16<c16 ;
$F14 = d-.>g-b-16b-16<c16 d-.>a-<d-16e-16f16 e*g-16&g-16fe-d- d-4c4 r96 @14-1 $CE $V19 $DT0 @Q0 >f4.g&g2 f4.g& g.&g24&g96 ;
$F15 = r4 ;
$F16 = & g4 ;

$TEMPO $RANGE $NS $FMb
$F10 /:$LOOP $F11 $F12 $F13 $F14 / $F15 :/ $F16
;


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

$F20 = q16 @Q0 $V1B r4 ;
$F21 = @14-1 o4 l2 /:2 b- f g- f e- f $L2{b-4.b-8& b-2} :/ ;
$F22 = @14-2 l8 $L2{g-<d-g-d->} $L2{f<d-fd->} e-b-<e->b- >a-<e-a-e- $L2{d-a-<d->a-} ;
$F23 = cg<c>g >a<fa4 b-4a-4 >g<e-g4 ;
$F24 = e-.e-16&e-4 f.f16&f4 g-4c4 >f<cf4 >b-4.<e-8&e-2 >b-4.<e-8& e-4 ;
$F25 = & e-4 ;

$TEMPO $RANGE $NS $FMc $DT0
$F20 /:$LOOP $F21 $F22 $F23 $F24 $F25 :/
;

/* FM_d ===================================================================== */

$F30 = q16 r4 ;
$F31 = @14-3 l12 @Q5 /:2 $V26_F o5 /:2 $LE ffffff $RI e-e-e-e-e-e- :/ $LE d-d-d-d-d-d- $RI e-e-e-e-e-e-
       $LE $V23_F <cc $V26_F cc $V29_F cc $V2C_F cc $V2F_F cc $V32_F cc r1 :/ ;
$F32 = @14-4 l8 @Q1 $CE $V1B o2 g-4.g- g-2 f4&f*<f8&f8& f4.f16&e16
       e-4.>b-16&a16 a-<e-a-.&a-*d16 d-4&d-*<d-8& $V1E d-8& d-4&c16 >a-16 f16&d-16 ;
$F33 = $V1B c4.c >a4.<a b-4a-4 >g4 r16 $V1E <c16r16d-16 ;
$F34 = $V1B e-.e-16&e-4 f.f16&f4 g-4c4>f4f4
       b-4.<e- l16 $V1E >b-&<a-&b-&e-&f&a-&e-&f $V1B >b-4.<e-8& e-4 ;
$F35 = & e-4 ;

$TEMPO $RANGE $NS $FMd $DT0
$F30 /:$LOOP $F31 $F32 $F33 $F34 $F35 :/
;


/* FM_e ===================================================================== */

$F40 = q16 @Q0 r4 ;
$F41 = @14-3 $DT0 l12 @Q5 /:2 $V26_F o5 /:2 $LE d-d-d-d-d-d- $RI cccccc :/ $LE >b-b-b-b-b-b- $RI <cccccc
       $LE $V23_F a-a- $V26_F a-a- $V29_F a-a- $V2C_F a-a- $V2F_F a-a- $V32_F a-a- r2. / r4 :/ r8r12 @14-2 @Q0 $CE $V1B o5 b-24& ;
$F42 = b-2& b-4.<d-16&d-24d-48& d-8r8r4 r4c8.&c24d-48 d-4r8.r24>a-48& a-4b-8.&b-24<c48& c2& c4..&c24>b-48& ;
$F43 = b-4&b-16b-16 $V24 b-16 $V1B b-16 <c4&c16c8. >b-4a-8.&a-24<f48& f4&f16r8. ;
$F44 = >b-8.d-16&d-4 a-8.f16&f4 <e-8r8>b-8.&b-24b-48& b-4a4 @14-3 $RI $V26_F $DTF4 b-8.&b-*<a%312& b-2. ;
$F45 = r4 ;

$TEMPO $RANGE $NS $FMe
$F40 /:$LOOP $F41 $F42 $F43 $F44 $F45 :/
;


/* FM_f ===================================================================== */

$F50 = q16 @Q0 r4 ;
$F51 = @14-3 $DT0 l12 @Q5 /:2 $V26_F o4 /:2 $LE b-b-b-b-b-b- $RI a-a-a-a-a-a- :/ $LE g-g-g-g-g-g- $RI a-a-a-a-a-a-
       $LE $V23_F <ff $V26_F ff $V29_F ff $V2C_F ff $V2F_F ff $V32_F ff r2. / r4 :/ r8r12r48 @14-2 @Q0 $CE $V1B o6 d-48& ;
$F52 = d-2& d-4.f12>a-24 &a-8r4. r4a-8&a-12b-24& b-4.&b-12e-24& e-4g-8&g-12a-24& a-2..&a-12g24& ;
$F53 = g4&g16g16 $V24 g16 $V1B g16 a4&a16a8. f4f8&f12<d-24 &d-4&d-16r8. ;
$F54 = >g-8.>b-16&b-4 <f8.d-16&d-4 b-4g8&g12f24& f4f4 r64 @14-3 $LE $V26_F $DTF5 b-8.&b-*<a%312& b-2&b-8... ;  
$F55 = r4 ;

$TEMPO $RANGE $NS $FMf
$F50 /:$LOOP $F51 $F52 $F53 $F54 $F55 :/
;


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

/* 127-(15-Level)x4-4+5 */
/* 0A→@X108 09→@X104 08→@X100 07→@X96 06→@X92 05→@X88 04→@X84 03→@X80 02→@X76 01→@X72 */

/* Vol(n/ms) : 9(18) 7(216) 6(679) 5(1146) 4(1593) 3(2057) 2() */
$S96A{a}  = @X104 %a%2 & @X96 %a%22 & @X92 %a%52 & @X88 %a%20 ;
$S144A{a} = @X104 %a%2 & @X96 %a%22 & @X92 %a%52 & @X88 %a%52 & @X84 %a%16 ;
$S240A{a} = @X104 %a%2 & @X96 %a%22 & @X92 %a%52 & @X88 %a%52 & @X84 %a%50 & @X80 %a%52 & @X76 %a%10 ;

/* Vol(n/ms) : 9(18) 7(216) 6(679) 5(875) 4(928) 3(965) 2(1018) 1(1055) 0() */
$S192B{a} = @X104 %a%2 & @X96 %a%22 & @X92 %a%52 & @X88 %a%22 & @X84 %a%6 & @X80 %a%4 & @X76 %a%6 & @X72 %a%4 r%74 ;

/* Vol(n/ms) : 9(18) 7(216) 6(679) 5(1146) 4(1304) 3(1361) 2(1394) 1(1499) 0() */
$S240C{a} = @X104 %a%2 & @X96 %a%22 & @X92 %a%52 & @X88 %a%52 & @X84 %a%18 & @X80 %a%6 & @X76 %a%4 & @X72 %a%12 r%72 ;

/* Vol(n/ms) : 9(18) 7() */
$S384D{a}             = @X104 %a%2 & @X96 %a%382 ;
$S384E{a,b,c,d,e,f,g} = @X104 %a%2 & @X96 %a%94 & %b @X104 %c%2 & @X96 %c%94 & %d @X104 %e%2 & @X96 %e%94 & %f @X104 %g%2 & @X96 %g%94 ;
$S384F{a,b,c,d,e,f,g} = @X104 %a%2 & @X96 %a%46 & %b @X104 %c%2 & @X96 %c%46 & %d @X104 %e%2 & @X96 %e%46 & %f @X100 %g%2 & @X92 %g%238 ;
$S192G{a,b,c,d,e,f,g} = @X104 %a%2 & @X96 %a%46 & %b @X104 %c%2 & @X96 %c%46 & %d @X104 %e%2 & @X96 %e%46 & %f @X104 %g%2 & @X96 %g%46 ;
$S192H{a,b}           = @X104 %a%2 & @X96 %a%94 &    @X104 %b%2 & @X96 %b%94 ;

$S00 = $Ex0 q16 @Q0 @13-0 r4 ;
$S01 = o5 /:2 /:2 $S96A{b-} $S96A{f} $S96A{e-} $S96A{c} / $S96A{b-} $S96A{f} $S192B{e-} :/ $S144A{d-} $S240A{e-} $S144A{d-} $S240C{e-} :/;
$S02 = $S384D{b-} & <$S384E{d-,>,a-,,f,,d-} & <$S384E{d-,>,b-,,a-,,e-} & <$S384F{c,>,a-,,f,,d-} & ;
$S03 = >$S384E{b-,<,e-,,c,,e-} & $S192G{f,,d-,,c,>,a-} & <<$S192G{f,,d-,>,b-,,g} & ;
$S04 = $S384D{d-} & <$S192G{e-,,d-,,c,>,b-} & $S192H{b-,a} & $S144A{f} $S240A{g} $S144A{f} $S240C{g} ;

$TEMPO $RANGE $NS $SSGa $DTS0
$S00 /:$LOOP $S01 $S02 $S03 $S04 :/
;


/* SSG_b ==================================================================== */

/* Vol(n/ms) : 8(18) 6(216) 5(679) 4(1146) 3(1593) 2(2057) 1() */
$S144I{a} = @X100 %a%2 & @X92 %a%22 & @X88 %a%52 & @X84 %a%52 & @X80 %a%16 ;
$S240J{a} = @X100 %a%2 & @X92 %a%22 & @X88 %a%52 & @X84 %a%52 & @X80 %a%50 & @X76 %a%52 & @X72 %a%10 ;

/* Vol(n/ms) : 8(18) 6(216) 5(679) 4(1146) 3(1304) 2(1361) 1(1394) 0() */
$S240K{a} = @X100 %a%2 & @X92 %a%22 & @X88 %a%52 & @X84 %a%52 & @X80 %a%18 & @X76 %a%6  & @X72 %a%4 r%84 ;

/* Vol(n/ms) : 8(18) 6() ～ , 384N -> 8(18) 6() ～ 7(18) 5()*/
$S384L{a}             = @X100 %a%2 & @X92 %a%382 ;
$S384M{a,b,c,d,e,f,g} = @X100 %a%2 & @X92 %a%94 & %b @X100 %c%2 & @X92 %c%94 & %d @X100 %e%2 & @X92 %e%94 & %f @X100 %g%2 & @X92 %g%94 ;
$S384N{a,b,c,d,e,f,g} = @X100 %a%2 & @X92 %a%46 & %b @X100 %c%2 & @X92 %c%46 & %d @X100 %e%2 & @X92 %e%46 & %f @X96  %g%2 & @X88 %g%238 ;
$S192O{a,b,c,d,e,f,g} = @X100 %a%2 & @X92 %a%46 & %b @X100 %c%2 & @X92 %c%46 & %d @X100 %e%2 & @X92 %e%46 & %f @X100 %g%2 & @X92 %g%46 ;
$S192Q{a,b}           = @X100 %a%2 & @X92 %a%94 &    @X100 %b%2 & @X92 %b%94 ;

$S10 = $Ex0 q16 @Q0 @13-0 r4 ;
$S12 = $S384L{b-} <$S384M{d-,>,a-,,f,,d-} <$S384M{d-,>,b-,,a-,,e-} <$S384N{c,>,a-,,f,,d-} ;
$S13 = >$S384M{b-,<,e-,,c,,e-} $S192O{f,,d-,,c,>,a-} <<$S192O{f,,d-,>,b-,,g} ;
$S14 = $S384L{d-} <$S192O{e-,,d-,,c,>,b-} $S192Q{b-,a} $S144I{f} $S240J{g} $S144I{f} $S240K{g} ;

$TEMPO $RANGE $NS $SSGb $DTS1
$S10 /:$LOOP $S01 $S12 $S13 $S14 :/
;


/* SSG_c (tone) ============================================================= */

/* Vol(n/ms) : A(18) 8(89) 7(528) 6(948) 5(1368) 4(1787) 3() */
$T48A{a}  = @X108 %a%2 & @X100 %a%8 & @X96 %a%38 ;
$T96A{a}  = @X108 %a%2 & @X100 %a%8 & @X96 %a%48 & @X92 %a%38 ;
$T144A{a} = @X108 %a%2 & @X100 %a%8 & @X96 %a%48 & @X92 %a%48 & @X88 %a%38 ;
$T240A{a} = @X108 %a%2 & @X100 %a%8 & @X96 %a%48 & @X92 %a%48 & @X88 %a%47 & @X84 %a%47 & @X80 %a%40 ;

/* Vol(n/ms) : A(18) 8(89) 7(528) 6(948) 5(1314) 4(1349) 3(1404) 2(1441) 1(1477) 0() */
$T240B{a} = @X108 %a%2 & @X100 %a%8 & @X96 %a%48 & @X92 %a%48 & @X88 %a%40 & @X84 %a%4 &  @X80 %a%6 &  @X76 %a%4 &  @X72 %a%4 r%76 ;

$S20 = $Ex0 q16 @Q0 @13-0 o7 $T48A{d-} $T48A{e-} ;
$S21 = /:2 /:2 $T96A{f} $T96A{d-} $T96A{c} / >$T96A{a-} < :/ $T48A{d-} $T48A{e-} 
       $T96A{f} $T96A{d-} $T96A{c} >$T96A{a-} $T144A{b-} $T240A{b-} $T144A{b-} / $T144A{b-} <$T48A{d-} $T48A{e-} :/ $T240B{b-} ;
$S22 = >$S384L{g-} $S384M{a-,,f,,d-,>,a-} <$S384M{b-,,g-,,e-,,c} <<$S384N{c,>,a-,,f,,d-} ;
$S23 = >>$S384M{g,<,c,>,a,<,c} $S192O{b-,,b-,,a-,,a-} <$S192O{d-,>,b-,,g,,e-} ;
$S24 = r1 o5 $T48A{b-} $T48A{b-} $T48A{g} $T48A{g} $T96A{f} $T96A{f}
       r1 r2. ;
$S25 = o7 $T48A{d-} $T48A{e-} ;

$TEMPO $RANGE $NS $SSGc $DTS2
$S20 /:$LOOP $S21 $S22 $S23 $S24 / $S25 :/
;


/* SSG_c (noise-tone) ======================================================= */

/* Vol(n/ms) : 4(18) 8(55) 6(145) 5(219) 3(237) 5(272) 4(363) 3(437) 1(456) 2(582) 1(656)
               4(18) 8(55) 6(145) 5(219) 3(237) 6(272) 5(310) 4(437) 2(456) 4(491) 3(656)
               1(674) 2(802) 1(876) 0() */
$T192C{a} = @X84 %a%2 & @X100 %a%4 & @X92 %a%10 & @X88 %a%8 & @X80 %a%2 & @X88 %a%4 & @X84 %a%10 & @X80 %a%8 & @X72 %a%2 & @X76 %a%14 & @X72 %a%8 &
            @X84 %a%2 & @X100 %a%4 & @X92 %a%10 & @X88 %a%8 & @X80 %a%2 & @X92 %a%4 & @X88 %a%4 & @X84 %a%14 & @X76 %a%2 & @X84 %a%4 & @X80 %a%18 & 
            @X72 %a%2 & @X76 %a%14 & @X72 %a%8 r%24 ;

/* Vol(n/ms) : 5(18)  9(55)  7(108)  6(219)  4(237)  7(272)  5(417)  4(437)
               3(456) 5(492) 4(582)  3(656)  2(674)  3(710)  2(875)  1(1094)  0(1312)
               4(+18)  6(+55)  5(+201)  4(+219)  3(+237)  5(+272)  4(+365)  3(+437)
               2(+456) 3(+492) 2(+656)  1(+875)  0() */
$T288D{a} = @X88 %a%2 & @X104 %a%4 & @X96 %a%6  & @X92 %a%12 & @X84 %a%2 & @X96 %a%4 & @X88 %a%16 & @X84 %a%2 & 
            @X80 %a%2 & @X88  %a%4 & @X84 %a%10 & @X80 %a%8  & @X76 %a%2 & @X80 %a%4 & @X76 %a%18 & @X72 %a%24 r%24
            @X84 %a%2 & @X92  %a%4 & @X88 %a%6  & @X84 %a%12 & @X80 %a%2 & @X88 %a%4 & @X84 %a%10 & @X80 %a%8 & 
            @X76 %a%2 & @X80  %a%4 & @X76 %a%18 & @X72 %a%24 r%48 ;

$N10 = $Ex0 @4 @W-50 @N85 r4 ;
$N11 = /:2 /:5 r1 :/ :/ ;
$N12 = r1 r1 r1 r1 ;
$N13 = r1 r1 ;
$N14 = $T192C{c} $T192C{c} r1 $T288D{c} r%96 $T288D{c} r%96 ;

$N20 = $Ex0 @13-0 o8<< r4 ;

$TEMPO $RANGE $NOIa
$N10 /:$LOOP $N11 $N12 $N13 $N14  :/
;
$TEMPO $RANGE $NOIb
$N20 /:$LOOP $N11 $N12 $N13 $N14  :/
;