 GCE      SPACE  4,10
**        GCE - GET COUNTER ENTRY.
*
*         ENTRY  (T1) = ID TO SEARCH THE COUNTERS BUFFER FOR.
*
*         EXIT   CM - CM+3 HOLDS THE COUNTER ENTRY FOUND.
*                W0 - W3 HOLDS POINTER TO ENTRY.
*                TO *ERRH* IF COUNTER VALUE NOT FOUND.


 GCE      SUBR               ENTRY/EXIT
          LDN    MECP
          RJM    IDA
          CRDL   W0          READ IN THE COUNTER BUFFER POINTER
          SODL   W3          FOR COUNTING
 GCE1     LDD    W0
          LRD    W1
          ADC    RR
          CRDL   CM          READ IN A COUNTER WORD
          LDDL   CM
          SHN    -10
          LMD    T1
          ZJN    GCEX        IF ENTRY FOUND
          AODL   W0
          SODL   W3
          PJN    GCE1        IF MORE TO CHECK

*         DFT ANALYSIS - LOST COUNTER VALUE FOR THIS ELEMENT.

          LDN    BC
          RJM    CLR
          SETDAN (EPUN,DACV)
          LDC    DACV+TDFT   61F - CANNOT FIND COUNTER VALUE
          STML   RTP1
          CALL   ERRH        ISSUE MESSAGE AND HANG
