实验5 子程序设计.docVIP

实验五 子程序结构设计 实验目的 1、加深对程序的理解，掌握程序的结构。掌握程序的设计、调试方法。DATAS SEGMENT GRADE DB 76,68,54,80,45,92,63,58,94,85 MAX DW ? COUNT DB ? DATAS ENDS CODES SEGMENT ASSUME CS:CODES,DS:DATAS MAIN PROC FAR START: PUSH DS MOV AX,0 PUSH AX MOV AX,datas MOV DS,AX CALL MAXGRADE CALL BUJIGE CALL AVGRADE RET MAIN ENDP MAXGRADE PROC FAR push ax push cx push si mov cx,10 mov ax,0 mov si,ax start_loop: mov ax,word ptr grade[si] cmp ax,word ptr grade[si+1] jge big mov ax,word ptr grade[si+1] big: inc si loop start_loop mov max,ax pop si pop cx pop ax ret MAXGRADE ENDP BUJIGE PROC FAR PUSH SI PUSH CX PUSH AX MOV AX,0 MOV COUNT,0 MOV CX,10 LOOP_START2: MOV AX,WORD PTR GRADE[SI] CMP AX,60 JG SMALL2 INC COUNT SMALL2: INC SI LOOP LOOP_START2 POP AX POP CX POP SI RET BUJIGE ENDP AVGRADE PROC FAR push ds sub ax,ax push ax mov ax,DATAS mov ds,ax mov cx,10 mov bx,0 mov dx,0 avg_grade_1: mov al,grade[bx] cbw add dx,ax inc bx loop avg_grade_1 mov ax,dx mov bl,10 div bl sub ah,ah div bl push ax add al,30h mov dl,al mov ah,02 int 21h pop ax add ah,30h mov dl,ah mov ah,02 int 21h mov ah,4ch int