*COMDECK PBSMASK
         NAM   PBSMASK   SET INTERRUPT MASK 
         ENT   PBSMASK
         EXT   QTOPSK 
* 
PBSMASK  NOP   0
         IIN   0
         LDQ*  (PBSMASK) GET NEW MASK VALUE 
         LDA   0,Q
         TRA   M         LOAD M 
         RAO*  PBSMASK   BUMP PAST PARAMETER
         LDA   QTOPSK    CHECK FOR INT COUNT " 0
         SAN   1
         EIN   0
         JMP*  (PBSMASK) RETURN 
         END
