user: Converte this assembly snippet into its equivalent C code:

```asm
<gl_ortho>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0xa0,%rsp
  movss  %xmm0,-0x84(%rbp)
  movss  %xmm1,-0x88(%rbp)
  movss  %xmm2,-0x8c(%rbp)
  movss  %xmm3,-0x90(%rbp)
  movss  %xmm4,-0x94(%rbp)
  movss  %xmm5,-0x98(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  movss  D11(%rip),%xmm0
  movss  %xmm0,-0x50(%rbp)
  pxor   %xmm0,%xmm0
  movss  %xmm0,-0x4c(%rbp)
  pxor   %xmm0,%xmm0
  movss  %xmm0,-0x48(%rbp)
  pxor   %xmm0,%xmm0
  movss  %xmm0,-0x44(%rbp)
  pxor   %xmm0,%xmm0
  movss  %xmm0,-0x40(%rbp)
  movss  D11(%rip),%xmm0
  movss  %xmm0,-0x3c(%rbp)
  pxor   %xmm0,%xmm0
  movss  %xmm0,-0x38(%rbp)
  pxor   %xmm0,%xmm0
  movss  %xmm0,-0x34(%rbp)
  pxor   %xmm0,%xmm0
  movss  %xmm0,-0x30(%rbp)
  pxor   %xmm0,%xmm0
  movss  %xmm0,-0x2c(%rbp)
  movss  D11(%rip),%xmm0
  movss  %xmm0,-0x28(%rbp)
  pxor   %xmm0,%xmm0
  movss  %xmm0,-0x24(%rbp)
  pxor   %xmm0,%xmm0
  movss  %xmm0,-0x20(%rbp)
  pxor   %xmm0,%xmm0
  movss  %xmm0,-0x1c(%rbp)
  pxor   %xmm0,%xmm0
  movss  %xmm0,-0x18(%rbp)
  movss  D11(%rip),%xmm0
  movss  %xmm0,-0x14(%rbp)
  movss  -0x88(%rbp),%xmm0
  subss  -0x84(%rbp),%xmm0
  movss  %xmm0,-0x74(%rbp)
  movss  -0x90(%rbp),%xmm0
  subss  -0x8c(%rbp),%xmm0
  movss  %xmm0,-0x70(%rbp)
  movss  -0x98(%rbp),%xmm0
  subss  -0x94(%rbp),%xmm0
  movss  %xmm0,-0x6c(%rbp)
  movss  -0x88(%rbp),%xmm0
  addss  -0x84(%rbp),%xmm0
  movss  D73(%rip),%xmm1
  xorps  %xmm1,%xmm0
  divss  -0x74(%rbp),%xmm0
  movss  %xmm0,-0x68(%rbp)
  movss  -0x90(%rbp),%xmm0
  addss  -0x8c(%rbp),%xmm0
  movss  D73(%rip),%xmm1
  xorps  %xmm1,%xmm0
  divss  -0x70(%rbp),%xmm0
  movss  %xmm0,-0x64(%rbp)
  movss  -0x98(%rbp),%xmm0
  addss  -0x94(%rbp),%xmm0
  movss  D73(%rip),%xmm1
  xorps  %xmm1,%xmm0
  divss  -0x6c(%rbp),%xmm0
  movss  %xmm0,-0x60(%rbp)
  movss  D91(%rip),%xmm0
  divss  -0x74(%rbp),%xmm0
  movss  %xmm0,-0x5c(%rbp)
  movss  D91(%rip),%xmm0
  divss  -0x70(%rbp),%xmm0
  movss  %xmm0,-0x58(%rbp)
  movss  D53(%rip),%xmm0
  divss  -0x6c(%rbp),%xmm0
  movss  %xmm0,-0x54(%rbp)
  movss  -0x5c(%rbp),%xmm0
  movss  %xmm0,-0x50(%rbp)
  movss  -0x58(%rbp),%xmm0
  movss  %xmm0,-0x3c(%rbp)
  movss  -0x54(%rbp),%xmm0
  movss  %xmm0,-0x28(%rbp)
  movss  -0x68(%rbp),%xmm0
  movss  %xmm0,-0x20(%rbp)
  movss  -0x64(%rbp),%xmm0
  movss  %xmm0,-0x1c(%rbp)
  movss  -0x60(%rbp),%xmm0
  movss  %xmm0,-0x18(%rbp)
  lea    -0x50(%rbp),%rax
  mov    %rax,%rdi
  call   <gl_mult_matrixf@plt>
  nop
  mov    -0x8(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L6
  call   <__stack_chk_fail@plt>
L6:
  leave
  ret
```

tool_calls: name: read_data
arguments: label: D11
datatype: byte[4]
name: read_data
arguments: label: D73
datatype: byte[4]
name: read_data
arguments: label: D91
datatype: byte[4]
name: read_data
arguments: label: D53
datatype: byte[4]

tool: {"D11": [0x00,0x00,0x80,0x3f]}

tool: {"D73": [0x00,0x00,0x00,0x80]}

tool: {"D91": [0x00,0x00,0x00,0x40]}

tool: {"D53": [0x00,0x00,0x00,0xc0]}

assistant: ```c
void gl_ortho(float left, float right, float bottom, float top, float near, float far) {
  float mat[] = {1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1};
  float dx = right - left;
  float dy = top - bottom;
  float dz = far - near;
  float tx = -(right + left) / dx;
  float ty = -(top + bottom) / dy;
  float tz = -(far + near) / dz;
  float sx = 2.f / dx;
  float sy = 2.f / dy;
  float sz = -2.f / dz;
  mat[0] = sx;
  mat[5] = sy;
  mat[10] = sz;
  mat[12] = tx;
  mat[13] = ty;
  mat[14] = tz;
  gl_mult_matrixf(mat);
}
```