-- Fichier :  nor_res.vhd                      
-- Synthetisable ? : non
-- Société : ENSERB                       
-- Auteur : P.Nouel
-- Date de création : 21 oct 96
-- Contenu :  Exemple de fonction de résolution                    
------------------------------------------------------------------------------

ENTITY nor_cable IS 
END;

USE WORK.utils.ALL;

ARCHITECTURE trois OF nor_cable IS

	CONSTANT Nb_sources : natural :=3;
	CONSTANT periode : TIME := 10 ns;

	SIGNAL entree : BIT_VECTOR (0 TO Nb_sources-1);
	SIGNAL s : resolution_nor bit;

	ALIAS a : BIT is entree(0);
	ALIAS b : BIT is entree(1);
	ALIAS c : BIT is entree(2);
BEGIN
	test : PROCESS
		BEGIN
			FOR i IN  0 TO 2**Nb_sources -1 LOOP
				entree <= CONVERT(i, Nb_sources);
			WAIT FOR periode;
			END LOOP;
		END PROCESS;

	s <= a;
	s <= b;
	s <= c;
END;