/************************************************************************
   [PC88] Ys - First step towards wars - (C)Falcom 1987 by LinearDrive
   date:2011-01-09第２版 [FlMML rev.38704]
   JASRAC:081-1689-0
*************************************************************************/

#OCTAVE REVERSE
#VELOCITY REVERSE

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

/* FM-Tone:lead fb7,al4 */
$TA1o = x1 $POFF       @o1,0 @13-0 @e1,0,2176,0,99999 @v83  ns12;
$TA2o = x1 $POFF @i4,0       @0    @e1,1,2304,0,384   @v119 ns12;
$TA3o = x1 $POFF       @o1,1 @0    @e1,0,2560,0,99999 @v118 ns0 ;
$TA4o = x1 $POFF @i5,1       @0    @e1,1,2304,0,384   @v119 ns12;
/* FM-Tone(A) for ch.A */
$TA1 = $TA1o @d-2;
$TA2 = $TA2o @d-1 @x99;
$TA3 = $TA3o @d2;
$TA4 = $TA4o @d1  @x99;
/* FM-Tone(B) for ch.B */
$TB1 = $TA1o @d-8;
$TB2 = $TA2o @d-7 @x99;
$TB3 = $TA3o @d-4;
$TB4 = $TA4o @d-5 @x99;

/* FM-Tone(C):bass1 fb7,al0 */
$TC1 = x1 $POFF       @o1,0 @13-1 @e1,0, 6,111,80         @v95  ns40  @d-10;
$TC2 = x1 $POFF @i4,0 @o1,1 @0    @e1,0,12,111,1536,0,80  @v68  ns-12 @d3;
$TC3 = x1 $POFF @i4,1 @o1,2 @0    @e1,0,24,111,1536,0,80  @v119 ns-12 @d3;
$TC4 = x1 $POFF @i4,2       @0    @e1,0,24,111,2048,0,80        ns-12 @d3;

/* FM-Tone(D):bass2 fb4,al0 */
$TD1 = x1 $POFF       @o1,0 @0    @e1,0,   4,111,   2,0,288  @v99  ns47  @d-14;
$TD2 = x1 $POFF @i4,0 @o1,1 @0    @e1,0,   8,119,  16,0,288  @v86  ns24  @d-2;
$TD3 = x1 $POFF @i4,1 @o1,2 @0    @e1,0,  12,119,1024,0,288  @v106 ns-12 @d-2;
$TD4 = x1 $POFF @i4,2       @0    @e1,0,2048,  0,288               ns-12 @d-2;


/* ＭＭＬ定義（ＦＭ ch.A） */
$A0 = @q0q16 l16 o5
;
$A1 =
   d3r6d24e24f24g24a3g6f24e8f24e24d4r6d24e24f24g24a3g6f24e8f12d24>d4.d6
;
$A2M =
   e6&e6&e6&e6&e6&e6&e6&e6
;
$A2C =
   e6& @x103 e6& @x107 e6& @x111 e6& @x115 e6& @x119 e6& @x123 e6& @x127 e6 @x99
;
$A3 = 
   d3r6d24e24f24g24a3g6f24e8f24e24d4r6d24e24f24g24a3g6f24e8
   d3&d3 e3<a6>e6
;
$A4M =
   d1
;
$A4C =
   @x111 $A4M @x99
;
$A5 =
   f12g12a24>c8d2<a+12>c12d3f3e4c6d12<
   a6&a6&a6&a6&a6 a+2g12a12a+3>c6d6c4<
   f4g12a2.>d2<a+12>c12d3f3e4c6d12<a2
   >g6a6a+2g12a12a+3a+12a12a12f12g4c3c+2.<
   /:4 d24<a24f24>d24<a24f24d24f24> :/
;
$A6M =
   d24r12d6&d6&d6&d24 c+24r12/*c+%104*/c+6&c+6&c+6&c+24 a3&a3 <
;
$A6C =
   @x103 $A6M @x99
;


/* ＭＭＬ定義（ＦＭ ch.B） */
$B0 = @q0q16 l16 o5
;
$B1 =
   d3r6d24e24f24g24a3g6f24e8f24e24d4r6d24e24f24g24a3g6f24e8f12d24>d4.d6
;
$B2M =
   c+6&c+6&c+6&c+6&c+6&c+6&c+6&c+6
;
$B2C =
   c+6& @x103 c+6& @x107 c+6& @x111 c+6& @x115 c+6& @x119 c+6& @x123 c+6& @x127 c+6 @x99
;
$B3 =
   d3r6d24e24f24g24a3g6f24e8f24e24d4r6d24e24f24g24a3g6f24e8
   d3&d3 e3<a6>e6<
   a1
   >f12g12a24>c8d2<a+12>c12d3f3e4c6d12<
   a6&a6&a6&a6&a6 a+2g12a12a+3>c6d6c4<
   f4g12a2.>d2<a+12>c12d3f3e4c6d12<a2>g6a6a+2
   g12a12a+3a+12a12a12f12g4c3c+2. <
   /:4 d24<a24f24>d24<a24f24d24f24> :/ <
;
$B4M =
   f24r12f6&f6&f6&f24 e24r12 e6&e6&e6&e24&e3&e3
;
$B4C =
   @x103 $B4M @x99
;


/* ＭＭＬ定義（ＦＭ ch.C） */
$C0 = @q0q16 l16 @x127 o4
;
$C1 =
   /:4 d24r24d24d24:/ /:2 f24r24f24f24:/ /:2 g24r24g24g24:/
   /:4 d24r24d24d24:/ /:2 f24r24f24f24:/ /:2 g24r24g24g24:/
   /:4 a+24r24a+24a+24:/ /:8 a24r24a24a24:/ 
   /:4 d24r24d24d24:/ /:2 f24r24f24f24:/ /:2 g24r24g24g24:/
   /:4 d24r24d24d24:/ /:2 f24r24f24f24:/ /:2 g24r24g24g24:/
   /:4 a+24r24a+24a+24:/ /:3 a24r24a24a24:/ 
   a24g24e24c24d24r24d24r24c24d12r24  
;
$C2 =
   <<d24d24>> 
;
$C3 =
   f24r24e24c12r24d24r24d24r24c24d12r24 
;
$C4 =
   <<d24d24>> 
;
$C5 =
   e24e24f24f24a24a24
   /:8 a+24r24a+24a+24:/ /:8 a24r24a24a24:/ /:8 g24r24g24g24:/
   /:3 f24r24f24f24:/ f24r24f24g24
   /:4 a24r24a24a24:/ /:8 a+24r24a+24a+24:/ /:8 a24r24a24a24:/
   /:4 g24r24g24g24:/ /:4 d+24r24d+24d+24:/ /:4 c24r24c24c24:/ <
   /:3 a24r24a24a24:/ a24r24a24>c24
   d24r24d24r24c24d12r24 
;
$C6 =
   <<d24d24>> 
;
$C7 =
   g24r24a24>c12r24< d24r24d24r24c24d12r24 
;
$C8 =
   <<d24d24>> 
;
$C9 =
   g24r24a24>c12r24<<
   a+24r12
   /*a+%104*/a+6&a+6&a+6&a+24 
   a24r12a8a24r24
   /:2 a24r24a24r24a24r24a24r24:/
   a24r24a24r24a24>c8
;


/* ＭＭＬ定義（ＳＳＧ ch.D） */
$Ev1 = @e1,0,2,127,3,111,288;
$D1 = x1 q16@q0 @3 ns0 @d0 v13 l16 @x127 o5
   $Ev1
   a24d24d24a6&a6&a6&a24 >c3<b6g6
   a24d24d24a6&a6&a6&a24 >c3<b6g6
   a+24f24d24f4.g6
   a12e24a6&a24 >c+12<a24>c+6&c+24 e12c+24e6&e24 a12e24a6&a24<
   a24d24d24a6&a6&a6&a24 >c3<b6g6
   a24d24d24a6&a6&a6&a24 >c3<b6g6
   f3a+6>d6c6&c6&c12 <a12e24c8d3f12g12a24>c8d3d12e12f24a8<a+4f4d3f6a+6>
   d6<a12>c12e12a6e12c6<a12>c12e12a6e12c12<a12g6d12g4a+12>c12d3g3
   f12c12<a12>f12c12<a12>f12c12e12c+12<a12>e12c+12<a12>e12c+12<
   a+4f4d3f6a+6>d6<a12>c12e12a6e12c6<a12>c12e12a6e12c12<a12g4>
   g6&g6&g12 <g4>g4f12d12e4g3a6>e12f12e12g12f12e12f12  <<
   /:2 d3f12g12a24>c8<:/
   a+24r12a+8>d24d24f24f24a+24a+24>d24d24f24f24<<a24r12a8>
   c+24c+24e24e24a24a24>c+24c+24e24e24 <
   /:4 a24e24c+24<a24>:/ <
;


/* ＭＭＬ定義（ＳＳＧ ch.E） */
$E1 = x1 q16@q0 @3 ns0 @d13 v12 l16 @x127 o5
   $Ev1
   r24
   a24d24d24a6&a6&a6&a24 >c3<b6g6
   a24d24d24a6&a6&a6&a24 >c3<b6g6
   a+24f24d24f4.g6
   a12e24a6&a24 >c+12<a24>c+6&c+24 e12c+24e6&e24 a12e24a6&a24<
   a24d24d24a6&a6&a6&a24 >c3<b6g6
   a24d24d24a6&a6&a6&a24 >c3<b6g6
   f3a+6>d6c6&c6&c12 <a12e24c8d3f12g12a24>c8d3d12e12f24a8<a+4f4d3f6a+6>
   d6<a12>c12e12a6e12c6<a12>c12e12a6e12c12<a12g6d12g4a+12>c12d3g3
   f12c12<a12>f12c12<a12>f12c12e12c+12<a12>e12c+12<a12>e12c+12<
   a+4f4d3f6a+6>d6<a12>c12e12a6e12c6<a12>c12e12a6e12c12<a12g4>
   g6&g6&g12 <g4>g4f12d12e4g3a6>e12f12e12g12f12e12f12  <<
   /:2 d3f12g12a24>c8<:/
   a+24r12a+8>d24d24f24f24a+24a+24>d24d24f24f24<<a24r12a8>
   c+24c+24e24e24a24a24>c+24c+24e24e24 <
   /:3 a24e24c+24<a24>:/ a24e24c+24 <
;


/* ＭＭＬ定義（ＳＳＧ ch.F） */
$Ev10 = @e1,0,2,127,0,95,48,0,0;
$Ev11 = @e1,0,3,127,2,95,96,0,0;
$Ev12 = @e1,0,3,127,3,95,128,0,0;
$Ev13 = @e1,0,3,127,3,95,192,0,0;
$Ev20 = @e1,0,3,127,3,103,128,0,0;

$Nz1 = o0d+24;
$Nz2 = $Ev11 o0g24  $Ev10;
$Nz3 = $Ev12 o0g+6  $Ev10;
$Nz4 = $Ev12 o0g+12 $Ev10;
$Nz5 = $Ev13 o0g+6  $Ev10;

$Tm1 = o5 $Ev20 @d-800@l800,64,-1,0,0,0 f+12 @d0@l0,0,0,0,0,0
       /*f+96&f96&e96&d+96&d96&c+96&c96&<b96>*/ $Ev10;
$Tm2 = o5 $Ev20 @d-800@l800,64,-1,0,0,0 c+12 @d0@l0,0,0,0,0,0
       /*c+96&c96&<b96&a+96&a96&g+96&g96&f+96*/ $Ev10;
$Tm3 = o4 $Ev20 @d-800@l800,64,-1,0,0,0 a+12 @d0@l0,0,0,0,0,0
       /*a+96&a96&g+96&g96&f+96&f96&e96&d+96*/ $Ev10;
$Tm4 = o4 $Ev20 @d-1600@l1600,128,-1,0,0,0 c+8 @d0@l0,0,0,0,0,0
       /*c+96&c96&<b96&a+96&a96&g+96&g96&f+96&f96&e96&d+96&d96*/ $Ev10;

$F1 = x1 q16@q0 ns0 @d0 @x127
   @7 $Ev10 v11
   /:12 $Nz1 $Nz1 $Nz1 $Nz1 $Nz2 $Nz1 $Nz1 $Nz1 :/
   $Nz1 $Nz1 $Nz1 $Nz1 $Nz2 $Nz1 $Nz1 $Nz1 
   $Nz2 $Nz1 $Nz1 $Nz1 $Nz2 $Nz2 $Nz2 $Nz2

   /:10 $Nz1 $Nz1 $Nz1 $Nz1 $Nz2 $Nz1 $Nz1 $Nz1 :/
   $Nz1 $Nz1 $Nz1 $Nz1 $Nz2 $Nz1 $Nz1 $Nz1 
   $Nz2 $Nz1 $Nz1 $Nz1 $Nz2 $Nz1 $Nz1 $Nz1

   /:3 $Nz1 $Nz1 $Nz1 $Nz1 $Nz2 $Nz2 $Nz2 $Nz2 :/
   $Nz2 $Nz2
   @3@w50 ))$Tm1 $Tm2 $Tm3(( @7

   /:32 $Nz1 $Nz1 $Nz1 $Nz1 $Nz2 $Nz1 $Nz1 $Nz1 :/
   /:3 $Nz1 $Nz1 $Nz1 $Nz1 $Nz2 $Nz2 $Nz2 $Nz2 :/
   $Nz2 $Nz2
   @3@w50 ))$Tm1 $Tm2 $Tm3 $Tm4 $Tm4(( @7
   r12
   $Nz3 $Nz3
   @3@w50 ))$Tm4 $Tm4(( @7
   $Nz4
   /:8 $Nz4 :/
   ) $Nz4 $Nz4 $Nz5 (
;


/* 演奏（ＦＭ） */
$LOOP=32;
t90.25
r8 $A0 /:$LOOP $TA1$A1 $A2M $A3 $A4M $A5 $A6M :/;
r8 $A0 /:$LOOP $TA2$A1 $A2C $A3 $A4C $A5 $A6C :/;
r8 $A0 /:$LOOP $TA3$A1 $A2M $A3 $A4M $A5 $A6M :/;
r8 $A0 /:$LOOP $TA4$A1 $A2C $A3 $A4C $A5 $A6C :/;

r8 $B0 /:$LOOP $TB1$B1 $B2M $B3 $TA1$B4M :/;
r8 $B0 /:$LOOP $TB2$B1 $B2C $B3 $TA2$B4C :/;
r8 $B0 /:$LOOP $TB3$B1 $B2M $B3 $TA3$B4M :/;
r8 $B0 /:$LOOP $TB4$B1 $B2C $B3 $TA4$B4C :/;

r8 $C0       /:$LOOP $TC1$C1 $TD1$C2 $TC1$C3 $TD1$C4 $TC1$C5 $TD1$C6 $TC1$C7 $TD1$C8 $TC1$C9 :/;
r8 $C0       /:$LOOP $TC2$C1 $TD2$C2 $TC2$C3 $TD2$C4 $TC2$C5 $TD2$C6 $TC2$C7 $TD2$C8 $TC2$C9 :/;
r8 $C0       /:$LOOP $TC3$C1 $TD3$C2 $TC3$C3 $TD3$C4 $TC3$C5 $TD3$C6 $TC3$C7 $TD3$C8 $TC3$C9 :/;
r8 $C0 @v111 /:$LOOP $TC4$C1 $TD4$C2 $TC4$C3 $TD4$C4 $TC4$C5 $TD4$C6 $TC4$C7 $TD4$C8 $TC4$C9 :/;

/* 演奏（ＳＳＧ） */
r8 /:$LOOP $D1 :/;
r8 /:$LOOP $E1 :/;
r8 /:$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=33(0.057876..倍), FB=7(2倍). */
#WAV13 0,838A90969DA3A9AFB5BABFC4C8CCD0D3D7DADCDFE2E4E6E8EAECEDEFF0F1F3F4F5F6F7F8F9F9FAFBFBFCFCFDFDFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFEFDFDFDFCFCFCFBFBFAFAF9F9F8F8F8F7F6F6F5F5F4F4F3F2F2F1F1F0EFEFEEEDEDECEBEAEAE9E8E8E7E6E5E4E4E3E2E1E1E0DFDEDDDCDCDBDAD9D8D7D6D6D5D4D3D2D1D0CFCECDCDCCCBCAC9C8C7C6C5C4C3C2C1C0BFBEBDBCBBBAB9B8B7B6B5B4B3B2B1B0AFAEADACABAAA9A8A7A6A5A4A3A2A1A09F9E9D9C9B9A9998979695949291908F8E8D8C8B8A898887868584838281807F7D7C7B7A797877767574737271706F6E6D6C6B696867666564636261605F5E5D5C5B5A595857565554535251504F4E4D4C4B4A494847464544434241403F3E3D3C3B3A39383737363534333231302F2E2D2D2C2B2A2928272626252423222121201F1E1D1D1C1B1A1A19181717161514141312121110100F0E0E0D0D0C0C0B0A0A0909080807070606060505040404030303020202020101010101010101010101010101010101010202020303030404050606070809090A0B0C0D0F101113141617191B1D1F212326282B2E3134383B3F43474B50555A5F656A70767D

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

/* EOF */