home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / turbo55 / tdinstal / taexmpl2.arc / OFOPENR.ASM < prev    next >
Assembly Source File  |  1989-05-02  |  1KB  |  52 lines
  1.  
  2. ;    FILENAME: OFOPENR.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine FileOpenR. FileOpenR
  6. ;    opens a file for reading.
  7. ;
  8. ;    ASSEMBLY INSTRUCTIONS: To assemble this module use the following 
  9. ;    TASM command line. 
  10. ; 
  11. ;        TASM ofopenr
  12.  
  13. include globals.inc
  14.  
  15. _TEXT   segment
  16.  
  17.     FileOpenR proc
  18.  
  19.     ;    Input 
  20.     ;        bx - file record offset
  21.     ;        cx - buffer size
  22.     ;        dx - offset of filespec
  23.     ;    Output (of INT 21h, Function 3Dh)
  24.     ;        cf - set if error occurred
  25.     ;        ax - error code
  26.     ;            1 - if function number invalid (file-sharing must be loaded)
  27.     ;            2 - if file not found
  28.     ;            3 - if path not found of file doesn't exist
  29.     ;            4 - if no handle available
  30.     ;            5 - if access denied
  31.     ;          0Ch - if file access code invalid
  32.     ;    Registers modified
  33.     ;        ax
  34.  
  35.     mov     WORD PTR [bx+0], 0  ;set status
  36.     mov     [bx+2], cx          ;save size
  37.     call    FileAlloc           ;allocate buffer
  38.     jc      filopn1             ;jump if error
  39.     mov     ax, 3d00h           ;function and access
  40.     int     21h                 ;execute
  41.     mov     [bx+8], ax          ;save handle
  42.     jnc     filopn1
  43.     call    FileFree            ;deallocate
  44.     stc
  45. filopn1:
  46.     ret
  47.     FileOpenR endp
  48.  
  49. _TEXT    ends
  50.  
  51. end
  52.