;prg_13_2.asm
init_ds macro
;макрос настройки ds на сегмент данных
        mov     ax,data
        mov     ds,ax
        xor     ax,ax
        endm
out_str macro   str1
;макрос вывода строки на экран.
;На входе - выводимая строка.
;На выходе - сообщение на экране.
        push    ax
        mov     ah,09h
        mov     dx,offset str1
        int     21h
        pop     ax
        endm
exit    macro
;макрос конца программы
        mov     ax,4c00h
        int     21h
        endm
num_char        macro   message
local m1,elem,num,err_mes,find,num_exit
;макрос подсчета количества символов в строке.
;Длина строки - не более  99  символов.
;Вход: message - адрес строки символов, ограниченной '$'
;Выход: в al - количество символов в строке message и вывод сообщения
        jmp     m1
elem    db      'Число содержит '
num     db       2  dup ( 0 ) ;число символов в строке message в коде ASCII
        db      ' цифр', 10 , 13 ,'$'   ;конец строки для вывода функцией 09h
err_mes db      'Строка &message не содержит символа конца строки', 10 , 13 ,'$'
m1:
;сохраняем используемые в макросе регистры
        push    es
        push    cx
        push    ax
        push    di
        push    ds
        pop     es      ;настройка es на ds
        mov     al,'$'  ;символ для поиска - `$`
        cld             ;сброс флага df
        lea     di,message      ;загрузка в es:di смещения строки message
        push    di      ;запомним di - адрес начала строки
        mov     cx, 99    ;для префикса repne - максимальная длина строки
;поиск в строке (пока нужный символ и символ в строке не равны)
;выход - при первом совпавшем
repne   scasb
        je      find    ;если символ найден - переход на обработку
;вывод сообщения о том, что символ не найден
        push    ds
;подставляем cs вместо ds для функции 09h (int21h)
        push    cs
        pop     ds
        out_str err_mes
        pop     ds
        jmp     num_exit        ;выход из макроса
find:   ;совпали
;считаем количество символов в строке:
        pop     ax      ;восстановим адрес начала строки
        sub     di,ax   ;(di)=(di)-(ax)
        xchg    di,ax   ;(di) <-> (ax)
        sub     al, 3     ;корректировка на служебные символы -  10 ,  13 , '$'
        aam             ;в al две упакованные BCD-цифры результата подсчета
        or      ax,3030h        ;преобразование результата в код ASCII
        mov     cs:num,ah
        mov     cs:num+ 1 ,al
;вывести elem на экран
        push    ds
;подставляем cs вместо ds для функции 09h (int21h)
        push    cs
        pop     ds
        out_str elem
        pop     ds
num_exit:
        push    di
        push    ax
        push    cx
        push    es
        endm

data    segment para public 'data'
msg_1   db      '', 10 , 13 ,'$'
data ends

stk     segment stack
        db       256  dup('?')
stk     ends

code    segment para public 'code'
        assume  cs:code,ds:data,ss:stk
main    proc
	
	mov ah,0Ah
	int 21h
	mov msg_1,al
	
	
	init_ds ; инициализация стоки
        out_str msg_1
        num_char msg_1
        exit
main    endp
code    ends
end     main

mov ah, 3fh ; Функция ввода
mov bx,  0  ; Дескриптор клавиатуры (можно еще с RS232C или файла)
mov cx,  1  ; Число вводимых символов
mov dx, offset msg_1
int 21h

msg_1 db  128  dup ('*')

mov ah, 3fh    ; Функция ввода
mov bx,  0        ; Дескриптор клавиатуры (можно еще с RS232C или файла)
mov cx,  128     ; Число вводимых символов. Ограничте объемом зарезервированной области памяти
mov dx, offset msg_1
int 21h

	. 286 
	.model small
	.stack  256 


	.code

	mov	ah, 02h
	mov	dl, '>'	
	int 	21h

	mov	ah, 3fh
	xor	bx, bx
	mov	cx,  128 
	mov	dx, offset in_buf
	int	21h 	

	mov	bx, offset in_buf
	add	bx, ax
	mov	byte ptr [bx], '$'

	mov	ah, 09h
	mov	dx, offset in_buf
	int	21h

	mov	ax, 4c00h
	int	21h	


	.data
in_buf 	db  128  dup('*')

	end