|
- -- *********************** Divers fonction utiles ***************************
-
-
- LIBRARY ieee;
- USE ieee.std_logic_1164.ALL;
-
-
- PACKAGE utils IS
- PROCEDURE horloge ( SIGNAL h: OUT std_logic; th, tb : time);
- PROCEDURE horloge_retard ( SIGNAL h : OUT std_logic; periode : time ;
- retard : time);
- END utils;
- ---------------------------------------------------
- PACKAGE BODY utils IS
- PROCEDURE horloge ( SIGNAL h : OUT std_logic; th, tb : time) IS
- BEGIN
- LOOP
- h <= '0', '1' AFTER tb;
- WAIT FOR tb + th ;
- END LOOP;
- END;
-
- PROCEDURE horloge_retard ( SIGNAL h : OUT std_logic; periode : time ;
- retard : time) IS
- BEGIN
- h <= '0';
- WAIT FOR retard;
- LOOP
- h <= '1' , '0' AFTER periode/2 ;
- WAIT FOR periode;
- END LOOP;
- END;
- END utils;
|