/*
   [AC] THE TOWER OF DRUAGA - FLOOR START ～ MAIN BGM - (C)namco 1984 by LinearDrive
   date: 2011-03-09 [FlMML rev.38704]
   JASRAC: 066-5490-8
*/

#OCTAVE REVERSE
#VELOCITY REVERSE

/* THE TOWER OF DRUAGA 波形データ */
/*        |---.---l---.---|---.---l---.--- */
#WAV10 00,0EEEEEEEEEEEEEEE0000000000000000
#WAV10 01,D69165FCAC442B8E583A69297095A586
#WAV10 02,7ACCEECCEEC977557997752002200223
#WAV10 03,ACEECBA9ABB334554200234543333211
#WAV10 04,7ACDEDCA742101247BDEDB7310137E70
#WAV10 05,ACCA778BDEDA65579984101367742247
#WAV10 06,9ABCDDEEEDDCBA975432110001123457
#WAV10 07,FFE01100CCB01100AA90110088701100


/* シーケンサ初期化用 */
$INITWSG = r8 q16 @q0 x0 @x127 v0 ns0 @d0 @l0,0,0,0,0,0;


/* ＭＭＬ定義 (wsg ch.1) */
$EvA1= @e1, 0, 0,127, 24;
$A0= 
   t151.50 
   $INITWSG
   @10-4 o4 @d-20 v9 $EvA1
;
$A1= 
   q6 a+6> q2 f12 q8 a+4g+4 q1 g16f16d+16g16 q8 f8. q1 d+16 q12 f2 
   q6 d+6 q2 f12> q8 c4<a+4 q2 g+8g8f8d+8 q10 f1
   r16

   t130.00
   @10-4 o4 v9
;
$A2= 
   q4 a+8 q1 a+16a+16a+16a+16a+16>c16d16c8<a+16> q12 f16&f2 q1 d+16f16g16
   f8. q10 a+4 q1 a16a+16<a16>f16d16 q13 c2.<
   q4 b8  q1 b16b16b16b16b16>c+16d+16c+8<b16> q12 f+16&f+2 q1 g+16f+16e16
   q6 f+8. q1 g+16f+16e16 q4 f+8 q1 e16d+16<b16g+16> q16 c+4.< q8 b8.> 
   q4 d8d16 q12 e4.. q1 d16e16g16f+16d16g16f+16d16 q10 e8. 
   q4 f8f16 q10 g4   q1 f16g16a+16a16f16a+16a16f16 q11 g4. q8 f8.< 
   q4 a+8 q1 a+16a+16a+16a+16a+16>c16d16c8<a+16> q12 f16&f2 q1 d+16f16g16
   f8. q10 a+4 q1 a16a+16<a16>f16d16 q13 c2. 
   q1 c+16c+16c+16 q4 c+8 q1 c+16c+16d+16f16 q4 d+8 q1 c+16 q12 g+16&g+2 q1 a+16g+16f+16
   q6 g+8. q1 a+16g+16f+16 q4 g+8 q1 f+16f16c+16<a+16> q12 d+4. q8 c+8.r8.<
;


/* ＭＭＬ定義 (wsg ch.2) */
$EvB1= @e1, 0, 0,127, 24;
$EvB2= @e1, 0, 0,127, 8;
$EvB3= @e1, 3, 15, 0, 0;
$EvB4= @e1, 0, 0, 85, 24;
$B0= 
   $INITWSG
   @10-2 o4 @d-20 v6 $EvB1
   r16
;
$B1= 
   q8 a+6> q2 f12 q8 a+4g+4 q1 $EvB2 g16f16d+16g16 $EvB1 q8 f8. q1 d+16 q12 f2 
   q8 d+6 q2 f12> q8 c4<a+4 q4 g+8g8f8d+8 q10 f1

   @10-4 o3 v14 q16
;
$B2= 
   $EvB3 
   a+8.f8.a+8.f8.a+8.f8.a+8.> $EvB4 g8. $EvB3 f8. $EvB4 g8. $EvB3 f8.<a+8.>c8.c8.<a8.f8.
   b8.f+8.b8.f+8.b8.f+8.b8.> $EvB4 g+8. $EvB3 f+8. $EvB4 g+8. $EvB3 f+8.<b8.>c+8.<f+16f+16f+16b8.
   $EvB4 
   r2...>>> q1 g16f+16d16 q10 e8.
   r2.      q1 a+16a16f16 q11 g4.<<< 
   $EvB3 q16
   f8. 
   a+8.f8.a+8.f8.a+8.f8.a+8.> $EvB4 g8. $EvB3 f8. $EvB4 g8. $EvB3 f8.<a+8.>c8.c8.<a8.f8.>
   c+8.<g+8.>c+8.<g+8.>c+8.<g+8.>c+8. 
   $EvB4 a+8. $EvB3 g+8. $EvB4 a+8. $EvB3 g+8.c+8.d+8.<g+16g+16g+16>c+8.<f16f16f16
;


/* ＭＭＬ定義 (wsg ch.3) */
$EvC3= @e1, 0, 2,127,19,0, 0;
$EvC4= @e1, 0, 0,85, 24;
$C0= 
   $INITWSG
   @10-4 o5 @d-20 v9 $EvA1
;
$C1= 
   q6 r6 q2 d12 q8 f4d+4 q1 d+16d16c16d+16 q8 d8. q1 c16 q12 d2 
   q6 c6 q2 d12 q8 g+4g4 q2 f8d+8d8c8 q10 d1
   r16

   @10-2 o3 v14 q16
;
$C2= 
   $EvC3
   a+16a+16a+16>c8.< a+16a+16a+16>c8.< a+16a+16a+16>c8.d8.
   $EvC4 g8. $EvC3 f8. $EvC4 g8. $EvC3 f8.d8.c8.<g8.a16g16a16g8f16
   b16b16b16>c+8.<b16b16b16>c+8.<b16b16b16>c+8.d+8.
   $EvC4 g+8. $EvC3 f+8. $EvC4 g+8. $EvC3 f+8.d+8.f+8.<a+16g+16a+16b8.
   @10-4 $EvC4 
   r4. > q4 d8 q1 d16e16d16e16g16f+16d16 b16a16g16      q10 a8.
   r8.   q4 f8 q1 f16g16f16g16a+16a16f16 > d16d16<a+16> q11 c4.< q16
   @10-2 $EvC3 
   a16f16c16< 
   a+16a+16a+16>c8.<a+16a+16a+16>c8.<a+16a+16a+16>c8.d8.
   $EvC4 g8. $EvC3 f8. $EvC4 g8. $EvC3 f8.d8.c8.<g8.a16g16a16g8f16>
   c+16c+16c+16d+8.c+16c+16c+16d+8.c+16c+16c+16d+8.f8.
   $EvC4 a+8. $EvC3 g+8. $EvC4 a+8. $EvC3 g+8.f8.f+8.<g+16f+16g+16>c+8.f16c16<a16
;


/* ＭＭＬ定義 (wsg ch.4) */
$D0= 
   $INITWSG
   @10-2 o5 @d-20 v6 $EvB1
   r16
;
$D1= 
   q8 r6 q2 d12 q8 f4d+4 q1 $EvB2 d+16d16c16d+16 $EvB1 q8 d8. q1 c16 q12 d2 
   q8 c6 q2 d12 q8 g+4g4 q4 f8d+8d8c8 q10 d1

   @10-2 o4 v14 q16
;
$D2= 
   $EvC3
   d16d16d16d+8.d16d16d16d+8.d16d16d16d+8.f8.
   $EvC4 a+8. $EvC3 a8. $EvC4 a+8. $EvC3 a8.f8.d+8.d+8.f8.f8.
   d+16d+16d+16e8.d+16d+16d+16e8.d+16d+16d+16e8.f+8.
   $EvC4 b8. $EvC3 a+8. $EvC4 b8. $EvC3 a+8.f+8.a+8.a+16g+16a+16d+8.
   @10-4 $EvC4 
   r2... q1 >d16d16<b16> q10 c+8.
   r2.   q1  f16f16d16   q11 e4. q16
   @10-2 $EvC3 
   c16<a16f16
   d16d16d16d+8.d16d16d16d+8.d16d16d16d+8.f8.
   $EvC4 a+8. $EvC3 a8. $EvC4 a+8. $EvC3 a8.f8.d+8.d+8.f8.f8.
   f16f16f16f+8.f16f16f16f+8.f16f16f16f+8.g+8.>
   $EvC4 c+8.$EvC3 c8. $EvC4 c+8. $EvC3 c8.<
   g+8.a+8.g+16f+16g+16f8.a16f16c16
;


/* ＭＭＬ定義 (wsg ch.5) */
$E0= 
   $INITWSG
   @10-4 o5 @d-20 v9 $EvA1
;
$E1= 
   q6 r4           q8 d4c4< q1 a+16a+16g+16>c16< q8 a+8. q1 g+16 q12 a+2 
   q6 g+6 q2 a+12> q8 d+4d+4 q2 c+8c8<a+8g+8 q10 a+1
;


/* ＭＭＬ定義 (wsg ch.6) */
$F0= 
   $INITWSG
   @10-2 o5 @d-20 v6 $EvB1
   r16
;
$F1= 
   q8 r4           q8 d4c4< q1 $EvB2 a+16a+16g+16>c16< $EvB1 q8 a+8. q1 g+16 q12 a+2 
   q8 g+6 q2 a+12> q8 d+4d+4 q4 c+8c8<a+8g+8 q10 a+1
;


/* ＭＭＬ定義 (wsg ch.7) */
$EvG1= @e1, 0, 0,127, 26;
$EvG2= @e1, 0, 0,127, 0;
$G0= 
   $INITWSG
   @10-2 o3 @d-20 v15 $EvG1
;
$G1= 
   q16 /:29 @x127a+48&@x96a+48& :/ @x127a+48&@x96a+48 @x127 r8
   q8 $EvG2 f16 f16
   q4 $EvG1 a+8f8a+8f8
   q16 /:23 @x127a+48&@x96a+48& :/ @x127a+48&@x96a+48 @x127 r4
   q2 f4<a+4 r4
;


/* ＭＭＬ定義 (wsg ch.8) */
$H0= 
   $INITWSG
   @10-2 o3 @d-8 v15 $EvG1
;
$H1=
   $G1 
;


/* 演奏 */
$LOOP=48;
$A0$A1 /:$LOOP $A2 :/;
$B0$B1 /:$LOOP $B2 :/;
$C0$C1 /:$LOOP $C2 :/;
$D0$D1 /:$LOOP $D2 :/;
$E0$E1;
$F0$F1;
$G0$G1;
$H0$H1;


/*EOF*/