CMX_CP_Topo_Encoder.vhd

Go to the documentation of this file.

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;

library work;
use work.CMXpackage.all;
use work.CMX_flavor_package.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 CMX_CP_Topo_Encoder is
  port (
    Tobs_to_TOPO     : in copy_arr_TOB;       -- TOB arrays to load onto
                                               -- encoder; copied x4
    overflow         : in std_logic_vector(num_copies-1 downto 0);
   
    -- this instructs the modules downstream to plug in the alignment word.
    send_align_out : out std_logic_vector(num_GTX_groups*num_GTX_per_group - 1 downto 0);
    
    Data_out :    out std_logic_vector(TX_indata_length - 1 downto 0));
    --clk      :in std_logic);
end CMX_CP_Topo_Encoder;

architecture Behavioral of CMX_CP_Topo_Encoder is

  --these consts describe the trigger object arrangement
  constant num_cols : integer:=5;    -- 4 CP TO's per fiber
                                     -- indexing starts on the left i.e. TO 0
                                     -- in a given row
                                     -- occupies the most sig 28 bits
  constant num_rows : integer:=6;  --6 fibers

  --these consts describe the word (16 or 18 bit) object arrangement
  constant num_cols_words : integer:=8; --8 16 bit words per fiber (=8
                                        --16bit+2bit K flag per fiber)
                                        --note that these start at the low end
                                        --i.e. word 0 is 15 downto 0 in
                                        --flat_array
                                        --or 17 down to 0 in final_array
  constant num_rows_words : integer:=6; -- 6 fibers (ok a bit redundant) 

  
  --first the input data is interpreted as an array of CP TOs (no logic here
  --just renaming signals)
  --signal TO_CPs : arr_TO_CP;  
  
  --then the TO_CPs array is packed onto a flat array
  --it is just a long vector but we can think of this as having 8 rows 128 bits
  --each (i.e. each row corresponds to data sent on a single fiber)
  --each 'row' holds 4 jet TO's and is padded with zeros (least sig 15 bits
  --bit 16 is the overflow)
  --the position of TO in the row is the column. Columns are filled first
  -- e.g. CP TO 0 occupying bits 127 downto 100 is row 0 column 0
  -- CP TO 8 is occupying bits 355 downto 327 is row 2 column 1
  signal flat_array : std_logic_vector(num_copies*num_cols_words*num_rows_words*16-1 downto 0 );

  

  --component chipscope_ila_jet_encoder is
  --  port (
  --    CONTROL : inout std_logic_vector(35 downto 0);
  --    CLK     : in    std_logic;
  --    DATA    : in    std_logic_vector(585 downto 0);
  --    TRIG0   : in    std_logic_vector(0 to 0));
  --end component chipscope_ila_jet_encoder;

  --signal CONTROL : std_logic_vector(35 downto 0);
  --signal DATA_ila_jet_encoder    : std_logic_vector(585 downto 0);
  --signal TRIG0_ila_jet_encoder   : std_logic_vector(0 to 0);

  --component chipscope_icon_u1_c1 is
  --  port (
  --    CONTROL0 : inout std_logic_vector(35 downto 0));
  --end component chipscope_icon_u1_c1;
  
begin


  ----form the array of jet TO's
  --jet_arr_gen: for i_jet in 0 to Num_TO_CP-1 generate
  --  TO_CPs(i_jet)(TO_CP_Et2_size-1 downto 0)<=DATA_Et2((i_jet+1)*TO_CP_Et2_size - 1 downto i_jet * TO_CP_Et2_size);
  --  TO_CPs(i_jet)(TO_CP_Et2_size+TO_CP_Et1_size-1 downto TO_CP_Et2_size)<=DATA_Et1((i_jet+1)*TO_CP_Et1_size - 1 downto i_jet * TO_CP_Et1_size);
  --  TO_CPs(i_jet)(TO_CP_Et2_size+TO_CP_Et1_size+TO_CP_pos_size-1 downto TO_CP_Et2_size+TO_CP_Et1_size)<=DATA_pos((i_jet+1)*TO_CP_pos_size - 1 downto i_jet * TO_CP_pos_size);
  --end generate jet_arr_gen;



  flat_arr_payload_copy_gen: for i_copy in 0 to num_copies-1 generate
    flat_arr_payload_gen: for i_TO in 0 to max_tobs_topo-1 generate

    
      constant i_col :integer := (i_TO/num_rows);
      constant i_row :integer := (i_TO rem num_rows)+num_rows*i_copy;

      --constant msb : integer := 128*i_row + 127 - ( i_col * TO_CP_size );
      --constant lsb : integer := 128*i_row + 128 - ( ( i_col +1 ) * TO_CP_size );
   
      --constant i_row_cpy : integer := i_row+i_copy*num_rows;
      constant i_row_fiber: integer := fiber_to_gtx(i_row);

      constant msb : integer := 128*i_row_fiber + 127 - ( i_col * TO_EmTau_size );
      constant lsb : integer := 128*i_row_fiber + 128 - ( ( i_col +1 ) * TO_EmTau_size );
      
    --flat_array(msb downto lsb)<=TO_CPs(i_TO);
    --flat_array(128*i_row + 127 - ( i_col * TO_CP_size ) downto 128*i_row + 128 - ( ( i_col +1 ) * TO_CP_size ))<=TO_CPs(i_TO);

    begin

      assert i_TO<=29 report "TOO MANY TOBS in THE DECODER INSTATIATION!!!" severity FAILURE;
      assert lsb>=0 report "LSB less than 0 in the decoder instantiation!!!; i_copy: "&integer'IMAGE(i_copy)&", i_TO: "&integer'IMAGE(i_TO)&", i_col: "&integer'IMAGE(i_col)&", i_row: "&integer'IMAGE(i_row)&", msb: "&integer'IMAGE(msb)&", lsb: "&integer'IMAGE(lsb) severity FAILURE;
      
      flat_array(lsb+TO_EmTau_CLE_size-1 downto lsb)<=Tobs_to_TOPO(i_copy)(i_TO).CLE;
      flat_array(lsb+TO_EmTau_CLE_size+TO_EmTau_ISO_size-1 downto lsb+TO_EmTau_CLE_size)<=Tobs_to_TOPO(i_copy)(i_TO).ISO;
      flat_array(msb downto lsb+TO_EmTau_CLE_size+TO_EmTau_ISO_size)<=Tobs_to_TOPO(i_copy)(i_TO).POS;
          
    end generate flat_arr_payload_gen;
  end generate flat_arr_payload_copy_gen;

  
  flat_arr_overflow_copy_gen: for i_copy in 0 to num_copies-1 generate
    flat_arr_overflow_gen: for i_row in 0 to num_rows-1 generate
      flat_array(12+ i_row*128+i_copy*num_rows*128)<=overflow(i_copy);
      flat_array(11+ i_row*128+i_copy*num_rows*128 downto i_row*128+i_copy*num_rows*128)<= (others=>'0');
    end generate flat_arr_overflow_gen;
  end generate flat_arr_overflow_copy_gen;


  
  send_align_copy_gen: for i_copy in 0 to num_copies-1 generate
    send_align_gen: for i_row in 0 to num_rows-1 generate
      constant i_row_cpy : integer := i_row+i_copy*num_rows;
      constant i_row_fiber: integer := fiber_to_gtx(i_row_cpy);
    begin
      send_align_out(i_row_fiber)<= '0' when  Tobs_to_TOPO(i_copy)(i_row+2*num_rows).CLE/="00000000" else '1';
    end generate send_align_gen;
  end generate send_align_copy_gen;

  


  Data_out<=flat_array;    

  --chipscope_icon_u1_c1_inst: entity work.chipscope_icon_u1_c1
  --  port map (
  --    CONTROL0 => CONTROL);

  --chipscope_ila_jet_encoder_inst: entity work.chipscope_ila_jet_encoder
  --  port map (
  --    CONTROL => CONTROL,
  --    CLK     => clk,
  --    DATA    => DATA_ila_jet_encoder,
  --    TRIG0   => TRIG0_ila_jet_encoder);

  --TRIG0_ila_jet_encoder(0)<='0';

  --DATA_ila_jet_encoder(0)<='0';
  --DATA_ila_jet_encoder(8 downto 1)<=send_align;
  --DATA_ila_jet_encoder(328 downto 9)<=DATA_Et2;  
  --DATA_ila_jet_encoder(584 downto 329)<=flat_array(255 downto 0);
  --DATA_ila_jet_encoder(585)<='0';
  
                             
  
end Behavioral;