Немного не работает код лабораторной

[Sonyalex90]

Задание : 12. Разработать подпрограмму, которая разбивает заданную строку на слова (слово считается от пробела до пробела, но в состав слова не вхо-дят). Разработать программу, которая вводит с клавиатуры строку и выво-дит каждое слово с новой строки.

Код:
data segment
stroka db '','$'
IN_STR db 80, ?, 82 dup (?) ; буфер ввода
OUT_STR db 0Dh, 0Ah,'$' ; буфер вывода
KOL db 0 ;символов в слове
data ends
code segment
assume cs:code, dsata
START: mov ax, data
mov ds, ax ; Загрузить сегментный адрес данных

mov ax,3
int 10h; очистка экрана

; Ввод строки
lea dx, IN_STR
mov ah, 0ah
int 21h
; перевод на новую строку
lea dx,OUT_STR
mov ah,09h
int 21h

xor ax,ax
lea bx, IN_STR+2
mov cl, IN_STR+1

cik1:
mov al, [BX] ; очередной символ строки
cmp al,' '
jne prob1
INC BX
LOOP cik1


prob1: mov cl, IN_STR+1
cik:
mov al, [BX] ; очередной символ строки
cmp al,' '
jne prob
mov al,KOL
mov KOL,0
cmp al,1
jng sled

push cx
push bx
sub bx,ax
mov cl,al;количество символов инвертирования
call near ptr invert

pop bx
pop cx
dec KOL
xor ax,ax

prob: inc KOL
sled:
inc bx
loop cik


mov ah,01
int 21h
QUIT: mov ax, 4C00h ; Код завершения 0
int 21h ; Выход в DOS


invert proc near ; Подпрограмма
push si
xor ax,ax
O: mov ah,02h
mov dl,[bx]
int 21h
inc bx
LOOP O
lea dx,OUT_STR
mov ah,09h
int 21h
pop si
ret
invert endp


code ends
end START




теряется последнее введенное слово..... что тут не так? =(

[airyashov]

допишите в конец строки пробел, скорректируйте количество символов строке+1

mov cl, IN_STR+1

что у Вас в ch?