176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman#!/usr/bin/perl -w 276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse Getopt::Std; 476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse constant MINROMSIZE => 8192; 676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse constant MAXROMSIZE => 262144; 776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse constant PCI_PTR_LOC => 0x18; # from beginning of ROM 976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse constant PCI_HDR_SIZE => 0x18; 1076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse constant PNP_PTR_LOC => 0x1a; # from beginning of ROM 1176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse constant PNP_HDR_SIZE => 0x20; 1276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse constant PNP_CHKSUM_OFF => 0x9; # bytes from beginning of PnP header 1376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse constant PNP_DEVICE_OFF => 0x10; # bytes from beginning of PnP header 1476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse constant PCI_VEND_ID_OFF => 0x4; # bytes from beginning of PCI header 1576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse constant PCI_DEV_ID_OFF => 0x6; # bytes from beginning of PCI header 1676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse constant PCI_SIZE_OFF => 0x10; # bytes from beginning of PCI header 1776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 1876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse constant UNDI_PTR_LOC => 0x16; # from beginning of ROM 1976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse constant UNDI_HDR_SIZE => 0x16; 2076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse constant UNDI_CHKSUM_OFF => 0x05; 2176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 2276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse strict; 2376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 2476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse vars qw(%opts); 2576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 2676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanuse bytes; 2776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 2876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmansub getromsize ($) { 2976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my ($romref) = @_; 3076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my $i; 3176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 3276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman print STDERR "BIOS extension ROM Image did not start with 0x55 0xAA\n" 3376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman if (substr($$romref, 0, 2) ne "\x55\xaa"); 3476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my $size = ord(substr($$romref, 2, 1)) * 512; 3576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman for ($i = MINROMSIZE; $i < MAXROMSIZE and $i < $size; $i *= 2) { } 3676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman print STDERR "$size is a strange size for a boot ROM\n" 3776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman if ($size > 0 and $i > $size); 3876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman return ($size); 3976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman} 4076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 4176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmansub addident ($) { 4276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my ($romref) = @_; 4376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 4476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman return (0) unless (my $s = $opts{'i'}); 4576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # include the terminating NUL byte too 4676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $s .= "\x00"; 4776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my $len = length($s); 4876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # Put the identifier in only if the space is blank 4976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my $pos = length($$romref) - $len - 2; 5076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman return (0) if (substr($$romref, $pos, $len) ne ("\xFF" x $len)); 5176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman substr($$romref, $pos, $len) = $s; 5276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman return ($pos); 5376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman} 5476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 5576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmansub pcipnpheaders ($$) { 5676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my ($romref, $identoffset) = @_; 5776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my ($pci_hdr_offset, $pnp_hdr_offset); 5876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 5976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $pci_hdr_offset = unpack('v', substr($$romref, PCI_PTR_LOC, 2)); 6076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $pnp_hdr_offset = unpack('v', substr($$romref, PNP_PTR_LOC, 2)); 6176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # Sanity checks 6276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman if ($pci_hdr_offset < PCI_PTR_LOC + 2 6376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman or $pci_hdr_offset > length($$romref) - PCI_HDR_SIZE 6476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman or $pnp_hdr_offset < PNP_PTR_LOC + 2 6576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman or $pnp_hdr_offset > length($$romref) - PNP_HDR_SIZE 6676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman or substr($$romref, $pci_hdr_offset, 4) ne 'PCIR' 6776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman or substr($$romref, $pnp_hdr_offset, 4) ne '$PnP') { 6876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $pci_hdr_offset = $pnp_hdr_offset = 0; 6976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } else { 7076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman printf "PCI header at %#x and PnP header at %#x\n", 7176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $pci_hdr_offset, $pnp_hdr_offset if $opts{'v'}; 7276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } 7376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman if ($pci_hdr_offset > 0) { 7476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my ($pci_vendor_id, $pci_device_id); 7576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # if no -p option, just report what's there 7676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman if (!defined($opts{'p'})) { 7776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $pci_vendor_id = unpack('v', substr($$romref, $pci_hdr_offset+PCI_VEND_ID_OFF, 2)); 7876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $pci_device_id = unpack('v', substr($$romref, $pci_hdr_offset+PCI_DEV_ID_OFF, 2)); 7976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman printf "PCI Vendor ID %#x Device ID %#x\n", 8076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $pci_vendor_id, $pci_device_id; 8176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } else { 8276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman substr($$romref, $pci_hdr_offset + PCI_SIZE_OFF, 2) 8376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman = pack('v', length($$romref) / 512); 8476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman ($pci_vendor_id, $pci_device_id) = split(/,/, $opts{'p'}); 8576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman substr($$romref, $pci_hdr_offset+PCI_VEND_ID_OFF, 2) 8676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman = pack('v', oct($pci_vendor_id)) if ($pci_vendor_id); 8776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman substr($$romref, $pci_hdr_offset+PCI_DEV_ID_OFF, 2) 8876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman = pack('v', oct($pci_device_id)) if ($pci_device_id); 8976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } 9076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } 9176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman if ($pnp_hdr_offset > 0) { 9276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman if (defined($identoffset)) { 9376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # Point to device id string at end of ROM image 9476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman substr($$romref, $pnp_hdr_offset+PNP_DEVICE_OFF, 2) 9576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman = pack('v', $identoffset); 9676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } 9776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman substr($$romref, $pnp_hdr_offset+PNP_CHKSUM_OFF, 1) = "\x00"; 9876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my $sum = unpack('%8C*', substr($$romref, $pnp_hdr_offset, 9976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman PNP_HDR_SIZE)); 10076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman substr($$romref, $pnp_hdr_offset+PNP_CHKSUM_OFF, 1) = chr(256 - $sum); 10176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } 10276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman} 10376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 10476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmansub undiheaders ($) { 10576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my ($romref) = @_; 10676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my ($undi_hdr_offset); 10776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 10876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $undi_hdr_offset = unpack('v', substr($$romref, UNDI_PTR_LOC, 2)); 10976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # Sanity checks 11076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman if ($undi_hdr_offset < UNDI_PTR_LOC + 2 11176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman or $undi_hdr_offset > length($$romref) - UNDI_HDR_SIZE 11276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman or substr($$romref, $undi_hdr_offset, 4) ne 'UNDI') { 11376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $undi_hdr_offset = 0; 11476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } else { 11576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman printf "UNDI header at %#x\n", $undi_hdr_offset if $opts{'v'}; 11676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } 11776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman if ($undi_hdr_offset > 0) { 11876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman substr($$romref, $undi_hdr_offset+UNDI_CHKSUM_OFF, 1) = "\x00"; 11976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my $sum = unpack('%8C*', substr($$romref, $undi_hdr_offset, 12076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman UNDI_HDR_SIZE)); 12176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman substr($$romref, $undi_hdr_offset+UNDI_CHKSUM_OFF, 1) = chr(256 - $sum); 12276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } 12376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman} 12476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 12576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmansub writerom ($$) { 12676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my ($filename, $romref) = @_; 12776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 12876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman open(R, ">$filename") or die "$filename: $!\n"; 12976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman print R $$romref; 13076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman close(R); 13176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman} 13276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 13376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmansub checksum ($$) { 13476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my ($romref, $romsize) = @_; 13576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 13676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman substr($$romref, 6, 1) = "\x00"; 13776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my $sum = unpack('%8C*', substr($$romref, 0, $romsize)); 13876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman substr($$romref, 6, 1) = chr(256 - $sum); 13976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # Double check 14076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $sum = unpack('%8C*', substr($$romref, 0, $romsize)); 14176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman if ($sum != 0) { 14276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman print "Checksum fails\n" 14376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } elsif ($opts{'v'}) { 14476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman print "Checksum ok\n"; 14576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } 14676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman} 14776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 14876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmansub makerom () { 14976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my ($rom, $romsize, $stubsize); 15076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 15176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman getopts('3xni:p:s:v', \%opts); 15276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $ARGV[0] or die "Usage: $0 [-s romsize] [-i ident] [-p vendorid,deviceid] [-n] [-x] [-3] rom-file\n"; 15376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman open(R, $ARGV[0]) or die "$ARGV[0]: $!\n"; 15476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # Read in the whole ROM in one gulp 15576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my $filesize = read(R, $rom, MAXROMSIZE+1); 15676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman close(R); 15776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman defined($filesize) and $filesize >= 3 or die "Cannot get first 3 bytes of file\n"; 15876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman print "$filesize bytes read\n" if $opts{'v'}; 15976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # If PXE image, just fill the length field and write it out 16076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman if ($opts{'x'}) { 16176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman substr($rom, 2, 1) = chr((length($rom) + 511) / 512); 16276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman writerom($ARGV[0], \$rom); 16376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman return; 16476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } 16576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # Size specified with -s overrides value in 3rd byte in image 16676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # -s 0 means round up to next 512 byte block 16776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman if (defined($opts{'s'})) { 16876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman if (($romsize = oct($opts{'s'})) <= 0) { 16976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # NB: This roundup trick only works on powers of 2 17076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $romsize = ($filesize + 511) & ~511 17176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } 17276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } else { 17376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # Shrink romsize down to the smallest power of two that will do 17476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman for ($romsize = MAXROMSIZE; 17576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $romsize > MINROMSIZE and $romsize >= 2*$filesize; 17676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $romsize /= 2) { } 17776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } 17876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman if ($filesize > $romsize) { 17976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman print STDERR "ROM size of $romsize not big enough for data, "; 18076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # NB: This roundup trick only works on powers of 2 18176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $romsize = ($filesize + 511) & ~511; 18276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman print "will use $romsize instead\n" 18376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } 18476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # Pad with 0xFF to $romsize 18576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $rom .= "\xFF" x ($romsize - length($rom)); 18676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # If this is a stub ROM, don't force header size to the full amount 18776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman if (!$opts{'n'}) { 18876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman if ($romsize >= 128 * 1024) { 18976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman print "Warning: ROM size exceeds extension BIOS limit\n"; 19076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } 19176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman substr($rom, 2, 1) = chr(($romsize / 512) % 256); 19276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } else { 19376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $stubsize = ord(substr($rom, 2, 1)) * 512; 19476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman print "Stub size is $stubsize\n" if $opts{'v'}; 19576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman } 19676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman print "ROM size is $romsize\n" if $opts{'v'}; 19776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # set the product string only if we don't have one yet 19876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my $pnp_hdr_offset = unpack('v', substr($rom, PNP_PTR_LOC, 2)); 19976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my $identoffset = substr($rom, $pnp_hdr_offset+PNP_DEVICE_OFF, 2) eq "\0\0" ? addident(\$rom) : undef; 20076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman pcipnpheaders(\$rom, $identoffset); 20176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman undiheaders(\$rom); 20276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # 3c503 requires last two bytes to be 0x80 20376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman substr($rom, MINROMSIZE-2, 2) = "\x80\x80" 20476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman if ($opts{'3'} and $romsize == MINROMSIZE); 20576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman checksum(\$rom, $opts{'n'} ? $stubsize : $romsize); 20676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman writerom($ARGV[0], \$rom); 20776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman} 20876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 20976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmansub modrom () { 21076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my ($rom); 21176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 21276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman getopts('p:v', \%opts); 21376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman $ARGV[0] or die "Usage: $0 [-p vendorid,deviceid] rom-file\n"; 21476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman open(R, $ARGV[0]) or die "$ARGV[0]: $!\n"; 21576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman # Read in the whole ROM in one gulp 21676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman my $filesize = read(R, $rom, MAXROMSIZE+1); 21776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman close(R); 21876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman defined($filesize) and $filesize >= 3 or die "Cannot get first 3 bytes of file\n"; 21976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman print "$filesize bytes read\n" if $opts{'v'}; 22076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman pcipnpheaders(\$rom, undef); 22176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman undiheaders(\$rom); 22276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman checksum(\$rom, ord(substr($rom, 2, 1)) * 512); 22376d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman writerom($ARGV[0], \$rom); 22476d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman} 22576d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman 22676d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman# Main routine. See how we were called and behave accordingly 22776d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanif ($0 =~ m:modrom(\.pl)?$:) { 22876d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman modrom(); 22976d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman} else { 23076d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman makerom(); 23176d05dc695b06c4e987bb8078f78032441e1430cGreg Hartman} 23276d05dc695b06c4e987bb8078f78032441e1430cGreg Hartmanexit(0); 233