IntToString- Procedura

TITLE MASM Template						(main.asm)

INCLUDE Irvine32.inc
.data


PrevedeneCislo DB 10 dup (?)
Medzivysledok DW 0
Desat DW 10

.code

IntToStr PROC USES eax ebx ecx edx esi edi paCislo,paAdresa

mov esi, paCislo
mov ebx, paAdresa
cmp esi,0  
jle L1             
mov byte ptr [ebx],byte ptr '+'
Jmp L2          
L1:neg esi        
mov  byte ptr [ebx],byte ptr '-'
L2:

mov edi,1
Cyklus:
mov eax,1
mov ecx,edi
Vnutro:
mul Desat
loop Vnutro
cmp eax, esi
jae Dalej
inc edi
jmp Cyklus
Dalej:
cmp edi,1
jne Pokracovanie
cmp esi,10
jne Nedesiatka
mov  byte ptr [ebx + 1],'1'
mov  byte ptr [ebx + 2],'0'
mov  byte ptr [ebx + 3],0
jmp Koniec
Nedesiatka:
mov eax,esi
add eax,48
mov byte ptr [ebx + 1],al
mov byte ptr [ebx + 2],0
jmp Koniec
Pokracovanie:
dec edi
mov ecx,edi
mov edi,1
mov edx,esi
Prevod:
mov eax,1
mov esi,ecx
push edx
Nasobenie:
mul Desat
loop Nasobenie
pop edx
push ebx
mov ebx,eax
mov eax,edx
xor edx,edx
div ebx
add eax,48
pop ebx
mov  byte ptr [ebx + edi],al
inc edi
mov ecx,esi
loop Prevod
add edx,48
mov  byte ptr [ebx + edi],dl
inc edi
mov  byte ptr [ebx + edi],0
Koniec:
ret
IntToStr ENDP


main PROC

call ReadInt
mov edx, OFFSET PrevedeneCislo
INVOKE IntToStr,eax,edx
mov edx, OFFSET PrevedeneCislo
call WriteString

	exit
main ENDP

END main