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 (c >= '0' && c <= '9') {
        c -= '0', i = 2;
        do
          c <<= 3, c |= *str++ - '0';
        while (--i && *str >= '0' && *str <= '9');
      }
      break;
    }
    *cp++ = c;
  }
  *cp++ = 0;
  str = *area;
  *area = cp;
  return (str);
}


x86 assembly (clang, -O0):
<tdecode>:
push   %rbp
mov    %rsp,%rbp
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     1144 <tdecode+0x44>
cmpl   $0x3a,-0x1c(%rbp)
setne  %al
mov    %al,-0x2d(%rbp)
mov    -0x2d(%rbp),%al
test   $0x1,%al
jne    1154 <tdecode+0x54>
jmp    12bd <tdecode+0x1bd>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x34(%rbp)
sub    $0x5c,%eax
je     1196 <tdecode+0x96>
jmp    1168 <tdecode+0x68>
mov    -0x34(%rbp),%eax
sub    $0x5e,%eax
jne    12a2 <tdecode+0x1a2>
jmp    1179 <tdecode+0x79>
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    12a2 <tdecode+0x1a2>
lea    0xe63(%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    11eb <tdecode+0xeb>
mov    -0x28(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x28(%rbp)
movsbl (%rax),%eax
mov    %eax,-0x1c(%rbp)
jmp    12a2 <tdecode+0x1a2>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
cmpb   $0x0,(%rax)
je     1209 <tdecode+0x109>
jmp    11b6 <tdecode+0xb6>
cmpl   $0x30,-0x1c(%rbp)
jl     129d <tdecode+0x19d>
cmpl   $0x39,-0x1c(%rbp)
jg     129d <tdecode+0x19d>
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     128d <tdecode+0x18d>
mov    -0x8(%rbp),%rax
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x30,%ecx
mov    %al,-0x35(%rbp)
jl     128d <tdecode+0x18d>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x39,%eax
setle  %al
mov    %al,-0x35(%rbp)
mov    -0x35(%rbp),%al
test   $0x1,%al
jne    122d <tdecode+0x12d>
jmp    129d <tdecode+0x19d>
jmp    12a2 <tdecode+0x1a2>
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    1117 <tdecode+0x17>
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
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     125d <tdecode+0x15d>
cmp    $0x3a,%bl
je     125d <tdecode+0x15d>
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
movzbl 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,%al
ja     1157 <tdecode+0x57>
lea    -0x180(,%rbx,8),%eax
movzbl 0x2(%rdi),%ebx
add    $0xffffffd0,%ebx
or     %eax,%ebx
movzbl 0x3(%rdi),%eax
lea    -0x30(%rax),%ebp
cmp    $0x9,%bpl
ja     1254 <tdecode+0x154>
add    $0x4,%rdi
shl    $0x3,%ebx
add    $0xffffffd0,%eax
or     %ebx,%eax
mov    %rdi,%rbp
mov    %eax,%ebx
jmp    1157 <tdecode+0x57>
lea    0xef3(%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 = %91, %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 %96
22: ; preds = %20
%23 = load i32, i32* %6
switch i32 %23, label %91 [
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 %91
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 %91
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 = icmp sge i32 %55, 48
br i1 %56, label %57, label %90
57: ; preds = %54
%58 = load i32, i32* %6
%59 = icmp sle i32 %58, 57
br i1 %59, label %60, label %90
60: ; preds = %57
%61 = load i32, i32* %6
%62 = sub nsw i32 %61, 48
store i32 %62, i32* %6
store i32 2, i32* %8
br label %63
63: ; preds = %87, %60
%64 = load i32, i32* %6
%65 = shl i32 %64, 3
store i32 %65, i32* %6
%66 = load i8*, i8** %3
%67 = getelementptr inbounds i8, i8* %66, i32 1
store i8* %67, i8** %3
%68 = load i8, i8* %66
%69 = sext i8 %68 to i32
%70 = sub nsw i32 %69, 48
%71 = load i32, i32* %6
%72 = or i32 %71, %70
store i32 %72, i32* %6
br label %73
73: ; preds = %63
%74 = load i32, i32* %8
%75 = add nsw i32 %74, -1
store i32 %75, i32* %8
%76 = icmp ne i32 %75, 0
br i1 %76, label %77, label %87
77: ; preds = %73
%78 = load i8*, i8** %3
%79 = load i8, i8* %78
%80 = sext i8 %79 to i32
%81 = icmp sge i32 %80, 48
br i1 %81, label %82, label %87
82: ; preds = %77
%83 = load i8*, i8** %3
%84 = load i8, i8* %83
%85 = sext i8 %84 to i32
%86 = icmp sle i32 %85, 57
br label %87
87: ; preds = %82, %77, %73
%88 = phi i1 [ false, %77 ], [ false, %73 ], [ %86, %82 ]
br i1 %88, label %63, label %89
89: ; preds = %87
br label %90
90: ; preds = %89, %57, %54
br label %91
91: ; preds = %22, %90, %42, %24
%92 = load i32, i32* %6
%93 = trunc i32 %92 to i8
%94 = load i8*, i8** %5
%95 = getelementptr inbounds i8, i8* %94, i32 1
store i8* %95, i8** %5
store i8 %93, i8* %94
br label %11
96: ; preds = %20
%97 = load i8*, i8** %5
%98 = getelementptr inbounds i8, i8* %97, i32 1
store i8* %98, i8** %5
store i8 0, i8* %97
%99 = load i8**, i8*** %4
%100 = load i8*, i8** %99
store i8* %100, i8** %3
%101 = load i8*, i8** %5
%102 = load i8**, i8*** %4
store i8* %101, i8** %102
%103 = load i8*, i8** %3
ret i8* %103
}

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 = %53, %2
%5 = phi i8* [ %0, %2 ], [ %54, %53 ]
%6 = phi i8* [ %3, %2 ], [ %57, %53 ]
%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 %58
i8 0, label %58
]
10: ; preds = %4
switch i32 %9, label %53 [
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 %53
16: ; preds = %10
%17 = getelementptr inbounds i8, i8* %5, i64 2
%18 = load i8, i8* %7
%19 = zext 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 %53
33: ; preds = %16
%34 = add i8 %18, -48
%35 = icmp ult i8 %34, 10
br i1 %35, label %36, label %53
36: ; preds = %33
%37 = shl nuw nsw i32 %19, 3
%38 = add nsw i32 %37, -384
%39 = getelementptr inbounds i8, i8* %5, i64 3
%40 = load i8, i8* %17
%41 = zext i8 %40 to i32
%42 = add nsw i32 %41, -48
%43 = or i32 %42, %38
%44 = load i8, i8* %39
%45 = add i8 %44, -48
%46 = icmp ult i8 %45, 10
br i1 %46, label %47, label %53
47: ; preds = %36
%48 = getelementptr i8, i8* %5, i64 4
%49 = shl nsw i32 %43, 3
%50 = zext i8 %44 to i32
%51 = add nsw i32 %50, -48
%52 = or i32 %51, %49
br label %53
53: ; preds = %36, %47, %33, %10, %28, %11
%54 = phi i8* [ %7, %10 ], [ %17, %28 ], [ %17, %33 ], [ %12, %11 ], [ %39, %36 ], [ %48, %47 ]
%55 = phi i32 [ %9, %10 ], [ %32, %28 ], [ %19, %33 ], [ %15, %11 ], [ %43, %36 ], [ %52, %47 ]
%56 = trunc i32 %55 to i8
%57 = getelementptr inbounds i8, i8* %6, i64 1
store i8 %56, i8* %6
br label %4
58: ; preds = %4, %4
%59 = getelementptr inbounds i8, i8* %6, i64 1
store i8 0, i8* %6
%60 = load i8*, i8** %1
store i8* %59, i8** %1
ret i8* %60
}