/*
  DOS/Vプログラミングリファレンス(ISBN489052715X) FM音源 サンプル曲 「Toy Train」(FM1312/OPL2版)

  参考:
    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

  メモ：
    LFO周期設定値 ＝ テンポ(T136)×96(Ticks)÷60(sec)÷周波数(Hz)
    T136 で 6.4Hz の場合は 34、 3.7Hz の場合は 59(58.81081…) 

  以下「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
Base1           DW      0000H
                DB       3, 0, 0, 0, 0, 0, 0, 0
                DB       1, 1, 1, 1, 1, 0,22,13, 1, 2, 7
                DB       0, 1, 0, 0, 1, 0,24,15, 1, 1, 8
Base2           DW      0000H
                DB       5, 0, 0, 0, 0, 0, 0, 0
                DB       0, 0, 0, 0, 1, 0,22,15, 3, 1,10
                DB       0, 0, 0, 0, 1, 0,24,15, 5, 8, 8
Flute           DW      0000H
                DB       2, 0, 0, 0, 0, 0, 0, 0
                DB       1, 1, 1, 0, 5, 3,37, 8, 0, 0, 7
                DB       1, 1, 1, 0, 1, 1,10, 6, 0, 0,14
Back1           DW      0000H
                DB       3, 1, 0, 0, 0, 0, 0, 0
                DB       0, 1, 1, 0, 1, 2,18, 6, 4, 1, 7
                DB       0, 1, 1, 1, 2, 2,21, 5, 5, 1, 7
Back2           DW      0000H
                DB       6, 0, 0, 0, 0, 0, 0, 0
                DB       1, 1, 0, 0, 1, 1,18,15, 1, 6,13
                DB       1, 1, 1, 0, 1, 0,18, 8, 4, 7,14
Trumpet         DW      0000H
                DB       6, 0, 0, 0, 0, 0, 0, 0
                DB       1, 1, 1, 0, 1, 0,38, 3, 0, 2,13
                DB       0, 1, 1, 0, 1, 2,10, 4, 2, 3,11
*/
$vib=@l7,34,0,0,0,0; $am=@l23,59,0,0,0,1;
$offvib=@l0,0,0,0,0,0; $offam=@l0,0,0,0,0,1;
$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 v10 @d1200;
$SNDF4=@o1,0 @0 @e1,20,80, 16,112,0,1 v10 @d2790;
$SNDM4=@i2,0 @0 @e1, 0,80,  8, 80,0,1 v 9 @d   0;
$SNDF5=@o1,0 @0 @e1,16,16,112, 64     v 9 @d   0 $vib $am;
$SNDM5=@i2,0 @0 @e1, 0,16,120, 56     v 8 @d   0;
$SNDF6=@o1,0 @0 @e1, 0,45,120, 40,0,1 v 9 @d   0;
$SNDM6=@i3,0 @0 @e1, 0,60, 64, 56,0,1 v 6 @d   0;
$SNDF7=@o1,0 @0 @e1,25, 0,127, 64     v 6 @d2790 $vib;
$SNDM7=@i2,0 @0 @e1,32, 0,127,  8     v11 @d   0 $vib;
$SNDF8=@i0,1 @0 @e1,32,32,110, 64     v 3 @d   0 $vib;
$SNDM8=@i0,1 @0 @e1,37,40,110, 64     v 4 @d1200 $vib $am;
$SNDF9=@o1,0 @0 @e1, 2, 8, 56, 16,0,1 v10 @d   0 $offvib;
$SNDM9=@i3,0 @0 @e1,18,32, 64,  8,0,1 v 8 @d   0 $offam $vib;
$SNDF0=@o1,0 @0 @e1,48, 4,112, 16     v 6 @d   0 $vib;
$SNDM0=@i3,0 @0 @e1,41,28,104, 32     v 8 @d   0 $vib;
$C=@4@n125@e1,0,20,0,7 v12 c/* バスドラム   */;
$D=@4@n110@e1,0,28,0,9  v6 d/* スネアドラム */;
$E=@0     @e1,0,20,0,8 v14 e/* タムタム    */;
$F=@4 @n40@e1,1,10,0,0  v6 f/* ハイハット(クローズ) */;
$G=@4  @n0@e1,1,80,0,0  v5 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. :/;
$TC=>>/: l8 /:8 cb+ :/ /:4 d<d> :/  bb4/a4g4. :/ <c4d4.
      /: /:4 >e<e :/ cc-c>baba4 /:4 d<d> :/  bab<cc-cd4 :/  <;
$TD=/: l8 c>eg<c&c2  l4 r>eg<c d.>ab8b+  b8b<cd. :/;
$TE=/: e.c-c-8e8c-8  c8c>ba.< d.>aa8<d8>a8  b8b<cd. :/;
$TF=/: <c8c4>g8&g2  r4e4g4<c4 d8d4>a8&a2  b8b4/a4g4. :/ <c4d4.;
$TG=/: e2&e8f8e8d8  c4.>b4.a4< d2&d8/e8d8c8  >b4.a4.g4< :/ >a8<d8>a8  b8b4<c4d4.>;
$TH=> /: <c8c4>g8&g2  r4e4g4<c4 d8d4>a8&a2  b8b4/a4g4. :/ <c4d4.;
$TI=/: g2&g8a8g8f8  e4.d4.c4 f2&f8/g8f8e8  d4.c4.c-4 :/ c8f8c8  d8d4e4f4.;
$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 $SNDF5 $TC :/;
$ST r1 /:$RP $SNDM5 $TC :/;

/***** トラック３ (ベース２) *****/
$ST r1 /:$RP $SNDF6 $TC :/;
$ST r1 /:$RP $SNDM6 $TC :/;

/***** トラック４ (サブ・メロディ) *****/
$ST r1 /:$RP 
  $SNDF7 $TD <
  $SNDF0 $TE >
:/;
$ST r1 /:$RP
  $SNDM7 $TD <
  $SNDM0 $TE >
:/;

/***** トラック５ (バッキング１) *****/
$ST r1 /:$RP
  $SNDF8 $TF
  $SNDF9 $TG
:/;
$ST r1 /:$RP
  $SNDM8 $TF
  $SNDM9 $TG
:/;

/***** トラック６ (バッキング２) *****/
$ST r1 /:$RP
  $SNDF8 $TH
  $SNDF9 $TI
:/;
$ST r1 /:$RP
  $SNDM8 $TH
  $SNDM9 $TI
:/

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