          EJECT
*         CTEXT CTP$DFT_990_960_DEGRADE_CPU
*
*         THIS DECK CONTAINS ROUTINES TO DETERMINE IF THE CPU IS DEGRADABLE.
*         IF IT IS, THE *DFT* ACTION CODE IS SET TO DISABLE THE MEMORY PORT
*         AND THE CURRENT TASK IS TERMINATED.
 DID      SPACE  4,10
**        DID - DETERMINE IF CPU DEGRADABLE.
*
*         EXIT   (TERT) = 1 IF THE CPU IS DEGRADABLE.
*                ALSO, THE *DFT* ACTION CODE IS SET TO DISABLE THE MEMORY PORT.
*
*         CALLS  CDC, LOG.


          ROUTINE  DID       ENTRY/EXIT
          RJM    CDC         CHECK IF DEGRADABLE CPU
          ZJP    DIDX        IF NOT DEGRADABLE
          CALL   LOG         LOG ERROR
          LDN    1           SET TERMINATE CURRENT TASK FLAG
          STM    TERT
          LJM    DIDX        RETURN

*COPY CTP$DFT_CHECK_DEGRADABLE_CPU

*         END CTP$DFT_990_960_DEGRADE_CPU
