library IEEE;                  -- dołączenie standardowej biblioteki IEEE
 use IEEE.STD_LOGIC_1164.all;   -- dołączenie pakietu 'STD_LOGIC_1164' z biblioteki IEEE
                                -- definiującego popularne stany logiczne
 entity dffr is                 -- opis interfejsu przerzutnika (połączeń z otoczeniem)
   port(
         CLK   : in  STD_LOGIC;   -- wejście zegarowe
         RESET : in  STD_LOGIC;   -- wejście kasowania
         DIN   : in  STD_LOGIC;   -- wejście danych
         DOUT  : out STD_LOGIC    -- wyjście danych
       );
 end dffr;

 architecture behavior of dffr is   -- opis wnętrza przerzutnika (w tym przypadku
 begin                              --  jest to opis behawioralny)

  dffar: process (CLK, RESET)       -- proces z listą czułości (sensitivity list)
    begin
        if rising_edge(CLK) then    -- wykrywanie narastającego zbocza zegara
           if RESET='1' then        -- kasowanie stanem wysokim wejścia RESET
             DOUT <= '0';           -- przypisanie stałej to sygnału wyjściowego
       elsif CLK='1' then
			  DOUT <= '0';
           else
             DOUT <= DIN;           -- przypisanie stanu wejścia do sygnału wyjściowego
           end if;
        end if;
    end process;

 end behavior;