Subversion Repositories svn.mios32

Rev

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

#!/usr/bin/perl
# generates a bank file
# usage example: perl gen_bank.pl *.raw > bank.1

my $key = 0x24;
while( @ARGV && $key < 0x80 ) {
  $file = shift @ARGV;
  printf "0x%02x 0 0000 %s\n", $key, $file;
  ++$key;
#  printf "mv %s %s\n", $file, substr($file, 6);
}