*COMDECK PBCALL 
******************************
*                            *
*        PBCALL              *
*                            *
******************************
         NAM   PBCALL    CALL PROGRAM BY ADDRESS
         ENT   PBCALL 
         EXT   QTOPSK 
PBCALL   NOP   0
         IIN   0
         LDQ*  (PBCALL) 
         LDQ   0,Q       GET PROGRAM ADDRESS
         LDA*  PBCALL    GET RETURN ADDRESS 
         INA   1         BUMP TO 1ST PARAMETER ADDRESS
         STA   0,Q       STORE 1ST PARAM ADDR INTO PROGRAM ENTRY PT 
         LDA   QTOPSK    CHECK GLOBAL INTERUPT COUNT
         SAN   1
         EIN   0
         JMP-  1,Q       JUMP TO PROGRAM
         END
