URL https://opencores.org/ocsvn/ethmac/ethmac/trunk
Subversion Repositories ethmac

[/] [ethmac/] [tags/] [rel_11/] [bench/] [verilog/] [tb_ethernet.v] - Blame information for rev 177

Go to most recent revision | Details | Compare with Previous | View Log

//////////////////////////////////////////////////////////////////////
////                                                              ////
////  tb_ethernet.v                                               ////
////                                                              ////
////  This file is part of the Ethernet IP core project           ////
////  http://www.opencores.org/projects/ethmac/                   ////
////                                                              ////
////  Author(s):                                                  ////
////      - Tadej Markovic, tadej@opencores.org                   ////
////      - Igor Mohor,     igormM@opencores.org                  ////
////                                                              ////
////  All additional information is available in the Readme.txt   ////
////  file.                                                       ////
////                                                              ////
//////////////////////////////////////////////////////////////////////
////                                                              ////
//// Copyright (C) 2001, 2002 Authors                             ////
////                                                              ////
//// 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; ////
//// either version 2.1 of the License, or (at your option) any   ////
//// later version.                                               ////
////                                                              ////
//// 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.                                                     ////
////                                                              ////
//// You should have received a copy of the GNU Lesser General    ////
//// Public License along with this source; if not, download it   ////
//// from http://www.opencores.org/lgpl.shtml                     ////
////                                                              ////
//////////////////////////////////////////////////////////////////////
//
// CVS Revision History
//
// $Log: not supported by cvs2svn $
// Revision 1.7  2002/09/13 12:29:14  mohor
// Headers changed.
//
// Revision 1.6  2002/09/13 11:57:20  mohor
// New testbench. Thanks to Tadej M - "The Spammer".
//
// Revision 1.2  2002/07/19 14:02:47  mohor
// Clock mrx_clk set to 2.5 MHz.
//
// Revision 1.1  2002/07/19 13:57:53  mohor
// Testing environment also includes traffic cop, memory interface and host
// interface.
//
//
//
//
//
 
 
`define TIME $display("  Time: %0t", $time)
 
`include "eth_phy_defines.v"
`include "wb_model_defines.v"
`include "tb_eth_defines.v"
`include "eth_defines.v"
`include "timescale.v"
 
module tb_ethernet();
 
 
reg           wb_clk;
reg           wb_rst;
wire          wb_int;
 
wire          mtx_clk;  // This goes to PHY
wire          mrx_clk;  // This goes to PHY
 
wire   [3:0]  MTxD;
wire          MTxEn;
wire          MTxErr;
 
wire   [3:0]  MRxD;     // This goes to PHY
wire          MRxDV;    // This goes to PHY
wire          MRxErr;   // This goes to PHY
wire          MColl;    // This goes to PHY
wire          MCrs;     // This goes to PHY
 
wire          Mdi_I;
wire          Mdo_O;
wire          Mdo_OE;
tri           Mdio_IO;
wire          Mdc_O;
 
 
parameter Tp = 1;
 
 
// Ethernet Slave Interface signals
wire [31:0] eth_sl_wb_adr;
wire [31:0] eth_sl_wb_adr_i, eth_sl_wb_dat_o, eth_sl_wb_dat_i;
wire  [3:0] eth_sl_wb_sel_i;
wire        eth_sl_wb_we_i, eth_sl_wb_cyc_i, eth_sl_wb_stb_i, eth_sl_wb_ack_o, eth_sl_wb_err_o;
 
// Ethernet Master Interface signals
wire [31:0] eth_ma_wb_adr_o, eth_ma_wb_dat_i, eth_ma_wb_dat_o;
wire  [3:0] eth_ma_wb_sel_o;
wire        eth_ma_wb_we_o, eth_ma_wb_cyc_o, eth_ma_wb_stb_o, eth_ma_wb_ack_i, eth_ma_wb_err_i;
 
 
 
 
// Connecting Ethernet top module
eth_top eth_top
(
  // WISHBONE common
  .wb_clk_i(wb_clk),              .wb_rst_i(wb_rst),
 
  // WISHBONE slave
  .wb_adr_i(eth_sl_wb_adr_i[11:2]), .wb_sel_i(eth_sl_wb_sel_i),   .wb_we_i(eth_sl_wb_we_i),
  .wb_cyc_i(eth_sl_wb_cyc_i),       .wb_stb_i(eth_sl_wb_stb_i),   .wb_ack_o(eth_sl_wb_ack_o),
  .wb_err_o(eth_sl_wb_err_o),       .wb_dat_i(eth_sl_wb_dat_i),   .wb_dat_o(eth_sl_wb_dat_o),
 
  // WISHBONE master
  .m_wb_adr_o(eth_ma_wb_adr_o),     .m_wb_sel_o(eth_ma_wb_sel_o), .m_wb_we_o(eth_ma_wb_we_o),
  .m_wb_dat_i(eth_ma_wb_dat_i),     .m_wb_dat_o(eth_ma_wb_dat_o), .m_wb_cyc_o(eth_ma_wb_cyc_o),
  .m_wb_stb_o(eth_ma_wb_stb_o),     .m_wb_ack_i(eth_ma_wb_ack_i), .m_wb_err_i(eth_ma_wb_err_i),
 
  //TX
  .mtx_clk_pad_i(mtx_clk), .mtxd_pad_o(MTxD), .mtxen_pad_o(MTxEn), .mtxerr_pad_o(MTxErr),
 
  //RX
  .mrx_clk_pad_i(mrx_clk), .mrxd_pad_i(MRxD), .mrxdv_pad_i(MRxDV), .mrxerr_pad_i(MRxErr),
  .mcoll_pad_i(MColl),    .mcrs_pad_i(MCrs),
 
  // MIIM
  .mdc_pad_o(Mdc_O), .md_pad_i(Mdi_I), .md_pad_o(Mdo_O), .md_padoe_o(Mdo_OE),
 
  .int_o(wb_int)
);
 
 
 
// Connecting Ethernet PHY Module
assign Mdio_IO = Mdo_OE ? Mdo_O : 1'bz ;
assign Mdi_I   = Mdio_IO;
integer phy_log_file_desc;
 
eth_phy eth_phy
(
  // WISHBONE reset
  .m_rst_n_i(!wb_rst),
 
  // MAC TX
  .mtx_clk_o(mtx_clk),    .mtxd_i(MTxD),    .mtxen_i(MTxEn),    .mtxerr_i(MTxErr),
 
  // MAC RX
  .mrx_clk_o(mrx_clk),    .mrxd_o(MRxD),    .mrxdv_o(MRxDV),    .mrxerr_o(MRxErr),
  .mcoll_o(MColl),        .mcrs_o(MCrs),
 
  // MIIM
  .mdc_i(Mdc_O),          .md_io(Mdio_IO),
 
  // SYSTEM
  .phy_log(phy_log_file_desc)
);
 
 
 
// Connecting WB Master as Host Interface
integer host_log_file_desc;
 
WB_MASTER_BEHAVIORAL wb_master
(
    .CLK_I(wb_clk),
    .RST_I(wb_rst),
    .TAG_I({`WB_TAG_WIDTH{1'b0}}),
    .TAG_O(),
    .ACK_I(eth_sl_wb_ack_o),
    .ADR_O(eth_sl_wb_adr), // only eth_sl_wb_adr_i[11:2] used
    .CYC_O(eth_sl_wb_cyc_i),
    .DAT_I(eth_sl_wb_dat_o),
    .DAT_O(eth_sl_wb_dat_i),
    .ERR_I(eth_sl_wb_err_o),
    .RTY_I(1'b0),  // inactive (1'b0)
    .SEL_O(eth_sl_wb_sel_i),
    .STB_O(eth_sl_wb_stb_i),
    .WE_O (eth_sl_wb_we_i),
    .CAB_O()       // NOT USED for now!
);
 
assign eth_sl_wb_adr_i = {20'h0, eth_sl_wb_adr[11:2], 2'h0};
 
 
 
// Connecting WB Slave as Memory Interface Module
integer memory_log_file_desc;
 
WB_SLAVE_BEHAVIORAL wb_slave
(
    .CLK_I(wb_clk),
    .RST_I(wb_rst),
    .ACK_O(eth_ma_wb_ack_i),
    .ADR_I(eth_ma_wb_adr_o),
    .CYC_I(eth_ma_wb_cyc_o),
    .DAT_O(eth_ma_wb_dat_i),
    .DAT_I(eth_ma_wb_dat_o),
    .ERR_O(eth_ma_wb_err_i),
    .RTY_O(),      // NOT USED for now!
    .SEL_I(eth_ma_wb_sel_o),
    .STB_I(eth_ma_wb_stb_o),
    .WE_I (eth_ma_wb_we_o),
    .CAB_I(1'b0)   // inactive (1'b0)
);
 
 
 
// Connecting WISHBONE Bus Monitors to ethernet master and slave interfaces
integer wb_s_mon_log_file_desc ;
integer wb_m_mon_log_file_desc ;
 
WB_BUS_MON wb_eth_slave_bus_mon
(
  // WISHBONE common
  .CLK_I(wb_clk),
  .RST_I(wb_rst),
 
  // WISHBONE slave
  .ACK_I(eth_sl_wb_ack_o),
  .ADDR_O({20'h0, eth_sl_wb_adr_i[11:2], 2'b0}),
  .CYC_O(eth_sl_wb_cyc_i),
  .DAT_I(eth_sl_wb_dat_o),
  .DAT_O(eth_sl_wb_dat_i),
  .ERR_I(eth_sl_wb_err_o),
  .RTY_I(1'b0),
  .SEL_O(eth_sl_wb_sel_i),
  .STB_O(eth_sl_wb_stb_i),
  .WE_O (eth_sl_wb_we_i),
  .TAG_I({`WB_TAG_WIDTH{1'b0}}),
  .TAG_O(),
  .CAB_O(1'b0),
  .log_file_desc (wb_s_mon_log_file_desc)
);
 
WB_BUS_MON wb_eth_master_bus_mon
(
  // WISHBONE common
  .CLK_I(wb_clk),
  .RST_I(wb_rst),
 
  // WISHBONE master
  .ACK_I(eth_ma_wb_ack_i),
  .ADDR_O(eth_ma_wb_adr_o),
  .CYC_O(eth_ma_wb_cyc_o),
  .DAT_I(eth_ma_wb_dat_i),
  .DAT_O(eth_ma_wb_dat_o),
  .ERR_I(eth_ma_wb_err_i),
  .RTY_I(1'b0),
  .SEL_O(eth_ma_wb_sel_o),
  .STB_O(eth_ma_wb_stb_o),
  .WE_O (eth_ma_wb_we_o),
  .TAG_I({`WB_TAG_WIDTH{1'b0}}),
  .TAG_O(),
  .CAB_O(1'b0),
  .log_file_desc(wb_m_mon_log_file_desc)
);
 
 
 
reg         StartTB;
integer     tb_log_file;
 
initial
begin
  tb_log_file = $fopen("../log/eth_tb.log");
  if (tb_log_file < 2)
  begin
    $display("*E Could not open/create testbench log file in ../log/ directory!");
    $finish;
  end
  $fdisplay(tb_log_file, "========================== ETHERNET IP Core Testbench results ===========================");
  $fdisplay(tb_log_file, " ");
 
  phy_log_file_desc = $fopen("../log/eth_tb_phy.log");
  if (phy_log_file_desc < 2)
  begin
    $fdisplay(tb_log_file, "*E Could not open/create eth_tb_phy.log file in ../log/ directory!");
    $finish;
  end
  $fdisplay(phy_log_file_desc, "================ PHY Module  Testbench access log ================");
  $fdisplay(phy_log_file_desc, " ");
 
  memory_log_file_desc = $fopen("../log/eth_tb_memory.log");
  if (memory_log_file_desc < 2)
  begin
    $fdisplay(tb_log_file, "*E Could not open/create eth_tb_memory.log file in ../log/ directory!");
    $finish;
  end
  $fdisplay(memory_log_file_desc, "=============== MEMORY Module Testbench access log ===============");
  $fdisplay(memory_log_file_desc, " ");
 
  host_log_file_desc = $fopen("../log/eth_tb_host.log");
  if (host_log_file_desc < 2)
  begin
    $fdisplay(tb_log_file, "*E Could not open/create eth_tb_host.log file in ../log/ directory!");
    $finish;
  end
  $fdisplay(host_log_file_desc, "================ HOST Module Testbench access log ================");
  $fdisplay(host_log_file_desc, " ");
 
  wb_s_mon_log_file_desc = $fopen("../log/eth_tb_wb_s_mon.log");
  if (wb_s_mon_log_file_desc < 2)
  begin
    $fdisplay(tb_log_file, "*E Could not open/create eth_tb_wb_s_mon.log file in ../log/ directory!");
    $finish;
  end
  $fdisplay(wb_s_mon_log_file_desc, "============== WISHBONE Slave Bus Monitor error log ==============");
  $fdisplay(wb_s_mon_log_file_desc, " ");
  $fdisplay(wb_s_mon_log_file_desc, "   Only ERRONEOUS conditions are logged !");
  $fdisplay(wb_s_mon_log_file_desc, " ");
 
  wb_m_mon_log_file_desc = $fopen("../log/eth_tb_wb_m_mon.log");
  if (wb_m_mon_log_file_desc < 2)
  begin
    $fdisplay(tb_log_file, "*E Could not open/create eth_tb_wb_m_mon.log file in ../log/ directory!");
    $finish;
  end
  $fdisplay(wb_m_mon_log_file_desc, "============= WISHBONE Master Bus Monitor  error log =============");
  $fdisplay(wb_m_mon_log_file_desc, " ");
  $fdisplay(wb_m_mon_log_file_desc, "   Only ERRONEOUS conditions are logged !");
  $fdisplay(wb_m_mon_log_file_desc, " ");
 
  // Clear memories
  clear_memories;
 
  // Reset pulse
  wb_rst =  1'b1;
  #423 wb_rst =  1'b0;
  #423 StartTB  =  1'b1;
end
 
 
 
// Generating wb_clk clock
initial
begin
  wb_clk=0;
//  forever #2.5 wb_clk = ~wb_clk;  // 2*2.5 ns -> 200.0 MHz    
//  forever #5 wb_clk = ~wb_clk;  // 2*5 ns -> 100.0 MHz    
//  forever #10 wb_clk = ~wb_clk;  // 2*10 ns -> 50.0 MHz    
//  forever #12.5 wb_clk = ~wb_clk;  // 2*12.5 ns -> 40 MHz    
//  forever #15 wb_clk = ~wb_clk;  // 2*10 ns -> 33.3 MHz    
  forever #20 wb_clk = ~wb_clk;  // 2*20 ns -> 25 MHz    
//  forever #25 wb_clk = ~wb_clk;  // 2*25 ns -> 20.0 MHz
//  forever #31.25 wb_clk = ~wb_clk;  // 2*31.25 ns -> 16.0 MHz    
//  forever #50 wb_clk = ~wb_clk;  // 2*50 ns -> 10.0 MHz
//  forever #55 wb_clk = ~wb_clk;  // 2*55 ns ->  9.1 MHz    
end
 
 
 
integer      tests_successfull;
integer      tests_failed;
reg [799:0]  test_name; // used for tb_log_file
 
reg   [3:0]  wbm_init_waits; // initial wait cycles between CYC_O and STB_O of WB Master
reg   [3:0]  wbm_subseq_waits; // subsequent wait cycles between STB_Os of WB Master
reg   [2:0]  wbs_waits; // wait cycles befor WB Slave responds
reg   [7:0]  wbs_retries; // if RTY response, then this is the number of retries before ACK
 
initial
begin
  wait(StartTB);  // Start of testbench
 
  // Initial global values
  tests_successfull = 0;
  tests_failed = 0;
 
  wbm_init_waits = 4'h1;
  wbm_subseq_waits = 4'h3;
  wbs_waits = 4'h1;
  wbs_retries = 8'h2;
  wb_slave.cycle_response(`ACK_RESPONSE, wbs_waits, wbs_retries);
 
 
  //  Call tests
  //  ----------
//    test_access_to_mac_reg(0, 3);          // 0 - 3
//    test_mii(0, 17);                        // 0 - 17
    test_mii(0, 1);                        // 0 - 17
  test_note("PHY generates ideal Carrier sense and Collision signals for following tests");
  eth_phy.carrier_sense_real_delay(0);
    test_mac_full_duplex_transmit(0, 3);   // 0 - (3)
 
  test_note("PHY generates 'real' Carrier sense and Collision signals for following tests");
  eth_phy.carrier_sense_real_delay(1);
 
 
  // Finish test's logs
  test_summary;
  $display("\n\n END of SIMULATION");
  $fclose(tb_log_file | phy_log_file_desc | memory_log_file_desc | host_log_file_desc);
  $fclose(wb_s_mon_log_file_desc | wb_m_mon_log_file_desc);
 
  $stop;
end
 
 
 
//////////////////////////////////////////////////////////////
// Test tasks
//////////////////////////////////////////////////////////////
 
task test_access_to_mac_reg;
  input  [31:0]  start_task;
  input  [31:0]  end_task;
  integer        bit_start_1;
  integer        bit_end_1;
  integer        bit_start_2;
  integer        bit_end_2;
  integer        num_of_reg;
  integer        i_addr;
  integer        i_data;
  integer        i_length;
  integer        tmp_data;
  reg    [31:0]  tx_bd_num;
  reg    [((`MAX_BLK_SIZE * 32) - 1):0] burst_data;
  reg    [((`MAX_BLK_SIZE * 32) - 1):0] burst_tmp_data;
  integer        i;
  integer        i1;
  integer        i2;
  integer        i3;
  integer        fail;
  reg    [31:0]  addr;
  reg    [31:0]  data;
  reg    [31:0]  data_max;
begin
// ACCESS TO MAC REGISTERS TEST
test_heading("ACCESS TO MAC REGISTERS TEST");
$display(" ");
$display("ACCESS TO MAC REGISTERS TEST");
fail = 0;
 
  /* Register space
     --------------
  `define ETH_MODER      `ETH_BASE + 32'h00      Mode Register
  `define ETH_INT        `ETH_BASE + 32'h04      Interrupt Source Register
  `define ETH_INT_MASK   `ETH_BASE + 32'h08      Interrupt Mask Register
  `define ETH_IPGT       `ETH_BASE + 32'h0C      Back to Bak Inter Packet Gap Register
  `define ETH_IPGR1      `ETH_BASE + 32'h10      Non Back to Back Inter Packet Gap Register 1
  `define ETH_IPGR2      `ETH_BASE + 32'h14      Non Back to Back Inter Packet Gap Register 2
  `define ETH_PACKETLEN  `ETH_BASE + 32'h18      Packet Length Register (min. and max.)
  `define ETH_COLLCONF   `ETH_BASE + 32'h1C      Collision and Retry Configuration Register
  `define ETH_TX_BD_NUM  `ETH_BASE + 32'h20      Transmit Buffer Descriptor Number Register
  `define ETH_CTRLMODER  `ETH_BASE + 32'h24      Control Module Mode Register
  `define ETH_MIIMODER   `ETH_BASE + 32'h28      MII Mode Register
  `define ETH_MIICOMMAND `ETH_BASE + 32'h2C      MII Command Register
  `define ETH_MIIADDRESS `ETH_BASE + 32'h30      MII Address Register
  `define ETH_MIITX_DATA `ETH_BASE + 32'h34      MII Transmit Data Register
  `define ETH_MIIRX_DATA `ETH_BASE + 32'h38      MII Receive Data Register
  `define ETH_MIISTATUS  `ETH_BASE + 32'h3C      MII Status Register
  `define ETH_MAC_ADDR0  `ETH_BASE + 32'h40      MAC Individual Address Register 0
  `define ETH_MAC_ADDR1  `ETH_BASE + 32'h44      MAC Individual Address Register 1
  `define ETH_HASH_ADDR0 `ETH_BASE + 32'h48      Hash Register 0
  `define ETH_HASH_ADDR1 `ETH_BASE + 32'h4C      Hash Register 1
  */
 
 
if ((start_task <= 0) && (end_task >= 0))
begin
  // TEST 'WALKING ONE' WITH SINGLE CYCLES ACROSS MAC REGISTERS ( VARIOUS BUS DELAYS )
  test_name   = "TEST 'WALKING ONE' WITH SINGLE CYCLES ACROSS MAC REGISTERS ( VARIOUS BUS DELAYS )";
  `TIME; $display("  TEST 'WALKING ONE' WITH SINGLE CYCLES ACROSS MAC REGISTERS ( VARIOUS BUS DELAYS )");
 
  data = 0;
  for (i = 0; i <= 4; i = i + 1) // for initial wait cycles on WB bus
  begin
      wbm_init_waits = i;
      wbm_subseq_waits = {$random} % 5; // it is not important for single accesses
      for (i_addr = 0; i_addr <= 32'h4C; i_addr = i_addr + 4) // register address
      begin
        addr = `ETH_BASE + i_addr;
        // set ranges of R/W bits
        case (addr)
        `ETH_MODER:
          begin
            bit_start_1 = 0;
            bit_end_1   = 16;
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        `ETH_INT: // READONLY - tested within INT test
          begin
            bit_start_1 = 32; // not used
            bit_end_1   = 32; // not used
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        `ETH_INT_MASK:
          begin
            bit_start_1 = 0;
            bit_end_1   = 6;
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        `ETH_IPGT:
          begin
            bit_start_1 = 0;
            bit_end_1   = 6;
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        `ETH_IPGR1:
          begin
            bit_start_1 = 0;
            bit_end_1   = 6;
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        `ETH_IPGR2:
          begin
            bit_start_1 = 0;
            bit_end_1   = 6;
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        `ETH_PACKETLEN:
          begin
            bit_start_1 = 0;
            bit_end_1   = 31;
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        `ETH_COLLCONF:
          begin
            bit_start_1 = 0;
            bit_end_1   = 5;
            bit_start_2 = 16;
            bit_end_2   = 19;
          end
        `ETH_TX_BD_NUM:
          begin
            bit_start_1 = 0;
            bit_end_1   = 7;
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        `ETH_CTRLMODER:
          begin
            bit_start_1 = 0;
            bit_end_1   = 2;
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        `ETH_MIIMODER:
          begin
            bit_start_1 = 0;
            bit_end_1   = 9;
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        `ETH_MIICOMMAND: // "WRITEONLY" - tested within MIIM test - 3 LSBits are not written here!!!
          begin
            bit_start_1 = 32; // not used
            bit_end_1   = 32; // not used
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        `ETH_MIIADDRESS:
          begin
            bit_start_1 = 0;
            bit_end_1   = 4;
            bit_start_2 = 8;
            bit_end_2   = 12;
          end
        `ETH_MIITX_DATA:
          begin
            bit_start_1 = 0;
            bit_end_1   = 15;
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        `ETH_MIIRX_DATA: // READONLY - tested within MIIM test
          begin
            bit_start_1 = 32; // not used
            bit_end_1   = 32; // not used
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        `ETH_MIISTATUS: // READONLY - tested within MIIM test
          begin
            bit_start_1 = 32; // not used
            bit_end_1   = 32; // not used
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        `ETH_MAC_ADDR0:
          begin
            bit_start_1 = 0;
            bit_end_1   = 31;
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        `ETH_MAC_ADDR1:
          begin
            bit_start_1 = 0;
            bit_end_1   = 15;
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        `ETH_HASH_ADDR0:
          begin
            bit_start_1 = 0;
            bit_end_1   = 31;
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        default: // `ETH_HASH_ADDR1:
          begin
            bit_start_1 = 0;
            bit_end_1   = 31;
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        endcase
        for (i_data = 0; i_data <= 31; i_data = i_data + 1) // the position of walking one
        begin
          data = 1'b1 << i_data;
          if ( (addr == `ETH_MIICOMMAND) && (i_data <= 2) ) // DO NOT WRITE to 3 LSBits of MIICOMMAND !!!
          begin
          end
          else
          begin
            wbm_write(addr, data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
            wbm_read(addr, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
            if ( ((i_data >= bit_start_1) && (i_data <= bit_end_1)) ||
                 ((i_data >= bit_start_2) && (i_data <= bit_end_2)) ) // data should be equal to tmp_data
            begin
              if (tmp_data !== data)
              begin
                fail = fail + 1;
                test_fail("RW bit of the MAC register was not written or not read");
                `TIME;
                $display("wbm_init_waits %d, addr %h, data %h, tmp_data %h",
                          wbm_init_waits, addr, data, tmp_data);
              end
            end
            else // data should not be equal to tmp_data
            begin
              if (tmp_data === data)
              begin
                fail = fail + 1;
                test_fail("NON RW bit of the MAC register was written, but it shouldn't be");
                `TIME;
                $display("wbm_init_waits %d, addr %h, data %h, tmp_data %h",
                          wbm_init_waits, addr, data, tmp_data);
              end
            end
          end
        end
      end
  end
  if(fail == 0)
    test_ok;
  else
    fail = 0;    // Errors were reported previously
end
 
 
if ((start_task <= 4) && (end_task >= 4)) // not used, since burst access to reg. is not supported
begin
/*  // TEST 'WALKING ONE' WITH BURST CYCLES ACROSS MAC REGISTERS ( VARIOUS BUS DELAYS )
  test_name   = "TEST 'WALKING ONE' WITH BURST CYCLES ACROSS MAC REGISTERS ( VARIOUS BUS DELAYS )";
  `TIME; $display("  TEST 'WALKING ONE' WITH BURST CYCLES ACROSS MAC REGISTERS ( VARIOUS BUS DELAYS )");
 
  data = 0;
  burst_data = 0;
  burst_tmp_data = 0;
  i_length = 10; // two bursts for length 20
  for (i = 0; i <= 4; i = i + 1) // for initial wait cycles on WB bus
  begin
    for (i1 = 0; i1 <= 4; i1 = i1 + 1) // for initial wait cycles on WB bus
    begin
      wbm_init_waits = i;
      wbm_subseq_waits = i1;
      #1;
      for (i_data = 0; i_data <= 31; i_data = i_data + 1) // the position of walking one
      begin
        data = 1'b1 << i_data;
        #1;
        for (i2 = 32'h4C; i2 >= 0; i2 = i2 - 4)
        begin
          burst_data = burst_data << 32;
          // DO NOT WRITE to 3 LSBits of MIICOMMAND !!!
          if ( ((`ETH_BASE + i2) == `ETH_MIICOMMAND) && (i_data <= 2) )
          begin
            #1 burst_data[31:0] = 0;
          end
          else
          begin
            #1 burst_data[31:0] = data;
          end
        end
        #1;
        // 2 burst writes
        addr = `ETH_BASE; // address of a first burst
        wbm_write(addr, burst_data[(32 * 10 - 1):0], 4'hF, i_length, wbm_init_waits, wbm_subseq_waits);
        burst_tmp_data = burst_data >> (32 * i_length);
        addr = addr + 32'h28; // address of a second burst
        wbm_write(addr, burst_tmp_data[(32 * 10 - 1):0], 4'hF, i_length, wbm_init_waits, wbm_subseq_waits);
        #1;
        // 2 burst reads
        addr = `ETH_BASE; // address of a first burst
        wbm_read(addr, burst_tmp_data[(32 * 10 - 1):0], 4'hF, i_length,
                 wbm_init_waits, wbm_subseq_waits); // first burst
        burst_tmp_data = burst_tmp_data << (32 * i_length);
        addr = addr + 32'h28; // address of a second burst
        wbm_read(addr, burst_tmp_data[(32 * 10 - 1):0], 4'hF, i_length,
                 wbm_init_waits, wbm_subseq_waits); // second burst
        #1;
        for (i2 = 0; i2 <= 32'h4C; i2 = i2 + 4)
        begin
          // set ranges of R/W bits
          case (`ETH_BASE + i2)
          `ETH_MODER:
            begin
              bit_start_1 = 0;
              bit_end_1   = 16;
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          `ETH_INT: // READONLY - tested within INT test
            begin
              bit_start_1 = 32; // not used
              bit_end_1   = 32; // not used
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          `ETH_INT_MASK:
            begin
              bit_start_1 = 0;
              bit_end_1   = 6;
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          `ETH_IPGT:
            begin
              bit_start_1 = 0;
              bit_end_1   = 6;
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          `ETH_IPGR1:
            begin
              bit_start_1 = 0;
              bit_end_1   = 6;
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          `ETH_IPGR2:
            begin
              bit_start_1 = 0;
              bit_end_1   = 6;
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          `ETH_PACKETLEN:
            begin
              bit_start_1 = 0;
              bit_end_1   = 31;
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          `ETH_COLLCONF:
            begin
              bit_start_1 = 0;
              bit_end_1   = 5;
              bit_start_2 = 16;
              bit_end_2   = 19;
            end
          `ETH_TX_BD_NUM:
            begin
              bit_start_1 = 0;
              bit_end_1   = 7;
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          `ETH_CTRLMODER:
            begin
              bit_start_1 = 0;
              bit_end_1   = 2;
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          `ETH_MIIMODER:
            begin
              bit_start_1 = 0;
              bit_end_1   = 9;
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          `ETH_MIICOMMAND: // "WRITEONLY" - tested within MIIM test - 3 LSBits are not written here!!!
            begin
              bit_start_1 = 32; // not used
              bit_end_1   = 32; // not used
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          `ETH_MIIADDRESS:
            begin
              bit_start_1 = 0;
              bit_end_1   = 4;
              bit_start_2 = 8;
              bit_end_2   = 12;
            end
          `ETH_MIITX_DATA:
            begin
              bit_start_1 = 0;
              bit_end_1   = 15;
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          `ETH_MIIRX_DATA: // READONLY - tested within MIIM test
            begin
              bit_start_1 = 32; // not used
              bit_end_1   = 32; // not used
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          `ETH_MIISTATUS: // READONLY - tested within MIIM test
            begin
              bit_start_1 = 32; // not used
              bit_end_1   = 32; // not used
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          `ETH_MAC_ADDR0:
            begin
              bit_start_1 = 0;
              bit_end_1   = 31;
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          `ETH_MAC_ADDR1:
            begin
              bit_start_1 = 0;
              bit_end_1   = 15;
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          `ETH_HASH_ADDR0:
            begin
              bit_start_1 = 0;
              bit_end_1   = 31;
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          default: // `ETH_HASH_ADDR1:
            begin
              bit_start_1 = 0;
              bit_end_1   = 31;
              bit_start_2 = 32; // not used
              bit_end_2   = 32; // not used
            end
          endcase
          #1;
          // 3 LSBits of MIICOMMAND are NOT written !!!
          if ( ((`ETH_BASE + i2) == `ETH_MIICOMMAND) && (i_data <= 2) )
          begin
            if (burst_tmp_data[31:0] !== burst_data[31:0])
            begin
              fail = fail + 1;
              test_fail("NON WR bit of the MAC MIICOMMAND register was wrong written or read");
              `TIME;
              $display("wbm_init_waits %d, wbm_subseq_waits %d, addr %h, data %h, tmp_data %h",
                        wbm_init_waits, wbm_subseq_waits, i2, burst_data[31:0], burst_tmp_data[31:0]);
            end
          end
          else
          begin
            if ( ((i_data >= bit_start_1) && (i_data <= bit_end_1)) ||
                 ((i_data >= bit_start_2) && (i_data <= bit_end_2)) ) // data should be equal to tmp_data
            begin
              if (burst_tmp_data[31:0] !== burst_data[31:0])
              begin
                fail = fail + 1;
                test_fail("RW bit of the MAC register was not written or not read");
                `TIME;
                $display("wbm_init_waits %d, wbm_subseq_waits %d, addr %h, data %h, tmp_data %h",
                          wbm_init_waits, wbm_subseq_waits, i2, burst_data[31:0], burst_tmp_data[31:0]);
              end
            end
            else // data should not be equal to tmp_data
            begin
              if (burst_tmp_data[31:0] === burst_data[31:0])
              begin
                fail = fail + 1;
                test_fail("NON RW bit of the MAC register was written, but it shouldn't be");
                `TIME;
                $display("wbm_init_waits %d, wbm_subseq_waits %d, addr %h, data %h, tmp_data %h",
                          wbm_init_waits, wbm_subseq_waits, i2, burst_data[31:0], burst_tmp_data[31:0]);
              end
            end
          end
          burst_tmp_data = burst_tmp_data >> 32;
          burst_data = burst_data >> 32;
        end
      end
    end
  end
  if(fail == 0)
    test_ok;
  else
    fail = 0;*/
end
 
 
if ((start_task <= 1) && (end_task >= 1))
begin
  // TEST 'WALKING ONE' WITH SINGLE CYCLES ACROSS MAC BUFFER DESC. ( VARIOUS BUS DELAYS )
  test_name   = "TEST 'WALKING ONE' WITH SINGLE CYCLES ACROSS MAC BUFFER DESC. ( VARIOUS BUS DELAYS )";
  `TIME; $display("  TEST 'WALKING ONE' WITH SINGLE CYCLES ACROSS MAC BUFFER DESC. ( VARIOUS BUS DELAYS )");
 
  data = 0;
  // set TX and RX buffer descriptors
  tx_bd_num = 32'h40;
  wbm_write(`ETH_TX_BD_NUM, tx_bd_num, 4'hF, 1, 0, 0);
  for (i = 0; i <= 4; i = i + 1) // for initial wait cycles on WB bus
  begin
    wbm_init_waits = i;
    wbm_subseq_waits = {$random} % 5; // it is not important for single accesses
    for (i_addr = 32'h400; i_addr <= 32'h7FC; i_addr = i_addr + 4) // buffer descriptor address
    begin
      addr = `ETH_BASE + i_addr;
      if (i_addr < (32'h400 + (tx_bd_num << 3))) // TX buffer descriptors
      begin
        // set ranges of R/W bits
        case (addr[3])
        1'b0: // buffer control bits
          begin
            bit_start_1 = 0;
            bit_end_1   = 31; // 8;
            bit_start_2 = 11;
            bit_end_2   = 31;
          end
        default: // 1'b1: // buffer pointer
          begin
            bit_start_1 = 0;
            bit_end_1   = 31;
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        endcase
      end
      else // RX buffer descriptors
      begin
        // set ranges of R/W bits
        case (addr[3])
        1'b0: // buffer control bits
          begin
            bit_start_1 = 0;
            bit_end_1   = 31; // 7;
            bit_start_2 = 13;
            bit_end_2   = 31;
          end
        default: // 1'b1: // buffer pointer
          begin
            bit_start_1 = 0;
            bit_end_1   = 31;
            bit_start_2 = 32; // not used
            bit_end_2   = 32; // not used
          end
        endcase
      end
 
      for (i_data = 0; i_data <= 31; i_data = i_data + 1) // the position of walking one
      begin
        data = 1'b1 << i_data;
        if ( (addr[3] == 0) && (i_data == 15) ) // DO NOT WRITE to this bit !!!
        begin
        end
        else
        begin
          wbm_write(addr, data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          wbm_read(addr, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          if ( ((i_data >= bit_start_1) && (i_data <= bit_end_1)) ||
               ((i_data >= bit_start_2) && (i_data <= bit_end_2)) ) // data should be equal to tmp_data
          begin
            if (tmp_data !== data)
            begin
              fail = fail + 1;
              test_fail("RW bit of the MAC buffer descriptors was not written or not read");
              `TIME;
              $display("wbm_init_waits %d, addr %h, data %h, tmp_data %h",
                        wbm_init_waits, addr, data, tmp_data);
            end
          end
          else // data should not be equal to tmp_data
          begin
            if (tmp_data === data)
            begin
              fail = fail + 1;
              test_fail("NON RW bit of the MAC buffer descriptors was written, but it shouldn't be");
              `TIME;
              $display("wbm_init_waits %d, addr %h, data %h, tmp_data %h",
                        wbm_init_waits, addr, data, tmp_data);
            end
          end
        end
      end
    end
    case (i)
    0:       $display("    buffer descriptors tested with 0 bus delay");
    1:       $display("    buffer descriptors tested with 1 bus delay cycle");
    2:       $display("    buffer descriptors tested with 2 bus delay cycles");
    3:       $display("    buffer descriptors tested with 3 bus delay cycles");
    default: $display("    buffer descriptors tested with 4 bus delay cycles");
    endcase
  end
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
  /* Register      RESET values    MAX. values
     -----------------------------------------
   ETH_MODER       32'h0000_A800   32'h0000_A800   Mode Register
   ETH_INT         32'h0000_0000   32'h0000_0000   Interrupt Source Register
   ETH_INT_MASK    32'h0000_0000   32'h0000_0000   Interrupt Mask Register
   ETH_IPGT        32'h0000_0012   32'h0000_0012   Back to Bak Inter Packet Gap Register
   ETH_IPGR1       32'h0000_000C   32'h0000_000C   Non Back to Back Inter Packet Gap Register 1
   ETH_IPGR2       32'h0000_0012   32'h0000_0012   Non Back to Back Inter Packet Gap Register 2
   ETH_PACKETLEN   32'h0040_0600   32'h0040_0600   Packet Length Register (min. and max.)
   ETH_COLLCONF    32'h000F_003F   32'h000F_003F   Collision and Retry Configuration Register
   ETH_TX_BD_NUM   32'h0000_0040   32'h0000_0080   Transmit Buffer Descriptor Number Register
   ETH_CTRLMODER   32'h0000_0000   32'h0000_0000   Control Module Mode Register
   ETH_MIIMODER    32'h0000_0064   32'h0000_0064   MII Mode Register
   ETH_MIICOMMAND  32'h0000_0000   32'h0000_0000   MII Command Register
   ETH_MIIADDRESS  32'h0000_0000   32'h0000_0000   MII Address Register
   ETH_MIITX_DATA  32'h0000_0000   32'h0000_0000   MII Transmit Data Register
   ETH_MIIRX_DATA  32'h0000_0000   32'h0000_0000   MII Receive Data Register
   ETH_MIISTATUS   32'h0000_0000   32'h0000_0000   MII Status Register
   ETH_MAC_ADDR0   32'h0000_0000   32'h0000_0000   MAC Individual Address Register 0
   ETH_MAC_ADDR1   32'h0000_0000   32'h0000_0000   MAC Individual Address Register 1
   ETH_HASH_ADDR0  32'h0000_0000   32'h0000_0000   Hash Register 0
   ETH_HASH_ADDR1  32'h0000_0000   32'h0000_0000   Hash Register 1
  */
 
 
if ((start_task <= 2) && (end_task >= 2))
begin
  // TEST MAX REG. VALUES AND REG. VALUES AFTER WRITING INVERSE RESET VALUES AND HARD RESET OF THE MAC
  test_name   =
  "TEST MAX REG. VALUES AND REG. VALUES AFTER WRITING INVERSE RESET VALUES AND HARD RESET OF THE MAC";
  `TIME; $display(
  "  TEST MAX REG. VALUES AND REG. VALUES AFTER WRITING INVERSE RESET VALUES AND HARD RESET OF THE MAC");
 
  // reset MAC registers
  hard_reset;
  for (i = 0; i <= 4; i = i + 1) // 0, 2 - WRITE; 1, 3, 4 - READ
  begin
    for (i_addr = 0; i_addr <= 32'h4C; i_addr = i_addr + 4) // register address
    begin
      addr = `ETH_BASE + i_addr;
      // set ranges of R/W bits
      case (addr)
      `ETH_MODER:
      begin
        data = 32'h0000_A800;
        data_max = 32'h0001_FFFF;
      end
      `ETH_INT: // READONLY - tested within INT test
      begin
        data = 32'h0000_0000;
        data_max = 32'h0000_0000;
      end
      `ETH_INT_MASK:
      begin
        data = 32'h0000_0000;
        data_max = 32'h0000_007F;
      end
      `ETH_IPGT:
      begin
        data = 32'h0000_0012;
        data_max = 32'h0000_007F;
      end
      `ETH_IPGR1:
      begin
        data = 32'h0000_000C;
        data_max = 32'h0000_007F;
      end
      `ETH_IPGR2:
      begin
        data = 32'h0000_0012;
        data_max = 32'h0000_007F;
      end
      `ETH_PACKETLEN:
      begin
        data = 32'h0040_0600;
        data_max = 32'hFFFF_FFFF;
      end
      `ETH_COLLCONF:
      begin
        data = 32'h000F_003F;
        data_max = 32'h000F_003F;
      end
      `ETH_TX_BD_NUM:
      begin
        data = 32'h0000_0040;
        data_max = 32'h0000_0080;
      end
      `ETH_CTRLMODER:
      begin
        data = 32'h0000_0000;
        data_max = 32'h0000_0007;
      end
      `ETH_MIIMODER:
      begin
        data = 32'h0000_0064;
        data_max = 32'h0000_03FF;
      end
      `ETH_MIICOMMAND: // "WRITEONLY" - tested within MIIM test - 3 LSBits are not written here!!!
      begin
        data = 32'h0000_0000;
        data_max = 32'h0000_0007;
      end
      `ETH_MIIADDRESS:
      begin
        data = 32'h0000_0000;
        data_max = 32'h0000_1F1F;
      end
      `ETH_MIITX_DATA:
      begin
        data = 32'h0000_0000;
        data_max = 32'h0000_FFFF;
      end
      `ETH_MIIRX_DATA: // READONLY - tested within MIIM test
      begin
        data = 32'h0000_0000;
        data_max = 32'h0000_0000;
      end
      `ETH_MIISTATUS: // READONLY - tested within MIIM test
      begin
        data = 32'h0000_0000;
        data_max = 32'h0000_0000;
      end
      `ETH_MAC_ADDR0:
      begin
        data = 32'h0000_0000;
        data_max = 32'hFFFF_FFFF;
      end
      `ETH_MAC_ADDR1:
      begin
        data = 32'h0000_0000;
        data_max = 32'h0000_FFFF;
      end
      `ETH_HASH_ADDR0:
      begin
        data = 32'h0000_0000;
        data_max = 32'hFFFF_FFFF;
      end
      default: // `ETH_HASH_ADDR1:
      begin
        data = 32'h0000_0000;
        data_max = 32'hFFFF_FFFF;
      end
      endcase
 
      wbm_init_waits = {$random} % 3;
      wbm_subseq_waits = {$random} % 5; // it is not important for single accesses
      if (i == 0)
        wbm_write(addr, ~data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
      else if (i == 2)
        wbm_write(addr, 32'hFFFFFFFF, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
      else if ((i == 1) || (i == 4))
      begin
        wbm_read(addr, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
        if (tmp_data !== data)
        begin
          fail = fail + 1;
          test_fail("RESET value of the MAC register is not correct");
          `TIME;
          $display("  addr %h, data %h, tmp_data %h", addr, data, tmp_data);
        end
      end
      else // check maximum values
      begin
        wbm_read(addr, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
        if (addr == `ETH_TX_BD_NUM) // previous data should remain in this register
        begin
          if (tmp_data !== data)
          begin
            fail = fail + 1;
            test_fail("Previous value of the TX_BD_NUM register did not remain");
            `TIME;
            $display("  addr %h, data_max %h, tmp_data %h", addr, data_max, tmp_data);
          end
          // try maximum (80)
          wbm_write(addr, data_max, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          wbm_read(addr, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          if (tmp_data !== data_max)
          begin
            fail = fail + 1;
            test_fail("MAX value of the TX_BD_NUM register is not correct");
            `TIME;
            $display("  addr %h, data_max %h, tmp_data %h", addr, data_max, tmp_data);
          end
          // try one less than maximum (80)
          wbm_write(addr, (data_max - 1), 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          wbm_read(addr, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          if (tmp_data !== (data_max - 1))
          begin
            fail = fail + 1;
            test_fail("ONE less than MAX value of the TX_BD_NUM register is not correct");
            `TIME;
            $display("  addr %h, data_max %h, tmp_data %h", addr, data_max, tmp_data);
          end
          // try one more than maximum (80)
          wbm_write(addr, (data_max + 1), 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          wbm_read(addr, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          if (tmp_data !== (data_max - 1)) // previous data should remain in this register
          begin
            fail = fail + 1;
            test_fail("Previous value of the TX_BD_NUM register did not remain");
            `TIME;
            $display("  addr %h, data_max %h, tmp_data %h", addr, data_max, tmp_data);
          end
        end
        else
        begin
          if (tmp_data !== data_max)
          begin
            fail = fail + 1;
            test_fail("MAX value of the MAC register is not correct");
            `TIME;
            $display("  addr %h, data_max %h, tmp_data %h", addr, data_max, tmp_data);
          end
        end
      end
    end
    // reset MAC registers
    if ((i == 0) || (i == 3))
    begin
      hard_reset;
    end
  end
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 3) && (end_task >= 3))
begin
  // TEST BUFFER DESC. RAM PRESERVING VALUES AFTER HARD RESET OF THE MAC AND RESETING THE LOGIC
  test_name   = "TEST BUFFER DESC. RAM PRESERVING VALUES AFTER HARD RESET OF THE MAC AND RESETING THE LOGIC";
  `TIME;
  $display("  TEST BUFFER DESC. RAM PRESERVING VALUES AFTER HARD RESET OF THE MAC AND RESETING THE LOGIC");
 
  // reset MAC registers
  hard_reset;
  // reset LOGIC with soft reset
  reset_mac;
  reset_mii;
  for (i = 0; i <= 3; i = i + 1) // 0, 2 - WRITE; 1, 3 - READ
  begin
    for (i_addr = 32'h400; i_addr <= 32'h7FC; i_addr = i_addr + 4) // buffer descriptor address
    begin
      addr = `ETH_BASE + i_addr;
 
      wbm_init_waits = {$random} % 3;
      wbm_subseq_waits = {$random} % 5; // it is not important for single accesses
      if (i == 0)
      begin
        data = 32'hFFFFFFFF;
        wbm_write(addr, 32'hFFFFFFFF, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
      end
      else if (i == 2)
      begin
        data = 32'h00000000;
        wbm_write(addr, 32'h00000000, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
      end
      else
      begin
        wbm_read(addr, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
        if (tmp_data !== data)
        begin
          fail = fail + 1;
          test_fail("PRESERVED value of the MAC buffer descriptors is not correct");
          `TIME;
          $display("  addr %h, data %h, tmp_data %h", addr, data, tmp_data);
        end
      end
    end
    if ((i == 0) || (i == 2))
    begin
      // reset MAC registers
      hard_reset;
      // reset LOGIC with soft reset
      reset_mac;
      reset_mii;
    end
  end
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
end
endtask // test_access_to_mac_reg
 
 
task test_mii;
  input  [31:0]  start_task;
  input  [31:0]  end_task;
  integer        i;
  integer        i1;
  integer        i2;
  integer        i3;
  integer        cnt;
  integer        fail;
  reg     [8:0]  clk_div; // only 8 bits are valid!
  reg     [4:0]  phy_addr;
  reg     [4:0]  reg_addr;
  reg     [15:0] phy_data;
  reg     [15:0] tmp_data;
begin
// MIIM MODULE TEST
test_heading("MIIM MODULE TEST");
$display(" ");
$display("MIIM MODULE TEST");
fail = 0;
 
// reset MIIM LOGIC with soft reset
reset_mii;
 
 
if ((start_task <= 0) && (end_task >= 0))
begin
  // TEST CLOCK DIVIDER OF MII MANAGEMENT MODULE WITH ALL POSSIBLE FREQUENCES
  test_name   = "TEST CLOCK DIVIDER OF MII MANAGEMENT MODULE WITH ALL POSSIBLE FREQUENCES";
  `TIME; $display("  TEST CLOCK DIVIDER OF MII MANAGEMENT MODULE WITH ALL POSSIBLE FREQUENCES");
 
  wait(Mdc_O); // wait for MII clock to be 1
  for(clk_div = 0; clk_div <= 255; clk_div = clk_div + 1)
  begin
    i1 = 0;
    i2 = 0;
    #Tp mii_set_clk_div(clk_div[7:0]);
    @(posedge Mdc_O);
    #Tp;
    fork
      begin
        @(posedge Mdc_O);
        #Tp;
        disable count_i1;
        disable count_i2;
      end
      begin: count_i1
        forever
        begin
          @(posedge wb_clk);
          i1 = i1 + 1;
          #Tp;
        end
      end
      begin: count_i2
        forever
        begin
          @(negedge wb_clk);
          i2 = i2 + 1;
          #Tp;
        end
      end
    join
    if((clk_div[7:0] == 0) || (clk_div[7:0] == 1) || (clk_div[7:0] == 2) || (clk_div[7:0] == 3))
    begin
      if((i1 == i2) && (i1 == 2))
      begin
      end
      else
      begin
        fail = fail + 1;
        test_fail("Clock divider of MII module did'nt divide frequency corectly (it should divid with 2)");
      end
    end
    else
    begin
      if((i1 == i2) && (i1 == {clk_div[7:1], 1'b0}))
      begin
      end
      else
      begin
        fail = fail + 1;
        test_fail("Clock divider of MII module did'nt divide frequency corectly");
      end
    end
  end
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 1) && (end_task >= 1))
begin
  // TEST VARIOUS READINGS FROM 'REAL' PHY REGISTERS
  test_name   = "TEST VARIOUS READINGS FROM 'REAL' PHY REGISTERS";
  `TIME; $display("  TEST VARIOUS READINGS FROM 'REAL' PHY REGISTERS");
 
  // set the fastest possible MII
  clk_div = 0;
  mii_set_clk_div(clk_div[7:0]);
  // set address
  reg_addr = 5'h1F;
  phy_addr = 5'h1;
  while(reg_addr >= 5'h4)
  begin
    // read request
    #Tp mii_read_req(phy_addr, reg_addr);
    check_mii_busy; // wait for read to finish
    // read data
    #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    if (phy_data !== 16'hDEAD)
    begin
      test_fail("Wrong data was read from PHY from 'not used' address space");
      fail = fail + 1;
    end
    if (reg_addr == 5'h4) // go out of for loop
      reg_addr = 5'h3;
    else
      reg_addr = reg_addr - 5'h9;
  end
 
  // set address
  reg_addr = 5'h3;
  // read request
  #Tp mii_read_req(phy_addr, reg_addr);
  check_mii_busy; // wait for read to finish
  // read data
  #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if (phy_data !== {`PHY_ID2, `MAN_MODEL_NUM, `MAN_REVISION_NUM})
  begin
    test_fail("Wrong data was read from PHY from ID register 2");
    fail = fail + 1;
  end
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 2) && (end_task >= 2))
begin
  // TEST VARIOUS WRITINGS TO 'REAL' PHY REGISTERS ( CONTROL AND NON WRITABLE REGISTERS )
  test_name   = "TEST VARIOUS WRITINGS TO 'REAL' PHY REGISTERS ( CONTROL AND NON WRITABLE REGISTERS )";
  `TIME; $display("  TEST VARIOUS WRITINGS TO 'REAL' PHY REGISTERS ( CONTROL AND NON WRITABLE REGISTERS )");
 
  // negate data and try to write into unwritable register
  tmp_data = ~phy_data;
  // write request
  #Tp mii_write_req(phy_addr, reg_addr, tmp_data);
  check_mii_busy; // wait for write to finish
  // read request
  #Tp mii_read_req(phy_addr, reg_addr);
  check_mii_busy; // wait for read to finish
  // read data
  #Tp wbm_read(`ETH_MIIRX_DATA, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if (tmp_data !== phy_data)
  begin
    test_fail("Data was written into unwritable PHY register - ID register 2");
    fail = fail + 1;
  end
 
  // set address
  reg_addr = 5'h0; // control register
  // read request
  #Tp mii_read_req(phy_addr, reg_addr);
  check_mii_busy; // wait for read to finish
  // read data
  #Tp wbm_read(`ETH_MIIRX_DATA, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // write request
  phy_data = 16'h7DFF; // bit 15 (RESET bit) and bit 9 are self clearing bits
  #Tp mii_write_req(phy_addr, reg_addr, phy_data);
  check_mii_busy; // wait for write to finish
  // read request
  #Tp mii_read_req(phy_addr, reg_addr);
  check_mii_busy; // wait for read to finish
  // read data
  #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if (phy_data !== 16'h7DFF)
  begin
    test_fail("Data was not correctly written into OR read from writable PHY register - control register");
    fail = fail + 1;
  end
  // write request
  #Tp mii_write_req(phy_addr, reg_addr, tmp_data);
  check_mii_busy; // wait for write to finish
  // read request
  #Tp mii_read_req(phy_addr, reg_addr);
  check_mii_busy; // wait for read to finish
  // read data
  #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if (phy_data !== tmp_data)
  begin
    test_fail("Data was not correctly written into OR read from writable PHY register - control register");
    fail = fail + 1;
  end
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 3) && (end_task >= 3))
begin
  // TEST RESET PHY THROUGH MII MANAGEMENT MODULE
  test_name   = "TEST RESET PHY THROUGH MII MANAGEMENT MODULE";
  `TIME; $display("  TEST RESET PHY THROUGH MII MANAGEMENT MODULE");
 
  // set address
  reg_addr = 5'h0; // control register
  // write request
  phy_data = 16'h7DFF; // bit 15 (RESET bit) and bit 9 are self clearing bits
  #Tp mii_write_req(phy_addr, reg_addr, phy_data);
  check_mii_busy; // wait for write to finish
  // read request
  #Tp mii_read_req(phy_addr, reg_addr);
  check_mii_busy; // wait for read to finish
  // read data
  #Tp wbm_read(`ETH_MIIRX_DATA, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if (phy_data !== tmp_data)
  begin
    test_fail("Data was not correctly written into OR read from writable PHY register - control register");
    fail = fail + 1;
  end
  // set reset bit - selfclearing bit in PHY
  phy_data = phy_data | 16'h8000;
  // write request
  #Tp mii_write_req(phy_addr, reg_addr, phy_data);
  check_mii_busy; // wait for write to finish
  // read request
  #Tp mii_read_req(phy_addr, reg_addr);
  check_mii_busy; // wait for read to finish
  // read data
  #Tp wbm_read(`ETH_MIIRX_DATA, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // check self clearing of reset bit
  if (tmp_data[15] !== 1'b0)
  begin
    test_fail("Reset bit should be self cleared - control register");
    fail = fail + 1;
  end
  // check reset value of control register
  if (tmp_data !== {2'h0, (`LED_CFG1 || `LED_CFG2), `LED_CFG1, 3'h0, `LED_CFG3, 8'h0})
  begin
    test_fail("PHY was not reset correctly AND/OR reset bit not self cleared");
    fail = fail + 1;
  end
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 4) && (end_task >= 4))
begin
  // TEST 'WALKING ONE' ACROSS PHY ADDRESS ( WITH AND WITHOUT PREAMBLE )
  test_name   = "TEST 'WALKING ONE' ACROSS PHY ADDRESS ( WITH AND WITHOUT PREAMBLE )";
  `TIME; $display("  TEST 'WALKING ONE' ACROSS PHY ADDRESS ( WITH AND WITHOUT PREAMBLE )");
 
  // set PHY to test mode
  #Tp eth_phy.test_regs(1); // set test registers (wholy writable registers) and respond to all PHY addresses
  for (i = 0; i <= 1; i = i + 1)
  begin
    #Tp eth_phy.preamble_suppresed(i);
    #Tp eth_phy.clear_test_regs;
    // MII mode register
    wbm_write(`ETH_MIIMODER, (`ETH_MIIMODER_NOPRE & {23'h0, i, 8'h0}), 4'hF, 1, wbm_init_waits,
              wbm_subseq_waits);
    // walk one across phy address
    for (phy_addr = 5'h1; phy_addr > 5'h0; phy_addr = phy_addr << 1)
    begin
      reg_addr = $random;
      tmp_data = $random;
      // write request
      #Tp mii_write_req(phy_addr, reg_addr, tmp_data);
      check_mii_busy; // wait for write to finish
      // read request
      #Tp mii_read_req(phy_addr, reg_addr);
      check_mii_busy; // wait for read to finish
      // read data
      #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
      #Tp;
      if (phy_data !== tmp_data)
      begin
        if (i)
          test_fail("Data was not correctly written into OR read from test registers (without preamble)");
        else
          test_fail("Data was not correctly written into OR read from test registers (with preamble)");
        fail = fail + 1;
      end
      @(posedge wb_clk);
      #Tp;
    end
  end
  // set PHY to normal mode
  #Tp eth_phy.test_regs(0);
  #Tp eth_phy.preamble_suppresed(0);
  // MII mode register
  wbm_write(`ETH_MIIMODER, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 5) && (end_task >= 5))
begin
  // TEST 'WALKING ONE' ACROSS PHY'S REGISTER ADDRESS ( WITH AND WITHOUT PREAMBLE )
  test_name   = "TEST 'WALKING ONE' ACROSS PHY'S REGISTER ADDRESS ( WITH AND WITHOUT PREAMBLE )";
  `TIME; $display("  TEST 'WALKING ONE' ACROSS PHY'S REGISTER ADDRESS ( WITH AND WITHOUT PREAMBLE )");
 
  // set PHY to test mode
  #Tp eth_phy.test_regs(1); // set test registers (wholy writable registers) and respond to all PHY addresses
  for (i = 0; i <= 1; i = i + 1)
  begin
    #Tp eth_phy.preamble_suppresed(i);
    #Tp eth_phy.clear_test_regs;
    // MII mode register
    wbm_write(`ETH_MIIMODER, (`ETH_MIIMODER_NOPRE & {23'h0, i, 8'h0}), 4'hF, 1, wbm_init_waits,
              wbm_subseq_waits);
    // walk one across reg address
    for (reg_addr = 5'h1; reg_addr > 5'h0; reg_addr = reg_addr << 1)
    begin
      phy_addr = $random;
      tmp_data = $random;
      // write request
      #Tp mii_write_req(phy_addr, reg_addr, tmp_data);
      check_mii_busy; // wait for write to finish
      // read request
      #Tp mii_read_req(phy_addr, reg_addr);
      check_mii_busy; // wait for read to finish
      // read data
      #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
      #Tp;
      if (phy_data !== tmp_data)
      begin
        if (i)
          test_fail("Data was not correctly written into OR read from test registers (without preamble)");
        else
          test_fail("Data was not correctly written into OR read from test registers (with preamble)");
        fail = fail + 1;
      end
      @(posedge wb_clk);
      #Tp;
    end
  end
  // set PHY to normal mode
  #Tp eth_phy.test_regs(0);
  #Tp eth_phy.preamble_suppresed(0);
  // MII mode register
  wbm_write(`ETH_MIIMODER, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 6) && (end_task >= 6))
begin
  // TEST 'WALKING ONE' ACROSS PHY'S DATA ( WITH AND WITHOUT PREAMBLE )
  test_name   = "TEST 'WALKING ONE' ACROSS PHY'S DATA ( WITH AND WITHOUT PREAMBLE )";
  `TIME; $display("  TEST 'WALKING ONE' ACROSS PHY'S DATA ( WITH AND WITHOUT PREAMBLE )");
 
  // set PHY to test mode
  #Tp eth_phy.test_regs(1); // set test registers (wholy writable registers) and respond to all PHY addresses
  for (i = 0; i <= 1; i = i + 1)
  begin
    #Tp eth_phy.preamble_suppresed(i);
    #Tp eth_phy.clear_test_regs;
    // MII mode register
    wbm_write(`ETH_MIIMODER, (`ETH_MIIMODER_NOPRE & {23'h0, i, 8'h0}), 4'hF, 1, wbm_init_waits,
              wbm_subseq_waits);
    // walk one across data
    for (tmp_data = 16'h1; tmp_data > 16'h0; tmp_data = tmp_data << 1)
    begin
      phy_addr = $random;
      reg_addr = $random;
      // write request
      #Tp mii_write_req(phy_addr, reg_addr, tmp_data);
      check_mii_busy; // wait for write to finish
      // read request
      #Tp mii_read_req(phy_addr, reg_addr);
      check_mii_busy; // wait for read to finish
      // read data
      #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
      #Tp;
      if (phy_data !== tmp_data)
      begin
        if (i)
          test_fail("Data was not correctly written into OR read from test registers (without preamble)");
        else
          test_fail("Data was not correctly written into OR read from test registers (with preamble)");
        fail = fail + 1;
      end
      @(posedge wb_clk);
      #Tp;
    end
  end
  // set PHY to normal mode
  #Tp eth_phy.test_regs(0);
  #Tp eth_phy.preamble_suppresed(0);
  // MII mode register
  wbm_write(`ETH_MIIMODER, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 7) && (end_task >= 7))
begin
  // TEST READING FROM PHY WITH WRONG PHY ADDRESS ( HOST READING HIGH 'Z' DATA )
  test_name   = "TEST READING FROM PHY WITH WRONG PHY ADDRESS ( HOST READING HIGH 'Z' DATA )";
  `TIME; $display("  TEST READING FROM PHY WITH WRONG PHY ADDRESS ( HOST READING HIGH 'Z' DATA )");
 
  phy_addr = 5'h2; // wrong PHY address
  // read request
  #Tp mii_read_req(phy_addr, reg_addr);
  check_mii_busy; // wait for read to finish
  // read data
  $display("  => Two errors will be displayed from WB Bus Monitor, because correct HIGH Z data was read");
  #Tp wbm_read(`ETH_MIIRX_DATA, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if (tmp_data !== 16'hzzzz)
  begin
    test_fail("Data was read from PHY register with wrong PHY address - control register");
    fail = fail + 1;
  end
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 8) && (end_task >= 8))
begin
  // TEST WRITING TO PHY WITH WRONG PHY ADDRESS AND READING FROM CORRECT ONE
  test_name   = "TEST WRITING TO PHY WITH WRONG PHY ADDRESS AND READING FROM CORRECT ONE";
  `TIME; $display("  TEST WRITING TO PHY WITH WRONG PHY ADDRESS AND READING FROM CORRECT ONE");
 
  // set address
  reg_addr = 5'h0; // control register
  phy_addr = 5'h2; // wrong PHY address
  // write request
  phy_data = 16'h7DFF; // bit 15 (RESET bit) and bit 9 are self clearing bits
  #Tp mii_write_req(phy_addr, reg_addr, phy_data);
  check_mii_busy; // wait for write to finish
 
  phy_addr = 5'h1; // correct PHY address
  // read request
  #Tp mii_read_req(phy_addr, reg_addr);
  check_mii_busy; // wait for read to finish
  // read data
  #Tp wbm_read(`ETH_MIIRX_DATA, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if (phy_data === tmp_data)
  begin
    test_fail("Data was written into PHY register with wrong PHY address - control register");
    fail = fail + 1;
  end
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 9) && (end_task >= 9))
begin
  // TEST SLIDING STOP SCAN COMMAND IMMEDIATELY AFTER READ REQUEST ( WITH AND WITHOUT PREAMBLE )
  test_name = "TEST SLIDING STOP SCAN COMMAND IMMEDIATELY AFTER READ REQUEST ( WITH AND WITHOUT PREAMBLE )";
  `TIME;
  $display("  TEST SLIDING STOP SCAN COMMAND IMMEDIATELY AFTER READ REQUEST ( WITH AND WITHOUT PREAMBLE )");
 
  for (i2 = 0; i2 <= 1; i2 = i2 + 1) // choose preamble or not
  begin
    #Tp eth_phy.preamble_suppresed(i2);
    // MII mode register
    wbm_write(`ETH_MIIMODER, (`ETH_MIIMODER_NOPRE & {23'h0, i2, 8'h0}), 4'hF, 1, wbm_init_waits,
             wbm_subseq_waits);
    i = 0;
    cnt = 0;
    while (i < 80) // delay for sliding of writing a STOP SCAN command
    begin
      for (i3 = 0; i3 <= 1; i3 = i3 + 1) // choose read or write after read will be finished
      begin
        // set address
        reg_addr = 5'h0; // control register
        phy_addr = 5'h1; // correct PHY address
        cnt = 0;
        // read request
        #Tp mii_read_req(phy_addr, reg_addr);
        fork
          begin
            repeat(i) @(posedge Mdc_O);
            // write command 0x0 into MII command register
            // MII command written while read in progress
            wbm_write(`ETH_MIICOMMAND, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
            @(posedge wb_clk);
            #Tp check_mii_busy; // wait for read to finish
          end
          begin
            // wait for serial bus to become active
            wait(Mdio_IO !== 1'bz);
            // count transfer length
            while( (Mdio_IO !== 1'bz) || ((cnt == 47) && (i2 == 0)) || ((cnt == 15) && (i2 == 1)) )
            begin
              @(posedge Mdc_O);
              #Tp cnt = cnt + 1;
            end
          end
        join
        // check transfer length
        if (i2) // without preamble
        begin
          if (cnt != 33) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("Read request did not proceed correctly, while SCAN STOP command was written");
            fail = fail + 1;
          end
        end
        else // with preamble
        begin
          if (cnt != 65) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("Read request did not proceed correctly, while SCAN STOP command was written");
            fail = fail + 1;
          end
        end
        // check the BUSY signal to see if the bus is still IDLE
        for (i1 = 0; i1 < 8; i1 = i1 + 1)
          check_mii_busy; // wait for bus to become idle
 
        // try normal write or read after read was finished
        #Tp phy_data = {8'h7D, (i[7:0] + 1)};
        #Tp cnt = 0;
        if (i3 == 0) // write after read
        begin
          // write request
          #Tp mii_write_req(phy_addr, reg_addr, phy_data);
          // wait for serial bus to become active
          wait(Mdio_IO !== 1'bz);
          // count transfer length
          while(Mdio_IO !== 1'bz)
          begin
            @(posedge Mdc_O);
            #Tp cnt = cnt + 1;
          end
          @(posedge Mdc_O);
          // read request
          #Tp mii_read_req(phy_addr, reg_addr);
          check_mii_busy; // wait for read to finish
          // read and check data
          #Tp wbm_read(`ETH_MIIRX_DATA, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          if (phy_data !== tmp_data)
          begin
            test_fail("Data was not correctly written into OR read from PHY register - control register");
            fail = fail + 1;
          end
        end
        else // read after read
        begin
          // read request
          #Tp mii_read_req(phy_addr, reg_addr);
          // wait for serial bus to become active
          wait(Mdio_IO !== 1'bz);
          // count transfer length
          while( (Mdio_IO !== 1'bz) || ((cnt == 47) && (i2 == 0)) || ((cnt == 15) && (i2 == 1)) )
          begin
            @(posedge Mdc_O);
            #Tp cnt = cnt + 1;
          end
          @(posedge Mdc_O);
          check_mii_busy; // wait for read to finish
          // read and check data
          #Tp wbm_read(`ETH_MIIRX_DATA, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          if (phy_data !== tmp_data)
          begin
            test_fail("Data was not correctly written into OR read from PHY register - control register");
            fail = fail + 1;
          end
        end
        // check if transfer was a proper length
        if (i2) // without preamble
        begin
          if (cnt != 33) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("New request did not proceed correctly, after read request");
            fail = fail + 1;
          end
        end
        else // with preamble
        begin
          if (cnt != 65) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("New request did not proceed correctly, after read request");
            fail = fail + 1;
          end
        end
      end
      #Tp;
      // set delay of writing the command
      if (i2) // without preamble
      begin
        case(i)
          0, 1:               i = i + 1;
          18, 19, 20, 21, 22,
          23, 24, 25, 26, 27,
          28, 29, 30, 31, 32,
          33, 34, 35:         i = i + 1;
          36:                 i = 80;
          default:            i = 18;
        endcase
      end
      else // with preamble
      begin
        case(i)
          0, 1:               i = i + 1;
          50, 51, 52, 53, 54,
          55, 56, 57, 58, 59,
          60, 61, 62, 63, 64,
          65, 66, 67:         i = i + 1;
          68:                 i = 80;
          default:            i = 50;
        endcase
      end
      @(posedge wb_clk);
    end
  end
  // set PHY to normal mode
  #Tp eth_phy.preamble_suppresed(0);
  // MII mode register
  wbm_write(`ETH_MIIMODER, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 10) && (end_task >= 10))
begin
  // TEST SLIDING STOP SCAN COMMAND IMMEDIATELY AFTER WRITE REQUEST ( WITH AND WITHOUT PREAMBLE )
  test_name = "TEST SLIDING STOP SCAN COMMAND IMMEDIATELY AFTER WRITE REQUEST ( WITH AND WITHOUT PREAMBLE )";
  `TIME;
  $display("  TEST SLIDING STOP SCAN COMMAND IMMEDIATELY AFTER WRITE REQUEST ( WITH AND WITHOUT PREAMBLE )");
 
  for (i2 = 0; i2 <= 1; i2 = i2 + 1) // choose preamble or not
  begin
    #Tp eth_phy.preamble_suppresed(i2);
    // MII mode register
    wbm_write(`ETH_MIIMODER, (`ETH_MIIMODER_NOPRE & {23'h0, i2, 8'h0}), 4'hF, 1, wbm_init_waits,
              wbm_subseq_waits);
    i = 0;
    cnt = 0;
    while (i < 80) // delay for sliding of writing a STOP SCAN command
    begin
      for (i3 = 0; i3 <= 1; i3 = i3 + 1) // choose read or write after write will be finished
      begin
        // set address
        reg_addr = 5'h0; // control register
        phy_addr = 5'h1; // correct PHY address
        cnt = 0;
        // write request
        phy_data = {8'h75, (i[7:0] + 1)};
        #Tp mii_write_req(phy_addr, reg_addr, phy_data);
        fork
          begin
            repeat(i) @(posedge Mdc_O);
            // write command 0x0 into MII command register
            // MII command written while read in progress
            wbm_write(`ETH_MIICOMMAND, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
            @(posedge wb_clk);
            #Tp check_mii_busy; // wait for write to finish
          end
          begin
            // wait for serial bus to become active
            wait(Mdio_IO !== 1'bz);
            // count transfer length
            while(Mdio_IO !== 1'bz)
            begin
              @(posedge Mdc_O);
              #Tp cnt = cnt + 1;
            end
          end
        join
        // check transfer length
        if (i2) // without preamble
        begin
          if (cnt != 33) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("Write request did not proceed correctly, while SCAN STOP command was written");
            fail = fail + 1;
          end
        end
        else // with preamble
        begin
          if (cnt != 65) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("Write request did not proceed correctly, while SCAN STOP command was written");
            fail = fail + 1;
          end
        end
        // check the BUSY signal to see if the bus is still IDLE
        for (i1 = 0; i1 < 8; i1 = i1 + 1)
          check_mii_busy; // wait for bus to become idle
 
        // try normal write or read after write was finished
        #Tp cnt = 0;
        if (i3 == 0) // write after write
        begin
          phy_data = {8'h7A, (i[7:0] + 1)};
          // write request
          #Tp mii_write_req(phy_addr, reg_addr, phy_data);
          // wait for serial bus to become active
          wait(Mdio_IO !== 1'bz);
          // count transfer length
          while(Mdio_IO !== 1'bz)
          begin
            @(posedge Mdc_O);
            #Tp cnt = cnt + 1;
          end
          @(posedge Mdc_O);
          // read request
          #Tp mii_read_req(phy_addr, reg_addr);
          check_mii_busy; // wait for read to finish
          // read and check data
          #Tp wbm_read(`ETH_MIIRX_DATA, tmp_data , 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          if (phy_data !== tmp_data)
          begin
            test_fail("Data was not correctly written into OR read from PHY register - control register");
            fail = fail + 1;
          end
        end
        else // read after write
        begin
          // read request
          #Tp mii_read_req(phy_addr, reg_addr);
          // wait for serial bus to become active
          wait(Mdio_IO !== 1'bz);
          // count transfer length
          while( (Mdio_IO !== 1'bz) || ((cnt == 47) && (i2 == 0)) || ((cnt == 15) && (i2 == 1)) )
          begin
            @(posedge Mdc_O);
            #Tp cnt = cnt + 1;
          end
          @(posedge Mdc_O);
          check_mii_busy; // wait for read to finish
          // read and check data
          #Tp wbm_read(`ETH_MIIRX_DATA, tmp_data , 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          if (phy_data !== tmp_data)
          begin
            test_fail("Data was not correctly written into OR read from PHY register - control register");
            fail = fail + 1;
          end
        end
        // check if transfer was a proper length
        if (i2) // without preamble
        begin
          if (cnt != 33) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("New request did not proceed correctly, after write request");
            fail = fail + 1;
          end
        end
        else // with preamble
        begin
          if (cnt != 65) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("New request did not proceed correctly, after write request");
            fail = fail + 1;
          end
        end
      end
      #Tp;
      // set delay of writing the command
      if (i2) // without preamble
      begin
        case(i)
          0, 1:               i = i + 1;
          18, 19, 20, 21, 22,
          23, 24, 25, 26, 27,
          28, 29, 30, 31, 32,
          33, 34, 35:         i = i + 1;
          36:                 i = 80;
          default:            i = 18;
        endcase
      end
      else // with preamble
      begin
        case(i)
          0, 1:               i = i + 1;
          50, 51, 52, 53, 54,
          55, 56, 57, 58, 59,
          60, 61, 62, 63, 64,
          65, 66, 67:         i = i + 1;
          68:                 i = 80;
          default:            i = 50;
        endcase
      end
      @(posedge wb_clk);
    end
  end
  // set PHY to normal mode
  #Tp eth_phy.preamble_suppresed(0);
  // MII mode register
  wbm_write(`ETH_MIIMODER, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 11) && (end_task >= 11))
begin
  // TEST BUSY AND NVALID STATUS DURATIONS DURING WRITE ( WITH AND WITHOUT PREAMBLE )
  test_name   = "TEST BUSY AND NVALID STATUS DURATIONS DURING WRITE ( WITH AND WITHOUT PREAMBLE )";
  `TIME; $display("  TEST BUSY AND NVALID STATUS DURATIONS DURING WRITE ( WITH AND WITHOUT PREAMBLE )");
 
  reset_mii; // reset MII
  // set link up, if it wasn't due to previous tests, since there weren't PHY registers
  #Tp eth_phy.link_up_down(1);
  // set the MII
  clk_div = 64;
  mii_set_clk_div(clk_div[7:0]);
  // set address
  reg_addr = 5'h1; // status register
  phy_addr = 5'h1; // correct PHY address
 
  for (i = 0; i <= 1; i = i + 1)
  begin
    #Tp eth_phy.preamble_suppresed(i);
    // MII mode register
    wbm_write(`ETH_MIIMODER, (`ETH_MIIMODER_NOPRE & {23'h0, i, 8'h0}) | (`ETH_MIIMODER_CLKDIV & clk_div),
              4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    @(posedge Mdc_O);
    // write request
    #Tp mii_write_req(phy_addr, reg_addr, 16'h5A5A);
    // read data from MII status register - Busy and Nvalid bits
    #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
    // check MII IO signal and Busy and Nvalid bits
    if (Mdio_IO !== 1'bz) // Mdio_IO should be HIGH Z here - testbench selfcheck
    begin
      test_fail("Testbench error - read was to late, Mdio_IO is not HIGH Z - set higher clock divider");
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal was not set while MII IO signal is not HIGH Z anymore - 1. read");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] !== 1'b0)
      begin
        test_fail("Nvalid signal was set during write");
        fail = fail + 1;
      end
    end
    else // Busy bit should already be set to '1', due to reads from MII status register
    begin
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal should be set after write, due to reads from MII status register");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] !== 1'b0)
      begin
        test_fail("Nvalid signal was set during write");
        fail = fail + 1;
      end
    end
 
    // wait for serial bus to become active
    wait(Mdio_IO !== 1'bz);
    // count transfer bits
    if (i)
    begin
      repeat(32) @(posedge Mdc_O);
    end
    else
    begin
      repeat(64) @(posedge Mdc_O);
    end
    // read data from MII status register - Busy and Nvalid bits
    #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
    // check MII IO signal and Busy and Nvalid bits
    if (Mdio_IO === 1'bz) // Mdio_IO should not be HIGH Z here - testbench selfcheck
    begin
      test_fail("Testbench error - read was to late, Mdio_IO is HIGH Z - set higher clock divider");
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal should be set while MII IO signal is not active anymore");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] !== 1'b0)
      begin
        test_fail("Nvalid signal was set during write");
        fail = fail + 1;
      end
    end
    else // Busy bit should still be set to '1'
    begin
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal should be set while MII IO signal not HIGH Z");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] !== 1'b0)
      begin
        test_fail("Nvalid signal was set during write");
        fail = fail + 1;
      end
    end
 
    // wait for next negative clock edge
    @(negedge Mdc_O);
    // read data from MII status register - Busy and Nvalid bits
    #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
    // check MII IO signal and Busy and Nvalid bits
    if (Mdio_IO !== 1'bz) // Mdio_IO should be HIGH Z here - testbench selfcheck
    begin
      test_fail("Testbench error - read was to early, Mdio_IO is not HIGH Z - set higher clock divider");
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal was not set while MII IO signal is not HIGH Z");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] !== 1'b0)
      begin
        test_fail("Nvalid signal was set during write");
        fail = fail + 1;
      end
    end
    else // Busy bit should still be set to '1'
    begin
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal should be set after MII IO signal become HIGH Z");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] !== 1'b0)
      begin
        test_fail("Nvalid signal was set during write");
        fail = fail + 1;
      end
    end
 
    // wait for Busy to become inactive
    i1 = 0;
    while (i1 <= 2)
    begin
      // wait for next positive clock edge
      @(posedge Mdc_O);
      // read data from MII status register - Busy and Nvalid bits
      #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
      // check MII IO signal and Busy and Nvalid bits
      if (Mdio_IO !== 1'bz) // Mdio_IO should be HIGH Z here - testbench selfcheck
      begin
        test_fail("Testbench error - read was to early, Mdio_IO is not HIGH Z - set higher clock divider");
        if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
        begin
          test_fail("Busy signal was not set while MII IO signal is not HIGH Z");
          fail = fail + 1;
        end
        if (phy_data[`ETH_MIISTATUS_NVALID] !== 1'b0)
        begin
          test_fail("Nvalid signal was set during write");
          fail = fail + 1;
        end
      end
      else // wait for Busy bit to be set to '0'
      begin
        if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
        begin
          i1 = 3; // end of Busy checking
        end
        else
        begin
          if (i1 == 2)
          begin
            test_fail("Busy signal should be cleared after 2 periods after MII IO signal become HIGH Z");
            fail = fail + 1;
          end
          #Tp i1 = i1 + 1;
        end
        if (phy_data[`ETH_MIISTATUS_NVALID] !== 1'b0)
        begin
          test_fail("Nvalid signal was set after write");
          fail = fail + 1;
        end
      end
    end
  end
  // set PHY to normal mode
  #Tp eth_phy.preamble_suppresed(0);
  // MII mode register
  wbm_write(`ETH_MIIMODER, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 12) && (end_task >= 12))
begin
  // TEST BUSY AND NVALID STATUS DURATIONS DURING READ ( WITH AND WITHOUT PREAMBLE )
  test_name   = "TEST BUSY AND NVALID STATUS DURATIONS DURING READ ( WITH AND WITHOUT PREAMBLE )";
  `TIME; $display("  TEST BUSY AND NVALID STATUS DURATIONS DURING READ ( WITH AND WITHOUT PREAMBLE )");
 
  reset_mii; // reset MII
  // set link up, if it wasn't due to previous tests, since there weren't PHY registers
  #Tp eth_phy.link_up_down(1);
  // set the MII
  clk_div = 64;
  mii_set_clk_div(clk_div[7:0]);
  // set address
  reg_addr = 5'h1; // status register
  phy_addr = 5'h1; // correct PHY address
 
  for (i = 0; i <= 1; i = i + 1)
  begin
    #Tp eth_phy.preamble_suppresed(i);
    // MII mode register
    wbm_write(`ETH_MIIMODER, (`ETH_MIIMODER_NOPRE & {23'h0, i, 8'h0}) | (`ETH_MIIMODER_CLKDIV & clk_div),
              4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    @(posedge Mdc_O);
    // read request
    #Tp mii_read_req(phy_addr, reg_addr);
    // read data from MII status register - Busy and Nvalid bits
    #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
    // check MII IO signal and Busy and Nvalid bits
    if (Mdio_IO !== 1'bz) // Mdio_IO should be HIGH Z here - testbench selfcheck
    begin
      test_fail("Testbench error - read was to late, Mdio_IO is not HIGH Z - set higher clock divider");
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal was not set while MII IO signal is not HIGH Z anymore - 1. read");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] !== 1'b0)
      begin
        test_fail("Nvalid signal was set during read");
        fail = fail + 1;
      end
    end
    else // Busy bit should already be set to '1', due to reads from MII status register
    begin
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal should be set after read, due to reads from MII status register");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] !== 1'b0)
      begin
        test_fail("Nvalid signal was set during read");
        fail = fail + 1;
      end
    end
 
    // wait for serial bus to become active
    wait(Mdio_IO !== 1'bz);
    // count transfer bits
    if (i)
    begin
      repeat(31) @(posedge Mdc_O);
    end
    else
    begin
      repeat(63) @(posedge Mdc_O);
    end
    // wait for next negative clock edge
    @(negedge Mdc_O);
    // read data from MII status register - Busy and Nvalid bits
    #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
    // check MII IO signal and Busy and Nvalid bits
    if (Mdio_IO === 1'bz) // Mdio_IO should not be HIGH Z here - testbench selfcheck
    begin
      test_fail("Testbench error - read was to late, Mdio_IO is HIGH Z - set higher clock divider");
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal should be set while MII IO signal is not active anymore");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] !== 1'b0)
      begin
        test_fail("Nvalid signal was set during read");
        fail = fail + 1;
      end
    end
    else // Busy bit should still be set to '1'
    begin
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal should be set while MII IO signal not HIGH Z");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] !== 1'b0)
      begin
        test_fail("Nvalid signal was set during read");
        fail = fail + 1;
      end
    end
 
    // wait for next positive clock edge
    @(posedge Mdc_O);
    // read data from MII status register - Busy and Nvalid bits
    #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
    // check MII IO signal and Busy and Nvalid bits
    if (Mdio_IO !== 1'bz) // Mdio_IO should be HIGH Z here - testbench selfcheck
    begin
      test_fail("Testbench error - read was to early, Mdio_IO is not HIGH Z - set higher clock divider");
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal was not set while MII IO signal is not HIGH Z");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] !== 1'b0)
      begin
        test_fail("Nvalid signal was set during read");
        fail = fail + 1;
      end
    end
    else // Busy bit should still be set to '1'
    begin
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal should be set after MII IO signal become HIGH Z");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] !== 1'b0)
      begin
        test_fail("Nvalid signal was set during read");
        fail = fail + 1;
      end
    end
 
    // wait for Busy to become inactive
    i1 = 0;
    while (i1 <= 2)
    begin
      // wait for next positive clock edge
      @(posedge Mdc_O);
      // read data from MII status register - Busy and Nvalid bits
      #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
      // check MII IO signal and Busy and Nvalid bits
      if (Mdio_IO !== 1'bz) // Mdio_IO should be HIGH Z here - testbench selfcheck
      begin
        test_fail("Testbench error - read was to early, Mdio_IO is not HIGH Z - set higher clock divider");
        if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
        begin
          test_fail("Busy signal was not set while MII IO signal is not HIGH Z");
          fail = fail + 1;
        end
        if (phy_data[`ETH_MIISTATUS_NVALID] !== 1'b0)
        begin
          test_fail("Nvalid signal was set during read");
          fail = fail + 1;
        end
      end
      else // wait for Busy bit to be set to '0'
      begin
        if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
        begin
          i1 = 3; // end of Busy checking
        end
        else
        begin
          if (i1 == 2)
          begin
            test_fail("Busy signal should be cleared after 2 periods after MII IO signal become HIGH Z");
            fail = fail + 1;
          end
          #Tp i1 = i1 + 1;
        end
        if (phy_data[`ETH_MIISTATUS_NVALID] !== 1'b0)
        begin
          test_fail("Nvalid signal was set after read");
          fail = fail + 1;
        end
      end
    end
  end
  // set PHY to normal mode
  #Tp eth_phy.preamble_suppresed(0);
  // MII mode register
  wbm_write(`ETH_MIIMODER, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 13) && (end_task >= 13))
begin
  // TEST BUSY AND NVALID STATUS DURATIONS DURING SCAN ( WITH AND WITHOUT PREAMBLE )
  test_name   = "TEST BUSY AND NVALID STATUS DURATIONS DURING SCAN ( WITH AND WITHOUT PREAMBLE )";
  `TIME; $display("  TEST BUSY AND NVALID STATUS DURATIONS DURING SCAN ( WITH AND WITHOUT PREAMBLE )");
 
  reset_mii; // reset MII
  // set link up, if it wasn't due to previous tests, since there weren't PHY registers
  #Tp eth_phy.link_up_down(1);
  // set the MII
  clk_div = 64;
  mii_set_clk_div(clk_div[7:0]);
  // set address
  reg_addr = 5'h1; // status register
  phy_addr = 5'h1; // correct PHY address
 
  for (i = 0; i <= 1; i = i + 1)
  begin
    #Tp eth_phy.preamble_suppresed(i);
    // MII mode register
    wbm_write(`ETH_MIIMODER, (`ETH_MIIMODER_NOPRE & {23'h0, i, 8'h0}) | (`ETH_MIIMODER_CLKDIV & clk_div),
              4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    @(posedge Mdc_O);
    // scan request
    #Tp mii_scan_req(phy_addr, reg_addr);
    // read data from MII status register - Busy and Nvalid bits
    #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
    // check MII IO signal and Busy and Nvalid bits
    if (Mdio_IO !== 1'bz) // Mdio_IO should be HIGH Z here - testbench selfcheck
    begin
      test_fail("Testbench error - read was to late, Mdio_IO is not HIGH Z - set higher clock divider");
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal was not set while MII IO signal is not HIGH Z anymore - 1. read");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] === 1'b0)
      begin
        test_fail("Nvalid signal was not set while MII IO signal is not HIGH Z anymore - 1. read");
        fail = fail + 1;
      end
    end
    else // Busy bit should already be set to '1', due to reads from MII status register
    begin
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal should be set after scan, due to reads from MII status register");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] === 1'b0)
      begin
        test_fail("Nvalid signal should be set after scan, due to reads from MII status register");
        fail = fail + 1;
      end
    end
 
    // wait for serial bus to become active
    wait(Mdio_IO !== 1'bz);
    // count transfer bits
    if (i)
    begin
      repeat(21) @(posedge Mdc_O);
    end
    else
    begin
      repeat(53) @(posedge Mdc_O);
    end
    // stop scan
    #Tp mii_scan_finish; // finish scan operation
 
    // wait for next positive clock edge
    repeat(10) @(posedge Mdc_O);
    // read data from MII status register - Busy and Nvalid bits
    #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
    // check MII IO signal and Busy and Nvalid bits
    if (Mdio_IO === 1'bz) // Mdio_IO should not be HIGH Z here - testbench selfcheck
    begin
      test_fail("Testbench error - read was to late, Mdio_IO is HIGH Z - set higher clock divider");
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal should be set while MII IO signal is not active anymore");
        fail = fail + 1;
      end
      // Nvalid signal can be cleared here - it is still Testbench error
    end
    else // Busy bit should still be set to '1', Nvalid bit should still be set to '1'
    begin
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal should be set while MII IO signal not HIGH Z");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] === 1'b0)
      begin
        test_fail("Nvalid signal should be set while MII IO signal not HIGH Z");
        fail = fail + 1;
      end
    end
 
    // wait for next negative clock edge
    @(negedge Mdc_O);
    // read data from MII status register - Busy and Nvalid bits
    #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
    // check MII IO signal and Busy and Nvalid bits
    if (Mdio_IO === 1'bz) // Mdio_IO should not be HIGH Z here - testbench selfcheck
    begin
      test_fail("Testbench error - read was to late, Mdio_IO is HIGH Z - set higher clock divider");
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal should be set while MII IO signal is not active anymore");
        fail = fail + 1;
      end
      // Nvalid signal can be cleared here - it is still Testbench error
    end
    else // Busy bit should still be set to '1', Nvalid bit should still be set to '1'
    begin
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal should be set while MII IO signal not HIGH Z");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] === 1'b0)
      begin
        test_fail("Nvalid signal should be set while MII IO signal not HIGH Z");
        fail = fail + 1;
      end
    end
 
    // wait for next negative clock edge
    @(posedge Mdc_O);
    // read data from MII status register - Busy and Nvalid bits
    #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
    // check MII IO signal and Busy and Nvalid bits
    if (Mdio_IO !== 1'bz) // Mdio_IO should be HIGH Z here - testbench selfcheck
    begin
      test_fail("Testbench error - read was to early, Mdio_IO is not HIGH Z - set higher clock divider");
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal was not set while MII IO signal is not HIGH Z");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] === 1'b0)
      begin
        test_fail("Nvalid signal was not set while MII IO signal is not HIGH Z");
        fail = fail + 1;
      end
    end
    else // Busy bit should still be set to '1', Nvalid bit can be set to '0'
    begin
      if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
      begin
        test_fail("Busy signal should be set after MII IO signal become HIGH Z");
        fail = fail + 1;
      end
      if (phy_data[`ETH_MIISTATUS_NVALID] === 1'b0)
      begin
        i2 = 1; // check finished
      end
      else
      begin
        i2 = 0; // check must continue
      end
    end
 
    // wait for Busy to become inactive
    i1 = 0;
    while ((i1 <= 2) || (i2 == 0))
    begin
      // wait for next positive clock edge
      @(posedge Mdc_O);
      // read data from MII status register - Busy and Nvalid bits
      #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
      // check MII IO signal and Busy and Nvalid bits
      if (Mdio_IO !== 1'bz) // Mdio_IO should be HIGH Z here - testbench selfcheck
      begin
        test_fail("Testbench error - read was to early, Mdio_IO is not HIGH Z - set higher clock divider");
        if (i1 <= 2)
        begin
          if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
          begin
            test_fail("Busy signal was not set while MII IO signal is not HIGH Z");
            fail = fail + 1;
          end
        end
        if (i2 == 0)
        begin
          if (phy_data[`ETH_MIISTATUS_NVALID] === 1'b0)
          begin
            test_fail("Nvalid signal was not set while MII IO signal is not HIGH Z");
            fail = fail + 1;
          end
        end
      end
      else // wait for Busy bit to be set to '0'
      begin
        if (i1 <= 2)
        begin
          if (phy_data[`ETH_MIISTATUS_BUSY] === 1'b0)
          begin
            i1 = 3; // end of Busy checking
          end
          else
          begin
            if (i1 == 2)
            begin
              test_fail("Busy signal should be cleared after 2 periods after MII IO signal become HIGH Z");
              fail = fail + 1;
            end
            #Tp i1 = i1 + 1;
          end
        end
        if (i2 == 0)
        begin
          if (phy_data[`ETH_MIISTATUS_NVALID] === 1'b0)
          begin
            i2 = 1;
          end
          else
          begin
            test_fail("Nvalid signal should be cleared after MII IO signal become HIGH Z");
            fail = fail + 1;
          end
        end
      end
    end
  end
  // set PHY to normal mode
  #Tp eth_phy.preamble_suppresed(0);
  // MII mode register
  wbm_write(`ETH_MIIMODER, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 14) && (end_task >= 14))
begin
  // TEST SCAN STATUS FROM PHY WITH DETECTING LINK-FAIL BIT ( WITH AND WITHOUT PREAMBLE )
  test_name   = "TEST SCAN STATUS FROM PHY WITH DETECTING LINK-FAIL BIT ( WITH AND WITHOUT PREAMBLE )";
  `TIME; $display("  TEST SCAN STATUS FROM PHY WITH DETECTING LINK-FAIL BIT ( WITH AND WITHOUT PREAMBLE )");
 
  reset_mii; // reset MII
  // set link up, if it wasn't due to previous tests, since there weren't PHY registers
  #Tp eth_phy.link_up_down(1);
  // set MII speed
  clk_div = 6;
  mii_set_clk_div(clk_div[7:0]);
  // set address
  reg_addr = 5'h1; // status register
  phy_addr = 5'h1; // correct PHY address
 
  // read request
  #Tp mii_read_req(phy_addr, reg_addr);
  check_mii_busy; // wait for read to finish
  // read data from PHY status register - remember LINK-UP status
  #Tp wbm_read(`ETH_MIIRX_DATA, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
  for (i = 0; i <= 1; i = i + 1)
  begin
    #Tp eth_phy.preamble_suppresed(i);
    // MII mode register
    wbm_write(`ETH_MIIMODER, (`ETH_MIIMODER_NOPRE & {23'h0, i, 8'h0}) | (`ETH_MIIMODER_CLKDIV & clk_div),
              4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    if (i)
    begin
      // change saved data when preamble is suppressed
      #Tp tmp_data = tmp_data | 16'h0040; // put bit 6 to ONE
    end
 
    // scan request
    #Tp mii_scan_req(phy_addr, reg_addr);
    check_mii_scan_valid; // wait for scan to make first data valid
 
    fork
    begin
      repeat(2) @(posedge Mdc_O);
      // read data from PHY status register
      #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
      if (phy_data !== tmp_data)
      begin
        test_fail("Data was not correctly scaned from status register");
        fail = fail + 1;
      end
      // read data from MII status register
      #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
      if (phy_data[0] !== 1'b0)
      begin
        test_fail("Link FAIL bit was set in the MII status register");
        fail = fail + 1;
      end
    end
    begin
    // Completely check second scan
      #Tp cnt = 0;
      // wait for serial bus to become active - second scan
      wait(Mdio_IO !== 1'bz);
      // count transfer length
      while( (Mdio_IO !== 1'bz) || ((cnt == 47) && (i == 0)) || ((cnt == 15) && (i == 1)) )
      begin
        @(posedge Mdc_O);
        #Tp cnt = cnt + 1;
      end
      // check transfer length
      if (i) // without preamble
      begin
        if (cnt != 33) // at this value Mdio_IO is HIGH Z
        begin
          test_fail("Second scan request did not proceed correctly");
          fail = fail + 1;
        end
      end
      else // with preamble
      begin
        if (cnt != 65) // at this value Mdio_IO is HIGH Z
        begin
          test_fail("Second scan request did not proceed correctly");
          fail = fail + 1;
        end
      end
    end
    join
    // check third to fifth scans
    for (i3 = 0; i3 <= 2; i3 = i3 + 1)
    begin
      fork
      begin
        repeat(2) @(posedge Mdc_O);
        // read data from PHY status register
        #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
        if (phy_data !== tmp_data)
        begin
          test_fail("Data was not correctly scaned from status register");
          fail = fail + 1;
        end
        // read data from MII status register
        #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
        if (phy_data[0] !== 1'b0)
        begin
          test_fail("Link FAIL bit was set in the MII status register");
          fail = fail + 1;
        end
        if (i3 == 2) // after fourth scan read
        begin
          @(posedge Mdc_O);
          // change saved data
          #Tp tmp_data = tmp_data & 16'hFFFB; // put bit 3 to ZERO
          // set link down
          #Tp eth_phy.link_up_down(0);
        end
      end
      begin
      // Completely check scans
        #Tp cnt = 0;
        // wait for serial bus to become active - second scan
        wait(Mdio_IO !== 1'bz);
        // count transfer length
        while( (Mdio_IO !== 1'bz) || ((cnt == 47) && (i == 0)) || ((cnt == 15) && (i == 1)) )
        begin
          @(posedge Mdc_O);
          #Tp cnt = cnt + 1;
        end
        // check transfer length
        if (i) // without preamble
        begin
          if (cnt != 33) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("Fifth scan request did not proceed correctly");
            fail = fail + 1;
          end
        end
        else // with preamble
        begin
          if (cnt != 65) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("Fifth scan request did not proceed correctly");
            fail = fail + 1;
          end
        end
      end
      join
    end
 
    fork
    begin
      repeat(2) @(posedge Mdc_O);
      // read data from PHY status register
      #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
      if (phy_data !== tmp_data)
      begin
        test_fail("Data was not correctly scaned from status register");
        fail = fail + 1;
      end
      // read data from MII status register
      #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
      if (phy_data[0] === 1'b0)
      begin
        test_fail("Link FAIL bit was not set in the MII status register");
        fail = fail + 1;
      end
      // wait to see if data stayed latched
      repeat(4) @(posedge Mdc_O);
      // read data from PHY status register
      #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
      if (phy_data !== tmp_data)
      begin
        test_fail("Data was not latched correctly in status register");
        fail = fail + 1;
      end
      // read data from MII status register
      #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
      if (phy_data[0] === 1'b0)
      begin
        test_fail("Link FAIL bit was not set in the MII status register");
        fail = fail + 1;
      end
      // change saved data
      #Tp tmp_data = tmp_data | 16'h0004; // put bit 2 to ONE
      // set link up
      #Tp eth_phy.link_up_down(1);
    end
    begin
    // Wait for sixth scan
      // wait for serial bus to become active - sixth scan
      wait(Mdio_IO !== 1'bz);
      // wait for serial bus to become inactive - turn-around cycle in sixth scan
      wait(Mdio_IO === 1'bz);
      // wait for serial bus to become active - end of turn-around cycle in sixth scan
      wait(Mdio_IO !== 1'bz);
      // wait for serial bus to become inactive - end of sixth scan
      wait(Mdio_IO === 1'bz);
    end
    join
 
    @(posedge Mdc_O);
    // read data from PHY status register
    #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    if (phy_data !== tmp_data)
    begin
      test_fail("Data was not correctly scaned from status register");
      fail = fail + 1;
    end
    // read data from MII status register
    #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    if (phy_data[0] !== 1'b0)
    begin
      test_fail("Link FAIL bit was set in the MII status register");
      fail = fail + 1;
    end
    // wait to see if data stayed latched
    repeat(4) @(posedge Mdc_O);
    // read data from PHY status register
    #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    if (phy_data !== tmp_data)
    begin
      test_fail("Data was not correctly scaned from status register");
      fail = fail + 1;
    end
    // read data from MII status register
    #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    if (phy_data[0] !== 1'b0)
    begin
      test_fail("Link FAIL bit was set in the MII status register");
      fail = fail + 1;
    end
 
    // STOP SCAN
    #Tp mii_scan_finish; // finish scan operation
    #Tp check_mii_busy; // wait for scan to finish
  end
  // set PHY to normal mode
  #Tp eth_phy.preamble_suppresed(0);
  // MII mode register
  wbm_write(`ETH_MIIMODER, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 15) && (end_task >= 15))
begin
  // TEST SCAN STATUS FROM PHY WITH SLIDING LINK-FAIL BIT ( WITH AND WITHOUT PREAMBLE )
  test_name   = "TEST SCAN STATUS FROM PHY WITH SLIDING LINK-FAIL BIT ( WITH AND WITHOUT PREAMBLE )";
  `TIME; $display("  TEST SCAN STATUS FROM PHY WITH SLIDING LINK-FAIL BIT ( WITH AND WITHOUT PREAMBLE )");
 
  // set address
  reg_addr = 5'h1; // status register
  phy_addr = 5'h1; // correct PHY address
 
  // read request
  #Tp mii_read_req(phy_addr, reg_addr);
  check_mii_busy; // wait for read to finish
  // read data from PHY status register - remember LINK-UP status
  #Tp wbm_read(`ETH_MIIRX_DATA, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
  for (i2 = 0; i2 <= 1; i2 = i2 + 1) // choose preamble or not
  begin
    #Tp eth_phy.preamble_suppresed(i2);
    // MII mode register
    #Tp wbm_write(`ETH_MIIMODER, (`ETH_MIIMODER_NOPRE & {23'h0, i2, 8'h0}), 4'hF, 1, wbm_init_waits,
                  wbm_subseq_waits);
    if (i2)
    begin
      // change saved data when preamble is suppressed
      #Tp tmp_data = tmp_data | 16'h0040; // put bit 6 to ONE
    end
 
    i = 0;
    while (i < 80) // delay for sliding of LinkFail bit
    begin
      // first there are two scans
      #Tp cnt = 0;
      // scan request
      #Tp mii_scan_req(phy_addr, reg_addr);
      #Tp check_mii_scan_valid; // wait for scan to make first data valid
 
      // check second scan
      fork
      begin
        repeat(4) @(posedge Mdc_O);
        // read data from PHY status register
        #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
        if (phy_data !== tmp_data)
        begin
          test_fail("Second data was not correctly scaned from status register");
          fail = fail + 1;
        end
        // read data from MII status register
        #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
        if (phy_data[0] !== 1'b0)
        begin
          test_fail("Link FAIL bit was set in the MII status register");
          fail = fail + 1;
        end
      end
      begin
      // Completely check scan
        #Tp cnt = 0;
        // wait for serial bus to become active - second scan
        wait(Mdio_IO !== 1'bz);
        // count transfer length
        while( (Mdio_IO !== 1'bz) || ((cnt == 47) && (i2 == 0)) || ((cnt == 15) && (i2 == 1)) )
        begin
          @(posedge Mdc_O);
          #Tp cnt = cnt + 1;
        end
        // check transfer length
        if (i2) // without preamble
        begin
          if (cnt != 33) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("Second scan request did not proceed correctly");
            fail = fail + 1;
          end
        end
        else // with preamble
        begin
          if (cnt != 65) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("Second scan request did not proceed correctly");
            fail = fail + 1;
          end
        end
      end
      join
      // reset counter 
      #Tp cnt = 0;
      // SLIDING LINK DOWN and CHECK
      fork
        begin
        // set link down
          repeat(i) @(posedge Mdc_O);
          // set link down
          #Tp eth_phy.link_up_down(0);
        end
        begin
        // check data in MII registers after each scan in this fork statement
          if (i2) // without preamble
            wait (cnt == 32);
          else // with preamble
            wait (cnt == 64);
          repeat(3) @(posedge Mdc_O);
          // read data from PHY status register
          #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          if ( ((i < 49) && !i2) || ((i < 17) && i2) )
          begin
            if (phy_data !== (tmp_data & 16'hFFFB)) // bit 3 is ZERO
            begin
              test_fail("Third data was not correctly scaned from status register");
              fail = fail + 1;
            end
          end
          else
          begin
            if (phy_data !== tmp_data)
            begin
              test_fail("Third data was not correctly scaned from status register");
              fail = fail + 1;
            end
          end
          // read data from MII status register
          #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          if ( ((i < 49) && !i2) || ((i < 17) && i2) )
          begin
            if (phy_data[0] === 1'b0)
            begin
              test_fail("Link FAIL bit was not set in the MII status register");
              fail = fail + 1;
            end
          end
          else
          begin
            if (phy_data[0] !== 1'b0)
            begin
              test_fail("Link FAIL bit was set in the MII status register");
              fail = fail + 1;
            end
          end
        end
        begin
        // check length
          for (i3 = 0; i3 <= 1; i3 = i3 + 1) // two scans
          begin
            #Tp cnt = 0;
            // wait for serial bus to become active if there is more than one scan
            wait(Mdio_IO !== 1'bz);
            // count transfer length
            while( (Mdio_IO !== 1'bz) || ((cnt == 47) && (i2 == 0)) || ((cnt == 15) && (i2 == 1)) )
            begin
              @(posedge Mdc_O);
              #Tp cnt = cnt + 1;
            end
            // check transfer length
            if (i2) // without preamble
            begin
              if (cnt != 33) // at this value Mdio_IO is HIGH Z
              begin
                test_fail("3. or 4. scan request did not proceed correctly, while SCAN STOP was written");
                fail = fail + 1;
              end
            end
            else // with preamble
            begin
              if (cnt != 65) // at this value Mdio_IO is HIGH Z
              begin
                test_fail("3. or 4. scan request did not proceed correctly, while SCAN STOP was written");
                fail = fail + 1;
              end
            end
          end
        end
      join
      // reset counter
      #Tp cnt = 0;
      // check fifth scan and data from fourth scan
      fork
      begin
        repeat(2) @(posedge Mdc_O);
        // read data from PHY status register
        #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
        if (phy_data !== (tmp_data & 16'hFFFB)) // bit 3 is ZERO
        begin
          test_fail("4. data was not correctly scaned from status register");
          fail = fail + 1;
        end
        // read data from MII status register
        #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
        if (phy_data[0] === 1'b0)
        begin
          test_fail("Link FAIL bit was not set in the MII status register");
          fail = fail + 1;
        end
      end
      begin
      // Completely check intermediate scan
        #Tp cnt = 0;
        // wait for serial bus to become active - second scan
        wait(Mdio_IO !== 1'bz);
        // count transfer length
        while( (Mdio_IO !== 1'bz) || ((cnt == 47) && (i2 == 0)) || ((cnt == 15) && (i2 == 1)) )
        begin
          @(posedge Mdc_O);
          #Tp cnt = cnt + 1;
        end
        // check transfer length
        if (i2) // without preamble
        begin
          if (cnt != 33) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("Fifth scan request did not proceed correctly");
            fail = fail + 1;
          end
        end
        else // with preamble
        begin
          if (cnt != 65) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("Fifth scan request did not proceed correctly");
            fail = fail + 1;
          end
        end
      end
      join
      // reset counter 
      #Tp cnt = 0;
      // SLIDING LINK UP and CHECK
      fork
        begin
        // set link up
          repeat(i) @(posedge Mdc_O);
          // set link up
          #Tp eth_phy.link_up_down(1);
        end
        begin
        // check data in MII registers after each scan in this fork statement
          repeat(2) @(posedge Mdc_O);
          if (i2) // without preamble
            wait (cnt == 32);
          else // with preamble
            wait (cnt == 64);
          repeat(3) @(posedge Mdc_O);
          // read data from PHY status register
          #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          if ( ((i < 49) && !i2) || ((i < 17) && i2) )
          begin
            if (phy_data !== tmp_data)
            begin
              test_fail("6. data was not correctly scaned from status register");
              fail = fail + 1;
            end
          end
          else
          begin
            if (phy_data !== (tmp_data & 16'hFFFB)) // bit 3 is ZERO
            begin
              test_fail("6. data was not correctly scaned from status register");
              fail = fail + 1;
            end
          end
          // read data from MII status register
          #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          if ( ((i < 49) && !i2) || ((i < 17) && i2) )
          begin
            if (phy_data[0] !== 1'b0)
            begin
              test_fail("Link FAIL bit was set in the MII status register");
              fail = fail + 1;
            end
          end
          else
          begin
            if (phy_data[0] === 1'b0)
            begin
              test_fail("Link FAIL bit was not set in the MII status register");
              fail = fail + 1;
            end
          end
        end
        begin
        // check length
          for (i3 = 0; i3 <= 1; i3 = i3 + 1) // two scans
          begin
            #Tp cnt = 0;
            // wait for serial bus to become active if there is more than one scan
            wait(Mdio_IO !== 1'bz);
            // count transfer length
            while( (Mdio_IO !== 1'bz) || ((cnt == 47) && (i2 == 0)) || ((cnt == 15) && (i2 == 1)) )
            begin
              @(posedge Mdc_O);
              #Tp cnt = cnt + 1;
            end
            // check transfer length
            if (i2) // without preamble
            begin
              if (cnt != 33) // at this value Mdio_IO is HIGH Z
              begin
                test_fail("Scan request did not proceed correctly, while SCAN STOP was written");
                fail = fail + 1;
              end
            end
            else // with preamble
            begin
              if (cnt != 65) // at this value Mdio_IO is HIGH Z
              begin
                test_fail("Scan request did not proceed correctly, while SCAN STOP was written");
                fail = fail + 1;
              end
            end
          end
        end
      join
      // check last scan 
      repeat(4) @(posedge Mdc_O);
      // read data from PHY status register
      #Tp wbm_read(`ETH_MIIRX_DATA, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
      if (phy_data !== tmp_data)
      begin
        test_fail("7. data was not correctly scaned from status register");
        fail = fail + 1;
      end
      // read data from MII status register
      #Tp wbm_read(`ETH_MIISTATUS, phy_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
      if (phy_data[0] !== 1'b0)
      begin
        test_fail("Link FAIL bit was set in the MII status register");
        fail = fail + 1;
      end
 
      #Tp mii_scan_finish; // finish scan operation
      #Tp check_mii_busy; // wait for scan to finish
      #Tp;
      // set delay of writing the command
      if (i2) // without preamble
      begin
        case(i)
          0,  1,  2,  3,  4:  i = i + 1;
          13, 14, 15, 16, 17,
          18, 19, 20, 21, 22,
          23, 24, 25, 26, 27,
          28, 29, 30, 31, 32,
          33, 34, 35:         i = i + 1;
          36:                 i = 80;
          default:            i = 13;
        endcase
      end
      else // with preamble
      begin
        case(i)
          0,  1,  2,  3,  4:  i = i + 1;
          45, 46, 47, 48, 49,
          50, 51, 52, 53, 54,
          55, 56, 57, 58, 59,
          60, 61, 62, 63, 64,
          65, 66, 67:         i = i + 1;
          68:                 i = 80;
          default:            i = 45;
        endcase
      end
      @(posedge wb_clk);
      #Tp;
    end
  end
  // set PHY to normal mode
  #Tp eth_phy.preamble_suppresed(0);
  // MII mode register
  wbm_write(`ETH_MIIMODER, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 16) && (end_task >= 16))
begin
  // TEST SLIDING STOP SCAN COMMAND IMMEDIATELY AFTER SCAN REQUEST ( WITH AND WITHOUT PREAMBLE )
  test_name = "TEST SLIDING STOP SCAN COMMAND IMMEDIATELY AFTER SCAN REQUEST ( WITH AND WITHOUT PREAMBLE )";
  `TIME;
  $display("  TEST SLIDING STOP SCAN COMMAND IMMEDIATELY AFTER SCAN REQUEST ( WITH AND WITHOUT PREAMBLE )");
 
  for (i2 = 0; i2 <= 1; i2 = i2 + 1) // choose preamble or not
  begin
    #Tp eth_phy.preamble_suppresed(i2);
    // MII mode register
    wbm_write(`ETH_MIIMODER, (`ETH_MIIMODER_NOPRE & {23'h0, i2, 8'h0}), 4'hF, 1, wbm_init_waits,
              wbm_subseq_waits);
    i = 0;
    cnt = 0;
    while (i < 80) // delay for sliding of writing a STOP SCAN command
    begin
      for (i3 = 0; i3 <= 1; i3 = i3 + 1) // choose read or write after scan will be finished
      begin
        // set address
        reg_addr = 5'h0; // control register
        phy_addr = 5'h1; // correct PHY address
        cnt = 0;
        // scan request
        #Tp mii_scan_req(phy_addr, reg_addr);
        fork
          begin
            repeat(i) @(posedge Mdc_O);
            // write command 0x0 into MII command register
            // MII command written while scan in progress
            wbm_write(`ETH_MIICOMMAND, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
            @(posedge wb_clk);
            #Tp check_mii_busy; // wait for scan to finish
            @(posedge wb_clk);
            disable check;
          end
          begin: check
            // wait for serial bus to become active
            wait(Mdio_IO !== 1'bz);
            // count transfer length
            while( (Mdio_IO !== 1'bz) || ((cnt == 47) && (i2 == 0)) || ((cnt == 15) && (i2 == 1)) )
            begin
              @(posedge Mdc_O);
              #Tp cnt = cnt + 1;
            end
            // check transfer length
            if (i2) // without preamble
            begin
              if (cnt != 33) // at this value Mdio_IO is HIGH Z
              begin
                test_fail("First scan request did not proceed correctly, while SCAN STOP was written");
                fail = fail + 1;
              end
            end
            else // with preamble
            begin
              if (cnt != 65) // at this value Mdio_IO is HIGH Z
              begin
                test_fail("First scan request did not proceed correctly, while SCAN STOP was written");
                fail = fail + 1;
              end
            end
            cnt = 0;
            // wait for serial bus to become active if there is more than one scan
            wait(Mdio_IO !== 1'bz);
            // count transfer length
            while( (Mdio_IO !== 1'bz) || ((cnt == 47) && (i2 == 0)) || ((cnt == 15) && (i2 == 1)) )
            begin
              @(posedge Mdc_O);
              #Tp cnt = cnt + 1;
            end
            // check transfer length
            if (i2) // without preamble
            begin
              if (cnt != 33) // at this value Mdio_IO is HIGH Z
              begin
                test_fail("First scan request did not proceed correctly, while SCAN STOP was written");
                fail = fail + 1;
              end
            end
            else // with preamble
            begin
              if (cnt != 65) // at this value Mdio_IO is HIGH Z
              begin
                test_fail("First scan request did not proceed correctly, while SCAN STOP was written");
                fail = fail + 1;
              end
            end
          end
        join
        // check the BUSY signal to see if the bus is still IDLE
        for (i1 = 0; i1 < 8; i1 = i1 + 1)
          check_mii_busy; // wait for bus to become idle
 
        // try normal write or read after scan was finished
        phy_data = {8'h7D, (i[7:0] + 1)};
        cnt = 0;
        if (i3 == 0) // write after scan
        begin
          // write request
          #Tp mii_write_req(phy_addr, reg_addr, phy_data);
          // wait for serial bus to become active
          wait(Mdio_IO !== 1'bz);
          // count transfer length
          while(Mdio_IO !== 1'bz)
          begin
            @(posedge Mdc_O);
            #Tp cnt = cnt + 1;
          end
          @(posedge Mdc_O);
          // read request
          #Tp mii_read_req(phy_addr, reg_addr);
          check_mii_busy; // wait for read to finish
          // read and check data
          #Tp wbm_read(`ETH_MIIRX_DATA, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          if (phy_data !== tmp_data)
          begin
            test_fail("Data was not correctly written into OR read from PHY register - control register");
            fail = fail + 1;
          end
        end
        else // read after scan
        begin
          // read request
          #Tp mii_read_req(phy_addr, reg_addr);
          // wait for serial bus to become active
          wait(Mdio_IO !== 1'bz);
          // count transfer length
          while( (Mdio_IO !== 1'bz) || ((cnt == 47) && (i2 == 0)) || ((cnt == 15) && (i2 == 1)) )
          begin
            @(posedge Mdc_O);
            #Tp cnt = cnt + 1;
          end
          @(posedge Mdc_O);
          check_mii_busy; // wait for read to finish
          // read and check data
          #Tp wbm_read(`ETH_MIIRX_DATA, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          if (phy_data !== tmp_data)
          begin
            test_fail("Data was not correctly written into OR read from PHY register - control register");
            fail = fail + 1;
          end
        end
        // check if transfer was a proper length
        if (i2) // without preamble
        begin
          if (cnt != 33) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("New request did not proceed correctly, after scan request");
            fail = fail + 1;
          end
        end
        else // with preamble
        begin
          if (cnt != 65) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("New request did not proceed correctly, after scan request");
            fail = fail + 1;
          end
        end
      end
      #Tp;
      // set delay of writing the command
      if (i2) // without preamble
      begin
        case(i)
          0, 1:               i = i + 1;
          18, 19, 20, 21, 22,
          23, 24, 25, 26, 27,
          28, 29, 30, 31, 32,
          33, 34, 35:         i = i + 1;
          36:                 i = 80;
          default:            i = 18;
        endcase
      end
      else // with preamble
      begin
        case(i)
          0, 1:               i = i + 1;
          50, 51, 52, 53, 54,
          55, 56, 57, 58, 59,
          60, 61, 62, 63, 64,
          65, 66, 67:         i = i + 1;
          68:                 i = 80;
          default:            i = 50;
        endcase
      end
      @(posedge wb_clk);
    end
  end
  // set PHY to normal mode
  #Tp eth_phy.preamble_suppresed(0);
  // MII mode register
  wbm_write(`ETH_MIIMODER, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 17) && (end_task >= 17))
begin
  // TEST SLIDING STOP SCAN COMMAND AFTER 2. SCAN ( WITH AND WITHOUT PREAMBLE )
  test_name = "TEST SLIDING STOP SCAN COMMAND AFTER 2. SCAN ( WITH AND WITHOUT PREAMBLE )";
  `TIME; $display("  TEST SLIDING STOP SCAN COMMAND AFTER 2. SCAN ( WITH AND WITHOUT PREAMBLE )");
 
  for (i2 = 0; i2 <= 1; i2 = i2 + 1) // choose preamble or not
  begin
    #Tp eth_phy.preamble_suppresed(i2);
    // MII mode register
    wbm_write(`ETH_MIIMODER, (`ETH_MIIMODER_NOPRE & {23'h0, i2, 8'h0}), 4'hF, 1, wbm_init_waits,
              wbm_subseq_waits);
 
    i = 0;
    cnt = 0;
    while (i < 80) // delay for sliding of writing a STOP SCAN command
    begin
      for (i3 = 0; i3 <= 1; i3 = i3 + 1) // choose read or write after scan will be finished
      begin
        // first there are two scans
        // set address
        reg_addr = 5'h0; // control register
        phy_addr = 5'h1; // correct PHY address
        cnt = 0;
        // scan request
        #Tp mii_scan_req(phy_addr, reg_addr);
        // wait and check first 2 scans
        begin
          // wait for serial bus to become active
          wait(Mdio_IO !== 1'bz);
          // count transfer length
          while( (Mdio_IO !== 1'bz) || ((cnt == 47) && (i2 == 0)) || ((cnt == 15) && (i2 == 1)) )
          begin
            @(posedge Mdc_O);
            #Tp cnt = cnt + 1;
          end
          // check transfer length
          if (i2) // without preamble
          begin
            if (cnt != 33) // at this value Mdio_IO is HIGH Z
            begin
              test_fail("First scan request did not proceed correctly, while SCAN STOP was written");
              fail = fail + 1;
            end
          end
          else // with preamble
          begin
            if (cnt != 65) // at this value Mdio_IO is HIGH Z
            begin
              test_fail("First scan request did not proceed correctly, while SCAN STOP was written");
              fail = fail + 1;
            end
          end
          cnt = 0;
          // wait for serial bus to become active if there is more than one scan
          wait(Mdio_IO !== 1'bz);
          // count transfer length
          while( (Mdio_IO !== 1'bz) || ((cnt == 47) && (i2 == 0)) || ((cnt == 15) && (i2 == 1)) )
          begin
            @(posedge Mdc_O);
            #Tp cnt = cnt + 1;
          end
          // check transfer length
          if (i2) // without preamble
          begin
            if (cnt != 33) // at this value Mdio_IO is HIGH Z
            begin
              test_fail("First scan request did not proceed correctly, while SCAN STOP was written");
              fail = fail + 1;
            end
          end
          else // with preamble
          begin
            if (cnt != 65) // at this value Mdio_IO is HIGH Z
            begin
              test_fail("First scan request did not proceed correctly, while SCAN STOP was written");
              fail = fail + 1;
            end
          end
        end
 
        // reset counter 
        cnt = 0;
        fork
          begin
            repeat(i) @(posedge Mdc_O);
            // write command 0x0 into MII command register
            // MII command written while scan in progress
            wbm_write(`ETH_MIICOMMAND, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
            @(posedge wb_clk);
            #Tp check_mii_busy; // wait for scan to finish
            @(posedge wb_clk);
            disable check_3;
          end
          begin: check_3
            // wait for serial bus to become active
            wait(Mdio_IO !== 1'bz);
            // count transfer length
            while( (Mdio_IO !== 1'bz) || ((cnt == 47) && (i2 == 0)) || ((cnt == 15) && (i2 == 1)) )
            begin
              @(posedge Mdc_O);
              #Tp cnt = cnt + 1;
            end
            // check transfer length
            if (i2) // without preamble
            begin
              if (cnt != 33) // at this value Mdio_IO is HIGH Z
              begin
                test_fail("First scan request did not proceed correctly, while SCAN STOP was written");
                fail = fail + 1;
              end
            end
            else // with preamble
            begin
              if (cnt != 65) // at this value Mdio_IO is HIGH Z
              begin
                test_fail("First scan request did not proceed correctly, while SCAN STOP was written");
                fail = fail + 1;
              end
            end
            cnt = 0;
            // wait for serial bus to become active if there is more than one scan
            wait(Mdio_IO !== 1'bz);
            // count transfer length
            while( (Mdio_IO !== 1'bz) || ((cnt == 47) && (i2 == 0)) || ((cnt == 15) && (i2 == 1)) )
            begin
              @(posedge Mdc_O);
              #Tp cnt = cnt + 1;
            end
            // check transfer length
            if (i2) // without preamble
            begin
              if (cnt != 33) // at this value Mdio_IO is HIGH Z
              begin
                test_fail("First scan request did not proceed correctly, while SCAN STOP was written");
                fail = fail + 1;
              end
            end
            else // with preamble
            begin
              if (cnt != 65) // at this value Mdio_IO is HIGH Z
              begin
                test_fail("First scan request did not proceed correctly, while SCAN STOP was written");
                fail = fail + 1;
              end
            end
          end
        join
        // check the BUSY signal to see if the bus is still IDLE
        for (i1 = 0; i1 < 8; i1 = i1 + 1)
          check_mii_busy; // wait for bus to become idle
 
        // try normal write or read after scan was finished
        phy_data = {8'h7D, (i[7:0] + 1)};
        cnt = 0;
        if (i3 == 0) // write after scan
        begin
          // write request
          #Tp mii_write_req(phy_addr, reg_addr, phy_data);
          // wait for serial bus to become active
          wait(Mdio_IO !== 1'bz);
          // count transfer length
          while(Mdio_IO !== 1'bz)
          begin
            @(posedge Mdc_O);
            #Tp cnt = cnt + 1;
          end
          @(posedge Mdc_O);
          // read request
          #Tp mii_read_req(phy_addr, reg_addr);
          check_mii_busy; // wait for read to finish
          // read and check data
          #Tp wbm_read(`ETH_MIIRX_DATA, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          if (phy_data !== tmp_data)
          begin
            test_fail("Data was not correctly written into OR read from PHY register - control register");
            fail = fail + 1;
          end
        end
        else // read after scan
        begin
          // read request
          #Tp mii_read_req(phy_addr, reg_addr);
          // wait for serial bus to become active
          wait(Mdio_IO !== 1'bz);
          // count transfer length
          while( (Mdio_IO !== 1'bz) || ((cnt == 47) && (i2 == 0)) || ((cnt == 15) && (i2 == 1)) )
          begin
            @(posedge Mdc_O);
            #Tp cnt = cnt + 1;
          end
          @(posedge Mdc_O);
          check_mii_busy; // wait for read to finish
          // read and check data
          #Tp wbm_read(`ETH_MIIRX_DATA, tmp_data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          if (phy_data !== tmp_data)
          begin
            test_fail("Data was not correctly written into OR read from PHY register - control register");
            fail = fail + 1;
          end
        end
        // check if transfer was a proper length
        if (i2) // without preamble
        begin
          if (cnt != 33) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("New request did not proceed correctly, after scan request");
            fail = fail + 1;
          end
        end
        else // with preamble
        begin
          if (cnt != 65) // at this value Mdio_IO is HIGH Z
          begin
            test_fail("New request did not proceed correctly, after scan request");
            fail = fail + 1;
          end
        end
      end
      #Tp;
      // set delay of writing the command
      if (i2) // without preamble
      begin
        case(i)
          0, 1:               i = i + 1;
          18, 19, 20, 21, 22,
          23, 24, 25, 26, 27,
          28, 29, 30, 31, 32,
          33, 34, 35:         i = i + 1;
          36:                 i = 80;
          default:            i = 18;
        endcase
      end
      else // with preamble
      begin
        case(i)
          0, 1:               i = i + 1;
          50, 51, 52, 53, 54,
          55, 56, 57, 58, 59,
          60, 61, 62, 63, 64,
          65, 66, 67:         i = i + 1;
          68:                 i = 80;
          default:            i = 50;
        endcase
      end
      @(posedge wb_clk);
    end
  end
  // set PHY to normal mode
  #Tp eth_phy.preamble_suppresed(0);
  // MII mode register
  wbm_write(`ETH_MIIMODER, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
end
endtask // test_mii
 
 
task test_mac_full_duplex_transmit;
  input  [31:0]  start_task;
  input  [31:0]  end_task;
  integer        bit_start_1;
  integer        bit_end_1;
  integer        bit_start_2;
  integer        bit_end_2;
  integer        num_of_reg;
  integer        i_addr;
  integer        i_data;
  integer        i_length;
  integer        tmp_data;
  reg    [31:0]  tx_bd_num;
  reg    [((`MAX_BLK_SIZE * 32) - 1):0] burst_data;
  reg    [((`MAX_BLK_SIZE * 32) - 1):0] burst_tmp_data;
  integer        i;
  integer        i1;
  integer        i2;
  integer        i3;
  integer        fail;
  integer        speed;
  reg    [31:0]  addr;
  reg    [31:0]  data;
  reg    [31:0]  tmp;
  reg    [ 7:0]  st_data;
  reg    [15:0]  max_tmp;
  reg    [15:0]  min_tmp;
begin
// MAC FULL DUPLEX TRANSMIT TEST
test_heading("MAC FULL DUPLEX TRANSMIT TEST");
$display(" ");
$display("MAC FULL DUPLEX TRANSMIT TEST");
fail = 0;
 
// reset MAC registers
hard_reset;
// reset MAC and MII LOGIC with soft reset
reset_mac;
reset_mii;
// set wb slave response
wb_slave.cycle_response(`ACK_RESPONSE, wbs_waits, wbs_retries);
 
  /*
  TASKS for set and control TX buffer descriptors (also send packet - set_tx_bd_ready):
  -------------------------------------------------------------------------------------
  set_tx_bd
    (tx_bd_num_start[6:0], tx_bd_num_end[6:0], len[15:0], irq, pad, crc, txpnt[31:0]);
  set_tx_bd_wrap
    (tx_bd_num_end[6:0]);
  set_tx_bd_ready
    (tx_bd_num_start[6:0], tx_bd_num_end[6:0]);
  check_tx_bd
    (tx_bd_num_start[6:0], tx_bd_status[31:0]);
  clear_tx_bd
    (tx_bd_num_start[6:0], tx_bd_num_end[6:0]);
 
  TASKS for set and control RX buffer descriptors:
  ------------------------------------------------
  set_rx_bd
    (rx_bd_num_strat[6:0], rx_bd_num_end[6:0], irq, rxpnt[31:0]);
  set_rx_bd_wrap
    (rx_bd_num_end[6:0]);
  set_rx_bd_empty
    (rx_bd_num_strat[6:0], rx_bd_num_end[6:0]);
  check_rx_bd
    (rx_bd_num_end[6:0], rx_bd_status);
  clear_rx_bd
    (rx_bd_num_strat[6:0], rx_bd_num_end[6:0]);
 
  TASKS for set and check TX packets:
  -----------------------------------
  set_tx_packet
    (txpnt[31:0], len[15:0], eth_start_data[7:0]);
  check_tx_packet
    (txpnt_wb[31:0], txpnt_phy[31:0], len[15:0], failure[31:0]);
 
  TASKS for set and check RX packets:
  -----------------------------------
  set_rx_packet
    (rxpnt[31:0], len[15:0], plus_nibble, d_addr[47:0], s_addr[47:0], type_len[15:0], start_data[7:0]);
  check_rx_packet
    (rxpnt_phy[31:0], rxpnt_wb[31:0], len[15:0], plus_nibble, successful_nibble, failure[31:0]);
 
  TASKS for append and check CRC to/of TX packet:
  -----------------------------------------------
  append_tx_crc
    (txpnt_wb[31:0], len[15:0], negated_crc);
  check_tx_crc
    (txpnt_phy[31:0], len[15:0], negated_crc, failure[31:0]);
 
  TASK for append CRC to RX packet (CRC is checked together with check_rx_packet):
  --------------------------------------------------------------------------------
  append_rx_crc
    (rxpnt_phy[31:0], len[15:0], plus_nibble, negated_crc);
  */
 
 
if ((start_task <= 0) && (end_task >= 0))
begin
  // TEST NO TRANSMIT WHEN ALL BUFFERS ARE RX ( 10Mbps )
  test_name   = "TEST NO TRANSMIT WHEN ALL BUFFERS ARE RX ( 10Mbps )";
  `TIME; $display("  TEST NO TRANSMIT WHEN ALL BUFFERS ARE RX ( 10Mbps )");
 
  // unmask interrupts
  wbm_write(`ETH_INT_MASK, `ETH_INT_TXB | `ETH_INT_TXE | `ETH_INT_RXF | `ETH_INT_RXE | `ETH_INT_BUSY |
                           `ETH_INT_TXC | `ETH_INT_RXC, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // set all buffer descriptors to RX - must be set before TX enable
  wbm_write(`ETH_TX_BD_NUM, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // enable TX, set full-duplex mode, padding and CRC appending
  wbm_write(`ETH_MODER, `ETH_MODER_TXEN | `ETH_MODER_FULLD | `ETH_MODER_PAD | `ETH_MODER_CRCEN,
            4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
  // write to phy's control register for 10Mbps
  #Tp eth_phy.control_bit14_10 = 5'b00000; // bit 13 reset - speed 10
  #Tp eth_phy.control_bit8_0   = 9'h1_00;  // bit 6 reset  - (10/100), bit 8 set - FD
  speed = 10;
 
  i = 0;
  while (i < 128)
  begin
    for (i1 = 0; i1 <= i; i1 = i1 + 1)
    begin
      set_tx_packet((`MEMORY_BASE + (i1 * 200)), 100, 0);
      set_tx_bd(i1, i1, 100, 1'b1, 1'b1, 1'b1, (`MEMORY_BASE + (i1 * 200)));
    end
    set_tx_bd_wrap(i);
    fork
      begin
        set_tx_bd_ready(0, i);
        repeat(20) @(negedge mtx_clk);
        #1 disable check_tx_en10;
      end
      begin: check_tx_en10
        wait (MTxEn === 1'b1);
        test_fail("Tramsmit should not start at all");
        fail = fail + 1;
        `TIME; $display("*E Transmit of %d packets should not start at all - active MTxEn", i);
      end
    join
    for (i2 = 0; i2 < 20; i2 = i2 + 1)
    begin
      check_tx_bd(0, tmp);
      #1;
      if (tmp[15] === 1'b0)
      begin
        test_fail("Tramsmit should not start at all");
        fail = fail + 1;
        `TIME; $display("*E Transmit of %d packets should not start at all - ready is 0", i);
      end
      if (tmp[8:0] !== 0)
      begin
        test_fail("Tramsmit should not be finished since it should not start at all");
        fail = fail + 1;
        `TIME; $display("*E Transmit of should not be finished since it should not start at all");
      end
      @(posedge wb_clk);
    end
    wbm_read(`ETH_INT, tmp, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    if (tmp[6:0] !== 0)
    begin
      test_fail("Tramsmit should not get INT since it should not start at all");
      fail = fail + 1;
      `TIME; $display("*E Transmit of should not get INT since it should not start at all");
    end
    clear_tx_bd(0, i);
    if ((i < 5) || (i > 124))
      i = i + 1;
    else
      i = i + 120;
  end
  // disable TX
  wbm_write(`ETH_MODER, `ETH_MODER_FULLD | `ETH_MODER_PAD | `ETH_MODER_CRCEN,
            4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 1) && (end_task >= 1))
begin
  // TEST NO TRANSMIT WHEN ALL BUFFERS ARE RX ( 100Mbps )
  test_name   = "TEST NO TRANSMIT WHEN ALL BUFFERS ARE RX ( 100Mbps )";
  `TIME; $display("  TEST NO TRANSMIT WHEN ALL BUFFERS ARE RX ( 100Mbps )");
 
  // unmask interrupts
  wbm_write(`ETH_INT_MASK, `ETH_INT_TXB | `ETH_INT_TXE | `ETH_INT_RXF | `ETH_INT_RXE | `ETH_INT_BUSY |
                           `ETH_INT_TXC | `ETH_INT_RXC, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // set all buffer descriptors to RX - must be set before TX enable
  wbm_write(`ETH_TX_BD_NUM, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // enable TX, set full-duplex mode, padding and CRC appending
  wbm_write(`ETH_MODER, `ETH_MODER_TXEN | `ETH_MODER_FULLD | `ETH_MODER_PAD | `ETH_MODER_CRCEN,
            4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
  // write to phy's control register for 100Mbps
  #Tp eth_phy.control_bit14_10 = 5'b01000; // bit 13 set - speed 100
  #Tp eth_phy.control_bit8_0   = 9'h1_00;  // bit 6 reset - (10/100), bit 8 set - FD
  speed = 100;
 
  i = 0;
  while (i < 128)
  begin
    for (i1 = 0; i1 <= i; i1 = i1 + 1)
    begin
      set_tx_packet((`MEMORY_BASE + (i1 * 200)), 100, 0);
      set_tx_bd(i1, i1, 100, 1'b1, 1'b1, 1'b1, (`MEMORY_BASE + (i1 * 200)));
    end
    set_tx_bd_wrap(i);
    fork
      begin
        set_tx_bd_ready(0, i);
        repeat(20) @(negedge mtx_clk);
        #1 disable check_tx_en100;
      end
      begin: check_tx_en100
        wait (MTxEn === 1'b1);
        test_fail("Tramsmit should not start at all");
        fail = fail + 1;
        `TIME; $display("*E Transmit of %d packets should not start at all - active MTxEn", i);
      end
    join
    for (i2 = 0; i2 < 20; i2 = i2 + 1)
    begin
      check_tx_bd(0, tmp);
      #1;
      if (tmp[15] === 1'b0)
      begin
        test_fail("Tramsmit should not start at all");
        fail = fail + 1;
        `TIME; $display("*E Transmit of %d packets should not start at all - ready is 0", i);
      end
      if (tmp[8:0] !== 0)
      begin
        test_fail("Tramsmit should not be finished since it should not start at all");
        fail = fail + 1;
        `TIME; $display("*E Transmit of should not be finished since it should not start at all");
      end
      @(posedge wb_clk);
    end
    wbm_read(`ETH_INT, tmp, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    if (tmp[6:0] !== 0)
    begin
      test_fail("Tramsmit should not get INT since it should not start at all");
      fail = fail + 1;
      `TIME; $display("*E Transmit of should not get INT since it should not start at all");
    end
    clear_tx_bd(0, i);
    if ((i < 5) || (i > 124))
      i = i + 1;
    else
      i = i + 120;
  end
  // disable TX
  wbm_write(`ETH_MODER, `ETH_MODER_FULLD | `ETH_MODER_PAD | `ETH_MODER_CRCEN,
            4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
if ((start_task <= 2) && (end_task >= 2))
begin
  // TEST TRANSMIT PACKETS FROM MINFL TO MAXFL SIZES AT ONE TX BD ( 10Mbps )
  test_name = "TEST TRANSMIT PACKETS FROM MINFL TO MAXFL SIZES AT ONE TX BD ( 10Mbps )";
  `TIME; $display("  TEST TRANSMIT PACKETS FROM MINFL TO MAXFL SIZES AT ONE TX BD ( 10Mbps )");
 
  max_tmp = 0;
  min_tmp = 0;
  // unmask interrupts
  wbm_write(`ETH_INT_MASK, `ETH_INT_TXB | `ETH_INT_TXE | `ETH_INT_RXF | `ETH_INT_RXE | `ETH_INT_BUSY |
                           `ETH_INT_TXC | `ETH_INT_RXC, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // set one TX buffer descriptor - must be set before TX enable
  wbm_write(`ETH_TX_BD_NUM, 32'h1, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // enable TX, set full-duplex mode, padding and CRC appending
  wbm_write(`ETH_MODER, `ETH_MODER_TXEN | `ETH_MODER_FULLD | `ETH_MODER_PAD | `ETH_MODER_CRCEN,
            4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // prepare two packets of MAXFL length
  wbm_read(`ETH_PACKETLEN, tmp, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  max_tmp = tmp[15:0]; // 18 bytes consists of 6B dest addr, 6B source addr, 2B type/len, 4B CRC
  min_tmp = tmp[31:16];
  st_data = 8'h5A;
  set_tx_packet(`MEMORY_BASE, (max_tmp - 4), st_data); // length without CRC
  st_data = 8'h10;
  set_tx_packet((`MEMORY_BASE + max_tmp), (max_tmp - 4), st_data); // length without CRC
  // check WB INT signal
  if (wb_int !== 1'b0)
  begin
    test_fail("WB INT signal should not be set");
    fail = fail + 1;
  end
 
  // write to phy's control register for 10Mbps
  #Tp eth_phy.control_bit14_10 = 5'b00000; // bit 13 reset - speed 10
  #Tp eth_phy.control_bit8_0   = 9'h1_00;  // bit 6 reset  - (10/100), bit 8 set - FD
  speed = 10;
 
  for (i_length = (min_tmp - 4); i_length <= (max_tmp - 4); i_length = i_length + 1)
  begin
    // choose generating carrier sense and collision
    case (i_length[1:0])
    2'h0:
    begin
 
    end
    2'h1:
    begin
 
    end
    2'h2:
    begin
 
    end
    default: // 2'h3:
    begin
 
    end
    endcase
    // choose WB memory destination address regarding the speed
    if (i_length[0] == 0)
      set_tx_bd(0, 0, i_length, 1'b1, 1'b1, 1'b1, `MEMORY_BASE);
    else
      set_tx_bd(0, 0, i_length, 1'b1, 1'b1, 1'b1, (`MEMORY_BASE + max_tmp));
    eth_phy.set_tx_mem_addr(max_tmp);
    // set wrap bit
    set_tx_bd_wrap(0);
    set_tx_bd_ready(0, 0);
    #1 check_tx_bd(0, data);
    if (i_length < min_tmp) // just first four
    begin
      while (data[15] === 1)
      begin
        #1 check_tx_bd(0, data);
        @(posedge wb_clk);
      end
    end
    else if (i_length > (max_tmp - 8)) // just last four
    begin
      tmp = 0;
      wait (MTxEn === 1'b1); // start transmit
      while (tmp < (i_length - 20))
      begin
        #1 tmp = tmp + 1;
        @(posedge wb_clk);
      end
      #1 check_tx_bd(0, data);
      while (data[15] === 1)
      begin
        #1 check_tx_bd(0, data);
        @(posedge wb_clk);
      end
    end
    else
    begin
      wait (MTxEn === 1'b1); // start transmit
      wait (MTxEn === 1'b0); // end transmit
      repeat (2) @(posedge mtx_clk);
      repeat (3) @(posedge wb_clk);
    end
    // check length of a PACKET
    if (eth_phy.tx_len != (i_length + 4))
    begin
      test_fail("Wrong length of the packet out from MAC");
      fail = fail + 1;
    end
    // check transmitted TX packet data
    if (i_length[0] == 0)
    begin
      check_tx_packet(`MEMORY_BASE, max_tmp, i_length, tmp);
    end
    else
    begin
      check_tx_packet((`MEMORY_BASE + max_tmp), max_tmp, i_length, tmp);
    end
    if (tmp > 0)
    begin
      test_fail("Wrong data of the transmitted packet");
      fail = fail + 1;
    end
    // check WB INT signal
    if (wb_int !== 1'b1)
    begin
      test_fail("WB INT signal should not be set");
      fail = fail + 1;
    end
    // check transmited TX packet CRC
    check_tx_crc(max_tmp, i_length, 1'b0, tmp); // length without CRC
    if (tmp > 0)
    begin
      test_fail("Wrong CRC of the transmitted packet");
      fail = fail + 1;
    end
    // check TX buffer descriptor of a packet
    check_tx_bd(0, data);
 
 
    // clear TX buffer descriptor
    clear_tx_bd(0, 0);
    // check interrupts
    wbm_read(`ETH_INT, data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    if ((data & `ETH_INT_TXB) !== 1'b1)
    begin
      `TIME;
      test_fail("Interrupt Transmit Buffer was not set");
      fail = fail + 1;
    end
    if ((data & (~`ETH_INT_TXB)) !== 0)
    begin
      `TIME;
      test_fail("Other interrupts (except Transmit Buffer) were set");
      fail = fail + 1;
    end
    // clear interrupts
    wbm_write(`ETH_INT, data, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    // check WB INT signal
    if (wb_int !== 1'b0)
    begin
      test_fail("WB INT signal should not be set");
      fail = fail + 1;
    end
 
  end
  // disable TX
  wbm_write(`ETH_MODER, `ETH_MODER_FULLD | `ETH_MODER_PAD | `ETH_MODER_CRCEN,
            4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  if(fail == 0)
    test_ok;
  else
    fail = 0;
end
 
 
/*
          wbm_write(`ETH_MODER, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          wbm_read(`ETH_MODER, tmp, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
          wbm_write(32'hd0000000, `ETH_MODER_RXEN  | `ETH_MODER_TXEN | `ETH_MODER_PRO | `ETH_MODER_CRCEN |
                    `ETH_MODER_PAD, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
          wbm_read(32'hd0000000, tmp, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
 
 
 
 
          set_tx_bd(3);
          set_rx_bd(6);
 
          set_tx_packet(16'h34, 8'h1);
          set_tx_packet(16'h34, 8'h11);
          send_tx_packet;
          set_tx_packet(16'h34, 8'h21);
          set_tx_packet(16'h34, 8'h31);
          send_tx_packet;
 
 
          eth_phy.GetDataOnMRxD(100, `BROADCAST_XFR); // LengthRx bytes is comming on MRxD[3:0] signals
          repeat (100) @(posedge mrx_clk);   // Waiting for TxEthMac to finish transmit
 
          eth_phy.GetDataOnMRxD(70, `BROADCAST_XFR); // LengthRx bytes is comming on MRxD[3:0] signals
          repeat (10000) @(posedge wb_clk);   // Waiting for TxEthMac to finish transmit
 
          eth_phy.GetDataOnMRxD(70, `MULTICAST_XFR); // LengthRx bytes is comming on MRxD[3:0] signals
          repeat (10000) @(posedge wb_clk);   // Waiting for TxEthMac to finish transmit
*/
 
 
end
endtask // test_mac_full_duplex_transmit
 
 
//////////////////////////////////////////////////////////////
// WB Behavioral Models Basic tasks
//////////////////////////////////////////////////////////////
 
task wbm_write;
  input  [31:0] address_i;
  input  [((`MAX_BLK_SIZE * 32) - 1):0] data_i;
  input  [3:0]  sel_i;
  input  [31:0] size_i;
  input  [3:0]  init_waits_i;
  input  [3:0]  subseq_waits_i;
 
  reg `WRITE_STIM_TYPE write_data;
  reg `WB_TRANSFER_FLAGS flags;
  reg `WRITE_RETURN_TYPE write_status;
  integer i;
begin
  write_status = 0;
 
  flags                    = 0;
  flags`WB_TRANSFER_SIZE   = size_i;
  flags`INIT_WAITS         = init_waits_i;
  flags`SUBSEQ_WAITS       = subseq_waits_i;
 
  write_data               = 0;
  write_data`WRITE_DATA    = data_i[31:0];
  write_data`WRITE_ADDRESS = address_i;
  write_data`WRITE_SEL     = sel_i;
 
  for (i = 0; i < size_i; i = i + 1)
  begin
    wb_master.blk_write_data[i] = write_data;
    data_i                      = data_i >> 32;
    write_data`WRITE_DATA       = data_i[31:0];
    write_data`WRITE_ADDRESS    = write_data`WRITE_ADDRESS + 4;
  end
 
  wb_master.wb_block_write(flags, write_status);
 
  if (write_status`CYC_ACTUAL_TRANSFER !== size_i)
  begin
    `TIME;
    $display("*E WISHBONE Master was unable to complete the requested write operation to MAC!");
  end
end
endtask // wbm_write
 
task wbm_read;
  input  [31:0] address_i;
  output [((`MAX_BLK_SIZE * 32) - 1):0] data_o;
  input  [3:0]  sel_i;
  input  [31:0] size_i;
  input  [3:0]  init_waits_i;
  input  [3:0]  subseq_waits_i;
 
  reg `READ_RETURN_TYPE read_data;
  reg `WB_TRANSFER_FLAGS flags;
  reg `READ_RETURN_TYPE read_status;
  integer i;
begin
  read_status = 0;
  data_o      = 0;
 
  flags                  = 0;
  flags`WB_TRANSFER_SIZE = size_i;
  flags`INIT_WAITS       = init_waits_i;
  flags`SUBSEQ_WAITS     = subseq_waits_i;
 
  read_data              = 0;
  read_data`READ_ADDRESS = address_i;
  read_data`READ_SEL     = sel_i;
 
  for (i = 0; i < size_i; i = i + 1)
  begin
    wb_master.blk_read_data_in[i] = read_data;
    read_data`READ_ADDRESS        = read_data`READ_ADDRESS + 4;
  end
 
  wb_master.wb_block_read(flags, read_status);
 
  if (read_status`CYC_ACTUAL_TRANSFER !== size_i)
  begin
    `TIME;
    $display("*E WISHBONE Master was unable to complete the requested read operation from MAC!");
  end
 
  for (i = 0; i < size_i; i = i + 1)
  begin
    data_o       = data_o << 32;
    read_data    = wb_master.blk_read_data_out[(size_i - 1) - i]; // [31 - i];
    data_o[31:0] = read_data`READ_DATA;
  end
end
endtask // wbm_read
 
 
//////////////////////////////////////////////////////////////
// Ethernet Basic tasks
//////////////////////////////////////////////////////////////
 
task hard_reset; //  MAC registers
begin
  // reset MAC registers
  @(posedge wb_clk);
  #2 wb_rst = 1'b1;
  repeat(2) @(posedge wb_clk);
  #2 wb_rst = 1'b0;
end
endtask // hard_reset
 
task reset_mac; //  MAC module
  reg [31:0] tmp;
  reg [31:0] tmp_no_rst;
begin
  // read MODER register first
  wbm_read(`ETH_MODER, tmp, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // set reset bit - write back to MODER register with RESET bit
  wbm_write(`ETH_MODER, (`ETH_MODER_RST | tmp), 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // clear reset bit - write back to MODER register without RESET bit
  tmp_no_rst = `ETH_MODER_RST;
  tmp_no_rst = ~tmp_no_rst;
  wbm_write(`ETH_MODER, (tmp_no_rst & tmp), 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
end
endtask // reset_mac
 
task set_tx_bd;
  input  [6:0]  tx_bd_num_start;
  input  [6:0]  tx_bd_num_end;
  input  [15:0] len;
  input         irq;
  input         pad;
  input         crc;
  input  [31:0] txpnt;
 
  integer       i;
  integer       bd_status_addr, bd_ptr_addr;
//  integer       buf_addr;
begin
  for(i = tx_bd_num_start; i <= tx_bd_num_end; i = i + 1)
  begin
//    buf_addr = `TX_BUF_BASE + i * 32'h600;
    bd_status_addr = `TX_BD_BASE + i * 8;
    bd_ptr_addr = bd_status_addr + 4;
    // initialize BD - status
//    wbm_write(bd_status_addr, 32'h00005800, 4'hF, 1, wbm_init_waits, wbm_subseq_waits); // IRQ + PAD + CRC
    wbm_write(bd_status_addr, {len, 1'b0, irq, 1'b0, pad, crc, 11'h0},
              4'hF, 1, wbm_init_waits, wbm_subseq_waits); // IRQ + PAD + CRC
    // initialize BD - pointer
//    wbm_write(bd_ptr_addr, buf_addr, 4'hF, 1, wbm_init_waits, wbm_subseq_waits); // Initializing BD-pointer
    wbm_write(bd_ptr_addr, txpnt, 4'hF, 1, wbm_init_waits, wbm_subseq_waits); // Initializing BD-pointer
  end
end
endtask // set_tx_bd
 
task set_tx_bd_wrap;
  input  [6:0]  tx_bd_num_end;
  integer       bd_status_addr, tmp;
begin
  bd_status_addr = `TX_BD_BASE + tx_bd_num_end * 8;
  wbm_read(bd_status_addr, tmp, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // set wrap bit to this BD - this BD should be last-one
  wbm_write(bd_status_addr, (`ETH_TX_BD_WRAP | tmp), 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
end
endtask // set_tx_bd_wrap
 
task set_tx_bd_ready;
  input  [6:0]  tx_nd_num_strat;
  input  [6:0]  tx_bd_num_end;
  integer       i;
  integer       bd_status_addr, tmp;
begin
  for(i = tx_nd_num_strat; i <= tx_bd_num_end; i = i + 1)
  begin
    bd_status_addr = `TX_BD_BASE + i * 8;
    wbm_read(bd_status_addr, tmp, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    // set empty bit to this BD - this BD should be ready
    wbm_write(bd_status_addr, (`ETH_TX_BD_READY | tmp), 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  end
end
endtask // set_tx_bd_ready
 
task check_tx_bd;
  input  [6:0]  tx_bd_num_end;
  output [31:0] tx_bd_status;
  integer       bd_status_addr, tmp;
begin
  bd_status_addr = `TX_BD_BASE + tx_bd_num_end * 8;
  wbm_read(bd_status_addr, tmp, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  #1 tx_bd_status = tmp;
  #1;
end
endtask // check_tx_bd
 
task clear_tx_bd;
  input  [6:0]  tx_nd_num_strat;
  input  [6:0]  tx_bd_num_end;
  integer       i;
  integer       bd_status_addr, bd_ptr_addr;
begin
  for(i = tx_nd_num_strat; i <= tx_bd_num_end; i = i + 1)
  begin
    bd_status_addr = `TX_BD_BASE + i * 8;
    bd_ptr_addr = bd_status_addr + 4;
    // clear BD - status
    wbm_write(bd_status_addr, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    // clear BD - pointer
    wbm_write(bd_ptr_addr, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  end
end
endtask // clear_tx_bd
 
task set_rx_bd;
  input  [6:0]  rx_bd_num_strat;
  input  [6:0]  rx_bd_num_end;
  input         irq;
  input  [31:0] rxpnt;
//  input  [6:0]  rxbd_num;
  integer       i;
  integer       bd_status_addr, bd_ptr_addr;
//  integer       buf_addr;
begin
  for(i = rx_bd_num_strat; i <= rx_bd_num_end; i = i + 1)
  begin
//    buf_addr = `RX_BUF_BASE + i * 32'h600;
    bd_status_addr = `RX_BD_BASE + i * 8;
    bd_ptr_addr = bd_status_addr + 4;
 
    // initialize BD - status
//    wbm_write(bd_status_addr, 32'h0000c000, 4'hF, 1, wbm_init_waits, wbm_subseq_waits); // IRQ + PAD + CRC
    wbm_write(bd_status_addr, {17'h0, irq, 14'h0},
              4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    // initialize BD - pointer
//    wbm_write(bd_ptr_addr, buf_addr, 4'hF, 1, wbm_init_waits, wbm_subseq_waits); // Initializing BD-pointer
    wbm_write(bd_ptr_addr, rxpnt, 4'hF, 1, wbm_init_waits, wbm_subseq_waits); // Initializing BD-pointer
  end
end
endtask // set_rx_bd
 
task set_rx_bd_wrap;
  input  [6:0]  rx_bd_num_end;
  integer       bd_status_addr, tmp;
begin
  bd_status_addr = `RX_BD_BASE + rx_bd_num_end * 8;
  wbm_read(bd_status_addr, tmp, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // set wrap bit to this BD - this BD should be last-one
  wbm_write(bd_status_addr, (`ETH_RX_BD_WRAP | tmp), 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
end
endtask // set_rx_bd_wrap
 
task set_rx_bd_empty;
  input  [6:0]  rx_bd_num_strat;
  input  [6:0]  rx_bd_num_end;
  integer       i;
  integer       bd_status_addr, tmp;
begin
  for(i = rx_bd_num_strat; i <= rx_bd_num_end; i = i + 1)
  begin
    bd_status_addr = `RX_BD_BASE + i * 8;
    wbm_read(bd_status_addr, tmp, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    // set empty bit to this BD - this BD should be ready
    wbm_write(bd_status_addr, (`ETH_RX_BD_EMPTY | tmp), 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  end
end
endtask // set_rx_bd_empty
 
task check_rx_bd;
  input  [6:0]  rx_bd_num_end;
  output [31:0] rx_bd_status;
  integer       bd_status_addr, tmp;
begin
  bd_status_addr = `RX_BD_BASE + rx_bd_num_end * 8;
  wbm_read(bd_status_addr, tmp, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  #1 rx_bd_status = tmp;
  #1;
end
endtask // check_rx_bd
 
task clear_rx_bd;
  input  [6:0]  rx_bd_num_strat;
  input  [6:0]  rx_bd_num_end;
  integer       i;
  integer       bd_status_addr, bd_ptr_addr;
begin
  for(i = rx_bd_num_strat; i <= rx_bd_num_end; i = i + 1)
  begin
    bd_status_addr = `RX_BD_BASE + i * 8;
    bd_ptr_addr = bd_status_addr + 4;
    // clear BD - status
    wbm_write(bd_status_addr, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
    // clear BD - pointer
    wbm_write(bd_ptr_addr, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  end
end
endtask // clear_rx_bd
 
task set_tx_packet;
  input  [31:0] txpnt;
  input  [15:0] len;
  input  [7:0]  eth_start_data;
  integer       i, sd;
  integer       buffer;
  reg           delta_t;
begin
  buffer = txpnt;
  sd = eth_start_data;
  delta_t = 0;
 
  // First write might not be word allign.
  if(buffer[1:0] == 1)
  begin
    wb_slave.wr_mem(buffer - 1, {8'h0, sd[7:0], sd[7:0] + 3'h1, sd[7:0] + 3'h2}, 4'h7);
    sd = sd + 3;
    i = 3;
  end
  else if(buffer[1:0] == 2)
  begin
    wb_slave.wr_mem(buffer - 2, {16'h0, sd[7:0], sd[7:0] + 3'h1}, 4'h3);
    sd = sd + 2;
    i = 2;
  end
  else if(buffer[1:0] == 3)
  begin
    wb_slave.wr_mem(buffer - 3, {24'h0, sd[7:0]}, 4'h1);
    sd = sd + 1;
    i = 1;
  end
  else
    i = 0;
  delta_t = !delta_t;
 
  for(i = i; i < (len - 4); i = i + 4) // Last 0-3 bytes are not written
  begin
    wb_slave.wr_mem(buffer + i, {sd[7:0], sd[7:0] + 3'h1, sd[7:0] + 3'h2, sd[7:0] + 3'h3}, 4'hF);
    sd = sd + 4;
  end
  delta_t = !delta_t;
 
  // Last word
  if((len - i) == 3)
  begin
    wb_slave.wr_mem(buffer + i, {sd[7:0], sd[7:0] + 3'h1, sd[7:0] + 3'h2, 8'h0}, 4'hE);
  end
  else if((len - i) == 2)
  begin
    wb_slave.wr_mem(buffer + i, {sd[7:0], sd[7:0] + 3'h1, 16'h0}, 4'hC);
  end
  else if((len - i) == 1)
  begin
    wb_slave.wr_mem(buffer + i, {sd[7:0], 24'h0}, 4'h8);
  end
  else if((len - i) == 4)
  begin
    wb_slave.wr_mem(buffer + i, {sd[7:0], sd[7:0] + 3'h1, sd[7:0] + 3'h2, sd[7:0] + 3'h3}, 4'hF);
  end
  else
    $display("(%0t)(%m) ERROR", $time);
  delta_t = !delta_t;
end
endtask // set_tx_packet
 
task check_tx_packet;
  input  [31:0] txpnt_wb;  // source
  input  [31:0] txpnt_phy; // destination
  input  [15:0] len;
  output [31:0] failure;
  integer       i, data_wb, data_phy;
  reg    [31:0] addr_wb, addr_phy;
  reg    [31:0] failure;
  reg           delta_t;
begin
  addr_wb = txpnt_wb;
  addr_phy = txpnt_phy;
  delta_t = 0;
  failure = 0;
 
  // First write might not be word allign.
  if(addr_wb[1:0] == 1)
  begin
    wb_slave.rd_mem(addr_wb - 1, data_wb, 4'h7);
    data_phy[31:24] = 0;
    data_phy[23:16] = eth_phy.tx_mem[addr_phy[21:0]];
    data_phy[15: 8] = eth_phy.tx_mem[addr_phy[21:0] + 1];
    data_phy[ 7: 0] = eth_phy.tx_mem[addr_phy[21:0] + 2];
    i = 3;
    if (data_phy[23:0] !== data_wb[23:0])
    begin
      `TIME;
      $display("*E Wrong 1. word (3 bytes) of TX packet!");
      failure = 1;
    end
  end
  else if (addr_wb[1:0] == 2)
  begin
    wb_slave.rd_mem(addr_wb - 2, data_wb, 4'h3);
    data_phy[31:16] = 0;
    data_phy[15: 8] = eth_phy.tx_mem[addr_phy[21:0]];
    data_phy[ 7: 0] = eth_phy.tx_mem[addr_phy[21:0] + 1];
    i = 2;
    if (data_phy[15:0] !== data_wb[15:0])
    begin
      `TIME;
      $display("*E Wrong 1. word (2 bytes) of TX packet!");
      failure = 1;
    end
  end
  else if (addr_wb[1:0] == 3)
  begin
    wb_slave.rd_mem(addr_wb - 3, data_wb, 4'h1);
    data_phy[31: 8] = 0;
    data_phy[ 7: 0] = eth_phy.tx_mem[addr_phy[21:0]];
    i = 1;
    if (data_phy[7:0] !== data_wb[7:0])
    begin
      `TIME;
      $display("*E Wrong 1. word (1 byte) of TX packet!");
      failure = 1;
    end
  end
  else
    i = 0;
  delta_t = !delta_t;
 
  for(i = i; i < (len - 4); i = i + 4) // Last 0-3 bytes are not checked
  begin
    wb_slave.rd_mem(addr_wb + i, data_wb, 4'hF);
    data_phy[31:24] = eth_phy.tx_mem[addr_phy[21:0] + i];
    data_phy[23:16] = eth_phy.tx_mem[addr_phy[21:0] + i + 1];
    data_phy[15: 8] = eth_phy.tx_mem[addr_phy[21:0] + i + 2];
    data_phy[ 7: 0] = eth_phy.tx_mem[addr_phy[21:0] + i + 3];
    if (data_phy[31:0] !== data_wb[31:0])
    begin
      `TIME;
      $display("*E Wrong %d. word (4 bytes) of TX packet!", ((i/4)+1));
      failure = failure + 1;
    end
  end
  delta_t = !delta_t;
 
  // Last word
  if((len - i) == 3)
  begin
    wb_slave.rd_mem(addr_wb + i, data_wb, 4'hE);
    data_phy[31:24] = eth_phy.tx_mem[addr_phy[21:0] + i];
    data_phy[23:16] = eth_phy.tx_mem[addr_phy[21:0] + i + 1];
    data_phy[15: 8] = eth_phy.tx_mem[addr_phy[21:0] + i + 2];
    data_phy[ 7: 0] = 0;
    if (data_phy[31:8] !== data_wb[31:8])
    begin
      `TIME;
      $display("*E Wrong %d. word (3 bytes) of TX packet!", ((i/4)+1));
      failure = failure + 1;
    end
  end
  else if((len - i) == 2)
  begin
    wb_slave.rd_mem(addr_wb + i, data_wb, 4'hC);
    data_phy[31:24] = eth_phy.tx_mem[addr_phy[21:0] + i];
    data_phy[23:16] = eth_phy.tx_mem[addr_phy[21:0] + i + 1];
    data_phy[15: 8] = 0;
    data_phy[ 7: 0] = 0;
    if (data_phy[31:16] !== data_wb[31:16])
    begin
      `TIME;
      $display("*E Wrong %d. word (2 bytes) of TX packet!", ((i/4)+1));
      failure = failure + 1;
    end
  end
  else if((len - i) == 1)
  begin
    wb_slave.rd_mem(addr_wb + i, data_wb, 4'h8);
    data_phy[31:24] = eth_phy.tx_mem[addr_phy[21:0] + i];
    data_phy[23:16] = 0;
    data_phy[15: 8] = 0;
    data_phy[ 7: 0] = 0;
    if (data_phy[31:24] !== data_wb[31:24])
    begin
      `TIME;
      $display("*E Wrong %d. word (1 byte) of TX packet!", ((i/4)+1));
      failure = failure + 1;
    end
  end
  else if((len - i) == 4)
  begin
    wb_slave.rd_mem(addr_wb + i, data_wb, 4'hF);
    data_phy[31:24] = eth_phy.tx_mem[addr_phy[21:0] + i];
    data_phy[23:16] = eth_phy.tx_mem[addr_phy[21:0] + i + 1];
    data_phy[15: 8] = eth_phy.tx_mem[addr_phy[21:0] + i + 2];
    data_phy[ 7: 0] = eth_phy.tx_mem[addr_phy[21:0] + i + 3];
    if (data_phy[31:0] !== data_wb[31:0])
    begin
      `TIME;
      $display("*E Wrong %d. word (4 bytes) of TX packet!", ((i/4)+1));
      failure = failure + 1;
    end
  end
  else
    $display("(%0t)(%m) ERROR", $time);
  delta_t = !delta_t;
end
endtask // check_tx_packet
 
task set_rx_packet;
  input  [31:0] rxpnt;
  input  [15:0] len;
  input         plus_dribble_nibble; // if length is longer for one nibble
  input  [47:0] eth_dest_addr;
  input  [47:0] eth_source_addr;
  input  [15:0] eth_type_len;
  input  [7:0]  eth_start_data;
  integer       i, sd;
  reg    [47:0] dest_addr;
  reg    [47:0] source_addr;
  reg    [15:0] type_len;
  reg    [21:0] buffer;
  reg           delta_t;
begin
  buffer = rxpnt[21:0];
  dest_addr = eth_dest_addr;
  source_addr = eth_source_addr;
  type_len = eth_type_len;
  sd = eth_start_data;
  delta_t = 0;
  for(i = 0; i < len; i = i + 1)
  begin
    if (i < 6)
    begin
      eth_phy.rx_mem[buffer] = dest_addr[47:40];
      dest_addr = dest_addr << 8;
    end
    else if (i < 12)
    begin
      eth_phy.rx_mem[buffer] = source_addr[47:40];
      source_addr = source_addr << 8;
    end
    else if (i < 14)
    begin
      eth_phy.rx_mem[buffer] = type_len[15:8];
      type_len = type_len << 8;
    end
    else
    begin
      eth_phy.rx_mem[buffer] = sd[7:0];
      sd = sd + 1;
    end
    buffer = buffer + 1;
  end
  delta_t = !delta_t;
  if (plus_dribble_nibble)
    eth_phy.rx_mem[buffer] = {4'h0, 4'hD /*sd[3:0]*/};
  delta_t = !delta_t;
end
endtask // set_rx_packet
 
task check_rx_packet;
  input  [31:0] rxpnt_phy; // source
  input  [31:0] rxpnt_wb;  // destination
  input  [15:0] len;
  input         plus_dribble_nibble; // if length is longer for one nibble
  input         successful_dribble_nibble; // if additional nibble is stored into memory
  output [31:0] failure;
  integer       i, data_wb, data_phy;
  reg    [31:0] addr_wb, addr_phy;
  reg    [31:0] failure;
  reg    [21:0] buffer;
  reg           delta_t;
begin
  addr_phy = rxpnt_phy;
  addr_wb = rxpnt_wb;
  delta_t = 0;
  failure = 0;
 
  // First write might not be word allign.
  if(addr_wb[1:0] == 1)
  begin
    wb_slave.rd_mem(addr_wb - 1, data_wb, 4'h7);
    data_phy[31:24] = 0;
    data_phy[23:16] = eth_phy.rx_mem[addr_phy[21:0]];
    data_phy[15: 8] = eth_phy.rx_mem[addr_phy[21:0] + 1];
    data_phy[ 7: 0] = eth_phy.rx_mem[addr_phy[21:0] + 2];
    i = 3;
    if (data_phy[23:0] !== data_wb[23:0])
    begin
      `TIME;
      $display("*E Wrong 1. word (3 bytes) of TX packet!");
      failure = 1;
    end
  end
  else if (addr_wb[1:0] == 2)
  begin
    wb_slave.rd_mem(addr_wb - 2, data_wb, 4'h3);
    data_phy[31:16] = 0;
    data_phy[15: 8] = eth_phy.rx_mem[addr_phy[21:0]];
    data_phy[ 7: 0] = eth_phy.rx_mem[addr_phy[21:0] + 1];
    i = 2;
    if (data_phy[15:0] !== data_wb[15:0])
    begin
      `TIME;
      $display("*E Wrong 1. word (2 bytes) of TX packet!");
      failure = 1;
    end
  end
  else if (addr_wb[1:0] == 3)
  begin
    wb_slave.rd_mem(addr_wb - 3, data_wb, 4'h1);
    data_phy[31: 8] = 0;
    data_phy[ 7: 0] = eth_phy.rx_mem[addr_phy[21:0]];
    i = 1;
    if (data_phy[7:0] !== data_wb[7:0])
    begin
      `TIME;
      $display("*E Wrong 1. word (1 byte) of TX packet!");
      failure = 1;
    end
  end
  else
    i = 0;
  delta_t = !delta_t;
 
  for(i = i; i < (len - 4); i = i + 4) // Last 0-3 bytes are not checked
  begin
    wb_slave.rd_mem(addr_wb + i, data_wb, 4'hF);
    data_phy[31:24] = eth_phy.rx_mem[addr_phy[21:0] + i];
    data_phy[23:16] = eth_phy.rx_mem[addr_phy[21:0] + i + 1];
    data_phy[15: 8] = eth_phy.rx_mem[addr_phy[21:0] + i + 2];
    data_phy[ 7: 0] = eth_phy.rx_mem[addr_phy[21:0] + i + 3];
    if (data_phy[31:0] !== data_wb[31:0])
    begin
      `TIME;
      $display("*E Wrong %d. word (4 bytes) of TX packet!", ((i/4)+1));
      failure = failure + 1;
    end
  end
  delta_t = !delta_t;
 
  // Last word
  if((len - i) == 3)
  begin
    wb_slave.rd_mem(addr_wb + i, data_wb, 4'hF);
    data_phy[31:24] = eth_phy.rx_mem[addr_phy[21:0] + i];
    data_phy[23:16] = eth_phy.rx_mem[addr_phy[21:0] + i + 1];
    data_phy[15: 8] = eth_phy.rx_mem[addr_phy[21:0] + i + 2];
    if (plus_dribble_nibble)
      data_phy[ 7: 0] = eth_phy.rx_mem[addr_phy[21:0] + i + 3];
    else
      data_phy[ 7: 0] = 0;
    if (data_phy[31:8] !== data_wb[31:8])
    begin
      `TIME;
      $display("*E Wrong %d. word (3 bytes) of TX packet!", ((i/4)+1));
      failure = failure + 1;
    end
    if (plus_dribble_nibble && successful_dribble_nibble)
    begin
      if (data_phy[3:0] !== data_wb[3:0])
      begin
        `TIME;
        $display("*E Wrong dribble nibble in %d. word (3 bytes) of TX packet!", ((i/4)+1));
        failure = failure + 1;
      end
    end
    else if (plus_dribble_nibble && !successful_dribble_nibble)
    begin
      if (data_phy[3:0] === data_wb[3:0])
      begin
        `TIME;
        $display("*E Wrong dribble nibble in %d. word (3 bytes) of TX packet!", ((i/4)+1));
        failure = failure + 1;
      end
    end
  end
  else if((len - i) == 2)
  begin
    wb_slave.rd_mem(addr_wb + i, data_wb, 4'hE);
    data_phy[31:24] = eth_phy.rx_mem[addr_phy[21:0] + i];
    data_phy[23:16] = eth_phy.rx_mem[addr_phy[21:0] + i + 1];
    if (plus_dribble_nibble)
      data_phy[15: 8] = eth_phy.rx_mem[addr_phy[21:0] + i + 2];
    else
      data_phy[15: 8] = 0;
    data_phy[ 7: 0] = 0;
    if (data_phy[31:16] !== data_wb[31:16])
    begin
      `TIME;
      $display("*E Wrong %d. word (2 bytes) of TX packet!", ((i/4)+1));
      failure = failure + 1;
    end
    if (plus_dribble_nibble && successful_dribble_nibble)
    begin
      if (data_phy[11:8] !== data_wb[11:8])
      begin
        `TIME;
        $display("*E Wrong dribble nibble in %d. word (2 bytes) of TX packet!", ((i/4)+1));
        failure = failure + 1;
      end
    end
    else if (plus_dribble_nibble && !successful_dribble_nibble)
    begin
      if (data_phy[11:8] === data_wb[11:8])
      begin
        `TIME;
        $display("*E Wrong dribble nibble in %d. word (2 bytes) of TX packet!", ((i/4)+1));
        failure = failure + 1;
      end
    end
  end
  else if((len - i) == 1)
  begin
    wb_slave.rd_mem(addr_wb + i, data_wb, 4'hC);
    data_phy[31:24] = eth_phy.rx_mem[addr_phy[21:0] + i];
    if (plus_dribble_nibble)
      data_phy[23:16] = eth_phy.rx_mem[addr_phy[21:0] + i + 1];
    else
      data_phy[23:16] = 0;
    data_phy[15: 8] = 0;
    data_phy[ 7: 0] = 0;
    if (data_phy[31:24] !== data_wb[31:24])
    begin
      `TIME;
      $display("*E Wrong %d. word (1 byte) of TX packet!", ((i/4)+1));
      failure = failure + 1;
    end
    if (plus_dribble_nibble && successful_dribble_nibble)
    begin
      if (data_phy[19:16] !== data_wb[19:16])
      begin
        `TIME;
        $display("*E Wrong dribble nibble in %d. word (1 byte) of TX packet!", ((i/4)+1));
        failure = failure + 1;
      end
    end
    else if (plus_dribble_nibble && !successful_dribble_nibble)
    begin
      if (data_phy[19:16] === data_wb[19:16])
      begin
        `TIME;
        $display("*E Wrong dribble nibble in %d. word (1 byte) of TX packet!", ((i/4)+1));
        failure = failure + 1;
      end
    end
  end
  else if((len - i) == 4)
  begin
    wb_slave.rd_mem(addr_wb + i, data_wb, 4'hF);
    data_phy[31:24] = eth_phy.rx_mem[addr_phy[21:0] + i];
    data_phy[23:16] = eth_phy.rx_mem[addr_phy[21:0] + i + 1];
    data_phy[15: 8] = eth_phy.rx_mem[addr_phy[21:0] + i + 2];
    data_phy[ 7: 0] = eth_phy.rx_mem[addr_phy[21:0] + i + 3];
    if (data_phy[31:0] !== data_wb[31:0])
    begin
      `TIME;
      $display("*E Wrong %d. word (4 bytes) of TX packet!", ((i/4)+1));
      failure = failure + 1;
    end
    if (plus_dribble_nibble)
    begin
      wb_slave.rd_mem(addr_wb + i + 4, data_wb, 4'h8);
      data_phy[31:24] = eth_phy.rx_mem[addr_phy[21:0] + i + 4];
      if (successful_dribble_nibble)
      begin
        if (data_phy[27:24] !== data_wb[27:24])
        begin
          `TIME;
          $display("*E Wrong dribble nibble in %d. word (0 bytes) of TX packet!", ((i/4)+2));
          failure = failure + 1;
        end
      end
      else
      begin
        if (data_phy[27:24] === data_wb[27:24])
        begin
          `TIME;
          $display("*E Wrong dribble nibble in %d. word (0 bytes) of TX packet!", ((i/4)+2));
          failure = failure + 1;
        end
      end
    end
  end
  else
    $display("(%0t)(%m) ERROR", $time);
  delta_t = !delta_t;
end
endtask // check_rx_packet
 
//////////////////////////////////////////////////////////////
// Ethernet CRC Basic tasks
//////////////////////////////////////////////////////////////
 
task append_tx_crc;
  input  [31:0] txpnt_wb;  // source
  input  [15:0] len; // length in bytes without CRC
  input         negated_crc; // if appended CRC is correct or not
  reg    [31:0] crc;
  reg    [31:0] addr_wb;
  reg           delta_t;
begin
  addr_wb = txpnt_wb + len;
  delta_t = 0;
  // calculate CRC from prepared packet
  paralel_crc_mac(txpnt_wb, {16'h0, len}, 1'b0, crc);
  if (negated_crc)
    crc = ~crc;
  delta_t = !delta_t;
 
  // Write might not be word allign.
  if (addr_wb[1:0] == 1)
  begin
    wb_slave.wr_mem(addr_wb - 1, {8'h0, crc[7:0], crc[15:8], crc[23:16]}, 4'h7);
    wb_slave.wr_mem(addr_wb + 3, {crc[31:24], 24'h0}, 4'h8);
  end
  else if (addr_wb[1:0] == 2)
  begin
    wb_slave.wr_mem(addr_wb - 2, {16'h0, crc[7:0], crc[15:8]}, 4'h3);
    wb_slave.wr_mem(addr_wb + 2, {crc[23:16], crc[31:24], 16'h0}, 4'hC);
  end
  else if (addr_wb[1:0] == 3)
  begin
    wb_slave.wr_mem(addr_wb - 3, {24'h0, crc[7:0]}, 4'h1);
    wb_slave.wr_mem(addr_wb + 1, {crc[15:8], crc[23:16], crc[31:24], 8'h0}, 4'hE);
  end
  else
  begin
    wb_slave.wr_mem(addr_wb, {crc[7:0], crc[15:8], crc[23:16], crc[31:24]}, 4'hF);
  end
  delta_t = !delta_t;
end
endtask // append_tx_crc
 
task check_tx_crc; // used to check crc added to TX packets by MAC
  input  [31:0] txpnt_phy; // destination
  input  [15:0] len; // length in bytes without CRC
  input         negated_crc; // if appended CRC is correct or not
  output [31:0] failure;
  reg    [31:0] failure;
  reg    [31:0] crc_calc;
  reg    [31:0] crc;
  reg    [31:0] addr_phy;
  reg           delta_t;
begin
  addr_phy = txpnt_phy;
  failure = 0;
  // calculate CRC from sent packet
//  serial_crc_phy_tx(addr_phy, {16'h0, len}, 1'b0, crc_calc);
//#10;
  paralel_crc_phy_tx(addr_phy, {16'h0, len}, 1'b0, crc_calc);
 
  addr_phy = addr_phy + len;
  // Read CRC - BIG endian
  crc[31:24] = eth_phy.tx_mem[addr_phy[21:0]];
  crc[23:16] = eth_phy.tx_mem[addr_phy[21:0] + 1];
  crc[15: 8] = eth_phy.tx_mem[addr_phy[21:0] + 2];
  crc[ 7: 0] = eth_phy.tx_mem[addr_phy[21:0] + 3];
 
  delta_t = !delta_t;
  if (negated_crc)
  begin
    if ((~crc_calc) !== crc)
    begin
      `TIME;
      $display("*E Negated CRC was not successfuly transmitted!");
      failure = failure + 1;
    end
  end
  else
  begin
    if (crc_calc !== crc)
    begin
      `TIME;
      $display("*E Transmitted CRC was not correct!");
      failure = failure + 1;
    end
  end
  delta_t = !delta_t;
end
endtask // check_tx_crc
 
task append_rx_crc;
  input  [31:0] rxpnt_phy; // source
  input  [15:0] len; // length in bytes without CRC
  input         plus_dribble_nibble; // if length is longer for one nibble
  input         negated_crc; // if appended CRC is correct or not
  reg    [31:0] crc;
  reg    [7:0]  tmp;
  reg    [31:0] addr_phy;
  reg           delta_t;
begin
  addr_phy = rxpnt_phy + len;
  delta_t = 0;
  // calculate CRC from prepared packet
  paralel_crc_phy_rx(rxpnt_phy, {16'h0, len}, plus_dribble_nibble, crc);
  if (negated_crc)
    crc = ~crc;
  delta_t = !delta_t;
 
  if (plus_dribble_nibble)
  begin
    tmp = eth_phy.rx_mem[addr_phy];
    eth_phy.rx_mem[addr_phy]     = {crc[3:0], tmp[3:0]};
    eth_phy.rx_mem[addr_phy + 1] = {crc[11:8], crc[7:4]};
    eth_phy.rx_mem[addr_phy + 2] = {crc[19:16], crc[15:12]};
    eth_phy.rx_mem[addr_phy + 3] = {crc[27:24], crc[23:20]};
    eth_phy.rx_mem[addr_phy + 4] = {4'h0, crc[31:28]};
  end
  else
  begin
    eth_phy.rx_mem[addr_phy]     = crc[7:0];
    eth_phy.rx_mem[addr_phy + 1] = crc[15:8];
    eth_phy.rx_mem[addr_phy + 2] = crc[23:16];
    eth_phy.rx_mem[addr_phy + 3] = crc[31:24];
  end
end
endtask // append_rx_crc
 
// paralel CRC checking for PHY TX
task paralel_crc_phy_tx;
  input  [31:0] start_addr; // start address
  input  [31:0] len; // length of frame in Bytes without CRC length
  input         plus_dribble_nibble; // if length is longer for one nibble
  output [31:0] crc_out;
  reg    [21:0] addr_cnt; // only 22 address lines
  integer       word_cnt;
  integer       nibble_cnt;
  reg    [31:0] load_reg;
  reg           delta_t;
  reg    [31:0] crc_next;
  reg    [31:0] crc;
  reg           crc_error;
  reg     [3:0] data_in;
  integer       i;
begin
  #1 addr_cnt = start_addr[21:0];
  word_cnt = 24; // 27; // start of the frame - nibble granularity (MSbit first)
  crc = 32'hFFFF_FFFF; // INITIAL value
  delta_t = 0;
  // length must include 4 bytes of ZEROs, to generate CRC
  // get number of nibbles from Byte length (2^1 = 2)
  if (plus_dribble_nibble)
    nibble_cnt = ((len + 4) << 1) + 1'b1; // one nibble longer
  else
    nibble_cnt = ((len + 4) << 1);
  // because of MAGIC NUMBER nibbles are swapped [3:0] -> [0:3]
  load_reg[31:24] = eth_phy.tx_mem[addr_cnt];
  addr_cnt = addr_cnt + 1;
  load_reg[23:16] = eth_phy.tx_mem[addr_cnt];
  addr_cnt = addr_cnt + 1;
  load_reg[15: 8] = eth_phy.tx_mem[addr_cnt];
  addr_cnt = addr_cnt + 1;
  load_reg[ 7: 0] = eth_phy.tx_mem[addr_cnt];
  addr_cnt = addr_cnt + 1;
  while (nibble_cnt > 0)
  begin
    // wait for delta time
    delta_t = !delta_t;
    // shift data in
 
    if(nibble_cnt <= 8) // for additional 8 nibbles shift ZEROs in!
      data_in[3:0] = 4'h0;
    else
 
      data_in[3:0] = {load_reg[word_cnt], load_reg[word_cnt+1], load_reg[word_cnt+2], load_reg[word_cnt+3]};
    crc_next[0]  = (data_in[0] ^ crc[28]);
    crc_next[1]  = (data_in[1] ^ data_in[0] ^ crc[28]    ^ crc[29]);
    crc_next[2]  = (data_in[2] ^ data_in[1] ^ data_in[0] ^ crc[28]  ^ crc[29] ^ crc[30]);
    crc_next[3]  = (data_in[3] ^ data_in[2] ^ data_in[1] ^ crc[29]  ^ crc[30] ^ crc[31]);
    crc_next[4]  = (data_in[3] ^ data_in[2] ^ data_in[0] ^ crc[28]  ^ crc[30] ^ crc[31]) ^ crc[0];
    crc_next[5]  = (data_in[3] ^ data_in[1] ^ data_in[0] ^ crc[28]  ^ crc[29] ^ crc[31]) ^ crc[1];
    crc_next[6]  = (data_in[2] ^ data_in[1] ^ crc[29]    ^ crc[30]) ^ crc[ 2];
    crc_next[7]  = (data_in[3] ^ data_in[2] ^ data_in[0] ^ crc[28]  ^ crc[30] ^ crc[31]) ^ crc[3];
    crc_next[8]  = (data_in[3] ^ data_in[1] ^ data_in[0] ^ crc[28]  ^ crc[29] ^ crc[31]) ^ crc[4];
    crc_next[9]  = (data_in[2] ^ data_in[1] ^ crc[29]    ^ crc[30]) ^ crc[5];
    crc_next[10] = (data_in[3] ^ data_in[2] ^ data_in[0] ^ crc[28]  ^ crc[30] ^ crc[31]) ^ crc[6];
    crc_next[11] = (data_in[3] ^ data_in[1] ^ data_in[0] ^ crc[28]  ^ crc[29] ^ crc[31]) ^ crc[7];
    crc_next[12] = (data_in[2] ^ data_in[1] ^ data_in[0] ^ crc[28]  ^ crc[29] ^ crc[30]) ^ crc[8];
    crc_next[13] = (data_in[3] ^ data_in[2] ^ data_in[1] ^ crc[29]  ^ crc[30] ^ crc[31]) ^ crc[9];
    crc_next[14] = (data_in[3] ^ data_in[2] ^ crc[30]    ^ crc[31]) ^ crc[10];
    crc_next[15] = (data_in[3] ^ crc[31])   ^ crc[11];
    crc_next[16] = (data_in[0] ^ crc[28])   ^ crc[12];
    crc_next[17] = (data_in[1] ^ crc[29])   ^ crc[13];
    crc_next[18] = (data_in[2] ^ crc[30])   ^ crc[14];
    crc_next[19] = (data_in[3] ^ crc[31])   ^ crc[15];
    crc_next[20] =  crc[16];
    crc_next[21] =  crc[17];
    crc_next[22] = (data_in[0] ^ crc[28])   ^ crc[18];
    crc_next[23] = (data_in[1] ^ data_in[0] ^ crc[29]    ^ crc[28]) ^ crc[19];
    crc_next[24] = (data_in[2] ^ data_in[1] ^ crc[30]    ^ crc[29]) ^ crc[20];
    crc_next[25] = (data_in[3] ^ data_in[2] ^ crc[31]    ^ crc[30]) ^ crc[21];
    crc_next[26] = (data_in[3] ^ data_in[0] ^ crc[31]    ^ crc[28]) ^ crc[22];
    crc_next[27] = (data_in[1] ^ crc[29])   ^ crc[23];
    crc_next[28] = (data_in[2] ^ crc[30])   ^ crc[24];
    crc_next[29] = (data_in[3] ^ crc[31])   ^ crc[25];
    crc_next[30] =  crc[26];
    crc_next[31] =  crc[27];
 
    crc = crc_next;
    crc_error = crc[31:0] != 32'hc704dd7b;  // CRC not equal to magic number
    case (nibble_cnt)
    9: crc_out = {!crc[24], !crc[25], !crc[26], !crc[27], !crc[28], !crc[29], !crc[30], !crc[31],
                  !crc[16], !crc[17], !crc[18], !crc[19], !crc[20], !crc[21], !crc[22], !crc[23],
                  !crc[ 8], !crc[ 9], !crc[10], !crc[11], !crc[12], !crc[13], !crc[14], !crc[15],
                  !crc[ 0], !crc[ 1], !crc[ 2], !crc[ 3], !crc[ 4], !crc[ 5], !crc[ 6], !crc[ 7]};
    default: crc_out = crc_out;
    endcase
    // wait for delta time
    delta_t = !delta_t;
    // increment address and load new data
    if ((word_cnt+3) == 7)//4)
    begin
      // because of MAGIC NUMBER nibbles are swapped [3:0] -> [0:3]
      load_reg[31:24] = eth_phy.tx_mem[addr_cnt];
      addr_cnt = addr_cnt + 1;
      load_reg[23:16] = eth_phy.tx_mem[addr_cnt];
      addr_cnt = addr_cnt + 1;
      load_reg[15: 8] = eth_phy.tx_mem[addr_cnt];
      addr_cnt = addr_cnt + 1;
      load_reg[ 7: 0] = eth_phy.tx_mem[addr_cnt];
      addr_cnt = addr_cnt + 1;
    end
    // set new load bit position
    if((word_cnt+3) == 31)
      word_cnt = 16;
    else if ((word_cnt+3) == 23)
      word_cnt = 8;
    else if ((word_cnt+3) == 15)
      word_cnt = 0;
    else if ((word_cnt+3) == 7)
      word_cnt = 24;
    else
      word_cnt = word_cnt + 4;// - 4;
    // decrement nibble counter
    nibble_cnt = nibble_cnt - 1;
    // wait for delta time
    delta_t = !delta_t;
  end // while
  #1;
end
endtask // paralel_crc_phy_tx
 
// paralel CRC calculating for PHY RX
task paralel_crc_phy_rx;
  input  [31:0] start_addr; // start address
  input  [31:0] len; // length of frame in Bytes without CRC length
  input         plus_dribble_nibble; // if length is longer for one nibble
  output [31:0] crc;
  reg    [21:0] addr_cnt; // only 22 address lines
  integer       word_cnt;
  integer       bit_cnt;
  reg    [31:0] load_reg;
  reg    [31:0] crc_shift_reg;
  reg    [31:0] crc_store_reg;
  reg           delta_t;
begin
  #1 addr_cnt = start_addr[21:0];
  word_cnt = 24; // start of the frame
  crc_shift_reg = 0;
  delta_t = 0;
  // length must include 4 bytes of ZEROs, to generate CRC
  // get number of bits from Byte length (2^3 = 8)
  if (plus_dribble_nibble)
    bit_cnt = ((len + 4) << 3) + 3'h4; // one nibble longer
  else
    bit_cnt = ((len + 4) << 3);
  load_reg[31:24] = eth_phy.rx_mem[addr_cnt];
  addr_cnt = addr_cnt + 1;
  load_reg[23:16] = eth_phy.rx_mem[addr_cnt];
  addr_cnt = addr_cnt + 1;
  load_reg[15:8]  = eth_phy.rx_mem[addr_cnt];
  addr_cnt = addr_cnt + 1;
  load_reg[7:0]   = eth_phy.rx_mem[addr_cnt];
 
  while (bit_cnt > 0)
  begin
    // wait for delta time
    delta_t = !delta_t;
    // store previous data
    crc_store_reg = crc_shift_reg;
    // shift data in
    if(bit_cnt <= 32) // for additional 32 bits shift ZEROs in!
     crc_shift_reg[0] = 1'b0               ^ crc_store_reg[31];
    else
     crc_shift_reg[0] = load_reg[word_cnt] ^ crc_store_reg[31];
    crc_shift_reg[1]  = crc_store_reg[0]   ^ crc_store_reg[31];
    crc_shift_reg[2]  = crc_store_reg[1]   ^ crc_store_reg[31];
    crc_shift_reg[3]  = crc_store_reg[2];
    crc_shift_reg[4]  = crc_store_reg[3]   ^ crc_store_reg[31];
    crc_shift_reg[5]  = crc_store_reg[4]   ^ crc_store_reg[31];
    crc_shift_reg[6]  = crc_store_reg[5];
    crc_shift_reg[7]  = crc_store_reg[6]   ^ crc_store_reg[31];
    crc_shift_reg[8]  = crc_store_reg[7]   ^ crc_store_reg[31];
    crc_shift_reg[9]  = crc_store_reg[8];
    crc_shift_reg[10] = crc_store_reg[9]   ^ crc_store_reg[31];
    crc_shift_reg[11] = crc_store_reg[10]  ^ crc_store_reg[31];
    crc_shift_reg[12] = crc_store_reg[11]  ^ crc_store_reg[31];
    crc_shift_reg[13] = crc_store_reg[12];
    crc_shift_reg[14] = crc_store_reg[13];
    crc_shift_reg[15] = crc_store_reg[14];
    crc_shift_reg[16] = crc_store_reg[15]  ^ crc_store_reg[31];
    crc_shift_reg[17] = crc_store_reg[16];
    crc_shift_reg[18] = crc_store_reg[17];
    crc_shift_reg[19] = crc_store_reg[18];
    crc_shift_reg[20] = crc_store_reg[19];
    crc_shift_reg[21] = crc_store_reg[20];
    crc_shift_reg[22] = crc_store_reg[21]  ^ crc_store_reg[31];
    crc_shift_reg[23] = crc_store_reg[22]  ^ crc_store_reg[31];
    crc_shift_reg[24] = crc_store_reg[23];
    crc_shift_reg[25] = crc_store_reg[24];
    crc_shift_reg[26] = crc_store_reg[25]  ^ crc_store_reg[31];
    crc_shift_reg[27] = crc_store_reg[26];
    crc_shift_reg[28] = crc_store_reg[27];
    crc_shift_reg[29] = crc_store_reg[28];
    crc_shift_reg[30] = crc_store_reg[29];
    crc_shift_reg[31] = crc_store_reg[30];
    // wait for delta time
    delta_t = !delta_t;
    // increment address and load new data
    if (word_cnt == 7)
    begin
      addr_cnt = addr_cnt + 1;
      load_reg[31:24] = eth_phy.rx_mem[addr_cnt];
      addr_cnt = addr_cnt + 1;
      load_reg[23:16] = eth_phy.rx_mem[addr_cnt];
      addr_cnt = addr_cnt + 1;
      load_reg[15:8]  = eth_phy.rx_mem[addr_cnt];
      addr_cnt = addr_cnt + 1;
      load_reg[7:0]   = eth_phy.rx_mem[addr_cnt];
    end
    // set new load bit position
    if(word_cnt == 31)
      word_cnt = 16;
    else if (word_cnt == 23)
      word_cnt = 8;
    else if (word_cnt == 15)
      word_cnt = 0;
    else if (word_cnt == 7)
      word_cnt = 24;
    else
      word_cnt = word_cnt + 1;
    // decrement bit counter
    bit_cnt = bit_cnt - 1;
    // wait for delta time
    delta_t = !delta_t;
  end // while
 
  // put CRC out
  crc = crc_shift_reg;
  #1;
end
endtask // paralel_crc_phy_rx
 
// paralel CRC checking for MAC
task paralel_crc_mac;
  input  [31:0] start_addr; // start address
  input  [31:0] len; // length of frame in Bytes without CRC length
  input         plus_dribble_nibble; // if length is longer for one nibble
  output [31:0] crc;
  reg    [19:0] addr_cnt; // only 20 address lines
  integer       word_cnt;
  integer       bit_cnt;
  reg    [31:0] load_reg;
  reg    [31:0] crc_shift_reg;
  reg    [31:0] crc_store_reg;
  reg           delta_t;
begin
  #1 addr_cnt = start_addr[19:0];
  // set starting point depending with which byte frame starts (e.g. if addr_cnt[1:0] == 0, then
  //   MSB of the packet must be written to the LSB of Big ENDIAN Word [31:24])
  if (addr_cnt[1:0] == 2'h1)
    word_cnt = 16; // start of the frame for Big ENDIAN Bytes (Litle ENDIAN bits)
  else if (addr_cnt[1:0] == 2'h2)
    word_cnt = 8; // start of the frame for Big ENDIAN Bytes (Litle ENDIAN bits)
  else if (addr_cnt[1:0] == 2'h3)
    word_cnt = 0; // start of the frame for Big ENDIAN Bytes (Litle ENDIAN bits)
  else
    word_cnt = 24; // start of the frame for Big ENDIAN Bytes (Litle ENDIAN bits)
 
  crc_shift_reg = 0;
  delta_t = 0;
  // length must include 4 bytes of ZEROs, to generate CRC
  // get number of bits from Byte length (2^3 = 8)
  if (plus_dribble_nibble)
    bit_cnt = ((len + 4) << 3) + 3'h4; // one nibble longer
  else
    bit_cnt = ((len + 4) << 3);
  load_reg = wb_slave.wb_memory[{12'h0, addr_cnt}];
 
  while (bit_cnt > 0)
  begin
    // wait for delta time
    delta_t = !delta_t;
    // store previous data
    crc_store_reg = crc_shift_reg;
    // shift data in
    if(bit_cnt <= 32) // for additional 32 bits shift ZEROs in!
     crc_shift_reg[0] = 1'b0               ^ crc_store_reg[31];
    else
     crc_shift_reg[0] = load_reg[word_cnt] ^ crc_store_reg[31];
    crc_shift_reg[1]  = crc_store_reg[0]   ^ crc_store_reg[31];
    crc_shift_reg[2]  = crc_store_reg[1]   ^ crc_store_reg[31];
    crc_shift_reg[3]  = crc_store_reg[2];
    crc_shift_reg[4]  = crc_store_reg[3]   ^ crc_store_reg[31];
    crc_shift_reg[5]  = crc_store_reg[4]   ^ crc_store_reg[31];
    crc_shift_reg[6]  = crc_store_reg[5];
    crc_shift_reg[7]  = crc_store_reg[6]   ^ crc_store_reg[31];
    crc_shift_reg[8]  = crc_store_reg[7]   ^ crc_store_reg[31];
    crc_shift_reg[9]  = crc_store_reg[8];
    crc_shift_reg[10] = crc_store_reg[9]   ^ crc_store_reg[31];
    crc_shift_reg[11] = crc_store_reg[10]  ^ crc_store_reg[31];
    crc_shift_reg[12] = crc_store_reg[11]  ^ crc_store_reg[31];
    crc_shift_reg[13] = crc_store_reg[12];
    crc_shift_reg[14] = crc_store_reg[13];
    crc_shift_reg[15] = crc_store_reg[14];
    crc_shift_reg[16] = crc_store_reg[15]  ^ crc_store_reg[31];
    crc_shift_reg[17] = crc_store_reg[16];
    crc_shift_reg[18] = crc_store_reg[17];
    crc_shift_reg[19] = crc_store_reg[18];
    crc_shift_reg[20] = crc_store_reg[19];
    crc_shift_reg[21] = crc_store_reg[20];
    crc_shift_reg[22] = crc_store_reg[21]  ^ crc_store_reg[31];
    crc_shift_reg[23] = crc_store_reg[22]  ^ crc_store_reg[31];
    crc_shift_reg[24] = crc_store_reg[23];
    crc_shift_reg[25] = crc_store_reg[24];
    crc_shift_reg[26] = crc_store_reg[25]  ^ crc_store_reg[31];
    crc_shift_reg[27] = crc_store_reg[26];
    crc_shift_reg[28] = crc_store_reg[27];
    crc_shift_reg[29] = crc_store_reg[28];
    crc_shift_reg[30] = crc_store_reg[29];
    crc_shift_reg[31] = crc_store_reg[30];
    // wait for delta time
    delta_t = !delta_t;
    // increment address and load new data for Big ENDIAN Bytes (Litle ENDIAN bits)
    if (word_cnt == 7)
    begin
      addr_cnt = addr_cnt + 4;
      load_reg = wb_slave.wb_memory[{12'h0, addr_cnt}];
    end
    // set new load bit position for Big ENDIAN Bytes (Litle ENDIAN bits)
    if(word_cnt == 31)
      word_cnt = 16;
    else if (word_cnt == 23)
      word_cnt = 8;
    else if (word_cnt == 15)
      word_cnt = 0;
    else if (word_cnt == 7)
      word_cnt = 24;
    else
      word_cnt = word_cnt + 1;
    // decrement bit counter
    bit_cnt = bit_cnt - 1;
    // wait for delta time
    delta_t = !delta_t;
  end // while
 
  // put CRC out
  crc = crc_shift_reg;
  #1;
end
endtask // paralel_crc_mac
 
// serial CRC checking for PHY TX
task serial_crc_phy_tx;
  input  [31:0] start_addr; // start address
  input  [31:0] len; // length of frame in Bytes without CRC length
  input         plus_dribble_nibble; // if length is longer for one nibble
  output [31:0] crc;
  reg    [21:0] addr_cnt; // only 22 address lines
  integer       word_cnt;
  integer       bit_cnt;
  reg    [31:0] load_reg;
  reg    [31:0] crc_shift_reg;
  reg    [31:0] crc_store_reg;
  reg           delta_t;
begin
  #1 addr_cnt = start_addr[21:0];
  word_cnt = 24; // 27; // start of the frame - nibble granularity (MSbit first)
  crc_store_reg = 32'hFFFF_FFFF; // INITIAL value
  delta_t = 0;
  // length must include 4 bytes of ZEROs, to generate CRC
  // get number of bits from Byte length (2^3 = 8)
  if (plus_dribble_nibble)
    bit_cnt = ((len + 4) << 3) + 3'h4; // one nibble longer
  else
    bit_cnt = ((len + 4) << 3);
  // because of MAGIC NUMBER nibbles are swapped [3:0] -> [0:3]
  load_reg[31:24] = eth_phy.tx_mem[addr_cnt];
  addr_cnt = addr_cnt + 1;
  load_reg[23:16] = eth_phy.tx_mem[addr_cnt];
  addr_cnt = addr_cnt + 1;
  load_reg[15: 8] = eth_phy.tx_mem[addr_cnt];
  addr_cnt = addr_cnt + 1;
  load_reg[ 7: 0] = eth_phy.tx_mem[addr_cnt];
  addr_cnt = addr_cnt + 1;
#1;
  while (bit_cnt > 0)
  begin
    // wait for delta time
    delta_t = !delta_t;
#1;
    // shift data in
 
    if(bit_cnt <= 32) // for additional 32 bits shift ZEROs in!
     crc_shift_reg[0] = 1'b0               ^ crc_store_reg[31];
    else
 
     crc_shift_reg[0] = load_reg[word_cnt] ^ crc_store_reg[31];
    crc_shift_reg[1]  = crc_store_reg[0]   ^ crc_store_reg[31];
    crc_shift_reg[2]  = crc_store_reg[1]   ^ crc_store_reg[31];
    crc_shift_reg[3]  = crc_store_reg[2];
    crc_shift_reg[4]  = crc_store_reg[3]   ^ crc_store_reg[31];
    crc_shift_reg[5]  = crc_store_reg[4]   ^ crc_store_reg[31];
    crc_shift_reg[6]  = crc_store_reg[5];
    crc_shift_reg[7]  = crc_store_reg[6]   ^ crc_store_reg[31];
    crc_shift_reg[8]  = crc_store_reg[7]   ^ crc_store_reg[31];
    crc_shift_reg[9]  = crc_store_reg[8];
    crc_shift_reg[10] = crc_store_reg[9]   ^ crc_store_reg[31];
    crc_shift_reg[11] = crc_store_reg[10]  ^ crc_store_reg[31];
    crc_shift_reg[12] = crc_store_reg[11]  ^ crc_store_reg[31];
    crc_shift_reg[13] = crc_store_reg[12];
    crc_shift_reg[14] = crc_store_reg[13];
    crc_shift_reg[15] = crc_store_reg[14];
    crc_shift_reg[16] = crc_store_reg[15]  ^ crc_store_reg[31];
    crc_shift_reg[17] = crc_store_reg[16];
    crc_shift_reg[18] = crc_store_reg[17];
    crc_shift_reg[19] = crc_store_reg[18];
    crc_shift_reg[20] = crc_store_reg[19];
    crc_shift_reg[21] = crc_store_reg[20];
    crc_shift_reg[22] = crc_store_reg[21]  ^ crc_store_reg[31];
    crc_shift_reg[23] = crc_store_reg[22]  ^ crc_store_reg[31];
    crc_shift_reg[24] = crc_store_reg[23];
    crc_shift_reg[25] = crc_store_reg[24];
    crc_shift_reg[26] = crc_store_reg[25]  ^ crc_store_reg[31];
    crc_shift_reg[27] = crc_store_reg[26];
    crc_shift_reg[28] = crc_store_reg[27];
    crc_shift_reg[29] = crc_store_reg[28];
    crc_shift_reg[30] = crc_store_reg[29];
    crc_shift_reg[31] = crc_store_reg[30];
    // wait for delta time
    delta_t = !delta_t;
 
    // store previous data
    crc_store_reg = crc_shift_reg;
 
    // put CRC out
    case (bit_cnt)
    33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 1:
    begin
      crc = crc_store_reg;
      crc = {!crc[24], !crc[25], !crc[26], !crc[27], !crc[28], !crc[29], !crc[30], !crc[31],
             !crc[16], !crc[17], !crc[18], !crc[19], !crc[20], !crc[21], !crc[22], !crc[23],
             !crc[ 8], !crc[ 9], !crc[10], !crc[11], !crc[12], !crc[13], !crc[14], !crc[15],
             !crc[ 0], !crc[ 1], !crc[ 2], !crc[ 3], !crc[ 4], !crc[ 5], !crc[ 6], !crc[ 7]};
    end
    default: crc = crc;
    endcase
 
    // increment address and load new data
#1;
    if (word_cnt == 7)//4)
    begin
      // because of MAGIC NUMBER nibbles are swapped [3:0] -> [0:3]
      load_reg[31:24] = eth_phy.tx_mem[addr_cnt];
//      load_reg[31:24] = {load_reg[28], load_reg[29], load_reg[30], load_reg[31], 
//                         load_reg[24], load_reg[25], load_reg[26], load_reg[27]};
      addr_cnt = addr_cnt + 1;
      load_reg[23:16] = eth_phy.tx_mem[addr_cnt];
//      load_reg[23:16] = {load_reg[20], load_reg[21], load_reg[22], load_reg[23], 
//                         load_reg[16], load_reg[17], load_reg[18], load_reg[19]};
      addr_cnt = addr_cnt + 1;
      load_reg[15: 8] = eth_phy.tx_mem[addr_cnt];
//      load_reg[15: 8] = {load_reg[12], load_reg[13], load_reg[14], load_reg[15], 
//                         load_reg[ 8], load_reg[ 9], load_reg[10], load_reg[11]};
      addr_cnt = addr_cnt + 1;
      load_reg[ 7: 0] = eth_phy.tx_mem[addr_cnt];
//      load_reg[ 7: 0] = {load_reg[ 4], load_reg[ 5], load_reg[ 6], load_reg[ 7], 
//                         load_reg[ 0], load_reg[ 1], load_reg[ 2], load_reg[ 3]};
      addr_cnt = addr_cnt + 1;
    end
#1;
    // set new load bit position
    if(word_cnt == 31)
      word_cnt = 16;
    else if (word_cnt == 23)
      word_cnt = 8;
    else if (word_cnt == 15)
      word_cnt = 0;
    else if (word_cnt == 7)
      word_cnt = 24;
 
//   if(word_cnt == 24)
//     word_cnt = 31;
//   else if (word_cnt == 28)
//     word_cnt = 19;
//   else if (word_cnt == 16)
//     word_cnt = 23;
//   else if (word_cnt == 20)
//     word_cnt = 11;
//   else if(word_cnt == 8)
//     word_cnt = 15;
//   else if (word_cnt == 12)
//     word_cnt = 3;
//   else if (word_cnt == 0)
//     word_cnt = 7;
//   else if (word_cnt == 4)
//     word_cnt = 27;
    else
      word_cnt = word_cnt + 1;// - 1;
#1;
    // decrement bit counter
    bit_cnt = bit_cnt - 1;
#1;
    // wait for delta time
    delta_t = !delta_t;
  end // while
 
  #1;
end
endtask // serial_crc_phy_tx
 
// serial CRC calculating for PHY RX
task serial_crc_phy_rx;
  input  [31:0] start_addr; // start address
  input  [31:0] len; // length of frame in Bytes without CRC length
  input         plus_dribble_nibble; // if length is longer for one nibble
  output [31:0] crc;
  reg    [21:0] addr_cnt; // only 22 address lines
  integer       word_cnt;
  integer       bit_cnt;
  reg    [31:0] load_reg;
  reg    [31:0] crc_shift_reg;
  reg    [31:0] crc_store_reg;
  reg           delta_t;
begin
  #1 addr_cnt = start_addr[21:0];
  word_cnt = 24; // start of the frame
  crc_shift_reg = 0;
  delta_t = 0;
  // length must include 4 bytes of ZEROs, to generate CRC
  // get number of bits from Byte length (2^3 = 8)
  if (plus_dribble_nibble)
    bit_cnt = ((len + 4) << 3) + 3'h4; // one nibble longer
  else
    bit_cnt = ((len + 4) << 3);
  load_reg[31:24] = eth_phy.rx_mem[addr_cnt];
  addr_cnt = addr_cnt + 1;
  load_reg[23:16] = eth_phy.rx_mem[addr_cnt];
  addr_cnt = addr_cnt + 1;
  load_reg[15:8]  = eth_phy.rx_mem[addr_cnt];
  addr_cnt = addr_cnt + 1;
  load_reg[7:0]   = eth_phy.rx_mem[addr_cnt];
 
  while (bit_cnt > 0)
  begin
    // wait for delta time
    delta_t = !delta_t;
    // store previous data
    crc_store_reg = crc_shift_reg;
    // shift data in
    if(bit_cnt <= 32) // for additional 32 bits shift ZEROs in!
     crc_shift_reg[0] = 1'b0               ^ crc_store_reg[31];
    else
     crc_shift_reg[0] = load_reg[word_cnt] ^ crc_store_reg[31];
    crc_shift_reg[1]  = crc_store_reg[0]   ^ crc_store_reg[31];
    crc_shift_reg[2]  = crc_store_reg[1]   ^ crc_store_reg[31];
    crc_shift_reg[3]  = crc_store_reg[2];
    crc_shift_reg[4]  = crc_store_reg[3]   ^ crc_store_reg[31];
    crc_shift_reg[5]  = crc_store_reg[4]   ^ crc_store_reg[31];
    crc_shift_reg[6]  = crc_store_reg[5];
    crc_shift_reg[7]  = crc_store_reg[6]   ^ crc_store_reg[31];
    crc_shift_reg[8]  = crc_store_reg[7]   ^ crc_store_reg[31];
    crc_shift_reg[9]  = crc_store_reg[8];
    crc_shift_reg[10] = crc_store_reg[9]   ^ crc_store_reg[31];
    crc_shift_reg[11] = crc_store_reg[10]  ^ crc_store_reg[31];
    crc_shift_reg[12] = crc_store_reg[11]  ^ crc_store_reg[31];
    crc_shift_reg[13] = crc_store_reg[12];
    crc_shift_reg[14] = crc_store_reg[13];
    crc_shift_reg[15] = crc_store_reg[14];
    crc_shift_reg[16] = crc_store_reg[15]  ^ crc_store_reg[31];
    crc_shift_reg[17] = crc_store_reg[16];
    crc_shift_reg[18] = crc_store_reg[17];
    crc_shift_reg[19] = crc_store_reg[18];
    crc_shift_reg[20] = crc_store_reg[19];
    crc_shift_reg[21] = crc_store_reg[20];
    crc_shift_reg[22] = crc_store_reg[21]  ^ crc_store_reg[31];
    crc_shift_reg[23] = crc_store_reg[22]  ^ crc_store_reg[31];
    crc_shift_reg[24] = crc_store_reg[23];
    crc_shift_reg[25] = crc_store_reg[24];
    crc_shift_reg[26] = crc_store_reg[25]  ^ crc_store_reg[31];
    crc_shift_reg[27] = crc_store_reg[26];
    crc_shift_reg[28] = crc_store_reg[27];
    crc_shift_reg[29] = crc_store_reg[28];
    crc_shift_reg[30] = crc_store_reg[29];
    crc_shift_reg[31] = crc_store_reg[30];
    // wait for delta time
    delta_t = !delta_t;
    // increment address and load new data
    if (word_cnt == 7)
    begin
      addr_cnt = addr_cnt + 1;
      load_reg[31:24] = eth_phy.rx_mem[addr_cnt];
      addr_cnt = addr_cnt + 1;
      load_reg[23:16] = eth_phy.rx_mem[addr_cnt];
      addr_cnt = addr_cnt + 1;
      load_reg[15:8]  = eth_phy.rx_mem[addr_cnt];
      addr_cnt = addr_cnt + 1;
      load_reg[7:0]   = eth_phy.rx_mem[addr_cnt];
    end
    // set new load bit position
    if(word_cnt == 31)
      word_cnt = 16;
    else if (word_cnt == 23)
      word_cnt = 8;
    else if (word_cnt == 15)
      word_cnt = 0;
    else if (word_cnt == 7)
      word_cnt = 24;
    else
      word_cnt = word_cnt + 1;
    // decrement bit counter
    bit_cnt = bit_cnt - 1;
    // wait for delta time
    delta_t = !delta_t;
  end // while
 
  // put CRC out
  crc = crc_shift_reg;
  #1;
end
endtask // serial_crc_phy_rx
 
// serial CRC checking for MAC
task serial_crc_mac;
  input  [31:0] start_addr; // start address
  input  [31:0] len; // length of frame in Bytes without CRC length
  input         plus_dribble_nibble; // if length is longer for one nibble
  output [31:0] crc;
  reg    [19:0] addr_cnt; // only 20 address lines
  integer       word_cnt;
  integer       bit_cnt;
  reg    [31:0] load_reg;
  reg    [31:0] crc_shift_reg;
  reg    [31:0] crc_store_reg;
  reg           delta_t;
begin
  #1 addr_cnt = start_addr[19:0];
  // set starting point depending with which byte frame starts (e.g. if addr_cnt[1:0] == 0, then
  //   MSB of the packet must be written to the LSB of Big ENDIAN Word [31:24])
  if (addr_cnt[1:0] == 2'h1)
    word_cnt = 16; // start of the frame for Big ENDIAN Bytes (Litle ENDIAN bits)
  else if (addr_cnt[1:0] == 2'h2)
    word_cnt = 8; // start of the frame for Big ENDIAN Bytes (Litle ENDIAN bits)
  else if (addr_cnt[1:0] == 2'h3)
    word_cnt = 0; // start of the frame for Big ENDIAN Bytes (Litle ENDIAN bits)
  else
    word_cnt = 24; // start of the frame for Big ENDIAN Bytes (Litle ENDIAN bits)
 
  crc_shift_reg = 0;
  delta_t = 0;
  // length must include 4 bytes of ZEROs, to generate CRC
  // get number of bits from Byte length (2^3 = 8)
  if (plus_dribble_nibble)
    bit_cnt = ((len + 4) << 3) + 3'h4; // one nibble longer
  else
    bit_cnt = ((len + 4) << 3);
  load_reg = wb_slave.wb_memory[{12'h0, addr_cnt}];
 
  while (bit_cnt > 0)
  begin
    // wait for delta time
    delta_t = !delta_t;
    // store previous data
    crc_store_reg = crc_shift_reg;
    // shift data in
    if(bit_cnt <= 32) // for additional 32 bits shift ZEROs in!
     crc_shift_reg[0] = 1'b0               ^ crc_store_reg[31];
    else
     crc_shift_reg[0] = load_reg[word_cnt] ^ crc_store_reg[31];
    crc_shift_reg[1]  = crc_store_reg[0]   ^ crc_store_reg[31];
    crc_shift_reg[2]  = crc_store_reg[1]   ^ crc_store_reg[31];
    crc_shift_reg[3]  = crc_store_reg[2];
    crc_shift_reg[4]  = crc_store_reg[3]   ^ crc_store_reg[31];
    crc_shift_reg[5]  = crc_store_reg[4]   ^ crc_store_reg[31];
    crc_shift_reg[6]  = crc_store_reg[5];
    crc_shift_reg[7]  = crc_store_reg[6]   ^ crc_store_reg[31];
    crc_shift_reg[8]  = crc_store_reg[7]   ^ crc_store_reg[31];
    crc_shift_reg[9]  = crc_store_reg[8];
    crc_shift_reg[10] = crc_store_reg[9]   ^ crc_store_reg[31];
    crc_shift_reg[11] = crc_store_reg[10]  ^ crc_store_reg[31];
    crc_shift_reg[12] = crc_store_reg[11]  ^ crc_store_reg[31];
    crc_shift_reg[13] = crc_store_reg[12];
    crc_shift_reg[14] = crc_store_reg[13];
    crc_shift_reg[15] = crc_store_reg[14];
    crc_shift_reg[16] = crc_store_reg[15]  ^ crc_store_reg[31];
    crc_shift_reg[17] = crc_store_reg[16];
    crc_shift_reg[18] = crc_store_reg[17];
    crc_shift_reg[19] = crc_store_reg[18];
    crc_shift_reg[20] = crc_store_reg[19];
    crc_shift_reg[21] = crc_store_reg[20];
    crc_shift_reg[22] = crc_store_reg[21]  ^ crc_store_reg[31];
    crc_shift_reg[23] = crc_store_reg[22]  ^ crc_store_reg[31];
    crc_shift_reg[24] = crc_store_reg[23];
    crc_shift_reg[25] = crc_store_reg[24];
    crc_shift_reg[26] = crc_store_reg[25]  ^ crc_store_reg[31];
    crc_shift_reg[27] = crc_store_reg[26];
    crc_shift_reg[28] = crc_store_reg[27];
    crc_shift_reg[29] = crc_store_reg[28];
    crc_shift_reg[30] = crc_store_reg[29];
    crc_shift_reg[31] = crc_store_reg[30];
    // wait for delta time
    delta_t = !delta_t;
    // increment address and load new data for Big ENDIAN Bytes (Litle ENDIAN bits)
    if (word_cnt == 7)
    begin
      addr_cnt = addr_cnt + 4;
      load_reg = wb_slave.wb_memory[{12'h0, addr_cnt}];
    end
    // set new load bit position for Big ENDIAN Bytes (Litle ENDIAN bits)
    if(word_cnt == 31)
      word_cnt = 16;
    else if (word_cnt == 23)
      word_cnt = 8;
    else if (word_cnt == 15)
      word_cnt = 0;
    else if (word_cnt == 7)
      word_cnt = 24;
    else
      word_cnt = word_cnt + 1;
    // decrement bit counter
    bit_cnt = bit_cnt - 1;
    // wait for delta time
    delta_t = !delta_t;
  end // while
 
  // put CRC out
  crc = crc_shift_reg;
  #1;
end
endtask // serial_crc_mac
 
//////////////////////////////////////////////////////////////
// MIIM Basic tasks
//////////////////////////////////////////////////////////////
 
task reset_mii; //  MII module
  reg [31:0] tmp;
  reg [31:0] tmp_no_rst;
begin
  // read MII mode register first
  wbm_read(`ETH_MIIMODER, tmp, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // set reset bit - write back to MII mode register with RESET bit
  wbm_write(`ETH_MIIMODER, (`ETH_MIIMODER_RST | tmp), 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // clear reset bit - write back to MII mode register without RESET bit
  tmp_no_rst = `ETH_MIIMODER_RST;
  tmp_no_rst = ~tmp_no_rst;
  wbm_write(`ETH_MIIMODER, (tmp_no_rst & tmp), 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
end
endtask // reset_mii
 
task mii_set_clk_div; // set clock divider for MII clock
  input [7:0]  clk_div;
begin
  // MII mode register
  wbm_write(`ETH_MIIMODER, (`ETH_MIIMODER_CLKDIV & clk_div), 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
end
endtask // mii_set_clk_div
 
 
task check_mii_busy; // MII - check if BUSY
  reg [31:0] tmp;
begin
  @(posedge wb_clk);
  // MII read status register
  wbm_read(`ETH_MIISTATUS, tmp, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  while(tmp[`ETH_MIISTATUS_BUSY] !== 1'b0) //`ETH_MIISTATUS_BUSY
  begin
    @(posedge wb_clk);
    wbm_read(`ETH_MIISTATUS, tmp, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  end
end
endtask // check_mii_busy
 
 
task check_mii_scan_valid; // MII - check if SCAN data are valid
  reg [31:0] tmp;
begin
  @(posedge wb_clk);
  // MII read status register
  wbm_read(`ETH_MIISTATUS, tmp, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  while(tmp[`ETH_MIISTATUS_NVALID] !== 1'b0) //`ETH_MIISTATUS_NVALID
  begin
    @(posedge wb_clk);
    wbm_read(`ETH_MIISTATUS, tmp, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  end
end
endtask // check_mii_scan_valid
 
 
task mii_write_req; // requests write to MII
  input [4:0]  phy_addr;
  input [4:0]  reg_addr;
  input [15:0] data_in;
begin
  // MII address, PHY address = 1, command register address = 0
  wbm_write(`ETH_MIIADDRESS, (`ETH_MIIADDRESS_FIAD & phy_addr) | (`ETH_MIIADDRESS_RGAD & (reg_addr << 8)),
            4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // MII TX data
  wbm_write(`ETH_MIITX_DATA, {16'h0000, data_in}, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // MII command
  wbm_write(`ETH_MIICOMMAND, `ETH_MIICOMMAND_WCTRLDATA, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  @(posedge wb_clk);
end
endtask // mii_write_req
 
 
task mii_read_req; // requests read from MII
  input [4:0]  phy_addr;
  input [4:0]  reg_addr;
begin
  // MII address, PHY address = 1, command register address = 0
  wbm_write(`ETH_MIIADDRESS, (`ETH_MIIADDRESS_FIAD & phy_addr) | (`ETH_MIIADDRESS_RGAD & (reg_addr << 8)),
            4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // MII command
  wbm_write(`ETH_MIICOMMAND, `ETH_MIICOMMAND_RSTAT, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  @(posedge wb_clk);
end
endtask // mii_read_req
 
 
task mii_scan_req; // requests scan from MII
  input [4:0]  phy_addr;
  input [4:0]  reg_addr;
begin
  // MII address, PHY address = 1, command register address = 0
  wbm_write(`ETH_MIIADDRESS, (`ETH_MIIADDRESS_FIAD & phy_addr) | (`ETH_MIIADDRESS_RGAD & (reg_addr << 8)),
            4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  // MII command
  wbm_write(`ETH_MIICOMMAND, `ETH_MIICOMMAND_SCANSTAT, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  @(posedge wb_clk);
end
endtask // mii_scan_req
 
 
task mii_scan_finish; // finish scan from MII
begin
  // MII command
  wbm_write(`ETH_MIICOMMAND, 32'h0, 4'hF, 1, wbm_init_waits, wbm_subseq_waits);
  @(posedge wb_clk);
end
endtask // mii_scan_finish
 
//////////////////////////////////////////////////////////////
// Log files and memory tasks
//////////////////////////////////////////////////////////////
 
task clear_memories;
  reg    [22:0]  adr_i;
  reg            delta_t;
begin
  delta_t = 0;
  for (adr_i = 0; adr_i < 4194304; adr_i = adr_i + 1)
  begin
    eth_phy.rx_mem[adr_i[21:0]] = 0;
    eth_phy.tx_mem[adr_i[21:0]] = 0;
    wb_slave.wb_memory[adr_i[21:2]] = 0;
    delta_t = !delta_t;
  end
end
endtask // clear_memories
 
task test_note;
  input [799:0] test_note ;
  reg   [799:0] display_note ;
begin
  display_note = test_note;
  while ( display_note[799:792] == 0 )
    display_note = display_note << 8 ;
  $fdisplay( tb_log_file, " " ) ;
  $fdisplay( tb_log_file, "NOTE: %s", display_note ) ;
  $fdisplay( tb_log_file, " " ) ;
end
endtask // test_note
 
task test_heading;
  input [799:0] test_heading ;
  reg   [799:0] display_test ;
begin
  display_test = test_heading;
  while ( display_test[799:792] == 0 )
    display_test = display_test << 8 ;
  $fdisplay( tb_log_file, "  ***************************************************************************************" ) ;
  $fdisplay( tb_log_file, "  ***************************************************************************************" ) ;
  $fdisplay( tb_log_file, "  Heading: %s", display_test ) ;
  $fdisplay( tb_log_file, "  ***************************************************************************************" ) ;
  $fdisplay( tb_log_file, "  ***************************************************************************************" ) ;
  $fdisplay( tb_log_file, " " ) ;
end
endtask // test_heading
 
 
task test_fail ;
  input [7999:0] failure_reason ;
//  reg   [8007:0] display_failure ;
  reg   [7999:0] display_failure ;
  reg   [799:0] display_test ;
begin
  tests_failed = tests_failed + 1 ;
 
  display_failure = failure_reason; // {failure_reason, "!"} ;
  while ( display_failure[7999:7992] == 0 )
    display_failure = display_failure << 8 ;
 
  display_test = test_name ;
  while ( display_test[799:792] == 0 )
    display_test = display_test << 8 ;
 
  $fdisplay( tb_log_file, "    *************************************************************************************" ) ;
  $fdisplay( tb_log_file, "    At time: %t ", $time ) ;
  $fdisplay( tb_log_file, "    Test: %s", display_test ) ;
  $fdisplay( tb_log_file, "    *FAILED* because") ;
  $fdisplay( tb_log_file, "    %s", display_failure ) ;
  $fdisplay( tb_log_file, "    *************************************************************************************" ) ;
  $fdisplay( tb_log_file, " " ) ;
 
 `ifdef STOP_ON_FAILURE
    #20 $stop ;
 `endif
end
endtask // test_fail
 
 
task test_ok ;
  reg [799:0] display_test ;
begin
  tests_successfull = tests_successfull + 1 ;
 
  display_test = test_name ;
  while ( display_test[799:792] == 0 )
    display_test = display_test << 8 ;
 
  $fdisplay( tb_log_file, "    *************************************************************************************" ) ;
  $fdisplay( tb_log_file, "    At time: %t ", $time ) ;
  $fdisplay( tb_log_file, "    Test: %s", display_test ) ;
  $fdisplay( tb_log_file, "    reported *SUCCESSFULL*! ") ;
  $fdisplay( tb_log_file, "    *************************************************************************************" ) ;
  $fdisplay( tb_log_file, " " ) ;
end
endtask // test_ok
 
 
task test_summary;
begin
  $fdisplay(tb_log_file, "**************************** Ethernet MAC test summary **********************************") ;
  $fdisplay(tb_log_file, "Tests performed:   %d", tests_successfull + tests_failed) ;
  $fdisplay(tb_log_file, "Failed tests   :   %d", tests_failed) ;
  $fdisplay(tb_log_file, "Successfull tests: %d", tests_successfull) ;
  $fdisplay(tb_log_file, "**************************** Ethernet MAC test summary **********************************") ;
  $fclose(tb_log_file) ;
end
endtask // test_summary
 
 
endmodule
Line No.	Rev	Author	Line
1	116	mohor	`//////////////////////////////////////////////////////////////////////`
2			`//// ////`
3			`//// tb_ethernet.v ////`
4			`//// ////`
5			`//// This file is part of the Ethernet IP core project ////`
6			`//// http://www.opencores.org/projects/ethmac/ ////`
7			`//// ////`
8			`//// Author(s): ////`
9	169	mohor	`//// - Tadej Markovic, tadej@opencores.org ////`
10	170	mohor	`//// - Igor Mohor, igormM@opencores.org ////`
11	116	mohor	`//// ////`
12	169	mohor	`//// All additional information is available in the Readme.txt ////`
13	116	mohor	`//// file. ////`
14			`//// ////`
15			`//////////////////////////////////////////////////////////////////////`
16			`//// ////`
17			`//// Copyright (C) 2001, 2002 Authors ////`
18			`//// ////`
19			`//// This source file may be used and distributed without ////`
20			`//// restriction provided that this copyright statement is not ////`
21			`//// removed from the file and that any derivative work contains ////`
22			`//// the original copyright notice and the associated disclaimer. ////`
23			`//// ////`
24			`//// This source file is free software; you can redistribute it ////`
25			`//// and/or modify it under the terms of the GNU Lesser General ////`
26			`//// Public License as published by the Free Software Foundation; ////`
27			`//// either version 2.1 of the License, or (at your option) any ////`
28			`//// later version. ////`
29			`//// ////`
30			`//// This source is distributed in the hope that it will be ////`
31			`//// useful, but WITHOUT ANY WARRANTY; without even the implied ////`
32			`//// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR ////`
33			`//// PURPOSE. See the GNU Lesser General Public License for more ////`
34			`//// details. ////`
35			`//// ////`
36			`//// You should have received a copy of the GNU Lesser General ////`
37			`//// Public License along with this source; if not, download it ////`
38			`//// from http://www.opencores.org/lgpl.shtml ////`
39			`//// ////`
40			`//////////////////////////////////////////////////////////////////////`
41			`//`
42			`// CVS Revision History`
43			`//`
44			`// $Log: not supported by cvs2svn $`
45	177	mohor	`// Revision 1.7 2002/09/13 12:29:14 mohor`
46			`// Headers changed.`
47			`//`
48	170	mohor	`// Revision 1.6 2002/09/13 11:57:20 mohor`
49			`// New testbench. Thanks to Tadej M - "The Spammer".`
50			`//`
51	121	mohor	`// Revision 1.2 2002/07/19 14:02:47 mohor`
52			`// Clock mrx_clk set to 2.5 MHz.`
53			`//`
54	117	mohor	`// Revision 1.1 2002/07/19 13:57:53 mohor`
55			`// Testing environment also includes traffic cop, memory interface and host`
56			`// interface.`
57	116	mohor	`//`
58			`//`
59			`//`
60			`//`
61	117	mohor	`//`
62	116	mohor
63
64	169	mohor	`define TIME $display(" Time: %0t", $time)
65	116	mohor
66	169	mohor	`include "eth_phy_defines.v"
67			`include "wb_model_defines.v"
68	116	mohor	`include "tb_eth_defines.v"
69			`include "eth_defines.v"
70			`include "timescale.v"
71
72			`module tb_ethernet();`
73
74
75	169	mohor	`reg wb_clk;`
76			`reg wb_rst;`
77			`wire wb_int;`
78	116	mohor
79	169	mohor	`wire mtx_clk; // This goes to PHY`
80			`wire mrx_clk; // This goes to PHY`
81	116	mohor
82			`wire [3:0] MTxD;`
83			`wire MTxEn;`
84			`wire MTxErr;`
85
86	169	mohor	`wire [3:0] MRxD; // This goes to PHY`
87			`wire MRxDV; // This goes to PHY`
88			`wire MRxErr; // This goes to PHY`
89			`wire MColl; // This goes to PHY`
90			`wire MCrs; // This goes to PHY`
91	116	mohor
92			`wire Mdi_I;`
93			`wire Mdo_O;`
94			`wire Mdo_OE;`
95	169	mohor	`tri Mdio_IO;`
96	116	mohor	`wire Mdc_O;`
97
98
99	169	mohor	`parameter Tp = 1;`
100	116	mohor
101	121	mohor
102	116	mohor	`// Ethernet Slave Interface signals`
103	169	mohor	`wire [31:0] eth_sl_wb_adr;`
104	116	mohor	`wire [31:0] eth_sl_wb_adr_i, eth_sl_wb_dat_o, eth_sl_wb_dat_i;`
105			`wire [3:0] eth_sl_wb_sel_i;`
106			`wire eth_sl_wb_we_i, eth_sl_wb_cyc_i, eth_sl_wb_stb_i, eth_sl_wb_ack_o, eth_sl_wb_err_o;`
107
108			`// Ethernet Master Interface signals`
109			`wire [31:0] eth_ma_wb_adr_o, eth_ma_wb_dat_i, eth_ma_wb_dat_o;`
110			`wire [3:0] eth_ma_wb_sel_o;`
111			`wire eth_ma_wb_we_o, eth_ma_wb_cyc_o, eth_ma_wb_stb_o, eth_ma_wb_ack_i, eth_ma_wb_err_i;`
112
113
114
115
116			`// Connecting Ethernet top module`
117	169	mohor	`eth_top eth_top`
118	116	mohor	`(`
119			`// WISHBONE common`
120	169	mohor	`.wb_clk_i(wb_clk), .wb_rst_i(wb_rst),`
121	116	mohor
122			`// WISHBONE slave`
123	169	mohor	`.wb_adr_i(eth_sl_wb_adr_i[11:2]), .wb_sel_i(eth_sl_wb_sel_i), .wb_we_i(eth_sl_wb_we_i),`
124			`.wb_cyc_i(eth_sl_wb_cyc_i), .wb_stb_i(eth_sl_wb_stb_i), .wb_ack_o(eth_sl_wb_ack_o),`
125			`.wb_err_o(eth_sl_wb_err_o), .wb_dat_i(eth_sl_wb_dat_i), .wb_dat_o(eth_sl_wb_dat_o),`
126	116	mohor
127			`// WISHBONE master`
128			`.m_wb_adr_o(eth_ma_wb_adr_o), .m_wb_sel_o(eth_ma_wb_sel_o), .m_wb_we_o(eth_ma_wb_we_o),`
129			`.m_wb_dat_i(eth_ma_wb_dat_i), .m_wb_dat_o(eth_ma_wb_dat_o), .m_wb_cyc_o(eth_ma_wb_cyc_o),`
130			`.m_wb_stb_o(eth_ma_wb_stb_o), .m_wb_ack_i(eth_ma_wb_ack_i), .m_wb_err_i(eth_ma_wb_err_i),`
131
132			`//TX`
133			`.mtx_clk_pad_i(mtx_clk), .mtxd_pad_o(MTxD), .mtxen_pad_o(MTxEn), .mtxerr_pad_o(MTxErr),`
134
135			`//RX`
136			`.mrx_clk_pad_i(mrx_clk), .mrxd_pad_i(MRxD), .mrxdv_pad_i(MRxDV), .mrxerr_pad_i(MRxErr),`
137			`.mcoll_pad_i(MColl), .mcrs_pad_i(MCrs),`
138
139			`// MIIM`
140			`.mdc_pad_o(Mdc_O), .md_pad_i(Mdi_I), .md_pad_o(Mdo_O), .md_padoe_o(Mdo_OE),`
141
142	169	mohor	`.int_o(wb_int)`
143	116	mohor	`);`
144
145
146
147	169	mohor	`// Connecting Ethernet PHY Module`
148			`assign Mdio_IO = Mdo_OE ? Mdo_O : 1'bz ;`
149			`assign Mdi_I = Mdio_IO;`
150			`integer phy_log_file_desc;`
151
152			`eth_phy eth_phy`
153	116	mohor	`(`
154	169	mohor	`// WISHBONE reset`
155			`.m_rst_n_i(!wb_rst),`
156	116	mohor
157	169	mohor	`// MAC TX`
158			`.mtx_clk_o(mtx_clk), .mtxd_i(MTxD), .mtxen_i(MTxEn), .mtxerr_i(MTxErr),`
159
160			`// MAC RX`
161			`.mrx_clk_o(mrx_clk), .mrxd_o(MRxD), .mrxdv_o(MRxDV), .mrxerr_o(MRxErr),`
162			`.mcoll_o(MColl), .mcrs_o(MCrs),`
163
164			`// MIIM`
165			`.mdc_i(Mdc_O), .md_io(Mdio_IO),`
166
167			`// SYSTEM`
168			`.phy_log(phy_log_file_desc)`
169	116	mohor	`);`
170
171
172	169	mohor
173			`// Connecting WB Master as Host Interface`
174			`integer host_log_file_desc;`
175
176			`WB_MASTER_BEHAVIORAL wb_master`
177	116	mohor	`(`
178	169	mohor	`.CLK_I(wb_clk),`
179			`.RST_I(wb_rst),`
180			.TAG_I({`WB_TAG_WIDTH{1'b0}}),
181			`.TAG_O(),`
182			`.ACK_I(eth_sl_wb_ack_o),`
183			`.ADR_O(eth_sl_wb_adr), // only eth_sl_wb_adr_i[11:2] used`
184			`.CYC_O(eth_sl_wb_cyc_i),`
185			`.DAT_I(eth_sl_wb_dat_o),`
186			`.DAT_O(eth_sl_wb_dat_i),`
187			`.ERR_I(eth_sl_wb_err_o),`
188			`.RTY_I(1'b0), // inactive (1'b0)`
189			`.SEL_O(eth_sl_wb_sel_i),`
190			`.STB_O(eth_sl_wb_stb_i),`
191			`.WE_O (eth_sl_wb_we_i),`
192			`.CAB_O() // NOT USED for now!`
193			`);`
194
195			`assign eth_sl_wb_adr_i = {20'h0, eth_sl_wb_adr[11:2], 2'h0};`
196
197
198
199			`// Connecting WB Slave as Memory Interface Module`
200			`integer memory_log_file_desc;`
201
202			`WB_SLAVE_BEHAVIORAL wb_slave`
203			`(`
204			`.CLK_I(wb_clk),`
205			`.RST_I(wb_rst),`
206			`.ACK_O(eth_ma_wb_ack_i),`
207			`.ADR_I(eth_ma_wb_adr_o),`
208			`.CYC_I(eth_ma_wb_cyc_o),`
209			`.DAT_O(eth_ma_wb_dat_i),`
210			`.DAT_I(eth_ma_wb_dat_o),`
211			`.ERR_O(eth_ma_wb_err_i),`
212			`.RTY_O(), // NOT USED for now!`
213			`.SEL_I(eth_ma_wb_sel_o),`
214			`.STB_I(eth_ma_wb_stb_o),`
215			`.WE_I (eth_ma_wb_we_o),`
216			`.CAB_I(1'b0) // inactive (1'b0)`
217			`);`
218
219
220
221			`// Connecting WISHBONE Bus Monitors to ethernet master and slave interfaces`
222			`integer wb_s_mon_log_file_desc ;`
223			`integer wb_m_mon_log_file_desc ;`
224
225			`WB_BUS_MON wb_eth_slave_bus_mon`
226			`(`
227	116	mohor	`// WISHBONE common`
228	169	mohor	`.CLK_I(wb_clk),`
229			`.RST_I(wb_rst),`
230	116	mohor
231	169	mohor	`// WISHBONE slave`
232			`.ACK_I(eth_sl_wb_ack_o),`
233			`.ADDR_O({20'h0, eth_sl_wb_adr_i[11:2], 2'b0}),`
234			`.CYC_O(eth_sl_wb_cyc_i),`
235			`.DAT_I(eth_sl_wb_dat_o),`
236			`.DAT_O(eth_sl_wb_dat_i),`
237			`.ERR_I(eth_sl_wb_err_o),`
238			`.RTY_I(1'b0),`
239			`.SEL_O(eth_sl_wb_sel_i),`
240			`.STB_O(eth_sl_wb_stb_i),`
241			`.WE_O (eth_sl_wb_we_i),`
242			.TAG_I({`WB_TAG_WIDTH{1'b0}}),
243			`.TAG_O(),`
244			`.CAB_O(1'b0),`
245			`.log_file_desc (wb_s_mon_log_file_desc)`
246			`);`
247
248			`WB_BUS_MON wb_eth_master_bus_mon`
249			`(`
250			`// WISHBONE common`
251			`.CLK_I(wb_clk),`
252			`.RST_I(wb_rst),`
253
254	116	mohor	`// WISHBONE master`
255	169	mohor	`.ACK_I(eth_ma_wb_ack_i),`
256			`.ADDR_O(eth_ma_wb_adr_o),`
257			`.CYC_O(eth_ma_wb_cyc_o),`
258			`.DAT_I(eth_ma_wb_dat_i),`
259			`.DAT_O(eth_ma_wb_dat_o),`
260			`.ERR_I(eth_ma_wb_err_i),`
261			`.RTY_I(1'b0),`
262			`.SEL_O(eth_ma_wb_sel_o),`
263			`.STB_O(eth_ma_wb_stb_o),`
264			`.WE_O (eth_ma_wb_we_o),`
265			.TAG_I({`WB_TAG_WIDTH{1'b0}}),
266			`.TAG_O(),`
267			`.CAB_O(1'b0),`
268			`.log_file_desc(wb_m_mon_log_file_desc)`
269	116	mohor	`);`
270
271
272
273	169	mohor	`reg StartTB;`
274			`integer tb_log_file;`
275	116	mohor
276	169	mohor	`initial`
277			`begin`
278			`tb_log_file = $fopen("../log/eth_tb.log");`
279			`if (tb_log_file < 2)`
280			`begin`
281			`$display("*E Could not open/create testbench log file in ../log/ directory!");`
282			`$finish;`
283			`end`
284			`$fdisplay(tb_log_file, "========================== ETHERNET IP Core Testbench results ===========================");`
285			`$fdisplay(tb_log_file, " ");`
286	116	mohor
287	169	mohor	`phy_log_file_desc = $fopen("../log/eth_tb_phy.log");`
288			`if (phy_log_file_desc < 2)`
289			`begin`
290			`$fdisplay(tb_log_file, "*E Could not open/create eth_tb_phy.log file in ../log/ directory!");`
291			`$finish;`
292			`end`
293			`$fdisplay(phy_log_file_desc, "================ PHY Module Testbench access log ================");`
294			`$fdisplay(phy_log_file_desc, " ");`
295
296			`memory_log_file_desc = $fopen("../log/eth_tb_memory.log");`
297			`if (memory_log_file_desc < 2)`
298			`begin`
299			`$fdisplay(tb_log_file, "*E Could not open/create eth_tb_memory.log file in ../log/ directory!");`
300			`$finish;`
301			`end`
302			`$fdisplay(memory_log_file_desc, "=============== MEMORY Module Testbench access log ===============");`
303			`$fdisplay(memory_log_file_desc, " ");`
304
305			`host_log_file_desc = $fopen("../log/eth_tb_host.log");`
306			`if (host_log_file_desc < 2)`
307			`begin`
308			`$fdisplay(tb_log_file, "*E Could not open/create eth_tb_host.log file in ../log/ directory!");`
309			`$finish;`
310			`end`
311			`$fdisplay(host_log_file_desc, "================ HOST Module Testbench access log ================");`
312			`$fdisplay(host_log_file_desc, " ");`
313
314			`wb_s_mon_log_file_desc = $fopen("../log/eth_tb_wb_s_mon.log");`
315			`if (wb_s_mon_log_file_desc < 2)`
316			`begin`
317			`$fdisplay(tb_log_file, "*E Could not open/create eth_tb_wb_s_mon.log file in ../log/ directory!");`
318			`$finish;`
319			`end`
320			`$fdisplay(wb_s_mon_log_file_desc, "============== WISHBONE Slave Bus Monitor error log ==============");`
321			`$fdisplay(wb_s_mon_log_file_desc, " ");`
322			`$fdisplay(wb_s_mon_log_file_desc, " Only ERRONEOUS conditions are logged !");`
323			`$fdisplay(wb_s_mon_log_file_desc, " ");`
324
325			`wb_m_mon_log_file_desc = $fopen("../log/eth_tb_wb_m_mon.log");`
326			`if (wb_m_mon_log_file_desc < 2)`
327			`begin`
328			`$fdisplay(tb_log_file, "*E Could not open/create eth_tb_wb_m_mon.log file in ../log/ directory!");`
329			`$finish;`
330			`end`
331			`$fdisplay(wb_m_mon_log_file_desc, "============= WISHBONE Master Bus Monitor error log =============");`
332			`$fdisplay(wb_m_mon_log_file_desc, " ");`
333			`$fdisplay(wb_m_mon_log_file_desc, " Only ERRONEOUS conditions are logged !");`
334			`$fdisplay(wb_m_mon_log_file_desc, " ");`
335
336			`// Clear memories`
337			`clear_memories;`
338
339			`// Reset pulse`
340			`wb_rst = 1'b1;`
341			`#423 wb_rst = 1'b0;`
342			`#423 StartTB = 1'b1;`
343			`end`
344
345
346
347			`// Generating wb_clk clock`
348	116	mohor	`initial`
349			`begin`
350	169	mohor	`wb_clk=0;`
351			`// forever #2.5 wb_clk = ~wb_clk; // 2*2.5 ns -> 200.0 MHz`
352			`// forever #5 wb_clk = ~wb_clk; // 2*5 ns -> 100.0 MHz`
353			`// forever #10 wb_clk = ~wb_clk; // 2*10 ns -> 50.0 MHz`
354			`// forever #12.5 wb_clk = ~wb_clk; // 2*12.5 ns -> 40 MHz`
355			`// forever #15 wb_clk = ~wb_clk; // 2*10 ns -> 33.3 MHz`
356			`forever #20 wb_clk = ~wb_clk; // 2*20 ns -> 25 MHz`
357			`// forever #25 wb_clk = ~wb_clk; // 2*25 ns -> 20.0 MHz`
358			`// forever #31.25 wb_clk = ~wb_clk; // 2*31.25 ns -> 16.0 MHz`
359			`// forever #50 wb_clk = ~wb_clk; // 2*50 ns -> 10.0 MHz`
360			`// forever #55 wb_clk = ~wb_clk; // 2*55 ns -> 9.1 MHz`
361	116	mohor	`end`
362
363
364
365	169	mohor	`integer tests_successfull;`
366			`integer tests_failed;`
367			`reg [799:0] test_name; // used for tb_log_file`
368	121	mohor
369	169	mohor	`reg [3:0] wbm_init_waits; // initial wait cycles between CYC_O and STB_O of WB Master`
370			`reg [3:0] wbm_subseq_waits; // subsequent wait cycles between STB_Os of WB Master`
371			`reg [2:0] wbs_waits; // wait cycles befor WB Slave responds`
372			`reg [7:0] wbs_retries; // if RTY response, then this is the number of retries before ACK`
373
374	116	mohor	`initial`
375			`begin`
376	169	mohor	`wait(StartTB); // Start of testbench`
377
378			`// Initial global values`
379			`tests_successfull = 0;`
380			`tests_failed = 0;`
381
382			`wbm_init_waits = 4'h1;`
383			`wbm_subseq_waits = 4'h3;`
384			`wbs_waits = 4'h1;`
385			`wbs_retries = 8'h2;`
386			wb_slave.cycle_response(`ACK_RESPONSE, wbs_waits, wbs_retries);
387
388
389			`// Call tests`
390			`// ----------`
391	177	mohor	`// test_access_to_mac_reg(0, 3); // 0 - 3`
392			`// test_mii(0, 17); // 0 - 17`
393			`test_mii(0, 1); // 0 - 17`
394	169	mohor	`test_note("PHY generates ideal Carrier sense and Collision signals for following tests");`
395			`eth_phy.carrier_sense_real_delay(0);`
396			`test_mac_full_duplex_transmit(0, 3); // 0 - (3)`
397
398			`test_note("PHY generates 'real' Carrier sense and Collision signals for following tests");`
399			`eth_phy.carrier_sense_real_delay(1);`
400
401
402			`// Finish test's logs`
403			`test_summary;`
404			`$display("\n\n END of SIMULATION");`
405			`$fclose(tb_log_file \| phy_log_file_desc \| memory_log_file_desc \| host_log_file_desc);`
406			`$fclose(wb_s_mon_log_file_desc \| wb_m_mon_log_file_desc);`
407
408			`$stop;`
409	116	mohor	`end`
410	169	mohor
411	116	mohor
412	169	mohor
413			`//////////////////////////////////////////////////////////////`
414			`// Test tasks`
415			`//////////////////////////////////////////////////////////////`
416
417			`task test_access_to_mac_reg;`
418			`input [31:0] start_task;`
419			`input [31:0] end_task;`
420			`integer bit_start_1;`
421			`integer bit_end_1;`
422			`integer bit_start_2;`
423			`integer bit_end_2;`
424			`integer num_of_reg;`
425			`integer i_addr;`
426			`integer i_data;`
427			`integer i_length;`
428			`integer tmp_data;`
429			`reg [31:0] tx_bd_num;`
430			reg [((`MAX_BLK_SIZE * 32) - 1):0] burst_data;
431			reg [((`MAX_BLK_SIZE * 32) - 1):0] burst_tmp_data;
432			`integer i;`
433			`integer i1;`
434			`integer i2;`
435			`integer i3;`
436			`integer fail;`
437			`reg [31:0] addr;`
438			`reg [31:0] data;`
439			`reg [31:0] data_max;`
440	116	mohor	`begin`
441	169	mohor	`// ACCESS TO MAC REGISTERS TEST`
442			`test_heading("ACCESS TO MAC REGISTERS TEST");`
443			`$display(" ");`
444			`$display("ACCESS TO MAC REGISTERS TEST");`
445			`fail = 0;`
446
447			`/* Register space`
448			`--------------`
449			`define ETH_MODER `ETH_BASE + 32'h00 Mode Register
450			`define ETH_INT `ETH_BASE + 32'h04 Interrupt Source Register
451			`define ETH_INT_MASK `ETH_BASE + 32'h08 Interrupt Mask Register
452			`define ETH_IPGT `ETH_BASE + 32'h0C Back to Bak Inter Packet Gap Register
453			`define ETH_IPGR1 `ETH_BASE + 32'h10 Non Back to Back Inter Packet Gap Register 1
454			`define ETH_IPGR2 `ETH_BASE + 32'h14 Non Back to Back Inter Packet Gap Register 2
455			`define ETH_PACKETLEN `ETH_BASE + 32'h18 Packet Length Register (min. and max.)
456			`define ETH_COLLCONF `ETH_BASE + 32'h1C Collision and Retry Configuration Register
457			`define ETH_TX_BD_NUM `ETH_BASE + 32'h20 Transmit Buffer Descriptor Number Register
458			`define ETH_CTRLMODER `ETH_BASE + 32'h24 Control Module Mode Register
459			`define ETH_MIIMODER `ETH_BASE + 32'h28 MII Mode Register
460			`define ETH_MIICOMMAND `ETH_BASE + 32'h2C MII Command Register
461			`define ETH_MIIADDRESS `ETH_BASE + 32'h30 MII Address Register
462			`define ETH_MIITX_DATA `ETH_BASE + 32'h34 MII Transmit Data Register
463			`define ETH_MIIRX_DATA `ETH_BASE + 32'h38 MII Receive Data Register
464			`define ETH_MIISTATUS `ETH_BASE + 32'h3C MII Status Register
465			`define ETH_MAC_ADDR0 `ETH_BASE + 32'h40 MAC Individual Address Register 0
466			`define ETH_MAC_ADDR1 `ETH_BASE + 32'h44 MAC Individual Address Register 1
467			`define ETH_HASH_ADDR0 `ETH_BASE + 32'h48 Hash Register 0
468			`define ETH_HASH_ADDR1 `ETH_BASE + 32'h4C Hash Register 1
469			`*/`
470
471
472			`if ((start_task <= 0) && (end_task >= 0))`
473			`begin`
474			`// TEST 'WALKING ONE' WITH SINGLE CYCLES ACROSS MAC REGISTERS ( VARIOUS BUS DELAYS )`
475			`test_name = "TEST 'WALKING ONE' WITH SINGLE CYCLES ACROSS MAC REGISTERS ( VARIOUS BUS DELAYS )";`
476			`TIME; $display(" TEST 'WALKING ONE' WITH SINGLE CYCLES ACROSS MAC REGISTERS ( VARIOUS BUS DELAYS )");
477
478			`data = 0;`
479			`for (i = 0; i <= 4; i = i + 1) // for initial wait cycles on WB bus`
480			`begin`
481			`wbm_init_waits = i;`
482			`wbm_subseq_waits = {$random} % 5; // it is not important for single accesses`
483			`for (i_addr = 0; i_addr <= 32'h4C; i_addr = i_addr + 4) // register address`
484			`begin`
485			addr = `ETH_BASE + i_addr;
486			`// set ranges of R/W bits`
487			`case (addr)`
488			`ETH_MODER:
489			`begin`
490			`bit_start_1 = 0;`
491			`bit_end_1 = 16;`
492			`bit_start_2 = 32; // not used`
493			`bit_end_2 = 32; // not used`
494			`end`
495			`ETH_INT: // READONLY - tested within INT test
496			`begin`
497			`bit_start_1 = 32; // not used`
498			`bit_end_1 = 32; // not used`
499			`bit_start_2 = 32; // not used`
500			`bit_end_2 = 32; // not used`
Browse

Tools

Subversion Repositories ethmac

[/] [ethmac/] [tags/] [rel_11/] [bench/] [verilog/] [tb_ethernet.v] - Blame information for rev 177
