fido fix (#775)
[proxmark3-svn] / tools / srecswap.pl
CommitLineData
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
8if(@ARGV == 0) {
9 die "usage: $0 file-to-endian-swap.s19 > out.s19\n";
10}
11
12while(<>) {
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}
Impressum, Datenschutz