*COMDECK PBUNLOCK 
_*****************************
*                            *
*  DEBUG UNLOCK INTERRUPTS   *
*                            *
*****************************?
_$R-,G-,I-? 
PROCEDURE PBUNLOCK; 
VAR ASAVE,
    QSAVE : INTEGER;
BEGIN 
  LOCK; 
  INST($6400,ASAVE,                         _ SAVE A REGISTER          ?
       $4400,QSAVE);                        _ SAVE Q REGISTER          ?
  PBLMASK;                                  _ RELOAD INTERRUPT MASK    ?
  INST($C400,ASAVE,                         _ RESTORE A REGISTER       ?
       $E400,QSAVE);                        _ RESTORE Q REGISTER       ?
  QULOCK                                    _ RETURN TO CALLER         ?
END;
