data segment
grade db 76,69,84,90,73,88,99,63,100,80
rank db 6 dup(?),'$'
data ends
code segment
     assume cs:code,ds:data
main proc far
start: push ds
       xor ax,ax
       push ax
       mov ax,data
       mov ds,ax
       call count
       call print
       ret
main endp
count proc near
       mov cx,10
       mov si,offset grade
       mov di,0
again: mov al,[si]
       cmp al,60
       jae next1
       add rank[di],1
       jmp next
next1: cmp al,70
       jae next2
       add rank[di+1],1
       jmp next
next2: cmp al,80
       jae next3
       add rank[di+2],1
       jmp next
next3: cmp al,90
       jae next4
       add rank[di+3],1
       jmp next
next4: cmp al,100
       je next5
       add rank[di+4],1
       jmp next  
next5: add rank[di+5],1
next:  inc si
       loop again
       ret
count endp
print proc near
begin: mov cx,6
print1:add rank[di],30h
       inc di
       loop print1
       mov dx,offset rank
       mov ah,09h
       int 21h
       ret
print endp
code ends
     end start