UNIX 6th Ed. - /usr/source/fort/rt1/alog10.s

   1: /
   2: /
   3: 
   4: / alog10 & dlog10 fortran functions
   5: 
   6: .globl  dlog10.
   7: .globl  alog10.
   8: 
   9: .globl  log
  10: .globl  retrn
  11: .globl  rerr
  12: .globl  temp
  13: 
  14: dlog10.:temp
  15:         .+2
  16:         setd
  17:         br      1f
  18: 
  19: alog10.:temp
  20:         .+2
  21:         setf
  22: 1:
  23:         movf    *2(r3),r0
  24:         jsr     pc,log
  25:         bes     1f
  26:         mulf    const,r0
  27:         movf    r0,temp
  28:         jmp     retrn
  29: 
  30: 1:
  31:         jsr     r5,rerr; 1
  32: 
  33: const:  37736;55730;124467;24146

Defined functions