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

Subversion Repositories t6507lp

[/] [t6507lp/] [trunk/] [rtl/] [verilog/] [t6507lp_alu_tb.v] - Diff between revs 176 and 178

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

Rev 176 Rev 178
Line 268... Line 268... 
        alu_opcode = LDX_IMM;
 
        alu_opcode = LDX_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_x_expected = i;
 
                alu_x_expected = alu_a;
 
 
 
                $display("alu_x_expected = %h", alu_x_expected);
 
                //alu_result_expected = i;
 
                //alu_result_expected = i;
 
                alu_status_expected[Z] = (alu_x_expected == 0) ? 1 : 0;
 
                alu_status_expected[Z] = (alu_x_expected == 0) ? 1 : 0;
 
                alu_status_expected[N] = alu_x_expected[7];
 
                alu_status_expected[N] = alu_x_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);
Line 284... Line 285... 
        alu_opcode = LDY_IMM;
 
        alu_opcode = LDY_IMM;
 
        for (i = 0; i < 1001; i = i + 1)
 
        for (i = 0; i < 1001; i = i + 1)
 
        begin
 
        begin
 
                alu_a = i;
 
                alu_a = i;
 
                @(negedge clk);
 
                @(negedge clk);
 
                alu_y_expected = i;
 
                alu_y_expected = alu_a;
 
 
 
                $display("alu_y_expected = %h", alu_y_expected);
 
                //alu_result_expected = i;
 
                //alu_result_expected = i;
 
                alu_status_expected[Z] = (alu_y_expected == 0) ? 1 : 0;
 
                alu_status_expected[Z] = (alu_y_expected == 0) ? 1 : 0;
 
                alu_status_expected[N] = alu_y_expected[7];
 
                alu_status_expected[N] = alu_y_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);
Line 303... Line 305... 
                alu_a = i;
 
                alu_a = i;
 
                @(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);
 
 
 
                //alu_result_expected = alu_a;
 
 
 
                //alu_result_expected = DUT.A;
 
                check;
 
                check;
 
        end
 
        end
 
 
 
 
 
        // STX
 
        // STX
 
        alu_opcode = STX_ABS;
 
        alu_opcode = STX_ABS;
 
        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);
 
 
 
                $display("alu_x_expected = %h", alu_x_expected);
 
                //alu_result_expected = i;
 
                //alu_result_expected = i;
 
                //alu_x_expected = i;
 
                //alu_x_expected = alu_a;
 
                //$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);
 
                check;
 
                check;
 
        end
 
        end
Line 326... Line 331... 
        alu_opcode = STY_ABS;
 
        alu_opcode = STY_ABS;
 
        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);
 
 
 
                $display("alu_y_expected = %h", alu_y_expected);
 
                //alu_result_expected = i;
 
                //alu_result_expected = i;
 
                //alu_y_expected = i;
 
                //alu_y_expected = alu_a;
 
                //$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);
 
                check;
 
                check;
 
        end
 
        end
Line 556... Line 562... 
                alu_status_expected[D] = alu_a[D];
 
                alu_status_expected[D] = alu_a[D];
 
                alu_status_expected[I] = alu_a[I];
 
                alu_status_expected[I] = alu_a[I];
 
                check;
 
                check;
 
        end
 
        end
 
 
 
 
 
 
 
        // PLP
 
 
 
        alu_opcode = PLP_IMP;
 
 
 
        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);
 
 
 
                alu_status_expected[C] = alu_a[C];
 
 
 
                alu_status_expected[Z] = alu_a[Z];
 
 
 
                alu_status_expected[N] = alu_a[N];
 
 
 
                alu_status_expected[V] = alu_a[V];
 
 
 
                alu_status_expected[B] = alu_a[B];
 
 
 
                alu_status_expected[D] = alu_a[D];
 
 
 
                alu_status_expected[I] = alu_a[I];
 
 
 
                check;
 
 
 
        end
 
 
 
 
 
        // PHA
 
        // PHA
 
        alu_opcode = PHA_IMP;
 
        alu_opcode = PHA_IMP;
 
        @(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);
 
        alu_result_expected = DUT.A;
 
        //alu_result_expected = DUT.A;
 
 
 
        alu_result_expected = alu_a;
 
        check;
 
        check;
 
 
 
 
 
        // PHP
 
        // PHP
 
        alu_opcode = PHP_IMP;
 
        alu_opcode = PHP_IMP;
 
        @(negedge clk);
 
        @(negedge clk);

powered by: WebSVN 2.1.0

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