procedure snormalize(var s: scalar);
begin { snormalize }
  with s do begin
    if l.ex<-exmax then begin
      if l.si<0 then l:=negminhreal else l.si:=0;
    end;
    if u.ex<-exmax then begin
      if u.si>0 then u:=minhreal else u.si:=0;
    end;
  end;
  underflow:=false;
end { snormalize };

