          EJECT
*         CTEXT CTP$DFT MAIN LOOP 930.
*
*         ROUTINES CALLED BY S0/S0E MAIN LOOP.
 CRN      SPACE  4,10
**        CRN - CHECK FOR RELOCATION NECESSARY.


 CRN      SUBR               ENTRY/EXIT
          LDML   PKTCW       CHECK FOR OUTSTANDING PACKET ACTIVITY
          ADML   CELCW
          ADML   DI4CW
          NJN    CRNX        IF PACKET ACTIVITY OUTSTANDING
          LDM    DRCR        SEE IF ONE SECOND HAS ELAPSED
          ZJN    CRNX        IF NOT TIME YET
          CALL   CRQ         CHECK FOR RELOCATION REQUESTS
          UJN    CRNX        RETURN
 CST      SPACE  4,10
**        CST - CHECK STATE TRANSITION.
*
*         THIS IS A DUMMY ROUTINE ON S0/S0E.


 CST      SUBR               ENTRY/EXIT
          UJN    CSTX        RETURN
 CNM      SPACE  4,10
**        CNM - CHECK FOR NON DEDICATED MODE
*
*         THIS IS A DUMMY ROUTINE ON S0/S0E.


 CNM      SUBR               ENTRY/EXIT
          UJN    CNMX        RETURN

*         END CTP$DFT MAIN LOOP 930
