datarea segment
	grade dw 56,69,84,82,73,88,99,63,100,80
	s5 dw 0
	s6 dw 0
	s7 dw 0
	s8 dw 0
	s9 dw 0
	s10 dw 0
	datarea ends
	prognam segment
		main proc far
		assume cs:prognam,ds:datarea
		start:
		push ds
		sub ax,ax
		push ax
		mov ax,datarea
		mov ds,ax
		mov s5,0
		mov s6,0
		mov s7,0
		mov s8,0
		mov s9,0
		mov s10,0
		mov cx,10
		mov bx,offset grade
		compare:
		mov ax,[bx]
		cmp ax,60
		jl five
		cmp ax,70
		jl six
		cmp ax,80
		jl seven
		cmp ax,90
		jl eight
		cmp ax,100
		jne nine
		inc s10
		jmp short change_addr
	nine:inc s9
	    jmp short change_addr
	eight:inc s8
	    jmp short change_addr
	seven:inc s7
	    jmp short change_addr
	six:inc s6
	    jmp short change_addr
	five:inc s5
	change_addr:
	    add bx,2
	    loop compare
	    ret
	main endp
	prognam ends
	end start