home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / turbo55 / tdinstal / taexmpl2.arc / OFLFLUSH.ASM < prev    next >
Assembly Source File  |  1989-05-02  |  2KB  |  80 lines
  1.  
  2. ;    FILENAME: OFLFLUSH.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine FileFlush. FileFlush
  6. ;    flushes the write buffer.
  7. ;
  8. ;    ASSEMBLY INSTRUCTIONS: To assemble this module use the following 
  9. ;    TASM command line. 
  10. ; 
  11. ;        TASM oflflush
  12.  
  13. include globals.inc
  14.  
  15. _TEXT   segment
  16.  
  17.     FileFlush proc
  18.  
  19.     ;    Input 
  20.     ;        bx - file record offset
  21.     ;        cx - number of bytes to write
  22.     ;    Output (of INT 21h, Function 40h)
  23.     ;        cf - set if error occurred
  24.     ;        ax - error code
  25.     ;            0 - if disk full
  26.     ;            5 - if access denied
  27.     ;            6 - if handle invalid or not open
  28.     ;    Registers modified
  29.     ;        ax
  30.  
  31.     push    cx
  32.     push    dx
  33.     push    ds
  34.  
  35.     ;--- check if buffer needs flushing
  36.  
  37.     mov     ax, [bx+8]         ;handle
  38.     lds     cx, [bx+4]         ;data pointer
  39.     or      cx, cx             ;check if any data
  40.     jz      filflu3
  41.  
  42.     ;--- write buffer
  43.  
  44.     mov     WORD PTR es:[bx+4], 0 ;clear data pointer
  45.     push    bx
  46.     mov     bx, ax
  47.     sub     dx, dx             ;start of segment
  48.     mov     ah, 40h            ;function
  49.     int     21h                ;execute
  50.     pop     bx
  51.     jc      filflu2            ;jump if error
  52.     cmp     ax, cx             ;check if all bytes written
  53.     je      filflu3
  54.  
  55.     ;--- finished, error writing buffer
  56.  
  57. filflu1:
  58.     sub     ax, ax             ;code 0 if bytes not all written
  59. filflu2:
  60.     stc
  61.     pop     ds
  62.     pop     dx
  63.     pop     cx
  64.     ret
  65.  
  66.     ;--- finished, no error
  67.  
  68. filflu3:
  69.     clc
  70.     pop     ds
  71.     pop     dx
  72.     pop     cx
  73.     ret
  74.     ret
  75.     FileFlush endp
  76.  
  77. _TEXT    ends
  78.  
  79. end
  80.