NEJAKY SEGMENT DATA PATRI SEM
db	cesta	"C:\TU_JE_CESTA"
db	subor 	00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,'$'

.....
start
	mov ah,3dh	;otvor subor
	mov al,00
	mov dx,[cesta]
	int 21h		;v ax mame popisovac suboru

	mov bx,ax	;v bx mame popisovac suboru

	mov ax,3f00h	;citaj zo suboru
	mov cx,10	;prvych 10B
	mov dx,[cesta]	;a zapis ich sem
	int 21h

	push segment [cesta]
	push [cesta]

	call procedura

	mov al,dl	; do AL dame DL
	add al,48	; +48, ASCII cislo
	mov ah, 09h	; vypis
	int 21h
.....
end

extern procedura:	; dostane pushnuty retazec
			; vysledok v DL
	mov bp,sp
	mov bx,[bp+8]	; 4 = segment, 8 = offset
	mov dh,1
cykZ:			; podla dh
	mov al,[bx]
	cmp al,' '	; porovname s medzerou
	jne nic		; ak nie je, cykli dalej

	mov dl,dh	; ak je, uchovaj poradie

nic:
	cmp al,'$'	; koncil string?
	je cykK		; tak koncime

	inc bx		; inac tocime dalej
	inc dh
	jmp cykZ
cykK:
	pop bp
	add sp, 8
	ret