汇编语言编写增删改查的电话本

• 主要难点
• 不足
• 代码

主要难点

find_item 函数的编写
这个函数的参数是一个待查询名字的字符串首地址，若找到则返回保存名字，电话的首地址，否则返回0
这里涉及到两个循环，一个是比较字符串的小循环，一个保证所有数据都被比较过的大循环
每次大循环需要重置EDI和ESI这两个对比的地址

不足

关于增加函数计算地址的地方，可以做一个全局变量（在.data中定义）来保存，下一个增加位置，不用每次都计算一次地址

代码

以下是汇编完整的代码

;模式定义-------------------------------------------------
.386
.model flat,stdcall
option casemap:none


;头文件--------------------------------------------------
include	windows.inc
include msvcrt.inc
includelib msvcrt.lib

;数据区--------------------------------------------------
.data

;定义结构体,保存名字和电话
ITEM_STRUCT struct
	szName 			BYTE			25			dup(0)
	szPhNumber 		BYTE			25			dup(0)
ITEM_STRUCT ends


;全局变量			变量名			个数		初始值
g_stItem			ITEM_STRUCT 	100 		dup(<'0'>)
g_stItem_In			ITEM_STRUCT					<'0','0'>
g_nCount			DWORD						0
g_nCountMax			DWORD						100
g_cCmd				BYTE						0h

;格式控制符字符串,方便调用
g_szScanFormat		BYTE			'%s %s',0h
g_szScanNameFormat	BYTE			'%s',0h
g_szPrintItemFormat	BYTE			'%s:',09h,09h,'%s',0d,0ah,0h
g_szGetCmdFormat	BYTE			'%c',0h
g_szCountFormat		BYTE			'There are %d phone numbers:',0dh,0ah,0h

;错误信息
g_szErrMax			BYTE			'ERR->Storage is full',0dh,0ah,0h

;普通信息
g_szClr				BYTE			'cls',0h
g_szPause			BYTE			'pause',0h
g_szAddMsg			BYTE			'Please enter a name and a phone number, name first:',0dh,0ah,0h
g_szNameIn			BYTE			'Please enter a name:',0h
g_szPhoneNumberIn	BYTE			'Please enter a phone number:',0h
g_szMenu			BYTE			'a.Add phone number',0dh,0ah,'s.Show all',0dh,0ah,'g.Get phone number by name',0dh,0ah,'m.Modify phone number by name',0dh,0ah,'d.Delete phone number by name',0dh,0ah,'c.Clear all',0dh,0ah,'q.Quit',0dh,0ah,'Please enter the first letter as command:',0h
g_szLineFeed		BYTE			 0dh,0ah,0h
g_szNotFind			BYTE			'Not find!',0dh,0ah,0h
g_szAllClear		BYTE			'All clear!',0dh,0ah,0h


;代码区-------------------------------------------------
.code
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
add_item proc
;更新栈底             
	push ebp
	mov ebp,esp
	
;开始ADD_ITEM
;判断是否存满
	mov edx,g_nCount
	mov eax,g_nCountMax
	cmp edx,eax
	jae add_item_err_max
;调用scanf接受信息,根据count计算出当前地址,此时edx还是count
	;输出提示语
	push offset g_szAddMsg
	call crt_printf
	add esp,4
	;计算首地址
	lea edi,[g_stItem]
	mov ecx,g_nCount
	imul eax,ecx,sizeof(ITEM_STRUCT)
	add edi,eax
	;scanf函数参数入栈
	lea eax,[edi+ITEM_STRUCT.szPhNumber]
	push eax
	lea eax,[edi+ITEM_STRUCT.szName]
	push eax
	push offset g_szScanFormat
	call crt_scanf
	add esp,12
	inc g_nCount
	jmp add_item_return
;如果大了,就用printf输出错误信息
add_item_err_max:
	push offset g_szErrMax
	call crt_printf
	add esp,4
	
;恢复栈底,返回
add_item_return:
	pop ebp
	ret
add_item endp

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
show_item proc
;保存栈状态
	push ebp
	mov ebp,esp
	
;利用loop与printf输出数据
	;获取当前count,并减一,加载源地址到esi
	
	;输出下当前数量
	push dword ptr g_nCount
	push offset g_szCountFormat
	call crt_printf
	add esp,8
	mov ecx,g_nCount
	;将首地址入edi
	lea edi,[g_stItem]
	;判断是否为零
	or ecx,ecx
	jne show_loop
	;显示提示语
	push offset g_szNotFind
	call crt_printf
	add esp,4
	
	jmp show_item_return
show_loop:
	;保存ecx
	push ecx
	;printf函数参数入栈
	lea eax,[edi+ITEM_STRUCT.szPhNumber]
	push eax
	lea eax,[edi+ITEM_STRUCT.szName]
	push eax
	push offset g_szPrintItemFormat
	call crt_printf
	add esp,12
	;换行
	push offset g_szLineFeed
	call crt_printf
	add esp,4
	;计算下一个读取地址
	add edi,sizeof(ITEM_STRUCT)
	;恢复ecx
	pop ecx
	loop show_loop
	
;恢复栈底,返回
show_item_return:
	;暂停看结果....
	push offset g_szPause
	call crt_system
	add esp,4
	;恢复栈
	pop ebp
	ret
show_item endp

;++++++++++++++++++++++++++++++++++++++++++++++++++++++++
find_item proc
;保存栈状态
	push ebp
	mov ebp,esp
	;开辟16个字节空间
	sub esp,10
;初始化比较首地址,保存当前计数
	lea edi,[g_stItem]	
	mov [ebp-4],edi
	mov ecx,g_nCount
	;初始化方向
	cld
;重置比较地址,最大长度
find_tiem_loop_big:
	;重置待比较地址
	mov edi,[ebp-4]
	mov esi,[ebp+8]
;字符串比较,一样就下一个字符比较
find_tiem_loop_small:
	;判断是否有一个为零
	cmp byte ptr [edi],0
	je find_item_loop_small_find_0
	cmp byte ptr [esi],0
	je find_item_loop_small_find_0
;到这里就说明俩个都不是\0,就正常比较
	;判断当前字节是否相同,cmpsb自动加地址!
	cmpsb
;若不同就直接到大循环
	jne find_tiem_loop_big_next
;跳到小循环
	jmp find_tiem_loop_small
	
;找到\0了,到这里说明至少有一个为零!
find_item_loop_small_find_0:
	;先判断是否两个数都为\0
	mov al,[edi]
	add al,[esi]
	;若结果为零则说明一样,直接找到了,到这里说明前面是判断完的,至少有个零才会到这里
	je find_item_success
;到这里就说明,不一样,可以进行下一个字符串比较了
find_tiem_loop_big_next:
	;判断ecx是否为零
	;计数器自减,判断是否为零,判断是否查询完毕
	dec ecx
	or ecx,ecx
;为零就说明到了最后一个字符串了,就该退出了
	je find_item_fail
;不为零就继续下一个
	;没有到最后一个就自增一个结构体大小
	;保存带比较的局部变量自增
	mov edi,[ebp-4]
	add edi,sizeof(ITEM_STRUCT)
	mov [ebp-4],edi
	jmp find_tiem_loop_big
	
find_item_success:	
;调用printf输出找到的值
	;edi即需要返回的值的地址
	mov eax,[ebp-4]
	jmp find_item_return

find_item_fail:
	;若没找到,返回0
	mov eax,0
	
;恢复栈底,返回
find_item_return:
	;返回开辟的栈
	add esp,10
	pop ebp
	ret
find_item endp

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++
get_item_number proc
;保存栈状态
	push ebp
	mov ebp,esp
;显示提示语
	push offset g_szNameIn
	call crt_printf
	add esp,4
;判断count是否为0,若零返回????????????????????????????????????????????????

;scanf 输入查询名字
	push offset g_stItem_In.szName
	push offset g_szScanNameFormat
	call crt_scanf
	add esp,8
;获取名字后调用find_item 返回找到的地址或者null
	push offset g_stItem_In.szName
	call find_item
	add esp,4
;判断是否找到
	or eax,eax
	je get_item_number_not_find
;找到了
	;printf输出
	lea ebx,[eax+ITEM_STRUCT.szPhNumber]
	push ebx
	push eax
	push offset g_szPrintItemFormat
	call crt_printf
	add esp,12
	jmp get_item_number_return


;没有找到,输出提示语
get_item_number_not_find:
	push offset g_szNotFind
	call crt_printf
	add esp,4

;恢复栈底,返回
get_item_number_return:
	;暂停看结果....
	push offset g_szPause
	call crt_system
	add esp,4

	pop ebp
	ret
get_item_number endp

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++
modify_item proc
;保存栈状态
	push ebp
	mov ebp,esp
;判断count是否为0
	mov ecx,g_nCount
	or ecx,ecx
	;若不等于零就继续,否则输出找不到并返回
	jne modify_item_normal
	;输出提示语
	push offset g_szNotFind
	call crt_printf
	add esp,4
	;直接调到结尾
	jmp modify_item_return
modify_item_normal:
;显示提示语,输入名字
	push offset g_szNameIn
	call crt_printf
	add esp,4

;scanf 输入查询名字
	push offset g_stItem_In.szName
	push offset g_szScanNameFormat
	call crt_scanf
	add esp,8
;获取名字后调用find_item 返回找到的地址或者null
	push offset g_stItem_In.szName
	call find_item
	add esp,4
;判断是否找到
	or eax,eax
	je modify_item_number_not_find
;这里就找到了,显示提示语,输入号码
	;先保存eax数据
	push eax
	;printf
	push offset g_szPhoneNumberIn
	call crt_printf
	add esp,4
;scanf参数,直接保存到位置
	pop eax
	add eax,ITEM_STRUCT.szPhNumber
	push eax
	push offset g_szScanNameFormat
	call crt_scanf
	add esp,8
	jmp modify_item_return
	
;这里是没找到	
modify_item_number_not_find:	
	push offset g_szNotFind
	call crt_printf
	add esp,4
	
	
;恢复栈底,返回
modify_item_return:
	;暂停看结果....
	push offset g_szPause
	call crt_system
	add esp,4
	
	pop ebp
	ret
modify_item endp

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++
copy_item proc
;保存栈状态
	push ebp
	mov ebp,esp
	cld
;将参数,存入寄存器,第一个参数是复制目的地址,第二个参数是源地址
;复制name
	mov edi,[esp+8]
	mov esi,[esp+0ch]
copy_item_name_loop:
	mov al,[esi]
	movsb
	;判断esi指向是否为\0,若是则结束,若不是则继续复制
	or al,al
	jne copy_item_name_loop
;复制phone number
	mov edi,[esp+8]
	add edi,ITEM_STRUCT.szPhNumber
	mov esi,[esp+0ch]
	add esi,ITEM_STRUCT.szPhNumber
copy_item_phone_number_loop:
	mov al,[esi]
	movsb
;判断esi指向是否为\0,若是则结束,若不是则继续复制
	or al,al
	jne copy_item_phone_number_loop
		
;恢复栈底,返回
copy_item_return:
	pop ebp
	ret
copy_item endp

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++
delete_item proc
;保存栈状态
	push ebp
	mov ebp,esp
	;获取当前个数
	mov ecx,g_nCount
	;判断是否为0
	cmp ecx,0
	je delete_item_not_find
;获取输入
	;显示提示语,输入名字
	push offset g_szNameIn
	call crt_printf
	add esp,4

	;scanf 输入查询名字
	push offset g_stItem_In.szName
	push offset g_szScanNameFormat
	call crt_scanf
	add esp,8
;判断 找到了咩?
	push offset g_stItem_In
	call find_item
	add esp,4
	;判断是否为零,为零则找不到,直接退出,eax保留地址!
	je delete_item_not_find
	;到这里就说明找到了,判断下是否是一个,一个的话直接清零
	;先删掉再说
	mov byte ptr [eax],0
	;放到目的寄存器中
	mov edi,eax
	;获取当前个数
	mov ecx,g_nCount
	;个数减一
	dec ecx
	;更新到全局变量
	mov g_nCount,ecx
;判断是否在最后一位!若是直接返回,若不是,则将最后一位复制到这里,eax保留地址!ecx可以用了
	imul eax,ecx,sizeof(ITEM_STRUCT)
	add eax,offset g_stItem
	mov esi,eax
	cmp esi,edi
;判断是否是最后一个,若是直接返回,若不是则将最后一位移到删除位置
	je delete_item_return
;调用复制函数,第一个参数是复制目的地址,第二个参数是源地址
	;保存复制地址
	push esi
	;调用复制
	push esi
	push edi
	call copy_item
	add esp,8
	;弹出复制地址,首地址赋值为零
	pop eax
	mov byte ptr [eax],0
		
	;下面是特殊处理,所以要跳过了
	jmp delete_item_return	

;到这里就说明找不到
delete_item_not_find:
	push offset g_szNotFind
	call crt_printf
	add esp,4
	;暂停输出
	push offset g_szPause
	call crt_system
	add esp,4
	
;恢复栈底,返回
delete_item_return:
	pop ebp
	ret
delete_item endp

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++
clear_all proc
;保存栈状态
	push ebp
	mov ebp,esp
	
;所有的首地址改为\0,并将count改为0
	;判断count是否为0
	mov ecx,g_nCount
	or ecx,ecx
	je clear_all_return
		
	;改\0
	lea edi,[g_stItem]
clear_all_loop:
	mov byte ptr [edi],0
	add edi,sizeof(ITEM_STRUCT)
	dec ecx
	or ecx,ecx
	;若ecx不是零就继续循环
	jne clear_all_loop
	
	;改count
	mov g_nCount,0
	
;恢复栈底,返回
clear_all_return:
	;输出提示语
	push offset g_szAllClear
	call crt_printf
	add esp,4
	;暂停输出
	push offset g_szPause
	call crt_system
	add esp,4
	
	pop ebp
	ret
clear_all endp

;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
main:

main_loop:
;清屏
	push offset g_szClr
	call crt_system
	add esp,4
;获取命令
	;显示菜单
	push offset g_szMenu
	call crt_printf
	add esp,4
	;获取命令
	push offset g_cCmd
	push offset g_szGetCmdFormat
	call crt_scanf
	add esp,8
;1 判断命令是否为Add phone number
case_1:
	cmp g_cCmd,'a'
	jne case_2
	call add_item
	jmp main_loop
;2 判断命令是否为Show all
case_2:
	cmp g_cCmd,'s'
	jne case_3
	call show_item
	jmp main_loop
;3 判断命令是否为Get phone number by name
case_3:
	cmp g_cCmd,'g'
	jne case_4
	call get_item_number
	jmp main_loop
;4 判断命令是否为Modify phone number by name
case_4:
	cmp g_cCmd,'m'
	jne case_5
	call modify_item
	jmp main_loop
;5 判断命令是否为Delete phone number by name
case_5:
	cmp g_cCmd,'d'
	jne case_6
	call delete_item
	jmp main_loop
;6 判断命令是否为Clear all
case_6:
	cmp g_cCmd,'c'
	jne case_7
	call clear_all
	jmp main_loop 
;7 判断命令是否为Quit
case_7:
	cmp g_cCmd,'q'
	jne main_loop
main_return:
	ret
	
end main
end