1
第六章 子程序结构
? 过程定义伪操作
? 子程序的调用与返回
? 保存与恢复寄存器
? 子程序的参数传送
? 子程序的嵌套与递归
2
1,过程定义伪操作
过程名 PROC NEAR ( FAR )
过程名 ENDP
（ 1） NEAR属性：调用程序和子程序在同一代码段中
（ 段内调用 ）
（ 2） FAR属性：调用程序和子程序不在同一代码段中
（ 段间调用 ）
.,
,
3
code segment
main proc far
……
call subr1
……
ret
main endp
subr1 proc near
……
ret
subr1 endp
code ends
segx segment
subt proc far
……
ret
subt endp
……
call subt
……
segx ends
segy segment
……
call subt
……
segy ends
4
子程序调用,隐含使用堆栈保存返回地址
call near ptr subp
(1) 保存返回地址
(2) 转子程序
call far ptr subp
(1) 保存返回地址
(2) 转子程序
子程序返回,ret
2,子程序的调用与返回
(SP)→ (IP)
(IP)
(CS)
(SP)→
5
3,保存与恢复寄存器
subt proc far
push ax
push bx
push cx
push dx
……
……
pop dx
pop cx
pop bx
pop ax
ret
subt endp
6
(1) 通过寄存器传送参数
(2) 通过存储器传送参数
(3) 通过地址表传送参数地址
(4) 通过堆栈传送参数或参数地址
(5) 多个模块之间的参数传送
4,子程序的参数传送
7
例：十进制到十六进制的转换 （ 通过寄存器传送参数 ）
decihex segment ; 10?16
assume cs,decihex
main proc far
push ds
sub ax,ax
push ax
repeat,call decibin ; 10?2
call crlf ; 回车换行
call binihex ; 2?16
call crlf
jmp repeat
ret
main endp
……
……
……
decihex ends
end main
8
decibin proc near
mov bx,0
newchar,mov ah,1
int 21h
sub al,30h
jl exit
cmp al,9
jg exit
cbw
xchg ax,bx
mov cx,10
mul cx
xchg ax,bx
add bx,ax
jmp newchar
exit,ret
decibin endp
binihex proc near
mov ch,4
rotate,mov cl,4
rol bx,cl
mov al,bl
and al,0fh
add al,30h
cmp al,3ah
jl printit
add al,7
printit,mov dl,al
mov ah,2
int 21h
dec ch
jnz rotate
ret
binihex endp
crlf proc near
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
ret
crlf endp
9
例：十六进制到十进制的转换 （ 通过寄存器传送参数 ）
hexidec segment ; 16?10
assume cs,hexidec
main proc far
start,push ds
sub ax,ax
push ax
repeat,
call hexibin ; 16?2
call crlf
call binidec ; 2?10
call crlf
jmp repeat
ret
main endp
……
……
……
hexidec ends
end start
10
hexibin proc near
mov bx,0
newchar,
mov ah,1
int 21h
sub al,30h
jl exit
cmp al,10
jl add_to
sub al,27h
cmp al,0ah
jl exit
cmp al,10h
jge exit
add_to,
mov cl,4
shl bx,cl
mov ah,0
add bx,ax
jmp newchar
exit,ret
hexibin endp
binidec proc near
mov cx,10000d
call dec_div
mov cx,1000d
call dec_div
mov cx,100d
call dec_div
mov cx,10d
call dec_div
mov cx,1d
call dec_div
ret
binidec endp
dec_div proc near
mov ax,bx
mov dx,0
div cx
mov bx,dx
mov dl,al
add dl,30h
mov ah,2
int 21h
ret
dec_div endp
11
例：累加数组中的元素 （ 通过存储器传送参数 ）
data segment
ary dw 1,2,3,4,5,6,7,8,9,10
count dw 10
sum dw?
data ends
code segment
main proc far
assume cs:code,ds:data
push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax
call proadd
ret
main endp
code ends
end main
proadd proc near
push ax
push cx
push si
lea si,ary
mov cx,count
xor ax,ax
next,add ax,[si]
add si,2
loop next
mov sum,ax
pop si
pop cx
pop ax
ret
proadd endp
12
如果数据段定义如下,
data segment
ary dw 1,2,3,4,5,6,7,8,9,10
count dw 10
sum dw?
ary1 dw 10,20,30,40,50,60,70,80,90,100
count1 dw 10
sum1 dw?
data ends
如果直接访问内存变量，那么累加 数组 ary
和 数组 ary1中的元素不能用同一个子程序 proadd。
13
例：累加数组中的元素 （ 通过地址表传送参数地址 ）
data segment
ary dw 1,2,3,4,5,6,7,8,9,10
count dw 10
sum dw?
table dw 3 dup (?) ; 地址表
data ends
code segment
main proc far
assume cs:code,ds:data
push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax
mov table,offset ary
mov table+2,offset count
mov table+4,offset sum
mov bx,offset table
call proadd
ret
main endp
14
3d
4d
5d
6d
7d
8d
9d
10d
10d
ary?
2d
1d
count?
sum?
table?
0000
0014
0016
0018 0000
0014
0016
?(bx)
55d
proadd proc near
push ax
push cx
push si
push di
mov si,[bx]
mov di,[bx+2]
mov cx,[di]
mov di,[bx+4]
xor ax,ax
next,
add ax,[si]
add si,2
loop next
mov [di],ax
pop di
pop si
pop cx
pop ax
ret
proadd endp
code ends
end main
15
stack segment
dw 100 dup (?)
tos label word
stack ends
start,
mov ax,stack
mov ss,ax
mov sp,offset tos
push ds
sub ax,ax
push ax
……
通过 堆栈 传送参数或参数地址,
PSP ?
DS
ES
SS?
CS?
PSP ?
DS
ES
SS?
CS?
stack segment stack
dw 100 dup (?)
tos label word
stack ends
16
例：累加数组中的元素（ 通过堆栈传送参数地址 ）
data segment
ary dw 1,2,3,4,5,6,7,8,9,10
count dw 10
sum dw?
data ends
stack segment
dw 100 dup (?)
tos label word
stack ends
17
code1 segment
main proc far
assume cs:code1,ds:data,ss:stack
start,
mov ax,stack
mov ss,ax
mov sp,offset tos
push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax
mov bx,offset ary
push bx
mov bx,offset count
push bx
mov bx,offset sum
push bx
call far ptr proadd
ret
main endp
code1 ends
(ip)
(cs)
0016
0014
0000
0
(ds)
(sp)?
18
code2 segment
assume cs:code2
proadd proc far
push bp
mov bp,sp
push ax
push cx
push si
push di
mov si,[bp+0ah]
mov di,[bp+8]
mov cx,[di]
mov di,[bp+6]
code2 ends
end start
xor ax,ax
next,
add ax,[si]
add si,2
loop next
mov [di],ax
pop di
pop si
pop cx
pop ax
pop bp
ret 6
proadd endp
(ip)
(cs)
0016
0014
0000
0
(ds)
?
(di)
(si)
(cx)
(ax)
(sp)?
(bp)? (bp)
(bp)+0ah?
(bp)+8?
(bp)+6?
19
结构伪操作 STRUC,定义一种可包含不同类型数据的结构模式
格式,结构名 STRUC
字段名 1 DB?
字段名 2 DW?
字段名 3 DD?
……
结构名 ENDS
例：学生个人信息
STUDENT_DATA STRUC
NAME DB 5 DUP (?)
ID DW 0
AGE DB?
DEP DB 10 DUP (?)
STUDENT_DATA ENDS
20
例：累加数组中的元素（ 通过堆栈传送参数地址 ）
code2 segment
assume cs:code2
stack_strc struc
save_bp dw?
save_cs_ip dw 2 dup(?)
par3_addr dw?
par2_addr dw?
par1_addr dw?
stack_strc ends
proadd proc far
……
……
proadd endp
code2 ends
end start
21
proadd proc far
push bp
mov bp,sp
push ax
push cx
push si
push di
mov si,[bp].par1_addr
mov di,[bp].par2_addr
mov cx,[di]
mov di,[bp].par3_addr
xor ax,ax
next,
add ax,[si]
add si,2
loop next
mov [di],ax
pop di
pop si
pop cx
pop ax
pop bp
ret 6
proadd endp
(ip)
(cs)
0016
0014
0000
0
(ds)
(di)
(si)
(cx)
(ax)
(sp)?
(bp)? (bp)
par3_addr
par2_addr
par1_addr
22
5,子程序的嵌套与递归
子程序的嵌套,
主程序 子程序 A 子程序 B
递归子程序,n!
……
call proc_A
……
proc_A
……
call proc_B
……
ret
proc_B
……
ret
23
例：计算 n!
frame struc
save_bp dw?
save_cs_ip dw 2 dup(?)
n dw?
result_addr dw?
frame ends
data segment
n_v dw 3
result dw?
data ends
stack segment
dw 128 dup (?)
tos label word
stack ends
24
code segment
main proc far
assume cs:code,ds:data,ss:stack
start,
mov ax,stack
mov ss,ax
mov sp,offset tos
push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax
mov bx,offset result
push bx
mov bx,n_v
push bx
call far ptr fact
ret
main endp
code ends
25
code1 segment
assume cs:code1
fact proc far
push bp
mov bp,sp
push bx
push ax
mov bx,[bp].result_addr
mov ax,[bp].n
cmp ax,0
je done
push bx
dec ax
push ax
call far ptr fact
mov bx,[bp].result_addr
mov ax,[bx]
mul [bp].n
jmp short return
done,mov ax,1
return,
mov [bx],ax
pop ax
pop bx
pop bp
ret 4
fact endp
code1 ends
(AX)
(BX)
(BP)
CODE中的 (IP)
CODE中的 (CS)
3
RESULT的地址
第 1帧
?
(AX)
(BX)
(BP)
CODE1中的 (IP)
CODE1中的 (CS)
2
RESULT的地址
第 2帧
?
(AX)
(BX)
(BP)
CODE1中的 (IP)
CODE1中的 (CS)
1
RESULT的地址
第 3帧
?
(AX)
(BX)
(BP)
CODE1中的 (IP)
CODE1中的 (CS)
0
RESULT的地址
第 4帧
?
00FA
00F2
00E4
00D6
00C8
0000
00F2
00E4
00D6
26
fact proc near
push ax
push bp
mov bp,sp
mov ax,[bp+6]
cmp ax,0
jne fact1
inc ax
jmp exit
fact1,dec ax
push ax
call fact
pop ax
mul word ptr[bp+6]
exit,mov [bp+6],ax
pop bp
pop ax
ret
fact endp
例：计算 n!
mov bx,n_v
push bx
call fact
pop result
主程序,
?
(BP)
(AX)
(IP)
0
(BP)
(AX)
(IP)
1
(BP)
(AX)
(IP)
2
(BP)
(AX)
(IP)
3
?
?
?
27
例：将字符串反序输出
revers proc near
push ax
push bx
push dx
push bp
mov bp,sp
mov bx,[bp+10]
mov al,[bx]
cmp al,'$'
jne re_call
jmp return
re_call,
inc bx
push bx
call revers
pop bx
mov dl,[bx]
mov ah,2
int 21h
return,pop bp
pop dx
pop bx
pop ax
ret
revers endp
mov bx,offset str
push bx
call revers
pop bx
mov dl,[bx]
mov ah,2
int 21h
主程序,
28
多个模块之间的参数传送,
局部符号,在本模块中定义，在本模块中引用的符号
外部符号,在某一模块中定义，在另一模块中引用的符号
PUBLIC 符号 EXTRN 符号,类型
extrn proadd, far
……
……
code1 segment
start,
……
call far ptr proadd
……
code1 ends
end start; proadd1.asm
public proadd
……
……
code2 segment
proadd proc far
……
ret
proadd endp
code2 ends
end; proadd2.asm
29
例,; proadd1.asm
extrn proadd, far
data segment common
ary dw 1,2,3,4,5,6,7,8,9,10
count dw 10
sum dw?
data ends
code1 segment
main proc far
assume cs:code1,ds:data
start,push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax
call far ptr proadd
ret
main endp
code1 ends
end start
30; proadd2.asm
public proadd
data segment common
ary dw 1,2,3,4,5,6,7,8,9,10
count dw 10
sum dw?
data ends
code2 segment
proadd proc far
assume cs:code2,ds:data
mov ax,data
mov ds,ax
push ax
push cx
push si
lea si,ary
mov cx,count
xor ax,ax
next,add ax,[si]
add si,2
loop next
mov sum,ax
pop si
pop cx
pop ax
ret
proadd endp
code2 ends
end
31
作业,
p240 6.3 6.4 6.7 6.8
第六章 子程序结构
? 过程定义伪操作
? 子程序的调用与返回
? 保存与恢复寄存器
? 子程序的参数传送
? 子程序的嵌套与递归
2
1,过程定义伪操作
过程名 PROC NEAR ( FAR )
过程名 ENDP
（ 1） NEAR属性：调用程序和子程序在同一代码段中
（ 段内调用 ）
（ 2） FAR属性：调用程序和子程序不在同一代码段中
（ 段间调用 ）
.,
,
3
code segment
main proc far
……
call subr1
……
ret
main endp
subr1 proc near
……
ret
subr1 endp
code ends
segx segment
subt proc far
……
ret
subt endp
……
call subt
……
segx ends
segy segment
……
call subt
……
segy ends
4
子程序调用,隐含使用堆栈保存返回地址
call near ptr subp
(1) 保存返回地址
(2) 转子程序
call far ptr subp
(1) 保存返回地址
(2) 转子程序
子程序返回,ret
2,子程序的调用与返回
(SP)→ (IP)
(IP)
(CS)
(SP)→
5
3,保存与恢复寄存器
subt proc far
push ax
push bx
push cx
push dx
……
……
pop dx
pop cx
pop bx
pop ax
ret
subt endp
6
(1) 通过寄存器传送参数
(2) 通过存储器传送参数
(3) 通过地址表传送参数地址
(4) 通过堆栈传送参数或参数地址
(5) 多个模块之间的参数传送
4,子程序的参数传送
7
例：十进制到十六进制的转换 （ 通过寄存器传送参数 ）
decihex segment ; 10?16
assume cs,decihex
main proc far
push ds
sub ax,ax
push ax
repeat,call decibin ; 10?2
call crlf ; 回车换行
call binihex ; 2?16
call crlf
jmp repeat
ret
main endp
……
……
……
decihex ends
end main
8
decibin proc near
mov bx,0
newchar,mov ah,1
int 21h
sub al,30h
jl exit
cmp al,9
jg exit
cbw
xchg ax,bx
mov cx,10
mul cx
xchg ax,bx
add bx,ax
jmp newchar
exit,ret
decibin endp
binihex proc near
mov ch,4
rotate,mov cl,4
rol bx,cl
mov al,bl
and al,0fh
add al,30h
cmp al,3ah
jl printit
add al,7
printit,mov dl,al
mov ah,2
int 21h
dec ch
jnz rotate
ret
binihex endp
crlf proc near
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
ret
crlf endp
9
例：十六进制到十进制的转换 （ 通过寄存器传送参数 ）
hexidec segment ; 16?10
assume cs,hexidec
main proc far
start,push ds
sub ax,ax
push ax
repeat,
call hexibin ; 16?2
call crlf
call binidec ; 2?10
call crlf
jmp repeat
ret
main endp
……
……
……
hexidec ends
end start
10
hexibin proc near
mov bx,0
newchar,
mov ah,1
int 21h
sub al,30h
jl exit
cmp al,10
jl add_to
sub al,27h
cmp al,0ah
jl exit
cmp al,10h
jge exit
add_to,
mov cl,4
shl bx,cl
mov ah,0
add bx,ax
jmp newchar
exit,ret
hexibin endp
binidec proc near
mov cx,10000d
call dec_div
mov cx,1000d
call dec_div
mov cx,100d
call dec_div
mov cx,10d
call dec_div
mov cx,1d
call dec_div
ret
binidec endp
dec_div proc near
mov ax,bx
mov dx,0
div cx
mov bx,dx
mov dl,al
add dl,30h
mov ah,2
int 21h
ret
dec_div endp
11
例：累加数组中的元素 （ 通过存储器传送参数 ）
data segment
ary dw 1,2,3,4,5,6,7,8,9,10
count dw 10
sum dw?
data ends
code segment
main proc far
assume cs:code,ds:data
push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax
call proadd
ret
main endp
code ends
end main
proadd proc near
push ax
push cx
push si
lea si,ary
mov cx,count
xor ax,ax
next,add ax,[si]
add si,2
loop next
mov sum,ax
pop si
pop cx
pop ax
ret
proadd endp
12
如果数据段定义如下,
data segment
ary dw 1,2,3,4,5,6,7,8,9,10
count dw 10
sum dw?
ary1 dw 10,20,30,40,50,60,70,80,90,100
count1 dw 10
sum1 dw?
data ends
如果直接访问内存变量，那么累加 数组 ary
和 数组 ary1中的元素不能用同一个子程序 proadd。
13
例：累加数组中的元素 （ 通过地址表传送参数地址 ）
data segment
ary dw 1,2,3,4,5,6,7,8,9,10
count dw 10
sum dw?
table dw 3 dup (?) ; 地址表
data ends
code segment
main proc far
assume cs:code,ds:data
push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax
mov table,offset ary
mov table+2,offset count
mov table+4,offset sum
mov bx,offset table
call proadd
ret
main endp
14
3d
4d
5d
6d
7d
8d
9d
10d
10d
ary?
2d
1d
count?
sum?
table?
0000
0014
0016
0018 0000
0014
0016
?(bx)
55d
proadd proc near
push ax
push cx
push si
push di
mov si,[bx]
mov di,[bx+2]
mov cx,[di]
mov di,[bx+4]
xor ax,ax
next,
add ax,[si]
add si,2
loop next
mov [di],ax
pop di
pop si
pop cx
pop ax
ret
proadd endp
code ends
end main
15
stack segment
dw 100 dup (?)
tos label word
stack ends
start,
mov ax,stack
mov ss,ax
mov sp,offset tos
push ds
sub ax,ax
push ax
……
通过 堆栈 传送参数或参数地址,
PSP ?
DS
ES
SS?
CS?
PSP ?
DS
ES
SS?
CS?
stack segment stack
dw 100 dup (?)
tos label word
stack ends
16
例：累加数组中的元素（ 通过堆栈传送参数地址 ）
data segment
ary dw 1,2,3,4,5,6,7,8,9,10
count dw 10
sum dw?
data ends
stack segment
dw 100 dup (?)
tos label word
stack ends
17
code1 segment
main proc far
assume cs:code1,ds:data,ss:stack
start,
mov ax,stack
mov ss,ax
mov sp,offset tos
push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax
mov bx,offset ary
push bx
mov bx,offset count
push bx
mov bx,offset sum
push bx
call far ptr proadd
ret
main endp
code1 ends
(ip)
(cs)
0016
0014
0000
0
(ds)
(sp)?
18
code2 segment
assume cs:code2
proadd proc far
push bp
mov bp,sp
push ax
push cx
push si
push di
mov si,[bp+0ah]
mov di,[bp+8]
mov cx,[di]
mov di,[bp+6]
code2 ends
end start
xor ax,ax
next,
add ax,[si]
add si,2
loop next
mov [di],ax
pop di
pop si
pop cx
pop ax
pop bp
ret 6
proadd endp
(ip)
(cs)
0016
0014
0000
0
(ds)
?
(di)
(si)
(cx)
(ax)
(sp)?
(bp)? (bp)
(bp)+0ah?
(bp)+8?
(bp)+6?
19
结构伪操作 STRUC,定义一种可包含不同类型数据的结构模式
格式,结构名 STRUC
字段名 1 DB?
字段名 2 DW?
字段名 3 DD?
……
结构名 ENDS
例：学生个人信息
STUDENT_DATA STRUC
NAME DB 5 DUP (?)
ID DW 0
AGE DB?
DEP DB 10 DUP (?)
STUDENT_DATA ENDS
20
例：累加数组中的元素（ 通过堆栈传送参数地址 ）
code2 segment
assume cs:code2
stack_strc struc
save_bp dw?
save_cs_ip dw 2 dup(?)
par3_addr dw?
par2_addr dw?
par1_addr dw?
stack_strc ends
proadd proc far
……
……
proadd endp
code2 ends
end start
21
proadd proc far
push bp
mov bp,sp
push ax
push cx
push si
push di
mov si,[bp].par1_addr
mov di,[bp].par2_addr
mov cx,[di]
mov di,[bp].par3_addr
xor ax,ax
next,
add ax,[si]
add si,2
loop next
mov [di],ax
pop di
pop si
pop cx
pop ax
pop bp
ret 6
proadd endp
(ip)
(cs)
0016
0014
0000
0
(ds)
(di)
(si)
(cx)
(ax)
(sp)?
(bp)? (bp)
par3_addr
par2_addr
par1_addr
22
5,子程序的嵌套与递归
子程序的嵌套,
主程序 子程序 A 子程序 B
递归子程序,n!
……
call proc_A
……
proc_A
……
call proc_B
……
ret
proc_B
……
ret
23
例：计算 n!
frame struc
save_bp dw?
save_cs_ip dw 2 dup(?)
n dw?
result_addr dw?
frame ends
data segment
n_v dw 3
result dw?
data ends
stack segment
dw 128 dup (?)
tos label word
stack ends
24
code segment
main proc far
assume cs:code,ds:data,ss:stack
start,
mov ax,stack
mov ss,ax
mov sp,offset tos
push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax
mov bx,offset result
push bx
mov bx,n_v
push bx
call far ptr fact
ret
main endp
code ends
25
code1 segment
assume cs:code1
fact proc far
push bp
mov bp,sp
push bx
push ax
mov bx,[bp].result_addr
mov ax,[bp].n
cmp ax,0
je done
push bx
dec ax
push ax
call far ptr fact
mov bx,[bp].result_addr
mov ax,[bx]
mul [bp].n
jmp short return
done,mov ax,1
return,
mov [bx],ax
pop ax
pop bx
pop bp
ret 4
fact endp
code1 ends
(AX)
(BX)
(BP)
CODE中的 (IP)
CODE中的 (CS)
3
RESULT的地址
第 1帧
?
(AX)
(BX)
(BP)
CODE1中的 (IP)
CODE1中的 (CS)
2
RESULT的地址
第 2帧
?
(AX)
(BX)
(BP)
CODE1中的 (IP)
CODE1中的 (CS)
1
RESULT的地址
第 3帧
?
(AX)
(BX)
(BP)
CODE1中的 (IP)
CODE1中的 (CS)
0
RESULT的地址
第 4帧
?
00FA
00F2
00E4
00D6
00C8
0000
00F2
00E4
00D6
26
fact proc near
push ax
push bp
mov bp,sp
mov ax,[bp+6]
cmp ax,0
jne fact1
inc ax
jmp exit
fact1,dec ax
push ax
call fact
pop ax
mul word ptr[bp+6]
exit,mov [bp+6],ax
pop bp
pop ax
ret
fact endp
例：计算 n!
mov bx,n_v
push bx
call fact
pop result
主程序,
?
(BP)
(AX)
(IP)
0
(BP)
(AX)
(IP)
1
(BP)
(AX)
(IP)
2
(BP)
(AX)
(IP)
3
?
?
?
27
例：将字符串反序输出
revers proc near
push ax
push bx
push dx
push bp
mov bp,sp
mov bx,[bp+10]
mov al,[bx]
cmp al,'$'
jne re_call
jmp return
re_call,
inc bx
push bx
call revers
pop bx
mov dl,[bx]
mov ah,2
int 21h
return,pop bp
pop dx
pop bx
pop ax
ret
revers endp
mov bx,offset str
push bx
call revers
pop bx
mov dl,[bx]
mov ah,2
int 21h
主程序,
28
多个模块之间的参数传送,
局部符号,在本模块中定义，在本模块中引用的符号
外部符号,在某一模块中定义，在另一模块中引用的符号
PUBLIC 符号 EXTRN 符号,类型
extrn proadd, far
……
……
code1 segment
start,
……
call far ptr proadd
……
code1 ends
end start; proadd1.asm
public proadd
……
……
code2 segment
proadd proc far
……
ret
proadd endp
code2 ends
end; proadd2.asm
29
例,; proadd1.asm
extrn proadd, far
data segment common
ary dw 1,2,3,4,5,6,7,8,9,10
count dw 10
sum dw?
data ends
code1 segment
main proc far
assume cs:code1,ds:data
start,push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax
call far ptr proadd
ret
main endp
code1 ends
end start
30; proadd2.asm
public proadd
data segment common
ary dw 1,2,3,4,5,6,7,8,9,10
count dw 10
sum dw?
data ends
code2 segment
proadd proc far
assume cs:code2,ds:data
mov ax,data
mov ds,ax
push ax
push cx
push si
lea si,ary
mov cx,count
xor ax,ax
next,add ax,[si]
add si,2
loop next
mov sum,ax
pop si
pop cx
pop ax
ret
proadd endp
code2 ends
end
31
作业,
p240 6.3 6.4 6.7 6.8
