]>
Commit | Line | Data |
---|---|---|
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 | } |