.code
  pradzia:
    MOV ax, @data
    MOV ds, ax


    mov bx, 82h
    mov si, offset duom

    cmp byte ptr es:[80h], 0
    je pagalba
    cmp es:[82h], '?/'
    jne loop_duom1
    cmp byte ptr es:[84h], 0Dh
    je pagalba

    pagalba:
        mov ah, 9
        mov dx, offset pagalbos_tekstas
        int 21h
        jmp pabaiga

    loop_duom1:
        cmp byte ptr es:[bx], 20h
        je atidaryk_duom

        mov dl, byte ptr es:[bx]
        mov [si], dl

        inc bx
        inc si
        jmp loop_duom1


    atidaryk_duom:
        MOV ah, 3Dh
        MOV al, 00
        MOV dx, offset duom
        INT 21h
        JC  tarpinis
        MOV dFail, ax
        push ax
        xor si, si
        lea si, duom2
        inc bx
        jmp loop_duom2

    loop_duom2:
        cmp byte ptr es:[bx], 20h
        je atidaryk_duom2

        mov dl, byte ptr es:[bx]
        mov [si], dl

        inc bx
        inc si
        jmp atidaryk_duom2

    atidaryk_duom2:
        mov ah,3Dh
        mov al,00
        mov dx,offset duom2
        int 21h
        jc klaidaAtidarantSkaitymui2
        mov dFail2,ax
        push ax
        lea si, rez
        jmp loop_rez


    tarpinis:
        jmp klaidaAtidarantSkaitymui1

    loop_rez:
        cmp byte ptr es:[bx], 0Dh
        je atidaryk_rez

        mov dl, byte ptr es:[bx]
        mov [si], dl

        inc bx
        inc si
        jmp loop_rez