Lab1.asm

.STACK
Data_seg Segment
result db ?
data_list db 12,13,14,15,16,54,43,32,21,10
string db "00",'$'
Data_Seg ends

Code_Seg Segment
assume cs:code_seg, ds:data_seg
Begin proc far

mov ax,data_seg
mov ds,ax

        mov bx,offset data_list
        sub ax,ax
mov cx,9
mov al,[bx]
again: inc bx
cmp al,[bx]
jbe not_gt
mov al,[bx]
not_gt: dec cx
jnz again

mov result,al

sub ax,ax
mov al,result
mov bl,10
div bl
add al,30h
add ah,30h
mov si,offset string

mov bh,ah
mov ah,02h
mov dl,al
int 21h

mov ah,02h
mov dl,bh
int 21h

mov ax,4c00h
int 21h
Begin endp
Code_Seg ends
end begin