-- Fichier : bascdra0.vhd                       
-- Société : ENSERB                       
-- Auteur : P.Nouel
-- 		 Bascule d avec raz et sorties complémentaires
--                   
------------------------------------------------------------------------------
LIBRARY ieee;
USE ieee.std_logic_1164.ALL;

ENTITY bascdra0 IS 

	PORT (  h, d ,raz : IN std_ulogic;
               	    s, sb : OUT std_ulogic);

END bascdra0;

ARCHITECTURE simple OF bascdra0 IS

BEGIN
 
	P1:PROCESS
	  VARIABLE stmp : std_ulogic ;
        BEGIN 
                WAIT ON raz, h;
		IF raz = '1' THEN       -- asynchrone prioritaire
			stmp := '0';
		ELSIF h'event AND h = '1' AND h'LAST_VALUE = '0' THEN
               		stmp := d;
		END IF;
		s <= stmp;
                sb <= NOT stmp;
	  END PROCESS;

END simple ;