home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NFSRC.ZIP / DIRFUNC.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-16  |  2.9 KB  |  78 lines
  1. ; File......: DIRFUNC.ASM
  2. ; Author....: Ted Means
  3. ; Date......: $Date:   15 Aug 1991 23:06:42  $
  4. ; Revision..: $Revision:   1.2  $
  5. ; Log file..: $Logfile:   E:/nanfor/src/dirfunc.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/dirfunc.asv  $
  14. ;  
  15. ;     Rev 1.2   15 Aug 1991 23:06:42   GLENN
  16. ;  Forest Belt proofread/edited/cleaned up doc
  17. ;  
  18. ;     Rev 1.1   14 Jun 1991 19:54:24   GLENN
  19. ;  Minor edit to file header
  20. ;  
  21. ;     Rev 1.0   01 Apr 1991 01:03:12   GLENN
  22. ;  Nanforum Toolkit
  23. ;  
  24. ;
  25.  
  26. Public   __ftdir
  27.  
  28. Extrn    __ParInfo:Far
  29. Extrn    __ParC:Far
  30. Extrn    __RetNI:Far
  31.  
  32. Segment  _NanFor   Word      Public    "CODE"
  33.          Assume    CS:_NanFor
  34.  
  35. Proc     __ftdir   Far
  36.  
  37.          Push      BP                        ; Save BP
  38.          Mov       BP,SP                     ; Set up stack reference
  39.  
  40.          Xor       AX,AX                     ; Prepare to count params
  41.          Push      AX                        ; Save on stack
  42.          Call      __ParInfo                 ; Call parameter info routine
  43.          Or        AX,AX                     ; Zero params?
  44.          JNE       Test1                     ; If not zero, continue
  45.          Mov       AX,99                     ; Set return value
  46.          Jmp       Short Done                ; Go to end
  47.  
  48. Test1:   Mov       AX,1                      ; Check parameter #1
  49.          Push      AX                        ; Save parameter # on stack
  50.          Call      __ParInfo                 ; Call parameter info routine
  51.          Test      AX,1                      ; See if parameter is character
  52.          JNZ       Get1                      ; If so, continue
  53.          Mov       AX,99                     ; Set return value
  54.          Jmp       Short Done                ; Go to end
  55.  
  56. Get1:    Mov       AX,1                      ; Select parameter #1
  57.          Push      AX                        ; Save parameter # on stack
  58.          Call      __ParC                    ; Retrieve parameter
  59.  
  60.          Push      DS                        ; Save DS
  61.          Mov       DS,DX                     ; Load pathspec segment
  62.          Mov       DX,AX                     ; Load pathspec offset
  63.          Mov       AH,[Byte Ptr BP + 7]      ; Get requested DOS service
  64.          Int       21h                       ; Call DOS
  65.          Pop       DS                        ; Restore DS
  66.          JC        Done                      ; Carry flag means error
  67.          Xor       AX,AX                     ; Set return value
  68.  
  69. Done:    Push      AX                        ; Save return value on stack
  70.          Call      __RetNI                   ; Return value to Clipper app
  71.          Mov       SP,BP                     ; Realign stack
  72.          Pop       BP                        ; Restore BP
  73.          Ret
  74. Endp     __ftdir
  75. Ends     _NanFor
  76. End
  77. 
  78.