;program otvori subor 'data.inc', kde su pripravene data. Precitaju sa zo
;suboru po znakoch az po koniec suboru a ulozia sa do pamati na adresu
; 'precitane'. Ked bol precitany cely subor, vypise sa o tom hlasenie.

DATA SEGMENT
subor	  db 'data.inc',0        ; definicia suboru 
precitane db  100 dup(?)         ; tu sa bude ukladat citany subor
text	  db 'bol nacitany subor$'
DATA ENDS

CODE SEGMENT
ASSUME CS:code,ds:data
start:  mov ax,seg data
	mov ds,ax
	mov ah,3dh              ; otvor subor
	mov al,0                ; na citanie 
	mov dx,offset subor     ; je to subor data.inc
	int 21h
	mov dx,offset precitane ; bude sa ukladat do pameti
	mov cx,1                ; po jednom znaku
	mov bx,ax               ; do bx daj handler otvoreneho suboru
citaj:	mov ah,3fh              ; citaj subor
	int 21h
	inc dx	                ; priprav adresu pre ulozenie dalsieho
                                ; znaku do pameti 'precitane'
       	cmp ax,0                ; bol EOF?
	jne citaj		; ak nie, citaj dalsi znak zo suboru
        mov dx,offset text      ; kontrola precitaneho suboru
	mov ah,9
        int 21h
	mov ax,4c00h
	int 21h
	ends
	end start