Отладка программы

[stas9In]

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

masm
model small
.stack 256
.data
array db 1,2,1,1,4,2,7,4,1,10
lenth = $ - array
.code
main:   
	mov cx,lenth+1
mov bx,offset array
a2: push cx
mov al,[bx]
cmp al,0FFh
je a1
mov di,bx
inc di
a0: repne scasb
jcxz a1
mov byte ptr [di-1],0FFh
loop a0
a1: inc bx
pop cx
loop a2
mov al,0FFh
a5: xor bx,bx
        mov cx,lenth
mov di,offset array
a4: repne scasb
        jcxz a3
cmp al,[di]
je a4
xchg al,[di]
xchg al,[di-1]
        mov bl,1
        jmp a4
a3: cmp bx,1
jz a5
mov di,offset array
mov si,di
repne scasb
sub di,si
dec di
end main

[Mikl___]

stas9In три недели назад на http://www.cyberforum.ru я дал тебе рабочую программу и исчерпывающие комментарии к ней, которую ты приводишь здесь без завершающей строчки RET -- за каким хреном ее еще нужно отлаживать? Потому что из COM нужно сделать EXE?

[stas9In]

А куда RET ставить? И в таком виде получиться EXE?

[Mikl___]

после main: поставь mov ax,@data / mov ds,ax / mov es,ax
перед end main вставь mov ah,4Ch / int 21h и получится экзе
об этом можно было три недели назад спросить на http://www.cyberforum.ru и не создавать новую тему

[stas9In]

Спасибо большое

[stas9In]

А как сделать чтобы оно удаляло вообще все которые повторяются, т.е. из данного масиива 1,2,1,1,4,2,7,4,1,10 остались только числа 7 и 10.

[Mikl___]

stas9In а самостоятельно? на основе готовой программы слабо?