printf  macro msg       
        mov ah,09h
        mov dx,offset msg
        int 21h
endm           


data segment
        str db 'current directory is :',10d,13d,'$'
        drive db ':\$'
        buf db 64 dup('$')      
                                
data ends

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

        printf str              

        mov ah,19h              
        int 21h

        mov ah,02h              
        add al,65
        mov dl,al               
        int 21h

        mov ah,47h
        mov dl,0

        lea si,[buf]
        int 21h

        printf drive
        printf buf

        mov ax,4c00h
        int 21h
code ends
        end start