#TITLE 星のカービィ～夢の泉の物語～ / 平地の面
#ARTIST Hirokazu Ando (& Jun Ishikawa)
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT JASRAC work code：02666537 / MML coded: 2014/3/29 rev.0.1 ピッチ修正


$ALL  = t180  ;
$ALLT = @D-12 ; /* ピッチ少し下げ */
$LOOP = 48    ; /* 好きなだけ */

$VSQ0 = @V96  ; /* 調整可 @V0(silent)～127(max)                 */ 
$VSQ1 = @V96  ; /* 現状のピークは-0.97db程度（主音量127の場合） */
$VTRI = @V88  ;
$VNOI = @V36  ;
$VPCM = @V104 ;


/* WAV13 coded by ppmck, NSFplug, WinAMP, SoundEngine Free and Stirling */

#WAV13 0,80 FF FF FD FC FB FA F9 F7 F6 F5 F4 F3 F2 F1 F0 EF EE ED EC EA E9 E8 E7 E6 CF 60 5E 5E 5F 5F 5F 60 60 60 61 61 61 61 62 62 62 63 63 63 63 64 64 64 64 65 65 65 66 66 66 66 66 67 67 67 67 68 68 68 68 69 69 69 69 69 6A 6A 6A 6A 6A 6B 6B 6B 6B 6B 6C 6C 6C 6C 6C 6D 6D 6D 6D 6D 6D 6E 6E 6E 6E 6E 6E 6F 6F 6F 6F 6F 6F 70 70 70 70 70 70 70 71 71 71 71 71 71 71 72 72 72 72 72 72 72 72 73 73 73 73 73 73 73 73 74 74 74 74 74 74 74 74 74 75 75 75 75 75 75 75 75 75 75 76 76 76 76 76 76 76 76 76 76 76 76 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 79 79 79 79 79 79 79 79 79 79 /* FC(1:7) */

#WAV13 1,80 FF FF FD FC FB FA F9 F8 F6 F5 F4 F3 F2 F1 F0 EF EE ED EC EB EA E9 E8 E7 E6 E5 E4 E3 E2 E1 E0 DF DE DD DC DB DA DA D9 D8 D7 D6 D5 D5 D4 D3 D2 D1 D1 C2 44 40 41 41 42 42 43 44 44 45 45 46 46 47 47 48 48 49 4A 4A 4B 4B 4C 4C 4D 4D 4D 4E 4E 4F 4F 50 50 51 51 52 52 52 53 53 54 54 55 55 55 56 56 57 57 57 58 58 58 59 59 5A 5A 5A 5B 5B 5B 5C 5C 5C 5D 5D 5D 5E 5E 5E 5F 5F 5F 60 60 60 60 61 61 61 62 62 62 62 63 63 63 64 64 64 64 65 65 65 65 66 66 66 66 67 67 67 67 68 68 68 68 68 69 69 69 69 6A 6A 6A 6A 6A 6B 6B 6B 6B 6B 6C 6C 6C 6C 6C 6D 6D 6D 6D 6D 6E 6E 6E 6E 6E 6E 6F 6F 6F 6F 6F 6F 70 70 70 70 70 /* FC(1:3) */

#WAV13 2,80 FF FE FD FC FB F9 F8 F7 F6 F5 F4 F3 F1 F0 EF EE ED EC EB EA E9 E8 E7 E6 E5 E4 E3 E2 E1 E0 DF DF DE DD DC DB DA D9 D8 D8 D7 D6 D5 D4 D3 D3 D2 D1 D0 D0 CF CE CD CD CC CB CA CA C9 C8 C8 C7 C6 C6 C5 C4 C4 C3 C2 C2 C1 C0 C0 BF BF BE BD BD BC BC BB BA BA B9 B9 B8 B8 B7 B7 B6 B6 B5 B5 B4 B4 B3 B3 B2 8D 01 01 02 03 04 05 06 08 09 0A 0B 0C 0D 0E 0F 10 11 13 14 15 16 17 18 19 1A 1B 1B 1C 1D 1E 1F 20 21 22 23 24 25 25 26 27 28 29 2A 2A 2B 2C 2D 2E 2E 2F 30 31 31 32 33 34 34 35 36 37 37 38 39 39 3A 3B 3B 3C 3D 3D 3E 3E 3F 40 40 41 41 42 43 43 44 44 45 45 46 47 47 48 48 49 49 4A 4A 4B 4B 4C 4C 4D 4D 6A /* FC(1:1) */

#WAV13 3,80 BD BC BC BB BB BA BA B9 B9 B8 B8 B7 B7 B6 B6 B6 B5 B5 B4 B4 B3 B3 B2 B2 B2 B1 B1 B0 B0 B0 AF AF AE AE AE AD AD AC AC AC AB AB AB AA AA AA A9 A9 A9 A8 A8 A7 A7 A7 A7 A6 A6 A6 A5 A5 A5 A4 A4 A4 A3 A3 A3 A2 A2 A2 A2 A1 A1 A1 A1 A0 A0 A0 9F 9F 9F 9F 9E 9E 9E 9E 9D 9D 9D 9D 9C 9C 9C 9C 9B 9B 9B 9B 9A 9A 9A 9A 9A 99 99 99 99 98 98 98 98 98 97 97 97 97 97 96 96 96 96 96 95 95 95 95 95 95 94 94 94 94 94 93 93 93 93 93 93 93 92 92 92 92 92 92 91 91 8E 12 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 11 12 13 14 15 15 16 17 18 19 1A 1B 1B 1C 1D 1E 1F 20 20 21 22 23 24 24 25 26 27 27 28 29 29 50 /* FC(3:1) */

#WAV13 4,80 89 89 89 89 8E 99 99 99 99 98 99 A8 A8 A8 A7 A7 A7 B3 B6 B5 B5 B4 B4 BA C2 C2 C1 C0 C0 C2 CE CD CC CC CB CB D7 D8 D7 D6 D5 D4 DD E1 E0 E0 DF DE E1 EA E9 E8 E7 E6 E7 F2 F1 F0 EF EE ED EC EB EA E9 E8 E7 DF D7 D6 D5 D4 D4 D0 C4 C3 C2 C2 C1 C0 B3 B1 B0 B0 AF AF A5 9F 9F 9E 9E 9E 98 8E 8E 8E 8E 8D 8C 7E 7D 7D 7D 7E 7D 71 6E 6E 6E 6E 6E 66 5E 5F 5F 5F 60 5D 50 50 50 51 51 51 43 41 42 43 43 44 38 33 34 35 36 36 31 26 27 28 28 29 28 19 19 1A 1B 1C 1D 0E 0C 0E 0F 10 11 08 00 01 02 03 05 06 07 08 09 0A 0B 0D 1F 22 23 23 24 25 33 3A 3A 3B 3C 3C 43 50 50 51 51 52 54 64 65 65 65 66 75 78 78 78 78 78 78 /* FC(TRI) */


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

/* B */
#WAV9 0,63,0,aZqmaZqWZVmWZVlWVVVVVVVVVVVVVVWpVVVVVdVYlmVZlmVZVVVVVVVVVVUVzY7cVGmy6KjFHldXVaUVrWRJcofIEyJECMqzi/7/3bt3t1bSVKpSqTJTKlUhRIgQRBRQWGDrVm+5bmXP0ro//fTv93u327YqTYqKkikpU0pVSlUpVaKCKAQRBEEggratfS3bNdWrmVtZW1trvfv27zu73VbakpVKKVIlpUoqUypTqpSqGiBVVVVVVVVVVVVVVVVVVQ==

/* S */
#WAV9 1,63,0,BaFRQ6CjpVHPCVCjA6Cjo8OjI4ejc+tp7emptbPdA+ujo7WjY7Wjo7WjqerhUbX9HwBYzcyqqdrHUeetz9/k/KqfXiYxY1iAAoAOhJdzWQgUBSbox/////89Ch4ZJxoKSCTCMBA4XIX/8f7z0SdVV9nT2XlYRSGUyEBFxaWdBmrRwLPz+v6z7w85k6GwlLBGkkaVIouJO7A8x7+W3dCyajV9+rTilJJFpIpKGqYSFfnjeGnu8B59KXX2cGXcIaaWRpqmwUhRz4mTLloN36GXLdrxxbMtMcuTxXCQNciDRUsel+VmrdF6xvLwSHP0WFNVHauqLEmbOKLlOHGyxThNp2lrzbMlW2WyKsupSpaFZsykJafkZkttjao2a9SyHNlR03RWWlVVZVmyLHG4TJNmWaZV2mmWNWuTaqljVSXLpmxKlmVcpizL1FRNq6ZN0yZr0tRyGsdWqqaq0pJlWaZsmrJqaqmVWlmVVVO10cqqUlW1VKuyqkqtLFmyLMuqrKqqlVZV06qqqo6qqoplyaWcqlpplVZWVVVVVVVVVVVVVVVVVVVVVVVN1VRVU1VVVaWWqg==


/* basic macro */

$L2{a} = %a %a ;
$Ex0   = @E1, 0, 127, 127, 0 ; /* |￣| */


/* =-=-=- SQR -=-=-= */

/* bass */

$Ex4A  = @E1, 0,0,  127,18,   72,0,   28,9,  28,0,   0,0 ;       /*  4分 短 |'_    R */
$Ex4B  = @E1, 0,0,  127,16,   72,16,   0,0 ;                     /*  4分 長 |'＼     */
$Ex4C  = @E1, 0,0,  127,14,   72,16,  20,0,  12,9,  12,0,  0,0 ; /*  4分 長 |'＼_  R */
$Ex8A  = @E1, 0,0,  127,16,   72,0,   36,5,  36,0,   0,0 ;       /*  8分 長 |'-    R */
$Ex8A2 = @E1, 0,0,  127,9,   104,0,   24,8,  24,0,   0,0 ;       /*  8分 短 |'_    R */
$Ex16A = @E1, 0,0,  127,6,    80,0,   36,4,  36,0,   0,0 ;       /* 16分 短 |'-      */

$T4A{a}  = $Ex4A  @13-2 %a%5 &@13-3 %a%91 ;
$T4B{a}  = $Ex4B  @13-2 %a%5 &@13-3 %a%91 ;
$T4C{a}  = $Ex4C  @13-2 %a%5 &@13-3 %a%91 ; 
$T8A{a}  = $Ex4A  @13-2 %a%5 &@13-3 %a%14 r%29 ;
$T8A2{a} = $Ex8A2 @13-2 %a%5 &@13-3 %a%43 ;
$T8B{a}  = $Ex8A  @13-2 %a%5 &@13-3 %a%43 ;
$T8C{a}  = $Ex4A  @13-2 %a%5 &@13-3 %a%43 ;
$T16A{a} = $Ex16A @13-2 %a%5 &@13-3 %a%19 ;
$T16B{a} = $Ex8A  @13-2 %a%5 &@13-3 %a%19 ;

$Ex8D     = @E1, 0,0,  127,5,  108,12,  8,0,   0,0 ;       /* 8分 長 |＼     */
$T8D{a}   = $Ex8D @13-2 %a%5 &@13-3 %a%43 ;

$Ex8E     = @E1, 0,0,  127,5,   96,0,  32,8,  32,0,  0,0 ; /* 8分 長 |'_     */
$T8E{a}   = $Ex8E @13-2 %a%5 &@13-3 %a%43 ;

$Ex8F     = @E1, 0,0,  127,12,  80,0,  12,9,  12,0,  0,0 ; /* 8分 短 |'＼_ R */
$T8F{a}   = $Ex8F @13-2 %a%5 &@13-3 %a%43 ;
$T16F{a}  = $Ex8F @13-2 %a%5 &@13-3 %a%19 ;

$Ex16M    = @E1, 0,0,  127,5,   96,0,  16,6,  16,0,  0,0 ; /* 16分    |n_    */
$T16M1{a} = $Ex16M @13-2 %a%5 &@13-3 %a%19 ;
$T16M2{a} = $Ex16M @13-2 %a%5 &@13-3 %a%4 r%15 ;

/* code */

$Ex8a      = @E1, 0,0,  64,2,  56,0,  40,6,   40,0,   0,0 ;                      /* 8分 短(2/5) */
$T8a{a}    = $Ex8a @13-2 %a8  ;
$T8a2{a,b} = $Ex8a @13-2 /:%b %a8 :/ ;

$Ex8b      = @E1, 0,0,  48,4,  48,0,  28,10,  28,0,  14,2,  14,0,  0,0,  0,0 ; /* 8分  --_ */
$Ex16b     = @E1, 0,0,  48,4,  48,0,  28,2,   28,0,   0,0,   0,0 ;             /* 16分 -_  */

/* 調 12→16 */
$Ex8c      = @E1, 0,0,  48,6,  48,0,   0,4,    0,0,  16,4,  16,0,  0,0,  0,0 ; /* 8分 |- _ Delay  */
$Ex8d      = @E1, 0,0,  48,6,  48,0,   0,0 ;                                   /* 8分 |-          */
$Ex8e      = @E1, 0,0,  48,6,  48,10,  0,0 ;                                   /* 8分 |-n  R      */
$T8c{a}    = $Ex8c @13-2 %a%4 &@13-3 %a%44 ;
$T8d{a}    = $Ex8d @13-2 %a%4 &@13-3 %a%44 ;
$T8e{a}    = $Ex8e @13-2 %a%4 &@13-3 %a%44 ; 

/* --- Datas --- */

$SQ02 = @X127 o3
  /:2
    /:2 $T8B{g} < $T8a2{b,7} > :/ $T8B{a} << $T8a2{c,7} >> $T8B{d}  /  << $T8a2{c,7} >>
  :/
  << @13-1 $Ex0 @X64 q4 d8 e8 q10 f8 q4 f+8 r8 q16 @X127
  >> @13-2 $T16B{d} < @X108 $T16A{d} > $T8B{d} @X127
;
$SQ03 =
  /:2
    /:2 $T8B{g} < $T8a2{b,7} > :/ $T8B{a} << $T8a2{c,7} >> $T8B{d}  << $T8a2{c,4}
    /
    >> r4 @X96 q8 $T16B{d} $T16B{d} @X127 q16
  :/
  << @13-0 $Ex16b d16d16 $Ex8b d8 >>>> $T16B{d} @X112 $T16B{d+}
;
$SQ04 =
  /:2
    @X112 $T8C{e}  <  @X127 $T8a2{b,2}  >  @X104 $T8A{e}
    @X112 $T8C{f+} << @X127 $T8a2{c+,2} >> @X104 $T8A{f+}
  :/
;
$SQ05 =
  @X112 $T8C{g} << @X127 $T8a2{d,2} >> @X104 $T16B{g}   @X112 $T16B{f+}
  @X112 $T8C{e} << @X127 $T8a{d}    >> @X112 $T8C{b} <  @X127 $T8a{g+} > 
  @X120 $T8C{a} << @X127 $T8a{d}    >> @X120 $T8C{e} << @X127 $T8a{d}  >>>
  @X127 $T4A{a} <  @X112 $T4B{d} @X127
;
$SQ06 =
  /:2 $T8B{g} < $T8c{b} > $T8B{d} < $T8d{b} > :/
  $T8B{g} < $T8d{b} > $T8B{f+} < $T8d{b} > $T8B{e} < $T8d{b} > $T8B{d} < $T8e{b} >
;
$SQ07 =
  /:2 $T8B{a} << $T8d{c} >> $T8B{e} << $T8d{c} >> :/
  $T8B{a} << $T8d{c} >> $T8B{d} << $T8d{c} >> $T8B{e} << $T8d{c} >> $T8B{f+} << $T8e{c} >>
;
$SQ08 =
  /:2 $T8B{a} << $T8d{c} >> $T8B{e} << $T8d{c} >> :/
  $T8B{d} << $T8d{c} >> $T8B{a} << $T8d{c} >>
  $T8A2{d} < @X80 $T8D{d} @X127 >> $T8A2{a} << @X80 $T8D{d} >
;
$SQ09 =
  @X127 $T4C{e}  < @X80 q9 $T8D{e}  > @X104 q16 $T16M1{e}  $T16M2{e}
  @X127 $T4C{f+} < @X80 q9 $T8D{f+} > @X104 q16 $T16M1{f+} $T16M2{f+}
  @X127 $T8E{e}    @X88    $T8D{e}  < @X80  q4  $T8D{e}  > @X127 q16 $T16F{e}   q10   $T16F{f}  q16
        $T8F{f+} < @X64 q8 $T8D{f+}             $T8D{c+} > @X127 q16 $T16M1{f+} @X108 $T16M1{f+}
;
$SQ0A =
  @X127 $T4C{g} < @X80  q9  $T8D{g}  > @X127 q16 $T16F{g} $T16F{f+}
        $T4C{e}   @X104 q12 $T8D{b}    @X127 q16 $T8B{e} >
  $T8B{a} << @X64 $T16F{a} > q12 $T16F{a} < @X127 $T8D{e} > @X104 $T8D{e} @X127 q16 
  $T4A{a} $T16A{d} > $T16A{a} < $T8B{d}
;

/* --- Start --- */
$ALL $ALLT $VSQ1 q16 @Q0
/* A */ 
$SQ02
/:$LOOP
  /* B */
  $SQ03
  /* C */
  $SQ04 ns3 $SQ04 ns0 $SQ04 $SQ05
  /* D */
  $SQ06 $SQ07 $SQ06 $SQ08
  /* E */
  $SQ09 ns3 $SQ09 ns0 $SQ09 $SQ0A
:/
/* --- End --- */
;


/* =-=-=- SQR -=-=-= */

/* for A */
$S8A{a}  = @13-2 %a%8 & @13-1 %a%3 r%37 ;
$S8B{a}  = @X48 /:2 @13-2 %a%8 & @13-1 %a%3 r%13 / @X24 :/ ; /* Echo Delay */
$S8C{a}  = %a%11 r%37 ;
$S8D{a}  = %a%27 r%21 ;
$S16A{a} = @13-2 %a%4 r%20 ;

/* for B */
$S16B{a} = @X40 %a%4 & @X20 %a%3 r%17 ; /* 調 */
$S16C{a} = @X56 %a%9 & @X32 %a%4 r%11 ; /* 調 */
$S8E{a}  = @X56 %a%9 & @X32 %a%24 & @X24 %a%4 r%11 ; /* 調 */
$ExT1 = @E1, 0,0,  8,3,  127,3,  127,2,  28,54,  127,0,  127,0 ; /* n＿─￣ */

/* for C */
$S8F{a}  = @X32 %a%24 & @X16 %a%24 ; /* 調 */
$S4A{a}  = @13-1 @X60 %a%10 & @X44 %a%4 & @X38 %a%2 & @13-0 @X28 %a%27 & @X22 %a%27 r%26 ; /* 調 */

/* for D */
$S216G{a} = @X80 $ExT1 %a%184 & @X24 $Ex0 %a%24 & @X12 %a%8; /* 2+16 */
$S4G{a}   = @X80 $ExT1 %a%88  & @X24 $Ex0 %a%8 ;             /* 4    */
$S48G{a}  = @X80 $ExT1 %a%136 & @X24 $Ex0 %a%8 ;             /* 4+8  */
$S8G{a}   = @X80 $ExT1 %a%40  & @X24 $Ex0 %a%8 ;             /* 8    */
$S816G{a} = @X80 $ExT1 %a%64  & @X24 $Ex0 %a%8 ;             /* 8+16 */
$S16G{a}  = @X80 $ExT1 %a%16  & @X24 $Ex0 %a%8 ;             /* 16   */
$S16H{a}  = @X48 %a%4 & @X24 %a%9  r%11 ; /* 調 */
$S8H{a}   = @X48 %a%4 & @X24 %a%20 r%24 ; /* 調 */

/* for E */
$S2I{a}   = @13-2 @X52 %a%8 & @13-1 @X36 %a%5 & @13-0 %a%168 r%11 ; /* 2    */
$S48I{a}  = @13-2 @X52 %a%8 & @13-1 @X36 %a%5 & @13-0 %a%120 r%11 ; /* 4+8  */
$S4I{a}   = @13-2 @X52 %a%8 & @13-1 @X36 %a%5 & @13-0 %a%72  r%11 ; /* 4    */
$S8I{a}   = @13-2 @X52 %a%8 & @13-1 @X36 %a%5 & @13-0 %a%24  r%11 ; /* 8    */
$S816I{a} = @13-2 @X52 %a%8 & @13-1 @X36 %a%5 & @13-0 %a%48  r%11 ; /* 8+16 */
$S16I{a}  = @13-2 @X52 %a%8 & @13-1 @X36 %a%5                r%11 ; /* 16   */
$ExT2 = @E1, 0,0,  127,14,  127,24,
        44,5,  44,1,  92,5,  92,1,  44,5,  44,1,  92,5,  92,1,
        44,5,  44,1,  92,5,  92,1,  44,5,  44,1,   0,0 ;            /* ￣─_-_-_-_ */

/* --- Datas --- */

/* for A */
$SQ12 = @X60 /:5 $S8A{g}   $S8A{a} < $S8A{d} > :/ $S16A{g} $S16A{g} ;
$SQ13 =      /:4 $S8A{a} < $S8A{c} / $S8A{g} > :/ $S8A{e} $S8A{f+} < $S8B{d} < $S8B{d} > $S8B{d} >> ;
$SQ14 = $S8A{a} $S8A{b} < $S8A{c} $S8A{e} $S8A{g} $S8A{e} $S8A{g} $S8A{b} $S8A{a} < $S8C{d} $S8C{c} > $S8D{b} $S8C{a} r. ;

/* for B */
$SQ15 =
  > @13-2 l4 @X60 $ExT1 @Q7 b.<c16d16ag f+e8.f+16d>b
  < c.e16g16<dc8.>b16 a2 r8 < $Ex0 @Q0       $S16B{a} $S16B{a} $S16B{f+} r8.
;
$SQ16 =
  >          @X60 $ExT1 @Q7 d.>b16<d16ag f+e8.f+16dg
    a.a+16b16<ce8.d16 d2 r8   $Ex0 @Q0 @13-0 $S16C{c} $S16C{c} $S8E{c}   r8
;

/* for C */
$SQ17 =
  > @13-2 l8 @X60 $ExT1 @Q7 g+.a+16b16r16<g+16r16f+4c+.d+16  e4>b.<e16>a+2
                            b.<c+16d16r16 b16 r16a4 g. f+16  e4. < @13-1 $Ex0 @Q0 $S8F{a} > $S8F{a} r4.
;
$SQ18 =
  > @13-2 l8 @X60 $ExT1 @Q7 g+.a16b16 r16<g+8   f+4.c+16d+16  e4>b.<e16>a+4b16r16<c+16r16
                            d. e16f+16r16<d16r16c+r>g+4       a2 r4 >> $Ex0 $S4A{f+}
;

/* for D */
$SQ19 = /* Bから流用せず */
     @13-3 l4 @X72 $ExT1 @Q7 b.<c16d16ag f+e8.f+16d>b
  <  c.e16g16<dc8.>b16 a2 r8 < @13-2 $Ex0 @Q0 $S16B{a} $S16B{a} < $S16B{d} r8.
;
$SQ1A = /* Echo付のためマクロで */
  >> @13-3 @Q0 $S48G{d} > $S16G{b} < $S16G{d} $S4G{a} $S4G{g} $S4G{f+} $S816G{e} $S16G{f+} $S4G{d} $S4G{g}
     $S48G{a} $S16G{a+} $S16G{b} < $S4G{c} $S816G{e} $S16G{d} $S216G{d}
  >> @13-2 $S16H{d} $S16H{e} $S16H{f} $S16H{f+} $S16H{c} < $S8H{c}
;

/* for E */
$SQ1B =
  $ExT2
  $S816I{g+}  $S16I{a+} $S16I{b} r16 < $S16I{g+} r16 $S4I{f+} $S816I{c+} $S16I{d+}
  $S4I{e} > $S816I{b} < $S16I{e} > $S2I{a+}
  $S816I{b} < $S16I{c+} $S16I{d} r16   $S16I{b}  r16 $S4I{a}  $S816I{g}  $S16I{f+}
  $S48I{e} < @13-1 $Ex0 $S8F{a}  > $S8F{a} r4. >
;
$SQ1C =
  $ExT2
  $S816I{g+}  $S16I{a}  $S16I{b}  r16 < $S8I{g+}     $S48I{f+} $S16I{c+} $S16I{d+}
  $S4I{e} > $S816I{b} < $S16I{e} > $S4I{a+} $S16I{b} r16 < $S16I{c+} r16
  $S816I{d}   $S16I{e}  $S16I{f+} r16 < $S16I{d} r16 $S8I{c+} r8 > $S4I{g+} $S2I{a} r2 >
;

/* --- Start --- */
$ALL $ALLT $VSQ0 q16 @Q0 $Ex0 o5
/* A */ 
$SQ12 $SQ13 $SQ12 $SQ14
/:$LOOP
  /* B */
  $SQ15 $SQ16
  /* C */
  $SQ17 $SQ18
  /* D */
  $SQ19 $SQ1A
  /* E */
  $SQ1B $SQ1C
:/
/* --- End --- */
;


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

$TR01 = l8 q6 rddddddd ;
$TR02 =       reeeeeee ;
$TR03 = r q4 f+g q9 g+ q4 ar4. ;
$TR04 = rdddd << q3 d16d16>d16 r8. > ;
$TR05 = rdeff+ << q3 f+16f+16f+16 r8. >> ;
$TR05 = rdeff+ << q3 f+16f+16f+16 r8. >> ;
$TR06 = q4 $L2{rg+g+rra+a+r} ;
$TR07 =    $L2{rbbrr<c+c+>r} ;
$TR08 = rbbrrbrd rgrgc+r q9 c4 ;
$TR09 = q4 /:7 rd :/ r q9 d q4 rererere rdrdrdr q9 d ;
$TR0A = q4 /:7 rd :/ r q9 d q4 rererere rf+rf+ l16 r q8 f+ q6 gg+ad < q8 d8;
$TR0B = l16 q3 /:2 $L2{g+>b<e>b<} $L2{a+c+f+c+} :/ /:2 $L2{bdgd} $L2{<c+>eae} :/ ;
$TR0C =        /:2 $L2{g+>b<e>b<} $L2{a+c+f+c+} :/     $L2{bdgd} $L2{bdg+d} g>b q6 <d>b<g>b<d>b< q3 e r4.. > ;

/* --- Start --- */
$ALL $ALLT $VTRI @13-4 @Q0 $Ex0 o5
/* A */ 
/:2 $TR01 $TR01 $TR02 / $TR01 :/ $TR03
/:$LOOP
  /* B */
  /:2 $TR01 $TR01 $TR02 / $TR04 :/ $TR05
  /* C */
  $TR06 $TR07 $TR06 $TR08
  /* D */
  $TR09 $TR0A
  /* E */
  $TR0B $TR0C
:/
/* --- End --- */
;


/* =-=-=- NOI -=-=-= */

$ExNBe8   = @E1, 0,0,  88,10,  8,0,  0,0  e8   ; /* $ExNxyz x=Volume y=tone z=note */
$ExN4c8s  = @E1, 0,0,  48,4,   0,0,  0,0  c8   ; /* 調 */
$ExN5d8   = @E1, 0,0,  56,7,   0,0,  0,0  d8   ; /* 調 */
$ExN6d8   = @E1, 0,0,  64,7,   0,0,  0,0  d8   ; /* 調 */
$ExN7dp16 = @E1, 0,0,  56,4,  16,0,  0,0  d+16 ;
$ExN9e16  = @E1, 0,0,  72,4,  16,0,  0,0  e16  ;
$ExN5e16  = @E1, 0,0,  40,4,   8,0,  0,0  e16  ;
$ExN5dp16 = @E1, 0,0,  40,4,   8,0,  0,0  d+16 ;

$N01 = q16 /:3 $ExNBe8 $ExN7dp16 $ExN7dp16 :/ $ExN9e16 $ExN5dp16 $ExN5e16 $ExN5dp16 ;
$N02 = /:2 q6 $ExNBe8 q3 $ExN7dp16 $ExN7dp16 :/ q6 $ExNBe8 $ExN4c8s $ExN5d8 $ExN6d8 ;

/* --- Start --- */
$ALL $VNOI @7 q16 @Q0 o0 
/* A */
/:7 $N01 :/ $N02
/:$LOOP
  /* B */ 
  /:2 /:3 $N01 :/ $N02 :/
  /* C */ 
  /:7 $N01 :/ $N02
  /* D */ 
  /:8 $N01 :/ 
  /* E */ 
  /:7 $N01 :/ $N02
:/
/* --- End --- */
;


/* =-=-=- PCM -=-=-= */

$B{a} = @E1,0,0,384,0 @9-0 e%a ;
$S{a} = @E1,0,0,384,0 @9-1 e%a ;

$P01  = /:4 $B{4} / $S{4} :/ $S{8} $B{8} ;
$P01b = /:3 $B{4}   $S{4} :/ $B{8} $B{8} $S{4}  ;
$P02  = /:4 $B{4} / $S{4} :/ r8    $B{8} ;
$P02b = /:4 $B{4} / $S{4} :/ r8    $S{8} ;
$P03 = /:3 $B{4} $S{4} $B{8} $B{8} $S{4} :/;
$P04 = $B{4} $S{8} $B{4} $B{8} $S{8} $B{16} $S{16} ;
$P05 = $B{8} $S{8} $B{8} $S{8} $S{4} $B{8} $B{16} $B{16} ;
$P06 = /:3 $B{4} $S{8} $B{8} :/ r8 $B{8} $S{4} ;
$P07 = /:4 $B{4} $S{8} $B{8} :/ ;

/* --- Start --- */
$ALL $VPCM l16 q16 @Q0 o1
/* A */
$P01 $P01 $P01 $P01
/:$LOOP
  /* B */
  $P01 $P02 $P01 $P02
  /* C */
  $P03 $P04 $P03 $P05
  /* D */
  $P01 $P01b $P01 $P02b
  /* E */
  $P06 $P06 $P06 $P07
:/
/* --- End --- */
;