#TITLE ゼルダの伝説 (FDS) / 地上BGM
#ARTIST Koji Kondo (Nitendo)
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT JASRAC work code：- / MML coded: 2015/05/10 rev.0 / B- minor


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

$TEMPO = t150.32 ; /* (96time/38.318sec)*60sec %1=4.158ms */
$RANGE = x0      ; /* linear dynamic range */
$NS    = ns0     ; /* note shift(expect noise part) */
$LOOP  = 36      ; /* repeat */  

/* Volume @V0～127 */
$SQRa = @V117 ;  　/* 2A03 SQR_a [117] */
$SQRb = @V117 ;　  /* 2A03 SQR_b [117] */
$TRI  = @V90  ;　  /* 2A03 TRI   [90]  */
$NOI  = @V51  ;　  /* 2A03 NOISE [51]  */

$DT0  = @D0 ;  　  /* detune default */


/* DATA ===================================================================== */

/* --Wav-- */

#WAV13 0,80 85 85 85 85 85 87 8C 94 93 93 93 93 95 A1 A1 A1 A1 A1 A0 A2 AC AE AD AD AD AC B2 B7 B9 B9 B8 B8 B8 BB C4 C4 C3 C3 C2 C2 CA CD CE CD CD CC CB D4 D7 D6 D6 D5 D4 D6 DB E0 DF DE DD DD DE E8 E7 E6 E5 E5 E4 E3 E3 E2 E1 E0 DF DF D7 D1 D0 CF CF CE CD C8 C0 BF BE BE BD BD B4 AF AF AE AE AE AD A4 9F 9F 9F 9E 9E 9A 96 90 90 8F 8F 8F 8D 81 81 81 81 81 81 7D 75 73 73 73 73 73 6B 65 65 65 65 65 64 60 57 57 58 58 58 57 4B 4A 4A 4A 4B 4B 49 40 3D 3D 3E 3E 3F 3A 33 31 31 31 32 33 31 24 24 25 26 26 27 1E 19 18 19 1A 1A 1B 12 0C 0D 0E 0F 10 10 11 12 13 13 14 15 17 27 29 2A 2A 2A 2B 31 3A 3E 3E 3F 3F 40 48 4E 52 52 52 53 53 58 64 64 64 64 65 66 6E 74 75 75 75 75 75 /* 2A03(Tri) */

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

/* --Macro--*/

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


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

$TEMPO
;


/* SQR_b ==================================================================== */

/* Vol n(sec/60.09) : 4(1) 5(2) 6(4) 7(7) 6(11) 5(15) 4(25) 3(30) 2(32) 0() */
$ExS1 =
  @E1,0,0,  32,2,32,0,  40,2,40,0,  48,4,48,0,  56,7,56,0,  48,8,48,0,  40,9,40,0,
  32,21,32,0,  24,10,24,0,  16,5,16,0,  0,0 ;

$Sb0  = @13-4 $ExS1 q16 @Q0 ;
$Sb01 = o5 l12 b-2 /:3 rrb-b-b-b- / b-ra- b-4 :/ l16 b-rfffrfffrfff8f8 ;
$Sb05 = o5 l16 b-8r8f4..b-b-<cde- l12 f2r8f8fg-a- b-2rb-b-b-a-g- a-rg-f2f4 ;
$Sb09 = l16 e-8e-fg-2f8e-8 d-8d-e-f2e-8d-8 c8cde2g4 fr>fffrfffrfff8f8 ;
$Sb13 = o5 l16 b-8r8f4..b-b-<cde- l12 f2r8f8fg-a- b-2.<d-4 c8r8>a2f4 ;
$Sb17 = /:2 g-2.b-4 a8r8f2 / f4 :/ d4 ;
$Sb21 = e-2.g-4 f8r8d-2>b-4 l16 <c8cde2g4 fr>fffrfffrfff8f8 ;

$RANGE $NS $SQRb $DT0
$Sb0 $Sb01 /:$LOOP $Sb05 $Sb09 $Sb13 $Sb17 $Sb21 :/
;


/* SQR_a ==================================================================== */

$Sa0  = @13-4 $ExS1 q16 @Q0 ;
$Sa01 = o5 l12 d2rrdddd crcc4r4ccc d-rd-d-4rrd-d-d-d- l16 d-r>aaa8aaa8aaa8a8 ;
$Sa05 = o5 l16 d8r8d12d12c12 d8rdde-fg a-8rb-b-<cde-f4>a-12b-12<c12 ;
$Sa07 = d-8r>g-g-a-b-<c l12 d-rd-d-c>b- <d-r>a-a-a-g-a-ra-a-g-a- ;
$Sa09 = l16 g-8g-fg-8g-a-b-4a-8g-8 f8fe-f8fg-a-4g-8f8 ;
$Sa11 = e4e8efg8gab-8<c8 >a8>aaa8aaa8aaa8a8 ;
$Sa13 = $Sa05 ;
$Sa15 = d-2.e4 e-8r8c2>a4 ;
$Sa17 = /:2 b2.<d-4 c8r8>a2a4 :/ ;
$Sa21 = g-2.b4 b-8r8f2d-4 ;
$Sa23 = $Sa11 ;

$RANGE $NS $SQRa $DT0
$Sa0 $Sa01 /:$LOOP $Sa05 $Sa07 $Sa09 $Sa11 $Sa13 $Sa15 $Sa17 $Sa21 $Sa23 :/
;


/* TRI ====================================================================== */

$T0  = @13-0 $Ex0 q15 @Q2 l12 ;
$T01 = o3 b-rrb-b-b-b-rrb-b-b- a-rra-a-a-a-rra-a-a- g-rrg-g-g-g-rrg-g-g- frrfrrfrrgr24ar24 ;
$T05 = o3 b-rrb-b-a-b-rrb-rr a-rra-a-g-a-rra-rr g-rrg-g-eg-rrg-rr <d-rrd-d-cd-rrd-rr ;
$T09 = o3 brrbbb-brrbbb b-rrb-b-a-b-rrb-b-b- <crrcc>b<crrccc >frrfrrfrrgr24ar24 ;
$T13 = o3 b-rrb-b-a-b-rrb-rr a-rra-a-g-a-rra-rr g-rrg-g-eg-rrg-rr frrffe-frrfrr ;
$T17 = /:2 eb-<d-eb-<d-errrrr frr>>ffffrrrrr :/ ;
$T21 = $T09 ;

$RANGE $NS $TRI $DT0
$T0 $T01 /:$LOOP $T05 $T09 $T13 $T17 $T21 :/
;


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

$N0  = @7 $Ex0 o0 @X96 l12 ;
$N01 = /:3 q11 @Q1 d+rrr2 q2 @Q0 d+d+d :/ d+rrd+rrd+rrd+r24d+r24 ;
$N05 = /:20 d+rrd+d+d+d+rrd+rr :/ ;

$RANGE $NOI
$N0 $N01 /:$LOOP $N05 :/
;