*COMDECK PBLN00 
         NAM   PBLN00        INT HANDLER- LINE 00 
         ENT   PBLN00 
         EXT   PBBREA    BREAKPOINT INT HANDLER 
         EXT   JEBPTABLE     BREAKPOINT TABLE 
         EXT   LEVELNO       SOFTWARE PRIORITY LEVEL
         EXT   PBHALT        SYSTEM HALT
          EXT    J0POWERFAIL POWER FAILURE HALT CODE
          EXT    J0MEMPARITY MEMORY PARITY ERROR HALT CODE
         EQU   LIN00(4*0) 
         EQU   PRILVL(1)
* 
PBLN00   SRG+  JEBPTABLE SAVE REGISTERS,OVERFLOW
ALEVELNO LDA   LEVELNO
         LDQ   JEBPTABLE
         STA   0,Q           SAVE SOFTWARE PRIORITY LEVEL 
         ENA   PRILVL 
         STA*  (ALEVELNO+1) 
         SPF   CLEAR-*-1     CLEAR PROTECT INT
         JMP*  HALT          IF POWER FAIL OR PARITY ERROR- HALT
CLEAR    LDA*  (RETURN)  GET BP RETURN ADDR 
         INA   -1        DECREMENT BP RETURN ADDR 
         STA-  9,Q      SAVE BP RETURN ADDR 
         EIN   0
         RTJ   PBBREA    HANDLE BREAKPOINT INT
         IIN   0
         LDQ   JEBPTABLE
         LDA   0,Q
         STA*  (ALEVELNO+1)  RESTORE SOFTWARE PRIORITY LEVEL
         LDA-  9,Q       GET BP RETURN ADDR 
         STA*  (RETURN)  RESTORE BP RETURN ADDR 
         LRG+  JEBPTABLE RESTORE REGISTERS
EXIT     EXI   LIN00     EXIT INT STATE 
* 
HALT  SPE    HALT1
      RTJ    PBHALT      POWER FAIL 
      ADC    PFERR
      JMP*   EXIT 
* 
HALT1 RTJ    PBHALT 
      ADC    MPERR       MEMORY PARITY ERROR
      JMP*   EXIT 
* 
PFERR     ADC    J0POWERFAIL
MPERR     ADC    J0MEMPARITY
RETURN   NUM   $100      BP TRAP RETURN ADDR
      END 
