File: EXPIR.RA of Tape: OS8/OS8-Latest/new-10

(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

---