.MODEL SMALL
.stack 100h

;------------------------------------------------------

data1 	segment
vstup1	db 	50		;dat segm.1
pocet1 	db	0
retaz1	db 	50 dup(?)
meno	db	10,13,'Milos Busniak kr: c.1',10,13,'$'
zadajr1 db 	10,13,'Zadaj retazec 1:',10,13,'$'
zadajr2 db 	10,13,'Zadaj retazec 2:',10,13,'$'
zadajp	db	10,13,'Zadaj hladany podretazec : $'
ano1	db	10,13,'Zadany podretazec sa nachadza v retazci c.1',10,13,'$'
ano2	db	10,13,'Zadany podretazec sa nachadza v retazci c.2',10,13,'$'
nie1 	db	10,13,'Zadany podretazec sa nenachadza v retazci c.1',10,13,'$'
nie2	db	10,13,'Zadany podretazec sa nenachadza v retazci c.2',10,13,'$'
data1 	ends

data2	segment
vstup2	db 	50		;dat seg.2
pocet2 	db	0
retaz2	db	50 dup(?)
vstup3	db 	50		;hladany podretazec
pocet3 	db	0
retaz3	db	50 dup(?)
data2	ends

;---------------------------------------------------------

code 	segment
	assume cs:code,ds:data1
	
start:	mov ax,seg data1
	mov ds,ax
	mov ah,0fh		;mazanie obrazovky
	int 10h
	mov ah,00h
	int 10h
	mov dx,offset meno	;vypis autora
	mov ah,09h
	int 21h
	mov dx,offset zadajr1  ;vypis zadaj ret.
	mov ah,09h
	int 21h
	mov ah,0ah		;nacitanie retazca do prveho seg.
	mov dx,offset vstup1
	int 21h
	mov dx,offset zadajr2  ;vypis zadaj ret.
	mov ah,09h
	int 21h
	push ds
	mov ax,seg data2
	mov ds,ax
	mov es,ax
	mov ah,0ah		;nacitanie retazca do druheho segmentu
	mov dx,offset vstup2
	int 21h
	pop ds  ;<<data(1)
	mov dx,offset zadajp
	mov ah,09h
	int 21h
	push ds 
	mov ax,es
	mov ds,ax
	mov ah,0ah		;nacitanie podretazca do druheho seg.
	mov dx,offset vstup3
	int 21h
	pop ds

	mov bl,pocet1
	sub bl,ES:pocet3
	mov bh,0
	lea si,retaz1	;ukazuje na zaciatok retazca 1
	add bx,si

opak1:	lea di,retaz3	;ukazuje na zac.podretazca
	mov cl,ES:pocet3 ;nastavy dlzku kontrolovaneho ret. podla dlzky podretazca
	mov ch,0
	push si
	repe cmpsb	;porovnanie
	pop si
	jz jetam  ;aj je ZF=1 tak sa zhoduju a skoci
	inc si	;inac posunie adresu v prvom ret. a porovna ju s poslednou adresou kde sa moze nachadzat podretazec.
	cmp si,bx  ;ak sa tam este podretazec vmesti tak skoci na opak1
	jbe opak1
	
	lea dx,nie1  ;vypis nie je tam
	mov ah,9
	int 21h
	jmp dr

jetam:	lea dx,ano1  ;vypis je tam
	mov ah,9
	int 21h

dr:	push ds                    ;(dr- druhy retazec)
	mov ax,seg data2	;bude porovnavat retazec v druhom seg s podretazcom ktory je ulozeny tiez v druhom segmente
	mov ds,ax
	mov bl,es:pocet2
	sub bl,es:pocet3
	mov bh,0
	lea si,retaz2
	add bx,si	;vypocet poslednej adresy kde sa moze nachadzat podretazec

opak2:	lea di,retaz3
	mov cl,ES:pocet3
	mov ch,0
	push si
	repe cmpsb
	pop si
	jz jetam2
	inc si
	cmp si,bx
	jbe opak2

	pop ds
	lea dx,nie2
	mov ah,9
	int 21h
	jmp posun
jetam2:	pop ds
	lea dx,ano2
	mov ah,9
	int 21h

posun:  mov cl,DS:pocet1
	mov ch,0
	mov ax,ds
	mov es,ax
	lea si,retaz1
	add si,cx 
	dec si    ;si ukazuje na posledny bajt prveho ret.
	mov di,si
	add di,20  ;di ukazuje na adresu kam sa ma premiestnit ret., cize o 20 bajtov dalej
	std	;nastavy opacny smer spracovania retazcov
	rep movsb	;presunie ratazec
	cld
koniec:	mov ax,04c00h
	int 21h
code 	ends
	end start