*COMDECK PB100MS
_$J+? 
_***********************************************************************
*                                                                      *
*                              PB100 MS                                *
*                                                                      *
*                     100 MSEC TIMEOUT ROUTINE                         *
*                                                                      *
***********************************************************************?
_$R-,G-,I-? 
_***********************************************************************
*                                                                      *
** OVERVIEW -  PB100MS IS ACTIVATED TO CALL THE ROUTINES THAT ARE TO   *
*              OCCUR EVERY 100 MSEC.                                   *
*                                                                      *
** INPUT    -  WORK LIST ENTRY.                                        *
*                                                                      *
** OUTPUT   -  NONE.
*                                                                      *
** EXTERNAL SUBROUTINES - 
*              PBTOSRCH,                                               *
*              PBCHKREG,                                              * 
*              PTMSCAN.                                                *
*                                                                      *
** NOTES    -  NONE.                                                   *
*                                                                      *
***********************************************************************?
PROCEDURE PB100MS;
BEGIN 
CTIMER.CT100MS := CTIMER.CT100MS + 1;      _INCREMENT 1OOMS COUNTER?
PBTOSRCH;                                   _CALL 100 MS TIMEOUT LIST  ?
PBCHKREG;                                   _CHECK REGULATION LEVEL    ?
*IF DEF,ASYNC,1 
PTMSCAN;                                    _CALL TTY TIMING ROUTINE   ?
END;
