微机原理实验三编程实现子程序调用.doc

实验二 编程实现循环程序 ************************************************************************************** 一、题目内容 ************************************************************************************** 编程实现： 1.主程序由键盘输入一个数(10)，用子程序1实现DATA段以这个数为首连续十个整数填充字节数组buf。譬如显示提示：”Please input a number：”，键盘输入3，执行子程序1后buf db 3，4，5，6，7，8，9，10，11，12。 2.主程序实现十个数求和，调用另一子程序2实现将和逐位转为ASCII码显示:”Sum is: xx”。 提示：和不会超过十进制3位数，所以将和除以10，逐位转换，再加上30H即分别可以得它们的ASCII码。 ************************************************************************************** 流程图************************************************************************************** **************************************************************************************三、程序代码 ************************************************************************************** stack segment stack stack dw 32 dup(0) stack ends ;========================== data segment TIP1 DB Plesase input a number(0n10) : $ BUF DB 10 DUP(?) TIP2 DB From n to n+10 is the result of the : $ SUM DW 0 data ends ;========================== STAC SEGMENT ;用于变量定义予置的堆栈空间 STA DB 100 DUP(?) STAC ENDS ;========================== code segment ;=================== MAIN proc far assume ss:stack,cs:code,ds:data push ds sub ax,ax mov ax,data mov ds,ax ;=========== MOV DX,OFFSET TIP1 ;显示提示语 MOV AH,9 INT 21H XOR AX,AX ;键入并显示一个字符，把字符的ASCII码存入AL中 MOV AH,1 INT 21H MOV DL,0AH ;换行 PUSH AX MOV AH,2 INT 21H POP AX MOV DI,OFFSET BUF ;取BUF的首址存入DI中 XOR CX,CX CALL AddNum ;—1—调用子程序FUZHI实现DATA段以这个数为首连续十个整数填充字节数组buf XOR AX,AX MOV CX,0AH ;给LOOP2循环赋初值10 MOV DI,OFFSET BUF AGAIN2: ADD AX,[DI] ;主程序实现求上述十个数的和，存入AX中 INC DI LOOP AGAIN2 ;循环10次