*COMDECK PBLN01 
         NAM   PBLN01    INT HANDLER- LINE 01 
         ENT   PBLN01 
         EXT   PBTTYINT  TELETYPE INT HANDLER 
         EXT   JKMASK    SOFTWARE PRIORITY MASKS
         EXT   LEVELNO   SOFTWARE PRIORITY LEVEL
          EXT    TOTUP        FLAG FOR THE EXISTING OF TUP & CONSOLE RTN
         EQU   LIN01(4*1) 
         EQU   PRILVL(6)
         EQU   MASK(PRILVL-1) 
* 
PBLN01    STA*   AREA         SAVE A REGISTER 
          LDA    TOTUP        GET FLAG TO SEE IF CONSOLE RTNS PRESENT 
PBLN1     SAN*   PBLN2        SKIP IF CONSOLE PRESENT 
          LDA    =N$FFFD      ELSE,MASK OUT CONSOLE INTERRUT BIT
          LAM    M            TO INHIBIT FURHER INTERRUPTS
          LDA*   AREA         RESTORE A REGISTER
          JMP*   PBLN3        JUMP TO EXIT
PBLN2     LDA*   AREA         RESTORE A REGISTER
          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   PBTTYINT  HANDLE TTY INT 
         IIN   0
         LDA*  AREA 
         STA*  (ALEVELNO+1)  RESTORE SOFTWARE PRIORITY LEVEL
         LRG   SAVE      RESTORE REGISTERS, OVERFLOW
PBLN3     EXI    LIN01        EXIT INT STATE
* 
         BZS   AREA(10) 
SAVE     ADC   AREA-10
         END
