home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt1 / cexp.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  355 b   |  36 lines
  1. /
  2. /
  3.  
  4. / cexp fortran function
  5.  
  6. .globl    cexp.
  7.  
  8. .globl    rval8p
  9. .globl    retrn
  10. .globl    temp
  11. .globl    rerr
  12. .globl    exp
  13. .globl    sin
  14. .globl    cos
  15.  
  16. cexp.:    temp
  17.     rval8p; 2
  18.     .+2
  19.     setf
  20.     movf    (sp)+,r0
  21.     jsr    pc,exp
  22.     bes    1f
  23.     movf    r0,temp
  24.     movf    (sp),r0
  25.     jsr    pc,sin
  26.     mulf    temp,r0
  27.     movf    r0,temp+4
  28.     movf    (sp)+,r0
  29.     jsr    pc,cos
  30.     mulf    temp,r0
  31.     movf    r0,temp
  32.     jmp    retrn
  33.  
  34. 1:
  35.     jsr    r5,rerr; 5.
  36.