home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt1 / conjg.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  201 b   |  22 lines
  1. /
  2. /
  3.  
  4. / conjg fortran function
  5.  
  6. .globl    conjg.
  7.  
  8. .globl    rval8p
  9. .globl    retrn
  10. .globl    temp
  11.  
  12. conjg.:    temp
  13.     rval8p; 2
  14.     .+2
  15.     setf
  16.     movf    (sp)+,r0
  17.     movf    r0,temp
  18.     movf    (sp)+,r0
  19.     negf    r0
  20.     movf    r0,temp+4
  21.     jmp    retrn
  22.