приемник последовательного порта

----------------------------------------------------------------------------------
-- Company: 
-- Engineer: 
-- 
-- Create Date:    16:35:21 02/07/2017 
-- Design Name: 
-- Module Name:    RxAFAR - Behavioral 
-- Project Name: 
-- Target Devices: 
-- Tool versions: 
-- Description: 
--
-- Dependencies: 
--
-- Revision: 
-- Revision 0.01 - File Created
-- Additional Comments: 
--
----------------------------------------------------------------------------------
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
 
-- Uncomment the following library declaration if using
-- arithmetic functions with Signed or Unsigned values
use IEEE.NUMERIC_STD.ALL;
 
-- Uncomment the following library declaration if instantiating
-- any Xilinx primitives in this code.
--library UNISIM;
--use UNISIM.VComponents.all;
 
entity RxAFAR is
    Port ( Rx       : in   STD_LOGIC;
           Data     : out  STD_LOGIC_VECTOR (7 downto 0);
           clk      : in   STD_LOGIC;  -- Входная частота 57.6М
           Res      : in   STD_LOGIC;
           newByte  : out  STD_LOGIC);
end RxAFAR;
 
architecture Behavioral of RxAFAR is
 
  signal bData       : STD_LOGIC_VECTOR(7 downto 0);
  signal counter     : integer range 0 to 530;
  signal stop_count  : STD_LOGIC;
  signal startBitOK  : STD_LOGIC;
  signal stopBitOK   : STD_LOGIC;
  
  constant bit0      : integer :=  27;
  constant bit1      : integer := (27 + 1 * 55);
  constant bit2      : integer := (27 + 2 * 55);
  constant bit3      : integer := (27 + 3 * 55);
  constant bit4      : integer := (27 + 4 * 55);
  constant bit5      : integer := (27 + 5 * 55);
  constant bit6      : integer := (27 + 6 * 55);
  constant bit7      : integer := (27 + 7 * 55);
  constant bit8      : integer := (27 + 8 * 55);
  constant bit9      : integer := (27 + 9 * 55);
 
begin
 
 -- Как только на линии RX устанавливается низкий уровень, то 
 -- предполагаем, что это начало старт - бита и запускаем счетчик.
 -- Счетчик сбрасывается в 0 если есть команда остановки счета.
  process (Res, clk, stop_count)
  begin
    if Res = '1' then counter <= 0;
     elsif clk 'event and clk = '1' then
      if stop_count = '1' then counter <= 0;
      elsif counter = 0 and Rx = '0' then counter <= counter + 1;
      elsif counter > 0 then counter <= counter + 1;
    end if;
  end if;
  end process;
 
 
 -- Процесс, кроме всего прочего, формирует команду остановки счетчика при условии
 -- отсутствия приема старт бита и после приема последнего бита (стоп - бита).
  process (Res, clk, counter)
  begin
    if Res = '1' then bData          <= x"00";
                      startBitOK     <= '0';
                      stopBitOK      <= '0';
                      Data           <= x"00";
                      stop_count     <= '0';
    elsif clk 'event and clk = '1' then
      if counter = 0 then bData      <= x"00";
                          startBitOK <= '0';
                          stopBitOK  <= '0';
                          Data       <= x"00";
                          stop_count <= '0';
      elsif counter = bit0 and Rx = '0' then startBitOK <= '1';
      elsif counter = bit0 and Rx = '1' then stop_count <= '1';
             elsif (startBitOK = '1' and (counter = bit1 or 
                                          counter = bit2 or 
                                          counter = bit3 or 
                                          counter = bit4 or 
                                          counter = bit5 or 
                                          counter = bit6 or 
                                          counter = bit7 or 
                                          counter = bit8)) then bData <= bData(6 downto 0) & Rx;
             elsif (counter = bit9 and Rx = '1') then stopBitOK  <= '1';
                                                      stop_count <= '1';
                                                      Data       <= bData;
             elsif (counter = bit9 and Rx = '0') then stop_count <= '1';
                                                      Data       <= x"00";
      end if;
    end if;
  end process;
 
  newByte <= stopBitOK;
 
end Behavioral;