PROC SkaitykBuf
;i BX paduodamas failo deskriptoriaus numeris
;i AX bus gra;˛inta, kiek simboliu; nuskaityta

    PUSH    cx
    PUSH    dx
    PUSH    di
    push    si

    MOV di, offset einamaEilute

    neEilutesPabaiga:
        MOV ah, 3Fh             ;21h pertraukimo duomenu; nuskaitymo funkcijos numeris
        MOV cl, 1               ;cx - kiek baitu; reikia nuskaityti iš failo (1 baita)
        MOV ch, 0               ;išvalom vyresniji; cx baita;
        MOV dx, offset skBuf    ;vieta, i kuria irašoma nuskaityta informacija
        INT 21h                 ;skaitymas iš failo
        JC  klaidaSkaitant      ;jei skaitant iš failo ivyksta klaida, nustatomas carry flag
        MOV si, dx
        MOV dl, byte ptr [si]   ;isikeliam i einamaEilute
        MOV byte ptr [di], dl
        INC di                  ;pastumiam di
        CMP dx, 0Dh             ;jei nuskaitem 0Dh tai eilutes pabaiga ir baigiam skaityt
        JNE neEilutesPabaiga

  SkaitykBufPabaiga:
    pop si
    POP di
    POP dx
    POP cx
    RET

  klaidaSkaitant:
    MOV     ax, 0           ;Pazymime registre ax, kad nebuvo nuskaityta ne vieno simbolio
    JMP SkaitykBufPabaiga
SkaitykBuf ENDP