/ / VERSION 5A 4-26-77 MH / SECT #EXPIR BASE 0 EXTERN EXP3 JA . FSTA EXPON,0 /EXPONENT FLDA 0 /BASE FSTA BASE,0 JSR EXP3 /EXP3(BASE,EXPON) JA .+6 JA BASE JA EXPON JA #EXPIR BASE, F 0.0 EXPON, F 0.0 END