#TITLE Take Care! (グラディウスII, FC)
#ARTIST Yukie Morimoto, Hidenori Maezawa, Konami Kukeiha Club
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT MML coded: 2024/03/02 rev.1 / C minor
#COMMENT memo ... bass drum(drumcomp) snare(powersound)


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

$TEMPO = t150.25 ; /* (64time/25.557sec)*60sec %1=4.159msec %96=399.328msec */
$RANGE = x0      ; /* linear dynamic range */
$NS    = ns0     ; /* note shift(tone part) */
$LOOP  = 44      ; /* repeat */  

$VSa = @V116 ; /* 2A03 SQR */
$VSb = @V116 ; /* 2A03 SQR */
$VTc = @V92  ; /* 2A03 TRI */
$VNd = @V40  ; /* 2A03 NOI */
$VDe = @V96  ; /* 2A03 DMC */ 

$DT0 = @D0   ; /* detune */


/* Wave ===================================================================== */

#WAV13 0,80 86 86 86 86 86 86 86 86 86 86 86 87 96 96 96 96 96 96 96 96 96 95 95 95 9E A5 A5 A5 A5 A5 A5 A4 A4 A4 A4 A4 A5 B2 B3 B3 B3 B2 B2 B2 B2 B2 B1 B1 B1 B6 C0 C0 C0 BF BF BF BF BE BE BE BD BD CA CC CC CB CB CB CA CA CA C9 C9 C9 CC D7 D7 D6 D6 D6 D5 D5 D5 D4 D4 D3 D3 DD E1 E1 E0 E0 DF DF DF DE DE DD DD DE EA EA EA E9 E9 E8 E8 E7 E7 E6 E6 E6 ED F3 F2 F2 F1 F1 F0 F0 EF EF EE EE EE ED ED EC EC EB EB EA EA E9 E9 E9 E8 E2 D9 D9 D9 D8 D8 D7 D7 D7 D6 D6 D6 D5 C9 C6 C6 C6 C6 C5 C5 C5 C4 C4 C4 C4 C0 B5 B4 B4 B4 B4 B3 B3 B3 B3 B2 B2 B2 A7 A3 A3 A3 A2 A2 A2 A2 A2 A2 A2 A1 9F 92 92 92 92 92 92 91 91 91 91 91 91 88 81 81 81 81 81 81 81 81 81 81 81 80 72 72 72 72 72 72 72 72 72 72 72 72 6C 62 62 62 62 63 63 63 63 63 63 63 63 55 53 53 54 54 54 54 54 54 55 55 55 50 44 45 45 45 45 46 46 46 46 47 47 47 3A 36 36 37 37 37 38 38 38 39 39 39 37 28 28 29 29 2A 2A 2A 2B 2B 2B 2C 2C 21 1B 1B 1B 1C 1C 1D 1D 1D 1E 1E 1F 1E 0E 0D 0E 0E 0F 0F 10 10 11 11 12 12 0A 00 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 08 09 09 0A 0A 0B 0B 0C 12 20 20 21 21 21 22 22 23 23 23 24 24 33 37 38 38 38 39 39 39 39 3A 3A 3A 3E 4D 4D 4E 4E 4E 4E 4E 4F 4F 4F 4F 50 5B 62 62 62 62 62 62 62 62 63 63 63 65 74 74 74 75 75 75 75 75 75 75 75 75 /* 2A03 Tri */

#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 /* 2A03 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 /* 2A03 Sqr 25.00 */

/* WAV9 coded by http://gocha.s151.xrea.com/onlinetool/DPCMConverter.swf */

#WAV9 0,64,0,mQEAAACu+w//+wvvwM33AgkeINTamfU90JpVq1a1+uHj////PP7cixpPIkSQI2AgoDCDABP1cNghx+ha5+SCeVxcVtt8JVbN53xlYZrlfelmtG1mxTm7VZWlWnXKWnW5ytTUZFVZWqpUlUqlKqVUSilVqlKpqEpVlqlSSa2sUlZaWaqmqqZa1aRWWlmlWquqYquqqpm1VrO5qlV2tqqlVVVZq5RZtUylqrJUVWmqWpmlqmqlmtZUpaqqqirL0rQyTdWqqqqqqlJVVVVVVVVVVamqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqg==

#WAV9 1,64,0,AAD4////T0gAKPMTAYABDOyv+7c/9t/3///0/v///////w8QAICAgAIAAAAAAP3/////+/dtHzcmHA0AhhTCAgWoBvhpwBBmjoc//P3TKX4Kzn/2jBsf+SzNVhfDDgIOhoCDGIDk8cDo49f////+//HzYkAdBJFGMIABPBVh0EF2wHcj9d7/Pf/9gQ8//gzHxMHYDGDKgIoRIwwU/onBEz3d///xfMrzP3jEWA+DA5twgGiwTqAXU8iBO8Ybzuc4n/mPd3L8CXbH8oCwbngRxBh3HBBOXMEU5PZg+qJ8P/Lt++EZHj++icAfFgwxhAY+/oAAPMcZ/JlxnKeTDd9PZyc+f3yJET6Ks2B81UBgHDcECL46+Jh5aB3H+X+glz/nzmHtMKeQYxArfAkzzJl1IARcv8GJ8/Zy4ccz3inegXvOUXzawHhA+VoAnEdvoqOBpId5/YDLBb8+hSv/xjwTWx674KD4qIGjOOfIsZbiyMEClx8zfnWUc+10EZeW5ooTTz3riCpmoyKLk4zKWoWjHqU7T+Kbo1n9tDhd1oGlG6RtRNWDEltaLm0RAz5+qcKc5dF6nSN9vIippca8uqhiairLw0oHI06aB5OXpTpZbabF+bhF9bqGwR1LHaNeLExDWxZXRjl8w0hXimW9ZYmTWK956lSlJc3mPEPDU2amqShmrC6TlNoKxt2aobndqMY63Zo8qQM8u0TZeWTBEm7WtKwyq6JqaWbTVNXiOl1VVWVsVFWl3WQRrWyc5bg4JaWs6jStpkl1ucrSmlWmVFU9jWnMpKqsWmpqVYU1rWKsquU0tUYtK4vbvGKmqarKMk1VVVVVVdU02SolJatqVrVUXcayqlpbY6Umx1RVVRPPZNmYlWqZVVVVJUUuq5pmVVXVMss8vVRVZplGVVXVlKVp1jRaVllVVYVqK6OqKmuWVb1aVWaqqpKmquqomamVpVVVZplVVVVVZYnCLquqmhU/XVVlmarSKmWmqqqqaqqpOlalqqqqqqqqqqqqaZqmaappmlZVVVVVVVVVVVVVVVVVVVU=


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

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


/* TEMPO ==================================================================== */

$TEMPO
;


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

$Aa24{a} = @13-2 @X87 %a%4 & @13-1 @X71 %a%8 & @X63 %a%12 ; /* a!(1) 8(2) 7() */
$Ab24{a} = @13-2 @X79 %a%4 & @13-1 @X63 %a%8 & @X55 %a%12 ; /* 9!(1) 7(2) 6() */
$Ac24{a} = @13-2 @X71 %a%4 & @13-1 @X55 %a%8 & @X47 %a%12 ; /* 8!(1) 6(2) 5() */
$Ad24{a} = @13-2 @X63 %a%4 & @13-1 @X47 %a%8 & @X39 %a%12 ; /* 7!(1) 5(2) 4() */
$Ae24{a} = @13-2 @X47 %a%4 & @13-1 @X39 %a%8 & @X31 %a%12 ; /* 6!(1) 4(2) 3() */
$Af24{a} = @X63 %a%4 & @13-2 @X47 %a%8 & @13-1 @X15 %a%12 ; /* 7(1) 5!(2) 1() */
$Ag24{a} = @X71 %a%4 & @13-2 @X55 %a%8 & @13-1 @X15 %a%12 ; /* 8(1) 6!(2) 1() */
$Ah24{a} = @X79 %a%4 & @13-2 @X63 %a%8 & @13-1 @X23 %a%12 ; /* 9(1) 7!(2) 2() */

$a00 = q16 @Q0 $Ex0 r%12 ;
$a01 = /: o4 $Aa24{a-} $Aa24{e-} $Aa24{c}  $Ad24{b-} $Ad24{f} $Ad24{d}  $Ac24{a-} $Ac24{e-} $Ac24{c}
  $Ab24{a-} $Ab24{e-} $Ab24{c}  $Aa24{a-} $Aa24{c} $Aa24{b-} $Aa24{d} :/ ;
$a03 = /: o4 /:$Ab24{g} $Ab24{d} >$Ab24{g}<:/  /:$Ab24{f} $Ab24{c} >$Ab24{f}<:/ $Ab24{f} $Ab24{c} $Ab24{g} / $Ab24{d} :/ >$Ab24{b} ;
$a09 = /: o5 $Ab24{a-} $Ab24{e-} $Ab24{c}  $Ae24{b-} $Ae24{f} $Ae24{d}  $Ad24{a-} $Ad24{e-} $Ad24{c}
  $Ac24{a-} $Ac24{e-} $Ac24{c}  $Ab24{a-} $Ab24{c} $Ab24{b-} $Ab24{d} :/ ;
$a11 = /: o5 /:$Ac24{g} $Ac24{d} >$Ac24{g}<:/  /:$Ac24{f} $Ac24{c} >$Ac24{f}<:/  $Ac24{f} $Ac24{c} $Ac24{g} / $Ac24{d} :/ >$Ac24{b} ;
$a13 = /: o6 $Af24{g} $Af24{e-} $Af24{c}  $Af24{f} $Af24{d} >$Af24{b-}  /:<$Af24{e-} $Af24{c} >$Af24{a-}:/  <$Af24{e-} $Af24{c} $Af24{f} $Af24{d} :/ ; 
$a15 = o6 @13-1 /:$Af24{g} $Af24{d} >$Af24{g}<:/  /:$Af24{f} $Af24{c} >$Af24{f}<:/  $Af24{f} $Af24{c} $Af24{g} $Af24{d} ; 
$a16 = o6 $Ag24{g} $Ag24{d} >$Ag24{g}<  $Ah24{g} $Ah24{d} >$Ah24{g}<  /:3 $Ah24{f} $Ah24{c} / >$Ah24{f}< :/  $Ah24{g} >$Ah24{b} ; 

$RANGE $NS $VSa $DT0 $a00
/:$LOOP $a01 $a03 $a01 $a03 $a09 $a11 $a13 $a15 $a16 :/
;


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

$Ba24{a,b} = @13-2 @X87 %a%4 & @13-1 @X79 %a%12 & @X31 %b%8 ; /* a!(1) 9(3) 3() */
/*$Ba24{a,b} = @13-2 @X87 %a%4 & @13-1 @X79 %a%12 & @X00 %b%8 ;*/ /* debug */
/*$Ba24{a,b} = @13-2 @X00 %a%4 & @13-1 @X00 %a%12 & @X31 %b%8 ;*/ /* debug */
$Bb24{a,b} = @13-1 @X87 %a%4 & @13-2 @X79 %a%12 & @X31 %b%8 ; /* a(1) 9!(3) 3!() */

$b00 = q16 @Q0 $Ex0 r%12 ;
$b01a= o6$Ba24{e-,e-} o5$Ba24{a-,o6e-} ;
$b01b= o5$Ba24{e-,o6e-}  o6$Ba24{d,o5a-} o5$Ba24{b-,e-} $Ba24{f,o6d}  $Ba24{c,o5b-} $Ba24{a-,f} $Ba24{e-,o6c}
  $Ba24{c,o5a-} $Ba24{a-,e-} $Ba24{e-,o6c}  $Ba24{c,o5a-} $Ba24{a-,e-}  o6$Ba24{d,c} o5$Ba24{f,a-} ;
$b02 = o6$Ba24{e-,d} o5$Ba24{a-,f} o5$Ba24{e-,o6e-}  o6$Ba24{d,o5a-} o5$Ba24{b-,e-} $Ba24{f,o6d}  $Ba24{c,o5b-} $Ba24{a-,f} $Ba24{e-,o6c}
  o6$Ba24{c,o5a-} $Ba24{a-,e-} $Ba24{e-,o6c}  $Ba24{c,o5a-} $Ba24{f,e-}  o6$Ba24{d,c} o5$Ba24{a-,f} ;
$b03 = o6$Ba24{c,d} o5$Ba24{g,a-} o5$Ba24{d,o6c}  o5$Ba24{b,g} $Ba24{g,d} $Ba24{d,b}  $Ba24{a,g} $Ba24{f,d} $Ba24{c,a}
  $Ba24{a,f} $Ba24{f,c} $Ba24{c,a}  $Ba24{a,f} $Ba24{f,c}  $Ba24{b,a} $Ba24{g,f} ;
$b04 = o6$Ba24{c,o5b} $Ba24{g,g} $Ba24{d,o6c}  o5$Ba24{b,g} o5$Ba24{g,d} $Ba24{d,b}  $Ba24{a,g} $Ba24{f,d} $Ba24{c,a}
  $Ba24{a,f} $Ba24{f,c} $Ba24{c,a}  $Ba24{a,f} o5$Ba24{f,c}  $Ba24{b,a} $Ba24{d,f} ;
$b05a= o6$Ba24{e-,o5b} $Ba24{a-,d} ;
$b09a= o6$Bb24{e-,e-} o5$Bb24{a-,o6e-} ;
$b09b= o5$Bb24{e-,o6e-}  o6$Bb24{d,o5a-} o5$Bb24{b-,e-} $Bb24{f,o6d}  $Bb24{c,o5b-} $Bb24{a-,f} $Bb24{e-,o6c}
  $Bb24{c,o5a-} $Bb24{a-,e-} $Bb24{e-,o6c}  $Bb24{c,o5a-} $Bb24{a-,e-}  o6$Bb24{d,c} o5$Bb24{f,a-} ;
$b10 = o6$Bb24{e-,d}  o5$Bb24{a-,f} o5$Bb24{e-,o6e-}  o6$Bb24{d,o5a-} o5$Bb24{b-,e-} $Bb24{f,o6d}  $Bb24{c,o5b-} $Bb24{a-,f} $Bb24{e-,o6c}
  o6$Bb24{c,o5a-} $Bb24{a-,e-} $Bb24{e-,o6c}  $Bb24{c,o5a-} $Bb24{f,e-}  o6$Bb24{d,c} o5$Bb24{a-,f} ;
$b11 = o6$Bb24{c,d} o5$Bb24{g,a-} o5$Bb24{d,o6c}  o5$Bb24{b,g} $Bb24{g,d} $Bb24{d,b}  $Bb24{a,g} $Bb24{f,d} $Bb24{c,a}
  $Bb24{a,f} $Bb24{f,c} $Bb24{c,a}  $Bb24{a,f} $Bb24{f,c}  $Bb24{b,a} $Bb24{g,f} ;
$b12 = o6$Bb24{c,o5b} $Bb24{g,g} $Bb24{d,o6c}  o5$Bb24{b,g} o5$Bb24{g,d} $Bb24{d,b}  $Bb24{a,g} $Bb24{f,d} $Bb24{c,a}
  $Bb24{a,f} $Bb24{f,c} $Bb24{c,a}  $Bb24{a,f} o5$Bb24{f,c}  $Bb24{b,a} $Bb24{d,f} ;
$b13a= o6$Bb24{e-,e-} o5$Bb24{a-,o6e-} ;

$RANGE $NS $VSb $DT0 $b00
/:$LOOP $b01a $b01b $b02 $b03 $b04 $b05a $b01b $b02 $b03 $b04 $b09a $b09b $b10 $b11 $b12 $b13a $b09b $b10 $b11 $b12 :/
;


/* TRIc ===================================================================== */

$c00  = q16 @Q0 $Ex0 @13-0 o3 a-%12& ;
$c01 =  a-%339& a-*<c%17& c*e%15& e*a-%13& a-%372& >g%384& <g%384& >a-%12& ;
$c99 =  a-%339& a-*<c%17& c*e%15& e*a-%13& a-%372& >g%384& <g%384 ;

$RANGE $NS $VTc $DT0 $c00
/:$LOOP $c01 $c01 $c01 / $c01 :/ $c99
;


/* NOISE ==================================================================== */

/* a2(1) a1(1) 71(1) 61(2) 50(1) 51(1) 50(1) 51(1) 50(1) 41(1) 30() */
$Da48 = @X87 d%4 c+%4 @X63 c+%8 @X55 c+%4 @X47 c%4 c+%4 c%4 c+%4 c%4 @X39 c+%4 @X31 c%4 ;
$Da24 = @X87 d%4 c+%4 @X63 c+%8 @X55 c+%4 @X47 c%4 ;
$Da12 = @X87 d%4 c+%4 @X63 c+%4 ;
$Db12 = c+%4 c%4 c+%4 ;

$d00 = q16 @Q0 $Ex0 @7 o0 r%12 ;
$d01 = r%12 $Da12 /:8 $Da24 :/ $Da48 $Da24 $Da24 $Da48 $Da24 ;
$d02 = $Db12 $Da12 /:8 $Da24 :/ $Da48 $Da24 $Da24 $Da48 $Da24 ;
 
$RANGE $VNd $d00
$d01 /:$LOOP /:15 $d02 :/ / $d02 :/
;


/* DPCM ===================================================================== */

$EB48 = @E1,0,0,384,0 @9-0 e%48 ;
$ES96 = @E1,0,0,320,0 @9-1 e%96 ;

$e00 = q16 @Q0 $Ex0 o1 r%12 ;
$e01 = $ES96 r%144 $EB48 r%48 $EB48 ;
 
$RANGE $VDe $e00
/:$LOOP /:16 $e01 :/ :/
;