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