/*
   [FC] MOTHER [家] (C)Nintendo 1989
   FlMML MML by LinearDrive
   date:2011-06-07 [FlMML c.s.7997]
*/


#OCTAVE REVERSE
#VELOCITY REVERSE


/* エンベロープ定義 */
$EA1= @e1, 0, 0,16,6,16,17,0, 0;
$EA2= @e1, 0, 0,48,4,48,11,8, 0,24,4,24,11,8, 0,16,4,16,11,8, 0;

$EB1= @e1, 0, 0,16,13,64, 10,64,0,56,2,56, 0,8, 0;

$ED0= @e1, 0, 0,120,9,0, 0;


/* 音量バランス定義 */
$VS15= @v87;
$VT=   @v119;
$VN15= @v63;


/* シーケンサ初期化 */
$M= r8 x0 q16 @q0 o5 ns0 @d0 @x127 v0
;


/* RP2A03 SQUARE-A */
$MA0=
   $M l4 @5@w4 o6 @d0 $VS15 @l15,24,2-1,64,0,0
;
$MA1= 
   $EA1 @w4
   /:2 g+2.f2d+ g+2.f2. :/
   $EA2 @w6
   f+<f+>f+<b2.> f+<f+>f+<b2.>
   f+<f+>f+<b2.  c+fg+ a+2.>
;


/* RP2A03 SQUARE-B */
$MB0=
   $M l4 @5@w4 o6 $VS15 @l15,24,2-1,64,0,0
;
$MB1=
   $EB1
   /:2 c2c+ c.<a+8g+> c2c+ c2. :/
   d+2e d+.c+8<b> d+2e d+2.
   d+2e d+.c+8<b  a+>c+f d+2.
;


/* RP2A03 TRIANGLE */
$L4{%n}=  @l0,0,0,0,0,0 %n8& @l10,24,2-1,0,0,0 %n8&;
$L2P{%n}= @l0,0,0,0,0,0 %n8& @l10,24,2-1,0,0,0 %n8&%n2&;
$MC0=
   $M l4 @6-1 o4 $VT @e1,0,0,120,0
;
$MC1=
   /:4 $L4{g+} > $L4{c} $L4{d+} < $L4{c+} $L4{f} > $L4{c+} < :/
   /:3 $L4{b} > $L4{d+} $L4{f+} < $L4{e} $L4{g+} > $L4{e} < :/
   $L4{a+} $L4{f} $L4{c+} $L2P{g}
;


/* RP2A03 NOISE */
$MD0=
   $M l4 @7 o0 ns1 $VN15 $ED0
;
$MD1=
   /:4 rcc rcc rcc rcc :/
;


/* 再生 */
$LOOP=64;
t100
$MA0 /:$LOOP $MA1 :/;
$MB0 /:$LOOP $MB1 :/;
$MC0 /:$LOOP $MC1 :/;
$MD0 /:$LOOP $MD1 :/;


/* EOF */