home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt1 / alog10.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  310 b   |  34 lines

  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
  34.