Subversion Repositories z80soc

#!/bin/sh
# hex2romvhdl.sh
# By: Ronivon Candido Costa
# ronivon.costa@gmail.com
#
# This tool runs on Cygwin, Linux and Mac OS X
#
# hex2romvhdl.sh will take a file with hexa bytes as input and convert to a rom format in vhdl
# Input file should be a file named rom.hex, and the format can be:
# - Motorola HEX format
# - Z80ASM format (after assembled, use the View in Hex format, and copy the contents to rom.hex
# 
# ----------------------------------------------------------------------------------------------
convMotorolaHexToAscIIHex() {
  in=rom.hex
  outtmp=romC.hex
 
  >$outtmp
 
  while read line   
  do
    if [[ "$line" != ":00000001FF" ]];then
       lenbytes=${line:1:2}
       len=`echo $lenbytes | bc`
       let bytepos=9
       while [[ $len -gt 0 ]] 
       do
          echo ${line:$bytepos:2} >> $outtmp 
          let bytepos=bytepos+2
          let len=len-1
       done
    fi
  done<$in
  cp rom.hex rom.hex.bak
  mv romC.hex rom.hex
}
 
 
file=rom.hex
 
# Vefify if file is in Motorola Hex format, and converto to HEX Ascii codes
 
read line < $file
 
if [[ ${line:0:1} = ":" ]];then
   convMotorolaHexToAscIIHex
fi
 
echo "library IEEE;
use IEEE.std_logic_1164.all;
use ieee.numeric_std.all;
 
entity rom is
        port(
                Clk             : in std_logic;
                A               : in std_logic_vector(11 downto 0);
                D               : out std_logic_vector(7 downto 0)
        );
end rom;
 
architecture rtl of rom is
begin
 
process (Clk)
begin
 if Clk'event and Clk = '1' then
        case A is"
 
 
ADDR=0
for i in `cat $file | tr ',' ' '`
do
  BL1="when x\""
  BL3="\" => D <= x\"$i\";"
  hexaddr="00"`echo "obase=16;ibase=10;$ADDR" | bc`
  fixhexaddr=${hexaddr:(-3)}
  echo "             "$BL1$fixhexaddr$BL3
  let ADDR=ADDR+1
done
echo "             when others => D <=\"ZZZZZZZZ\";
        end case;
 end if;
end process;
end;"