Subversion Repositories pcie_sg_dma

//-----------------------------------------------------------------------------

//

// (c) Copyright 2009-2011 Xilinx, Inc. All rights reserved.

//

// This file contains confidential and proprietary information

// of Xilinx, Inc. and is protected under U.S. and

// international copyright and other intellectual property

// laws.

//

// DISCLAIMER

// This disclaimer is not a license and does not grant any

// rights to the materials distributed herewith. Except as

// otherwise provided in a valid license issued to you by

// Xilinx, and to the maximum extent permitted by applicable

// law: (1) THESE MATERIALS ARE MADE AVAILABLE "AS IS" AND

// WITH ALL FAULTS, AND XILINX HEREBY DISCLAIMS ALL WARRANTIES

// AND CONDITIONS, EXPRESS, IMPLIED, OR STATUTORY, INCLUDING

// BUT NOT LIMITED TO WARRANTIES OF MERCHANTABILITY, NON-

// INFRINGEMENT, OR FITNESS FOR ANY PARTICULAR PURPOSE; and

// (2) Xilinx shall not be liable (whether in contract or tort,

// including negligence, or under any other theory of

// liability) for any loss or damage of any kind or nature

// related to, arising under or in connection with these

// materials, including for any direct, or any indirect,

// special, incidental, or consequential loss or damage

// (including loss of data, profits, goodwill, or any type of

// loss or damage suffered as a result of any action brought

// by a third party) even if such damage or loss was

// reasonably foreseeable or Xilinx had been advised of the

// possibility of the same.

//

// CRITICAL APPLICATIONS

// Xilinx products are not designed or intended to be fail-

// safe, or for use in any application requiring fail-safe

// performance, such as life-support or safety devices or

// systems, Class III medical devices, nuclear facilities,

// applications related to the deployment of airbags, or any

// other applications that could lead to death, personal

// injury, or severe property or environmental damage

// (individually and collectively, "Critical

// Applications"). Customer assumes the sole risk and

// liability of any use of Xilinx products in Critical

// Applications, subject only to applicable laws and

// regulations governing limitations on product liability.

//

// THIS COPYRIGHT NOTICE AND DISCLAIMER MUST BE RETAINED AS

// PART OF THIS FILE AT ALL TIMES.

//

//-----------------------------------------------------------------------------

// Project    : Virtex-6 Integrated Block for PCI Express

// File       : pci_exp_usrapp_com.v

// Version    : 1.7

//--

//--------------------------------------------------------------------------------

`include "board_common.v"

module pci_exp_usrapp_com ();

/* Local variables */

reg   [31:0]           rx_file_ptr;

reg   [7:0]            frame_store_rx[5119:0];

integer                frame_store_rx_idx;

reg   [31:0]           tx_file_ptr;

reg   [7:0]            frame_store_tx[5119:0];

integer                frame_store_tx_idx;

reg   [31:0]           log_file_ptr;

integer                _frame_store_idx;

event                  rcvd_cpld, rcvd_memrd, rcvd_memwr;

event                  rcvd_cpl, rcvd_memrd64, rcvd_memwr64;

event                  rcvd_msg, rcvd_msgd, rcvd_cfgrd0;

event                  rcvd_cfgwr0, rcvd_cfgrd1, rcvd_cfgwr1;

event                  rcvd_iord, rcvd_iowr;

initial begin

  frame_store_rx_idx = 0;

  frame_store_tx_idx = 0;

  rx_file_ptr = $fopen("rx.dat");

  if (!rx_file_ptr) begin

    $write("ERROR: Could not open rx.dat.\n");

    $finish;

  end

  tx_file_ptr = $fopen("tx.dat");

  if (!tx_file_ptr) begin

    $write("ERROR: Could not open tx.dat.\n");

    $finish;

  end

end

  /************************************************************

  Task : TSK_PARSE_FRAME

  Inputs : None

  Outputs : None

  Description : Parse frame data

  *************************************************************/

  task TSK_PARSE_FRAME;

  input    log_file;

  reg   [1:0]   fmt;

  reg   [4:0]   f_type;

  reg   [2:0]   traffic_class;

  reg     td;

  reg      ep;

  reg  [1:0]   attr;

  reg  [9:0]   length;

  reg     payload;

  reg  [15:0]   requester_id;

  reg  [15:0]   completer_id;

  reg  [7:0]   tag;

  reg  [7:0]   byte_enables;

  reg  [7:0]  message_code;

  reg  [31:0]   address_low;

  reg  [31:0]   address_high;

  reg  [9:0]   register_address;

  reg   [2:0]   completion_status;

  reg  [31:0]  _log_file_ptr;

  integer    _frame_store_idx;

  begin

  if (log_file == `RX_LOG)

    _log_file_ptr = rx_file_ptr;

  else

    _log_file_ptr = tx_file_ptr;

  if (log_file == `RX_LOG) begin

    _frame_store_idx = frame_store_rx_idx;

    frame_store_rx_idx = 0;

  end else begin

    _frame_store_idx = frame_store_tx_idx;

    frame_store_tx_idx = 0;

  end

  if (log_file == `RX_LOG) begin

    $display("[%t] : TSK_PARSE_FRAME on Receive", $realtime);

    end

  else begin

    $display("[%t] : TSK_PARSE_FRAME on Transmit", $realtime);

    end

  TSK_DECIPHER_FRAME (fmt, f_type, traffic_class, td, ep, attr, length, log_file);

  // decode the packets received based on fmt and f_type

  casex({fmt, f_type})

    `PCI_EXP_MEM_READ32 : begin

      $fdisplay(_log_file_ptr, "[%t] : Memory Read-32 Frame \n", $time);

      payload = 0;

      TSK_3DW(fmt, f_type, traffic_class, td, ep, attr, length, payload, _frame_store_idx, _log_file_ptr, log_file);

      if (log_file == `RX_LOG)

        -> rcvd_memrd;

    end

    `PCI_EXP_IO_READ : begin

      $fdisplay(_log_file_ptr, "[%t] : IO Read Frame \n", $time);

      payload = 0;

      TSK_3DW(fmt, f_type, traffic_class, td, ep, attr, length, payload, _frame_store_idx, _log_file_ptr, log_file);

      if (log_file == `RX_LOG)

        -> rcvd_iord;

    end

    `PCI_EXP_CFG_READ0 : begin

      $fdisplay(_log_file_ptr, "[%t] : Config Read Type 0 Frame \n", $time);

      payload = 0;

      TSK_3DW(fmt, f_type, traffic_class, td, ep, attr, length, payload, _frame_store_idx, _log_file_ptr, log_file);

      if (log_file == `RX_LOG)

        -> rcvd_cfgrd0;

    end

    `PCI_EXP_COMPLETION_WO_DATA: begin

      $fdisplay(_log_file_ptr, "[%t] : Completion Without Data Frame \n", $time);

      payload = 0;

      TSK_3DW(fmt, f_type, traffic_class, td, ep, attr, length, payload, _frame_store_idx, _log_file_ptr, log_file);

      if (log_file == `RX_LOG)

        -> rcvd_cpl;

    end

    `PCI_EXP_MEM_READ64: begin

      $fdisplay(_log_file_ptr, "[%t] : Memory Read-64 Frame \n", $time);

      payload = 0;

      TSK_4DW(fmt, f_type, traffic_class, td, ep, attr, length, payload,  _frame_store_idx, _log_file_ptr, log_file);

      if (log_file == `RX_LOG)

        -> rcvd_memrd64;

    end

    `PCI_EXP_MSG_NODATA: begin

      $fdisplay(_log_file_ptr, "[%t] : Message With No Data Frame \n", $time);

      payload = 0;

      TSK_4DW(fmt, f_type, traffic_class, td, ep, attr, length, payload,  _frame_store_idx, _log_file_ptr, log_file);

      if (log_file == `RX_LOG)

        -> rcvd_msg;

    end

    `PCI_EXP_MEM_WRITE32: begin

      $fdisplay(_log_file_ptr, "[%t] : Memory Write-32 Frame \n", $time);

      payload = 1;

      TSK_3DW(fmt, f_type, traffic_class, td, ep, attr, length, payload, _frame_store_idx, _log_file_ptr, log_file);

      $fdisplay(_log_file_ptr, "\n");

      if (log_file == `RX_LOG)

        -> rcvd_memwr;

    end

    `PCI_EXP_IO_WRITE: begin

      $fdisplay(_log_file_ptr, "[%t] : IO Write Frame \n", $time);

      payload = 1;

      TSK_3DW(fmt, f_type, traffic_class, td, ep, attr, length, payload, _frame_store_idx, _log_file_ptr, log_file);

      $fdisplay(_log_file_ptr, "\n");

      if (log_file == `RX_LOG)

        -> rcvd_iowr;

    end

    `PCI_EXP_CFG_WRITE0: begin

      $fdisplay(_log_file_ptr, "[%t] : Config Write Type 0 Frame \n", $time);

      payload = 1;

      TSK_3DW(fmt, f_type, traffic_class, td, ep, attr, length, payload, _frame_store_idx, _log_file_ptr, log_file);

      $fdisplay(_log_file_ptr, "\n");

      if (log_file == `RX_LOG)

        -> rcvd_cfgwr0;

    end

    `PCI_EXP_COMPLETION_DATA: begin

      $fdisplay(_log_file_ptr, "[%t] : Completion With Data Frame \n", $time);

      payload = 1;

      TSK_3DW(fmt, f_type, traffic_class, td, ep, attr, length, payload, _frame_store_idx, _log_file_ptr, log_file);

      $fdisplay(_log_file_ptr, "\n");

      if (log_file == `RX_LOG)

        -> rcvd_cpld;

    end

    `PCI_EXP_MEM_WRITE64: begin

      $fdisplay(_log_file_ptr, "[%t] : Memory Write-64 Frame \n", $time);

      payload = 1;

      TSK_4DW(fmt, f_type, traffic_class, td, ep, attr, length, payload,  _frame_store_idx, _log_file_ptr, log_file);

      $fdisplay(_log_file_ptr, "\n");

      if (log_file == `RX_LOG)

        -> rcvd_memwr64;

    end

    `PCI_EXP_MSG_DATA: begin

      $fdisplay(_log_file_ptr, "[%t] : Message With Data Frame \n", $time);

      payload = 1;

      TSK_4DW(fmt, f_type, traffic_class, td, ep, attr, length, payload,  _frame_store_idx, _log_file_ptr, log_file);

      $fdisplay(_log_file_ptr, "\n");

      if (log_file == `RX_LOG)

        -> rcvd_msgd;

    end

    default: begin

      $fdisplay(_log_file_ptr, "[%t] : Not a valid frame \n", $time);

      $display(_log_file_ptr, "[%t] : Received an invalid frame \n", $time);

      $finish(2);

    end

  endcase

  end

  endtask // TSK_PARSE_FRAME

  /************************************************************

  Task : TSK_DECIPHER_FRAME

  Inputs : None

  Outputs : fmt, f_type, traffic_class, td, ep, attr, length

  Description : Deciphers frame

  *************************************************************/

  task TSK_DECIPHER_FRAME;

  output [1:0]   fmt;

  output [4:0]   f_type;

  output [2:0]   traffic_class;

  output     td;

  output     ep;

  output [1:0]   attr;

  output [9:0]   length;

  input    txrx;

  begin

    fmt = (txrx ? frame_store_tx[0] : frame_store_rx[0]) >> 5;

    f_type = txrx ? frame_store_tx[0] : frame_store_rx[0];

    traffic_class = (txrx ? frame_store_tx[1] : frame_store_rx[1]) >> 4;

    td = (txrx ? frame_store_tx[2] : frame_store_rx[2]) >> 7;

    ep = (txrx ? frame_store_tx[2] : frame_store_rx[2]) >> 6;

    attr = (txrx ? frame_store_tx[2] : frame_store_rx[2]) >> 4;

    length = (txrx ? frame_store_tx[2] : frame_store_rx[2]);

    length = (length << 8) | (txrx ? frame_store_tx[3] : frame_store_rx[3]);

  end

  endtask // TSK_DECIPHER_FRAME

  /************************************************************

  Task : TSK_3DW

  Inputs : fmt, f_type, traffic_class, td, ep, attr, length,

  payload, _frame_store_idx

  Outputs : None

  Description : Gets variables and prints frame

  *************************************************************/

  task TSK_3DW;

  input   [1:0]   fmt;

  input   [4:0]   f_type;

  input   [2:0]   traffic_class;

  input     td;

  input     ep;

  input   [1:0]   attr;

  input   [9:0]   length;

  input      payload;

  input  [31:0]  _frame_store_idx;

  input  [31:0]  _log_file_ptr;

  input     txrx;

  reg [15:0] requester_id;

  reg [7:0] tag;

  reg [7:0] byte_enables;

  reg [31:0] address_low;

  reg [15:0] completer_id;

  reg [9:0] register_address;

  reg [2:0] completion_status;

  reg [31:0] dword_data; // this will be used to recontruct bytes of data and sent to tx_app

  integer    _i;

  begin

    $fdisplay(_log_file_ptr, "\t Traffic Class: 0x%h", traffic_class);

    $fdisplay(_log_file_ptr, "\t TD: %h", td);

    $fdisplay(_log_file_ptr, "\t EP: %h", ep);

    $fdisplay(_log_file_ptr, "\t Attributes: 0x%h", attr);

    $fdisplay(_log_file_ptr, "\t Length: 0x%h", length);

    casex({fmt, f_type})

    `PCI_EXP_CFG_READ0,

    `PCI_EXP_CFG_WRITE0: begin

      requester_id = txrx ? {frame_store_tx[4], frame_store_tx[5]} : {frame_store_rx[4], frame_store_rx[5]};

      tag = txrx ? frame_store_tx[6] : frame_store_rx[6];

      byte_enables = txrx ? frame_store_tx[7] : frame_store_rx[7];

      completer_id = {txrx ? frame_store_tx[8] : frame_store_rx[8], txrx ? frame_store_tx[9] : frame_store_rx[9]};

      register_address = txrx ? frame_store_tx[10] : frame_store_rx[10];

      register_address = (register_address << 8) | (txrx ? frame_store_tx[11] : frame_store_rx[11]);

      $fdisplay(_log_file_ptr, "\t Requester Id: 0x%h", requester_id);

      $fdisplay(_log_file_ptr, "\t Tag: 0x%h", tag);

      $fdisplay(_log_file_ptr, "\t Last and First Byte Enables: 0x%h", byte_enables);

      $fdisplay(_log_file_ptr, "\t Completer Id: 0x%h", completer_id);

      $fdisplay(_log_file_ptr, "\t Register Address: 0x%h \n", register_address);

      if (payload == 1) begin

        for (_i = 12; _i < _frame_store_idx; _i = _i + 1) begin

          $fdisplay(_log_file_ptr, "\t 0x%h", txrx ? frame_store_tx[_i] : frame_store_rx[_i]);

        end

      end

    end

    `PCI_EXP_COMPLETION_WO_DATA,

    `PCI_EXP_COMPLETION_DATA: begin

      completer_id = txrx ? {frame_store_tx[4], frame_store_tx[5]} : {frame_store_rx[4], frame_store_rx[5]};

      completion_status = txrx ? (frame_store_tx[6] >> 5) : (frame_store_rx[6] >> 5);

      requester_id = txrx ? {frame_store_tx[8], frame_store_tx[9]} : {frame_store_rx[8], frame_store_rx[9]};

      tag = txrx ? frame_store_tx[10] : frame_store_rx[10];

      $fdisplay(_log_file_ptr, "\t Completer Id: 0x%h", completer_id);

      $fdisplay(_log_file_ptr, "\t Completion Status: 0x%h", completion_status);

      $fdisplay(_log_file_ptr, "\t Requester Id: 0x%h ", requester_id);

      $fdisplay(_log_file_ptr, "\t Tag: 0x%h \n", tag);

      if (payload == 1) begin

         dword_data = 32'h0000_0000;

         for (_i = 12; _i < _frame_store_idx; _i = _i + 1) begin

                $fdisplay(_log_file_ptr, "\t 0x%h", txrx ? frame_store_tx[_i] : frame_store_rx[_i]);

                if (!txrx) begin // if we are called from rx

                        dword_data = dword_data >> 8; // build a dword to send to tx app

                        dword_data = dword_data | {frame_store_rx[_i], 24'h00_0000};

                end

        end

        `TX_TASKS.TSK_SET_READ_DATA(4'hf,dword_data); // send the data to the tx_app

      end

    end

    // memory reads, io reads, memory writes and io writes

    default: begin

      requester_id = txrx ? {frame_store_tx[4], frame_store_tx[5]} : {frame_store_rx[4], frame_store_rx[5]};

      tag = txrx ? frame_store_tx[6] : frame_store_rx[6];

      byte_enables = txrx ? frame_store_tx[7] : frame_store_rx[7];

      address_low = txrx ? frame_store_tx[8] : frame_store_rx[8];

      address_low = (address_low << 8) | (txrx ? frame_store_tx[9] : frame_store_rx[9]);

      address_low = (address_low << 8) | (txrx ? frame_store_tx[10] : frame_store_rx[10]);

      address_low = (address_low << 8) | (txrx ? frame_store_tx[11] : frame_store_rx[11]);

      $fdisplay(_log_file_ptr, "\t Requester Id: 0x%h", requester_id);

      $fdisplay(_log_file_ptr, "\t Tag: 0x%h", tag);

      $fdisplay(_log_file_ptr, "\t Last and First Byte Enables: 0x%h", byte_enables);

      $fdisplay(_log_file_ptr, "\t Address Low: 0x%h \n", address_low);

      if (payload == 1) begin

        for (_i = 12; _i < _frame_store_idx; _i = _i + 1) begin

          $fdisplay(_log_file_ptr, "\t 0x%h", (txrx ? frame_store_tx[_i] : frame_store_rx[_i]));

        end

      end

    end

  endcase

  end

  endtask // TSK_3DW

  /************************************************************

  Task : TSK_4DW

  Inputs : fmt, f_type, traffic_class, td, ep, attr, length

  payload, _frame_store_idx

  Outputs : None

  Description : Gets variables and prints frame

  *************************************************************/

  task TSK_4DW;

  input [1:0]   fmt;

  input [4:0]   f_type;

  input [2:0]   traffic_class;

  input         td;

  input     ep;

  input [1:0]   attr;

  input [9:0]   length;

  input      payload;

  input  [31:0]  _frame_store_idx;

  input  [31:0]  _log_file_ptr;

  input    txrx;

  reg [15:0]   requester_id;

  reg [7:0]   tag;

  reg [7:0]   byte_enables;

  reg [7:0]   message_code;

  reg [31:0]   address_high;

  reg [31:0]   address_low;

  reg [2:0]   msg_type;

  integer    _i;

  begin

    $fdisplay(_log_file_ptr, "\t Traffic Class: 0x%h", traffic_class);

    $fdisplay(_log_file_ptr, "\t TD: %h", td);

    $fdisplay(_log_file_ptr, "\t EP: %h", ep);

    $fdisplay(_log_file_ptr, "\t Attributes: 0x%h", attr);

    $fdisplay(_log_file_ptr, "\t Length: 0x%h", length);

    requester_id = txrx ? {frame_store_tx[4], frame_store_tx[5]} : {frame_store_rx[4], frame_store_rx[5]};

    tag = txrx ? frame_store_tx[6] : frame_store_rx[6];

    byte_enables = txrx ? frame_store_tx[7] : frame_store_rx[7];

    message_code = txrx ? frame_store_tx[7] : frame_store_rx[7];

    address_high = txrx ? frame_store_tx[8] : frame_store_rx[8];

    address_high = (address_high << 8) | (txrx ? frame_store_tx[9] : frame_store_rx[9]);

    address_high = (address_high << 8) | (txrx ? frame_store_tx[10] : frame_store_rx[10]);

    address_high = (address_high << 8) | (txrx ? frame_store_tx[11] : frame_store_rx[11]);

    address_low = txrx ? frame_store_tx[12] : frame_store_rx[12];

    address_low = (address_low << 8) | (txrx ? frame_store_tx[13] : frame_store_rx[13]);

    address_low = (address_low << 8) | (txrx ? frame_store_tx[14] : frame_store_rx[14]);

    address_low = (address_low << 8) | (txrx ? frame_store_tx[15] : frame_store_rx[15]);

    $fdisplay(_log_file_ptr, "\t Requester Id: 0x%h", requester_id);

    $fdisplay(_log_file_ptr, "\t Tag: 0x%h", tag);

    casex({fmt, f_type})

      `PCI_EXP_MEM_READ64,

      `PCI_EXP_MEM_WRITE64: begin

        $fdisplay(_log_file_ptr, "\t Last and First Byte Enables: 0x%h", byte_enables);

        $fdisplay(_log_file_ptr, "\t Address High: 0x%h", address_high);

        $fdisplay(_log_file_ptr, "\t Address Low: 0x%h \n", address_low);

        if (payload == 1) begin

          for (_i = 16; _i < _frame_store_idx; _i = _i + 1) begin

            $fdisplay(_log_file_ptr, "\t 0x%h", txrx ? frame_store_tx[_i] : frame_store_rx[_i]);

          end

        end

      end

      `PCI_EXP_MSG_NODATA,

      `PCI_EXP_MSG_DATA: begin

        msg_type = f_type;

        $fdisplay(_log_file_ptr, "\t Message Type: 0x%h", msg_type);

        $fdisplay(_log_file_ptr, "\t Message Code: 0x%h", message_code);

        $fdisplay(_log_file_ptr, "\t Address High: 0x%h", address_high);

        $fdisplay(_log_file_ptr, "\t Address Low: 0x%h \n", address_low);

        if (payload == 1) begin

          for (_i = 16; _i < _frame_store_idx; _i = _i + 1) begin

            $fdisplay(_log_file_ptr, "\t 0x%h", txrx ? frame_store_tx[_i] : frame_store_rx[_i]);

          end

        end

      end

    endcase

    end

  endtask // TSK_4DW

   /************************************************************

        Task : TSK_READ_DATA

        Inputs : None

        Outputs : None

        Description : Consume clocks.

   *************************************************************/

  task TSK_READ_DATA;

    input    last;

    input    txrx;

    input  [63:0]  trn_d;

    input  [3:0]  trn_rem;

    integer   _i;

    reg  [7:0]  _byte;

    reg  [63:0]  _msk;

    reg  [3:0]  _rem;

                begin

      _msk = 64'hff00000000000000;

      _rem = last ? ((trn_rem == 8'h0F) ? 4 : 8) : 8;

      for (_i = 0; _i < _rem; _i = _i + 1) begin

        _byte = (trn_d & (_msk >> (_i * 8))) >> (((7) - _i) * 8);

        if (txrx) begin

          board.RP.com_usrapp.frame_store_tx[board.RP.com_usrapp.frame_store_tx_idx] = _byte;

          board.RP.com_usrapp.frame_store_tx_idx = board.RP.com_usrapp.frame_store_tx_idx + 1;

        end else begin

          board.RP.com_usrapp.frame_store_rx[board.RP.com_usrapp.frame_store_rx_idx] = _byte;

          board.RP.com_usrapp.frame_store_rx_idx = board.RP.com_usrapp.frame_store_rx_idx + 1;

        end

      end

                end

   endtask // TSK_READ_DATA

`include "pci_exp_expect_tasks.v"

endmodule // pci_exp_usrapp_com