prompt_player(command) char *command;
{
  char *pos;
  int len;
  input_line(command);
  while ((*command != '\0') && (((*command) < '!') || ((*command) > 'z')))
    shftstr(command + 1, -1);
  while ((*command != '\0') && (((*(command + strlen(command) - 1)) < '!') ||
                                ((*(command + strlen(command) - 1)) > 'z')))
    *(command + strlen(command) - 1) = '\0';
  for (pos = command; *pos != '\0'; ++pos) {
    if ((((*pos) < '!') || ((*pos) > 'z'))) {
      len = 0;
      while ((*(pos + 1) != '\0') &&
             (((*(pos + 1)) < '!') || ((*(pos + 1)) > 'z'))) {
        ++len;
        ++pos;
      }
      *pos = ' ';
      if (len) {
        shftstr(pos, -len);
        pos -= len;
      }
    }
  }
  for (pos = command; *pos != '\0'; ++pos)
    if ((*pos >= 'a') && (*pos <= 'z'))
      *pos &= 0xdf;
}


x86 assembly (clang, -O0):
<prompt_player>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x10(%rbp)
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1040 <input_line@plt>
mov    -0x10(%rbp),%rax
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x1d(%rbp)
je     1187 <prompt_player+0x57>
mov    -0x10(%rbp),%rax
movsbl (%rax),%ecx
mov    $0x1,%al
cmp    $0x21,%ecx
mov    %al,-0x1e(%rbp)
jl     1181 <prompt_player+0x51>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x7a,%eax
setg   %al
mov    %al,-0x1e(%rbp)
mov    -0x1e(%rbp),%al
mov    %al,-0x1d(%rbp)
mov    -0x1d(%rbp),%al
test   $0x1,%al
jne    1197 <prompt_player+0x67>
jmp    11b0 <prompt_player+0x80>
mov    -0x10(%rbp),%rdi
add    $0x1,%rdi
mov    $0xffffffff,%esi
mov    $0x0,%al
call   1050 <shftstr@plt>
jmp    1147 <prompt_player+0x17>
jmp    11b5 <prompt_player+0x85>
mov    -0x10(%rbp),%rax
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x1f(%rbp)
je     1221 <prompt_player+0xf1>
mov    -0x10(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x10(%rbp),%rdi
call   1030 <strlen@plt>
mov    %rax,%rcx
mov    -0x28(%rbp),%rax
movsbl -0x1(%rax,%rcx,1),%ecx
mov    $0x1,%al
cmp    $0x21,%ecx
mov    %al,-0x20(%rbp)
jl     121b <prompt_player+0xeb>
mov    -0x10(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x10(%rbp),%rdi
call   1030 <strlen@plt>
mov    %rax,%rcx
mov    -0x30(%rbp),%rax
movsbl -0x1(%rax,%rcx,1),%eax
cmp    $0x7a,%eax
setg   %al
mov    %al,-0x20(%rbp)
mov    -0x20(%rbp),%al
mov    %al,-0x1f(%rbp)
mov    -0x1f(%rbp),%al
test   $0x1,%al
jne    1231 <prompt_player+0x101>
jmp    1253 <prompt_player+0x123>
mov    -0x10(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x10(%rbp),%rdi
call   1030 <strlen@plt>
mov    %rax,%rcx
mov    -0x38(%rbp),%rax
movb   $0x0,-0x1(%rax,%rcx,1)
jmp    11b5 <prompt_player+0x85>
mov    -0x10(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     1351 <prompt_player+0x221>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x21,%eax
jl     128b <prompt_player+0x15b>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x7a,%eax
jle    133b <prompt_player+0x20b>
movl   $0x0,-0x1c(%rbp)
mov    -0x18(%rbp),%rax
movsbl 0x1(%rax),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x39(%rbp)
je     12d5 <prompt_player+0x1a5>
mov    -0x18(%rbp),%rax
movsbl 0x1(%rax),%ecx
mov    $0x1,%al
cmp    $0x21,%ecx
mov    %al,-0x3a(%rbp)
jl     12cf <prompt_player+0x19f>
mov    -0x18(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x7a,%eax
setg   %al
mov    %al,-0x3a(%rbp)
mov    -0x3a(%rbp),%al
mov    %al,-0x39(%rbp)
mov    -0x39(%rbp),%al
test   $0x1,%al
jne    12e5 <prompt_player+0x1b5>
jmp    12ff <prompt_player+0x1cf>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    1292 <prompt_player+0x162>
mov    -0x18(%rbp),%rax
movb   $0x20,(%rax)
cmpl   $0x0,-0x1c(%rbp)
je     1336 <prompt_player+0x206>
mov    -0x18(%rbp),%rdi
xor    %esi,%esi
sub    -0x1c(%rbp),%esi
mov    $0x0,%al
call   1050 <shftstr@plt>
mov    -0x1c(%rbp),%ecx
mov    -0x18(%rbp),%rax
movslq %ecx,%rdx
xor    %ecx,%ecx
sub    %rdx,%rcx
add    %rcx,%rax
mov    %rax,-0x18(%rbp)
jmp    133b <prompt_player+0x20b>
jmp    1340 <prompt_player+0x210>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    125b <prompt_player+0x12b>
mov    -0x10(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     13ae <prompt_player+0x27e>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x61,%eax
jl     1398 <prompt_player+0x268>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x7a,%eax
jg     1398 <prompt_player+0x268>
mov    -0x18(%rbp),%rax
movsbl (%rax),%ecx
and    $0xdf,%ecx
mov    %cl,(%rax)
jmp    139d <prompt_player+0x26d>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    1359 <prompt_player+0x229>
mov    -0x4(%rbp),%eax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<prompt_player>:
push   %r15
push   %r14
push   %r12
push   %rbx
push   %rax
mov    %rdi,%r14
xor    %eax,%eax
call   1040 <input_line@plt>
mov    (%r14),%r15b
test   %r15b,%r15b
je     1180 <prompt_player+0x50>
lea    -0x7b(%r15),%eax
cmp    $0xa5,%al
ja     1180 <prompt_player+0x50>
lea    0x1(%r14),%rbx
cs nopw 0x0(%rax,%rax,1)
mov    %rbx,%rdi
mov    $0xffffffff,%esi
xor    %eax,%eax
call   1050 <shftstr@plt>
movzbl (%r14),%r15d
test   %r15b,%r15b
je     1180 <prompt_player+0x50>
lea    -0x7b(%r15),%eax
cmp    $0xa6,%al
jb     1160 <prompt_player+0x30>
test   %r15b,%r15b
je     125c <prompt_player+0x12c>
mov    %r14,%rdi
call   1030 <strlen@plt>
mov    -0x1(%r14,%rax,1),%cl
add    $0x85,%cl
cmp    $0xa5,%cl
ja     11d8 <prompt_player+0xa8>
lea    -0x1(%r14),%rbx
lea    (%r14,%rax,1),%rcx
add    $0xffffffffffffffff,%rcx
nopw   0x0(%rax,%rax,1)
movb   $0x0,(%rcx)
movzbl (%r14),%r15d
test   %r15b,%r15b
je     125c <prompt_player+0x12c>
mov    %r14,%rdi
call   1030 <strlen@plt>
lea    (%rbx,%rax,1),%rcx
movzbl -0x1(%r14,%rax,1),%eax
add    $0x85,%al
cmp    $0xa5,%al
jbe    11b0 <prompt_player+0x80>
mov    %r14,%r12
jmp    11ee <prompt_player+0xbe>
nopl   (%rax)
mov    0x1(%r12),%r15b
add    $0x1,%r12
test   %r15b,%r15b
je     1233 <prompt_player+0x103>
add    $0x85,%r15b
cmp    $0xa5,%r15b
ja     11e0 <prompt_player+0xb0>
mov    $0xffffffffffffffff,%rbx
nop
movzbl 0x2(%r12,%rbx,1),%eax
add    $0x1,%rbx
test   %al,%al
je     1214 <prompt_player+0xe4>
add    $0x85,%al
cmp    $0xa6,%al
jb     1200 <prompt_player+0xd0>
movb   $0x20,(%r12,%rbx,1)
add    %rbx,%r12
test   %ebx,%ebx
je     11e0 <prompt_player+0xb0>
mov    %ebx,%esi
neg    %esi
mov    %r12,%rdi
xor    %eax,%eax
call   1050 <shftstr@plt>
sub    %rbx,%r12
jmp    11e0 <prompt_player+0xb0>
mov    (%r14),%al
test   %al,%al
je     125c <prompt_player+0x12c>
add    $0x1,%r14
jmp    124c <prompt_player+0x11c>
movzbl (%r14),%eax
add    $0x1,%r14
test   %al,%al
je     125c <prompt_player+0x12c>
lea    -0x61(%rax),%ecx
cmp    $0x19,%cl
ja     1240 <prompt_player+0x110>
and    $0xdf,%al
mov    %al,-0x1(%r14)
jmp    1240 <prompt_player+0x110>
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

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

LLVM IR (-O2):
define i32 @prompt_player(i8* %0) {
%2 = tail call i32 (i8*, ...) bitcast (i32 (...)* @input_line to i32 (i8*, ...)*)(i8* %0)
%3 = load i8, i8* %0
%4 = icmp ne i8 %3, 0
%5 = add i8 %3, -123
%6 = icmp ult i8 %5, -90
%7 = and i1 %4, %6
br i1 %7, label %8, label %10
8: ; preds = %1
%9 = getelementptr inbounds i8, i8* %0, i64 1
br label %22
10: ; preds = %22, %1
%11 = phi i8 [ %3, %1 ], [ %24, %22 ]
%12 = icmp eq i8 %11, 0
br i1 %12, label %81, label %13
13: ; preds = %10
%14 = getelementptr inbounds i8, i8* %0, i64 -1
%15 = tail call i64 @strlen(i8* %0)
%16 = getelementptr inbounds i8, i8* %14, i64 %15
%17 = load i8, i8* %16
%18 = add i8 %17, -123
%19 = icmp ult i8 %18, -90
br i1 %19, label %35, label %20
20: ; preds = %29, %13
%21 = phi i8 [ %11, %13 ], [ %37, %29 ]
br label %42
22: ; preds = %8, %22
%23 = tail call i32 (i8*, i32, ...) bitcast (i32 (...)* @shftstr to i32 (i8*, i32, ...)*)(i8* %9, i32 -1)
%24 = load i8, i8* %0
%25 = icmp ne i8 %24, 0
%26 = add i8 %24, -123
%27 = icmp ult i8 %26, -90
%28 = and i1 %25, %27
br i1 %28, label %22, label %10
29: ; preds = %35
%30 = tail call i64 @strlen(i8* %0)
%31 = getelementptr inbounds i8, i8* %14, i64 %30
%32 = load i8, i8* %31
%33 = add i8 %32, -123
%34 = icmp ult i8 %33, -90
br i1 %34, label %35, label %20
35: ; preds = %13, %29
%36 = phi i8* [ %31, %29 ], [ %16, %13 ]
store i8 0, i8* %36
%37 = load i8, i8* %0
%38 = icmp eq i8 %37, 0
br i1 %38, label %81, label %29
39: ; preds = %65
%40 = load i8, i8* %0
%41 = icmp eq i8 %40, 0
br i1 %41, label %81, label %70
42: ; preds = %20, %65
%43 = phi i8 [ %68, %65 ], [ %21, %20 ]
%44 = phi i8* [ %67, %65 ], [ %0, %20 ]
%45 = add i8 %43, -123
%46 = icmp ult i8 %45, -90
br i1 %46, label %47, label %65
47: ; preds = %42, %47
%48 = phi i8* [ %50, %47 ], [ %44, %42 ]
%49 = phi i32 [ %56, %47 ], [ 0, %42 ]
%50 = getelementptr inbounds i8, i8* %48, i64 1
%51 = load i8, i8* %50
%52 = icmp ne i8 %51, 0
%53 = add i8 %51, -123
%54 = icmp ult i8 %53, -90
%55 = and i1 %52, %54
%56 = add nuw nsw i32 %49, 1
br i1 %55, label %47, label %57
57: ; preds = %47
store i8 32, i8* %48
%58 = icmp eq i32 %49, 0
br i1 %58, label %65, label %59
59: ; preds = %57
%60 = sub nsw i32 0, %49
%61 = tail call i32 (i8*, i32, ...) bitcast (i32 (...)* @shftstr to i32 (i8*, i32, ...)*)(i8* %48, i32 %60)
%62 = zext i32 %49 to i64
%63 = sub nsw i64 0, %62
%64 = getelementptr inbounds i8, i8* %48, i64 %63
br label %65
65: ; preds = %42, %59, %57
%66 = phi i8* [ %64, %59 ], [ %48, %57 ], [ %44, %42 ]
%67 = getelementptr inbounds i8, i8* %66, i64 1
%68 = load i8, i8* %67
%69 = icmp eq i8 %68, 0
br i1 %69, label %39, label %42
70: ; preds = %39, %77
%71 = phi i8 [ %79, %77 ], [ %40, %39 ]
%72 = phi i8* [ %78, %77 ], [ %0, %39 ]
%73 = add i8 %71, -97
%74 = icmp ult i8 %73, 26
br i1 %74, label %75, label %77
75: ; preds = %70
%76 = and i8 %71, -33
store i8 %76, i8* %72
br label %77
77: ; preds = %70, %75
%78 = getelementptr inbounds i8, i8* %72, i64 1
%79 = load i8, i8* %78
%80 = icmp eq i8 %79, 0
br i1 %80, label %81, label %70
81: ; preds = %35, %77, %10, %39
ret i32 undef
}