3 /INTEGER OR REAL RAISED TO COMPLEX
5 / VERSION 5A 4-26-77 MH
9 /D=0 MEANS USE EXP3 TO CALCULATE A^C
11 /ENTER + EXIT IN STARTE
34 EX, FSTA #CAC /RESULT = 0
41 FLDA FP1 /RESULT = 1 IF C=D=0
44 JNE EX3 /USE EXP3 IF D=0
51 FLDA A /RETURN AS REAL PART
72 /CALCULATE SIN AND COS OF ARG. SAVE SIGN OF EACH
86 /REAL = EXP(REST+ALOG(CSINE))
89 LDX 0,1 /=1 IF POSITIVE
93 JXN .+3,0 /SKIP IF POS
124 FLDA LOGR /CHECK SIGN