安防之家讯：子程序是由设计者定义的完成某种功能的程序模块。一旦定义了，该子程序可被任意调用。

例



SENDAT PROC FAR ；子程序定义伪指令语句



PUSH AX ；保护 AX 、 DX 、 SI 寄存器



PUSH DX



PUSH SI



LEA SI ， BUFR ；子程序待输出的数据的首地址



GOON ： MOV DX ， 03FBH



WAIT ： IN AL ， DX ；读端口 03FBH 读入数据



TEST AL ， 20H



JZ WAIT



MOV AL ， [SI] ；将缓冲区 BUFR 按字节装入



MOV DX ， 03F 8H



OUT DX ， AL ；输出至端口 03F 8H



INC SI



CMP AL ， 0AH ；判断输出数据是否为结束



JNE GOON ；不为 0AH 则转至 GOON



POP SI ；恢复寄存器



POP DX



POP AX



RET



SENDAT ENDP

上面的子程序，可以把数据段 BUFR 缓冲区，以 OA 结束的数据，输出到 03F 8H 端口。

主程序在调用子程序时，一方面初始数据要传递给子程序，另一方面子程序运行的结果要传递给主程序。尽管没有初始数据或没有运行结果的情况也有，但一般情况下是必须考虑的。 在编写较为复杂的子程序时，可能出现子程序中调用子程序的情况，通常称这种情况叫子程序嵌套。子程序嵌套层次的深度受堆栈大小的影响，由于堆栈不仅在子程序中使用，还受多方面影响，必须保证整个程序运行过程中，堆栈不能溢出。

把功能相对独立的程序段单独编写和调试，作为一个相对独立的模块供程序使用，就形成子程序子程序可以实现源程序的模块化，可简化源程序结构，可以提高编程效率

1、程序定义伪指令

格式 : 过程名 proc [near|far]

. 过程名 endp

过程名（子程序名）为符合语法的标识符

NEAR 属性（段内近调用）的过程只能被相同代码段的其他程序调用

FAR 属性（段间远调用）的过程可以被相同或不同代码段的程序调用

对简化段定义格式，在微型、小型和紧凑存储模式下，过程的缺省属性为 near ；在中型、大型和巨型存储模式下，过程的缺省属性为 far

对完整段定义格式，过程的缺省属性为 near

用户可以在过程定义时用 near 或 far 改变缺省属性



子程序常见格式：

subname proc ; 具有缺省属性的 subname 过程

push ax ; 保护寄存器：顺序压入堆栈

push bx ;ax/bx/cx 仅是示例

push cx

… ; 过程体 , 程序的主要功能

pop cx ; 恢复寄存器：逆序弹出堆栈

pop bx

pop ax

ret ; 过程返回

subname endp ; 过程结束

; 子程序功能：实现光标回车换行

dpcrlf proc ; 过程开始

push ax ; 保护寄存器 AX 和 DX

push dx

mov dl,0dh ; 显示回车

mov ah,2

int 21h

mov dl,0ah ; 显示换行

mov ah,2

int 21h

pop dx ; 恢复寄存器 DX 和 AX

pop ax

ret ; 子程序返回

dpcrlf endp ; 过程结束

例 : 无参数传递的子程序

ALdisp proc ; 实现 al 内容的显示

push ax ; 过程中使用了 AX 、 CX 和 DX

push cx

push dx

push ax ; 暂存 ax

mov dl,al ; 转换 al 的高 4 位

mov cl,4

shr dl,cl

or dl,30h ;al 高 4 位变成 3

cmp dl,39h

jbe aldisp1

add dl,7 ; 是 0Ah ～ 0Fh ，还要加上 7

aldisp1: mov ah,2 ; 显示

int 21h

例 : 实现 AL 内容显示的子程序

pop dx ; 恢复原 ax 值到 dx

and dl,0fh ; 转换 al 的低 4 位

or dl,30h

cmp dl,39h

jbe aldisp2

add dl,7

aldisp2: mov ah,2 ; 显示

int 21h

pop dx

pop cx

pop ax

ret ; 过程返回

ALdisp endp

... ; 主程序

mov bx,offset array; 调用程序段开始

mov cx,count

displp: mov al,[bx]

call ALdisp ; 调用显示过程

mov dl,',' ; 显示一个逗号，分隔数据

mov ah,2

int 21h

inc bx

loop displp ; 调用程序段结束

.exit 0

... ; 过程定义

end

HTOASC proc

; 将 AL 低 4 位表达的一位 16 进制数转换为 ASCII 码

and al,0fh

cmp al,9

jbe htoasc1

add al,37h ; 是 0AH ～ 0FH ，加 37H

ret ; 子程序返回

htoasc1: add al,30h ; 是 0 ～ 9 ，加 30H

ret ; 子程序返回

HTOASC endp

2、子程序的参数传递

入口参数（输入参数）：主程序提供给子程序

出口参数（输出参数）：子程序返回给主程序

参数的形式：

① 数据本身（传值）

② 数据的地址（传址）

传递的方法：

① 寄存器 ② 变量 ③ 堆栈

例：求校验和

子程序计算数组元素的“校验和”

校验和是指不记进位的累加

入口参数： 数组的逻辑地址（传址）

元素个数（传值）

出口参数： 求和结果（传值）

把参数存于约定的寄存器中，可以传值，也可以传址。

子程序对带有出口参数的寄存器不能保护和恢复（主程序视具体情况进行保护）

子程序对带有入口参数的寄存器可以保护，也可以不保护；但最好一致

例 :

入口参数： CX ＝元素个数，

DS:BX ＝数组的段地址：偏移地址

出口参数： AL ＝校验和

用寄存器传递参数

.startup

; 设置入口参数（含有 DS ←数组的段地址）

mov bx,offset array

;BX ←数组的偏移地址

mov cx,count ;CX ←数组的元素个数

call checksuma ; 调用求和过程

mov result,al ; 处理出口参数

.exit 0

checksuma proc

xor al,al ; 累加器清 0

suma: add al,[bx] ; 求和

inc bx ; 指向下一个字节

loop suma

ret

checksuma endp

end

主程序和子程序直接采用同一个变量名共享同一个变量，实现参数的传递

不同模块间共享时，需要声明

例 :

入口参数：

count ＝元素个数，

array ＝数组名（含段地址：偏移地址）

出口参数：

result ＝校验和

用变量传递参数

; 主程序

call checksumb

; 子程序

checksumb proc

push ax

push bx

push cx

xor al,al ; 累加器清 0

mov bx,offset array

;BX ←数组的偏移地址

mov cx,count

;CX ←数组的元素个数

sumb: add al,[bx] ; 求和

inc bx

loop sumb

mov result,al ; 保存校验和

pop cx

pop bx

pop ax

ret

checksumb endp

主程序将子程序的入口参数压入堆栈，子程序从堆栈中取出参数

子程序将出口参数压入堆栈，主程序弹出堆栈取得它们

例 :

入口参数：

顺序压入偏移地址和元素个数

出口参数：

AL ＝校验和

用堆栈传递参数

.startup

mov ax,offset array

push ax

mov ax,count

push ax

call checksumc

add sp,4

mov result,al

.exit 0

要注意堆栈的分配情况，保证参数存取正确、子程序正确返回，并保持堆栈平衡

checksumc proc

push bp

mov bp,sp ; 利用 BP 间接寻址存取参数

push bx

push cx

mov bx,[bp+6] ;SS:[BP+6] 指向偏移地址

mov cx,[bp+4] ;SS:[BP+4] 指向元素个数

xor al,al

sumc: add al,[bx]

inc bx

loop sumc

pop cx

pop bx

pop bp

ret

checksumc endp

堆栈区及参数

主程序实现平衡堆栈： add sp,n

子程序实现平衡堆栈： ret n

子程序的嵌套

1 ．子程序的嵌套

2 ．嵌套深度。

例：设从 BUF 开始存放若干无符号字节数据，找出其中的最小值并以 16 进制形式输出。

子程序内包含有子程序的调用就是子程序嵌套没有什么特殊要求

ALdisp proc

push ax

push cx ; 实现 al 内容的显示

push ax ; 暂存 ax

mov cl,4

shr al,cl ; 转换 al 的高 4 位

call htoasc ; 子程序调用（嵌套）

pop ax ; 转换 al 的低 4 位

call htoasc ; 子程序调用（嵌套）

pop cx

pop ax

ret

ALdisp endp

例 : 嵌套子程序

; 将 AL 低 4 位表达的一位 16 进制数转换为 ASCII 码

HTOASC proc

push ax

push bx

push dx

mov bx,offset ASCII;BX 指向 ASCII 码表

and al,0fh ; 取得一位 16 进制数

xlat CS:ASCII

; 换码： AL ← CS:[BX ＋ AL] ，注意数据在代码段 CS

mov dl,al ; 显示

mov ah,2

int 21h

pop dx

pop bx

pop ax

ret ; 子程序返回

; 子程序的数据区

ASCII db 30h,31h,32h,33h,34h,35h,36h,37h

db 38h,39h,41h,42h,43h,44h,45h,46h

HTOASC endp

这是一个具有局部变量的子程序。因为数据区与子程序都在代码段，所以利用了换码指令 XLAT 的另一种助记格式（写出指向缓冲区的变量名，目的是便于指明段超越前缀）。串操作 MOVS 、 LODS 和 CMPS 指令也可以这样使用，以便使用段超越前缀

除采用段超越方法外，子程序与主程序的数据段不同时，我们还可以通过修改 DS 值实现数据存取；但需要保护和恢复 DS 寄存器

子程序的递归

当子程序直接或间接地嵌套调用自身时称为递归调用，含有递归调用的子程序称为递归子程序

递归子程序必须采用寄存器或堆栈传递参数，递归深度受堆栈空间的限制

例：求阶乘

N!= N*(N-1)! 当 N>0

1 当 N=0

.model small

.stack 256

.data

N dw 3

result dw ?

.code

.startup

mov bx,N

push bx ; 入口参数： N

call fact ; 调用递归子程序

pop result ; 出口参数： N ！

.exit 0

例 : 求自然数 N(N>=1) 的阶乘

; 计算 N! 的近过程

; 入口参数：压入 N ; 出口参数：弹出 N!

fact proc

push ax

push bp

mov bp,sp

mov ax,[bp+6] ; 取入口参数 N

cmp ax,0

jne fact1 ;N ＞ 0,N! ＝ N × (N-1)!

inc ax ;N ＝ 0,N! ＝ 1

jmp fact2

fact1: dec ax ;N-1

push ax

call fact ; 调用递归子程序求 (N-1)!

pop ax

mul word ptr [bp+6] ; 求 N × (N-1)!

fact2: mov [bp+6],ax ; 存入出口参数 N!

pop bp

pop ax

ret

fact endp

调用时进栈

返回时出栈

1

3!

2!

1!

子程序的重入

可重入子程序是指该子程序被某程序调用 , 但还未结束 , 又被另一个程序调用 , 这是在分时系统中 .

子程序的重入是指子程序被中断后又被中断服务程序所调用，能够重入的子程序称为可重入子程序。在子程序中，注意利用寄存器和堆栈传递参数和存放临时数据，而不要使用固定的存储单元（变量），就能够实现重入。

子程序的重入不同于子程序的递归。重入是被动地进入，而递归是主动地进入；重入的调用间往往没有关系，而递归的调用间却是密切相关的。递归子程序也是可重入子程序。

ASCII 码转换为二进制数

① 首先判断输入为正或负数，并用一个寄存器记录

② 接着输入 0 ～ 9 数字（ ASCII 码），并减 30H 转换为二进制数

③ 然后将前面输入的数值乘 10 ，并与刚输入的数字相加得到新的数值

④ 重复②、③步，直到输入一个非数字字符结束

⑤ 负数进行求补，转换成补码；否则直接保存数值



本例采用 16 位寄存器表达数据，所以只能输入＋ 327677 ～－ 32768 间的数值

但该算法适合更大范围的数据

例题 :

例：从键盘输入有符号十进制数

子程序从键盘输入一个有符号十进制数；子程序还包含将 ASCII 码转换为二进制数的过程

输入时，负数用“－”引导，正数直接输入或用“＋”引导

子程序用寄存器传递出口参数，主程序调用该子程序输入 10 个数据

.data

count = 10

array dw count dup(0) ; 预留数据存储空间

.code

.startup

mov cx,count

mov bx,offset array

again: call read ; 调用子程序输入一个数据

mov [bx],ax ; 将出口参数存放缓冲区

inc bx

inc bx

call dpcrlf

; 调用子程序，光标回车换行以便输入下一个数据

loop again

.exit 0

; 输入有符号 10 进制数的通用子程序

; 出口参数： AX ＝补码表示的二进制数值

; 说明：负数用“－”引导，正数用“＋”引导或直接输入；数据范围是＋ 32767 ～－ 32768

read proc

push bx

push cx

push dx

xor bx,bx ;BX 保存结果

xor cx,cx

;CX 为正负标志， 0 为正，－ 1 为负

mov ah,1 ; 输入一个字符

int 21h

cmp al,'+' ; 是“＋”，继续输入字符

jz read1

cmp al,'-' ; 是“－”，设置－ 1 标志

jnz read2 ; 非“＋”和“－”，转 read2

mov cx,-1

read1: mov ah,1 ; 继续输入字符

int 21h

read2: cmp al,'0‘

; 不是 0 ～ 9 之间的字符，则输入数据结束

jb read3

cmp al,'9'

ja read3

sub al,30h

; 是 0 ～ 9 之间的字符，则转换为二进制数

; 利用移位指令，实现数值乘 10 ： BX ← BX × 10

shl bx,1

mov dx,bx

shl bx,1

shl bx,1

add bx,dx

;bx 内容乘 10

mov ah,0

add bx,ax

; 已输入数值乘 10 后，与新输入数值相加

jmp read1 ; 继续输入字符

read3: cmp cx,0

jz read4

neg bx ; 是负数，进行求补

例：显示有符号十进制数

子程序在屏幕上显示一个有符号十进制数；子程序还包含将二进制数转换为 ASCII 码的过程

显示时，负数用“－”引导，正数直接输出、没有前导字符





子程序的入口参数用共享变量传递，主程序调用该子程序显示 10 个数据

.data

count = 10

array dw 1234,-1234,0,1,-1,32767

dw -32768,5678,-5678,9000

wtemp dw ? ; 共享变量

.code

.startup

mov cx,count

mov bx,offset array

again: mov ax,[bx]

mov wtemp,ax ; 将入口参数存入共享变量

call write ; 调用子程序显示一个数据

inc bx

inc bx

call dpcrlf ; 便于显示下一个数据

loop again

.exit 0

; 显示有符号 10 进制数的通用子程序

入口参数：共享变量 wtemp

write proc

push ax

push bx

push dx

mov ax,wtemp ; 取出显示数据

test ax,ax ; 判断零、正数或负数

jnz write1

mov dl,'0' ; 是零，显示“ 0 ” 后退出

mov ah,2

int 21h

jmp write5

write1: jns write2 ; 是负数，显示“－”

mov bx,ax ;AX 数据暂存于 BX

mov dl,'-'

mov ah,2

int 21h

mov ax,bx

neg ax ; 数据求补（求绝对值）

write2: mov bx,10

push bx

;10 压入堆栈，作为退出标志

write3: cmp ax,0 ; 数据（余数）为零

jz write4 ; 转向显示

sub dx,dx ; 扩展被除数 DX.AX

div bx ; 数据除以 10 ： DX.AX ÷ 10

add dl,30h

; 余数（ 0 ～ 9 ）转换为 ASCII 码

push dx

; 数据各位先低位后高位压入堆栈

jmp write3

write4: pop dx

; 数据各位先高位后低位弹出堆栈

cmp dl,10 ; 是结束标志 10 ，则退出

je write5

mov ah,2 ; 进行显示

int 21h

jmp write4

write5: pop dx

pop bx

pop ax

ret ; 子程序返回

write endp

; 使光标回车换行的子程序

dpcrlf proc

... ; 省略

dpcrlf endp

end

安防之家专注于各种家居的安防,监控,防盗,安防监控,安防器材,安防设备的新闻资讯和O2O电商导购服务，敬请登陆安防之家：http://anfang.jc68.com/