File: CSIN.RA of Tape: Sources/Fortran/os8-f4-3
(Source file text)
/C=CSIN(C),C=CCOS(C) COMPLEX SIN AND COS / / / VERSION 40A 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 JA #CSIN DPCHK TEXT +CSIN + CSINXR, SETX XR SETB BP JA .+3 BP, F 0.0 XR, F 0.0 ARG, F 0.0 F 0.0 C, F 0.0 CH, F 0.0 S, F 0.0 SH, F 0.0 ORG 10*3+BP FNOP JA CSINXR 0 RT, JA . / BASE 0 #CSIN, SETX XR LDX 0,0 /SIGNAL CSIN COM, STARTD FLDA 10*3 FSTA RT FLDA 0 SETB BP BASE BP LDX 1,1 FSTA BP FLDA% BP,1 FSTA BP STARTE FLDA% BP FSTA ARG STARTF EXTERN COS JSR COS JA CSA JA ARG /COS(X) CSA, FSTA C EXTERN SIN JSR SIN JA CSB JA ARG CSB, FSTA S /SIN(X) EXTERN SINH JSR SINH JA CSC JA ARG+3 CSC, FSTA SH /SINH(Y) EXTERN COSH JSR COSH JA CSD JA ARG+3 CSD, FSTA CH /COSH(Y) JXN CALCOS,0 /XR0 IS 0 FOR CSIN AND 1 FOR CCOS FLDA S FMUL CH FSTA ARG /SIN*COSH FLDA C CSE, FMUL SH FSTA ARG+3 /COS*SINH STARTE FLDA ARG FSTA #CAC JA RT EXTERN #CAC / CALCOS, FLDA C /DO COS FMUL CH FSTA ARG FLDA S FNEG JA CSE / ENTRY CCOS CCOS, SETX XR LDX 1,0 /SIGNAL CCOS JA COM