9 lines
236 B
Perl
9 lines
236 B
Perl
#!/usr/bin/perl
|
|
$base = 0x220000;
|
|
$off = $ARGV[0];
|
|
$dsc = $base+hex($off)*4;
|
|
$start = ($dsc & ~15)-64;
|
|
$| = 1;
|
|
printf("Descriptor is at 0x%06x\n",$dsc);
|
|
system("hexdump -e'\"%06.6_ax \" 16/1 \"%02x \" \"\\n\"' -s $start /var/tmp/all");
|