UNIX 6th Ed. - /usr/source/fort/rt/ra.s

   1: /
   2: /
   3: 
   4: / ra -- fortran runtime --  real ** real
   5: 
   6: .globl  rpr4
   7: .globl  rpr8
   8: 
   9: .globl  log
  10: .globl  exp
  11: .globl  rerr
  12: 
  13: rpr8:
  14:         setd
  15:         br      1f
  16: 
  17: rpr4:
  18:         setf
  19: 
  20: 1:
  21:         seti
  22:         movf    (sp)+,fr1
  23:         movf    (sp)+,fr0
  24:         cfcc
  25:         beq     3f                      / 0**x
  26:         movf    fr1,-(sp)
  27:         jsr     pc,log
  28:         bes     error
  29:         mulf    (sp)+,fr0
  30:         jsr     pc,exp
  31:         bes     error
  32: 2:
  33:         movf    fr0,-(sp)
  34:         jmp     *(r4)+
  35: 
  36: 3:
  37:         tstf    r1
  38:         cfcc
  39:         bgt     2b
  40: 
  41: error:
  42:         jsr     r5,rerr; 17.

Defined functions