*COMDECK PBLN08 
         NAM   PBLN08    INT HANDLER - LINE 8 
*CALL SYSPGMAC
         ENT   PBLN08 
         EXT   JKMASK    SOFTWARE PRIORITY MASKS
         EXT   LEVELNO   SOFTWARE PRIORITY LEVEL
          EXT    PBTICK,SYSPGE
         EQU   LIN08(4*8) 
          EQU   PRILVL(9) 
         EQU   MASK(PRILVL-1) 
PBLN08   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         ENABLE INT 
          SAVPGE SAVPGE,*    SAVE CURRENT PAGE
          SETPGE SYSPGE,+    SWITCH TO SYSTEM PAGE
          RTJ    PBTICK 
          SETPGE SAVPGE,*    RESTORE CURRENT PAGE 
         IIN   0         INHIBIT INT
         LDA*  AREA 
         STA*  (ALEVELNO+1)  RESTORE SOFTWARE PRIORITY LEVEL
         LRG   SAVE      RESTORE REGISTERS, OVERFLOW
         EXI   LIN08     EXIT INT STATE 
* 
         BZS   AREA(10)  REGISTER SAVE AREA 
SAVE     ADC   AREA-10
SAVPGE    NUM    0
         END
