user: Please show me the C implementation that matches the assembly code listed below:

```asm
<Read_Object>:
  endbr64
  push   %r15
  lea    D13(%rip),%rsi
  push   %r14
  push   %r13
  mov    %edi,%r13d
  lea    D15(%rip),%rdi
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x28,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x18(%rsp)
  xor    %eax,%eax
  call   <fopen@plt>
  test   %rax,%rax
  je     L121
  lea    D42(%rip),%rdi
  mov    %rax,%rbp
  lea    0x15(%rsp),%r14
  call   <printf@plt>
  lea    D8(%rip),%rsi
  lea    D22(%rip),%rdi
  call   <fopen@plt>
  mov    %rbp,%rdi
  mov    %rax,%r12
  call   <fgetc@plt>
  mov    %eax,%ebx
  jmp    L88
  nopw   0x0(%rax,%rax,1)
L86:
  movsbl %bl,%edi
  mov    %r12,%rsi
  call   <fputc@plt>
  mov    %rbp,%rdi
  call   <fgetc@plt>
  mov    %eax,%ebx
  lea    -0x78(%rbx),%eax
  cmp    $0x1,%al
  jbe    L134
L88:
  cmp    $0xff,%bl
  jne    L86
  mov    %rbp,%rdi
  call   <fclose@plt>
  mov    %r12,%rdi
  call   <fclose@plt>
L105:
  mov    0x18(%rsp),%rdx
  sub    %fs:0x28,%rdx
  jne    L85
  add    $0x28,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax)
L134:
  movsbl %bl,%edi
  mov    %r12,%rsi
  call   <fputc@plt>
  mov    %rbp,%rdi
  call   <fgetc@plt>
  mov    %eax,%ebx
  cmp    $0x50,%al
  jne    L88
  mov    %r12,%rsi
  mov    $0x50,%edi
  call   <fputc@plt>
  mov    %rbp,%rdi
  call   <fgetc@plt>
  mov    %eax,%ebx
  cmp    $0x6f,%al
  jne    L88
  mov    %r12,%rsi
  mov    $0x6f,%edi
  call   <fputc@plt>
  mov    %rbp,%rdi
  call   <fgetc@plt>
  mov    %eax,%ebx
  cmp    $0x73,%al
  jne    L88
L130:
  movsbl %bl,%edi
  mov    %r12,%rsi
  call   <fputc@plt>
  mov    %rbp,%rdi
  call   <fgetc@plt>
  mov    %eax,%ebx
  lea    -0x30(%rbx),%eax
  cmp    $0x9,%al
  jbe    L41
  cmp    $0xff,%bl
  jne    L130
L41:
  xor    %r15d,%r15d
L100:
  mov    %rbp,%rdi
  mov    %bl,(%r14,%r15,1)
  mov    %r15d,0xc(%rsp)
  call   <fgetc@plt>
  mov    0xc(%rsp),%esi
  mov    %eax,%ebx
  lea    -0x30(%rbx),%eax
  cmp    $0x9,%al
  ja     L87
  add    $0x1,%r15
  cmp    $0x3,%r15
  jne    L100
  mov    $0x3,%esi
L87:
  mov    %r13d,%edx
  mov    %r14,%rdi
  xor    %r15d,%r15d
  call   <coor_convert@plt>
  mov    %eax,0xc(%rsp)
L36:
  cmp    %r15d,0xc(%rsp)
  jl     L88
  movzbl (%r14,%r15,1),%eax
  mov    %r12,%rsi
  add    $0x1,%r15
  lea    0x30(%rax),%edi
  movsbl %dil,%edi
  call   <fputc@plt>
  jmp    L36
  nopl   0x0(%rax,%rax,1)
L121:
  lea    D38(%rip),%rdi
  call   <printf@plt>
  xor    %eax,%eax
  jmp    L105
L85:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: disassemble_data
arguments: data_tag: D13
type: string
name: disassemble_data
arguments: data_tag: D15
type: string
name: disassemble_data
arguments: data_tag: D42
type: string
name: disassemble_data
arguments: data_tag: D8
type: string
name: disassemble_data
arguments: data_tag: D22
type: string
name: disassemble_data
arguments: data_tag: D38
type: string

tool: D13: rb

tool: D15: Input\ObjectList.ol

tool: D42: ObjectList.ol file found!


tool: D8: wb

tool: D22: Output\ObjectList.ol

tool: D38: No ObjectList.ol file found!


assistant: ```c
int Read_Object(int i) {
  int c1, c1s;
  char r, num[3];
  FILE *ROCK;
  FILE *ROCK2;
  ROCK = fopen("Input\\ObjectList.ol", "rb");
  if (ROCK) {
    printf("ObjectList.ol file found!\n");
  } else {
    printf("No ObjectList.ol file found!\n");
    return 0;
  }
  ROCK2 = fopen("Output\\ObjectList.ol", "wb");
  r = fgetc(ROCK);
  while (r != -1) {
    fputc(r, ROCK2);
    r = fgetc(ROCK);
    if (r == 'x' || r == 'y') {
      fputc(r, ROCK2);
      r = fgetc(ROCK);
      if (r == 'P') {
        fputc(r, ROCK2);
        r = fgetc(ROCK);
        if (r == 'o') {
          fputc(r, ROCK2);
          r = fgetc(ROCK);
          if (r == 's') {
            while (r != -1) {
              fputc(r, ROCK2);
              r = fgetc(ROCK);
              if (r >= '0' && r <= '9') {
                break;
              }
            }
            for (c1 = 0; c1 < 3; c1++) {
              num[c1] = r;
              r = fgetc(ROCK);
              if (!(r >= '0' && r <= '9')) {
                break;
              }
            }
            c1s = coor_convert(num, c1, i);
            for (c1 = 0; c1 <= c1s; c1++) {
              fputc(num[c1] + '0', ROCK2);
            }
          }
        }
      }
    }
  }
  fclose(ROCK);
  fclose(ROCK2);
}
```