2.9BSD - /usr/src/lib/c/gen/ldexp11.s

   1: /*	@(#)ldexp11.s	2.1	SCCS id keyword	*/
   2: / double ldexp(number, exp)
   3: / double number
   4: /  -- returns number * 2^exp
   5: 
   6: .globl  _ldexp
   7: .globl  csv, cret
   8: 
   9: ERANGE = 34.
  10: 
  11: _ldexp:
  12:         jsr     r5,csv
  13:         movf    4(r5),fr0
  14:         movei   fr0,r0
  15:         add     12.(r5),r0
  16:         movie   r0,fr0
  17:         cfcc
  18:         bvc     1f
  19:         bmi     2f
  20:         movf    huge,fr0
  21:         br      3f
  22: 2:
  23:         movf    huge,fr0
  24:         negf    fr0
  25: 3:
  26:         mov     $ERANGE,_errno
  27: 1:
  28:         jmp     cret
  29: 
  30:         .comm   _errno,2
  31:         .data
  32: huge:   077777; 0177776; 0177777; 0177777

Defined functions

Defined variables