Subversion Repositories axi_slave

<##//////////////////////////////////////////////////////////////////

////                                                             ////

////  Author: Eyal Hochberg                                      ////

////          eyal@provartec.com                                 ////

////                                                             ////

////  Downloaded from: http://www.opencores.org                  ////

/////////////////////////////////////////////////////////////////////

////                                                             ////

//// Copyright (C) 2010 Provartec LTD                            ////

//// www.provartec.com                                           ////

//// info@provartec.com                                          ////

////                                                             ////

//// This source file may be used and distributed without        ////

//// restriction provided that this copyright statement is not   ////

//// removed from the file and that any derivative work contains ////

//// the original copyright notice and the associated disclaimer.////

////                                                             ////

//// This source file is free software; you can redistribute it  ////

//// and/or modify it under the terms of the GNU Lesser General  ////

//// Public License as published by the Free Software Foundation.////

////                                                             ////

//// This source 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 Lesser General Public License for more////

//// details. http://www.gnu.org/licenses/lgpl.html              ////

////                                                             ////

//////////////////////////////////////////////////////////////////##>

OUTFILE PREFIX_busy.v

INCLUDE def_axi_slave.txt

module PREFIX_busy(PORTS);

CREATE prgen_rand.v DEFCMD(DEFINE NOT_IN_LIST)

`include "prgen_rand.v"

   input                      clk;

   input                      reset;

   output                     ARBUSY;

   output                     RBUSY;

   output                     AWBUSY;

   output                     WBUSY;

   output                     BBUSY;

   reg                        stall_enable    = 1;

   integer                    burst_chance    = 1;

   integer                    burst_len       = 10;

   integer                    burst_val       = 90;

   integer                    ar_stall_chance = 10;

   integer                    r_stall_chance  = 10;

   integer                    aw_stall_chance = 10;

   integer                    w_stall_chance  = 10;

   integer                    b_stall_chance  = 10;

   integer                    burst_type;

   reg                        burst_stall;

   integer                    ar_stall_chance_valid;

   integer                    r_stall_chance_valid;

   integer                    aw_stall_chance_valid;

   integer                    w_stall_chance_valid;

   integer                    b_stall_chance_valid;

   reg                        ARBUSY_pre = 0;

   reg                        RBUSY_pre = 0;

   reg                        AWBUSY_pre = 0;

   reg                        WBUSY_pre = 0;

   reg                        BBUSY_pre = 0;

   reg                        ARBUSY;

   reg                        RBUSY;

   reg                        AWBUSY;

   reg                        WBUSY;

   reg                        BBUSY;

   task set_stall;

      reg stall;

      begin

         ar_stall_chance_valid = ar_stall_chance;

         r_stall_chance_valid  = r_stall_chance;

         aw_stall_chance_valid = aw_stall_chance;

         w_stall_chance_valid  = w_stall_chance;

         b_stall_chance_valid  = b_stall_chance;

      end

   endtask

   initial

     begin

        #FFD;

        set_stall;

        if (burst_chance > 0)

          forever

            begin

               burst_stall = rand_chance(burst_chance);

               if (burst_stall)

                 begin

                    #FFD;

                    burst_type = rand(1, 5);

                    case (burst_type)

                      1 : ar_stall_chance_valid = burst_val;

                      2 : r_stall_chance_valid  = burst_val;

                      3 : aw_stall_chance_valid = burst_val;

                      4 : w_stall_chance_valid  = burst_val;

                      5 : b_stall_chance_valid  = burst_val;

                    endcase

                    repeat (burst_len) @(posedge clk);

                    set_stall;

                 end

               else

                 begin

                    @(posedge clk);

                 end

            end

     end

   always @(posedge clk)

     begin

        #FFD;

        ARBUSY_pre = rand_chance(ar_stall_chance_valid);

        RBUSY_pre  = rand_chance(r_stall_chance_valid);

        AWBUSY_pre = rand_chance(aw_stall_chance_valid);

        WBUSY_pre  = rand_chance(w_stall_chance_valid);

        BBUSY_pre  = rand_chance(b_stall_chance_valid);

     end

   always @(posedge clk or posedge reset)

     if (reset)

       begin

          ARBUSY <= #FFD 1'b0;

          RBUSY  <= #FFD 1'b0;

          AWBUSY <= #FFD 1'b0;

          WBUSY  <= #FFD 1'b0;

          BBUSY  <= #FFD 1'b0;

       end

     else if (stall_enable)

       begin

          ARBUSY <= #FFD ARBUSY_pre;

          RBUSY  <= #FFD RBUSY_pre;

          AWBUSY <= #FFD AWBUSY_pre;

          WBUSY  <= #FFD WBUSY_pre;

          BBUSY  <= #FFD BBUSY_pre;

       end

     else

       begin

          ARBUSY <= #FFD 1'b0;

          RBUSY  <= #FFD 1'b0;

          AWBUSY <= #FFD 1'b0;

          WBUSY  <= #FFD 1'b0;

          BBUSY  <= #FFD 1'b0;

       end

endmodule