*COMDECK PBLN00A
         NAM   PBLN00    INTERRUPT HANDLER- LINE 00 
         ENT   PBLN00 
         EXT   JKMASK        SOFTWARE INTERRUPT MASK
         EXT   LEVELNO       SOFTWARE PRIORITY LEVEL
         EXT   PBHALT        SYSTEM HALT
          EXT    J0POWERFAIL POWER FAILURE HALT CODE
          EXT    J0MEMPARITY MEMORY PARITY ERROR HALT CODE
          EXT    J0PROGPROT  PROGRAM PROTECT ERROR HALT CODE
         EQU   LIN00(4*0) 
         EQU   PRILVL(1)
         EQU   MASK(PRILVL-1) 
* 
PBLN00    SRG    SAVE        SAVE REGISTERS AND OVERFLOW
ALEVELNO LDA   LEVELNO
         STA*  AREA          SAVE SOFTWARE PRIORITY LEVEL 
         ENA   PRILVL 
         STA*  (ALEVELNO+1) 
         LDA-  MASK,Q 
         LAM   M             AND MASK 
          SPF    CLEAR       CHECK FOR PROGRAM PROTECT FAULT
         JMP*  HALT 
CLEAR    RTJ   PBHALT 
         ADC   PPERR
HALT     SPE   HALT1         CHECK FOR MEMORY PARITY ERROR
         RTJ   PBHALT        POWER FAILURE
         ADC   PFERR
HALT1    RTJ   PBHALT 
         ADC   MPERR
         EXI   LIN00         EXIT INT STATE 
* 
PFERR     ADC    J0POWERFAIL
MPERR     ADC    J0MEMPARITY
PPERR     ADC    J0PROGPROT 
* 
         BZS   AREA(10) 
SAVE     ADC   AREA-10
         END
