/*
   [PC98:OPN] BRANDISH 3 - 龍陣 - (C)Falcom 1994 by LinearDrive
   date:2010-12-27（第２版） [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-Tone(A):lead1 fb5,al4 */
$TA1 = x1 $POFF       @o1,0 @13-0 @e1,0,0,127,99999  @v117 ns12 @d-3;
$TA2 = x1 $POFF @i4,0       @0    @e1,2, 20,119, 128       ns36 @d-3;
$TA3 = x1 $POFF       @o1,1 @0    @e1,0,0,127,99999  @v116 ns24 @d3;
$TA4 = x1 $POFF @i4,1       @0    @e1,2, 20,119, 128       ns24 @d3;

/* FM-Tone(B):lead2 fb7,al4 */
$TB1 = x1 $POFF       @o1,0 @13-1 @e1,0,0,127,99999        @v97  ns36 @d-3;
$TB2 = x1 $POFF @i4,0       @0    @e1,2, 13,103,2560,0, 96       ns36 @d-3;
$TB3 = x1 $POFF       @o1,1 @0    @e1,0,0,127,99999        @v114 ns24 @d3;
$TB4 = x1 $POFF @i4,1       @0    @e1,0, 13,103,2560,0, 96       ns24 @d3;

/* FM-Tone(C):lead3 fb7,al2 */
$TC1 = x1 $POFF       @o1,0 @13-3 @e1,1, 10,119, 192        @v111 ns0  @d0;
$TC2 = x1 $POFF       @o1,1 @0    @e1,1, 20,  0,  64        @v79  ns34 @d-31;
$TC3 = x1 $POFF @i4,1 @o2,0 @0    @e1,1, 10,119, 192        @v95  ns0  @d0;
$TC4 = x1 $POFF @i4,0       @0    @e1,1,192,119,3840,0, 64        ns0  @d0;

/* FM-Tone(D):lead4 fb5,al4 */
$TD1 = x1 $POFF       @o1,0 @13-1 @e1,1, 256,111,2048,0, 96  @v125 ns12 @d-3;
$TD2 = x1 $POFF @i4,0       @0    @e1,1, 256,111,2048,0, 48        ns24 @d-3;
$TD3 = x1 $POFF       @o1,1 @0    @e1,1, 192,111,1536,0,240  @v123 ns12 @d3;
$TD4 = x1 $POFF @i4,1       @0    @e1,1, 384,111,1024,0, 80        ns24 @d3;

/* FM-Tone(E):bass  fb7,al4 */
$TE1 = x1 $POFF       @o1,0 @13-2 @e1,0, 40,103, 512  @v109 ns12 @d3;
$TE2 = x1 $POFF @i4,0       @0    @e1,0,  1,119, 96         ns12 @d3;
$TE3 = x1 $POFF       @o1,1 @0    @e1,0, 64,119, 512  @v115 ns0  @d-3;
$TE4 = x1 $POFF @i5,1       @0    @e1,0,  3,119, 96         ns12 @d-3;


/* ＭＭＬ定義（ch.A ＦＭ） */
$A0 = r8 x1 @x127 q16@q0 ns0 @d0 o3 @l9,12,0,60,0,0
;
$A1M =
     @q3 
     /* @0 v11 */
     /:2 
       e32r32b2&b8.a32b32>c32r32d32r32e32r32g32r32f+2d2c8.f32e32f8.g32a32b4g8g16.b32> / 
       c2&c8& c16&c16&c16&c16& c16<< 
     :/ < 
     a2.< 
;
$A1C =
     @q3 
     /* @0 v11 */
     /:2 
       e32r32b2&b8.a32b32>c32r32d32r32e32r32g32r32f+2d2c8.f32e32f8.g32a32b4g8g16.b32> / 
       c2&c8& c16& @x123 c16& @x119 c16& @x115 c16& @x111 c16<< @x127 
     :/ < 
     a2.< 
;
$A2 =
     /* v12 @1 */
     e32<b32>e32g32b32>c32d32e32> 
;
$A3 =
     @q3 
     /* v13 @2 */
     f4..e32g32f8f8a8>c8<a+8.a+32>c32d32r32c32r32<a+32r32>d32r32c8<
     a+8a8f8a8.a32a+32>c32r32<a+32r32a32r32>c32r32<a+8.a+32>c32d8f8f4d4c+8.c+32d32e8< 
;
$A4 =
     /* @3 v10 */
     c+8
     /:2
       d8.e32f32g32r32f32r32e32r32f32r32e8c8f32r32e32r32 / 
       d32r32c32r32<a+8.a+32>c32d8f8f4e4 
     :/
;
$A5M =
      d32r32        e32r32        f8.f32e32d8c8<        b4a8.& a64&a64&a64& a64<
;
$A5C =
      d32r32        e32r32        f8.f32e32d8c8<        b4a8.&  a64& @x123 a64& @x119 a64& @x115 a64< @x127
;
$A5T =
      d32r32 t59.86 e32r32 t59.05 f8.f32e32d8c8< t61.54 b4a8.&  a64& @x123 a64& @x119 a64& @x115 a64< @x127
;
$A6 =
     @q3
     /* v12  @1 */
     /:4 a4.a24a24a24 :/ 
     /:3 a4.a24a24a24 :/ 
     a4..
;


/* ＭＭＬ定義（ch.B ＦＭ） */
$B0 = r8 x1 @x127 q16@q0 ns0 @d0 o3 @l9,12,0,60,0,0
;
$B1 =
     @q3 
     /* @0  v11 */
     /:2 
       c32r32e2&e8.e32g32a32r32b32r32>c32r32e32r32d2<a4g8f+8a4>c4d4<b8>d16.d32 / 
       e4d4f4e8.< 
     :/ 
     e2.<<
;
$B2 =
     /* v12  @1 */ 
     b32g32b32>e32f32f32a32>c32>
;
$B3 =
     @q2 
     /* v13  @2 */ 
     d4..c32e32d8d8f8a8g8.g32a32a+32r32g32r32f32r32a+32r32a8g8f8c8
     f+8.f+32g32a32r32g32r32f+32r32a32r32g8.g32a32a+8>
     d8d4<b4a8.a32b32>c+8<< 
;
$B4 = 
     /* @3 v10 */
     a8 
     /:2 
       a8.>c32d32d32r32d32r32c32r32d32r32c8<g8>c32r32c32r32< /  
       a32r32a32r32g8.g32a32b8>d8c+4c+4< 
     :/ 
;
$B5M =
     a32r32>c32r32d8.d32c32<b8g+8e4c8.& c64&c64&c64& c64< 
;
$B5C =
     a32r32>c32r32d8.d32c32<b8g+8e4c8.& c64& @x123 c64& @x119 c64& @x115 c64< @x127
;
$B6 =
     @q3
     /* v12  @1 */
     e4.e24e24e24d4.d24d24d24c4.c24c24c24d4.d24d24d24e4.
     e24e24e24d4.d24d24d24c4.c24c24c24d4..
;


/* ＭＭＬ定義（ch.C ＦＭ） */
$C0 = r8 x1 @x127 q16@q0 ns0 @d0 o2 
;
$C1 =
     /* @6  v13 */
     @q2 e32e32 
     /:2 
       /:2 a8a32a32a32a32a16a8e32e32 :/ > 
       /:2 d8d32d32d32d32d16d8<a32a32> :/ < 
       f8f32f32f32f32f16f8f16g8g32g32g32g32g16g8g32g32  / 
       /:2 a8a32a32a32a32a16a8e32e32 :/ 
     :/ 
     a8a32a32a32a32a16a8e32e32 a8a8g8f8
     a+8a+32a+32a+32a+32a+16a+8f32f32
     d8d32d32d32d32d16d8d32d32
     d+8d+32d+32d+32d+32d+16d+8d+32d+32
     f8f32f32f32f32f16f8f32f32
     f+8f+32f+32f+32f+32f+16f+8f+32f+32
     g8g32g32g32g32g16g16g32g32g32g32 
     /:4 g+16g+48g+48g+48 :/ 
     /:4 a16a48a48a48 :/ 
     /:2 d8d8g8g8c8c8f8f8  /  g8g8g+8g+8 /:4 a8 :/  :/ < 
     b4>e4a8a8a8e8a2g2f2g4.g8 
     /* @6  v13 */ 
     a8a32a32a32a32a16a8e32e32
     g8g32g32g32g32g16g8g32g32
     f8f32f32f32f32f16f8f32f32
     g8g32g32g32g32g16g8
;


/* ＭＭＬ定義（ch.D ＳＳＧ） */
$EvD1 = @e1,0, 2,127,3,103, 640,0, 48;
$EvD2 = @e1,0, 2,127,1,103, 896,0, 48;
$EvD3 = @e1,0, 3,127,0,103,        48;
$D0 = r8 x1 @x127 q16@q0 @3@w50 ns0 @d0 o5 v13
      r16
;
$D1 =
     $EvD1 /* v13 */
     /:2 
       /:2 c16.r32c32c32c32c32c16c8r16 :/ 
       d16.r32d32d32d32d32d16d8r16<
       a16.r32a32a32a32a32a16a8r16
       a16.r32a32a32a32a32a16a8r16
       b16.r32b32b32b32b32b16b8r16>  /  
       /:2 c16.r32c32c32c32c32c16c8r16 :/ 
     :/ 
     c16.r32c32c32c32c32c16c8r16< 
     )
     $EvD2 
     a32g+32a32b32>c32<b32>c32d32e32<b32>e32g32b32>c32d32e32< 
     (
     $EvD1 
     d16.r32d32d32d32d32d16d8r16<
     a16.r32a32a32a32a32a16a8r16
     g16.r32g32g32g32g32a+16a+8r16>
     c16.r32c32c32c32c32c16c8r16
     c16.r32c32c32c32c32c16c8r16
     d16.r32d32d32d32d32d16d16d32d32d32d32 
     /:4 d16d48d48d48 :/ 
     )
     $EvD2 
     c+32<a32>c+32e32a32c+32e32a32>c+32<e32a32>c+32e32<a32>c+32e32< 
     (
     $EvD1  
     /:2 
       /:2 f16f48f48f48 :/ 
       /:2 d16d48d48d48 :/ 
       /:2 e16e48e48e48 :/ 
       /:2 c16c48c48c48 :/ < 
       / 
       /:2 a+16a+48a+48a+48 :/ 
       /:2 b16b48b48b48 :/ > 
       /:4 c+16c+48c+48c+48 :/ 
     :/ > 
     $EvD3 
     d4e4
     $EvD1 
     /:4 e16e48e48e48 :/ > 
     ((
     $EvD3  
     e1&e1< 
     ))
     $EvD1  
     e16.r32e32e32e32e32e16e8r16
     e16.r32e32e32e32e32e16e8r16
     f16.r32f32f32f32f32f16f8r16
     d16.r32d32d32d32d32d16d8r16
;


/* ＭＭＬ定義（ch.E ＳＳＧ） */
$E0 = r8 x1 @x127 q16@q0 @3@w50 ns0 @d0 o4 v13
      r16
;
$E1 =
     $EvD1 /* v13 */
     /:2 
       /:2 a16.r32a32a32a32a32a16a8r16 :/ 
       a16.r32a32a32a32a32a16a8r16
       f+16.r32f+32f+32f+32f+32f+16f+8r16
       f16.r32f32f32f32f32f16f8r16
       g16.r32g32g32g32g32g16g8r16
       / 
       /:2 a16.r32a32a32a32a32a16a8r16 :/ 
     :/ 
     a16.r32a32a32a32a32a16a8r16 
     (
     $EvD2 
     @d-8 r32 
     a32g+32a32b32>c32<b32>c32d32e32<b32>e32g32b32>c32d32<< 
     )
     $EvD1 
     a+16.r32a+32a+32a+32a+32a+16a+8r16
     f16.r32f32f32f32f32f16f8r16
     d+16.r32d+32d+32d+32d+32g16g8r16
     a16.r32a32a32a32a32a16a8r16
     a16.r32a32a32a32a32a16a8r16
     a+16.r32a+32a+32a+32a+32a+16a+16a+32a+32a+32a+32 
     /:4 b16b48b48b48 :/ > 
     (
     $EvD2 
     r32 c+32<a32>c+32e32a32c+32e32a32>c+32<e32a32>c+32e32<a32>c+32< 
     )
     $EvD1 
     /:2 
       /:2 d16d48d48d48 :/ < 
       /:2 b16b48b48b48 :/ > 
       /:2 c16c48c48c48 :/ < 
       /:2 a16a48a48a48 :/  
       / 
       /:2 g16g48g48g48 :/ 
       /:2 g+16g+48g+48g+48 :/ 
       /:4 a16a48a48a48 :/ > 
     :/ 
     $EvD3 
     b4b4> 
     $EvD1 
     /:4 c16c48c48c48 :/ > 
     ((
     $EvD3  
     e1&e1< 
     ))
     $EvD1  
     c16.r32c32c32c32c32c16c8r16<
     b16.r32b32b32b32b32b16b8r16>
     c16.r32c32c32c32c32c16c8r16<
     b16.r32b32b32b32b32b16b8r16
;


/* ＭＭＬ定義（ch.F ＳＳＧ） */
$EvF1 = @e1,0, 0,119, 0;
$EvF2 = @e1,0, 3,127,0,103,96, 0, 64;
$EvF3 = @e1,0, 2,127,2,103,144,0, 64;
$EvF4 = @e1,0, 2,127,2,103,216,0, 64;

$Nz32 = @3@w50 $EvF1 o4d192  @11 $EvF2 o0c+64&c+96;
$Nz64 = @3@w50 $EvF1 o4d192  @11 $EvF2 o0c+96;
$Nz48 = @3@w50 $EvF1 o4d192  @11 $EvF2 o0c+64;

$NzF1 = @11 $EvF3 o0a+4a+4;
$NzF2 = @11 $EvF4 o0b8;

$F0 = r8 x1 @x127 q16@q0 @3@w50 ns0 @d0 o4 v13
      r16
;

$F1 =
     /:2 
       /:4 
         /* v12 */
         $Nz32 r16. 
         /:2 $Nz64 :/ 
         /:3 $Nz32 :/ 
         /:2 $Nz32 r32 :/ r16 
         /:2 $Nz32 :/ 
       :/ 
       /:4 
         $Nz32 r16. 
         /:2 $Nz64 :/ 
         /:3 $Nz32 :/ 
         /:2 $Nz32 r32 :/ r32
         ((((( 
         /:6 $Nz64 ) :/
         (
       :/ 
     :/  
     /:6 
       $Nz32 r16. 
       ((((((( 
       /:8 $Nz64 ) :/
       (
       /:2 $Nz32 r32 :/  
       / 
       r8 
     :/ 
     ((((((( 
     /:8  $Nz64 ) :/ 
     (
     /:8 
       $Nz32 r32 
       /:3 $Nz48 :/ 
     :/ 
     /:16 
       $Nz32 r32 
       /:3 $Nz48 :/  
     :/ 
     /:8 
       $Nz32 r32
       /:3 $Nz48 :/ 
     :/ 
     
     $NzF1 /*nz10 v13 c4c4 */
     
     /:3 
       $Nz32 r32 
       /:3 $Nz48 :/ 
     :/ 
     
     $NzF2 /*nz11 v13 e8*/
     (
     @3@w50 $EvD3 (o6c1&c2..) /* >> v11 c1&c2..<< */
     )
     /* v12 */
     /:8 $Nz64 :/ 
     /:4 
       $Nz32 r16. 
       /:2 $Nz64 :/  
       /:3 $Nz32 :/ 
       /:2 $Nz32 r32 :/ 
       / 
       r16 
       /:2 $Nz32 :/ 
     :/ 
     /:8 $Nz64 :/  
;



/* 演奏（ＦＭ） */
$LOOP=32;

t61.54
$A0 /:$LOOP $TA1       $A1M $TB1       $A2 $TC1       $A3 $TD1       $A4 $A5M $TB1       $A6 :/;
$A0 /:$LOOP $TA2 @v107 $A1C $TB2 @v111 $A2 $TC2       $A3 $TD2 @v103 $A4 $A5C $TB2 @v111 $A6 :/;
$A0 /:$LOOP $TA3       $A1M $TB3       $A2 $TC3       $A3 $TD3       $A4 $A5M $TB3       $A6 :/;
$A0 /:$LOOP $TA4 @v107 $A1C $TB4 @v111 $A2 $TC4 @v115 $A3 $TD4 @v103 $A4 $A5T $TB4 @v111 $A6 :/;

$B0 /:$LOOP $TA1       $B1  $TB1       $B2 $TC1       $B3 $TD1       $B4 $B5M $TB1       $B6 :/;
$B0 /:$LOOP $TA2 @v107 $B1  $TB2 @v111 $B2 $TC2       $B3 $TD2 @v103 $B4 $B5C $TB2 @v111 $B6 :/;
$B0 /:$LOOP $TA3       $B1  $TB3       $B2 $TC3       $B3 $TD3       $B4 $B5M $TB3       $B6 :/;
$B0 /:$LOOP $TA4 @v107 $B1  $TB4 @v111 $B2 $TC4 @v115 $B3 $TD4 @v103 $B4 $B5C $TB4 @v111 $B6 :/;

$C0 /:$LOOP $TE1       $C1 :/;
$C0 /:$LOOP $TE2 @v115 $C1 :/;
$C0 /:$LOOP $TE3       $C1 :/;
$C0 /:$LOOP $TE4 @v115 $C1 :/;

/* 演奏（ＳＳＧ） */
$D0 /:$LOOP $D1 :/;
$E0 /:$LOOP $E1 :/;
$F0 /:$LOOP $F1 :/;



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

/* WAV13-1 【生成情報】 １周期分４４０サンプル生成。 TL=33(0.057876..倍), FB=7(2倍). */
#WAV13 1,838A90969DA3A9AFB5BABFC4C8CCD0D3D7DADCDFE2E4E6E8EAECEDEFF0F1F3F4F5F6F7F8F9F9FAFBFBFCFCFDFDFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFEFDFDFDFCFCFCFBFBFAFAF9F9F8F8F8F7F6F6F5F5F4F4F3F2F2F1F1F0EFEFEEEDEDECEBEAEAE9E8E8E7E6E5E4E4E3E2E1E1E0DFDEDDDCDCDBDAD9D8D7D6D6D5D4D3D2D1D0CFCECDCDCCCBCAC9C8C7C6C5C4C3C2C1C0BFBEBDBCBBBAB9B8B7B6B5B4B3B2B1B0AFAEADACABAAA9A8A7A6A5A4A3A2A1A09F9E9D9C9B9A9998979695949291908F8E8D8C8B8A898887868584838281807F7D7C7B7A797877767574737271706F6E6D6C6B696867666564636261605F5E5D5C5B5A595857565554535251504F4E4D4C4B4A494847464544434241403F3E3D3C3B3A39383737363534333231302F2E2D2D2C2B2A2928272626252423222121201F1E1D1D1C1B1A1A19181717161514141312121110100F0E0E0D0D0C0C0B0A0A0909080807070606060505040404030303020202020101010101010101010101010101010101010202020303030404050606070809090A0B0C0D0F101113141617191B1D1F212326282B2E3134383B3F43474B50555A5F656A70767D

/* WAV13-2 【生成情報】 １周期分４４０サンプル生成。 TL=31(0.068786..倍), FB=7(2倍). */
#WAV13 2,848F99A4AEB8C1CAD1D7DCE0E3E6E9EBEDEFF0F2F3F5F6F7F8F9F9FAFBFBFCFDFDFDFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFEFDFDFDFCFCFCFBFBFBFAFAF9F9F8F8F7F7F6F6F5F5F4F4F3F3F2F1F1F0F0EFEEEEEDECECEBEAEAE9E8E8E7E6E5E5E4E3E3E2E1E0E0DFDEDDDCDCDBDAD9D8D8D7D6D5D4D3D3D2D1D0CFCECECDCCCBCAC9C8C7C7C6C5C4C3C2C1C0BFBFBEBDBCBBBAB9B8B7B6B5B4B3B3B2B1B0AFAEADACABAAA9A8A7A6A5A4A3A2A2A1A09F9E9D9C9B9A999897969594939291908F8E8D8C8B8A89888786858483828281807F7E7D7C7B7A797877767574737271706F6E6D6C6B6A69686766656463626160605F5E5D5C5B5A595857565554535251504F4E4E4D4C4B4A49484746454443434241403F3E3D3C3B3A3A39383736353433333231302F2E2E2D2C2B2A292928272625252423222121201F1E1E1D1C1B1B1A1919181717161514141313121111100F0F0E0E0D0C0C0B0B0A0A0909080807070606060505040404030303030202020201010101010101010101010101010101010202020203030404050506070808090A0B0D0E0F1012141517191B1D202325282C2F33373C41464C52596068717A

/* WAV13-3 【生成情報】 １周期分４４０サンプル生成。 TL=29(0.081752..倍), FB=7(2倍). */
#WAV13 3,8597ABBFD1E0EBF1F4F7F8F9FAFBFBFCFDFDFDFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFEFDFDFDFCFCFCFBFBFBFAFAF9F9F9F8F8F7F7F6F6F5F5F4F4F3F2F2F1F1F0F0EFEEEEEDEDECEBEBEAE9E9E8E7E7E6E5E5E4E3E3E2E1E1E0DFDEDEDDDCDBDBDAD9D8D8D7D6D5D5D4D3D2D2D1D0CFCECECDCCCBCACAC9C8C7C6C5C5C4C3C2C1C0C0BFBEBDBCBBBBBAB9B8B7B6B6B5B4B3B2B1B0AFAFAEADACABAAA9A9A8A7A6A5A4A3A2A1A1A09F9E9D9C9B9A9A99989796959493929191908F8E8D8C8B8A8989888786858483828180807F7E7D7C7B7A79787777767574737271706F6F6E6D6C6B6A69686766666564636261605F5F5E5D5C5B5A5958575756555453525151504F4E4D4C4B4B4A4948474645454443424140403F3E3D3C3B3B3A3938373736353433333231302F2F2E2D2C2B2B2A29282827262525242322222120201F1E1E1D1C1B1B1A191918171716151514141312121111100F0F0E0E0D0D0C0C0B0B0A0A09090808070706060605050404040303030302020202010101010101010101010101010101010101020202030304040505060708090A0B0C0D0F10121416181A1D2023262A2F343A4048505B6774


/*EOF*/