/*
  DOS/Vプログラミングリファレンス(ISBN4-89052-715-X) FM音源 サンプル曲 「Toy Train」(メロディーFM音源化版)

  参考:
    http://dic.nicovideo.jp/mml/3446
    http://wiki.nika-2ch.net/?doc/YMF-262
    http://www.apache-band.com/apchhp/music_theory/frequency_temperament.html
    http://www.imelo.net/oto/allow/pc/thru_notes.html
    http://dic.nicovideo.jp/id/4330505

  以下「TTRAIN.ASM」より引用
;*****                                          *****
;*****  Ｔｏｙ　Ｔｒａｉｎ　スコア              *****
;*****                                          *****
;*****  Composed by Takeaki.Sugimoto            *****
;*****                                          *****
;*****  (C)  Copyright  1995/2  TechnoBrain.    *****
;*****                                          *****

;*****   音源データ   *****
;
;       DW      FREQ
;       DB      FB,  CON,  WAV1, WAV2, 0, 0, 0, 0
;       DB      KSR1,EGT1,VIB1,AM1,MUL1,KSL1,TL1,AR1,DR1,SL1,RR1
;       DB      KSR2,EGT2,VIB2,AM2,MUL2,KSL2,TL2,AR2,DR2,SL2,RR2

Bell            DW      0000H
                DB       4, 0, 0, 0, 0, 0, 0, 0
                DB       0, 0, 0, 0, 7, 1,28,15, 2, 6, 4
                DB       1, 0, 0, 0, 2, 0,17,15, 2, 7, 4
Marinba         DW      0000H
                DB       5, 0, 0, 0, 0, 0, 0, 0
                DB       0, 0, 0, 0, 5, 1,24,10,10, 2, 7
                DB       0, 0, 0, 0, 1, 0,13,15,10, 1, 5
*/
#WAV10 5,79bcaa99dcbb579b899afdb931000011
$SND3=/* Bell    */@10-5@E1,0,51,0,1 v7 q15 ns12;
$SNDF3=@o1,0 @0 @e1, 0,32,48, 64,0,1 v 9 @d3375;
$SNDM3=@i2,0 @0 @e1, 0,32,56, 64,0,1 v12 @d1200;
$SND4=/* Marinba */@2@E1,0,20,0,0   v14 q10 ns0;
$SNDF4=@o1,0 @0 @e1,20,80,16,112,0,1 v10 @d2790;
$SNDM4=@i2,0 @0 @e1, 0,80, 8, 80,0,1 v12 @d   0;
$SND5=/* Base    */@1@E1,2,9,100,21 v10  q8;
$SND7=/* Flute   */@0@E1,9,13,83,7   v9 q16;
$SND8=/* Back1   */@2@E1,6,12,90,15  v9 q10;
$SND9=/* Back2   */@3@E1,1,44,0,12   v4 q12 @w36;
$SND0=/* Trumpet */@2@E1,13,21,80,7  v5 q14;
$C=@4@n125@e1,0,20,0,7 v14 c/* バスドラム   */;
$D=@4@n110@e1,0,28,0,9  v8 d/* スネアドラム */;
$E=@0     @e1,0,20,0,8 v13 e/* タムタム    */;
$F=@4 @n40@e1,1,10,0,0  v7 f/* ハイハット(クローズ) */;
$G=@4  @n0@e1,1,80,0,0  v6 g/* シンバル (トップ) */;
$TA=/: l8 c>eg<c&c2  l4 r>eg<c d.>ab8b+  b8b<c/d. :/ d8;
$TB=c8d8 /: e.c-c-8e8c-8  c8c>ba.< d.>aa8<d8>a8  b8b<cd. :/;
$RP=16; $ST=r4.o5 v6; T136

/***** トラック０ (パーカッション) *****/
$ST @d125 l8 $F$F$F$F$C$E$D$D /:$RP
  /: /:12 $C$D :/ $D$Dr$D$D4$C$D16$D16 :/
  /:4 $C$D :/ $C$D$D$C$D$D$C$D
  /:4 $C$D :/ $G4$G4$C$E$E$E
  /:4 $C$D :/ $C$D$D$C$D$D$C$D
  /:4 $C$D :/ $C$D$D$C$D$D$C$D16$D16
:/;

/***** トラック１ (メロディ) *****/
$ST r1 /:$RP  < 
  $SNDF3 $TA
  $SNDF4 $TB
  >
:/;
$ST r1 /:$RP <
  $SNDM3 $TA
  $SNDM4 $TB
  >
:/;

/***** トラック２ (ベース１) *****/
$ST r1 /:$RP $SND5  >>
  /:
    l8 /:8 cb+ :/
    /:4 d<d> :/  bb4/a4g4.
  :/
  <c4d4.
  /:
    /:4 >e<e :/  cc-c>baba4
    /:4 d<d> :/  bab<cc-cd4
  :/  <
:/;

/***** トラック４ (サブ・メロディ) *****/
$ST r1 /:$RP $SND7
  /:
    l8 c>eg<c&c2  l4 r>eg<c
    d.>ab8b+  b8b<cd.
  :/
  $SND0 <
  /:
    e.c-c-8e8c-8  c8c>ba.<
    d.>aa8<d8>a8  b8b<cd.
  :/  >
:/;

/***** トラック５ (バッキング１) *****/
$ST r1 /:$RP $SND8
  /:
    <c8c4>g8&g2  r4e4g4<c4
    d8d4>a8&a2  b8b4/a4g4.
  :/
  <c4d4. $SND9
  /:
    e2&e8f8e8d8  c4.>b4.a4<
    d2&d8/e8d8c8  >b4.a4.g4<
  :/
  >a8<d8>a8  b8b4<c4d4.>
:/;

/***** トラック６ (バッキング２) *****/
$ST r1 /:$RP $SND8  >
  /:
    <c8c4>g8&g2  r4e4g4<c4
    d8d4>a8&a2  b8b4/a4g4.
  :/
  <c4d4. $SND9
  /:
    g2&g8a8g8f8  e4.d4.c4
    f2&f8/g8f8e8  d4.c4.c-4
  :/
  c8f8c8  d8d4e4f4.
:/

/*********************************************************
  by nika ◆nika/si95E (http://dic.nicovideo.jp/u/200584)
 *********************************************************/