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