OpenCores
URL https://opencores.org/ocsvn/or1200_soc/or1200_soc/trunk

Subversion Repositories or1200_soc

[/] [or1200_soc/] [trunk/] [sw/] [perl/] [bin2readmemh.pl] - Blame information for rev 4

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 2 qaztronic 
#!/usr/bin/perl
2 
#
3 
#
4 
 
5 
use Getopt::Std;
6 
 
7 
getopt( 'fsdx' );
8 
 
9 
open( BIN_FILE, $opt_f ) or die "Can't open $opt_f!!!\n";
10 
 
11 
$memory_address = 0;
12 
 
13 
if( $opt_s == 32 ) {
14 
  while ( read( BIN_FILE, $buf, 4 ) ) {
15 
    $out = unpack( "H8", $buf);
16 
 
17 
    if( $opt_x ) {
18 
            print "$out\n";
19 
          } else {
20 
            printf( "\@%08x\n", $memory_address );
21 
            print "$out\n\n";
22 
          }
23 
 
24 
    $memory_address++;
25 
  }
26 
} elsif( $opt_s == 16 ) {
27 
  while ( read( BIN_FILE, $buf, 2 ) ) {
28 
    $out = unpack( "H4", $buf);
29 
 
30 
    if( $opt_x ) {
31 
            print "$out\n";
32 
          } else {
33 
            printf( "\@%08x\n", $memory_address );
34 
            print "$out\n\n";
35 
    }
36 
 
37 
    $memory_address++;
38 
  }
39 
} elsif( $opt_s == 8 ) {
40 
  while ( read( BIN_FILE, $buf, 1 ) ) {
41 
    $out = unpack( "H2", $buf);
42 
 
43 
    if( $opt_x ) {
44 
            print "$out\n";
45 
          } else {
46 
            printf( "\@%08x\n", $memory_address );
47 
            print "$out\n\n";
48 
    }
49 
 
50 
    $memory_address++;
51 
  }
52 
} else {
53 
    print "ERROR! $opt_s is invalad option for -s\n";
54 
}
55 
 
56 
if( $opt_x ) {
57 
        for ( $memory_depth = $opt_d ;$memory_depth > $memory_address; $memory_address++ ) {
58 
          print "0\n";
59 
        }
60 
}
61 
 
62 
 
63 
 
64 
# if( $opt_s == 32 ) {
65 
#   for ( $memory_depth = $opt_d - 1 ;$memory_depth > $memory_address; $memory_address++ ) {
66 
#
67 
#     printf( "\@%08x\n", $memory_address );
68 
#     print "0\n\n";
69 
#   }
70 
# } elsif( $opt_s == 16 ) {
71 
#   while ( read( BIN_FILE, $buf, 2 ) ) {
72 
#     $out = unpack( "H4", $buf);
73 
#
74 
#     printf( "\@%08x\n", $memory_address );
75 
#     print "$out\n\n";
76 
#
77 
#     $memory_address++;
78 
#   }
79 
# } elsif( $opt_s == 8 ) {
80 
#   while ( read( BIN_FILE, $buf, 1 ) ) {
81 
#     $out = unpack( "H2", $buf);
82 
#
83 
#     printf( "\@%08x\n", $memory_address );
84 
#     print "$out\n\n";
85 
#
86 
#     $memory_address++;
87 
#   }
88 
# } else {
89 
#     print "ERROR! $opt_s is invalad option for -s\n";
90 
# }
91 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.