          EJECT
*         CTEXT  CTP$DFT_MAIN_NON_RES_EICB_TIME
*
*         THIS DECK UPDATES THE TIME IN THE EICB
*         AND IS CALLED FROM DFTS MAIN LOOP
 UWE      SPACE  4,10
**        UWE - UPDATE WALL CLOCK VALUE IN EICB.
*
*         EXIT   (UETV) = 0.
*
*         CALLS  UTE.


          ROUTINE  UWE

          RJM    UTE         UPDATE TIME IN EICB
          LDN    0           CLEAR FLAG TO CALL UWE (SET IN TUT)
          STM    UETV
          LJM    UWEX        RETURN

*COPY CTP$UPDATE_TIME_IN_EICB

*         END    CTP$DFT_MAIN_NON_RES_EICB_TIME
