A large commit.

[pdp8.git] / sw / os8 / v3d / sources / fortran / all / cmplx.ra

diff --git a/sw/os8/v3d/sources/fortran/all/cmplx.ra b/sw/os8/v3d/sources/fortran/all/cmplx.ra
new file mode 100644 (file)
index 0000000..a1886ff
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/all/cmplx.ra
@@ -0,0 +1,51 @@
+/
+/   C M P L X
+/   - - - - -
+/
+/ VERSION 5A 4-27-77  PT
+/
+/ENTER IN REAL,EXIT IN COMPLEX
+/CMPLX(X,Y)
+/Z=X+IY
+/
+       SECT    CMPLX
+       JA      #CMPLX
+       DPCHK
+       TEXT    +CMPLX +
+CMPXR, SETX    XR
+       SETB    BP
+BP,    F 0.0
+XR,    F 0.0
+PTR1,  F 0.0
+ARG,   F 0.0
+       F 0.0
+       ORG     10*3+BP
+       FNOP
+       JA      CMPXR
+       0
+RT,    JA      .
+       BASE    0
+#CMPLX,        STARTD
+       FLDA    10*3
+       FSTA    RT
+       FLDA    0
+       SETB    BP
+       SETX    XR
+       BASE    BP
+       LDX     1,1
+       FSTA    BP
+       FLDA%   BP,1
+       FSTA    PTR1            /ADDR OF X
+       FLDA%   BP,1+
+       FSTA    BP              /ADDR OF Y
+       STARTF
+       FLDA%   PTR1
+       FSTA    ARG             /X
+       FLDA%   BP
+       FSTA    ARG+3           /Y
+       STARTE
+       FLDA    ARG             /X+IY
+       FSTA    #CAC            /SAVE IN CMPLX AC
+       JA      RT
+       EXTERN  #CAC
+\f