home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_144 / 1.ddi / MATHSRC.ZIP / FTOL.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-06-10  |  1.7 KB  |  72 lines
  1. ;[]------------------------------------------------------------[]
  2. ;|      FTOL.ASM -- Float to Long 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.         NAME    Ftol
  13.  
  14. include RULES.ASI
  15.  
  16. emul            ; generate emulated '87 code
  17.  
  18. CSeg@
  19.  
  20. ; FTOL@
  21. ; Calls to FTOL@ are generated by the compiler for code
  22. ; that needs to convert a floating point type to an integral type.
  23. ; Input: floating point number on the top of the '87.
  24. ; Output: a (signed or unsigned) long in AX, DX.
  25. ; All other registers preserved.
  26. ; Proc is far, independent of memory model.
  27.  
  28. ; Caution: Overflows are ignored.
  29.  
  30. temp1   equ     [bp-2]
  31. temp2   equ     [bp-10]
  32.  
  33. ifdef   FCall
  34.  
  35. PubSym@ FTOL@, <PROC FAR>, __PASCAL__
  36. PubSym@ F_FTOL@, <LABEL FAR>, __PASCAL__
  37.  
  38. endif
  39.  
  40. ifdef   NCall
  41.  
  42. PubSym@ N_FTOL@, <PROC NEAR>, __PASCAL__
  43.  
  44. endif
  45.  
  46.         push    bp
  47.         mov     bp, sp
  48.         sub     sp, 10
  49.         fstcw   temp1                   ; save the control word
  50.         fwait
  51.         mov     al, temp1.BY1
  52.         or      temp1.BY1, 0Ch
  53.         fldcw   temp1
  54.         fistp   qword ptr temp2         ; convert to 64-bit integer
  55.         mov     temp1.BY1, al
  56.         fldcw   temp1                   ; restore the control word
  57.         mov     ax, temp2.W0            ; return LS 32 bits
  58.         mov     dx, temp2.W1
  59.         mov     sp, bp
  60.         pop     bp
  61.         ret
  62.  
  63. ifdef   FCall
  64. EndProc@ FTOL@, __PASCAL__
  65. else
  66. EndProc@ N_FTOL@, __PASCAL__
  67. endif
  68.  
  69. CSegEnd@
  70.  
  71. end
  72.