*COMDECK PBCLR
_$J+? 
_*****************************
*                            *
*          PBCLR             *
*   CLEAR BLOCK OF CORE      *
*                            *
*****************************?
_$R-,G-,I+     NON-RECURSIVE
               NON-INTERRUPTABLE? 
_***********************************************************************
*                                                                      *
**OVERVIEW- PBCLR SETS A SPECIFIED NUMBER OF WORDS TO ZERO BEGINNING   *
*           AT A SPECIFIED ADDRESS.                                    *
*                                                                      *
**INPUT- START ADDRESS AND NUMBER OF WORDS TO CLEAR.                   *
*                                                                      *
**OUTPUT- SPECIFIED WORDS SET TO ZERO.                                 *
*                                                                      *
**EXTERNAL SUBROUTINES- NONE                                           *
*                                                                      *
**NOTE- PBCLR DEFEATS TYPE CHECKING SO DIFFERENT TYPES CAN BE CLEARED. *
*                                                                      *
***********************************************************************?
PROCEDURE PBCLR(START : B0OVERLAY; NUMBER : INTEGER); 
BEGIN 
  WITH START DO 
  FOR BAINT := BAINT TO BAINT+NUMBER-1 DO   _BUMP CLEAR ADDRESS        ?
  BAINTPTR' := 0;                           _CLEAR WORD                ?
END;
