Subversion Repositories or1200_soc

#!/usr/bin/perl

# 

use Getopt::Std;

getopt( 'fwd' );

open( BIN_FILE, $opt_f ) or die "Can't open $opt_f!!!\n";

if( $opt_w  ) {

  print "WIDTH=$opt_w;\n";

}

else  {

  print "WIDTH=32;\n";

}

if( $opt_d  ) {

  print("DEPTH=$opt_d;\n");

}

else  {

  print("DEPTH=2048;\n");

}

print("CONTENT BEGIN\n");

$x = 0;

while ( read( BIN_FILE, $buf, 4 ) ) {

  $out = unpack( "H8", $buf);

#   print "$out\n";

  printf("\t%08x", $x);

  print " : $out;\n";

  $x++;

}

print("END;\n");