int get_string(in_str, row, column, slen)
char *in_str;
int row, column, slen;
{
  register int start_col, end_col, i;
  char *p;
  int flag, aborted;
  aborted = 0;
  flag = 0;
  (void)move(row, column);
  for (i = slen; i > 0; i--)
    (void)addch(' ');
  (void)move(row, column);
  start_col = column;
  end_col = column + slen - 1;
  if (end_col > 79) {
    slen = 80 - column;
    end_col = 79;
  }
  p = in_str;
  do {
    i = inkey();
    switch (i) {
    case '\033':
      aborted = 1;
      break;
    case ('J' & 0x1F):
    case ('M' & 0x1F):
      flag = 1;
      break;
    case 0x7f:
    case ('H' & 0x1F):
      if (column > start_col) {
        column--;
        put_buffer(" ", row, column);
        move_cursor(row, column);
        *--p = '\0';
      }
      break;
    default:
      if (!isprint(i) || column > end_col)
        bell();
      else {
        mvaddch(row, column, (char)i);
        *p++ = i;
        column++;
      }
      break;
    }
  } while ((!flag) && (!aborted));
  if (aborted)
    return (0);
  while (p > in_str && p[-1] == ' ')
    p--;
  *p = '\0';
  return (1);
}


x86 assembly (clang, -O0):
<get_string>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %edx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
movl   $0x0,-0x38(%rbp)
movl   $0x0,-0x34(%rbp)
mov    -0x14(%rbp),%edi
mov    -0x18(%rbp),%esi
mov    $0x0,%al
call   10a0 <move@plt>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x28(%rbp)
cmpl   $0x0,-0x28(%rbp)
jle    11da <get_string+0x5a>
mov    $0x20,%edi
mov    $0x0,%al
call   1050 <addch@plt>
mov    -0x28(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x28(%rbp)
jmp    11b6 <get_string+0x36>
mov    -0x14(%rbp),%edi
mov    -0x18(%rbp),%esi
mov    $0x0,%al
call   10a0 <move@plt>
mov    -0x18(%rbp),%eax
mov    %eax,-0x20(%rbp)
mov    -0x18(%rbp),%eax
add    -0x1c(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x24(%rbp)
cmpl   $0x4f,-0x24(%rbp)
jle    1215 <get_string+0x95>
mov    $0x50,%eax
sub    -0x18(%rbp),%eax
mov    %eax,-0x1c(%rbp)
movl   $0x4f,-0x24(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x30(%rbp)
xor    %eax,%eax
call   1090 <inkey@plt>
mov    %eax,-0x28(%rbp)
mov    -0x28(%rbp),%eax
mov    %eax,-0x3c(%rbp)
sub    $0x8,%eax
je     1297 <get_string+0x117>
jmp    123b <get_string+0xbb>
mov    -0x3c(%rbp),%eax
sub    $0xa,%eax
je     128b <get_string+0x10b>
jmp    124c <get_string+0xcc>
mov    -0x3c(%rbp),%eax
sub    $0xd,%eax
je     128b <get_string+0x10b>
jmp    125d <get_string+0xdd>
mov    -0x3c(%rbp),%eax
sub    $0x1b,%eax
je     127f <get_string+0xff>
jmp    126e <get_string+0xee>
mov    -0x3c(%rbp),%eax
sub    $0x7f,%eax
je     1297 <get_string+0x117>
jmp    12e5 <get_string+0x165>
movl   $0x1,-0x38(%rbp)
jmp    1345 <get_string+0x1c5>
movl   $0x1,-0x34(%rbp)
jmp    1345 <get_string+0x1c5>
mov    -0x18(%rbp),%eax
cmp    -0x20(%rbp),%eax
jle    12e0 <get_string+0x160>
mov    -0x18(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x18(%rbp)
mov    -0x14(%rbp),%esi
mov    -0x18(%rbp),%edx
lea    0xd47(%rip),%rdi
mov    $0x0,%al
call   1040 <put_buffer@plt>
mov    -0x14(%rbp),%edi
mov    -0x18(%rbp),%esi
mov    $0x0,%al
call   1060 <move_cursor@plt>
mov    -0x30(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x30(%rbp)
movb   $0x0,-0x1(%rax)
jmp    1345 <get_string+0x1c5>
mov    -0x28(%rbp),%edi
call   1070 <isprint@plt>
cmp    $0x0,%eax
je     1302 <get_string+0x182>
mov    -0x18(%rbp),%eax
cmp    -0x24(%rbp),%eax
jle    130e <get_string+0x18e>
mov    $0x0,%al
call   1030 <bell@plt>
jmp    1340 <get_string+0x1c0>
mov    -0x14(%rbp),%edi
mov    -0x18(%rbp),%esi
mov    -0x28(%rbp),%eax
movsbl %al,%edx
mov    $0x0,%al
call   1080 <mvaddch@plt>
mov    -0x28(%rbp),%eax
mov    %al,%cl
mov    -0x30(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x30(%rbp)
mov    %cl,(%rax)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1345 <get_string+0x1c5>
jmp    134a <get_string+0x1ca>
xor    %eax,%eax
cmpl   $0x0,-0x34(%rbp)
mov    %al,-0x3d(%rbp)
jne    1365 <get_string+0x1e5>
cmpl   $0x0,-0x38(%rbp)
setne  %al
xor    $0xff,%al
mov    %al,-0x3d(%rbp)
mov    -0x3d(%rbp),%al
test   $0x1,%al
jne    121d <get_string+0x9d>
cmpl   $0x0,-0x38(%rbp)
je     1386 <get_string+0x206>
movl   $0x0,-0x4(%rbp)
jmp    13de <get_string+0x25e>
jmp    138b <get_string+0x20b>
mov    -0x30(%rbp),%rcx
xor    %eax,%eax
cmp    -0x10(%rbp),%rcx
mov    %al,-0x3e(%rbp)
jbe    13af <get_string+0x22f>
mov    -0x30(%rbp),%rax
movsbl -0x1(%rax),%eax
cmp    $0x20,%eax
sete   %al
mov    %al,-0x3e(%rbp)
mov    -0x3e(%rbp),%al
test   $0x1,%al
jne    13bf <get_string+0x23f>
jmp    13d0 <get_string+0x250>
mov    -0x30(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x30(%rbp)
jmp    138b <get_string+0x20b>
mov    -0x30(%rbp),%rax
movb   $0x0,(%rax)
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<get_string>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %ecx,%r14d
mov    %edx,%r13d
mov    %esi,%ebp
mov    %rdi,%r15
mov    %esi,%edi
mov    %edx,%esi
xor    %eax,%eax
call   10a0 <move@plt>
test   %r14d,%r14d
jle    11c4 <get_string+0x44>
lea    0x1(%r14),%ebx
nopw   0x0(%rax,%rax,1)
mov    $0x20,%edi
xor    %eax,%eax
call   1050 <addch@plt>
add    $0xffffffff,%ebx
cmp    $0x1,%ebx
ja     11b0 <get_string+0x30>
mov    %ebp,(%rsp)
mov    %ebp,%edi
mov    %r13d,%esi
xor    %eax,%eax
call   10a0 <move@plt>
mov    %r14d,%eax
add    %r13d,%eax
lea    (%r14,%r13,1),%ecx
add    $0xffffffff,%ecx
cmp    $0x51,%eax
mov    $0x4f,%eax
cmovl  %ecx,%eax
mov    %eax,0x4(%rsp)
lea    0xe0a(%rip),%r12
mov    %r13d,%ebp
mov    %r15,%r14
jmp    1207 <get_string+0x87>
xchg   %ax,%ax
xor    %eax,%eax
call   1030 <bell@plt>
xor    %eax,%eax
call   1090 <inkey@plt>
mov    %eax,%ebx
lea    -0x8(%rbx),%eax
cmp    $0x13,%eax
ja     1230 <get_string+0xb0>
movslq (%r12,%rax,4),%rax
add    %r12,%rax
jmp    *%rax
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
cmp    $0x7f,%ebx
jne    1270 <get_string+0xf0>
cmp    %r13d,%ebp
jle    1207 <get_string+0x87>
add    $0xffffffff,%ebp
lea    0xe0c(%rip),%rdi
mov    (%rsp),%ebx
mov    %ebx,%esi
mov    %ebp,%edx
xor    %eax,%eax
call   1040 <put_buffer@plt>
mov    %ebx,%edi
mov    %ebp,%esi
xor    %eax,%eax
call   1060 <move_cursor@plt>
movb   $0x0,-0x1(%r14)
add    $0xffffffffffffffff,%r14
jmp    1207 <get_string+0x87>
nopl   0x0(%rax,%rax,1)
mov    %ebx,%edi
call   1070 <isprint@plt>
test   %eax,%eax
je     1200 <get_string+0x80>
cmp    0x4(%rsp),%ebp
jg     1200 <get_string+0x80>
movsbl %bl,%ebx
mov    (%rsp),%edi
mov    %ebp,%esi
mov    %ebx,%edx
xor    %eax,%eax
call   1080 <mvaddch@plt>
mov    %bl,(%r14)
add    $0x1,%r14
add    $0x1,%ebp
jmp    1207 <get_string+0x87>
cs nopw 0x0(%rax,%rax,1)
nop
mov    %r14,%rax
cmp    %r15,%r14
jbe    12c2 <get_string+0x142>
lea    -0x1(%rax),%r14
cmpb   $0x20,-0x1(%rax)
je     12b0 <get_string+0x130>
movb   $0x0,(%rax)
mov    $0x1,%eax
jmp    12ce <get_string+0x14e>
xor    %eax,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
@.str = [2 x i8] c" \00"
define i32 @get_string(i8* %0, i32 %1, i32 %2, i32 %3) {
%5 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @move to i32 (i32, i32, ...)*)(i32 %1, i32 %2)
%6 = icmp sgt i32 %3, 0
br i1 %6, label %7, label %12
7: ; preds = %4, %7
%8 = phi i32 [ %10, %7 ], [ %3, %4 ]
%9 = tail call i32 (i32, ...) bitcast (i32 (...)* @addch to i32 (i32, ...)*)(i32 32)
%10 = add nsw i32 %8, -1
%11 = icmp ugt i32 %8, 1
br i1 %11, label %7, label %12
12: ; preds = %7, %4
%13 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @move to i32 (i32, i32, ...)*)(i32 %1, i32 %2)
%14 = add nsw i32 %3, %2
%15 = add nsw i32 %14, -1
%16 = icmp sgt i32 %14, 80
%17 = select i1 %16, i32 79, i32 %15
br label %18
18: ; preds = %46, %12
%19 = phi i32 [ %2, %12 ], [ %47, %46 ]
%20 = phi i8* [ %0, %12 ], [ %48, %46 ]
%21 = icmp sgt i32 %19, %2
%22 = icmp sgt i32 %19, %17
br label %23
23: ; preds = %27, %18
%24 = tail call i32 (...) @inkey()
switch i32 %24, label %33 [
i32 27, label %57
i32 10, label %25
i32 13, label %25
i32 127, label %26
i32 8, label %26
]
25: ; preds = %23, %23
br label %49
26: ; preds = %23, %23
br i1 %21, label %28, label %27
27: ; preds = %26, %37
br label %23
28: ; preds = %26
%29 = add nsw i32 %19, -1
%30 = tail call i32 (i8*, i32, i32, ...) bitcast (i32 (...)* @put_buffer to i32 (i8*, i32, i32, ...)*)(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str, i64 0, i64 0), i32 %1, i32 %29)
%31 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @move_cursor to i32 (i32, i32, ...)*)(i32 %1, i32 %29)
%32 = getelementptr inbounds i8, i8* %20, i64 -1
store i8 0, i8* %32
br label %46
33: ; preds = %23
%34 = tail call i32 @isprint(i32 %24)
%35 = icmp eq i32 %34, 0
%36 = select i1 %35, i1 true, i1 %22
br i1 %36, label %37, label %39
37: ; preds = %33
%38 = tail call i32 (...) @bell()
br label %27
39: ; preds = %33
%40 = trunc i32 %24 to i8
%41 = shl i32 %24, 24
%42 = ashr exact i32 %41, 24
%43 = tail call i32 (i32, i32, i32, ...) bitcast (i32 (...)* @mvaddch to i32 (i32, i32, i32, ...)*)(i32 %1, i32 %19, i32 %42)
%44 = getelementptr inbounds i8, i8* %20, i64 1
store i8 %40, i8* %20
%45 = add nsw i32 %19, 1
br label %46
46: ; preds = %39, %28
%47 = phi i32 [ %29, %28 ], [ %45, %39 ]
%48 = phi i8* [ %32, %28 ], [ %44, %39 ]
br label %18
49: ; preds = %25, %52
%50 = phi i8* [ %53, %52 ], [ %20, %25 ]
%51 = icmp ugt i8* %50, %0
br i1 %51, label %52, label %56
52: ; preds = %49
%53 = getelementptr inbounds i8, i8* %50, i64 -1
%54 = load i8, i8* %53
%55 = icmp eq i8 %54, 32
br i1 %55, label %49, label %56
56: ; preds = %49, %52
store i8 0, i8* %50
br label %57
57: ; preds = %23, %56
%58 = phi i32 [ 1, %56 ], [ 0, %23 ]
ret i32 %58
}