void alaw_compress(lseg, linbuf, logbuf) long lseg;
short *linbuf;
short *logbuf;
{
  short ix, iexp;
  long n;
  for (n = 0; n < lseg; n++) {
    ix = linbuf[n] < 0 ? (~linbuf[n]) >> 4 : (linbuf[n]) >> 4;
    if (ix > 15) {
      iexp = 1;
      while (ix > 16 + 15) {
        ix >>= 1;
        iexp++;
      }
      ix -= 16;
      ix += iexp << 4;
    }
    if (linbuf[n] >= 0)
      ix |= (0x0080);
    logbuf[n] = ix ^ (0x0055);
  }
}


x86 assembly (clang, -O0):
<alaw_compress>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movq   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%rax
cmp    -0x8(%rbp),%rax
jge    120f <alaw_compress+0x10f>
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%rcx
movswl (%rax,%rcx,2),%eax
cmp    $0x0,%eax
jge    1155 <alaw_compress+0x55>
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%rcx
movswl (%rax,%rcx,2),%eax
xor    $0xffffffff,%eax
sar    $0x4,%eax
mov    %eax,-0x2c(%rbp)
jmp    1167 <alaw_compress+0x67>
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%rcx
movswl (%rax,%rcx,2),%eax
sar    $0x4,%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
mov    %ax,-0x1a(%rbp)
movswl -0x1a(%rbp),%eax
cmp    $0xf,%eax
jle    11c6 <alaw_compress+0xc6>
movw   $0x1,-0x1c(%rbp)
movswl -0x1a(%rbp),%eax
cmp    $0x1f,%eax
jle    11aa <alaw_compress+0xaa>
movswl -0x1a(%rbp),%eax
sar    $0x1,%eax
mov    %ax,-0x1a(%rbp)
mov    -0x1c(%rbp),%ax
add    $0x1,%ax
mov    %ax,-0x1c(%rbp)
jmp    1181 <alaw_compress+0x81>
movswl -0x1a(%rbp),%eax
sub    $0x10,%eax
mov    %ax,-0x1a(%rbp)
movswl -0x1c(%rbp),%ecx
shl    $0x4,%ecx
movswl -0x1a(%rbp),%eax
add    %ecx,%eax
mov    %ax,-0x1a(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%rcx
movswl (%rax,%rcx,2),%eax
cmp    $0x0,%eax
jl     11e8 <alaw_compress+0xe8>
movswl -0x1a(%rbp),%eax
or     $0x80,%eax
mov    %ax,-0x1a(%rbp)
movswl -0x1a(%rbp),%eax
xor    $0x55,%eax
mov    %ax,%dx
mov    -0x18(%rbp),%rax
mov    -0x28(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    1118 <alaw_compress+0x18>
pop    %rbp
ret

x86 assembly (clang, -O2):
<alaw_compress>:
test   %rdi,%rdi
jle    1185 <alaw_compress+0x85>
xor    %r9d,%r9d
jmp    1137 <alaw_compress+0x37>
xchg   %ax,%ax
shl    $0x4,%eax
add    %eax,%ecx
add    $0xfffffff0,%ecx
mov    %ecx,%eax
or     $0x80,%eax
test   %r8w,%r8w
cmovs  %ecx,%eax
xor    $0x55,%eax
mov    %ax,(%rdx,%r9,2)
add    $0x1,%r9
cmp    %rdi,%r9
je     1185 <alaw_compress+0x85>
movswl (%rsi,%r9,2),%r8d
mov    %r8d,%eax
sar    $0xf,%eax
xor    %r8d,%eax
cwtl
movzwl %ax,%r10d
mov    %eax,%ecx
shr    $0x4,%ecx
cmp    $0x100,%r10d
jb     1118 <alaw_compress+0x18>
mov    $0x1,%ax
cmp    $0x200,%r10d
jb     1110 <alaw_compress+0x10>
mov    $0x1,%ax
nopl   0x0(%rax)
movzwl %cx,%r10d
mov    %r10d,%ecx
shr    %ecx
add    $0x1,%eax
cmp    $0x3f,%r10w
ja     1170 <alaw_compress+0x70>
jmp    1110 <alaw_compress+0x10>
ret

LLVM IR (-O0):
define void @alaw_compress(i64 %0, i16* %1, i16* %2) {
%4 = alloca i64
%5 = alloca i16*
%6 = alloca i16*
%7 = alloca i16
%8 = alloca i16
%9 = alloca i64
store i64 %0, i64* %4
store i16* %1, i16** %5
store i16* %2, i16** %6
store i64 0, i64* %9
br label %10
10: ; preds = %86, %3
%11 = load i64, i64* %9
%12 = load i64, i64* %4
%13 = icmp slt i64 %11, %12
br i1 %13, label %14, label %89
14: ; preds = %10
%15 = load i16*, i16** %5
%16 = load i64, i64* %9
%17 = getelementptr inbounds i16, i16* %15, i64 %16
%18 = load i16, i16* %17
%19 = sext i16 %18 to i32
%20 = icmp slt i32 %19, 0
br i1 %20, label %21, label %29
21: ; preds = %14
%22 = load i16*, i16** %5
%23 = load i64, i64* %9
%24 = getelementptr inbounds i16, i16* %22, i64 %23
%25 = load i16, i16* %24
%26 = sext i16 %25 to i32
%27 = xor i32 %26, -1
%28 = ashr i32 %27, 4
br label %36
29: ; preds = %14
%30 = load i16*, i16** %5
%31 = load i64, i64* %9
%32 = getelementptr inbounds i16, i16* %30, i64 %31
%33 = load i16, i16* %32
%34 = sext i16 %33 to i32
%35 = ashr i32 %34, 4
br label %36
36: ; preds = %29, %21
%37 = phi i32 [ %28, %21 ], [ %35, %29 ]
%38 = trunc i32 %37 to i16
store i16 %38, i16* %7
%39 = load i16, i16* %7
%40 = sext i16 %39 to i32
%41 = icmp sgt i32 %40, 15
br i1 %41, label %42, label %66
42: ; preds = %36
store i16 1, i16* %8
br label %43
43: ; preds = %47, %42
%44 = load i16, i16* %7
%45 = sext i16 %44 to i32
%46 = icmp sgt i32 %45, 31
br i1 %46, label %47, label %54
47: ; preds = %43
%48 = load i16, i16* %7
%49 = sext i16 %48 to i32
%50 = ashr i32 %49, 1
%51 = trunc i32 %50 to i16
store i16 %51, i16* %7
%52 = load i16, i16* %8
%53 = add i16 %52, 1
store i16 %53, i16* %8
br label %43
54: ; preds = %43
%55 = load i16, i16* %7
%56 = sext i16 %55 to i32
%57 = sub nsw i32 %56, 16
%58 = trunc i32 %57 to i16
store i16 %58, i16* %7
%59 = load i16, i16* %8
%60 = sext i16 %59 to i32
%61 = shl i32 %60, 4
%62 = load i16, i16* %7
%63 = sext i16 %62 to i32
%64 = add nsw i32 %63, %61
%65 = trunc i32 %64 to i16
store i16 %65, i16* %7
br label %66
66: ; preds = %54, %36
%67 = load i16*, i16** %5
%68 = load i64, i64* %9
%69 = getelementptr inbounds i16, i16* %67, i64 %68
%70 = load i16, i16* %69
%71 = sext i16 %70 to i32
%72 = icmp sge i32 %71, 0
br i1 %72, label %73, label %78
73: ; preds = %66
%74 = load i16, i16* %7
%75 = sext i16 %74 to i32
%76 = or i32 %75, 128
%77 = trunc i32 %76 to i16
store i16 %77, i16* %7
br label %78
78: ; preds = %73, %66
%79 = load i16, i16* %7
%80 = sext i16 %79 to i32
%81 = xor i32 %80, 85
%82 = trunc i32 %81 to i16
%83 = load i16*, i16** %6
%84 = load i64, i64* %9
%85 = getelementptr inbounds i16, i16* %83, i64 %84
store i16 %82, i16* %85
br label %86
86: ; preds = %78
%87 = load i64, i64* %9
%88 = add nsw i64 %87, 1
store i64 %88, i64* %9
br label %10
89: ; preds = %10
ret void
}

LLVM IR (-O2):
define void @alaw_compress(i64 %0, i16* nocapture %1, i16* nocapture writeonly %2) {
%4 = icmp sgt i64 %0, 0
br i1 %4, label %5, label %36
5: ; preds = %3, %27
%6 = phi i64 [ %34, %27 ], [ 0, %3 ]
%7 = getelementptr inbounds i16, i16* %1, i64 %6
%8 = load i16, i16* %7
%9 = ashr i16 %8, 15
%10 = xor i16 %9, %8
%11 = ashr i16 %10, 4
%12 = icmp ugt i16 %10, 255
br i1 %12, label %13, label %27
13: ; preds = %5
%14 = icmp ugt i16 %10, 511
br i1 %14, label %15, label %21
15: ; preds = %13, %15
%16 = phi i16 [ %19, %15 ], [ 1, %13 ]
%17 = phi i16 [ %18, %15 ], [ %11, %13 ]
%18 = lshr i16 %17, 1
%19 = add nuw nsw i16 %16, 1
%20 = icmp ugt i16 %17, 63
br i1 %20, label %15, label %21
21: ; preds = %15, %13
%22 = phi i16 [ %11, %13 ], [ %18, %15 ]
%23 = phi i16 [ 1, %13 ], [ %19, %15 ]
%24 = add nsw i16 %22, -16
%25 = shl i16 %23, 4
%26 = add i16 %24, %25
br label %27
27: ; preds = %21, %5
%28 = phi i16 [ %26, %21 ], [ %11, %5 ]
%29 = icmp sgt i16 %8, -1
%30 = or i16 %28, 128
%31 = select i1 %29, i16 %30, i16 %28
%32 = xor i16 %31, 85
%33 = getelementptr inbounds i16, i16* %2, i64 %6
store i16 %32, i16* %33
%34 = add nuw nsw i64 %6, 1
%35 = icmp eq i64 %34, %0
br i1 %35, label %36, label %5
36: ; preds = %27, %3
ret void
}