Subversion Repositories svn.mios32

Rev

Rev 1353 | Details | Compare with Previous | Last modification | View Log | RSS feed

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