home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libc / gen / ldexp11.s < prev    next >
Encoding:
Text File  |  1979-01-10  |  372 b   |  32 lines
  1. / double ldexp(number, exp)
  2. / double number
  3. /  -- returns number * 2^exp
  4.  
  5. .globl    _ldexp
  6. .globl    csv, cret
  7.  
  8. ERANGE = 34.
  9.  
  10. _ldexp:
  11.     jsr    r5,csv
  12.     movf    4(r5),fr0
  13.     movei    fr0,r0
  14.     add    12.(r5),r0
  15.     movie    r0,fr0
  16.     cfcc
  17.     bvc    1f
  18.     bmi    2f
  19.     movf    huge,fr0
  20.     br    3f
  21. 2:
  22.     movf    huge,fr0
  23.     negf    fr0
  24. 3:
  25.     mov    $ERANGE,_errno
  26. 1:
  27.     jmp    cret
  28.  
  29.     .comm    _errno,2
  30.     .data
  31. huge:    077777; 0177776; 0177777; 0177777
  32.