File: COSH.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/R=COSH(R) SINGLE PREC. HYPERBOLIC COSINE
/
/
/ VERSION 50A 26-MAY-80 WVDM
/
/
SECT COSH
00000 1030 JA #COSH
00001 0051
EXTERN #ARGER
00002 4000 COSHE, TRAP4 #ARGER
00003 0000
00004 0317 TEXT +COSH +
00005 2310
00006 4040
00007 1100 COSHXR, SETX XRCOSH
00010 0016
00011 1110 SETB BPCOSH
00012 0013
00013 0040 BPCOSH, FNOP
00014 0000 0
00015 0000 0
00016 0000 XRCOSH, F 0.0
00017 0000
00020 0000
00021 0000 COSH7, F 0.0
00022 0000
00023 0000
00024 0000 COSH8, F 0.0
00025 0000
00026 0000
00027 0001 F1COSH, F 1.
00030 2000
00031 0000
00032 0002 F2COSH, F 2.
00033 2000
00034 0000
00035 0000 COSHLG, F 0.6931472 /LN(2)
00036 2613
00037 4414
00040 0007 COSH1, F 87.337 /LIMIT FACTOR. LN(2^126)
00041 2565
00042 3105
ORG 10*3+BPCOSH
00043 0040 FNOP
00044 1030 JA COSHXR
00045 0007
00046 0000 0
00047 1030 CSHRTN, JA .
00050 0047
/
BASE 0
00051 0006 #COSH, STARTD
00052 0210 FLDA 10*3
00053 6400 FSTA CSHRTN
00054 0047
RALF V50A 8-APR-92 PAGE 1-1
00055 0200 FLDA 0
00056 1100 SETX XRCOSH
00057 0016
00060 1110 SETB BPCOSH
00061 0013
BASE BPCOSH
00062 0101 LDX 1,1
00063 0001
00064 6200 FSTA BPCOSH
00065 0610 FLDA% BPCOSH,1 /ADDR OF X
00066 6200 FSTA BPCOSH
00067 0005 STARTF
00070 0600 FLDA% BPCOSH /GET X
00071 6203 FSTA COSH8 /SAVE ARGUMENT
00072 1010 JGE .+3 /ABS(X)
00073 0075
00074 0003 FNEG
00075 6202 FSTA COSH7
00076 2207 FSUB COSH1 /TEST FOR LIMITS.
00077 1010 JGE COSHBG
00100 0116
EXTERN EXP
00101 1130 JSR EXP /EXP(X)
00102 0000
00103 1030 JA .+4
00104 0107
00105 1030 JA COSH8
00106 0024
00107 6202 FSTA COSH7
00110 0204 FLDA F1COSH /1.
00111 3202 FDIV COSH7 / 1./EXP(X)
00112 1202 FADD COSH7 / EXP(X)+1./EXP(X)
00113 3205 FDIV F2COSH / (EXP(X)+1./EXP(X))/2.
00114 1030 JA CSHRTN /AND THAT IS THE DEFINITION OF COSH.
00115 0047
/
00116 0202 COSHBG, FLDA COSH7 /GET BACK ARGUMENT (ABS)
00117 2206 FSUB COSHLG /READ IN SUBTRACTION FACTOR.
00120 6203 FSTA COSH8 / EXP(ABS(X)-LN(2))
EXTERN EXP
00121 1130 JSR EXP
00122 0000
00123 1030 JA .+4
00124 0127
00125 1030 JA COSH8
00126 0024
00127 1030 JA CSHRTN / A VERY GOOD APPROXIMATION.
00130 0047
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
16 SYMBOLS, NO ABS REFS
# C 00000 #ARGER X 00000 #COSH 00051 #MAIN S 00000
BPCOSH 00013 COSH S 00131 COSHBG 00116 COSHE 00002
COSHLG 00035 COSHXR 00007 COSH1 00040 COSH7 00021
COSH8 00024 CSHRTN 00047 EXP X 00000 F1COSH 00027
F2COSH 00032 XRCOSH 00016