IntToString

;by Evgeny Kuleshov
; Переделано мной
; Перевод числа в строку в любую сс
IntToStr proc near ; Число в AX, основание сс в BL, строка назначения в DI
push ax
push bx
push di
push dx
push cx

xor cx,cx
xor bh,bh

again:
sub dx,dx
div bx ; dx:ax/bx - результат деления в ax, остаток в dx
inc cx ; считаем цифры
push dx ; остаток в стек
cmp ax,0 ; результат равен нулю?
jne again ; если нет, то повтор

toString:
pop dx ; извлекаем цифру из стека
add dx,30h
cmp dx,39h
jbe no_more_9
add dx,7 ; добавляем для отображения букв

no_more_9:
mov [di],dl
inc di

loop toString

mov [di],'$'

pop cx
pop dx
pop di
pop bx
pop ax

ret
IntToStr endp