| 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 ) { |
Parent Directory
| 
Revision Log
| 
Patch