data segment
max db 20
actlen db ?
string db 20 dup(?)
form db ''''name'''',20 dup('''' ''''),''''tel$''''
data1 db ''''input_name:$''''
data2 db ''''input a telephone number:$''''
outname db 10 dup('''' ''''),''''$''''
outphone db 8 dup('''' ''''),''''$''''
data ends
code segment
assume cs:code,ds:data,es:data
main proc far
start:mov ax,data
mov ds,ax
mov es,ax
lea dx,data1
mov ah,9
int 21h
call input_name
call crlf
lea dx,data2
mov ah,9
int 21h
call inphone
call crlf
call printline
mov ah,0
int 16h
mov ah,4ch
int 21h
main endp
getchar proc near
lea dx,max
mov ah,0ah
int 21h
ret
getchar endp
input_name proc near
call getchar
mov cx,10
cld
lea si,string
lea di,outname
rep movsb
ret
input_name endp
inphone proc near
call getchar
mov cx,8
cld
lea si,string
lea di,outphone
rep movsb
ret
inphone endp
printline proc
lea dx,form
mov ah,9
int 21h

call crlf
mov ah,0
int 16h
lea dx,outname
mov ah,09h
int 21h
lea dx,outphone
mov ah,9
int 21h
ret
printline endp
crlf proc near
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
ret
crlf endp
code ends
end start
这个程序是实现这样的功能
编写一个子程序嵌套结构的程序模块，分别从键盘输入姓名及8个字符的电话号码，并以一定的格式显示出来。
主程序TELIST：
（1）显示提示符INPUT NAME：；
（2）调用子程序INPUT_NAME输入姓名；
（3）显示提示符INPUT A TELEPHONE NUMBER：；
（4）调用子程序INPHONE输入电话号码；
（5）调用子程序PRINTLINE显示姓名及电话号码。
子程序INPUT_NAME：
（1）调用键盘输入子程序GETCHAR，把输入的姓名存放在INBUF 缓冲区中；
（2）把INBUF中的姓名移入输出行OUTNAME。
子程序INPHONE：
（1）调用键盘输入子程序GETCHAR，把输入的8位电话号码存放在INBUF
缓冲区中；
（2）把INBUF中的号码移入输出行OUTPHONE。
子程序PRINTLINE：
显示姓名及电话号码，格式为：
NAME TEL.
*** ***
我的输出不知为什么出错,麻烦哪位高手能帮我看看,给我讲讲,我将感激不尽,小弟在这里谢谢了