File: CSIN.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/C=CSIN(C),C=CCOS(C) COMPLEX SIN AND COS
/
/
/ VERSION 50A 27-MAY-80 WVDM
/
/
/CCOS(X+I*Y)=COS(X)*COSH(Y)-SIN(X)*SINH(Y)
/
/CSIN(X+I*Y)=SIN(X)*COSH(Y)+COS(X)*SINH(Y)
/
/CALLS SIN,COS,COSH,SINH
/
SECT CSIN
00000 1030 JA #CSIN
00001 0051
DPCHK
00002 0323 TEXT +CSIN +
00003 1116
00004 4040
00005 1100 CSINXR, 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 C, F 0.0
00030 0000
00031 0000
00032 0000 CH, F 0.0
00033 0000
00034 0000
00035 0000 S, F 0.0
00036 0000
00037 0000
00040 0000 SH, F 0.0
00041 0000
00042 0000
ORG 10*3+BP
00043 0040 FNOP
00044 1030 JA CSINXR
00045 0005
00046 0000 0
00047 1030 RT, JA .
00050 0047
RALF V50A 8-APR-92 PAGE 1-1
/
BASE 0
00051 1100 #CSIN, SETX XR
00052 0016
00053 0100 LDX 0,0 /SIGNAL CSIN
00054 0000
00055 0006 COM, STARTD
00056 0210 FLDA 10*3
00057 6400 FSTA RT
00060 0047
00061 0200 FLDA 0
00062 1110 SETB BP
00063 0013
BASE BP
00064 0101 LDX 1,1
00065 0001
00066 6200 FSTA BP
00067 0610 FLDA% BP,1
00070 6200 FSTA BP
00071 0050 STARTE
00072 0600 FLDA% BP
00073 6202 FSTA ARG
00074 0005 STARTF
EXTERN COS
00075 1130 JSR COS
00076 0000
00077 1030 JA CSA
00100 0103
00101 1030 JA ARG /COS(X)
00102 0021
00103 6204 CSA, FSTA C
EXTERN SIN
00104 1130 JSR SIN
00105 0000
00106 1030 JA CSB
00107 0112
00110 1030 JA ARG
00111 0021
00112 6206 CSB, FSTA S /SIN(X)
EXTERN SINH
00113 1130 JSR SINH
00114 0000
00115 1030 JA CSC
00116 0121
00117 1030 JA ARG+3
00120 0024
00121 6207 CSC, FSTA SH /SINH(Y)
EXTERN COSH
00122 1130 JSR COSH
00123 0000
00124 1030 JA CSD
00125 0130
00126 1030 JA ARG+3
00127 0024
00130 6205 CSD, FSTA CH /COSH(Y)
00131 2000 JXN CALCOS,0 /XR0 IS 0 FOR CSIN AND 1 FOR CCOS
RALF V50A 8-APR-92 PAGE 1-2
00132 0147
00133 0206 FLDA S
00134 4205 FMUL CH
00135 6202 FSTA ARG /SIN*COSH
00136 0204 FLDA C
00137 4207 CSE, FMUL SH
00140 6203 FSTA ARG+3 /COS*SINH
00141 0050 STARTE
00142 0202 FLDA ARG
00143 6400 FSTA #CAC
00144 0000
00145 1030 JA RT
00146 0047
EXTERN #CAC
/
00147 0204 CALCOS, FLDA C /DO COS
00150 4205 FMUL CH
00151 6202 FSTA ARG
00152 0206 FLDA S
00153 0003 FNEG
00154 1030 JA CSE
00155 0137
/
ENTRY CCOS
00156 1100 CCOS, SETX XR
00157 0016
00160 0100 LDX 1,0 /SIGNAL CCOS
00161 0001
00162 1030 JA COM
00163 0055
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
24 SYMBOLS, NO ABS REFS
# C 00000 #CAC X 00000 #CSIN 00051 #MAIN S 00000
ARG 00021 BP 00013 C 00027 CALCOS 00147
CCOS 00156 CH 00032 COM 00055 COS X 00000
COSH X 00000 CSA 00103 CSB 00112 CSC 00121
CSD 00130 CSE 00137 CSIN S 00164 CSINXR 00005
RT 00047 S 00035 SH 00040 SIN X 00000
SINH X 00000 XR 00016