X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fos8%2Fv3d%2Fsources%2Ffortran%2Fall%2Fcmplx.ra;fp=sw%2Fos8%2Fv3d%2Fsources%2Ffortran%2Fall%2Fcmplx.ra;h=a1886ff65d0e3fd98ab3447363190b9145fb86f2;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/os8/v3d/sources/fortran/all/cmplx.ra b/sw/os8/v3d/sources/fortran/all/cmplx.ra
new file mode 100644
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
+