          EJECT
*         CTEXT CTP$DFT_MAIN_LOOP_DUAL_STATE
*
*         THIS COMMON DECK CONTAINS DFT MAIN LOOP ROUTINES
*         WHICH ARE USED IN DUAL STATE ENVIRONMENTS


 CST      SUBR               ENTRY/EXIT

*         CHECK FOR DUAL-STATE TRANSITION.

          LDN    HDRP
          RJM    IDA
          CRDL   CM          GET DFT HEADER
          LDDL   CM+DHFLG    GET DFT FLAGS
          SHN    21-DH.DT
          PJN    CSTX        IF NO  DUAL STATE TRANSITION HAS OCCURRED
          CALL   PTF         PROCESS TRANSITION
          UJP    CSTX        RETURN

*         CHECK IF TIME TO DROP OUT IN NON-DEDICATED MODE.

 CNM      SUBR               ENTRY/EXIT
          CALL   HOE
          LDN    HDRP
          RJM    IDA
          CRDL   CM
          LDDL   CM+DHFLG    DFT HEADER FLAGS
          SHN    21-DH.FD
          PJP    CNMX        IF DEDICATED MODE
          LDM    DTEW        CHECK FOR TIMEOUT COMPLETE ON ENVIRONMENT WARNING
          NJP    CNMX        IF NO PENDING TIMEOUTS
          LDML   PKTCW
          NJN    CNMX        IF PACKET ACTIVITY IS OUTSTANDING
          LDM    WARN        ENVIRONMENT OR SHORT WARNING ENCOUNTERED
          ZJN    CNM10       IF NEITHER
          LDM    WARC        IN NON DEDICATED ONLY CALL *1MB* / *1MR* ONCE
          SBN    2
          PJP    CNMX        IF DEDICATED
          AOM    WARC        BUMP TIMES CALLED
          UJN    CNM20       CONTINUE

 CNM10    STM    WARC        RESET CALLED COUNT
 CNM20    CALL   SST         SAVE DFT STATE AND RETURN TO *1MB* / *1MR*

*         END CTP$DFT_MAIN_LOOP_DUAL_STATE
