*COMDECK RSECS
          IDENT  RSECS
          ENTRY  RSECS
          SYSCOM B1 
          TITLE  RSECS - OBTAIN REAL TIME IN SECONDS. 
          COMMENT OBTAIN REAL TIME IN SECONDS.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1985.
 RSECS    SPACE  4,10 
***       RSECS - OBTAIN REAL TIME IN SECONDS.
* 
*         CALL RSECS (STATUS) 
* 
*         EXIT   (STATUS) = RESPONSE. 
*                RESPONSE = 
**T       42/ 0,18/ SECONDS 
*         TIME IS SYSTEM SOFTWARE CLOCK TIME SINCE DEADSTART MOD 2**18. 
* 
*         RSECS(STATUS);        (*SYMPL* CALL)
* 
*         EXIT   STATUS, AN ITEM THAT WILL CONTAIN THE RSECS
*                        STATUS WORD ON EXIT. 
* 
*         USES   X - 1, 6.
*                A - 1. 
*                B - 1. 
* 
*         MACROS RTIME. 
  
  
 RSECS    SUBR               ENTRY/EXIT 
          SB1    1
          BX5    X1 
          RTIME  X1 
          SA1    X5 
          MX6    -18
 NOS      IF     DEF,CSMR 
*         NOS FORMAT         (X1) = TTTT TTTT XXXX XXXX XXXX
          LX1    23-59       (X1) = XXXX XXXX XXXX TTTT TTTT
 NOS      ELSE
*         NOS/BE FORMAT      (X1) = XXXX XXXX TTTT TTTT XXXX
          LX1    23-35       (X1) = XXXX XXXX XXXX TTTT TTTT
 NOS      ENDIF 
          BX6    -X6*X1      RETURN RESPONSE AS FUNCTION RESULT 
          SA6    X5 
          EQ     RSECSX 
  
          END 
