ct_parity_error.tf

来自「VHDLVERILOG语言实现的CARDBUS的IP源码,已经实现现场应用」· TF 代码 · 共 149 行

//------------------------------------------------------------------------------
//
// File : ct_parity_error.tf
// Last Modification: 06/26/2001
//
// Created In SpDE Version: SpDE 8.22
// Author :	Richard Yuan, QuickLogic Corporation
// Copyright (C) 2001, Licensed customers of QuickLogic may copy and modify
// this file for use in designing with QuickLogic devices only.
//	
// Description :
//	This file implements the master parity error handling tests of the PCI compliance
//	test suite to test the QL5332-33/QL5432-33 devices in their reference designs.
//	 
// Hierarchy:
//	This file is to be included by ct_master.tf.
//
// History:	
//	Date	        Author					Version
//	06/26/01		Richard Yuan			1.0
//		- Header added to conform to coding standard.
//
//------------------------------------------------------------------------------


	// enable bus master and clear status bits
	repeat (5) @(posedge CLK);
	master_2.target_access(32'h4,64'hFFFF0156,CONFIG_WRITE,8'hFF,0,0,1,1,1,0); 
	// write test pattern to lower memory in Target
	master_2.data_array[0] = 32'hABCDEFAB;
	master_2.data_array[1] = 32'hCDEFABCD;
	master_2.data_array[2] = 32'hEFABCDEF;
	master_2.data_array[3] = 32'h01234567;
	master_2.data_array[4] = 32'h89012345;
	master_2.data_array[5] = 32'h67890123;
	for (i = 0; i < 6; i = i + 1) begin
		master_2.be_array[i] = 4'hF;
		end
	repeat (5) @(posedge CLK);

	if (mem) master_2.target_access(32'h11110000,64'h0,MEM_WRITE,8'hFF,0,0,6,1,1,0);
	else if (io) master_2.target_access(32'h01110000,64'h0,IO_WRITE,8'hFF,0,0,6,1,1,0);
	else if (cfg) begin
		force m.IDSEL = 1'b0;	// force QL part not to respond
		master_2.target_access(32'h40000000,64'h0,CONFIG_WRITE,8'hFF,0,0,6,1,1,0);
		release m.IDSEL;
	end

	// clear upper memory in target
	master_2.data_array[0] = 32'h00000000;
	master_2.data_array[1] = 32'h00000000;
	master_2.data_array[2] = 32'h00000000;
	master_2.data_array[3] = 32'h00000000;
	master_2.data_array[4] = 32'h00000000;
	master_2.data_array[5] = 32'h00000000;
	repeat (5) @(posedge CLK);

	if (mem) master_2.target_access(32'h11118000,64'h0,MEM_WRITE,8'hFF,0,0,6,1,1,0);
	else if (io) master_2.target_access(32'h01110080,64'h0,IO_WRITE,8'hFF,0,0,6,1,1,0);
	else if (cfg) begin
		force m.IDSEL = 1'b0;	// force QL part not to respond
		master_2.target_access(32'h40000080,64'h0,CONFIG_WRITE,8'hFF,0,0,6,1,1,0);
		release m.IDSEL;
	end

	// Configure and enable a 1 cycle DMA read from the Target
	if (single_parity_error) master_2.data_array[0] = 32'h00010001;
	else master_2.data_array[0] = 32'h00020002;

	if (mem) begin
		master_2.data_array[1] = 32'h11118000 >> 2;
		master_2.data_array[2] = 32'h11110000 >> 2;
		if (mrl) master_2.data_array[3] = {8'b11_1111_01,24'h000000};
		else if (mrm) master_2.data_array[3] = {8'b11_1110_01,24'h000000};
		else master_2.data_array[3] = 32'hC1000000;
	end
	else if (io) begin
		master_2.data_array[1] = 32'h01110080 >> 2;
		master_2.data_array[2] = 32'h01110000 >> 2;
		master_2.data_array[3] = {8'b11_1001_01,24'h000000};
	end else if (cfg) begin
		master_2.data_array[1] = 32'h40000080 >> 2;
		master_2.data_array[2] = 32'h40000000 >> 2;
		master_2.data_array[3] = {8'b11_1101_01,24'h000000};
	end

	repeat (5) @(posedge CLK);
    target_1.WRONG_PAR = 1;             //# generate bad parity for lower 32 bits
    target_1.PERR_ASSERT = 1;           //# assert perr even if driven parity matches data
	master_2.target_access(32'h22000100,64'h0,MEM_WRITE,8'hFF,0,0,4,1,1,0);
	//Wait for Master DMA to complete
	for (i = 0; i < 20; i = i + 1) begin
		repeat (20) @(posedge CLK);
		master_2.target_access(32'h2200010C,64'h0,MEM_READ,8'hFF,1'b0,1'b0,7'h01,4'h1,4'h1,1'b0);
		if (master_2.data_read[25:24] == 2'b00) begin
			$display("\tMaster DMA Completed Successfully");
			i = 300;
			end
		if (master_2.data_read[25:24] == 2'b10) begin
			$display("\tMaster DMA did not complete");
			i = 300;
			end
		end
	if (i < 300) $display("\tMaster DMA did not complete (DMA Timeout)");
    target_1.WRONG_PAR = 0;             //# generate bad parity for lower 32 bits
    target_1.PERR_ASSERT = 0;           //# assert perr even if driven parity matches data
	repeat (5) @(posedge CLK);
	master_2.target_access(32'h4,64'hFFFF0156,CONFIG_READ,8'hFF,0,0,1,1,1,0);
	if (master_2.data_read[24] == 1) begin
		$display("\tData Parity Detected Status Bit Set ... Passed");
		repeat (5) @(posedge CLK);
		master_2.target_access(32'h4,64'hFFFF0156,CONFIG_WRITE,8'hFF,0,0,1,1,1,0);
		end
	else $display("\tData Parity Detected Status Bit Not Set *** FAILED***");
	repeat (5) @(posedge CLK);
    target_1.WRONG_PAR = 1;             //# generate bad parity for lower 32 bits
    target_1.PERR_ASSERT = 1;           //# assert perr even if driven parity matches data

	if (mem) begin
		if (mrl | mrm) master_2.target_access(32'h2200010C,{16'hC000,8'b00_0_111_01,8'h00},MEM_WRITE,8'hFF,0,0,1,1,1,0); 
		else master_2.target_access(32'h2200010C,64'hC0000100,MEM_WRITE,8'hFF,0,0,1,1,1,0); 
	end
	else if (io) master_2.target_access(32'h2200010C,{16'hC000,8'b00_0_001_01,8'h00},MEM_WRITE,8'hFF,0,0,1,1,1,0); 
	else if (cfg) master_2.target_access(32'h2200010C,{16'hC000,8'b00_0_101_01,8'h00},MEM_WRITE,8'hFF,0,0,1,1,1,0); 

	//Wait for Master DMA to complete
	for (i = 0; i < 20; i = i + 1) begin
		repeat (20) @(posedge CLK);
		master_2.target_access(32'h2200010C,64'h0,MEM_READ,8'hFF,1'b0,1'b0,7'h01,4'h1,4'h1,1'b0);
		if (master_2.data_read[9:8] == 2'b00) begin
			$display("\tMaster DMA Completed Successfully");
			i = 300;
			end
		if (master_2.data_read[9:8] == 2'b10) begin
			$display("\tMaster DMA did not complete");
			i = 300;
			end
		end
	if (i < 300) $display("\tMaster DMA did not complete (DMA Timeout)");
    target_1.WRONG_PAR = 0;             //# generate bad parity for lower 32 bits
    target_1.PERR_ASSERT = 0;           //# assert perr even if driven parity matches data
	repeat (5) @(posedge CLK);
	master_2.target_access(32'h4,64'hFFFF0156,CONFIG_READ,8'hFF,0,0,1,1,1,0);
	if (master_2.data_read[24] == 1)
		$display("\tData Parity Detected Status Bit Set ... Passed");
	else $display("\tData Parity Detected Status Bit Not Set *** FAILED***");
	repeat (5) @(posedge CLK);
	master_2.target_access(32'h4,64'hFFFF0156,CONFIG_WRITE,8'hFF,0,0,1,1,1,0);