File: EXPDR.RA of Tape: Sources/Fortran/os8-f4-3
(Source file text)
/INTERNAL FUNCTION EXPDR D=D**R (USES DEXP3) / / / VERSION 40A 28-MAY-80 WVDM / / SECT #EXPDR DPCHK BASE 0 EXTERN DEXP3 JA . FSTA EXPON,0 /EXPONENT FCLA FSTA EXPON+3 /MUST BE 6 WDS STARTE FLDA 0 /BASE FSTA BASE,0 JSR DEXP3 /EXP3(BASE,EXPON) JA .+6 JA BASE JA EXPON JA #EXPDR BASE, F 0.0 F 0.0 EXPON, F 0.0 F 0.0 END