Skip to content

V
VME64x core
Commit e98eb58c authored by Tomasz Wlostowski's avatar Tomasz Wlostowski
Browse files
Options

hdl: various fixes: 

    - made clock frequency configurable as a top level generic
    - fixed a very nasty typ on default value of g_adem_a24 in the package component declaration
    - removed some unused debugging stuff (counters, etc) to decrease footprint of the core
parent aa37242a
Hide whitespace changes
Inline Side-by-side
Showing with 14 additions and 125 deletions
hdl/vme64x-core/rtl/VME64xCore_Top.vhd
View file @ e98eb58c
...@@ -131,7 +131,6 @@ entity VME64xCore_Top is ...@@ -131,7 +131,6 @@ entity VME64xCore_Top is
port( port(
clk_i : in std_logic; clk_i : in std_logic;
rst_n_i : in std_logic; rst_n_i : in std_logic;
-- VME -- VME
VME_AS_n_i : in std_logic; VME_AS_n_i : in std_logic;
VME_RST_n_i : in std_logic; -- asserted when '0' VME_RST_n_i : in std_logic; -- asserted when '0'
...@@ -346,7 +345,6 @@ begin ...@@ -346,7 +345,6 @@ begin
port map( port map(
clk_i => clk_i, clk_i => clk_i,
rst_n_i => rst_n_i, rst_n_i => rst_n_i,
reset_o => s_reset, -- asserted when '1' reset_o => s_reset, -- asserted when '1'
-- VME -- VME
VME_RST_n_i => VME_RST_n_oversampled, VME_RST_n_i => VME_RST_n_oversampled,
......
hdl/vme64x-core/rtl/VME_bus.vhd
View file @ e98eb58c
...@@ -279,34 +279,18 @@ architecture RTL of VME_bus is ...@@ -279,34 +279,18 @@ architecture RTL of VME_bus is
signal s_func_sel : std_logic_vector(7 downto 0); signal s_func_sel : std_logic_vector(7 downto 0);
signal s_VMEdata64In : unsigned(63 downto 0); signal s_VMEdata64In : unsigned(63 downto 0);
signal s_counter : unsigned(25 downto 0);
signal s_countcyc : unsigned(9 downto 0);
signal s_BERR_out : std_logic; signal s_BERR_out : std_logic;
signal s_errorflag : std_logic; signal s_errorflag : std_logic;
signal s_resetflag : std_logic; signal s_resetflag : std_logic;
signal s_led1 : std_logic;
signal s_led2 : std_logic;
signal s_led3 : std_logic;
signal s_led4 : std_logic;
signal s_led5 : std_logic;
signal s_sw_reset : std_logic; signal s_sw_reset : std_logic;
signal s_decode : std_logic; signal s_decode : std_logic;
signal s_AckWb : std_logic; signal s_AckWb : std_logic;
signal s_CRCSRtype : std_logic; signal s_CRCSRtype : std_logic;
signal s_err : std_logic; signal s_err : std_logic;
signal s_rty : std_logic; signal s_rty : std_logic;
-- transfer rate signals:
signal s_countertime : unsigned(39 downto 0);
signal s_time : std_logic_vector(39 downto 0);
signal s_counterbytes : unsigned(12 downto 0);
signal s_bytes : std_logic_vector(12 downto 0);
signal s_datawidth : unsigned(3 downto 0);
-- --
signal s_wbMaster_rst : std_logic; signal s_wbMaster_rst : std_logic;
signal s_num_latchDS : integer; signal s_num_latchDS : integer;
--===========================================================================
-- Architecture begin
--===========================================================================
begin begin
-- calculate the number of LATCH DS states necessary to match the timing -- calculate the number of LATCH DS states necessary to match the timing
-- rule 2.39 page 113 VMEbus specification ANSI/IEEE STD1014-1987. -- rule 2.39 page 113 VMEbus specification ANSI/IEEE STD1014-1987.
...@@ -426,22 +410,7 @@ begin ...@@ -426,22 +410,7 @@ begin
TWOe when TWOedge, TWOe when TWOedge,
error when others; error when others;
process(clk_i)
begin
if rising_edge(clk_i) then
if s_typeOfDataTransfer = D08_0 or s_typeOfDataTransfer = D08_1 or
s_typeOfDataTransfer = D08_2 or s_typeOfDataTransfer = D08_3 then
s_datawidth <= "0001";
elsif s_typeOfDataTransfer = D16_01 or s_typeOfDataTransfer = D16_23 then
s_datawidth <= "0010";
elsif s_typeOfDataTransfer = D32 or (s_typeOfDataTransfer = D64 and
(s_transferType = SINGLE or s_transferType = BLT)) then
s_datawidth <= "0100";
else
s_datawidth <= "1000";
end if;
end if;
end process;
s_addrWidth <= s_addrWidth1; s_addrWidth <= s_addrWidth1;
...@@ -1282,52 +1251,6 @@ begin ...@@ -1282,52 +1251,6 @@ begin
end if; end if;
end process; end process;
-- The following process are used to calculate the transfer time in ns
-- (time between the As falling edge and the AS rising edge), and
-- the number of bytes transferred.
process(clk_i)
begin
if rising_edge(clk_i) then
if s_reset = '1' or s_mainFSMreset = '1' then
s_countertime <= (others => '0');
elsif VME_AS_n_i = '0' then
s_countertime <= s_countertime + to_unsigned(g_clock, 40);
end if;
end if;
end process;
process(clk_i)
begin
if rising_edge(clk_i) then
if (s_mainFSMreset = '1' and s_cardSel = '1') or s_reset = '1' then
s_time <= std_logic_vector(s_countertime + 30);
end if;
end if;
end process;
process(clk_i)
begin
if rising_edge(clk_i) then
if s_reset = '1' or s_mainFSMreset = '1' then
s_counterbytes <= (others => '0');
elsif s_memReq = '1' and s_cardSel = '1' then
s_counterbytes <= s_counterbytes + s_datawidth;
end if;
end if;
end process;
process(clk_i)
begin
if rising_edge(clk_i) then
if (s_mainFSMreset = '1' and s_cardSel = '1') or s_reset = '1' then
s_bytes <= std_logic_vector(s_counterbytes);
end if;
end if;
end process;
numBytes <= s_bytes;
transfTime <= s_time;
---------------------------INITIALIZATION-------------------------------------| ---------------------------INITIALIZATION-------------------------------------|
-- Initialization procedure (about 8800 ns) -- Initialization procedure (about 8800 ns)
-- Read important CR data (like FUNC_ADEMs etc.) and store it locally -- Read important CR data (like FUNC_ADEMs etc.) and store it locally
...@@ -1374,6 +1297,8 @@ Inst_VME_Init : VME_Init ...@@ -1374,6 +1297,8 @@ Inst_VME_Init : VME_Init
------------------EDGE DETECTION and SAMPLING----------------------------------------- ------------------EDGE DETECTION and SAMPLING-----------------------------------------
ASfallingEdge : FallingEdgeDetection ASfallingEdge : FallingEdgeDetection
port map ( port map (
sig_i => VME_AS_n_i, sig_i => VME_AS_n_i,
...@@ -1408,43 +1333,6 @@ CRAMinputSample : SingleRegInputSample ...@@ -1408,43 +1333,6 @@ CRAMinputSample : SingleRegInputSample
clk_i => clk_i clk_i => clk_i
); );
------------------------------LEDS------------------------------------------------|
-- Debug
process(clk_i)
begin
if rising_edge(clk_i) then
if s_reset = '1' then
s_led5 <= '1';
elsif g_wb_data_width = 32 then
s_led5 <= '0';
end if;
end if;
end process;
leds(6) <= not ModuleEnable;
leds(2) <= '1';
leds(7) <= s_counter(25);
leds(5) <= s_led5;
leds(4) <= not s_errorflag;
leds(1) <= '1';
leds(3) <= '1';
leds(0) <= '1';
-------------------------------------------------------------------------------------------
-- This process implements a simple 26 bit counter. If the bitstream file has been downloaded
-- correctly and the clock is working properly you can see a led flash on the board.
process(clk_i)
begin
if rising_edge(clk_i) then
if VME_RST_n_i = '0' then
s_counter <= (others => '0');
else
s_counter <= s_counter + 1;
end if;
end if;
end process;
end RTL; end RTL;
--=========================================================================== --===========================================================================
-- Architecture end -- Architecture end
......
hdl/vme64x-core/rtl/vme64x_pack.vhd
View file @ e98eb58c
...@@ -731,12 +731,12 @@ package vme64x_pack is ...@@ -731,12 +731,12 @@ package vme64x_pack is
d_o : out std_logic_vector(63 downto 0) d_o : out std_logic_vector(63 downto 0)
); );
end component VME_swapper; end component VME_swapper;
component Reg32bit is component Reg32bit is
port ( port (
reset, clk_i, enable : in std_logic; reset, clk_i, enable : in std_logic;
di : in std_logic_vector(31 downto 0); di : in std_logic_vector(31 downto 0);
do : out std_logic_vector(31 downto 0) do : out std_logic_vector(31 downto 0)
); );
end component Reg32bit; end component Reg32bit;
component FlipFlopD is component FlipFlopD is
port ( port (
......
hdl/vme64x-core/rtl/xvme64x_core.vhd
View file @ e98eb58c
...@@ -41,13 +41,13 @@ use work.vme64x_pack.all; ...@@ -41,13 +41,13 @@ use work.vme64x_pack.all;
entity xvme64x_core is entity xvme64x_core is
generic ( generic (
g_clock_freq : integer := 62500000;
g_adem_a24 : std_logic_vector(31 downto 0) := x"fff80000"; g_adem_a24 : std_logic_vector(31 downto 0) := x"fff80000";
g_adem_a32 : std_logic_vector(31 downto 0) := x"ff000000" g_adem_a32 : std_logic_vector(31 downto 0) := x"ff000000"
); );
port ( port (
clk_i : in std_logic; clk_i : in std_logic;
rst_n_i : in std_logic; rst_n_i : in std_logic;
VME_AS_n_i : in std_logic; VME_AS_n_i : in std_logic;
VME_RST_n_i : in std_logic; VME_RST_n_i : in std_logic;
VME_WRITE_n_i : in std_logic; VME_WRITE_n_i : in std_logic;
...@@ -91,7 +91,8 @@ architecture wrapper of xvme64x_core is ...@@ -91,7 +91,8 @@ architecture wrapper of xvme64x_core is
g_wb_addr_width : integer := 64; g_wb_addr_width : integer := 64;
g_CRAM_SIZE : integer := 1024; g_CRAM_SIZE : integer := 1024;
g_adem_a24 : std_logic_vector(31 downto 0); g_adem_a24 : std_logic_vector(31 downto 0);
g_adem_a32 : std_logic_vector(31 downto 0) g_adem_a32 : std_logic_vector(31 downto 0);
g_clock : integer
); );
port ( port (
clk_i : in std_logic; clk_i : in std_logic;
...@@ -145,7 +146,8 @@ begin -- wrapper ...@@ -145,7 +146,8 @@ begin -- wrapper
U_Wrapped_VME : VME64xCore_Top U_Wrapped_VME : VME64xCore_Top
generic map ( generic map (
g_adem_a32 => g_adem_a32, g_adem_a32 => g_adem_a32,
g_adem_a24 => g_adem_a24) g_adem_a24 => g_adem_a24,
g_clock => g_clock_freq)
port map ( port map (
clk_i => clk_i, clk_i => clk_i,
rst_n_i => rst_n_i, rst_n_i => rst_n_i,
......
hdl/vme64x-core/rtl/xvme64x_core_pkg.vhd
View file @ e98eb58c
...@@ -83,7 +83,8 @@ package xvme64x_core_pkg is ...@@ -83,7 +83,8 @@ package xvme64x_core_pkg is
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
component xvme64x_core component xvme64x_core
generic ( generic (
g_adem_a24 : std_logic_vector(31 downto 0) := x"ff800000"; g_clock_freq : integer := 62500000;
g_adem_a24 : std_logic_vector(31 downto 0) := x"fff80000";
g_adem_a32 : std_logic_vector(31 downto 0) := x"ff000000" g_adem_a32 : std_logic_vector(31 downto 0) := x"ff000000"
); );
port ( port (
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment