Subversion Repositories or1200_soc

#!/usr/bin/perl
#
#
 
use Getopt::Std;
 
getopt( 'fsdx' );
 
open( BIN_FILE, $opt_f ) or die "Can't open $opt_f!!!\n";
 
if( $opt_x ) {
  if( $opt_d ) {
#     print "Creating Xilinx image with memory depth $opt_d.";
  } else {
    die "Memory depth not inputted. Use -d option!!!\n";
  }
} 
 
$memory_address = 0;
 
if( $opt_s == 32 ) {
  while ( read( BIN_FILE, $buf, 4 ) ) {
    $out = unpack( "H8", $buf);
 
    if( $opt_x ) {
	    print "$out\n";	    
	  } else {
	    printf( "\@%08x\n", $memory_address );
	    print "$out\n\n";
	  }
 
    $memory_address++;
  }
} elsif( $opt_s == 16 ) {
  while ( read( BIN_FILE, $buf, 2 ) ) {
    $out = unpack( "H4", $buf);
 
    if( $opt_x ) {
	    print "$out\n";	    
	  } else {
	    printf( "\@%08x\n", $memory_address );
	    print "$out\n\n";
    }
 
    $memory_address++;
  }
} elsif( $opt_s == 8 ) {
  while ( read( BIN_FILE, $buf, 1 ) ) {
    $out = unpack( "H2", $buf);
 
    if( $opt_x ) {
	    print "$out\n";	    
	  } else {
	    printf( "\@%08x\n", $memory_address );
	    print "$out\n\n";
    }
 
    $memory_address++;
  }
} else {
    print "ERROR! $opt_s is invalad option for -s\n";
}
 
if( $opt_x ) {
	for ( $memory_depth = $opt_d ;$memory_depth > $memory_address; $memory_address++ ) {
	  print "0\n";
	}
}