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

(Source file text) 

---

/R=R1**R2 INTERNAL FUNCTION
/
/
/ VERSION 40A 27-MAY-80 WVDM
/
/
	SECT	#EXPIR
	BASE	0
	EXTERN	EXP3
	JA	.
	FSTA	EXPON,0		/EXPONENT
	FLDA	0		/BASE CONTAINS BASE. NICE!
	FSTA	BASE,0
	JSR	EXP3		/EXP3(BASE,EXPON)
	JA	.+6
	JA	BASE
	JA	EXPON
	JA	#EXPIR
BASE,	F	0.0
EXPON,	F	0.0
	END

---