home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / turbo55 / tp55 / tasm / ofilclos.asm < prev    next >
Assembly Source File  |  1989-05-01  |  1KB  |  65 lines
  1.  
  2. ;    FILENAME: OFILCLOS.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine FileClose. FileClose 
  6. ;    closes a file.
  7. ; 
  8. ;    ASSEMBLY INSTRUCTIONS:  To assemble this module use the following  
  9. ;    TASM command line.     
  10. ;  
  11. ;        TASM ofilclos
  12.  
  13. include globals.inc
  14.  
  15. _TEXT   segment
  16.  
  17.     FileClose proc
  18.  
  19.     ;    Input 
  20.     ;        bx - file record offset
  21.     ;        cx - number of bytes
  22.     ;        si - location of bytes
  23.     ;    Output
  24.     ;        cf - set if error occurred
  25.     ;        ax - error code
  26.     ;        (cf set and ax = 0 if EOF)
  27.     ;            0 - if EOF and 0 bytes are read
  28.     ;    Registers modified
  29.     ;        None
  30.  
  31.     push    bx
  32.  
  33.     ;--- flush file buffer
  34.  
  35.     test    WORD PTR [bx], 1  ;test if open for writing
  36.     jz      filclo1
  37.     call    FileFlush         ;flush buffer
  38.     jc      filclo2
  39.  
  40.     ;--- close file
  41.  
  42. filclo1:
  43.     mov     ah, 3eh         ;function
  44.     mov     bx, [bx+8]      ;handle
  45.     int     21h             ;execute
  46.     pop     bx
  47.     ret
  48.  
  49.     ;--- close file, error on flush
  50.  
  51. filclo2:
  52.     push    ax
  53.     mov     ah, 3eh         ;function
  54.     mov     bx, [bx+8]      ;handle
  55.     int     21h             ;execute
  56.     pop     ax
  57.     pop     bx
  58.     stc
  59.     ret
  60.     FileClose endp
  61.  
  62. _TEXT    ends
  63.  
  64. end
  65.