skip_order_set.vri

FEATURES &#8226 16 bit PIPE Spec PCI Express Testbench &#8226 Link training &#8226 Initial Flo

// ===========================================================================
// File    : skip_order_set.vri
// Author  : cmagleby
// Date    : Mon Dec 3 11:03:46 MST 2007
// Project : TI PHY design
//
// Copyright (c) notice
// This code adheres to the GNU public license
//
// ===========================================================================
//
// $Id: skip_order_set.vri,v 1.1.1.1 2007-12-05 18:37:07 cmagleby Exp $
//
// ===========================================================================
//
// $Log: not supported by cvs2svn $
//
// ===========================================================================
// Function : this file generates skip order sets when the timer expires
//
// ===========================================================================
// ===========================================================================
#include <vera_defines.vrh>

//task to send in skip order sets on a regular basis.
task skip_order_set() {
  integer time_limit_expire = 0;
  integer index = 0;
  wait_var(phy_rdy);  
  while(1) {
    time_limit_expire++;
    @ (posedge CLOCK);      
    ti_phy_top.rxdatak16 = 2'b00;
    ti_phy_top.rxdata16  = 1'b0;
    //1180 symbols clk is 2 symbols
    if (time_limit_expire == 1180/2) {
      if (!semaphore_get(WAIT,my_semaphore,1))
        error ("Semaphore_get returned 0\n");
      skip_set = new(*,*,*,*,*,*);    
      skip_set.build_packet("skip");
      for (index = 0; index < skip_set.length; index ++) {
        @ (posedge CLOCK);
        //ti_phy_top.rxdatak16 = skip_set.temp_packet[index][17:16];
        //ti_phy_top.rxdata16  = skip_set.temp_packet[index][15:0];
        //adding mailbox
        mailbox_put (rx_data_mailbox, {skip_set.temp_packet[index][17:16],skip_set.temp_packet[index][15:0]});
        time_limit_expire = 0;
      }
      semaphore_put (my_semaphore, 1);
    }
  }
}


task zero_fill(){

  while(1) {
    @ (posedge CLOCK);
    if (!semaphore_get(WAIT,my_semaphore,1))
      error ("Semaphore_get returned 0\n");
    mailbox_put (rx_data_mailbox,18'b0);
    semaphore_put(my_semaphore, 1);
  }
}