File: SIND.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/R=SIND(R) SINGLE PREC. DEGREES TRIG. SINE
/
/
/ VERSION 50A 27-MAY-80 WVDM
/
/
SECT SIND
00000 1030 JA #SIND
00001 0047
00002 2311 TEXT +SIND +
00003 1604
00004 4040
00005 1100 SINDXR, SETX XRSIND
00006 0014
00007 1110 SETB BPSIND
00010 0011
00011 0040 BPSIND, FNOP
00012 0000 0
00013 0000 0
00014 0000 XRSIND, F 0.0
00015 0000
00016 0000
00017 0006 SIND91, 6 /360./(2*PI)
00020 3451 3451
00021 3560 3560
00022 0000 SIND1, F 0.0
00023 0000
00024 0000
ORG 10*3+BPSIND
00041 0040 FNOP
00042 1030 JA SINDXR
00043 0005
00044 0000 0
00045 1030 SNDRTN, JA .
00046 0045
BASE 0
00047 0006 #SIND, STARTD
00050 0210 FLDA 10*3
00051 6400 FSTA SNDRTN
00052 0045
00053 0200 FLDA 0
00054 1100 SETX XRSIND
00055 0014
00056 1110 SETB BPSIND
00057 0011
BASE BPSIND
00060 0101 LDX 1,1
00061 0001
00062 6200 FSTA BPSIND
00063 0610 FLDA% BPSIND,1 /ADDR OF X
00064 6200 FSTA BPSIND
00065 0005 STARTF
00066 0600 FLDA% BPSIND /GET X IN DEGREES
00067 3202 FDIV SIND91 /CONVERT TO RADIANS
00070 6203 FSTA SIND1
EXTERN SIN
RALF V50A 8-APR-92 PAGE 1-1
00071 1130 JSR SIN /CALL THE SINE
00072 0000
00073 1030 JA .+4
00074 0077
00075 1030 JA SIND1
00076 0022
00077 1030 JA SNDRTN
00100 0045
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 #SIND 00047 BPSIND 00011
SIN X 00000 SIND S 00101 SINDXR 00005 SIND1 00022
SIND91 00017 SNDRTN 00045 XRSIND 00014