чето у меня с утра правая рука с левой перепутались(+) («Телесистемы»: Конференция «Микроконтроллеры и их применение»)

[an error occurred while processing this directive] чето у меня с утра правая рука с левой перепутались(+)

(«Телесистемы»: Конференция «Микроконтроллеры и их применение»)

Отправлено F8 09 января 2006 г. 14:03
В ответ на: Не совсем(+) отправлено <font color=gray>F8</font> 09 января 2006 г. 13:56

procedure DowCRC(b:byte; var crc:byte);
var
i:integer;
begin
for i:= 0 to 8 do
begin

if ((b xor crc) and 1)<>0
then
crc:=((crc xor $18) shr 1) or $80
else
crc:= (crc shr 1) and not $80;

b:=b shr 1;

end;
end;

Отправка ответа