29_test_35.vhd

VHDL语言100例详解

-- Page		 	: 349 - 350
--
-- Objective 	: standard soulution to scalar signal multiplexing
--
-- File Name 	: test_55.vhd
--
-- Author    	: Joseph Pick
--

entity Test_35 is
end Test_35;

architecture Behave_1 of Test_35 is

	signal	X_Proc_1	: BIT 	:= '0';
	signal	X_Proc_2	: BIT 	:= '0';
	signal	X			: BIT	:= '0';
	signal	Set 		: BIT	:= '0';
	signal	Reset		: BIT	:= '0';

begin
	
	Proc_1:
	process (Set)
	begin
		if Set = '1' then 
			X_Proc_1 <= '1';
		end if;
	end process Proc_1;

	Proc_2:
	process(Reset)
	begin
		if Reset = '1' then
			X_Proc_2 <= '0';
		end if;
	end process Proc_2;

	X <= X_Proc_1 when not X_Proc_1'QUIET else
		 X_Proc_2 when not X_Proc_2'QUIET else
		 X;

	Set <= '1' after 10 ns, '0' after 20 ns;
	Reset <= '1' after 30 ns, '0' after 40 ns;

end Behave_1;