function count_of_digits_asm(n: Integer): Cardinal;
asm
  cdq
  xor eax,edx
  sub eax,edx

  xor ecx, ecx
  mov ebx, 10

@L1:
  add ecx, 1
  xor edx, edx
  idiv ebx
  test eax, eax
  jne @L1

  mov @result, ecx
end;