Subversion Repositories 1000base-x

/////////////////////////////////////////////////////////////////////
////                                                              ////
////  File name "ge_1000baseX_tb_script.v"                        ////
////                                                              ////
////  This file is part of the :                                  ////
////                                                              ////
//// "1000BASE-X IEEE 802.3-2008 Clause 36 - PCS project"         ////
////                                                              ////
////  http://opencores.org/project,1000base-x                     ////
////                                                              ////
////  Author(s):                                                  ////
////      - D.W.Pegler Cambridge Broadband Networks Ltd           ////
////                                                              ////
////      { peglerd@gmail.com, dwp@cambridgebroadand.com }        ////
////                                                              ////
//////////////////////////////////////////////////////////////////////
////                                                              ////
//// Copyright (C) 2009 AUTHORS. All rights reserved.             ////
////                                                              ////
//// 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                     ////
////                                                              ////
//////////////////////////////////////////////////////////////////////
////                                                              ////
////                                                              ////
//////////////////////////////////////////////////////////////////////
 
`include "timescale_tb.v"
 
package ge_1000baseX_tb_script;
 
   import tb_utils::VirIntfHandle;
 
   import ethernet_threads::EthernetFlow;
   import ethernet_threads::GmiiTxThread;
   import ethernet_threads::GmiiRxThread;
 
   import ge_1000baseX_utils::reg_read;
   import ge_1000baseX_utils::reg_write;
   import ge_1000baseX_utils::read_phy_ident;
   import ge_1000baseX_utils::unplug_fo;
   import ge_1000baseX_utils::insert_fo;
   import ge_1000baseX_utils::restart_aneg; 
   import ge_1000baseX_utils::read_aneg_link_partner_capablities;
   import ge_1000baseX_utils::reset_aneg;
   import ge_1000baseX_utils::aneg_complete_poll;
   import ge_1000baseX_utils::signal_detect_poll;
 
   import ethernet_frame::ETH_A_TB;
   import ethernet_frame::ETH1000;
 
   task automatic main(VirIntfHandle vih, ref int errors);
 
      EthernetFlow eFlow = new();
 
      # 3us;
 
      vih.gmii_tx_model.set_speed(ETH1000); vih.gmii_rx_model.set_speed(ETH1000);
 
      read_phy_ident(vih);
 
      // Simulate inserting FO cable and wait for signal_detect
      insert_fo(vih); signal_detect_poll(vih);
 
      // Force ANEG restart and wait for ANEG with link partner 
      restart_aneg(vih); aneg_complete_poll(vih);
 
      // Display link partner capabilities
      read_aneg_link_partner_capablities(vih);
 
      eFlow.clear();
 
      $display("%m: Starting Ethernet frame (GMII <-> 1000baseX) tests");
 
      eFlow.create(GmiiTxThread::NEW(vih.gmii_tx_model, ETH_A_TB, ETH_A_TB, -64, 10, 96ns),
		   GmiiRxThread::NEW(vih.gmii_rx_model, ETH_A_TB, 250us, 250us, .dut_will_pad(0)));
 
      eFlow.start(errors); if (errors) return;
 
   endtask
 
endpackage