*COMDECK PBIOTMR
_$J+? 
_*****************************
*                            *
*         PBIOTMR            *
*    I/O TIMER APPENDAGE     *
*                            *
*****************************?
_$R-,G-,I-     NON-RECURSIVE
               INTERRUPTABLE ?
_***********************************************************************
*                                                                      *
**OVERVIEW- PBIOTMR IS ENTERED EVERY 1/2 SECOND FROM PBTIMAL.          *
*           THIS PROGRAM SCANS THE TIMER FIELD IN THE VARIOUS          *
*           DEVICE CONTROLLER TABLES.  IF ZERO, THE TIMER IS           *
*           INACTIVE; IF NOT, THE TIMER IS DECREMENTED BY ONE          *
*           AND, IF ZERO, THE DRIVER TIMEOUT PROCEDURE IS              *
*           CALLED.                                                    *
*                                                                      *
**INPUT- NONE                                                          *
*                                                                      *
**OUTPUT- TIMERS DECREMENTED AND TIMEOUT ROUTINE CALLED IF             *
*         NECESSARY.                                                   *
*                                                                      *
**EXTERNAL SUBROUTINES-                                                *
*              1) PBTMEOUT         DRIVER TIMEOUT HANDLER              *
*                                                                      *
***********************************************************************?
PROCEDURE PBIOTMR;
VAR I : INTEGER;
BEGIN 
  FOR I := TTY TO LP1742 DO                 _LOOP THRU DEVICES         ?
  WITH JACT[I] DO 
  IF 0 " JATIMER THEN                       _CHECK FOR TIMER ACTIVE    ?
  BEGIN 
    JATIMER := JATIMER-1;                   _DECREMENT TIMER           ?
    IF 0 = JATIMER                          _CHECK FOR EXPIRED TIMER   ?
    THEN PBTMEOUT(I);                       _CALL TIMEOUT HANDLER      ?
  END; _WITH? 
END; _PBIOTMR?
