*COMDECK PBLN03 
         NAM   PBLN03    INT HANDLER- LINE 03 
*CALL SYSPGMAC
         ENT   PBLN03 
          ENT    SYSPGE      FOR MPEDIT INITIALIZATION
         EXT   PMWOLP    MUX WORKLIST PROCESSOR 
         EXT   JKMASK    SOFTWARE MASKS 
         EXT   LEVELNO   SOFTWARE PRIORITY LEVEL
         EQU   LIN03(4*3) 
         EQU   PRILVL(3)
         EQU   MASK(PRILVL-1) 
* 
PBLN03   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
          SAVPGE SAVPGE,*    SAVE CURRENT PAGE
          SETPGE SYSPGE,*    SWITCH TO SYSTEM PAGE
          RTJ    PMWOLP 
          SETPGE SAVPGE,*    RESTORE CURRENT PAGE 
         IIN   0
         LDA*  AREA      RESTORE SOFTWARE PRIORITY LEVEL
         STA*  (ALEVELNO+1) 
         LRG   SAVE      RESTORE REGISTERS,OVERFLOW 
         EXI   LIN03
* 
         BZS   AREA(10) 
SAVE     ADC   AREA-10
SAVPGE    NUM    0           CALLERS PAGE NUMBER
SYSPGE    NUM    0           MUX SUBSYSTEM PAGE NUMBER
         END
