clock_proc : process begin -- sinchrosignal ą valdantis procesas
x1 <= '0';
wait for 8 ns ;
x1 <= '1';
wait for 8 ns ;
end process ;
reset_proc : process begin -- nustatymo i 0 signal ą valdantis procesas
reset <= '0';
wait for 2 ns ;
reset <= '1';
wait ;
end process ;
test_proc : process begin -- trigerio signalus valdantis procesas
x2 <= '0'; x3 <= '0'; x4 <= '0'; -- saugo
wait for 20 ns ;
x2 <= '1'; x3 <= '1'; x4 <= '0'; -- iraso 1
wait for 20 ns ;
x2 <= '0'; x3 <= '0'; x4 <= '0'; -- saugo
wait for 20 ns ;
x2 <= '0'; x3 <= '0'; x4 <= '1'; -- iraso 0
wait for 20 ns ;
x2 <= '0'; x3 <= '0'; x4 <= '0'; -- saugo
wait for 50 ns ;
x2 <= '1'; x3 <= '1'; x4 <= '0'; -- iraso 1
wait for 20 ns ;
x2 <= '0'; x3 <= '0'; x4 <= '1'; -- iraso 0
wait for 20 ns ;
end process ;