sin-titulo

library ieee; -- Declara la biblioteca IEEE.
use ieee.std_logic_1164.all; -- Permite utilizar señales lógicas.
use ieee.std_logic_arith.all; -- Incluye operaciones aritméticas.
use ieee.std_logic_unsigned.all; -- Permite operaciones con vectores sin signo.

entity Registro is -- Declara la entidad Registro.
    port (Pulso: in std_logic; -- Entrada que detecta el pulso.
          Reset: in std_logic; -- Entrada para reiniciar el registro.
          Con: in std_logic_vector (2 downto 0); -- Entrada de control de 3 bits.
          Regout: inout std_logic_vector (3 downto 0)); -- Registro de salida de 4 bits.
end Registro; -- Finaliza la entidad.

architecture Behavioral of Registro is -- Define el comportamiento del registro.

begin -- Inicia la arquitectura.

    process (Pulso, Reset, Con, Regout) -- Proceso sensible a cambios en las señales.
    begin -- Inicia el proceso.
        if Reset = '1' then -- Comprueba si el reinicio está activo.
            Regout <= (others => '0'); -- Coloca todos los bits en cero.
        elsif Con (2) = '1' then -- Comprueba si el bit 2 de Con está activo.
            Regout (2 downto 0) <= (others => '0'); -- Reinicia los 3 bits menos significativos.
        elsif Pulso'event and Pulso = '1' then -- Detecta un flanco de subida.
            Regout <= Regout (2 downto 0) & '1'; -- Desplaza los bits e introduce un 1 al final.
        end if; -- Finaliza las condiciones.
    end process; -- Finaliza el proceso.

end Behavioral; -- Finaliza la arquitectura.