% FM4_CONVERT_DATA.M
% 
% MATLAB function to save real 
% floating point values, read from FM4
% memory using Keil uvision 5, in a .mat file.
% data should be 32-bit floating point saved in
% Intel hex format file
%

function fm4_convert_data()
clear
disp('type filename including suffix, e.g. .dat');
fname = input('enter input filename ','s');
fid = fopen(fname,'rt');
floatcount = 0;
dummy = fscanf(fid,'%c',1);
if (dummy ~= ':')
    disp('error: initial colon not found');
else
%process data from this file
finished = 0;
while (finished == 0)
    % move to next line
    while (fscanf(fid,'%c',1) ~= ':'); end
    % get number of 32-bit hex values on line
    N = hex2dec(fscanf(fid,'%c',2))/4;
    % read and discard next 6 characters
    fscanf(fid,'%c',6);
    if (N > 0)
        for i=1:N
          % read 8 character hex string and convert to IEEE float 754 single
          hexstring = fscanf(fid,'%c',8);
          reordered(1) = hexstring(7);
          reordered(2) = hexstring(8);
          reordered(3) = hexstring(5);
          reordered(4) = hexstring(6);
          reordered(5) = hexstring(3);
          reordered(6) = hexstring(4);
          reordered(7) = hexstring(1);
          reordered(8) = hexstring(2);
         memdata(floatcount+1)= hexsingle2num(reordered);
          floatcount = floatcount+1;
        end
    else
    finished = 1;
    end
end
end
fclose(fid);          

%saved_input = memdata;
N = floatcount;
str = [num2str(N),' sample values read from file'];
disp(str);
disp('data will be saved in MATLAB format in .mat file');
disp('type filename with or without suffix');
fname = input('enter output filename ','s');
disp(fname);
save(fname, 'memdata');