汇编语言子程序设计-查找电话号码，不会的瞅瞅哦~~尤其是数据段的定义
实验：查找电话号码1：题目：查找电话号码phone2．实验要求1）要求建立一个可以存入50项的电话号码表，每项包括人名（20字符）和电话号码（8字符）两部分;2）程序可以接受用户输入的人名及相应的电话号码，并把它们加入到电话号码表中;3）凡有新的输入后，程序可以按人名对电话号码进行排序;4）程序可接收需要查找的电话号码的人名，并从电话号码表中查出电话号码，再在屏幕上以如下格式显示name telxxxxx xxxxxxxxxx3.提示：程序采用子程序结构http://my.csdn.net/uploads/201205/23/1337775323_7909.png模块说明：1.main：作为主程序调用其他模块，完成程序功能。2:menu :作为主菜单供用户选择操作所用。3:input_name:作为输入姓名子程序块。4: input_phone:作为输入电话号码子程序。5: ifchar:作为判断输入姓名是否含非字母字符的子程序。6:ifnum:作为判断输入电话号码是否含非数字字符的子程序。7:store:存储输入姓名或者电话号码等内容的子程序。8 name_sort:对已经输入的电话记录按姓名排序的子程序。9:name_search:在已经输入的电话记录中查找所需号码的子程序。10:printline:输出已经查找到的电话记录。11:clear_screen:在菜单选择之间，适时清除屏幕冗余性息的子程序。12:cursor :清屏后光标重定位的子程序。13:crlf:回车换行的子程序
view plaincopyprint?
[*]<pre class="plain" name="code">msgmacro message ;输出提示符的宏
[*]lea dx,message
[*]mov ah,09
[*]int 21h
[*]endm
[*]datasg segment
[*]tel_tab db2700 dup(?),'
[*]count dw0
[*]count1 dw0
[*]count2 dw0
[*]count3 dw0
[*]count4 dw15
[*]count5 dw0
[*]result db0
[*]num dw0
[*]ifnumy dw0
[*]ifchary dw0
[*]window db'**************************************************************************' ,13,10
[*] db' A Telphonenumber Store And Search System' ,13,10
[*] db' ' ,13,10
[*] db' Author:HNU Dingqiao Wang 2010-6 ' ,13,10
[*] db' ' ,13,10
[*] db'**************************************************************************',13,10,';程序相关的界面
[*]mess1 db'Input Name( max14 char):','
[*]
[*]mess2 db'Input A Number( max 11 num):','
[*]
[*]mess4 db'Not In The Table ,Check Your Spelling Or Try Again! ','
[*]
[*]mess5 db' Result As follow: ',13,10
[*] db'Name***********TEL********',13,10 ,';程序相关的界面
[*]mess6 db'-----------------------------------------------',13,10,'
[*]
[*]mess7 db' * Additem',13,10
[*] db' * Search',13,10
[*] db' * View',13,10
[*] db' * Exit',13,10,13,10
[*] db'Make a choice ',13,10,'
[*]
[*]mess8 db'Check Your Inputting,It ContainsNone Char !',13,10,';程序相关的提示符
[*]mess9 db'Check Your Inputting,It ContainsNone Number!',13,10,'
[*]
[*]mess10 db'NoRecord, CheckYourInputtingAnd Try Again!',13,10,'
[*]
[*]mess11 db'TheName You wantsearch:','
[*]
[*]tip db' System Tips: ',13,10
[*] db'You can press A Key List In The Menu ',13,10
[*] db'Then System Will Work For You ',13,10,13,10,'
[*]
[*]name1 label byte
[*]max1 db15
[*]act1 db?
[*]str1 db15 dup(?)
[*]tel label byte
[*]max2 db12
[*]act2 db?
[*]str2 db12 dup(?)
[*]datasgends
[*];------------------------------------------------
[*]codesgsegment
[*]assume cs:codesg,ds:datasg,es:datasg
[*]main proc far
[*]start:
[*]push ds
[*]sub ax,ax
[*]push ax
[*]movax,datasg
[*]mov ds,ax
[*]mov es,ax
[*];---------
[*]msg window;程序相关的界面
[*]call menu
[*]quit: ;返回DOS系统
[*]mov ah,4ch
[*]int 21h
[*]main endp
[*];------------------------------------------------
[*]menuproc near ;显示选择菜单，包括输入、查看、查询、退出
[*]msg mess7
[*]call crlf
[*]mov ah,07
[*]int 21h
[*]cmp al,0dh ;键入回车则查询相应纪录
[*]jeinputproc;输入
[*]cmp al,20h ;键入空格则查询相应纪录
[*]jeinputproc;输入
[*]cmp al,'s' ;键入s则查询相应纪录
[*]jesear;查询
[*]cmp al,'v' ;键入v则查看所有纪录
[*]jeallrecord;查看
[*]cmp al,1bh;Esc键退出
[*]jequit ;退出
[*]jmp help
[*]allrecord:
[*]call viewall;调用查看已有纪录子程序
[*]jmp exitmenu
[*]inputproc:
[*]call input;调用输入子程序
[*]jmp exitmenu
[*]sear:
[*]cmp count,0
[*]je promp
[*]call clear_screen
[*]call name_search;调用电话号码查询子程序
[*]jmp exitmenu
[*]promp:
[*]msg mess10
[*]call crlf
[*]call menu
[*]help:
[*]mov dl,07
[*]mov ah,02
[*]int 21h
[*]call clear_screen ;清除屏幕
[*]msg tip
[*]call menu
[*]exitmenu:
[*]ret
[*]menu endp
[*];------------------------------------------------
[*]input proc near ;输入子程序，调用输入姓名及输入电话号码子程序
[*]mov bx,num
[*]callinput_name;调用输入姓名函数
[*]callinput_phone;调用输入号码函数
[*]inc count
[*]add bx,12
[*]mov byte ptr tel_tab,'
[*]
[*]mov num,bx
[*]call name_sort
[*]call clear_screen
[*]callmenu
[*]ret
[*]input endp
[*];-------------------------------------------------
[*]input_nameprocnear;存入姓名函数
[*]push cx
[*]lea dx,mess1
[*]mov ah,09
[*]int 21h
[*];-------
[*]lea dx,name1 ;将输入姓名存入到缓冲区name1
[*]mov ah,0ah
[*]int 21h
[*];-------
[*]mov cl,act1;检验输入的人名是否包含非字母的字符
[*]mov si,0
[*]test1:
[*]moval, str1
[*]call ifchar
[*]cmp ifchary,'y'
[*]jneerror1
[*]goon:
[*]inc si
[*]loop test1
[*];-------
[*]move1:
[*]mov cl,act1
[*]lea si ,str1
[*]lea di,tel_tab
[*]call store;输入的电话纪录人名存入电话表
[*]call crlf
[*]pop cx
[*]jmp exitname
[*]error1:
[*]msg mess8
[*]call crlf
[*]call menu
[*]exitname:
[*]ret
[*]input_name endp
[*];------------------------------------------------
[*]input_phone proc near;存入电话号码函数
[*]push cx
[*]lea dx,mess2
[*]mov ah,09h
[*]int 21h
[*];---------
[*]lea dx,tel;将输入姓名存入到缓冲区tel
[*]mov ah,0ah
[*]int 21h
[*];-------
[*]mov cl,act2 ;检验输入的人名是否包含非数字的字符
[*]mov si,0
[*]test2:
[*]moval, str2
[*]call ifnum
[*]cmp ifnumy,'y'
[*]jne error2
[*]inc si
[*]loop test2
[*];--------------
[*]move2:
[*]add bx,15
[*]mov cl,act2
[*]lea si ,str2
[*]lea di ,tel_tab
[*]call store;输入的电话号码存入电话表
[*]call crlf
[*]pop cx
[*]jmp exitphone
[*]error2:
[*]msg mess9
[*]call crlf
[*]call menu
[*]exitphone:
[*]ret
[*]input_phone endp
[*];-------------------------------------------------
[*]ifchar proc near ;判断输入是否为姓名字母子程序，结果存入ifchary中
[*]cmp al,'.'
[*]je permit
[*]cmpal,20h
[*]je permit
[*]cmpal,41h
[*]jb error1
[*]cmpal,5ah
[*]jbepermit
[*]cmp al,61
[*]jb error3
[*]cmp al,7ah
[*]jnbe error3
[*]permit:
[*]mov ifchary,'y'
[*]jmp exitif1
[*]error3:
[*]mov ifchary,'n'
[*]exitif1:
[*]ret
[*]ifchar endp
[*];-------------------------------------------------
[*]ifnum proc near;判断输入是否为电话号码数字子程序，结果存入ifnumy中
[*]sub al,30h
[*]cmpal,0h
[*]jb error4
[*]cmpal,9h
[*]jnbe error4
[*]mov ifnumy,'y'
[*]jmp exitif2
[*]error4:
[*]mov ifnumy,'n'
[*]exitif2:
[*]ret
[*]ifnum endp
[*];-------------------------------------------------
[*]store proc near;存储输入内容程序函数
[*]cld
[*]rep movsb;串传送指令，存入相应的内容到电话表
[*]ret
[*]store endp
[*];-------------------------------------------------
[*]name_sort procnear;按名字冒泡法排序函数
[*]mov cx,count
[*]cmp cx,1
[*]jeexits
[*]dec cx
[*]lop2:
[*]movcount1,cx
[*]mov bx,0
[*]lop3:
[*]call compare
[*]cmp result,'>'
[*]jnecontinue
[*]change:
[*]mov count2,cx
[*]mov cl, 26
[*]mov di,0
[*]exchange: ;排序时移动纪录的程序段，本来想用rep movsb，但一直应为名字长度不同而出现错误
[*]mov al,tel_tab
[*]xchgal,tel_tab
[*]movtel_tab,al
[*]inc di
[*]loopexchange
[*]mov cx,count2
[*]continue:
[*]addbx,27
[*]looplop3
[*]movcx,count1
[*]loop lop2
[*]exits:
[*]ret
[*]name_sort endp
[*];------------------------------------------------
[*]compare proc near;按名字15为循环比较函数，结果存贮到result中，供name_sort函数判断
[*]movsi,bx
[*]comp:
[*]mov al,tel_tab
[*]cmp al,'Z'
[*]jnb goon2
[*]add al,20h;比较时不区分大小写，遇到大写转换为小写
[*]goon2:
[*]mov dl, tel_tab
[*]cmp dl,'Z'
[*]jnb goon3
[*]add dl,20h;比较时不区分大小写，遇到大写转换为小写
[*]goon3:
[*]cmp al,dl
[*]jlexit4;两个名字中a<a，结果保存到result位'<'
[*]jgexit5;两个名字中a>a，结果保存到result位'>'
[*]inc si
[*]dec count4
[*]jnz comp
[*]exit4:
[*]mov result ,'<'
[*]ret
[*]exit5:
[*]mov result ,'>'
[*]ret
[*]compare endp
[*];------------------------------------------------
[*]name_search proc near;按姓名查找电话号码
[*]mov count5,0
[*]msgwindow
[*]call crlf
[*]msgmess11
[*]lea dx,name1
[*]mov ah,0ah
[*]int 21h
[*]lea si,str1
[*]mov cl,act1
[*]test3:;检验输入的姓名中是否包含非字母
[*]mov al,
[*]call ifchar
[*]cmp ifchary,'y'
[*]jne error5 ;若包含非字母则提示并转到菜单重新选择
[*]inc si
[*]loop test3
[*]mov bx,0
[*]mov cx,count;根据输入的姓名，在电话表中循环查询是否有此纪录
[*]search:
[*]push cx
[*]call searchresult ;调用大小写兼容查询子程序
[*]continue2:
[*]add bx,27
[*]pop cx
[*]loopsearch
[*]cmp count5,0
[*]jnz exitsear
[*]msgmess10
[*]msgmess6
[*]call crlf
[*]call menu
[*]jmp exitsear
[*]error5:
[*]msg mess8
[*]exitsear:
[*]msg mess6
[*]mov count5,0
[*]call menu
[*]ret
[*]name_searchendp
[*];------------------------------------------------
[*]searchresultproc near ;搜索结果的判断子程序
[*]call crlf
[*]leasi,str1
[*]mov cl,act1
[*]mov di,0
[*]check:;check段的作用为大小写兼容查询状态
[*]mov al,
[*]cmp al,tel_tab ;算法为假设输入为小写，先匹配，无结果则转换为大写查询，若仍然无结果，
[*]jneonece1 ;则可以断定为输入为大写或者确实无结果，当输入为大写是先前的操作引起al值改变
[*]je again ;此时应该将al+40h,再次判断，若在不成功，则应该为的确没有记录。
[*]onece1:
[*]sub al,20h
[*]cmp al,tel_tab
[*]jneonece2
[*]je again
[*]onece2:
[*]add al,40h
[*]cmp al,tel_tab
[*]jneexitresult
[*]again:
[*]inc si
[*]inc di
[*]loop check
[*]getit:
[*]inc count5
[*]call printline
[*]exitresult:
[*]ret
[*]searchresult endp
[*];------------------------------------------------
[*]viewallproc near;显示当前已存入所有经过排序的纪录
[*]call clear_screen;清屏
[*]cmp count ,0
[*]jeexit8;当前无记录时提示符
[*]call crlf
[*]msg mess5
[*]call crlf
[*]movcx ,count
[*]mov bx,0
[*]view:
[*]lea dx,tel_tab
[*]mov ah,09
[*]int 21h
[*]call crlf
[*]add bx,27
[*]loopview
[*]exit7:
[*]msg mess6
[*]call crlf
[*]call menu
[*]jmp exitprint
[*]exit8:
[*]msg mess10
[*]call crlf
[*]exitprint:
[*]msg mess6
[*]call menu
[*]ret
[*]viewall endp
[*];------------------------------------------------
[*]printline proc near;输出查询结果
[*]cmp count5,1
[*]jnbe print
[*]msg mess5
[*]print:
[*]lea dx,tel_tab
[*]mov ah,09
[*]int 21h
[*]call crlf
[*]ret
[*]printline endp
[*];-------------------------------------------------
[*]clear_screen proc near ;清除屏幕子程序
[*]push ax
[*]push bx
[*]push cx
[*]push dx
[*]mov ah,6
[*]mov al,0
[*]mov bh,7
[*]mov ch,0
[*]mov cl,0
[*]mov dh,24
[*]mov dl,79
[*]int 10h
[*]mov dx,0
[*]mov ah,2
[*]int 10h
[*]mov dh,0
[*]call cursor
[*]pop dx
[*]pop cx
[*]pop bx
[*]pop ax
[*]ret
[*]clear_screen endp
[*];-------------------------------------------------
[*]cursor proc near ;重置光标位置子程序，置光标为第零行和第零列
[*]push ax
[*]push bx
[*]push cx
[*]push dx
[*]movah,02
[*]movbh,00
[*]movdl,00
[*]movdh,00
[*]int10h
[*]xor bh,bh
[*]mov dh,0
[*]mov dl,0
[*]mov ah,02
[*]int 10h
[*]pop dx
[*]pop cx
[*]pop bx
[*]pop ax
[*]ret
[*]cursor endp
[*];-------------------------------------------------
[*]crlf proc near;输出回车换行
[*]push ax
[*]push cx
[*]mov dl,0dh
[*]mov ah,02h
[*]int 21h
[*];----------
[*]mov dl,0ah
[*]mov ah,02h
[*]int 21h
[*]pop cx
[*]pop ax
[*]ret
[*]crlf endp
[*];------------------------------------------------
[*]codesg ends
[*]endstart
[*]</pre>
[*]<pre></pre>
[*]<p>**************************************************************************************</p>
[*]<p>运行时图片:</p>
[*]<p><span style="font-family:楷体_GB2312; font-size:18pt"><img alt="" src="http://hi.csdn.net/attachment/201106/14/0_1308028199MvOu.gif"></span></p>
[*]<p><span style="font-family:楷体_GB2312; font-size:18pt"><img alt="" src="http://hi.csdn.net/attachment/201106/14/0_130802821031gz.gif"></span></p>
[*]<p></p>
[*]<p><span style="font-family:楷体_GB2312; font-size:18pt"></span></p>
[*]<p><span style="font-size:16px"></span></p>
[*]<p style="color:rgb(255,0,0)"><span style="font-size:16px">本文配套源码下载地址:</span></p>
[*]<p><a href="http://download.csdn.net/detail/ziyuanxiazai123/2618110"><span style="font-size:16px">http://download.csdn.net/detail/ziyuanxiazai123/2618110</span></a><span style="font-family:楷体_GB2312; font-size:18pt"></span></p>
[*]<p> </p>
[*]<pre></pre>
[*]<pre></pre>
[*]<pre></pre>
[*]<pre></pre>
[*]<pre></pre>
[*]<pre></pre>
[*]<pre></pre>
[*]<pre></pre>
[*]<pre></pre>
[*]<pre></pre>
还是有好多地方看不懂。要加油了 s0512 发表于 2012-11-21 08:02 static/image/common/back.gif
还是有好多地方看不懂。要加油了
那段宏汇编我也看不懂，这是转的，嘿嘿 多谢LZ分享了哈，多谢了
页:
[1]