Сложение двух чисел, введенных с клавиатуры

.model small                  
.stack 16h                    
.data  
msgA db 'Enter A = ', '$ '
msgB db 13,10,'Enter B = ', '$ '
msg5 db 13,10,'Result X = ', '$ '               
msg label byte
maxnum db 6 
reallen db ?
numfld db 5 dup(30h)
mult10 dw 0
ascval db 5 dup(30h),'$'             
  x  dw  ?
  a  dw  0
  b  dw  0
c dw 0
  z dw 0
u dw 0
 
.code                        
start: mov ax, @data          
       mov ds, ax   
       mov ah,9
       lea dx, msgA ; Сообщение "Enter A = "
       int 21H;
 
       mov ah,0AH
       lea dx,msg
       int 21H   
       call asbin ; Ввод числа с клавиатуры
       mov ax,z
       mov a,ax
 
       mov ah,9
       lea dx, msgB ; Сообщение "Enter B = "
       int 21H;
 
       mov ah,0AH
       lea dx,msg
       int 21H   
       call asbin ; Ввод числа с клавиатуры
       mov ax,z
       mov b,ax
 
    
       mov ah,9
       lea dx, msg5 ; Сообщение "Result X = "
       int 21H;       
   
   
       mov bx, dx
       mov cx, ax             
 
       xor dx,dx
       mov ax, a         
       add ax,b ; Складываем 2 числа                
       mov x, ax
 
 
call outp ; Вывод результата на экран 
     
       mov ah, 4ch ; Выйти из программы            
       int 21h     
                  
asbin proc ; Процедура ввода с клавиатуры
       mov mult10,0001
       mov z,0
       mov cx,10
       lea si,numfld-1
       mov bl,reallen
       sub bh,bh
b20:
       mov al,[si+bx]
       and ax,000fh
       mul mult10
       add z,ax
       mov ax,mult10
       mul cx
       mov mult10,ax
       dec bx
       jnz b20
       ret
asbin  endp
 
outp proc ; Процедура вывода на экран
       mov cx,10                ; система счисления
       lea si, ascval+4         ; Установка указателя на конец массива ascval
       mov ax, x                ; Результат х занести в ax
c20:   cmp ax,10                ; Сравнить результат с числом 10
       jb c30                   ; Если меньше то преобразовывать не надо
        xor dx,dx   ; Очистка регистра dx для команды деления
       div cx                   ; Делим на 10
       or dl, 30h               ; Преобразование остатка к ASCII коду
       mov [si], dl             ; Занесение остатка от деления в массив ascval
       dec si                   ; Перемещение указателя массива на 1 байт влево
       jmp c20                  ; Переход на начало для преобразования след. цифры
c30:   or al, 30h               ; Если остаток меньше 10, то вывод результата на экран
       mov [si], al             ; дисплея командами (см. ниже)
       lea dx, ascval           ; Загрузка адреса массива
       mov ah, 9                ; Вызов 9-ой функции MS-DOS 
       int 21h
       ret                      ; Возврат в головную программу из п/программы
outp endp               ; Конец процедуры
 
 
end start

.486
.model flat, stdcall
option casemap: none
 
include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\masm32.inc
include \masm32\include\debug.inc
 
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\masm32.lib
includelib \masm32\lib\debug.lib
 
.data
 
BufSize = 9h ; размер массива вводимых байтов
X BYTE 4 DUP(?) ; захват памяти под массив ввода
Y BYTE 4 DUP(?) ; захват памяти под массив ввода
Z BYTE 5 DUP (0) ; сумма
S byte '+' ; символ суммы для вывода
E byte '=' ; символ равенства для вывода
outHandle DWORD 0 ; дескриптор стандартного устройства вывода
bytesWritten DWORD ? ; число выведенных байтов
inHandle DWORD 0 ; дескриптор стандартного устройства ввода
bytesRead DWORD ? ; число введённых байтов
Q BYTE ? ; одиночный символ массива ввода
.code
start:
 
INVOKE GetStdHandle, STD_INPUT_HANDLE   ; получение дескриптора
mov inHandle, eax           ; сохранение дескриптора в памяти
;INVOKE GetConsoleMode, inHandle, offset X  ; сохранение флагов
;mov al,X
INVOKE ReadConsole, inHandle, offset X, BufSize, offset bytesRead, 0
INVOKE ReadConsole, inHandle, offset Y, BufSize, offset bytesRead, 0
CLC ; сброс флага переноса CF
MOV esi,Lengthof X-1 ; смещение мл. байта слагаемого
MOV edi,esi
inc edi ; длина суммы на 1 байт больше длины слагаемого
MOV ecx,Lengthof X ; счётчик цикла
M: ; начало цикла
MOV ah,0 ; освобождение места для возможного переноса
MOV al,X[esi] ; загрузка байта первого слагаемого
ADD al,Y[esi] ; сложение двух байтов и переноса
AAA ; ASCII-коррекция после сложения
PUSHF
OR al,30h ; получение ASCII-кода цифры суммы
POPF
MOV Z[edi],al ; сохранение цифры суммы в памяти
DEC esi ; смещение следующего байта слагаемых
DEC edi ; смещение следующего байта суммы
LOOP M
cmp ah,1
ja D
jb B  ; получение ASCII-кода старшей цифры суммы
D:
or ah, 30h
MOV Z[edi],ah ; сохранение старшей цифры суммы в памяти
B:
MOV Z[edi],ah ; сохранение старшей цифры суммы в памяти
INVOKE GetStdHandle, STD_OUTPUT_HANDLE
mov outHandle ,eax
INVOKE WriteConsole, outHandle, offset X, lengthof X, offset bytesWritten,0
INVOKE WriteConsole, outHandle, offset S, lengthof S, offset bytesWritten,0
INVOKE WriteConsole, outHandle, offset Y, lengthof Y, offset bytesWritten,0
INVOKE WriteConsole, outHandle, offset E, lengthof E, offset bytesWritten,0
INVOKE WriteConsole, outHandle, offset Z, lengthof Z, offset bytesWritten,0
 
INVOKE GetStdHandle, STD_INPUT_HANDLE
mov inHandle,eax
INVOKE ReadConsole, inHandle, offset Q, 1, offset bytesRead, 0
INVOKE ExitProcess,0
END start