home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / assemblr / library / bluebook / asm-subr / dfp2sfp < prev    next >
Encoding:
Text File  |  1985-12-28  |  1.8 KB  |  50 lines
  1. ;-------------------------dfp2sfp routine begins--------------------------+
  2. ; ROUTINE FOR CONVERSION FROM DOUBLE PRECISION TO SINGLE PRECISION
  3. ;
  4. ; from BLUEBOOK OF ASSEMBLY ROUTINES FOR IBM PC & XT.
  5. ;         page : 113
  6. ;
  7. ; NAME DFP2SFP
  8. ;
  9. ; FUNCTION: This routine converts from double precision binary floating point
  10. ; to internal double precision floating point.
  11. ;
  12. ; INPUT: Upon entry a internal double precision binary floating point
  13. ; number is stored in DFPBUFF.  The internal double precision floating point
  14. ; number has a 40-bit binary mantissa, a sign bit,and an 8-bit exponent
  15. ; biased by 128 (See fig 5-8).
  16. ; 
  17. ; OUTPUT: Upon exit a number is stored in single precision binary floating
  18. ; point form in SFPBUFF. The single precision binary floating point number
  19. ; has a 24-bit binary mantissa, a sign bit, and an 8-bit exponent biased by
  20. ; 128 (See fig 5-3).
  21. ;
  22. ; REGISTERS USED:  No registers are modified.
  23. ;
  24. ; SEGMENTS REFERENCED:  Upon entry the data segment must contain the
  25. ; storage for the variables SFPBUFF and DFPBUFF.
  26. ;
  27. ; ROUTINES CALLED:  None
  28. ;
  29. ; SPECIAL NOTES: Equates are used to shorten address fields.
  30. ;
  31. ; ROUTINE TO CONVERT FROM INTERNAL DOUBLE PRECISION FLOATING POINT TO
  32. ; INTERNAL SINGLE PRECISION FLOATING POINT
  33. ;
  34. dfp2sfp proc    far
  35. ;
  36.     push    ax        ; save registers
  37. ;
  38.     mov    ax,dfpbuffw4    ; get word from double precision 
  39.     mov    sfpbuffw0,ax    ; put in single precision
  40. ;
  41.     mov    ax,dfpbuffw6    ; get word from double precision 
  42.     mov    sfpbuffw2,ax    ; put in single precision
  43. ;
  44.     pop    ax        ; restore registers
  45.     ret            ; return
  46. ;
  47. dfp2sfp    endp
  48. ;-------------------------dfp2sfp routine ends---------------------------+
  49.  
  50.