code segment
assume cs:code
org 100h
start:
jmp bbb
score dw 0,55,60,65,70,75,80,85,90,95,1,2,3,4,5,67,68,69,99,98
n dw 20
e dw ?
d dw ?
c dw ?
b dw ?
a dw ?
;===============
bbb: push cs
pop ds
push cs
pop es
lea si,score
lea di,e
mov cx,n
lp: lodsw
sub ax,50
cmp ax,0
jge m1
mov ax,0
m1: mov dx,0
mov bx,10
div bx
mov bx,ax
shl bx,1
inc word ptr [di+bx]
loop lp
; ==============
lea si,a
mov cx,5
m2: mov ah,2
mov dl,[si]
add dl,30h
int 21h
mov ah,2
mov dl,' '
int 21h
dec si
dec si
loop m2
;===============
mov ah,4ch
int 21h
code ends
end start