Процедура перевода в ASCII

.386
    .model flat, stdcall
    option casemap :none
 
    include C:\masm32\include\windows.inc
    include C:\masm32\include\user32.inc
    include C:\masm32\include\kernel32.inc
    include C:\masm32\include\masm32.inc
    includelib C:\masm32\lib\user32.lib
    includelib C:\masm32\lib\kernel32.lib
    includelib C:\masm32\lib\masm32.lib
 
 
.data
res dw 5F2Dh
 
.data?
mes_r db 7 dup (?)
buffer db 100 dup(?)
 
.code
start:
 
mov ax, res
shr ax, 8
call ASCII
mov ax, 1310
 
mov [ebx], ax
inc ebx
mov al, 0
mov [ebx], al
 
 invoke StdOut,ADDR mes_r
 invoke StdIn,ADDR buffer,100 ; receive text input
 
 
;процедура переводу в ASCII код
 
ASCII proc
 
    mov ax, res
    push ax
    shr ah,4
    or ah,30h
    cmp ah, 39
jbe m
    add ah, 6
 
m:
    lea ebx, mes_r
    mov [ebx], ah
    inc ebx
    pop ax
    and ah, 0fh
    or ah, 30h
    cmp ah, 39
jbe n
    add ah, 6
 
n:
    lea ebx, mes_r
    mov [ebx], ah
    inc ebx
ret
ASCII endp
 
invoke ExitProcess,0
end start

OutInt proc
        
;; если число знаковое, то необходимо расскоментировать следующие строки
;; Проверяем число на знак.
   test    eax, eax
   jns     oi1
;
;; Если оно отрицательное, выведем минус и оставим его модуль.
   push ax
   mov al, '-'
   stosb
   pop ax   
   neg     eax
;; Количество цифр будем держать в CX.
oi1:  
    xor     ecx, ecx
    mov     ebx, 10 ; основание сс. 10 для десятеричной и т.п.
oi2:
    xor     edx,edx
    div     ebx
; Делим число на основание сс. В остатке получается последняя цифра.
; Сразу выводить её нельзя, поэтому сохраним её в стэке.
    push    edx
    inc     ecx
; А с частным повторяем то же самое, отделяя от него очередную
; цифру справа, пока не останется ноль, что значит, что дальше
; слева только нули.
    test    eax, eax
    jnz     oi2
; Теперь приступим к выводу.
oi3:
    pop     eax
; Извлекаем очередную цифру, переводим её в символ и выводим.
;; раскоментировать если основание сс > 10, т.е. для вывода требуются буквы
;   cmp     al,9
;   jbe     oi4
;   add     al,7
;oi4:
    add     al, '0'
    stosb
; Повторим ровно столько раз, сколько цифр насчитали.
    loop    oi3
    
    ret
 
OutInt endp