File: EXPID.RA of Disk: V50/Source/Source-Listing-RALF-1

(Source file text) 

---

/D=I**D INTERNAL EXPONENTIATION FUNCTION (USES EXPID2)
/
/
/ VERSION 50A 28-MAY-80 WVDM
/
/
	SECT	#EXPID
	DPCHK
	BASE	0
	EXTERN	EXPID2
EXPID,	JA	.
	FSTA	EXPON,0		/EXPONENT
	STARTF
	FLDA	0		/BASE
	FSTA	BASE,0
	JSR	EXPID2
	JA	.+6
	JA	BASE
	JA	EXPON
	JA	EXPID
BASE,	F	0.0
EXPON,	F	0.0
	F 0.0
	END


---