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