cseg segment
assume cs:cseg, ds:cseg, ss:cseg, es:cseg
org 100h
Start:
  mov si,offset Array
INITIAL:
  lodsb
  mov bl, al
  mov cx,1
  jmp PROVERKA
PROVERKA:
  lodsb
  cmp al,24h
  je STRCOMP

  cmp al,bl
  jg NEWMAX
  je REPEATMAX
  jmp PROVERKA

NEWMAX:
  mov bl, al
  mov cx, 1
  jmp PROVERKA
REPEATMAX:
  inc cx
  jmp PROVERKA
STRCOMP:
  mov ah,9
  mov dx,offset String1
  int 21h
  cmp cx,1
  jg YES
  jmp NO
YES:
  mov ah,9
  mov dx,offset String2
  int 21h
  jmp EXIT
NO:
  mov ah,9
  mov dx,offset String3
  int 21h
EXIT:
  mov ah,10h
  int 16h
  int 20h

Array db 10,8,3,4,6,8,9,24h
String1 db '10,8,3,4,6,8,9.$'
String2 db 10, 13, 'max repeats: YES$'
String3 db 10, 13, 'max repeats: NO$'
cseg ends
end Start