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

   1: /
   2: /
   3: 
   4: / cos & dcos fortran functions
   5: 
   6: .globl  cos.
   7: .globl  dcos.
   8: 
   9: .globl  cos
  10: .globl  retrn
  11: .globl  temp
  12: 
  13: dcos.:  temp
  14:         .+2
  15:         setd
  16:         br      1f
  17: 
  18: cos.:   temp
  19:         .+2
  20:         setf
  21: 1:
  22:         movf    *2(r3),r0
  23:         jsr     pc,cos
  24:         movf    r0,temp
  25:         jmp     retrn

Defined functions