pq-dos hdd decoder

-- IDE Profi
profi_ebl <='1' when (adress(7)='1' and adress(4 downto 0)="01011" and iorq='0' and CPM='0' and rom14='1') or           -- CPM=1 & ROM14=1 BAS=0/1 ПЗУ DOS/ SOS
                            (adress(7)='1' and adress(4 downto 0)="01011" and iorq='0' and dos='0' and rom14='0') else '0'; -- ROM14=0 BAS=0 ПЗУ SYS
WWC <='0' when (wr='0' and adress(7 downto 0)="11001011" and iorq='0' and CPM='0' and rom14='1') or                     -- CPM=1 & ROM14=1 BAS=0/1 ПЗУ DOS/ SOS
                    (wr='0' and adress(7 downto 0)="11001011" and iorq='0' and dos='0' and rom14='0') else '1';             -- ROM14=0 BAS=0 ПЗУ SYS
WWE <='0' when (wr='0' and adress(7 downto 0)="11101011" and iorq='0' and CPM='0' and rom14='1') or                     -- CPM=1 & ROM14=1 BAS=0/1 ПЗУ DOS/ SOS
                    (wr='0' and adress(7 downto 0)="11101011" and iorq='0' and dos='0' and rom14='0') else '1';             -- ROM14=0 BAS=0 ПЗУ SYS
RWW <='0' when (wr='1' and adress(7 downto 0)="11001011" and iorq='0' and CPM='0' and rom14='1') or                     -- CPM=1 & ROM14=1 BAS=0/1 ПЗУ DOS/ SOS
                    (wr='1' and adress(7 downto 0)="11001011" and iorq='0' and dos='0' and rom14='0') else '1';             -- ROM14=0 BAS=0 ПЗУ SYS
RWE <='0' when (wr='1' and adress(7 downto 0)="11101011" and iorq='0' and CPM='0' and rom14='1') or                     -- CPM=1 & ROM14=1 BAS=0/1 ПЗУ DOS/ SOS
                    (wr='1' and adress(7 downto 0)="11101011" and iorq='0' and dos='0' and rom14='0') else '1';             -- ROM14=0 BAS=0 ПЗУ SYS
CS3FX <='0' when    (wr='0' and adress(7 downto 0)="10101011" and iorq='0' and CPM='0' and rom14='1') or                    -- CPM=1 & ROM14=1 BAS=0/1 ПЗУ DOS/ SOS
                        (wr='0' and adress(7 downto 0)="10101011" and iorq='0' and dos='0' and rom14='0')else '1';          -- ROM14=0 BAS=0 ПЗУ SYS
CS1FX <= RWW and WWE;

process (f14,adress,wr,rd,cs1fx,cs3fx,rwe,wwe,wwc,rww,profi_ebl)
begin
    if f14'event and f14='0' then
        hdd_a0 <=adress(8);
        hdd_a1 <=adress(9);
        hdd_a2 <=adress(10);
        hdd_wr <=wr;
        hdd_rd <=rd;
        hdd_cs0 <=cs1fx; -- Profi HDD Controller
        hdd_cs1 <=cs3fx;
        hdd_rh_oe <=rwe;
        hdd_rh_c <=cs1fx;
        hdd_wh_oe <=wwe;
        hdd_wh_c <=wwc;
        hdd_rwl_t <=rww;
        hdd_iorqge<= '0';
    end if;
end process;