实验2.4 查找电话号码
1.题目:查找电话号码
2.实验要求:
(1)要求程序建立一个可存放50项的电话号码表,每项包括人名(20个字符)以及电话号码(8个字符)两部分;
(2)程序可接收输入人名及相应的电话号码,并把它们加入电话号码表中;
(3)凡有新的输入后,程序按照人名对电话号码重新排序;
(4)程序可接收需要查找电话号码的人名,并从电话号码表中查出其电话号码,再在屏幕上按照格式输出。
;********************************************************************
datarea segment
mess1 db 'Please input name:','$'
mess2 db 'Please input telephone number:','$'
mess3 db 'Do you want to search a telephone number?(y/n)','$'
mess4 db 0dh,0ah,'what is the name?','$'
mess5 db 'Not find',0dh,0ah,'$'
mess6 db 'the number you want to store:','$'
crlf db 0dh,0ah,'$'
stokin1 label byte
max1 db 21
act1 db ?
stokn1 db 21 dup(?)
stokin2 label word
max2 db 9
act2 db ?
stokn2 db 9 dup(?)
numtable db 50 dup(28 dup(?))
name_count dw 0
endaddr dw ?
swapped dw ?
totalnum dw ?
savenp db 28 dup(?),0dh,0ah,'$'
searchaddr dw ?
flag db ?
flagb db ?
show db 'name phone',0dh,0ah,'$'
datarea ends
;********************************************************************
codesg segment
assume ds:datarea,cs:codesg,es:datarea
main proc far
mov ax,datarea
mov ds,ax
mov es,ax
lea di,numta