CMX_Jet_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_Jet_Topo_Encoder is
  port (
    Tobs_to_TOPO     : in copy_arr_TOB;
    overflow         : in std_logic_vector(num_copies-1 downto 0);
    --DATA_Et1 :    in std_logic_vector((576/2)-1 downto 0);--(TO_Jet_Et1_size*Num_TO_Jet) - 1 downto 0);
    --DATA_Et2 :    in std_logic_vector((640/2)-1 downto 0);--(TO_Jet_Et2_size*Num_TO_Jet) - 1 downto 0);
    --DATA_pos :    in std_logic_vector((576/2)-1 downto 0);--(TO_Jet_eta_size*Num_TO_Jet) - 1 downto 0);
    --overflow :    in std_logic;

    -- 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_Jet_Topo_Encoder;

architecture Behavioral of CMX_Jet_Topo_Encoder is

  --these consts describe the trigger object arrangement
  constant num_cols : integer:=4;    -- 4 Jet 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:=8;  --8 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:=8; -- 6 fibers (ok a bit redundant) 

  -- obsolete -- --first the input data is interpreted as an array of Jet TOs (no logic here
  -- obsolete -- --just renaming signals)
  -- obsolete -- signal TO_Jets : arr_TO_Jet;  
  
  --then the TO_Jets 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. Jet TO 0 occupying bits 127 downto 100 is row 0 column 0
  -- Jet 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 );

  
  
  --detects if TO 2 on a given row is 0 energy (then TO 3 is presumeably 0 also)
  signal send_align : std_logic_vector(num_rows-1 downto 0);

  signal send_align_ET1ET2 : arr_19(num_rows*num_copies-1 downto 0);
  --type arr_ET1ET2 is array (integer range <>) of std_logic_vector(TO_Jet_Et1_size+TO_Jet_Et2_size - 1 downto 0);
  --signal send_align_ET1ET2 : arr_ET1ET2(num_rows-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_Jet-1 generate
  --  TO_Jets(i_jet)(TO_Jet_Et2_size-1 downto 0)<=DATA_Et2((i_jet+1)*TO_Jet_Et2_size - 1 downto i_jet * TO_Jet_Et2_size);
  --  TO_Jets(i_jet)(TO_Jet_Et2_size+TO_Jet_Et1_size-1 downto TO_Jet_Et2_size)<=DATA_Et1((i_jet+1)*TO_Jet_Et1_size - 1 downto i_jet * TO_Jet_Et1_size);
  --  TO_Jets(i_jet)(TO_Jet_Et2_size+TO_Jet_Et1_size+TO_Jet_pos_size-1 downto TO_Jet_Et2_size+TO_Jet_Et1_size)<=DATA_pos((i_jet+1)*TO_Jet_pos_size - 1 downto i_jet * TO_Jet_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 Num_TO_Jet-1 generate

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

      --
      --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_Jet_size );
      constant lsb : integer := 128*i_row_fiber + 128 - ( ( i_col +1 ) * TO_Jet_size );
      
    --flat_array(msb downto lsb)<=TO_Jets(i_TO);
    --flat_array(128*i_row + 127 - ( i_col * TO_Jet_size ) downto 128*i_row + 128 - ( ( i_col +1 ) * TO_Jet_size ))<=TO_Jets(i_TO);

    begin

      --just trigger a report
      assert 1=0 report "WTF: Jet_Topo_Encoder flat_array generation: 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)&", i_row_fiber: "&integer'IMAGE(i_row_fiber)&", msb: "&integer'IMAGE(msb)&", lsb: "&integer'IMAGE(lsb) severity NOTE;

      assert i_TO<=32 report "TOO MANY TOBS in THE Jet Encoder INSTATIATION!!!" severity FAILURE;
      assert lsb>=0 report "LSB less than 0 in the jet encoder 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_Jet_Et2_size-1 downto lsb)<=Tobs_to_TOPO(i_copy)(i_TO).Et2;
      flat_array(lsb+TO_Jet_Et2_size+TO_Jet_Et1_size-1 downto lsb+TO_Jet_Et2_size)<=Tobs_to_TOPO(i_copy)(i_TO).Et1;
      flat_array(lsb+TO_Jet_Et2_size+TO_Jet_Et1_size+TO_Jet_pos_size-1 downto lsb+TO_Jet_Et2_size+TO_Jet_Et1_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(15 + i_row*128 +i_copy*num_rows*128)<=overflow(i_copy);
      flat_array(14 + 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_ET1ET2(i_row_fiber)(18 downto 10)<=Tobs_to_TOPO(i_copy)(i_row+2*num_rows).Et1;
      send_align_ET1ET2(i_row_fiber)(9 downto 0)  <=Tobs_to_TOPO(i_copy)(i_row+2*num_rows).Et2;
      send_align_out(i_row_fiber)<= '0' when send_align_ET1ET2(i_row_fiber)/="0000000000000000000" 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;