*COMDECK PBOMASK
         NAM   PBOMASK   OR INTERRUPT MASK
         ENT   PBOMASK
         EXT   QTOPSK 
* 
PBOMASK  NOP   0
         IIN   0
         LDQ*  (PBOMASK) GET OR VALUE 
         TRM   A
         ORA+  0,Q       OR WITH CURRENT MASK 
         TRA   M         LOAD M 
         RAO*  PBOMASK   BUMP PAST PARAMETER
         LDA   QTOPSK    CHECK FOR INT COUNT " 0
         SAN   1
         EIN   0
         JMP*  (PBOMASK) RETURN 
         END
