unsigned int stock(keyname)
char *keyname;
{
  register unsigned int c;
  c = 0;
  if (*keyname == '^' && *(keyname + 1) == 'X') {
    if (*(keyname + 2) != 0) {
      c |= 0x0400;
      keyname += 2;
    }
  }
  if (*keyname == 'A' && *(keyname + 1) == '-') {
    c |= 0x4000;
    keyname += 2;
  }
  if (*keyname == 'S' && *(keyname + 1) == '-') {
    c |= 0x2000;
    keyname += 2;
  }
  if (*keyname == 'M' && *(keyname + 1) == 'S') {
    c |= 0x1000;
    keyname += 2;
  }
  if (*keyname == 'M' && *(keyname + 1) == '-') {
    c |= 0x0200;
    keyname += 2;
  }
  if (*keyname == 'F' && *(keyname + 1) == 'N') {
    c |= 0x0800;
    keyname += 2;
  }
  if (*keyname == '^' && *(keyname + 1) != 0) {
    c |= 0x0100;
    ++keyname;
    uppercase(keyname);
  }
  if (*keyname < 32) {
    c |= 0x0100;
    *keyname += '@';
  }
  if (!(c & (0x1000 | 0x0800 | 0x4000 | 0x2000)))
    if (c & (0x0400 | 0x0200))
      uppercase(keyname);
  c |= *keyname;
  return (c);
}


x86 assembly (clang, -O0):
<stock>:
push   %rbp
mov    %rsp,%rbp
sub    $0x10,%rsp
mov    %rdi,-0x8(%rbp)
movl   $0x0,-0xc(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5e,%eax
jne    1171 <stock+0x61>
mov    -0x8(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x58,%eax
jne    1171 <stock+0x61>
mov    -0x8(%rbp),%rax
movsbl 0x2(%rax),%eax
cmp    $0x0,%eax
je     116c <stock+0x5c>
mov    -0xc(%rbp),%eax
or     $0x400,%eax
mov    %eax,-0xc(%rbp)
mov    -0x8(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x8(%rbp)
jmp    1171 <stock+0x61>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x41,%eax
jne    11a9 <stock+0x99>
mov    -0x8(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x2d,%eax
jne    11a9 <stock+0x99>
mov    -0xc(%rbp),%eax
or     $0x4000,%eax
mov    %eax,-0xc(%rbp)
mov    -0x8(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x53,%eax
jne    11e1 <stock+0xd1>
mov    -0x8(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x2d,%eax
jne    11e1 <stock+0xd1>
mov    -0xc(%rbp),%eax
or     $0x2000,%eax
mov    %eax,-0xc(%rbp)
mov    -0x8(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x4d,%eax
jne    1219 <stock+0x109>
mov    -0x8(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x53,%eax
jne    1219 <stock+0x109>
mov    -0xc(%rbp),%eax
or     $0x1000,%eax
mov    %eax,-0xc(%rbp)
mov    -0x8(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x4d,%eax
jne    1251 <stock+0x141>
mov    -0x8(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x2d,%eax
jne    1251 <stock+0x141>
mov    -0xc(%rbp),%eax
or     $0x200,%eax
mov    %eax,-0xc(%rbp)
mov    -0x8(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x46,%eax
jne    1289 <stock+0x179>
mov    -0x8(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x4e,%eax
jne    1289 <stock+0x179>
mov    -0xc(%rbp),%eax
or     $0x800,%eax
mov    %eax,-0xc(%rbp)
mov    -0x8(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5e,%eax
jne    12cc <stock+0x1bc>
mov    -0x8(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x0,%eax
je     12cc <stock+0x1bc>
mov    -0xc(%rbp),%eax
or     $0x100,%eax
mov    %eax,-0xc(%rbp)
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rdi
mov    $0x0,%al
call   1030 <uppercase@plt>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x20,%eax
jge    12f3 <stock+0x1e3>
mov    -0xc(%rbp),%eax
or     $0x100,%eax
mov    %eax,-0xc(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%ecx
add    $0x40,%ecx
mov    %cl,(%rax)
mov    -0xc(%rbp),%eax
and    $0x7800,%eax
cmp    $0x0,%eax
jne    1325 <stock+0x215>
mov    -0xc(%rbp),%eax
and    $0x600,%eax
cmp    $0x0,%eax
je     1320 <stock+0x210>
mov    -0x8(%rbp),%rdi
mov    $0x0,%al
call   1030 <uppercase@plt>
jmp    1325 <stock+0x215>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
or     -0xc(%rbp),%eax
mov    %eax,-0xc(%rbp)
mov    -0xc(%rbp),%eax
add    $0x10,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<stock>:
push   %rbp
push   %rbx
push   %rax
mov    %rdi,%rbx
mov    (%rdi),%al
xor    %ebp,%ebp
cmp    $0x5e,%al
jne    1146 <stock+0x36>
xor    %ebp,%ebp
cmpb   $0x58,0x1(%rbx)
jne    11d5 <stock+0xc5>
lea    0x2(%rbx),%rcx
xor    %edx,%edx
cmpb   $0x0,0x2(%rbx)
setne  %dl
cmove  %rbx,%rcx
mov    (%rbx,%rdx,2),%al
mov    %edx,%ebp
shl    $0xa,%ebp
mov    %rcx,%rbx
cmp    $0x41,%al
jne    1163 <stock+0x53>
mov    $0x41,%al
cmpb   $0x2d,0x1(%rbx)
jne    11ff <stock+0xef>
or     $0x4000,%ebp
mov    0x2(%rbx),%al
add    $0x2,%rbx
cmp    $0x53,%al
jne    1182 <stock+0x72>
mov    %ebp,%ecx
or     $0x2000,%ecx
xor    %edx,%edx
cmpb   $0x2d,0x1(%rbx)
sete   %dl
mov    (%rbx,%rdx,2),%al
lea    (%rbx,%rdx,2),%rbx
cmove  %ecx,%ebp
cmp    $0x4d,%al
jne    11b8 <stock+0xa8>
cmpb   $0x53,0x1(%rbx)
jne    119d <stock+0x8d>
or     $0x1000,%ebp
mov    0x2(%rbx),%al
add    $0x2,%rbx
cmp    $0x4d,%al
jne    11b8 <stock+0xa8>
mov    %ebp,%ecx
or     $0x200,%ecx
xor    %edx,%edx
cmpb   $0x2d,0x1(%rbx)
sete   %dl
mov    (%rbx,%rdx,2),%al
lea    (%rbx,%rdx,2),%rbx
cmove  %ecx,%ebp
cmp    $0x46,%al
jne    11d1 <stock+0xc1>
mov    $0x46,%al
cmpb   $0x4e,0x1(%rbx)
jne    11ff <stock+0xef>
or     $0x800,%ebp
mov    0x2(%rbx),%al
add    $0x2,%rbx
cmp    $0x5e,%al
jne    11f1 <stock+0xe1>
cmpb   $0x0,0x1(%rbx)
je     122b <stock+0x11b>
add    $0x1,%rbx
or     $0x100,%ebp
mov    %rbx,%rdi
xor    %eax,%eax
call   1030 <uppercase@plt>
mov    (%rbx),%al
cmp    $0x1f,%al
jg     11ff <stock+0xef>
or     $0x100,%ebp
add    $0x40,%al
mov    %al,(%rbx)
test   $0x7800,%ebp
jne    121d <stock+0x10d>
mov    %ebp,%ecx
and    $0x600,%ecx
je     121d <stock+0x10d>
mov    %rbx,%rdi
xor    %eax,%eax
call   1030 <uppercase@plt>
mov    (%rbx),%al
movsbl %al,%eax
or     %eax,%ebp
mov    %ebp,%eax
add    $0x8,%rsp
pop    %rbx
pop    %rbp
ret
mov    $0x5e,%al
test   $0x7800,%ebp
je     1207 <stock+0xf7>
jmp    121d <stock+0x10d>

LLVM IR (-O0):
define i32 @stock(i8* %0) {
%2 = alloca i8*
%3 = alloca i32
store i8* %0, i8** %2
store i32 0, i32* %3
%4 = load i8*, i8** %2
%5 = load i8, i8* %4
%6 = sext i8 %5 to i32
%7 = icmp eq i32 %6, 94
br i1 %7, label %8, label %26
8: ; preds = %1
%9 = load i8*, i8** %2
%10 = getelementptr inbounds i8, i8* %9, i64 1
%11 = load i8, i8* %10
%12 = sext i8 %11 to i32
%13 = icmp eq i32 %12, 88
br i1 %13, label %14, label %26
14: ; preds = %8
%15 = load i8*, i8** %2
%16 = getelementptr inbounds i8, i8* %15, i64 2
%17 = load i8, i8* %16
%18 = sext i8 %17 to i32
%19 = icmp ne i32 %18, 0
br i1 %19, label %20, label %25
20: ; preds = %14
%21 = load i32, i32* %3
%22 = or i32 %21, 1024
store i32 %22, i32* %3
%23 = load i8*, i8** %2
%24 = getelementptr inbounds i8, i8* %23, i64 2
store i8* %24, i8** %2
br label %25
25: ; preds = %20, %14
br label %26
26: ; preds = %25, %8, %1
%27 = load i8*, i8** %2
%28 = load i8, i8* %27
%29 = sext i8 %28 to i32
%30 = icmp eq i32 %29, 65
br i1 %30, label %31, label %42
31: ; preds = %26
%32 = load i8*, i8** %2
%33 = getelementptr inbounds i8, i8* %32, i64 1
%34 = load i8, i8* %33
%35 = sext i8 %34 to i32
%36 = icmp eq i32 %35, 45
br i1 %36, label %37, label %42
37: ; preds = %31
%38 = load i32, i32* %3
%39 = or i32 %38, 16384
store i32 %39, i32* %3
%40 = load i8*, i8** %2
%41 = getelementptr inbounds i8, i8* %40, i64 2
store i8* %41, i8** %2
br label %42
42: ; preds = %37, %31, %26
%43 = load i8*, i8** %2
%44 = load i8, i8* %43
%45 = sext i8 %44 to i32
%46 = icmp eq i32 %45, 83
br i1 %46, label %47, label %58
47: ; preds = %42
%48 = load i8*, i8** %2
%49 = getelementptr inbounds i8, i8* %48, i64 1
%50 = load i8, i8* %49
%51 = sext i8 %50 to i32
%52 = icmp eq i32 %51, 45
br i1 %52, label %53, label %58
53: ; preds = %47
%54 = load i32, i32* %3
%55 = or i32 %54, 8192
store i32 %55, i32* %3
%56 = load i8*, i8** %2
%57 = getelementptr inbounds i8, i8* %56, i64 2
store i8* %57, i8** %2
br label %58
58: ; preds = %53, %47, %42
%59 = load i8*, i8** %2
%60 = load i8, i8* %59
%61 = sext i8 %60 to i32
%62 = icmp eq i32 %61, 77
br i1 %62, label %63, label %74
63: ; preds = %58
%64 = load i8*, i8** %2
%65 = getelementptr inbounds i8, i8* %64, i64 1
%66 = load i8, i8* %65
%67 = sext i8 %66 to i32
%68 = icmp eq i32 %67, 83
br i1 %68, label %69, label %74
69: ; preds = %63
%70 = load i32, i32* %3
%71 = or i32 %70, 4096
store i32 %71, i32* %3
%72 = load i8*, i8** %2
%73 = getelementptr inbounds i8, i8* %72, i64 2
store i8* %73, i8** %2
br label %74
74: ; preds = %69, %63, %58
%75 = load i8*, i8** %2
%76 = load i8, i8* %75
%77 = sext i8 %76 to i32
%78 = icmp eq i32 %77, 77
br i1 %78, label %79, label %90
79: ; preds = %74
%80 = load i8*, i8** %2
%81 = getelementptr inbounds i8, i8* %80, i64 1
%82 = load i8, i8* %81
%83 = sext i8 %82 to i32
%84 = icmp eq i32 %83, 45
br i1 %84, label %85, label %90
85: ; preds = %79
%86 = load i32, i32* %3
%87 = or i32 %86, 512
store i32 %87, i32* %3
%88 = load i8*, i8** %2
%89 = getelementptr inbounds i8, i8* %88, i64 2
store i8* %89, i8** %2
br label %90
90: ; preds = %85, %79, %74
%91 = load i8*, i8** %2
%92 = load i8, i8* %91
%93 = sext i8 %92 to i32
%94 = icmp eq i32 %93, 70
br i1 %94, label %95, label %106
95: ; preds = %90
%96 = load i8*, i8** %2
%97 = getelementptr inbounds i8, i8* %96, i64 1
%98 = load i8, i8* %97
%99 = sext i8 %98 to i32
%100 = icmp eq i32 %99, 78
br i1 %100, label %101, label %106
101: ; preds = %95
%102 = load i32, i32* %3
%103 = or i32 %102, 2048
store i32 %103, i32* %3
%104 = load i8*, i8** %2
%105 = getelementptr inbounds i8, i8* %104, i64 2
store i8* %105, i8** %2
br label %106
106: ; preds = %101, %95, %90
%107 = load i8*, i8** %2
%108 = load i8, i8* %107
%109 = sext i8 %108 to i32
%110 = icmp eq i32 %109, 94
br i1 %110, label %111, label %124
111: ; preds = %106
%112 = load i8*, i8** %2
%113 = getelementptr inbounds i8, i8* %112, i64 1
%114 = load i8, i8* %113
%115 = sext i8 %114 to i32
%116 = icmp ne i32 %115, 0
br i1 %116, label %117, label %124
117: ; preds = %111
%118 = load i32, i32* %3
%119 = or i32 %118, 256
store i32 %119, i32* %3
%120 = load i8*, i8** %2
%121 = getelementptr inbounds i8, i8* %120, i32 1
store i8* %121, i8** %2
%122 = load i8*, i8** %2
%123 = call i32 (i8*, ...) bitcast (i32 (...)* @uppercase to i32 (i8*, ...)*)(i8* %122)
br label %124
124: ; preds = %117, %111, %106
%125 = load i8*, i8** %2
%126 = load i8, i8* %125
%127 = sext i8 %126 to i32
%128 = icmp slt i32 %127, 32
br i1 %128, label %129, label %137
129: ; preds = %124
%130 = load i32, i32* %3
%131 = or i32 %130, 256
store i32 %131, i32* %3
%132 = load i8*, i8** %2
%133 = load i8, i8* %132
%134 = sext i8 %133 to i32
%135 = add nsw i32 %134, 64
%136 = trunc i32 %135 to i8
store i8 %136, i8* %132
br label %137
137: ; preds = %129, %124
%138 = load i32, i32* %3
%139 = and i32 %138, 30720
%140 = icmp ne i32 %139, 0
br i1 %140, label %149, label %141
141: ; preds = %137
%142 = load i32, i32* %3
%143 = and i32 %142, 1536
%144 = icmp ne i32 %143, 0
br i1 %144, label %145, label %148
145: ; preds = %141
%146 = load i8*, i8** %2
%147 = call i32 (i8*, ...) bitcast (i32 (...)* @uppercase to i32 (i8*, ...)*)(i8* %146)
br label %148
148: ; preds = %145, %141
br label %149
149: ; preds = %148, %137
%150 = load i8*, i8** %2
%151 = load i8, i8* %150
%152 = sext i8 %151 to i32
%153 = load i32, i32* %3
%154 = or i32 %153, %152
store i32 %154, i32* %3
%155 = load i32, i32* %3
ret i32 %155
}

LLVM IR (-O2):
define i32 @stock(i8* %0) {
%2 = load i8, i8* %0
%3 = icmp eq i8 %2, 94
br i1 %3, label %4, label %15
4: ; preds = %1
%5 = getelementptr inbounds i8, i8* %0, i64 1
%6 = load i8, i8* %5
%7 = icmp eq i8 %6, 88
br i1 %7, label %8, label %85
8: ; preds = %4
%9 = getelementptr inbounds i8, i8* %0, i64 2
%10 = load i8, i8* %9
%11 = icmp eq i8 %10, 0
%12 = select i1 %11, i8* %0, i8* %9
%13 = select i1 %11, i32 0, i32 1024
%14 = load i8, i8* %12
br label %15
15: ; preds = %8, %1
%16 = phi i8 [ %2, %1 ], [ %14, %8 ]
%17 = phi i8* [ %0, %1 ], [ %12, %8 ]
%18 = phi i32 [ 0, %1 ], [ %13, %8 ]
%19 = icmp eq i8 %16, 65
br i1 %19, label %20, label %28
20: ; preds = %15
%21 = getelementptr inbounds i8, i8* %17, i64 1
%22 = load i8, i8* %21
%23 = icmp eq i8 %22, 45
br i1 %23, label %24, label %103
24: ; preds = %20
%25 = or i32 %18, 16384
%26 = getelementptr inbounds i8, i8* %17, i64 2
%27 = load i8, i8* %26
br label %28
28: ; preds = %24, %15
%29 = phi i8 [ %27, %24 ], [ %16, %15 ]
%30 = phi i8* [ %26, %24 ], [ %17, %15 ]
%31 = phi i32 [ %25, %24 ], [ %18, %15 ]
%32 = icmp eq i8 %29, 83
br i1 %32, label %33, label %42
33: ; preds = %28
%34 = getelementptr inbounds i8, i8* %30, i64 1
%35 = load i8, i8* %34
%36 = icmp eq i8 %35, 45
%37 = or i32 %31, 8192
%38 = select i1 %36, i64 2, i64 0
%39 = getelementptr i8, i8* %30, i64 %38
%40 = select i1 %36, i32 %37, i32 %31
%41 = load i8, i8* %39
br label %42
42: ; preds = %33, %28
%43 = phi i8 [ %41, %33 ], [ %29, %28 ]
%44 = phi i8* [ %39, %33 ], [ %30, %28 ]
%45 = phi i32 [ %40, %33 ], [ %31, %28 ]
%46 = icmp eq i8 %43, 77
br i1 %46, label %47, label %67
47: ; preds = %42
%48 = getelementptr inbounds i8, i8* %44, i64 1
%49 = load i8, i8* %48
%50 = icmp eq i8 %49, 83
br i1 %50, label %51, label %56
51: ; preds = %47
%52 = or i32 %45, 4096
%53 = getelementptr inbounds i8, i8* %44, i64 2
%54 = load i8, i8* %53
%55 = icmp eq i8 %54, 77
br i1 %55, label %56, label %67
56: ; preds = %47, %51
%57 = phi i32 [ %52, %51 ], [ %45, %47 ]
%58 = phi i8* [ %53, %51 ], [ %44, %47 ]
%59 = getelementptr inbounds i8, i8* %58, i64 1
%60 = load i8, i8* %59
%61 = icmp eq i8 %60, 45
%62 = or i32 %57, 512
%63 = select i1 %61, i64 2, i64 0
%64 = getelementptr i8, i8* %58, i64 %63
%65 = select i1 %61, i32 %62, i32 %57
%66 = load i8, i8* %64
br label %67
67: ; preds = %42, %56, %51
%68 = phi i8 [ %66, %56 ], [ %54, %51 ], [ %43, %42 ]
%69 = phi i8* [ %64, %56 ], [ %53, %51 ], [ %44, %42 ]
%70 = phi i32 [ %65, %56 ], [ %52, %51 ], [ %45, %42 ]
%71 = icmp eq i8 %68, 70
br i1 %71, label %72, label %80
72: ; preds = %67
%73 = getelementptr inbounds i8, i8* %69, i64 1
%74 = load i8, i8* %73
%75 = icmp eq i8 %74, 78
br i1 %75, label %76, label %103
76: ; preds = %72
%77 = or i32 %70, 2048
%78 = getelementptr inbounds i8, i8* %69, i64 2
%79 = load i8, i8* %78
br label %80
80: ; preds = %76, %67
%81 = phi i8 [ %79, %76 ], [ %68, %67 ]
%82 = phi i8* [ %78, %76 ], [ %69, %67 ]
%83 = phi i32 [ %77, %76 ], [ %70, %67 ]
%84 = icmp eq i8 %81, 94
br i1 %84, label %85, label %95
85: ; preds = %4, %80
%86 = phi i32 [ %83, %80 ], [ 0, %4 ]
%87 = phi i8* [ %82, %80 ], [ %0, %4 ]
%88 = getelementptr inbounds i8, i8* %87, i64 1
%89 = load i8, i8* %88
%90 = icmp eq i8 %89, 0
br i1 %90, label %103, label %91
91: ; preds = %85
%92 = or i32 %86, 256
%93 = tail call i32 (i8*, ...) bitcast (i32 (...)* @uppercase to i32 (i8*, ...)*)(i8* %88)
%94 = load i8, i8* %88
br label %95
95: ; preds = %91, %80
%96 = phi i8 [ %81, %80 ], [ %94, %91 ]
%97 = phi i8* [ %82, %80 ], [ %88, %91 ]
%98 = phi i32 [ %83, %80 ], [ %92, %91 ]
%99 = icmp slt i8 %96, 32
br i1 %99, label %100, label %103
100: ; preds = %95
%101 = or i32 %98, 256
%102 = add nsw i8 %96, 64
store i8 %102, i8* %97
br label %103
103: ; preds = %20, %72, %85, %100, %95
%104 = phi i8* [ %97, %100 ], [ %97, %95 ], [ %87, %85 ], [ %69, %72 ], [ %17, %20 ]
%105 = phi i8 [ %102, %100 ], [ %96, %95 ], [ 94, %85 ], [ 70, %72 ], [ 65, %20 ]
%106 = phi i32 [ %101, %100 ], [ %98, %95 ], [ %86, %85 ], [ %70, %72 ], [ %18, %20 ]
%107 = and i32 %106, 30720
%108 = icmp ne i32 %107, 0
%109 = and i32 %106, 1536
%110 = icmp eq i32 %109, 0
%111 = or i1 %108, %110
br i1 %111, label %115, label %112
112: ; preds = %103
%113 = tail call i32 (i8*, ...) bitcast (i32 (...)* @uppercase to i32 (i8*, ...)*)(i8* %104)
%114 = load i8, i8* %104
br label %115
115: ; preds = %112, %103
%116 = phi i8 [ %114, %112 ], [ %105, %103 ]
%117 = sext i8 %116 to i32
%118 = or i32 %106, %117
ret i32 %118
}