汇编语言实验报告四.doc

IBM-PC汇编语言 程序设计实验报告 （四） 姓名：周义 学号 老师：杨洪斌 一、实验目的 学习用汇编语言设计与编写子程序 二、实验要求 (1) 要求程序建立一个可存放50项的电话号码表，每项包括人名(20个字符)及电话号码(8个字符)两部分； (2) 程序可接收输入人名及相应的电话号码，并把它们加入电话号码表中； (3) 凡有新的输入后，程序应按人名对电话号码表重新排序； (4) 程序可接收需要查找电话号码的人名，并从电话号码表中查出其电话号码，再在屏幕上以如下格式显示出来。 name tel． X X X X X X X X 三、实验提示： （1）显示提示符 ’Input name:’; （2）调用子程序 input_name 接收人名; （3）调用子程序 stor_name 把人名存入电话号码表 tel_tab 中： （4）显示提示符 ’Input a telephone number:’; （5）调用子程序 inphone 接收电话号码，并把它存入电话号码表tel_tab中; （6）如输入已结束则调用 name_sort 子程序对电话号码表接人名排序; （7）显示提示符 ’Do you want a telephone number ?(Y/N)’; （8）回答N收退出程序; （9）回答Y则再显示提示符 ’name ?’; （10）调用子程序 input_name接收人名; （11）调用子程序 name_search 在电话号码表中查找所要的电话号码; （12）调用子程序 printline 按要求格式显示人名及电话号码; （13）重复查号提示符直至用户不要求查号为止。 四、实验程序 datarea segment tel_name label byte maxnlen db 20 namelen db ? namefld db 21 dup(?) ；定义20个字符的用于存放人名的字符串 tel_num label byte maxtlen db 8 tellen db ? telfld db 9 dup(?) ；定义8个字符的用于存放电话号码的字符串 tel_tab db 50 dup(20 dup( ), 8 dup( )) ；定义可存放50项纪录的电话号码表 tel_sav db 28 dup(?), 13, 10, $ list db 20 dup( ), 8 dup( ), 0dh, 0ah, $ ；定义电话号码表的每个条目 string1 db Input name:, $ string2 db Input a telphone number:, $ string3 db Do you want a telephone number?(Y/N), $ string4 db name?, $ string5 db Would you like to input a telephone list?(Y/N), $ string6 db The Tel_Lab is empty., $ string7 db There is no list fitting., $ string8 db name tel. , $ string9 db Do you want a Tel_Lab?(Y/N), $ endadd dw ? swapped db 0 tel_count db 0 ；计算电话号码表中的条目数量 datarea ends prognam segment main proc far ；主程序 assume cs: prognam, ds: datarea, es: datarea start: push ds sub ax, ax push ax mov ax, datarea mov ds, ax mov es, ax cld lea di