File Read/Write Assembly

INCLUDE "EMU8086.INC"
.MODEL SMALL
.STACK 100H
.DATA

    FNAME1 DB "ACCOUNT.txt",0
    FHAND DW ?
    TEXT DB 50 DUP('$')
    FLAG DB 0
    CHAR DB ?

.CODE
    MAIN PROC

        MOV AX,@DATA
        MOV DS,AX

        CALL FILE_READ

        EXIT:
        MOV AH,4CH
        INT 21H

    MAIN ENDP

    ;FUNCTION TO READ LINE BY LINE FROM FILE

    FILE_READ PROC

        ;OPENING FILE
        MOV AH,3DH
        MOV AL,0
        LEA DX, FNAME1
        INT 21H
        MOV FHAND, AX

        NEW_LINE:
        MOV SI,0

        READ_LINE:
        MOV AH,3FH
        MOV BX,FHAND
        MOV CX,1
        LEA DX,CHAR
        INT 21H

        ;END OF FILE CHECK & EXIT
        CMP AX,0
        JE SET_FLAG

        MOV AL,CHAR

        ;END OF LINE CHECK
        CMP AL,10
        JE PRINT_LINE

        ;ADD DATA TO THE ARRAY
        MOV TEXT[SI],AL
        INC SI
        JMP READ_LINE

        PRINT_LINE:
        MOV BYTE PTR TEXT[SI],'$'
        MOV AH,9
        LEA DX,TEXT
        INT 21H
        CMP FLAG,1
        JE FILE_EXIT
        PRINTN
        JMP NEW_LINE

        SET_FLAG:
        MOV FLAG,1
        JMP PRINT_LINE

        FILE_EXIT:
        MOV AH,3EH
        MOV BX,FHAND
        INT 21H

        RET

    FILE_READ ENDP

END MAIN