software: Added more and more
[pdp8.git] / sw / f4 / FRTSRC / cexp.ra
CommitLineData
7af5ad59
PH
1/
2/ C E X P
3/ - - - -
4/
5/ COMPLEX EXPONENT ROUTINE
6/Z=X+IY
7/
8/ VERSION 5A 4-25-77 MH
9/
10/
11/CEXP(Z)=EXP(X)*(COS(Y)+I*SIN(Y))
12/ENTER+EXIT IN COMPLEX
13/EXTERNAL EXP,SIN,COS
14/
15 SECT CEXP
16 JA #CEXP
17 DPCHK
18 TEXT +CEXP +
19CEXPXR, SETX XR
20 SETB BP
21 JA .+3
22BP, F 0.0
23XR, F 0.0
24ARG, F 0.0
25 F 0.0
26 ORG 10*3+BP
27 FNOP
28 JA CEXPXR
29 0
30RT, JA .
31 BASE 0
32#CEXP, STARTD
33 FLDA 10*3
34 FSTA RT
35 FLDA 0
36 SETB BP
37 SETX XR
38 BASE BP
39 LDX 1,1
40 FSTA BP
41 FLDA% BP,1
42 FSTA BP
43 STARTE
44 FLDA% BP
45 FSTA ARG
46 STARTF
47 EXTERN EXP
48 JSR EXP /EXP(X)
49 JA CEX1
50 JA ARG
51CEX1, FSTA ETEMP
52 EXTERN COS
53 JSR COS /COS(Y)
54 JA CEX2
55 JA ARG+3
56CEX2, FSTA ARG
57 EXTERN SIN
58 JSR SIN /SIN(Y)
59 JA CEX3
60 JA ARG+3
61CEX3, FSTA ARG+3
62 FLDA ETEMP
63 FMULM ARG
64 FMULM ARG+3
65 STARTE
66 FLDA ARG
67 FSTA #CAC
68 JA RT
69 EXTERN #CAC
70ETEMP, F 0.0
71\f