File: TAN.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/R=TAN(R) SINGLE PREC. TRIG. TANGENT
/
/
/ VERSION 50A 26-MAY-80 WVDM
/
/
SECT TAN
00000 1030 JA #TAN
00001 0051
EXTERN #ARGER
00002 4000 TANER, TRAP4 #ARGER
00003 0000
00004 2401 TEXT +TAN +
00005 1640
00006 4040
00007 1100 TANXR, SETX XRTAN
00010 0016
00011 1110 SETB BPTAN
00012 0013
00013 0040 BPTAN, FNOP
00014 0000 0
00015 0000 0
00016 0000 XRTAN, F 0.0
00017 0000
00020 0000
00021 0000 TAN1, F 0.0
00022 0000
00023 0000
00024 0000 TAN2, F 0.0
00025 0000
00026 0000
ORG 10*3+BPTAN
00043 0040 FNOP
00044 1030 JA TANXR
00045 0007
00046 0000 0
00047 1030 TANRTN, JA .
00050 0047
BASE 0
00051 0006 #TAN, STARTD
00052 0210 FLDA 10*3
00053 6400 FSTA TANRTN
00054 0047
00055 0200 FLDA 0
00056 1100 SETX XRTAN
00057 0016
00060 1110 SETB BPTAN
00061 0013
BASE BPTAN
00062 0101 LDX 1,1
00063 0001
00064 6200 FSTA BPTAN
00065 0610 FLDA% BPTAN,1 /ADDR OF X
00066 6200 FSTA BPTAN
00067 0005 STARTF
00070 0600 FLDA% BPTAN /GET X
RALF V50A 8-APR-92 PAGE 1-1
00071 1000 JEQ TANRTN /IF 0 RTN NOW
00072 0047
00073 6202 FSTA TAN1 /SAVE FOR A SECOND
EXTERN COS
00074 1130 JSR COS /TAKE COS(X)
00075 0000
00076 1030 JA .+4
00077 0102
00100 1030 JA TAN1
00101 0021
00102 1000 JEQ TANER /COS=0. A NO-NO
00103 0002
00104 6203 FSTA TAN2 /SAVE IT
EXTERN SIN
00105 1130 JSR SIN /NOW TAKE SIN(X)
00106 0000
00107 1030 JA .+4
00110 0113
00111 1030 JA TAN1
00112 0021
00113 3203 FDIV TAN2 /DIV BY COS(X)
00114 1030 JA TANRTN
00115 0047
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
12 SYMBOLS, NO ABS REFS
# C 00000 #ARGER X 00000 #MAIN S 00000 #TAN 00051
BPTAN 00013 COS X 00000 SIN X 00000 TAN S 00116
TANER 00002 TANRTN 00047 TANXR 00007 TAN1 00021
TAN2 00024 XRTAN 00016