*         CTEXT  CTP$DFT_CHECK_CPU_THRESHOLD
 CTE      SPACE  4,10
**        CTE - CHECK THRESHOLD EXCEEDED.
*
*         EXIT   (A) <> 0 THRESHOLD EXCEEDED.
*
*         CALLS  GCE.
*
*         USES   CM - CM+3, T1.

 CTE0     LDN    0
 CTE      SUBR               ENTRY/EXIT
          LDN    VER4
          RJM    VCK         CHECK VERSION
          MJN    CTE0        IF LESS THAN VERSION 4
          LDM    SUMS
          LPC    0#FDF       CLEAR MONITOR MODE BIT
          LMN    2           TEST FOR CORRECTED ERROR
          NJN    CTE0        IF MORE THAN CORRECTED ERROR
          LDM    CPUO
          STD    T1
          LDM    CTEA,T1
          STD    T1
          RJM    GCE         GET COUNTER ENTRY
          LDDL   CM
          LPN    1
          ZJP    CTEX        IF NOT AT THRESHOLD
          LDN    0
          STM    DFTA        NULL ACTION
          LDN    1
          STM    STON        SET STUCK ON ERROR FLAG
          UJN    CTEX        RETURN

 CTEA     CON    0#0         CPU 0 ID
          CON    0#10        CPU 1 ID
*COPY CTP$DFT_GET_COUNTER_ENTRY

*         END    CTP$DFT_CHECK_CPU_THRESHOLD
