pnorm.sv

pnorm.sv

/*
 *      Простой алгоритм параллельной нормализации.
 */

module main();
       
        integer         values[3];
        bit             sum;
        integer         counter; // ticks count


        initial begin
                values[0] = 4'b0011;
                values[1] = 4'b0001;
                values[2] = 4'b0101;

                sum     = 0;
                counter = 0;

                $display("Before: %b", sum);

                while(sum == 0) begin
                        foreach(values[i]) begin
                                values[i] = values[i] << (values[i][3] ^ 1'b1);
                                sum = sum ~& values[i][3];
                        end
                        counter += 1;
                end

                $display("Done");
                foreach(values[i]) begin
                        $display("%b", values[i]);
                end
                $display("With ticks: %d", counter);
        end
endmodule