User manual

52 www.xilinx.com SPI-4.2 v8.5 Getting Started Guide
UG154 March 24, 2008
Appendix B: Verilog Details
R
RandIdleRequest = {$random(`RANDOM_SEED + $random(`RANDOM_SEED +
$time))} % 100;
RandTrainingRequest = {$random(`RANDOM_SEED + $time)} % 100;
RandDIP4Request = {$random(`RANDOM_SEED + $time +
$random(`RANDOM_SEED))} % 100;
RandDIP2Request = {$random($random(`RANDOM_SEED) + $time)} % 100;
RandSnkDip2ErrRequest = {$random(`RANDOM_SEED + $random($time))} %
100;
//Randomly set TCIdleRequest to 1
if ((RandIdleRequest == 0) || (TCIdleRequest == 1))
begin
if (TCIdleRequest == 1)
begin
if (IdleRequestCnt > 0)
begin
IdleRequestCnt <= IdleRequestCnt - 1'b1;
TCIdleRequest <= 1'b1;
end
else
begin
IdleRequestCnt <= 'b0;
TCIdleRequest <= 1'b0;
end
end
else
begin
TCIdleRequest <= 1'b1;
IdleRequestCnt <= {$random(`RANDOM_SEED + $time)} % 9;
end
end
//Randomly set TCTrainingRequest to 1
if ((RandTrainingRequest == 0) || (TCTrainingRequest == 1))
begin
if (TCTrainingRequest == 1)
begin
if (TrainingRequestCnt > 0)
begin
TrainingRequestCnt <= TrainingRequestCnt - 1'b1;
TCTrainingRequest <= 1'b1;
end
else
begin
TrainingRequestCnt <= 'b0;
TCTrainingRequest <= 1'b0;
end
end
else
begin
TCTrainingRequest <= 1'b1;
TrainingRequestCnt <= {$random(`RANDOM_SEED + $time)} % 9;
end
end
//Randomly set TCDIP4Request to 1
if ((RandDIP4Request == 0) || (TCDIP4Request == 1))
begin
if (TCDIP4Request == 1)