--- /dev/null
+/
+/ VERSION 5A 4-26-77 MH
+/
+ 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
+\f