#!/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);