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