home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / GRLF-C-2.ZIP / GFUNC / COMMITFI.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-05-30  |  955 b   |  47 lines
  1. ;/*
  2. ;** commitfi.asm
  3. ;** contains: commitfi()
  4. ;*/
  5.  
  6. COMMITFILEFUNC    equ    068h            ;DOS: Commit file function #
  7. DOSCALL     equ    021h            ;DOS: Software Interrupt #
  8.  
  9.         include model.h
  10.         include prologue.h
  11.  
  12.         pseg    pcommitfi
  13.  
  14. ;/*
  15. ;**  int
  16. ;** commitfi(int handle)
  17. ;**
  18. ;** ARGUMENT(s)
  19. ;**    handle        -        File handle for file to commit
  20. ;**
  21. ;** DESCRIPTION
  22. ;**  This function causes all buffered data for a file to be written
  23. ;**  to the device.  This function can be used instead of the close
  24. ;**  open sequence.  This is a DOS 3.30 (and up) function.
  25. ;**
  26. ;** RETURNS
  27. ;**  0 if successful, else DOS error code
  28. ;**
  29. ;** AUTHOR
  30. ;**  ""   Wed 16-Nov-1988    10:45:34
  31. ;**   Copyright (C)1988-1990 Greenleaf Software Inc. All Rights Reserved.
  32. ;**
  33. ;** MODIFICATIONS
  34. ;**
  35. ;*/
  36.         cproc    commitfi
  37.         mov    ah,COMMITFILEFUNC
  38.         mov    bx,parm1_
  39.         int    DOSCALL
  40.         jc    commitexit        ;return error
  41.         xor    ax,ax            ;clear error
  42. commitexit:
  43.         cproce
  44.  
  45.         endps
  46.         end
  47.