home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_122 / 1.ddi / CLIBSRC.ZIP / SCANTOD.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-06-10  |  1.7 KB  |  71 lines
  1. ;[]-----------------------------------------------------------------[]
  2. ;|      SCANTOD.ASM -- Ascii to double conversion                    |
  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.  
  14. ;       Segment and Group declarations
  15.  
  16. _TEXT   SEGMENT BYTE PUBLIC 'CODE'
  17. _TEXT   ENDS
  18. _SCNSEG SEGMENT WORD PUBLIC 'DATA'
  19. _SCNSEG ENDS
  20.  
  21. IFNDEF  __TINY__
  22. DGROUP  GROUP   _SCNSEG
  23. ELSE
  24. DGROUP  GROUP   _TEXT, _EMUSEG
  25. ENDIF
  26.         ASSUME  CS:_TEXT, DS:DGROUP
  27.  
  28. ;       External References
  29.  
  30. extrn           __cvtfak:word
  31. extrn           __ScanTodVector:word
  32.  
  33. _TEXT   SEGMENT
  34.  
  35.                 public __scantod
  36. __scantod       proc near
  37. IFDEF   __HUGE__
  38. ExtSym@         DGROUP@, WORD, __PASCAL__
  39.                 mov     es, cs:DGROUP@@
  40.                 jmp     ES:[__ScanTodVector]
  41. ELSE
  42.                 jmp     [__ScanTodVector]
  43. ENDIF
  44.                 endp
  45.  
  46.  
  47.                 public __scanrslt
  48. __scanrslt      proc near
  49. IFDEF   __HUGE__
  50. ExtSym@         DGROUP@, WORD, __PASCAL__
  51.                 mov     es, cs:DGROUP@@
  52.                 jmp     ES:[__ScanTodVector + 2]
  53. ELSE
  54.                 jmp     [__ScanTodVector + 2]
  55. ENDIF
  56.                 endp
  57.  
  58.                 public __scanpop
  59. __scanpop       proc near
  60. IFDEF   __HUGE__
  61. ExtSym@         DGROUP@, WORD, __PASCAL__
  62.                 mov     es, cs:DGROUP@@
  63.                 jmp     ES:[__ScanTodVector + 4]
  64. ELSE
  65.                 jmp     [__ScanTodVector + 4]
  66. ENDIF
  67.                 endp
  68.  
  69. _TEXT   ENDS
  70.         END
  71.