home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NFSRC.ZIP / NOVPURGE.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-17  |  2.2 KB  |  97 lines
  1. ; File......: NOVPURGE.ASM
  2. ; Author....: David Minter
  3. ; CIS ID....: 76247,3475
  4. ; Date......: $Date:   17 Aug 1991 15:38:02  $
  5. ; Revision..: $Revision:   1.3  $
  6. ; Log file..: $Logfile:   E:/nanfor/src/novpurge.asv  $
  7. ;
  8. ;    This is an original work by David Minter and hereby placed into
  9. ;    the public domain.
  10. ;
  11. ; Modification history:
  12. ; ---------------------
  13. ;
  14. ; $Log:   E:/nanfor/src/novpurge.asv  $
  15. ;  
  16. ;     Rev 1.3   17 Aug 1991 15:38:02   GLENN
  17. ;  Don Caton fixed some spelling errors in the doc
  18. ;  
  19. ;     Rev 1.2   15 Aug 1991 23:07:54   GLENN
  20. ;  Forest Belt proofread/edited/cleaned up doc
  21. ;  
  22. ;     Rev 1.1   11 Apr 1991 23:50:56   GLENN
  23. ;  Librarian error!  I changed the function name on the author but 
  24. ;  didn't realize that .ASM functions _had_ to obey the 10-character 
  25. ;  limit.  ft_novpurge() is now really called ft_novpurg().  
  26. ;  
  27. ;     Rev 1.0   01 Apr 1991 01:03:36   GLENN
  28. ;  Nanforum Toolkit
  29. ;  
  30.  
  31.  
  32. ; $DOC$
  33. ; $FUNCNAME$ 
  34. ;    FT_NOVPURGE()
  35. ; $CATEGORY$
  36. ;    NetWare
  37. ; $ONELINER$
  38. ;    Purge all deleted files on a Novell server
  39. ; $SYNTAX$
  40. ;    FT_NOVPURGE() -> lTemp
  41. ; $ARGUMENTS$
  42. ;    None
  43. ; $RETURNS$
  44. ;    .T. if successful, otherwise .F.
  45. ; $DESCRIPTION$
  46. ;   This function is to purge those files that a workstation has
  47. ;   previously deleted.  This function only works on a Novell network.
  48. ; $EXAMPLES$
  49. ;   ERASE FILE foo.bar
  50. ;   ERASE FILE foo2.bar
  51. ;   ERASE FILE foo3.bar
  52. ;   ? FT_NOVPURGE()
  53. ; $END$
  54.  
  55.  
  56.  
  57.                 include         minter.mac
  58. extrn           __RETL:FAR
  59. .MODEL    large, PASCAL
  60. .data
  61. req_buf        dw    1
  62. subfun        db    16
  63. rep_buf        dw    ?
  64. .CODE
  65. FT_NOVPURG         PROC    FAR
  66.  
  67. @SAVE      ds,es,si,di
  68.  
  69. start:        mov    ax, @data
  70.         mov    ds, ax
  71.         mov    es, ax
  72.         mov    si,OFFSET req_buf
  73.         mov    di,OFFSET rep_buf
  74.  
  75. ;; ***   set up the registers
  76.         mov    ah,226
  77.         mov    al,0
  78.  
  79.         int    21h
  80.  
  81. ;; ***   copy to the return variable
  82.  
  83.  
  84. @RESTORE    ds,es,si,di
  85.                 
  86.                 cmp     al,0
  87.                 je      purgeok
  88.                 mov     ax,0
  89.                 jmp     purgeret
  90. purgeok:        mov     ax,1
  91. purgeret:    push    ax
  92.         call    __RETL
  93.         add    sp,2
  94.                 ret
  95. FT_NOVPURG          ENDP
  96.                 END
  97.