[Assembler] Zahl aus Register in String umwandeln

[ErazerZ]

code by shield

Delphi-Quellcode:

.data
    zahl1       dd  123456789

.data? 
    szMeinStr   db '', 0

.code

start:
    mov eax, zahl1
    mov esi, offset szMeinStr
    call _dword2decstr
    
    push MB_OK
    push offset szMeinStr
    push offset szMeinStr
    push 0
    call MessageBox

    push 0
    call ExitProcess
    

_dword2decstr proc            ; by shield
   push   edx
   push   ebx
   push   10
   pop   ecx
   push   10
   pop   ebx
_1:
   sub   edx,edx
   div   ebx
   add   dl,30h
   mov   byte ptr[esi+ecx-1],dl
   dec   ecx
   jnz   _1
   pop   ebx
   pop   edx
   ret
_dword2decstr endp

end start