*         CTEXT  CTP$DFT_CHECK_PKT_ERROR_STATUS
 CER      SPACE  4,10
**        CER - CHECK ERROR RESPONSE.
*
*         ENTRY  (CALB+1) = 0, IF NO ERROR.


          ROUTINE CER        ENTRY/EXIT

          LDM    CALB+1      CHECK FOR ERRORS
          ZJP    CERX        IF NO ERROR DETECTED
          LDN    0           CLEAR PACKET TIMEOUT CONTROL
          STML   PKTIM
          LRD    DP+1
          RJM    SPB         SET OS BOUNDS
          LDN    BC
          RJM    CLR
          LDN    0
          STD    ET

*         DFT ANALYSIS - PACKET RESPONSE ERROR.
*         DFT FLAGS - VALID 180, LOGGING.

          SETDAN (EPUN,DAPC) BAD PHASE IN PACKET COMMUNICATION
          SETFLG (BC.FL)
          LDM    CALB+1
          STM    CERA+3      SAVE THE RESPONSE STATUS
          LDML   CELCW
          STML   CERA+2      SAVE THE CONTROL WORD
          LDN    NRSP        NON REGISTER STATUS BUFFER
          RJM    IDA         INCREMENT DFT ADDRESS
          CRDL   W0
          LRD    W1
          LDDL   W0
          ADC    RR+NRSBL+1  BASE SIZE + HEADER WORD
          CWML   CERA,ON     WRITE ERROR CODE TO SCRATCH NON REGISTER STATUS
          LDN    NRSBL
          STM    LLOG        LENGTH TO LOG
*         LDC    DAPC+TDFT
          LDN    1           LOG TO NRSB
          STM    RTP1
*         CALL   ERRH        LOG THE ERROR
          CALL   LOG         FOR JUST NOW
*         LDC    DAPC
*         RJM    IDD         IDLE DOWN AND DIE
          LJM    CERX        JUST CONTINUE
 CERA     BSSZ   4

*         END    CTP$DFT_CHECK_PKT_ERROR_STATUS
