Вывод числа в консоль из регистра АХ

TITLE Laba_1
data segment  
    buffer db 80
    ;length db ?
    string db 80 dup (0)
    inputC db 10,13,'C= $'
    inputD db 10,13,'D= $'
    otvet db 10,13,'Otvet: '
    a dw 0032h
    b dw 0014h
    c dw ?
    d dw ?
 
data ends
code segment
    assume cs:code,ds:data
begin:
    mov ax,data
    mov ds,ax
    
    call vvodCD
    call calculate
    call output
 
vvodCD:
    mov ah,09h
    lea dx, inputC  
    int 21h
    mov ah,0ah
    xor di,di
    mov dx,offset buffer ; адрес буфера
    int 21h ; принимаем строку
    mov dl,0ah
    mov ah,02
    int 21h ;
    call read
    mov c, ax
    
    mov ah,09h
    lea dx, inputD  
    int 21h
    mov ah,0ah
    xor di,di
    mov dx,offset buffer ; адрес буфера
    int 21h ; принимаем строку
    mov dl,0ah
    mov ah,02
    int 21h ;
    call read
    mov d, ax
ret
calculate:
    mov ax, b
    sub ax, d
    add ax, a
    mul c
ret
output:
 
ret
read:   
    mov si,offset buffer+2 ; берем аддрес начала строки. Первые символы - инфа о строке.
    cmp byte ptr [si],"-" ; если первый символ минус
    jnz ii1
    mov di,1  ; устанавливаем флаг
    inc si    ; и пропускаем его
    ii1:
        xor ax,ax
        mov bx,10  ; основание сc для Горнера
    ii2:
        mov cl,[si] ; берем символ из буфера
        cmp cl,0dh  ; проверяем не последний ли он
        jz endin ; если последний , переходим на endin
        sub cl,'0' ; делаем из символа число 
        mul bx     ; умножаем на 10
        add ax,cx  ; прибавляем к остальным
        inc si     ; указатель на следующий символ, т.е берем след. символ
        jmp ii2     ; повторяем
 
; все символы из буфера обработаны число находится в ax
    endin:
        cmp di,1 ; если установлен флаг, то
        jnz exit
        neg ax   ; делаем число отрицательным. Переводим его в доп код
    exit:
        ret
    
    mov ax, 4c00h  
    int 21h         
code ends        
END begin

TITLE Laba_1
data segment  
    buffer db 80
    inputC db 10,13,'C = $'
    inputD db 10,13,'D = $'
    otvet db 10,13,'Otvet: $'
    a dw 07FFh
    b dw 00FFh
    c dw ?
    d dw ?
    rezult db 9 dup ('$')
    dorez dd 0
data ends
code segment
    assume cs:code,ds:data
begin:
    mov ax,data
    mov ds,ax
    call vvodCD
    call calculate
    call output
    ; вывод результата
    mov ah,09h          ; сообщение 
    lea dx,otvet
    int 21h
    mov ah,09h     ; вывод самого числа
    lea dx,rezult
    int 21h
    mov ah,1            ; ожидание нажатия
    int 21h
    
    mov ax, 4c00h  
    int 21h 
vvodCD:
    mov ah,09h
    lea dx, inputC  
    int 21h
    mov ah,0ah
    xor di,di
    mov dx,offset buffer ; адрес буфера
    int 21h ; принимаю строку
    mov dl,0ah
    mov ah,02
    int 21h ;
    call read
    mov c, ax
    
    mov ah,09h
    lea dx, inputD  
    int 21h
    mov ah,0ah
    xor di,di
    mov dx,offset buffer ; адрес буфера
    int 21h ; принимаю строку
    mov dl,0ah
    mov ah,02
    int 21h ;
    call read
    mov d, ax
ret
calculate:
    mov ax, b
    sub ax, d
    add ax, a
    mul c
    lea di, dorez
    add [di], ax
    add [di+2], dx
ret
output:
    lea di, rezult      ; готовый результат для печати
    lea si, dorez   ; ответ без преобразования
    mov bx, 10 ; делитель для 10 сс
    xor cx,cx ; сброс счетчика символов
    mov ax, [si]    ; младшая часть
    mov dx, [si+2]   ; старшая часть
ASCII:   ; преобразование результата в символы, с сохранением в стек
    xor dx,dx 
    div bx ; деление DX:AX на 10 с остатком в dx
    add dl,'0' ; из числа в символ 
    push dx         ;сохранение отстатка в стек
    inc cx
    test ax,ax    ; проверка АХ на ноль 
    jnz ASCII
    
recordRezult:           ;Цикл извлечения символов из стека
    pop dx          ;Восстановление символа из стека
    mov [di],dl     ;Сохранение символа в буфере
    inc di          ;Инкремент адреса буфера
    loop recordRezult
ret
 
read:   
    mov si,offset buffer+2 ; берем аддрес начала строки. Первые символы - инфа о строке.
    cmp byte ptr [si],"-" ; если первый символ минус
    jnz s1
    mov di,1  ; устанавливаем флаг
    inc si    ; и пропускаем его
s1:
    xor ax,ax
    mov bx,10  ; множитель 
obrabotka:
    mov cl,[si] ; символ из буфера
    cmp cl,0dh  ; проверяем не последний ли он
    jz endin ; если последний , переходим на endin
    sub cl,'0' ; делаю из символа число 
    mul bx     
    add ax,cx  ; прибавляем к остальным
    inc si     ; указатель на следующий символ, т.е берем след. символ
    jmp obrabotka   
; все символы из буфера обработаны число находится в ax
endin:
    cmp di,1 ; если установлен флаг отрицания, то
    jnz exit
    neg ax   ; Переводим число в доп код
exit:
    ret  
code ends        
END begin

data segment
    buffer db 7, 8 dup(0)
.................
    temp DW 2 dup(0)      ;переменная для сохранения частного от деления на 10
data ends
.................
code segment
    assume cs:code,ds:data
begin:
    mov ax,data
    mov ds,ax
    call vvodCD
    call calculate
    ; вывод результата
    mov ah,09h          ; сообщение
    lea dx,otvet
    int 21h
    mov ax, word ptr [dorez]
    mov dx, word ptr [dorez+2]
    call ShowUInt32
    mov ah,1            ; ожидание нажатия
    int 21h
 
    mov ax, 4c00h
    int 21h
.....................
;Вывод на экран целого 32 разрядного беззнакового числа
;на входе:
;  dx:ax - целое 32 разрядное беззнаковое число
ShowUInt32:
 
        ;сохранить значение числа во временной переменной
        mov     word ptr temp[0],       ax
        mov     word ptr temp[2],       dx
....................
@@ShowDigit:
        pop     dx              ;извлечение цифры из стека
        int     21h             ;вывод символа на экран
        loop    @@ShowDigit
 
        ret
 
code ends
END begin

    buffer db 80
    ;length db ?
    string db 80 dup (0)
    inputC db 10,13,'C= $'
    inputD db 10,13,'D= $'

    buffer db 80
    inputC db 10,13,'C = $'
    inputD db 10,13,'D = $'
    otvet db 10,13,'Otvet: $'

    mov ah,0ah
    xor di,di
    mov dx,offset buffer ; адрес буфера
    int 21h ; принимаю строку