main_crt_vs_cp.vhd

Go to the documentation of this file.

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.NUMERIC_STD.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;
use IEEE.STD_LOGIC_ARITH.CONV_STD_LOGIC_VECTOR;

LIBRARY work;
use work.CMXpackage.all;
use work.CMX_flavor_package.all;



entity main_crt is
  port( 
    clk            : in     std_logic;                                -- clock
    thresholds     : in     arr_16(max_cps*16*4-1 downto 0);          -- thresholds
    datai          : in     arr_4Xword(max_cps-1 downto 0);           -- input data
    dout_lcl       : out    T_SLV48;                                         -- local output (multiplicity), excluding parity
    dout_lcl_ro    : out    T_SL;                                     -- local overflow
    par_err_lcl    : in     T_SL;                                     -- parity error local
    force          : in     T_SL;                                      -- force
    disable_overflow_mask : in std_logic_vector(15 downto 0)
    );

end main_crt;

architecture struct of main_crt is


-- signal declarations  
  
  signal sum_internal    : T_SLV48; 
  signal thrPat          : thPatL_type(max_cps-1 downto 0);
  signal mult            : mult_type(max_cps-1 downto 0);
  signal threshold_table : threshold_type(max_cps-1 downto 0);
  

  signal roi_posRxA      : Rxpos_type(max_cps-1 downto 0);
  signal roi_posRxB      : Rxpos_type(max_cps-1 downto 0);
  signal roi_posRx       : Rxpos_type(max_cps-1 downto 0);
  signal ntobsA          : ntobsA_type(max_cps-1 downto 0);
  signal loc             : loc_type(max_cps-1 downto 0); 

  signal TOBs            : arr_TOB(max_cps*max_tobs_pcp-1 downto 0); -- Trigger Objects
  signal data_high       : High_word(max_cps-1 downto 0):=(others =>(others =>(others => '0'))); 
  signal data_low        : Low_word(max_cps-1 downto 0):=(others =>(others =>(others => '0')));

  signal overflow        : T_SLV14;
  signal bitofw          : T_SL;
  signal bitofw_del0     : T_SL;
  signal bitofw_del1     : T_SL;
  
  signal ntobs_low  : ntobsA_type(max_cps-1 downto 0);
  signal ntobs_high : ntobsA_type(max_cps-1 downto 0);
  signal ntobs_tot  : ntobstot_type(max_cps-1 downto 0);    
  
  signal par_err_lcl_d0  : T_SL;     -- parity error local delayed
  signal dout_lcl_tmp    : T_SLV48;  

  
begin



  
  data_map: for i in 0 to (max_cps-1) generate
    
    TOBs((5*i)+4).ISO  <= data_high(i)(3)(6 downto 2);
    TOBs((5*i)+4).CLE  <= data_low(i)(3)( 7 downto  0);
    TOBs((5*i)+4).POS  <= (others=>'0');
    
    TOBs((5*i)+3).ISO  <= data_low(i)(3)(14 downto 10);
    TOBs((5*i)+3).CLE  <= data_low(i)(2)(15 downto 8);
    TOBs((5*i)+3).POS  <= (others=>'0');
    
    TOBs((5*i)+2).ISO  <= data_high(i)(2)(6 downto 2);
    TOBs((5*i)+2).CLE  <= data_low(i)(2)(7 downto 0);
    TOBs((5*i)+2).POS  <= (others=>'0');
    
    TOBs((5*i)+1).ISO  <= data_high(i)(1)(6 downto 2);
    TOBs((5*i)+1).CLE  <= data_low(i)(1)(15 downto 8);
    TOBs((5*i)+1).POS  <= (others=>'0');
    
    TOBs((5*i)+0).ISO  <= data_high(i)(0)(6 downto 2);
    TOBs((5*i)+0).CLE  <= data_low(i)(1)(7 downto 0);
    TOBs((5*i)+0).POS  <= (others=>'0');
    

  end generate;
  
  
  data_parser_0: for i in 0 to (max_cps-1) generate
    data_parser_1: for j in 0 to (max_tobs_pcp-2) generate
      data_low(i)(j) <=  datai(i)((24*j)+15 downto (25*j)-j);
      data_high(i)(j) <= datai(i)((24*j)+23 downto (24*j)+16);
    end generate data_parser_1;
  end generate data_parser_0;
  

  Rxpos_i: for i in 0 to (max_cps-1) generate -- 0 to 13 (CPs)

    ntobsA(i)  <= Rxpos_sort(conv_integer(datai(i)(7 downto 0)))(7 downto 5);
    roi_posRxA(i) <= Rxpos_sort(conv_integer(datai(i)(7 downto 0)))(4 downto 0);
    roi_posRxB(i) <= Rxpos_sort(conv_integer(datai(i)(15 downto 8)))(4 downto 0);

    with ntobsA(i) select roi_posRx(i) <=
      roi_posRxB(i) when "000",
      (roi_posRxB(i)(3 downto 0) & roi_posRxA(i)(0)) when "001",
      (roi_posRxB(i)(2 downto 0) & roi_posRxA(i)(1 downto 0)) when "010",
      (roi_posRxB(i)(1 downto 0) & roi_posRxA(i)(2 downto 0)) when "011",
      (roi_posRxB(i)(0) & roi_posRxA(i)(3 downto 0)) when "100",
      roi_posRxA(i) when others;  -- five or more in first half
  end generate;    


  loc_i: for i in 0 to (max_cps-1) generate -- 0 to 13 (CPs)
    loc(i)(0) <= roi_posRx(i)(0) & data_high(i)(0)(0);                      
    loc(i)(1) <= roi_posRx(i)(1) & data_high(i)(1)(0);                      
    loc(i)(2) <= roi_posRx(i)(2) & data_high(i)(2)(0);                      
    loc(i)(3) <= roi_posRx(i)(3) & data_low(i)(3)(8);                       
    loc(i)(4) <= roi_posRx(i)(4) & data_high(i)(3)(0);                        
  end generate;

--
-- Thresholds 
--
--
  threshold_CPs: for i in 0 to (max_cps-1) generate           -- 0 to 13 (CPs)
    threshold_num:   for j in 0 to (thresholds_num-1) generate      -- 0 to 15 (Thresholds) 
      threshold_slice: for k in 0 to (max_eta_slices-1)  generate     -- 0 to 3  (Eta slices) 
        threshold_table(i)(j)(k) <= thresholds(16*k+64*i+j)(12 downto 0);
      end generate threshold_slice;
    end generate threshold_num;   
  end generate threshold_CPs; 


  process (clk) 

  begin  
    if clk'event and clk = '0' then  -- falling clock edge


      thrPat <= (others => (others => '0'));
      for i in 0 to (max_cps-1) loop -- 0 to 13 (CPs)
        for j in 0 to (max_tobs_pcp-1) loop -- 0 to 4 (TOBs)
          for k in 0 to (thresholds_num-1) loop  -- 0 to 15 (Thresholds)

            if TOBs((max_tobs_pcp*i)+j).CLE > threshold_table(i)(k)(conv_integer(loc(i)(j)))(7 downto 0) and       -- thresholds
                                                    (TOBs((max_tobs_pcp*i)+j).ISO and threshold_table(i)(k)(conv_integer(loc(i)(j)))(12 downto 8)) = threshold_table(i)(k)(conv_integer(loc(i)(j)))(12 downto 8)  then -- isolation
              thrPat(i)((max_tobs_pcp*k)+j) <= '1';
            end if;
            
            -- overflow 
            bitofw_del0 <= bitofw;     

            -- parity error local delay
            par_err_lcl_d0 <= par_err_lcl; 
            
          end loop;
        end loop;
      end loop;

    end if;
  end process;   

  g0: for i in 0 to (max_cps-1) generate -- loop over each CPs    
    g1: for j in 0 to (thresholds_num-1) generate -- loop over each threshold
      mult(i)(j) <= mult_i(conv_integer(thrPat(i)(5*j+4 downto 5*j)));
    end generate g1;  
  end generate g0;

  process (clk) 

    variable xsum       : xsum_type(thresholds_num-1 downto 0);
    variable totsum     : totsum_type(thresholds_num-1 downto 0);

  begin  
    if clk'event and clk = '1' then  -- raising clock edge
      
      for i in 0 to thresholds_num-1 loop -- loop over each threshold
        for j in 0 to max_cps/2-1 loop     -- loop over 7 pairs of CPs
          
          xsum(i)(j) := add3x2(mult(2*j)(i),mult(2*j+1)(i));
          
        end loop;
      end loop;


      for i in 0 to (thresholds_num-1) loop -- loop over each threshold

        totsum(i) :=   to_integer(unsigned(xsum(i)(0))) -- sum over 7 pairs of JEMs
                       + to_integer(unsigned(xsum(i)(1)))
                       + to_integer(unsigned(xsum(i)(2)))
                       + to_integer(unsigned(xsum(i)(3)))
                       + to_integer(unsigned(xsum(i)(4)))
                       + to_integer(unsigned(xsum(i)(5)))
                       + to_integer(unsigned(xsum(i)(6)));

        if (totsum(i) >= 7) then
          sum_internal((3*i)+2 downto 3*i) <= "111";
        else
          sum_internal((3*i)+2 downto 3*i) <= std_logic_vector(to_unsigned(totsum(i), 3));
        end if;

      end loop;

      
      -- overflow
      bitofw_del1 <= bitofw_del0;
      
    end if;
  end process;   


-- Output

  dout_lcl_tmp(47 downto 0) <= sum_internal(47 downto 0); -- 15 3-bit sums 

  dout_lcl <= (others=>'1') when (par_err_lcl_d0 = '1' and force = '1') or bitofw_del1 = '1' else dout_lcl_tmp;


-- overflow calc.

  gen_cpm_ntobs: for i_cpm in 0 to max_cps-1 generate

    ntobs_low(i_cpm) <= Rxpos_sort(conv_integer(datai(i_cpm)(7 downto 0)))(7 downto 5);
    ntobs_high(i_cpm) <= Rxpos_sort(conv_integer(datai(i_cpm)(15 downto 8)))(7 downto 5);

    ntobs_tot(i_cpm)<=std_logic_vector(resize(unsigned(ntobs_low(i_cpm)),4) + resize(unsigned(ntobs_high(i_cpm)),4));

    overflow(i_cpm) <= '1' when ntobs_tot(i_cpm) > 5 else '0';

  end generate;


-- overflow output
  dout_lcl_ro <= bitofw_del1;

  bitofw <= ( (not disable_overflow_mask(1) ) and overflow(0) )  or   
            ( (not disable_overflow_mask(2) ) and overflow(1) )  or
            ( (not disable_overflow_mask(3) ) and overflow(2) )  or
            ( (not disable_overflow_mask(4) ) and overflow(3) )  or 
            ( (not disable_overflow_mask(5) ) and overflow(4) )  or 
            ( (not disable_overflow_mask(6) ) and overflow(5) )  or 
            ( (not disable_overflow_mask(7) ) and overflow(6) )  or 
            ( (not disable_overflow_mask(8) ) and overflow(7) )  or 
            ( (not disable_overflow_mask(9) ) and overflow(8) )  or 
            ( (not disable_overflow_mask(10) ) and overflow(9) )  or 
            ( (not disable_overflow_mask(11) ) and overflow(10) ) or
            ( (not disable_overflow_mask(12) ) and overflow(11) ) or
            ( (not disable_overflow_mask(13) ) and overflow(12) ) or
            ( (not disable_overflow_mask(14) ) and overflow(13) ) ;

  
end struct;