user: Translate the below assembly code into C programming language:

```asm
<tgoto>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  mov    %rdi,-0x28(%rbp)
  mov    %esi,-0x2c(%rbp)
  mov    %edx,-0x30(%rbp)
  lea    D2(%rip),%rax
  mov    %rax,-0x8(%rbp)
  movl   $0x0,-0x14(%rbp)
  movl   $0x0,-0x10(%rbp)
  jmp    L182
L33:
  mov    -0x28(%rbp),%rax
  movzbl (%rax),%eax
  cmp    $0x25,%al
  jne    L242
  addq   $0x1,-0x28(%rbp)
  mov    -0x28(%rbp),%rax
  movzbl (%rax),%eax
  movsbl %al,%eax
  cmp    $0x72,%eax
  je     L54
  cmp    $0x72,%eax
  jg     L265
  cmp    $0x69,%eax
  je     L59
  cmp    $0x69,%eax
  jg     L265
  cmp    $0x64,%eax
  je     L256
  cmp    $0x64,%eax
  jg     L265
  cmp    $0x32,%eax
  je     L114
  cmp    $0x32,%eax
  jg     L265
  cmp    $0x25,%eax
  je     L122
  cmp    $0x2b,%eax
  je     L233
  jmp    L265
L59:
  movl   $0x1,-0x14(%rbp)
  jmp    L29
L54:
  movl   $0x1,-0x10(%rbp)
  jmp    L29
L233:
  cmpl   $0x0,-0x10(%rbp)
  jne    L252
  mov    -0x30(%rbp),%eax
  jmp    L197
L252:
  mov    -0x2c(%rbp),%eax
L197:
  mov    %eax,-0xc(%rbp)
  mov    -0xc(%rbp),%eax
  mov    %eax,%edx
  mov    -0x14(%rbp),%eax
  add    %eax,%edx
  addq   $0x1,-0x28(%rbp)
  mov    -0x28(%rbp),%rax
  movzbl (%rax),%eax
  lea    (%rdx,%rax,1),%ecx
  mov    -0x8(%rbp),%rax
  lea    0x1(%rax),%rdx
  mov    %rdx,-0x8(%rbp)
  mov    %ecx,%edx
  mov    %dl,(%rax)
  mov    $0x1,%eax
  sub    -0x10(%rbp),%eax
  mov    %eax,-0x10(%rbp)
  jmp    L29
L114:
  cmpl   $0x0,-0x10(%rbp)
  jne    L191
  mov    -0x30(%rbp),%eax
  jmp    L272
L191:
  mov    -0x2c(%rbp),%eax
L272:
  mov    %eax,-0xc(%rbp)
  mov    -0xc(%rbp),%edx
  mov    -0x14(%rbp),%eax
  add    %edx,%eax
  movslq %eax,%rdx
  imul   $0x51eb851f,%rdx,%rdx
  shr    $0x20,%rdx
  sar    $0x5,%edx
  mov    %eax,%ecx
  sar    $0x1f,%ecx
  sub    %ecx,%edx
  mov    %edx,-0xc(%rbp)
  mov    -0xc(%rbp),%edx
  imul   $0x64,%edx,%edx
  sub    %edx,%eax
  mov    %eax,-0xc(%rbp)
  mov    -0xc(%rbp),%eax
  movslq %eax,%rdx
  imul   $0x66666667,%rdx,%rdx
  shr    $0x20,%rdx
  sar    $0x2,%edx
  sar    $0x1f,%eax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  lea    0x30(%rax),%ecx
  mov    -0x8(%rbp),%rax
  lea    0x1(%rax),%rdx
  mov    %rdx,-0x8(%rbp)
  mov    %ecx,%edx
  mov    %dl,(%rax)
  mov    -0xc(%rbp),%edx
  movslq %edx,%rax
  imul   $0x66666667,%rax,%rax
  shr    $0x20,%rax
  sar    $0x2,%eax
  mov    %edx,%esi
  sar    $0x1f,%esi
  sub    %esi,%eax
  mov    %eax,%ecx
  mov    %ecx,%eax
  shl    $0x2,%eax
  add    %ecx,%eax
  add    %eax,%eax
  mov    %edx,%ecx
  sub    %eax,%ecx
  mov    %ecx,%eax
  lea    0x30(%rax),%ecx
  mov    -0x8(%rbp),%rax
  lea    0x1(%rax),%rdx
  mov    %rdx,-0x8(%rbp)
  mov    %ecx,%edx
  mov    %dl,(%rax)
  mov    $0x1,%eax
  sub    -0x10(%rbp),%eax
  mov    %eax,-0x10(%rbp)
  jmp    L29
L256:
  cmpl   $0x0,-0x10(%rbp)
  jne    L88
  mov    -0x30(%rbp),%eax
  jmp    L273
L88:
  mov    -0x2c(%rbp),%eax
L273:
  mov    %eax,-0xc(%rbp)
  mov    -0xc(%rbp),%edx
  mov    -0x14(%rbp),%eax
  add    %edx,%eax
  movslq %eax,%rdx
  imul   $0x10624dd3,%rdx,%rdx
  shr    $0x20,%rdx
  sar    $0x6,%edx
  mov    %eax,%ecx
  sar    $0x1f,%ecx
  sub    %ecx,%edx
  mov    %edx,-0xc(%rbp)
  mov    -0xc(%rbp),%edx
  imul   $0x3e8,%edx,%edx
  sub    %edx,%eax
  mov    %eax,-0xc(%rbp)
  cmpl   $0x63,-0xc(%rbp)
  jle    L199
  mov    -0xc(%rbp),%eax
  movslq %eax,%rdx
  imul   $0x51eb851f,%rdx,%rdx
  shr    $0x20,%rdx
  sar    $0x5,%edx
  sar    $0x1f,%eax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  lea    0x30(%rax),%ecx
  mov    -0x8(%rbp),%rax
  lea    0x1(%rax),%rdx
  mov    %rdx,-0x8(%rbp)
  mov    %ecx,%edx
  mov    %dl,(%rax)
L199:
  cmpl   $0x9,-0xc(%rbp)
  jle    L189
  mov    -0xc(%rbp),%eax
  movslq %eax,%rdx
  imul   $0x66666667,%rdx,%rdx
  shr    $0x20,%rdx
  sar    $0x2,%edx
  sar    $0x1f,%eax
  sub    %eax,%edx
  movslq %edx,%rax
  imul   $0x66666667,%rax,%rax
  shr    $0x20,%rax
  sar    $0x2,%eax
  mov    %edx,%esi
  sar    $0x1f,%esi
  sub    %esi,%eax
  mov    %eax,%ecx
  mov    %ecx,%eax
  shl    $0x2,%eax
  add    %ecx,%eax
  add    %eax,%eax
  mov    %edx,%ecx
  sub    %eax,%ecx
  mov    %ecx,%eax
  lea    0x30(%rax),%ecx
  mov    -0x8(%rbp),%rax
  lea    0x1(%rax),%rdx
  mov    %rdx,-0x8(%rbp)
  mov    %ecx,%edx
  mov    %dl,(%rax)
L189:
  mov    -0xc(%rbp),%edx
  movslq %edx,%rax
  imul   $0x66666667,%rax,%rax
  shr    $0x20,%rax
  sar    $0x2,%eax
  mov    %edx,%esi
  sar    $0x1f,%esi
  sub    %esi,%eax
  mov    %eax,%ecx
  mov    %ecx,%eax
  shl    $0x2,%eax
  add    %ecx,%eax
  add    %eax,%eax
  mov    %edx,%ecx
  sub    %eax,%ecx
  mov    %ecx,%eax
  lea    0x30(%rax),%ecx
  mov    -0x8(%rbp),%rax
  lea    0x1(%rax),%rdx
  mov    %rdx,-0x8(%rbp)
  mov    %ecx,%edx
  mov    %dl,(%rax)
  mov    $0x1,%eax
  sub    -0x10(%rbp),%eax
  mov    %eax,-0x10(%rbp)
  jmp    L29
L122:
  mov    -0x8(%rbp),%rax
  lea    0x1(%rax),%rdx
  mov    %rdx,-0x8(%rbp)
  movb   $0x25,(%rax)
  jmp    L29
L265:
  lea    D12(%rip),%rax
  jmp    L151
L242:
  mov    -0x8(%rbp),%rax
  lea    0x1(%rax),%rdx
  mov    %rdx,-0x8(%rbp)
  mov    -0x28(%rbp),%rdx
  movzbl (%rdx),%edx
  mov    %dl,(%rax)
L29:
  addq   $0x1,-0x28(%rbp)
L182:
  mov    -0x28(%rbp),%rax
  movzbl (%rax),%eax
  test   %al,%al
  jne    L33
  mov    -0x8(%rbp),%rax
  movb   $0x0,(%rax)
  lea    D2(%rip),%rax
L151:
  pop    %rbp
  ret
```

tool_calls: name: read_data
arguments: label: D12
datatype: string

tool: D12: OOPS

assistant: ```c
char *tgoto(const char *cm, int destcol, int destline) {
  static char ret[24];
  char *rp = ret;
  int incr = 0;
  int argno = 0;
  int numval;
  for (; *cm; cm++) {
    if (*cm == '%') {
      switch (*++cm) {
      case 'i':
        incr = 1;
        break;
      case 'r':
        argno = 1;
        break;
      case '+':
        numval = (argno == 0 ? destline : destcol);
        *rp++ = numval + incr + *++cm;
        argno = 1 - argno;
        break;
      case '2':
        numval = (argno == 0 ? destline : destcol);
        numval = (numval + incr) % 100;
        *rp++ = '0' + (numval / 10);
        *rp++ = '0' + (numval % 10);
        argno = 1 - argno;
        break;
      case 'd':
        numval = (argno == 0 ? destline : destcol);
        numval = (numval + incr) % 1000;
        if (numval > 99)
          *rp++ = '0' + (numval / 100);
        if (numval > 9)
          *rp++ = '0' + (numval / 10) % 10;
        *rp++ = '0' + (numval % 10);
        argno = 1 - argno;
        break;
      case '%':
        *rp++ = '%';
        break;
      default:
        return ("OOPS");
      }
    } else
      *rp++ = *cm;
  }
  *rp = '\0';
  return ret;
}
```