home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / turbo55 / tp55 / tasm / ofilefil.asm < prev    next >
Assembly Source File  |  1989-05-01  |  1KB  |  61 lines
  1.  
  2. ;    FILENAME: OFILEFIL.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine FileFill. FileFill
  6. ;    fills a read buffer. 
  7. ;
  8. ;    ASSEMBLY INSTRUCTIONS: To assemble this module use the following 
  9. ;    TASM command line. 
  10. ; 
  11. ;        TASM ofilefil
  12.  
  13. include globals.inc
  14.  
  15.  
  16. _TEXT   segment
  17.  
  18.     FileFill proc
  19.  
  20.     ;    Input 
  21.     ;        bx - file record offset
  22.     ;        cx - buffer size
  23.     ;        dx - offset of filespec
  24.     ;    Output (of INT 21h, Function 3Fh)
  25.     ;        cf - set if error occurred
  26.     ;        ax - error code
  27.     ;            0 - if EOF and 0 bytes are read
  28.     ;            5 - if access denied
  29.     ;            6 - if handle invalid or not open
  30.     ;    Registers modified
  31.     ;        ax
  32.  
  33.     push    cx
  34.     push    dx
  35.     push    bx
  36.     push    ds
  37.     mov     ax, [bx+8]      ;file handle
  38.     mov     cx, [bx+2]      ;buffer size
  39.     sub     dx, dx          ;start of segment
  40.     mov     [bx+4], dx      ;set data offset
  41.     mov     ds, [bx+6]      ;buffer segment
  42.     mov     bx, ax
  43.     mov     ah, 3fh         ;function
  44.     int     21h             ;execute
  45.     pop     ds
  46.     pop     bx
  47.     mov     [bx+10], ax     ;save bytes read
  48.     jc      filfil1
  49.     or      ax, ax          ;check if no bytes
  50.     jnz     filfil1
  51.     stc
  52. filfil1:
  53.     pop     dx
  54.     pop     cx
  55.     ret
  56.     FileFill endp
  57.  
  58. _TEXT    ends
  59.  
  60. end
  61.