/ / VERSION 5A 4-26-77 MH / 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