daq_header.vhd

Go to the documentation of this file.

--**************************************************************
--*                                                            *
--*     The source code for the ATLAS BCM "AAA" FPGA is made   *
--*     available via the GNU General Public License (GPL)     *
--*     unless otherwise stated below.                         *
--*                                                            *
--*     In case of problems/questions/bug reports etc. please  *
--*     contact michael.niegl@cern.ch                          *
--*                                                            *
--**************************************************************

--**************************************************************
--*                                                            *
--*  $Source: /local/reps/bcmfpga/bcm_aaa/bcm_aaa/rio/daq_header.vhd,v $
--*  $Revision: 1.7.2.6 $                                          *
--*  $Name: dev $                                             *
--*  $Author: mniegl $                                         *
--*  $Date: 2008/11/03 17:57:47 $                              *


--*                                                            *
--**************************************************************
--****************************************************************************
--
--*                             BCM DAQ Header
--
--****************************************************************************



library ieee;

use ieee.std_logic_1164.all;


package daq_header is

-----------------------------  types  ------------------------------------------
  type sixteentwo is array (16 downto 1) of std_logic_vector(1 downto 0);
  type twofour is array (8 downto 1) of std_logic_vector(2 downto 0);
  type fivetwo is array (2 downto 1) of std_logic_vector(4 downto 0);
  type sixteen is array (8 downto 1) of std_logic_vector(1 downto 0);
  type eight is array (4 downto 1) of std_logic_vector(1 downto 0);
  type four is array (2 downto 1) of std_logic_vector(1 downto 0);
  type threesix is array (2 downto 0) of std_logic_vector(5 downto 0);

----------------------------- constants --------------------------------------
--constant ADJ_TIME_1           :               integer                 := 0;
--constant ADJ_TIME_2           :               integer                 := 16;

----------------------------- functions --------------------------------------
  function reverse_any_vector(a : std_logic_vector) return std_logic_vector;
  function dec13 (D             : std_logic_vector (2 downto 0)) return std_logic;
  function dec23 (DAT           : std_logic_vector (2 downto 0)) return std_logic;
  function ris_pattern (A       : std_logic_vector (3 downto 0)) return std_logic;
  function fal_pattern (A       : std_logic_vector (3 downto 0)) return std_logic;
  function ris_hole_pattern (A  : std_logic_vector (3 downto 0)) return std_logic;
  function fal_hole_pattern (A  : std_logic_vector (3 downto 0)) return std_logic;
  function spike_suppress (A    : std_logic_vector (2 downto 0)) return std_logic;
  function or_check (B          : std_logic_vector (31 downto 0)) return std_logic;
  function or_check_long (B     : std_logic_vector (31 downto 0)) return std_logic;
  function lowest_zero (b       : std_logic_vector (2 downto 0)) return integer;
  function cnt_ones (vec_in     : std_logic_vector(31 downto 0)) return integer;
--function XROL (ARG: STD_LOGIC_VECTOR; COUNT: NATURAL) return STD_LOGIC_VECTOR;

end daq_header;


package body daq_header is

----------------------------- functions --------------------------------------

  function reverse_any_vector (a : in std_logic_vector)
    return std_logic_vector is
    variable result : std_logic_vector(a'range);
    alias aa        : std_logic_vector(a'reverse_range) is a;
  begin
    for i in aa'range loop
      result(i) := aa(i);
    end loop;
    return result;
  end reverse_any_vector;


  function cnt_ones (vec_in : std_logic_vector(31 downto 0))
    return integer is
    variable cnt : integer range 0 to vec_in'length := 0;
  begin
    for i in 0 to (vec_in'length)-1 loop
      if vec_in(i) = '1' then
        cnt := cnt + 1;
      end if;
    end loop;  -- i
    return cnt;
  end cnt_ones;


  function dec13 (D : std_logic_vector (2 downto 0))
    return std_logic is
    variable R                : std_logic := '0';
    variable a, b, c, e, f, g : std_logic := '0';
  begin
    a := D(2);
    b := D(1);
    c := D(0);
    g := not(a);
    e := not(b);
    f := not(c);
    if ((a and e and f) or (g and b and f) or (g and e and c)) = '1' then
      R := '1';
    else
      R := '0';
    end if;
    return R;
  end dec13;


  function dec23 (DAT : std_logic_vector (2 downto 0))
    return std_logic is
    variable X                : std_logic := '0';
    variable a, b, c, e, f, g : std_logic := '0';
  begin
    a := DAT(2);
    b := DAT(1);
    c := DAT(0);
    g := not(a);
    e := not(b);
    f := not(c);
    X := (a and b and f) or (a and e and c) or (g and b and c);
    return X;
  end dec23;


  function ris_pattern (A : std_logic_vector (3 downto 0))
    return std_logic is
  begin
    return ((not A(3)) and (not A(2)) and A(1) and A(0));
  end ris_pattern;


  function ris_hole_pattern (A : std_logic_vector (3 downto 0))
    return std_logic is
  begin
    return (A(3) and A(2) and (not A(1)) and A(0));
  end ris_hole_pattern;


  function fal_pattern (A : std_logic_vector (3 downto 0))
    return std_logic is
  begin
    return ((not A(0)) and (not A(1)) and A(2) and A(3));
  end fal_pattern;


  function fal_hole_pattern (A : std_logic_vector (3 downto 0))
    return std_logic is
  begin
    return (A(3) and (not A(2)) and A(1) and A(0));
  end fal_hole_pattern;


  function spike_suppress (A : std_logic_vector (2 downto 0))
    return std_logic is
  begin
    return not ((not A(2)) and A(1) and (not A(0)));
  end spike_suppress;


  function or_check_long (B : std_logic_vector (31 downto 0))
    return std_logic is
    variable R : std_logic := '0';
  begin
    R := B(31) or B(30) or B(29) or B(28) or B(27) or B(26) or B(25) or B(24) or B(23) or B(22) or B(21) or B(20)
         or B(19) or B(18) or B(17) or B(16) or B(15) or B(14) or B(13) or B(12) or B(11) or B(10) or B(9) or B(8)
         or B(7) or B(6) or B(5) or B(4) or B(3) or B(2) or B(1) or B(0);
    return R;
  end or_check_long;


  function or_check (B : std_logic_vector (31 downto 0))
    return std_logic is
    variable R : std_logic := '0';
  begin
    R := B(31) or B(30) or B(29) or B(28) or B(27) or B(26) or B(25) or B(24);
    return R;
  end or_check;



  function lowest_zero (b : std_logic_vector (2 downto 0))
    return integer is
    variable R : integer range 0 to 3 := 0;
  begin
    if b(0) = '0' then
      R := 0;
    elsif b(1) = '0' then
      R := 1;
    elsif b(2) = '0' then
      R := 2;
    else
      R := 3;
    end if;
    return R;
  end lowest_zero;

--      cyclic shift left for std_logic_vector
--function XROL (ARG: STD_LOGIC_VECTOR; COUNT: NATURAL) return STD_LOGIC_VECTOR
--      is
--    constant ARG_L: INTEGER := 31;--ARG'LENGTH-1;
--    alias XARG: STD_LOGIC_VECTOR(ARG_L downto 0) is ARG;
--    variable RESULT: STD_LOGIC_VECTOR(ARG_L downto 0) := XARG;
--    variable COUNTM: INTEGER;
--  begin
--    COUNTM := COUNT mod (ARG_L + 1);
--    if COUNTM /= 0 then
--      RESULT(ARG_L downto COUNTM) := XARG(ARG_L-COUNTM downto 0);
--      RESULT(COUNTM-1 downto 0) := XARG(ARG_L downto ARG_L-COUNTM+1);
--    end if;
--    return RESULT;
--  end XROL;

end daq_header;

---

Author: M.Niegl

Generated on Tue Nov 4 00:47:03 2008 for BCM-AAA by  1.5.7.1-20081012