Convert BCD to ASCII

  ;Program to covert a packed BCD number to an ASCII number  

  .model small  

  .data  

  datasege segment  

    ans db 99h  

  datasege ends  

  .stack  

  .code  

  assume ds:datasege  

  main proc  

  mov ax, datasege  

  mov ds, ax  

  mov al, ans  

  and al, 0f0h  

  mov cl, 04h  

  rol al, cl  

  add al, 30h  

  mov dl, al  

  mov ah, 02h  

  int 21h  

  mov  

   al, ans  

  and al, 0fh  

  add al, 30h  

  mov dl, al  

  mov ah, 02h  

  int 21h  

  mov ah, 4ch  

  int 21h  

  main endp  

  end main