library dp_32;
use DP_32.DP32_TYPES.all ;

entity CLOCK_GEN is
   generic(Tpw : TIME := 8 ns ;
           Tps : TIME := 2 ns ) ;
      port(Ph1   : out BIT ;
           Ph2   : out BIT ;
           RESET : out BIT );
end CLOCK_GEN ;                   

architecture BEHAVIOUR of CLOCK_GEN is

   constant CLOCK_PERIOD : TIME := 2*(Tpw+Tps) ;
   
   begin
      RESET_DRIVER : 
         RESET <= '1','0' after 2*CLOCK_PERIOD+Tpw ;
         
      CLOCK_DRIVER:process
         begin
            Ph1 <= '1','0' after Tpw ;
            Ph2 <= '1' after Tpw+Tps , '0' after Tpw+Tps+Tpw ;
            wait for CLOCK_PERIOD ;
      end process CLOCK_DRIVER ;
      
end BEHAVIOUR ;