char *tdecode(str, area)
register char *str;
char **area;
{
  register char *cp;
  register int c;
  register char *dp;
  int i;
  cp = *area;
  while ((c = *str++) && c != ':') {
    switch (c) {
    case '^':
      c = *str++ & 037;
      break;
    case '\\':
      dp = "E\033^^\\\\::n\nr\rt\tb\bf\f";
      c = *str++;
    nextc:
      if (*dp++ == c) {
        c = *dp++;
        break;
      }
      dp++;
      if (*dp)
        goto nextc;
      if (isdigit(c)) {
        c -= '0', i = 2;
        do
          c <<= 3, c |= *str++ - '0';
        while (--i && isdigit(*str));
      }
      break;
    }
    *cp++ = c;
  }
  *cp++ = 0;
  str = *area;
  *area = cp;
  return (str);
}


x86 assembly (clang, -O0):
<tdecode>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x18(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
movsbl (%rax),%ecx
mov    %ecx,-0x1c(%rbp)
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x2d(%rbp)
je     1158 <tdecode+0x48>
cmpl   $0x3a,-0x1c(%rbp)
setne  %al
mov    %al,-0x2d(%rbp)
mov    -0x2d(%rbp),%al
test   $0x1,%al
jne    1168 <tdecode+0x58>
jmp    12be <tdecode+0x1ae>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x34(%rbp)
sub    $0x5c,%eax
je     11aa <tdecode+0x9a>
jmp    117c <tdecode+0x6c>
mov    -0x34(%rbp),%eax
sub    $0x5e,%eax
jne    12a3 <tdecode+0x193>
jmp    118d <tdecode+0x7d>
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
movsbl (%rax),%eax
and    $0x1f,%eax
mov    %eax,-0x1c(%rbp)
jmp    12a3 <tdecode+0x193>
lea    0xe4f(%rip),%rax
mov    %rax,-0x28(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
movsbl (%rax),%eax
mov    %eax,-0x1c(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x28(%rbp)
movsbl (%rax),%eax
cmp    -0x1c(%rbp),%eax
jne    11ff <tdecode+0xef>
mov    -0x28(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x28(%rbp)
movsbl (%rax),%eax
mov    %eax,-0x1c(%rbp)
jmp    12a3 <tdecode+0x193>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
cmpb   $0x0,(%rax)
je     121d <tdecode+0x10d>
jmp    11ca <tdecode+0xba>
mov    -0x1c(%rbp),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%eax
je     129e <tdecode+0x18e>
mov    -0x1c(%rbp),%eax
sub    $0x30,%eax
mov    %eax,-0x1c(%rbp)
movl   $0x2,-0x2c(%rbp)
mov    -0x1c(%rbp),%eax
shl    $0x3,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
movsbl (%rax),%eax
sub    $0x30,%eax
or     -0x1c(%rbp),%eax
mov    %eax,-0x1c(%rbp)
mov    -0x2c(%rbp),%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0x2c(%rbp)
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x35(%rbp)
je     128e <tdecode+0x17e>
mov    -0x8(%rbp),%rax
movsbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%eax
setne  %al
mov    %al,-0x35(%rbp)
mov    -0x35(%rbp),%al
test   $0x1,%al
jne    123e <tdecode+0x12e>
jmp    129e <tdecode+0x18e>
jmp    12a3 <tdecode+0x193>
mov    -0x1c(%rbp),%eax
mov    %al,%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,(%rax)
jmp    112b <tdecode+0x1b>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movb   $0x0,(%rax)
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x8(%rbp)
mov    -0x18(%rbp),%rcx
mov    -0x10(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x8(%rbp),%rax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<tdecode>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    (%rsi),%rcx
add    $0x1,%rcx
lea    0xfd4(%rip),%r8
lea    0xee1(%rip),%rdx
lea    0xfc8(%rip),%r10
lea    0xfcd(%rip),%r11
lea    0xfc8(%rip),%r14
lea    0xfb9(%rip),%r15
lea    0xfb4(%rip),%r12
lea    0xfaf(%rip),%r13
jmp    1161 <tdecode+0x61>
nopl   0x0(%rax,%rax,1)
add    $0x1,%rdi
mov    %rdi,%rbp
mov    %bl,-0x1(%rcx)
add    $0x1,%rcx
mov    %rbp,%rdi
movsbl (%rdi),%ebx
test   %ebx,%ebx
je     1256 <tdecode+0x156>
cmp    $0x3a,%bl
je     1256 <tdecode+0x156>
cmp    $0x5c,%ebx
je     1190 <tdecode+0x90>
cmp    $0x5e,%ebx
jne    1150 <tdecode+0x50>
movzbl 0x1(%rdi),%ebx
add    $0x2,%rdi
and    $0x1f,%ebx
jmp    1154 <tdecode+0x54>
nopl   0x0(%rax)
lea    0x2(%rdi),%rbp
movsbl 0x1(%rdi),%ebx
lea    -0x3a(%rbx),%eax
cmp    $0x3a,%al
ja     11bc <tdecode+0xbc>
movzbl %al,%eax
movslq (%rdx,%rax,4),%r9
add    %rdx,%r9
mov    %r8,%rax
jmp    *%r9
lea    0xf3c(%rip),%rax
movzbl 0x1(%rax),%ebx
jmp    1157 <tdecode+0x57>
lea    -0x30(%rbx),%eax
cmp    $0x9,%eax
ja     1157 <tdecode+0x57>
shl    $0x3,%eax
movzbl 0x2(%rdi),%ebx
add    $0xffffffd0,%ebx
or     %eax,%ebx
movsbl 0x3(%rdi),%eax
add    $0xffffffd0,%eax
cmp    $0x9,%eax
ja     124d <tdecode+0x14d>
add    $0x4,%rdi
shl    $0x3,%ebx
or     %ebx,%eax
mov    %rdi,%rbp
mov    %eax,%ebx
jmp    1157 <tdecode+0x57>
lea    0xefa(%rip),%rax
movzbl 0x1(%rax),%ebx
jmp    1157 <tdecode+0x57>
mov    %r10,%rax
movzbl 0x1(%r10),%ebx
jmp    1157 <tdecode+0x57>
mov    %r11,%rax
movzbl 0x1(%r11),%ebx
jmp    1157 <tdecode+0x57>
mov    %r14,%rax
movzbl 0x1(%rax),%ebx
jmp    1157 <tdecode+0x57>
mov    %r15,%rax
movzbl 0x1(%r15),%ebx
jmp    1157 <tdecode+0x57>
mov    %r12,%rax
movzbl 0x1(%r12),%ebx
jmp    1157 <tdecode+0x57>
mov    %r13,%rax
movzbl 0x1(%r13),%ebx
jmp    1157 <tdecode+0x57>
add    $0x3,%rdi
jmp    1154 <tdecode+0x54>
movb   $0x0,-0x1(%rcx)
mov    (%rsi),%rax
mov    %rcx,(%rsi)
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [19 x i8] c"E\1B^^\\\\::n\0Ar\0Dt\09b\08f\0C\00"
define i8* @tdecode(i8* %0, i8** %1) {
%3 = alloca i8*
%4 = alloca i8**
%5 = alloca i8*
%6 = alloca i32
%7 = alloca i8*
%8 = alloca i32
store i8* %0, i8** %3
store i8** %1, i8*** %4
%9 = load i8**, i8*** %4
%10 = load i8*, i8** %9
store i8* %10, i8** %5
br label %11
11: ; preds = %85, %2
%12 = load i8*, i8** %3
%13 = getelementptr inbounds i8, i8* %12, i32 1
store i8* %13, i8** %3
%14 = load i8, i8* %12
%15 = sext i8 %14 to i32
store i32 %15, i32* %6
%16 = icmp ne i32 %15, 0
br i1 %16, label %17, label %20
17: ; preds = %11
%18 = load i32, i32* %6
%19 = icmp ne i32 %18, 58
br label %20
20: ; preds = %17, %11
%21 = phi i1 [ false, %11 ], [ %19, %17 ]
br i1 %21, label %22, label %90
22: ; preds = %20
%23 = load i32, i32* %6
switch i32 %23, label %85 [
i32 94, label %24
i32 92, label %30
]
24: ; preds = %22
%25 = load i8*, i8** %3
%26 = getelementptr inbounds i8, i8* %25, i32 1
store i8* %26, i8** %3
%27 = load i8, i8* %25
%28 = sext i8 %27 to i32
%29 = and i32 %28, 31
store i32 %29, i32* %6
br label %85
30: ; preds = %22
store i8* getelementptr inbounds ([19 x i8], [19 x i8]* @.str, i64 0, i64 0), i8** %7
%31 = load i8*, i8** %3
%32 = getelementptr inbounds i8, i8* %31, i32 1
store i8* %32, i8** %3
%33 = load i8, i8* %31
%34 = sext i8 %33 to i32
store i32 %34, i32* %6
br label %35
35: ; preds = %53, %30
%36 = load i8*, i8** %7
%37 = getelementptr inbounds i8, i8* %36, i32 1
store i8* %37, i8** %7
%38 = load i8, i8* %36
%39 = sext i8 %38 to i32
%40 = load i32, i32* %6
%41 = icmp eq i32 %39, %40
br i1 %41, label %42, label %47
42: ; preds = %35
%43 = load i8*, i8** %7
%44 = getelementptr inbounds i8, i8* %43, i32 1
store i8* %44, i8** %7
%45 = load i8, i8* %43
%46 = sext i8 %45 to i32
store i32 %46, i32* %6
br label %85
47: ; preds = %35
%48 = load i8*, i8** %7
%49 = getelementptr inbounds i8, i8* %48, i32 1
store i8* %49, i8** %7
%50 = load i8*, i8** %7
%51 = load i8, i8* %50
%52 = icmp ne i8 %51, 0
br i1 %52, label %53, label %54
53: ; preds = %47
br label %35
54: ; preds = %47
%55 = load i32, i32* %6
%56 = call i32 @isdigit(i32 %55)
%57 = icmp ne i32 %56, 0
br i1 %57, label %58, label %84
58: ; preds = %54
%59 = load i32, i32* %6
%60 = sub nsw i32 %59, 48
store i32 %60, i32* %6
store i32 2, i32* %8
br label %61
61: ; preds = %81, %58
%62 = load i32, i32* %6
%63 = shl i32 %62, 3
store i32 %63, i32* %6
%64 = load i8*, i8** %3
%65 = getelementptr inbounds i8, i8* %64, i32 1
store i8* %65, i8** %3
%66 = load i8, i8* %64
%67 = sext i8 %66 to i32
%68 = sub nsw i32 %67, 48
%69 = load i32, i32* %6
%70 = or i32 %69, %68
store i32 %70, i32* %6
br label %71
71: ; preds = %61
%72 = load i32, i32* %8
%73 = add nsw i32 %72, -1
store i32 %73, i32* %8
%74 = icmp ne i32 %73, 0
br i1 %74, label %75, label %81
75: ; preds = %71
%76 = load i8*, i8** %3
%77 = load i8, i8* %76
%78 = sext i8 %77 to i32
%79 = call i32 @isdigit(i32 %78)
%80 = icmp ne i32 %79, 0
br label %81
81: ; preds = %75, %71
%82 = phi i1 [ false, %71 ], [ %80, %75 ]
br i1 %82, label %61, label %83
83: ; preds = %81
br label %84
84: ; preds = %83, %54
br label %85
85: ; preds = %22, %84, %42, %24
%86 = load i32, i32* %6
%87 = trunc i32 %86 to i8
%88 = load i8*, i8** %5
%89 = getelementptr inbounds i8, i8* %88, i32 1
store i8* %89, i8** %5
store i8 %87, i8* %88
br label %11
90: ; preds = %20
%91 = load i8*, i8** %5
%92 = getelementptr inbounds i8, i8* %91, i32 1
store i8* %92, i8** %5
store i8 0, i8* %91
%93 = load i8**, i8*** %4
%94 = load i8*, i8** %93
store i8* %94, i8** %3
%95 = load i8*, i8** %5
%96 = load i8**, i8*** %4
store i8* %95, i8** %96
%97 = load i8*, i8** %3
ret i8* %97
}

LLVM IR (-O2):
@.str = [19 x i8] c"E\1B^^\\\\::n\0Ar\0Dt\09b\08f\0C\00"
define i8* @tdecode(i8* nocapture %0, i8** nocapture %1) {
%3 = load i8*, i8** %1
br label %4
4: ; preds = %51, %2
%5 = phi i8* [ %0, %2 ], [ %52, %51 ]
%6 = phi i8* [ %3, %2 ], [ %55, %51 ]
%7 = getelementptr inbounds i8, i8* %5, i64 1
%8 = load i8, i8* %5
%9 = sext i8 %8 to i32
switch i8 %8, label %10 [
i8 58, label %56
i8 0, label %56
]
10: ; preds = %4
switch i32 %9, label %51 [
i32 94, label %11
i32 92, label %16
]
11: ; preds = %10
%12 = getelementptr inbounds i8, i8* %5, i64 2
%13 = load i8, i8* %7
%14 = and i8 %13, 31
%15 = zext i8 %14 to i32
br label %51
16: ; preds = %10
%17 = getelementptr inbounds i8, i8* %5, i64 2
%18 = load i8, i8* %7
%19 = sext i8 %18 to i32
switch i8 %18, label %33 [
i8 69, label %28
i8 94, label %20
i8 92, label %21
i8 58, label %22
i8 110, label %23
i8 114, label %24
i8 116, label %25
i8 98, label %26
i8 102, label %27
]
20: ; preds = %16
br label %28
21: ; preds = %16
br label %28
22: ; preds = %16
br label %28
23: ; preds = %16
br label %28
24: ; preds = %16
br label %28
25: ; preds = %16
br label %28
26: ; preds = %16
br label %28
27: ; preds = %16
br label %28
28: ; preds = %16, %27, %26, %25, %24, %23, %22, %21, %20
%29 = phi i8* [ getelementptr inbounds ([19 x i8], [19 x i8]* @.str, i64 0, i64 0), %16 ], [ getelementptr inbounds ([19 x i8], [19 x i8]* @.str, i64 0, i64 2), %20 ], [ getelementptr inbounds ([19 x i8], [19 x i8]* @.str, i64 0, i64 4), %21 ], [ getelementptr inbounds ([19 x i8], [19 x i8]* @.str, i64 0, i64 6), %22 ], [ getelementptr inbounds ([19 x i8], [19 x i8]* @.str, i64 0, i64 8), %23 ], [ getelementptr inbounds ([19 x i8], [19 x i8]* @.str, i64 0, i64 10), %24 ], [ getelementptr inbounds ([19 x i8], [19 x i8]* @.str, i64 0, i64 12), %25 ], [ getelementptr inbounds ([19 x i8], [19 x i8]* @.str, i64 0, i64 14), %26 ], [ getelementptr inbounds ([19 x i8], [19 x i8]* @.str, i64 0, i64 16), %27 ]
%30 = getelementptr inbounds i8, i8* %29, i64 1
%31 = load i8, i8* %30
%32 = zext i8 %31 to i32
br label %51
33: ; preds = %16
%34 = add nsw i32 %19, -48
%35 = icmp ult i32 %34, 10
br i1 %35, label %36, label %51
36: ; preds = %33
%37 = shl nuw nsw i32 %34, 3
%38 = getelementptr inbounds i8, i8* %5, i64 3
%39 = load i8, i8* %17
%40 = zext i8 %39 to i32
%41 = add nsw i32 %40, -48
%42 = or i32 %41, %37
%43 = load i8, i8* %38
%44 = sext i8 %43 to i32
%45 = add nsw i32 %44, -48
%46 = icmp ult i32 %45, 10
br i1 %46, label %47, label %51
47: ; preds = %36
%48 = getelementptr i8, i8* %5, i64 4
%49 = shl nsw i32 %42, 3
%50 = or i32 %45, %49
br label %51
51: ; preds = %36, %47, %33, %10, %28, %11
%52 = phi i8* [ %7, %10 ], [ %17, %28 ], [ %17, %33 ], [ %12, %11 ], [ %38, %36 ], [ %48, %47 ]
%53 = phi i32 [ %9, %10 ], [ %32, %28 ], [ %19, %33 ], [ %15, %11 ], [ %42, %36 ], [ %50, %47 ]
%54 = trunc i32 %53 to i8
%55 = getelementptr inbounds i8, i8* %6, i64 1
store i8 %54, i8* %6
br label %4
56: ; preds = %4, %4
%57 = getelementptr inbounds i8, i8* %6, i64 1
store i8 0, i8* %6
%58 = load i8*, i8** %1
store i8* %57, i8** %1
ret i8* %58
}