自学好不容易啊，大哥大姐们帮小弟一把吧。不胜感激！！！！！
data segment
yy1 db 'input name:','$'
yy2 db 'input a telephone number:','$'
yy3 db 'name',26 dup(' '),'tel.','$'
inbuf db 20,?,20 dup(?)
outname db 20 dup(?)
outphone db 9 dup(?)
data ends
code segment
telist proc far
assume cs:code,ds:data,es:data
begin:mov ax,data
mov ds,ax
mov es,ax
lea dx,yy1
mov ah,09h
int 21h
call input_name
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2h
int 21h
lea dx,yy2
mov ah,09h
int 21h
call inphone
call crlf
call printline
call crlf
telist endp
input_name proc near
call getchar
lea si, inbuf
lea di,outname
mov cl,[inbuf+1]
mov ch,0
add si,2
cld
rep movsb
xor bh,bh
mov bl,[inbuf+1]
mov al,24h
mov [outname+bx],al
ret
input_name endp
crlf proc near
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
ret
crlf endp
getchar proc near
mov ah,0ah
mov dx,offset inbuf
int 21h
ret
getchar endp
inphone proc near
call getchar
lea di,outphone
lea si,inbuf
add si,2
mov cl,[inbuf+1]
sub ch,ch
cld
rep movsb
mov al,24h
mov [outphone+8],al
ret
inphone endp
showchar proc near
mov ah,09h
int 21h
ret
showchar endp
printline proc near
lea dx,yy3
call showchar
call crlf
lea dx,outname
call showchar
mov ah,2h
mov bl,0
mov dl,30
mov dh,3
int 10h
lea dx,outphone
call showchar
ret
printline endp
code ends
end begin

你的telist写错了位置，以下是加了注释的，数据段定义没加注释

data segment
yy1 db 'input name:','$'
yy2 db 'input a telephone number:','$'
yy3 db 'name',26 dup(' '),'tel.','$'
inbuf db 20,?,20 dup(?)
outname db 20 dup(?)
outphone db 9 dup(?)
data ends
code segment
assume cs:code,ds:data,es:data
begin:mov ax,data
mov ds,ax
mov es,ax
telist proc far
lea dx,yy1
mov ah,09h
int 21h ;输出'input name:'
call input_name ;调用input_name
mov dl,0dh ;
mov ah,2 ;
int 21h ;
mov dl,0ah ;
mov ah,2h ;
int 21h ;换行
lea dx,yy2 ;
mov ah,09h ;
int 21h ;输出'input a telephone number:'
call inphone ;调用inphone
call crlf ;调用crlf
call printline ;调用printline
call crlf ;换行
telist endp
input_name proc near ;完成名字的操作
call getchar ;调用getchar
lea si, inbuf ;取inbuf的有效地址
lea di,outname ;取outname的有效地址
mov cl,[inbuf+1] ;inbuf的长度作为rep movsb的次数
mov ch,0
add si,2 ;从ds:[si+2]开始移
cld ;清方向标志位为0
rep movsb ;相当于mov es:[di],ds:[si]，不过要初始化si和di，上面已经初始化
xor bh,bh
mov bl,[inbuf+1] ;取inbuf长度
mov al,24h ;ax='$'
mov [outname+bx],al ;字符串以'$'结束
ret
input_name endp
crlf proc near ;功能：换行
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
ret
crlf endp
getchar proc near ;功能：输入字符串
mov ah,0ah
mov dx,offset inbuf
int 21h
ret
getchar endp
inphone proc near ;功能：完成电话号码的操作（这里不注释了，同input_name）
call getchar
lea di,outphone
lea si,inbuf
add si,2
mov cl,[inbuf+1]
sub ch,ch
cld
rep movsb
mov al,24h
mov [outphone+8],al
ret
inphone endp
showchar proc near
mov ah,09h
int 21h
ret
showchar endp
printline proc near ;功能：完成输出操作
lea dx,yy3
call showchar ;输出字符串'name tel.'
call crlf ;换行
lea dx,outname
call showchar ;输出名字
mov ah,2h ;
mov bl,0 ;
mov dl,30 ;
mov dh,3 ;
int 10h ;这几句加上后，显示效果更不好，可以去掉，加上输出26个空格的语句
lea dx,outphone
call showchar ;输出号码
ret
printline endp
code ends
end begin

[此贴子已经被作者于2006-12-30 18:03:03编辑过]

谢谢了，

我先来慢慢学习一下!