;       ГРУППА 22103
;       ПОДГРУППА 6
;       ИСПЫТАТЕЛЬ КОРЗУH ДМ.
;       ДАТА    17/12/93
;       ПРОГРАММА В СТИЛЕ BORLAND С++
;       ВHИМАHИЕ !!! ИСПОЛЬЗУЮТСЯ СПЕЦЭФФЕКТЫ.

        MODEL   Small,C

        .STACK   200h

        .DATA
Str     db      'My Woord is local',0           ;параметр 1
        db      13,10,'$'

        .CODE
EXTRN    C Tst   :PROC                           ;п/п описана в другом модуле

Start:
;-------подготовка регистра ds
        mov     ax,@data
        mov     ds,ax

;-------Главная часть программы

;-------Выведем начальную строку
        mov     dx,offset Str                   ;смещение выводимой строки
        mov     ah,09                           ;номер ф-ии DOS
        int     21h                             ;вызов ф-ии вывода

;-------Изменим строку
        call    Tst   C,offset [Str],'o','k'    ;вызов п/п замены в строке Str
                                                ;cимволов 'o' на 'k'
;-------Выведем измененную строку
        mov     dx,offset Str                   ;смещение выводимой строки
        mov     ah,09                           ;номер ф-ии DOS
        int     21h                             ;вызов ф-ии вывода

;-------Конец программы
        mov     ah,4ch
        int     21h
END     Start
