| 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/^\+/ ) { |
Parent Directory
| 
Revision Log
| 
Patch