*COMDECK PBCLRPROT
         NAM   PBCLRPROT      CLEAR PROTECT BIT 
         ENT   PBCLRPROT
         EXT   QTOPSK 
PBCLRP   NOP   0
         IIN   0
         LDQ*  (PBCLRPROT)
         LDQ   0,Q
         CPB   0
         RAO*  PBCLRPROT
         LDA   QTOPSK 
         SAN   1
         EIN   0
         JMP*  (PBCLRPROT)
         END
