function hs2=readoasishs2(fil_loc)

[path,name,ext]=fileparts(fil_loc);

if isempty(name)
    files=getonlyfname(fil_loc);
else
    files=[name ext];
end

[r c]=size(files);
c=1;
for k=1:r
    fid=fopen(fullfile(path,files(k,:)));
    Dat_Loc = rm_oasis_header(fid);
    fseek(fid, Dat_Loc, 'bof');
    while ~feof(fid)
        X=fgetl(fid);
        if strncmp(X,'*D',2) & length(X)==60
            hs2.Time(c)=hex2dec(X(3:10))/60/60/24 + 719529; %sdn
            hs2.Snorm1(c)=int_signer(hex2dec(X(11:14)));%signed
            hs2.Snorm2(c)=int_signer(hex2dec(X(15:18)));%signed
            hs2.Snorm3(c)=int_signer(hex2dec(X(19:22)));%signed
            hs2.Gain1(c)=hex2dec(X(43));%nibble
            hs2.Gain2(c)=hex2dec(X(44));%nibble
            hs2.Gain3(c)=hex2dec(X(45));%nibble
            hs2.Depth(c)=int_signer(hex2dec(X(51:54)));%signed
            hs2.Temp(c)=((int_signer(hex2dec(X(55:56))))/5)-10;
            c=c+1;
        end
    end
end
    