/********************************************************************
   [PC88] SORCERIAN - エンディング１ - (C)Falcom 1987 by LinearDrive
   date:2010-10-04 初版
   date:2010-10-12 ＦＢ変調済み正弦波512samples->880samples,その他
   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:エレピ１ fb5,al4 */
$TA1 = x1 $POFF       @o1,0 @13-0 @e1,0,0,127,99999      @v118 ns12 @d-3;
$TA2 = x1 $POFF @i4,0       @0    @e1,2,15,103,512,0,288       ns12 @d-3;
$TA3 = x1 $POFF       @o1,1 @0    @e1,0,0,127,99999      @v119 ns12 @d3;
$TA4 = x1 $POFF @i4,1       @0    @e1,0,15,103,512,0,288       ns12 @d3;

/* FM-Tone:エレピ１(high)(long) fb5,al4 */
$TB1 = x1 $POFF       @o1,0 @13-0 @e1,0,0,127,99999       @v117 ns24 @d-3;
$TB2 = x1 $POFF @i4,0       @0    @e1,2,15,103,2560,0,288       ns24 @d-3;
$TB3 = x1 $POFF       @o1,1 @0    @e1,0,0,127,99999       @v115 ns24 @d3;
$TB4 = x1 $POFF @i4,1       @0    @e1,0,15,103,2560,0,288       ns24 @d3;

/* FM-Tone:ストリングス１ fb7,al2 */
$TC1 = x1 $POFF       @o1,0 @13-0 @e1,0,44,119,336  @v98  ns0  @d0;
$TC2 = x1 $POFF       @o1,1 @0    @e1,0,40, 87,192  @v112 ns28 @d-14;
$TC3 = x1 $POFF @i4,1 @o2,0 @0    @e1,1,32,111,288  @v79  ns0  @d3;
$TC4 = x1 $POFF @i4,0       @0    @e1,6, 0,127,288        ns0  @d0;

/* FM-Tone:エレピ２ fb7,al4 */
$TD1 = x1 $POFF       @o1,0 @13-0 @e1,0,0,127,99999      @v95  ns0  @d2;
$TD2 = x1 $POFF @i4,0       @0    @e1,1,48,103,56,0,224        ns0  @d0;
$TD3 = x1 $POFF       @o1,1 @0    @e1,0,0,127,99999      @v99  ns19 @d1;
$TD4 = x1 $POFF @i4,1       @0    @e1,0,40,103,64,0,224        ns0  @d1;

/* FM-Tone:ストリングス２ fb7,al3 */
$TE1 = x1 $POFF       @o1,0 @13-0 @e1,0,0,127,336  @v102 ns12 @d1;
$TE2 = x1 $POFF @i4,0 @o1,1 @0    @e1,0,0,127,336  @v102 ns24 @d0;
$TE3 = x1 $POFF       @o2,1 @0    @e1,0,0,127,384  @v92  ns31 @d0;
$TE4 = x1 $POFF @i4,1       @0    @e1,6,0,127,288        ns24 @d0;

/* FM-Tone:エレピ３ fb7,al4 */
$TF1 = x1 $POFF       @o1,0 @13-0 @e1,0,0,127,99999      @v94  ns36 @d-3;
$TF2 = x1 $POFF @i4,0       @0    @e1,2,19,103,192,0,144       ns36 @d-3;
$TF3 = x1 $POFF       @o1,1 @0    @e1,0,0,127,99999      @v103 ns24 @d3;
$TF4 = x1 $POFF @i4,1       @0    @e1,0,19,103,192,0,144       ns24 @d3;

/* FM-Tone:エレピ３(long) fb7,al4 */
$TG1 = x1 $POFF       @o1,0 @13-0 @e1,0,0,127,99999       @v94  ns36 @d-3;
$TG2 = x1 $POFF @i4,0       @0    @e1,2,21,103,2560,0,224       ns36 @d-3;
$TG3 = x1 $POFF       @o1,1 @0    @e1,0,0,127,99999       @v103 ns24 @d3;
$TG4 = x1 $POFF @i4,1       @0    @e1,0,21,103,2560,0,224       ns24 @d3;

/* FM-Tone:ベース fb7,al4 */
$TH1 = x1 $POFF       @o1,0 @13-0 @e1,0,64,119,1024 @v105 ns12 @d6;
$TH2 = x1 $POFF @i4,0       @0    @e1,1, 0,127,288        ns12 @d6;
$TH3 = x1 $POFF       @o1,1 @0    @e1,0,64,119,1024 @v115 ns0  @d-6;
$TH4 = x1 $POFF @i4,1       @0    @e1,0, 0,127,288        ns12 @d0;


/* ＭＭＬ定義（ＦＭ ch.A） */
$A0 = @q0q16 l16
;
$A1 =
   @l0,0,0,0,0,0
   o4 /:4 f6c6://:4 g6c6://:4 f6c6:/ g6c6g6c6g2&g6 >
;
$A2 =
   e2&e6f4e4<b6>d2c12<b12>c4&c12c6<b6a2&a6r6g6c6e6e2
   f12e12d2&d6e2&e6g6g6>d6<b6>c2&c4&c12<b6>c6d6<a2a12b12>c6c12
   c6<b4>c1&c4&c12 <
;
$A3 =
   @l12,24,0,72,0,0 a2&a6b6>c12d6<b6g2&g4a6a+12
   a6e6f2&f12e6d6a6g6f6e6f12g2&g4&g6r6a2&a6b6>c12d6<b6g4&g6>c4&
   c12e2e6e6d6d6c6c6<b6>c6d6d2c1&c2&c4&c12r4r12
;
$A4 = $A2;
$A5 = $A3;
$A6 =
   @l24,32,0,72,0,0 b2&b4&b&b96r96a8&a32r96b8&b32r96>c8&c32r96<b4&b6&b&b96r96
   a2&a4&a6&a&a96r96r6b4&b&b96r96>c4&c&c96r96<b4&b&b96r96a4&
   a&a96r96b8&b32r96g2&g8&g32r96r6g2&g4&g&g96r96g8&g32r96a8&a32
   r96a+8&a+32r96a2&a8&a32r96d4&d6&d&d96r96r6a2&a4&a&a96r96>c8&
   c32r96d8&d32r96c8&c32r96c4&c6&c&c96r96<b1&b2&b4&b6&b&b96r96r4r12 <
;
$A7 =
   @l0,0,0,0,0,0
   /:4 f8&f32r96c8&c32r96:/
   /:4 g8&g32r96c8&c32r96:/
   /:4 f8&f32r96c8&c32r96:/
   g8&g32r96c8&c32r96g8&g32r96c8&c32r96g2&g8&g32r96 >
   e2&e6f4e4<b6>d2c12<b12>c4&c12c6<b6a2&a6r6g6c6e6e2f12e12
   d2&d6e2&e6g6g6>d6<b6>c2&c4&c12<b6>c6d6<a2a12b12>c6c12c6<b4>c1&c4&c12 <
;
$A8 =
   @l12,24,0,72,0,0 a2&a6b6>c12d6<b6g2&g4a6a+12a6e6f2&f12e6d6a6g6f6e6f12
   g2&g4&g6r6a2&a6b6>c12d6<b6g4&g6>c4&c12e2e6e6d6d6c6c6<b6>c6d6
   d2c2&c6r6<a2&a6b6>c12d6<b6g2&g4a6a+12a6e6f4&f6f6e6d6a12g6f4e6f12
   g2&g4&g6r6a2&a6b6>c12d6<b6g4&g6
   @l0,0,0,0,0,0 t96 >c4&c12
   t57 e4&e12r6
   t78 e6
   t89 e6d6d6c6
   t84 c6<b6>c6d6c2&c6
   t38 c2r6
   t45 <<e1&e4&e12
;


/* ＭＭＬ定義（ＦＭ ch.B） */
$B0 = @q0q16 l16
;
$B1 =
   @l0,0,0,0,0,0 o4
   d4&d12d4&d12d4&d12d4&d12e4&e12e4&e12e4&e12
   e4&e12d4&d12d4&d12d4&d12d4&d12e4&e12e4&e12e2&e6 >>
;
$B2 =
   @l0,0,0,0,0,0
   c6<e6g6>c6<b6g6d6g6>c6<e6a6>c6<g6c6e6d6a6c6f6a6
   g6<g6>c6e6f6e6d6c6d6<g6b6>f6e6<g6>g6<g6>d6<g6>g6<b6>c6<a6>e6c6
   <b6g6a6b6>f6<a6>c6<a6>f6<g6a6b6>c6<g6>g6<g6>c6<g6a+6>g6
;
$B3 =
   /:2 a24&a64r48r192f24&f64r48r192c24&c64r48r192f24&f64r48r192:/
   /:2 b24&b64r48r192g24&g64r48r192d24&d64r48r192g24&g64r48r192:/
   /:2 g24&g64r48r192e24&e64r48r192c24&c64r48r192e24&e64r48r192:/
   a24&a64r48r192e24&e64r48r192c+24&c+64r48r192e24&e64r48r192
   <a24&a64r48r192>c+24&c+64r48r192e24&e64r48r192g24&g64r48r192
   /:2 f24&f64r48r192d24&d64r48r192<a24&a64r48r192>d24&d64r48r192:/
   /:2 f24&f64r48r192d24&d64r48r192<g24&g64r48r192>d24&d64r48r192:/
   /:4 e24&e64r48r192c24&c64r48r192<g24&g64r48r192>c24&c64r48r192:/
   /:2 a24&a64r48r192f24&f64r48r192c24&c64r48r192f24&f64r48r192:/
   /:2 b24&b64r48r192g24&g64r48r192d24&d64r48r192g24&g64r48r192:/
   /:2 g24&g64r48r192e24&e64r48r192c24&c64r48r192e24&e64r48r192:/
   /:2 a24&a64r48r192e24&e64r48r192c24&c64r48r192e24&e64r48r192:/ >
   c8&c64r48r192<b8&b64r48r192b8&b64r48r192a8&a64r48r192
   a8&a64r48r192g8&g64r48r192a8&a64r48r192b8&b64r48r192
   @l16,32,0,72,0,0
   f4&f6&f24&f64r48r192e1&e2&e4&e24&e64r48r192r4r12 >
;
$B4 = $B2;
$B5 = $B3;
$B6 =
   <<
   /:12 e12<e12a12>c12:/
   /:4 d12<d12g12b12>:/
   /:4 d12<d12g12a+12>:/
   /:8 c12<d12f12a12>:/  <
;
$B7 =
   b1&b1&b2r4r12 >
;
$B8 =
   @l0,0,0,0,0,0
   d4&d12d4&d12d4&d12d4&d12e4&e12e4&e12e4&e12e4&e12d4&d12
   d4&d12d4&d12d4&d12e4&e12e4&e12e2&e6 >>
;
$B9 =
   c6<e6g6>c6<b6g6d6g6>c6<e6a6>c6<g6c6e6d6a6c6f6a6g6<g6>
   c6e6f6e6d6c6d6<g6b6>f6e6<g6>g6<g6>d6<g6>g6<b6>c6<a6>e6c6<
   b6g6a6b6>f6<a6>c6<a6>f6<g6a6b6>c6<g6>g6<g6>c6<g6a+6>g6
;
$BA =
   /:2 a24&a64r48r192f24&f64r48r192c24&c64r48r192f24&f64r48r192:/
   /:2 b24&b64r48r192g24&g64r48r192d24&d64r48r192g24&g64r48r192:/
   /:2 g24&g64r48r192e24&e64r48r192c24&c64r48r192e24&e64r48r192:/
   a24&a64r48r192e24&e64r48r192c+24&c+64r48r192e24&e64r48r192
   <a24&a64r48r192>c+24&c+64r48r192e24&e64r48r192g24&g64r48r192
   /:2 f24&f64r48r192d24&d64r48r192<a24&a64r48r192>d24&d64r48r192:/
   /:2 f24&f64r48r192d24&d64r48r192<g24&g64r48r192>d24&d64r48r192:/
   /:4 e24&e64r48r192c24&c64r48r192<g24&g64r48r192>c24&c64r48r192:/
   /:2 a24&a64r48r192f24&f64r48r192c24&c64r48r192f24&f64r48r192:/
   /:2 b24&b64r48r192g24&g64r48r192d24&d64r48r192g24&g64r48r192:/
   /:2 g24&g64r48r192e24&e64r48r192c24&c64r48r192e24&e64r48r192:/
   /:2 a24&a64r48r192e24&e64r48r192c24&c64r48r192e24&e64r48r192:/ >
   c8&c64r48r192<b8&b64r48r192b8&b64r48r192a8&a64r48r192
   a8&a64r48r192g8&g64r48r192a8&a64r48r192b8&b64r48r192
   @l16,32,0,72,0,0
   f4&f6&f24&f64r48r192e2&e8&e64r48r192r6
   /:2 a24&a64r48r192f24&f64r48r192c24&c64r48r192f24&f64r48r192:/
   /:2 b24&b64r48r192g24&g64r48r192d24&d64r48r192g24&g64r48r192:/
   /:2 g24&g64r48r192e24&e64r48r192c24&c64r48r192e24&e64r48r192:/
   a24&a64r48r192e24&e64r48r192c+24&c+64r48r192e24&e64r48r192
   <a24&a64r48r192>c+24&c+64r48r192e24&e64r48r192g24&g64r48r192
   /:2 f24&f64r48r192d24&d64r48r192<a24&a64r48r192>d24&d64r48r192:/
   /:2 f24&f64r48r192d24&d64r48r192<g24&g64r48r192>d24&d64r48r192:/
   /:4 e24&e64r48r192c24&c64r48r192<g24&g64r48r192>c24&c64r48r192:/
   /:2 a24&a64r48r192f24&f64r48r192c24&c64r48r192f24&f64r48r192:/
   /:2 b24&b64r48r192g24&g64r48r192d24&d64r48r192g24&g64r48r192:/
   /:2 g24&g64r48r192e24&e64r48r192c24&c64r48r192e24&e64r48r192:/
   @l0,0,0,0,0,0
   a4&a24&a64r48r192r6a8&a64r48r192>c8&c64r48r192<b8&b64r48r192
   b8&b64r48r192a8&a64r48r192a8&a64r48r192g8&g64r48r192a8&a64r48r192
   b8&b64r48r192<g+2&g+8&g+64r48r192a+4&a+6&a+24&a+64r48r192r6
   b1&b4&b24&b64r48r192
;


/* ＭＭＬ定義（ＦＭ ch.C） */
$C0 = @q0q16 l16 @x127 o3
;
$C1M =
   /:3 c1&c6<g6>:/ c2&c6& c6& c6& c6& c6
;
$C1C =
   /:3 c1&c6<g6>:/ c2&c6& c6&@x123 c6&@x119 c6&@x115 c6 @x127
;
$C2 =
   /:2
      c2&c6<b2&b6a2&a6g2&g6f2&f6e2&e6d2&d6g2&g6>c2&c6<
      b2&b6a2&a6g2&g6f2&f6g2&g6>c4&c12c4&c12c4&c12c4&c12<
      f4&f12f4&f12g4&g12g4&g12>c4&c12c4&c12<a4&a12a4&a12>
      d4&d12d4&d12<g4&g12g4&g12>c4&c12c4&c12c4&c12c4&c12<
      f4&f12f4&f12g4&g12g4&g12>c4&c12<b4&b12a4&a12g4&g12
      f4&f12f4&f12g4&g12g4&g12>c1<g4&g12>c1<g4&g12  >
   :/
   <
   /:4 a4&a12:/
   /:4 f+4&f+12:/
   /:4 f4&f12:/
   /:4 e4&e12:/
   /:4 d+4&d+12:/
   /:4 d4&d12:/
   /:4 g4&g12:/
   g2g2d4&d12g2g2&g4&g12r6  >
;
$C3M =
   /:3 c1&c6<g6>:/ c2&c6& c6& c6& c6& c6
;
$C3C =
   /:3 c1&c6<g6>:/ c2&c6& c6&@x123 c6&@x119 c6&@x115 c6 @x127
;
$C4 =
   c2&c6<b2&b6a2&a6g2&g6f2&f6e2&e6d2&d6g2&g6>c2&c6<b2&b6
   a2&a6g2&g6f2&f6g2&g6>c4&c12c4&c12c4&c12c4&c12<f4&f12f4&f12
   g4&g12g4&g12>c4&c12c4&c12<a4&a12a4&a12>d4&d12d4&d12<g4&g12g4&g12>
   c4&c12c4&c12c4&c12c4&c12<f4&f12f4&f12g4&g12g4&g12>c4&c12<
   b4&b12a4&a12g4&g12f4&f12f4&f12g4&g12g4&g12>c4&c12c4&c12d4&d12
   e4&e12<f4&f12f4&f12g4&g12g4&g12>c4&c12c4&c12<a4&a12a4&a12>
   d4&d12d4&d12<g4&g12g4&g12>c4&c12c4&c12c4&c12c4&c12<f4&f12f4&f12
   g4&g12g4&g12>c4&c12<b4&b12a4&a12g4&g12f4&f12f4&f12g4&g12
   g4&g12g+2&g+6a+2r6>c1&c4&c12
;


/* ＭＭＬ定義（ＳＳＧ ch.D） */
$Ev1 = @e1,0,2,127,2,103,544,0,288;
$Ev2 = @e1,0,0,79,160,127,576;
$Ev3 = @e1,0,2,127,8,103,288;
$Ev4 = @e1,0,2,127,2,103,720,0,640;
$D1 = x1 q16@q0 @3 ns0 @d0 v11 l16 @x127 o5
   $Ev1
   /:14 c4&c12:/ c2&c6 >
   /:2
      c2&c6<b2&b6a2&a6g4&g12a6g6f2&f6r6e6<g6>
      c6c2d12c12<b2&b6>c2&c6d6d6b6g6a2&a4&a12g2f2&f6a6a12a6g4
      g1&g4&g12f4&f12f4&f12g4&g12g4&g12e4&e12e4&e12e4&e12e4&e12
      d4&d12d4&d12d4&d12d4&d12e4&e12e12c12e12g12>c6<a+6a6g6
      f4&f12f4&f12g4&g12g4&g12e4&e12g4&g12>c4&c12<b4&b12a4&a12
      a4&a12g4&g12g4&g12g2g2f4&f12e2e2&e4&e12  >
   :/
   )) $Ev2
   /:3 e2&e6r2rr64 r12r192:/
   /:2 d2&d6r2rr64 r12r192:/
   c2&c6r2rr64 r12r192
   f2&f6r2rr64 r12r192
   $Ev3
   g1&g1& g6& @x119 g6& @x111 g6& @x103 g6 r6 @x127  <
   ((
   $Ev1
   /:14 c4&c12:/ c2&c6
   $Ev1 >
   c2&c6<b2&b6a2&a6g4&g12a6g6f2&f6r6e6<g6>c6c2d12c12<b2&b6>
   c2&c6d6d6b6g6a2&a4&a12g2f2&f6a6a12a6g4g1&g4&g12f4&f12f4&f12
   g4&g12g4&g12e4&e12e4&e12e4&e12e4&e12d4&d12d4&d12d4&d12d4&d12
   e4&e12e12c12e12g12>c6<a+6a6g6f4&f12f4&f12g4&g12g4&g12e4&e12
   g4&g12>c4&c12<b4&b12a4&a12a4&a12g4&g12g4&g12f4&f12e4&e12f4&f12
   g4&g12>f4&f12f4&f12g4&g12g4&g12e4&e12e4&e12e4&e12e4&e12d4&d12
   d4&d12d4&d12d4&d12e4&e12e4&e12e4&e12e4&e12f4&f12f4&f12g4&g12
   g4&g12e4&e12g4&g12>c2&c6<a4&a12a4&a12g4&g12g4&g12f2&f6f2r6
   $Ev4
   e1&e4&e12
;


/* ＭＭＬ定義（ＳＳＧ ch.E） */
$E1 = x1 q16@q0 @3 ns0 @d0 v11 l16 @x127 o5
   @d14 $Ev1
   /:14 c4&c12:/ c2&c6
   /:2
      @d0 $Ev1
      g2&g6g2&g6e2&e6e2&e6c2&c6r6c6<e6g6g2&g6g2&g6g2&g6b6b6>
      g6d6e2&e4&e12d2c2&c6f6f12f6d4e1&e4&e12c4&c12c4&c12d4&d12
      d4&d12c4&c12c4&c12c+4&c+12c+4&c+12<a4&a12a4&a12b4&b12b4&b12>
      c4&c12c4&c12c4&c12c4&c12c4&c12c4&c12d4&d12d4&d12c4&c12e4&e12
      a4&a12g4&g12f4&f12f4&f12d4&d12d4&d12e2e2d4&d12c2c2&c4&c12
   :/
   >
   @d12 )) $Ev2
   /:3 e2&e6r2rr64 r12r192:/
   /:2 d2&d6r2rr64 r12r192:/
   c2&c6r2rr64 r12r192
   f2&f6r2rr64 r12r192
   $Ev3
   g1&g1& g6& @x119 g6& @x111 g6& @x103 g6 r6 @x127 <
   ((
   @d14 $Ev1
   /:14 c4&c12:/ c2&c6
   @d0 $Ev1
   g2&g6g2&g6e2&e6e2&e6c2&c6r6c6<e6g6g2&g6g2&g6g2&g6b6b6>g6d6
   e2&e4&e12d2c2&c6f6f12f6d4e1&e4&e12c4&c12c4&c12d4&d12d4&d12
   c4&c12c4&c12c+4&c+12c+4&c+12<a4&a12a4&a12b4&b12b4&b12>c4&c12
   c4&c12c4&c12c4&c12c4&c12c4&c12d4&d12d4&d12c4&c12e4&e12a4&a12
   g4&g12f4&f12f4&f12d4&d12d4&d12c4&c12c4&c12d4&d12e4&e12>c4&c12
   c4&c12d4&d12d4&d12c4&c12c4&c12c+4&c+12c+4&c+12<a4&a12a4&a12
   b4&b12b4&b12>c4&c12c4&c12c4&c12c4&c12c4&c12c4&c12d4&d12d4&d12
   c4&c12e4&e12a2&a6f4&f12f4&f12d4&d12d4&d12<g2&g6g2r6
   $Ev4
   g1&g4&g12
;


/* ＭＭＬ定義（ＳＳＧ ch.F） */
$F1 = x1 q16@q0 @3 ns0 @d0 v8 l16 @x127 o5
   @d-14 $Ev1
   r48 /:4 f6c6:/ /:4 g6c6:/ /:4 f6c6:/
   g6c6g6c6g2&g8&g48 >
   (((
   /:2 
      @d14 $Ev1
      c2&c6<b2&b6a2&a6g4&g12a6g6f2&f6r6e6<g6>c6c2d12c12<b2&b6>
      c2&c6d6d6b6g6a2&a4&a12g2f2&f6a6a12a6g4g1&g4&g12f4&f12f4&f12
      g4&g12g4&g12e4&e12e4&e12e4&e12e4&e12d4&d12d4&d12d4&d12d4&d12
      e4&e12e12c12e12g12>c6<a+6a6g6f4&f12f4&f12g4&g12g4&g12e4&e12
      g4&g12>c4&c12<b4&b12a4&a12a4&a12g4&g12g4&g12g2g2f4&f12e2e2&e4&e12  >
   :/
   ))
   @d0 $Ev2
   /:3 c2&c6r2rr64 r12r192:/ <
   b2&b6r2rr64 r12r192
   a+2&a+6r2rr64 r12r192
   a2&a6r2rr64 r12r192 >
   c2&c6r2rr64 r12r192
   $Ev3
   d1&d1& d6& @x119 d6& @x111 d6& @x103 d6 r6 @x127 <
   )
   @d-14 $Ev1
   r48 /:4 f6c6:/ /:4 g6c6:/ /:4 f6c6:/ g6c6g6c6g2&g8&g48 >
   (((
   @d14 $Ev1
   c2&c6<b2&b6a2&a6g4&g12a6g6f2&f6r6e6<g6>c6c2d12c12<b2&b6>
   c2&c6d6d6b6g6a2&a4&a12g2f2&f6a6a12a6g4g1&g4&g12f4&f12f4&f12
   g4&g12g4&g12e4&e12e4&e12e4&e12e4&e12d4&d12d4&d12d4&d12d4&d12
   e4&e12e12c12e12g12>c6<a+6a6g6f4&f12f4&f12g4&g12g4&g12e4&e12
   g4&g12>c4&c12<b4&b12a4&a12a4&a12g4&g12g4&g12f4&f12e4&e12f4&f12
   g4&g12>f4&f12f4&f12g4&g12g4&g12e4&e12e4&e12e4&e12e4&e12d4&d12
   d4&d12d4&d12d4&d12e4&e12e4&e12e4&e12e4&e12f4&f12f4&f12g4&g12
   g4&g12e4&e12g4&g12>c2&c6<a4&a12a4&a12g4&g12g4&g12f2&f6f2r6
   $Ev4
   e1&e4&e12
;


/* 演奏（ＦＭ） */
t104
r8 $A0    $TA1$A1 /:2 $TA1$A2    $TB1$A3    :/     $TC1$A6     $TA1$A7     $TB1$A8;
r8 $A0v13 $TA2$A1 /:2 $TA2$A2 v12$TB2$A3v13 :/     $TC2$A6 v13 $TA2$A7 v12 $TB2$A8;
r8 $A0    $TA3$A1 /:2 $TA3$A2    $TB3$A3    :/     $TC3$A6     $TA3$A7     $TB3$A8;
r8 $A0v13 $TA4$A1 /:2 $TA4$A2 v12$TB4$A3v13 :/ v11 $TC4$A6 v13 $TA4$A7 v12 $TB4$A8;

r8 $B0    $TA1$B1 /:2    $TD1$B2 $TE1$B3 :/     $TF1$B6 $TG1$B7     $TA1$B8    $TD1$B9 $TE1$BA;
r8 $B0v12 $TA2$B1 /:2 v9 $TD2$B2 $TE2$B3 :/ v11 $TF2$B6 $TG2$B7 v12 $TA2$B8 v9 $TD2$B9 $TE2$BA;
r8 $B0    $TA3$B1 /:2    $TD3$B2 $TE3$B3 :/     $TF3$B6 $TG3$B7     $TA3$B8    $TD3$B9 $TE3$BA;
r8 $B0v12 $TA4$B1 /:2 v9 $TD4$B2 $TE4$B3 :/ v11 $TF4$B6 $TG4$B7 v12 $TA4$B8 v9 $TD4$B9 $TE4$BA;

r8 $C0    $TH1$C1M     $C2 $C3M     $C4;
r8 $C0v12 $TH2$C1C v12 $C2 $C3C v12 $C4;
r8 $C0    $TH3$C1M     $C2 $C3M     $C4;
r8 $C0v12 $TH4$C1C v12 $C2 $C3C v12 $C4;

/* 演奏（ＳＳＧ） */
r8 $D1;
r8 $E1;
r8 $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*/