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

diff --git a/sw/os8/v3d/sources/fortran/dectapes/dectape2/real.ra b/sw/os8/v3d/sources/fortran/dectapes/dectape2/real.ra
new file mode 100644
index 0000000..9fed56c
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/dectapes/dectape2/real.ra
@@ -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
+