function[Adress,Adress_hex]=crc_division4(dataBIN)
% dataBIN - celá správa v binárním formátu
% input=hex2bin([data]);
genpol=[1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 0 0 0 0 0 0 1 0 0 1];
[~,r]=deconv(dataBIN,genpol);
%quotient=mod(q,2);% Modulus after division, M = mod(X,Y)returns X - n.*Y 
reminder=mod(r,2);
Adress=reminder(1,(end-23):end);
Adress_hex=bin2hex(Adress);% pøevedení do hex
end

