unsigned short tcrc16(char *data_p, unsigned short length) {
  unsigned char i;
  unsigned int data;
  unsigned int crc = 0xffff;
  if (length == 0)
    return (~crc);
  do {
    for (i = 0, data = (unsigned int)0xff & *data_p++; i < 8; i++, data >>= 1) {
      if ((crc & 0x0001) ^ (data & 0x0001))
        crc = (crc >> 1) ^ 0x8408;
      else
        crc >>= 1;
    }
  } while (--length);
  crc = ~crc;
  data = crc;
  crc = (crc << 8) | (data >> 8 & 0xff);
  return (crc);
}


x86 assembly (clang, -O0):
<tcrc16>:
push   %rbp
mov    %rsp,%rbp
mov    %si,%ax
mov    %rdi,-0x10(%rbp)
mov    %ax,-0x12(%rbp)
movl   $0xffff,-0x1c(%rbp)
movzwl -0x12(%rbp),%eax
cmp    $0x0,%eax
jne    1132 <tcrc16+0x32>
mov    -0x1c(%rbp),%eax
xor    $0xffffffff,%eax
mov    %ax,-0x2(%rbp)
jmp    11f8 <tcrc16+0xf8>
jmp    1137 <tcrc16+0x37>
movb   $0x0,-0x13(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movsbl (%rax),%eax
and    $0xff,%eax
mov    %eax,-0x18(%rbp)
movzbl -0x13(%rbp),%eax
cmp    $0x8,%eax
jge    11b0 <tcrc16+0xb0>
mov    -0x1c(%rbp),%eax
and    $0x1,%eax
mov    -0x18(%rbp),%ecx
and    $0x1,%ecx
xor    %ecx,%eax
cmp    $0x0,%eax
je     118c <tcrc16+0x8c>
mov    -0x1c(%rbp),%eax
shr    $0x1,%eax
xor    $0x8408,%eax
mov    %eax,-0x1c(%rbp)
jmp    1195 <tcrc16+0x95>
mov    -0x1c(%rbp),%eax
shr    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    119a <tcrc16+0x9a>
mov    -0x13(%rbp),%al
add    $0x1,%al
mov    %al,-0x13(%rbp)
mov    -0x18(%rbp),%eax
shr    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1155 <tcrc16+0x55>
jmp    11b5 <tcrc16+0xb5>
mov    -0x12(%rbp),%ax
add    $0xffff,%ax
mov    %ax,-0x12(%rbp)
cmp    $0x0,%ax
jne    1137 <tcrc16+0x37>
mov    -0x1c(%rbp),%eax
xor    $0xffffffff,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
mov    %eax,-0x18(%rbp)
mov    -0x1c(%rbp),%eax
shl    $0x8,%eax
mov    -0x18(%rbp),%ecx
shr    $0x8,%ecx
and    $0xff,%ecx
or     %ecx,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
mov    %ax,-0x2(%rbp)
movzwl -0x2(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<tcrc16>:
test   %esi,%esi
je     11f0 <tcrc16+0xf0>
push   %rbx
movzwl %si,%r8d
mov    $0xffff,%ebx
xor    %ecx,%ecx
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movzbl (%rdi,%rcx,1),%edx
mov    %ebx,%esi
xor    %edx,%esi
shr    %ebx
mov    %ebx,%eax
xor    $0x8408,%eax
test   $0x1,%sil
cmove  %ebx,%eax
mov    %edx,%esi
shr    %esi
xor    %eax,%esi
shr    %eax
mov    %eax,%ebx
xor    $0x8408,%ebx
test   $0x1,%sil
cmove  %eax,%ebx
mov    %edx,%eax
shr    $0x2,%eax
xor    %ebx,%eax
shr    %ebx
mov    %ebx,%esi
xor    $0x8408,%esi
test   $0x1,%al
cmove  %ebx,%esi
mov    %edx,%eax
shr    $0x3,%eax
xor    %esi,%eax
shr    %esi
mov    %esi,%ebx
xor    $0x8408,%ebx
test   $0x1,%al
cmove  %esi,%ebx
mov    %edx,%eax
shr    $0x4,%eax
xor    %ebx,%eax
shr    %ebx
mov    %ebx,%esi
xor    $0x8408,%esi
test   $0x1,%al
cmove  %ebx,%esi
mov    %edx,%eax
shr    $0x5,%eax
xor    %esi,%eax
shr    %esi
mov    %esi,%ebx
xor    $0x8408,%ebx
test   $0x1,%al
cmove  %esi,%ebx
mov    %edx,%eax
shr    $0x6,%eax
xor    %ebx,%eax
shr    %ebx
mov    %ebx,%esi
xor    $0x8408,%esi
test   $0x1,%al
cmove  %ebx,%esi
shr    $0x7,%edx
mov    %esi,%eax
and    $0x1,%eax
shr    %esi
mov    %esi,%ebx
xor    $0x8408,%ebx
cmp    %edx,%eax
cmove  %esi,%ebx
add    $0x1,%rcx
cmp    %cx,%r8w
jne    1120 <tcrc16+0x20>
not    %ebx
mov    %ebx,%ecx
shl    $0x8,%ecx
movzbl %bh,%eax
or     %ecx,%eax
pop    %rbx
ret
xor    %eax,%eax
ret

LLVM IR (-O0):
define zeroext i16 @tcrc16(i8* %0, i16 zeroext %1) {
%3 = alloca i16
%4 = alloca i8*
%5 = alloca i16
%6 = alloca i8
%7 = alloca i32
%8 = alloca i32
store i8* %0, i8** %4
store i16 %1, i16* %5
store i32 65535, i32* %8
%9 = load i16, i16* %5
%10 = zext i16 %9 to i32
%11 = icmp eq i32 %10, 0
br i1 %11, label %12, label %16
12: ; preds = %2
%13 = load i32, i32* %8
%14 = xor i32 %13, -1
%15 = trunc i32 %14 to i16
store i16 %15, i16* %3
br label %64
16: ; preds = %2
br label %17
17: ; preds = %48, %16
store i8 0, i8* %6
%18 = load i8*, i8** %4
%19 = getelementptr inbounds i8, i8* %18, i32 1
store i8* %19, i8** %4
%20 = load i8, i8* %18
%21 = sext i8 %20 to i32
%22 = and i32 255, %21
store i32 %22, i32* %7
br label %23
23: ; preds = %42, %17
%24 = load i8, i8* %6
%25 = zext i8 %24 to i32
%26 = icmp slt i32 %25, 8
br i1 %26, label %27, label %47
27: ; preds = %23
%28 = load i32, i32* %8
%29 = and i32 %28, 1
%30 = load i32, i32* %7
%31 = and i32 %30, 1
%32 = xor i32 %29, %31
%33 = icmp ne i32 %32, 0
br i1 %33, label %34, label %38
34: ; preds = %27
%35 = load i32, i32* %8
%36 = lshr i32 %35, 1
%37 = xor i32 %36, 33800
store i32 %37, i32* %8
br label %41
38: ; preds = %27
%39 = load i32, i32* %8
%40 = lshr i32 %39, 1
store i32 %40, i32* %8
br label %41
41: ; preds = %38, %34
br label %42
42: ; preds = %41
%43 = load i8, i8* %6
%44 = add i8 %43, 1
store i8 %44, i8* %6
%45 = load i32, i32* %7
%46 = lshr i32 %45, 1
store i32 %46, i32* %7
br label %23
47: ; preds = %23
br label %48
48: ; preds = %47
%49 = load i16, i16* %5
%50 = add i16 %49, -1
store i16 %50, i16* %5
%51 = icmp ne i16 %50, 0
br i1 %51, label %17, label %52
52: ; preds = %48
%53 = load i32, i32* %8
%54 = xor i32 %53, -1
store i32 %54, i32* %8
%55 = load i32, i32* %8
store i32 %55, i32* %7
%56 = load i32, i32* %8
%57 = shl i32 %56, 8
%58 = load i32, i32* %7
%59 = lshr i32 %58, 8
%60 = and i32 %59, 255
%61 = or i32 %57, %60
store i32 %61, i32* %8
%62 = load i32, i32* %8
%63 = trunc i32 %62 to i16
store i16 %63, i16* %3
br label %64
64: ; preds = %52, %12
%65 = load i16, i16* %3
ret i16 %65
}

LLVM IR (-O2):
define zeroext i16 @tcrc16(i8* nocapture %0, i16 zeroext %1) {
%3 = icmp eq i16 %1, 0
br i1 %3, label %74, label %4
4: ; preds = %2, %4
%5 = phi i8* [ %64, %4 ], [ %0, %2 ]
%6 = phi i16 [ %65, %4 ], [ %1, %2 ]
%7 = phi i32 [ %63, %4 ], [ 65535, %2 ]
%8 = load i8, i8* %5
%9 = zext i8 %8 to i32
%10 = xor i32 %7, %9
%11 = and i32 %10, 1
%12 = icmp eq i32 %11, 0
%13 = lshr i32 %7, 1
%14 = xor i32 %13, 33800
%15 = select i1 %12, i32 %13, i32 %14
%16 = lshr i32 %9, 1
%17 = xor i32 %15, %16
%18 = and i32 %17, 1
%19 = icmp eq i32 %18, 0
%20 = lshr i32 %15, 1
%21 = xor i32 %20, 33800
%22 = select i1 %19, i32 %20, i32 %21
%23 = lshr i32 %9, 2
%24 = xor i32 %22, %23
%25 = and i32 %24, 1
%26 = icmp eq i32 %25, 0
%27 = lshr i32 %22, 1
%28 = xor i32 %27, 33800
%29 = select i1 %26, i32 %27, i32 %28
%30 = lshr i32 %9, 3
%31 = xor i32 %29, %30
%32 = and i32 %31, 1
%33 = icmp eq i32 %32, 0
%34 = lshr i32 %29, 1
%35 = xor i32 %34, 33800
%36 = select i1 %33, i32 %34, i32 %35
%37 = lshr i32 %9, 4
%38 = xor i32 %36, %37
%39 = and i32 %38, 1
%40 = icmp eq i32 %39, 0
%41 = lshr i32 %36, 1
%42 = xor i32 %41, 33800
%43 = select i1 %40, i32 %41, i32 %42
%44 = lshr i32 %9, 5
%45 = xor i32 %43, %44
%46 = and i32 %45, 1
%47 = icmp eq i32 %46, 0
%48 = lshr i32 %43, 1
%49 = xor i32 %48, 33800
%50 = select i1 %47, i32 %48, i32 %49
%51 = lshr i32 %9, 6
%52 = xor i32 %50, %51
%53 = and i32 %52, 1
%54 = icmp eq i32 %53, 0
%55 = lshr i32 %50, 1
%56 = xor i32 %55, 33800
%57 = select i1 %54, i32 %55, i32 %56
%58 = lshr i32 %9, 7
%59 = and i32 %57, 1
%60 = icmp eq i32 %59, %58
%61 = lshr i32 %57, 1
%62 = xor i32 %61, 33800
%63 = select i1 %60, i32 %61, i32 %62
%64 = getelementptr inbounds i8, i8* %5, i64 1
%65 = add i16 %6, -1
%66 = icmp eq i16 %65, 0
br i1 %66, label %67, label %4
67: ; preds = %4
%68 = xor i32 %63, -1
%69 = shl i32 %68, 8
%70 = lshr i32 %68, 8
%71 = and i32 %70, 255
%72 = or i32 %71, %69
%73 = trunc i32 %72 to i16
br label %74
74: ; preds = %2, %67
%75 = phi i16 [ %73, %67 ], [ 0, %2 ]
ret i16 %75
}