File: DEXP3.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/INTERNAL FUNCTION D=DEXP3(D,(R OR D)) (USED BY EXPDR,EXPDD D=D**R,D)
/
/
/ VERSION 50A 28-MAY-80 WVDM
/
/
SECT DEXP3
00000 1030 JA #DEXP3
00001 0053
DPCHK
EXTERN #ARGER
00002 4000 EXP3ER, TRAP4 #ARGER
00003 0000
00004 0405 TEXT +DEXP3 +
00005 3020
00006 6340
00007 1100 EXP3XR, SETX XREXP3
00010 0020
00011 1110 SETB BPEXP3
00012 0015
00013 1030 JA .+3
00014 0016
00015 0040 BPEXP3, FNOP
00016 0000 0
00017 0000 0
00020 0000 XREXP3, F 0.0
00021 0000
00022 0000
00023 0000 EXP31, F 0.0
00024 0000
00025 0000
00026 0000 F 0.0
00027 0000
00030 0000
00031 0000 EXP32, F 0.0
00032 0000
00033 0000
00034 0000 F 0.0
00035 0000
00036 0000
00037 0001 FP1XP3, F 1.0
00040 2000
00041 0000
00042 0000 F 0.0
00043 0000
00044 0000
ORG 10*3+BPEXP3
00045 0040 FNOP
00046 1030 JA EXP3XR
00047 0007
00050 0000 0
00051 1030 XP3RTN, JA .
00052 0051
/
BASE 0
00053 0006 #DEXP3, STARTD
RALF V50A 8-APR-92 PAGE 1-1
00054 0210 FLDA 10*3
00055 6400 FSTA XP3RTN
00056 0051
00057 0200 FLDA 0
00060 1100 SETX XREXP3
00061 0020
00062 1110 SETB BPEXP3
00063 0015
BASE BPEXP3
00064 0101 LDX 1,1
00065 0001
00066 6200 FSTA BPEXP3
00067 0610 FLDA% BPEXP3,1 /ADDR OF B
00070 6202 FSTA EXP31
00071 0710 FLDA% BPEXP3,1+ /ADDR OF E
00072 6204 FSTA EXP32
00073 0050 STARTE
00074 0602 FLDA% EXP31 /GET B
00075 1000 JEQ XP3RTN /0 ^ X = 0
00076 0051
00077 6202 FSTA EXP31 /SAVE BASE
00100 0604 FLDA% EXP32 /GET E
00101 1000 JEQ EXP3ON /X ^ 0 = 1
00102 0127
00103 6204 FSTA EXP32 /SAVE EXPONENT
00104 0202 FLDA EXP31
00105 1050 JLT EXP3ER /ALL IS NOT WELL
00106 0002
EXTERN DLOG
00107 1130 JSR DLOG /CALL LOG
00110 0000
00111 1030 JA .+4 /TAKE LOG (B)
00112 0115
00113 1030 JA EXP31
00114 0023
00115 4204 FMUL EXP32 /MULT BY EXPONENT-E
00116 6202 FSTA EXP31
EXTERN DEXP
00117 1130 JSR DEXP /CALL EXP.
00120 0000
00121 1030 JA .+4
00122 0125
00123 1030 JA EXP31
00124 0023
00125 1030 JA XP3RTN
00126 0051
/
00127 0206 EXP3ON, FLDA FP1XP3
00130 1030 JA XP3RTN
00131 0051
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
14 SYMBOLS, NO ABS REFS
# C 00000 #ARGER X 00000 #DEXP3 00053 #MAIN S 00000
BPEXP3 00015 DEXP X 00000 DEXP3 S 00132 DLOG X 00000
EXP3ER 00002 EXP3ON 00127 EXP3XR 00007 EXP31 00023
EXP32 00031 FP1XP3 00037 XP3RTN 00051 XREXP3 00020