% ??????????? ????
addpath(cat(2,pwd,'\src'));
clear;  clc;

% ???????? ??????
names = {'-- Errors : ' '-- data_in[]  ' '-- sidd_[]    '...
 '-- lambb_[]   ' 	'-- root_[]    ' '-- lamdd_[]   '...
 '-- corpp_[]   ' '-- out_dec[]  '};
%%% ????? ???????? ?????????? %%%

% ????????? ????
N = 255;  % ????? ???????? ?????
t = 8;  % ??????? ?????? ????? ?????????
K = N-t*2;  
Short = 51;  % dvbt - 51, drm - 0
K = K-Short
p_sourse = [1 0 0 0 1 1 1 0 1];  % x8+x+1'
%p_sourse = [1 0 0 0 0 1 0 0 0 1];  % x9+x4+1'
% ???????????? ??????? ??????
Tmp = [];
for i = 1:K  % ??????? ??????
  Tmp = [Tmp i];    
end
% ??????????? %%%
fprintf('??????????? ??????...');
w = rs_coder(Tmp,p_sourse, K, t);
w(end-48:end) % ??????. ???.
fprintf('O?\n');

%w(1) = 0;
w(2) = 0;
w(3) = 0;
% ???????? ?????? %%%
%for i = 1:20%1  % erroring
 % w(i) = 00;
%end
%w(end-4) = 0;
%w(end-2) = 0;
w(end-1) = 0;
w(end-0) = 0;

%%% ????????????? %%%
fprintf('????????????? ??????...\n');
q = rs_decoder(w, p_sourse, K, t);

%????????? ??????????
fprintf('?????? ????? ? ???????????? - Monitor.mif...');
fid = fopen('Monitor.mif', 'wt');
  smesh = 0;  r = 0;
  fwrite(fid, [names{1,1} q{1,1} char([10 10])]); 
  for i = 1:7
    fwrite(fid, [names{1,i+1} char([10])]);
      [cBuf, r] = int2hexchar(q{1,i+1}, smesh);
      if mod(r, 32) == 0  smesh = smesh+r+1;
      else smesh = smesh+r; end
      fwrite(fid, [cBuf char([10 10])]);
    end
	fprintf('??\n');  close('all');
% ???????? ?????
%edit Monitor.mif 
%! notepad Monitor.mif