.model small
       .stack 100h             ; Urcuje velkost zasobniku

 ;      .386                    ; Podpora procesora 386

       .data                   ; definicia datoveho segmentu

ERROR1	DB	  10,13,'Nepodarilo sa otvorit(vytvorit) subor$'
ERROR2	DB	  10,13,'Nepodarilo sa nacitat data$'
ERROR3	DB	  10,13,'Nepodarilo sa zatvorit subor$'
ERROR4	DB	  10,13,'cislo mimo rozsahu<-32768 ; 32767>$'
OK1	DB	  10,13,'otvorenie suboru: OK',10,13,'$'
OK	DB	  10,13,'subor je zavrety, vsetko prebehlo OK$'

handler	dw	0
subor   db 'pokus.txt',0        ; Nazov suboru
chyba   db 'Chyba pri praci so suborom !',13,10,'$'
Ldata	DB        103,0,103 dup ('$')      ; vstupny text

	.code                   ; definicia kodoveho segmentu

openf:	mov	ah, 3dh
	mov	dx, offset subor
	mov	al, 2
	int 	21h
	mov	handler,ax
	mov	dx, offset ok1
	mov	ah,09h
	int	21h
	jnc	loaddata
	mov	dx, offset error1
	mov	ah,09h
	int	21h
	jmp 	koniec

loaddata:			;inak je handler v AX ale budem ho potrebovat pri zatvarani suboru
	mov	bx, handler
	;mov	bx, ax
	mov	ah, 3fh		;pre nacitavanie
	mov	dx, offset Ldata
	mov	cx, 200		;maximalny pocet znakov
	int	21h
	
	
	jnc	closef
	mov	dx, offset error2
	mov	ah, 09h
	int	21h
	jmp	koniec

closef:
	mov	bx, handler
	mov	ah, 3eh		;zavretie vstupneho suboru
	int	21h
;	jnc	cenvertbin
;	jnc	loaddata
	mov	dx, offset Ldata
	mov	ah,09h
	int	21h
	
	mov	dx, offset OK
	mov	ah,09h
	int	21h
	jmp	koniec




Start:
       mov ax,@data
       mov ds,ax

       mov dx,offset subor
       jmp openf
      ; jnc short subor_existuje

      ; mov dx,offset chyba
      ; call vypis
	

koniec:	mov	ax,4c00h	;ukoncenie programu
	int 	21h

end start	









