/*
   [PC98:OPN] BRANDISH 3 - MISTY - (C)Falcom 1994 by LinearDrive
   date:2010-12-22 [FlMML rev.38704]
   JASRAC:030-4843-8
*/

#OCTAVE REVERSE
#VELOCITY REVERSE

$POFF = @o0,0 @o0,1 @o0,2 @o0,3 @i0,0 @i0,1 @i0,2 @i0,3;

/* FM音色定義(エレピ) */
$FM1 = x1 $POFF @o1,0 @13-0 @e1,0,0,127,99999      @v118 ns12 @d-3;
$FM2 = x1 $POFF @i4,0 @0    @e1,2,15,103,384,0,64        ns12 @d-3;
$FM3 = x1 $POFF @o1,1 @0    @e1,0,0,127,99999      @v119 ns12 @d3;
$FM4 = x1 $POFF @i4,1 @0    @e1,0,15,103,384,0,64        ns12 @d3;


$A1M= 
      o4
      /:2 a32>e16.<a4 r16c8f8>c16<a32>e4&e16.<f32>d8&d32c16<b16a32.
      d32b2&b16.. / g16.. e32 b2&b8...  :/ > 
      g8<g32>e4&e16.r16<< b8> g16a16 b16a8.
      g+16a16b16>c4<b8>d8c8<b8e8.r16e8d4f16a16>d4e16f16c32a4&a16<b32> g+4.<  
      /:2 e32>c8&c32d16c16.< / d32b4. :/
      e32b8a8b8f32>c8&c32d16c16.<e32b8a8g8e32b4&b16.<b32>e8&e32r16d8
;
$A1C=
      o4
      /:2 @v119 a32>e16.<a4 (((((((( r16c8f8>c16<a32>e4&e16.< )))))))) f32> d8&d32c16<b16a32.
      (((( d32b2&b16.. )))) / g16.. )))) e32 (((((((((((( b2&b8... )))))))) :/ > 
      g8<g32>e4&e16.r16<<
@v111 b8>g16a16 )))) b16a8.g+16a16b16>c4<b8>d8c8<b8e8.r16e8d4f16a16>d4e16f16c32a4&a16<
      )))) b32> (((( g+4.< 
@v119 /:2 e32>c8&c32d16c16.<  / d32b4. :/
      e32b8a8b8f32>c8&c32d16c16.<e32b8a8g8e32b4&b16.<b32>e8&e32r16d8
;


$B1M=
      o5
      /:2 r64c16..&e4< r8e8a8r64>c4&c16..< r64a8&a32.&>d8&d32.r64< g2&g8& / b16..r64 g2.> :/
      b8r64 b4&b16..r16
      /*@d-4*/
      r16e8 f16e16 c8.<b16>c16d16e4d8f8e8d8<g8.r16g8f4a16>d16f4g16a16r64>
      e64&c4&c16r64 e4.&e64< 
      /:2 r64a4&a16&a64 / r64g4.&g64 :/
      r64g4&g64 e8 r64a4&a16&a64r64g4&g64 e8r64g4&g16..r64c32a8&a64r16g8>
;
$B1C=
      o5
      /:2 @v119 r64c16..&e4< (((((((( r8e8a8r64>c4&c16..< )))))))) r64a8&a32.&>d8&d32.r64<
      (((( g2&g8& )))) / b16..r64 (((( g2.> )))) :/
      b8r64 (((( b4&b16..r16
      /*@d-4*/
@v111 r16e8 )))) f16e16 (((( c8.<b16>c16d16e4d8f8e8d8<g8.r16g8f4a16>d16f4g16a16r64>
      e64&c4&c16r64 )))) e4.&e64<
@v119 /:2 r64a4&a16&a64 / r64g4.&g64 :/
      r64g4&g64 (((( e8 )))) r64a4&a16&a64r64g4&g64 (((( e8 )))) r64g4&g16..r64c32a8&a64r16g8>
;


$C1= 
      o2
      /:2
        /:4 f16>c16f16c16g16c16< :/
        /:3 e16b16>e16<b16>f+16<b16 :/ >
        g16<b16>f+16<b16>e16<b16
      :/
      f16>c16f16c16a16c16<a16>e16a16e16>c16<e16<b16>b16<a16>
      a16<g16>g16<c16g16>c16<g16>e16<g16 
      /:2 d16a16>d16<a16>f16<a16 :/ 
      e16b16>e16<b16>f+16<b16>a16<b16>f+16<b16>g+16<b16
      /:2 a16>e16a16e16>c16r16<< / g16>d16g16d16b16r16< :/
      e16b16>e16<b16>g16<b16f16>c16f16c16a16c16<e16b16>
      e16<b16>g16<b16a16>e16a16b16>c16e16<<a8.r16g8
;
$C1M=$C1;
$C1C=@v111 $C1;


$EvD1=@e1,0,3,127,0,111,64;
$EvD2=@e1,0,6,119,64;
$D1= 
      x1 q16@q0 @3@w50 ns0 @d0 l16 o5
      o5 $EvD1 v9
      /:2 a4.>e8.d16c16<b16>c4.<a4>e8d4.g8f8d8
      / e4.c16<b16b16a16a16g16 :/ < b4. ((( b16 )))
      $EvD2
      b16>e16g16a16b16
      ) 
      $EvD1
      c8.d16e16f16e4d8f8e8d8e16d16d16c16c16<b16a4.f8a8>d8c4.<b16>c16c16d16d16f16
      /:2 e16c16d16e16f16 ((( f16 ))) / d16g16g16f16d16 ((( d16 ))) :/
      d16c16c16<b16b16g16a4.b4.>c4.e8.r16d8<
      (
;


$E1= 
      x1 q16@q0 @3@w50 ns0 @d0 l16 o5
      o5 @d5 $EvD1 v9
      /:2 f4.>c8.<b16a16g16a4.f4>c8<b4.>e8d8<b8 / b4.a16g16g16e16e16e16 :/
      g4. ((( g16 )))
      $EvD2
      e16a16b16>c16d16< 
      )
      $EvD1
      a8.b16>c16d16c4<b8>d8c8<b8>c16<b16b16a16a16g16f4.d8f8a8a4.g+16a16a16b16b16>d16
      /:2 c16<a16b16>c16d16 ((( d16< ))) / b16>d16d16d16<b16 ((( b16> ))) :/
      b16a16a16g16g16e16f4.g4.a4.>c8.r16<b8
      (
;


$F1= 
      x1 q16@q0 @3@w50 ns0 @d0 l16 o4
      o5 @d-10 $EvD1 v9
      /:2 a4.>e8.d16c16<b16>c4.<a4>e8d4.g8f8d8 / e4.c16<b16b16a16a16g16 :/
      < b4. ((( b16 ))
      $EvD2
      b16>e16g16a16b16
      )
      $EvD1
      c8.d16e16f16e4d8f8e8d8e16d16d16c16c16<b16a4.f8a8>d8
      c4.<b16>c16c16d16d16f16
      /:2 e16c16d16e16f16 ((( f16 ))) / d16g16g16f16d16 ((( d16 ))) :/
      d16c16c16<b16b16g16a4.b4.>c4.e8.r16d8<
      
;


/* 演奏(FM) */
$LOOP=48;
t52.65
$FM1 /:$LOOP $A1M :/;
$FM2 /:$LOOP $A1C :/;
$FM3 /:$LOOP $A1M :/;
$FM4 /:$LOOP $A1C :/;

$FM1 /:$LOOP $B1M :/;
$FM2 /:$LOOP $B1C :/;
$FM3 /:$LOOP $B1M :/;
$FM4 /:$LOOP $B1C :/;

$FM1 /:$LOOP $C1M :/;
$FM2 /:$LOOP $C1C :/;
$FM3 /:$LOOP $C1M :/;
$FM4 /:$LOOP $C1C :/;

/* 演奏(SSG) */
/:$LOOP $D1 :/;
/:$LOOP $E1 :/;
/:$LOOP $F1 :/;


/*
   波形メモリ定義（フィードバック変調済み正弦波）
   【生成式】 y = [TL]sin( rd + [FB][2*pi]last_y )
   【パラメータ】 TL:OPN-TotalLevel, rd:ラジアン, FB:OPN-FB変調率, pi:円周率, last_y:前回のy.
   【生成情報】 １周期分８８０サンプル生成。 TL=21(0.1631..倍), FB=5(0.5倍).
*/
#WAV13 0,8082848687898B8D8F91929496989A9C9D9FA1A3A4A6A8A9ABADAEB0B2B3B5B6B8B9BBBCBEBFC1C2C4C5C6C8C9CACCCDCECFD0D2D3D4D5D6D7D8D9DADBDCDDDEDFE0E1E2E3E4E4E5E6E7E8E8E9EAEBEBECEDEDEEEFEFF0F0F1F1F2F2F3F3F4F4F5F5F6F6F7F7F7F8F8F9F9F9FAFAFAFBFBFBFBFCFCFCFCFDFDFDFDFDFEFEFEFEFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFEFEFEFEFEFDFDFDFDFDFDFCFCFCFCFCFBFBFBFBFBFAFAFAFAF9F9F9F9F8F8F8F8F7F7F7F7F6F6F6F5F5F5F4F4F4F4F3F3F3F2F2F2F1F1F1F0F0EFEFEFEEEEEEEDEDEDECECEBEBEBEAEAE9E9E9E8E8E7E7E7E6E6E5E5E5E4E4E3E3E2E2E1E1E1E0E0DFDFDEDEDDDDDCDCDCDBDBDADAD9D9D8D8D7D7D6D6D5D5D4D4D3D3D2D2D1D1D0D0CFCFCECECDCDCCCCCBCBCACAC9C9C8C8C7C6C6C5C5C4C4C3C3C2C2C1C1C0BFBFBEBEBDBDBCBCBBBABAB9B9B8B8B7B7B6B5B5B4B4B3B3B2B1B1B0B0AFAFAEADADACACABABAAA9A9A8A8A7A7A6A5A5A4A4A3A2A2A1A1A09F9F9E9E9D9D9C9B9B9A9A999898979796959594949392929191908F8F8E8E8D8C8C8B8B8A89898888878686858584838382828180807F7F7E7D7D7C7C7B7A7A79797877777676757474737372717170706F6E6E6D6D6C6B6B6A6A69686867676665656464636262616160605F5E5E5D5D5C5B5B5A5A59595857575656555454535352525150504F4F4E4E4D4C4C4B4B4A4A4949484747464645454443434242414140403F3F3E3D3D3C3C3B3B3A3A393938383737363635343433333232313130302F2F2E2E2D2D2C2C2B2B2A2A292928282727272626252524242323222221212120201F1F1E1E1D1D1D1C1C1B1B1A1A1A19191818181717161616151514141413131312121111111010100F0F0F0E0E0E0D0D0D0C0C0C0B0B0B0B0A0A0A090909090808080807070707060606060505050505040404040403030303030302020202020202020101010101010101010101010101010101010101010101010101010101010101010101020202020202020303030303040404040505050506060607070708080809090A0A0A0B0B0C0C0D0D0E0E0F0F1010111212131414151616171818191A1B1C1C1D1E1F202122232425262728292A2B2C2D2E2F30323334353638393A3C3D3E404143444647484A4C4D4F5052535557585A5C5D5F61636466686A6C6D6F71737577787A7C7E

/*EOF*/