248 |
return sprintf(" %04x %s\n", $a, |
return sprintf(" %04x %s\n", $a, |
249 |
join(" ", |
join(" ", |
250 |
map { |
map { |
251 |
sprintf( "%02x", $_ ) |
if ( defined($_) ) { |
252 |
|
sprintf( "%02x", $_ ) |
253 |
|
} else { |
254 |
|
' ' |
255 |
|
} |
256 |
} @mem[ $a .. $a+8 ] |
} @mem[ $a .. $a+8 ] |
257 |
) |
) |
258 |
); |
); |
383 |
$a = $v if defined($v); |
$a = $v if defined($v); |
384 |
my $to = shift @v; |
my $to = shift @v; |
385 |
$to = $a + 32 if ( ! $to || $to <= $a ); |
$to = $a + 32 if ( ! $to || $to <= $a ); |
386 |
|
$to = 0xffff if ( $to > 0xffff ); |
387 |
my $lines = int( ($to - $a + 8) / 8 ); |
my $lines = int( ($to - $a + 8) / 8 ); |
388 |
printf "## e %04x %04x (%d bytes) lines: %d\n", $a, $to, ($to-$a), $lines; |
printf "## e %04x %04x (%d bytes) lines: %d\n", $a, $to, ($to-$a), $lines; |
389 |
while ( --$lines ) { |
while ( --$lines ) { |