IF (RISING_EDGE(CLK)) THEN

    CASE H(2 DOWNTO 0) IS
----------
    WHEN "000" =>
        vADDR :=        V( 9 DOWNTO 0) & H( 9 DOWNTO 4);
 
      VA <= '0' & vADDR;
----------
    WHEN "001" =>
--      VA <= (OTHERS => '0');   !!!!!!! - если поставить то
----------
    WHEN "010" =>
      FONT_ROW0 <= VDi;                   - тут получу чушь

      vFONT      := VDi( 7 DOWNTO 0);
      vATTRIBUTE := VDi(15 DOWNTO 8);

      VA <= '1' & vFONT & vATTRIBUTE;
----------
    WHEN "011" =>
--      VA <= (OTHERS => '0');
----------
    WHEN "100" =>
      FONT_ROW1 <= VDi;

      VA <= '0' & "111111111111" & & vATTRIBUTE(3 DOWNTO 0);
----------
    WHEN "101" =>
--      VA <= (OTHERS => '0');
----------
    WHEN "110" =>
      FONT_ROW2 <= VDi;

----------
    WHEN "111" =>
    END CASE;

  END IF;