#TITLE DONKEY KONG 2001 (GBC) / Fear Factory
#ARTIST David Wise
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT DONKEY KONG COUNTRY / MML coded: 2017/05/28 rev.0 / E minor

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

$TEMPO = t136.47 ; /* (128time/56.275sec)*60sec %1=4.580ms %96=439.65msec */
$RANGE = x0      ; /* linear dynamic range */
$NS    = ns0     ; /* note shift */
$LOOP  = 28      ; /* repeat */  

/* Volume @V0～127 */
$SQRa = @V120 ; /* DMG SQR [120] */
$SQRb = @V120 ; /* DMG SQR [120] */
$WAVc = @V96  ; /* DMG WAV [96]  */
$NOId = @V96  ; /* DMG NOI [96]  */

$DT0  = @D-15 ; /* detune default */

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

#WAV13 1,80 F8 FF FF FF FE FE FD FD FC FC FB FA FA F9 F9 F8 F8 F7 F7 F6 F6 F5 F5 F4 F4 F3 F3 F3 F2 F2 F1 F1 F0 F0 EF EF EE EE ED ED EC EC EC EB EB EA EA E9 E9 E6 76 61 61 61 61 61 61 61 61 62 62 62 62 62 62 62 62 63 63 63 63 63 63 63 63 64 64 64 64 64 64 64 64 65 65 65 65 65 65 65 65 65 66 66 66 66 66 66 66 66 66 66 67 67 67 67 67 67 67 67 67 68 68 68 68 68 68 68 68 68 68 69 69 69 69 69 69 69 69 69 69 6A 6A 6A 6A 6A 6A 6A 6A 6A 6A 6A 6B 6B 6B 6B 6B 6B 6B 6B 6B 6B 6B 6B 6C 6C 6C 6C 6C 6C 6C 6C 6C 6C 6C 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 79 79 79 79 79 79 79 79 /* Sqr 12.50 */

#WAV13 2,80 F3 F7 F6 F6 F5 F5 F4 F4 F3 F3 F2 F2 F1 F1 F0 F0 F0 EF EF EE EE ED ED EC EC EB EB EB EA EA E9 E9 E8 E8 E7 E7 E7 E6 E6 E5 E5 E4 E4 E4 E3 E3 E2 E2 E2 E1 E1 E0 E0 DF DF DF DE DE DE DD DD DC DC DC DB DB DA DA DA D9 D9 D9 D8 D8 D7 D7 D7 D6 D6 D6 D5 D5 D5 D4 D4 D4 D3 D3 D2 D2 D2 D1 D1 D1 D0 D0 D0 CF CF CE 63 47 47 48 48 48 48 48 49 49 49 49 4A 4A 4A 4A 4B 4B 4B 4B 4B 4C 4C 4C 4C 4D 4D 4D 4D 4D 4E 4E 4E 4E 4E 4F 4F 4F 4F 4F 50 50 50 50 50 51 51 51 51 51 52 52 52 52 52 53 53 53 53 53 54 54 54 54 54 54 55 55 55 55 55 56 56 56 56 56 56 57 57 57 57 57 57 58 58 58 58 58 58 59 59 59 59 59 59 5A 5A 5A 5A 5A 5A 5B 5B 5B 5B 5B 5B 5B 5C 5C 5C 5C 5C 5C 5D 5D 5D 5D 5D 5D 5D 5E 5E 5E 5E 5E 5E 5E 5F 5F 5F 5F 5F 5F 5F 60 60 60 60 60 60 60 60 61 61 61 61 61 61 61 61 62 62 62 62 62 62 62 63 63 63 63 63 63 63 63 63 64 64 64 64 64 64 64 64 65 65 65 65 65 65 65 65 65 66 66 66 66 66 66 66 66 66 67 67 67 67 67 67 67 67 67 67 68 68 68 68 68 68 68 68 68 68 69 69 69 69 69 69 69 69 69 69 6A 6A 6A 6A 6A 6A 6A 6A 6A 6A 6A 6B 6B 6B 6B 6B 6B 6B 6B 6B 6B 6B 6C 6C 6C 6C 6C 6C 6C 6C 6C 6C 6C 6C 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 70 70 70 71 /* Sqr 25.00 */

#WAV13 4,80 DE DE DE DD DD DD DC DC DB DB DB DA DA DA D9 D9 D8 D8 D8 D7 D7 D7 D6 D6 D6 D5 D5 D4 D4 D4 D3 D3 D3 D2 D2 D2 D1 D1 D1 D0 D0 D0 CF CF CF CE CE CE CD CD CD CC CC CC CB CB CB CA CA CA CA C9 C9 C9 C8 C8 C8 C7 C7 C7 C7 C6 C6 C6 C5 C5 C5 C4 C4 C4 C4 C3 C3 C3 C2 C2 C2 C2 C1 C1 C1 C1 C0 C0 C0 BF BF BF BF BE BE BE BE BD BD BD BD BC BC BC BC BB BB BB BB BA BA BA BA B9 B9 B9 B9 B8 B8 B8 B8 B8 B7 B7 B7 B7 B6 B6 B6 B6 B5 B5 B5 B5 B5 B4 B4 B4 B4 B3 B3 B3 B3 B3 B2 B2 B2 B2 B2 B1 B1 B1 B1 B1 B0 B0 B0 B0 B0 AF AF AF AF AF AE AE AE AE AE AD AD AD AD AD AC AC AC AC AC AC AB AB AB AB AB AA AA AA AA AA AA A9 A9 A9 4C 22 22 22 23 23 24 24 24 25 25 25 26 26 27 27 27 28 28 28 29 29 2A 2A 2A 2B 2B 2B 2C 2C 2C 2D 2D 2D 2E 2E 2E 2F 2F 30 30 30 31 31 31 32 32 32 32 33 33 33 34 34 34 35 35 35 36 36 36 37 37 37 38 38 38 38 39 39 39 3A 3A 3A 3B 3B 3B 3B 3C 3C 3C 3C 3D 3D 3D 3E 3E 3E 3E 3F 3F 3F 40 40 40 40 41 41 41 41 42 42 42 42 43 43 43 43 44 44 44 44 45 45 45 45 46 46 46 46 47 47 47 47 48 48 48 48 49 49 49 49 49 4A 4A 4A 4A 4B 4B 4B 4B 4B 4C 4C 4C 4C 4D 4D 4D 4D 4D 4E 4E 4E 4E 4F 4F 4F 4F 4F 50 50 50 50 50 51 51 51 51 51 52 52 52 52 52 52 53 53 53 53 53 54 54 54 54 54 55 55 55 55 55 55 56 56 56 56 56 56 57 57 5F /* Sqr 50.00 */


#WAV10 1,0011 2233 4455 6677 8899 aabb ccdd eeff
#WAV10 2,4444 5555 6666 7777 8888 9999 aaaa bbbb
#WAV10 3,6666 6666 7777 7777 8888 8888 9999 9999
#WAV10 4,0000 0000 0000 0000 ffff ffff ffff ffff
#WAV10 5,4444 4444 4444 4444 bbbb bbbb bbbb bbbb
#WAV10 6,6666 6666 6666 6666 9999 9999 9999 9999
#WAV10 7,0246 8ace eca8 6420 0246 8ace eca8 6420
#WAV10 8,4567 89ab ba98 7654 4567 89ab ba98 7654
#WAV10 9,6677 8899 9988 7766 6677 8899 9988 7766

#WAV10 0,ffff ffff ffff ffff 8888 8888 8888 8888 /* for LFO */

$Ex0 = @E1,0,0,127,0 ;
$Lx0 = @E1,0,0 ;

$TEMPO;

/* SQRa ===================================================================== */

/* Vol n(tick) : 9(1) 8(2) 7(2) 6(2) 5(1) 4(2) 3(2) 2(2) 1(1) 0() */
$Ea1 = @E1,0,0,  79,1,79,0,  71,2,71,0,  63,2,63,0,  55,2,55,0,  47,1,47,0,
       39,2,39,0,  31,2,31,0,  23,2,23,0,  15,1,15,0,  0,0 ;

/* Vol n(tick) : A(9) 9(10) 8(10) 7(10) 6(10) 5(10) 4(10) 3(10) 2(10) 1(10) 0() */
$Ea2 = @E1,0,0,  87,9,87,0,  79,10,79,0,  71,10,71,0,  63,10,63,0,  55,10,55,0,
       47,10,47,0,  39,10,39,0,  31,10,31,0,  23,10,23,0,  15,10,15,0,  0,0 ;

/* Vol n(tick) : A(13) 9(14) 8(14) 7(14) 6(14) 5(14) 4(14) 3(13) 2(14) 1(14) 0() */
$Ea3 = @E1,0,0,  87,13,87,0,  79,14,79,0,  71,14,71,0,  63,14,63,0,  55,14,55,0,
       47,14,47,0,  39,14,39,0,  31,13,31,0,  23,14,23,0,  15,14,15,0,  0,0 ;

/* Vol n(tick) : 4(1) 3(2) 2(1) 8(2) 7(2) 6(2) 5(2) 4(2) 3(2) 2(2) 1(2) 0() */
$Ea4 = @E1,0,0,  39,1,39,0,  31,2,31,0,  23,1,23,0,  71,2,71,0,  63,2,63,0,
       55,2,55,0,  47,2,47,0,  39,2,39,0,  31,2,31,0, 23,2,23,0,  15,2,15,0,  0,0 ;

/* Vol n(tick) : 3(2) 2(1) 1(1) 4(2) 3(2) 2(2) 1(1) 0() */
$Ea5 = @E1,0,0,  31,2,31,0,  23,1,23,0,  15,1,15,0,  
                 39,2,39,0,  31,2,31,0, 23,2,23,0,  15,1,15,0,  0,0 ;

/* Vol n(tick) : 6(4) 5(4) 4(4) 3(4) 2(4) 1(4) 0() */
$Ea6 = @E1,0,0,  55,4,55,0,  47,4,47,0, 39,4,39,0,  31,4,31,0,  23,4,23,0,  15,4,15,0,  0,0 ;

$La0 = @L11,39,10-10,0,0,0 ;
$La1 = @L11,55,10-10,80,0,0 ;
$La2 = @L11,40,10-10,80,0,0 ;
$La3 = @L33,35,10-10,65,0,0 ;

$Sa0  = q16 @Q0 ;
$Sa01 = r1r1 ;
$Sa03 = @13-4 $Ex0 @X31 o4 $La0 e1&e1& g1&g1& d1&d1& e1&e1 ;
$Sa11 = @13-1 $Lx0 @X127 $Ea1 l16 /:2 o4 r4. aa bb<dd eegg r4. ee gggg f+f+dd :/ ;
$Sa15 = /:2 r4. ef+ ggf+f+ ddee :/ r4. de ggf+f+ gab<d o6 $Ex0 @X31 $La1 f+1 ;
$Sa19 = @13-4 @x127 $Ea2 $La2 l4 o4 f+.g.<d f+.g.d $Ea3 $La3 e1 r. $Ea2 $La2 g8 f+d8c8& ;
$Sa23 = c2 rf+8g8 ag8f+.g8 $Ea3 $La3 e8&e1 r1 ;
$Sa27a= r4. ;
$Sa27b= @13-2 @x127 $Lx0 l16 /:2 o4 $Ea4 b8  <g> $Ea5 b8 <g $Ea4 / a8 e $Ea5 a8e8 r8. :/ d8 e $Ea5 d8e& ; 
$Sa29 = e r8. r8 @13-4 $Ea6 l8 o5 f+ g<d>b<f+ g<d>b<f+ gaf+g f+d ;
$Sa33 = e r r1.. ;

$RANGE $NS $SQRa $DT0 $Sa0
$Sa01 $Sa03
/:$LOOP $Sa11 $Sa15 / $Sa19 $Sa23 $Sa27a $Sa27b $Sa29 $Sa27b $Sa33 :/
;

/* SQRb ===================================================================== */

/* Vol n(tick) : 8(1) 7(2) 6(1) 5(2) 4(2) 3(1) 2(2) 1(1) 0() */
$Eb1 = @E1,0,0,  71,1,71,0,  63,2,63,0,  55,1,55,0,  47,2,47,0,  39,2,39,0,
       31,1,31,0,  23,2,23,0,  15,1,15,0,  0,0 ;

/* Vol n(tick) : 4(9) 3(10) 2(11) 1(10) 0() */
$Eb2 = @E1,0,0,  39,9,39,0,  31,10,31,0, 23,11,23,0,  15,10,15,0,  0,0 ;

/* Vol n(tick) : 4(13) 3(14) 2(13) 1(14) 0() */
$Eb3 = @E1,0,0,  39,13,39,0,  31,14,31,0, 23,13,23,0,  15,14,15,0,  0,0 ;

/* Vol n(tick) : 9(3) 8(3) 7(4) 6(4) 5(4) 4(4) 3(4) 2() */
$Eb4 = @E1,0,0,  79,3,79,0,  71,3,71,0,  63,4,63,0,  55,4,55,0,  47,4,47,0,
       39,4,39,0,  31,4,31,0,  23,0 ;

/* Vol n(tick) : 6(3) 5(4) 4(4) 3(4) 2(4) 1(4) 0() */
$Eb5 = @E1,0,0,  55,3,55,0,  47,4,47,0,  39,4,39,0,  31,4,31,0,  23,4,23,0,
       15,4,15,0,  0,0 ;

/* Vol n(tick) : 3(3) 2(4) 1(4) 0() */
$Eb6 = @E1,0,0,  31,3,31,0,  23,4,23,0,  15,4,15,0,  0,0 ;

/* Vol n(tick) : 1(3) 0() */
$Eb7 = @E1,0,0,  15,3,15,0,  0,0 ;

/* Vol n(tick) : 2(7) 1(8) 0() */
$Eb8 = @E1,0,0,  23,7,23,0,  15,8,15,0,  0,0 ;

$Sb0  = q16 @Q0 ;
$Sb01 = r1r1 ;
$Sb03 = @13-4 @x127 $Lx0 o6 l16 r8 $Ea4 f+8 g $Ea5 f+ $Ea4 <d $Ea5 >g $Ea4 b $Ea5 <d >f+b gf+ <d>g ;
$Sb04 = b<d $Ea4 >e $Ea5 b $Ea4 f+ $Ea5 e $Ea4 g $Ea5 f+ $Ea4 f+ $Ea5 g $Ea4 g $Ea5 f+ $Ea4 f+ $Ea5 g $Ea4 d $Ea5 f+ ;
$Sb05 = r1r1r1r1 ;
$Sb11 = @13-1 $Lx0 @x127 $Eb1 l16 /:2 o4 r4. f+f+ ggaa bb<dd r4. >bb <eeee dd>aa :/ ;
$Sb15 = /:2 r4. b<d eedd >aabb :/ r4. ab <eedd ef+ga  $Ex0 @X23 $La1 b1 ;
$Sb19 = r%116 @13-4 @x127 $Eb2 $La2 l4 o4 f+.g.<d f+.g.d $Eb3 $La3 e1 r. $Eb2 $La2 g8 f+d8c8& ;
$Sb23 = c2 rf+8g8 ag8f+.g8 $Eb3 $La3 e8&e1 r%268 ;
$Sb27 = @13-2 $Lx0 @x127 r1 r8 l8 o5 $Eb4 b<g $Eb5 >b<g $Eb6 >b<g $Eb7 >b ;
$Sb29 = <g $Eb4 >b<g $Eb5 >b<g $Eb6 >b<g16 $Eb8 l8 >f+g<d>b<f+g<d>b<f+gaf+gf+d r8r8. ;
$Sb31 = r8 /:2 $Eb4 o5 b<g $Eb5 >b<g $Eb6 >b<g $Eb7 >b<g :/ r2. r8 ;

$RANGE $NS $SQRb $DT0 $Sb0
$Sb01 $Sb03 $Sb04 $Sb05 $Sb03 $Sb04
/:$LOOP $Sb11 $Sb15 / $Sb19 $Sb23 $Sb27 $Sb29 $Sb31 :/
;

/* WAVc ===================================================================== */

$Sc0  = l16 q16 @Q0 $Ex0 ;
$Sc01 = o3 @10-1 q16 e& @10-5 q8 eee @10-1 q16 e& @10-5 q8 e @10-9 ee @10-3 e @10-9 e @10-5 e @10-9 e @10-3 e @10-9 ee @10-5 e ;
$Sc15 = o2 @10-1 q16 a& @10-5 q8 <aaa @10-1 q16 >a& @10-5 q8 <a @10-9 aa @10-3 a @10-9 a @10-5 a @10-9 a @10-3 a @10-9 aa @10-5 a ;
$Sc18 = o3 @10-5 q8 eeeeee @10-9 ee @10-3 e @10-9 e @10-5 e @10-9 e @10-3 e @10-9 ee @10-5 e ;
$Sc27 = o3 @10-2 q16 g4 @10-3 g4g4r4 @10-2 e4 @10-3 e4e4r4 ;
$Sc29 = o2 @10-2 q16 e4 @10-3 e4e4r4 r1 ;

$RANGE $NS $WAVc $DT0 $Sc0
/:10 $Sc01 :/
/:$LOOP /:4 $Sc01 :/ $Sc15 $Sc15 $Sc01 $Sc18 / /:4 $Sc01 :/ $Sc15 $Sc15 $Sc01 $Sc01 $Sc27 $Sc29 $Sc27 $Sc01 $Sc01 :/
;

/* NOId ===================================================================== */

$E63 = @E1,0,0,  55,4,55,0,  47,4,47,0,  39,4,39,0,  31,4,31,0, 23,4,23,0,  15,4,15,0,  0,0 ;
$E51 = @E1,0,0,  47,2,47,0,  39,2,39,0,  31,2,31,0, 23,2,23,0,  15,2,15,0,  0,0 ;
$E55 = @E1,0,0,  47,10,47,0,  39,10,39,0,  31,10,31,0, 23,10,23,0,  15,10,15,0,  0,0 ;
$E42 = @E1,0,0,  39,3,39,0,  31,3,31,0,  23,3,23,0,  15,3,15,0,  0,0 ;
$E43 = @E1,0,0,  39,6,39,0,  31,5,31,0,  23,5,23,0,  15,5,15,0,  0,0 ;
$E46 = @E1,0,0,  39,11,39,0,  31,11,31,0,  23,10,23,0,  15,10,15,0,  0,0 ;
$E24 = @E1,0,0,  23,8,23,0,  15,7,15,0,  0,0 ;

$N6e  = @12o2f+;
$N51  = @11o0a;

$Nd0  = l16 q16 @Q0 ;
$Nd01 = $E63 $N6e $N6e $E42 $N51 $N51 $E63 $N6e $N6e $E43 $N6e8 r2 r1 ;
$Nd03 = /:2 $E63 $N6e $N6e $E42 $N51 $N51 :/ r2 r1 ;
$Nd07 = $E63 $N6e $N6e $E42 $N51 $N51 $E46 $N518 $E42 $N51 $N51 r8 $N51 $N51 $E46 $N518 $E42 $N51 $N51 ;
$Nd08 = $E63 $N6e $N6e $E42 $N51 $N51 $N518 $N51 $N51 $E63 $N6e $E42 $N518. $E55 $N514 ;
$Nd09 = r8 $E51 $N51 $E24 $N51 /:3 r8 $E42 $N51 $E24 $N51 :/ ;
$Nd20 = r1 ;
$Nd29 = r1r1r1r1r1r1 ;

$RANGE $NOId $Nd0
$Nd01 $Nd03 $Nd01 $Nd07 $Nd08 $Nd09 $Nd09
/:$LOOP /:7 $Nd09 :/ $Nd20 / /:7 $Nd09 :/ $Nd08 $Nd29 $Nd07 $Nd08 :/
;