home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_122 / 1.ddi / CLIBSRC.ZIP / WRITEU.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-06-10  |  1.3 KB  |  56 lines
  1. ;[]-----------------------------------------------------------------[]
  2. ;|      WRITEU.ASM -- User entry point for write()                   |
  3. ;[]-----------------------------------------------------------------[]
  4.  
  5. ;
  6. ;       C/C++ Run Time Library - Version 5.0
  7. ; 
  8. ;       Copyright (c) 1991, 1992 by Borland International
  9. ;       All Rights Reserved.
  10. ; 
  11.  
  12.         include rules.asi
  13.  
  14. ;       Segments Definitions
  15.  
  16. Header@
  17.  
  18. Code_seg@
  19.  
  20. ;----------------------------------------------------------------------
  21. ; Declare internal library function __write.
  22.  
  23. ifdef   __PAS__
  24.  
  25. ExtProc@ __WRITE, __PASCAL__             ; PASCAL-callable library
  26. __write@ equ     __WRITE
  27.  
  28. else
  29. ExtProc@ __write, __CDECL__              ; Normal C library
  30. endif
  31.  
  32. ;----------------------------------------------------------------------
  33. ; Define user entry point write, which merely jumps to __write.
  34.  
  35. ifdef   _BUILDRTLDLL                    ; DLL library
  36.  
  37. Proc@   write, __CDECL__
  38.         publicdll _write
  39.  
  40. elseifdef       __PAS__                 ; PASCAL-callable library
  41.  
  42. PubProc@ WRITE, __PASCAL__
  43. write@   equ     WRITE
  44.  
  45. else                                    ; Normal C library
  46. PubProc@ write, __CDECL__
  47. endif
  48.  
  49.         jmp     __write@                ; jump to internal function
  50.  
  51. EndProc@ write
  52.  
  53. Code_EndS@
  54.  
  55.         end
  56.