entity COSC is generic( Hi_time , lo_time:time); port(Run: in BIT; CLocK: out BIT :='0');end COSC;architecture ALG of COSC isbegin process begin  wait until RUN='1';  while RUN='1' loop    CLocK <= '1';    wait for HI_TIME;    CLocK <='0';    wait for LO_TIME;  	 end loop;     end process;   end ALG;