*COMDECK TIME 
          IDENT  TIME 
          ENTRY  TIME 
          SYSCOM B1 
          TITLE  TIME - OBTAIN ACCUMULATED CPU TIME.
          COMMENT OBTAIN ACCUMULATED CPU TIME.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 TIME     SPACE  4,10 
***       TIME - OBTAIN ACCUMULATED CPU TIME. 
* 
*         CALL TIME (STATUS)
* 
*         EXIT   (STATUS) = RESPONSE
*         RESPONSE =
**T       24/ UNDEFINED,24/ SECONDS,12/ MILLISECONDS
* 
*         TIME(STATUS);         (*SYMPL* CALL)
* 
*         EXIT   (STATUS) =  TIME STATUS WORD.
* 
*         USES   X - 1, 5, 6. 
*                A - 1. 
*                B - 1. 
* 
*         MACROS TIME.
  
  
 TIME     SUBR               ENTRY/EXIT 
          SB1    1
          BX5    X1 
          TIME   X1 
          SA1    X5 
          BX6    X1          RETURN RESPONSE AS FUNCTION RESULT 
          EQ     TIMEX
  
          END 
