*COMDECK PBSETPROT
         NAM   PBSETPROT      SET PROTECT BIT 
         ENT   PBSETPROT
         EXT   PBHALT 
          EXT    J0MEMPARITY MEMORY PARITY ERROR HALT CODE
         EXT   QTOPSK 
PBSETP   NOP   0
         IIN   0
         LDQ*  (PBSETPROT)
         LDQ   0,Q
         SPB   0
         SPE   1         SKIP ON PARITY ERROR 
         JMP*  OUT
          LDA    0,Q
          STA    0,Q
         SPB   0
         SPE   1
         JMP*  OUT
          LDA    0,Q
          STA    0,Q
         SPB   0         SET PROTECT BIT
         SPE   1
         JMP*  OUT
         STQ+  $100      SAVE MEMORY PARITY ADDRESS 
         RTJ+  PBHALT    HALT SYSTEM
         ADC   MEMPAR 
OUT      RAO*  PBSETPROT
         LDA   QTOPSK 
         SAN   1
         EIN   0
         JMP*  (PBSETPROT)
MEMPAR    ADC    J0MEMPARITY
         END
