DATAS SEGMENT
;在这里输入数据段代码
grade dw 90、45、67、89、98、78、78、75、82、85、85、75、75、75、75、74、67、78、79、77、78、79、77、79、77、79、77、79、77、79、79、79、79、79、79、79、79、79、79、79、79、79、79、77、79、67、79、675、75、75、75、75、75、75、75、75、75、75、75、75、75、75、67、79、67、67、67、67、69、677、679、67、67、67、67、67、67、67、79、67、67、67、7、67、67、7、67、7、7、67、7、7、67、7、7、7、7、797、7、797、7、79、79、79、79797、7、797、7、7、797、7、7、7、79、7、7、7、7、797、7、7、797、7、7、7、7、7、7、7、7、7、797、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、
sum dw ?
ave dw ?
s60 dw ?
s90 dw ?
mid dw ?
DATAS ENDS
STACKS SEGMENT
;在这里输入堆栈段代码
STACKS ENDS
CODES SEGMENT
ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
MOV AX,DATAS
MOV DS,AX
;此处输入代码段代码
mov bx,offset grade
call sum1
call ave1
call tongji
MOV AH,4CH
INT 21H
sum1 proc near
xor ax,ax
mov cx,10
lp:
add ax,[bx]
inc bx
inc bx
loop lp
mov sum,ax
ret
sum1 endp
ave1 proc
mov ax,sum
;mov dx,0
mov cx,10
div cx
mov ave,ax
ret
ave1 endp
tongji proc
mov bx,offset grade
mov cx,10
round:
mov ax,[bx]
cmp ax,90
jge l1
cmp ax,60
jl l2
inc word ptr mid
jmp next
l1:
inc word ptr s90
jmp next
l2: inc word ptr s60
next:
in bx
inc bx
loop round
ret
tongji endp
CODES ENDS
END START