File: EXPDR.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1 /INTERNAL FUNCTION EXPDR D=D**R (USES DEXP3) / / / VERSION 50A 28-MAY-80 WVDM / / SECT #EXPDR DPCHK BASE 0 EXTERN DEXP3 00000 1030 JA . 00001 0000 00002 6400 FSTA EXPON,0 /EXPONENT 00003 0033 00004 0002 FCLA 00005 6400 FSTA EXPON+3 /MUST BE 6 WDS 00006 0036 00007 0050 STARTE 00010 0200 FLDA 0 /BASE 00011 6400 FSTA BASE,0 00012 0025 00013 1130 JSR DEXP3 /EXP3(BASE,EXPON) 00014 0000 00015 1030 JA .+6 00016 0023 00017 1030 JA BASE 00020 0025 00021 1030 JA EXPON 00022 0033 00023 1030 JA #EXPDR 00024 0000 00025 0000 BASE, F 0.0 00026 0000 00027 0000 00030 0000 F 0.0 00031 0000 00032 0000 00033 0000 EXPON, F 0.0 00034 0000 00035 0000 00036 0000 F 0.0 00037 0000 00040 0000 RALF V50A 8-APR-92 PAGE 1-1 NO ERRORS 4 SYMBOLS, NO ABS REFS # C 00000 #EXPDR S 00041 #MAIN S 00000 BASE 00025 DEXP3 X 00000 EXPON 00033