Задача с обнулением одинаковых элементов массива

[MarkAfe]

Есть задача: Занулить элементы массива А(I) имеющие одинаковые значения. I=1,2,..,10, Определить количество оставшихся элементов.
Код работает, но зануляет только дубликаты. И в чем проблема, собственно говоря, не могу понять, как можно сделать чтобы занулялись все элементы, а не только дубликаты.

.model small     ;Модель памяти
.stack 100h      ;Сегмент стека
.data            ;Сегмент данных
len equ 10       ;Колличство элементов в mas
k db 10        ;Счетчик оставшихся элементов k=10
mas db 1,2,1,3,3,4,5,0,7,6 ;элементы массива
.code          ;Сегмент кода
start:
 mov ax,@data  ;Физическйий адрес сегмента данных в регистре ax
 mov ds,ax
 lea si, mas   ;si от 0 до 9-1(for i:=0 to 9-1)
 mov cx,len    ;Длину поля mas в cx
 jcxz exit     ;Проверка cx на 0, если 0, то выход
 dec cx        ;cx=cx-1
ForI:          ;Внешний цикл 
  mov di, si   ;di от si+1 до 9(for j:=i+1 to 9)
  add di, 1    ;Присваем значение 1
  push cx      ;запоминаем в регистр cx
  mov al, [si] ;al=индексу элемента
  cmp al, 0    ;Сравниваем с 0
  je  NextI    ;Если да, то на метку NextI
ForJ:          ;Внутренний цикл
 cmp al, [di]  ;если al равну инд.(if A[i]=A[j]then)
 jne NextJ     ;то на метку NextJ 
 mov [di], byte ptr 0  ;Обнуляем элементA[j]:=0;
 dec k         ;k:=k-1
NextJ:         ;Метка наращивания индекса элемента и счетчик
 add di, 1     ;Переходим к следующему элементу внутри цикла
 loop ForJ     ;Возвращаемся к метке ForJ
NextI:         ;Метка перехода к следующему элементу внешнего цикла
 pop cx        ;Вытасикиваем из регистра 
 add si, 1     ;Переход к следующему элементу внешнего цикла
 loop ForI     ;Возвращаемся в метку ForI
exit:          ;метка выхода из программы
 mov ax,4c00h
 int 21h   ;Возврат управления операционной системе
end start

[R71MT]

почитай про строковые инструкции LODSB, STOSB, SCASB.
SCASB - это поиск символа(AL) в строке(ES:DI). Если есть дубликат, то записываешь нуль в DI-1.