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