File: EXPDD.RA of Tape: Sources/Fortran/os8-f4-3

(Source file text) 

---

/INTERNAL FUNCTION EXPDD D=D**D (USES DEXP3)
/
/
/ VERSION 40A 28-MAY-80
/
/
	SECT	#EXPDD
	DPCHK
	BASE	0
	EXTERN	DEXP3
	JA	.
	FSTA	EXPON,0		/EXPONENT
	FLDA	0		/BASE
	FSTA	BASE,0
	JSR	DEXP3		/EXP3(BASE,EXPON)
	JA	.+6
	JA	BASE
	JA	EXPON
	JA	#EXPDD
BASE,	F 0.0
	F 0.0
EXPON,	F 0.0
	F 0.0
	END

---