/* [AC] DIGDUG - CREDIT ～ GAME START ～ BGM - (C)namco 1982 by LinearDrive */
/* date:2010-08-20 */
/* JASRAC: 066-5382-1 */

#OCTAVE REVERSE

/* DIGDUG 波形データ */
/*        |---.---l---.---|---.---l---.--- */
#WAV10 00,79ABCDDEEEDDCBA97543211000112345
#WAV10 01,79AB7DD7E7DD7BA97573717070717375
#WAV10 02,EEEEEEEEEEEEEEEE0000000000000000
#WAV10 03,BDEDCA888ACDEDB84212357775321247
#WAV10 04,7ACDEDCA742101247BDEDB7310137E70
#WAV10 05,7EC9CEA7CFD8AB728D94572038513631
#WAV10 06,78ACEDCCBA87567889AB986544324689
#WAV10 07,ACCA778BDEDA65579984101367742247


/* wsg ch.1 */
$EvA1= @e1, 0, 4,95, 2,47, 5,0, 0;
$EvA2= @e1, 0,10,95, 10;
$A0= x0 v13 o4 l16 q16 @q0
     rrrrrrrr
;
$A1= v13 @10-2 @d36 o7 $EvA1
     f+ggg < f+ggg <f+ggg >>r
     ggggrergergaeeerdcrc+r<gr>c+<gr>c+rdddr4
;
$A2= v13 @10-3 @d36 o6 $EvA2 q8
     f+gggrgggggggrgggerderdederrrdrrr
     d+eeereeeeeeereeeerderdedgrrrrrrr
;


/* wsg ch.2 */
$EvB1= @e1, 0, 10,95, 0;
$EvB2= @e1, 0, 5,95, 2,47, 7,0, 0;
$B0= x0 v13 o4 l16 q16 @q0
     rrrrrrrr
;
$B1= v13 @10-0 @d36 o6 $EvB1
     f+ggg < f+ggg <f+ggg >>r
     ggggrerge8gaeee8dc8c+r<gr>c+<g8>c+8ddd&d4
;
$B2= v13 @10-4 @d36 o5 $EvB2
     cgcg <b>g<b>g <a+>g<a+>g <a>g<a>g
     <g+>f<g+>f<g+>f<g+>f <g>f <g>f <a>f <b>f
     cgcg <b>g<b>g <a+>g<a+>g <a>g<a>g
     <g+>f<g+>f<g+>f<g+>f <g>f <g>f <a>f <b>f
;


/* wsg ch.3 */
$EvC1= @e1, 0, 10,95, 0;
$EvC2= @e1, 0, 12, 0, 0;
$C0= x0 v13 o6 l16 q16 @q0
     @10-3 @d36 $EvC1
     g+a>cegec<a
;
$C1= v13 @10-5 @d36 o4 $EvC2
     rrrr rrrr rrrr r
     gab>c<g>c<g>c<g>c<g>c<g>c<g>c<g>c<ga+ga+ga+ga+gbgbgr4
;
$C2= 
     rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
     rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
;


/* 演奏 */

$LOOP= 96;

t120 r8
t230 $A0 r2.
t114 $A1 r4.
t114 /:$LOOP $A2 :/;

r8
$B0 r2.
$B1 r4.
/:$LOOP $B2 :/;

r8
$C0 r2.
$C1 r4.
/:$LOOP $C2 :/;