【文章內(nèi)容簡介】 查詢電話號(hào)碼的人名，并從電話號(hào)碼表中查出其電話號(hào)碼，再在屏幕上以如下格式顯示出來。 Name tel 二、 設(shè)計(jì)說明 （ 1）顯示提示符 ’ Input name:’ 。 （ 2）調(diào)用子程序 input_name 接收人名 。 （ 3）調(diào)用子程序 stor_name 把人名存入電話號(hào)碼表 tel_tab 中： （ 4）顯示提示符 ’ Input a telephone number:’ 。 （ 5）調(diào)用子程序 inphone 接收電話號(hào)碼，并把它存入電話號(hào)碼表 tel_tab 中 。 （ 6）如輸入已結(jié)束則調(diào)用 name_sort 子程序?qū)﹄娫捥?hào)碼表接人名排序 。 （ 7）顯示提示符 ’ Do you want a telephone number ?(Y/N)’ 。 （ 8）回答 N收退出程序 。 （ 9）回答 Y則再顯示提示符 ’ name ?’ 。 （ 10）調(diào)用子程序 input_name 接收人名 。 （ 11）調(diào)用子程序 name_search 在電話號(hào)碼表中查找所要的電話號(hào)碼 。 （ 12）調(diào)用子程序 printline 按要求格式顯示人名及電話號(hào)碼 。 （ 13）重復(fù)查號(hào)提示符直至用戶不要求查號(hào)為止。 三、設(shè)計(jì)思路 四 、模塊說明 模塊名 輸入 輸出 功能 main 總控制模塊 用戶的各種操作選擇 如選擇是否繼續(xù)插入，繼續(xù)查詢等 各種提示信息，如提示輸入姓名、號(hào)碼、提示是否繼續(xù)操作 建立聯(lián)系人號(hào)碼表，對(duì)號(hào)碼表人名排序，提供查詢、顯示功能 input_name 聯(lián)系人的姓名到tname 緩沖區(qū) 無 讀入姓名到 tname緩沖區(qū)并把不滿20 位部分補(bǔ)空格 name_search tname 緩沖區(qū)的姓名 查找結(jié)果放在 bx寄存器 在號(hào)碼表查找tname 緩沖區(qū)的姓名，找到則 bx 存放該記錄的地址，否則（ bx） =1 crlf 無 回車換行 輸出回車換行 stor_name tname 緩沖區(qū)的姓名 把 tname 緩沖區(qū)的姓名移動(dòng)到號(hào)碼表，對(duì)應(yīng)記錄數(shù)tab_len 增 1 ，endaddr 增 28 把姓名從緩沖區(qū)移動(dòng)到號(hào)碼表 inphone 電話號(hào)碼 把 inphone 緩沖區(qū)的號(hào)碼移動(dòng)到號(hào)碼表中 讀入電話號(hào)碼并轉(zhuǎn)存到號(hào)碼表中 name_sort 從 tab_len 取出記錄數(shù)，從 endaddr取出最后一個(gè)記錄地址。號(hào)碼表中只有最后一個(gè)記錄無序，前面記錄有序 排序 對(duì)號(hào)碼表進(jìn)行排序（用插入排序，每次輸入一個(gè)聯(lián)系人后進(jìn)行排序） print_all 號(hào)碼表的地址 無 顯示號(hào)碼表中的所有電話 號(hào)碼 printline 要顯示的聯(lián)系人地址存放在 bx 無 顯示單個(gè)聯(lián)系人的信息 五 、實(shí)驗(yàn)程序 dataseg segment namepar label byte maxnlen db 21 actnlen db ? _name db 21 dup(?) phonepar label byte maxplen db 9 actplen db ? phone db 9 dup(?) crlf db 13,10,39。$39。 endaddr dw ? mess1 db 39。enter name:39。,39。$39。 mess2 db 39。enter a telephone number:39。,39。$39。 mess3 db 39。Do you want a telephone number?(Y/N)39。,39。$39。 mess4 db 39。name?39。,39。$39。 mess5 db 39。name39。,16 dup(39。 39。),39。tel39。,0dh,0ah,39。$39。 mess6 db 39。Not in the table.39。,0dh,0ah,39。$39。 mess7 db 39。Invalid input!39。,0dh,0ah,39。$39。 count db 0 tel_tab db 50 dup(20 dup(39。 39。),8 dup(39。 39。)) temp db 20 dup(39。 39。),8 dup(39。 39。),0dh,0ah,39。$39。 swapped db 0 dataseg ends 。********************************************************************** codeseg segment main proc far assume cs:codeseg,ds:dataseg,es:dataseg start: push ds sub ax,ax push ax mov ax,dataseg mov ds,ax mov es,ax。 cld lea di,tel_tab 。di 中存放表首地址 inputloop: mov ah,09h lea dx,mess1 int 21h call input_name cmp actnlen,0 。沒有輸入人名時(shí) jz a1 。直接跳到提示是否查找的地方 cmp count,50 。輸入上限 je a1 call stor_name 。保存人名到 tel_tab mov ah,09h lea dx,mess2 int 21h call input_stor_phone 。輸入并保存電話號(hào)碼 jmp inputloop a1: cmp count,1 jbe searchloop 。如果沒有輸入或者輸入一個(gè) call name_sort 。排序 call disp_all 。顯示所有 searchloop: lea dx,mess3 mov ah,09h int 21h mov ah,01h int 21h cmp al,39。N39。 je exit cmp al,39。n39。 je exit cmp al,39。Y39。 je showname cmp al,39。y39。 je showname mov ah,09 lea dx,crlf int 21h lea dx,mess7 。非法輸入 mov ah,09h int 21h jmp searchloop showname: mov ah,09 lea dx,crlf int 21h lea dx,mess4 。當(dāng)輸入 Y 時(shí) ,顯示 39。name?39。 mov ah,09 int 21h call input_name 。輸入要查找的人名 call name_search 。查找 call printline jmp searchloop exit: ret main endp 。****************************************************** input_name proc near mov ah,0ah lea dx,namepar int 21h 。輸入名字 mov dl,0ah mov ah,02h int 21h 。換行 mov bh,0 。bx 高位置 0 mov bl,actnlen 。bx 低位置輸入名字個(gè)數(shù) mov cx,21 sub cx,bx 。計(jì)算剩下的長度 i1: mov _name[bx],20h inc bx loop i1 。把 bx 之后剩下的填充空格 ret input_name endp 。********************************************************* stor_name proc near inc count 。有人名輸入所以個(gè)數(shù)加 1 cld lea si,_name 。把 si指向剛才輸入名字的位置 mov