Subversion Repositories mcu8

LIBRARY ieee;
USE ieee.std_logic_1164.ALL;
USE ieee.numeric_std.ALL;
USE std.textio.ALL;
USE work.cpu_types.ALL;
 
ENTITY rom IS
  GENERIC ( tacc : time := 120 NS );        -- address to data valid
  port( addr : IN a_bus;
        data : out d_bus );
END rom;
 
ARCHITECTURE behavioral OF rom IS
  SIGNAL memory : rom_memory;
BEGIN
rom_read: process(addr, memory)
  begin
    data <= (OTHERS => 'X'), memory(to_integer(unsigned(addr))) AFTER tacc;
--    data <= memory(to_integer(unsigned(addr))) AFTER tacc;
  END process;
 
rom_init: process
    FILE src_file : TEXT IS IN "fulltest.o";
    VARIABLE src_line : LINE;
    VARIABLE data : INTEGER RANGE 0 TO 2**d_bus_width-1;
    VARIABLE index : INTEGER RANGE 0 TO 2**a_bus_width-1 := 0;
  BEGIN
    WHILE NOT endfile(src_file) LOOP
      readline(src_file, src_line);
      read(src_line, data);
      memory(index) <= std_logic_vector(to_unsigned(data,8));
      if index<255 then
      index := index + 1;
      end if;
    END LOOP;
    wait;
  END process;
END behavioral;