User manual

SPI-4.2 v8.5 Getting Started Guide www.xilinx.com 53
UG154 March 24, 2008
Random Testcase Sample Code
R
begin
if (DIP4RequestCnt > 0)
begin
DIP4RequestCnt <= DIP4RequestCnt - 1'b1;
TCDIP4Request <= 1'b1;
end
else
begin
DIP4RequestCnt <= 'b0;
TCDIP4Request <= 1'b0;
end
end
else
begin
TCDIP4Request <= 1'b1;
DIP4RequestCnt <= {$random(`RANDOM_SEED + $time)} % 9;
end
end
//Randomly set TCDIP2Request to 1
if ((RandDIP2Request == 0) || (TCDIP2Request == 1))
begin
if (TCDIP2Request == 1)
begin
if (DIP2RequestCnt > 0)
begin
DIP2RequestCnt <= DIP2RequestCnt - 1'b1;
TCDIP2Request <= 1'b1;
end
else
begin
DIP2RequestCnt <= 'b0;
TCDIP2Request <= 1'b0;
end
end
else
begin
TCDIP2Request <= 1'b1;
DIP2RequestCnt <= {$random(`RANDOM_SEED + $time)} % 9;
end
end
//Randomly set TCSnkDip2ErrRequest to 1
if ((RandSnkDip2ErrRequest == 0) || (TCSnkDip2ErrRequest == 1))
begin
if (TCSnkDip2ErrRequest == 1)
begin
if (SnkDip2ErrRequestCnt > 0)
begin
SnkDip2ErrRequestCnt <= SnkDip2ErrRequestCnt - 1'b1;
TCSnkDip2ErrRequest <= 1'b1;
end
else
begin
SnkDip2ErrRequestCnt <= 'b0;
TCSnkDip2ErrRequest <= 1'b0;
end
end
else