MFP lab 10

1. dir


data segment
    path db 'tsnaik',0
data ends


code segment
    assume cs:code, ds:data
    mov ax,data
    mov ds,ax
    mov ax,ax

    MOV AH,39h
    MOV DX,offset path

    int 21h
    int 3h
code ends
end



2. file


data segment
    path db 'C:\DEBUG125\TSNAIK\tsn.txt',0
data ends


code segment
    assume cs:code, ds:data
    mov ax,data
    mov ds,ax
    mov ax,ax

    MOV CX,0
    MOV AH,3ch
    MOV DX,offset path

    int 21h
    int 3h
code ends
end



3. writing to file

data segment
    path db 'C:\DEBUG125\TSNAIK\tsn.txt',0
    mystr db 'string is this. mfp is medium. lab10 is good. PRD sir is also good. I am just saying this to test a long string. nothing else.'
    len equ ($-mystr)

data ends


code segment
    assume cs:code, ds:data
    mov ax,data
    mov ds,ax
    mov ax,ax

    MOV AL,02H
    MOV AH,3Dh
    MOV DX,offset path

    int 21h

    mov bx,ax
    mov cx,len

    mov dx,offset mystr
    mov ah,40h
    int 21h

    mov AH,3Eh
    int 21h
    int 3h
code ends
end


4. reading from file


data segment
    path db 'C:\DEBUG125\TSNAIK\tsn.txt',0


data ends


code segment
    assume cs:code, ds:data
    mov ax,data
    mov ds,ax
    mov ax,ax

    MOV AL,02H
    MOV AH,3Dh
    MOV DX,offset path

    int 21h

    mov bx,ax
    mov cx,7EH


    mov ah,3Fh
    int 21h

    mov AH,3Eh
    int 21h

    mov ah,09
    int 21h

    int 3h
code ends
end