reset_proc : process begin -- nustatymo i 0 signala valdantis procesas
		Reset <= '0';
		wait for 3 ns ;
		Reset <= '1';
		wait ;
	end process ;

	Sinchro: process begin
		CLK <= '0';
		wait for 5 ns;
		CLK <= '1';
		wait for 5 ns;
	end process;

	Postumiai: process begin

		DL <= '0'; DR <= '0';
		D7 <='0'; D6 <= '0'; D5 <= '0'; D4 <= '0'; D3 <= '0'; D2 <= '0'; D1 <= '0'; D0 <= '1'; -- Pradines reiksmes

		A1 <= '1'; A0 <= '1'; wait for 10 ns; -- Irasymas
		A1 <= '0'; A0 <= '0'; wait for 20 ns; -- Saugojimas
		A1 <= '1'; A0 <= '0'; wait for 70 ns; -- Kaire
		A1 <= '0'; A0 <= '1'; wait for 70 ns; -- Desine

	--------------------------------------------------------------