UNIX 7th Ed. - /usr/src/libc/gen/ldexp11.s

   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

Defined functions

Defined variables