115 lines
2.9 KiB
Perl
115 lines
2.9 KiB
Perl
|
#!/usr/bin/perl -w
|
||
|
|
#
|
||
|
|
# Program to display key information about a boot ROM
|
||
|
|
# including PCI and PnP structures
|
||
|
|
#
|
||
|
|
# GPL, Ken Yap 2001
|
||
|
|
#
|
||
|
|
|
||
|
|
use bytes;
|
||
|
|
|
||
|
|
sub getid ($)
|
||
|
|
{
|
||
|
|
my ($offset) = @_;
|
||
|
|
|
||
|
|
return '' if ($offset == 0 or $offset > $len);
|
||
|
|
my ($string) = unpack('Z32', substr($data, $offset, 32));
|
||
|
|
return ($string);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub dispci
|
||
|
|
{
|
||
|
|
my ($pcidata) = substr($data, $pci, 0x18);
|
||
|
|
my ($dummy, $vendorid, $deviceid, $vpd, $pcilen, $pcirev,
|
||
|
|
$class1, $class2, $class3, $imglen, $coderev, $codetype,
|
||
|
|
$indicator) = unpack('a4v4C4v2C2', $pcidata);
|
||
|
|
$imglen *= 512;
|
||
|
|
my $vendorstr = sprintf('%#04x', $vendorid);
|
||
|
|
my $devicestr = sprintf('%#04x', $deviceid);
|
||
|
|
my $coderevstr = sprintf('%#04x', $coderev);
|
||
|
|
print <<EOF;
|
||
|
|
PCI structure:
|
||
|
|
|
||
|
|
Vital product data: $vpd
|
||
|
|
Vendor ID: $vendorstr
|
||
|
|
Device ID: $devicestr
|
||
|
|
Device base type: $class1
|
||
|
|
Device sub type: $class2
|
||
|
|
Device interface type: $class3
|
||
|
|
Image length: $imglen
|
||
|
|
Code revision: $coderevstr
|
||
|
|
Code type: $codetype
|
||
|
|
Indicator: $indicator
|
||
|
|
|
||
|
|
EOF
|
||
|
|
}
|
||
|
|
|
||
|
|
sub dispnp
|
||
|
|
{
|
||
|
|
my ($pnpdata) = substr($data, $pnp, 0x20);
|
||
|
|
my ($dummy1, $pnprev, $pnplen, $nextpnp, $dummy2,
|
||
|
|
$pnpcsum, $deviceid, $mfrid, $productid,
|
||
|
|
$class1, $class2, $class3, $indicator,
|
||
|
|
$bcv, $dv, $bev, $dummy, $sri) = unpack('a4C2vC2a4v2C4v5', $pnpdata);
|
||
|
|
print <<EOF;
|
||
|
|
PnP structure:
|
||
|
|
|
||
|
|
EOF
|
||
|
|
print 'Vendor: ', &getid($mfrid), "\n";
|
||
|
|
print 'Device: ', &getid($productid), "\n";
|
||
|
|
my $indicatorstr = sprintf('%#02x', $indicator);
|
||
|
|
my $bcvstr = sprintf('%#04x', $bcv);
|
||
|
|
my $dvstr = sprintf('%#04x', $dv);
|
||
|
|
my $bevstr = sprintf('%#04x', $bev);
|
||
|
|
my $sristr = sprintf('%#04x', $sri);
|
||
|
|
my $checksum = unpack('%8C*', $pnpdata);
|
||
|
|
print <<EOF;
|
||
|
|
Device base type: $class1
|
||
|
|
Device sub type: $class2
|
||
|
|
Device interface type: $class3
|
||
|
|
Device indicator: $indicatorstr
|
||
|
|
Boot connection vector: $bcvstr
|
||
|
|
Disconnect vector: $dvstr
|
||
|
|
Bootstrap entry vector: $bevstr
|
||
|
|
Static resource information vector: $sristr
|
||
|
|
Checksum: $checksum
|
||
|
|
|
||
|
|
EOF
|
||
|
|
}
|
||
|
|
|
||
|
|
sub pcipnp
|
||
|
|
{
|
||
|
|
($pci, $pnp) = unpack('v2', substr($data, 0x18, 4));
|
||
|
|
if ($pci >= $len or $pnp >= $len) {
|
||
|
|
print "$file: Not a PCI PnP ROM image\n";
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (substr($data, $pci, 4) ne 'PCIR' or substr($data, $pnp, 4) ne '$PnP') {
|
||
|
|
print "$file: No PCI and PNP structures, not a PCI PNP ROM image\n";
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
&dispci();
|
||
|
|
&dispnp();
|
||
|
|
}
|
||
|
|
|
||
|
|
$file = $#ARGV >= 0 ? $ARGV[0] : '-';
|
||
|
|
open(F, "$file") or die "$file: $!\n";
|
||
|
|
binmode(F);
|
||
|
|
# Handle up to 64kB ROM images
|
||
|
|
$len = read(F, $data, 64*1024);
|
||
|
|
close(F);
|
||
|
|
defined($len) or die "$file: $!\n";
|
||
|
|
substr($data, 0, 2) eq "\x55\xAA" or die "$file: Not a boot ROM image\n";
|
||
|
|
my ($codelen) = unpack('C', substr($data, 2, 1));
|
||
|
|
$codelen *= 512;
|
||
|
|
if ($codelen < $len) {
|
||
|
|
my $pad = $len - $codelen;
|
||
|
|
print "Image is $codelen bytes and has $pad bytes of padding following\n";
|
||
|
|
$data = substr($data, 0, $codelen);
|
||
|
|
} elsif ($codelen > $len) {
|
||
|
|
print "Image should be $codelen bytes but is truncated to $len bytes\n";}
|
||
|
|
&pcipnp();
|
||
|
|
($csum) = unpack('%8C*', $data);
|
||
|
|
print "ROM checksum: $csum \n";
|
||
|
|
exit(0);
|