Написать и протестировать функцию для замены символов ‘:’ на ‘.’ в заданной строке, начиная с указанной позиции

.model tiny
 
.code
 
        org     100h
main    proc
 
        jmp     start
 
        ;Данные
        String          db      'asd:jkl.::gh:'
        StrLen          equ     $-String
        CrLf            db      0Dh, 0Ah, '$'
start:
        ;программа
        mov     ah,     09h
        lea     dx,     [String]
        int     21h
 
        mov     cx,     StrLen
        lea     si,     [String]
        mov     bx,     StrLen-1
        call    Replace
 
        mov     ah,     09h
        lea     dx,     [String]
        int     21h
        int     20h
main    endp
 
; замена символов ':' на '.'
; на входе:
; ds:[si] - строка
; cx      - длина строки
; bx      - начальная позиция для замены (от 0)
Replace proc
        push    ax
        push    bx
        push    cx
        push    dx
 
        jcxz    @@Break
        dec     cx
        sub     cx,     bx
        jb      @@Break
        inc     cx
        cld
        add     si,     bx
        mov     di,     si
        @@ForEachChar:
                lodsb
                cmp     al,     ':'
                jne     @@Next
                mov     al,     '.'
        @@Next:
                stosb
        loop    @@ForEachChar
@@Break:
        pop     dx
        pop     cx
        pop     bx
        pop     ax
        ret
Replace endp
 
end     main