File: CEXP.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/C=CEXP(C) COMPLEX EXPONENT
/
/
/ VERSION 50A 27-MAY-80 WVDM
/
/
/CEXP(Z)=EXP(X)*(COS(Y)+I*SIN(Y))
/ENTER+EXIT IN COMPLEX Z=X+IY
/EXTERNAL EXP,SIN,COS
/
SECT CEXP
00000 1030 JA #CEXP
00001 0051
DPCHK
00002 0305 TEXT +CEXP +
00003 3020
00004 4040
00005 1100 CEXPXR, SETX XR
00006 0016
00007 1110 SETB BP
00010 0013
00011 1030 JA .+3
00012 0014
00013 0000 BP, F 0.0
00014 0000
00015 0000
00016 0000 XR, F 0.0
00017 0000
00020 0000
00021 0000 ARG, F 0.0
00022 0000
00023 0000
00024 0000 F 0.0
00025 0000
00026 0000
00027 0000 ETEMP, F 0.0
00030 0000
00031 0000
ORG 10*3+BP
00043 0040 FNOP
00044 1030 JA CEXPXR
00045 0005
00046 0000 0
00047 1030 RT, JA .
00050 0047
/
BASE 0
00051 0006 #CEXP, STARTD
00052 0210 FLDA 10*3
00053 6400 FSTA RT
00054 0047
00055 0200 FLDA 0
00056 1110 SETB BP
00057 0013
00060 1100 SETX XR
00061 0016
RALF V50A 8-APR-92 PAGE 1-1
BASE BP
00062 0101 LDX 1,1
00063 0001
00064 6200 FSTA BP
00065 0610 FLDA% BP,1
00066 6200 FSTA BP
00067 0050 STARTE
00070 0600 FLDA% BP
00071 6202 FSTA ARG
00072 0005 STARTF
EXTERN EXP
00073 1130 JSR EXP /EXP(X)
00074 0000
00075 1030 JA CEX1
00076 0101
00077 1030 JA ARG
00100 0021
00101 6204 CEX1, FSTA ETEMP
EXTERN COS
00102 1130 JSR COS /COS(Y)
00103 0000
00104 1030 JA CEX2
00105 0110
00106 1030 JA ARG+3
00107 0024
00110 4204 CEX2, FMUL ETEMP
00111 6202 FSTA ARG
EXTERN SIN
00112 1130 JSR SIN /SIN(Y)
00113 0000
00114 1030 JA CEX3
00115 0120
00116 1030 JA ARG+3
00117 0024
00120 4204 CEX3, FMUL ETEMP
00121 6203 FSTA ARG+3
00122 0050 STARTE
00123 0202 FLDA ARG
00124 6400 FSTA #CAC
00125 0000
00126 1030 JA RT
00127 0047
EXTERN #CAC
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
15 SYMBOLS, NO ABS REFS
# C 00000 #CAC X 00000 #CEXP 00051 #MAIN S 00000
ARG 00021 BP 00013 CEXP S 00130 CEXPXR 00005
CEX1 00101 CEX2 00110 CEX3 00120 COS X 00000
ETEMP 00027 EXP X 00000 RT 00047 SIN X 00000
XR 00016