361 |
$a = $v if defined($v); |
$a = $v if defined($v); |
362 |
my $to = shift @v; |
my $to = shift @v; |
363 |
$to = $a + 32 if ( ! $to || $to <= $a ); |
$to = $a + 32 if ( ! $to || $to <= $a ); |
364 |
my $lines = int( ($to - $a - 8) / 8 ); |
my $lines = int( ($to - $a + 8) / 8 ); |
365 |
printf "## m %04x %04x lines: %d\n", $a, $to, $lines; |
printf "## e %04x %04x (%d bytes) lines: %d\n", $a, $to, ($to-$a), $lines; |
366 |
while ( $lines ) { |
while ( --$lines ) { |
367 |
print $self->hexdump( $a ); |
print $self->hexdump( $a ); |
368 |
$a += 8; |
$a += 8; |
|
$lines--; |
|
369 |
} |
} |
370 |
$last = '+'; |
$last = '+'; |
371 |
} elsif ( $c =~ m/^\+/ ) { |
} elsif ( $c =~ m/^\+/ ) { |