OpenCores
URL https://opencores.org/ocsvn/t6507lp/t6507lp/trunk

Subversion Repositories t6507lp

[/] [t6507lp/] [trunk/] [rtl/] [verilog/] [t6507lp_alu_tb.v] - Diff between revs 150 and 156

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 150 Rev 156
Line 19... Line 19... 
reg [7:0] alu_x_expected;
 
reg [7:0] alu_x_expected;
 
reg [7:0] alu_y_expected;
 
reg [7:0] alu_y_expected;
 
 
 
 
 
reg c_aux;
 
reg c_aux;
 
reg [7:0] temp;
 
reg [7:0] temp;
 
 
 
reg sign;
 
 
 
 
 
t6507lp_alu DUT (
 
t6507lp_alu DUT (
 
                        .clk            (clk),
 
                        .clk            (clk),
 
                        .reset_n        (reset_n),
 
                        .reset_n        (reset_n),
 
                        .alu_enable     (alu_enable),
 
                        .alu_enable     (alu_enable),
Line 94... Line 95... 
                alu_a = $random;
 
                alu_a = $random;
 
                @(negedge clk);
 
                @(negedge clk);
 
                //$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);
 
                //$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);
 
                //$display("DUT.A = %h DUT.X = %h DUT.Y = %h", DUT.A, DUT.X, DUT.Y);
 
                //$display("DUT.A = %h DUT.X = %h DUT.Y = %h", DUT.A, DUT.X, DUT.Y);
 
                //$display("op1 = %d op2 = %d  c = %d d = %d n = %d v = %d result = %d", alu_a, DUT.A, alu_status[C], alu_status[D], alu_status[N], alu_status[V], DUT.result);
 
                //$display("op1 = %d op2 = %d  c = %d d = %d n = %d v = %d result = %d", alu_a, DUT.A, alu_status[C], alu_status[D], alu_status[N], alu_status[V], DUT.result);
 
 
 
                sign = alu_result_expected[7];
 
                {alu_status_expected[C], alu_result_expected} = alu_a + alu_result_expected + alu_status_expected[C];
 
                {alu_status_expected[C], alu_result_expected} = alu_a + alu_result_expected + alu_status_expected[C];
 
                alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
 
                alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
 
                alu_status_expected[N] = alu_result_expected[7];
 
                alu_status_expected[N] = alu_result_expected[7];
 
                alu_status_expected[V] = ((alu_a[7] == DUT.A[7]) && (alu_a[7] != alu_result_expected[7]));
 
                alu_status_expected[V] = ((alu_a[7] == sign) && (alu_a[7] != alu_result_expected[7]));
 
                check();
 
                check();
 
        end
 
        end
 
 
 
 
 
        // ASL
 
        // ASL
 
        alu_opcode = ASL_ABS;
 
        alu_opcode = ASL_ABS;
Line 117... Line 119... 
                alu_status_expected[N] = alu_result_expected[7];
 
                alu_status_expected[N] = alu_result_expected[7];
 
                check();
 
                check();
 
        end
 
        end
 
 
 
 
 
        // LDA
 
        // LDA
 
 
 
        alu_a = 137;
 
 
 
        alu_opcode = LDA_IMM;
 
 
 
    //$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);
 
 
 
        //$display("op1 = %d op2 = %d  c = %d d = %d n = %d v = %d result = %d", alu_a, DUT.A, alu_status[C], alu_status[D], alu_status[N], alu_status[V], alu_result);
 
 
 
        @(negedge clk);
 
 
 
        alu_result_expected = 8'd137;
 
 
 
        //                       NV1BDIZC
 
 
 
        alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
 
 
 
        alu_status_expected[N] = alu_result_expected[7];
 
 
 
        check();
 
 
 
 
 
 
 
        // EOR
 
 
 
        alu_opcode = EOR_IMM;
 
 
 
        for (i = 0; i < 1000; i = i + 1)
 
 
 
        begin
 
 
 
                alu_a = i;
 
 
 
                @(negedge clk);
 
 
 
                //$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);
 
 
 
                //$display("DUT.A = %h DUT.X = %h DUT.Y = %h", DUT.A, DUT.X, DUT.Y);
 
 
 
                //$display("op1 = %d op2 = %d  c = %d d = %d n = %d v = %d result = %d", alu_a, DUT.A, alu_status[C], alu_status[D], alu_status[N], alu_status[V], alu_result);
 
 
 
                $display("result_expected = %d",alu_result_expected);
 
 
 
                alu_result_expected = alu_a ^ alu_result_expected;
 
 
 
                alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
 
 
 
                alu_status_expected[N] = alu_result_expected[7];
 
 
 
                $display("result_expected = %d", alu_result_expected);
 
 
 
                check();
 
 
 
        end
 
 
 
 
 
 
 
        // LDA
 
        alu_a = 0;
 
        alu_a = 0;
 
        alu_opcode = LDA_IMM;
 
        alu_opcode = LDA_IMM;
 
    //$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);
 
    //$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);
 
        //$display("op1 = %d op2 = %d  c = %d d = %d n = %d v = %d result = %d", alu_a, DUT.A, alu_status[C], alu_status[D], alu_status[N], alu_status[V], alu_result);
 
        //$display("op1 = %d op2 = %d  c = %d d = %d n = %d v = %d result = %d", alu_a, DUT.A, alu_status[C], alu_status[D], alu_status[N], alu_status[V], alu_result);
 
        @(negedge clk);
 
        @(negedge clk);
Line 137... Line 168... 
                alu_a = 1;
 
                alu_a = 1;
 
                @(negedge clk);
 
                @(negedge clk);
 
                //$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);
 
                //$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);
 
                //$display("DUT.A = %h DUT.X = %h DUT.Y = %h", DUT.A, DUT.X, DUT.Y);
 
                //$display("DUT.A = %h DUT.X = %h DUT.Y = %h", DUT.A, DUT.X, DUT.Y);
 
                //$display("op1 = %d op2 = %d  c = %d d = %d n = %d v = %d result = %d", alu_a, DUT.A, alu_status[C], alu_status[D], alu_status[N], alu_status[V], alu_result);
 
                //$display("op1 = %d op2 = %d  c = %d d = %d n = %d v = %d result = %d", alu_a, DUT.A, alu_status[C], alu_status[D], alu_status[N], alu_status[V], alu_result);
 
 
 
                sign = alu_result_expected[7];
 
                {alu_status_expected[C], alu_result_expected} = alu_result_expected - alu_a - ~alu_status_expected[C];
 
                {alu_status_expected[C], alu_result_expected} = alu_result_expected - alu_a - ~alu_status_expected[C];
 
                alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
 
                alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
 
                alu_status_expected[N] = alu_result_expected[7];
 
                alu_status_expected[N] = alu_result_expected[7];
 
                alu_status_expected[V] = ((alu_a[7] == DUT.A[7]) && (alu_a[7] != alu_result_expected[7]));
 
                alu_status_expected[V] = ((alu_a[7] == sign) && (alu_a[7] != alu_result_expected[7]));
 
                check();
 
                check();
 
        end
 
        end
 
 
 
 
 
        // LDA
 
        // LDA
 
        alu_opcode = LDA_IMM;
 
        alu_opcode = LDA_IMM;
Line 292... Line 324... 
        alu_opcode = AND_IMM;
 
        alu_opcode = AND_IMM;
 
        for (i = 0; i < 1000; i = i + 1)
 
        for (i = 0; i < 1000; i = i + 1)
 
        begin
 
        begin
 
                alu_a = i;
 
                alu_a = i;
 
                @(negedge clk);
 
                @(negedge clk);
 
                alu_result_expected = i & alu_result_expected;
 
                alu_result_expected = alu_a & alu_result_expected;
 
                alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
 
                alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
 
                alu_status_expected[N] = alu_result_expected[7];
 
                alu_status_expected[N] = alu_result_expected[7];
 
                //$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);
 
                //$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);
 
                //$display("DUT.A = %h DUT.X = %h DUT.Y = %h", DUT.A, DUT.X, DUT.Y);
 
                //$display("DUT.A = %h DUT.X = %h DUT.Y = %h", DUT.A, DUT.X, DUT.Y);
 
                //$display("op1 = %d op2 = %d  c = %d d = %d n = %d v = %d result = %d", alu_a, DUT.A, alu_status[C], alu_status[D], alu_status[N], alu_status[V], alu_result);
 
                //$display("op1 = %d op2 = %d  c = %d d = %d n = %d v = %d result = %d", alu_a, DUT.A, alu_status[C], alu_status[D], alu_status[N], alu_status[V], alu_result);

powered by: WebSVN 2.1.0

© copyright 1999-2025 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.