home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / asm / PJ96.ZIP / ALIB.ZIP / CLOSE_CF.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-21  |  352 b   |  27 lines
  1.     include    asm.inc
  2.  
  3.     public    close_file_cf
  4.  
  5.     .code
  6.     extn    ms_dos_strerror
  7.  
  8.  
  9. ;;    close file cf
  10. ;
  11. ;    entry    BX    handle
  12. ;        Cf    error flag
  13. ;    exit    Cf    if error flag set on entry or error during close file
  14. ;    uses    AX
  15. ;
  16. close_file_cf proc
  17.     mov    ah,3Eh
  18.     jc    cfc1
  19.     jmp    ms_dos_strerror
  20.  
  21. cfc1:    call    ms_dos_strerror
  22.     stc
  23.     ret
  24. close_file_cf endp
  25.  
  26.     end
  27.