tasm(16) и tlink32

;progr_1.asm-------
data segment para public "data"
  message db "Vvedite shestnadcatiri4nye cifry,$"
data ends
stk segment stack
  db 256 dup ("?")
stk ends
code segment para public "code"
 main proc
      assume cs:code,ds:data,ss:stk
      mov ax,data
      mov ds,ax
      mov ah,9
      mov dx,offset message
      int 21h
      xor ax,ax
      mov ah,1h
      int 21h
      mov dl,al
      sub dl,30h
      cmp dl,9h
      jle m1
      sub dl,7h
  m1:
      mov cl,4h
      shl dl,cl
      int 21h     
      sub al,30h
      cmp al,9h
      jle m2
      sub al,7h
  m2:
      add dl,al
      mov ax,4c00h
      int 21h     
      
  main endp   
 code ends
end main