File: EXPID.RA of Tape: OS8/OS8-Latest/new-10
(Source file text)
/D=I**D INTERNAL EXPONENTIATION FUNCTION (USES EXPID2) / / / VERSION 40A 28-MAY-80 WVDM / / SECT #EXPID DPCHK BASE 0 EXTERN EXPID2 EXPID, JA . FSTA EXPON,0 /EXPONENT STARTF FLDA 0 /BASE FSTA BASE,0 JSR EXPID2 JA .+6 JA BASE JA EXPON JA EXPID BASE, F 0.0 EXPON, F 0.0 F 0.0 END