Subversion Repositories i2c_to_wb

// --------------------------------------------------------------------
//
// --------------------------------------------------------------------
 
 
`timescale 1ns/10ps
 
 
module 
  glitch_generator
  #(
    parameter ENABLE = 0,
    parameter MAX_FREQ = 10000,
    parameter MAX_WIDTH = 120
  ) 
  (
    output out
  );
 
 
  // --------------------------------------------------------------------
  //  wires & regs
  reg glitch_generator_en;
  reg glitch;
  reg glitch_en;
 
 
  // --------------------------------------------------------------------
  //  init 
  initial
    begin
      glitch_generator_en <= ENABLE;
      glitch              <= 1'b0;
      glitch_en           <= 1'b0;
 
      forever
        begin: glitch_loop
 
          #({$random} % MAX_FREQ);
 
          if( ~glitch_generator_en )
            disable glitch_loop;
 
          glitch_en = 1'b1;
          #({$random} % MAX_WIDTH);
 
          glitch = ~glitch;
          #({$random} % MAX_WIDTH);
 
          glitch_en = 1'b0;
 
        end
    end      
 
 
  // --------------------------------------------------------------------
  //  enable_glitch_generator
  task enable_glitch_generator; 
    begin
 
    glitch_generator_en <= 1'b1;
 
    end    
  endtask
 
 
  // --------------------------------------------------------------------
  //  disable_glitch_generator
  task disable_glitch_generator; 
    begin
 
    glitch_generator_en <= 1'b0;
 
    end    
  endtask
 
 
  // --------------------------------------------------------------------
  //  outputs   
 
  assign (supply1, supply0) out = glitch_en ? glitch : 1'bz;
 
endmodule