*COMDECK CLOCK
          IDENT  CLOCK
          ENTRY  CLOCK
          SYSCOM B1 
          TITLE  CLOCK - OBTAIN TIME OF DAY.
          COMMENT OBTAIN TIME OF DAY. 
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 CLOCK    SPACE  4,10 
***       CLOCK - OBTAIN TIME OF DAY. 
* 
*         CALL CLOCK (STATUS) 
* 
*         EXIT   (STATUS) = TIME OF DAY.
**T       60/ * HH.MM.SS.*
* 
*         CLOCK(STATUS);  (*SYMPL* CALL)
* 
*         EXIT   STATUS, A CHARACTER ITEM THAT WILL CONTAIN THE 
*                CLOCK READING. 
* 
*         USES   X - 1, 5, 6. 
*                A - 1. 
*                B - 1. 
* 
*         MACROS CLOCK. 
  
  
 CLOCK    SUBR               ENTRY/EXIT 
          SB1    1
          BX5    X1 
          CLOCK  X1 
          SA1    X5 
          BX6    X1          RETURN TIME OF DAY AS FUNCTION RESULT
          EQ     CLOCKX 
  
          END 
