--- /dev/null
+/
+/ VERSION 5A 4-25-77 MH
+/
+ SECT #EXPDD
+ DPCHK
+ BASE 0
+ EXTERN DEXP3
+ JA .
+ FSTA EXPON,0 /EXPONENT
+ FLDA 0 /BASE
+ FSTA BASE,0
+ JSR DEXP3 /EXP3(BASE,EXPON)
+ JA .+6
+ JA BASE
+ JA EXPON
+ JA #EXPDD
+BASE, F 0.0
+ F 0.0
+EXPON, F 0.0
+ F 0.0
+ END
+\f