Программируемая логика и ЦОС

Ура!!! Нашел решение. Правда строчек чуть больше. Если кому потребуется делюсь

data:process
	variable A:std_logic_vector(31 downto 0):="01111111111111111111111111111111";
	variable B:std_logic_vector(31 downto 0):="00000000000000000000000000000000";
	variable c:std_logic:='0';
	begin
	B(31 downto 1):=A(30 downto 0);
	c:=A(31);
	B(0):=c;
	A:=B;
	wait for 320 ns; Din<=B;	
end process data;

Mahagam, отдельное спасибо за помощь.