#TITLE ふぁみこんむかし話 新・鬼ヶ島 / 第四章 ～みずうみ～
#ARTIST Koji Kondo (Nintendo)
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT 2014/1/19 rev.0


$LOOP = 64; /* 好きなだけリピート */


#WAV13 2,80 F0 F0 EE EE EC EC EA EA E9 E9 E7 E7 E5 E5 E4 E3 E2 E2 E1 E0 DF DE DD DD DC DB DA DA D9 D8 D7 D7 D6 D5 D5 D4 D3 D2 D2 D1 D0 D0 CF CE CE CD CC CC CB CB CA C9 C9 C8 C8 C7 C6 C6 C5 C4 C4 C3 C3 C2 C2 C1 C1 C0 C0 BF BF BD BE BC BD BB BD BA BC B9 BB B8 BA AA 18 10 12 11 14 13 16 15 18 17 19 19 1B 1B 1C 1C 1E 1E 20 20 21 21 23 23 24 25 26 26 27 28 29 29 2A 2B 2B 2C 2D 2D 2E 2F 30 30 31 32 32 33 33 34 35 35 36 37 37 38 38 39 3A 3A 3B 3B 3C 3D 3D 3E 3E 3F 3F 40 40 41 41 42 42 43 43 44 44 45 45 46 46 48 47 49 /* FC_Sqr(1:1) */


/* =-=-=- SQR -=-=-= */

$ExB5 = @E1, 0, 48, 0, 0; /* |＼ */
$LxB3 = @L3, 36, -3, 5, 99, 0;

$S1 = /:2 eab<eab<debae>b> :/;
$S2 = /:2 dga<dga<cdagd> / a> :/;

t152 @13-2 @V40 o4 l8 q16 @Q1 $ExB5 $LxB3
/:$LOOP
$S1 $S2 a>
:/
;


/* =-=-=- SQR -=-=-= */

t152 @13-2 @V40 o4 l8 q16 @Q1 $ExB5
/:$LOOP
r16 $S1 $S2 a16>
:/
;