*COMDECK PBLN02 
         NAM   PBLN02    INT HANDLER- LINE 02 
         ENT   PBLN02 
         EXT   PMMLEH    MUX ERROR HANDLER
         EXT   JKMASK    SOFTWARE MASKS 
         EXT   LEVELNO   SOFTWARE PRIORITY LEVEL
         EQU   LIN02(4*2) 
         EQU   PRILVL(2)
         EQU   MASK(PRILVL-1) 
* 
PBLN02   SRG   SAVE      SAVE REGISTERS,OVERFLOW
ALEVELNO LDA   LEVELNO
         STA*  AREA      SAVE SOFTWARE PRIORITY LEVEL 
         ENA   PRILVL 
         STA*  (ALEVELNO+1) 
         LDQ   =XJKMASK 
         LDA-  MASK,Q 
         LAM   M         AND MASK 
         EIN   0
         RTJ   PMMLEH    HANDLE MUX ERROR 
         IIN   0
         LDA*  AREA 
         STA*  (ALEVELNO+1)  RESTORE SOFTWARE PRIORITY LEVEL
         LRG   SAVE      RESTORE REGISTERS,OVERFLOW 
         EXI   LIN02     EXIT INT STATE 
* 
         BZS   AREA(10) 
SAVE     ADC   AREA-10
         END
