Subversion Repositories or1k_soc_on_altera_embedded_dev_kit

#!/usr/bin/perl
# 2005 - David Grant.
# Take an ihex input from STDIN, and write a .mif file to STDOUT
# This script could probably be implemented with something like:
#    $#!@_%^$@%$@%$_!^$@#^@%$#@_%$@^&!%$_!%!%&$*(#^#@%^) 
# But I perfer the somewhat readable version.
 
# Flow from within the Nios2 SDK Shell:
# nios2-elf-as file.asm -o file.o
# nios2-elf-objcopy file.o --target ihex file.hex
# cat file.hex | perl hex2mif.pl > file.mif
 
sub conv {
	my ($in) = @_;
#	$out = substr($in,6,2).substr($in,4,2).substr($in,2,2).substr($in,0,2);
	$out = substr($in,0,2).substr($in,2,2).substr($in,4,2).substr($in,6,2);
	return hex $out;
}
 
my @code = ();
 
while (<STDIN>) {
	$l = $_;
	$count = (hex substr($l, 1, 2)) / 4;
	$addr = (hex substr($l, 3, 4)) / 4;
	$type = (hex substr($l, 7, 2));
	last if $type eq 1;
	for($x=0; $x<$count; $x++) {
		$code[$addr + $x] = conv(substr($l, 9+8*$x, 8)) ;
	}
}
 
print("WIDTH=32;\n");
print("DEPTH=".@code.";\n");
print("CONTENT BEGIN\n");
for($x=0; $x<@code; $x++) {
	printf("\t%08x : %08x;\n", $x, $code[$x]);
}
print("END;\n");