home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NFSRC.ZIP / MKDIR.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-16  |  2.1 KB  |  80 lines
  1. ; File......: MKDIR.ASM
  2. ; Author....: Ted Means
  3. ; Date......: $Date:   15 Aug 1991 23:06:58  $
  4. ; Revision..: $Revision:   1.2  $
  5. ; Log file..: $Logfile:   E:/nanfor/src/mkdir.asv  $
  6. ; 
  7. ; This is an original work by Ted Means and is placed in the
  8. ; public domain.
  9. ;
  10. ; Modification history:
  11. ; ---------------------
  12. ;
  13. ; $Log:   E:/nanfor/src/mkdir.asv  $
  14. ;  
  15. ;     Rev 1.2   15 Aug 1991 23:06:58   GLENN
  16. ;  Forest Belt proofread/edited/cleaned up doc
  17. ;  
  18. ;     Rev 1.1   14 Jun 1991 19:54:44   GLENN
  19. ;  Minor edit to file header
  20. ;  
  21. ;     Rev 1.0   01 Apr 1991 01:03:32   GLENN
  22. ;  Nanforum Toolkit
  23. ;  
  24. ;
  25.  
  26.  
  27. ;  $DOC$
  28. ;  $FUNCNAME$
  29. ;     FT_MKDIR()
  30. ;  $CATEGORY$
  31. ;     DOS/BIOS
  32. ;  $ONELINER$
  33. ;     Create a subdirectory
  34. ;  $SYNTAX$
  35. ;     FT_MKDIR(  <cDirName> ) -> nResult
  36. ;  $ARGUMENTS$
  37. ;     <cDirName> is the name of the directory to create.
  38. ;  $RETURNS$
  39. ;      0  if successful
  40. ;      3  if Path Not Found
  41. ;      5  if Access Denied or directory already exists
  42. ;     99  if invalid parameters passed
  43. ;  $DESCRIPTION$
  44. ;     Use this function to create the subdirectories needed by your
  45. ;     application.  It might be especially useful in an installation
  46. ;     program.
  47. ;
  48. ;     The source code is written to adhere to Turbo Assembler's IDEAL mode.
  49. ;     To use another assembler, you will need to rearrange the PROC and
  50. ;     SEGMENT directives, and also the ENDP and ENDS directives (a very
  51. ;     minor task).
  52. ;  $EXAMPLES$
  53. ;     FT_MKDIR( "C:\CLIPPER" )
  54. ;     FT_MKDIR( "\EXAMPLE" )
  55. ;     FT_MKDIR( "..\SOURCE" )
  56. ;  $END$
  57. ;
  58.  
  59.  
  60.          IDEAL
  61.  
  62. Public   FT_MkDir
  63.  
  64. Extrn    __ftdir:Far
  65.  
  66. Segment  _NanFor   Word      Public    "CODE"
  67.          Assume    CS:_NanFor
  68.  
  69. Proc     FT_MkDir  Far
  70.  
  71.          Mov       AH,39h                    ; DOS service--create directory
  72.          Push      AX                        ; Save on stack
  73.          Call      __ftdir                   ; Call generic directory routine
  74.          Add       SP,2                      ; Realign stack
  75.          Ret
  76. Endp     FT_MkDir
  77. Ends     _NanFor
  78. End
  79. 
  80.