/*
   [AC] MAPPY - MAIN BGM - (C)namco 1983 by LinearDrive
   date:2011-05-03
   JASRAC:099-8506-9
*/

#OCTAVE REVERSE
#VELOCITY REVERSE

/* MAPPY波形データ */
/*       |---.---l---.---|---.---l---.--- */
#WAV10 0,EEEEEEEEEEEEEEEE0000000000000000
#WAV10 1,00112233445566778899AABBCCDDEEFF
#WAV10 2,023466459AA8A7A977968656ACAACDEF
#WAV10 3,BDEDCA888ACDEDB84212357775321247
#WAV10 4,7ACDEDCA742101247BDEDB7310137E70
#WAV10 5,ACCA778BDEDA65579984101367742247
#WAV10 6,7EC9CEA7CFD8AB728D94572038513631
#WAV10 7,EE77EE77EE77EE770077007700770077


/* エンベロープ定義 */
$E0=  @e1,0,0,127,0;

$E1=  @e1, 0, 0,96, 4,96, 23, 8, 0;
$E2=  @e1, 0, 0,96, 4,96, 19,24, 0;
$E3=  @e1, 0, 0,96, 4,96, 13,48, 0;

$E11= @e1, 0, 0,96, 4,96, 17,32, 0;
$E12= $E1;
$E13= @e1, 0, 0,96, 4,96, 26, 0, 0;

$E21= @e1, 0, 0,96, 8,96, 26, 0, 0;
$E22= @e1, 0, 0,96, 2,96, 26, 0, 0;
$E23= @e1, 0, 0,96, 2,96, 0,24, 8,0,  0;
$E24= $E11;
$E25= @e1, 0, 0,96, 2,96, 0,56, 17,0, 0;
$E26= $E13;


/* 音量スケール
$V15=@v120;  $V14=@v112;  $V13=@v104;  $V12=@v96;
$V11=@v88;   $V10=@v80;   $V9= @v72;   $V8= @v64;
$V7= @v56;   $V6= @v48;   $V5= @v40;   $V4= @v32;
$V3= @v24;   $V2= @v16;   $V1= @v8;    $V0= @v0;
*/


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


/* WSG ch.1 (iv12) */
$MAI=
   $M l16 @10-4 o5 @d-50
;
$MA=
   /:2
     $E1 d+4 b4 a+4 b4>  $E0 /:7@x96c32&@x24c32/&:/ < /:9@x96b32&@x24b32/&:/ @x127
     $E1 a4 b4 a8. g e8. $E0 /:17@x96a32&@x24a32/&:/  r4  @x127
     $E1     a4 g+4 a4   $E0 /:7@x96b32&@x24b32/&:/   /:9@x96a32&@x24a32/&:/ @x127
     $E1 g4  a4 g8. e4   $E0 /:17@x96d32&@x24d32/&:/ @x127
     $E1 <b8.>d g8.<b> d8.g <b8.>g  c8.e g8.c+ e8.g c+8.g
         r4 b8.a+ a8r8 d8.g& g8r8 g8r8 f+8r8 e8r8
   :/

   <b8.>f+ d+8.<b> f+8.d+ <b8.>f+  d+8.<b> f+8.d+ <b8.>f+ d+8.<b>
   f+8.d+ <b8.>f+ d+8.<b> f+8.d+   <b8.>f+ d+8.<b> f+8.d+ <b8.>f+
   <a8.>e c+8.<a> e8.c+ <a8.>e     c+8.<a> e8.c+ <a8.>e c+8.<a>
   e8.c+ <a8.>e c+8.<a> e8.c+      <a8.>e c+8.<a> e8.c+ <a4>

   <g8.a b8.g a8.b >c8.<a  b8.>c d8.<b> c8.d e8.c
   d8.e f+8.d e8.f+ g8.a   b8.r a+8.b a+8.b a+8.b

     $E1 d+4 b4 a+4 b4>  $E0 /:7@x96c32&@x24c32/&:/ < /:9@x96b32&@x24b32/&:/ @x127
     $E1 a4 b4 a8. g e8. $E0 /:17@x96a32&@x24a32/&:/   r4  @x127
     $E1     a4 g+4 a4   $E0 /:7@x96b32&@x24b32/&:/   /:9@x96a32&@x24a32/&:/ @x127
     $E1 g4  a4 g8. e4   $E0 /:17@x96d32&@x24d32/&:/ @x127
     $E1 <b8.>d g8.<b> d8.g <b8.>g  c8.e g8.c+ e8.g c+8.g
         r4 b8.a+ a8r8 d8.g& g8r8 g8r8 f+8r8 e8r8

   $E2
   r4 b4 a+4 b4    >c4< b4 a+4 b4
   e4 >f+4 e4 <b4  g2.r4
   r4 a4 g+4 a4    b4 a4 b4 >c+4<
   d4 >d4 c4< b4   a4 r4 a+2
   r4 b4 a+4 b4    >c4< b4 a+4 b4
   r4 g4 b4 >d4    f+8.e f+8.e& e8.e d+8.e
   r4 g2 e8.<b>    d8.e <b8.>d e8.<a+ b8.g& g4 f+4 e4 d4
   g4 r8 g8 r2
      
     $E1 d+4 b4 a+4 b4>  $E0 /:7@x96c32&@x24c32/&:/ < /:9@x96b32&@x24b32/&:/ @x127
     $E1 a4 b4 a8. g e8. $E0 /:17@x96a32&@x24a32/&:/   r4  @x127
     $E1     a4 g+4 a4   $E0 /:7@x96b32&@x24b32/&:/   /:9@x96a32&@x24a32/&:/ @x127
     $E1 g4  a4 g8. e4   $E0 /:17@x96d32&@x24d32/&:/ @x127
     $E1 <b8.>d g8.<b> d8.g <b8.>g  c8.e g8.c+ e8.g c+8.g
         g8.a b8.g e8r8 d8r8  r4 f+8r8 g8r8 r4

   <g8.a b8.g a8.b >c8.<a  b8.>c d8.<b> c8.d e8.c
   d8.e f+8.d e8.f+ g8.a   b8.r a+8.b a+8.b a+8.b
;


/* WSG ch.2 (iv12) */
$MBI=
   $M l16 @10-4 o5 @d-40
;
$MB=
   /:2
     $E1 d+4 b4 a+4 b4>  $E0 /:7@x96c32&@x24c32/&:/ < /:9@x96b32&@x24b32/&:/ @x127
     $E1 a4 b4 a8. g e8. $E0 /:17@x96a32&@x24a32/&:/   r4  @x127
     $E1     a4 g+4 a4   $E0 /:7@x96b32&@x24b32/&:/   /:9@x96a32&@x24a32/&:/ @x127
     $E1 g4  a4 g8. e4   $E0 /:17@x96d32&@x24d32/&:/ @x127
     $E1 <b8.>d g8.<b> d8.g <b8.>g  c8.e g8.c+ e8.g c+8.g
         r4 b8.a+ a8r8 d8.g& g8r8 g8r8 f+8r8 e8r8
   :/

   @10-1 $E3 @d-50
   <
   <b2>d+4.f+8  g+4 b2 g+4  f+2 g+2  d+4 f+2.
   <a2>c+4.e8   f+4 a2 f+4  e2 f+2   c+4 e2.
   >
   @10-4 $E1 @d-40

   <g8.a b8.g a8.b >c8.<a  b8.>c d8.<b> c8.d e8.c
   d8.e f+8.d e8.f+ g8.a   b8.r a+8.b a+8.b a+8.b

     $E1 d+4 b4 a+4 b4>  $E0 /:7@x96c32&@x24c32/&:/ < /:9@x96b32&@x24b32/&:/ @x127
     $E1 a4 b4 a8. g e8. $E0 /:17@x96a32&@x24a32/&:/   r4  @x127
     $E1     a4 g+4 a4   $E0 /:7@x96b32&@x24b32/&:/   /:9@x96a32&@x24a32/&:/ @x127
     $E1 g4  a4 g8. e4   $E0 /:17@x96d32&@x24d32/&:/ @x127
     $E1 <b8.>d g8.<b> d8.g <b8.>g  c8.e g8.c+ e8.g c+8.g
         r4 b8.a+ a8r8 d8.g& g8r8 g8r8 f+8r8 e8r8

   $E2
   r4 b4 a+4 b4    >c4< b4 a+4 b4
   e4 >f+4 e4 <b4  g2.r4
   r4 a4 g+4 a4    b4 a4 b4 >c+4<
   d4 >d4 c4< b4   a4 r4 a+2
   r4 b4 a+4 b4    >c4< b4 a+4 b4
   r4 g4 b4 >d4    f+8.e f+8.e& e8.e d+8.e
   r4 g2 e8.<b>    d8.e <b8.>d e8.<a+ b8.g& g4 f+4 e4 d4
   g4 r8 g8 r2
      
     $E1 d+4 b4 a+4 b4>  $E0 /:7@x96c32&@x24c32/&:/ < /:9@x96b32&@x24b32/&:/ @x127
     $E1 a4 b4 a8. g e8. $E0 /:17@x96a32&@x24a32/&:/   r4  @x127
     $E1     a4 g+4 a4   $E0 /:7@x96b32&@x24b32/&:/   /:9@x96a32&@x24a32/&:/ @x127
     $E1 g4  a4 g8. e4   $E0 /:17@x96d32&@x24d32/&:/ @x127
     $E1 <b8.>d g8.<b> d8.g <b8.>g  c8.e g8.c+ e8.g c+8.g
         g8.a b8.g e8r8 d8r8  r4 f+8r8 g8r8 r4

   <g8.a b8.g a8.b >c8.<a  b8.>c d8.<b> c8.d e8.c
   d8.e f+8.d e8.f+ g8.a   b8.r a+8.b a+8.b a+8.b
;


/* WSG ch.3 (iv12) */
$MCI=
   $M l16 @10-5 o5 @d-50
;
$MC=
   /:2
     $E11  b2 g+4 e4      b4& b8.>c d4 c4<
     b4& b8.>c< b4 a4     g4& g8.f+ e4 d+4
     d8r8 a8.b a8.g e8r8  a8.b a8.g e8r8 d8.e
     g4 a4 b4 >c4         d4 c4 <b4 a4
     d8.<b> g8.d <b8.>g d8.g  e8.c g8.e c+8.g e8.c+
     r1  r4 d8.g c+8.g c8.g
   :/

   @10-1 $E3 @d-40
   <
   <b2>d+4.f+8  g+4 b2 g+4  f+2 g+2  d+4 f+2.
   <a2>c+4.e8   f+4 a2 f+4  e2 f+2   c+4 e2.
   >
   @10-5 @d-50

   $E12
   <b8.>c d8.<b> c8.d e8.c  d8.e f+8.d e8.f+ g8.e
   f+8.g a8.f+ g8.a b8.>c+  d+8.r d8.d+ d8.d+ d8.d+<
   
     $E11  b2 g+4 e4      b4& b8.>c d4 c4<
     b4& b8.>c< b4 a4     g4& g8.f+ e4 d+4
     d8r8 a8.b a8.g e8r8  a8.b a8.g e8r8 d8.e
     g4 a4 b4 >c4         d4 c4 <b4 a4
     d8.<b> g8.d <b8.>g d8.g  e8.c g8.e c+8.g e8.c+
     r1  r4 d8.g c+8.g c8.g

   @10-6 $E13
   r4 f+4 r8 f+4 r8   f+4 r8 f+4 r8 f+4
   r4 e4  r8 e4  r8   e4  r8 e4  r8 e4
   r4 e4  r8 e4  r8   e4  r8 e4  r8 e4
   r4 f+4 r8 f+4 r8   f+4 r4 f+4 r4
   r4 f+4 r8 f+4 r8   f+4 r8 f+4 r8 f+4
   r4 g4  r8 g4  r8   r4 g+4 r8 g+4 r8
   r4 e4  r4 e4       r4 d4  r4 d4
   r4 d4  r8 d4  r8   e4  r8 e8  r4 r4
   @10-5

     $E11  b2 g+4 e4      b4& b8.>c d4 c4<
     b4& b8.>c< b4 a4     g4& g8.f+ e4 d+4
     d8r8 a8.b a8.g e8r8  a8.b a8.g e8r8 d8.e
     g4 a4 b4 >c4         d4 c4 <b4 a4
     d8.<b> g8.d <b8.>g d8.g  e8.c g8.e c+8.g e8.c+
     r1  r4 a8r8 g8r8 r4

   $E12
   <b8.>c d8.<b> c8.d e8.c  d8.e f+8.d e8.f+ g8.e
   f+8.g a8.f+ g8.a b8.>c+  d+8.r d8.d+ d8.d+ d8.d+<
;


/* WSG ch.4 (iv12) */
$MDI=
   $M l16 @10-5 o5 @d-40
;
$MD=
   /:2
     $E11  b2 g+4 e4      b4& b8.>c d4 c4<
     b4& b8.>c< b4 a4     g4& g8.f+ e4 d+4
     d8r8 a8.b a8.g e8r8  a8.b a8.g e8r8 d8.e
     g4 a4 b4 >c4         d4 c4 <b4 a4
     d8.<b> g8.d <b8.>g d8.g  e8.c g8.e c+8.g e8.c+
     r1  r4 d8.g c+8.g c8.g
   :/

   @10-2 @d-50
   <
   $E21 b4 r4 f+4 r8 r $E22 b& b8.$E23 b $E22 a+4 g+4 f+4
   $E25 b4 >c+4 d+4 f+4   $E22 b8.$E23 b $E22 a+4 g+4 f+4<
   $E21 a4 r4 e4  r8 r $E22 a& a8.$E23 a $E22 g+4 f+4 e4
   $E25 a4 b4>  c+4 e4    $E22 a8.$E23 a $E22 g+4 f+4 e4<
   >
   @10-5 @d-40

   $E12
   <b8.>c d8.<b> c8.d e8.c  d8.e f+8.d e8.f+ g8.e
   f+8.g a8.f+ g8.a b8.>c+  d+8.r d8.d+ d8.d+ d8.d+<
   
     $E11  b2 g+4 e4      b4& b8.>c d4 c4<
     b4& b8.>c< b4 a4     g4& g8.f+ e4 d+4
     d8r8 a8.b a8.g e8r8  a8.b a8.g e8r8 d8.e
     g4 a4 b4 >c4         d4 c4 <b4 a4
     d8.<b> g8.d <b8.>g d8.g  e8.c g8.e c+8.g e8.c+
     r1  r4 d8.g c+8.g c8.g

   @10-6 $E13
   r4 d+4 r8 d+4 r8   d+4 r8 d+4 r8 d+4 <
   r4 b4  r8 b4  r8   b4  r8 b4  r8 b4
   r4 a4  r8 a4  r8   a4  r8 a4  r8 a4  >
   r4 d4  r8 d4  r8   d4  r4 d4  r4
   r4 d+4 r8 d+4 r8   d+4 r8 d+4 r8 d+4
   r4 d4  r8 d4  r8   r4 d4 r8 d4 r8
   r4 c4  r4 c4       <r4 a4 r4 a4
   r4 b4  r8 b4  r8   b4  r8 b8  r4 r4  >
   @10-5

     $E11  b2 g+4 e4      b4& b8.>c d4 c4<
     b4& b8.>c< b4 a4     g4& g8.f+ e4 d+4
     d8r8 a8.b a8.g e8r8  a8.b a8.g e8r8 d8.e
     g4 a4 b4 >c4         d4 c4 <b4 a4
     d8.<b> g8.d <b8.>g d8.g  e8.c g8.e c+8.g e8.c+
     r1  r4 a8r8 g8r8 r4

   $E12
   <b8.>c d8.<b> c8.d e8.c  d8.e f+8.d e8.f+ g8.e
   f+8.g a8.f+ g8.a b8.>c+  d+8.r d8.d+ d8.d+ d8.d+<
;


/* WSG ch.5 (iv12) */
$MEI=
   $M l16 @10-2 o4 @d-40
;
$ME=
   /:2
     $E21 e4 r4 <b4> r8 r $E22 e& e8.$E23 e $E22 <b4> e8. $E23 f+ $E22 g+4
     $E21 a4 r4  e4  r8 r $E22 a& a8.$E23 a $E22 g4 f+4 e4
     $E21 d4 r4 <a4> r8 r $E22 d& d8.$E23 d $E22 <a4> d8. $E23 e  $E22 f+4
     $E21 g4 r4  d4  r8 r $E22 g& g8.$E23 g $E22 d4 c+4 c4<
     $E21 g4>g4<g4>g4    <a4>a4<a+4>a+4<
     $E24 b4 r4 r4>d8.g& g8r8 g8r8 a8r8 a+8r8
   :/

   $E21 b4 r4 f+4 r8 r $E22 b& b8.$E23 b $E22 a+4 g+4 f+4
   $E25 b4 >c+4 d+4 f+4   $E22 b8.$E23 b $E22 a+4 g+4 f+4<
   $E21 a4 r4 e4  r8 r $E22 a& a8.$E23 a $E22 g+4 f+4 e4
   $E25 a4 b4>  c+4 e4    $E22 a8.$E23 a $E22 g+4 f+4 e4<

   $E21 <g4>g4<a4>a4   <b4>b4 c4>c4
   <d4>d4<e4>e4<       $E25 f+4 f+4 d+4 <b4>

     $E21 e4 r4 <b4> r8 r $E22 e& e8.$E23 e $E22 <b4> e8. $E23 f+ $E22 g+4
     $E21 a4 r4  e4  r8 r $E22 a& a8.$E23 a $E22 g4 f+4 e4
     $E21 d4 r4 <a4> r8 r $E22 d& d8.$E23 d $E22 <a4> d8. $E23 e  $E22 f+4
     $E21 g4 r4  d4  r8 r $E22 g& g8.$E23 g $E22 d4 c+4 c4<
     $E21 g4>g4<g4>g4    <a4>a4<a+4>a+4<
     $E24 b4 r4 r4>d8.g& g8r8 g8r8 a8r8 a+8r8

   $E26
   b4 r4 f+4  r8 r b& b8. b f+4 b8.>c+ d+4
   e4 r4 <b4> r8 r e& e8. e d4  c+8.c+ <b4
   a4 r4  e4  r8 r a& a8. a e4  a8. b  >c+4
   d4 r4  r2  r2 d2 <
   b4 r4 f+4  r8 r b& b8. b >c4 <b8.b  a4
   g4 r4 b4 >d4    e4 g+2 e4
   c2 c2   d2 d2 <
   g4 f+4 e4 d4  g4 r8 g8 r2

     $E21 e4 r4 <b4> r8 r $E22 e& e8.$E23 e $E22 <b4> e8. $E23 f+ $E22 g+4
     $E21 a4 r4  e4  r8 r $E22 a& a8.$E23 a $E22 g4 f+4 e4
     $E21 d4 r4 <a4> r8 r $E22 d& d8.$E23 d $E22 <a4> d8. $E23 e  $E22 f+4
     $E21 g4 r4  d4  r8 r $E22 g& g8.$E23 g $E22 d4 c+4 c4<
     $E21 g4>g4<g4>g4    <a4>a4<a+4>a+4
     $E22 g8. $E23 a $E22 b8. $E23 g $E25 e4 d4
     $E22 d8. $E23 e $E25 f+4 g4 r4

   $E21 <g4>g4<a4>a4   <b4>b4 c4>c4
   <d4>d4<e4>e4<       $E25 f+4 f+4 d+4 <b4>
;


/* 再生 */
$LOOP=24;
t225.00
$MAI /:$LOOP $MA :/;
$MBI /:$LOOP $MB :/;
$MCI /:$LOOP $MC :/;
$MDI /:$LOOP $MD :/;
$MEI /:$LOOP $ME :/;


/* EOF */