function [sys]=G1_SDH(u);

%Variables de Inicializacion
[a b]=size(u);
 s=zeros(a,8);
%Ciclo recuperador de B2rec y B2calc
i=(1:a);
x=u(i,1:8);
y=u(i,9:16);


 %Ciclo para verificar y/o comparar cada bit de cada uno de los bytes
%B3calc y B3orig en SONET.
for i=1:a
    malo(i,1)=0;
    for p=1:8
        if x(i,p)~=y(i,p)
            malo(i,1)=malo(i,1)+1;
        end
    end
end

%Ciclo de Verificacion
for i=1:a
    if malo(i,1)==0
        s(i,1:8)=[0 0 0 0 0 0 0 0];
    elseif malo(i,1)==1
        s(i,1:8)=[0 0 0 0 0 0 0 1];
    elseif malo(i,1)==2
        s(i,1:8)=[0 0 0 0 0 0 1 0];
    elseif malo(i,1)==3
        s(i,1:8)=[0 0 0 0 0 0 1 1];
    elseif malo(i,1)==4
        s(i,1:8)=[0 0 0 0 0 1 0 0];
    elseif malo(i,1)==5
        s(i,1:8)=[0 0 0 0 0 1 0 1];
    elseif malo(i,1)==6
        s(i,1:8)=[0 0 0 0 0 1 1 0];
    elseif malo(i,1)==7
        s(i,1:8)=[0 0 0 0 0 1 1 1];
    elseif malo(i,1)==8
        s(i,1:8)=[0 0 0 0 1 0 0 0];
    end
end

sys=s(:,:);

end