;Поиск буквы  в массиве и вывод ее позиции в массивею Буква вводится с клавиатуры.

;начало сегмента данных
ds1 segment
str db 'aejtyqwrt', 0ffh
ds1 ends
;конец сегмента данных
cs1 segment	;начало сегмента кодов
assume ds:ds1, cs:cs1
start proc
mov ax, ds1
mov ds, ax
	mov dh, 1
	mov si, 0
	mov ah, 1
	int 21h
	mov bh, al
	;mov bh, 'j'
check: 	mov bl, str[si]
	cmp bl, 0ffh
	je nofind
	cmp bl, bh
	je find
	add si, 1
	inc dh
	jmp check
find: 	mov dl, bl
	jmp done
nofind: 	mov dl, '?'
done: 	mov ah, 2
	int 21h
	or dh, 30h
	mov dl, dh
	int 21h
	mov ah, 1
	int 21h
	mov ah, 4ch
	int 21h
start endp
cs1 ends		;конец сегмента кодов
end start
