*DECK S$DTCLK 
          IDENT  S$DTCLK
  
**        S$DTCLK - GET DATE AND TIME 
* 
*    CALLING SEQUENCE - 
*         S$DTCLK(DATE,TIME): 
*            DATE   C(10) 
*            TIME   C(10) 
* 
*    GIVEN -
*         NO VALUES GIVEN 
* 
*    DOES - 
*         GETS DATE AND TIME USING THE SYSTEM MACROS
*         'DATE' AND 'CLOCK' RESPECTIVELY 
* 
*    USES - 
*         THE SYSTEM MACROS 'DATE' AND 'CLOCK'
  
          ENTRY  S$DTCLK
 S$DTCLK  SUBR
          SB1    1
          SX7    A1 
          SA7    SAVEA1 
          DATE   MYDATE 
          CLOCK  MYCLCK 
          SA1    SAVEA1 
          SA1    X1 
          SA2    A1+B1
          SA3    MYDATE 
          BX7    X3 
          SA7    X1 
          SA3    MYCLCK 
          BX7    X3 
          SA7    X2 
          EXIT
 SAVEA1   BSS    1
  
 MYDATE   BSS    1
 MYCLCK   BSS    1
          END 
