stack segment para stack 'stack'
	db 100h	dup (?)
stack ends
data segment para public 'data'
	string db '2hglklk8jhgjh8-088' ; 57 simv
	ind dw 0
	str_bit dq 1111111111111111111111111111111111111111111111111111111111111111b
	str_srav db "0123456789"
	str_1 dw 64 dup (?) 
	ind_1 dw 0
	str_2 db 64 dup (?) 
	ind_2 dw 0
	fnd	db 'naiden $'
	nochar db 'simvol ne naiden $'
	
data ends
code segment para public 'code'
	assume cs:code,ds:data,ss:stack,es:data
main:
	mov		ax,data
	mov		ds,ax
	mov		es,ax
	mov		ah,09h
	lea		dx,string
	int		21h
	lea		bx,string
	mov		ind,bx
	mov		al,[bx]
	cld	
	lea		di,str_srav
	mov		cx,10
repne		scas str_srav
	je		found
failed:
	mov		ah,09h
	lea		dx,nochar
	int		21h
	jmp 	exit
found:
	mov		ah,09h
	lea		dx,fnd
	int		21h
	jmp		exit
	
exit:
	mov		ax,4c00h
  	int		21h
code ends
end 	main