File: TAND.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/R=TAND(R) SINGLE PREC. TRIG. TANGENT (DEGREES)
/
/
/ VERSION 50A 27-MAY-80 WVDM
/
/
SECT TAND
00000 1030 JA #TAND
00001 0047
00002 2401 TEXT +TAND +
00003 1604
00004 4040
00005 1100 TANDXR, SETX XRTAND
00006 0014
00007 1110 SETB BPTAND
00010 0011
00011 0040 BPTAND, FNOP
00012 0000 0
00013 0000 0
00014 0000 XRTAND, F 0.0
00015 0000
00016 0000
00017 0006 TAND91, 6 /360./(2*PI)
00020 3451 3451
00021 3560 3560
00022 0000 TAND1, F 0.0
00023 0000
00024 0000
ORG 10*3+BPTAND
00041 0040 FNOP
00042 1030 JA TANDXR
00043 0005
00044 0000 0
00045 1030 TNDRTN, JA .
00046 0045
/
BASE 0
00047 0006 #TAND, STARTD
00050 0210 FLDA 10*3
00051 6400 FSTA TNDRTN
00052 0045
00053 0200 FLDA 0
00054 1100 SETX XRTAND
00055 0014
00056 1110 SETB BPTAND
00057 0011
BASE BPTAND
00060 0101 LDX 1,1
00061 0001
00062 6200 FSTA BPTAND
00063 0610 FLDA% BPTAND,1 /ADDR OF X
00064 6200 FSTA BPTAND
00065 0005 STARTF
00066 0600 FLDA% BPTAND /GET X IN DEGREES
00067 3202 FDIV TAND91 /CONVERT TO RADIANS
00070 6203 FSTA TAND1
RALF V50A 8-APR-92 PAGE 1-1
EXTERN TAN
00071 1130 JSR TAN /CALL THE TANGENT
00072 0000
00073 1030 JA TNDRTN
00074 0045
00075 1030 JA TAND1
00076 0022
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
9 SYMBOLS, NO ABS REFS
# C 00000 #MAIN S 00000 #TAND 00047 BPTAND 00011
TAN X 00000 TAND S 00077 TANDXR 00005 TAND1 00022
TAND91 00017 TNDRTN 00045 XRTAND 00014