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

```asm
<change_system_time>:
  endbr64
  push   %rbx
  sub    $0x90,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x88(%rsp)
  xor    %eax,%eax
  movl   $0x0,0x1a(%rsp)
  movw   $0x0,0x1e(%rsp)
  lea    D141(%rip),%rdi
  call   <printString@plt>
  lea    0x20(%rsp),%rdi
  mov    $0x64,%esi
  call   <getString@plt>
  movzbl 0x20(%rsp),%ebx
  mov    %ebx,%edi
  call   <tolower@plt>
  cmp    $0x73,%al
  jne    L210
L318:
  mov    %ebx,%edi
  call   <tolower@plt>
  cmp    $0x6e,%al
  je     L107
  lea    D36(%rip),%rdi
  call   <printString@plt>
  lea    0x4(%rsp),%rdi
  mov    $0x2,%esi
  call   <getInt@plt>
  test   %rax,%rax
  je     L324
L204:
  cmpl   $0x17,0x4(%rsp)
  jg     L37
L315:
  lea    D134(%rip),%rdi
  call   <printString@plt>
  lea    0x8(%rsp),%rdi
  mov    $0x2,%esi
  call   <getInt@plt>
  test   %rax,%rax
  je     L64
L191:
  cmpl   $0x3b,0x8(%rsp)
  jg     L289
L273:
  lea    D79(%rip),%rdi
  call   <printString@plt>
  lea    0xc(%rsp),%rdi
  mov    $0x2,%esi
  call   <getInt@plt>
  test   %rax,%rax
  je     L181
L251:
  cmpl   $0x1f,0xc(%rsp)
  jg     L121
L208:
  lea    D16(%rip),%rdi
  call   <printString@plt>
  lea    0x10(%rsp),%rdi
  mov    $0x2,%esi
  call   <getInt@plt>
  test   %rax,%rax
  je     L157
L227:
  cmpl   $0xc,0x10(%rsp)
  jg     L34
L44:
  lea    D128(%rip),%rdi
  call   <printString@plt>
  lea    0x14(%rsp),%rdi
  mov    $0x2,%esi
  call   <getInt@plt>
  test   %rax,%rax
  je     L174
L258:
  cmpl   $0x2,0x10(%rsp)
  je     L94
L288:
  mov    0x10(%rsp),%eax
  and    $0xfffffffd,%eax
  cmp    $0x4,%eax
  je     L306
  cmp    $0x9,%eax
  jne    L295
L306:
  cmpl   $0x1e,0xc(%rsp)
  jg     L328
L295:
  movb   $0x0,0x1a(%rsp)
  mov    0x8(%rsp),%edi
  call   <tobcd@plt>
  mov    %al,0x1b(%rsp)
  mov    0x4(%rsp),%edi
  call   <tobcd@plt>
  mov    %al,0x1c(%rsp)
  mov    0xc(%rsp),%edi
  call   <tobcd@plt>
  mov    %al,0x1d(%rsp)
  mov    0x10(%rsp),%edi
  call   <tobcd@plt>
  mov    %al,0x1e(%rsp)
  mov    0x14(%rsp),%edi
  call   <tobcd@plt>
  mov    %al,0x1f(%rsp)
  lea    0x1a(%rsp),%rsi
  mov    $0x0,%edi
  call   <set_system_time@plt>
L180:
  mov    0x88(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L93
  add    $0x90,%rsp
  pop    %rbx
  ret
L210:
  mov    %ebx,%edi
  call   <tolower@plt>
  cmp    $0x6e,%al
  je     L318
  lea    D0(%rip),%rdi
  call   <printString@plt>
  jmp    L318
L107:
  mov    $0xa,%edi
  call   <putChar@plt>
  jmp    L180
L324:
  lea    D0(%rip),%rdi
  call   <printString@plt>
  jmp    L204
L37:
  lea    D0(%rip),%rdi
  call   <printString@plt>
  jmp    L315
L64:
  lea    D0(%rip),%rdi
  call   <printString@plt>
  jmp    L191
L289:
  lea    D0(%rip),%rdi
  call   <printString@plt>
  jmp    L273
L181:
  lea    D0(%rip),%rdi
  call   <printString@plt>
  jmp    L251
L121:
  lea    D0(%rip),%rdi
  call   <printString@plt>
  jmp    L208
L157:
  lea    D0(%rip),%rdi
  call   <printString@plt>
  jmp    L227
L34:
  lea    D0(%rip),%rdi
  call   <printString@plt>
  jmp    L44
L174:
  lea    D0(%rip),%rdi
  call   <printString@plt>
  jmp    L258
L94:
  cmpl   $0x1d,0xc(%rsp)
  jg     L234
L120:
  testb  $0x3,0x14(%rsp)
  je     L295
  cmpl   $0x1c,0xc(%rsp)
  jle    L295
  lea    D139(%rip),%rdi
  call   <printString@plt>
  jmp    L288
L234:
  lea    D139(%rip),%rdi
  call   <printString@plt>
  cmpl   $0x2,0x10(%rsp)
  je     L120
  jmp    L288
L328:
  lea    D139(%rip),%rdi
  call   <printString@plt>
  jmp    L295
L93:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: parse_data
arguments: tag: D141
type_guessed: string
name: parse_data
arguments: tag: D36
type_guessed: string
name: parse_data
arguments: tag: D134
type_guessed: string
name: parse_data
arguments: tag: D79
type_guessed: string
name: parse_data
arguments: tag: D16
type_guessed: string
name: parse_data
arguments: tag: D128
type_guessed: string
name: parse_data
arguments: tag: D0
type_guessed: string
name: parse_data
arguments: tag: D139
type_guessed: string

tool: D141: Cambiar hora del sistema? (S/N) 

tool: D36: Ingrese horas: 

tool: D134: Ingrese minutos: 

tool: D79: Ingrese dia del mes: 

tool: D16: Ingrese numero de mes: 

tool: D128: Ingrese los dos ultimos digitos del anio: 

tool: D0: Input Errado!


tool: D139: Fecha Invalida!


assistant: ```c
void change_system_time() {
  unsigned char rtcdata[6] = {0};
  unsigned char buffer[100];
  unsigned char option;
  int hora, minuto, dia, mes, anio;
  printString("Cambiar hora del sistema? (S/N) ");
  getString((char *)buffer, 100);
  option = buffer[0];
  if (tolower(option) != 's' && tolower(option) != 'n') {
    printString("Input Errado!\n");
  }
  if (tolower(option) == 'n') {
    putChar('\n');
    return;
  }
  printString("Ingrese horas: ");
  if (getInt(&hora, 2) == 0) {
    printString("Input Errado!\n");
  }
  if (hora > 23) {
    printString("Input Errado!\n");
  }
  printString("Ingrese minutos: ");
  if (getInt(&minuto, 2) == 0) {
    printString("Input Errado!\n");
  }
  if (minuto > 59) {
    printString("Input Errado!\n");
  }
  printString("Ingrese dia del mes: ");
  if (getInt(&dia, 2) == 0) {
    printString("Input Errado!\n");
  }
  if (dia > 31) {
    printString("Input Errado!\n");
  }
  printString("Ingrese numero de mes: ");
  if (getInt(&mes, 2) == 0) {
    printString("Input Errado!\n");
  }
  if (mes > 12) {
    printString("Input Errado!\n");
  }
  printString("Ingrese los dos ultimos digitos del anio: ");
  if (getInt(&anio, 2) == 0) {
    printString("Input Errado!\n");
  }
  if (mes == 2 && (dia > 29)) {
    printString("Fecha Invalida!\n");
  }
  if (mes == 2 && (anio % 4 != 0) && (dia > 28)) {
    printString("Fecha Invalida!\n");
  }
  if ((mes == 4 || mes == 6 || mes == 9 || mes == 11) && dia > 30) {
    printString("Fecha Invalida!\n");
  }
  rtcdata[0] = 0;
  rtcdata[1] = tobcd(minuto);
  rtcdata[2] = tobcd(hora);
  rtcdata[3] = tobcd(dia);
  rtcdata[4] = tobcd(mes);
  rtcdata[5] = tobcd(anio);
  set_system_time(0, rtcdata);
}
```