APB_ADVANCED_TRIGGER.vhd
157 lines
| 4.9 KiB
| text/x-vhdl
|
VhdlLexer
|
r653 | ------------------------------------------------------------------------------ | |
-- This file is a part of the LPP VHDL IP LIBRARY | |||
-- Copyright (C) 2016, Laboratory of Plasmas Physic - CNRS | |||
-- | |||
-- This program is free software; you can redistribute it and/or modify | |||
-- it under the terms of the GNU General Public License as published by | |||
-- the Free Software Foundation; either version 3 of the License, or | |||
-- (at your option) any later version. | |||
-- | |||
-- This program is distributed in the hope that it will be useful, | |||
-- but WITHOUT ANY WARRANTY; without even the implied warranty of | |||
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
-- GNU General Public License for more details. | |||
-- | |||
-- You should have received a copy of the GNU General Public License | |||
-- along with this program; if not, write to the Free Software | |||
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA | |||
------------------------------------------------------------------------------ | |||
-- Author : Alexis Jeandet | |||
-- Mail : alexis.jeandet@lpp.polytechnique.fr | |||
------------------------------------------------------------------------------ | |||
library ieee; | |||
use ieee.std_logic_1164.all; | |||
--use ieee.numeric_std.all; | |||
library grlib; | |||
use grlib.amba.all; | |||
use grlib.stdlib.all; | |||
use grlib.devices.all; | |||
library lpp; | |||
use lpp.apb_devices_list.all; | |||
use lpp.lpp_amba.all; | |||
use lpp.general_purpose.TimeGenAdvancedTrigger; | |||
entity APB_ADVANCED_TRIGGER is | |||
generic ( | |||
pindex : integer := 0; | |||
paddr : integer := 0; | |||
pmask : integer := 16#fff#; | |||
pirq : integer := 0; | |||
abits : integer := 8); | |||
port ( | |||
rstn : in std_ulogic; | |||
clk : in std_ulogic; | |||
apbi : in apb_slv_in_type; | |||
apbo : out apb_slv_out_type; | |||
SPW_Tickout : IN STD_LOGIC; | |||
CoarseTime : IN STD_LOGIC_VECTOR(31 DOWNTO 0); | |||
FineTime : IN STD_LOGIC_VECTOR(15 DOWNTO 0); | |||
Trigger : OUT STD_LOGIC | |||
); | |||
end; | |||
architecture beh of APB_ADVANCED_TRIGGER is | |||
constant REVISION : integer := 1; | |||
constant pconfig : apb_config_type := ( | |||
0 => ahb_device_reg (VENDOR_LPP, LPP_APB_ADVANCED_TRIGGER, 0, REVISION, 0), | |||
1 => apb_iobar(paddr, pmask)); | |||
type adv_trig_type is record | |||
TrigPeriod : STD_LOGIC_VECTOR(3 DOWNTO 0); -- In seconds 0 to 15 | |||
TrigShift : STD_LOGIC_VECTOR(15 DOWNTO 0); -- In FineTime steps | |||
Restart : STD_LOGIC; | |||
StartDate : STD_LOGIC_VECTOR(31 DOWNTO 0); -- Date in seconds since epoch | |||
BypassTickout : STD_LOGIC; -- if set then Trigger output is driven by SPW tickout | |||
end record; | |||
type adv_trig_regs is record | |||
CFG : STD_LOGIC_VECTOR(31 DOWNTO 0); | |||
Restart : STD_LOGIC_VECTOR(31 DOWNTO 0); | |||
StartDate : STD_LOGIC_VECTOR(31 DOWNTO 0); | |||
end record; | |||
signal r : adv_trig_regs; | |||
signal adv_trig : adv_trig_type; | |||
signal Rdata : std_logic_vector(31 downto 0); | |||
begin | |||
adv_trig0: TimeGenAdvancedTrigger | |||
PORT MAP( | |||
clk => clk, | |||
rstn => rstn, | |||
SPW_Tickout => SPW_Tickout, | |||
CoarseTime => CoarseTime, | |||
FineTime => FineTime, | |||
TrigPeriod => adv_trig.TrigPeriod, | |||
TrigShift => adv_trig.TrigShift, | |||
Restart => adv_trig.Restart, | |||
StartDate => adv_trig.StartDate, | |||
BypassTickout => adv_trig.BypassTickout, | |||
Trigger => Trigger | |||
); | |||
adv_trig.BypassTickout <= r.CFG(0); | |||
adv_trig.TrigPeriod <= r.CFG(7 downto 4); | |||
adv_trig.TrigShift <= r.CFG(31 downto 16); | |||
adv_trig.Restart <= r.Restart(0); | |||
adv_trig.StartDate <= r.StartDate; | |||
process(rstn,clk) | |||
begin | |||
if rstn = '0' then | |||
r.CFG <= (others=>'0'); | |||
r.Restart <= (others=>'0'); | |||
r.StartDate <= (others=>'0'); | |||
elsif clk'event and clk = '1' then | |||
--APB Write OP | |||
if (apbi.psel(pindex) and apbi.penable and apbi.pwrite) = '1' then | |||
case apbi.paddr(abits-1 downto 2) is | |||
when "000000" => | |||
r.CFG <= apbi.pwdata; | |||
when "000001" => | |||
r.Restart <= apbi.pwdata; | |||
when "000010" => | |||
r.StartDate <= apbi.pwdata; | |||
when others => | |||
null; | |||
end case; | |||
end if; | |||
--APB READ OP | |||
if (apbi.psel(pindex) and (not apbi.pwrite)) = '1' then | |||
case apbi.paddr(abits-1 downto 2) is | |||
when "000000" => | |||
Rdata <= r.CFG; | |||
when "000001" => | |||
Rdata <= r.Restart; | |||
when "000010" => | |||
Rdata <= r.StartDate; | |||
when others => | |||
Rdata <= r.Restart; | |||
end case; | |||
end if; | |||
end if; | |||
apbo.pconfig <= pconfig; | |||
end process; | |||
apbo.prdata <= Rdata when apbi.penable = '1'; | |||
end beh; |