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

diff --git a/sw/os8/v3d/sources/fortran/all/expid2.ra b/sw/os8/v3d/sources/fortran/all/expid2.ra
new file mode 100644
index 0000000..80f39a4
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/all/expid2.ra
@@ -0,0 +1,71 @@
+/
+/
+/
+/	E  X  P  I  D  2
+/	-  -  -  -  -  -
+/
+/SUBROUTINE	EXPID2(B,E)
+/WHERE B IS INTEGER AND E IS DOUBLE
+/
+/ VERSION 5A 4-26-77 MH
+/
+	SECT	EXPID2
+	JA	#EXID2
+	EXTERN	#ARGER
+EXP3ER,	TRAP4	#ARGER
+	TEXT	+EXPID2+
+EXP3XR,	SETX	XREXP3
+	SETB	BPEXP3
+BPEXP3,	FNOP
+	0
+	0
+XREXP3,	F 0.0
+EXP31,	F 0.0
+	F 0.0
+EXP32,	F 0.0
+FP1XP3,	F 1.
+	F 0.0
+	ORG	10*3+BPEXP3
+	FNOP
+	JA	EXP3XR
+	0
+XP3RTN,	JA	.
+	BASE		0
+#EXID2,	STARTD
+	FLDA	10*3
+	FSTA	XP3RTN
+	FLDA	0
+	SETX	XREXP3
+	SETB	BPEXP3
+	BASE	BPEXP3
+	LDX	1,1
+	FSTA	BPEXP3
+	FLDA%	BPEXP3,1	/ADDR OF B
+	FSTA	EXP31
+	FLDA%	BPEXP3,1+	/ADDR OF E
+	FSTA	EXP32
+	STARTF
+	FLDA%	EXP31	/GET B
+	JEQ	XP3RTN	/0 ^ X = 0
+	JLT	EXP3ER
+	FSTA	EXP31	/SAVE BASE
+	FCLA
+	FSTA	EXP31+3
+	STARTE
+	LDX	73,1
+	EXTERN	DLOG
+	JSR	DLOG	/CALL LOG
+	JA	.+4	/TAKE LOG (B)
+	JA	EXP31
+	FSTA	EXP31
+	FLDA%	EXP32		/GET EXPONENT
+	JEQ	EXP3ON		/X^0=1
+	FMULM	EXP31
+	EXTERN	DEXP
+	JSR	DEXP	/CALL EXP.
+	JA	XP3RTN
+	JA	EXP31
+EXP3ON,	STARTE
+	FLDA	FP1XP3
+	JA	XP3RTN
+