complatch : process (le, addr, d) is
begin
    if (le = '1') and (addr = X"8000") then
        q <= d;
    end if;
end process complatch;