Subversion Repositories or1k_soc_on_altera_embedded_dev_kit

#!/usr/bin/perl
 
@data = ();
 
# Intel HEX format interpreter
while(<>) {
  if (m/\:([A-F0-9]{2})([A-F0-9]{4})([A-F0-9]{2})([A-F0-9]+)([A-F0-9]{2})/) {
    $vec = $4;
    $len = hex $1;
    $rec_type = $3;
    $byte_addr = (hex $2);
    if ($len > 0) {
      for (my($i)=0; $i < $len*2; $i+=2) {
        $data[$byte_addr++] = hex substr($vec, $i, 2);
      }
    }
  }
}
 
use Shell;
#Execute a command which parses the System.map file and determines the address
#of the boot code, and thus the total size of it that will be loaded from the
#SPI flash.
$code_size_cmd = "tail -n 1 System.map | sed 's/:.*//g' | sed 's/^[ ]*//'";
$code_size = hex(qx{ $code_size_cmd });
 
#The following doesn't want to play for some reason; unrolling...
#for(my($j)=0; $j < 4; $j++){
#    $size_bytes[$j] = $code_size & (hex(ff)<<($j*2)) / (hex(1)<<($j*2));
#}
 
$size_bytes[0] = $code_size & hex(ff) / hex(1);
$size_bytes[1] = ($code_size & hex(ff00)) / hex(100);
$size_bytes[2] = ($code_size & hex(ff0000)) / hex(10000);
$size_bytes[3] = ($code_size & hex(ff000000)) / hex(1000000);
#printf("//SPI Flash ROM data, byte per line. First word is length of ROM\n");
#for(my($j)=0; $j < 4; $j++){
#    printf("%2.2x\n",$size_bytes[3-$j]);
#}
$i =0;
print("WIDTH=8;\n");
print("DEPTH=".($#data + 1).";\n");
print("ADDRESS_RADIX = HEX;\n");
print("DATA_RADIX = HEX;\n");
print("\n");
print("CONTENT BEGIN\n");
while($i <= $#data) {
    printf ("\t%02x : %2.2x;\n", $i, $data[$i]);
    $i+=1;
}
print("END;\n");