          SPACE  4,10
*         CTEXT  CTP$SCI TIMEOUT DFT VERIFIED.
*
*         THIS DECK CONTAINS A ROUTINE WHICH TIMES OUT THE SETTING
*         OF THE DFT VERIFIED FLAG BY DFT AFTER SIX SECONDS.
 TDF      SPACE  4,10
**        TDF - TIMEOUT DFT VERIFIED.
*
*         EXIT   TO *AAC* IF NO RESPONSE FROM DFT WITHIN 6 SECONDS OR IF
*                DFT SETS THE REJECT FLAG.
*
*         USES   T6, CM - CM+3.
*
*         CALLS  DLY, IDT.


 TDF10    SHN    21-6-21+7   CHECK IF REJECT FLAG IS SET
          PJN    TDFX        IF REJECT FLAG NOT SET
          LDC    DARJ        62B - DFT SET REJECT FLAG
          LJM    AAC         ACTIVATE ANALYSIS CODE ERROR PROCESSOR

 TDF      SUBR               ENTRY/EXIT
          LDN    6           TIMEOUT *DFT* AFTER 6 SECONDS
          STD    T6
 TDF5     LDC    1000D
          RJM    DLY         DELAY 1 SECOND
          LDN    HDRP        READ *DFT*CONTROL WORD
          RJM    IDT
          CRDL   CM
          LDDL   CM+3
          SHN    21-7
          MJN    TDF10       IF *DFT* VERIFIED
          SOD    T6          DECREMENT TIMEOUT COUNTER
          NJN    TDF5        IF NOT TIMED OUT
          LDC    DANV        62A - DFT NEVER VERIFIED
          LJM    AAC         ACTIVATE ANALYSIS CODE ERROR PROCESSOR

*         ENDX   CTP$SCI_TIMEOUT_DFT_VERIFIED.

