PRINTS MACRO addr
    mov ah, 09h
    lea dx, addr
    INT 21h
ENDM

PRINTREG MACRO addr
    mov ah, 2
    mov dx, addr
    add dx, '0'
    INT 21h
ENDM

DATA SEGMENT
    N = 100
    Nn = 110

    FILEPATH DB "file.txt",0
    OTVORENYSUBOR DB "Uspesne otvoreny subor!$"
    ERRORPRIOTVORENISUBORU DB "Error pri otvarani suboru!$"
    PRECITANYSUBOR DB "Uspesne precitany subor!$"
    ERRORPRICITANISUBORU DB "Error pri citani suboru!$"
    BUFFER DB Nn DUP('$')
DATA ENDS

CODE SEGMENT

    assume cs:CODE, ds:DATA

    OPENFILE PROC
        MOV AH, 3DH
        MOV AL, 00H
        MOV DX, OFFSET FILEPATH
        INT 21H
        JC ERR1
        PRINTS OTVORENYSUBOR
        RET

        ERR1:
            PRINTS ERRORPRIOTVORENISUBORU
            PRINTREG AX
            JMP SKONCI
    OPENFILE ENDP

    READFILE PROC
        ;PRINTS PRECITANYSUBOR
        MOV BX, AX
        MOV AX, 3FH
        MOV CX, N
        MOV DX, OFFSET BUFFER
        PRINTS PRECITANYSUBOR
        INT 21H
        ;PRINTS PRECITANYSUBOR
        JC ERR2
        PRINTS PRECITANYSUBOR
        PRINTS BUFFER
        RET

        ERR2:
            PRINTS ERRORPRICITANISUBORU
            PRINTREG AX
            JMP SKONCI
    READFILE ENDP

    START:
        mov ax, data
        mov ds, ax
        CALL OPENFILE
        CALL READFILE

    SKONCI:
        mov ah, 4ch
        int 21h

CODE ENDS

END START