Перевод числа в римские цифры

.model tiny
.code
.486
org 100h
START:
  mov ah,9
  mov dx,offset pin
  int 21h
 
  mov ah,10
  mov dx,offset strNumber
  int 21h                 ;вводим  с клавиатуры
 
  mov ah,9
  mov dx,offset rom       ;roman number is
  int 21h
 
  ;преобразуем строку в число
  movzx cx,[strNumber+1]
  mov   si,offset strNumber+2
  xor   eax,eax
  cdq
  str2int:lodsb
        imul dx,10
        add dx,ax
        sub dx,48
  loop str2int          ;Теперь в edx число
 
  mov ax,dx
  xor bx,bx
  jmp begincycle
 
  int2Rom:cwd
          div  word ptr[Base+bx]
          mov  cx,ax
          mov  ax,dx
          jcxz skip
          mov dx,[Roman+bx]
          pusha
          outnum:mov ah,9
                 int 21h
          loop outnum
          popa
          skip:add  bx,2
          begincycle:test ax,ax
  jne int2Rom
 
opr
  xor ax,ax
  int 16h
  dec al
  jne START ;если нажат esc - выход
 
  ret
 
  strNumber db 5, 6 DUP(0)
  Base      dw 100,90,50,40,10,9,5,4,1
  Roman     dw m,cm,d,cd,c,xc,l,xl,x,ix,v,iv,i
  pin       db 13,10,"Please, input the number(0...99): $"
  rom       db 13,10,"Roman number is:$"
  c         db  "C$"                           ;  C db   100
  xc        db "XC$"                           ;  XC db   90
  l         db  "L$"                           ;  L db    50
  xl        db "XL$"                           ;  XL db   40
  x         db  "X$"                           ;  X db    10
  ix        db "IX$"                           ;  IX db    9
  v         db  "V$"                           ;  V db     5
  iv        db "IV$"                           ;  IV db    4
  i         db  "I$"                           ;  I db     1
END START

.model tiny
.code
.486
org 100h
 
input macro A
  mov ah,10
  mov dx,offset A
  int 21h
endm
 
output macro A
  mov ah,9
  mov dx,offset A
  int 21h
endm
 
getkey macro
  xor ax,ax
  int 16h
endm
 
START:
  output pin
  input strNumber                 ;вводим  с клавиатуры
  output rom         ;roman number is
 
  ;преобразуем строку в число
  movzx cx,[strNumber+1]
  jcxz exit
  mov   si,offset strNumber+2
  xor   eax,eax
  cdq
  str2int:lodsb
        imul dx,10
        add dx,ax
        sub dx,48
  loop str2int          ;Теперь в edx число
 
  mov ax,dx
  xor bx,bx
  jmp begincycle
 
  int2Rom:cwd
          div  word ptr[Base+bx]
          mov  cx,ax
          mov  ax,dx
          jcxz skip
          mov dx,[Roman+bx]
          pusha
          outnum:mov ah,9
                 int 21h
          loop outnum
          popa
          skip:add  bx,2
          begincycle:test ax,ax
  jne int2Rom
 
  getkey
  dec al
  jne START ;если нажат esc - выход
exit: 
  int 20h
 
  strNumber db 5, 6 DUP(0)
  Base      dw 100,90,50,40,10,9,5,4,1
  Roman     dw c,xc,l,xl,x,ix,v,iv,i
  pin       db 13,10,"Please, input the number(0...99): $"
  rom       db 13,10,"Roman number is:$"
  c         db  "C$"                           ;  C db   100
  xc        db "XC$"                           ;  XC db   90
  l         db  "L$"                           ;  L db    50
  xl        db "XL$"                           ;  XL db   40
  x         db  "X$"                           ;  X db    10
  ix        db "IX$"                           ;  IX db    9
  v         db  "V$"                           ;  V db     5
  iv        db "IV$"                           ;  IV db    4
  i         db  "I$"                           ;  I db     1
END START