home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / turbo55 / tp55 / tasm / ofcreate.asm < prev    next >
Assembly Source File  |  1989-05-01  |  1KB  |  50 lines
  1.  
  2. ;    FILENAME: OFCREATE.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine FileCreate. FileCreate
  6. ;    creates or truncates a file. The file is opened for writing.
  7. ; 
  8. ;    ASSEMBLY INSTRUCTIONS: To assemble this module use the following 
  9. ;    TASM command line. 
  10. ; 
  11. ;        TASM ofcreate
  12.  
  13. include globals.inc
  14.  
  15. _TEXT   segment
  16.  
  17.     FileCreate proc
  18.  
  19.     ;    Input 
  20.     ;        bx - file record offset
  21.     ;        cx - buffer size
  22.     ;        dx - offset of filespec
  23.     ;    Output (of INT 21h, Function 3Ch)
  24.     ;        cf - set if error occurred
  25.     ;        ax - error code
  26.     ;            3 - if path not found
  27.     ;            4 - if no handle available
  28.     ;            5 - if access denied
  29.     ;    Registers modified 
  30.     ;        ax
  31.  
  32.     mov     WORD PTR [bx], 1  ;set status
  33.     mov     [bx+2], cx        ;save size
  34.     call    FileAlloc         ;allocate buffer
  35.     jc      filcre1           ;jump if error
  36.     mov     ah, 3ch           ;function
  37.     sub     cx, cx            ;file attribute - 00h normal
  38.     int     21h               ;execute
  39.     mov     [bx+8], ax        ;save handle
  40.     jnc     filcre1
  41.     call    FileFree          ;deallocate buffer
  42.     stc
  43. filcre1:
  44.     ret
  45.     FileCreate endp
  46.  
  47. _TEXT    ends
  48.  
  49. end
  50.