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

```asm
<XDrawVString>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %rbx
  sub    $0x78,%rsp
  mov    %rdi,-0x68(%rbp)
  mov    %esi,-0x6c(%rbp)
  mov    %edx,-0x70(%rbp)
  mov    %ecx,-0x74(%rbp)
  mov    %r8d,-0x78(%rbp)
  mov    %r9,-0x80(%rbp)
  mov    -0x80(%rbp),%rdx
  mov    0x18(%rbp),%rax
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <FontTextWidth@plt>
  mov    %eax,-0x48(%rbp)
  mov    0x18(%rbp),%rax
  mov    %rax,%rdi
  call   <FontHeight@plt>
  mov    %eax,-0x44(%rbp)
  mov    -0x44(%rbp),%ecx
  mov    -0x48(%rbp),%edx
  mov    -0x6c(%rbp),%esi
  mov    -0x68(%rbp),%rax
  mov    $0x1,%r8d
  mov    %rax,%rdi
  call   <XCreatePixmap@plt>
  mov    %eax,-0x40(%rbp)
  mov    -0x48(%rbp),%ecx
  mov    -0x44(%rbp),%edx
  mov    -0x6c(%rbp),%esi
  mov    -0x68(%rbp),%rax
  mov    $0x1,%r8d
  mov    %rax,%rdi
  call   <XCreatePixmap@plt>
  mov    %eax,-0x3c(%rbp)
  mov    -0x40(%rbp),%esi
  mov    -0x68(%rbp),%rax
  mov    $0x0,%ecx
  mov    $0x0,%edx
  mov    %rax,%rdi
  call   <XCreateGC@plt>
  mov    %eax,-0x38(%rbp)
  mov    -0x38(%rbp),%ecx
  mov    -0x68(%rbp),%rax
  mov    $0x0,%edx
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <XSetBackground@plt>
  mov    0x18(%rbp),%rax
  mov    (%rax),%edx
  mov    -0x38(%rbp),%ecx
  mov    -0x68(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <XSetFont@plt>
  mov    -0x38(%rbp),%ecx
  mov    -0x68(%rbp),%rax
  mov    $0x0,%edx
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <XSetForeground@plt>
  mov    -0x48(%rbp),%edi
  mov    -0x38(%rbp),%edx
  mov    -0x40(%rbp),%esi
  mov    -0x68(%rbp),%rax
  sub    $0x8,%rsp
  mov    -0x44(%rbp),%ecx
  push   %rcx
  mov    %edi,%r9d
  mov    $0x0,%r8d
  mov    $0x0,%ecx
  mov    %rax,%rdi
  call   <XFillRectangle@plt>
  add    $0x10,%rsp
  mov    -0x44(%rbp),%edi
  mov    -0x38(%rbp),%edx
  mov    -0x3c(%rbp),%esi
  mov    -0x68(%rbp),%rax
  sub    $0x8,%rsp
  mov    -0x48(%rbp),%ecx
  push   %rcx
  mov    %edi,%r9d
  mov    $0x0,%r8d
  mov    $0x0,%ecx
  mov    %rax,%rdi
  call   <XFillRectangle@plt>
  add    $0x10,%rsp
  mov    -0x38(%rbp),%ecx
  mov    -0x68(%rbp),%rax
  mov    $0x1,%edx
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <XSetForeground@plt>
  mov    -0x80(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  mov    %eax,%ebx
  mov    0x18(%rbp),%rax
  mov    %rax,%rdi
  call   <FontAscent@plt>
  mov    %eax,%edi
  mov    -0x80(%rbp),%rcx
  mov    -0x38(%rbp),%edx
  mov    -0x40(%rbp),%esi
  mov    -0x68(%rbp),%rax
  sub    $0x8,%rsp
  push   %rbx
  mov    %rcx,%r9
  mov    %edi,%r8d
  mov    $0x0,%ecx
  mov    %rax,%rdi
  call   <XDrawImageString@plt>
  add    $0x10,%rsp
  mov    -0x48(%rbp),%eax
  add    $0x7,%eax
  lea    0x7(%rax),%edx
  test   %eax,%eax
  cmovs  %edx,%eax
  sar    $0x3,%eax
  imul   -0x44(%rbp),%eax
  mov    $0x1,%esi
  mov    %eax,%edi
  call   <XtCalloc@plt>
  mov    %rax,-0x30(%rbp)
  mov    D16(%rip),%rax
  mov    (%rax),%ebx
  mov    -0x68(%rbp),%rax
  mov    %rax,%rdi
  call   <DefaultScreen@plt>
  mov    %eax,%edx
  mov    -0x68(%rbp),%rax
  mov    %edx,%esi
  mov    %rax,%rdi
  call   <DefaultVisual@plt>
  mov    %eax,%esi
  mov    -0x30(%rbp),%rcx
  mov    -0x68(%rbp),%rax
  push   $0x0
  push   $0x8
  mov    -0x44(%rbp),%edx
  push   %rdx
  mov    -0x48(%rbp),%edx
  push   %rdx
  mov    %rcx,%r9
  mov    $0x0,%r8d
  mov    %ebx,%ecx
  mov    $0x1,%edx
  mov    %rax,%rdi
  call   <XCreateImage@plt>
  add    $0x20,%rsp
  mov    %rax,-0x28(%rbp)
  mov    D10(%rip),%rax
  mov    (%rax),%rdx
  mov    -0x28(%rbp),%rax
  mov    %rdx,0x18(%rax)
  mov    -0x28(%rbp),%rax
  mov    0x18(%rax),%rdx
  mov    -0x28(%rbp),%rax
  mov    %rdx,0x20(%rax)
  mov    D16(%rip),%rax
  mov    (%rax),%edx
  mov    -0x44(%rbp),%edi
  mov    -0x48(%rbp),%ecx
  mov    -0x40(%rbp),%esi
  mov    -0x68(%rbp),%rax
  sub    $0x8,%rsp
  push   $0x0
  push   $0x0
  push   -0x28(%rbp)
  push   %rdx
  push   $0x1
  mov    %edi,%r9d
  mov    %ecx,%r8d
  mov    $0x0,%ecx
  mov    $0x0,%edx
  mov    %rax,%rdi
  call   <XGetSubImage@plt>
  add    $0x30,%rsp
  mov    -0x44(%rbp),%eax
  add    $0x7,%eax
  lea    0x7(%rax),%edx
  test   %eax,%eax
  cmovs  %edx,%eax
  sar    $0x3,%eax
  imul   -0x48(%rbp),%eax
  mov    $0x1,%esi
  mov    %eax,%edi
  call   <XtCalloc@plt>
  mov    %rax,-0x30(%rbp)
  mov    D16(%rip),%rax
  mov    (%rax),%ebx
  mov    -0x68(%rbp),%rax
  mov    %rax,%rdi
  call   <DefaultScreen@plt>
  mov    %eax,%edx
  mov    -0x68(%rbp),%rax
  mov    %edx,%esi
  mov    %rax,%rdi
  call   <DefaultVisual@plt>
  mov    %eax,%esi
  mov    -0x30(%rbp),%rcx
  mov    -0x68(%rbp),%rax
  push   $0x0
  push   $0x8
  mov    -0x48(%rbp),%edx
  push   %rdx
  mov    -0x44(%rbp),%edx
  push   %rdx
  mov    %rcx,%r9
  mov    $0x0,%r8d
  mov    %ebx,%ecx
  mov    $0x1,%edx
  mov    %rax,%rdi
  call   <XCreateImage@plt>
  add    $0x20,%rsp
  mov    %rax,-0x20(%rbp)
  mov    D10(%rip),%rax
  mov    (%rax),%rdx
  mov    -0x20(%rbp),%rax
  mov    %rdx,0x18(%rax)
  mov    -0x20(%rbp),%rax
  mov    0x18(%rax),%rdx
  mov    -0x20(%rbp),%rax
  mov    %rdx,0x20(%rax)
  movl   $0x0,-0x50(%rbp)
  jmp    L38
L47:
  movl   $0x0,-0x54(%rbp)
  jmp    L36
L7:
  mov    -0x28(%rbp),%rax
  mov    (%rax),%rcx
  mov    -0x54(%rbp),%eax
  lea    0x7(%rax),%edx
  test   %eax,%eax
  cmovs  %edx,%eax
  sar    $0x3,%eax
  movslq %eax,%rdx
  mov    -0x28(%rbp),%rax
  mov    0x8(%rax),%eax
  imul   -0x50(%rbp),%eax
  cltq
  add    %rdx,%rax
  add    %rcx,%rax
  mov    %rax,-0x30(%rbp)
  mov    -0x30(%rbp),%rax
  movzbl (%rax),%eax
  movsbl %al,%edx
  mov    -0x54(%rbp),%eax
  and    $0x7,%eax
  mov    $0x80,%esi
  mov    %eax,%ecx
  sar    %cl,%esi
  mov    %esi,%eax
  and    %edx,%eax
  test   %eax,%eax
  je     L59
  mov    -0x20(%rbp),%rax
  mov    (%rax),%rcx
  mov    -0x50(%rbp),%eax
  lea    0x7(%rax),%edx
  test   %eax,%eax
  cmovs  %edx,%eax
  sar    $0x3,%eax
  movslq %eax,%rsi
  mov    -0x48(%rbp),%eax
  sub    $0x1,%eax
  sub    -0x54(%rbp),%eax
  mov    %eax,%edx
  mov    -0x20(%rbp),%rax
  mov    0x8(%rax),%eax
  imul   %edx,%eax
  cltq
  add    %rsi,%rax
  add    %rcx,%rax
  mov    %rax,-0x18(%rbp)
  mov    -0x18(%rbp),%rax
  movzbl (%rax),%edx
  mov    -0x50(%rbp),%eax
  and    $0x7,%eax
  mov    $0x80,%esi
  mov    %eax,%ecx
  sar    %cl,%esi
  mov    %esi,%eax
  or     %eax,%edx
  mov    -0x18(%rbp),%rax
  mov    %dl,(%rax)
L59:
  addl   $0x1,-0x54(%rbp)
L36:
  mov    -0x54(%rbp),%eax
  cmp    -0x48(%rbp),%eax
  jl     L7
  addl   $0x1,-0x50(%rbp)
L38:
  mov    -0x50(%rbp),%eax
  cmp    -0x44(%rbp),%eax
  jl     L47
  mov    0x18(%rbp),%rax
  mov    %rax,%rdi
  call   <FontAscent@plt>
  mov    %eax,%edx
  mov    -0x74(%rbp),%eax
  sub    %edx,%eax
  mov    %eax,-0x4c(%rbp)
  cmpl   $0x0,-0x4c(%rbp)
  jns    L34
  movl   $0x0,-0x4c(%rbp)
L34:
  mov    -0x78(%rbp),%eax
  sub    -0x48(%rbp),%eax
  mov    %eax,-0x34(%rbp)
  mov    -0x20(%rbp),%rax
  mov    0x10(%rax),%r8d
  mov    -0x20(%rbp),%rax
  mov    0xc(%rax),%edi
  mov    -0x20(%rbp),%rcx
  mov    -0x38(%rbp),%edx
  mov    -0x3c(%rbp),%esi
  mov    -0x68(%rbp),%rax
  push   %r8
  push   %rdi
  push   $0x0
  push   $0x0
  mov    $0x0,%r9d
  mov    $0x0,%r8d
  mov    %rax,%rdi
  call   <XPutImage@plt>
  add    $0x20,%rsp
  mov    D56(%rip),%rax
  mov    (%rax),%edx
  mov    -0x70(%rbp),%ecx
  mov    -0x68(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <XSetFillStyle@plt>
  mov    -0x3c(%rbp),%edx
  mov    -0x70(%rbp),%ecx
  mov    -0x68(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <XSetStipple@plt>
  mov    -0x34(%rbp),%ecx
  mov    -0x4c(%rbp),%edx
  mov    -0x70(%rbp),%esi
  mov    -0x68(%rbp),%rax
  mov    %rax,%rdi
  call   <XSetTSOrigin@plt>
  mov    -0x20(%rbp),%rax
  mov    0x10(%rax),%edi
  mov    -0x20(%rbp),%rax
  mov    0xc(%rax),%r9d
  mov    -0x34(%rbp),%r8d
  mov    -0x4c(%rbp),%ecx
  mov    -0x70(%rbp),%edx
  mov    -0x6c(%rbp),%esi
  mov    -0x68(%rbp),%rax
  sub    $0x8,%rsp
  push   %rdi
  mov    %rax,%rdi
  call   <XFillRectangle@plt>
  add    $0x10,%rsp
  mov    D49(%rip),%rax
  mov    (%rax),%edx
  mov    -0x70(%rbp),%ecx
  mov    -0x68(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <XSetFillStyle@plt>
  mov    -0x38(%rbp),%edx
  mov    -0x68(%rbp),%rax
  mov    %edx,%esi
  mov    %rax,%rdi
  call   <XFreeGC@plt>
  mov    -0x28(%rbp),%rax
  mov    %rax,%rdi
  call   <XDestroyImage@plt>
  mov    -0x20(%rbp),%rax
  mov    %rax,%rdi
  call   <XDestroyImage@plt>
  mov    -0x40(%rbp),%edx
  mov    -0x68(%rbp),%rax
  mov    %edx,%esi
  mov    %rax,%rdi
  call   <XFreePixmap@plt>
  mov    -0x3c(%rbp),%edx
  mov    -0x68(%rbp),%rax
  mov    %edx,%esi
  mov    %rax,%rdi
  call   <XFreePixmap@plt>
  nop
  mov    -0x8(%rbp),%rbx
  leave
  ret
```

assistant: ```c
void XDrawVString(Display *display, Window win, GC gc, int x, int y, char *str, int len, XFontStruct *f) {
  XImage *before, *after;
  char *dest, *source;
  int xloop, yloop, xdest, ydest;
  Pixmap pix, rotpix;
  int width, height;
  GC drawGC;
  width = (int)FontTextWidth(f, str);
  height = (int)FontHeight(f);
  pix = XCreatePixmap(display, win, width, height, 1);
  rotpix = XCreatePixmap(display, win, height, width, 1);
  drawGC = XCreateGC(display, pix, 0L, NULL);
  XSetBackground(display, drawGC, 0);
  XSetFont(display, drawGC, f->fid);
  XSetForeground(display, drawGC, 0);
  XFillRectangle(display, pix, drawGC, 0, 0, width, height);
  XFillRectangle(display, rotpix, drawGC, 0, 0, height, width);
  XSetForeground(display, drawGC, 1);
  XDrawImageString(display, pix, drawGC, 0, (int)FontAscent(f), str, strlen(str));
  source = (char *)XtCalloc((((width + 7) / 8) * height), 1);
  before = XCreateImage(display, DefaultVisual(display, DefaultScreen(display)), 1, XYPixmap, 0, source, width, height, 8, 0);
  before->byte_order = before->bitmap_bit_order = MSBFirst;
  XGetSubImage(display, pix, 0, 0, width, height, 1L, XYPixmap, before, 0, 0);
  source = (char *)XtCalloc((((height + 7) / 8) * width), 1);
  after = XCreateImage(display, DefaultVisual(display, DefaultScreen(display)), 1, XYPixmap, 0, source, height, width, 8, 0);
  after->byte_order = after->bitmap_bit_order = MSBFirst;
  for (yloop = 0; yloop < height; yloop++) {
    for (xloop = 0; xloop < width; xloop++) {
      source = before->data + (xloop / 8) + (yloop * before->bytes_per_line);
      if (*source & (128 >> (xloop % 8))) {
        dest = after->data + (yloop / 8) + ((width - 1 - xloop) * after->bytes_per_line);
        *dest |= (128 >> (yloop % 8));
      }
    }
  }
  xdest = x - (int)FontAscent(f);
  if (xdest < 0)
    xdest = 0;
  ydest = y - width;
  XPutImage(display, rotpix, drawGC, after, 0, 0, 0, 0, after->width, after->height);
  XSetFillStyle(display, gc, FillStippled);
  XSetStipple(display, gc, rotpix);
  XSetTSOrigin(display, gc, xdest, ydest);
  XFillRectangle(display, win, gc, xdest, ydest, after->width, after->height);
  XSetFillStyle(display, gc, FillSolid);
  XFreeGC(display, drawGC);
  XDestroyImage(before);
  XDestroyImage(after);
  XFreePixmap(display, pix);
  XFreePixmap(display, rotpix);
}
```