home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Source / Rtl / Sys / SETTEXTB.ASM < prev    next >
Encoding:
Assembly Source File  |  1999-08-11  |  686 b   |  39 lines
  1.  
  2. ; *******************************************************
  3. ; *                            *
  4. ; *     Delphi Runtime Library                          *
  5. ; *                            *
  6. ; *    Copyright (c) 1996,98 Inprise Corporation    *
  7. ; *                            *
  8. ; *******************************************************
  9.  
  10.     INCLUDE    SE.ASM
  11.     INCLUDE    FILEIO.ASM
  12.  
  13.     .386
  14.     .MODEL    FLAT
  15.  
  16.     PUBLIC    _SetTextBuf
  17.  
  18.     .CODE
  19.  
  20. ;    PROCEDURE _SetTextBuf( f: Text; p: Pointer; size: Longint );
  21.  
  22. _SetTextBuf PROC
  23.  
  24. ; ->    EAX    Pointer to file variable
  25. ;    EDX    Pointer to new buffer
  26. ;    ECX    Size of new buffer
  27.  
  28.     MOV    [EAX].BufPtr,EDX
  29.     XOR    EDX,EDX
  30.     MOV    [EAX].BufSize,ECX
  31.     MOV    [EAX].BufPos,EDX
  32.     MOV    [EAX].BufEnd,EDX
  33.  
  34.     RET
  35.  
  36. _SetTextBuf ENDP
  37.  
  38.     END
  39.