*DECK ITIME 
PROC ITIME(TIMES);
BEGIN 
*CALL ASSEMOP 
ARRAY TIMES[1]; 
ITEM TIME;
 CONTROL IFEQ CB5$TIMR,"NO";
 $BEGIN 
 CONTROL FI;
ITEM I,J; 
ARRAY INTIMES[1]; 
ITEM INTIME;
XREF BEGIN
     FUNC RLTIME U; 
     FUNC CPTIME U; 
     PROC PUTTIME;
     END
  
I = RLTIME; 
J = CPTIME; 
INTIME[0] = I - TIME[0];
INTIME[1] = J - TIME[1];
PUTTIME(INTIMES); 
 CONTROL IFEQ CB5$TIMR,"NO";
 $END 
 CONTROL FI;
END 
TERM
