Subversion Repositories svn.mios32

Rev

Rev 1353 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1353 Rev 1836
Line 3... Line 3...
3
# usage example: perl gen_bank.pl *.raw > bank.1
3
# usage example: perl gen_bank.pl *.raw > bank.1
4
4
5
my $key = 0x24;
5
my $key = 0x24;
6
while( @ARGV && $key < 0x80 ) {
6
while( @ARGV && $key < 0x80 ) {
7
  $file = shift @ARGV;
7
  $file = shift @ARGV;
8
  printf "0x%02x %s\n", $key, $file;
8
  printf "0x%02x 0 0000 %s\n", $key, $file;
9
  ++$key;
9
  ++$key;
-
 
10
#  printf "mv %s %s\n", $file, substr($file, 6);
10
}
11
}