Subversion Repositories or1k_soc_on_altera_embedded_dev_kit

#!/usr/bin/perl

@data = ();

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);

      }

    }

  }

}

$i =0;

while($i <= $#data) {

    printf ("%2.2x%2.2x%2.2x%2.2x\n", $data[$i], $data[$i+1], $data[$i+2], $data[$i+3]);

    $i+=4;

}