software: Added more and more
[pdp8.git] / sw / f4 / FRTSRC / real.ra
diff --git a/sw/f4/FRTSRC/real.ra b/sw/f4/FRTSRC/real.ra
new file mode 100644 (file)
index 0000000..9fed56c
--- /dev/null
@@ -0,0 +1,73 @@
+/
+/   R E A L
+/   - - - -
+/
+/   A I M A G
+/   - - - - -
+/
+/   C O N J G
+/   - - - - -
+/
+/ VERSION 5A 4-27-77  PT
+/
+/REAL,AIMAG - ENTER IN COMPLEX,EXIT IN REAL
+/CONJG - ENTER + EXIT IN COMPLEX
+/
+       SECT    REAL
+       JA      #REAL
+       DPCHK
+       TEXT    +REAL  +
+REALXR,        SETX    XRREAL
+       SETB    BPREAL
+BPREAL,        F 0.0
+XRREAL,        F 0.0
+ARG,   F 0.0
+       F 0.0
+       ORG     10*3+BPREAL
+       FNOP
+       JA      REALXR
+       0
+REALRT,        JA      .
+       BASE    0
+#REAL, SETX    XRREAL
+       LDX     0,2
+       LDX     1,0
+COMM,  STARTD
+       FLDA    10*3
+       FSTA    REALRT
+       FLDA    0
+       SETB    BPREAL
+       BASE    BPREAL
+       LDX     1,1
+       FSTA    BPREAL
+       FLDA%   BPREAL,1
+       FSTA    BPREAL
+       STARTE
+       FLDA%   BPREAL          /GET ARG
+       FSTA    ARG
+       JXN     REAM,0
+       STARTF
+       FLDA    ARG+3
+       FNEG
+       FSTA    ARG+3
+       STARTE
+       FLDA    ARG
+       FSTA    #CAC
+       JA      REALRT
+REAM,  STARTF
+CON,   FLDA    ARG,2
+       JA      REALRT
+       EXTERN  #CAC
+/
+       ENTRY   AIMAG
+AIMAG, SETX    XRREAL
+       LDX     1,2
+       LDX     1,0
+       JA      COMM
+/
+       ENTRY   CONJG
+CONJG, SETX    XRREAL
+       LDX     0,2
+       LDX     0,0
+       JA      COMM
+\f