*COMDECK PBLN05 
         NAM   PBLN05    INTERRUPT HANDLER - LINE 05
         ENT   PBLN05 
         EXT   JKMASK    SOFTWARE PRIORITY MASKS
         EXT   LEVELNO   SOFTWARE PRIORITY LEVEL
         EXT   PTHIPINT  COUPLER INTERRUPT HANDLER
         EXT   ACPLR2    COUPLER LINE NUMBER
         EQU   LIN5(5*4) TRAP ADDRESS FOR LINE 5
         EQU   PRILVL(8) COUPLER SOFTWARE PRIORITY LEVEL
         EQU   MASK(PRILVL-1) 
         SPC   2
PBLN05   SRG   SAVE      SAVE REGISTERS, OVERFLOW 
ALEVNO   LDA   LEVELNO
         STA*  AREA      SAVE SOFTWARE PRIORITY LEVEL 
         ENA   PRILVL 
         STA*  (ALEVNO+1) STORE COUPLER PRIORITY LEVEL
         LDQ   =XJKMASK 
         LDA-  MASK,Q 
         LAM   M         AND MASK 
         EIN   0
         RTJ   PTHIPINT  CALL HIP INTERRUPT ROUTINE 
         ADC   (ACPLR2)  COUPLER LINE NUMBER
         IIN   0
         LDA*  AREA 
         STA*  (ALEVNO+1) RESTORE SOFTWARE PRIORITY LEVEL 
         LRG   SAVE      RESTORE REGISTERS, OVERFLOW
         EXI   LIN5      EXIT INTERRUPT SATATE FOR LINE 5 
AREA     BZS   AREA(10) 
SAVE     ADC   AREA-10
         END
