汇编语言实验五、子程序和宏

1、编写子程序，传递一个字节无符号数组，返回最大值。要求用堆栈传递入口参数，返回值在al。

.MODEL SMALL,C
.STACK 100H
.DATA
buf	db 11h,33h,88h,55h,66h,44h,99h,22h,77h,01h
buf_l equ lengthof buf
buf_t equ type buf
m	db ?
.CODE
main proc 
.STARTUP
	mov bx,offset buf
	push bx
	mov bx,buf_l
	push bx
	call max
	mov m,al
	PUTHEX m
.EXIT
main endp

max proc near
P1 EQU WORD PTR [BP+6]
P2 EQU WORD PTR [BP+4];从4开始，是因为系统在使用call指令的时候会直接将返回点的地址压入参数之上的栈位，栈高度越高，位越低，所以是+2
	push bp
	mov bp,sp
	push bx
;上面三行代码是固定的模板
	push si 
;将我们需要用到的寄存器压入栈中，起到保护的作用
	
	mov si,p1
	mov bx,0
	mov al,[bx][si]
	inc bx
	.while bx<P2
		.if al<[bx][si]
			mov al,[bx][si]
		.endif
		inc bx
	.endw
	
	pop bx
	pop bp
	pop si
	ret 4;这里是4，是因为主程序压入了两个参数进来（两次bx)，总共4字节，所以要返回4字节
max endp
END

2、已定义两个字符串s1、s2（以‘$’为结束符），编写一个字符串比较的子程序， s1>s2返回01h，s1=s2返回00h，s1<s2返回0ffh。将返回值存入s3。

.model small,c
.stack 100h
.data
s1 db 'jifeso$'
s2 db 'fije$'
s3 db ?
.code
main proc
.startup
mov ax,offset s1
push ax
mov ax,offset s2
push ax
call strcmp
;需要明确一点，字符串比较函数的原理,从第一个字符开始，逐个比较两个字符串中对应位置的字符
;如果两个字符相等，则继续比较下一个字符；
;如果不相等，则返回不相等的结果
mov s3,al
.exit
main endp
strcmp proc
p1 equ word ptr[bp+6];s1的起始地址
p2 equ word ptr[bp+4];s2的起始地址
push bp
mov bp,sp
push bx
push si
push di

mov bx,0
mov si,p1
mov di,p2
mov al,0
.while([bx][si]!='$')&&([bx][di]!='$')
mov ah,[bx][si]
.if ah>[bx][di]||([bx][di]!='S')
mov al,1
.break
.endif

.if ah<[bx][di]||ah=='$'
mov al,0ffh
.break
.endif
inc bx
.endw
pop di
pop si
pop bx
pop bp
ret 4
strcmp endp
end

3、编程一个求sum=1+2+…+n的子程序，入口参数为字节数n，出口为字节数sum（不考虑和溢出），要求用递归实现。

.model small
.stack 200h
.data
num	word 5
sum	word 0
.code
main proc
.startup

push num
call SumN
mov sum,ax
	
.exit
main endp

SumN proc near
P1 EQU word ptr [bp+4]
	push bp
	mov bp,sp

	.if P1 > 1
		dec P1
		push P1
		call SumN
		add ax,P1
		inc ax
	.else
		mov ax,1
	.endif

	pop bp
	ret 2
SumN endp

End

4、编写宏，将源地址开始的n个字节复制到目的地址，三个参数为源地址，目的地址和字节数。

strCopy macro s1,s2,len
local l1
	push ax
	push cx
	mov si,s1
	mov di,s2
	mov cx,len
l1:
	mov al,[si]
	mov [di],al
	inc si
	inc di
	loop l1
	pop cx
	pop ax
endm

.MODEL SMALL,C
.STACK 100
.DATA
s1 db 'abcdefghijklmn'
s2 db 10h dup(0)
len equ 6

.CODE
.STARTUP
strCopy offset s1,offset s2,len
.EXIT
END