TBScalersMux.vhd

library ieee;
   use ieee.std_logic_1164.all;
   use ieee.numeric_std.all;
   use ieee.std_logic_unsigned.all;
   use ieee.std_logic_misc.all;
library work;
   use work.conc_intfc_pkg.all;
   use work.klm_scint_pkg.all;
   use work.klm_scrod_pkg.all;

entity TBScalersMux is
   port (
      clk         : in std_logic;
      -- rst         : in std_logic;
      all_sca_bsy : in std_logic_vector(9 downto 0);
      all_scalers : in scalers32_all_type;
      chn         : in std_logic_vector(3 downto 0);

      sca_busy    : out std_logic;
      scalers_chn : out slv32(9 downto 0)
      
   );
end entity TBScalersMux;

architecture behav of TBScalersMux is

   signal i_scalers_all   : scalers32_all_type;
   signal i_scalers_all_r : scalers32_all_type;
   signal i_scalers_all_2r : scalers32_all_type;
   signal i_scalers_all_3r : scalers32_all_type;
   signal i_scalers32_ch   : slv32(9 downto 0);
   signal i_scalers32_ch_r : slv32(9 downto 0);
   signal i_scalers32_ch_2r : slv32(9 downto 0);

   signal i_chn : std_logic_vector (3 downto 0);
   

begin

   process (clk)
   begin
      if rising_edge (clk) then
         i_chn <= chn;
         sca_busy <= OR_REDUCE(all_sca_bsy);
      end if;
   end process;

   process(clk)
   begin
      if rising_edge(clk) then
         i_scalers_all_r    <= all_scalers;
         i_scalers_all_2r   <= i_scalers_all_r;
      end if;
   end process;


   ASICSCA_GEN : for iasic in 0 to 9 generate
      process(clk)
         variable asic_sca_chn : natural range 0 to 15;
      begin
         if rising_edge(clk) then
            asic_sca_chn          := to_integer(unsigned(i_chn));
            i_scalers32_ch(iasic) <= i_scalers_all_2r(iasic)(asic_sca_chn+1);
         end if;
      end process;
   end generate ASICSCA_GEN;

   process(clk)
   begin
      if rising_edge(clk) then
         i_scalers32_ch_r      <= i_scalers32_ch;
         i_scalers32_ch_2r     <= i_scalers32_ch_r;
         scalers_chn           <= i_scalers32_ch_2r;
      end if;
   end process;
   ------------------------------------------------

end behav;