File: EXPID2.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1 /INTERNAL ROUTINE D=EXPID2(I,D) (USED BY EXPID D=I**D) / / / VERSION 50A 28-MAY-80 WVDM / / SECT EXPID2 00000 1030 JA #EXID2 00001 0051 EXTERN #ARGER 00002 4000 EXP3ER, TRAP4 #ARGER 00003 0000 00004 0530 TEXT +EXPID2+ 00005 2011 00006 0462 00007 1100 EXP3XR, SETX XREXP3 00010 0016 00011 1110 SETB BPEXP3 00012 0013 00013 0040 BPEXP3, FNOP 00014 0000 0 00015 0000 0 00016 0000 XREXP3, F 0.0 00017 0000 00020 0000 00021 0000 EXP31, F 0.0 00022 0000 00023 0000 00024 0000 F 0.0 00025 0000 00026 0000 00027 0000 EXP32, F 0.0 00030 0000 00031 0000 00032 0001 FP1XP3, F 1. 00033 2000 00034 0000 00035 0000 F 0.0 00036 0000 00037 0000 ORG 10*3+BPEXP3 00043 0040 FNOP 00044 1030 JA EXP3XR 00045 0007 00046 0000 0 00047 1030 XP3RTN, JA . 00050 0047 / BASE 0 00051 0006 #EXID2, STARTD 00052 0210 FLDA 10*3 00053 6400 FSTA XP3RTN 00054 0047 00055 0200 FLDA 0 00056 1100 SETX XREXP3 00057 0016 RALF V50A 8-APR-92 PAGE 1-1 00060 1110 SETB BPEXP3 00061 0013 BASE BPEXP3 00062 0101 LDX 1,1 00063 0001 00064 6200 FSTA BPEXP3 00065 0610 FLDA% BPEXP3,1 /ADDR OF B 00066 6202 FSTA EXP31 00067 0710 FLDA% BPEXP3,1+ /ADDR OF E 00070 6204 FSTA EXP32 00071 0005 STARTF 00072 0602 FLDA% EXP31 /GET B 00073 1000 JEQ XP3RTN /0 ^ X = 0 00074 0047 00075 1050 JLT EXP3ER 00076 0002 00077 6202 FSTA EXP31 /SAVE BASE 00100 0002 FCLA 00101 6203 FSTA EXP31+3 00102 0050 STARTE 00103 0101 LDX 73,1 00104 0073 EXTERN DLOG 00105 1130 JSR DLOG /CALL LOG 00106 0000 00107 1030 JA .+4 /TAKE LOG (B) 00110 0113 00111 1030 JA EXP31 00112 0021 00113 6202 FSTA EXP31 00114 0604 FLDA% EXP32 /GET EXPONENT 00115 1000 JEQ EXP3ON /X^0=1 00116 0131 00117 4202 FMUL EXP31 00120 6202 FSTA EXP31 EXTERN DEXP 00121 1130 JSR DEXP /CALL EXP. 00122 0000 00123 1030 JA .+4 00124 0127 00125 1030 JA EXP31 00126 0021 00127 1030 JA XP3RTN 00130 0047 / 00131 0050 EXP3ON, STARTE 00132 0205 FLDA FP1XP3 00133 1030 JA XP3RTN 00134 0047 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 #EXID2 00051 #MAIN S 00000 BPEXP3 00013 DEXP X 00000 DLOG X 00000 EXPID2 S 00135 EXP3ER 00002 EXP3ON 00131 EXP3XR 00007 EXP31 00021 EXP32 00027 FP1XP3 00032 XP3RTN 00047 XREXP3 00016