Поменять местами слова в строке

[Artemka758]

Дан текст, состоящий из 6 слов по 8 символов, разделенных пробелом. Переставить слова в тексте так, чтобы каждое следующее слово начиналось с той буквы, на которую закончилось предыдущее. Первое слово оставить на месте.
Не выводит правильный результат, в чем моя ошибка??

.DATA
str1 db 'Bkjhdsda kdhjsiye anljksfk easdsanx masdjooiu xhlihism','$'
len equ $-str1
str2 db len dup(?)
.code
assume ds:@data, es:@data
main:
mov ax,@data
mov ds,ax
mov es,ax

lea si,str1
call vivod
lea di,str2
mov cx,5
cikl:
mov al,[di-2]
push di
push cx
mov cx,len-9
lea di,str1+9
@b:
repne scasb
cmp byte ptr [di],20h
jne @f
loop @b
@f:
dec di
mov si,di
pop cx
pop di
loop cikl
jmp exit

vivod:
mov ah,9
int 21h

exit:

mov ah,09h
int 21h

mov ax,4c00h
int 21h

end main

[R71MT]

Сообщение от Artemka758

в чем моя ошибка??

..в том, что программа заканчивается, ещё не начавшись - call vivod и сразу exit

[Artemka758]

почему тогда результат дважды повторяется?
первое повторение это как должно быть предложение, а второе должно быть изменено
хорошо, изменил, по другому но вывод тот же

[R71MT]

Сообщение от Artemka758

почему тогда результат дважды повторяется?

поставь ret перед exit

[Artemka758]

Все равно не меняются слова как надо