汇编实验六参考参考程序.docVIP

实验子程序 一、实验目的: 1、掌握利用堆栈传递参数的子程序调用方法。 2、掌握子程序递归调用方法。 3、过程调用伪指令: PROC,ENDP,NEAR和FAR。 4、80X86指令: CALL,RET,RET n。 二、实验内容及步骤: 1．利用堆栈传递参数的子程序调用。(求累加和) 程序: stack segment stack db 256 dup(0) stack ends data segment ary1 db 1,2,3,4,5,6,7,8,9,10 count1 equ $-ary1 sum1 dw ? ary2 db 10,11,12,13,14,15,16,17,18 count2 equ $-ary2 sum2 dw ? data ends main segment assume cs:main,ds:data,ss:stack start proc far push ds xor ax,ax push ax mov ax,data mov ds,ax mov ax,count1 push ax lea ax,ary1 push ax call far ptr sum mov ax,count2 push ax lea ax,ary2 push ax call far ptr sum ret start endp main ends proce segment assume cs: proce sum proc far mov bp,sp mov cx,[bp+6] mov bx,[bp+4] xor ax,ax adn: add al,[bx] adc ah,0 inc bx loop adn mov [bx],ax ret 4 sum endp proce ends end start 步骤: （1）、输入,汇编并将此程序连接成EXE文件。 （2）、记录最后结果:SUM1,SUM2的段及偏移地址和它们的内容。 2．练习子程序递归调用(求阶乘)。 3．编写子程序。 已知数据段定义如下： DATA SEGMENT USE16 NUM DW 12,45,65533,6345,32766,38,690,7212,3421,1289 N = ($-NUM)/2 BUF DB 100 DUP(0) DATA ENDS 试编写程序，对数据区中NUM由小到大进行排序，并调用子程序RADIX，将排序后的结果输出。 DATAS SEGMENT USE16 NUM DW 12,45,65533,6345,32766,38,690,7212,3421,1289 N = ($-NUM)/2 BUF DB 100 DUP(0) DATAS ENDS CODES SEGMENT USE16 ASSUME CS:CODES,DS:DATAS START: MOV AX,DATAS MOV DS,AX LEA DI,NUM MOV BL,N-1 AA1:MOV SI,DI MOV CL,BL AA2:MOV AX,[SI] ADD SI,2 CMP AX,[SI] JBE AA3 MOV DX,[SI] MOV [SI-2],DX MOV [SI],AX AA3:DEC CL JNZ AA2 DEC BL JNZ AA1 MOV CX,N LEA DI,NUM LOPA: MOV AX,[DI] MOV BX,10 LEA SI,BUF CALL RADIX MOV BYTE PTR [SI], MOV BYTE PTR [SI+1],$ LEA DX,BUF MOV AH,9 INT 21H ADD DI,2 LOOP LOPA MOV AH,4CH INT 21H RADIX PROC PUSH CX PUSH DX XOR CX,CX LOP1:XOR DX,DX DIV BX PUSH DX INC CX OR AX,AX JNZ LOP1 LOP2:POP AX CMP AL,10 JB L1 ADD AL,7 L1: ADD AL,30H MOV [SI],AL INC SI LOOP LOP2 POP DX POP CX RET RADIX ENDP MO