计算机与信息工程学院《汇编语言》课程设计说明书设计题目电话号码管理程序专业计算机班级学号姓名指导教师起止日期成绩黑龙江科技学院课程设计任务书一、设计题目：电话号码管理程序二、设计的主要内容：程序中含有电话号码簿及其联系人和联系方式，通过程序实现在电话号码簿中查找、增加、修改、删除和显示等操作，以电子显示的方式使电话号码簿的使用变得便捷。
指导教师：日期：教师评语：评阅成绩：评阅人：日期：摘要现代社会人与人之间进行通讯的主要工具离不开电话，当打电话给某人时，从电话簿中繁多的信息中查找对应的号码是很繁琐的事情。
根据现代人对快速查找电话簿信息的实际需要，设计了电话号码管理程序。
该程序是典型的信息管理程序，采用M a s m f o r W i n d o w s 为编译环境，D O S为运行环境，核心语言是汇编语言。
本程序主要分为五大模块：选择查找模块，增添模块，修改模块，删除模块和显示模块。
通过需求分析、程序设计、测试等过程，实现了对信息查找、增添、修改、删除和显示功能。
该程序满足了人们翻阅电话簿的实际需求，人们可以通过该电话号码管理程序随时调用电话号码簿，方便自己与他人的沟通，优化了信息配置，提高了生活效率，加速了生活节奏。
关键词：电话簿，信息管理，M a s m f o r W i n d o w s开始登录界面输入操作指令姓名选择号码选择姓名增添号码增添姓名修改号码修改姓名删除号码删除姓名显示号码显示进入对应指令操作项1 选题背景及意义进入21世纪以来，现代社会步入了高速的信息化的时代，人际之间的交往，新闻事件的传播，高科技设备的应用，远程技术操作，都离不开通讯设备。
对于个人而言，最常用的莫过于电话了。
但是伴随电话的普及，杂乱无章的电话号码持续困扰着人们，这反而成了现代高科技、信息化社会下的一块障碍，是快节奏下人们很难避免的一大问题。
随着信息技术的高速发展和各种各样的通讯设备的引入，作为人与人之间通讯的数据库，电话簿也要适应时代的发展。
现代通讯应该利用新的数据管理技术，开发数据管理程序，这样才能在激烈的现代社会中适应高节奏步伐。
2 主要设计内容及预期目标图2-1程序功能模块图本管理程序采用了M a s m f o r W i n d o w s为编译化境，D O S为运行环境，核心语言是汇编语言，使用者可以通过该管理程序灵活使用自己的电话簿，方便使用者。
该程序实施后，能够满足用户对号码选择查找，号码增添，号码修改，号码删除和号码显示进行操作，提高生活效率。
程序功能模块图如图2-1所示。
3 概要设计根据对工作流程的分析，程序可以分为以下几个功能模块。
(1)选择查找：根据姓名或电话查找目标信息。
(2)增添：根据姓名与电话号码为信息增添。
(3)修改：查找要修改的信息对应的姓名，从而修改此信息。
(4)删除：查找要删除的信息对应的姓名，从而删除此信息。
(5)显示：显示电话号码簿中储存的全部信息。
整个程序由主程序和六个分支程序组成，主程序负责对各个子程序的调用，完成程序的主体功能。
主程序如图3-1。
各个子程序负责不同的操作指令，完成对电话号码簿的详细操作。
程序流程如图3-2。
图3-1主程序界面图开始主菜单栏使用者选择操作项程序进入操作内容使用者按提示操作输入内容并确认退出图3-2主程序流程图4 详细设计4.1 选择查找模块选择查找模块。
该模块用来实现选择操作内容和以姓名或号码为查询关键字，对目标文件信息查询操作。
按钮使“1:S e l e c t”，进入信息选择模式。
在运行过程中，在“K e y6t o m a i n m e n u!”提示下按“6”，程序重新回到主菜单。
在“1:S e l e c t b y n a m e”提示下按“1”，查询进入以姓名为入口的查找方式，显示要查找的姓名和对应的号码；在“2:S e l e c t b y t e l e p h o n e”提示下按“2”，查询进入以号码为入口的查找方式，显示要查找的号码和对应的姓名。
选择查找程序界面如图4-1。
子程序流程如图4-2。
图4-1选择查找程序界面图图4-2子程序流程图4.2 增添模块增添模块。
该模块用来实现增添操作姓名和号码，对目标文件信息添加操作。
按钮使“2:I n s e r t”，进入增添模式。
在运行过程中，在“K e y6t o m a i n m e n u!”提示下按“6”，程序重新回到主菜单。
在“N a m e:”提示下输入姓名，在“T e l e:”提示输入号码。
每次输入完成后使用回车表示输入的结束，并且进入下一条操作。
增添程序界面如图4-3。
图4-3增添程序界面图4.3 修改模块修改模块。
该模块用来实现修改操作内容和以姓名或号码为查询关键字，对目标文件信息修改操作。
按钮使“3:M o d i f y”，进入修改模式。
在运行过程中，在“K e y6t o m a i n m e n u!”提示下按“6”，程序重新回到主菜单。
在“N a m e:”提示下输入姓名，在“T e l e:”提示输入号码。
每次输入完成后使用回车表示输入的结束，并且进入下一条操作。
修改程序界面如图4-4。
图4-4修改程序界面图4.4 删除模块删除模块。
该模块用来实现删除操作内容和以姓名或号码为查询关键字，对目标文件信息删除操作。
按钮使“4:D e l e t e”，进入信息删除模式。
在运行过程中，在“K e y6t o m a i n m e n u!”提示下按“6”，程序重新回到主菜单。
在“N a m e:”提示下输入姓名，在“T e l e:”提示输入号码。
每次输入完成后使用回车表示输入的结束，并且进入下一条操作。
删除程序界面如图4-5。
图4-5删除程序界面图4.5 显示模块显示模块。
该模块用来实现显示内容和以姓名或号码为查询关键字，对目标文件信息显示操作。
按钮使“5:S h o w a l l r e c o r d”，进入信息显示模式。
在运行过程中，在“K e y6t o m a i n m e n u!”提示下按“6”，程序重新回到主菜单。
显示程序界面如图4-6。
图4-6显示程序界面图5 使用说明（1）打开计算机启动W i n d o w s X P操作系统。
（2）打开“开始”，选择“所有程序”，打开“M a s m f o r W i n d o w s 集成实验环境”下的“M a s m f o r W i n d o w s集成实验环境”文件。
（3）保存空白文件到指定区域，导入程序。
（4）依次点击“运行”工具栏下“编译成目标文件”；“生成可执行文件”；“生成动态链接库文件”。
最后点击“运行”即可在D O S 环境下运行该程序。
6 设计总结为期两周的汇编语言课程设计已经结束了，但在两周的设计中，我认为自己有颇多得收获。
我们知道，汇编语言课程设计是我们计算机控制专业教学计划中的必不可少的实践环节，不仅巩固了我们所学的书本知识，而且为我们提供了一次理论与实践相结合的机会。
电话号码管理程序是信息管理程序中比较典型的。
系统地介绍了电话号码管理程序的开发过程，程序设计中隐含的问题及手机缺陷，通过实际使用找寻解决方法以便提高当前应用程序和改善工作性能.利用其提供的各种选项,在短时间内对电话号码簿进行查询等操作。
所以从一开始我就特别重视，想借此机会锻炼一下自己解决实际问题的能力，为以后的工作或学习打好基础。
确立设计题目之后，我就去大量搜集查阅相关资料，并提取有效素材，付出大量的精力，整合程序实现的全部功能。
该程序能够根据使用者的需求，快捷方便的为使用者提供服务。
对本设计题目进行的总体构思与设计，是先将该课题按所实现的功能将其分为查询、添加、修改、删除和显示模块，这样就会在脑海中形成一个清晰的设计思路，然后将这些功能模块通过主程序调用来实现。
然后就是分别编译子程序，使得每一个子程序实现各自的功能，完成不同的任务操作。
通过利用在课堂上学到的知识点和指令，并且搜集相关素材，先从主程序开始，然后一步一步的分别编写各个功能模块，为了使程序变得易读易修改，我采用分层标记的方式注明每一个模块，同时借鉴一些相关编程经验结合自己的设计思想完成这项任务。
最后调试程序，加以修改和完善，使得程序多而不乱。
总之，通过这次课程设计，使我更加认识到理论结合实际的重要性，只有将所学的理论知识灵活运用到实际中去才会体会到学习的乐趣。
我们不但要学习好书本上的理论知识，还要经常利用这些知识点活学活用，更多得思考与实践。
在每一次程序设计中反复总结经验教训，在失败中思考，学到更多实际的东西。
7 程序清单stacks segment ;堆栈段代码dw 512 dup(?)stacks endsdatas segment ;数据段代码titlestr db 'Welcome to the telephone directory!',0dh,0ah,'Please enter your choice!',0dh,0ah,'$'Menustr db '1:Select',0dh,0ah,'2:Insert',0dh,0ah,'3:Modify',0dh ,0ah,'4:Delete',0dh,0ah,'5:Show all record',0dh,0ah,'8:Esc',0dh,0ah,'$'namelist db 20 dup(20 dup(?))telelist db 20 dup(20 dup(?))newname db 20 dup(?)newtele db 20 dup(?)cnt db 1 dup(?)cntselect db 1 dup(?)choice db 1 dup(?)entered db 0dh,0ah,'$'disname db 'Name:$'distele db 'Tele:$'backstr db 'Key 6 to main menu!',0dh,0ah,'$'disstr db 'All record!',0dh,0ah,'$'selstr1 db '1:Select by name',0dh,0ah,'2:Select by telephone',0dh,0ah,'$'selstr2 db 'The imformation!',0dh,0ah,'$'selstr3 db 'Name is not exist!',0dh,0ah,'$' selstr4 db 'Telephone is not exi st!',0dh,0ah,'$' selstr5 db 'Telephone directory is empty!',0dh,0ah,'$'addstr1 db 'Insert the newname and newtele!',0dh,0ah,'$'addstr2 db 'Telephone directory is full!',0dh,0ah,'$'addstr3 db 'Add successfully!',0dh,0ah,'$'modstr1 db 'Newname:$'modstr2 db 'Newtele:$'modstr3 db 'Input new record!',0dh,0ah,'$' modstr4 db 'Modified successfully!',0dh,0ah,'$'delstr1 db 'Telephone directory is empty!',0d,0ah,'$'delstr2 db 'Deleted successfully!',0dh,0ah,'$'name1 db 'aaaaaaaaa$'name2 db 'bbbbbbbbb$'name3 db 'ccccccccc$'name4 db 'ddddddddd$'name5 db 'eeeeeeeee$'telephone1 db '11111111111$'telephone2 db '22222222222$'telephone3 db '33333333333$'telephone4 db '44444444444$'telephone5 db '55555555555$'datas endscodes segment ;代码段代码main proc farassume cs:codes,ds:datasdisplaytitle proc near ;显示主菜单mov dx,offset titlestrmov ah,9int 21hlea dx,menustrmov ah,9int 21hdisplaytitle endpcshdata proc near ;输入对比mov bx,0mov si,offset name1 ;045 name1 db 'aaaaaaaaa$' lea di,namelistadd di,bxmov cx,20cshname11:mov al,[si] ;073 mov si,offset name1mov [di],al ;074 lea di,namelistinc dicmp al,'$' ;比较name1是否为空jz cshname12 ;ZF=1 结果为零跳转loop cshname11 ;077 mov cx,20cshname12:add bx,20mov si,offset name2 ;046 name2 db 'bbbbbbbbb$' lea di,namelistadd di,bxmov cx,20cshname21:mov al,[si] ;073 mov si,of fset name1mov [di],al ;074 lea di,namelistinc siinc dicmp al,'$' ;比较name1是否为空jz cshname22 ;ZF=1 结果为零跳转loop cshname21 ;092 mov cx,20cshname22:add bx,20mov si,offset name3 ;047 name3 db 'ccccccccc$' lea di,namelistadd di,bxmov cx,20cshname31:mov al,[si] ;073 mov si,offset name1mov [di],al ;074 lea di,namelistinc sicmp al,'$' ;比较name1是否为空jz cshname32 ;ZF=1 结果为零跳转loop cshname31 ;108 mov cx,20cshname32:add bx,20mov si,offset name4 ;048 name4 db 'ddddddddd$' lea di,namelistadd di,bxmov cx,20cshname41:mov al,[si] ;073 mov si,offset name1mov [di],al ;074 lea di,namelistinc siinc dicmp al,'$' ;比较name1是否为空jz cshname42 ;ZF=1 结果为零跳转loop cshname41 ;124 mov cx,20cshname42:add bx,20mov si,offset name5 ;049 name5 db 'eeeeeeeee$' lea di,namelistadd di,bxmov cx,20cshname51:mov al,[si] ;073 mov si,offset name1mov [di],al ;074 lea di,namelistinc siinc dicmp al,'$' ;比较name1是否为空jz cshname52 ;ZF=1 结果为零跳转loop cshname51 ;140 mov cx,20cshname52:add bx,20mov ax,bx ;初始化计数器c ntmov bl,20div bllea si,cnt ;013 cnt db 1 dup(?)mov [si],al ;(al)<-(ax)/(bl)的商mov bx,0lea si,telephone1mov di,offset telelistadd di,bxmov cx,20cshtele11:mov al,[si] ;159 mov si,offset telephone1 mov [di],al ;160 lea di,telelistinc siinc dicmp al,'$' ;比较telephone1是否为空jz cshtele12 ;ZF=1 结果为零跳转loop cshtele11 ;162 mov cx,20cshtele12:add bx,20lea si,telephone2mov di,offset telelistadd di,bxmov cx,20cshtele21:mov al,[si] ;159 mov si,offset telephone1 mov [di],al ;160 lea di,telelistinc siinc dicmp al,'$' ;比较telephone1是否为空jz cshtele22 ;ZF=1 结果为零跳转loop cshtele21 ;178 mov cx,20cshtele22:add bx,20lea si,telephone3mov di,offset telelistadd di,bxmov cx,20cshtele31:mov al,[si] ;159 mov si,offset telephone1 mov [di],al ;160 lea di,telelistinc siinc dicmp al,'$' ;比较telephone1是否为空jz cshtele32 ;ZF=1 结果为零跳转loop cshtele31 ;194 mov cx,20cshtele32:add bx,20lea si,telephone4mov di,offset telelistadd di,bxmov cx,20cshtele41:mov al,[si] ;159 mov si,offset telephone1mov [di],al ;160 lea di,telelistinc siinc dicmp al,'$' ;比较telephone1是否为空jz cshtele42 ;ZF=1 结果为零跳转loop cshtele41 ;210 mov cx,20cshtele42:add bx,20lea si,telephone5mov di,offset telelistadd di,bxmov cx,20cshtele51:mov al,[si] ;159 mov si,offset telephone1mov [di],al ;160 lea di,telelistinc siinc dicmp al,'$' ;比较telephone1是否为空jz cshtele52 ;ZF=1 结果为零跳转loop cshtele51 ;210 mov cx,20cshtele52:add bx,20retcshdata endpdisdata proc near ;5:Show all recordmov dx,offset disstr ;020 di stele db 'Tele:$' mov ah,9int 21hlea si,cnt ;013 cnt db 1 dup(?)mov cl,[si]mov bx,0disdata1:mov dx,offset disname ;019 disname db 'Name:$' mov ah,9int 21hlea dx,namelistadd dx,bxmov ah,9int 21hmov dx,offset enteredmov ah,9int 21hmov dx,offset distele ;020 distele db 'Tele:$' mov ah,9int 21hlea dx,telelistadd dx,bxmov ah,9int 21hmov dx,offset enteredmov ah,9int 21hadd bx,20loop disdata1retdisdata endpadder proc near ;2:Insertmov si,offset cntmov al,[si]cmp al,20jb adder5 ;CF=1 不高于跳转lea dx,addstr2mov ah,9int 21hjmp adder6adder5:lea dx,addstr1mov ah,9int 21hlea dx,disname ;019 disname db 'Name:$' mov ah,9int 21hmov cl,19lea si,newname ;013 newname db 20 dup(?)adder1: ;逐字符输入名字mov ah,1int 21hcmp al,0dh ;比较是否回车jz adder2 ;ZF=1 结果为零跳转mov [si],al ;279 mov si,offset cntinc siloop adder1 ;295 mov cl,19adder2:mov al,24hmov [si],al ;279 mov si,offset cntlea si,cntmov bl,[si]xor ax,axmov al,20mul blmov di,offset namelistadd di,axmov cx,20cld ;DF=0 指针向增大方向移动rep movsb ;318 mov cx,20mov dx,offset enteredmov ah,9int 21hmov dx,offset distele ;020 distele db 'Tele:$' mov ah,9int 21hmov cl,19mov si,offset newteleadder3:mov ah,01int 21hcmp al,0dh ;比较是否回车jz adder4 ;ZF=1 结果为零跳转mov [si],al ;279 mov si,offset cntinc siloop adder3 ;327 mov cl,19adder4:mov al,24hmov [si],al ;279 mov si,offset cntlea si,cntmov bl,[si]xor ax,axmov al,20mul blmov si,offset newteleadd di,axmov cx,20cld ;DF=0 指针向增大方向移动rep movsb ;350 mov cx,20 mov dx,offset enteredmov ah,9int 21hmov si,offset cntmov al,[si]inc almov [si],allea dx,addstr3mov ah,9int 21hmov si,offset newnamemov cx,20adder7:mov al,0mov [si],alinc siloop adder7 ;364 mov cx,20 mov si,offset newtelemov cx,20adder8:mov al,0mov [si],alinc siloop adder8 ;372 mov cx,20 adder6:retadder endpselbyname proc near ;1:Selectmov si,offset cnt ;013 cnt db 1 dup(?)mov al,[si]cmp al,0ja selname6 ;CF或ZF=0 不低于跳转lea dx,selstr5mov ah,9int 21hjmp selname5selname6:mov dx,offset disname ;019 disname db 'Name:$' mov ah,9int 21hmov si,offset newnamemov cx,19selname1:mov ah,1int 21hcmp al,0dh ;比较是否回车jz selname2 ;ZF=1 结果为零跳转mov [si],al ;398 mov si,offset newnameinc siloop selname1 ;399 mov cx,19selname2:mov al,24hmov [si],almov dx,offset enteredmov ah,9int 21hmov si,offset cntmov dx,[si]mov bx,0selname3:mov si,offset newnamemov di,offset namelistadd di,bxmov cx,20cld ;DF=0 指针向增大方向移动repe cmpsb ;424 mov cx,20jz selname4 ;ZF=1 结果为零跳转add bx,20dec dxcmp dx,0 ;比较cnt是否为零jnz selname3 ;ZF=0 结果不为零跳转mov dx,offset selstr3mov ah,9int 21hmov dx,offset backstr ;024 backstr db 'Key 6 to main menu!',0dh,0ah,'$'mov ah,9int 21hmov ah,1int 21hmov si,offset choice ;028 choice db 1 dup(?) mov [si],alcmp al,'6' ;比较输入量是否为字符6jz menu1 ;输入6，返回主菜单 ZF=1 结果为零跳转jmp selname5selname4:mov dx,offset selstr2mov ah,9int 21hmov dx,offset disname ;019 disname db 'Name:$' mov ah,9int 21hmov dx,offset namelistadd dx,bxmov ah,9int 21hmov dx,offset enteredmov ah,9int 21hmov dx,offset distele ;020 distele db 'Tele:$' mov ah,9int 21hmov dx,offset telelistadd dx,bxmov ah,9int 21hmov dx,offset enteredmov ah,9int 21hmov ax,bx ;计算器记录查询到的是第几个mov bl,20div blinc almov si,offset cntselectmov [si],alselname5:mov si,offset newnamemov cx,20selname7:mov al,0mov [si],alinc siloop selname7 ;470 mov cx,20retselbyname endpselbytele proc near ;1:Selectmov si,offset cnt ;013 cnt db 1 dup(?)mov al,[si]cmp al,0 ;比较cnt是否为零ja seltele6 ;CF或ZF=0 不低于跳转lea dx,selstr5mov ah,9int 21hmov dx,offset backstrmov ah,9int 21hmov ah,1int 21hmov si,offset choice ;028 choice db 1 dup(?) mov [si],alcmp al,'6' ;比较输入量是否为字符6jz menu1 ;输入6，返回主菜单 ZF=1 结果为零跳转jmp seltele5seltele6:mov dx,offset distele ;020 distele db 'Tele:$' mov ah,9int 21hmov si,offset newtelemov cx,19seltele1:mov ah,1int 21hcmp al,0dh ;比较是否回车jz seltele2 ;ZF=1 结果为零跳转mov [si],al ;494 mov si,offset newtele inc siloop seltele1 ;495 mov cx,19seltele2:mov al,24hmov [si],almov dx,offset enteredmov ah,9int 21hmov si,offset cntmov dx,[si]mov bx,0seltele3:mov si,offset newtelemov di,offset telelistadd di,bxmov cx,20cld ;DF=0 指针向增大方向移动repe cmpsb ;520 mov cx,20jz seltele4 ;ZF=1 结果为零跳转add bx,20dec dxcmp dx,0 ;比较cnt是否为零jnz seltele3 ;ZF=0 结果不为零跳转mov dx,offset selstr4mov ah,9int 21hjmp seltele5seltele4:mov dx,offset selstr2mov ah,9int 21hmov dx,offset disname ;019 disname db 'Name:$' mov ah,9int 21hmov dx,offset namelistadd dx,bxmov ah,9int 21hmov dx,offset enteredmov ah,9int 21hmov dx,offset distele ;020 distele db 'Tele:$' mov ah,9int 21hmov dx,offset telelistadd dx,bxmov ah,9int 21hmov dx,offset enteredmov ah,9int 21hseltele5:mov si,offset newnamemov cx,20seltele7:mov al,0mov [si],alinc siloop seltele7 ;560 mov cx,20 retselbytele endpselect proc near ;1:Selectselect1:mov dx,offset selstr1mov ah,9int 21hmov ah,1int 21hcmp al,'1' ;比较输入量是否为字符1 jz select2 ;ZF=1 结果为零跳转cmp al,'2' ;比较输入量是否为字符2 jz select3 ;ZF=1 结果为零跳转jmp select1select2:call clearcall selbynamejmp select4select3:call clearcall selbyteleselect4:retselect endpmodify proc near ;3:Modifycall selbynamemov si,offset cntselectmov al,[si]cmp al,0 ;比较cntselect是否为零jz modify5 ;ZF=1 结果为零跳转lea dx,modstr3mov ah,9int 21hmov dx,offset modstr1mov ah,9int 21hmov si,offset newnamemov cx,20modify1:mov ah,1int 21hcmp al,0dh ;比较是否回车jz modify2 ;ZF=1 结果为零跳转mov [si],al ;608 mov si,offset newname inc siloop modify1 ;609 mov cx,20modify2:mov al,24hmov [si],almov dx,offset enteredmov ah,9int 21hjmp modify6modify5:jmp modify7modify6:mov dx,offset modstr2mov ah,9int 21hmov si,offset newtelemov cx,20modify3:mov ah,1int 21hcmp al,0dh ;比较是否回车jz modify4 ;ZF=1 结果为零跳转mov [si],al ;635 mov si,offset newtele inc siloop modify3 ;636 mov cx,20modify4:mov al,24hmov [si],almov dx,offset enteredmov ah,9int 21hmov si,offset cntselectmov al,[si]dec almov bl,20mul blmov si,offset newnamemov di,offset namelistadd di,axmov cx,20cld ;DF=0 指针向增大方向移动rep movsb ;661 mov cx,20mov si,offset newtelemov di,offset telelistadd di,axmov cx,20cld ;DF=0 指针向增大方向移动rep movsb ;667 mov cx,20mov si,offset cntselectmov ax,0mov [si],axmov dx,offset modstr4mov ah,9int 21hmodify7:mov si,offset newnamemov cx,20modify8:mov al,0mov [si],alinc siloop modify8 ;679 mov cx,20 mov si,offset newnamemov cx,20modify9:mov al,0mov [si],alinc siloop modify9 ;687 mov cx,20retmodify endpdelete proc near ;4:Deletemov si,offset cnt ;013 cnt db 1 dup(?) mov al,[si]cmp al,0 ;比较cnt是否为零ja delete1 ;CF或ZF=0 不低于跳转lea dx,delstr1mov ah,9int 21hjmp delete2delete1:call selbynamemov si,offset cntselectmov al,[si]cmp al,0 ;比较cntselect是否为零jz delete1 ;ZF=1 结果为零跳转mov si,offset cntselectmov cl,[si]dec clmov al,20mul clmov bx,axmov si,offset cntmov cl,[si]dec clmov al,20mul clmov dx,axmov si,offset namelistmov di,offset namelistadd si,dxadd di,bxmov cx,20cld ;DF=0 指针向增大方向移动rep movsb ;729 mov cx,20mov si,offset telelist ;010 telelist db 20 dup(20 dup(?))mov di,offset telelist ;010 telelist db 20 dup(20 dup(?))add si,dxadd di,bxmov cx,20cld ;DF=0 指针向增大方向移动rep movsb ;736 mov cx,20mov si,offset cntmov al,[si]dec almov [si],almov si,offset cntselectmov al,0mov [si],almov dx,offset delstr2mov ah,9int 21hdelete2:retdelete endpclear proc near ;取当前显示方式mov ah,0fhint 10hmov ah,0int 10hretclear endpstart:mov ax,datasmov ds,axmov es,axcall cshdatamenu1:call clearcall displaytitlemov ah,1int 21hcmp al,'1' ;比较输入量是否为字符1 jz sel ;ZF=1 结果为零跳转cmp al,'2' ;比较输入量是否为字符2 jz adde ;ZF=1 结果为零跳转cmp al,'3' ;比较输入量是否为字符3 jz modi ;ZF=1 结果为零跳转cmp al,'4' ;比较输入量是否为字符4 jz del ;ZF=1 结果为零跳转cmp al,'5' ;比较输入量是否为字符5 jz dis ;ZF=1 结果为零跳转cmp al,'8' ;比较输入量是否为字符8 jz out1 ;ZF=1 结果为零跳转jmp menu1sel:call clearcall selectjmp backadde:call clearcall adderjmp backmodi:call clearcall modifyjmp backdel:call clearcall deletejmp backdis:call clearcall disdataback:mov dx,offset backstrmov ah,9int 21hmov ah,1int 21hmov si,offset choice ;028 choice db 1 dup(?) mov [si],alcmp al,'6' ;比较输入量是否为字符6jz menu1 ;输入6，返回主菜单 ZF=1 结果为零跳转call clearjmp backout1:main endpcodes endsend start。
