3 /COMPLEX RAISED TO COMPLEX
5 / VERSION 5A 4-26-77 MH
9 /B+D=0 MEANS USE EXP3 TO CALCULATTE A^C
10 /A+B=0,C+D=0 YIELDS 1.0
11 /ENTER + EXIT IN STARTE
37 EX, FSTA #CAC /RESULT = 0
44 FLDA FP1 /RESULT = 1 IF C=D=0
47 JNE EX3 /USE EXP3 IF B=D=0
57 FLDA A /RETURN AS REAL PART
67 /LOGR=ALOG(SQRT(A*A+B*B))
90 /CALCULATE IN AND COS OF ARG. SAVE SIGN OF EACH
107 /REAL = EXP(REST+ALOG(CSINE))
110 LDX 0,1 /=1 IF POSITIVE
114 JXN .+3,0 /SKIP IF POS