Subversion Repositories quark

function [answer,zero] = DIV(dividend,divisor)

        denom = divisor;

        current = 1;

    answer = 0;

    zero = 0;

    if (divisor == 0)

        zero = 1;

        return;

    end

        % METHOD 1

    %while (dividend >= divisor)

    %    dividend = dividend - divisor;

    %    answer = answer + 1;

    %end

        %

        while (denom <= dividend)

                denom = fix(bitsll(denom, 1));

                current = fix(bitsll(current, 1));

        end

        denom = fix(bitsra(denom, 1));

        current = fix(bitsra(current, 1));

        while (current~=0)

                if (dividend >= denom)

                        dividend = int16(dividend - denom);

                        answer = bitor(answer, current);

        end

                current = fix(bitsra(current, 1));

                denom = fix(bitsra(denom, 1));

    end

end