home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c081_11 / 11.ddi / TAEXMPL2.ZIP / OFILALOC.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-02-13  |  1.6 KB  |  58 lines
  1.  
  2. ;    FILENAME: OFILALOC.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine FileAlloc. FileAlloc
  6. ;    allocates a read/write buffer.
  7. ;
  8. ;    This module uses MASM mode syntax and standard segment directives. 
  9. ; 
  10. ;    ASSEMBLY INSTRUCTIONS: To assemble this module use the following 
  11. ;    TASM command line. 
  12. ; 
  13. ;        TASM ofilaloc
  14.  
  15. include globals.inc
  16.  
  17. _TEXT   segment
  18.  
  19.     FileAlloc proc
  20.  
  21.     ;    Input 
  22.     ;        bx - file record offset
  23.     ;        [bx+2] - buffer size
  24.     ;    Output (of INT 21h, Function 48h)
  25.     ;        cf - set if error occurred
  26.     ;        ax - error code
  27.     ;            7 - if memory control blocks destroyed
  28.     ;            8 - if insufficient memory
  29.     ;    Registers modified 
  30.     ;        ax
  31.  
  32.     push     cx
  33.     push     dx
  34.     push     bx
  35.     mov      bx, [bx+2]          ;size in bytes
  36.     mov      cl, 4               ;paragraph shift
  37.     shr      bx, cl              ;get size in paragraphs
  38.     inc      bx                  ;round up
  39.     mov      dx, bx
  40.     shl      dx, cl              ;shift back to byte form
  41.     mov      ah, 48h             ;function
  42.     int      21h                 ;execute
  43.     pop      bx
  44.     jc       filall1
  45.     mov      [bx+2], dx          ;save size
  46.     mov      WORD PTR [bx+4], 0  ;clear data pointer
  47.     mov      [bx+6], ax          ;save segment
  48.     mov      WORD PTR [bx+10], 0 ;clear bytes in buffer
  49. filall1:
  50.     pop      dx
  51.     pop      cx
  52.     ret
  53.     FileAlloc endp
  54.  
  55. _TEXT    ends
  56.  
  57. end
  58.