/*
   [FC] MOTHER [ラップ現象] (C)Nintendo 1989
   FlMML MML by LinearDrive
   date:2011-06-11 [FlMML c.s.7997]
*/


#OCTAVE REVERSE
#VELOCITY REVERSE


/* エンベロープ定義 */
$EA1= @e1, 0, 0,120,2,120,0,72,2,72,0,64,2,64,0,56,32,24, 0;
$EB1= @e1, 0, 0,120,2,120,0,72,2,72,0,64,2,64,0,56,25,32, 0;
$ED0= @e1, 0, 0,120,9,0, 0;


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


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


/* RP2A03 SQUARE-A */
$MA0=
   $M l16 @5@w1 o4 @d0 $VS15 @l10,48,2-1,96,0,0 @q2 r48
   $EA1
   c2r2 d+8.d8.c+8.c8.<b8a+8>
   c2r2 d+8.d8.f8&f4.r8
;
$MA1= 
   /:5
     c2r2 d+8.d8.c+8.c8.<b8a+8>
     c2r2 d+8.d8.f8&f4.r8
     g2 g+2 a+2 g+2
     g2 g+2 a+2 g+2
   :/
;


/* RP2A03 SQUARE-B */
$MB0=
   $M l16 @5@w1 o3 $VS15 @l10,48,2-1,72,0,0 @q2 r96
   $EB1
   ffffffffffffffff g+8.g8.f+8.f8.e8d+8
   ffffffffffffffff g+8.g8.a+8&a+4.r8
;
$MB1=
   /:5
     ffffffffffffffff g+8.g8.f+8.f8.e8d+8
     ffffffffffffffff g+8.g8.a+8&a+4.r8
     >
     c2 c+2 d+2 c+2
     c2 c+2 d+2 c+2
     <
   :/
;


/* RP2A03 TRIANGLE */
$MC0=
   $M l16 @6-1 o3 $VT @e1,0,0,120,0 @q3
   f8.r r2. r1
   f8.r r2. r1
;
$MC1=
   /:5
     /:3 ffffffffffffffff :/ g+g+g+ggga+a+a+a+a+a+a+a+a+a+ >
     /:2 cccccccccccccccc :/ /:2 <c>c<c>c<c>c<c>c<c>c<c>c<c>c<c>c :/ <
   :/
;


/* RP2A03 NOISE */
$HFR1= crcrcccr cccccccc  crcrcccr cccccccc;
$HFR2= cccccccc cccccccc  rrrrrrrr rrrrrrrr;
$HFR3= crcrcccr cccccccc  rrrrrrrr rrrrrrrr;
$MD0=
   $M l16 @7 o0 ns1 $VN15 $ED0
   c4r2. r1
   c4r2. r1
;
$MD1=
   $HFR1
   $HFR2
   $HFR1
   $HFR1

   $HFR1
   $HFR1
   $HFR1
   $HFR1

   $HFR1
   $HFR3
   $HFR1
   $HFR2

   $HFR1
   $HFR1
   $HFR1
   $HFR1

   $HFR1
   $HFR1
   $HFR1
   $HFR3
;


/* RP2A03 DPCM */
$DB= @9-0c;
$DS= @9-1c;
$DFR1= $DB8$DS8$DB$DB$DS8 $DB$DB$DS$DB8$DB$DS8;
$DFR2= $DS$DB$DB $DS$DB$DB $DS$DB $DS$DB$DB $DS$DB$DB $DS$DB;
$DFR3= $DS32$DS32$DS$DS$DS $DS32$DS32$DS$DS$DS $DS32$DS32$DS$DB$DB $DS32$DS32$DS$DB$DB;
$DFR4= /:16 $DS32 :/  $DB32$DB32$DS$DS$DS$DS$DB$DB$DB;
$ME0=
   $M l16 @9-0 o0 ns14 $VD @e1,0,0,380,0
   $DBr8.r2.
   $DS$DB$DB $DS$DB$DB $DS$DB$DB $DS$DB$DB $DS$DB$DS$DB
   $DBr8.r2.
   $DS32$DS32$DS$DS$DB $DS32$DS32$DS$DS$DB $DS$DS$DS$DS$DS$DS$DS$DS  
;
$ME1=
   $DFR1
   $DFR1
   $DFR2
   $DFR3
   $DFR1
   $DFR1
   $DFR1
   $DFR1

   $DFR1
   $DFR1
   $DFR1
   $DFR1
   $DFR1
   $DFR1
   $DFR1
   $DFR1

   $DFR1
   $DFR1
   $DFR1
   $DFR4
   $DFR1
   $DFR1
   $DFR2
   $DFR3

   $DFR1
   $DFR1
   $DFR1
   $DFR1
   $DFR1
   $DFR1
   $DFR1
   $DFR1

   $DFR1
   $DFR1
   $DFR1
   $DFR1
   $DFR1
   $DFR1
   $DFR1
   $DFR4
;


/* 再生 */
$LOOP=32;
t150
$MA0 /:$LOOP $MA1 :/;
$MB0 /:$LOOP $MB1 :/;
$MC0 /:$LOOP $MC1 :/;
$MD0 /:$LOOP $MD1 :/;
$ME0 /:$LOOP $ME1 :/;


/* DPCM定義 */
#WAV9 0,40,0,/////////7ZCBAAAAAAAIEm1qqpKJAFR2raqbff///////Z226tVpUQQIAAABAiQKFGqWrVte/fu3bd3W1u1UkkSEgkSIklIpSpVZbW1rbZt27Zt27a1rdaqKlVKpSRJKgmVolRJU7VEatVqrdZEAKs=

#WAV9 1,40,0,/7cgCwAAAADA//////////8AAAAAAADACwAAgP3//////////xcAAAAAAAAA8P//////flHtRIEQAYIYK0JTgW/Y2+vnv+sf+5UkSAACAODFwL/4//+6Dn7EUGgqVgJvd074RZUgVlBjP/T/8J34IbIgjg0Yz4KviuM/eP0YzgKHWODER+nf8VM7ipc4CKkD3uL4D57sibIHOOJj8ePDe0KvKI4qjkKDWh36seur1mLaoeLQNJyFjq7EenIdplUcuVI9i56dTpYqC+KopJUtu3Kt9JFai1IlTpxaeWrXpI6cdLCitIlnNW0rN7ZFpanFpA==


/* EOF */