*COMDECK PBLOCK 
_$J+? 
_*****************************
*                            *
*  DEBUG LOCK INTERRUPTS     *
*                            *
*****************************?
_$R-,G-,I-? 
PROCEDURE PBLOCK; 
BEGIN 
  PBAMASK([J8INT]);                         _ DISABLE ALL BUT INTERNAL ?
  EINT
END;
