Видеопамять для 7-сегментного индикатора на Spartan-3 Starter Kit., Кто-нибудь реализовывал? Опции

[lexus.mephi]

Как выснилось, однократной подачи сигнлаов для вывода на индикацию недостаточно, т.ч. необходима видеопамять. Кто-нибудь ее реализовывал?
Есть, конечно, одна задумка с использованием двухпортовой памяти, вот только для нее нужно уменьшать частоту клока! Получается немного напряжно.

[Hardman]

Как выснилось, однократной подачи сигнлаов для вывода на индикацию недостаточно, т.ч. необходима видеопамять. Кто-нибудь ее реализовывал?
Есть, конечно, одна задумка с использованием двухпортовой памяти, вот только для нее нужно уменьшать частоту клока! Получается немного напряжно.

signal HEX: std_logic_vector (3 downto 0);

LED: process(HEX,SEL,CLK1)
begin
if SEL='1' then
case HEX is
when "0000" => LDR <= "0000001";-- 0
when "0001" => LDR <= "1001111";-- 1
when "0010" => LDR <= "0010010";-- 2
when "0011" => LDR <= "0000110";-- 3
when "0100" => LDR <= "1001100";-- 4
when "0101" => LDR <= "0100100";-- 5
when "0110" => LDR <= "0100000";-- 6
when "0111" => LDR <= "0001111";-- 7
when "1000" => LDR <= "0000000";-- 8
when "1001" => LDR <= "0000100";-- 9
when "1010" => LDR <= "0001000";-- A
when "1011" => LDR <= "1100000";-- B
when "1100" => LDR <= "0110001";-- C
when "1101" => LDR <= "1000010";-- D
when "1110" => LDR <= "0110000";-- E
when "1111" => LDR <= "0111000";-- F
when others => LDR <= "1111111";
end case;
else
case CLK1 is
when '0' => LDR <= "1110001";-- L
when '1' => LDR <= "0110001";-- C
when others => LDR <= "0000000";
end case;
end if;
end process LED;


4 бита в дешифратор память не нужна.