58 lines
1.2 KiB
Verilog
58 lines
1.2 KiB
Verilog
// DESCRIPTION: Verilator: Verilog Test module
|
|
//
|
|
// This file ONLY is placed under the Creative Commons Public Domain, for
|
|
// any use, without warranty, 2004 by Wilson Snyder.
|
|
// SPDX-License-Identifier: CC0-1.0
|
|
|
|
module t (/*AUTOARG*/
|
|
// Inputs
|
|
clk
|
|
);
|
|
|
|
input clk;
|
|
integer cyc; initial cyc=1;
|
|
|
|
reg signed [64+15:0] data;
|
|
integer i;
|
|
integer b;
|
|
reg signed [64+15:0] srs;
|
|
|
|
always @ (posedge clk) begin
|
|
if (cyc!=0) begin
|
|
cyc <= cyc + 1;
|
|
if (cyc==2) begin
|
|
data <= 80'h0;
|
|
data[75] <= 1'b1;
|
|
data[10] <= 1'b1;
|
|
end
|
|
if (cyc==3) begin
|
|
for (i=0; i<85; i=i+1) begin
|
|
srs = data>>>i;
|
|
//$write (" %x >>> %d == %x\n",data,i,srs);
|
|
for (b=0; b<80; b=b+1) begin
|
|
if (srs[b] != (b==(75-i) || b==(10-i))) $stop;
|
|
end
|
|
end
|
|
end
|
|
if (cyc==10) begin
|
|
data <= 80'h0;
|
|
data[79] <= 1'b1;
|
|
data[10] <= 1'b1;
|
|
end
|
|
if (cyc==12) begin
|
|
for (i=0; i<85; i=i+1) begin
|
|
srs = data>>>i;
|
|
//$write (" %x >>> %d == %x\n",data,i,srs);
|
|
for (b=0; b<80; b=b+1) begin
|
|
if (srs[b] != (b>=(79-i) || b==(10-i))) $stop;
|
|
end
|
|
end
|
|
end
|
|
if (cyc==20) begin
|
|
$write("*-* All Finished *-*\n");
|
|
$finish;
|
|
end
|
|
end
|
|
end
|
|
endmodule
|