/**********************************************************************************
   [PC88] SORCERIAN - Sigh and tears - (GAME OVER) (C)Falcom 1987 by LinearDrive
   date:2010-11-03 初版
   JASRAC:045-4683-1
***********************************************************************************/

#OCTAVE REVERSE

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

/* FM-Tone(A):lead fb7,al3 */
$TA1 = x1 $POFF       @o1,0 @13-0 @e1,0,160, 15,32  @v75  ns31 @D2;
$TA2 = x1 $POFF @i4,0 @o1,1 @0    @e1,2,192,  0,32  @v64  ns31 @D5;
$TA3 = x1 $POFF       @o2,1 @0    @e1,3, 28,111,32  @v77  ns19 @D0;
$TA4 = x1 $POFF @i4,1       @0    @e1,4,  0,127,16        ns19 @D5;


/* ＭＭＬ定義（ＦＭ ch.A） */
$MPON = @l16,32,0,128,0,0;
$A0 = @q0q16 l16 $MPON o3 @x127 @d0 @q4
;
$A1 =
   g4>g4d4d2.e2<g4>g4d4d2.e2e4d4c4e4d8c2..
   <a4>c4d4<b4a8g2..g4>g4d4d2.e2<g4>g4d4d4e8c2..
   <a4>c4d4e4d8c2&c8d2d2c1&c2e4g4

   a1&a2b4>c2.c2d4c2.e1&e4
   e4d4c4<g4e4d4c4<g4e4d4c4>
   a1&a2b4>c2.c2d4c2.e1&e4 <

   e4b4>d4c1&c4c4<b4a4>c2.<a2>
   c4<b4a4>c2c2d2c2<b8>c8<b8>c8<b2&b8>c8<
;
$A2M =
   b8>c8<  b8>  c8<  b8>  c8<   b8&b8&b8&b8&b8&b8&b8&b8&b8 < r2..
;
$A2C =
   b8>c8< @x123 b8> @x119 c8< @x115 b8> @x111 c8< @x115 
   b8&@x111b8&@x107b8&@x103b8&@x99b8&@x95b8&@x91b8&@x87b8&@x83b8 < r2..@x127
;


/* ＭＭＬ定義（ＦＭ ch.B） */
$B0 = @q0q16 l16 o3 @x127 @d5 @q4
;
$B1 =
   r4 g4>g4d4d2.e2<g4>g4d4d2.e2e4d4c4e4d8c2..
   <a4>c4d4<b4a8g2..g4>g4d4d2.e2<g4>g4d4d4e8c2..
   <a4>c4d4e4d8c2&c8d2d2c1&c2e4g4 

   a1&a2b4>c2.c2d4c2.e1&e4
   e4d4c4<g4e4d4c4<g4e4d4c4>
   a1&a2b4>c2.c2d4c2.e1&e4 <

   e4b4>d4c1&c4c4<b4a4>c2.
   <a2>c4<b4a4>c2c2d2c2< 
   /:4 b8>c8< :/ 
   b2.& 
;
$B2M =
   b8&b8&b8&b8&b8&b8&b8&b8&b8 < r2..
;
$B2C =
   b8&@x123b8&@x119b8&@x115b8&@x111b8&@x107b8&@x103b8&@x99b8&@x95b8 < r2.. @x127
;


/* ＭＭＬ定義（ＦＭ ch.C） */
$C0 = @q0q16 l16 o2 @x127 $MPON @d-3 @q4
;
$C1 =
   g4b4>d4e2.g2e4b4g4e2.>c2c4<b4e4>c4<a8a2..
   c4e4a4g4d8d2..d4g4b4e4g2g2e4g4b4e4>c8<e2..
   c4e4b4>c4<a8a2&a8b2b2g1&g2b4>e4 

   c1&c2f4a2.a2b4a2.g1&g4> 
   c4<b4g4e4c4<b4g4e4c4<b4g4>>
   c1&c2f4a2.a2b4a2.g1&g4

   <b4>e4g4a4e1e4g4f4a2.c2a4f4c4g+2g+2g+2g+2
   g8a8g8a8g2&g8a8g8
;
$C2M =
   a8  g8  a8  g8  a8   g8&g8&g8&g8&g8&g8&g8&g8&g8 << r2..
;
$C2C =
   a8 @x123 g8 @x119 a8 @x115 g8 @x111 a8 @x115 
   g8&@x111g8&@x107g8&@x103g8&@x99g8&@x95g8&@x91g8&@x87g8&@x83g8 << r2.. @x127
;


/* ＭＭＬ定義（ＳＳＧ ch.D） */
$Ev1 = @e1,0,2,127,0,111, 480, 0,48;
$D0 = x1 q16@q0 @3 ns0 @d0 o4 v12 $Ev1
;
$D1 =
   r2. 
   g4b4>d4f+4g4f+4d4<b4e4f+4g4b4>e4f+4g4e4c4<g4>c4e4g4
   e4c4<g4a4>c4d4f+4a4f+4d4<a4g4b4>d4f+4g4f+4d4<b4e4f+4
   g4b4>e4f+4g4e4c4<g4>c4e4d4<d4f+4a4g4f+4g4a4b4>c4d4f+4
   /:24 b4g4 :/ 
   /:4 b4f+4 :/ 
   /:3 b4g4 :/ > c4<g4> 
   /:8 c4<g4> :/ < 
   b4f+4b4f+4d4<b4>d4f+4d4<b4>d4f+4d2.< r4
;


/* ＭＭＬ定義（ＳＳＧ ch.E） */
$Ev10 = @e1,0,3,127, 0,111, 336, 0,48;
$Ev11 = @e1,0,3,127, 3, 95, 224, 0,48;
$Ev12 = @e1,5,1024,0,192;
$Ev21 = @e1,0,3,127, 3, 95, 224, 0,48;
$Nz1  = @11 $Ev21 )o1c4.( @3 $Ev11;
$Nz2  = @11 $Ev21 )o1c4 ( @3 $Ev11;
$Nz3  = @11 $Ev21 )o0d4 ( @3 $Ev11;
$Nz4  = @11 $Ev21 )o1f4 ( @3 $Ev11;
$Nz5  = @11 $Ev21 )o1c8 ( @3 $Ev11;
$E0 = x1 q16@q0 @3 ns0 @d6 v10 l16  @l4,32,0,128,0,0
;
$E1 =
   r2.
   $Ev10 o7
   g1g2.f+4e1e2d2c1c2.c+4d1d2f+2g1g2.
   f+4e1e2d2c2.c+4d2<d2g1g2g2< 
   (( $Ev11
   /:2 o5c2 $Nz1 o4g8>c4c4  $Nz2 $Nz3 :/
   /:2 o4g2 $Nz1 o4d8g4g4   $Nz3 $Nz2 :/
   /:2 o5c2 $Nz1 o4g8>c4c4  $Nz2 $Nz3 :/
   $Nz4 o4b4 $Nz2 o4b4b4 $Nz3 o4g4f+4e2 $Nz1 o3b8>e4 $Nz3 o5e8 $Nz5 o5d4  
   /:2 o5c2 $Nz1 o4g8>c4c4  $Nz2 o5c4 :/
   o4g2 $Nz1 o4d8g4g4 $Nz2 
   )
   o4g4
   $Ev12
   o4g1&g2.r4
   )
;


/* ＭＭＬ定義（ＳＳＧ ch.F） */
$F0 = x1 q16@q0 @3 ns0 @d12 v10 l16 o4 $Ev1
;
$F1 =
   r2.r8.g4b4>d4f+4g4f+4d4<b4e4f+4g4b4>e4f+4g4
   e4c4<g4>c4e4g4e4c4<g4a4>c4d4f+4a4f+4d4<a4g4b4>
   d4f+4g4f+4d4<b4e4f+4g4b4>e4f+4g4e4c4<g4>c4e4d4<
   d4f+4a4g4f+4g4a4b4>c4d4f+16 
   (
   /:8 g4e4 :/
   /:8 g4d4 :/
   /:8 g4e4 :/  
   /:4 f+4d4 :/
   /:4 g4e4 :/
   /:4 g4e4 :/
   /:4 g4d+4 :/
   g4d4g4d4<b4g4b4>d4<b4g4b4>d4<b2.r4
   )
;


/* 演奏（ＦＭ） */
$LOOP=32;
t142
r8 $A0    /:$LOOP $TA1$A1 $A2M :/;
r8 $A0    /:$LOOP $TA2$A1 $A2M :/;
r8 $A0    /:$LOOP $TA3$A1 $A2M :/;
r8 $A0v14 /:$LOOP $TA4$A1 $A2C :/;

r8 $B0    /:$LOOP $TA1$B1 $B2M :/;
r8 $B0    /:$LOOP $TA2$B1 $B2M :/;
r8 $B0    /:$LOOP $TA3$B1 $B2M :/;
r8 $B0v11 /:$LOOP $TA4$B1 $B2C :/;

r8 $C0    /:$LOOP $TA1$C1 $C2M :/;
r8 $C0    /:$LOOP $TA2$C1 $C2M :/;
r8 $C0    /:$LOOP $TA3$C1 $C2M :/;
r8 $C0v13 /:$LOOP $TA4$C1 $C2C :/;

/* 演奏（ＳＳＧ） */
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=44(0.022387..倍), FB=7(2倍). */
#WAV13 0,7F828487898C8E919396989B9DA0A2A4A7A9ABAEB0B2B5B7B9BBBDBFC2C4C6C8CACBCDCFD1D3D5D6D8DADBDDDEE0E1E3E4E5E7E8E9EBECEDEEEFF0F1F2F3F4F5F5F6F7F8F8F9FAFAFBFBFCFCFDFDFDFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFDFDFDFCFCFCFBFBFAFAF9F9F8F8F7F7F6F5F5F4F3F3F2F1F0F0EFEEEDECECEBEAE9E8E7E6E5E4E3E2E1E0DFDEDDDCDBDAD9D8D7D6D5D3D2D1D0CFCECCCBCAC9C8C6C5C4C3C1C0BFBEBCBBBAB8B7B6B4B3B2B0AFAEACABAAA8A7A6A4A3A1A09F9D9C9B999896959492918F8E8C8B8A888785848381807E7D7B7A797776747372706F6D6C6A696866656362615F5E5D5B5A585756545352504F4E4C4B4A484746444342413F3E3D3C3A3938373634333231302E2D2C2B2A2928272625232221201F1E1D1C1B1B1A19181716151413131211100F0F0E0D0D0C0B0B0A09090808070706060505040403030302020202010101010101010101010101010101010101020202030303040405050606070708090A0A0B0C0D0E0F1011121314151617191A1B1D1E1F2122242627292B2C2E3032333537393B3D3F414346484A4C4E515355585A5C5F616466686B6D707275777A7C

/*EOF*/