home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt / ra.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  367 b   |  44 lines
  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.
  43.  
  44.