#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：- / MML coded: 2015/04/15 rev.1 / B minor


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

/* All part 1 */  $ALL1  = t69.88 ; /* (48time/41.213sec)*60sec %1=8.944ms */
/* All part 2 */  $ALL2  = x2     ; /* 96dB dynamic range */
/*  Tone part */  $ALLT  = ns0    ;
/*     Repeat */  $LOOP  = 28     ;

/* Volume @V0～127 [default=122] */
/* YM2608 FM_a  */  $FMa  = @V122 ;
/* YM2608 FM_b  */  $FMb  = @V122 ;
/* YM2608 FM_c  */  $FMc  = @V122 ;
/* YM2608 FM_d  */  $FMd  = @V122 ;
/* YM2608 FM_e  */  $FMe  = @V122 ;
/* YM2608 FM_f  */  $FMf  = @V122 ;
/* YM2608 SSG_a */  $SSGa = @V122 ;
/* YM2608 SSG_b */  $SSGb = @V122 ;
/* YM2608 SSG_c */  $SSGc = @V122 ;

/* Detune default */  $DT0  = @D6 ;
/* Detune FM_d~f  */  $DTFd = @D0 ;
/* Detune SSG_c   */  $DTSc = @D16 ;


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

$V1B   = @X105 ; /* 127-27 +5 */
$V26_L = @P1 @X86  ; /* 127-38 +5 -8 */

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


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

$Fa0 = q16 @Q0 @14-2 $V1B l4 ;
$Fa1 = o3 b8<f+8r%8bb%184 >b8<f+8r%8bb%184 ;
$Fa3 = >e8b8<g>f+8<c+8a >g.<<b8&b2 ;
$Fa6 = >e8b8<g>f+8<c+8a @14-1 >b.<a.<e @14-2 ;

$ALL1 $ALL2 $ALLT $FMa $DT0
$Fa0 /:$LOOP $Fa1 $Fa1 $Fa3 $Fa1 $Fa1 $Fa6 :/
;


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

$Fb1 = o5 rr%4de%188 rr%4de%188 ;
$Fb3 = r>br<c+ r8>>b8&b%40<<g%8&g8&g2;
$Fb6 = r>br<c+ @14-1 r8>d.<c+.f+8 @14-2 ;

$ALL1 $ALL2 $ALLT $FMb $DT0
$Fa0 /:$LOOP $Fb1 $Fb1 $Fb3 $Fb1 $Fb1 $Fb6 :/
;


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

$Fc1 = o5 rf+g+2 rf+g+2 ;
$Fc3 = rdre r>d%32<f+%16&f+8&f+2 ;
$Fc6 = rdre r>f+.<d. ;

$ALL1 $ALL2 $ALLT $FMc $DT0
$Fa0 /:$LOOP $Fc1 $Fc1 $Fc3 $Fc1 $Fc1 $Fc6 :/
;


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

$Fd0 = q16 @Q0 @14-2 $V26_L l4 ;

$ALL1 $ALL2 $ALLT $FMd $DTFd
$Fd0 r16 /:$LOOP $Fa1 $Fa1 $Fa3 $Fa1 $Fa1 $Fa6 :/
;


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

$ALL1 $ALL2 $ALLT $FMe $DTFd
$Fd0 r16 /:$LOOP $Fb1 $Fb1 $Fb3 $Fb1 $Fb1 $Fb6 :/
;


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

$ALL1 $ALL2 $ALLT $FMf $DTFd
$Fd0 r16 /:$LOOP $Fc1 $Fc1 $Fc3 $Fc1 $Fc1 $Fc6 :/
;


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

/* 127-(15-Level)x4 -6 +5 */
/* Vol n(ms) : C(18) 9(249) 8(608) 7(966) 6(1306) 5(1663) 4(2021) 3(2360) 2(2719) 1(3077) 0() */
$S24A{a} = @X114 %a%2 & @X102 %a%22 ;
$S32A{a} = @X114 %a%2 & @X102 %a%26 & @X98 %a%4 ;
$S48A{a} = @X114 %a%2 & @X102 %a%26 & @X98 %a%20 ;
$S96A{a} = @X114 %a%2 & @X102 %a%26 & @X98 %a%40 & @X94 %a%28 ;
$S144A{a} = @X114 %a%2 & @X102 %a%26 & @X98 %a%40 & @X94 %a%40 & @X90 %a%36 ;
$S192A{a} = @X114 %a%2 & @X102 %a%26 & @X98 %a%40 & @X94 %a%40 & @X90 %a%38 & @X86 %a%40 & @X82 %a%6 ;
$S288A{a} = @X114 %a%2 & @X102 %a%26 & @X98 %a%40 & @X94 %a%40 & @X90 %a%38 & @X86 %a%40 & @X82 %a%40 & @X78 %a%38 & @X74 %a%24 ;
$S384A{a} = @X114 %a%2 & @X102 %a%26 & @X98 %a%40 & @X94 %a%40 & @X90 %a%38 & @X86 %a%40 & @X82 %a%40 & @X78 %a%38 & @X74 %a%40 & @X70 %a%40 r%40 ;

$Sa0 = $Ex0 q16 @Q0 @13-0 ;
$Sa1 = o6 $S144A{f+} $S48A{a} $S96A{g+} $S32A{g+} $S32A{f+} $S32A{e} $S96A{f+} >$S288A{b} ;
$Sa2 = <$S144A{f+} $S48A{a} $S96A{g+} $S32A{g+} $S32A{f+} $S32A{e} $S96A{f+} > $S192A{b} $S48A{b} $S24A{b} <$S24A{c+} ;
$Sa3 = $S96A{d} $S48A{c+} $S48A{d} $S96A{e} $S96A{c+} >$S384A{b} ; 
$Sa6 = $S96A{d} $S48A{c+} $S48A{d} $S96A{e} $S96A{c+} >$S288A{b} $S24A{b} <$S24A{c+} $S24A{d} $S24A{e} ; 

$ALL1 $ALL2 $ALLT $SSGa $DT0
$Sa0 /:$LOOP $Sa1 $Sa2 $Sa3 $Sa1 $Sa2 $Sa6 :/
;


/* SSG_c ==================================================================== */

$ALL1 $ALL2 $ALLT $SSGc $DTSc
$Sa0 /:$LOOP $Sa1 $Sa2 $Sa3 $Sa1 $Sa2 $Sa6 :/
;


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

/* Vol n(ms) : 9(17) 7(214) 6(679) 5(1144) 4(1592) 3(2057) 2(2504) 1(2969) 0() */
$S24B{a} = @X102 %a%2 & @X94 %a%22 ;
$S32B{a} = @X102 %a%2 & @X94 %a%22 & @X90 %a%8 ;
$S48B{a} = @X102 %a%2 & @X94 %a%22 & @X90 %a%24 ;
$S96B{a} = @X102 %a%2 & @X94 %a%22 & @X90 %a%52 & @X86 %a%20 ;
$S144B{a} = @X102 %a%2 & @X94 %a%22 & @X90 %a%52 & @X86 %a%52 & @X82 %a%16 ;
$S192B{a} = @X102 %a%2 & @X94 %a%22 & @X90 %a%52 & @X86 %a%52 & @X82 %a%50 & @X78 %a%14 ;
$S288B{a} = @X102 %a%2 & @X94 %a%22 & @X90 %a%52 & @X86 %a%52 & @X82 %a%50 & @X78 %a%52 & @X74 %a%50 & @X74 %a%8 ;
$S384B{a} = @X102 %a%2 & @X94 %a%22 & @X90 %a%52 & @X86 %a%52 & @X82 %a%50 & @X78 %a%52 & @X74 %a%50 & @X74 %a%52 r%52 ;

$Sb0 = $Ex0 q16 @Q0 @13-0 @L7,7,-0,0,0,0 ;
$Sb1 = o6 $S144B{f+} $S48B{a} $S96B{g+} $S32B{g+} $S32B{f+} $S32B{e} $S96B{f+} >$S288B{b} ;
$Sb2 = <$S144B{f+} $S48B{a} $S96B{g+} $S32B{g+} $S32B{f+} $S32B{e} $S96B{f+} > $S192B{b} $S48B{b} $S24B{b} <$S24B{c+} ;
$Sb3 = $S96B{d} $S48B{c+} $S48B{d} $S96B{e} $S96B{c+} >$S384B{b} ; 
$Sb6 = $S96B{d} $S48B{c+} $S48B{d} $S96B{e} $S96B{c+} >$S288B{b} $S24B{b} <$S24B{c+} $S24B{d} $S24B{e} ; 

$ALL1 $ALL2 $ALLT $SSGb $DT0
$Sb0 r16 /:$LOOP $Sb1 $Sb2 $Sb3 $Sb1 $Sb2 $Sb6 :/
;