--- M6502/Orao.pm	2007/07/31 15:53:02	58
+++ M6502/Orao.pm	2007/07/31 16:06:27	59
@@ -361,12 +361,11 @@
 			$a = $v if defined($v);
 			my $to = shift @v;
 			$to = $a + 32 if ( ! $to || $to <= $a );
-			my $lines = int( ($to - $a - 8) / 8 );
-			printf "## m %04x %04x lines: %d\n", $a, $to, $lines;
-			while ( $lines ) {
+			my $lines = int( ($to - $a + 8) / 8 );
+			printf "## e %04x %04x (%d bytes) lines: %d\n", $a, $to, ($to-$a), $lines;
+			while ( --$lines ) {
 				print $self->hexdump( $a );
 				$a += 8;
-				$lines--;
 			}
 			$last = '+';
 		} elsif ( $c =~ m/^\+/ ) {