/* DBCServer_Release_x64.exe sha256 d9e4fccdf3482e50247686d4452c0b13c75a53efc4bd7320668eece8d1ce828c
 * Ghidra 12.1.2 decompiler output for 0x1401d40a0 FUN_1401d40a0
 * Pseudocode, not original source. */

void FUN_1401d40a0(longlong *param_1)

{
  longlong lVar1;
  longlong *plVar2;
  longlong *plVar3;
  
  lVar1 = param_1[3];
  while( true ) {
    if (lVar1 == 0) {
      param_1[1] = 0;
      param_1[2] = 0;
      return;
    }
    plVar2 = (longlong *)param_1[1];
    if (plVar2 == (longlong *)0x0) break;
    param_1[1] = *plVar2;
    FUN_14016d0e0(plVar2 + 3);
    if (plVar2[4] != 0) {
      if (*(int *)((longlong)plVar2 + 0x2c) < 0) {
                    /* WARNING: Subroutine does not return */
        FUN_14016d6b0();
      }
      *(undefined4 *)(plVar2 + 5) = 0;
    }
    plVar3 = (longlong *)*param_1;
    if (plVar3 == (longlong *)0x0) {
      FUN_14016d970(plVar2);
    }
    else {
      (**(code **)(*plVar3 + 0x10))(plVar3,plVar2);
    }
    param_1[3] = param_1[3] + -1;
    lVar1 = param_1[3];
  }
                    /* WARNING: Subroutine does not return */
  FUN_14004dc60(0x80004005);
}