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