mirror of
https://github.com/rvtr/ctr_firmware.git
synced 2025-10-31 07:51:08 -04:00
03ddd782c5
Palladium用ロードファイル変換ツールでのデータの並びを修正。 threadデモ修正。 git-svn-id: file:///Volumes/Transfer/gigaleak_20231201/2020-09-30%20-%20paladin.7z/paladin/ctr_firmware@248 b871894f-2f95-9b40-918c-086798483c85
26 lines
535 B
Perl
26 lines
535 B
Perl
#!/usr/bin/perl
|
|
use POSIX stdio_h;
|
|
|
|
die "Error: Need input file.\n" unless @ARGV;
|
|
for $ARGV ( @ARGV ){
|
|
@c;
|
|
|
|
open (IN, $ARGV) || die "$ARGV : $!";
|
|
binmode(IN);
|
|
|
|
while ( read(IN, $_, 1) ){
|
|
$c[0] = uc( unpack("H2", $_) );
|
|
for ($i=1; $i<8; $i++){
|
|
unless ( read(IN, $_, 1) ){
|
|
$_ = 0;
|
|
}
|
|
$c[$i] = uc( unpack("H2", $_) );
|
|
}
|
|
print STDOUT $c[7],$c[6],$c[5],$c[4],$c[3],$c[2],$c[1],$c[0], "\n";
|
|
}
|
|
|
|
close(IN);
|
|
}
|
|
|
|
|