同步置1异步清0的D触发器EDA代码

以下是同步置1异步清0的D触发器的EDA代码：

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;

entity DFF1 is
    Port ( CLK, CLR, SET, D : in STD_LOGIC;
           Q : out STD_LOGIC);
end DFF1;

architecture Behavioral of DFF1 is
begin
    process (CLK, CLR)
    begin
        if CLR = '1' then
            Q <= '0';
        elsif rising_edge(CLK) then
            if SET = '1' then
                Q <= '1';
            else
                Q <= D;
            end if;
        end if;
    end process;
end Behavioral;