*DECK RLTIME
FUNC RLTIME U;
BEGIN 
*CALL ASSEMOP 
 CONTROL IFEQ CB5$TIMR,"NO";
 $BEGIN 
 CONTROL FI;
XREF FUNC RL U; 
ARRAY REALTIM[0]; 
BEGIN ITEM RSECONDS  (0,0,24);
      ITEM RMILLIES  (0,24,36); 
      ITEM REALTIME  (0,0,60);
END 
REALTIME[0] = RL; 
RLTIME = RMILLIES[0]; 
RETURN; 
 CONTROL IFEQ CB5$TIMR,"NO";
 $END 
 CONTROL FI;
ENTRY FUNC CPTIME U;
XREF FUNC CP U; 
ARRAY CPUTIM[0];
BEGIN ITEM CPSECONDS  (0,24,24);
      ITEM CPMILLIES  (0,48,12);
      ITEM CPUTIME    (0,0,60); 
END 
CPUTIME[0] = CP;
CPTIME = CPSECONDS[0]*1000 + CPMILLIES[0];
RETURN; 
END 
TERM
