Subversion Repositories thor

module fpAddsub_tb();

reg rst;

reg clk;

reg [12:0] adr;

reg [95:0] mem [0:8191];

reg [95:0] memo [0:9000];

reg [31:0] a,b,a6,b6;

wire [31:0] a5,b5;

wire [31:0] o;

initial begin

        rst = 1'b0;

        clk = 1'b0;

        adr = 0;

        $readmemh("c:/cores5/ft64/trunk/rtl/fpUnit/fpAddsub_tv.txt", mem);

        #20 rst = 1;

        #50 rst = 0;

end

always #5

        clk = ~clk;

delay4 #(32) u2 (clk, 1'b1, a, a5);

delay4 #(32) u3 (clk, 1'b1, b, b5);

always @(posedge clk)

if (rst)

        adr = 0;

else

begin

        adr <= adr + 1;

        a <= mem[adr][31: 0];

        b <= mem[adr][63:32];

        a6 <= a5;

        b6 <= b5;

        if (adr > 5)

                memo[adr-6] <= {o,b5,a5};

        if (adr==8191) begin

                $writememh("c:/cores5/ft64/trunk/rtl/fpUnit/fpAddsub_tvo.txt", memo);

                $finish;

        end

end

fpAddsubnr #(32) u1 (clk, 1'b1, 3'b000, 1'b0, a, b, o);

endmodule