URL
https://opencores.org/ocsvn/ft816float/ft816float/trunk
Subversion Repositories ft816float
Compare Revisions
- This comparison shows the changes necessary to convert path
/ft816float/trunk/test_bench
- from Rev 58 to Rev 59
- ↔ Reverse comparison
Rev 58 → Rev 59
/DDBCDToBin_tb.sv
0,0 → 1,76
module DDBCDToBin_tb(); |
|
reg rst; |
reg clk; |
reg [15:0] adr; |
reg [171:0] bcd; |
reg [7:0] count; |
|
wire [127:0] bin; |
|
integer outfile; |
|
initial begin |
rst = 1'b0; |
clk = 1'b0; |
adr = 0; |
bcd = $urandom(1); |
#20 rst = 1; |
#50 rst = 0; |
#10000000 $fclose(outfile); |
#10 $finish; |
end |
|
always #5 |
clk = ~clk; |
|
genvar g; |
generate begin : gRand |
for (g = 0; g < 172; g = g + 4) begin |
always @(posedge clk) begin |
if (count==2) |
bcd[g+3:g] <= $urandom() % 10; |
end |
end |
end |
endgenerate |
|
always @(posedge clk) |
if (rst) begin |
adr <= 0; |
count <= 0; |
end |
else |
begin |
if (adr==0) begin |
outfile = $fopen("d:/cores2022/rf6809/rtl/dfpu/test_bench/DDBinToBCD_tvo.txt", "wb"); |
$fwrite(outfile, " ------ bin ------ ------ bcd ------ \n"); |
end |
count <= count + 1; |
if (count > 140) |
count <= 1'd1; |
if (adr==2) begin |
bcd <= 172'h010; |
end |
if (adr==3) begin |
bcd <= 172'h0100; |
end |
if (adr==4) begin |
bcd <= 172'h12345678; |
end |
if (count==140) begin |
$fwrite(outfile, "%h\t%h\n", bin, bcd); |
adr <= adr + 1; |
end |
end |
|
//fpMulnr #(64) u1 (clk, 1'b1, a, b, o, rm);//, sign_exe, inf, overflow, underflow); |
DDBCDToBin #(128) u6 ( |
.rst(rst), |
.clk(clk), |
.ld(count==3), |
.bcd(bcd), |
.bin(bin) |
); |
|
endmodule |
/DDBinToBCD_tb.sv
0,0 → 1,73
module DDBinToBCD_tb(); |
|
reg rst; |
reg clk; |
reg [15:0] adr; |
wire [171:0] bcd; |
reg [7:0] count; |
|
reg [127:0] bin; |
|
integer outfile; |
|
initial begin |
rst = 1'b0; |
clk = 1'b0; |
adr = 0; |
bin = $urandom(1); |
#20 rst = 1; |
#50 rst = 0; |
#10000000 $fclose(outfile); |
#10 $finish; |
end |
|
always #5 |
clk = ~clk; |
|
genvar g; |
generate begin : gRand |
for (g = 0; g < 128; g = g + 4) begin |
always @(posedge clk) begin |
if (count==2) |
bin[g+3:g] <= $urandom() % 16; |
end |
end |
end |
endgenerate |
|
always @(posedge clk) |
if (rst) begin |
adr <= 0; |
count <= 0; |
end |
else |
begin |
if (adr==0) begin |
outfile = $fopen("d:/cores2022/rf6809/rtl/dfpu/test_bench/DDBinToBCD_tvo.txt", "wb"); |
$fwrite(outfile, " ------ bin ------ ------ bcd ------ \n"); |
end |
count <= count + 1; |
if (count > 140) |
count <= 1'd1; |
if (adr==2) begin |
bin <= 128'h0A; |
end |
if (adr==3) begin |
bin <= 128'd12345678; |
end |
if (count==140) begin |
$fwrite(outfile, "%h\t%h\n", bin, bcd); |
adr <= adr + 1; |
end |
end |
|
//fpMulnr #(64) u1 (clk, 1'b1, a, b, o, rm);//, sign_exe, inf, overflow, underflow); |
DDBinToBCD #(128) u6 ( |
.rst(rst), |
.clk(clk), |
.ld(count==3), |
.bin(bin), |
.bcd(bcd) |
); |
|
endmodule |