home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt1 / cmplx.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  311 b   |  35 lines
  1. /
  2. /
  3.  
  4. / cmplx fortran function
  5.  
  6. .globl    cmplx.
  7. .globl    dcmplx.
  8.  
  9. .globl    retrn
  10. .globl    temp
  11. .globl    rerr
  12.  
  13. dcmplx.:temp
  14.     .+2
  15.     setd
  16.     br    1f
  17.  
  18. cmplx.:    temp
  19.     .+2
  20.     setf
  21. 1:
  22.     cmp    *2(sp),$2
  23.     bne    1f
  24.     mov    r3,r1
  25.     tst    (r1)+
  26.     movf    *(r1)+,r0
  27.     movf    *(r1)+,r1
  28.     mov    $temp,r1
  29.     movf    r0,(r1)+
  30.     movf    r1,(r1)+
  31.     jmp    retrn
  32.  
  33. 1:
  34.     jsr    r5,rerr; 6.
  35.