*COMDECK PMT1SEC
_$J+ ?
_$R-,G-,I-   LEVEL 1 PROCEDURE - INTERRUPTABLE ?
_ 
************************************************************************
*                                                                      *
*              * *   P M T 1 S E C   * *                               *
*                                                                      *
************************************************************************
*                                                                      *
** OVERVIEW -  THIS PROCEDURE PERFORMS TIMING FUNCTIONS FOR THE        *
*              ACTIVE LINES                                            *
*                                                                      *
** INPUT -     ACTIVE LCB CHAIN POINTER (CELCBACT)                     *
*                                                                      *
** OUTPUT -    WORKLIST ENTRY (MMTIMOD) TO THE MUX EVENT WORKLIST      *
*              FOR ANY FAILED LINE (1 SECOND TIMEOUT).                 *
*                                                                      *
** EXTERNAL SUBROUTINES USED                                           *
*                                                                      *
************************************************************************
* 
* 
? 
PROCEDURE PMT1SEC;
  
VAR 
    PMACTLCB : BZLCBP;                      _ CURRENT LCB POINTER      ?
  
BEGIN 
CASECNTR := CASECNTR + 1;                   _LETS DO THIS NOW          ?
END;    _ PMT1SEC        ?
