OpenCores
URL https://opencores.org/ocsvn/light8080/light8080/trunk

Subversion Repositories light8080

Compare Revisions

  • This comparison shows the changes necessary to convert path 
    /
    from Rev 17 to Rev 16
    ↔ Reverse comparison
  •

Rev 17 → Rev 16

/trunk/util/hexconv.pl
1,19 → 1,3
################################################################################
# hexconv.pl : builds a VHDL 'rom data block' from an intel HEX file.
#
# Usage : hexconv.pl <hexfile> <hex start address> <hex table size>
#
# Both numeric parameters should be given in hexadecimal with no special syntax
# (i.e. 0800 and not 0x0800 or 0800h).
#
# The output is printed to the console; it should be redirected to a file and
# then copied-and-pasted into the VHDL source...
#
# This crude script could be trivially modified to insert the rom block into a
# vhdl template. Use the setup that suits you best.
#
################################################################################
 
$usage = "Usage: hexconv.pl <hexfile> <hex start address> <hex table size>";
 
$file = shift(ARGV);
40,14 → 24,13
for($i=0;$i<65536;$i++){ $data_array[$i] = 0; };
 
$line_no = 0;
foreach $line (@lines){ # process each HEX line
foreach $line (@lines){
chomp($line); # remove trailing NL
chomp($line);
$line_no++;
if(length($line)>=11 and substr($line, 0, 1) eq ':'){
$total_length = length($line);
# extract all the fields of the HEX record
$len = substr($line, 1,2);
$addr = substr($line, 3,4);
$type = substr($line, 7,2);
54,7 → 37,7
$csum = substr($line, $total_length-3,2);
$data = substr($line, 9,$total_length-11);
# Process data records and utterly ignore all others (end record, etc.)
# Process data records and utterly ignore all others
# Note that the checksum field is ignored too; we rely on the correctness
# of the hex file.
if($type eq '00'){
70,10 → 53,10
};
$chksum = 0;
for($i=0;$i<$len;$i++){ # process each byte in the HEX line
for($i=0;$i<$len;$i++){
$data_byte = substr($line, 9+$i*2, 2);
$data_byte = hex $data_byte;
$chksum += $data_byte; # the checksum is computed but it't not used
$chksum += $data_byte;
$data_array[$first_addr+$i] = $data_byte;
$bytes_read++;
}
80,31 → 63,25
}
}
else{ # if there's any trouble at all, choke and quit
else{
die "Wrong format in line $line_no\n";
}
}
 
 
printf "Done. %d (%0xh) data bytes read.\n", $bytes_read, $bytes_read;
 
# Ok, the HEX file has been parsed, now dump it in VHDL format
 
# if there's any data lying out of the bounds given by the user, quit in error
 
# is there data below the bottom boud?
if($min_address < $start_addr or $max_address < $start_addr){
die "Hex data out of bounds";
}
 
# is there data above top bound?
$upper_bound = $start_addr + $table_size;
 
if($min_address > $upper_bound or
$max_address > $upper_bound){
die "Hex data out of bounds: ".$upper_bound;
}
 
# Ok, all data within bounds; print the address range covered by the HEX file
# and if there's any gap that had oto be filled with default valued, say it too.
printf "Data address span [%04x : %04x]\n", $min_address, $max_address;
$bytes_defaulted = ($max_address-$min_address+1)-$bytes_read;
if($bytes_defaulted > 0){
111,23 → 88,24
printf "(%d bytes defaulted to 0)\n", $bytes_defaulted;
}
 
# Now print the data, 8 bytes per line
# TODO argv
$col = 0;
for($i=0;$i<$table_size;$i++){
$q = $data_array[$start_addr+$i];
#$qb = to_bin($q, 8); #in case you want the VHDL in binary for some reason...
#$qb = to_bin($q, 8);
printf "X\"%02x\"", $q;
if($i<$table_size-1){
printf ",";
}
$col++;
if($col eq 8){ # 8 bytes per column
if($col eq 8){
print "\n";
$col = 0;
}
}
 
# Converts an integer into a binary string
 
 
sub to_bin {
my $number = shift(@_) * 1;
my $length = shift(@_);

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.