procedure isdiv(i: integer; var x: scalar );
begin { isdiv }
  if i<0 then begin
    sneg(x);
    isdiv(abs(i),x);
  end
  else begin
    underflow:=false;
    ir_div(down,i,x.l);
    ir_div(up,i,x.u);
    if underflow then snormalize(x);
  end;
end { isdiv };

