<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/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 &gt; out.s19\n";
}

while(&lt;&gt;) {
	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";
}
</pre></body></html>