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

   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.

Defined functions