home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c065 / 2.ddi / CLIB2.ZIP / REALCVT.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-06-07  |  1.1 KB  |  43 lines
  1. ;[]-----------------------------------------------------------------[]
  2. ;|      REALCVT.ASM -- Real number conversion routine                |
  3. ;|                                                                   |
  4. ;|      Turbo-C Run Time Library        Version 3.0                  |
  5. ;|                                                                   |
  6. ;|      Copyright (c) 1987,1988,1990 by Borland International Inc.   |
  7. ;|      All Rights Reserved.                                         |
  8. ;[]-----------------------------------------------------------------[]
  9.  
  10.         INCLUDE RULES.ASI
  11.         %MACS
  12.  
  13. ;       Segment and Group declarations
  14.  
  15. _TEXT   SEGMENT BYTE PUBLIC 'CODE'
  16. _TEXT   ENDS
  17. _CVTSEG SEGMENT WORD PUBLIC 'DATA'
  18. _CVTSEG ENDS
  19.  
  20. DGROUP    GROUP    _CVTSEG
  21.  
  22.         ASSUME  CS:_TEXT, DS:DGROUP
  23.  
  24. ;       External References
  25.  
  26. ;ExtSym@     _cvtfak, ABS, __CDECL__
  27. extrn        __RealCvtVector:word
  28.  
  29. _TEXT    SEGMENT
  30.  
  31.         public __REALCVT
  32. __REALCVT    proc near
  33. IFDEF    __HUGE__
  34. ExtSym@        DGROUP@, WORD, __PASCAL__
  35.         mov    es, cs:DGROUP@@
  36.         jmp    ES:[__RealCvtVector]
  37. ELSE
  38.         jmp    [__RealCvtVector]
  39. ENDIF
  40.         endp
  41. _TEXT    ENDS
  42.         END
  43.