Commit 0e98042e authored by Tomasz Wlostowski's avatar Tomasz Wlostowski

hdl/include/random_pulse_gen.svh: burst generation

parent 043329c6
......@@ -8,21 +8,33 @@ module random_pulse_gen
parameter real g_pulse_width = 30ns;
parameter real g_min_spacing = 300ns;
parameter real g_max_spacing = 600ns;
parameter int g_repetition = 1;
parameter real g_burst_spacing = 50ns;
int seed = 1;
initial forever
if(enable_i)
begin
int i;
real delta;
seed = $urandom(seed);
delta = $dist_uniform(seed, g_min_spacing - g_pulse_width, g_max_spacing - g_pulse_width);
pulse_o = 1;
#(g_pulse_width);
pulse_o = 0;
#(delta);
for(i=0;i<g_repetition;i++)
begin
pulse_o = 1;
#(g_pulse_width);
pulse_o = 0;
if(g_repetition > 1)
#(g_burst_spacing);
end
#(delta);
end else begin
pulse_o <= 1'b0;
@(posedge enable_i);
......
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