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

        }

}