sw/f4/FRTSRC/cmplx.ra

   1 /
   2 /   C M P L X
   3 /   - - - - -
   4 /
   5 / VERSION 5A 4-27-77  PT
   6 /
   7 /ENTER IN REAL,EXIT IN COMPLEX
   8 /CMPLX(X,Y)
   9 /Z=X+IY
  10 /
  11         SECT    CMPLX
  12         JA      #CMPLX
  13         DPCHK
  14         TEXT    +CMPLX +
  15 CMPXR,  SETX    XR
  16         SETB    BP
  17 BP,     F 0.0
  18 XR,     F 0.0
  19 PTR1,   F 0.0
  20 ARG,    F 0.0
  21         F 0.0
  22         ORG     10*3+BP
  23         FNOP
  24         JA      CMPXR
  25         0
  26 RT,     JA      .
  27         BASE    0
  28 #CMPLX, STARTD
  29         FLDA    10*3
  30         FSTA    RT
  31         FLDA    0
  32         SETB    BP
  33         SETX    XR
  34         BASE    BP
  35         LDX     1,1
  36         FSTA    BP
  37         FLDA%   BP,1
  38         FSTA    PTR1            /ADDR OF X
  39         FLDA%   BP,1+
  40         FSTA    BP              /ADDR OF Y
  41         STARTF
  42         FLDA%   PTR1
  43         FSTA    ARG             /X
  44         FLDA%   BP
  45         FSTA    ARG+3           /Y
  46         STARTE
  47         FLDA    ARG             /X+IY
  48         FSTA    #CAC            /SAVE IN CMPLX AC
  49         JA      RT
  50         EXTERN  #CAC
  51 \f