          EJECT
*         CTEXT  CTP$DFT_MAIN_LOOP_UPDATE_TIME
*
*         THIS DECK WILL UPDATE THE TIME IN THE EICB
*         FROM DFTS MAIN LOOP

 UTE      SUBR               ENTRY/EXIT
          LDM    UETV        SEE IF TIME TO UPDATE EICB TIME
          ZJN    UTEX        IF NOT TIME
          CALL   UWE         UPDATE TIME IN EICB
          UJN    UTEX

*         END CTP$DFT_MAIN_LOOP_UPDATE_TIME
