;521.asm

        .model small
        .data
array   dw 2,2,2
        .stack 100h
        .code
main    proc far
start:
        push ds
        sub  ax,ax
        push ax
        mov  ax,@data
        mov  ds,ax
        mov  cx,3
        mov  si,0
        mov  dl,-1
loop1:  mov  ax,array[si]
        push cx
        mov  cx,3
        mov  di,0
        mov  bl,-1
loop2:  cmp  ax,array[di]
        jnz  next
        inc  bl
next:   add  di,2
        loop loop2
        cmp  dl,bl
        jg   next1
        mov  dl,bl
next1:  pop  cx
        add  si,2
        loop loop1
        add  dl,30h
        mov  ah,2
        int  21h
        ret
main    endp
        end  start