-- Fichier : compteur4_a3.vhd                    
-- Société : ENSERB                       
-- Auteur : P.Nouel
-- Date de création : 7-6-96
-- Synthétisable
------------------------------------------------------------------------------
-- Description comportementale d'une décade
--
------------------------------------------------------------------------------

ARCHITECTURE decade OF compteur4 IS
USE WORK.utils.ALL;

SIGNAL  tmp : natural RANGE 0 TO 9 := 0;
BEGIN
	P1: PROCESS
		BEGIN
			WAIT UNTIL front_montant(h) ;
			IF raz = '1' THEN 
					tmp <= 0;
			ELSIF compter = '1' THEN
				IF tmp < 9 THEN
						tmp <= tmp + 1;
				ELSE
						tmp <= 0;
				END IF;
			END IF;
		END PROCESS;

sortie <= convert(tmp,4);

plein <= '1' WHEN tmp = 9 ELSE '0';

END;
------------------------------------------------------------------------------