🚀 go-pugleaf

To moja procedura konwersji. Wydawało by się, że działa dobrze. Niestety dla
niektórych danych wejściowych wystepują błędy, których nie umiem znaleźć.
Przykład:

633825300114114700748351602688 : 1 = 554597137599850363154807652352

[code]
stringdec2hex PROC

 push edi
 push esi
 push ebx
 push ebp

 lea esi, bcEdit
 mov mnoznik, 0Ah
 xor eax, eax
 xor ebx, ebx

pobieraj:
 mov bl, [esi]
 cmp bl, 0
 jz  konczymy

   sub bl, 30h

 mov [argd2], bl
 call czysc_wynik
 call mnozenie

 push esi
 push edi
 push ecx
 lea esi, wynik
 lea edi, arg1 ; przeładowujemy dane z wynik do arg1
 mov ecx, 128
 rep movsd
 pop ecx
 pop edi
 pop esi

 call dodawanie

 inc esi
 jmp pobieraj

konczymy:

 push esi
 push edi
 push ecx
 lea esi, arg1
 mov edi, bwynik  ; przeładowujemy dane z arg1 do bwynik
 mov ecx, 128
 rep movsd
 pop ecx
 pop edi
 pop esi

 pop ebp
 pop ebx
 pop esi
 pop edi

ret

stringdec2hex endp


mnozenie PROC

 push esi
 push edi

 lea esi, arg1
 lea edi, wynik
 mov ecx, 18

mnozymy:

 mov  eax, dword ptr [esi]
 mul  mnoznik
 add  dword ptr [edi], eax
 adc  dword ptr [edi+4], edx
 adc  dword ptr [edi+8], 0
 adc  dword ptr [edi+12], 0
 adc  dword ptr [edi+16], 0

 jc   messag1

 pushf
 add esi, 4
 add edi, 4
 popf

 loop mnozymy
 jmp  _do_retm

messag1:
 mov eax, 'CF'
_do_retm:

 pop  edi
 pop  esi
   ret

mnozenie endp


dodawanie PROC

 push esi

 lea esi, arg1

 add dword ptr [esi], ebx
 adc dword ptr [esi+4], 0
 adc dword ptr [esi+8], 0

 pop esi
  ret

dodawanie endp
[/code]

Pozdrawiam