/*********************************************************************
   [PC98] BRANDISH - GAME OVER - (C)Falcom 1991 by LinearDrive
   date:2010-11-15初版
   JASRAC:009-1557-2
**********************************************************************/

#OCTAVE REVERSE
#VELOCITY REVERSE

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

/* FM-Tone(A):lead fb7,al1 */
$TA1 = x1 $POFF       @o1,0 @13-0 @e1,0, 64,  0, 72       @v108 ns12  @d3;
$TA2 = x1 $POFF       @o2,0 @0    @e1,0, 16,119,704,0,64  @v85  ns0   @d3;
$TA3 = x1 $POFF @i4,0 @o1,1 @0    @e1,0, 32,119,768,0,64  @v67  ns12  @d3;
$TA4 = x1 $POFF @i4,1       @0    @e1,0, 16,119,640,0,72        ns0   @d3;


/* ＭＭＬ定義（ＦＭ ch.A） */
$A0 = @q0q16 o5 @x127 @d3 @q2
;
$A1M =
   /:2
      /:2
         r8d+16f16g8r16<a16> c8 c16<a16> r16c16 d+16g+16 r16c16< 
         / r16f16 a+16>d16r16< f16>
      :/ >
      r16d16 f16a+16 r16d16
   :/ < 
   /:2
      /:2
         r16g+16>c16d+16g+16r8c16d+16g16>c16r16<
         / r16d+16g16a+16>d+16r8<g16a+16>d16g16d16<<
      :/ > 
      c16d+16<g16>c16<d+16g16c16g16>d+4<< 
   :/ > 
;
$A1C =
   v14
   /:2
      /:2
         r8d+16f16g8r16<a16> (c8 (c16<a16> ))r16c16 (d+16g+16 (r16c16< ))
         / r16f16 (a+16>d16r16< (f16))>
      :/ >
      r16d16 (f16a+16 (r16d16))
   :/ < 
   (
   /:2
      /:2
         r16g+16>c16d+16g+16r8c16d+16g16>c16r16<
         / r16d+16g16a+16>d+16r8<g16a+16>d16g16d16<<
      :/ > 
      c16d+16<g16>c16<d+16g16c16g16>d+4<< 
   :/ > 
;


/* ＭＭＬ定義（ＦＭ ch.B） */
$B0 = @q0q16 o5 @x127 @d6 @q2 r16
;
$B1M =
   /:2
      /:2
         r8d+16f16g8r16<a16> c8 c16<a16> r16c16 d+16g+16 r16c16< 
         / r16f16 a+16>d16r16< f16> 
      :/ > 
      r16d16 f16a+16 r16d16
   :/ < 
   /:2
      /:2 
         r16g+16>c16d+16g+16r8c16d+16g16>c16r16<
         / r16d+16g16a+16>d+16r8<g16a+16>d16g16d16<< 
      :/ > 
      c16d+16<g16>c16<d+16 r32d+16>c16c4r32<<  
   :/ > 
;
$B1C =
   v9
   /:2
      /:2
         r8d+16f16g8r16<a16> (c8 (c16<a16> ))r16c16 (d+16g+16 (r16c16< ))
         / r16f16 (a+16>d16r16< (f16))> 
      :/ > 
      r16d16 (f16a+16 (r16d16))
   :/ < 
   /:2
      /:2 
         r16g+16>c16d+16g+16r8c16d+16g16>c16r16<
         / r16d+16g16a+16>d+16r8<g16a+16>d16g16d16<< 
      :/ > 
      c16d+16<g16>c16<d+16 ))r32d+16>c16c4r32<< (( 
   :/ > 
;


/* ＭＭＬ定義（ＦＭ ch.C） */
$C0 = @q0q16 o4 @x127 @d3 
;
$C1 =
   /:4 c4d+8f4f8<g+4g+8a+4a+8> :/ <  
   /:2
      /:2 
         g+4g+16a+16>c4
         / c16d16d+4d+16f16g8d8<a+8 
      :/ 
      d+16d16c8d+8g8>c4.<< 
   :/ > 
;


/* ＭＭＬ定義（ＳＳＧ ch.D） */
$Ev1 = @e1,0,0,79,4,127, 128,103,384,0,  4;
$Ev2 = @e1,0,0,79,4,127, 128,103,384,0, 72;
$D0 = x1 q16@q1 @3@w50 ns0 @d0 o6 v12  @l5,16,0,18,0,0
;
$D1 =
   /:2
      /:2
         r16 $Ev1 c16)g16a16a+8a8 (f8 (c8 ))
         / g+8 (d+8 (c8 ))f8 (d8< ( $Ev2 a+8 )) ( > 
      :/ > 
      c8< (g+8 (d+8> ) )d8< (a+8 ( $Ev2 f8 )) (
   :/
   $Ev1
   /:2 
      /:2
         c8.<a+16>c16d16
         / d+8.c16d+16f16g8.f16g16a16a+16a16g8d8 
      :/
      d+8d8.<
      / a+16>c2. 
   :/ > 
   a+16> $Ev2 c2.<
;


/* ＭＭＬ定義（ＳＳＧ ch.E） */
$E0 = x1 q16@q1 @3@w50 ns0 @d10 o6 v9 r16
;
$E1 =
   /:2
      /:2
         r16 $Ev1 c16 )g16a16a+8a8 (f8 (c8 ))
         / g+8 (d+8 (c8 ))f8 (d8< ( $Ev2 a+8 )) ( >
      :/ >
      c8< (g+8 (d+8> ))d8< (a+8 ( $Ev2 f8 )) (
   :/
   /:2
      /:2 
         c8.<a+16>c16d16
         / d+8.c16d+16f16g8.f16g16a16a+16a16g8d8 
      :/
      d+8d8.<
      / a+16>c2. 
   :/ > 
   a+16> $Ev2 c2.<
;


/* ＭＭＬ定義（ＳＳＧ ch.F） */
$F0 = x1 q16@q1 @3@w50 ns0 @d5 o6 v8
;
$F1 =
   /:2
      r16.
      /:2
         r16 $Ev1 (c16 )g16a16a+8a8 (f8 (c8 ))
         / g+8 (d+8 (c8 ))f8 (d8< ( $Ev2 a+8 )) > 
      :/ > 
      c8< (g+8 (d+8> ))d8< (a+8 ( $Ev2 f32 ))
   :/
   )) $Ev1
   /:2
      /:2
         d+8.d16d+16f16
         / g8.d+16g16a16a+8.a16a+16>c16d16c16<a+8a8 
      :/ 
      g8f8d8 $Ev2 d+2.
   :/  
   ((
;


/* 演奏（ＦＭ） */
$LOOP=48;
t75
r8 $A0 /:$LOOP $TA1$A1M :/;
r8 $A0 /:$LOOP $TA2$A1M :/;
r8 $A0 /:$LOOP $TA3$A1M :/;
r8 $A0 /:$LOOP $TA4$A1C :/;

r8 $B0 /:$LOOP $TA1$B1M :/;
r8 $B0 /:$LOOP $TA2$B1M :/;
r8 $B0 /:$LOOP $TA3$B1M :/;
r8 $B0 /:$LOOP $TA4$B1C :/;

r8 $C0     /:$LOOP $TA1$C1 :/;
r8 $C0     /:$LOOP $TA2$C1 :/;
r8 $C0     /:$LOOP $TA3$C1 :/;
r8 $C0 v13 /:$LOOP $TA4$C1 :/;

/* 演奏（ＳＳＧ） */
r8 $D0 /:$LOOP $D1:/;
r8 $E0 /:$LOOP $E1:/;
r8 $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=32(0.063096..倍), FB=7(2倍). */
#WAV13 0,858D959DA5ADB4BBC1C7CCD1D5D9DCDFE2E5E7E9EBEDEEF0F1F3F4F5F6F7F8F9FAFAFBFCFCFDFDFDFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFEFDFDFDFCFCFCFBFBFBFAFAF9F9F8F8F7F7F6F6F5F5F4F4F3F2F2F1F1F0EFEFEEEDEDECEBEBEAE9E8E8E7E6E5E5E4E3E2E2E1E0DFDFDEDDDCDBDADAD9D8D7D6D5D5D4D3D2D1D0CFCECECDCCCBCAC9C8C7C6C5C5C4C3C2C1C0BFBEBDBCBBBAB9B8B7B6B5B4B4B3B2B1B0AFAEADACABAAA9A8A7A6A5A4A3A2A1A09F9E9D9C9B9A999897969594939291908F8E8D8C8B8A898887868584838281807F7E7D7B7A797877767574737271706F6E6D6C6B6A696867666564636261605F5E5D5C5B5A59585756555453525150504F4E4D4C4B4A494847464544434241403F3E3D3D3C3B3A39383736353433333231302F2E2D2C2C2B2A2928272726252423232221201F1F1E1D1C1C1B1A1919181716161514141312121110100F0F0E0D0D0C0C0B0B0A0909080807070706060505050404030303030202020201010101010101010101010101010101010202020203030404050506070708090A0B0C0D0E101113141618191B1E202225272A2E3134383C40454A4F555B61676E767D

/*EOF*/