X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Ff4%2FFRTSRC%2Freal.ra;fp=sw%2Ff4%2FFRTSRC%2Freal.ra;h=9fed56c849ce6b68a52fd8c1494d895194b170ba;hb=7af5ad59491ddf2066641aef1e0025a337c0f247;hp=0000000000000000000000000000000000000000;hpb=919757fd611e482003ce51f366f6783cab73dea3;p=pdp8.git

diff --git a/sw/f4/FRTSRC/real.ra b/sw/f4/FRTSRC/real.ra
new file mode 100644
index 0000000..9fed56c
--- /dev/null
+++ b/sw/f4/FRTSRC/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
+