#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) */
$TEMPO = t160.14 ; /* T=72time, L=26.976sec, %1=3.903msec, 1frame=%4.26 */

$RANGE = x0      ; /* linear dynamic range */
$NS    = ns0     ; /* note shift */
$LOOP  = 40      ; /* 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 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 /* 2A03 Sqr 50.00 */


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

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

/* E2(24step) */
$xE2 = @E1,0,0, 120,2,120,0, 112,1,112,0, 104,2,104,0, 96,1,96,0, 88,2,88,0, 80,1,80,0, 72,2,72,0, 64,2,64,0, 56,2,56,0, 48,1,48,0, 40,2,40,0, 32,1,32,0, 24,2,24,0, 16,1,16,0, 8,2,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 ;

/* VF(191step) + EF(71step) */
$xE001 = @E1,0,0, 120,191,120,0, 72,3,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 ;


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

$a00 = q16 @Q0 $TEMPO ;
$a01 = o4 l4 $xE2 /: @13-4 ab @13-1 ab :/ ;
$a03 = o4 l8 $xEF ab<cd e-2.f+e- a4g+f+f4e-4 f4f+2g+f+ f4e-4ff+fe- d4c4fe-dc $xE001 >b1. ;
$a11 = o5 l8 $xEF c+d+ef+ g2.b-g <d-4c>b-a4g4 a4b-2<c>b- a4g4ab-ag f+4e4agf+e $xE001 d+1. ;

$RANGE $NS $VSa $DT0 $a00
/:$LOOP $a01 $a03 $a01 $a11 :/
;

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

$b00 = q16 @Q0 $TEMPO ;
$b01 = o4 l4 $xE2 /: @13-4 ed @13-1 >a<d :/ ;
$b03 = o4 /:14 f+4d+4:/ ;
$b11 = o5 l8 $xEF c+d+ef+ g2.b-g <d-4c>b-a4g4 a4b-2<c>b- a4g4ab-ag f+4e4agf+e $xE001 d+1. ;

$RANGE $NS $VSb $DT0 $b00
/:$LOOP $b01 $b03 $b01 $a03 :/
;

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

$c00 = q8 @Q0 $xVF @13-0 o4 l4 ;
$c01 = /:4 dc :/ ;
$c03 = /:14 f+e- :/ ;

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