PROCESS (load, reset)
BEGIN
    IF RISING_EDGE(load) THEN
        temp <= d_in;
    ELSIF RISING_EDGE(reset) THEN
        temp <= (OTHERS => '0');
    END IF;
END PROCESS;
d_out <= temp;