ENTITY GENE_64US IS
         PORT( CLOCK : IN  BIT; SORTIE_64US: OUT BIT);
END GENE_64US ;   --declaration des E/S du composant

ARCHITECTURE a OF GENE_64US IS  --horloge 16Mhz , il deborde toute les 64us
 BEGIN                          --le top ligne correspond a 75 periodes d'horloge
    PROCESS (CLOCK)
        VARIABLE    cnt : integer range 0 to 1023;
        BEGIN
        IF (CLOCK'EVENT AND CLOCK = '1') THEN  --attend front montant 
	       cnt := cnt+1 ;
	        IF cnt <=74 THEN SORTIE_64US <='0' ;
		        	       ELSE  SORTIE_64US <='1';
                  END IF;
     END IF; 
    END PROCESS;  
END a;