Subversion Repositories ft816float

`timescale 1ns / 1ps
module positToFp_tb;

function [31:0] log2;
input reg [31:0] value;
        begin
        value = value-1;
        for (log2=0; value>0; log2=log2+1)
                value = value>>1;
        end
endfunction

parameter N=32;
parameter E=8;
parameter Bs=log2(N);
parameter es = 3;

reg [N-1:0] in;
reg clk;

wire [N-1:0] out;

// Instantiate the Unit Under Test (UUT)
positToFp #(.FPWID(N), .PSTWID(N), .es(es)) u1 (
        .i(in), 
        .o(out) 
);


        initial begin
                // Initialize Inputs
                clk = 1;
                // Wait 100 ns for global reset to finish
                #101 in = 65535;

                #655360

                $fclose(outfile);
                $finish;
        end
        
always #5 clk=~clk;
always @(posedge clk) begin
        if (in < 32'hffffffff) 
                in <= in + 65535;
end

integer outfile;
initial outfile = $fopen("d:/cores5/Gambit/v5/rtl/cpu/fpu/test_bench/positToFp_tvo32.txt", "wb");
  always @(negedge clk) begin
     $fwrite(outfile, "%h\t%h\n",in,out);
  end

endmodule