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

```asm
<XDrawVString>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  mov    %rdi,%r12
  push   %rbp
  mov    %r9,%rbp
  push   %rbx
  sub    $0x48,%rsp
  mov    0x88(%rsp),%r15
  mov    %esi,0x1c(%rsp)
  mov    %r9,%rsi
  mov    %edx,0x28(%rsp)
  mov    %r15,%rdi
  mov    %ecx,0x2c(%rsp)
  mov    %r8d,0x38(%rsp)
  call   <FontTextWidth@plt>
  mov    %r15,%rdi
  mov    %r15,0x20(%rsp)
  mov    %rax,%r13
  mov    %eax,%ebx
  call   <FontHeight@plt>
  mov    0x1c(%rsp),%esi
  mov    %r13d,%edx
  mov    %r12,%rdi
  mov    $0x1,%r8d
  mov    %eax,%ecx
  mov    %eax,0x8(%rsp)
  mov    %rax,%r14
  call   <XCreatePixmap@plt>
  mov    0x8(%rsp),%r11d
  mov    %r13d,%ecx
  mov    %r12,%rdi
  mov    0x1c(%rsp),%esi
  mov    $0x1,%r8d
  mov    %eax,%r15d
  mov    %r11d,%edx
  mov    %r11d,0x3c(%rsp)
  call   <XCreatePixmap@plt>
  xor    %ecx,%ecx
  xor    %edx,%edx
  mov    %r15d,%esi
  mov    %r12,%rdi
  mov    %r15d,0x14(%rsp)
  mov    %eax,0x18(%rsp)
  call   <XCreateGC@plt>
  xor    %edx,%edx
  mov    %r12,%rdi
  mov    %eax,%esi
  mov    %eax,%r15d
  call   <XSetBackground@plt>
  mov    0x20(%rsp),%rdi
  mov    %r15d,%esi
  mov    (%rdi),%edx
  mov    %r12,%rdi
  call   <XSetFont@plt>
  xor    %edx,%edx
  mov    %r15d,%esi
  mov    %r12,%rdi
  call   <XSetForeground@plt>
  sub    $0x8,%rsp
  xor    %r8d,%r8d
  xor    %ecx,%ecx
  push   %r14
  mov    0x24(%rsp),%esi
  mov    %r13d,%r9d
  mov    %r15d,%edx
  mov    %r12,%rdi
  call   <XFillRectangle@plt>
  mov    0x28(%rsp),%esi
  xor    %r8d,%r8d
  xor    %ecx,%ecx
  mov    %r14d,%r9d
  mov    %r15d,%edx
  mov    %r12,%rdi
  mov    %r13d,(%rsp)
  call   <XFillRectangle@plt>
  mov    $0x1,%edx
  mov    %r15d,%esi
  mov    %r12,%rdi
  call   <XSetForeground@plt>
  mov    %rbp,%rdi
  call   <strlen@plt>
  mov    0x30(%rsp),%rdi
  mov    %eax,0x18(%rsp)
  call   <FontAscent@plt>
  mov    0x18(%rsp),%edx
  mov    0x24(%rsp),%esi
  mov    %rbp,%r9
  xor    %ecx,%ecx
  mov    %eax,%r8d
  mov    %r12,%rdi
  mov    %edx,(%rsp)
  mov    %r15d,%edx
  call   <XDrawImageString@plt>
  mov    %r13d,%eax
  lea    0xe(%r13),%edi
  mov    $0x1,%esi
  add    $0x7,%eax
  cmovns %eax,%edi
  sar    $0x3,%edi
  imul   %r14d,%edi
  call   <XtCalloc@plt>
  mov    %r12,%rdi
  mov    %rax,0x18(%rsp)
  mov    D9(%rip),%rax
  mov    (%rax),%ebp
  call   <DefaultScreen@plt>
  mov    %r12,%rdi
  mov    %eax,%esi
  call   <DefaultVisual@plt>
  push   $0x0
  xor    %r8d,%r8d
  mov    %ebp,%ecx
  push   $0x8
  mov    %eax,%esi
  mov    $0x1,%edx
  mov    %r12,%rdi
  push   %r14
  push   %r13
  mov    0x38(%rsp),%r9
  call   <XCreateImage@plt>
  add    $0x28,%rsp
  xor    %edx,%edx
  mov    %r14d,%r9d
  mov    %rax,%rbp
  mov    D62(%rip),%rax
  mov    %r13d,%r8d
  xor    %ecx,%ecx
  mov    %r12,%rdi
  mov    (%rax),%rax
  mov    %rax,0x18(%rbp)
  mov    %rax,0x20(%rbp)
  mov    D9(%rip),%rax
  push   $0x0
  push   $0x0
  push   %rbp
  mov    (%rax),%eax
  push   %rax
  push   $0x1
  mov    0x44(%rsp),%esi
  call   <XGetSubImage@plt>
  mov    %r14d,%eax
  add    $0x30,%rsp
  lea    0xe(%r14),%edi
  add    $0x7,%eax
  mov    $0x1,%esi
  cmovns %eax,%edi
  sar    $0x3,%edi
  imul   %r13d,%edi
  call   <XtCalloc@plt>
  mov    %r12,%rdi
  mov    %rax,0x30(%rsp)
  mov    D9(%rip),%rax
  mov    (%rax),%ecx
  mov    %ecx,0x8(%rsp)
  call   <DefaultScreen@plt>
  mov    %r12,%rdi
  mov    %eax,%esi
  call   <DefaultVisual@plt>
  push   $0x0
  xor    %r8d,%r8d
  mov    %r12,%rdi
  push   $0x8
  mov    %eax,%esi
  mov    $0x1,%edx
  push   %r13
  push   %r14
  mov    0x50(%rsp),%r9
  mov    0x28(%rsp),%ecx
  call   <XCreateImage@plt>
  add    $0x20,%rsp
  xor    %esi,%esi
  test   %r14d,%r14d
  mov    %rax,%r10
  mov    D62(%rip),%rax
  mov    $0x80,%edi
  lea    -0x1(%r13),%r9d
  mov    0x3c(%rsp),%r11d
  mov    (%rax),%rax
  mov    %rax,0x18(%r10)
  mov    %rax,0x20(%r10)
  jle    L21
  nopl   (%rax)
L24:
  test   %ebx,%ebx
  jle    L10
  mov    %esi,%ecx
  mov    %esi,%r8d
  mov    %edi,%eax
  mov    %r11d,0x8(%rsp)
  and    $0x7,%ecx
  sar    $0x3,%r8d
  sar    %cl,%eax
  movslq %r8d,%r8
  mov    %eax,%r14d
  xor    %eax,%eax
  nopl   0x0(%rax)
L22:
  mov    0x8(%rbp),%edx
  mov    %eax,%ecx
  mov    %edi,%r11d
  sar    $0x3,%ecx
  imul   %esi,%edx
  movslq %ecx,%rcx
  movslq %edx,%rdx
  add    0x0(%rbp),%rdx
  movsbl (%rdx,%rcx,1),%edx
  mov    %eax,%ecx
  and    $0x7,%ecx
  sar    %cl,%r11d
  test   %r11d,%edx
  je     L8
  mov    %r9d,%edx
  sub    %eax,%edx
  imul   0x8(%r10),%edx
  movslq %edx,%rdx
  add    %r8,%rdx
  add    (%r10),%rdx
  or     %r14b,(%rdx)
L8:
  add    $0x1,%eax
  cmp    %eax,%ebx
  jne    L22
  mov    0x8(%rsp),%r11d
L10:
  add    $0x1,%esi
  cmp    %esi,%r11d
  jne    L24
L21:
  mov    0x20(%rsp),%rdi
  mov    %r10,0x8(%rsp)
  call   <FontAscent@plt>
  mov    0x2c(%rsp),%r14d
  mov    %r15d,%edx
  mov    %r12,%rdi
  mov    0x8(%rsp),%r10
  mov    0x38(%rsp),%ebx
  sub    %eax,%r14d
  mov    $0x0,%eax
  cmovs  %eax,%r14d
  mov    0x10(%r10),%eax
  mov    %r10,%rcx
  xor    %r9d,%r9d
  xor    %r8d,%r8d
  sub    %r13d,%ebx
  push   %rax
  mov    0xc(%r10),%eax
  push   %rax
  push   $0x0
  push   $0x0
  mov    0x38(%rsp),%esi
  mov    %r10,0x28(%rsp)
  call   <XPutImage@plt>
  mov    D54(%rip),%rax
  mov    0x48(%rsp),%r13d
  mov    %r12,%rdi
  add    $0x20,%rsp
  mov    (%rax),%edx
  mov    %r13d,%esi
  call   <XSetFillStyle@plt>
  mov    0x18(%rsp),%edx
  mov    %r13d,%esi
  mov    %r12,%rdi
  call   <XSetStipple@plt>
  mov    %ebx,%ecx
  mov    %r14d,%edx
  mov    %r13d,%esi
  mov    %r12,%rdi
  call   <XSetTSOrigin@plt>
  mov    0x8(%rsp),%r10
  mov    %ebx,%r8d
  mov    %r14d,%ecx
  sub    $0x8,%rsp
  mov    %r13d,%edx
  mov    %r12,%rdi
  mov    0x10(%r10),%eax
  mov    0xc(%r10),%r9d
  push   %rax
  mov    0x2c(%rsp),%esi
  call   <XFillRectangle@plt>
  mov    D31(%rip),%rax
  mov    %r13d,%esi
  mov    %r12,%rdi
  mov    (%rax),%edx
  call   <XSetFillStyle@plt>
  mov    %r15d,%esi
  mov    %r12,%rdi
  call   <XFreeGC@plt>
  mov    %rbp,%rdi
  call   <XDestroyImage@plt>
  mov    0x18(%rsp),%rdi
  call   <XDestroyImage@plt>
  mov    0x24(%rsp),%esi
  mov    %r12,%rdi
  call   <XFreePixmap@plt>
  mov    0x28(%rsp),%esi
  add    $0x58,%rsp
  mov    %r12,%rdi
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  jmp    1200 <XFreePixmap@plt>
```

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);
}
```