Skip to content

C
Conv TTL RS485 - Gateware
Commit bf4e34ef authored by unknown's avatar unknown
Browse files
Options

style changes only. vhdl checker run on file

parent c891396f
Hide whitespace changes
Inline Side-by-side
Showing with 229 additions and 213 deletions
sim/testbench.vhd
View file @ bf4e34ef
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- CERN (BE-CO-HT) -- CERN (BE-CO-HT)
-- Converter Common Gateware -- Converter Common Gateware
-- https://www.ohwr.org/projects/conv-common-gw -- https://www.ohwr.org/projects/conv-common-gw
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- --
...@@ -8,7 +8,7 @@ ...@@ -8,7 +8,7 @@
-- --
-- description: -- description:
-- --
-- --
-- --
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- Copyright (c) 2010-2012 CERN / BE-CO-HT -- Copyright (c) 2010-2012 CERN / BE-CO-HT
...@@ -38,7 +38,7 @@ entity testbench is ...@@ -38,7 +38,7 @@ entity testbench is
end entity testbench; end entity testbench;
architecture behav of testbench is architecture arch of testbench is
--============================================================================ --============================================================================
-- Functions and procedures -- Functions and procedures
...@@ -48,51 +48,50 @@ architecture behav of testbench is ...@@ -48,51 +48,50 @@ architecture behav of testbench is
-- Signal declarations -- Signal declarations
--============================================================================ --============================================================================
signal i2c_m_in : t_i2c_master_in; signal i2c_m_in : t_i2c_master_in;
signal i2c_m_out : t_i2c_master_out; signal i2c_m_out : t_i2c_master_out;
signal clk_20, clk_125 : std_logic; signal clk_20, clk_125 : std_logic;
signal clk_125_p, clk_125_n : std_logic; signal clk_125_p, clk_125_n : std_logic;
signal vme_sysreset_n : std_logic := '0'; signal vme_sysreset_n : std_logic := '0';
signal ttl_n_in, ttl_out : std_logic_vector(C_NR_CHANS-1 downto 0) := (others => '1'); signal ttl_n_in, ttl_out : std_logic_vector(C_NR_CHANS-1 downto 0) := (others => '1');
signal rs485_n_in, rs485_fs_n_in : std_logic_vector(C_NR_CHANS-1 downto 0) := (others => '1'); signal rs485_n_in, rs485_fs_n_in : std_logic_vector(C_NR_CHANS-1 downto 0) := (others => '1');
signal rs485_out : std_logic_vector(C_NR_CHANS-1 downto 0) := (others => '1'); signal rs485_out : std_logic_vector(C_NR_CHANS-1 downto 0) := (others => '1');
signal inv_n_in, inv_out : std_logic_vector(C_NR_INV_CHANS-1 downto 0) := (others => '0'); signal inv_n_in, inv_out : std_logic_vector(C_NR_INV_CHANS-1 downto 0) := (others => '0');
signal sscl_out : std_logic; signal sscl_out : std_logic;
signal sscl_en_out : std_logic; signal sscl_en_out : std_logic;
signal ssda_out : std_logic; signal ssda_out : std_logic;
signal ssda_en_out : std_logic; signal ssda_en_out : std_logic;
signal mscl_out : std_logic; signal mscl_out : std_logic;
signal mscl_en_out : std_logic; signal mscl_en_out : std_logic;
signal msda_out : std_logic; signal msda_out : std_logic;
signal msda_en_out : std_logic; signal msda_en_out : std_logic;
signal sw_gp_n_in : std_logic_vector(7 downto 0); signal sw_gp_n_in : std_logic_vector(7 downto 0);
signal sw_other_in : std_logic_vector(31 downto 0); signal sw_other_in : std_logic_vector(31 downto 0);
signal pcbrev : std_logic_vector(5 downto 0); signal pcbrev : std_logic_vector(5 downto 0);
signal rtm_in : std_logic_vector(5 downto 0); signal rtm_in : std_logic_vector(5 downto 0);
signal i2c_master_rcvd_val : std_logic_vector(31 downto 0); signal i2c_master_rcvd_val : std_logic_vector(31 downto 0);
signal i2c_master_rcvd_val1 : std_logic_vector(31 downto 0); signal i2c_master_rcvd_val1 : std_logic_vector(31 downto 0);
signal mscl, msda : std_logic_vector(C_NR_MASTERS-1 downto 0); signal mscl, msda : std_logic_vector(C_NR_MASTERS-1 downto 0);
signal sscl, ssda : std_logic_vector(C_NR_SLAVES-1 downto 0); signal sscl, ssda : std_logic_vector(C_NR_SLAVES-1 downto 0);
signal scl, sda : std_logic; signal scl, sda : std_logic;
signal rst_copm, rst_cnt : std_logic := '0'; signal rst_copm, rst_cnt : std_logic := '0';
type cnt_ch_array is array (C_NR_CHANS-1 downto 0) of integer; type cnt_ch_array is array (C_NR_CHANS-1 downto 0) of integer;
signal fp_rp_same_err : cnt_ch_array; signal fp_rp_same_err : cnt_ch_array;
signal fp_rp_oppos_err : cnt_ch_array; signal fp_rp_oppos_err : cnt_ch_array;
signal in_out_oppos_err : cnt_ch_array; signal in_out_oppos_err : cnt_ch_array;
signal in_out_same_err : cnt_ch_array; signal in_out_same_err : cnt_ch_array;
signal pulse_cnt_ttl, pulse_cnt_rs485: cnt_ch_array; signal pulse_cnt_ttl, pulse_cnt_rs485 : cnt_ch_array;
signal inv_err : cnt_ch_array; signal inv_err : cnt_ch_array;
signal rtm_db9_ch0_err : integer; signal rtm_db9_ch0_err : integer;
signal rtm_db9_ch1_err : integer; signal rtm_db9_ch1_err : integer;
signal test_id : string(7 downto 1);
signal test_id : string(7 downto 1);
type cnt_inv_ch_array is array (C_NR_INV_CHANS-1 downto 0) of integer; type cnt_inv_ch_array is array (C_NR_INV_CHANS-1 downto 0) of integer;
...@@ -105,9 +104,9 @@ begin ...@@ -105,9 +104,9 @@ begin
--============================================================================ --============================================================================
-- Instantiate DUT -- Instantiate DUT
--============================================================================ --============================================================================
cmp_DUT: conv_ttl_rs485 cmp_DUT : conv_ttl_rs485
generic map (g_simul => true, generic map (g_Simul => true,
g_rst_time => 10) g_rst_time => 10)
port map port map
( (
-- Clocks -- Clocks
...@@ -126,7 +125,7 @@ begin ...@@ -126,7 +125,7 @@ begin
vme_ga_i => "11110", -- vme_ga_i => "11110", --
vme_gap_i => '0', vme_gap_i => '0',
-- PCB version recognition -- PCB version recognition
pcbrev_i => pcbrev, pcbrev_i => pcbrev,
-- Channel enable -- Channel enable
global_oen_o => open, global_oen_o => open,
ttl_oen_o => open, ttl_oen_o => open,
...@@ -189,9 +188,9 @@ begin ...@@ -189,9 +188,9 @@ begin
led_ttl_i2c_o => open); led_ttl_i2c_o => open);
sscl(0) <= sscl_out when (sscl_en_out = '1') else '1'; sscl(0) <= sscl_out when sscl_en_out = '1' else '1';
ssda(0) <= ssda_out when (ssda_en_out = '1') else '1'; ssda(0) <= ssda_out when ssda_en_out = '1' else '1';
--============================================================================ --============================================================================
...@@ -203,7 +202,7 @@ begin ...@@ -203,7 +202,7 @@ begin
wait for C_CLK_20_PER/2; wait for C_CLK_20_PER/2;
clk_20 <= '1'; clk_20 <= '1';
wait for C_CLK_20_PER/2; wait for C_CLK_20_PER/2;
end process; end process p_clk_20;
p_clk_125 : process p_clk_125 : process
begin begin
...@@ -211,12 +210,12 @@ begin ...@@ -211,12 +210,12 @@ begin
wait for C_CLK_125_PER/2; wait for C_CLK_125_PER/2;
clk_125 <= '1'; clk_125 <= '1';
wait for C_CLK_125_PER/2; wait for C_CLK_125_PER/2;
end process; end process p_clk_125;
clk_125_p <= clk_125; clk_125_p <= clk_125;
clk_125_n <= not clk_125; clk_125_n <= not clk_125;
p_vme_sysreset_n: process p_vme_sysreset_n : process
begin begin
vme_sysreset_n <= '0'; vme_sysreset_n <= '0';
wait for c_reset_width; wait for c_reset_width;
...@@ -233,9 +232,9 @@ begin ...@@ -233,9 +232,9 @@ begin
-- Instantiate I2C master to access DUT -- Instantiate I2C master to access DUT
--============================================================================ --============================================================================
cmp_i2c_master_and_driver: entity work.i2c_master_and_driver cmp_i2c_master_and_driver : entity work.i2c_master_and_driver
port map ( port map (
clk_i => clk_20, clk_i => clk_20,
rst_n_i => vme_sysreset_n, rst_n_i => vme_sysreset_n,
ready_o => i2c_m_out.i2c_master_ready, ready_o => i2c_m_out.i2c_master_ready,
start_i => i2c_m_in.i2c_master_start, start_i => i2c_m_in.i2c_master_start,
...@@ -245,7 +244,7 @@ begin ...@@ -245,7 +244,7 @@ begin
reg_addr_i => i2c_m_in.i2c_master_reg_addr, reg_addr_i => i2c_m_in.i2c_master_reg_addr,
send_val_i => i2c_m_in.i2c_master_send_val, send_val_i => i2c_m_in.i2c_master_send_val,
rcvd_val_o => i2c_m_out.i2c_master_rcvd_val, rcvd_val_o => i2c_m_out.i2c_master_rcvd_val,
scl_i => scl, scl_i => scl,
scl_o => mscl_out, scl_o => mscl_out,
scl_oen => mscl_en_out, scl_oen => mscl_en_out,
...@@ -253,11 +252,11 @@ begin ...@@ -253,11 +252,11 @@ begin
sda_o => msda_out, sda_o => msda_out,
sda_oen => msda_en_out sda_oen => msda_en_out
); );
-- Tri-state buffers on the I2C lines -- Tri-state buffers on the I2C lines
mscl(0) <= mscl_out when (mscl_en_out = '0') else '1'; mscl(0) <= mscl_out when mscl_en_out = '0' else '1';
msda(0) <= msda_out when (msda_en_out = '0') else '1'; msda(0) <= msda_out when msda_en_out = '0' else '1';
--============================================================================ --============================================================================
-- Bus model connection to master and slaves -- Bus model connection to master and slaves
--============================================================================ --============================================================================
...@@ -279,14 +278,14 @@ begin ...@@ -279,14 +278,14 @@ begin
--============================================================================ --============================================================================
-- Check if TTL_out, TTL_IN and RS485 match or are opposite -- Check if TTL_out, TTL_IN and RS485 match or are opposite
--============================================================================ --============================================================================
compare_front_rear_pulses: process (clk_125) compare_front_rear_pulses : process (clk_125)
begin begin
if rising_edge (clk_125) then if rising_edge (clk_125) then
if vme_sysreset_n = '0' or rst_copm = '1' then if vme_sysreset_n = '0' or rst_copm = '1' then
fp_rp_same_err <= (others=> (0)); fp_rp_same_err <= (others => (0));
fp_rp_oppos_err <= (others=> (0)); fp_rp_oppos_err <= (others => (0));
in_out_same_err <= (others=> (0)); in_out_same_err <= (others => (0));
in_out_oppos_err <= (others=> (0)); in_out_oppos_err <= (others => (0));
rtm_db9_ch0_err <= 0; rtm_db9_ch0_err <= 0;
rtm_db9_ch1_err <= 0; rtm_db9_ch1_err <= 0;
else else
...@@ -308,28 +307,28 @@ begin ...@@ -308,28 +307,28 @@ begin
end if; end if;
end loop; end loop;
if (rs485_out(0) /= rs485_out(1)) or (ttl_out(0) /= rs485_out(0)) then if (rs485_out(0) /= rs485_out(1)) or (ttl_out(0) /= rs485_out(0)) then
rtm_db9_ch0_err <= rtm_db9_ch0_err+1; rtm_db9_ch0_err <= rtm_db9_ch0_err+1;
end if; end if;
if (rs485_out(4) /= rs485_out(5)) or (ttl_out(1) /= rs485_out(4)) then if (rs485_out(4) /= rs485_out(5)) or (ttl_out(1) /= rs485_out(4)) then
rtm_db9_ch1_err <= rtm_db9_ch1_err+1; rtm_db9_ch1_err <= rtm_db9_ch1_err+1;
end if; end if;
end if; end if;
end if; end if;
end process; end process compare_front_rear_pulses;
--============================================================================ --============================================================================
-- Check INV channels -- Check INV channels
--============================================================================ --============================================================================
compare_inv_i_inv_o: process (clk_125) compare_inv_i_inv_o : process (clk_125)
begin begin
if rising_edge (clk_125) then if rising_edge (clk_125) then
if vme_sysreset_n = '0' then if vme_sysreset_n = '0' then
inv_err <= (others=> (0)); inv_err <= (others => (0));
else else
for i in 0 to C_NR_INV_CHANS-1 loop -- loop: 4 INV channels for i in 0 to C_NR_INV_CHANS-1 loop -- loop: 4 INV channels
if inv_n_in(i) /= inv_out(i) then if inv_n_in(i) /= inv_out(i) then
...@@ -338,64 +337,64 @@ begin ...@@ -338,64 +337,64 @@ begin
end loop; end loop;
end if; end if;
end if; end if;
end process; end process compare_inv_i_inv_o;
--============================================================================ --============================================================================
-- pulse counter -- pulse counter
--============================================================================ --============================================================================
pulse_counter_ttl: process (ttl_out, vme_sysreset_n, rst_cnt) pulse_counter_ttl : process (ttl_out, vme_sysreset_n, rst_cnt)
begin begin
if vme_sysreset_n = '0' or rst_cnt = '1' then if vme_sysreset_n = '0' or rst_cnt = '1' then
pulse_cnt_ttl <= (others=> (0)); pulse_cnt_ttl <= (others => (0));
else else
--for i in 0 to C_NR_CHANS-1 loop -- for i in 0 to C_NR_CHANS-1 loop
if rising_edge(ttl_out(0)) then if rising_edge(ttl_out(0)) then
pulse_cnt_ttl(0) <= pulse_cnt_ttl(0) +1; pulse_cnt_ttl(0) <= pulse_cnt_ttl(0) +1;
end if; end if;
if rising_edge(ttl_out(1)) then if rising_edge(ttl_out(1)) then
pulse_cnt_ttl(1) <= pulse_cnt_ttl(1) +1; pulse_cnt_ttl(1) <= pulse_cnt_ttl(1) +1;
end if; end if;
if rising_edge(ttl_out(2)) then if rising_edge(ttl_out(2)) then
pulse_cnt_ttl(2) <= pulse_cnt_ttl(2) +1; pulse_cnt_ttl(2) <= pulse_cnt_ttl(2) +1;
end if; end if;
if rising_edge(ttl_out(3)) then if rising_edge(ttl_out(3)) then
pulse_cnt_ttl(3) <= pulse_cnt_ttl(3) +1; pulse_cnt_ttl(3) <= pulse_cnt_ttl(3) +1;
end if; end if;
if rising_edge(ttl_out(4)) then if rising_edge(ttl_out(4)) then
pulse_cnt_ttl(4) <= pulse_cnt_ttl(4) +1; pulse_cnt_ttl(4) <= pulse_cnt_ttl(4) +1;
end if; end if;
if rising_edge(ttl_out(5)) then if rising_edge(ttl_out(5)) then
pulse_cnt_ttl(5) <= pulse_cnt_ttl(5) +1; pulse_cnt_ttl(5) <= pulse_cnt_ttl(5) +1;
end if; end if;
--end loop; -- end loop;
end if; end if;
end process pulse_counter_ttl; end process pulse_counter_ttl;
pulse_counter_rs485: process (rs485_out, vme_sysreset_n, rst_cnt) pulse_counter_rs485 : process (rs485_out, vme_sysreset_n, rst_cnt)
begin begin
if vme_sysreset_n = '0' or rst_cnt = '1' then if vme_sysreset_n = '0' or rst_cnt = '1' then
pulse_cnt_rs485 <= (others=> (0)); pulse_cnt_rs485 <= (others => (0));
else else
--for i in 0 to C_NR_CHANS-1 loop -- for i in 0 to C_NR_CHANS-1 loop
if rising_edge(rs485_out(0)) then if rising_edge(rs485_out(0)) then
pulse_cnt_rs485(0) <= pulse_cnt_rs485(0) +1; pulse_cnt_rs485(0) <= pulse_cnt_rs485(0) +1;
end if; end if;
if rising_edge(rs485_out(1)) then if rising_edge(rs485_out(1)) then
pulse_cnt_rs485(1) <= pulse_cnt_rs485(1) +1; pulse_cnt_rs485(1) <= pulse_cnt_rs485(1) +1;
end if; end if;
if rising_edge(rs485_out(2)) then if rising_edge(rs485_out(2)) then
pulse_cnt_rs485(2) <= pulse_cnt_rs485(2) +1; pulse_cnt_rs485(2) <= pulse_cnt_rs485(2) +1;
end if; end if;
if rising_edge(rs485_out(3)) then if rising_edge(rs485_out(3)) then
pulse_cnt_rs485(3) <= pulse_cnt_rs485(3) +1; pulse_cnt_rs485(3) <= pulse_cnt_rs485(3) +1;
end if; end if;
if rising_edge(rs485_out(4)) then if rising_edge(rs485_out(4)) then
pulse_cnt_rs485(4) <= pulse_cnt_rs485(4) +1; pulse_cnt_rs485(4) <= pulse_cnt_rs485(4) +1;
end if; end if;
if rising_edge(rs485_out(5)) then if rising_edge(rs485_out(5)) then
pulse_cnt_rs485(5) <= pulse_cnt_rs485(5) +1; pulse_cnt_rs485(5) <= pulse_cnt_rs485(5) +1;
end if; end if;
--end loop; -- end loop;
end if; end if;
end process pulse_counter_rs485; end process pulse_counter_rs485;
...@@ -403,22 +402,22 @@ begin ...@@ -403,22 +402,22 @@ begin
-- processes to provide stimulus and checks -- processes to provide stimulus and checks
--============================================================================ --============================================================================
--i2c access -- i2c access
p_stim : process p_stim : process
variable i : integer := 0; variable i : integer := 0;
variable nb_pulses_to_send_fp : integer := 17; variable nb_pulses_to_send_fp : integer := 17;
variable nb_pulses_to_send_fp_slv : std_logic_vector(31 downto 0); variable nb_pulses_to_send_fp_slv : std_logic_vector(31 downto 0);
variable nb_pulses_to_send_rp : integer := 5; variable nb_pulses_to_send_rp : integer := 5;
variable nb_pulses_to_send_rp_slv : std_logic_vector(31 downto 0); variable nb_pulses_to_send_rp_slv : std_logic_vector(31 downto 0);
variable nb_pulses_to_send_inv : integer := 5; variable nb_pulses_to_send_inv : integer := 5;
variable nb_pulses_to_send_bar : integer := 6; variable nb_pulses_to_send_bar : integer := 6;
variable glitch_filter_en : std_logic := '0'; -- glitch filter disabled variable glitch_filter_en : std_logic := '0'; -- glitch filter disabled
variable ttl_out_bar_en : std_logic := '0'; -- TTLbar disabled variable ttl_out_bar_en : std_logic := '0'; -- TTLbar disabled
variable rtm : std_logic_vector(5 downto 0) := C_NO_RTM; variable rtm : std_logic_vector(5 downto 0) := C_NO_RTM;
variable err_cnt, err : integer := 0; variable err_cnt, err : integer := 0;
variable time_intrvl, rst_timetag : integer := 0; variable time_intrvl, rst_timetag : integer := 0;
variable pulse_timetag : integer := 0; variable pulse_timetag : integer := 0;
constant K : time := 1 nS; constant c_K : time := 1 nS;
begin begin
print("*****************************************************************************"); print("*****************************************************************************");
...@@ -429,7 +428,8 @@ begin ...@@ -429,7 +428,8 @@ begin
-- Board settings -- Board settings
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
print_now("---> Configure board settings"); print_now("---> Configure board settings");
settings_config (glitch_filter_en, ttl_out_bar_en, rtm, sw_gp_n_in, sw_other_in, pcbrev, rtm_in); settings_config (glitch_filter_en, ttl_out_bar_en, rtm, sw_gp_n_in, sw_other_in,
pcbrev, rtm_in);
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
-- VME reset -- VME reset
...@@ -439,19 +439,20 @@ begin ...@@ -439,19 +439,20 @@ begin
wait until vme_sysreset_n = '1'; wait until vme_sysreset_n = '1';
print_now("VME reset completed"); print_now("VME reset completed");
wait for 6500 ns; -- for resets and inhibit_pulse to have finished wait for 6500 ns; -- for resets and inhibit_pulse to have finished
rst_timetag := now/K; rst_timetag := now/c_K;
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
-- I2C readings -- I2C readings
test_id <= "TEST 1 "; test_id <= "TEST 1 ";
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
print_now("---> Test 01: I2C reg reading"); print_now("---> Test 01: I2C reg reading");
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
-- I2C reading of the board ID register -- I2C reading of the board ID register
print_now_s("I2C reading of the register ", c_REG_MAP(0).reg_name); print_now_s("I2C reading of the register ", c_REG_MAP(0).reg_name);
read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, c_REG_MAP(0).reg_addr, c_REG_MAP(0).reg_name, i2c_master_rcvd_val, C_BOARD_ID, TRUE, err); read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, c_REG_MAP(0).reg_addr,
c_REG_MAP(0).reg_name, i2c_master_rcvd_val, C_BOARD_ID, TRUE, err);
err_cnt := err_cnt +err; err_cnt := err_cnt +err;
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
...@@ -459,14 +460,15 @@ begin ...@@ -459,14 +460,15 @@ begin
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
-- I2C writing -- I2C writing
test_id <= "TEST 2 "; test_id <= "TEST 2 ";
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
print_now("---> Test 02: I2C reg writing"); print_now("---> Test 02: I2C reg writing");
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
-- I2C writing of a big value to Front Panel Counter 1 -- I2C writing of a big value to Front Panel Counter 1
print_now_s("I2C writing to the register ", c_REG_MAP(4).reg_name); print_now_s("I2C writing to the register ", c_REG_MAP(4).reg_name);
write_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, c_REG_MAP(4).reg_addr, c_REG_MAP(4).reg_name, C_INITIAL_TST_VALUE, err); write_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, c_REG_MAP(4).reg_addr,
c_REG_MAP(4).reg_name, C_INITIAL_TST_VALUE, err);
err_cnt := err_cnt +err; err_cnt := err_cnt +err;
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
...@@ -474,15 +476,17 @@ begin ...@@ -474,15 +476,17 @@ begin
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
-- Pulses to the front TTL input -- Pulses to the front TTL input
test_id <= "TEST 3 "; test_id <= "TEST 3 ";
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
print_now("---> Test 03: Sending TTL pulses and checking the outputs"); print_now("---> Test 03: Sending TTL pulses and checking the outputs");
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
-- Sending pulses to Front Panel Channel 1 -- Sending pulses to Front Panel Channel 1
nb_pulses_to_send_fp_slv := std_logic_vector(to_unsigned(nb_pulses_to_send_fp, nb_pulses_to_send_fp_slv'length)); nb_pulses_to_send_fp_slv := std_logic_vector(to_unsigned(nb_pulses_to_send_fp,
print_now_s_i("Sending TTL pulses to TTL_N_I(0)", nb_pulses_to_send_fp); nb_pulses_to_send_fp_slv'length));
generate_pulse (ttl_n_in(0), nb_pulses_to_send_fp, "fp", rs485_fs_n_in(0), 200ns, 200ns); -- 200ns so that the counters can count correctly print_now_s_i("Sending TTL pulses to TTL_N_I(0)", nb_pulses_to_send_fp);
generate_pulse (ttl_n_in(0), nb_pulses_to_send_fp, "fp", rs485_fs_n_in(0), 200 ns, 200 ns);
-- 200ns so that the counters can count correctly
-- Checking if the number of TTL output pulses matches the sent ones -- Checking if the number of TTL output pulses matches the sent ones
print_now("Check that the pulses arrived to the TTL_O(0)"); print_now("Check that the pulses arrived to the TTL_O(0)");
...@@ -500,7 +504,7 @@ begin ...@@ -500,7 +504,7 @@ begin
else else
print_now("[ERR] TTL_O(0) is not exactly the inverted TTL_N_IN(0)"); print_now("[ERR] TTL_O(0) is not exactly the inverted TTL_N_IN(0)");
err_cnt := err_cnt + 1; err_cnt := err_cnt + 1;
end if; end if;
-- Check if TTL out and RS485 out are the same -- Check if TTL out and RS485 out are the same
print_now("Check that the pulses arrived to the RS485_O(0)"); print_now("Check that the pulses arrived to the RS485_O(0)");
...@@ -509,14 +513,14 @@ begin ...@@ -509,14 +513,14 @@ begin
else else
print_now("[ERR] RS485_O(0) does not match TTL_O(0)"); print_now("[ERR] RS485_O(0) does not match TTL_O(0)");
err_cnt := err_cnt + 1; err_cnt := err_cnt + 1;
end if; end if;
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
print_now_s_i("Errors so far: ", err_cnt); print_now_s_i("Errors so far: ", err_cnt);
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
-- Counters reading -- Counters reading
test_id <= "TEST 4 "; test_id <= "TEST 4 ";
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
print_now("---> Test 04: Reading of the pulse counters through I2C"); print_now("---> Test 04: Reading of the pulse counters through I2C");
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
...@@ -524,14 +528,17 @@ begin ...@@ -524,14 +528,17 @@ begin
-- Reading from the I2C Front Panel regs; read only two counters to speed up testbench -- Reading from the I2C Front Panel regs; read only two counters to speed up testbench
while not(i = 3) loop while not(i = 3) loop
if i = 0 then if i = 0 then
-- Front Panel Channel 1 register should roll over and read -- Front Panel Channel 1 register should roll over and read
print_now_s("I2C reading of the register ", c_REG_MAP(i+4).reg_name); print_now_s("I2C reading of the register ", c_REG_MAP(i+4).reg_name);
read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, c_REG_MAP(i+4).reg_addr, c_REG_MAP(i+4).reg_name , i2c_master_rcvd_val, std_logic_vector(unsigned(C_INITIAL_TST_VALUE)+unsigned(nb_pulses_to_send_fp_slv)), TRUE, err); read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, c_REG_MAP(i+4).reg_addr,
c_REG_MAP(i+4).reg_name, i2c_master_rcvd_val,
std_logic_vector(unsigned(C_INITIAL_TST_VALUE)+unsigned(nb_pulses_to_send_fp_slv)), TRUE, err);
err_cnt := err_cnt + err; err_cnt := err_cnt + err;
elsif i = 1 then elsif i = 1 then
-- Front Panel Channel 2 register should have not counted any pulses -- Front Panel Channel 2 register should have not counted any pulses
print_now_s("I2C reading of the register ", c_REG_MAP(i+4).reg_name); print_now_s("I2C reading of the register ", c_REG_MAP(i+4).reg_name);
read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, c_REG_MAP(i+4).reg_addr, c_REG_MAP(i+4).reg_name, i2c_master_rcvd_val, (others =>'0'), TRUE, err); read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, c_REG_MAP(i+4).reg_addr,
c_REG_MAP(i+4).reg_name, i2c_master_rcvd_val, (others => '0'), TRUE, err);
err_cnt := err_cnt + err; err_cnt := err_cnt + err;
end if; end if;
i := i + 1; i := i + 1;
...@@ -544,13 +551,15 @@ begin ...@@ -544,13 +551,15 @@ begin
while not(i = 2) loop while not(i = 2) loop
if i = 0 then if i = 0 then
-- Check Rear Panel Channel 1 counter has not counted any pulses -- Check Rear Panel Channel 1 counter has not counted any pulses
print_now_s("I2C reading of the register ", c_REG_MAP(i+10).reg_name); print_now_s("I2C reading of the register ", c_REG_MAP(i+10).reg_name);
read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, c_REG_MAP(i+10).reg_addr, c_REG_MAP(i+10).reg_name , i2c_master_rcvd_val, (others =>'0'), TRUE, err); read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, c_REG_MAP(i+10).reg_addr,
c_REG_MAP(i+10).reg_name, i2c_master_rcvd_val, (others => '0'), TRUE, err);
err_cnt := err_cnt + err; err_cnt := err_cnt + err;
elsif i = 1 then elsif i = 1 then
-- Check Rear Panel Channel 1 counter has not counted any pulses -- Check Rear Panel Channel 1 counter has not counted any pulses
print_now_s("I2C reading of the register ", c_REG_MAP(i+10).reg_name); print_now_s("I2C reading of the register ", c_REG_MAP(i+10).reg_name);
read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, c_REG_MAP(i+10).reg_addr, c_REG_MAP(i+10).reg_name, i2c_master_rcvd_val, (others =>'0'), TRUE, err); read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, c_REG_MAP(i+10).reg_addr,
c_REG_MAP(i+10).reg_name, i2c_master_rcvd_val, (others => '0'), TRUE, err);
err_cnt := err_cnt + err; err_cnt := err_cnt + err;
end if; end if;
i := i + 1; i := i + 1;
...@@ -561,7 +570,7 @@ begin ...@@ -561,7 +570,7 @@ begin
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
-- Pulses to the rear RS485 input -- Pulses to the rear RS485 input
test_id <= "TEST 5 "; test_id <= "TEST 5 ";
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
print_now("---> Test 05: Sending pulses to the RS485 and checking the outputs"); print_now("---> Test 05: Sending pulses to the RS485 and checking the outputs");
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
...@@ -570,8 +579,8 @@ begin ...@@ -570,8 +579,8 @@ begin
nb_pulses_to_send_rp := 5; nb_pulses_to_send_rp := 5;
nb_pulses_to_send_rp_slv := std_logic_vector(to_unsigned(nb_pulses_to_send_rp, nb_pulses_to_send_rp_slv'length)); nb_pulses_to_send_rp_slv := std_logic_vector(to_unsigned(nb_pulses_to_send_rp, nb_pulses_to_send_rp_slv'length));
print_now_s_i("Sending pulses to RS485_N_I(0): ", nb_pulses_to_send_rp); print_now_s_i("Sending pulses to RS485_N_I(0): ", nb_pulses_to_send_rp);
generate_pulse (rs485_n_in(0), nb_pulses_to_send_rp, "rp", rs485_fs_n_in(0), 200ns, 200ns); generate_pulse (rs485_n_in(0), nb_pulses_to_send_rp, "rp", rs485_fs_n_in(0), 200 ns, 200 ns);
pulse_timetag := (now/K); pulse_timetag := (now/c_K);
-- Checking if the number of RS485 output pulses matches the sent ones -- Checking if the number of RS485 output pulses matches the sent ones
print_now("Check that the pulses arrived to the RS485_O(0)"); print_now("Check that the pulses arrived to the RS485_O(0)");
...@@ -580,7 +589,7 @@ begin ...@@ -580,7 +589,7 @@ begin
else else
print_now_s_i("[ERR] Number of pulses measured in the RS485_O(0) : ",pulse_cnt_rs485(0)); print_now_s_i("[ERR] Number of pulses measured in the RS485_O(0) : ",pulse_cnt_rs485(0));
err_cnt := err_cnt + 1; err_cnt := err_cnt + 1;
end if; end if;
-- Check if TTL out and RS485 out are the same -- Check if TTL out and RS485 out are the same
print_now("Check that the pulses arrived to the TTL_O(0)"); print_now("Check that the pulses arrived to the TTL_O(0)");
...@@ -589,14 +598,14 @@ begin ...@@ -589,14 +598,14 @@ begin
else else
print_now("[ERR] RS485_O(0) does not match TTL_O(0)"); print_now("[ERR] RS485_O(0) does not match TTL_O(0)");
err_cnt := err_cnt + 1; err_cnt := err_cnt + 1;
end if; end if;
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
print_now_s_i("Errors so far: ", err_cnt); print_now_s_i("Errors so far: ", err_cnt);
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
-- Counters reading -- Counters reading
test_id <= "TEST 6 "; test_id <= "TEST 6 ";
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
print_now("---> Test 06: Reading of the pulse counters through I2C"); print_now("---> Test 06: Reading of the pulse counters through I2C");
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
...@@ -605,12 +614,14 @@ begin ...@@ -605,12 +614,14 @@ begin
i := 0; i := 0;
while not(i = 2) loop while not(i = 2) loop
if i = 0 then if i = 0 then
-- Check Rear Panel Channel 1 counter has correctly counted the pulses -- Check Rear Panel Channel 1 counter has correctly counted the pulses
read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, c_REG_MAP(i+10).reg_addr, c_REG_MAP(i+10).reg_name , i2c_master_rcvd_val, nb_pulses_to_send_rp_slv, TRUE, err); read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, c_REG_MAP(i+10).reg_addr,
c_REG_MAP(i+10).reg_name, i2c_master_rcvd_val, nb_pulses_to_send_rp_slv, TRUE, err);
err_cnt := err_cnt + err; err_cnt := err_cnt + err;
elsif i = 1 then elsif i = 1 then
-- Check Rear Panel Channel 2 has not counted any pulses -- Check Rear Panel Channel 2 has not counted any pulses
read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, c_REG_MAP(i+10).reg_addr, c_REG_MAP(i+10).reg_name, i2c_master_rcvd_val, (others =>'0'), TRUE, err); read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, c_REG_MAP(i+10).reg_addr,
c_REG_MAP(i+10).reg_name, i2c_master_rcvd_val, (others => '0'), TRUE, err);
err_cnt := err_cnt + err; err_cnt := err_cnt + err;
end if; end if;
i := i + 1; i := i + 1;
...@@ -621,22 +632,29 @@ begin ...@@ -621,22 +632,29 @@ begin
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
-- Timetag reading -- Timetag reading
test_id <= "TEST 7 "; test_id <= "TEST 7 ";
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
print_now("---> Test 07: Reading of the timetag register through I2C"); print_now("---> Test 07: Reading of the timetag register through I2C");
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, CH1LTSCYR, "CH1LTSCY", i2c_master_rcvd_val1, (others =>'0'), FALSE, err); read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, CH1LTSCYR, "CH1LTSCY",
i2c_master_rcvd_val1, (others => '0'), FALSE, err);
time_intrvl := (pulse_timetag - rst_timetag)/8; time_intrvl := (pulse_timetag - rst_timetag)/8;
print_now_s_i("Estimated timetag cycles: ",time_intrvl); print_now_s_i("Estimated timetag cycles: ",time_intrvl);
if to_integer(unsigned(i2c_master_rcvd_val1(27 downto 0))) > time_intrvl+1000 or to_integer(unsigned(i2c_master_rcvd_val1(27 downto 0))) < time_intrvl-1000 then if to_integer(unsigned(i2c_master_rcvd_val1(27 downto 0))) > time_intrvl+1000
print_now_s_std_s_std("[ERR] Registered cycles: ", i2c_master_rcvd_val1, " is far from the estimated: ", std_logic_vector(to_unsigned(time_intrvl,28))); or to_integer(unsigned(i2c_master_rcvd_val1(27 downto 0))) < time_intrvl-1000
then
print_now_s_std_s_std("[ERR] Registered cycles: ", i2c_master_rcvd_val1,
" is far from the estimated: ", std_logic_vector(to_unsigned(time_intrvl,28)));
err_cnt := err_cnt + 1; err_cnt := err_cnt + 1;
else else
print_now_s_std_s_std("[OK] Registered cycles: ", i2c_master_rcvd_val1(27 downto 0), " is close to the estimated: ", std_logic_vector(to_unsigned(time_intrvl,28))); print_now_s_std_s_std("[OK] Registered cycles: ", i2c_master_rcvd_val1(27 downto 0),
end if; " is close to the estimated: ", std_logic_vector(to_unsigned(time_intrvl,28)));
read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, CH1LTSTLR, "CH1LTSTL", i2c_master_rcvd_val, (others =>'0'), TRUE, err); end if;
read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, CH1LTSTLR, "CH1LTSTL",
i2c_master_rcvd_val, (others => '0'), TRUE, err);
err_cnt := err_cnt + err; err_cnt := err_cnt + err;
read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, CH1LTSCYR, "CH1LTSCY", i2c_master_rcvd_val, i2c_master_rcvd_val1, TRUE, err); read_i2c (i2c_m_in, i2c_m_out, C_I2C_MASTER_SLV_ADDR, CH1LTSCYR, "CH1LTSCY",
i2c_master_rcvd_val, i2c_master_rcvd_val1, TRUE, err);
err_cnt := err_cnt + err; err_cnt := err_cnt + err;
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
...@@ -644,14 +662,14 @@ begin ...@@ -644,14 +662,14 @@ begin
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
-- INV channels -- INV channels
test_id <= "TEST 8 "; test_id <= "TEST 8 ";
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
print_now("---> Test 08: INV channel check"); print_now("---> Test 08: INV channel check");
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
-- Note INV channels just take INV_N_I and output the same signal to INV_O; -- Note INV channels just take INV_N_I and output the same signal to INV_O;
-- inversion happens through inv buffers; there is no associated counter, timetag, rear channel -- inversion happens through inv buffers; there is no associated counter, timetag, rear channel
print_now_s_i("Sending pulses to INV_N_I(3): ", nb_pulses_to_send_inv); print_now_s_i("Sending pulses to INV_N_I(3): ", nb_pulses_to_send_inv);
generate_pulse (inv_n_in(3), nb_pulses_to_send_inv, "fp", rs485_fs_n_in(3), 40ns, 20ns); generate_pulse (inv_n_in(3), nb_pulses_to_send_inv, "fp", rs485_fs_n_in(3), 40 ns, 20 ns);
print_now("Check INV_O(3) output"); print_now("Check INV_O(3) output");
if inv_err(3) = 0 then if inv_err(3) = 0 then
...@@ -659,14 +677,14 @@ begin ...@@ -659,14 +677,14 @@ begin
else else
print_now("[ERR] INV_O(3) does not match INV_N_I(3)"); print_now("[ERR] INV_O(3) does not match INV_N_I(3)");
err_cnt := err_cnt + 1; err_cnt := err_cnt + 1;
end if; end if;
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
print_now_s_i("Errors so far: ", err_cnt); print_now_s_i("Errors so far: ", err_cnt);
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
-- Glitch filter test -- Glitch filter test
test_id <= "TEST 9 "; test_id <= "TEST 9 ";
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
print_now("---> Test 09: Test Glitch filter"); print_now("---> Test 09: Test Glitch filter");
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
...@@ -678,7 +696,7 @@ begin ...@@ -678,7 +696,7 @@ begin
settings_config (glitch_filter_en, ttl_out_bar_en, rtm, sw_gp_n_in, sw_other_in, pcbrev, rtm_in); settings_config (glitch_filter_en, ttl_out_bar_en, rtm, sw_gp_n_in, sw_other_in, pcbrev, rtm_in);
wait for 2 us; -- ML: does not work without this wait, no idea way? wait for 2 us; -- ML: does not work without this wait, no idea way?
print_now_s_i("Sending pulses 50ns-long each to TTL_N_I(3): ", nb_pulses_to_send_fp); print_now_s_i("Sending pulses 50ns-long each to TTL_N_I(3): ", nb_pulses_to_send_fp);
generate_pulse (ttl_n_in(3), nb_pulses_to_send_fp, "fp", rs485_fs_n_in(3), 50ns, 50ns); generate_pulse (ttl_n_in(3), nb_pulses_to_send_fp, "fp", rs485_fs_n_in(3), 50 ns, 50 ns);
-- Checking if any pulse was passed to the output -- Checking if any pulse was passed to the output
print_now("Check that the glitches were filtered and there is no pulse in the TTL_O(3) output"); print_now("Check that the glitches were filtered and there is no pulse in the TTL_O(3) output");
...@@ -687,14 +705,14 @@ begin ...@@ -687,14 +705,14 @@ begin
else else
print_now_s_i("[ERR] Number of pulses measured at TTL_O(3): ",pulse_cnt_ttl(3)); print_now_s_i("[ERR] Number of pulses measured at TTL_O(3): ",pulse_cnt_ttl(3));
err_cnt := err_cnt + 1; err_cnt := err_cnt + 1;
end if; end if;
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
print_now_s_i("Errors so far: ", err_cnt); print_now_s_i("Errors so far: ", err_cnt);
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
-- TTL bar test -- TTL bar test
test_id <= "TEST 10"; test_id <= "TEST 10";
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
print_now("---> Test 10: Test TTL BAR"); print_now("---> Test 10: Test TTL BAR");
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
...@@ -709,7 +727,7 @@ begin ...@@ -709,7 +727,7 @@ begin
rst_copm <= '0'; rst_copm <= '0';
print_now_s_i("Sending pulses to TTL_N_IN(5): ", nb_pulses_to_send_bar); print_now_s_i("Sending pulses to TTL_N_IN(5): ", nb_pulses_to_send_bar);
generate_pulse (ttl_n_in(5), nb_pulses_to_send_bar, "fp", rs485_fs_n_in(5), 200ns, 200ns); generate_pulse (ttl_n_in(5), nb_pulses_to_send_bar, "fp", rs485_fs_n_in(5), 200 ns, 200 ns);
-- Check if TTL_N_IN is the opposite of TTL_O; Note: TTLbar does not invert the output! -- Check if TTL_N_IN is the opposite of TTL_O; Note: TTLbar does not invert the output!
print_now("Check that TTL_O(5) matches TTL_N_IN(5)"); print_now("Check that TTL_O(5) matches TTL_N_IN(5)");
...@@ -718,7 +736,7 @@ begin ...@@ -718,7 +736,7 @@ begin
else else
print_now("[ERR] TTL_O(5) does not match TTL_N_IN(5)"); print_now("[ERR] TTL_O(5) does not match TTL_N_IN(5)");
err_cnt := err_cnt + 1; err_cnt := err_cnt + 1;
end if; end if;
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
print_now_s_i("Errors so far: ", err_cnt); print_now_s_i("Errors so far: ", err_cnt);
...@@ -726,7 +744,7 @@ begin ...@@ -726,7 +744,7 @@ begin
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
-- Glitch filter enabled with TTL bar test -- Glitch filter enabled with TTL bar test
test_id <= "TEST 11"; test_id <= "TEST 11";
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
print_now("---> Test 11: Test glitch filter enabled with TTL BAR"); print_now("---> Test 11: Test glitch filter enabled with TTL BAR");
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
...@@ -745,7 +763,7 @@ begin ...@@ -745,7 +763,7 @@ begin
-- create a 50ns glitch during a 450ns pulse: ------|____|-|____|------ -- create a 50ns glitch during a 450ns pulse: ------|____|-|____|------
print_now("Sending a 50ns glitch during a 450ns pulse to TTL_N_IN(5)"); print_now("Sending a 50ns glitch during a 450ns pulse to TTL_N_IN(5)");
generate_pulse (ttl_n_in(5), nb_pulses_to_send_bar, "fp", rs485_fs_n_in(5), 200ns, 50ns); generate_pulse (ttl_n_in(5), nb_pulses_to_send_bar, "fp", rs485_fs_n_in(5), 200 ns, 50 ns);
-- Checking that a single pulse passed to the output -- Checking that a single pulse passed to the output
print_now("Check that the 50ns glitch within the 450ns pulse was filtered out and a single 450ns pulse arrived to the output"); print_now("Check that the 50ns glitch within the 450ns pulse was filtered out and a single 450ns pulse arrived to the output");
...@@ -754,7 +772,7 @@ begin ...@@ -754,7 +772,7 @@ begin
else else
print_now_s_i("[ERR] Number of pulses measured at TTL_O(5): ",pulse_cnt_ttl(5)); print_now_s_i("[ERR] Number of pulses measured at TTL_O(5): ",pulse_cnt_ttl(5));
err_cnt := err_cnt + 1; err_cnt := err_cnt + 1;
end if; end if;
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
print_now_s_i("Errors so far: ", err_cnt); print_now_s_i("Errors so far: ", err_cnt);
...@@ -765,7 +783,7 @@ begin ...@@ -765,7 +783,7 @@ begin
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
-- Glitch filter disabled with TTL bar testt -- Glitch filter disabled with TTL bar testt
test_id <= "TEST 12"; test_id <= "TEST 12";
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
print_now("---> Test 12: Test glitch filter disable with TTL BAR"); print_now("---> Test 12: Test glitch filter disable with TTL BAR");
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
...@@ -784,7 +802,7 @@ begin ...@@ -784,7 +802,7 @@ begin
-- create a 50ns glitch during a 450ns pulse: ------|____|-|____|------ -- create a 50ns glitch during a 450ns pulse: ------|____|-|____|------
print_now("Sending a 50ns glitch during a 450ns pulse to TTL_N_IN(5)"); print_now("Sending a 50ns glitch during a 450ns pulse to TTL_N_IN(5)");
generate_pulse (ttl_n_in(5), nb_pulses_to_send_bar, "fp", rs485_fs_n_in(5), 200ns, 50ns); generate_pulse (ttl_n_in(5), nb_pulses_to_send_bar, "fp", rs485_fs_n_in(5), 200 ns, 50 ns);
-- Checking that the glitch passed to the output -- Checking that the glitch passed to the output
print_now("Check that the 50ns glitch within the 450ns pulse passed to the output"); print_now("Check that the 50ns glitch within the 450ns pulse passed to the output");
...@@ -793,7 +811,7 @@ begin ...@@ -793,7 +811,7 @@ begin
else else
print_now_s_i("[ERR] Number of pulses measured at TTL_O(5): ",pulse_cnt_ttl(5)); print_now_s_i("[ERR] Number of pulses measured at TTL_O(5): ",pulse_cnt_ttl(5));
err_cnt := err_cnt + 1; err_cnt := err_cnt + 1;
end if; end if;
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
print_now_s_i("Errors so far: ", err_cnt); print_now_s_i("Errors so far: ", err_cnt);
...@@ -801,7 +819,7 @@ begin ...@@ -801,7 +819,7 @@ begin
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
-- DB9 RTM test from TTL_N_IN -> RS485_O -- DB9 RTM test from TTL_N_IN -> RS485_O
test_id <= "TEST 13"; test_id <= "TEST 13";
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
print_now("---> Test 13: Test RS485 outputs with DB9 RTM"); print_now("---> Test 13: Test RS485 outputs with DB9 RTM");
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
...@@ -821,29 +839,29 @@ begin ...@@ -821,29 +839,29 @@ begin
-- generate pulses -- generate pulses
print_now_s_i("Sending pulses to TTL_N_IN(0): ", nb_pulses_to_send_fp); print_now_s_i("Sending pulses to TTL_N_IN(0): ", nb_pulses_to_send_fp);
generate_pulse (ttl_n_in(0), nb_pulses_to_send_fp, "fp", rs485_fs_n_in(0), 200ns, 200ns); generate_pulse (ttl_n_in(0), nb_pulses_to_send_fp, "fp", rs485_fs_n_in(0), 200 ns, 200 ns);
nb_pulses_to_send_fp := 4; nb_pulses_to_send_fp := 4;
print_now_s_i("Sending pulses to TTL_N_IN(1): ", nb_pulses_to_send_fp); print_now_s_i("Sending pulses to TTL_N_IN(1): ", nb_pulses_to_send_fp);
generate_pulse (ttl_n_in(1), nb_pulses_to_send_fp, "fp", rs485_fs_n_in(1), 200ns, 200ns); generate_pulse (ttl_n_in(1), nb_pulses_to_send_fp, "fp", rs485_fs_n_in(1), 200 ns, 200 ns);
-- Check that the TTL_N_IN(0) pulses arrived to both Rear Panel Channel 1 and Rear Panel Channel 2 -- Check that the TTL_N_IN(0) pulses arrived to both Rear Panel Channel 1 and Rear Panel Channel 2
print_now("Check that the TTL_N_IN(0) pulses arrived to the RS485_O(0) and RS485_O(1)"); print_now("Check that the TTL_N_IN(0) pulses arrived to the RS485_O(0) and RS485_O(1)");
if rtm_db9_ch0_err = 0 then if rtm_db9_ch0_err = 0 then
print_now("[OK] RS485_O(0) and RS485_O(1) match TTL_O(0)"); print_now("[OK] RS485_O(0) and RS485_O(1) match TTL_O(0)");
else else
print_now("[ERR] RS485_O(0) or RS485_O(1) do not match TTL_O(0)"); print_now("[ERR] RS485_O(0) or RS485_O(1) do not match TTL_O(0)");
err_cnt := err_cnt + 1; err_cnt := err_cnt + 1;
end if; end if;
-- Check that the TTL_N_IN(1) pulses arrived to both Rear Panel Channel 1 and Rear Panel Channel 2 have -- Check that the TTL_N_IN(1) pulses arrived to both Rear Panel Channel 1 and Rear Panel Channel 2 have
print_now("Check that the TTL_N_IN(1) pulses arrived to the RS485_O(4) and RS485_O(5)"); print_now("Check that the TTL_N_IN(1) pulses arrived to the RS485_O(4) and RS485_O(5)");
if rtm_db9_ch1_err = 0 then if rtm_db9_ch1_err = 0 then
print_now("[OK] RS485_O(4) and RS485_O(5) match TTL_O(1)"); print_now("[OK] RS485_O(4) and RS485_O(5) match TTL_O(1)");
else else
print_now("[ERR] RS485_O(4) or RS485_O(5) do not match TTL_O(1)"); print_now("[ERR] RS485_O(4) or RS485_O(5) do not match TTL_O(1)");
err_cnt := err_cnt + 1; err_cnt := err_cnt + 1;
end if; end if;
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
print_now_s_i("Errors so far: ", err_cnt); print_now_s_i("Errors so far: ", err_cnt);
...@@ -854,7 +872,7 @@ begin ...@@ -854,7 +872,7 @@ begin
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
-- DB9 RTM test from RS485_N_I -> TTL_O -- DB9 RTM test from RS485_N_I -> TTL_O
test_id <= "TEST 14"; test_id <= "TEST 14";
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
print_now("---> Test 14: Test TTL outputs with DB9 RTM"); print_now("---> Test 14: Test TTL outputs with DB9 RTM");
print_now("----------------------------------------------------------------"); print_now("----------------------------------------------------------------");
...@@ -874,7 +892,7 @@ begin ...@@ -874,7 +892,7 @@ begin
-- generate pulses -- generate pulses
print_now_s_i("Sending pulses to RS485_N_I(4): ", nb_pulses_to_send_rp); print_now_s_i("Sending pulses to RS485_N_I(4): ", nb_pulses_to_send_rp);
generate_pulse (rs485_n_in(4), nb_pulses_to_send_rp, "rp", rs485_fs_n_in(4), 200ns, 200ns); generate_pulse (rs485_n_in(4), nb_pulses_to_send_rp, "rp", rs485_fs_n_in(4), 200 ns, 200 ns);
print_now("Check that the pulses arrived to the RS485_O(4)"); print_now("Check that the pulses arrived to the RS485_O(4)");
if pulse_cnt_rs485(4) = nb_pulses_to_send_rp then if pulse_cnt_rs485(4) = nb_pulses_to_send_rp then
...@@ -882,7 +900,7 @@ begin ...@@ -882,7 +900,7 @@ begin
else else
print_now_s_i("[ERR] Number of pulses measured in the RS485_O(4) : ",pulse_cnt_rs485(4)); print_now_s_i("[ERR] Number of pulses measured in the RS485_O(4) : ",pulse_cnt_rs485(4));
err_cnt := err_cnt + 1; err_cnt := err_cnt + 1;
end if; end if;
-- Check that the RS485_N_I(4) pulses arrived to RS485_OUT(4), RS485_OUT(5) and TTL_O(1) -- Check that the RS485_N_I(4) pulses arrived to RS485_OUT(4), RS485_OUT(5) and TTL_O(1)
...@@ -892,7 +910,7 @@ begin ...@@ -892,7 +910,7 @@ begin
else else
print_now("[ERR] TTL_O(1) or RS485_OUT(5) does not match RS485_OUT(4)"); print_now("[ERR] TTL_O(1) or RS485_OUT(5) does not match RS485_OUT(4)");
err_cnt := err_cnt + 1; err_cnt := err_cnt + 1;
end if; end if;
--------------------------------------------------------------------------- ---------------------------------------------------------------------------
...@@ -910,9 +928,7 @@ begin ...@@ -910,9 +928,7 @@ begin
end process p_stim; end process p_stim;
end architecture behav; end architecture arch;
--============================================================================== --==============================================================================
-- architecture end -- architecture end
--============================================================================== --==============================================================================
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