sw/f4/FRTSRC/real.ra

   1 /
   2 /   R E A L
   3 /   - - - -
   4 /
   5 /   A I M A G
   6 /   - - - - -
   7 /
   8 /   C O N J G
   9 /   - - - - -
  10 /
  11 / VERSION 5A 4-27-77  PT
  12 /
  13 /REAL,AIMAG - ENTER IN COMPLEX,EXIT IN REAL
  14 /CONJG - ENTER + EXIT IN COMPLEX
  15 /
  16         SECT    REAL
  17         JA      #REAL
  18         DPCHK
  19         TEXT    +REAL  +
  20 REALXR, SETX    XRREAL
  21         SETB    BPREAL
  22 BPREAL, F 0.0
  23 XRREAL, F 0.0
  24 ARG,    F 0.0
  25         F 0.0
  26         ORG     10*3+BPREAL
  27         FNOP
  28         JA      REALXR
  29         0
  30 REALRT, JA      .
  31         BASE    0
  32 #REAL,  SETX    XRREAL
  33         LDX     0,2
  34         LDX     1,0
  35 COMM,   STARTD
  36         FLDA    10*3
  37         FSTA    REALRT
  38         FLDA    0
  39         SETB    BPREAL
  40         BASE    BPREAL
  41         LDX     1,1
  42         FSTA    BPREAL
  43         FLDA%   BPREAL,1
  44         FSTA    BPREAL
  45         STARTE
  46         FLDA%   BPREAL          /GET ARG
  47         FSTA    ARG
  48         JXN     REAM,0
  49         STARTF
  50         FLDA    ARG+3
  51         FNEG
  52         FSTA    ARG+3
  53         STARTE
  54         FLDA    ARG
  55         FSTA    #CAC
  56         JA      REALRT
  57 REAM,   STARTF
  58 CON,    FLDA    ARG,2
  59         JA      REALRT
  60         EXTERN  #CAC
  61 /
  62         ENTRY   AIMAG
  63 AIMAG,  SETX    XRREAL
  64         LDX     1,2
  65         LDX     1,0
  66         JA      COMM
  67 /
  68         ENTRY   CONJG
  69 CONJG,  SETX    XRREAL
  70         LDX     0,2
  71         LDX     0,0
  72         JA      COMM
  73 \f