Замена одного символа на другой

[W0o0Lf]

Приветствую Вас коллеги, пожалуйста помогите решить небольшую проблему по ассемблеру. Задача решена правильно. То есть условие задачи такое:
заменить в строке все символы "." на символ ",".
Но там вопрос поставили так:
Заменить символы точку на символ запятую, НО только один раз.
Например:
лваоплвап.......выфаыва......вап... вап..вап
То есть после набора букв "лваоплвап" точки поменялись на запятые, а после букв "выфаыва" и до конца строки оставалось все без изменения.
Как это исправить в коде подскажите!!!
------------------------------------------------------------------------
;сегмент данных
data segment
mes1 db 'Vvedennay stroka:',0ah,0dh,'$'
mes2 db 0ah,0dh,'Izmenennay stroka:',0ah,0dh,'$'
buf db 78
len db 00
s db 78 dup('$'),'$'
data ends

;сегмент кода
code segment
assume CS:code, DS: data, SS:stseg
start:
xor AX,AX
mov BX,data
mov DS,BX

;ввод строки
mov AH,09h
lea DX,mes1
int 21h
mov AH,0ah
lea DX,buf
int 21h

;вывод исходной строки
mov AH,09h
lea DX,s
int 21h

;изменение строки
mov CX,word ptr len
mov BX,0
mloop:
cmp s[BX],'.'
jne mnext
mov s[BX],','
mnext:
inc BX
loop mloop

;вывод изменённой строки
mov AH,09h
lea DX,mes2
int 21h
mov AH,09h
lea DX,s
int 21h
-------------------------------------------------------------