function x=loadintd(str)
% LOADINTD	x = loadintd(str)
%
%	Carrega arquivo inteiro formato DOS
%	de nome contido na string str na variável x
%
% Miguel Arjona Ramírez, 27/10/95

f=fopen(str,'r');
x=fread(f,inf);
%
supu=2^16;		% 'supremo' unsigned
supc=2^15;		% 'supremo' complemento de dois
%
nx=length(x);
x=256*x(2:2:nx)+x(1:2:nx-1);
i=find(x>=supc);	% amostras que devem ser complementadas
x(i)=x(i)-supu;
fclose(f);