#TITLE 序曲 (ドラゴンクエスト, FC) 再
#ARTIST Koichi Sugiyama
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT MML coded 03/24/2024 rev.1


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

                    /* TEMPO = T*60.09*60/round(L*60.09) */
$TEMPO1 = t124.94 ; /* T=21time, L=10.085sec, %1=5.002msec, 1frame=%3.33 */
$TEMPO2 = t120.18 ; /* T=64time, L=31.952sec, %1=5.200msec, 1frame=%3.20 */

$RANGE = x0       ; /* linear dynamic range */
$NS    = ns0      ; /* note shift */
$LOOP  = 32       ; /* repeat */

$VSa = @V120      ; /* 2A03 SQR */
$VSb = @V120      ; /* 2A03 SQR */
$VTc = @V90       ; /* 2A03 TRI */

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


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


/* Extra ==================================================================== */

$xVF = @E1,0,0, 120,0 ;

/* E6(55step) */
$xE6 = @E1,0,0, 120,4,120,0, 112,3,112,0, 104,4,104,0, 96,4,96,0, 88,3,88,0, 80,4,80,0, 72,4,72,0, 64,3,64,0, 56,4,56,0, 48,4,48,0, 40,3,40,0, 32,4,32,0, 24,4,24,0, 16,3,16,0, 8,4,8,0, 0,0 ;
/* EF(127step) */
$xEF = @E1,0,0, 120,8,120,0, 112,9,112,0, 104,8,104,0, 96,9,96,0, 88,8,88,0, 80,9,80,0, 72,8,72,0, 64,9,64,0, 56,8,56,0, 48,9,48,0, 40,8,40,0, 32,9,32,0, 24,8,24,0, 16,9,16,0, 8,8,8,0, 0,0 ;

/* EF(33step) + E0(6step) */
$xE001 = @E1,0,0, 120,8,120,0, 112,9,112,0, 104,8,104,0, 96,8,96,0, 88,1,88,0, 72,1,72,0, 56,1,56,0, 40,1,40,0, 24,1,24,0, 8,1,8,0, 0,0 ;

/* VF(159step) + E5(42step) */
$xE002 = @E1,0,0, 120,159,120,0, 104,3,104,0, 96,4,96,0, 88,3,88,0, 80,3,80,0, 72,3,72,0, 64,4,64,0, 56,3,56,0, 48,3,48,0, 40,3,40,0, 32,4,32,0, 24,3,24,0, 16,3,16,0, 8,3,8,0, 0,0 ;

/* VF(32step) + E0(8step) */
$xE003 = @E1,0,0, 120,32,120,0, 104,2,96,0, 88,1,88,0, 72,1,72,0, 56,1,56,0, 40,1,40,0, 24,1,24,0, 8,1,8,0, 0,0 ;


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

$a00  = q16 @Q0 ;
$a01  = $TEMPO1 l8 @13-1 o5 $xE6 a%76a%20a ggg fga b-ag ab-<c dfd c>b-a g%76g%20g ;
$a03  = a%76a%20a afa $xVF g1 r4 @13-2 o6 $xEF c%76c%20 ;
$a05a = $TEMPO2 l4 ;
$a05b = fgab- $xVF <cf2 $xEF e%76d%20 ;
$a07  = d. $xE001 c $xEF >b8b8<d8 c>a2 >a%76a%20 ;
$a09  = aab<c+ $xVF d2 $xEF r8d8e8f8 $xVF g2 $xEF r8d8d8f8 fedc ;
$a13  = $xVF a%240 $xEF b-8a8g8 $xVF f2df g%240 $xEF a8g8f8 $xVF f2ec ;
$a17  = <c%240 $xEF >a8b-8<c8 $xVF d%240 $xEF >d8e8f8 ;
$a19a = $xVF b-2a2 $xE002 f%288 ;
$a19b = $xEF c%76c%20 ;

$RANGE $NS $VSa $DT0 $a00
$a01 $a03 $a05a /:$LOOP $a05b $a07 $a09 $a13 $a17 $a19a / $a19b :/ r
;

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

$b00  = q16 @Q0 ;
$b01  = $TEMPO1 l8 @13-1 o5 $xE6 c%76f%20f ccc >a<cf gfc fga b-<d>b- agf c%76c%20c ;
$b03  = f%76f%20f f>a<f $xVF c1 r4 @13-2 o5 $xEF b-%76b-%20 ;
$b05a = $TEMPO2 l4 ;
$b05b = a<cff $xVF f2f2 ;
$b07  = b-. $xE003 a $xEF g+8g+8b8 $xVF af2 $xEF >>a%76a%20 ;
$b09  = <c+c+de $xVF f2 $xEF r8f8g8a8 $xVF <d2 $xEF r8>b8b8<d8 dc>b-b- ;
$b13  = $xVF <c+%240 $xEF c+8c+8c+8 $xVF d2>aa <d%240 $xEF >b8b8b8 $xVF b-2b-b- ;
$b17  = <f+%240 $xEF f+8g8a8 $xVF b-%240 $xEF >b-8<c8d8 ;
$b19a = $xVF d2e2 $xE002 >a%288 ;
$b19b = $xEF b-%76b-%20 ;

$RANGE $NS $VSb $DT0 $b00
$b01 $b03 $b05a /:$LOOP $b05b $b07 $b09 $b13 $b17 $b19a / $b19b :/ r
;

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

$c00  = @Q0 $xVF;
$c01  = $TEMPO1 q16 l4 @13-0 o4 f%80 r%304 r1 r1 r2. r1 r2 ;
$c05a = $TEMPO2 q13 l4 ;
$c05b = fee-d q16 >a%102r%90 b-%102r%90 q13 <fc>f<f f>a<cf ;
$c09  = q16 >a%102r%90 a%102r%90 q13 <d>a<fd >b<dg>g q16 <c%102r%90 q13 ce ;
$c13  = >a<c+e>a <defd >b<dg>g <ccgb- ;
$c17a = af+d>a gab-g <gcb-c fcf ;
$c17b = r ;

$RANGE $NS $VTc $DT0 $c00
$c01 $c05a /:$LOOP $c05b $c09 $c13 $c17a / $c17b :/ r
;