Artifact 951a6316cb0e0e2b9b8f58cc8cc26b4bc3ba1eb0cf62ebe97c14808ace9b12ca:


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Processor-Time.SL (TOPS-20 Version)
% 
% Author:      Alan Snyder
%              Hewlett-Packard/CRC
% Date:        22 September 1982
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

(CompileTime (put 'hptim 'OpenCode '((jsys 8#501) (jfcl))))

(de processor-time ()
  % Return accumulated processor time for the current process in microseconds.
  (WTimes2 (hptim 1) 10)
  )


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]