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

Subversion Repositories t6507lp

[/] [t6507lp/] [trunk/] [rtl/] [verilog/] [t6507lp_alu_tb.v] - Blame information for rev 207

Go to most recent revision | Details | Compare with Previous | View Log


`include "timescale.v"
module t6507lp_alu_tb;
 
`include  "t6507lp_package.v"
 
reg         clk;
reg         reset_n;
reg         alu_enable;
wire [7:0]  alu_result;
wire [7:0]  alu_status;
reg  [7:0]  alu_opcode;
reg  [7:0]  alu_a;
wire [7:0]  alu_x;
wire [7:0]  alu_y;
reg  [31:0] i;
 
reg [7:0] alu_result_expected;
reg [7:0] alu_status_expected;
reg [7:0] alu_x_expected;
reg [7:0] alu_y_expected;
 
reg C_in;
reg C_temp;
reg [7:0] temp1;
reg [7:0] temp2;
reg sign;
reg [3:0] AL;
reg [3:0] AH;
reg [3:0] BL;
reg [3:0] BH;
reg [7:0] alu_result_expected_temp;
 
t6507lp_alu DUT (
                        .clk            (clk),
                        .reset_n        (reset_n),
                        .alu_enable     (alu_enable),
                        .alu_result     (alu_result),
                        .alu_status     (alu_status),
                        .alu_opcode     (alu_opcode),
                        .alu_a          (alu_a),
                        .alu_x          (alu_x),
                        .alu_y          (alu_y)
                );
 
 
localparam period = 10;
 
task check;
        begin
                $display("               RESULTS       EXPECTED");
                $display("alu_result       %h             %h   ", alu_result, alu_result_expected);
                $display("alu_status    %b       %b   ", alu_status, alu_status_expected);
                $display("alu_x            %h             %h   ", alu_x,      alu_x_expected     );
                $display("alu_y            %h             %h   ", alu_y,      alu_y_expected     );
                if ((alu_result_expected == alu_result) && (alu_status_expected == alu_status) && (alu_x_expected == alu_x) && (alu_y_expected == alu_y))
                begin
                        $display("Instruction %h... OK!", alu_opcode);
                end
                else
                begin
                        $display("ERROR at instruction %h",alu_opcode);
                        $finish;
                end
        end
endtask
 
 
always begin
        #(period/2) clk = ~clk;
end
 
initial
begin
        // Reset
        clk = 0;
        reset_n = 0;
        @(negedge clk);
        //@(negedge clk);
        reset_n = 1;
        alu_enable = 1;
        alu_result_expected = 8'h00;
        alu_status_expected = 8'b00100010;
        alu_x_expected = 8'h00;
        alu_y_expected = 8'h00;
 
        // LDA
        alu_a = 0;
        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'h00;
        //                       NV1BDIZC
    alu_status_expected = 8'b00100010;
        check;
 
        // ADC
        alu_opcode = ADC_IMM;
        alu_a = 1;
        for (i = 0; i < 1000; i = i + 1)
        begin
                alu_a = $random;
                @(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], 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[Z] = (alu_result_expected == 0) ? 1 : 0;
                alu_status_expected[N] = alu_result_expected[7];
                alu_status_expected[V] = ((alu_a[7] == sign) && (alu_a[7] != alu_result_expected[7]));
                check;
        end
 
        // CLC
        alu_opcode = CLC_IMP;
        @(negedge clk);
        alu_status_expected[C] = 0;
        check;
 
        // SED
        alu_opcode = SED_IMP;
        //$display("A = %h B = %h X = %h Y = %h", alu_result, alu_a, alu_x, alu_y);
        @(negedge clk);
        alu_status_expected[D] = 1;
        check;
        //Corner Case 12 + 88 decimal mode
        // LDA
        alu_a = 8'h88;
        alu_opcode = LDA_IMM;
        @(negedge clk);
        alu_result_expected = 8'h88;
        alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
        alu_status_expected[N] = alu_result_expected[7];
        check;
 
        // ADC
        alu_opcode = ADC_IMM;
        alu_a = 8'h12;
        $display("A = %h B = %h X = %h Y = %h", alu_result, alu_a, alu_x, alu_y);
        @(negedge clk);
        sign = alu_result_expected[7];
        AL = alu_a[3:0] + alu_result_expected[3:0] + alu_status_expected[C];
        $display("AL = %b", AL);
        AH = alu_a[7:4] + alu_result_expected[7:4] + AL[4];
        $display("AH = %b", AH);
        if (AL > 9) begin
          temp1 = AL - 6;
        end
        else begin
          temp1 = AL;
        end
        $display("temp1 = %b", temp1);
        alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
        alu_status_expected[N] = alu_result_expected[7];
        alu_status_expected[V] = ((alu_a[7] == sign) && (alu_a[7] != alu_result_expected[7]));
        if (AH > 9) begin
          temp2 = AH - 6;
        end
        else begin
          temp2 = AH;
        end
        $display("temp2 = %b", temp2);
        alu_status_expected[C] = (temp2 > 15) ? 1 : 0;
        alu_result_expected = {temp2[3:0],temp1[3:0]};
        $display("A = %b PS = %b", alu_result_expected, alu_status_expected);
        check;
 
        // CLD
        alu_opcode = CLD_IMP;
        @(negedge clk);
        alu_status_expected[D] = 0;
        check;
        $stop;
        // BCD
        // LDA
        alu_a = 0;
        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'h00;
        //                       NV1BDIZC
        alu_status_expected[N] = 0;
        alu_status_expected[Z] = 1;
        check;
        // SED
        alu_opcode = SED_IMP;
        //$display("A = %h B = %h X = %h Y = %h", alu_result, alu_a, alu_x, alu_y);
        @(negedge clk);
        alu_status_expected[D] = 1;
        check;
 
        // ADC
        alu_opcode = ADC_IMM;
        for (i = 0; i < 1000; i = i + 1)
        begin
                alu_a = $random;
                //$display("A = %h B = %h C = %b X = %h Y = %h", alu_result, alu_a, alu_status_expected[C], alu_x, alu_y);
                @(negedge clk);
                AL = alu_result_expected[3:0] + alu_a[3:0] + alu_status_expected[C];
                AH = alu_result_expected[7:4] + alu_a[7:4] + AL[4];
                if (AL > 9) AL = AL + 6;
                if (AH > 9) AH = AH + 6;
                alu_status_expected[C] = AH[4];
                alu_result_expected = {AH[3:0],AL[3:0]};
                //C_temp = 0;
                //sign = alu_result_expected[7];
                //AL = alu_a[3:0];
                //AH = alu_a[7:4];
                //BL = alu_result_expected[3:0];
                //BH = alu_result_expected[7:4];
                /*
                if (AL > 9) begin
                        AL = AL - 10;
                        AH = AH + 1;
                end
                if ( AH > 9 ) begin
                        AH = AH - 10;
                        C_temp = 1;
                end
                if (BL > 9) begin
                        BL = BL - 10;
                        BH = BH + 1;
                end
                if ( BH > 9 ) begin
                        BH = BH - 10;
                        C_temp = 1;
                end
                */
                //$display("AL = %h BL = %h", AL, BL, );
                //temp1 = AL + BL + alu_status_expected[C];
                //AH = A[7:4] + alu_a[7:4];
                //temp2 = AH + BH + temp1[4];
                //$display("temp1 = %h temp2 = %h", temp1, temp2);
                //if (temp1 > 9) begin
                //      temp2 = temp2 + (temp1 / 10);
        //              temp1 = temp1 % 10;
                //end
                //if (temp2 > 9) begin
                //      alu_status_expected[C] = 1;
                //      temp2 = temp2 % 10;
                //end
                //else begin
                //      alu_status_expected[C] = 0;
                //end
                //$display("bcdh2 = %d", bcdh2);
                //$display("bcdl = %d", bcdl);
                //alu_result_expected = {temp2[3:0],temp1[3:0]};
                //{C_in,alu_result_expected[3:0]} = AL + BL + alu_status_expected[C];
                //{alu_status_expected[C],alu_result_expected[7:4]} = AH + BH + C_in;
                //if ( alu_result_expected[3:0] > 9 ) begin
                //      alu_result_expected[3:0] = alu_result_expected[3:0] - 10;
        //              alu_result_expected[7:4] = alu_result_expected[7:4] + 1;
                //end
                //if ( alu_result_expected[7:4] > 9 ) begin
                //      alu_result_expected[7:4] = alu_result_expected[7:4] - 10;
        //              alu_status_expected[C] = 1;
                //end
                alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
                alu_status_expected[N] = alu_result_expected[7];
                alu_status_expected[V] = ((alu_a[7] == sign) && (alu_a[7] != alu_result_expected[7]));
                check;
        end
        //$stop;
        // CLD
        alu_opcode = CLD_IMP;
        @(negedge clk);
        alu_status_expected[D] = 0;
        check;
 
/*
        // SBC BCD
        // LDA
        alu_a = 0;
        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'h00;
        //                       NV1BDIZC
        alu_status_expected[N] = 0;
        alu_status_expected[Z] = 1;
        check;
        // SED
        alu_opcode = SED_IMP;
        $display("A = %h B = %h X = %h Y = %h", alu_result, alu_a, alu_x, alu_y);
        @(negedge clk);
        alu_status_expected[D] = 1;
        check;
 
        // SBC
        alu_opcode = SBC_IMM;
        for (i = 0; i < 1000; i = i + 1)
        begin
                alu_a = $random;
                $display("A = %h B = %h C = %b X = %h Y = %h", alu_result, alu_a, alu_status_expected[C], alu_x, alu_y);
                @(negedge clk);
                C_temp = 0;
                sign   = alu_a[7];
                AL     = alu_a[3:0];
                AH     = alu_a[7:4];
                BL     = ~alu_result_expected[3:0];
                BH     = ~alu_result_expected[7:4];
 
                //$display("AL = %h BL = %h", AL, BL, );
                temp1 = AL + BL + alu_status_expected[C];
                //AH = A[7:4] + alu_a[7:4];
                temp2 = AH + BH;
                //$display("temp1 = %h temp2 = %h", temp1, temp2);
                if (temp1 > 9) begin
                        temp2 = temp2 + (temp1 / 10);
                        temp1 = temp1 % 10;
                end
                if (temp2 > 9) begin
                        alu_status_expected[C] = 1;
                        temp2 = temp2 % 10;
                end
                else begin
                        alu_status_expected[C] = 0;
                end
                //$display("bcdh2 = %d", bcdh2);
                //$display("bcdl = %d", bcdl);
                alu_result_expected = {temp2[3:0],temp1[3:0]};
                //{C_in,alu_result_expected[3:0]} = AL + BL + alu_status_expected[C];
                //{alu_status_expected[C],alu_result_expected[7:4]} = AH + BH + C_in;
                //if ( alu_result_expected[3:0] > 9 ) begin
                //      alu_result_expected[3:0] = alu_result_expected[3:0] - 10;
        //              alu_result_expected[7:4] = alu_result_expected[7:4] + 1;
                //end
                //if ( alu_result_expected[7:4] > 9 ) begin
                //      alu_result_expected[7:4] = alu_result_expected[7:4] - 10;
        //              alu_status_expected[C] = 1;
                //end
                alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
                alu_status_expected[N] = alu_result_expected[7];
                alu_status_expected[V] = ((alu_a[7] == sign) && (alu_a[7] != alu_result_expected[7]));
                check;
        end
        //$stop;
        // CLD
        alu_opcode = CLD_IMP;
        @(negedge clk);
        alu_status_expected[D] = 0;
        check;
*/
 
        // ASL
        alu_opcode = ASL_ABS;
        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_result_expected} = {alu_a,1'b0};
                alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
                alu_status_expected[N] = alu_result_expected[7];
                check;
        end
 
        // ROL
        alu_opcode = ROL_ABS;
        for (i = 0; i < 1000; i = i + 1)
        begin
                alu_a = i;
                $display("A = %b", alu_a);
                @(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_result_expected} = {alu_a,alu_status_expected[C]};
                $display("R = %b", alu_result);
                alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
                alu_status_expected[N] = alu_result_expected[7];
                check;
        end
 
        // ROR
        alu_opcode = ROR_ABS;
        for (i = 0; i < 1000; i = i + 1)
        begin
                alu_a = i;
                $display("A = %b", alu_a);
                @(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_result_expected, alu_status_expected[C]} = {alu_status_expected[C],alu_a};
                $display("R = %b", alu_result);
                alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
                alu_status_expected[N] = alu_result_expected[7];
                check;
        end
 
        // 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_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'h00;
        //                       NV1BDIZC
        alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
        alu_status_expected[N] = alu_result_expected[7];
        check;
 
        // SBC
        alu_opcode = SBC_IMM;
        for (i = 0; i < 1000; i = i + 1)
        begin
                alu_a = 1;
                @(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);
                sign = alu_result_expected[7];
                alu_result_expected = alu_result_expected - alu_a - ( 1 - alu_status_expected[C]);
                alu_status_expected[C] = ~alu_result_expected[7];
                alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
                alu_status_expected[N] = alu_result_expected[7];
                //$display("alu_a[7] = %b == sign = %b && alu_a[7] = %b != alu_result_expected[7] = %b", alu_a[7], sign, alu_a[7], alu_result_expected[7]);
                alu_status_expected[V] = ((alu_a[7] == sign) && (alu_a[7] != alu_result_expected[7]));
                check;
        end
 
        // LDA
        alu_opcode = LDA_IMM;
        for (i = 0; i < 1000; i = i + 1)
        begin
                alu_a = i;
                @(negedge clk);
                alu_result_expected = i;
                alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
                alu_status_expected[N] = alu_result_expected[7];
                //$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);
                check;
        end
 
        // LDX
        alu_opcode = LDX_IMM;
        for (i = 0; i < 1000; i = i + 1)
        begin
                alu_a = i;
                @(negedge clk);
                alu_x_expected = alu_a;
                //$display("alu_x_expected = %h", alu_x_expected);
                //alu_result_expected = i;
                alu_status_expected[Z] = (alu_x_expected == 0) ? 1 : 0;
                alu_status_expected[N] = alu_x_expected[7];
                //$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);
                check;
        end
 
        // LDY
        alu_opcode = LDY_IMM;
        for (i = 0; i < 1001; i = i + 1)
        begin
                alu_a = i;
                @(negedge clk);
                alu_y_expected = alu_a;
                //$display("alu_y_expected = %h", alu_y_expected);
                //alu_result_expected = i;
                alu_status_expected[Z] = (alu_y_expected == 0) ? 1 : 0;
                alu_status_expected[N] = alu_y_expected[7];
                //$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);
                check;
        end
 
        // STA
        alu_opcode = STA_ABS;
        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_result_expected = alu_a;
                //alu_result_expected = DUT.A;
                check;
        end
 
        // STX
        alu_opcode = STX_ABS;
        for (i = 0; i < 1000; i = i + 1)
        begin
                alu_a = i;
                @(negedge clk);
                //$display("alu_x_expected = %h", alu_x_expected);
                //alu_result_expected = i;
                //alu_x_expected = alu_a;
                //$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);
                check;
        end
 
        // STY
        alu_opcode = STY_ABS;
        for (i = 0; i < 1000; i = i + 1)
        begin
                alu_a = i;
                @(negedge clk);
                //$display("alu_y_expected = %h", alu_y_expected);
                //alu_result_expected = i;
                //alu_y_expected = alu_a;
                //$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);
                check;
        end
 
        // CMP
        alu_opcode = CMP_IMM;
        for (i = 0; i < 1000; i = i + 1)
        begin
                alu_a = i;
                @(negedge clk);
                temp1 = alu_result_expected - alu_a;
                alu_status_expected[Z] = (temp1 == 0) ? 1 : 0;
                alu_status_expected[N] = temp1[7];
                alu_status_expected[C] = (alu_result_expected >= alu_a) ? 1 : 0;
                //alu_result_expected = i;
                //alu_y_expected = i;
                //$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);
                check;
        end
 
        // CPX
        alu_opcode = CPX_IMM;
        for (i = 0; i < 1000; i = i + 1)
        begin
                alu_a = i;
                @(negedge clk);
                temp1 = alu_x_expected - alu_a;
                alu_status_expected[Z] = (temp1 == 0) ? 1 : 0;
                alu_status_expected[N] = temp1[7];
                alu_status_expected[C] = (alu_x_expected >= alu_a) ? 1 : 0;
                //alu_result_expected = i;
                //alu_y_expected = i;
                //$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);
                check;
        end
 
        // CPY
        alu_opcode = CPY_IMM;
        for (i = 0; i < 1000; i = i + 1)
        begin
                alu_a = i;
                @(negedge clk);
                temp1 = alu_y_expected - alu_a;
                alu_status_expected[Z] = (temp1 == 0) ? 1 : 0;
                alu_status_expected[N] = temp1[7];
                alu_status_expected[C] = (alu_y_expected >= alu_a) ? 1 : 0;
                //alu_result_expected = i;
                //alu_y_expected = i;
                //$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);
                check;
        end
 
 
        // AND
        alu_opcode = AND_IMM;
        for (i = 0; i < 1000; i = i + 1)
        begin
                alu_a = i;
                @(negedge clk);
                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("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);
                check;
        end
 
        // ASL
        alu_opcode = ASL_ACC;
        for (i = 0; i < 1000; i = i + 1)
        begin
                alu_a = i;
                @(negedge clk);
                alu_status_expected[C] = alu_result_expected[7];
                alu_result_expected[7:0] = alu_result_expected << 1;
                alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
                alu_status_expected[N] = alu_result_expected[7];
                //$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);
                check;
        end
 
        // INC
        alu_opcode = INC_ZPG;
        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_result_expected = alu_a + 1;
                alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
                alu_status_expected[N] = alu_result_expected[7];
                check;
        end
 
        // INX
        alu_opcode = INX_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_x_expected = alu_x_expected + 1;
                alu_status_expected[Z] = (alu_x_expected == 0) ? 1 : 0;
                alu_status_expected[N] = alu_x_expected[7];
                check;
        end
 
        // INY
        alu_opcode = INY_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_y_expected = alu_y_expected + 1;
                alu_status_expected[Z] = (alu_y_expected == 0) ? 1 : 0;
                alu_status_expected[N] = alu_y_expected[7];
                check;
        end
 
        // DEC
        alu_opcode = DEC_ZPG;
        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_result_expected = alu_a - 1;
                alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
                alu_status_expected[N] = alu_result_expected[7];
                check;
        end
 
        // DEX
        alu_opcode = DEX_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_x_expected = alu_x_expected - 1;
                alu_status_expected[Z] = (alu_x_expected == 0) ? 1 : 0;
                alu_status_expected[N] = alu_x_expected[7];
                check;
        end
 
        // DEY
        alu_opcode = DEY_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_y_expected = alu_y_expected - 1;
                alu_status_expected[Z] = (alu_y_expected == 0) ? 1 : 0;
                alu_status_expected[N] = alu_y_expected[7];
                check;
        end
 
 
        // LDA
        alu_a = 0;
        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'h00;
        //                       NV1BDIZC
        alu_status_expected = 8'b00100010;
        check;
 
        // BIT
        alu_opcode = BIT_ZPG;
        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[Z] = ((alu_a & alu_result_expected) == 0) ? 1 : 0;
                alu_status_expected[V] = alu_a[6];
                alu_status_expected[N] = alu_a[7];
                check;
        end
 
        // RTI
        alu_opcode = RTI_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
 
        // 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
        alu_opcode = PHA_IMP;
        @(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_result_expected = DUT.A;
        //alu_result_expected = alu_a;
        check;
 
        // PHP
        alu_opcode = PHP_IMP;
        @(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 = DUT.STATUS;
        check;
 
        // BRK
        alu_opcode = BRK_IMP;
        @(negedge clk);
        alu_status_expected[B] = 1;
        check;
 
        // SEC
        alu_opcode = SEC_IMP;
        @(negedge clk);
        alu_status_expected[C] = 1;
        check;
 
        // SED
        alu_opcode = SED_IMP;
        @(negedge clk);
        alu_status_expected[D] = 1;
        check;
 
        // SEI
        alu_opcode = SEI_IMP;
        @(negedge clk);
        alu_status_expected[I] = 1;
        check;
 
        // CLC
        alu_opcode = CLC_IMP;
        @(negedge clk);
        alu_status_expected[C] = 0;
        check;
 
        // CLD
        alu_opcode = CLD_IMP;
        @(negedge clk);
        alu_status_expected[D] = 0;
        check;
 
        // CLI
        alu_opcode = CLI_IMP;
        @(negedge clk);
        alu_status_expected[I] = 0;
        check;
 
        // CLV
        alu_opcode = CLV_IMP;
        @(negedge clk);
        alu_status_expected[V] = 0;
        check;
 
        // LDA
        alu_opcode = LDA_IMM;
        alu_a = 8'h76;
        @(negedge clk);
        alu_result_expected = alu_a;
        alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
        alu_status_expected[N] = alu_result_expected[7];
        check;
 
        // TAX
        alu_opcode = TAX_IMP;
        @(negedge clk);
        alu_x_expected = alu_result_expected;
        alu_status_expected[Z] = (alu_x_expected == 0) ? 1 : 0;
        alu_status_expected[N] = alu_x_expected[7];
        check;
 
        // TAY
        alu_opcode = TAY_IMP;
        @(negedge clk);
        alu_y_expected = alu_result_expected;
        alu_status_expected[Z] = (alu_y_expected == 0) ? 1 : 0;
        alu_status_expected[N] = alu_y_expected[7];
        check;
 
        // TSX
        alu_opcode = TSX_IMP;
        @(negedge clk);
        alu_x_expected = alu_a;
        //alu_result_expected = alu_a;
        alu_status_expected[Z] = (alu_x_expected == 0) ? 1 : 0;
        alu_status_expected[N] = alu_x_expected[7];
        check;
 
        // TXA
        alu_opcode = TXA_IMP;
        @(negedge clk);
        alu_result_expected = alu_x_expected;
        alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
        alu_status_expected[N] = alu_result_expected[7];
        check;
 
        // TXS
        alu_opcode = TXS_IMP;
        @(negedge clk);
        alu_result_expected = alu_x_expected;
        check;
 
        // TYA
        alu_opcode = TYA_IMP;
        @(negedge clk);
        alu_result_expected = alu_y_expected;
        alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;
        alu_status_expected[N] = alu_result_expected[7];
        check;
 
        // Nothing should happen
        // BCC
        alu_opcode = BCC_REL;
        @(negedge clk);
        check;
 
        // BCS
        alu_opcode = BCS_REL;
        @(negedge clk);
        check;
 
        // BEQ
        alu_opcode = BEQ_REL;
        @(negedge clk);
        check;
 
        // BMI
        alu_opcode = BMI_REL;
        @(negedge clk);
        check;
 
        // BNE
        alu_opcode = BNE_REL;
        @(negedge clk);
        check;
 
        // BPL
        alu_opcode = BPL_REL;
        @(negedge clk);
        check;
 
        // BVC
        alu_opcode = BVC_REL;
        @(negedge clk);
        check;
 
        // BVS
        alu_opcode = BVS_REL;
        @(negedge clk);
        check;
 
        // JMP
        alu_opcode = JMP_ABS;
        @(negedge clk);
        check;
 
        // JMP
        alu_opcode = JMP_IND;
        @(negedge clk);
        check;
 
        // JSR
        alu_opcode = JSR_ABS;
        @(negedge clk);
        check;
 
        // NOP
        alu_opcode = NOP_IMP;
        @(negedge clk);
        check;
 
        // RTS
        alu_opcode = RTS_IMP;
        @(negedge clk);
        check;
 
        $display("TEST PASSED");
        $finish;
end
 
endmodule
 

Line No.	Rev	Author	Line
1	127	gabrielosh	`include "timescale.v"
2	136	gabrielosh	`module t6507lp_alu_tb;`
3	127	gabrielosh
4	136	gabrielosh	`include "t6507lp_package.v"
5	127	gabrielosh
6	136	gabrielosh	`reg clk;`
7	140	gabrielosh	`reg reset_n;`
8	136	gabrielosh	`reg alu_enable;`
9			`wire [7:0] alu_result;`
10			`wire [7:0] alu_status;`
11			`reg [7:0] alu_opcode;`
12			`reg [7:0] alu_a;`
13			`wire [7:0] alu_x;`
14			`wire [7:0] alu_y;`
15			`reg [31:0] i;`
16	127	gabrielosh
17			`reg [7:0] alu_result_expected;`
18			`reg [7:0] alu_status_expected;`
19			`reg [7:0] alu_x_expected;`
20			`reg [7:0] alu_y_expected;`
21
22	164	gabrielosh	`reg C_in;`
23	181	gabrielosh	`reg C_temp;`
24			`reg [7:0] temp1;`
25			`reg [7:0] temp2;`
26	156	gabrielosh	`reg sign;`
27	164	gabrielosh	`reg [3:0] AL;`
28			`reg [3:0] AH;`
29			`reg [3:0] BL;`
30			`reg [3:0] BH;`
31			`reg [7:0] alu_result_expected_temp;`
32	127	gabrielosh
33	136	gabrielosh	`t6507lp_alu DUT (`
34			`.clk (clk),`
35			`.reset_n (reset_n),`
36	127	gabrielosh	`.alu_enable (alu_enable),`
37			`.alu_result (alu_result),`
38			`.alu_status (alu_status),`
39			`.alu_opcode (alu_opcode),`
40			`.alu_a (alu_a),`
41			`.alu_x (alu_x),`
42			`.alu_y (alu_y)`
43			`);`
44
45
46			`localparam period = 10;`
47
48			`task check;`
49			`begin`
50			`$display(" RESULTS EXPECTED");`
51			`$display("alu_result %h %h ", alu_result, alu_result_expected);`
52			`$display("alu_status %b %b ", alu_status, alu_status_expected);`
53			`$display("alu_x %h %h ", alu_x, alu_x_expected );`
54			`$display("alu_y %h %h ", alu_y, alu_y_expected );`
55	150	gabrielosh	`if ((alu_result_expected == alu_result) && (alu_status_expected == alu_status) && (alu_x_expected == alu_x) && (alu_y_expected == alu_y))`
56	127	gabrielosh	`begin`
57	150	gabrielosh	`$display("Instruction %h... OK!", alu_opcode);`
58	127	gabrielosh	`end`
59			`else`
60			`begin`
61	150	gabrielosh	`$display("ERROR at instruction %h",alu_opcode);`
62			`$finish;`
63	127	gabrielosh	`end`
64			`end`
65			`endtask`
66
67
68			`always begin`
69	136	gabrielosh	`#(period/2) clk = ~clk;`
70	127	gabrielosh	`end`
71
72			`initial`
73			`begin`
74			`// Reset`
75	136	gabrielosh	`clk = 0;`
76			`reset_n = 0;`
77	140	gabrielosh	`@(negedge clk);`
78	150	gabrielosh	`//@(negedge clk);`
79	148	gabrielosh	`reset_n = 1;`
80	127	gabrielosh	`alu_enable = 1;`
81			`alu_result_expected = 8'h00;`
82			`alu_status_expected = 8'b00100010;`
83			`alu_x_expected = 8'h00;`
84			`alu_y_expected = 8'h00;`
85
86			`// LDA`
87			`alu_a = 0;`
88			`alu_opcode = LDA_IMM;`
89			`//$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);`
90			`//$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);`
91	140	gabrielosh	`@(negedge clk);`
92	127	gabrielosh	`alu_result_expected = 8'h00;`
93			`// NV1BDIZC`
94	149	gabrielosh	`alu_status_expected = 8'b00100010;`
95	173	gabrielosh	`check;`
96	127	gabrielosh
97			`// ADC`
98			`alu_opcode = ADC_IMM;`
99			`alu_a = 1;`
100			`for (i = 0; i < 1000; i = i + 1)`
101			`begin`
102	149	gabrielosh	`alu_a = $random;`
103	140	gabrielosh	`@(negedge clk);`
104	149	gabrielosh	`//$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);`
105			`//$display("DUT.A = %h DUT.X = %h DUT.Y = %h", DUT.A, DUT.X, DUT.Y);`
106			`//$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);`
107	156	gabrielosh	`sign = alu_result_expected[7];`
108	127	gabrielosh	`{alu_status_expected[C], alu_result_expected} = alu_a + alu_result_expected + alu_status_expected[C];`
109			`alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;`
110			`alu_status_expected[N] = alu_result_expected[7];`
111	156	gabrielosh	`alu_status_expected[V] = ((alu_a[7] == sign) && (alu_a[7] != alu_result_expected[7]));`
112	173	gabrielosh	`check;`
113	127	gabrielosh	`end`
114	169	gabrielosh
115	186	gabrielosh	`// CLC`
116			`alu_opcode = CLC_IMP;`
117			`@(negedge clk);`
118			`alu_status_expected[C] = 0;`
119			`check;`
120
121			`// SED`
122			`alu_opcode = SED_IMP;`
123			`//$display("A = %h B = %h X = %h Y = %h", alu_result, alu_a, alu_x, alu_y);`
124			`@(negedge clk);`
125			`alu_status_expected[D] = 1;`
126			`check;`
127			`//Corner Case 12 + 88 decimal mode`
128			`// LDA`
129			`alu_a = 8'h88;`
130			`alu_opcode = LDA_IMM;`
131			`@(negedge clk);`
132			`alu_result_expected = 8'h88;`
133			`alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;`
134			`alu_status_expected[N] = alu_result_expected[7];`
135			`check;`
136
137			`// ADC`
138			`alu_opcode = ADC_IMM;`
139			`alu_a = 8'h12;`
140			`$display("A = %h B = %h X = %h Y = %h", alu_result, alu_a, alu_x, alu_y);`
141			`@(negedge clk);`
142			`sign = alu_result_expected[7];`
143			`AL = alu_a[3:0] + alu_result_expected[3:0] + alu_status_expected[C];`
144			`$display("AL = %b", AL);`
145			`AH = alu_a[7:4] + alu_result_expected[7:4] + AL[4];`
146			`$display("AH = %b", AH);`
147			`if (AL > 9) begin`
148			`temp1 = AL - 6;`
149			`end`
150			`else begin`
151			`temp1 = AL;`
152			`end`
153			`$display("temp1 = %b", temp1);`
154			`alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;`
155			`alu_status_expected[N] = alu_result_expected[7];`
156			`alu_status_expected[V] = ((alu_a[7] == sign) && (alu_a[7] != alu_result_expected[7]));`
157			`if (AH > 9) begin`
158			`temp2 = AH - 6;`
159			`end`
160			`else begin`
161			`temp2 = AH;`
162			`end`
163			`$display("temp2 = %b", temp2);`
164			`alu_status_expected[C] = (temp2 > 15) ? 1 : 0;`
165			`alu_result_expected = {temp2[3:0],temp1[3:0]};`
166			`$display("A = %b PS = %b", alu_result_expected, alu_status_expected);`
167			`check;`
168
169			`// CLD`
170			`alu_opcode = CLD_IMP;`
171			`@(negedge clk);`
172			`alu_status_expected[D] = 0;`
173			`check;`
174			`$stop;`
175	164	gabrielosh	`// BCD`
176	161	gabrielosh	`// LDA`
177			`alu_a = 0;`
178			`alu_opcode = LDA_IMM;`
179			`//$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);`
180			`//$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);`
181			`@(negedge clk);`
182			`alu_result_expected = 8'h00;`
183			`// NV1BDIZC`
184	164	gabrielosh	`alu_status_expected[N] = 0;`
185			`alu_status_expected[Z] = 1;`
186	173	gabrielosh	`check;`
187	164	gabrielosh	`// SED`
188			`alu_opcode = SED_IMP;`
189	181	gabrielosh	`//$display("A = %h B = %h X = %h Y = %h", alu_result, alu_a, alu_x, alu_y);`
190	164	gabrielosh	`@(negedge clk);`
191			`alu_status_expected[D] = 1;`
192	173	gabrielosh	`check;`
193	161	gabrielosh
194			`// ADC`
195			`alu_opcode = ADC_IMM;`
196			`for (i = 0; i < 1000; i = i + 1)`
197			`begin`
198			`alu_a = $random;`
199	181	gabrielosh	`//$display("A = %h B = %h C = %b X = %h Y = %h", alu_result, alu_a, alu_status_expected[C], alu_x, alu_y);`
200	161	gabrielosh	`@(negedge clk);`
201	186	gabrielosh	`AL = alu_result_expected[3:0] + alu_a[3:0] + alu_status_expected[C];`
202			`AH = alu_result_expected[7:4] + alu_a[7:4] + AL[4];`
203			`if (AL > 9) AL = AL + 6;`
204			`if (AH > 9) AH = AH + 6;`
205			`alu_status_expected[C] = AH[4];`
206			`alu_result_expected = {AH[3:0],AL[3:0]};`
207			`//C_temp = 0;`
208			`//sign = alu_result_expected[7];`
209			`//AL = alu_a[3:0];`
210			`//AH = alu_a[7:4];`
211			`//BL = alu_result_expected[3:0];`
212			`//BH = alu_result_expected[7:4];`
213	181	gabrielosh	`/*`
214			`if (AL > 9) begin`
215	164	gabrielosh	`AL = AL - 10;`
216			`AH = AH + 1;`
217			`end`
218	181	gabrielosh	`if ( AH > 9 ) begin`
219	164	gabrielosh	`AH = AH - 10;`
220	181	gabrielosh	`C_temp = 1;`
221	164	gabrielosh	`end`
222	181	gabrielosh	`if (BL > 9) begin`
223	164	gabrielosh	`BL = BL - 10;`
224			`BH = BH + 1;`
225			`end`
226			`if ( BH > 9 ) begin`
227			`BH = BH - 10;`
228	181	gabrielosh	`C_temp = 1;`
229	164	gabrielosh	`end`
230	181	gabrielosh	`*/`
231			`//$display("AL = %h BL = %h", AL, BL, );`
232	186	gabrielosh	`//temp1 = AL + BL + alu_status_expected[C];`
233	181	gabrielosh	`//AH = A[7:4] + alu_a[7:4];`
234	186	gabrielosh	`//temp2 = AH + BH + temp1[4];`
235	181	gabrielosh	`//$display("temp1 = %h temp2 = %h", temp1, temp2);`
236	186	gabrielosh	`//if (temp1 > 9) begin`
237			`// temp2 = temp2 + (temp1 / 10);`
238			`// temp1 = temp1 % 10;`
239			`//end`
240			`//if (temp2 > 9) begin`
241			`// alu_status_expected[C] = 1;`
242			`// temp2 = temp2 % 10;`
243			`//end`
244			`//else begin`
245			`// alu_status_expected[C] = 0;`
246			`//end`
247	181	gabrielosh	`//$display("bcdh2 = %d", bcdh2);`
248			`//$display("bcdl = %d", bcdl);`
249	186	gabrielosh	`//alu_result_expected = {temp2[3:0],temp1[3:0]};`
250	181	gabrielosh	`//{C_in,alu_result_expected[3:0]} = AL + BL + alu_status_expected[C];`
251			`//{alu_status_expected[C],alu_result_expected[7:4]} = AH + BH + C_in;`
252			`//if ( alu_result_expected[3:0] > 9 ) begin`
253			`// alu_result_expected[3:0] = alu_result_expected[3:0] - 10;`
254			`// alu_result_expected[7:4] = alu_result_expected[7:4] + 1;`
255			`//end`
256			`//if ( alu_result_expected[7:4] > 9 ) begin`
257			`// alu_result_expected[7:4] = alu_result_expected[7:4] - 10;`
258			`// alu_status_expected[C] = 1;`
259			`//end`
260	161	gabrielosh	`alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;`
261			`alu_status_expected[N] = alu_result_expected[7];`
262			`alu_status_expected[V] = ((alu_a[7] == sign) && (alu_a[7] != alu_result_expected[7]));`
263	173	gabrielosh	`check;`
264	179	gabrielosh	`end`
265	181	gabrielosh	`//$stop;`
266	179	gabrielosh	`// CLD`
267			`alu_opcode = CLD_IMP;`
268			`@(negedge clk);`
269			`alu_status_expected[D] = 0;`
270			`check;`
271
272	184	gabrielosh	`/*`
273	181	gabrielosh	`// SBC BCD`
274			`// LDA`
275			`alu_a = 0;`
276			`alu_opcode = LDA_IMM;`
277			`//$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);`
278			`//$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);`
279			`@(negedge clk);`
280			`alu_result_expected = 8'h00;`
281			`// NV1BDIZC`
282			`alu_status_expected[N] = 0;`
283			`alu_status_expected[Z] = 1;`
284			`check;`
285			`// SED`
286			`alu_opcode = SED_IMP;`
287			`$display("A = %h B = %h X = %h Y = %h", alu_result, alu_a, alu_x, alu_y);`
288			`@(negedge clk);`
289			`alu_status_expected[D] = 1;`
290			`check;`
291
292	184	gabrielosh	`// SBC`
293	181	gabrielosh	`alu_opcode = SBC_IMM;`
294			`for (i = 0; i < 1000; i = i + 1)`
295			`begin`
296			`alu_a = $random;`
297			`$display("A = %h B = %h C = %b X = %h Y = %h", alu_result, alu_a, alu_status_expected[C], alu_x, alu_y);`
298			`@(negedge clk);`
299			`C_temp = 0;`
300			`sign = alu_a[7];`
301			`AL = alu_a[3:0];`
302			`AH = alu_a[7:4];`
303			`BL = ~alu_result_expected[3:0];`
304			`BH = ~alu_result_expected[7:4];`
305
306			`//$display("AL = %h BL = %h", AL, BL, );`
307			`temp1 = AL + BL + alu_status_expected[C];`
308			`//AH = A[7:4] + alu_a[7:4];`
309			`temp2 = AH + BH;`
310			`//$display("temp1 = %h temp2 = %h", temp1, temp2);`
311			`if (temp1 > 9) begin`
312			`temp2 = temp2 + (temp1 / 10);`
313			`temp1 = temp1 % 10;`
314			`end`
315			`if (temp2 > 9) begin`
316			`alu_status_expected[C] = 1;`
317			`temp2 = temp2 % 10;`
318			`end`
319			`else begin`
320			`alu_status_expected[C] = 0;`
321			`end`
322			`//$display("bcdh2 = %d", bcdh2);`
323			`//$display("bcdl = %d", bcdl);`
324			`alu_result_expected = {temp2[3:0],temp1[3:0]};`
325			`//{C_in,alu_result_expected[3:0]} = AL + BL + alu_status_expected[C];`
326			`//{alu_status_expected[C],alu_result_expected[7:4]} = AH + BH + C_in;`
327			`//if ( alu_result_expected[3:0] > 9 ) begin`
328			`// alu_result_expected[3:0] = alu_result_expected[3:0] - 10;`
329			`// alu_result_expected[7:4] = alu_result_expected[7:4] + 1;`
330			`//end`
331			`//if ( alu_result_expected[7:4] > 9 ) begin`
332			`// alu_result_expected[7:4] = alu_result_expected[7:4] - 10;`
333			`// alu_status_expected[C] = 1;`
334			`//end`
335			`alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;`
336			`alu_status_expected[N] = alu_result_expected[7];`
337			`alu_status_expected[V] = ((alu_a[7] == sign) && (alu_a[7] != alu_result_expected[7]));`
338			`check;`
339			`end`
340	183	gabrielosh	`//$stop;`
341	181	gabrielosh	`// CLD`
342			`alu_opcode = CLD_IMP;`
343			`@(negedge clk);`
344			`alu_status_expected[D] = 0;`
345			`check;`
346	184	gabrielosh	`*/`
347
348	148	gabrielosh	`// ASL`
349	145	gabrielosh	`alu_opcode = ASL_ABS;`
350			`for (i = 0; i < 1000; i = i + 1)`
351			`begin`
352			`alu_a = i;`
353			`@(negedge clk);`
354			`//$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);`
355			`//$display("DUT.A = %h DUT.X = %h DUT.Y = %h", DUT.A, DUT.X, DUT.Y);`
356			`//$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);`
357			`{alu_status_expected[C], alu_result_expected} = {alu_a,1'b0};`
358			`alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;`
359			`alu_status_expected[N] = alu_result_expected[7];`
360	173	gabrielosh	`check;`
361	145	gabrielosh	`end`
362
363	186	gabrielosh	`// ROL`
364			`alu_opcode = ROL_ABS;`
365			`for (i = 0; i < 1000; i = i + 1)`
366			`begin`
367			`alu_a = i;`
368			`$display("A = %b", alu_a);`
369			`@(negedge clk);`
370			`//$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);`
371			`//$display("DUT.A = %h DUT.X = %h DUT.Y = %h", DUT.A, DUT.X, DUT.Y);`
372			`//$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);`
373			`{alu_status_expected[C], alu_result_expected} = {alu_a,alu_status_expected[C]};`
374			`$display("R = %b", alu_result);`
375			`alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;`
376			`alu_status_expected[N] = alu_result_expected[7];`
377			`check;`
378			`end`
379
380			`// ROR`
381			`alu_opcode = ROR_ABS;`
382			`for (i = 0; i < 1000; i = i + 1)`
383			`begin`
384			`alu_a = i;`
385			`$display("A = %b", alu_a);`
386			`@(negedge clk);`
387			`//$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);`
388			`//$display("DUT.A = %h DUT.X = %h DUT.Y = %h", DUT.A, DUT.X, DUT.Y);`
389			`//$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);`
390			`{alu_result_expected, alu_status_expected[C]} = {alu_status_expected[C],alu_a};`
391			`$display("R = %b", alu_result);`
392			`alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;`
393			`alu_status_expected[N] = alu_result_expected[7];`
394			`check;`
395			`end`
396
397	145	gabrielosh	`// LDA`
398	156	gabrielosh	`alu_a = 137;`
399			`alu_opcode = LDA_IMM;`
400			`//$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);`
401			`//$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);`
402			`@(negedge clk);`
403			`alu_result_expected = 8'd137;`
404			`// NV1BDIZC`
405			`alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;`
406			`alu_status_expected[N] = alu_result_expected[7];`
407	173	gabrielosh	`check;`
408	156	gabrielosh
409			`// EOR`
410			`alu_opcode = EOR_IMM;`
411			`for (i = 0; i < 1000; i = i + 1)`
412			`begin`
413			`alu_a = i;`
414			`@(negedge clk);`
415			`//$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);`
416			`//$display("DUT.A = %h DUT.X = %h DUT.Y = %h", DUT.A, DUT.X, DUT.Y);`
417			`//$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);`
418	179	gabrielosh	`//$display("result_expected = %d",alu_result_expected);`
419	156	gabrielosh	`alu_result_expected = alu_a ^ alu_result_expected;`
420			`alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;`
421			`alu_status_expected[N] = alu_result_expected[7];`
422	179	gabrielosh	`//$display("result_expected = %d", alu_result_expected);`
423	173	gabrielosh	`check;`
424	156	gabrielosh	`end`
425
426			`// LDA`
427	145	gabrielosh	`alu_a = 0;`
428			`alu_opcode = LDA_IMM;`
429			`//$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);`
430			`//$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);`
431			`@(negedge clk);`
432			`alu_result_expected = 8'h00;`
433			`// NV1BDIZC`
434			`alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;`
435			`alu_status_expected[N] = alu_result_expected[7];`
436	173	gabrielosh	`check;`
437	145	gabrielosh
438	127	gabrielosh	`// SBC`
439			`alu_opcode = SBC_IMM;`
440			`for (i = 0; i < 1000; i = i + 1)`
441			`begin`
442	145	gabrielosh	`alu_a = 1;`
443	140	gabrielosh	`@(negedge clk);`
444	174	gabrielosh	`//$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);`
445			`//$display("DUT.A = %h DUT.X = %h DUT.Y = %h", DUT.A, DUT.X, DUT.Y);`
446			`//$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);`
447	156	gabrielosh	`sign = alu_result_expected[7];`
448	174	gabrielosh	`alu_result_expected = alu_result_expected - alu_a - ( 1 - alu_status_expected[C]);`
449			`alu_status_expected[C] = ~alu_result_expected[7];`
450	127	gabrielosh	`alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;`
451			`alu_status_expected[N] = alu_result_expected[7];`
452	174	gabrielosh	`//$display("alu_a[7] = %b == sign = %b && alu_a[7] = %b != alu_result_expected[7] = %b", alu_a[7], sign, alu_a[7], alu_result_expected[7]);`
453	156	gabrielosh	`alu_status_expected[V] = ((alu_a[7] == sign) && (alu_a[7] != alu_result_expected[7]));`
454	173	gabrielosh	`check;`
455	127	gabrielosh	`end`
456
457			`// LDA`
458			`alu_opcode = LDA_IMM;`
459			`for (i = 0; i < 1000; i = i + 1)`
460			`begin`
461			`alu_a = i;`
462	140	gabrielosh	`@(negedge clk);`
463	127	gabrielosh	`alu_result_expected = i;`
464			`alu_status_expected[Z] = (alu_result_expected == 0) ? 1 : 0;`
465			`alu_status_expected[N] = alu_result_expected[7];`
466			`//$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);`
467			`//$display("DUT.A = %h DUT.X = %h DUT.Y = %h", DUT.A, DUT.X, DUT.Y);`
468			`//$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);`
469	173	gabrielosh	`check;`
470	127	gabrielosh	`end`
471
472			`// LDX`
473			`alu_opcode = LDX_IMM;`
474			`for (i = 0; i < 1000; i = i + 1)`
475			`begin`
476			`alu_a = i;`
477	140	gabrielosh	`@(negedge clk);`
478	178	gabrielosh	`alu_x_expected = alu_a;`
479	179	gabrielosh	`//$display("alu_x_expected = %h", alu_x_expected);`
480	127	gabrielosh	`//alu_result_expected = i;`
481			`alu_status_expected[Z] = (alu_x_expected == 0) ? 1 : 0;`
482			`alu_status_expected[N] = alu_x_expected[7];`
483			`//$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);`
484			`//$display("DUT.A = %h DUT.X = %h DUT.Y = %h", DUT.A, DUT.X, DUT.Y);`
485			`//$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);`
486	173	gabrielosh	`check;`
487	127	gabrielosh	`end`
488
489			`// LDY`
490			`alu_opcode = LDY_IMM;`
491			`for (i = 0; i < 1001; i = i + 1)`
492			`begin`
493			`alu_a = i;`
494	140	gabrielosh	`@(negedge clk);`
495	178	gabrielosh	`alu_y_expected = alu_a;`
496	179	gabrielosh	`//$display("alu_y_expected = %h", alu_y_expected);`
497	127	gabrielosh	`//alu_result_expected = i;`
498			`alu_status_expected[Z] = (alu_y_expected == 0) ? 1 : 0;`
499			`alu_status_expected[N] = alu_y_expected[7];`
500			`//$display("i = %d alu_opcode = %h alu_enable = %d", i, alu_opcode, alu_enable);`

Browse

Tools

Subversion Repositories t6507lp

[/] [t6507lp/] [trunk/] [rtl/] [verilog/] [t6507lp_alu_tb.v] - Blame information for rev 207