int exponent(p0, exp, fmtch)
char *p0;
int exp, fmtch;
{
  register char *p, *t;
  char expbuf[308];
  p = p0;
  *p++ = fmtch;
  if (exp < 0) {
    exp = -exp;
    *p++ = '-';
  } else
    *p++ = '+';
  t = expbuf + 308;
  if (exp > 9) {
    do {
      *--t = ((exp % 10) + '0');
    } while ((exp /= 10) > 9);
    *--t = ((exp) + '0');
    for (; t < expbuf + 308; *p++ = *t++)
      ;
  } else {
    *p++ = '0';
    *p++ = ((exp) + '0');
  }
  return (p - p0);
}


x86 assembly (clang, -O0):
<exponent>:
push   %rbp
mov    %rsp,%rbp
sub    $0xe0,%rsp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%eax
mov    %al,%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,(%rax)
cmpl   $0x0,-0xc(%rbp)
jge    115c <exponent+0x5c>
xor    %eax,%eax
sub    -0xc(%rbp),%eax
mov    %eax,-0xc(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movb   $0x2d,(%rax)
jmp    116e <exponent+0x6e>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movb   $0x2b,(%rax)
lea    -0x160(%rbp),%rax
add    $0x134,%rax
mov    %rax,-0x20(%rbp)
cmpl   $0x9,-0xc(%rbp)
jle    122d <exponent+0x12d>
jmp    118e <exponent+0x8e>
mov    -0xc(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
add    $0x30,%edx
mov    %dl,%cl
mov    -0x20(%rbp),%rax
mov    %rax,%rdx
add    $0xffffffffffffffff,%rdx
mov    %rdx,-0x20(%rbp)
mov    %cl,-0x1(%rax)
mov    -0xc(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
mov    %eax,-0xc(%rbp)
cmp    $0x9,%eax
jg     118e <exponent+0x8e>
mov    -0xc(%rbp),%eax
add    $0x30,%eax
mov    %al,%cl
mov    -0x20(%rbp),%rax
mov    %rax,%rdx
add    $0xffffffffffffffff,%rdx
mov    %rdx,-0x20(%rbp)
mov    %cl,-0x1(%rax)
mov    -0x20(%rbp),%rax
lea    -0x160(%rbp),%rcx
add    $0x134,%rcx
cmp    %rcx,%rax
jae    1228 <exponent+0x128>
jmp    1201 <exponent+0x101>
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x20(%rbp)
mov    (%rax),%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,(%rax)
jmp    11e1 <exponent+0xe1>
jmp    1258 <exponent+0x158>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movb   $0x30,(%rax)
mov    -0xc(%rbp),%eax
add    $0x30,%eax
mov    %al,%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,(%rax)
mov    -0x18(%rbp),%rax
mov    -0x8(%rbp),%rcx
sub    %rcx,%rax
add    $0xe0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<exponent>:
push   %r14
push   %rbx
sub    $0x138,%rsp
mov    %rdi,%r14
mov    %dl,(%rdi)
mov    %esi,%eax
shr    $0x1f,%eax
add    %al,%al
add    $0x2b,%al
mov    %esi,%ecx
neg    %ecx
cmovs  %esi,%ecx
mov    %al,0x1(%rdi)
cmp    $0xa,%ecx
jl     11ba <exponent+0xaa>
lea    0x2(%r14),%rax
lea    0x134(%rsp),%r8
xor    %ebx,%ebx
nopl   0x0(%rax)
movslq %ecx,%rsi
imul   $0x66666667,%rsi,%rcx
mov    %rcx,%rdi
shr    $0x3f,%rdi
sar    $0x22,%rcx
add    %edi,%ecx
lea    (%rcx,%rcx,1),%edi
lea    (%rdi,%rdi,4),%edi
mov    %esi,%edx
sub    %edi,%edx
add    $0x30,%dl
mov    %dl,0x133(%rsp,%rbx,1)
add    $0xffffffffffffffff,%rbx
cmp    $0x63,%esi
jg     1150 <exponent+0x40>
add    $0x30,%cl
lea    (%rsp,%rbx,1),%rsi
add    $0x133,%rsi
mov    %cl,0x133(%rsp,%rbx,1)
cmp    %r8,%rsi
jae    11ca <exponent+0xba>
mov    $0x1,%edx
sub    %rbx,%rdx
mov    %rax,%rdi
call   1030 <memcpy@plt>
mov    %r14,%rax
sub    %rbx,%rax
add    $0x3,%rax
jmp    11ca <exponent+0xba>
movb   $0x30,0x2(%r14)
add    $0x30,%cl
lea    0x4(%r14),%rax
mov    %cl,0x3(%r14)
sub    %r14d,%eax
add    $0x138,%rsp
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
define i32 @exponent(i8* %0, i32 %1, i32 %2) {
%4 = alloca i8*
%5 = alloca i32
%6 = alloca i32
%7 = alloca i8*
%8 = alloca i8*
%9 = alloca [308 x i8]
store i8* %0, i8** %4
store i32 %1, i32* %5
store i32 %2, i32* %6
%10 = load i8*, i8** %4
store i8* %10, i8** %7
%11 = load i32, i32* %6
%12 = trunc i32 %11 to i8
%13 = load i8*, i8** %7
%14 = getelementptr inbounds i8, i8* %13, i32 1
store i8* %14, i8** %7
store i8 %12, i8* %13
%15 = load i32, i32* %5
%16 = icmp slt i32 %15, 0
br i1 %16, label %17, label %22
17: ; preds = %3
%18 = load i32, i32* %5
%19 = sub nsw i32 0, %18
store i32 %19, i32* %5
%20 = load i8*, i8** %7
%21 = getelementptr inbounds i8, i8* %20, i32 1
store i8* %21, i8** %7
store i8 45, i8* %20
br label %25
22: ; preds = %3
%23 = load i8*, i8** %7
%24 = getelementptr inbounds i8, i8* %23, i32 1
store i8* %24, i8** %7
store i8 43, i8* %23
br label %25
25: ; preds = %22, %17
%26 = getelementptr inbounds [308 x i8], [308 x i8]* %9, i64 0, i64 0
%27 = getelementptr inbounds i8, i8* %26, i64 308
store i8* %27, i8** %8
%28 = load i32, i32* %5
%29 = icmp sgt i32 %28, 9
br i1 %29, label %30, label %61
30: ; preds = %25
br label %31
31: ; preds = %38, %30
%32 = load i32, i32* %5
%33 = srem i32 %32, 10
%34 = add nsw i32 %33, 48
%35 = trunc i32 %34 to i8
%36 = load i8*, i8** %8
%37 = getelementptr inbounds i8, i8* %36, i32 -1
store i8* %37, i8** %8
store i8 %35, i8* %37
br label %38
38: ; preds = %31
%39 = load i32, i32* %5
%40 = sdiv i32 %39, 10
store i32 %40, i32* %5
%41 = icmp sgt i32 %40, 9
br i1 %41, label %31, label %42
42: ; preds = %38
%43 = load i32, i32* %5
%44 = add nsw i32 %43, 48
%45 = trunc i32 %44 to i8
%46 = load i8*, i8** %8
%47 = getelementptr inbounds i8, i8* %46, i32 -1
store i8* %47, i8** %8
store i8 %45, i8* %47
br label %48
48: ; preds = %54, %42
%49 = load i8*, i8** %8
%50 = getelementptr inbounds [308 x i8], [308 x i8]* %9, i64 0, i64 0
%51 = getelementptr inbounds i8, i8* %50, i64 308
%52 = icmp ult i8* %49, %51
br i1 %52, label %53, label %60
53: ; preds = %48
br label %54
54: ; preds = %53
%55 = load i8*, i8** %8
%56 = getelementptr inbounds i8, i8* %55, i32 1
store i8* %56, i8** %8
%57 = load i8, i8* %55
%58 = load i8*, i8** %7
%59 = getelementptr inbounds i8, i8* %58, i32 1
store i8* %59, i8** %7
store i8 %57, i8* %58
br label %48
60: ; preds = %48
br label %69
61: ; preds = %25
%62 = load i8*, i8** %7
%63 = getelementptr inbounds i8, i8* %62, i32 1
store i8* %63, i8** %7
store i8 48, i8* %62
%64 = load i32, i32* %5
%65 = add nsw i32 %64, 48
%66 = trunc i32 %65 to i8
%67 = load i8*, i8** %7
%68 = getelementptr inbounds i8, i8* %67, i32 1
store i8* %68, i8** %7
store i8 %66, i8* %67
br label %69
69: ; preds = %61, %60
%70 = load i8*, i8** %7
%71 = load i8*, i8** %4
%72 = ptrtoint i8* %70 to i64
%73 = ptrtoint i8* %71 to i64
%74 = sub i64 %72, %73
%75 = trunc i64 %74 to i32
ret i32 %75
}

LLVM IR (-O2):
define i32 @exponent(i8* %0, i32 %1, i32 %2) {
%4 = alloca [308 x i8]
%5 = ptrtoint [308 x i8]* %4 to i64
%6 = getelementptr inbounds [308 x i8], [308 x i8]* %4, i64 0, i64 0
%7 = trunc i32 %2 to i8
%8 = getelementptr inbounds i8, i8* %0, i64 1
store i8 %7, i8* %0
%9 = icmp slt i32 %1, 0
%10 = sub nsw i32 0, %1
%11 = select i1 %9, i8 45, i8 43
%12 = select i1 %9, i32 %10, i32 %1
%13 = getelementptr i8, i8* %0, i64 2
store i8 %11, i8* %8
%14 = getelementptr inbounds [308 x i8], [308 x i8]* %4, i64 0, i64 308
%15 = icmp sgt i32 %12, 9
br i1 %15, label %16, label %37
16: ; preds = %3, %16
%17 = phi i32 [ %23, %16 ], [ %12, %3 ]
%18 = phi i8* [ %22, %16 ], [ %14, %3 ]
%19 = srem i32 %17, 10
%20 = trunc i32 %19 to i8
%21 = add nsw i8 %20, 48
%22 = getelementptr inbounds i8, i8* %18, i64 -1
store i8 %21, i8* %22
%23 = sdiv i32 %17, 10
%24 = icmp sgt i32 %17, 99
br i1 %24, label %16, label %25
25: ; preds = %16
%26 = ptrtoint i8* %18 to i64
%27 = trunc i32 %23 to i8
%28 = add i8 %27, 48
%29 = getelementptr inbounds i8, i8* %18, i64 -2
store i8 %28, i8* %29
%30 = icmp ult i8* %29, %14
br i1 %30, label %31, label %42
31: ; preds = %25
%32 = add i64 %5, 310
%33 = sub i64 %32, %26
%34 = add i64 %5, 312
%35 = sub i64 %34, %26
%36 = getelementptr i8, i8* %0, i64 %35
br label %42
37: ; preds = %3
%38 = getelementptr inbounds i8, i8* %0, i64 3
store i8 48, i8* %13
%39 = trunc i32 %12 to i8
%40 = add i8 %39, 48
%41 = getelementptr inbounds i8, i8* %0, i64 4
store i8 %40, i8* %38
br label %42
42: ; preds = %31, %25, %37
%43 = phi i8* [ %41, %37 ], [ %13, %25 ], [ %36, %31 ]
%44 = ptrtoint i8* %43 to i64
%45 = ptrtoint i8* %0 to i64
%46 = sub i64 %44, %45
%47 = trunc i64 %46 to i32
ret i32 %47
}