Разгадах го как става, ако някой му е интересно:

function CalculateCRC(S01: integer; RC: byte): Integer;
asm
mov cl, 8
@LOOP:
rcl dl, 1
rcl ax, 1
jnc @L1
xor ax, $8001
@L1:
dec cl
jnz @LOOP
end;