void getXY(char *what, short *locp, int scale, int abs) {
  char *line, *end;
  int val;
  int min = abs ? 1 : 15;
  int minp = min * scale;
  int max = scale == 8 ? 80 : 30;
  int maxp = (max - abs) * scale;
  int loc = *locp / scale + abs;
  char *plus = *locp % scale ? "+" : "";
  printf("%s (%d..%d) or (%dp..%dp) [%d%s or %dp]: ", what, min, max, minp,
         maxp, loc, plus, (int)*locp);
  line = getLine();
  if (!*line)
    val = *locp;
  else {
    val = strtol(line, &end, 0);
    if (line == end || (*end && toupper(*end) != 'P')) {
      val = *locp;
      printf("???1\n");
    }
    if (toupper(*end) != 'P')
      val = (val - 1) * scale;
    if (val > maxp) {
      val = *locp;
      printf("???2\n");
    }
  }
  *locp = val;
  free(line);
}


x86 assembly (clang, -O0):
<getXY>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    -0x18(%rbp),%edx
mov    $0xf,%eax
mov    $0x1,%ecx
cmp    $0x0,%edx
cmovne %ecx,%eax
mov    %eax,-0x30(%rbp)
mov    -0x30(%rbp),%eax
imul   -0x14(%rbp),%eax
mov    %eax,-0x34(%rbp)
mov    -0x14(%rbp),%edx
mov    $0x1e,%eax
mov    $0x50,%ecx
cmp    $0x8,%edx
cmove  %ecx,%eax
mov    %eax,-0x38(%rbp)
mov    -0x38(%rbp),%eax
sub    -0x18(%rbp),%eax
imul   -0x14(%rbp),%eax
mov    %eax,-0x3c(%rbp)
mov    -0x10(%rbp),%rax
movswl (%rax),%eax
cltd
idivl  -0x14(%rbp)
add    -0x18(%rbp),%eax
mov    %eax,-0x40(%rbp)
mov    -0x10(%rbp),%rax
movswl (%rax),%eax
cltd
idivl  -0x14(%rbp)
lea    0xe65(%rip),%rax
lea    0xe2d(%rip),%rcx
cmp    $0x0,%edx
cmovne %rcx,%rax
mov    %rax,-0x48(%rbp)
mov    -0x8(%rbp),%rsi
mov    -0x30(%rbp),%edx
mov    -0x38(%rbp),%ecx
mov    -0x34(%rbp),%r8d
mov    -0x3c(%rbp),%r9d
mov    -0x40(%rbp),%r11d
mov    -0x48(%rbp),%r10
mov    -0x10(%rbp),%rax
movswl (%rax),%eax
lea    0xdfc(%rip),%rdi
mov    %r11d,(%rsp)
mov    %r10,0x8(%rsp)
mov    %eax,0x10(%rsp)
mov    $0x0,%al
call   1050 <printf@plt>
mov    $0x0,%al
call   1070 <getLine@plt>
cltq
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
cmpb   $0x0,(%rax)
jne    1243 <getXY+0xf3>
mov    -0x10(%rbp),%rax
movswl (%rax),%eax
mov    %eax,-0x2c(%rbp)
jmp    12eb <getXY+0x19b>
mov    -0x20(%rbp),%rdi
lea    -0x28(%rbp),%rsi
xor    %edx,%edx
call   1060 <strtol@plt>
mov    %eax,-0x2c(%rbp)
mov    -0x20(%rbp),%rax
cmp    -0x28(%rbp),%rax
je     1288 <getXY+0x138>
mov    -0x28(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     12a0 <getXY+0x150>
mov    -0x28(%rbp),%rax
movsbl (%rax),%edi
call   1040 <toupper@plt>
cmp    $0x50,%eax
je     12a0 <getXY+0x150>
mov    -0x10(%rbp),%rax
movswl (%rax),%eax
mov    %eax,-0x2c(%rbp)
lea    0xd93(%rip),%rdi
mov    $0x0,%al
call   1050 <printf@plt>
mov    -0x28(%rbp),%rax
movsbl (%rax),%edi
call   1040 <toupper@plt>
cmp    $0x50,%eax
je     12c2 <getXY+0x172>
mov    -0x2c(%rbp),%eax
sub    $0x1,%eax
imul   -0x14(%rbp),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x3c(%rbp),%eax
jle    12e6 <getXY+0x196>
mov    -0x10(%rbp),%rax
movswl (%rax),%eax
mov    %eax,-0x2c(%rbp)
lea    0xd53(%rip),%rdi
mov    $0x0,%al
call   1050 <printf@plt>
jmp    12eb <getXY+0x19b>
mov    -0x2c(%rbp),%eax
mov    %ax,%cx
mov    -0x10(%rbp),%rax
mov    %cx,(%rax)
mov    -0x20(%rbp),%rdi
call   1030 <free@plt>
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<getXY>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %edx,%r13d
test   %ecx,%ecx
mov    $0xf,%eax
mov    $0x1,%r9d
cmove  %eax,%r9d
mov    %r9d,%r8d
imul   %edx,%r8d
cmp    $0x8,%edx
mov    $0x50,%eax
mov    $0x1e,%ebx
cmove  %eax,%ebx
mov    %rsi,%r12
mov    %rdi,%rsi
mov    %ebx,%r14d
sub    %ecx,%r14d
imul   %edx,%r14d
movswl (%r12),%r10d
mov    %r10d,%eax
cltd
idiv   %r13d
mov    %eax,%r11d
add    %ecx,%r11d
test   %edx,%edx
lea    0xe67(%rip),%rax
lea    0xe35(%rip),%rbp
cmove  %rax,%rbp
sub    $0x8,%rsp
lea    0xe28(%rip),%rdi
mov    %r9d,%edx
mov    %ebx,%ecx
mov    %r14d,%r9d
xor    %eax,%eax
push   %r10
push   %rbp
push   %r11
call   1060 <printf@plt>
add    $0x20,%rsp
xor    %eax,%eax
call   1080 <getLine@plt>
movslq %eax,%r15
cmpb   $0x0,(%r15)
je     1250 <getXY+0xf0>
mov    %r12,0x8(%rsp)
lea    0x10(%rsp),%rsi
mov    %r15,%rdi
xor    %edx,%edx
call   1070 <strtol@plt>
mov    0x10(%rsp),%rbx
cmp    %r15,%rbx
je     1236 <getXY+0xd6>
mov    %rax,%r12
movsbl (%rbx),%ebp
test   %ebp,%ebp
je     1257 <getXY+0xf7>
mov    %ebp,%edi
call   1040 <toupper@plt>
cmp    $0x50,%eax
je     1259 <getXY+0xf9>
mov    0x8(%rsp),%rax
movswl (%rax),%r12d
lea    0xdeb(%rip),%rdi
call   1050 <puts@plt>
mov    (%rbx),%bpl
jmp    1259 <getXY+0xf9>
movzwl (%r12),%ebx
jmp    128d <getXY+0x12d>
xor    %ebp,%ebp
movsbl %bpl,%edi
call   1040 <toupper@plt>
lea    -0x1(%r12),%ebx
imul   %r13d,%ebx
cmp    $0x50,%eax
cmove  %r12d,%ebx
cmp    %r14d,%ebx
mov    0x8(%rsp),%r12
jle    128d <getXY+0x12d>
movzwl (%r12),%ebx
lea    0xda4(%rip),%rdi
call   1050 <puts@plt>
mov    %bx,(%r12)
mov    %r15,%rdi
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1030 <free@plt>

LLVM IR (-O0):
@.str = [2 x i8] c"+\00"
@.str.1 = [1 x i8] zeroinitializer
@.str.2 = [42 x i8] c"%s (%d..%d) or (%dp..%dp) [%d%s or %dp]: \00"
@.str.3 = [6 x i8] c"???1\0A\00"
@.str.4 = [6 x i8] c"???2\0A\00"
define void @getXY(i8* %0, i16* %1, i32 %2, i32 %3) {
%5 = alloca i8*
%6 = alloca i16*
%7 = alloca i32
%8 = alloca i32
%9 = alloca i8*
%10 = alloca i8*
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
%16 = alloca i32
%17 = alloca i8*
store i8* %0, i8** %5
store i16* %1, i16** %6
store i32 %2, i32* %7
store i32 %3, i32* %8
%18 = load i32, i32* %8
%19 = icmp ne i32 %18, 0
%20 = zext i1 %19 to i64
%21 = select i1 %19, i32 1, i32 15
store i32 %21, i32* %12
%22 = load i32, i32* %12
%23 = load i32, i32* %7
%24 = mul nsw i32 %22, %23
store i32 %24, i32* %13
%25 = load i32, i32* %7
%26 = icmp eq i32 %25, 8
%27 = zext i1 %26 to i64
%28 = select i1 %26, i32 80, i32 30
store i32 %28, i32* %14
%29 = load i32, i32* %14
%30 = load i32, i32* %8
%31 = sub nsw i32 %29, %30
%32 = load i32, i32* %7
%33 = mul nsw i32 %31, %32
store i32 %33, i32* %15
%34 = load i16*, i16** %6
%35 = load i16, i16* %34
%36 = sext i16 %35 to i32
%37 = load i32, i32* %7
%38 = sdiv i32 %36, %37
%39 = load i32, i32* %8
%40 = add nsw i32 %38, %39
store i32 %40, i32* %16
%41 = load i16*, i16** %6
%42 = load i16, i16* %41
%43 = sext i16 %42 to i32
%44 = load i32, i32* %7
%45 = srem i32 %43, %44
%46 = icmp ne i32 %45, 0
%47 = zext i1 %46 to i64
%48 = select i1 %46, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str, i64 0, i64 0), i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.1, i64 0, i64 0)
store i8* %48, i8** %17
%49 = load i8*, i8** %5
%50 = load i32, i32* %12
%51 = load i32, i32* %14
%52 = load i32, i32* %13
%53 = load i32, i32* %15
%54 = load i32, i32* %16
%55 = load i8*, i8** %17
%56 = load i16*, i16** %6
%57 = load i16, i16* %56
%58 = sext i16 %57 to i32
%59 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([42 x i8], [42 x i8]* @.str.2, i64 0, i64 0), i8* %49, i32 %50, i32 %51, i32 %52, i32 %53, i32 %54, i8* %55, i32 %58)
%60 = call i32 (...) @getLine()
%61 = sext i32 %60 to i64
%62 = inttoptr i64 %61 to i8*
store i8* %62, i8** %9
%63 = load i8*, i8** %9
%64 = load i8, i8* %63
%65 = icmp ne i8 %64, 0
br i1 %65, label %70, label %66
66: ; preds = %4
%67 = load i16*, i16** %6
%68 = load i16, i16* %67
%69 = sext i16 %68 to i32
store i32 %69, i32* %11
br label %114
70: ; preds = %4
%71 = load i8*, i8** %9
%72 = call i64 @strtol(i8* %71, i8** %10, i32 0)
%73 = trunc i64 %72 to i32
store i32 %73, i32* %11
%74 = load i8*, i8** %9
%75 = load i8*, i8** %10
%76 = icmp eq i8* %74, %75
br i1 %76, label %88, label %77
77: ; preds = %70
%78 = load i8*, i8** %10
%79 = load i8, i8* %78
%80 = sext i8 %79 to i32
%81 = icmp ne i32 %80, 0
br i1 %81, label %82, label %93
82: ; preds = %77
%83 = load i8*, i8** %10
%84 = load i8, i8* %83
%85 = sext i8 %84 to i32
%86 = call i32 @toupper(i32 %85)
%87 = icmp ne i32 %86, 80
br i1 %87, label %88, label %93
88: ; preds = %82, %70
%89 = load i16*, i16** %6
%90 = load i16, i16* %89
%91 = sext i16 %90 to i32
store i32 %91, i32* %11
%92 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.3, i64 0, i64 0))
br label %93
93: ; preds = %88, %82, %77
%94 = load i8*, i8** %10
%95 = load i8, i8* %94
%96 = sext i8 %95 to i32
%97 = call i32 @toupper(i32 %96)
%98 = icmp ne i32 %97, 80
br i1 %98, label %99, label %104
99: ; preds = %93
%100 = load i32, i32* %11
%101 = sub nsw i32 %100, 1
%102 = load i32, i32* %7
%103 = mul nsw i32 %101, %102
store i32 %103, i32* %11
br label %104
104: ; preds = %99, %93
%105 = load i32, i32* %11
%106 = load i32, i32* %15
%107 = icmp sgt i32 %105, %106
br i1 %107, label %108, label %113
108: ; preds = %104
%109 = load i16*, i16** %6
%110 = load i16, i16* %109
%111 = sext i16 %110 to i32
store i32 %111, i32* %11
%112 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.4, i64 0, i64 0))
br label %113
113: ; preds = %108, %104
br label %114
114: ; preds = %113, %66
%115 = load i32, i32* %11
%116 = trunc i32 %115 to i16
%117 = load i16*, i16** %6
store i16 %116, i16* %117
%118 = load i8*, i8** %9
ret void
}

LLVM IR (-O2):
@.str = [2 x i8] c"+\00"
@.str.1 = [1 x i8] zeroinitializer
@.str.2 = [42 x i8] c"%s (%d..%d) or (%dp..%dp) [%d%s or %dp]: \00"
@str = [5 x i8] c"???2\00"
@str.5 = [5 x i8] c"???1\00"
define void @getXY(i8* %0, i16* nocapture %1, i32 %2, i32 %3) {
%5 = alloca i8*
%6 = bitcast i8** %5 to i8*
%7 = icmp eq i32 %3, 0
%8 = select i1 %7, i32 15, i32 1
%9 = mul nsw i32 %8, %2
%10 = icmp eq i32 %2, 8
%11 = select i1 %10, i32 80, i32 30
%12 = sub nsw i32 %11, %3
%13 = mul nsw i32 %12, %2
%14 = load i16, i16* %1
%15 = sext i16 %14 to i32
%16 = sdiv i32 %15, %2
%17 = add nsw i32 %16, %3
%18 = srem i32 %15, %2
%19 = icmp eq i32 %18, 0
%20 = select i1 %19, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.1, i64 0, i64 0), i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str, i64 0, i64 0)
%21 = tail call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([42 x i8], [42 x i8]* @.str.2, i64 0, i64 0), i8* %0, i32 %8, i32 %11, i32 %9, i32 %13, i32 %17, i8* %20, i32 %15)
%22 = tail call i32 (...) @getLine()
%23 = sext i32 %22 to i64
%24 = inttoptr i64 %23 to i8*
%25 = load i8, i8* %24
%26 = icmp eq i8 %25, 0
br i1 %26, label %27, label %30
27: ; preds = %4
%28 = load i16, i16* %1
%29 = zext i16 %28 to i32
br label %61
30: ; preds = %4
%31 = call i64 @strtol(i8* %24, i8** %5, i32 0)
%32 = trunc i64 %31 to i32
%33 = load i8*, i8** %5
%34 = icmp eq i8* %33, %24
br i1 %34, label %42, label %35
35: ; preds = %30
%36 = load i8, i8* %33
%37 = icmp eq i8 %36, 0
br i1 %37, label %47, label %38
38: ; preds = %35
%39 = sext i8 %36 to i32
%40 = tail call i32 @toupper(i32 %39)
%41 = icmp eq i32 %40, 80
br i1 %41, label %47, label %42
42: ; preds = %38, %30
%43 = load i16, i16* %1
%44 = sext i16 %43 to i32
%45 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([5 x i8], [5 x i8]* @str.5, i64 0, i64 0))
%46 = load i8, i8* %33
br label %47
47: ; preds = %42, %38, %35
%48 = phi i8 [ %46, %42 ], [ %36, %38 ], [ 0, %35 ]
%49 = phi i32 [ %44, %42 ], [ %32, %38 ], [ %32, %35 ]
%50 = sext i8 %48 to i32
%51 = tail call i32 @toupper(i32 %50)
%52 = icmp eq i32 %51, 80
%53 = add nsw i32 %49, -1
%54 = mul nsw i32 %53, %2
%55 = select i1 %52, i32 %49, i32 %54
%56 = icmp sgt i32 %55, %13
br i1 %56, label %57, label %61
57: ; preds = %47
%58 = load i16, i16* %1
%59 = zext i16 %58 to i32
%60 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([5 x i8], [5 x i8]* @str, i64 0, i64 0))
br label %61
61: ; preds = %47, %57, %27
%62 = phi i32 [ %59, %57 ], [ %55, %47 ], [ %29, %27 ]
%63 = trunc i32 %62 to i16
store i16 %63, i16* %1
tail call void @free(i8* %24)
ret void
}