Конвертер валют

.model small
.stack 100h
 
data segment                                     
   _BYR     db 10,13,'BYR: ','$' 
   _UAH     db 13,'UAH: ','$'
   UAHtoBYR dw 517               ;1 UAH = 517 BYR
data ends
   
code segment
assume cs:code,ds:data     
begin:
        mov ax,data         
        mov ds,ax           
        mov es,ax           ;es ссылается туда же, где и ds
;------------------------------------------------
;Вывод приглашения на ввод числа
        mov ah,09h          ;команда на вывод строки
        mov dx,offset _UAH  ;смещение на строку
        int 21h             ;выполнить команду
;------------------------------------------------
;Ввод UAH в виде числа с клавиатуры
enter_UAH: 
      mov di,0          ;накопленная часть числа
      mov si,0          ;номер позиции в числе
      mov bp,10         ;множитель, равный 10 (для ввода и вывода)
;ввод символа
input:
      mov ah,08h            ;вызов команды ввода символа с клавиатуры
      int 21h               ;выполнить команду 08h
      cmp al,13             ;нажат Enter?
      je convert            ;да -> завершаем работу процедуры
      cmp al,8              ;нажат Backspace?
      je backspace          ;да -> стираем один символ
      cmp al,'0'            ;меньше 0?
      jb input              ;да -> повтор ввода
      cmp al,'9'            ;не больше 9?
      jbe number            ;да -> введена цифра
;обработка введенного символа
number:
      mov bl,al             ;сохраним символ в bl
      mov ax,di             ;записываем в ax число
      mul bp                ;производим умножение на 10  
      mov dl,bl             ;сохраненный символ спишем в dl
      sub dl,'0'        ;преобразуем символ в цифру
      mov dh,0              ;dx - цифра
      add dx,ax             ;получим новое число (ЧислоЗнаковЧисла*10+число(от 0 до 9))
      jc  input             ;если перенос -> переполнение
      inc si                ;увеличим номер позиции курсора
      mov di,dx         ;в di допишем число
      mov dl,bl             ;в dl символ на вывод
      mov ah,02h            ;команда на вывод символа
      int 21h               ;выполнить команду 21h
      jmp input             ;повторим ввод
;обработка клавиши Backspace
backspace:        
      dec si                ;смещаем указатель назад на одну позицию
      mov ax,di             ;записываем в ax число
      mov dx,0              ;занулим dx (т.к. в нем хранится остаток от деления)
      div bp                ;делим на 10(целая часть в ax, а в dx - остаток)
      mov di,ax             ;полученную целую часть занесем в dx
      mov dl,8              ;вызов BackSpace
      mov ah,2              ;команда на вывод символа
      int 21h               ;выполнить команду 21h
      mov dl,32             ;вызов Space
      int 21h               ;выполнить команду 21h
      mov dl,8              ;вызов BackSpace
      int 21h               ;выполнить команду 21h
      jmp input             ;повторяем ввод
;------------------------------------------------
;Перевод одной валюты в другую
convert:
      mov ax,di             ;в ax - количество денег в UAH
      mul UAHtoBYR          ;переводим UAH в BYR, путем умножения     
      push ax
      push dx
;------------------------------------------------
;Вывод строки
      mov ah,9h             ;команда на вывод строки
      mov dx,offset _BYR    ;смещение на строку
      int 21h               ;выполнить команду
;------------------------------------------------
;Вывод старшей части числа 
        xor cx,cx       ;cx=0
    xor ax,ax       ;ax=0
    xor dx,dx       ;dx=0
        ;вывод самого числа
        pop ax
        cmp ax,0
        je part2
    push    -1  ;сохраним признак конца числа
    mov cx,10   ;делим на 10
repeat: 
        xor dx,dx   ;очистим регистр dx
    div cx  ;делим 
    push    dx  ;сохраним цифру
    cmp ax,0    ;остался 0? (оптимальнее or ax,ax)
    jne repeat  ;нет -> продолжим
    mov ah,2h
digit:  
        pop dx  ;восстановим цифру
    cmp dx,-1   ;дошли до конца -> выход {оптимальнее: or dx,dx jl ex}
    je  part2
    add dl,'0'  ;преобразуем число в цифру
    int 21h ;выведем цифру на экран
    jmp digit   ;и продолжим
;------------------------------------------------
part2:
;Вывод младшей части числа 
        xor cx,cx       ;cx=0
    xor ax,ax       ;ax=0
    xor dx,dx       ;dx=0
        ;вывод самого числа
        pop ax
    push    -1  ;сохраним признак конца числа
    mov cx,10   ;делим на 10
repeat2:    
        xor dx,dx   ;очистим регистр dx
    div cx  ;делим 
    push    dx  ;сохраним цифру
    cmp ax,0    ;остался 0? (оптимальнее or ax,ax)
    jne repeat2 ;нет -> продолжим
    mov ah,2h
digit2: 
        pop dx  ;восстановим цифру
    cmp dx,-1   ;дошли до конца -> выход {оптимальнее: or dx,dx jl ex}
    je  exit
    add dl,'0'  ;преобразуем число в цифру
    int 21h ;выведем цифру на экран
    jmp digit2  ;и продолжим   
;------------------------------------------------   
exit:
        mov ax,4c00h       
        int 21h
code ends
end begin

mov ah,10h
int 16h