ПЛИС + SRAM, посоветуйте Опции

[%-)]

есть порт для ввода данных из хост-процессора в ПЛИС (запись в ПЛИС)

к ПЛИС подключена SRAM

нужно организовать запись в SRAM через ПЛИС.
при этом адрес на память выставляет сама ПЛИС.

сделано вот так:

Код

SRAM_D<=Port_D;      --линии данных порта ПЛИС соединяем с линиями данных SRAM
SRAM_A<=Address;    --линии адреса SRAM соединены со счётчиком ПЛИС
SRAM_CS<=Port_CS;  --линия выбора SRAM соединена с линией порта ПЛИС
SRAM_OE<='1';          --чтение не используется
SRAM0_WE<=Port_WE; --линия разрешения записи SRAM соединена с линией порта ПЛИС

process(Port_WE) --увеличение адреса на 1
begin
if falling_edge(Port_WE) then
  if Port_CS='0' then
   if Address=1000 then
    Address<=(others => '0');
   else
    Address<=Address+1;
   end if;
  end if;
end if;
end process;

По времянкам.

Tsetup=20нс
Thold=20нс
Twrite=20нс

Тем не менее, в силу каких-то обстоятельств(возможно когда на линии данных 0xFFFF) ИНОГДА происходит пропуск увеличения адреса - он как бы тот же.

Прошу покритиковать и обсудить код. А также причины, вызвавшие сей эффект

Сообщение отредактировал %-) - Nov 27 2009, 01:24

[%-)]

сделал синхронную нарезку от внешнего кварцевого генератора 50мгц

автомат дышит, но по-прежнему иногда ложно срабатывают регистры.

Код

process(Clk)
begin
if rising_edge(Clk) then
  CE<=Port_CE;
  WE<=Port_WE;
  A<=Port_A;
  D<=Port_D;
end if;
end if;

process(Clk)
begin
if rising_edge(Clk) then
  if State='0' then
   if CE='0' and WE='0' then
    if A='0' then --запись в регистры
     case D(15 downto 12) is
      when "0000" =>
       Register0<=D(7 downto 0);
. . .
      when "0111" =>
       Register7<=D(7 downto 0);
     end case;
    else --увеличение адреса
     WriteAddr<=WriteAddr+1;
    end if;
    State<='1'; --следующее состояние - дождёмся завершения передачи
   end if;
  else
   if CS='0' and WE='1' then
    State<='0';
   end if;
  end if;
end if;
end process;    

process(Clk)
begin
if rising_edge(Clk) then
  SRAM_CE<=CE;
  SRAM_WE<=WE;
  SRAM_A<=WriteAddr;
  SRAM_D<=D;
end if;
end process;

Это позволило исключить ложные записи в память, но регистры глючат - к ним не обращаются, а они срабатывают

Чего ещё не хватает в коде?