--- /dev/null
+--This entity provides data transfer (64bit) via a smaller (16bit) Bus
+--with three bits for debugging (13bit data + 3bit control)
+--first 56bit via Bus are for dataword, transmitted Bits 64 downto 56 Bits
+--are for debugging
+
+--parity bit is not used for parity but as an indicator for the first packet
+--of a transmission
+
+
+library IEEE;
+use IEEE.STD_LOGIC_1164.ALL;
+use IEEE.STD_LOGIC_ARITH.ALL;
+use IEEE.STD_LOGIC_UNSIGNED.ALL;
+use IEEE.NUMERIC_STD.ALL;
+
+
+entity trb_net_med_13bit_slow is
+generic(
+ TRANSMISSION_CLOCK_DIVIDER: integer := 1
+ );
+
+
+ port(
+ -- Misc
+ CLK : in std_logic;
+ RESET : in std_logic;
+ CLK_EN : in std_logic;
+ -- Internal direction port (MII)
+ -- do not change this interface!!!
+ -- 1st part: from the medium to the internal logic (trbnet)
+ INT_DATAREADY_OUT: out STD_LOGIC; --Data word is reconstructed from media
+ --and ready to be read out (the IOBUF MUST read)
+ INT_DATA_OUT: out STD_LOGIC_VECTOR (55 downto 0); -- Data word
+ INT_READ_IN: in STD_LOGIC;
+ INT_ERROR_OUT: out STD_LOGIC_VECTOR (2 downto 0); -- Status bits
+ -- 2nd part: from the internal logic (trbnet) to the medium
+ INT_DATAREADY_IN: in STD_LOGIC; -- Data word is offered for the Media
+ INT_DATA_IN: in STD_LOGIC_VECTOR (55 downto 0); -- Data word
+ INT_READ_OUT: out STD_LOGIC; -- offered word is read
+ INT_ERROR_IN: in STD_LOGIC_VECTOR (2 downto 0); -- Status bits
+ -- (end do not change this interface!!!)
+
+
+ -- Media direction port
+ -- in this case for the cable => 32 lines in total
+ MED_DATA_OUT: out STD_LOGIC_VECTOR (12 downto 0); -- Data word
+ --(incl. debugging errorbits)
+ MED_TRANSMISSION_CLK_OUT: out STD_LOGIC;
+ MED_CARRIER_OUT: out STD_LOGIC;
+ MED_PARITY_OUT: out STD_LOGIC;
+ MED_DATA_IN: in STD_LOGIC_VECTOR (12 downto 0); -- Data word
+ MED_TRANSMISSION_CLK_IN: in STD_LOGIC;
+ MED_CARRIER_IN: in STD_LOGIC;
+ MED_PARITY_IN: in STD_LOGIC;
+
+ -- Status and control port => this never can hurt
+ STAT: out STD_LOGIC_VECTOR (31 downto 0);
+ --STAT(0): Busy reading from media
+ --STAT(1): Busy writing to media
+ --STAT(31 downto 24): Datain(63 downto 56
+ CTRL: in STD_LOGIC_VECTOR (31 downto 0)
+ --CTRL(24..31) -> lvds-data(63 downto 56) via lvds
+ --once for each packet
+ --CTRL(16..18) -> debugbits updated every CLK
+ --lvds(12 downto 10)(10bit-version only)
+ --CTRL(0..5) -> lvds-data(69 downto 64) (10bit-version only)
+ );
+end lvdshadcom;
+
+architecture Behavioral of trb_net_med_13bit_slow is
+ signal INT2MED_state, next_INT2MED_state : std_logic_vector (3 downto 0);
+ signal MED2INT_state, next_MED2INT_state: std_logic_vector(3 downto 0);
+
+ signal DAT_MED2INT, next_DAT_MED2INT :std_logic_vector(64 downto 0);
+ signal buf_INT_DATA_IN, next_buf_INT_DATA_IN :std_logic_vector(55 downto 13);
+
+ signal next_INT_DATA_OUT, buf_INT_DATA_OUT: std_logic_vector(55 downto 0);
+ signal next_buf_MED_DATA_OUT, buf_MED_DATA_OUT: std_logic_vector(12 downto 0);
+ signal next_INT_DATAREADY_OUT, buf_INT_DATAREADY_OUT: std_logic;
+ signal next_buf_INT_READ_OUT, buf_INT_READ_OUT: std_logic;
+
+ signal buf_MED_TRANSMISSION_CLK_OUT,next_MED_TRANSMISSION_CLK_OUT: std_logic;
+ signal buf_MED_CARRIER_OUT, next_MED_CARRIER_OUT: STD_LOGIC;
+ signal buf_MED_PARITY_OUT, next_MED_PARITY_OUT: STD_LOGIC;
+ signal my_error,next_my_error : std_logic_vector(2 downto 0);
+ signal fatal_error, media_not_connected : std_logic;
+ signal next_media_not_connected : std_logic;
+ signal transmission_clk_Counter : std_logic_vector(1 downto 0);
+ signal next_transmission_clk_Counter : std_logic_vector(1 downto 0);
+ signal TRANSMISSION_CLK, next_TRANSMISSION_CLK: std_logic;
+ signal buf_CTRL, next_STAT, buf_STAT : std_logic_vector(31 downto 0);
+ signal next_RECV_STAT, RECV_STAT : std_logic_vector(8 downto 0);
+
+ signal last_TRCLK, this_TRCLK: std_logic;
+ signal CLK_counter,next_CLK_counter: std_logic_vector(4 downto 0);
+
+
+
+begin
+INT_DATAREADY_OUT <= buf_INT_DATAREADY_OUT;
+INT_DATA_OUT <= buf_INT_DATA_OUT(55 downto 0);
+INT_ERROR_OUT <= my_error;
+INT_READ_OUT <= buf_INT_READ_OUT;
+STAT <= buf_STAT;
+
+MED_DATA_OUT(12 downto 0) <= buf_MED_DATA_OUT;
+MED_TRANSMISSION_CLK_OUT <= buf_MED_TRANSMISSION_CLK_OUT;
+MED_CARRIER_OUT <= buf_MED_CARRIER_OUT;
+MED_PARITY_OUT <= buf_MED_PARITY_OUT;
+
+
+--TODO:
+--------------------------------
+fatal_error <= '0';
+
+
+
+--Status word
+--------------------------------
+gen_STAT_WORD: process(MED2INT_state,INT2MED_state,buf_INT_DATAREADY_OUT,RECV_STAT,buf_STAT)
+ begin
+ next_STAT <= (others => '0');
+ if MED2INT_state = 0 then
+ next_STAT(0) <= '0';
+ else
+ next_STAT(0) <= '1';
+ end if;
+ if INT2MED_state = 0 then
+ next_STAT(1) <= '0';
+ else
+ next_STAT(1) <= '1';
+ end if;
+ next_STAT(11 downto 8) <= INT2MED_state;
+ next_STAT(15 downto 12) <= MED2INT_state;
+ if buf_INT_DATAREADY_OUT = '1' then
+ next_STAT(24 downto 16) <= RECV_STAT(8 downto 0);
+ else
+ next_STAT(24 downto 16) <= buf_STAT(24 downto 16);
+ end if;
+ end process;
+
+STAT_reg: process (CLK,RESET)
+ begin
+ if RESET = '1' then
+ buf_STAT <= (others => '0');
+ elsif rising_edge(CLK) then
+ buf_STAT <= next_STAT;
+ else
+ buf_STAT <= buf_STAT;
+ end if;
+ end process;
+
+
+--CTRL register
+--------------------------------
+CTRL_reg: process (CLK,RESET)
+ begin
+ if RESET = '1' then
+ buf_CTRL <= (others => '0');
+ elsif rising_edge(CLK) then
+ buf_CTRL <= CTRL;
+ else
+ buf_CTRL <= buf_CTRL;
+ end if;
+ end process;
+
+
+
+--My error bits
+--------------------------------
+gen_my_error: process(media_not_connected,fatal_error)
+ begin
+ if media_not_connected = '1' then
+ next_my_error <= "100";
+ elsif fatal_error = '1' then
+ next_my_error <= "011";
+ else
+ next_my_error <= "000";
+ end if;
+ end process;
+
+
+reg_my_error: process(CLK,RESET)
+ begin
+ if RESET = '1' then
+ my_error <= "000";
+ elsif rising_edge(CLK) then
+ my_error <= next_my_error;
+ else
+ my_error <= my_error;
+ end if;
+ end process;
+
+
+--Transmission clock generator
+--------------------------------
+trans_clk_counter: process (transmission_clk_Counter,TRANSMISSION_CLK)
+ begin
+ if transmission_clk_Counter = TRANSMISSION_CLOCK_DIVIDER - 1 then
+ next_transmission_clk_Counter <= (others => '0');
+ next_TRANSMISSION_CLK <= not TRANSMISSION_CLK;
+ else
+ next_transmission_clk_Counter <= transmission_clk_Counter + 1;
+ next_TRANSMISSION_CLK <= TRANSMISSION_CLK;
+ end if;
+ end process;
+
+
+trans_clk_counter_reg: process (CLK,RESET)
+ begin
+ if RESET = '1' then
+ transmission_clk_Counter <= (others => '0');
+ TRANSMISSION_CLK <= '0';
+ elsif rising_edge(CLK) then
+ transmission_clk_Counter <= next_transmission_clk_Counter;
+ TRANSMISSION_CLK <= next_TRANSMISSION_CLK;
+ else
+ transmission_clk_Counter <= transmission_clk_Counter;
+ TRANSMISSION_CLK <= TRANSMISSION_CLK;
+ end if;
+ end process;
+
+
+
+--Transmission Clock detection
+--------------------------------
+trans_clk_reg: process (RESET,CLK)
+ begin
+ if RESET = '1' then
+ last_TRCLK <= '0';
+ this_TRCLK <= '0';
+ CLK_counter <= (others => '0');
+ media_not_connected <= '0';
+ elsif rising_edge(CLK) then
+ last_TRCLK <= this_TRCLK;
+ this_TRCLK <= MED_TRANSMISSION_CLK_IN;
+ CLK_counter <= next_CLK_counter;
+ media_not_connected <= next_media_not_connected;
+ else
+ last_TRCLK <= last_TRCLK;
+ this_TRCLK <= this_TRCLK;
+ CLK_counter <= CLK_counter;
+ media_not_connected <= media_not_connected;
+ end if;
+ end process;
+
+
+
+transCLK_counter: process (this_TRCLK, last_TRCLK, CLK_counter,
+ buf_MED_DATA_OUT, buf_MED_CARRIER_OUT,
+ buf_MED_PARITY_OUT, buf_CTRL)
+ begin
+ next_media_not_connected <= '0';
+ if last_TRCLK = '0' and this_TRCLK = '1' then
+ next_CLK_counter <= (others => '0');
+ elsif CLK_counter = 31 then
+ next_media_not_connected <= '1';
+ next_CLK_counter <= CLK_counter;
+ else
+ next_CLK_counter <= CLK_counter + 1;
+ end if;
+ end process;
+
+
+
+
+--INT to MED direction
+--------------------------------
+INT2MED_fsm: process(buf_INT_DATA_IN,INT2MED_state,
+ INT_DATAREADY_IN, INT_DATA_IN,
+ TRANSMISSION_CLK, buf_MED_DATA_OUT,
+ buf_MED_CARRIER_OUT, buf_MED_PARITY_OUT, buf_CTRL)
+begin
+ next_INT2MED_state <= "0000";
+ next_buf_MED_DATA_OUT <= buf_MED_DATA_OUT;
+ next_MED_CARRIER_OUT <= buf_MED_CARRIER_OUT;
+ next_MED_PARITY_OUT <= buf_MED_PARITY_OUT;
+ next_buf_INT_DATA_IN <= buf_INT_DATA_IN;
+ next_buf_INT_READ_OUT <= '0';
+ next_MED_TRANSMISSION_CLK_OUT <= TRANSMISSION_CLK;
+ case INT2MED_state is
+ when "0000" =>
+ if INT_DATAREADY_IN = '1' and TRANSMISSION_CLK = '0' then
+ --generate data word to transmit
+ next_buf_INT_DATA_IN(55 downto 13) <= INT_DATA_IN(55 downto 13);
+ next_INT2MED_state <= "0001";
+ next_buf_INT_READ_OUT <= '1';
+ next_buf_MED_DATA_OUT(12 downto 0) <= INT_DATA_IN(12 downto 0);
+ next_MED_CARRIER_OUT <= '1';
+ next_MED_PARITY_OUT <= '1';
+ else
+ next_buf_MED_DATA_OUT(12 downto 0) <= (others => '0');
+ next_MED_CARRIER_OUT <= '0';
+ next_MED_PARITY_OUT <= '0';
+ end if;
+ when "0001" =>
+ if TRANSMISSION_CLK = '1' then
+ next_INT2MED_state <= "0010";
+ else
+ next_INT2MED_state <= "0001";
+ end if;
+ when "0010" =>
+ if TRANSMISSION_CLK = '0' then
+ next_buf_MED_DATA_OUT(12 downto 0) <= buf_INT_DATA_IN(25 downto 13);
+ next_MED_CARRIER_OUT <= '1';
+ next_MED_PARITY_OUT <= '0';
+ next_INT2MED_state <= "0011";
+ else
+ next_INT2MED_state <= "0010";
+ end if;
+ when "0011" =>
+ if TRANSMISSION_CLK = '1' then
+ next_INT2MED_state <= "0100";
+ else
+ next_INT2MED_state <= "0011";
+ end if;
+ when "0100" =>
+ if TRANSMISSION_CLK = '0' then
+ next_buf_MED_DATA_OUT(12 downto 0) <= buf_INT_DATA_IN(38 downto 26);
+ next_MED_CARRIER_OUT <= '1';
+ next_MED_PARITY_OUT <= '0';
+ next_INT2MED_state <= "0101";
+ else
+ next_INT2MED_state <= "0100";
+ end if;
+ when "0101" =>
+ if TRANSMISSION_CLK = '1' then
+ next_INT2MED_state <= "0110";
+ else
+ next_INT2MED_state <= "0101";
+ end if;
+ when "0110" =>
+ if TRANSMISSION_CLK = '0' then
+ next_buf_MED_DATA_OUT(12 downto 0) <= buf_INT_DATA_IN(51 downto 39);
+ next_MED_CARRIER_OUT <= '1';
+ next_MED_PARITY_OUT <= '0';
+ next_INT2MED_state <= "0111";
+ else
+ next_INT2MED_state <= "0110";
+ end if;
+ when "0111" =>
+ if TRANSMISSION_CLK = '1' then
+ next_INT2MED_state <= "1000";
+ else
+ next_INT2MED_state <= "0111";
+ end if;
+ when "1000" =>
+ if TRANSMISSION_CLK = '0' then
+ next_buf_MED_DATA_OUT(3 downto 0) <= buf_INT_DATA_IN(55 downto 52);
+ next_buf_MED_DATA_OUT(11 downto 4) <= buf_CTRL(31 downto 24);
+ next_buf_MED_DATA_OUT(12) <= buf_CTRL(0);
+ next_MED_CARRIER_OUT <= '1';
+ next_MED_PARITY_OUT <= '0';
+ next_INT2MED_state <= "1101";
+ else
+ next_INT2MED_state <= "1000";
+ end if;
+ when "1101" =>
+ if TRANSMISSION_CLK = '1' then
+ next_INT2MED_state <= "1110";
+ else
+ next_INT2MED_state <= "1101";
+ end if;
+ when "1110" =>
+ if TRANSMISSION_CLK = '0' then
+ next_INT2MED_state <= "0000";
+ else
+ next_INT2MED_state <= "1110";
+ end if;
+ when others =>
+ next_INT2MED_state <= "0000";
+ end case;
+end process;
+
+
+INT2MED_fsm_reg: process(CLK,RESET)
+ begin
+ if RESET='1' then
+ buf_MED_DATA_OUT <= (others => '0');
+ INT2MED_state <= "0000";
+ buf_INT_DATA_IN <= (others => '0');
+ buf_INT_READ_OUT <= '0';
+ buf_MED_CARRIER_OUT <= '0';
+ buf_MED_PARITY_OUT <= '0';
+ buf_MED_TRANSMISSION_CLK_OUT <= '0';
+ elsif rising_edge(CLK) then
+ INT2MED_state <= next_INT2MED_state;
+ buf_MED_TRANSMISSION_CLK_OUT <= next_MED_TRANSMISSION_CLK_OUT;
+ buf_INT_DATA_IN <= next_buf_INT_DATA_IN;
+ buf_INT_READ_OUT <= next_buf_INT_READ_OUT;
+ buf_MED_DATA_OUT(12 downto 0) <= next_buf_MED_DATA_OUT(12 downto 0);
+ buf_MED_CARRIER_OUT <= next_MED_CARRIER_OUT;
+ buf_MED_PARITY_OUT <= next_MED_PARITY_OUT;
+ else
+ buf_MED_TRANSMISSION_CLK_OUT <= buf_MED_TRANSMISSION_CLK_OUT;
+ buf_MED_DATA_OUT <= buf_MED_DATA_OUT;
+ buf_MED_CARRIER_OUT <= buf_MED_CARRIER_OUT;
+ buf_MED_PARITY_OUT <= buf_MED_PARITY_OUT;
+ INT2MED_state <= INT2MED_state;
+ buf_INT_READ_OUT <= buf_INT_READ_OUT;
+ buf_INT_DATA_IN <= buf_INT_DATA_IN;
+ end if;
+ end process;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+--MED to INT direction
+--------------------------------
+
+MED2INT_fsm: process(MED_PARITY_IN,MED2INT_state,CLK,MED_DATA_IN,DAT_MED2INT,
+ MED_TRANSMISSION_CLK_IN,MED_CARRIER_IN,INT_READ_IN, RECV_STAT,
+ media_not_connected)
+ begin
+ next_DAT_MED2INT (64 downto 0) <= DAT_MED2INT (64 downto 0);
+ next_INT_DATA_OUT <= (others => '0');
+ next_INT_DATAREADY_OUT <= '0';
+ next_MED2INT_state <= "0000";
+ next_RECV_STAT <= RECV_STAT;
+ case MED2INT_state is
+ when "0000" =>
+ next_INT_DATAREADY_OUT <= '0';
+ if MED_TRANSMISSION_CLK_IN = '1' and MED_CARRIER_IN = '1'
+ and MED_PARITY_IN = '1' then
+ next_MED2INT_state <= "1001";
+ next_DAT_MED2INT(12 downto 0) <= MED_DATA_IN(12 downto 0);
+ end if;
+ when "1001" =>
+ if MED_TRANSMISSION_CLK_IN = '0' then
+ next_MED2INT_state <= "0001";
+ else
+ next_MED2INT_state <= "1001";
+ end if;
+ when "0001" =>
+ if MED_TRANSMISSION_CLK_IN = '1' and MED_CARRIER_IN = '1' then
+ next_MED2INT_state <= "1010";
+ next_DAT_MED2INT(25 downto 13) <= MED_DATA_IN(12 downto 0);
+ end if;
+ when "1010" =>
+ if MED_TRANSMISSION_CLK_IN = '0' then
+ next_MED2INT_state <= "0010";
+ else
+ next_MED2INT_state <= "1010";
+ end if;
+ when "0010" =>
+ if MED_TRANSMISSION_CLK_IN = '1' and MED_CARRIER_IN = '1' then
+ next_MED2INT_state <= "1011";
+ next_DAT_MED2INT(38 downto 26) <= MED_DATA_IN(12 downto 0);
+ end if;
+ when "1011" =>
+ if MED_TRANSMISSION_CLK_IN = '0' then
+ next_MED2INT_state <= "0011";
+ else
+ next_MED2INT_state <= "1011";
+ end if;
+ when "0011" =>
+ if MED_TRANSMISSION_CLK_IN = '1' and MED_CARRIER_IN = '1' then
+ next_MED2INT_state <= "1100";
+ next_DAT_MED2INT(51 downto 39) <= MED_DATA_IN(12 downto 0);
+ end if;
+ when "1100" =>
+ if MED_TRANSMISSION_CLK_IN = '0' then
+ next_MED2INT_state <= "0100";
+ else
+ next_MED2INT_state <= "1100";
+ end if;
+ when "0100" =>
+ if MED_TRANSMISSION_CLK_IN = '1' and MED_CARRIER_IN = '1' then
+ next_MED2INT_state <= "0110";
+ next_DAT_MED2INT(64 downto 52) <= MED_DATA_IN(12 downto 0);
+ end if;
+ when "0110" =>
+ next_INT_DATA_OUT <= DAT_MED2INT(55 downto 0);
+ next_RECV_STAT <= DAT_MED2INT(64 downto 56);
+ if INT_READ_IN = '1' then
+ next_MED2INT_state <= "1110";
+ next_INT_DATAREADY_OUT <= '0';
+ else
+ next_MED2INT_state <= "0110";
+ next_INT_DATAREADY_OUT <= '1';
+ end if;
+ when "1110" =>
+ next_INT_DATA_OUT <= (others => '0');
+ next_INT_DATAREADY_OUT <= '0';
+ if MED_TRANSMISSION_CLK_IN = '0' then
+ next_MED2INT_state <= "0000";
+ else
+ next_MED2INT_state <= "1110";
+ end if;
+ when others =>
+ next_MED2INT_state <= "0000";
+ end case;
+ if media_not_connected = '1' then
+ next_MED2INT_state <= "0000";
+ end if;
+ end process;
+
+
+MED2INT_fsm_reg: process(CLK,RESET)
+ begin
+ if RESET='1' then
+ MED2INT_state <= "0000";
+ buf_INT_DATAREADY_OUT <= '0';
+ DAT_MED2INT <= (others => '0');
+ buf_INT_DATA_OUT <= (others => '0');
+ RECV_STAT <= (others => '0');
+ elsif rising_edge(CLK) then
+ DAT_MED2INT <= next_DAT_MED2INT;
+ MED2INT_state <= next_MED2INT_state;
+ buf_INT_DATA_OUT <= next_INT_DATA_OUT;
+ buf_INT_DATAREADY_OUT <= next_INT_DATAREADY_OUT;
+ RECV_STAT <= next_RECV_STAT;
+ else
+ buf_INT_DATA_OUT <= buf_INT_DATA_OUT;
+ MED2INT_state <= MED2INT_state;
+ buf_INT_DATAREADY_OUT <= buf_INT_DATAREADY_OUT;
+ DAT_MED2INT <= DAT_MED2INT;
+ RECV_STAT <= RECV_STAT;
+ end if;
+ end process;
+
+
+end Behavioral;
+
jspc29 / trbnet.git / commitdiff