File: CEXP.RA of Tape: Original/Originals/AL-4546D-SA

(Source file text) 

---

/
/   C E X P
/   - - - -
/
/  COMPLEX EXPONENT ROUTINE
/Z=X+IY
/
/ VERSION 5A 4-25-77 MH
/
/
/CEXP(Z)=EXP(X)*(COS(Y)+I*SIN(Y))
/ENTER+EXIT IN COMPLEX
/EXTERNAL EXP,SIN,COS
/
	SECT	CEXP
	JA	#CEXP
	DPCHK
	TEXT	+CEXP  +
CEXPXR,	SETX	XR
	SETB	BP
	JA	.+3
BP,	F 0.0
XR,	F 0.0
ARG,	F 0.0
	F 0.0
	ORG	10*3+BP
	FNOP
	JA	CEXPXR
	0
RT,	JA	.
	BASE	0
#CEXP,	STARTD
	FLDA	10*3
	FSTA	RT
	FLDA	0
	SETB	BP
	SETX	XR
	BASE	BP
	LDX	1,1
	FSTA	BP
	FLDA%	BP,1
	FSTA	BP
	STARTE
	FLDA%	BP
	FSTA	ARG
	STARTF
	EXTERN	EXP
	JSR	EXP		/EXP(X)
	JA	CEX1
	JA	ARG
CEX1,	FSTA	ETEMP
	EXTERN	COS
	JSR	COS		/COS(Y)
	JA	CEX2
	JA	ARG+3
CEX2,	FSTA	ARG
	EXTERN	SIN
	JSR	SIN		/SIN(Y)
	JA	CEX3
	JA	ARG+3
CEX3,	FSTA	ARG+3
	FLDA	ETEMP
	FMULM	ARG
	FMULM	ARG+3
	STARTE
	FLDA	ARG
	FSTA	#CAC
	JA	RT
	EXTERN	#CAC
ETEMP,	F 0.0

---