ساخت پوشه با دستورات اسمبلی

 ;----------------------------------------------
 ;CRETING DIRECTORY        
 ; ---------------------------------------------
 ermac macro ;//print error message if can't creat directory
  lea dx,errormsg
  mov ah,09h
  int 21h 
 endm
;////////////////////////////////// 
okmac macro  ;//print the directory created succsesfuly if it can creat directory
  lea dx,okmsg
  mov ah,09h
  int 21h
  endm
;//////////////////////////////////  
 datasg  segment 'code'
 dir  db 'c:\moji',00h
 okmsg   db 'the directory created succsesfuly',"$"
 errormsg db 'error in creatin directory',"$"
 datasg  ends
 ;--------------------------------
 codesg  segment 'code'
 main proc far
  assume ds:datasg,cs:codesg
  mov ax,datasg
  mov ds,ax
 
  lea dx,dir ;/directory name that maust be created
  mov ah,39h ;/function for creatin directory
  int 21h ;/interupt for creating directory
 
  jnc l1 ;/go to l1 if creating directory is succsess full
 
 ermac  ;/call error macro and print error message if can't creat directory
  jmp l2      ;/goto end program
 
 l1:    okmac           ;/call okmac if it can creat directory and print successfull
 
 l2:    mov ax,4c00h;/end of program
  int 21h
 main endp
 codesg ends
  end main