%longrealfn Fn(%integer Ep)
   %recordformat F(%byte a,b,c,d,e)
   %record(F) R
   %constreal M = 256.0
   %integer A
   A = Addr(R)
   R = 0
   *LDR _ 1, A
   *LDR _ 0, Ep
   *SWI _ 7
   %result = ((((r_e*M+r_d)*M+r_c)*M+r_b)*M+r_a)/100
%end

%externallongrealfn Elapsed %alias "3L_IMP_ELAPSED_TIME"
   {returns the current elapsed time in seconds}
   %result = Fn(1)
%end

%externallongrealfn CpuTime %alias "3L_IMP_CPU_TIME"
   {returns the current interval timer value}
   %result = Fn(3)
%end