Subversion Repositories adat_optical_feed_forward_receiver

LIBRARY ieee;

USE ieee.std_logic_1164.ALL;

ENTITY Adat_Test IS

END Adat_Test;

ARCHITECTURE behavior OF Adat_Test IS

 COMPONENT adat_receiver

 PORT(

  m_clk : in std_logic;

  adat_in : IN std_logic;

  bus_address : IN std_logic_vector(2 downto 0);

  bus_enable : IN std_logic;

  bus_data : OUT std_logic_vector(23 downto 0);

  adat_wordclock : OUT std_logic;

  adat_user : OUT std_logic_vector(3 downto 0)

 );

 END COMPONENT;

 -- **Inputs**

 SIGNAL m_clk : std_logic := '0';

 SIGNAL adat_in : std_logic := '0';

 SIGNAL bus_address : std_logic_vector(2 downto 0) := (others=>'0');

 SIGNAL bus_enable : std_logic := '0';

 -- **Outputs**

 SIGNAL bus_data : Std_logic_vector(23 downto 0);

 SIGNAL adat_user : std_logic_vector(3 downto 0);

 SIGNAL adat_wordclock: std_logic := '0';

 constant m_clk_half_period : time := 5 ns;

 constant adat_period : time := 81.380208333333333333333333333333 ns;

 constant adat_half_period : time := 40.690104166666666666666666666667 ns;

BEGIN

 uut: adat_receiver PORT MAP(

  m_clk => m_clk,

  adat_in => adat_in,

  bus_address => bus_address,

  bus_enable => bus_enable,

  bus_data => bus_data,

  adat_user => adat_user,

  adat_wordclock => adat_wordclock

 );

 m_clk_clock_gen : process is

 begin

  m_clk <= '0' after m_clk_half_period, '1' after 2 * m_clk_half_period;

  wait for 2 * m_clk_half_period;

 end process m_clk_clock_gen;

 tb : PROCESS

 BEGIN

  -- wait for reset

  for frame_counter in 0 to 50 loop

   -- send adat training sequence

   adat_in <= '0';

   wait for 10 * adat_period;

   -- send adat sync symbol (1)

   adat_in <= not(adat_in);

   wait for adat_period;

   -- Send user characters

   wait for adat_period;

   wait for adat_period;

   wait for adat_period;

   wait for adat_period;

   -- send adat sync symbol (1)

   adat_in <= not(adat_in);

   wait for adat_period;

    for channel_counter in 0 to 7 loop

     for nibble_counter in 0 to 5 loop

      -- Send channel data

      adat_in <= not(adat_in);

      wait for adat_period;

      adat_in <= not(adat_in);

      wait for adat_period;

      adat_in <= not(adat_in);

      wait for adat_period;

      adat_in <= not(adat_in);

      wait for adat_period;

      -- send adat sync symbol (1)

      adat_in <= not(adat_in);

      wait for adat_period;

     end loop;

    end loop;

   -- send adat training sequence

   adat_in <= '0';

   wait for 10 * adat_period;

   -- send adat sync symbol (1)

   adat_in <= not(adat_in);

   wait for adat_period;

   -- Send user characters

      adat_in <= not(adat_in);

   wait for adat_period;

      adat_in <= not(adat_in);

   wait for adat_period;

      adat_in <= not(adat_in);

   wait for adat_period;

      adat_in <= not(adat_in);

   wait for adat_period;

   -- send adat sync symbol (1)

   adat_in <= not(adat_in);

   wait for adat_period;

    for channel_counter in 0 to 7 loop

     for nibble_counter in 0 to 5 loop

      -- Send channel data

      wait for adat_period;

      wait for adat_period;

      wait for adat_period;

      wait for adat_period;

      -- send adat sync symbol (1)

      adat_in <= not(adat_in);

      wait for adat_period;

     end loop;

    end loop;

   end loop;

  wait; -- wait forever

 END PROCESS;

END;