[proxmark3-svn] / tools / srecswap.pl

#!/usr/bin/perl

# endian-swap S records; we need this because the JTAG tools we're using
# expect the memory image in byte-swapped format
#
# Jonathan Westhues, April 2004

if(@ARGV == 0) {
	die "usage: $0 file-to-endian-swap.s19 > out.s19\n";
}

while(<>) {
	chomp;

	if(/^S0/) {
		next;
	}
	if(/^S7/) {
		print "$_\n";
		next;
	}

	if(not /^S3(..)(........)(.*)(..)$/) {
		die "bad S record at line $.\n";
	}

	$data = $3;
	$checksum = $4;

	print "S3$1$2";
	while($data =~ m#(..)(..)(..)(..)#g) {
		print "$4$3$2$1";
	}
	print "$checksum\n";
}
Commit	Line	Data
49b35ff9	1	#!/usr/bin/perl
	2
	3	# endian-swap S records; we need this because the JTAG tools we're using
	4	# expect the memory image in byte-swapped format
	5	#
	6	# Jonathan Westhues, April 2004
	7
	8	if(@ARGV == 0) {
	9	die "usage: $0 file-to-endian-swap.s19 > out.s19\n";
	10	}
	11
	12	while(<>) {
	13	chomp;
	14
	15	if(/^S0/) {
	16	next;
	17	}
	18	if(/^S7/) {
	19	print "$_\n";
	20	next;
	21	}
	22
	23	if(not /^S3(..)(........)(.*)(..)$/) {
	24	die "bad S record at line $.\n";
	25	}
	26
	27	$data = $3;
	28	$checksum = $4;
	29
	30	print "S3$1$2";
	31	while($data =~ m#(..)(..)(..)(..)#g) {
	32	print "$4$3$2$1";
	33	}
	34	print "$checksum\n";
	35	}