--- amv.pl	2007/08/19 19:23:03	29
+++ amv.pl	2007/09/14 19:35:32	30
@@ -483,10 +483,15 @@
 	$pred_val = $origin;
 	$step_idx = $index;
 
+	my $size = 0;
+
 	foreach my $b ( map { ord($_) } split(//, substr($data,8)) ) {
 		print $au_fh pack 'n', adpcm_decode_sample( $b >> 4 );		
 		print $au_fh pack 'n', adpcm_decode_sample( $b & 15 );		
+		$size += 2;
 	}
+
+	warn "length isn't corrent $bytes != $size" if $bytes != $size;
 }