*COMDECK PBCLKINI 
_$J+? 
_*****************************
*                            *
*         PBCLKINIT          *
*   RESTART REAL TIME CLOCK  *
*                            *
*****************************?
_$R-,G-,I-     NON-RECURSIVE
               INTERRUPTABLE ?
_***********************************************************************
*                                                                      *
*OVERVIEW- PBCLKINIT IS CALLED EACH TIME A REAL TIME CLOCK             *
*          INTERRUPT OCCURS.  CLOCK STATUS IS CHECKED AND, IF          *
*          NO ERROR IS INDICATED, THE CLOCK IS RESTARTED,              *
*          OTHERWISE, A CE ERROR MESSAGE IS SENT.                      *
*                                                                      *
**INPUT- NONE                                                          *
*                                                                      *
**OUTPUT- NONE                                                         *
*                                                                      *
**EXTERNAL SUBROUTINES-                                                *
*              1) PNCEFILE         SEND CE ERROR MSG                   *
*                                                                      *
***********************************************************************?
PROCEDURE PBCLKINIT;
VAR STATUS : B0OVERLAY; 
     TEMP : INTEGER;
BEGIN 
  INST($E000,$F0,                           _LDQ  $F0                  ?
       $B00,                                _NOP                       ?
       $2FE,                                _INP  -1     READ STATUS   ?
       $6400,STATUS,                        _STA  STATUS               ?
       $A000,$C000,                         _AND  $C000                ?
       $B000,$4000,                         _EOR  $4000  CHECK LST CNT ?
       $6400,TEMP);                         _STA  TEMP                 ?
  IF 0 " TEMP THEN                          _BAD STATUS                ?
    CICECNT := CICECNT + 1;                 _ INCREMENT COUNTER        ?
  INST($E000,$F3,                           _LDQ $F3                   ?
       $B00,                                _NOP                       ?
       $3FE);                               _OUT -1      RESTART CLOCK ?
END; _PBCLKINIT?
