*COMDECK TYPTIMER 
_$J+? 
                                                          _80 12 18?
_***********************************************************************
*                                                                      *
*                        TIMER SERVICES TYPES                          *
*                                                                      *
***********************************************************************?
      B7PKTPTR = 'BKTMRPKT;                 _POINTER TO TIMER PACKET   ?
                                                         _ 83/01/27 ? 
               _ # TIMER PACKET # ? 
      BKTMRPKT = PACKED RECORD              _TIMER PACKET              ?
        BKEXTIME   : INTEGER;               _EXPIRATION TIME           ?
        BKPERIODIC : BOOLEAN;               _PERIODIC OR NONRECURRING  ?
        BKACTIVE   : BOOLEAN;               _ACTIVE OR INACTIVE        ?
        BKTIMRK    : BOOLEAN;               _TIME INTERVAL MARKER      ?
        BKTYPE     : (BKCANCEL,             _TYPE OF ACTION            ?
                      BKRESET,BKSET); 
        BKWLINDX   : B08BITS;               _WORKLIST INDEX            ?
        BKBAKLNK   : B7PKTPTR;              _BACKWARD PACKET POINTER   ?
        BKFORLNK   : B7PKTPTR;              _FORWARD PACKET POINTER    ?
        BKSP1      : B01BITS ;              _REDUCTE TIME TO 15 BITS   ?
        BKTIME     : B015BITS;              _LENGTH OF TIME            ?
        BKUSRBYTE  : B08BITS;               _USER BYTE                 ?
        BKWKCODE   : B08BITS;               _WORK CODE TO RETURN       ?
         CASE BKI  : INTEGER OF 
        0:  (BK1USRWRD : INTEGER;           _USER WORD 1               ?
             BK2USRWRD : INTEGER);          _USER WORD 2               ?
        1:  (BK1UPTR   : B0BUFPTR;          _USER WORD 1               ?
             BK2UPTR   : B0BUFPTR);         _USER WORD 2               ?
      END;
_?
