汇编语言第六章子程序结构.ppt

在程序设计中，可以发现一些多次无规律重复的程序段或语句序列。解决此类问题一个行之有效的方法就是将它们设计成可供反复调用的独立的子程序结构，以便在需要时调用。在汇编语言中,子程序又称过程。调用子程序的程序称为主调程序或主程序。,第6章 子程序结构,子程序的基本结构包括以下几个部分：（1）子程序定义（2）保护现场和恢复现场（3）子程序体（4）子程序返回,子程序的结构,子程序的定义是由过程定义伪指令PROC和ENDP来完成的。其格式如下：过程名 PROC NEAR/FAR 过程名 ENDP 其中PROC表示过程定义开始，ENDP表示过程定义结束。过程名是过程入口地址的符号表示。一般过程名同标号一样，具有三种属性，即段属性、偏移地址属性以及类型属性（NEAR 和 FAR)。,6.1.1 子程序的定义,6.1 子程序的设计方法,1.如果调用程序和过程在同一代码段中，则使用NEAR属性；,MAIN PROC FAR CALL SUBR1 RETMAIN ENDP;SUBR1 PROC NEAR RETSUBR1 ENDP,MAIN PROC FAR CALL SUBR1 RETSUBR1 PROC NEAR RETSUBR1 ENDPMAIN ENDP,例6.1,过程嵌套定义,2.如果调用程序和过程不在同一代码段中，则使用FAR属性；,SEGX SEGMENT SUBT PROC FAR RETSUBT ENDP CALL SUBT SEGX ENDS;SEGY SEGMENT CALL SUBT SEGY ENDS,例6.2,6.1.2 子程序的调用和返回,调用:CALL far/near ptr 过程名,返回:RET n,6.1.3 保护现场和恢复现场,例如：若子程序PROG中改变了寄存器AX，BX，CX，DX的值，则 可采用如下方法保护和恢复现场。PROGPROCPUSHAXPUSH BX PUSHCX；保护现场PUSHDX POPDXPOPCXPOPBX；恢复现场POPAXRET；返回断点处PROCENDP,6.1.4 主程序与子程序参数传递方式,1 通过寄存器传送参数 这是最常用的一种方式，使用方便，但参数很多时不能使用这种方法。例6.3 十进制到十六进制转换的程序。程序要求从键盘取得一个十进制数，然后把该数以十六进制的形式在屏幕上显示出来。,开始,调用DECIBIN,调用CRLF,调用BINIHEX,调用CRLF,结束,从键盘取得十进制数，保存到BX中,显示回车和换行,用十六进制形式显示BX中的数,Decihex segment assume cs:DecihexMain proc farRepeat:push ds xor ax,ax push ax call decibin call crlf call binihex call crlf retMain endp,Decibin proc near mov bx,0Newchar: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;结果在BX中 jmp newchar Exit:retDecibin endp,Binihex proc near mov ch,4Rotate:mov cl,4 rol bx,cl mov dl,bl and dl,0fh add dl,30h cmp dl,3ah jl print add dl,7h Print:mov ah,2 int 21h dec ch jnz rotate ret Binihex endp,Crlf proc near mov ah,2 mov dl,odh int 21h mov dl,oah int 21h retCrlf endpDecihex ends end repeat,如果过程和调用过程在同一源文件（同一模块）中，则过程可直接访问模块中的变量。例 6.4_1 主程序MAIN和过程PROADD在同一源文件中，要求用过程PROADD累加数组的所有元素，并把和（不考虑溢出的可能性）送到指定的存储单元中去,DATA SEGMENT ARY DW 100 DUP(?)COUNT DW 100 SUM DW?DATA ENDSCODE SEGMENT MAIN PROC FAR ASSUME CS:CODE,DS:DATASTART:PUSH DS SUB AX,AX PUSH AX MOV AX,DATA CALL NEAR PTR PROADD RETMAIN ENDP,PROADD PROC NEAR PUSH AX PUSH CX PUSH SI PUSH DI LEA SI,ARY MOV CX,COUNT XOR AX,AXNEXT:ADD AX,SI ADD SI,2 LOOP NEXT MOV SUM,AX POP DI POP SI POP CX POP AX RETPROADD ENDPCODE ENDS END START,CODE SEGMENTARY DW 100 DUP(?)COUNT DW 100SUM DW?NUM DW 100 DUP(?)N DW 100TOTAL DW?MOV TABLE,OFFSET ARYMOV TABLE+2,OFFSET COUNTMOV TABLE+4,OFFSET SUNMOV BX,OFFSET TABLECALL PROADD；计算SUM,PROADD PROC NEAR PUSH AX PUSH CX PUSH SI PUSH DI PUSH SI,BX MOV DI,BX+2 MOV CX,DI MOV DI,BX+4 XOR AX,AXNEXT:ADD AX,SI ADD SI,2 LOOP NEXT MOV【DI,AX POP DI POP SI POP CX POP AX RETPROADD ENDPCODE ENDS END START,3 通过地址表传递参数,例6.4_2,4 通过堆栈传递地址或参数,Data segmentAry dw 100 dup(?)Count db 100Sum dw?Data endsStack segment para stack stack dw 100 dup(?)tos label wordStack endsCode1 segment assume cs:code1,ds:data,ss;stackMain proc farStart:push ds xor ax,ax push ax mov ax,data mov ds,ax,mov ax,stack mov ss,ax mov sp,offset tos Mov bx,offset ary Push bx Mov bx,offset count Push bx Mov bx,offset sum Push bx Call far ptr proadd mov al,sum mov dl,al mov ah,2 int 21h ret Main endp Code1 ends,例6.4_3,Sum地址Count地址Ary地址,sp,disicxaxbp,(Sp)bp,IPCS,Code2 segment assume cs:code2Proadd proc far push bp mov bp,sp push ax push cx push si push di mov si,bp+0ah mov di,bp+08h mov cl,di mov di,bp+06h xor al,alAgain:add al,si inc si dec cl jnz again mov di,al pop di pop si pop cx,pop ax pop bp ret 6Proadd endpCode2 ends end start,bp+0ah,bp+08h,bp+06h,Sp,Sp,Sp,Sp,Sp,(1)PUBLIC伪指令 格式：PUBLIC 符号，符号 功能：说明其后的符号是全局符号。全局符号能被其他模块引用。(局部符号）(2)EXTRN伪指令 格式：EXTRN 符号：类型，符号：类型 功能：说明在本模块中需要引用的、由其他模块定义的符号，即外部符号。,5 多个模块之间的参数传送问题,;source module 1extrn var2:word,lab2:farpublic var1,lab1Data1 segment var1 db?var3 dw?var4 dw?Data1 endscode1 segment assume cs:code1,ds:data1Main proc far start:mov ax,data1 mov ds,ax lab1:mov ah,4ch int 21hMain endpCode1 ends End start,;source module 2 extern var1:byte,var4:word public var2 Data2 segment var2 dw?var3 dw?Data2 ends code2 segment assume cs:code2,ds:data2Main proc far start:mov ax,data2 mov ds,ax mov ah,4ch int 21hMain endpCode2 ends End start,注意：应先有public 定义，然后才有extrn说明,;source module 3extern lab2:farpublic lab2,lab3Data2 segment var2 dw?var3 dw?Data2 endscode3 segment assume cs:code3 Lab2:.Lab3:.Code3 ends End,例6.5 多个模块间的参数共享,;Source model 1EXTERN proadd:farDATA SEGMENT common ARY DW 100 DUP(?)COUNT DW 100 SUM DW?DATA ENDSCODE1 SEGMENT MAIN PROC FAR ASSUME CS:CODE1,DS:DATASTART:PUSH DS SUB AX,AX PUSH AX MOV AX,DATA CALL far ptr PROADD RETMAIN ENDPCODE1 ENDS END START,主程序和子过程不在同一个模块的时参数传递方法一,LOOP NEXT:MOV SUM,AX POP DI POP SI POP CX POP AX RETPROADD ENDPCODE2 ends END,;Source model 2PUBLIC PROADDDATA SEGMENT common ARY DW 100 DUP(?)COUNT DW 100 SUM DW?DATA ENDSCODE2 SEGMENT PROADD PROC FAR ASSUME CS:CODE2,DS:DATA MOV AX,DATA MOV DS,AX PUSH AX PUSH CX PUSH SI PUSH DI LEA SI,ARY MOV CX,COUNT XOR AX,AXNEXT:ADD AX,SI ADD SI,2,（如例6.4_1的参数传递可利用段覆盖）,;Source model 1extern var1:word extern output:farextern var2:wordpublic quitlocal_data segment var dw 5 local_data endscode segment assume cs:code,ds:local_datamain proc farstart:mov ax,local_data mov ds,ax mov bx,var mov ax,seg var1 mov es,ax add bx,es:var1,主程序和子过程不在同一个模块的时参数传递方法二,mov ax,seg var2 mov es,ax sub es:var2,50 jmp ouput quit:mov ah,4ch int 21hmain endpcode ends end start;Source model 2public var1extdata1 segment var1 dw 10 extdata1 ends end,;source model 3public var2extern quit:farextdata2 segment var2 dw 3 extdata2 endspublic outputprogram segment assume cs:program,ds:extdata2 output:jmp quit program ends end,(例6.6 含三个源模块),;Source model 1Global segment publicExtern var1:wordExtern var2:wordGlobal endsLocal_data segment Local_data endscode segment assume cs:code,ds:local_data,es:globalmain proc far,主程序和子过程不在同一个模块的时参数传递方法三,start:mov x,local_data mov ds,ax mov ax,global mov es,ax mov bx,es:var1 add es:var2,bx mov ah,4ch int 21hmain endpcode ends end start,(例6.7 含二个源模块),;source model 2Global segment public public var1 public var2 var1 dw?var2 dw?Global ends end,6.1.5 增强功能的过程定义伪操作,Procname PROC attributes field USER register list,parameter field Procname ENDPAttributes field(属性字段）包括：Distance:near、far Language type:说明是那种高级语言的子程序 如pascal、c 等。Visibility:说明程序的可见性 是private 或是public。Prologue:是一个宏的名字，允许用宏来控制过程的入口或出口有关的代码USER：该字段用来指定用户所需保存和恢复的寄存器表。Parameter field:参数字段，允许用户指定该过程所用的参数。标识符：类型，标识符：类型,Data segmentAry db 10 dup(?)Count db 10Sum db?Data endsStack segment para stack stack db 100 dup(?)Stack endsCode1 segment assume cs:code1,ds:data,ss:stackMain proc farStart:push ds xor 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 mov al,sum mov dl,al mov ah,2 int 21h retMain endpCode1 ends,对例6.4 采用用增强功能过程定义伪操作实现,Code2 segment assume cs:code2Proadd proc far push bp mov bp,sp push ax push cx push si push di mov si,bp+0ah mov di,bp+08h mov cl,di mov di,bp+06h xor al,alAgain:add al,si inc si dec cl jnz again mov di,al pop di pop si pop cx pop ax pop bp ret 6Proadd endpCode2 ends end start,Code2 segment assume cs:code2Proadd proc pascal user ax cx si di,para:word,parc:word,pars:word mov si,para mov di,parc mov cl,di mov di,pars xor al,alAgain:add al,si inc si dec cl jnz again mov di,al ret Proadd endpCode2 ends end start,Sum地址Count地址Ary地址,(bp),IPCS,（bp+2),（bp+4),（bp+6),（bp+8),（bp+a),原始bp,pars,para,parc,局部变量,disicxax,（bp-2),Code2 segment assume cs:code2Proadd proc far push bp mov bp,sp push ax push cx push si push di mov si,bp+0ah mov di,bp+08h mov cl,di mov di,bp+06h xor al,alAgain:add al,si inc si dec cl jnz again mov di,al pop di pop si pop cx pop ax pop bp ret 6Proadd endpCode2 ends end start,Code2 segment assume cs:code2Proadd proc C user ax cx si di,pars:word,parc:word,para:word mov si,para mov di,parc mov cl,di mov di,pars xor al,alAgain:add al,si inc si dec cl jnz again mov di,al ret Proadd endpCode2 ends end start,Sum地址Count地址Ary地址,(bp),IPCS,（bp+2),（bp+4),（bp+6),（bp+8),（bp+a),原始bp,pars,para,parc,局部变量,disicxax,（bp-2),增强功能的过程定义伪操作除了以上功能外，还可以在过程中定义局部变量。局部变量是在过程内部使用的变量，他是在过程调用是在堆栈中建立的，在退出过程是被释放。可以用 LOCAL 定义 LOCAL 变量：类型，变量：类型,Sum地址Count地址Ary地址,(bp),IPCS,（bp+2),（bp+4),（bp+6),（bp+8),（bp+a),原始bp,（bp-2),（bp-4),局部变量,例6.8 编程把以ASCII形式表示的十进制数转换为二进制数,.model small.386.stack 200h.data Ascval db 12345 Binval dw?.codeMain proc farStart:mov ax,data mov ds,ax,lea bx,asval push bx lea bx,binval push bx call convaxbin mov ah,4ch int 21hMain endp,Convascbin proc pascal uses ax,bx,cx,dx,si,di,par1:word,par2:word Local asclen:word,mulfact:word mov bx,10 mov si,par1 mov di,par2 sub di,si mov asclen,di mov cx,asclen add si,asclen dec si mov mulfact,1 mov di,par2 mov di,0Next:mov al,si and ax,000fh,Mul mulfact Add di,ax Mov ax,mulfact Mul bx Mov mulfact,ax Dec si Loop next RetConvascbin endp end main,push bp mov bp,sp add sp,0fch push ax push bx push cx push dx push si push di mov bx,oah mov si,bp+6 mov di,bp+4 sub di,si mov bp2】，di mov cx,bp-2 add si,bp-2 dec si mov word ptr bp-2,0001 mov di,bp+4 mov word ptr di,0,例6.8 经过汇编后的Convascbin子过程程序,next:mov al,si and ax,000fh mul word ptr bp-4 add di,ax mov ax,bp-4 mul bx mov bp-4,ax dec si loop next pop di pop si pop dx pop cx pop bx pop ax mov sp,bp pop bp ret 0004,6.2 子程序的嵌套 一个子程序可以作为调用程序去掉用另一个子程序，这种情况称为子程序的嵌套。嵌套深度不限。但应注意的问题是堆栈的溢出：上溢、下溢递归子程序：如果一个子程序调用的是子程序的本身，就是递 归子程序。,例 计算 N!=N*(N-1)*(N-2)*1-递归子程序,Data segmentNum db 3Result dw?Data endsStack segment para stack stack db 100 dup(?)tos label wordStack endsCode segment assume cs:code,ds:data,ss:stackMain proc farBegin:push ds xor ax,ax push ax mov ax,data mov ds,ax,mov ax,stack mov ss,ax mov sp,offset tos mov ah,0 mov al,num call factor mov result,ax retMain endp,Factor proc push ax sub ax,1 jne f_cont pop ax jmp returnf_cont:call factor pop cx mul clreturn:retfactor endpCode ends end begin,IP1,Mov result,ax 地址,3,IP2,Pop cx 地址,2,IP3,Pop cx 地址,1,ax=1,IP POP CX 地址,cx=2,ax*cx=1*2,IP POP CX 地址,cx=3,ax*cx=1*2*3,IP Mov result,ax 地址,常用的DOS系统功能调用,1单字符输入（1号调用）2单字符显示（2号调用）3打印输出（5号调用）4结束调用（4CH号调用）5显示字符串（9号调用）6字符串输入（10号调用）,1单字符输入（1号调用）格式：MOVAH，1 INT21H功能：从键盘输入字符的ASCII码送入寄存器AL中，并送显示器显示。2单字符显示（2号调用）格式：MOV DL，待显示字符的ASCII码 MOV AH，2 INT 21H功能：将DL寄存器中的字符送显示器显示.,3打印输出（5号调用）格式：MOVDL，待打印字符的ASCII码MOV AH，5INT 21H功能：将DL寄存器中的字符送打印机打印。4结束调用（4CH号调用）格式：MOVAH，4CH INT21H功能：终止当前程序并返回调用程序。,5显示字符串（9号调用）格式：LEA DX，待显示字符串首偏移地址 MOV AH，9 INT 21H功能：将当前数据区中以结尾的字符串送显示器显示。6字符串输入（10号调用）格式：LEA DX，缓冲区首偏移地址 MOV AH，10 INT 21H功能：从键盘上输入一字符串到用户定义的输入缓冲区中，并送显示器显示。,maxlen db 32 actlen db?string db 32 dup(?),lea dx,maxlen mov ah,0ah int 21h,说明：缓冲区的第一个字节保存最大字符数，这个最 大字符数由用户程序给出。如果键入的字符数 比此数大，机器发出嘟嘟声。第二个字节存放 实际输入的字节数，这个不是由用户填入的而 由功能A填入的。在这两个字节之后，才是我们 输入的字符串。,6.3 子程序举例,例1：HEXIDEX是一个十六进制数转换成十进制数的程序。要求把从键盘输入的0 FFFFH的十六进制正数转换为十进制数并在屏幕上显示出来。,Display equ 2hKey equ 1hDoscall equ 21hHexidec segmentMain proc far assume cs:hexidecStart:push ds sub ax,ax push ax call hexidec call crlf call binidec call crlf jmp main ret main endp,Crlf proc near mov dl,0ah mov ah,display int boscall mov dl,0dh mov ah,display int doscall ret crlf endpHexidec ends end start,Hexidec proc near mov bx,0Newchar:mov key_in int doscall sub al,30h jl exit cmp al,10d jl add_to sub al,27h cmp al,0ah jl exit cmp ah,10h jge exitAdd_to:mov cl,4 shl bx,cl mov ah,0 add bx,ax jmpExit:RetHexidec 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 retDec_div proc near mov ax,bx mov dx,0 div cx mov bx,dx mov dl,al add dl,30h mov ah,display int doscall,retdec_div endpBinidec endp,例2：一个简单的信息检索系统。在数据区里，有10个不同的信息，编号为09，每个信息包括30个字符。现在要编制一个程序：从键盘接收09之间的一个编号，然后在屏幕上显示相应编号的信息的内容。,Datarea segment thirty db 30 msg0 db 0 I like my IBM-PC-msg1 db 1 I like my IBM-PC-msg2 db 2 I like my IBM-PC-msg3 db 3 I like my IBM-PC-msg4 db 4 I like my IBM-PC-msg5 db 5 I like my IBM-PC-msg6 db 6 I like my IBM-PC-msg7 db 7 I like my IBM-PC-msg8 db 8 I like my IBM-PC-msg9 db 9 I like my IBM-PC-errmsg db error!Invalid praameterDatarea ends,Stack segment db 256 dup(0)tos lable wordStack endsPrognam segment assume cs:prognam,ds:datarea,ss:stackStart:push ds xor ax,ax push ax mov ax,stack mov ss,ax mov ax,datarea mov ds,ax mov sp,offset tosBegin:mov ah,1 int 21h sub al,0 jc error cmp al,9 ja error,Mov bx,offset msg0 Mul thirty Add bx,ax Call display Jmp beginError:mov bx,offset errmsg call display retDisplay proc near mov cx,30 mov dl,bx call dispchar inc bx loop disp1 mov dl,0dh call dispchar mov dl,0ah call dispchar retDispchar endp,Dispchar proc naer mov ah,2 int 21h retDispchar endpMain endpPrognam endsEnd start,例3：人名排序程序。先从终端键入最多30个人名，当所有人名都进入后，按字母上升的次序将人名排序，并在屏幕上显示已经排好的人名。,Data segment namepar label byte maxnlen db 21 namelen db?namefld db 21 dup(?)crlf db 13,10,$endaddr dw?messg1 db name?,$”messg2 db sorted names,13,10,$namectr db 0 nametab db 30 dup(20 dup()namesav db 20 dup(?),13,10,$swapped db 0Data endsCode segment main proc far assume cs:code,ds:data,es:data start:push ds mov ax,0 push ax,mov ax,data mov ds,ax mov es,ax cld lea di,nametab a20loop:call b10read cmp namelen,0 jz a30 cmp namectr,30 je a30 call d10stor jmp a20loop a30:cmp namectr,1 jbe a40 call g10sort call k10disp a40:mov ah,4ch Int 21hMain endp,b10read proc near mov ah,09 lea dx,messg1 int 21h mov ah,0ah lea dx,namepar int 21h mov ah,09h lea dx crlf Int 21h mov bx,0 mov bl,namelen mov cx,21 sub cx,bx b20:mov namefldbx,20h inc bx loop b20 ret b10read endp,d10stor proc near inc namectr cld lea si,namectr mov cx,10 rep movsw ret p10stor endp g10sort proc near sub di,40 mov endaddr,di g20:mov swapped,0 lea si,nametab g30:mov cx,20 mov di,si add di,20 add ax,di mov ax,di mov bx,si repe cmpsb,jbe g40 call h10 xchg g40:mov si,ax cmp swapped,0 jnz g20 retG10sort endp,h10 xchg proc near mov cx,10 lea di,namesav mov si,bx rep movsw mov cx,10 mov di,bx rep movsw mov cx,10 lea si,namesav rep movsw mov swapped,1 ret h10 xchg endp,k10disp proc near mov ah,09 lea dx,messg2 int 21h lea si,nametab lea di,namesav mov cx,10 rep movsw mov ah,09 lea dx,namesav int 21h dec namectr jnz k20 retK10disp endp end start,第六章 作业,6.16.26.36.76.8,