datarea      segment
inbuf    db   16 dup(0)
outname  db   10 dup(0)
outphone db   10 dup(0)
mess1    db   'input name:', 13 , 10 , 24h
mess2    db   'input a telephone number:',13,10,24h
mess3    db   'name------tel',13,10,24h
datarea       ends                                       
code   segment
main    proc    far
assume cs:code,ds:datarea             
start:
      push  ds
      sub   ax,ax
      push  ax
      mov   ax,datarea
      mov   ds,ax                                        
;-----------------------                   
      lea   dx,mess1
      mov   ah,09h
      int   21h
      call  input_name
      lea   dx,mess2
      mov   ah,09h
      int   21h
      call  inputhone
      call  printline
      ret
      main  endp
;-----------------------
input_name proc   near
      call  getchar
      mov   cx,bx
      mov   bx,0
      mov   si,0
next1:mov   al,inbuf[bx]                               
      mov   outname[si],al
      inc   bx
      inc   si
      loop  next1
      ret
input_name endp
;-----------------------------
inputhone  proc   near
      call  getchar
      mov   cx,bx  
      mov   bx,0
      mov   di,0
next2:mov   al,inbuf[bx]                               
      mov   outphone[di],al
      inc   bx
      inc   di
      loop  next2
      ret
inputhone  endp
;-------------------------------
getchar    proc  near
      mov   bx,0 
agin: mov   ah,01h
      int   21h
      cmp   al,0dh
      jz    exit1
      mov   inbuf[bx],al
      inc   bx
      jmp   agin
exit1:ret         
getchar    endp
;-------------------------------
printline  proc  near
      lea  dx,mess3
      mov  ah,09h
      int  21h
      mov  cx,si
      mov  si, 0
next3:mov  dl,outname[si]   
      mov  ah,02h
      int  21h                           
      inc  si
      dec  cx
      jnz  next3
      mov  cx,10
      sub  cx,si
kg:   mov  dl,0d
      mov  ah,02h
      int  21h             
      loop kg
      mov  si,0
next4:mov  dl,outphone[si]
      mov  ah,02h
      int  21h
      inc  si
      dec  di
      jnz  next4
      ret
printline  endp
;--------------------------------
 code ends
 end start