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

```asm
<get_simetrik>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbx
  sub    $0xf8,%rsp
  mov    %rdi,-0x98(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x38(%rbp)
  xor    %eax,%eax
  lea    D14(%rip),%rax
  mov    %rax,%rdi
  call   <clr_file@plt>
  mov    -0x98(%rbp),%rax
  mov    %rax,%rdi
  call   <get_file_mtrx_size@plt>
  mov    %eax,-0x70(%rbp)
  cmpl   $0x3,-0x70(%rbp)
  jle    L28
  cmpl   $0x10,-0x70(%rbp)
  jg     L28
  mov    %rsp,%rax
  mov    %rax,-0xa0(%rbp)
  mov    -0x70(%rbp),%esi
  mov    -0x70(%rbp),%edi
  movslq %esi,%rax
  sub    $0x1,%rax
  mov    %rax,-0x68(%rbp)
  movslq %esi,%rax
  mov    %rax,-0x110(%rbp)
  movq   $0x0,-0x108(%rbp)
  movslq %esi,%rax
  shl    $0x2,%rax
  mov    %rax,-0x110(%rbp)
  movslq %edi,%rax
  sub    $0x1,%rax
  mov    %rax,-0x60(%rbp)
  movslq %esi,%rax
  mov    %rax,%r14
  mov    $0x0,%r15d
  movslq %edi,%rax
  mov    %rax,%r12
  mov    $0x0,%r13d
  mov    %r15,%rdx
  imul   %r12,%rdx
  mov    %r13,%rax
  imul   %r14,%rax
  lea    (%rdx,%rax,1),%rcx
  mov    %r14,%rax
  mul    %r12
  add    %rdx,%rcx
  mov    %rcx,%rdx
  movslq %esi,%rax
  mov    %rax,-0xb0(%rbp)
  movq   $0x0,-0xa8(%rbp)
  movslq %edi,%rax
  mov    %rax,-0xc0(%rbp)
  movq   $0x0,-0xb8(%rbp)
  mov    -0xb0(%rbp),%r9
  mov    -0xa8(%rbp),%r10
  mov    %r10,%rdx
  mov    -0xc0(%rbp),%r11
  mov    -0xb8(%rbp),%r12
  imul   %r11,%rdx
  mov    %r12,%rax
  imul   %r9,%rax
  lea    (%rdx,%rax,1),%rcx
  mov    %r9,%rax
  mul    %r11
  add    %rdx,%rcx
  mov    %rcx,%rdx
  movslq %esi,%rdx
  movslq %edi,%rax
  imul   %rdx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    $0x10,%eax
  sub    $0x1,%rax
  add    %rdx,%rax
  mov    $0x10,%ebx
  mov    $0x0,%edx
  div    %rbx
  imul   $0x10,%rax,%rax
  mov    %rax,%rcx
  and    $0xfffffffffffff000,%rcx
  mov    %rsp,%rdx
  sub    %rcx,%rdx
L126:
  cmp    %rdx,%rsp
  je     L225
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L126
L225:
  mov    %rax,%rdx
  and    $0xfff,%edx
  sub    %rdx,%rsp
  mov    %rax,%rdx
  and    $0xfff,%edx
  test   %rdx,%rdx
  je     L24
  and    $0xfff,%eax
  sub    $0x8,%rax
  add    %rsp,%rax
  orq    $0x0,(%rax)
L24:
  mov    %rsp,%rax
  add    $0x3,%rax
  shr    $0x2,%rax
  shl    $0x2,%rax
  mov    %rax,-0x58(%rbp)
  mov    -0x58(%rbp),%rax
  mov    -0x70(%rbp),%ecx
  mov    -0x98(%rbp),%rdi
  mov    %rax,%rdx
  mov    %ecx,%esi
  call   <file2mtrx@plt>
  mov    -0x58(%rbp),%rdx
  mov    -0x70(%rbp),%eax
  mov    %rdx,%rsi
  mov    %eax,%edi
  call   <simetrik@plt>
  test   %rax,%rax
  je     L116
  lea    D80(%rip),%rax
  mov    %rax,%rsi
  lea    D14(%rip),%rax
  mov    %rax,%rdi
  call   <wrt2file@plt>
  lea    D7(%rip),%rax
  mov    %rax,%rdi
  call   <printf@plt>
  jmp    L166
L116:
  lea    D39(%rip),%rax
  mov    %rax,%rsi
  lea    D14(%rip),%rax
  mov    %rax,%rdi
  call   <wrt2file@plt>
  lea    D29(%rip),%rax
  mov    %rax,%rdi
  call   <printf@plt>
L166:
  mov    -0x70(%rbp),%eax
  mov    %eax,-0x74(%rbp)
  jmp    L44
L175:
  mov    %rsp,%rax
  mov    %rax,%r12
  mov    -0x74(%rbp),%esi
  mov    -0x74(%rbp),%edi
  movslq %esi,%rax
  sub    $0x1,%rax
  mov    %rax,-0x50(%rbp)
  movslq %esi,%rax
  mov    %rax,-0x120(%rbp)
  movq   $0x0,-0x118(%rbp)
  movslq %esi,%rax
  lea    0x0(,%rax,4),%rbx
  movslq %edi,%rax
  sub    $0x1,%rax
  mov    %rax,-0x48(%rbp)
  movslq %esi,%rax
  mov    %rax,-0xd0(%rbp)
  movq   $0x0,-0xc8(%rbp)
  movslq %edi,%rax
  mov    %rax,-0xe0(%rbp)
  movq   $0x0,-0xd8(%rbp)
  mov    -0xd0(%rbp),%r14
  mov    -0xc8(%rbp),%r15
  mov    %r15,%rdx
  mov    -0xe0(%rbp),%r8
  mov    -0xd8(%rbp),%r9
  imul   %r8,%rdx
  mov    %r9,%rax
  imul   %r14,%rax
  lea    (%rdx,%rax,1),%rcx
  mov    %r14,%rax
  mul    %r8
  add    %rdx,%rcx
  mov    %rcx,%rdx
  movslq %esi,%rax
  mov    %rax,-0xf0(%rbp)
  movq   $0x0,-0xe8(%rbp)
  movslq %edi,%rax
  mov    %rax,-0x100(%rbp)
  movq   $0x0,-0xf8(%rbp)
  mov    -0xf0(%rbp),%r8
  mov    -0xe8(%rbp),%r9
  mov    %r9,%rdx
  mov    -0x100(%rbp),%r10
  mov    -0xf8(%rbp),%r11
  imul   %r10,%rdx
  mov    %r11,%rax
  imul   %r8,%rax
  lea    (%rdx,%rax,1),%rcx
  mov    %r8,%rax
  mul    %r10
  add    %rdx,%rcx
  mov    %rcx,%rdx
  movslq %esi,%rdx
  movslq %edi,%rax
  imul   %rdx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    $0x10,%eax
  sub    $0x1,%rax
  add    %rdx,%rax
  mov    $0x10,%esi
  mov    $0x0,%edx
  div    %rsi
  imul   $0x10,%rax,%rdx
  mov    %rdx,%rax
  and    $0xfffffffffffff000,%rax
  mov    %rsp,%rcx
  sub    %rax,%rcx
L57:
  cmp    %rcx,%rsp
  je     L48
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L57
L48:
  mov    %rdx,%rax
  and    $0xfff,%eax
  sub    %rax,%rsp
  mov    %rdx,%rax
  and    $0xfff,%eax
  test   %rax,%rax
  je     L80
  mov    %rdx,%rax
  and    $0xfff,%eax
  sub    $0x8,%rax
  add    %rsp,%rax
  orq    $0x0,(%rax)
L80:
  mov    %rsp,%rax
  add    $0x3,%rax
  shr    $0x2,%rax
  shl    $0x2,%rax
  mov    %rax,-0x40(%rbp)
  mov    -0x70(%rbp),%eax
  sub    -0x74(%rbp),%eax
  add    $0x1,%eax
  mov    %eax,-0x6c(%rbp)
  movl   $0x0,-0x7c(%rbp)
  jmp    L23
L187:
  movl   $0x0,-0x78(%rbp)
  jmp    L122
L22:
  movl   $0x0,-0x84(%rbp)
  jmp    L91
L85:
  movl   $0x0,-0x80(%rbp)
  jmp    L178
L181:
  mov    -0x110(%rbp),%rdi
  shr    $0x2,%rdi
  mov    -0x84(%rbp),%edx
  mov    -0x7c(%rbp),%eax
  lea    (%rdx,%rax,1),%esi
  mov    -0x80(%rbp),%edx
  mov    -0x78(%rbp),%eax
  add    %edx,%eax
  mov    %rbx,%r8
  shr    $0x2,%r8
  mov    -0x58(%rbp),%rdx
  movslq %eax,%rcx
  movslq %esi,%rax
  imul   %rdi,%rax
  add    %rcx,%rax
  mov    (%rdx,%rax,4),%esi
  mov    -0x40(%rbp),%rcx
  mov    -0x80(%rbp),%eax
  movslq %eax,%rdx
  mov    -0x84(%rbp),%eax
  cltq
  imul   %r8,%rax
  add    %rdx,%rax
  mov    %esi,(%rcx,%rax,4)
  addl   $0x1,-0x80(%rbp)
L178:
  mov    -0x80(%rbp),%eax
  cmp    -0x74(%rbp),%eax
  jl     L181
  addl   $0x1,-0x84(%rbp)
L91:
  mov    -0x84(%rbp),%eax
  cmp    -0x74(%rbp),%eax
  jl     L85
  mov    -0x40(%rbp),%rdx
  mov    -0x74(%rbp),%eax
  mov    %rdx,%rsi
  mov    %eax,%edi
  call   <simetrik@plt>
  test   %rax,%rax
  je     L112
  mov    -0x40(%rbp),%rdx
  mov    -0x74(%rbp),%eax
  mov    %eax,%esi
  lea    D14(%rip),%rax
  mov    %rax,%rdi
  call   <mtrx2file@plt>
L112:
  addl   $0x1,-0x78(%rbp)
L122:
  mov    -0x78(%rbp),%eax
  cmp    -0x6c(%rbp),%eax
  jl     L22
  addl   $0x1,-0x7c(%rbp)
L23:
  mov    -0x7c(%rbp),%eax
  cmp    -0x6c(%rbp),%eax
  jl     L187
  mov    %r12,%rsp
  subl   $0x1,-0x74(%rbp)
L44:
  cmpl   $0x1,-0x74(%rbp)
  jg     L175
  mov    -0xa0(%rbp),%rsp
  jmp    L133
L28:
  lea    D54(%rip),%rax
  mov    %rax,%rdi
  call   <printf@plt>
L133:
  nop
  mov    -0x38(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L9
  call   <__stack_chk_fail@plt>
L9:
  lea    -0x28(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  pop    %rbp
  ret
```

tool_calls: name: retrieve_data
arguments: data_tag: D14
data_type: string
name: retrieve_data
arguments: data_tag: D80
data_type: string
name: retrieve_data
arguments: data_tag: D7
data_type: string
name: retrieve_data
arguments: data_tag: D39
data_type: string
name: retrieve_data
arguments: data_tag: D29
data_type: string
name: retrieve_data
arguments: data_tag: D54
data_type: string

tool: D14: simetrik.txt

tool: D80: Girilen matris simetrik matristir



tool: D7: 
Girilen matris simetrik matristir


tool: D39: Girilen matris simetrik degildir



tool: D29: 
Girilen matris simetrik degildir


tool: D54: get_simetrik(): Hatali matris formati


assistant: ```c
void get_simetrik(char *filename) {
  clr_file("simetrik.txt");
  int mtrx_size = get_file_mtrx_size(filename);
  if (mtrx_size >= 4 && mtrx_size <= 16) {
    int mat[mtrx_size][mtrx_size];
    file2mtrx(filename, mtrx_size, mat);
    if (simetrik(mtrx_size, mat)) {
      wrt2file("simetrik.txt", "Girilen matris simetrik matristir\n\n");
      printf("\nGirilen matris simetrik matristir\n");
    } else {
      wrt2file("simetrik.txt", "Girilen matris simetrik degildir\n\n");
      printf("\nGirilen matris simetrik degildir\n");
    }
    int i, j, ioff, joff, off_cnt;
    int sub_mtrx_size;
    for (sub_mtrx_size = mtrx_size; sub_mtrx_size > 1; sub_mtrx_size--) {
      int tmp_mtrx[sub_mtrx_size][sub_mtrx_size];
      off_cnt = mtrx_size - sub_mtrx_size + 1;
      for (ioff = 0; ioff < off_cnt; ioff++) {
        for (joff = 0; joff < off_cnt; joff++) {
          for (i = 0; i < sub_mtrx_size; i++) {
            for (j = 0; j < sub_mtrx_size; j++) {
              tmp_mtrx[i][j] = mat[i + ioff][j + joff];
            }
          }
          if (simetrik(sub_mtrx_size, tmp_mtrx)) {
            mtrx2file("simetrik.txt", sub_mtrx_size, tmp_mtrx);
          }
        }
      }
    }
  } else {
    printf("get_simetrik(): Hatali matris formati\n");
  }
}
```