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

   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.

Defined functions