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

```asm
<mat4_frustum>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  mov    %rdi,-0x18(%rbp)
  movss  %xmm0,-0x1c(%rbp)
  movss  %xmm1,-0x20(%rbp)
  movss  %xmm2,-0x24(%rbp)
  movss  %xmm3,-0x28(%rbp)
  movss  %xmm4,-0x2c(%rbp)
  movss  %xmm5,-0x30(%rbp)
  movss  -0x20(%rbp),%xmm0
  movaps %xmm0,%xmm1
  subss  -0x1c(%rbp),%xmm1
  movss  D25(%rip),%xmm0
  divss  %xmm1,%xmm0
  movss  %xmm0,-0xc(%rbp)
  movss  -0x28(%rbp),%xmm0
  movaps %xmm0,%xmm1
  subss  -0x24(%rbp),%xmm1
  movss  D25(%rip),%xmm0
  divss  %xmm1,%xmm0
  movss  %xmm0,-0x8(%rbp)
  movss  -0x2c(%rbp),%xmm0
  movaps %xmm0,%xmm1
  subss  -0x30(%rbp),%xmm1
  movss  D25(%rip),%xmm0
  divss  %xmm1,%xmm0
  movss  %xmm0,-0x4(%rbp)
  movss  -0x2c(%rbp),%xmm0
  addss  %xmm0,%xmm0
  mulss  -0xc(%rbp),%xmm0
  mov    -0x18(%rbp),%rax
  movss  %xmm0,(%rax)
  mov    -0x18(%rbp),%rax
  add    $0x4,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x18(%rbp),%rax
  add    $0x8,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x18(%rbp),%rax
  add    $0xc,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x18(%rbp),%rax
  add    $0x10,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  movss  -0x2c(%rbp),%xmm0
  addss  %xmm0,%xmm0
  mov    -0x18(%rbp),%rax
  add    $0x14,%rax
  mulss  -0x8(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x18(%rbp),%rax
  add    $0x18,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x18(%rbp),%rax
  add    $0x1c,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  movss  -0x20(%rbp),%xmm0
  addss  -0x1c(%rbp),%xmm0
  mov    -0x18(%rbp),%rax
  add    $0x20,%rax
  mulss  -0xc(%rbp),%xmm0
  movss  %xmm0,(%rax)
  movss  -0x28(%rbp),%xmm0
  addss  -0x24(%rbp),%xmm0
  mov    -0x18(%rbp),%rax
  add    $0x24,%rax
  mulss  -0x8(%rbp),%xmm0
  movss  %xmm0,(%rax)
  movss  -0x30(%rbp),%xmm0
  addss  -0x2c(%rbp),%xmm0
  mov    -0x18(%rbp),%rax
  add    $0x28,%rax
  mulss  -0x4(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x18(%rbp),%rax
  add    $0x2c,%rax
  movss  D15(%rip),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x18(%rbp),%rax
  add    $0x30,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x18(%rbp),%rax
  add    $0x34,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  movss  -0x30(%rbp),%xmm0
  mulss  -0x2c(%rbp),%xmm0
  addss  %xmm0,%xmm0
  mov    -0x18(%rbp),%rax
  add    $0x38,%rax
  mulss  -0x4(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x18(%rbp),%rax
  add    $0x3c,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  nop
  pop    %rbp
  ret
```

tool_calls: name: disassemble_data
arguments: label: D25
data_type: f32
name: disassemble_data
arguments: label: D15
data_type: byte[4]

tool: D25: 1

tool: {"D15": [0x00,0x00,0x80,0xbf]}

assistant: ```c
void mat4_frustum(float *dst, float left, float right, float bottom, float top, float near, float far) {
  float rl = 1 / (right - left);
  float tb = 1 / (top - bottom);
  float nf = 1 / (near - far);
  dst[0] = (near * 2) * rl;
  dst[1] = 0;
  dst[2] = 0;
  dst[3] = 0;
  dst[4] = 0;
  dst[5] = (near * 2) * tb;
  dst[6] = 0;
  dst[7] = 0;
  dst[8] = (right + left) * rl;
  dst[9] = (top + bottom) * tb;
  dst[10] = (far + near) * nf;
  dst[11] = -1;
  dst[12] = 0;
  dst[13] = 0;
  dst[14] = (far * near * 2) * nf;
  dst[15] = 0;
}
```