File psl-1983/20-kernel/timc.red from the latest check-in


%
% TIMC.RED - get run time in milliseconds
% 
% Author:      Eric Benson
%	       Symbolic Computation Group
%              Computer Science Dept.
%              University of Utah
% Date:        1 October 1981
% Copyright (c) 1981 University of Utah
%

lap '((!*entry TimC expr 0)
	(!*MOVE (WConst -5) (reg 1))
	(runtm)
	(!*EXIT 0)
);

end;


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