home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l224 / 2.img / TAEXMPL2.ZIP / OFOPENW.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-29  |  1.4 KB  |  52 lines
  1.  
  2. ;    FILENAME: OFOPENW.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine FileOpenW. FileOpenW
  6. ;    opens a file for writing.
  7. ;
  8. ;    ASSEMBLY INSTRUCTIONS: To assemble this module use the following 
  9. ;    TASM command line. 
  10. ; 
  11. ;        TASM ofopenw
  12.  
  13. include globals.inc
  14.  
  15. _TEXT   segment
  16.  
  17.     FileOpenW 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], 1  ;set status
  36.     mov     [bx+2], cx        ;save size
  37.     call    FileAlloc         ;allocate buffer
  38.     jc      filopw1           ;jump if error
  39.     mov     ax, 3d01h         ;function and write access
  40.     int     21h               ;execute
  41.     mov     [bx+8], ax        ;save handle
  42.     jnc     filopw1
  43.     call    FileFree          ;deallocate
  44.     stc
  45. filopw1:
  46.     ret
  47.     FileOpenW endp
  48.  
  49. _TEXT    ends
  50.  
  51. end
  52.