Ассемблер. Циклы. Найти кол-во числе больше 10h (10 в 16ой системе) . Массив слов

ideal
model small

segment data
  Array dw -9579, -9020, 756, 24883, 3031, -19112, -8784
      dw 32202, -20170, -9464, -12684, -19663, -1097
      dw -1987, -9366, -28971, 16545, 31721, 10057, 28841
      dw 28889, 25161, 27541, 72, -5481, -4067, 22490
      dw -15513, -13038, -17, 26661, -19337, 31090, -2943
      dw 19800, 17330, 13103, 31199, -14650, 18510
  Count dw 0
  Len equ (Count - Array) shr 1
ends

segment code
    assume cs: code, ds: data, ss: stseg
N80909907:
    mov dx,data
    mov ds,dx

;------
; Начало вашей задачи
    lea si,[Array]; запись адреса начала массива в регистр si
    mov cx,Len; загрузка кол-ва элементов массива в регистр cx
Repeat:
    lodsw; загрузка в ax очередного элемента массива
    cmp ax,10h; сравнение его с 16
    jle NotInc; если меньше или равно 16, то перепрыгнуть через инкремент
    inc [Count]; иначе увеличить счётчик искомых элементов на 1
NotInc:
    loop Repeat; уменьшить cx на 1 и если cx/=0, то переход на начало цикла
; Всё. В переменной Count записано кол-во элементов, больших 10h
; Конец задачи, как она была вами сформулирована
;------

    mov ax,4C00h
    int 21h
ends

segment stseg stack
    dw 100h dup (?)
ends
    end N80909907