.MODEL small
.STACK 100h
.DATA
Retaz DB 12 dup (?)
RetazS DB 10 dup (?)
Ano DB 'Ano$'
Nie DB 'Nie$'
.CODE
Zac: mov ax,@data 
	mov ds,ax
	mov dx, offset Retaz
	mov Retaz, 10
	mov ah, 0Ah
	int 21h
	
	mov ah, 2
	mov dl, 0Dh
	int 21h
	
	mov dl, 0Ah
	int 21h
	
	mov ah, 1
	int 21h
	mov bl,al
	
	
	
	mov di, 2
	
VypisZnak: 
	mov dl,[Retaz+di]
	cmp dl,0Dh ; porovnavanie s enterom
	
		
	jz DajNie
	
	cmp dl,bl
	jz DajAno
	
	inc di
	
	jmp VypisZnak
	
	
	
DajAno: mov ah, 9
		mov dx, offset Ano
		int 21h
		jmp Koniec
DajNie: mov ah, 9
		mov dx, offset Nie
		int 21h
		jmp Koniec	
	
Koniec: 

	mov ax,4C00h
	int 21h
END Zac