 LPT      SPACE  4,10
**        LPT - LOG PACKET TIMEOUT.
*
*

          ROUTINE LPT

          LDML   PKTCW       SAVE CONTROL WORD
          STML   LPTA
          LDML   PKSEQ       SAVE SEQUENCE NUMBER
          STML   LPTA+1
          LRD    DP+1
          RJM    SPB         SET OS PP BOUNDS
          LDN    BC
          RJM    CLR         CLEAR SCRATCH CONTROL WORD
          LDN    0
          STD    ET
*
*         ERROR PRIORITY - CORRECTED.
*         DFT ANALYSIS - PACKET HAS TIMED OUT WITH NO RESPONSE.
*         FLAGS - LOGGING.
*
          SETDAN (EPCO,DATO)
          SETFLG (BC.FL)
          LDN    NRSP
          RJM    IDA         INCREMENT DFT ADDRESS
          CRDL   CM
          LRD    CM+1
          LDD    CM
          ADC    RR+1+NRSBL
          CWML   LPTA,ON
          LDN    NRSBL
          STM    LLOG
          LDN    1
          STM    RTP1
          CALL   LOG         LOG THE ERROR
          LJM    LPTX        RETURN

 LPTA     BSSZ   4           SCRATCH FOR CONTROL WORD DATA

*         END    CTP$DFT_LOG_PACKET_TIMEOUT
