function ShiftLeftWithCarry(a: integer; b: byte): integer;
asm
rcl dl, 1
rcl ax, 1
// btc ax, 15
// jc @L1
// xor ax, $81
//@L1:
// NOP
end;

function CalculateCRConReceive(RC: byte; S01: integer): Integer;
var i: byte;
begin
for i:= 1 to 8 do begin
S01:= ShiftLeftWithCarry(S01, RC);
if S01 >= 128 then S01:= S01 xor $81;
RC:= RC shl 1;
end;
Result:= S01;
end;

Пробвах какви ле не варианти, но чек сумата все не ми излиза.
Някой да се е занимавал с касови апарати на датекс и да знае как се изчислява CRC?