File: TANH.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/R=TANH(R) SINGL PREC. HYPERBOLIC TANGENT
/
/
/ VERSION 50A 27-MAY-80 WVDM
/
/
SECT TANH
00000 1030 JA #TANH
00001 0047
00002 2401 TEXT +TANH +
00003 1610
00004 4040
00005 1100 TANHXR, SETX XRTANH
00006 0014
00007 1110 SETB BPTANH
00010 0011
00011 0040 BPTANH, FNOP
00012 0000 0
00013 0000 0
00014 0000 XRTANH, F 0.0
00015 0000
00016 0000
00017 0000 TANH1, F 0.0
00020 0000
00021 0000
00022 0000 TANH2, F 0.0
00023 0000
00024 0000
ORG 10*3+BPTANH
00041 0040 FNOP
00042 1030 JA TANHXR
00043 0005
00044 0000 0
00045 1030 TNHRTN, JA .
00046 0045
/
BASE 0
00047 0006 #TANH, STARTD
00050 0210 FLDA 10*3
00051 6400 FSTA TNHRTN
00052 0045
00053 0200 FLDA 0
00054 1100 SETX XRTANH
00055 0014
00056 1110 SETB BPTANH
00057 0011
BASE BPTANH
00060 0101 LDX 1,1
00061 0001
00062 6200 FSTA BPTANH
00063 0610 FLDA% BPTANH,1 /ADDR OF X
00064 6200 FSTA BPTANH
00065 0005 STARTF
00066 0600 FLDA% BPTANH /GET X
00067 6202 FSTA TANH1 /SAVE IT
EXTERN COSH
RALF V50A 8-APR-92 PAGE 1-1
00070 1130 JSR COSH /CALL COSH
00071 0000
00072 1030 JA .+4
00073 0076
00074 1030 JA TANH1
00075 0017
00076 6203 FSTA TANH2 /SAVE COSH(X)
EXTERN SINH
00077 1130 JSR SINH /CALL SINH
00100 0000
00101 1030 JA .+4
00102 0105
00103 1030 JA TANH1
00104 0017
00105 3203 FDIV TANH2 /SINH/COSH=TANH
00106 1030 JA TNHRTN
00107 0045
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
10 SYMBOLS, NO ABS REFS
# C 00000 #MAIN S 00000 #TANH 00047 BPTANH 00011
COSH X 00000 SINH X 00000 TANH S 00110 TANHXR 00005
TANH1 00017 TANH2 00022 TNHRTN 00045 XRTANH 00014